Merge remote-tracking branch 'Sicaa/master'

# Conflicts:
#	locations/vipclub.qsrc

locations/Vika.qsrc

@@ -83,11 +83,17 @@ if hour < 20:
 	end
 
 	if vikasex > 0 and npc_rel['A220'] > 40:
-		act 'Suggest you do something fun':
-			minut += 60
-			npc_rel['A220'] += 5
-			$sexloc = 'obroom'
-			gt'lezbsex','start'
+		gs 'willpower', 'cuni', 'self', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Suggest you do something fun (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'self'
+				minut += 60
+				npc_rel['A220'] += 5
+				$sexloc = 'obroom'
+				gt'lezbsex','start'
+			end
+		else
+			act 'Suggest you do something fun (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	end
 
@@ -152,7 +158,7 @@ if npc_rel['A220'] >= 60 and birthday = day and birthmonth = month and vikaslut
 	'You''re a little embarrassed, but you quickly strip off your clothes until you are naked and put the teddy on. It looks even more sheer on your body, it hides absolutely nothing, your nipples, even your pussy lips are clearly visible. You turn and model it for Vika, a nice gift but definitely not for everyday life gift.'
 	'"You look great, it fits nice, good! I was worried it wouldn''t fit as I had to guess your size. Here put this on, we need to go to your other present." Vika throws you a bathrobe and grabs you by the arm and drags you out of the room, as you struggle to get the robe on in time.'
 
-	act'Where are we heading?':gt'univer_din','b_vika_present_start'
+	act 'Where are we heading?': gt 'univer_din', 'b_vika_present_start'
 	exit
 end
 

locations/natbelapt.qsrc

@@ -206,7 +206,7 @@ if $ARGS[0] = 'ask_state':
 		'"You look cheerful today <<$NatashaMotherNickname>>."'
 		'"Oh, it''s just a pleasant day today."'
 	elseif NatashaMotherState = 3:
-		if pcs_dom > 10:
+		if rand(0,1) = 0:
 			'"Wow, <<$NatashaMotherNickname>>. Did you dress up just for me? Or is there a lucky guy involved?" You say with a wink.'
 			'"Thank you, <<$pcs_nickname>>. That''s the kind of reaction I''m hoping for." She says with a slight blush on her cheeks.'
 		else
@@ -214,12 +214,12 @@ if $ARGS[0] = 'ask_state':
 			'"Thank you <<$pcs_nickname>>. That''s the kind of reaction I''m hoping for."'
 		end
 	elseif NatashaMotherState = 4:
-		if pcs_dom > 10:
+		!if pcs_dom > 10:
 			'"Wow, <<$NatashaMotherNickname>>. Did you just come from a party? Or is the party in here?" You say with a wink.'
 			'"Well <<$pcs_nickname>>, just between you and me, sometimes a girl can use a drink."'
-		else
-			'You don''t feel confident enough to ask her why she looks drunk.'
-		end
+		!else
+		!	'You don''t feel confident enough to ask her why she looks drunk.'
+		!end
 	elseif NatashaMotherState = 5:
 		'"<<$NatashaMotherNickname>>... You uhm... you look a bit upset, is something wrong?"'
 		if natpregday > 0 and (daystart-natpregday) > 90:
@@ -943,7 +943,6 @@ if $ARGS[0] = 'lick_feet':
 	minut += 5
 	natotrab += 1
 	natsub += 1
-	pcs_dom += 1
 	if NatashaQW = 5: NatashaQW = 6
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/lickfeet1.jpg"></center>'
@@ -953,7 +952,6 @@ if $ARGS[0] = 'lick_feet':
 		*clr & cla
 		minut += 5
 		natsub += 1
-		pcs_dom += 1
 		NatDolg -= 500
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/lickfeet1.jpg"></center>'
@@ -969,7 +967,6 @@ if $ARGS[0] = 'lick_feet':
 		*clr & cla
 		minut += 5
 		natsub += 1
-		pcs_dom += 1
 		NatDolg -= 500
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/lickfeet2.jpg"></center>'
 		'You lie back and gently caress your pussy while you relish the feeling of her tongue on your feet. She alternates between licking your feet in long strokes of her tongue and gently sucking on your toes.'
@@ -989,7 +986,6 @@ if $ARGS[0] = 'spit_face':
 	minut += 5
 	natotrab += 1
 	natsub += 1
-	pcs_dom += 1
 	if NatashaQW = 6: NatashaQW = 7
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natknee.jpg"></center>'
@@ -998,7 +994,6 @@ if $ARGS[0] = 'spit_face':
 		*clr & cla
 		minut += 5
 		natsub += 1
-		pcs_dom += 1
 		NatDolg -= 500
 		!!natknee
 		gs 'stat'
@@ -1015,7 +1010,6 @@ if $ARGS[0] = 'lick_pussy':
 	*clr & cla
 	minut += 5
 	natsub += 1
-	pcs_dom += 1
 	NatDolg -= 500
 	if npc_Sex['A16'] = 0: npc_Sex['A16'] = 1 & guy += 1
 	lesbian += 1
@@ -1023,37 +1017,40 @@ if $ARGS[0] = 'lick_pussy':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natlick.jpg"></center>'
 	'You force Natasha to undress you and then watch as she undresses herself before she returns to kneeling at your feet. You pull her face into your pussy and snarl at her, "Now lick!". Natasha fearfully starts to work.'
-!!sub and dom are going away, they will just become traits. So you will need to change these
 	if natsub < 10:
 		'This useless cunt can''t even find your clitoris and only sluggishly works her mouth on your pussy without any enthusiasm.'
-		if pcs_dom >= 20 and NatDolg >= 500:
-			act 'Piss in her mouth':
-				*clr & cla
-				minut += 5
-				natsub += 1
-				pcs_dom += 1
-				NatDolg -= 500
-				natpee += 1
-				!!natknee
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natpee.jpg"></center>'
-				'You are angry at this bitch, so you release your urine in Natasha''s face. She closes her eyes and bows her head down but does not recoil and silently accepts your golden shower, continuing to swallow until the very end.'
-				act 'Continue': gt 'natbelapt', 'natroom'
+		if NatDolg >= 500:
+			gs 'willpower', 'humiliation', 'force'
+			if will_cost <= pcs_willpwr:
+				act 'Piss in her mouth (<<will_cost>> Willpower)':
+					*clr & cla
+					gs 'willpower', 'pay', 'force'
+					minut += 5
+					natsub += 1
+					NatDolg -= 500
+					natpee += 1
+					!!natknee
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/natasha/sex/natpee.jpg"></center>'
+					'You are angry at this bitch, so you release your urine in Natasha''s face. She closes her eyes and bows her head down but does not recoil and silently accepts your golden shower, continuing to swallow until the very end.'
+					act 'Continue': gt 'natbelapt', 'natroom'
+				end
+			else
+				act 'Piss in her mouth (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
-		else
-			act 'Make her stop':
-				*clr & cla
-				minut += 5
-				pcs_horny -= 10
-				money -= 50
-				natsub += 1
-				gs 'stat'
+		end
+		act 'Make her stop':
+			*clr & cla
+			minut += 5
+			pcs_horny -= 10
+			money -= 50
+			natsub += 1
+			gs 'stat'
 !!ImageNeededPlaceholder
-				'<center><img <<$set_imgh>> src="images/shared/food/icecreem.jpg"></center>'
-				'You get tired of her lackluster attempts to get you off, in fact, she is doing such a bad job that it is actually turning you off.'
-				'"You are hopeless. Here, go buy an ice cream cone and practice licking. You''d better improve by next time, bitch." You throw a 50 ruble note at her as she stops licking you.'
-				act 'Continue': gt 'natbelapt', 'natroom'
-			end
+			'<center><img <<$set_imgh>> src="images/shared/food/icecreem.jpg"></center>'
+			'You get tired of her lackluster attempts to get you off, in fact, she is doing such a bad job that it is actually turning you off.'
+			'"You are hopeless. Here, go buy an ice cream cone and practice licking. You''d better improve by next time, bitch." You throw a 50 ruble note at her as she stops licking you.'
+			act 'Continue': gt 'natbelapt', 'natroom'
 		end
 	else
 		if NatashaQW = 7: NatashaQW = 8
@@ -1894,7 +1891,7 @@ if $ARGS[0] = 'natmother':
 					'You strip down quickly, wanting to get started. "I can just leave my bra on, it''s not going to suck on my tits." You think as you relax on <<$NatashaMotherNickname>>''s bed.'
 					'You turn the big vibrator on and start rubbing it on your pussy. The stimulation is pretty intense, even at a low setting. Experimentally you turn up the speed causing you to let out a moan of pleasure as you feel your pussy getting soaking wet.'
 					'Just as you''re really getting into it, you notice that the door is open now and <<$NatashaMotherNickname>> is standing over you looking at your bare pussy with her toy rubbing it all over.'
-					gs 'arousal', 'masturbate', 10, 'unknown'
+					gs 'arousal', 'vaginal_vibe', 10
 					gs 'stat'
 					act 'Say you''re sorry':
 						*clr & cla
@@ -1916,7 +1913,7 @@ if $ARGS[0] = 'natmother':
 							'"Time to show you what it does on max speed. You''ll want one of your own after this." She says with a grin, as she turns it up all the way'
 							*nl
 							$orgasm_txt = 'Within seconds you feel your orgasm crash down on you. You start convulsing hard, trying to close your legs to escape further stimulation but <<$NatashaMotherNickname>> holds your legs open and keeps rubbing your pussy with the Hitachi for a good minute or two. As she lets go, you immediately close your legs and roll onto your side, still shaking in the grip of your orgasm. It takes you a few minutes to get back to yourself. Once <<$NatashaMotherNickname>> sees that you''re coherent again she asks: "I can clearly see that you liked it, but was I right that you''d want one yourself now?" Still too out of breath for speech you just smile and nod.'
-							gs 'arousal', 'masturbate', 10, 'unknown'
+							gs 'arousal', 'vaginal_vibe', 10, 'lesbian'
 							gs 'arousal', 'end'
 							gs 'stat'
 							killvar '$orgasm_txt'
@@ -1936,7 +1933,7 @@ if $ARGS[0] = 'natmother':
 					'You strip down quickly, wanting to get started. "I can just leave my bra on, it''s not going to suck on my tits." You think as you relax on <<$NatashaMotherNickname>>''s bed.'
 					'You turn the big vibrator on and start rubbing it on your pussy. The stimulation is pretty intense, even at a low setting. Experimentally you turn up the speed causing you to let out a moan of pleasure as you feel your pussy getting soaking wet.'
 					'With your other hand, you start playing with your pussy, putting a finger inside, pulling it open occasionally to apply the vibrations to your clit directly, causing you to moan even louder.'
-					gs 'arousal', 'masturbate', 10, 'unknown'
+					gs 'arousal', 'vaginal_vibe', 10
 					gs 'stat'
 					act 'Contintue':
 						*clr & cla
@@ -1944,7 +1941,7 @@ if $ARGS[0] = 'natmother':
 						'The thought of doing this in someone else''s bedroom just makes it even more exciting. You feel your orgasm approaching rapidly as you start fingering yourself faster and faster. All the while rubbing your clit with as much pressure as you can stand.'
 						$orgasm_txt = 'Within seconds you feel your orgasm crash down on you. You start convulsing hard, closing your legs and trapping the <<$NatMomVibName>> between them to hold it in place. After a few more seconds your orgasm starts to subside, and the vibrations start feeling uncomfortable, so you turn it off.'
 						$orgasm_or = 'yes'
-						gs 'arousal', 'masturbate', 10, 'unknown'
+						gs 'arousal', 'vaginal_vibe', 10
 						gs 'arousal', 'end'
 						killvar '$orgasm_txt'
 						'Deciding not to push your luck any further, you get dressed quickly and straighten out the bedsheets, trying to hide what you just did, but there''s no way to hide the wet spot on the sheets. You hope it won''t be noticeable by the time <<$NatashaMotherNickname>> goes to her bedroom.'

locations/vann.qsrc

@@ -37,14 +37,26 @@ end
 
 if $ARGS[0] = 'brit1':
     $location_type = 'event'
-	cla
-	*clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/brit1.jpg"></center>'
 	'While you smeared pubis foam in bath guy came, you were so passionate about what did not even notice it and only when he turned on the shaver socket looked up and saw him standing in front of you with a smile and treat your crotch. A few seconds later, he looked up from your feet, and said, "Hey, do you mind that I''m here, too, shave." and noticing your not very deft movement, which still continued to put foam on pussy, he added, "I can help, if necessary, when I have an older sister flew four years ago, so the bride from her fled, that had sometimes help shave. And then with a belly that does the most. " You and presented as a boy, who was still thirteen years probably was squatting in front of the pregnant girl and shaves her pussy, it''s probably had his first sexual experience.'
 
+	gs 'willpower', 'exhib', 'resist', 'easy'
+	if will_cost <= pcs_willpwr:
+		act 'Scream (<<will_cost>> Willpower)':
+			cla
+			gs 'willpower', 'pay', 'resist'
+			'You yelled so that you probably even on the street could be heard. "Do not you cry, I wanted to just help, and generally have to close the door." He tried to reassure you, but you only cried out. He had no choice as to jump out of the bathroom and run.'
+			'You quickly finish shaving.'
+
+			act 'Finish':gt 'vann', 'start'
+		end
+	else
+		act 'Scream (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
+	
 	act 'Let him stay':
-		cla
-		*clr
+		*clr & cla
 		pcs_horny += 40
 		'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/brit2.jpg"></center>'
 		'"Shave all you want, " you replied and went back to his task. A few minutes later the guy graduated and started watching you, he came closer, eventually sat down with you and help you began shortly razor was already in the hands of unego. Since you became delot nothing, you started to talk to him, "Do you often helped shave sister?"'
@@ -59,9 +71,15 @@ if $ARGS[0] = 'brit1':
 		'"Well, actually it was. When I got used to the daily blowjob, we do this for three or four times a day doing, and so she had for twenty or thirty minutes to suck in the end when I was once again granted it, and already got a member of that -would stick in her mouth, she told me to bring the cream. When I brought it she lay on her side and said we were brother and sister and therefore can not be in the pussy and ass in here can. then I rubbed her anus cream and gently began to come. And she smiled-that I did not hesitate because it is no longer a girl and my pod her pain does not deliver. Then I drove straight off to her and started to move convulsively. I loved it podmahivala my ass, and when I finished, then just milked him his anus. So then I had already stopped giving her mouth and ass just had, and when she gave birth it was then already expanse in all positions tested her ass. " raskazyval he so vividly that you have drawn the images in my head all this and soon your pussy flowed that did not escape his gaze.'
 		'"Well, here I finished, something else may pobreem?" he asked, already took the shaving foam.'
 
+		gs 'willpower', 'cuni', 'resist', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'No thanks (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'vann', 'start'
+		else
+			act 'No thanks (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+		
 		act 'Come on':
-			cla
-			*clr
+			*clr & cla
 			picrand = 74
 			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/brit3.jpg"></center>'
 			'"Come on, and that will shave, my chest hair does not grow." you said'
@@ -69,39 +87,33 @@ if $ARGS[0] = 'brit1':
 
 			act 'Continue':gt 'sex', 'kuni'
 		end
-
-		act 'No thanks':gt 'vann', 'start'
-	end
-
-	act 'Scream':
-		cla
-		'You yelled so that you probably even on the street could be heard. "Do not you cry, I wanted to just help, and generally have to close the door." He tried to reassure you, but you only cried out. He had no choice as to jump out of the bathroom and run.'
-		'You quickly finish shaving.'
-
-		act 'Finish':gt 'vann', 'start'
 	end
 end
 
 if $ARGS[0] = 'v1':
     $location_type = 'event'
-	cla
-	*clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v0.jpg"></center>'
 	'You enter into the bathroom and see a girl sitting on the edge of the bath tub smearing her feet with cream.'
 	'"Oops... Sorry, I''ll come back later." you say and turn to leave.'
 	'"Weel, no... It''s okay, you can stay, I''m almost finished." she says with a smile. You come back and go to the sink to wash your hands to keep yourself busy until she leaves. But she seems not to be in a hurry and, a couple of minutes later, she asks "Do you want your feet smeared too?"'
 
-	act 'Refuse':
-		cla
-		'"Ehm... No, thank you... Not really." You reply.'
-		'"Well, as you want... Your loss" She says with a wink and, after a while, she finally finishes and leaves.'
+	gs 'willpower', 'cuni', 'resist', 'easy'
+	if will_cost <= pcs_willpwr:
+		act 'Refuse (<<will_cost>> Willpower)':
+			cla
+			gs 'willpower', 'pay', 'resist'
+			'"Ehm... No, thank you... Not really." You reply.'
+			'"Well, as you want... Your loss" She says with a wink and, after a while, she finally finishes and leaves.'
 
-		act 'To do their job':gt 'vann', 'start'
+			act 'To do their job':gt 'vann', 'start'
+		end
+	else
+		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
 
 	act 'Agree':
-		cla
-		*clr
+		*clr & cla
 		picrand = 21
 		'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v1.jpg"></center>'
 		'"Well... Why not?" You say. She smiles and begins to put the cream on your feet. Her hands stroke your ankles, gradually making their way up to your thighs and hips and then to your buttocks. She stops there longer then on any other part of your legs, her hands wqueeze your ass for a while, then they find their way to the inside of your thighs and her fingers reach your pussy. This start happening always more often. When you slightly open your legs to facilitate her action, she keeps one hand there, massaging your pussy, while the other continues to stroke your ass cheeks. Suddenly you will feel on your feet not only her hands, but her lips too. She kissed your feet again moving upwards, and soon her tongue slides between your buttocks and reaches down to your pussy.'
@@ -112,55 +124,63 @@ end
 
 if $ARGS[0] = 'v2':
     $location_type = 'event'
-	cla
-	*clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v2.jpg"></center>'
 	'You went into the bathroom and turned to the sink to wash steel, Soon you heard behind what that strange sound. Realizing that you are not in the bathroom alone, you turned sharply and see Man standing in a bath towel around his neck. He palilsya your ass and masturbated you even a little flattered that he masturbates looking at you. He continued to selflessly masturbate unnoticed that you look at it, a few seconds later, he finally noticed and tried to cover with a towel, went to the door, muttering something under his breath, apparently it was apologies.'
 
-	act 'Let him go':gt 'vann', 'start'
-
-	act 'Offer help':
-		cla
-		*clr
-		picrand = 75
-		'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v3.jpg"></center>'
-		'"Let me help you" escaped you. The guy paused and finally said something articulate - "What?" you podozhli him in full and running his hand under his towel groped dildo. The guy relaxed and removed the towel, you meanwhile, dropped to a crouch and took his penis in his hand began to stroke it, then led by the hand up and down. He began to moan.'
+	gs 'willpower', 'hj', 'self'
+	if will_cost <= pcs_willpwr:
+		act 'Offer help (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'self'
+			picrand = 75
+			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v3.jpg"></center>'
+			'"Let me help you" escaped you. The guy paused and finally said something articulate - "What?" you podozhli him in full and running his hand under his towel groped dildo. The guy relaxed and removed the towel, you meanwhile, dropped to a crouch and took his penis in his hand began to stroke it, then led by the hand up and down. He began to moan.'
 
-		act 'Writing lick':gt 'sex', 'kuni'
-		act 'Take by mouth':gt 'sex', 'minet'
+			act 'Writing lick':gt 'sex', 'kuni'
+			act 'Take by mouth':gt 'sex', 'minet'
 
-		act 'Continue':
-			cla
-			*clr
-			sexvolume = 10
-			spafinloc = 12
-			gs 'cum_manage'
-			sexvolume = 30
-			spafinloc = 11
-			gs 'cum_manage'
-			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v4.jpg"></center>'
-			'You continued to work with his hands, a minute later the guy sat on the edge of the bed and then lay down. You actin continued to wield two-handed, and judging by his moans happy he liked it. Once you''ve started thinking about what would caress his hands not only as a member in your hands began to twitch. "Damn, " you said, and immediately realized that nothing opened his mouth, pulled out his penis and flew jet of sperm you right in the face, and some got in my mouth. "Damn, you and skorostrel." told you spitting sperm. "Sorry, " mumbled and quickly gathered guy jumped out of the bathroom.'
+			act 'Continue':
+				*clr & cla
+				sexvolume = 10
+				spafinloc = 12
+				gs 'cum_manage'
+				sexvolume = 30
+				spafinloc = 11
+				gs 'cum_manage'
+				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v4.jpg"></center>'
+				'You continued to work with his hands, a minute later the guy sat on the edge of the bed and then lay down. You actin continued to wield two-handed, and judging by his moans happy he liked it. Once you''ve started thinking about what would caress his hands not only as a member in your hands began to twitch. "Damn, " you said, and immediately realized that nothing opened his mouth, pulled out his penis and flew jet of sperm you right in the face, and some got in my mouth. "Damn, you and skorostrel." told you spitting sperm. "Sorry, " mumbled and quickly gathered guy jumped out of the bathroom.'
 
-			act 'To do their job':gt 'vann', 'start'
+				act 'To do their job':gt 'vann', 'start'
+			end
 		end
+	else
+		act 'Offer help (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
+	
+	act 'Let him go':gt 'vann', 'start'
 end
 
 if $ARGS[0] = 'v3':
     $location_type = 'event'
-	cla
-	*clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v5.jpg"></center>'
 	'You literally fly into the bathroom and seated on the toilet. "Wow, still a little, and just peed" you thought with relief, but then you realize that edge you have someone else here, turning his head, you see a guy washable. He stands smiling and says, "Hi."'
 	'"Hi, " you reply, trying pridamat something to say. "Sorry, I just have to" finally you say.'
 	'"Yes, I hear very, judging by the sound for a long time, very necessary." he says, laughing. Of you still pouring down, you''re ready to sink into the ground, but can not stand. Meanwhile man climbs out of the bathroom and stood up in front of you starts to silently watch and you see his cock medleno but surely increasing. Soon he is worth and he makes a small step forward, now his dildo literally inches from your face. He shakes them a bit from your lips, clearly hinting at a blowjob. Finally it bothers you and you start talking intending to say something he would put it away from your face. But as soon as you open your mouth, as he immediately makes dvischenie pelvis and his dildo is in your mouth.'
 	'"Sorry, but I am also very necessary." he said still smiling.'
 
-	act 'Bite':
-		cla
-		'You squeeze teeth and covered his head with his hands, that would not prilitelo. He starts screaming and swearing, nazavaya you these words, the value of which you can not even imagine, then you squeeze even more teeth. He was no longer screaming and begging poskulivaet only release, you can see he beat podoyalsya, fearing that may remain without any member. You decompress teeth and the guy runs out into the hallway, in the buff, showering curses you.'
+	gs 'willpower', 'bj', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Bite (<<will_cost>> Willpower)':
+			cla
+			gs 'willpower', 'pay', 'resist'
+			'You squeeze teeth and covered his head with his hands, that would not prilitelo. He starts screaming and swearing, nazavaya you these words, the value of which you can not even imagine, then you squeeze even more teeth. He was no longer screaming and begging poskulivaet only release, you can see he beat podoyalsya, fearing that may remain without any member. You decompress teeth and the guy runs out into the hallway, in the buff, showering curses you.'
 
-		act 'To do their job':gt 'vann', 'start'
+			act 'To do their job': gt 'vann', 'start'
+		end
+	else
+		act 'Bite (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
 
 	act 'Suck':
@@ -204,8 +224,7 @@ end
 
 if $ARGS[0] = 'v4':
     $location_type = 'event'
-	cla
-	*clr
+	*clr & cla
 	minut += 10
 	stat['mast'] += 1
 	if pcs_inhib < 30:inhib_exp += rand(1,3)
@@ -213,35 +232,43 @@ if $ARGS[0] = 'v4':
 	'You have spray water from the faucet directly onto your pussy and tight jet of warm water begins to caress you. Getting further into it, you push your fingers inside while the water takes care of your clit. You''re completely absorbed in your masturbation until suddenly you realize that someone has turned on the faucet in the sink. Opening your eyes, you see a guy standing at the sink, looking at you and grinning.'
 	'"Sorry, don''t let me interrupt, I''m just enjoying the show" he says without looking away from your pussy, which is still filled with your fingers.'
 
-	act 'Scream':
-		cla
-		*clr
-		pcs_horny = 0
-		'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v10.jpg"></center>'
-		'You scream so loud that you hurt your ears. The guy jumps at the sound and hurriedly retreats from the bathroom. You are once again left alone, but the excitement is gone and you don''t really feel like masturbating anymore.'
+	gs 'willpower', 'misc', 'self'
+	if will_cost <= pcs_willpwr:
+		act 'Scream (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'self'
+			pcs_horny = 0
+			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v10.jpg"></center>'
+			'You scream so loud that you hurt your ears. The guy jumps at the sound and hurriedly retreats from the bathroom. You are once again left alone, but the excitement is gone and you don''t really feel like masturbating anymore.'
 
-		act 'To do their job':gt 'vann', 'start'
+			act 'To do their job':gt 'vann', 'start'
+		end
+	else
+		act 'Scream (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
 
 	act 'Cover up':
-		cla
-		*clr
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v10.jpg"></center>'
 		'You began to slowly crawl from the bathroom, covering your naked pussy, soapy water, and tried to close the chest hand that you do not really succeed. The guy kept watch over you and his smile grew wider, and then you realize that your hand is still stroking your pussy and his eyes only excites you. Making an effort you took the hand. He walked up to you and sat on the edge of the tub, lifted out of the water loofah handed to you, "Can I help you? ... I mean back rub, " he said. You sat and stared blankly at him not knowing what to say, and his hands were pulled down again.'
 
-		act 'Refuse':
-			cla
-			*clr
-			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v10.jpg"></center>'
-			'"No, thank you" barely squeezed you out of yourself.'
-			'"Well, as you want" a guy turned around and went to the door, on the threshold he turned "Would you shut the door, and then there is a different contingent hangs out." and walked out.'
+		gs 'willpower', 'sex', 'resist', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'resist'
+				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v10.jpg"></center>'
+				'"No, thank you" barely squeezed you out of yourself.'
+				'"Well, as you want" a guy turned around and went to the door, on the threshold he turned "Would you shut the door, and then there is a different contingent hangs out." and walked out.'
 
-			act 'To do their job':gt 'vann', 'start'
+				act 'To do their job':gt 'vann', 'start'
+			end
+		else
+			act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
-
+		
 		act 'Agree':
-			cla
-			*clr
+			*clr & cla
 			picrand = 76
 			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/v11.jpg"></center>'
 			'You nodded in agreement, and he immediately threw off everything and you got into the bath. He began to rub your body sponge, soon joined her and his other hand, she glided over your body, caressing his chest, then down to her pussy below. Worth his fingers touch your pussy as you shuddered and clung to him all over, his erection caught between your buttocks. He began to move up, down, and you slightly caved giving him room to maneuver, but he did not enter into you, and put his hands on your shoulders and gently pressed, you will immediately understand what he wants, knelt down and turned to face him. Here was his throbbing dildo, you took it in hand and to right in his mouth.'

locations/vanr2x.qsrc

@@ -10,8 +10,8 @@ $menu_loc = 'vanr2x'
 $menu_arg = ''
 menu_off = 0
 *clr & cla
-minut = minut + 1
-elektro = elektro + 1
+minut += 1
+elektro += 1
 gs'stat'
 
 gs 'themes', 'indoors'

locations/vecher.qsrc

@@ -1,6 +1,6 @@
 # vecher
 if $ARGS[0] = 'start':
-	cla & *clr
+	*clr & cla
 	$menu_loc = 'vecher'
 	$menu_arg = 'start'
 	menu_off = 0
@@ -10,7 +10,12 @@ if $ARGS[0] = 'start':
 
 	'You turn up to a Friday night party.'
 	'A large crowd gathers on the senior''s floor, some people looking for others to play<a href="exec:gt ''vecher'',''twister''">twister</a>.'
-	act 'Leave':gt 'dorm', 'korr'
+	gs 'willpower', 'drink', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
+	else
+		act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 
 	act 'Dance':
 		cla
@@ -25,8 +30,7 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'end1':
-	cla
-	*clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog.jpg"></center>'
 	'Gradually your steady alcohol intake gets the better of you and you spend the rest of the night in the bathroom, hugging the toilet'
 
@@ -34,41 +38,43 @@ if $ARGS[0] = 'end1':
 end
 
 if $ARGS[0] = 'end2':
-	cla
-	*clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss2.jpg"></center>'
 	'You danced and drank for a while before you had the idea to dance with Vika. Soon you ended up having a deep lesbian kiss under the flashing lights of the dance.'
 
-	act 'Leave':gt 'dorm', 'korr'
+	gs 'willpower', 'cuni', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
+	else
+		act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 
 	act 'Get a room with Vika':
 		cla
-		if vikasex = 0:vikasex = 1
+		if vikasex = 0: vikasex = 1
 		$sexloc = 'obroom'
 		gt 'lezbsex', 'start'
 	end
 end
 
 if $ARGS[0] = 'end3':
-	cla
-	*clr
+	*clr & cla
 
 	if pcs_apprnc < 80:
 		'<center><img <<$set_imgh>> src="images/locations/shared/party/itog3.jpg"></center>'
 		'You stumbled into an open room and slept it off, listening to the sounds of hardcore sex from down the hall.'
 
-		act 'Leave':gt 'dorm', 'korr'
+		act 'Leave': gt 'dorm', 'korr'
 	else
 		'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/vechend1.jpg"></center>'
 		'You stumbled into an open room and slept it off, listening to the sounds of hardcore sex from down the hall. You dream about fucking Vika, the fantasy so real that you can feel your legs spreading, the tongue on your clitoris. Opening your eyes you can see a few girls bent over your body, hands busy caressing you, while between your legs Vika skillfully used her tongue. "This needs to become reality," you think as you awake.'
 
-		act 'Leave':gt 'dorm', 'korr'
+		act 'Leave': gt 'dorm', 'korr'
 
 		act 'Enjoy':
-			cla
-			*clr
+			*clr & cla
 
-			if vikasex = 0:vikasex = 1
+			if vikasex = 0: vikasex = 1
 
 			orgasm += 1
 			girl += 4
@@ -76,58 +82,63 @@ if $ARGS[0] = 'end3':
 			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/vechend2.jpg"></center>'
 			'You relax, allowing the girls to caress your body, periodically changing positions so another can take post at your pussy. Each of the girls settle into a rotation, trying to see who can trigger the most orgasms.'
 
-			act 'Continue':gt 'vecher', 'end13'
+			act 'Continue': gt 'vecher', 'end13'
 		end
 	end
 end
 
 if $ARGS[0] = 'end4':
-	cla
-	*clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog4.jpg"></center>'
 	'You get drunk and begin to molest the other girls. Before you realise it your top is pulled down to show your breasts and Vika is licking and sucking at your breasts in front of everyone.'
 
-	act 'Leave':gt 'dorm', 'korr'
+	gs 'willpower', 'cuni', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
+	else
+		act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 
 	act 'Go with Vika to an empty room':
 		cla
-		if vikasex = 0:vikasex = 1
+		if vikasex = 0: vikasex = 1
 		$sexloc = 'obroom'
 		gt 'lezbsex', 'start'
 	end
 end
 
 if $ARGS[0] = 'end5':
-	cla
-	*clr
+	*clr & cla
 	guy += 1
 	stat['vaginal'] += 1
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog5.jpg"></center>'
 	'You wake up on the floor in the hallway, half way to your room. Panting over your body is a pimply young man, dick inside you, trying to fuck your vagina careful so you wouldn''t wake up. Noticing that you''re awake, he quickly jumps to his feet and runs off, leaving you lying confused and naked on the dirty floor.'
 
-	act 'Leave':gt 'dorm', 'korr'
+	act 'Leave': gt 'dorm', 'korr'
 end
 
 if $ARGS[0] = 'end6':
-	cla
-	*clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog6.jpg"></center>'
 	'You spent all evening molesting a girl with big tits, begging her to let you kiss them. Eventually you both got so drunk you were allowed to bury your face in her cleavage and motorboat her.'
 
-	act 'Leave':gt 'dorm', 'korr'
+	act 'Leave': gt 'dorm', 'korr'
 end
 
 if $ARGS[0] = 'end7':
-	cla
-	*clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog7.jpg"></center>'
 	'You don''t know how or when your dancing became a striptease but the alcohol has plainly done its job. You begin to become lewder and lewder, swaying on your feet before collapsing into a man''s lap on the couch. Scarely believing his luck he wasted no time in grabbing at your breasts, pinching your nipples.'
 
-	act 'Leave him blueballed':gt 'dorm', 'korr'
+	gs 'willpower', 'sex', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Leave him blueballed (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
+	else
+		act 'Leave him blueballed (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 
 	act 'Remove panties':
-		cla
-		*clr
+		*clr & cla
 		guy += 1
 		stat['bj'] += 1
 		stat['vaginal'] += 1
@@ -137,20 +148,17 @@ if $ARGS[0] = 'end7':
 		'You get up off the man''s lap to finish your stripping, shuffling out of your panties drunkenly, almost toppling over again. Catching a glimpse of your pussy the man hastens to strip off too, fumbling with his flies.'
 
 		act 'Suck':
-			cla
-			*clr
+			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog72.jpg"></center>'
 			'You go down on your knees and clasp his member greedily between your lips, starting to move back and forth on his length, slurping noisily, ignoring the crowd in the rest of the room. The man seems to want more however, wrapping his fingers in your hair and starting to drag your head back and forth, using your mouth to masturbate.'
 
 			act 'Further':
-				cla
-				*clr
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog73.jpg"></center>'
 				'With his cock rock hard and nicely wet he lifted you bodily and turned you around, pushing you into the sofa doggystyle, shoving himself into your pussy and starting to pound away not caring about your enjoyment, just fucking. The crowd gathered to view the show calling out encouragements and suggestions on how best to fuck you. The guy pounding you keeps it up for a long time, too drunk to do the deed properly.'
 
 				act 'Further':
-					cla
-					*clr
+					*clr & cla
 					'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog74.jpg"></center>'
 					'Just when you start to get tired of his thrusting he tugs his dick out of your aching puss, shooting a few meagre ropes of cum onto your buttocks. Scooping up your clothes from the floor you follow him to his room to sleep it off.'
 
@@ -162,18 +170,21 @@ if $ARGS[0] = 'end7':
 end
 
 if $ARGS[0] = 'end8':
-	cla
-	*clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/shared/party/sex/itog8.jpg"></center>'
 	'You head out into one of the rooms with Vika, who soon started kissing and then fucking an unknown guy. You spent a few minutes lying next to Vika, having fun chatting with her while a drunk stranger pounds away at her.'
 
-	act 'Leave':gt 'dorm', 'korr'
+	gs 'willpower', 'voyeur', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
+	else
+		act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 
-	act 'Caress Vic':
-		cla
-		*clr
+	act 'Caress Vika':
+		*clr & cla
 
-		if vikasex = 0:vikasex = 1
+		if vikasex = 0: vikasex = 1
 
 		girl += 1
 		lesbian += 1
@@ -181,32 +192,29 @@ if $ARGS[0] = 'end8':
 		'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog81.jpg"></center>'
 		'You kiss and fondle at Vika''s breasts, making her wriggle and moan, soon offering to reward you with some cunnilingus.'
 
-		if pcs_horny < 100:'You soon tire of the licking, wanting to get on with something else'
-		if pcs_horny >= 100:pcs_horny = 0 & orgasm += 1 & 'The muscles of your vagina start to clench and ripple with pleasure, a warm wave of pleasure suffusing your lower body as you howl in orgasm'
+		if pcs_horny < 100: 'You soon tire of the licking, wanting to get on with something else'
+		if pcs_horny >= 100: pcs_horny = 0 & orgasm += 1 & 'The muscles of your vagina start to clench and ripple with pleasure, a warm wave of pleasure suffusing your lower body as you howl in orgasm'
 
 		'The stranger tugs his dick out of Vika with a wet schlurp and lifts his body to press it into her mouth.'
 
 		act 'Watch':
-			cla
-			*clr
+			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog82.jpg"></center>'
 			'The man cums in Vika''s mouth with a sudder, prompting her to open her mouth and show off her creamy treat. You want to taste...'
 
 			act 'Kiss Vika':
-				cla
-				*clr
+				*clr & cla
 				spafinloc = 12
 				gs 'cum_manage'
 				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog83.jpg"></center>'
 				'You spend a couple of moments making out and snowballing the cum between the two of you.'
 
-				act 'Leave':gt 'dorm', 'korr'
+				act 'Leave': gt 'dorm', 'korr'
 			end
 		end
 
 		act 'Share the dick':
-			cla
-			*clr
+			*clr & cla
 			stat['bj'] += 1
 			guy += 1
 			spafinloc = 11
@@ -215,14 +223,13 @@ if $ARGS[0] = 'end8':
 			'You suck and lick the dick together, working as a team until the man climaxes across your faces and tongues.'
 
 			act 'Kissing with Vika':
-				cla
-				*clr
+				*clr & cla
 				spafinloc = 12
 				gs 'cum_manage'
 				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/itog83.jpg"></center>'
 				'You spend a couple of moments making out and snowballing the cum between the two of you.'
 
-				act 'Leave':gt 'dorm', 'korr'
+				act 'Leave': gt 'dorm', 'korr'
 			end
 		end
 	end
@@ -233,7 +240,7 @@ if $ARGS[0] = 'end9':
 	'<center><img <<$set_imgh>> src="images/locations/shared/party/sex/itog9.jpg"></center>'
 	'Girls love to have fun, particularly drunken ones. You and two new girlfriends you met spend the parting kissing and carressing each other, drawing a lot of admiring glances.'
 
-	act 'Leave':gt 'dorm', 'korr'
+	act 'Leave': gt 'dorm', 'korr'
 end
 
 if $ARGS[0] = 'end10':
@@ -241,7 +248,12 @@ if $ARGS[0] = 'end10':
 	'<center><img <<$set_imgh>> src="images/locations/shared/party/itog10.jpg"></center>'
 	'You get drunk and dance with some stranger who spends the whole time pawing at your tits and making dirty comments.'
 
-	act 'Leave':gt 'dorm', 'korr'
+	gs 'willpower', 'misc', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm','korr'
+	else
+		act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 
 	act 'Grab his crotch':
 		$sexloc = 'obroom'
@@ -253,75 +265,75 @@ if $ARGS[0] = 'end10':
 end
 
 if $ARGS[0] = 'end11':
-	cla
-	*clr
+	*clr & cla
 	spafinloc = 7
 	gs 'cum_manage'
 	'<center><img <<$set_imgh>> src="images/locations/shared/party/skirtcum.jpg"></center>'
 	'You wake up in a strange room, lying on a man''s stomach, thankfully still dressed although this hangover is killing you.'
 	'As you sit up you notice something wet on your butt. What a bastard, he dragged you into some random room and came on your clothes.'
 
-	act 'Leave':gt 'dorm', 'korr'
+	act 'Leave': gt 'dorm', 'korr'
 end
 
 if $ARGS[0] = 'end12':
-	cla
-	*clr
+	*clr & cla
 	minut += 15
 	picrand = RAND(1,5)
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/college_ass_show<<picrand>>.jpg"></center>'
 	'All girls love to party. You and a few others get drunk and decide to host a contest for who has the best ass.'
 	
-	act 'Leave':gt'dorm','korr'
+	act 'Leave': gt 'dorm', 'korr'
 end
 
 if $ARGS[0] = 'end13':
-	cla
-	*clr
+	*clr & cla
 	minut += 15
 	picrand = rand(3, 9)
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/party/vechend<<picrand>>.jpg"></center>'
 	'All mixed up in a big ball of women''s bodies, you can''t remember the name of the girl your fingers are exploring, or put a face to the taste on your tongue, nor identify who is delving into your pussy.'
 
-	act 'More':gt 'vecher', 'end13'
-	act 'Leave':gt 'dorm', 'korr'
+	act 'More': gt 'vecher', 'end13'
+	act 'Leave': gt 'dorm', 'korr'
 end
 
 if $ARGS[0] = 'twister':
-	cla
-	*clr
+	*clr & cla
 	hour = 23
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/twister0.jpg"></center>'
 	'You join a game. Everyone has fun, a heated competition developing as the bodies tangle together.'
 	'After a couple of rounds one of the spectators drunkenly calls out that everyone should play naked and soon the whole crowd is chanting it.'
 
-	act 'Leave':gt'dorm','korr'
-	act 'Undress':gt'vecher','twister_nude' 
+	gs 'willpower', 'exhib', 'resist', 'easy'
+	if will_cost <= pcs_willpwr:
+		act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'dorm', 'korr'
+	else
+		act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
+	act 'Undress': gt 'vecher', 'twister_nude' 
 end
 
 if $ARGS[0] = 'twister_nude':
-	cla
-	*clr
+	*clr & cla
 	minut += 15
 	pcs_horny += 30
 	picrand = RAND(1,8)
 	'<center><img <<$set_imgh>> src="images/locations/city/island/university/twister<<picrand>>.jpg"></center>'
 	'You undress and continue to play, making sure to take the most difficult and exposing postures you can. Throughout the game you feel a lot of hands groping and carressing your body, warm bodies pressed tight into yours.'
-	twister_rand=rand(1,3)
-	if twister_rand=1:
+	twister_rand = rand(1,3)
+	if twister_rand = 1:
 		cla
-		act 'Leave':gt'dorm','korr'
+		act 'Leave': gt 'dorm', 'korr'
 	end
-	if twister_rand=2:
+	if twister_rand = 2:
 		cla
-		act 'Leave':gt'dorm','korr'
+		act 'Leave': gt 'dorm', 'korr'
 	end
-	if twister_rand=3:
+	if twister_rand = 3:
 		cla
-		act 'Leave':gt'dorm','korr'
+		act 'Leave': gt 'dorm', 'korr'
 	end
 	
-	act 'Leave':gt'dorm','korr'
+	act 'Leave': gt 'dorm', 'korr'
 end
 
 --- vecher ---------------------------------

locations/vipclub.qsrc

@@ -26,104 +26,125 @@ if $ARGS[0] = 'start':
 		end
 
 		if money >= 3000:
-			act 'Order a woman (3,000 <b>₽</b>)':
-				money -= 3000
-				menu_off = 1
-				picrand = rand(13, 17)
-				girl += 1
-				lesbian += 1
-				gs 'dinSex', 'std_trigger'
-				xgt 'lezbsex', 'var'
+			gs 'willpower', 'cuni', 'self', 'easy'
+			if will_cost <= pcs_willpwr:
+				act 'Order a woman (3,000 <b>₽</b>) (<<will_cost>> Willpower)':
+					gs 'willpower', 'cuni', 'self', 'easy'
+					gs 'willpower', 'pay', 'self'
+					money -= 3000
+					menu_off = 1
+					picrand = rand(13, 17)
+					girl += 1
+					lesbian += 1
+					gs 'dinSex', 'std_trigger'
+					xgt 'lezbsex', 'var'
+				end
+			else
+				act 'Order a woman (3,000 <b>₽</b>) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
 		end
 
 		if money >= 3000:
-			act 'Order a man (3,000 <b>₽</b>)':
-				money -= 3000
-				menu_off = 1
-				picrand = 38
-				guy += 1
-				gs 'dinSex', 'std_trigger'
-				xgt 'sex', 'var'
+			gs 'willpower', 'sex', 'self', 'easy'
+			if will_cost <= pcs_willpwr:
+				act 'Order a man (3,000 <b>₽</b>) (<<will_cost>> Willpower)':
+					gs 'willpower', 'sex', 'self', 'easy'
+					gs 'willpower', 'pay', 'self'
+					money -= 3000
+					menu_off = 1
+					picrand = 38
+					guy += 1
+					gs 'dinSex', 'std_trigger'
+					xgt 'sex', 'var'
+				end
+			else
+				act 'Order a man (3,000 <b>₽</b>) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
 		end
 
 		if money >= 5000:
-			act 'Order one of each (5,000 <b>₽</b>)':
-				cla & *clr
-				menu_off = 1
-				girl += 1
-				lesbian += 1
-				money -= 5000
-				gs 'dinSex', 'std_trigger_oral'
-
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip1.jpg"></center>'
-				'You have a wonderful idea and a couple of minutes later find yourself in a room with two staff members, one man and one woman. You have them start on the couch, with the man stting while she knelt beside of him and gave him a blowjob. You raptly watched the two professional lovers, getting more and more excited by the display.'
-
-				gs 'arousal', 'voyeur_sex', 5
-				gs 'stat'
-				
-				act 'Further':
-					cla
-					*clr
-					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip2.jpg"></center>'
-					'The guy turns the woman around and begins fucking her from behind. Deciding you''ve waited long enough you undress and slide your wet pussy in front of her face. She understands your unspoken commands, and immediately begins licking you in all the right places.'
-
-					gs 'arousal', 'cuni', 10, 'dom'
+			gs 'willpower', 'cuni', 'self'
+			if will_cost <= pcs_willpwr:
+				act 'Order one of each (5,000 <b>₽</b>) (<<will_cost>> Willpower)':
+					cla & *clr
+					gs 'willpower', 'cuni', 'self'
+					gs 'willpower', 'pay', 'self'
+					menu_off = 1
+					girl += 1
+					lesbian += 1
+					money -= 5000
+					gs 'dinSex', 'std_trigger_oral'
+
+					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip1.jpg"></center>'
+					'You have a wonderful idea and a couple of minutes later find yourself in a room with two staff members, one man and one woman. You have them start on the couch, with the man stting while she knelt beside of him and gave him a blowjob. You raptly watched the two professional lovers, getting more and more excited by the display.'
+
+					gs 'arousal', 'voyeur_sex', 5
 					gs 'stat'
-				
+					
 					act 'Further':
 						cla
 						*clr
-						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip3.jpg"></center>'
-						'She pulls out a double-sided dildo and inserts it into your greedy hole. Then she begins sucking on it, and you are surprised by how good she is at pleasuring you this way.'
+						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip2.jpg"></center>'
+						'The guy turns the woman around and begins fucking her from behind. Deciding you''ve waited long enough you undress and slide your wet pussy in front of her face. She understands your unspoken commands, and immediately begins licking you in all the right places.'
 
-						gs 'arousal', 'vaginal_dildo', 10, 'dom'
+						gs 'arousal', 'cuni', 10, 'dom'
 						gs 'stat'
-						
+					
 						act 'Further':
 							cla
 							*clr
-							pcs_horny = 0
-							'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip4.jpg"></center>'
-							'Then she turns around and puts it in her pussy, you both begin grinding in an attempt to get the most pleasure possible. At the same time, she goes back to giving a blowjob to the man you hired. You have an explosive orgasm and can''t wait to see what these two will do next for you.'
+							'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip3.jpg"></center>'
+							'She pulls out a double-sided dildo and inserts it into your greedy hole. Then she begins sucking on it, and you are surprised by how good she is at pleasuring you this way.'
 
-							$orgasm_or = 'yes'
 							gs 'arousal', 'vaginal_dildo', 10, 'dom'
 							gs 'stat'
-					
+							
 							act 'Further':
 								cla
 								*clr
-								'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip5.jpg"></center>'
-								'The man, feeling a bit left out at this point, turns her around again. This time however, he seems to think her ass is as lonely as he felt, and begins to fuck her there. He was apparently right, because she''s moaning louder than she had before.'
+								pcs_horny = 0
+								'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip4.jpg"></center>'
+								'Then she turns around and puts it in her pussy, you both begin grinding in an attempt to get the most pleasure possible. At the same time, she goes back to giving a blowjob to the man you hired. You have an explosive orgasm and can''t wait to see what these two will do next for you.'
 
+								$orgasm_or = 'yes'
+								gs 'arousal', 'vaginal_dildo', 10, 'dom'
+								gs 'stat'
+						
 								act 'Further':
 									cla
 									*clr
-									'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip6.jpg"></center>'
-									'Soon enough you see her convulsing slightly in orgasmic bliss, and the man grunts to let her know he''s cumming as well. You lick the drool off the side of your lips as you watch him cum all over her chest and into her mouth.'
+									'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip5.jpg"></center>'
+									'The man, feeling a bit left out at this point, turns her around again. This time however, he seems to think her ass is as lonely as he felt, and begins to fuck her there. He was apparently right, because she''s moaning louder than she had before.'
 
-									act 'Finish':gt 'vipclub', 'start'
-
-									act 'Lick her breasts':
+									act 'Further':
 										cla
 										*clr
-										spafinloc = 12
-										gs 'cum_manage'
-										'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip7.jpg"></center>'
-										'You lick the delicious droplets of cum from her chest and face, trying not to miss any of the tasty treat.'
-										
-										gs 'arousal', 'end'
-										gs 'stat'
+										'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip6.jpg"></center>'
+										'Soon enough you see her convulsing slightly in orgasmic bliss, and the man grunts to let her know he''s cumming as well. You lick the drool off the side of your lips as you watch him cum all over her chest and into her mouth.'
 
 										act 'Finish':gt 'vipclub', 'start'
+
+										act 'Lick her breasts':
+											cla
+											*clr
+											spafinloc = 12
+											gs 'cum_manage'
+											'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip7.jpg"></center>'
+											'You lick the delicious droplets of cum from her chest and face, trying not to miss any of the tasty treat.'
+											
+											gs 'arousal', 'end'
+											gs 'stat'
+
+											act 'Finish':gt 'vipclub', 'start'
+										end
 									end
 								end
 							end
 						end
 					end
 				end
+			else
+				act 'Order one of each (5,000 <b>₽</b>) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
 		end
 	end