[added] more willpower seeding and some arousal seeding as well

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

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':

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:

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'
 

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

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.'

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