Browse Source

Merge remote-tracking branch 'Blatte/master'

KevinSmarts 5 years ago
parent
commit
248ed72957

+ 3 - 3
locations/KatjaHome.qsrc

@@ -5,15 +5,15 @@ cla
 gs 'stat'
 '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_home.jpg"></center>'
 if (hour >= 15 and week < 6 and kanikuli = 0 and hour < 20) or (hour >= 9 and week >= 6 and kanikuli = 0 and hour < 20) or (hour >= 9 and kanikuli > 0 and hour < 20):
-	'The door is opened by Katjas mother. "Hello <<$pcs_nickname>>. Katja is in her room. Come in."'
+	'The door is opened by Katja''s mother. "Hello <<$pcs_nickname>>. Katja is in her room, come on in."'
 
 	act 'Go to Katjas room':
 		if frost > 0: frost = 0
 		gt'KatjaHomeTalk'
 	end
 else
-	if hour >= 9:'The door is opened by Katjas mother. "Oh, hello <<$pcs_nickname>>. Katja isn''t home right now."'
-	if hour < 9:'The door is opened by Katjas mother. "<<$pcs_nickname>>. Shouldn''t you be in bed? You shouldn''t come around before nine."'
+	if hour >= 9:'The door is opened by Katja''s mother. "Oh, hello <<$pcs_nickname>>. Katja isn''t home right now."'
+	if hour < 9:'The door is opened by Katja''s mother. "<<$pcs_nickname>>. Shouldn''t you be in bed? You shouldn''t come around before nine."'
 
 	act 'Say goodbye and go home':gt 'pavResidential'
 end

+ 24 - 19
locations/KatjaHomeTalk.qsrc

@@ -19,7 +19,7 @@ if $ARGS[0] = '':
 			if KatjaHorny >= 50:
 				'Katja takes you in the bathroom. Blushing, she says, "I think I''ll join you."'
 
-				act 'Wash alone':
+				act 'Have the shower alone':
 					cls
 					noShampoo = 1
 					dynamic $showerdin
@@ -177,7 +177,7 @@ if $ARGS[0] = '':
 				else
 					'Katja biting her lip and without looking you in the eye, finally plucks up the courage and says, "<<$pcs_nickname>>, i am pregnant."'
 
-					act 'Whos is it?':
+					act 'Who''s is it?':
 						cls
 						minut += 5
 						knowKatjaPreg = 1
@@ -511,7 +511,7 @@ if $ARGS[0] = 'shower_kiss_home':
 	elseif KatjaSlut < 10:
 		'Katja gently caresses your clitoris with her fingers and her lips begin to kiss your neck, slowly making her way down.'
 	end
-
+	
 	act 'Sit on the edge of the tub':
 		cls
 		KatjaHorny -= 10
@@ -536,24 +536,29 @@ if $ARGS[0] = 'shower_kiss_home':
 			gt 'KatjaHomeTalk'
 		end
 	end
+	
+	gs 'willpower', 'cuni', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Remove her hands (<<will_cost>> Willpower)':
+			cls
+			minut += 5
+			pcs_horny += 10
+			KatjaDom -= 1
+			KatjaHorny -= 10
+			KatjaLust += 1
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
+			'You remove her hands and smile at her. Then you dismiss Katja, who shyly looks to the floor and leaves the bathroom.'
 
-	act 'Remove her hands':
-		cls
-		pcs_dom += 1
-		minut += 5
-		pcs_horny += 10
-		KatjaDom -= 1
-		KatjaHorny -= 10
-		KatjaLust += 1
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
-		'You remove her hands and smile at her. Then you dismiss Katja, who shyly looks to the floor and leaves the bathroom.'
-
-		act 'Get out of the shower':
-			gs 'arousal', 'end'
-			gt 'KatjaHomeTalk'
+			act 'Get out of the shower':
+				gs 'arousal', 'end'
+				gt 'KatjaHomeTalk'
+			end
 		end
-	end
+	else
+		act 'Remove her hands (<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 $ARGS[0] = 'Sextalk':

+ 0 - 9
locations/RimmaSexQW.qsrc

@@ -40,7 +40,6 @@ $rimmasexdi = {
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
 		act 'Further':
-			cls
 			cls
 			gs 'stat'
 			$ImageNeededPlacholder
@@ -63,7 +62,6 @@ $rimmasexdi = {
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
 		act 'Further':
-			cls
 			cls
 			gs 'stat'
 			$ImageNeededPlacholder
@@ -114,7 +112,6 @@ $rimmasexdi = {
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
 		act 'Further':
-			cls
 			cls
 			pcs_ass += 1
 			pcs_vag += 1
@@ -139,10 +136,7 @@ $rimmasexdi = {
 		gs 'stat'
 		act 'Further':
 			cls
-			cls
-			minut += 30
 			pcs_ass += 1
-			SUB += 2
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/beast/zoo/rimma18.jpg"></center>'
 			'Rima bends you over doggystyle and you feel the tip of her strap-on resting against your anus as she pulls the bottle of lube out of her purse. You groan and try to relax, preparing yourself mentally as she spreads the cool liquid around and inside your puckered hole, but even after all the things you''ve done with Rima, taking this gigantic strap-on up your ass is not an easy feat.' 
@@ -163,7 +157,6 @@ $rimmasexdi = {
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
 		act 'Further':
-			cls
 			cls
 			pcs_vag += 1
 			gs 'stat'
@@ -186,7 +179,6 @@ $rimmasexdi = {
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
 		act 'Further':
-			cls
 			cls
 			pcs_vag += 1
 			gs 'stat'
@@ -209,7 +201,6 @@ $rimmasexdi = {
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
 		act 'Further':
-			cls
 			cls
 			pcs_vag += 1
 			gs 'stat'

+ 81 - 71
locations/RynokHoz.qsrc

@@ -82,53 +82,57 @@ if $ARGS[0] = 'the_beginning':
 				act 'Tell them no':
 					cla
 					money += 2000
-					
 					palevorin = 2
-					
 					'With your face red with shame, you shake your head and say quietly "No." The other two say something to each other and then sit down to watch as Artur fucks you. Unable to do anything about it, you try to ignore them. Though it is hard as they keep talking to each other.'
 					'After some time, he pulls out of you and you feel hot wet spurts of cum landing all over your ass and lower back. Once he is done cumming he wipes his dick off on your ass and gets off you.'
-				    'Once Artur has finished you get up and start to gather up your things, the other two laugh and talk more, staring at your naked body. You get dressed as quickly as you can. Artur writes you a premium for the amount of 2,000 <b>₽</b>, as you take the money Artur says to you quietly. "It is alright I will deal with them." You look at him a moment, nod and then leave.'
-
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Go home':gt 'street'
-				end
+					'Once Artur has finished you get up and start to gather up your things, the other two laugh and talk more, staring at your naked body. You get dressed as quickly as you can. Artur writes you a premium for the amount of 2,000 <b>₽</b>, as you take the money Artur says to you quietly. "It is alright I will deal with them." You look at him a moment, nod and then leave.'
 
-				act 'Agree to gangbang':
-					cla
-					palevorin = 4
-
-					if abdulasex = 0:abdulasex = 1 & guy += 1
-					if hasansex = 0:hasansex = 1 & guy += 1
-					
-					pcs_vag += 1
-					swallow +=1
-					gang += 1
-					gs 'boyStat', 'A91'
-					spafinloc = 4
-					gs 'cum_manage'
-					gs 'boyStat', 'A92'
-					spafinloc = 12
-					gs 'cum_manage'
-					
-					money += 5000
-					'<center><img <<$set_imgh>> src="images/shared/sex/group/rinkrug.jpg"></center>'
-					'You nod your head yes, the other two laugh and start pulling out their dicks as they head over. The stroke themselves as they wait for Artur to finish. It doesn''t take him long, he pulls out of you and you feel hot wet spurts of cum landing all over your ass and lower back. Once he is done cumming he wipes his dick off on your ass and gets off you.'
-					'As soon as Artur gets off you, Adbul moves behind your and pulls your up by your hips till you are on all fours. He wastes no time and plunges his <<dick>>cm <<$dick_girth>> dick into your pussy. You notice he was not blessed by nature almost at once. But that doesn''t seem to bother him in the slightest as he fucks you hard and fast, constantly slapping your ass cheeks. As he comments to the others and laughs.'
-					
-					'Meanwhile Hasan kneeled down in front of you and slaps his <<dick>>cm <<$dick_girth>> dick against you face and keeps slapping it hard against your cheek until you open up your mouth. As soon as your mouth opens he shoves his cock in your mouth, holding your head he fucks your mouth and into your throat. Not seeming to care if you are gagging or not, though he is careful to make sure to let you breath.'
-					'As the two guys spit-roast you, Artur gets dressed and then takes a seat. He drinks as he watches you getting fucked by the other two.'
-					'Finally Abdul pulls out and spurts his load all over your ass and lower back. His sperm adding to the mess Artur already spewed on you. A few moments latter Hasan groans and shots his load in your mouth. As soon as they have both shot their load, they get up, say something to Artur as they put their dicks away and then they leave with out a further word.'
-					'Once they are gone, Artur says. "So you like cock do you? Well I can use that, it will be very useful to my business. Here this is a bonus." With that he gets up and walks out, leaving you a bonus of 5,000 <b>₽</b>.'
-
-					gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
-					gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'group'
 					gs 'arousal', 'end'
 					gs 'stat'
-					
 					act 'Go home':gt 'street'
 				end
-			end
+								
+				gs 'willpower', 'gangbang', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Agree to gangbang (<<will_cost>> Willpower)':
+						cla
+						palevorin = 4
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						if abdulasex = 0:abdulasex = 1 & guy += 1
+						if hasansex = 0:hasansex = 1 & guy += 1
+						
+						pcs_vag += 1
+						swallow +=1
+						gang += 1
+						gs 'boyStat', 'A91'
+						spafinloc = 4
+						gs 'cum_manage'
+						gs 'boyStat', 'A92'
+						spafinloc = 12
+						gs 'cum_manage'
+						
+						money += 5000
+						'<center><img <<$set_imgh>> src="images/shared/sex/group/rinkrug.jpg"></center>'
+						'You nod your head yes, the other two laugh and start pulling out their dicks as they head over. The stroke themselves as they wait for Artur to finish. It doesn''t take him long, he pulls out of you and you feel hot wet spurts of cum landing all over your ass and lower back. Once he is done cumming he wipes his dick off on your ass and gets off you.'
+						'As soon as Artur gets off you, Adbul moves behind your and pulls your up by your hips till you are on all fours. He wastes no time and plunges his <<dick>>cm <<$dick_girth>> dick into your pussy. You notice he was not blessed by nature almost at once. But that doesn''t seem to bother him in the slightest as he fucks you hard and fast, constantly slapping your ass cheeks. As he comments to the others and laughs.'
+						
+						'Meanwhile Hasan kneeled down in front of you and slaps his <<dick>>cm <<$dick_girth>> dick against you face and keeps slapping it hard against your cheek until you open up your mouth. As soon as your mouth opens he shoves his cock in your mouth, holding your head he fucks your mouth and into your throat. Not seeming to care if you are gagging or not, though he is careful to make sure to let you breath.'
+						'As the two guys spit-roast you, Artur gets dressed and then takes a seat. He drinks as he watches you getting fucked by the other two.'
+						'Finally Abdul pulls out and spurts his load all over your ass and lower back. His sperm adding to the mess Artur already spewed on you. A few moments latter Hasan groans and shots his load in your mouth. As soon as they have both shot their load, they get up, say something to Artur as they put their dicks away and then they leave with out a further word.'
+						'Once they are gone, Artur says. "So you like cock do you? Well I can use that, it will be very useful to my business. Here this is a bonus." With that he gets up and walks out, leaving you a bonus of 5,000 <b>₽</b>.'
+
+						gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
+						gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'group'
+						minut -= 20
+						gs 'arousal', 'end'
+						gs 'stat'
+						
+						act 'Go home':gt 'street'
+					end
+				else
+					act 'Agree to gangbang (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end	
 		end
 
 		act 'Suck':
@@ -160,51 +164,56 @@ if $ARGS[0] = 'the_beginning':
 				gs 'arousal', 'end'
 				gs 'stat'
 				act 'Go home':gt 'street'
+			
 			elseif gbrand >= 95 and palevorin = 1:
 			
                 'After some time, he pulls his dick mostly out of your mouth. Only leaving in the head and with in moments you feel and taste his sperm as he shoots his load in your mouth, spurt after spurt, filling your mouth up with his semen. Once he is done cumming he pulls his dick out of your mouth and wipes it off on your lips.'
 				'As he finishes you notice that Abdul and Hasan are there watching, you don''t remember hearing them enter, you freeze in astonishment and shame, you were caught with a mouth full of sperm, the men smile and laugh, saying something to each other and then they say something to Artur who barely grunts a reply to them.'
 				'Hasan then says to you. "Hey girl, why don''t you give us a turn and we won''t tell everyone in the market." You glance back at Artur as he doesn''t show any indication he cares.'
-
+				
 				act 'Wipe your mouth and leave':
 					cla
 					money += 2000
-
 					palevorin = 2
-
-                    'You your face red with shame you wipe the remnants of sperm from your lips and correct your clothes, at this time Artur hands you 2,000 <b>₽</b> as a bonus, as you take the money Artur says to you quietly. "It is alright I will deal with them." You look at him a moment, nod and then leave.'
+					'You your face red with shame you wipe the remnants of sperm from your lips and correct your clothes, at this time Artur hands you 2,000 <b>₽</b> as a bonus, as you take the money Artur says to you quietly. "It is alright I will deal with them." You look at him a moment, nod and then leave.'
 
 					gs 'arousal', 'end'
 					gs 'stat'
 					act 'Go home':gt 'street'
 				end
-
-				act 'Agree to suck them as well':
-					cla
-					palevorin = 4
-					
-					if abdulasex = 0:abdulasex = 1 & guy += 1
-					if hasansex = 0:hasansex = 1 & guy += 1
-
-					gang += 1
-					swallow +=1
-					gs 'boyStat', 'A91'
-					spafinloc = 12
-					gs 'cum_manage'
-					gs 'boyStat', 'A92'
-					spafinloc = 12
-					gs 'cum_manage'
-					money += 5000
-					'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/rintri.jpg"></center>'
-					'You nod your head in agreement. The two men immediately take out their members and walking over to you hold them by your mouth, you suck the two dicks. Sometimes one of them in your mouth while you jerk the other one off and sometimes they stick both their dicks in your mouth at the same time.'
-					'Finally Abdul and Hassan cum in your mouth, once they pull their dicks out of your mouth. They wipe them off on your lips and cheeks before putting their dicks away, They same something to Artur, laughing as they leave.'
-					'Once they are gone, Artur says. "So you like cock do you? Well I can use that, it will be very useful to my business. Here this is a bonus." With that he gets up and walks out, leaving you a bonus of 5,000 <b>₽</b>.'
-
-					gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
-					gs 'stat'
-					
-					act 'Go home':gt 'street'
-				end
+				
+				gs 'willpower', 'bj', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Agree to suck them as well (<<will_cost>> Willpower)':
+						cla
+						palevorin = 4
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						if abdulasex = 0:abdulasex = 1 & guy += 1
+						if hasansex = 0:hasansex = 1 & guy += 1
+
+						gang += 1
+						swallow +=1
+						gs 'boyStat', 'A91'
+						spafinloc = 12
+						gs 'cum_manage'
+						gs 'boyStat', 'A92'
+						spafinloc = 12
+						gs 'cum_manage'
+						money += 5000
+						'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/rintri.jpg"></center>'
+						'You nod your head in agreement. The two men immediately take out their members and walking over to you hold them by your mouth, you suck the two dicks. Sometimes one of them in your mouth while you jerk the other one off and sometimes they stick both their dicks in your mouth at the same time.'
+						'Finally Abdul and Hassan cum in your mouth, once they pull their dicks out of your mouth. They wipe them off on your lips and cheeks before putting their dicks away, They same something to Artur, laughing as they leave.'
+						'Once they are gone, Artur says. "So you like cock do you? Well I can use that, it will be very useful to my business. Here this is a bonus." With that he gets up and walks out, leaving you a bonus of 5,000 <b>₽</b>.'
+
+						gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
+						gs 'stat'
+						
+						act 'Go home':gt 'street'
+					end
+				else
+					act 'Agree to suck them as well (<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
 	end
@@ -253,6 +262,7 @@ if $ARGS[0] = 'group':
 			gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
 			gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'group'
 			gs 'arousal', 'anal', 20, 'sub', 'rough', 'group'
+			minut -= 20
 			gs 'stat'
 		end
 		if horand <= pcs_horny:
@@ -260,6 +270,7 @@ if $ARGS[0] = 'group':
 			gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
 			gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'group'
 			gs 'arousal', 'anal', 20, 'sub', 'rough', 'group'
+			minut -= 20
 			gs 'stat'
 		end
 
@@ -327,7 +338,6 @@ if $ARGS[0] = 'sex':
 				act 'Go home':gt 'street'
 			end
 		else
-			pcs_horny += 20
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/shared/sex/anal/doggy/anal28.jpg"></center>'
 			'He pulls his dick out of your mouth and bends you over, pulling your hips up, till you are on all fours. He kneels down behind you and rubs the tip of his dick against your pussy lips, getting a bit of your natural lube on the head of his dick. Then he moves the tip of his dick up and rubs it against you asshole. He pushes his dick in, with only your slavia and a bit of your pussy juices on the tip for lucubration, you squeal a bit in pain.'

+ 27 - 5
locations/katalkin.qsrc

@@ -18,8 +18,19 @@ if hour >= 8 and hour < 22:
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/katalkin/katalkin.jpg"></center>'
 				'You agree and sit down at a table near his desk, while captain Katalkin pours two cups of tea. He puts the two cups on the table and sits down next to you. While you chat about Pavlovsk, you can tell he''s practically undressing you with his eyes. Suddenly, you feel his hand resting on your thigh, gently squeezing it. You quietly begin to sputter some objections just as he moves his face closer to yours and cuts you off: "You''re cute, miss. You have to forgive me, us police officers are just people too..."'
-
-				act 'Leave':minut += 1 & gt $curloc
+				
+				gs 'willpower', 'sex', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Leave (<<will_cost>> Willpower)':
+						minut += 1 
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						gt $curloc
+					end
+				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 'Do not move':gt 'katalkinSex','sex'
 			end
 		elseif schtraf > 0:
@@ -77,9 +88,9 @@ if hour >= 8 and hour < 22:
 					end
 				elseif money < schtraf:
 					'You think to yourself: "I can''t afford to pay the fine. If I have to have sex with him to avoid going to jail, I guess that''s just the way it has to be..."'
+					
+					act 'Smile at him':gt 'katalkinSex','sex'
 				end
-
-				act 'Smile at him':gt 'katalkinSex','sex'
 			end
 		end
 	elseif katalkinSexDay < daystart:
@@ -180,7 +191,18 @@ elseif hour >= 22:
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/katalkin/katalkin.jpg"></center>'
 				'You decline the drink, but don''t mind joining him for a chat so you take a seat next to him. Almost immediately, he scoots his chair close to yours and puts his hand on your thigh, slowly rubbing and squeezing his way upwards. He clearly didn''t invite you over to just have a chat.'
 
-				act 'Leave':minut += 1 & gt $curloc
+				gs 'willpower', 'sex', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Leave (<<will_cost>> Willpower)':
+						minut += 1 
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						gt $curloc
+					end
+				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 'Do not move':gt 'katalkinSex','sex'
 			end
 		elseif schtraf > 0:

+ 33 - 15
locations/katalkinSex.qsrc

@@ -12,24 +12,41 @@ if $ARGS[0] = 'sex':
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/katalkin/sex/kat.jpg"></center>'
 	'Since he doesn''t notice any clear objections from you, captain Katalkin''s groping grows bolder and bolder. His hands now ravage your body, roughly squeezing your <<$titsize>> boobs and pinching your nipples. Then he pulls you up and reaches behind you, pawing at your ass cheeks as he pulls your clothes to the side for better access.'
 
-	act 'Push his hands away':
+	gs 'willpower', 'sex', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Push his hands away (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/katalkin/sex/kat.jpg"></center>'
+			'You try to object: "Wait, please, I''m on my period and I have a headache and..." and push his hands away, but captain Katalkin doesn''t listen. If anything, he''s groping you even harder now, trying to overcome your interruptions. He''s slowly tugging and pulling at your clothes, attempting to take them off.'
+			act 'Put your hand on his groin': gt 'katalkinSex','sexgo'
+			act 'Close your eyes': gt 'katalkinSex','d_katsub'
+		end
+	else
+		act 'Push his hands away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
+	
+	gs 'willpower', 'sex', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Close your eyes (<<will_cost>> Willpower)': 
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'katalkinSex','d_katsub'
+		end
+	else
+		act 'Close your eyes (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
+	
+	act 'Kiss him':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/katalkin/sex/kat.jpg"></center>'
-		'You try to object: "Wait, please, I''m on my period and I have a headache and..." and push his hands away, but captain Katalkin doesn''t listen. If anything, he''s groping you even harder now, trying to overcome your interruptions. He''s slowly tugging and pulling at your clothes, attempting to take them off.'
+		'You put your arms around him and kiss him on his lips, happy to let him grope your ass for the time being. He''s surprisingly powerful for his figure, and the way he takes control of the kiss and aggressively shoves his tongue in your mouth makes you feel like he''s used to getting his way.'
+		gs 'arousal', 'kiss', 5, 'sub'
 		gs 'stat'
-		act 'Put your hand on his groin': gt 'katalkinSex','sexgo'
+			
+		act 'Put your hand on his groin':gt 'katalkinSex','sexgo'
 		act 'Close your eyes': gt 'katalkinSex','d_katsub'
-	end
-	act 'Close your eyes': gt 'katalkinSex','d_katsub'
-	if pcs_horny >= 75:
-		act 'Kiss him':
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/katalkin/sex/kat.jpg"></center>'
-			'You put your arms around him and kiss him on his lips, happy to let him grope your ass for the time being. He''s surprisingly powerful for his figure, and the way he takes control of the kiss and aggressively shoves his tongue in your mouth makes you feel like he''s used to getting his way.'
-			gs 'arousal', 'kiss', 5, 'sub'
-			gs 'stat'
-			act 'Put your hand on his groin':gt 'katalkinSex','sexgo'
-			act 'Close your eyes': gt 'katalkinSex','d_katsub'
 		end
 	end
 end
@@ -100,9 +117,10 @@ if $ARGS[0] = 'd_katanal':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/katalkin/sex/after.jpg"></center>'
 		'Captain Katalkin enjoys the feeling of your anus squeezing around his cock for a few seconds more, before he slowly pulls his cock out. A trickle of sperm slowly comes dribbling out of your stretched asshole. When you try to get up, he stops you and pushes you back down against the table. He tells you: "In a minute, girl. Show me your used hole first."'
+		'You obey and pull your ass cheeks to the sides, showing him your glazed asshole while the cum slowly dribbles down over your pussy lips. He admires his work for a few more seconds and then slaps your ass, indicating that you can get up now.'
+		
 		gs 'arousal', 'anal', 3, 'sub'
 		gs 'cum_call','anus',$boy,1
-		'You obey and pull your ass cheeks to the sides, showing him your glazed asshole while the cum slowly dribbles down over your pussy lips. He admires his work for a few more seconds and then slaps your ass, indicating that you can get up now.'
 		gs 'arousal', 'end'
 		gs 'stat'
 

+ 99 - 67
locations/katjaEv.qsrc

@@ -9,7 +9,7 @@ if $ARGS[0] = '':
 	'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
 	'Katja looks at you, smiling. "<<$pcs_nickname>>, come to my house, we can help each other with our homework."'
 
-	if fedorKozlovQW >= 10 and FedorKatjaChat = 0:FedorKatjaChat = 1 & 'You and Katja run into Fedor. He waves as he asks "Hey girls, what are you two up to?" Katja downcasts her eyes, noticably embarrassed. "We are just going to do our homework together." Fedor thinks for a bit, then says, "Okay Then, I''ll see you some other time." Then turns and walks away.'
+	if fedorKozlovQW >= 10 and FedorKatjaChat = 0:FedorKatjaChat = 1 & 'You and Katja run into Fedor. He waves as he asks "Hey girls, what are you two up to?" Katja downcasts her eyes, noticeably embarrassed. "We are just going to do our homework together." Fedor thinks for a bit, then says, "Okay Then, I''ll see you some other time." Then turns and walks away.'
 	''
 	if katja_debug = 1:
 		'KatjaLust - <<KatjaLust>>'
@@ -49,7 +49,7 @@ if $ARGS[0] = '1':
 
 	if flag_KissEV = 1: flag_KissEV = 2 & '"I liked kissing, even if we had to kiss all the boys too, well, all of them but the jerk that called us lesbians." suddenly said Katja. You only snorted in response.'
 
-	'Finally you get to her house. A detached two storey house with attached garages and quite a large garden, giving the impression of neatness and order. Katja shows you to her room.'
+	'Finally you get to her house. A detached two story house with attached garages and quite a large garden, giving the impression of neatness and order. Katja shows you to her room.'
 
 	act 'Go to Katjas room': gt 'katjaEv', '2'
 end
@@ -69,7 +69,7 @@ end
 if $ARGS[0] = '3':
 	cls
 	minut += 30
-	npc_rel['A14'] += 10
+	npc_rel['A14'] += 2
 	lernHome = 0
 	lern += rand(2, 4)
 	intel_exp += rand(0, 1) + (mentats_dose - rand(0,mentats_dose))
@@ -112,21 +112,28 @@ if $ARGS[0] = '5':
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
 		'You smile at Katja and say that of course you kissed boys. Katja, even more shyly, "You see <<$pcs_nickname>>, I like this guy, he''s older than me, and I am afraid that when we start to kiss, I''ll do something wrong. Could you teach me how to kiss?"'
+		
 		act 'Kiss': gt 'katjaEv', 'kiss'
+		
+		gs 'willpower', 'kiss', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'No (<<will_cost>> Willpower)':
+				cls
+				katjaLernQW = 0
+				katjaLernTimes = 1
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
+				'You refuse to kiss Katja and she gets mad at you.'
 
-		act 'No':
-			cls
-			katjaLernQW = 0
-			katjaLernTimes = 1
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
-			'You refuse to kiss Katja and she gets mad at you.'
-
-			if mey_vika['key'] = 1:
-				Act 'Leave the room': gt 'mey_home', 'start'
-			else
-				act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+				if mey_vika['key'] = 1:
+					Act 'Leave the room': gt 'mey_home', 'start'
+				else
+					act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+				end
 			end
+		else
+			act 'No (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	end
 
@@ -135,20 +142,28 @@ if $ARGS[0] = '5':
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
 		'You shake your head and say that you have never kissed a boy. Katja, even more shyly, "You see <<$pcs_nickname>>, I like this guy, he''s older than me, and I am afraid that when we start to kiss, I''ll do something wrong. Maybe we could try kissing and learn that way?"'
+		
 		act 'Kiss': gt 'katjaEv', 'kiss'
 
-		act 'No':
-			cls
-			katjaLernQW = 0
-			katjaLernTimes = 1
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
-			'You refuse to kiss Katja and she gets mad at you.'
-			if mey_vika['key'] = 1:
-				Act 'Leave the room': gt 'mey_home', 'start'
-			else
-				act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+		gs 'willpower', 'kiss', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'No (<<will_cost>> Willpower)':
+				cls
+				katjaLernQW = 0
+				katjaLernTimes = 1
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
+				'You refuse to kiss Katja and she gets mad at you.'
+
+				if mey_vika['key'] = 1:
+					Act 'Leave the room': gt 'mey_home', 'start'
+				else
+					act 'Say goodbye and leave':minut += 5 & gt 'pavResidential'
+				end
 			end
+		else
+			act 'No (<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
@@ -395,7 +410,7 @@ if $ARGS[0] = 'kiss':
 	if KatjaHorny >= 75 and mesec <= 0:
 		'Katja moves her hands to your chest and gently touches them with her finger.'
 
-		act 'touch her chest':
+		act 'Touch her chest':
 			cls
 			minut += 5
 			pcs_horny += 10
@@ -407,16 +422,16 @@ if $ARGS[0] = 'kiss':
 			katjalustrand = rand(0, 30)
 
 			if KatjaLust < katjalustrand:
-				'You''re  touching each others breasts a little before Katja moves away from you.'
+				'You''re touching each others breasts a little before Katja moves away from you.'
 
-				act 'Further':gt 'KatjaHomeTalk'
+				act 'Stop':gt 'KatjaHomeTalk'
 
-				if pcs_dom > 0:
-					act 'grab her':
+				gs 'willpower', 'sex', 'force', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Grab her (<<will_cost>> Willpower)':
 						cls
 						minut += 5
 						pcs_horny += 10
-						pcs_dom -= 1
 						KatjaDom -= 5
 						KatjaHorny -= 10
 						KatjaLust += 1
@@ -457,6 +472,9 @@ if $ARGS[0] = 'kiss':
 							end
 						end
 					end
+				else
+					act 'Grab her (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end	
 				end
 			else
 				'Katja starts stroking your chest stronger and you feel as she undoes your bra, trying to get to your breasts.'
@@ -482,20 +500,25 @@ if $ARGS[0] = 'kiss':
 					end
 				end
 
-				act 'Remove her hands':
-					cls
-					pcs_dom += 1
-					minut += 5
-					pcs_horny += 10
-					KatjaDom -= 1
-					KatjaHorny -= 10
-					KatjaLust += 1
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
-					'You remove her hands and smile at Katja.'
+				gs 'willpower', 'foreplay', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Remove her hands (<<will_cost>> Willpower)':
+						cls
+						minut += 5
+						pcs_horny += 10
+						KatjaDom -= 1
+						KatjaHorny -= 10
+						KatjaLust += 1
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
+						'You remove her hands and smile at Katja.'
 
-					act 'Further':gt 'KatjaHomeTalk'
-				end
+						act 'Further':gt 'KatjaHomeTalk'
+					end
+				else
+					act 'Remove her hands (<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
 	else
@@ -554,30 +577,39 @@ if $ARGS[0] = 'moron':
 	cla
 	'<center><img <<$set_imgh>> src="images/pc/glare.jpg"></center>'
 	'You glare at the moron calling you lesbians.'
-	act 'Sing a different tune':
-		*clr
-		cla
-		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/frenchkiss.jpg"></center>'
-		'Looking at Ivan, then for this idiot, it seems that Ivan didn''t notice, you sighed and said to the idoit. "Is that really necessary? She is my best friend and we want kiss, you just seem jealous.'
-		'"Lesbians, lesbians." He continued to scream like a freak, so much that people began to gather around to find out, what''s happening. Ivan stepped over next to you and put his hand on your shoulder, giving the idiot a glare as well. Boosted by Ivan''s support you continued. "We like boys, just not assholes like you!" with those words, you stood on tiptoe, clasping and Ivan''s head in his hands and gave him a deep long passionate kiss, with lots of tongue.'
-		act 'Kiss again':
-			*clr
-			cla
-			if flag_KissEV = 0: flag_KissEV = 1
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/prohorov_3.jpg"></center>'
-			'"And I can kiss all the boys." you said, under the joyous hubbub of guys gathering near you. You began to kiss all the boys in succession, carefully avoiding the that called you a lesbian.'
-			'Seeing this he said offended. "The redhead doesn''t like guys, I bet." hoping Katja will kiss him to prove him wrong.'
-			'But Katja recovered and said. "Wrong again loser.", and began to repeat your route, of kissing the boys.'
-			if $loc = 'gdkin':
-				'After kissing the last boy, you turn back and make sure Katja kisses all of them too. You now realise the guys are hoping for more and quickly drag Katja away before you accidentally start an orgy.'
-				act 'Return to dance': gt 'gdkin'
-			else
-				'Just as you, kissed the last boy, you turned around to see how Katja was doing with her kissing, but then the bell rang, and you all rushed to class.'
-				act 'Continue': gt 'gschool_lessons', 'short_break'
+	
+	gs 'willpower', 'misc', 'self', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Sing a different tune (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'self'
+			gs 'stat'
+			
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/frenchkiss.jpg"></center>'
+			'Looking at Ivan, then for this idiot, it seems that Ivan didn''t notice, you sighed and said to the idoit. "Is that really necessary? She is my best friend and we want kiss, you just seem jealous.'
+			'"Lesbians, lesbians." He continued to scream like a freak, so much that people began to gather around to find out, what''s happening. Ivan stepped over next to you and put his hand on your shoulder, giving the idiot a glare as well. Boosted by Ivan''s support you continued. "We like boys, just not assholes like you!" with those words, you stood on tiptoe, clasping and Ivan''s head in his hands and gave him a deep long passionate kiss, with lots of tongue.'
+			
+			act 'Kiss again':
+				*clr
+				cla
+				if flag_KissEV = 0: flag_KissEV = 1
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/prohorov_3.jpg"></center>'
+				'"And I can kiss all the boys." you said, under the joyous hubbub of guys gathering near you. You began to kiss all the boys in succession, carefully avoiding the that called you a lesbian.'
+				'Seeing this he said offended. "The redhead doesn''t like guys, I bet." hoping Katja will kiss him to prove him wrong.'
+				'But Katja recovered and said. "Wrong again loser.", and began to repeat your route, of kissing the boys.'
+				if $loc = 'gdkin':
+					'After kissing the last boy, you turn back and make sure Katja kisses all of them too. You now realise the guys are hoping for more and quickly drag Katja away before you accidentally start an orgy.'
+					act 'Return to dance': gt 'gdkin'
+				else
+					'Just as you, kissed the last boy, you turned around to see how Katja was doing with her kissing, but then the bell rang, and you all rushed to class.'
+					act 'Continue': gt 'gschool_lessons', 'short_break'
+				end
 			end
 		end
-	end
-
+	else
+		act 'Sing a different tune (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
+	
 	act 'Keep silent':
 		*clr
 		cla

+ 64 - 23
locations/katjaEvDin.qsrc

@@ -249,20 +249,28 @@ if $ARGS[0] = 'shower_kiss':
 		end
 	end
 
-	act 'Remove her hands':
-		*clr & cla
-		pcs_dom += 1
-		minut += 5
-		pcs_horny += 10
-		KatjaDom -= 1
-		katjahorny -= 10
-		KatjaLust += 1
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
-		'You remove her hands and smile at her. Then you send Katja away, who shyly looks to the floor and leaves the bathroom.'
+	gs 'willpower', 'cuni', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Remove her hands (<<will_cost>> Willpower)':
+			cls
+			minut += 5
+			pcs_horny += 10
+			KatjaDom -= 1
+			KatjaHorny -= 10
+			KatjaLust += 1
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big14.jpg"></center>'
+			'You remove her hands and smile at her. Then you dismiss Katja, who shyly looks to the floor and leaves the bathroom.'
 
-		act 'Say goodbye and go home':gt 'pavResidential'
-	end
+			act 'Get out of the shower':
+				gs 'arousal', 'end'
+				gt 'KatjaHomeTalk'
+			end
+		end
+	else
+		act 'Remove her hands (<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 $ARGS[0] = 'sex':
@@ -412,9 +420,16 @@ if $ARGS[0] = 'kuni_dom':
 		else
 			'She looks at you with a satisfied grin, you know that she is aware you are horny as well. With a mischievous look in her eye she says. "That was great <<$pcs_nickname>> but I think that''s enough of that for today."'
 
-			act 'Say goodbye and go home':
-				gt 'pavResidential'
-			end
+			gs 'willpower', 'sex', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Say goodbye and go home (<<will_cost>> Willpower)':
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					gt 'pavResidential'
+				end
+			else
+				act 'Say goodbye and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end	
 
 			act 'Beg her to give you a turn.':
 				*clr & cla
@@ -423,9 +438,16 @@ if $ARGS[0] = 'kuni_dom':
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/myturn.jpg"></center>'
 				'You beg her to give you a turn but she shakes her head no. "Sorry <<$pcs_nickname>>, I''m just not in the mood to go down on you... although if you really want something, I got this." As she is talking she pulls out a strap-on harness with a rather large dildo attached to it, giving you a wicked grin. You can tell she is just itching to use it on you.'
 
-				act 'Decline and go home':
-					gt 'pavResidential'
-				end
+				gs 'willpower', 'sex', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Decline and go home (<<will_cost>> Willpower)':
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						gt 'pavResidential'
+					end
+				else
+					act 'Decline and go home (<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':
 					*clr & cla
@@ -446,10 +468,19 @@ if $ARGS[0] = 'kuni_dom':
 						gs 'arousal', 'bj', 5, 'lesbian', 'sub', 'rough', 'deepthroat'
 						gs 'stat'
 
-						if pcs_dom - sub + 30 > KatjaDom: act 'Decline and go home':gt 'pavResidential'
+						gs 'willpower', 'vaginal_strap', 'resist', 'hard'
+						if will_cost <= pcs_willpwr:
+							act 'Decline and go home (<<will_cost>> Willpower)':
+								gs 'willpower', 'pay', 'resist'
+								gs 'stat'
+								gt 'pavResidential'
+							end
+						else
+							act 'Decline and go home (<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 to round two':
 							*clr & cla
-							stat['vaginal_strap'] += 1
 							pcs_horny += 15
 							gs 'stat'
 							'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/katja/sex/school/katstrapfuck.mp4"></video></center>'
@@ -462,7 +493,17 @@ if $ARGS[0] = 'kuni_dom':
 							gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub', 'rough'
 							gs 'stat'
 
-							if pcs_dom - sub + 30 > KatjaDom: act 'Decline and go home':gt 'pavResidential'
+							gs 'willpower', 'anal_strap', 'resist', 'hard'
+							if will_cost <= pcs_willpwr:
+								act 'Decline and go home (<<will_cost>> Willpower)':
+									gs 'willpower', 'pay', 'resist'
+									gs 'stat'
+									gt 'pavResidential'
+								end
+							else
+								act 'Decline and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+							end
+						
 							act 'Surrender your ass':
 								*clr & cla
 								gs 'stat'
@@ -476,7 +517,7 @@ if $ARGS[0] = 'kuni_dom':
 
 								if pcs_horny = 100:
 									analorgasm += 1
-									$orgasm_or = 'custom'
+									$orgasm_or = 'yes'
 									$orgasm_txt = 'It is then that your orgasm hits you, it is sudden and amazingly intense.'
 								end
 								'Yet she doesn''t slow down her furious pace. Finally unable to keep it up anymore she collapses on your back. You can feel the sweat from her body on your back and her heavy breathing in your ear. As she rests, half leaning against and half laying on you, with the dildo still buried it''s full length up your ass.'

+ 46 - 14
locations/katja_sex.qsrc

@@ -170,30 +170,35 @@ if $ARGS[0] = 'prohorov_sex':
 		cla & *clr
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/kissing.jpg"></center>'
 		'You pull Katja close as you begin to kiss each other, your tongues exploring each others mouths as your hands roam over each others bodies, you completely ignore Ivan.'
+		gs 'arousal', 'kiss', 1, 'lesbian'
+		gs 'stat'
 		if KatjaHorny >= 50:
 			act 'Kissing and more':
 				cls
 				KatjaHorny += 5
-				minut += 5
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/morekissing.jpg"></center>'
 				'You pull Katja close as you begin to kiss each other, your tongues exploring each others mouths as your hands roam over each others bodies, completely ignoring the boy. After a few moments of kissing you start kissing her neck as you unbutton her top, exposing her naked breasts. You kiss your way down to her breasts and being to lick and suck on her nipple.'
+				gs 'arousal', 'kiss', 2, 'lesbian'
+				gs 'arousal', 'foreplay_give', 2, 'lesbian'
+				minut -= 2
+				gs 'stat'
 				if KatjaHorny >= 60:
 					act 'It''s getting hot':
 						KatjaHorny += 5
 						cla & *clr
-						gs 'arousal','breasts', 1
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/nipplesuck.jpg"></center>'
 						'Katja begins to unbutton your shirt and pulls it off you, forcing you to break contact with her breasts. After your shirt is off, Katja immediately starts to kiss, lick and suck on your nipples, biting your lower lip as you moan in pleasure. Ivan continues to watch the two of you, but he begins to rub the large bulge in his pants.'
+						gs 'arousal', 'foreplay', 1, 'lesbian'
+						gs 'stat'
 						if KatjaHorny >= 70:
 							act 'Return to kissing':
 								cls
 								KatjaHorny += 5
-								minut += 5
-								gs 'arousal','breasts', 5
-								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/nakedkissing.jpg"></center>'
 								'You pull her face up to yours as the two of you being to kiss again. While your hands caress each others breasts, Katja hooks one her legs around yours as you become intertwined. You are so distracted you don''t even notice the heavy breathing coming from Ivan behind you, as he continues to watch.'
+								gs 'arousal', 'kiss', 1, 'lesbian'
+								gs 'stat'
 								if KatjaHorny >= 80:
 									act 'Lift skirt':
 										cla
@@ -201,17 +206,29 @@ if $ARGS[0] = 'prohorov_sex':
 										'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/inthemoment.jpg"></center>'
 										'Katja and you moan into each others mouths, she lifts your skirt and pulls your panties down. You feel your panties slide down around your ankles, both of you are completely unconcerned someone could come by at any moment and find the two of you making out half naked in front of Ivan.'
 										'After a few moments you feel another hand join Katja''s on your ass, a strong hand with strong fingers, you feel one of the fingers sliding down to rub your asshole.'
-										act 'Get angry and tell Ivan to just watch':
-											cla
-											*clr
-											'<center><img <<$set_imgh>> src="images/pc/glare.jpg"></center>'
-											'You push Ivan''s hands away and turn your head to give him a dirty look. "Just watch!" You notice his crest fallen look as you turn back to Katja you notice her disappointed expression as well.'
-											'Before you can say anything to make it better the bell rings and all three of you rush to class. While you are putting your shirt back on, you hear Ivan shout. "That was great girls!"'
-											act 'Continue': gt 'gschool_lessons', 'short_break'
-										end
+										gs 'arousal', 'anal_finger', 2
+										gs 'stat'
+										
+										gs 'willpower', 'sex', 'resist', 'hard'
+										if will_cost <= pcs_willpwr:
+											act 'Get angry and tell Ivan to just watch (<<will_cost>> Willpower)':
+												cla & *clr
+												gs 'willpower', 'pay', 'self'
+												gs 'stat'
+												'<center><img <<$set_imgh>> src="images/pc/glare.jpg"></center>'
+												'You push Ivan''s hands away and turn your head to give him a dirty look. "Just watch!" You notice his crest fallen look as you turn back to Katja you notice her disappointed expression as well.'
+												'Before you can say anything to make it better the bell rings and all three of you rush to class. While you are putting your shirt back on, you hear Ivan shout. "That was great girls!"'
+												
+												gs 'arousal', 'end'
+												gs 'stat'
+												act 'Continue': gt 'gschool_lessons', 'short_break'
+											end
+										else
+											act 'Get angry and tell Ivan to just watch (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+										end	
+										
 										act 'Encourage Ivan':
 											cls
-											stat['anal_finger'] += 1
 											ivan_afterschool = 1
 											gs 'stat'
 											'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/letshavefun.jpg"></center>'
@@ -220,26 +237,41 @@ if $ARGS[0] = 'prohorov_sex':
 											'A few moments later the class bell rings, you all break apart, as you and Katja start to get dressed Ivan says in a pleading tone. "Meet me after school, so we can continue this?"'
 											'You look at Ivan for a moment and bite your lower lip considering, turning to look at Katja, you find her looking at you and enthusiastically nodding, you can''t help but grin at her eagerness and nod as well. Grinning and looking into each others eyes a moment of complete understanding passes between you.'
 											'Then Katja looks at Ivan and says in a seductive tone. "Meet us here after school and we''ll rock your world." You watch as Ivan has the biggest grin on his face you have every seen. You turn to Katja and both of you laugh, as all three of you rush to class.'
+											
+											gs 'arousal', 'anal_finger', 3
+											gs 'arousal', 'kiss', 3, 'lesbian'
+											gs 'arousal', 'kiss', 3
+											minut -= 3
+											gs 'arousal', 'end'
+											gs 'stat'
 											act 'Continue': gt 'gschool_lessons', 'short_break'
 										end
 									end
 								else
 									'Before you can do more the bell rings and all three of you rush to class. While you put your shirt back on, you hear Ivan shout. "That was great girls!"'
+									gs 'arousal', 'end'
+									gs 'stat'
 									act 'Continue': gt 'gschool_lessons', 'short_break'
 								end
 							end
 						else
 							'Before you can do more the bell rings and all three of you rush to class. While you put your shirt back on, you hear Ivan shout. "That was great girls!"'
+							gs 'arousal', 'end'
+							gs 'stat'
 							act 'Continue': gt 'gschool_lessons', 'short_break'
 						end
 					end
 				else
 					'Before you can do more the bell rings and all three of you rush to class. While you put your shirt back on, you hear Ivan shout. "That was great girls!"'
+					gs 'arousal', 'end'
+					gs 'stat'
 					act 'Continue': gt 'gschool_lessons', 'short_break'
 				end
 			end
 		else
 			'Before you can do more the bell rings and all three of you rush to class. While you put your shirt back on, you hear Ivan shout. "That was great girls!"'
+			gs 'arousal', 'end'
+			gs 'stat'
 			act 'Continue': gt 'gschool_lessons', 'short_break'
 		end
 	end

+ 12 - 2
locations/restoran.qsrc

@@ -75,9 +75,19 @@ if $ARGS[0] = 'zal':
 
 			act 'Leave': gt 'restoran', 'zal'
 		end
-
-		act 'Smile at her': gt 'nastja', 'pos1'
+		
+		gs 'willpower', 'misc', 'self', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Smile at her (<<will_cost>> Willpower)': 
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				gt 'nastja', 'pos1'
+			end
+		else
+			act 'Smile at her (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end	
 	end
+	
 	act 'Be seated at a table': gt 'restoran', 'comtable'
 
 	act 'Leave the Common Room':gt 'restoran', 'start'

+ 65 - 36
locations/rinwork.qsrc

@@ -120,25 +120,40 @@ if $ARGS[0] = 'start':
 				elseif palevorin = 4:
 					'Artur goes behind you into the stall carrying some stuff. He comes up behind you are working and gives your ass a slap and squeeze, with one hand while the other one snakes around and roughly grabs your tit, as he whispers in your ear. "So you like cock, I didn''t think you was a little slut but that is ok, I like dirty sluts."'
 					'He cuts you off before you can make any protest about being slut. "No it is good, I can use this. Now come let us go to the warehouse so I can fuck you."'
-					act 'Go with him':palevorin = 5 & gt 'RynokHoz', 'sex'
-
-					act 'Refuse':
-						cla
-						'You shake your head and pull out of his grasp. "I am not a slut Artur and I am not going with you."'
-						'You see the anger flare up in his eyes. "So you think you are to good for me whore? I gave you a job, I treated you nice and then you fuck those two and now I am not good enough?" He shakes his head. "No get your ass in the warehouse now or you are fired and I will tell Abdul and Hasan they are free to tell everyone about how you greedily took their cocks like the little slut you are."'
-						'You are a bit shocked at this level of anger and the ultimatum. You are unsure what to do, go with him, keep your job, and your rep. Or refuse and find a new job and hope no one believes them.'
-
-						act 'Go to warehouse':palevorin = 5 & gt 'RynokHoz', 'sex'
-
-						act 'Get fired':
+					
+					act 'Go with him ':palevorin = 5 & gt 'RynokHoz', 'sex'
+					
+					gs 'willpower', 'sex', 'resist', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Refuse (<<will_cost>> Willpower)':
 							cla
-							
-							'You shake your head no. "No I won''t go with you."'
-							'Before you notice him raising his hand, you feel the burning on your cheek as he slaps you. "Then get out of her whore, your fired and I don''t want to see you back here!" He says very loudly as he pushes you out from behind his stall, loud enough that many people are looking your direction now at what is going on.'
-							'With shame and a burning cheek you walk away.'
-							if rinslut = 0:rinslut = 1
-							act 'Leave':gt 'street'
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							'You shake your head and pull out of his grasp. "I am not a slut Artur and I am not going with you."'
+							'You see the anger flare up in his eyes. "So you think you are to good for me whore? I gave you a job, I treated you nice and then you fuck those two and now I am not good enough?" He shakes his head. "No get your ass in the warehouse now or you are fired and I will tell Abdul and Hasan they are free to tell everyone about how you greedily took their cocks like the little slut you are."'
+							'You are a bit shocked at this level of anger and the ultimatum. You are unsure what to do, go with him, keep your job, and your rep. Or refuse and find a new job and hope no one believes them.'
+
+							act 'Go to warehouse':palevorin = 5 & gt 'RynokHoz', 'sex'
+
+							gs 'willpower', 'sex', 'resist', 'hard'
+							if will_cost <= pcs_willpwr:
+								act 'Get fired (<<will_cost>> Willpower)':
+									cla
+									gs 'pain', 5, 'cheeks', 'slap'
+									gs 'willpower', 'pay', 'resist'
+									gs 'stat'
+									'You shake your head no. "No I won''t go with you."'
+									'Before you notice him raising his hand, you feel the burning on your cheek as he slaps you. "Then get out of her whore, your fired and I don''t want to see you back here!" He says very loudly as he pushes you out from behind his stall, loud enough that many people are looking your direction now at what is going on.'
+									'With shame and a burning cheek you walk away.'
+									if rinslut = 0:rinslut = 1
+									act 'Leave':gt 'street'
+								end
+							else
+								act 'Get fired (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+							end	
 						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	
 					
 				elseif palevorin = 5:
@@ -154,27 +169,41 @@ if $ARGS[0] = 'start':
 						act 'Go with him':gt 'RynokHoz', 'sex'
 					end
 					
-					act 'Refuse':
-						cla
-						'You start making excuses. Arthur says to you, "Hey, don''t insult me you fucking slut, I was there. I know what a whore you are. Now get your fucking ass in the warehouse or the whole town will know what a whore you are."'
-						if sexgrouprand = 1:
-							act 'Go to warehouse':gt 'RynokHoz', 'group'
-						else
-							act 'Go to warehouse':gt 'RynokHoz', 'sex'
-						end
-						
-						act 'No':
+					gs 'willpower', 'sex', 'resist', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Refuse (<<will_cost>> Willpower)':
 							cla
-							arturnoo = 0
-							work = 0
-							workrin = 0
-							if rinslut = 0:rinslut = 1
-							if repa < 6:repa = 6
-							'Then fuck you, you little fucking whore, your fired and by tomorrow the whole town will know what a whore you are."'
-
-							act 'Leave':gt 'street'
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							'You start making excuses. Arthur says to you, "Hey, don''t insult me you fucking slut, I was there. I know what a whore you are. Now get your fucking ass in the warehouse or the whole town will know what a whore you are."'
+							if sexgrouprand = 1:
+								act 'Go to warehouse':gt 'RynokHoz', 'group'
+							else
+								act 'Go to warehouse':gt 'RynokHoz', 'sex'
+							end
+							
+							gs 'willpower', 'sex', 'resist', 'hard'
+							if will_cost <= pcs_willpwr:
+								act 'No (<<will_cost>> Willpower)':
+									cla
+									arturnoo = 0
+									work = 0
+									workrin = 0
+									gs 'willpower', 'pay', 'resist'
+									gs 'stat'
+									if rinslut = 0:rinslut = 1
+									if repa < 6:repa = 6
+									'Then fuck you, you little fucking whore, your fired and by tomorrow the whole town will know what a whore you are."'
+
+									act 'Leave':gt 'street'
+								end
+							else
+								act 'No (<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
+					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	
 				else
 					act 'Leave work':gt 'street'
 				end