[added] another batch of files with seeded willpower

locations/Kwlake1.qsrc

@@ -36,7 +36,16 @@ act 'Fondle her':
 		gs 'arousal', 'cuni', 5, 'lesbian'
 		gs 'stat'
 		
-		act 'Break it off':gt 'Nudelake'
+		gs 'willpower', 'sex', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Break it off (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'Nudelake'
+			end
+		else
+			act 'Break it off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end	
 
 		act 'Beckon him to join you':
 			cla

locations/Kwlake2.qsrc

@@ -23,7 +23,16 @@ act '"Alright!"':
 	minut -= 5
 	gs 'stat'
 	
-	act 'That''s enough! Leave before this gets out of hand':gt 'Nudelake'
+	gs 'willpower', 'foreplay', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'That''s enough! Leave before this gets out of hand (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'Nudelake'
+		end
+	else
+		act 'That''s enough! Leave before this gets out of hand (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
 
 	act 'Invite the man to join you':
 		cla

locations/koncepod.qsrc

@@ -29,8 +29,6 @@ else
 		nurand = RAND(0,100)
 		if nurand >= 90:
 			pcs_mood -= 5
-			SUB += 1
-			pcs_horny += SUB
 			'As you walk away you heard the barely audible murmur from the concierge "That slut! She walks around in a short skirt and no panties, ass and pussy on display for all to see!"'
 		end
 	end

locations/krutishi.qsrc

@@ -63,13 +63,19 @@ if npc_grupTipe['A<<numnpc>>'] = 1:
 								dynamic $din_igor_disco_bj
 							end
 
-							act 'Refuse':
-								cls
-								gs 'stat'
-								'You refuse to go outside with Igor. He doesn''t say a word in response but looks angry. Dimka, as if he had sensed your refusal, comes over and asks you what''s wrong. Igor shrugs: "Your cocksucker does not want to suck me off."' 
-								'Dimka frowns at you. "He''s my best friend. When he asks you to blow him, you just do it, as if it was me who asked. Now, let''s see about that blowjob!" He grabs your arm - you don''t know what it is about him but resistance seems futile. Igor, encouraged by Dimka''s action, takes the other, and the two of them lead you outside.'
-								dynamic $din_igor_dima_disco_bj
-							end
+							gs 'willpower', 'misc', 'resist', 'hard'
+							if will_cost <= pcs_willpwr:
+								act 'Refuse (<<will_cost>> Willpower)':
+									cls
+									gs 'willpower', 'pay', 'resist'
+									gs 'stat'
+									'You refuse to go outside with Igor. He doesn''t say a word in response but looks angry. Dimka, as if he had sensed your refusal, comes over and asks you what''s wrong. Igor shrugs: "Your cocksucker does not want to suck me off."' 
+									'Dimka frowns at you. "He''s my best friend. When he asks you to blow him, you just do it, as if it was me who asked. Now, let''s see about that blowjob!" He grabs your arm - you don''t know what it is about him but resistance seems futile. Igor, encouraged by Dimka''s action, takes the other, and the two of them lead you outside.'
+									dynamic $din_igor_dima_disco_bj
+								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	
 
 							exit
 						end
@@ -108,27 +114,33 @@ if npc_grupTipe['A<<numnpc>>'] = 1:
 						gs 'stat'
 						'You go outside with Dimka and walk away from the club, eventually finding a quiet corner to yourselves. You''re surprised but also happy when Dimka suddenly turns to your and hugs you tightly. "<<$pcs_nickname>>, you''re such a pretty girl. Would you go out with me?"'
 
-						act 'No - This is all too sudden':
-							cls
-							gs 'stat'
-							'<center><b><font color="maroon"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></font></b></center>'
-							'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big1.jpg"></center>'
-							'You tell him "No" and give him an apologetic look. But to your surprise, Dimka grins. "Don''t be shy, <<$pcs_nickname>>, of course you want to go out with me. Why else would you be hanging out with me?"'
-
-							act 'Well, maybe you do have a little crush on him':
+						gs 'willpower', 'misc', 'self', 'hard'
+						if will_cost <= pcs_willpwr:
+							act 'No - This is all too sudden (<<will_cost>> Willpower)':
 								cls
+								gs 'willpower', 'pay', 'self'
 								gs 'stat'
 								'<center><b><font color="maroon"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></font></b></center>'
-                                '<center><img <<$set_imgh>> src="images/pc/npc_headshots/big1.jpg"></center>'
-								'"I don''t know", you say, embarrassed, "maybe?"'
-								'Dimka smiles and hugs you. "Of course. I knew it from the start. But... You know, I can''t be going out with some sort of nun - most girls here are prudes. I want a girl who knows how to enjoy herself... and you know how to have fun, right?"' 
-								'You nod carefully. Where is he going with this?'
-								'His smile get even bigger. "So, it''s simple: I''ll go out with you if you can prove to me that you''re not a prude. All you''ve gotta do... is suck my dick, right now."'
-								dynamic $din_dima_predlog
+								'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big1.jpg"></center>'
+								'You tell him "No" and give him an apologetic look. But to your surprise, Dimka grins. "Don''t be shy, <<$pcs_nickname>>, of course you want to go out with me. Why else would you be hanging out with me?"'
+
+								act 'Well, maybe you do have a little crush on him':
+									cls
+									gs 'stat'
+									'<center><b><font color="maroon"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></font></b></center>'
+									'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big1.jpg"></center>'
+									'"I don''t know", you say, embarrassed, "maybe?"'
+									'Dimka smiles and hugs you. "Of course. I knew it from the start. But... You know, I can''t be going out with some sort of nun - most girls here are prudes. I want a girl who knows how to enjoy herself... and you know how to have fun, right?"' 
+									'You nod carefully. Where is he going with this?'
+									'His smile get even bigger. "So, it''s simple: I''ll go out with you if you can prove to me that you''re not a prude. All you''ve gotta do... is suck my dick, right now."'
+									dynamic $din_dima_predlog
+								end
+
+								act 'Leave - You really don''t want to go out with him':gt $loc, $metka
 							end
-
-							act 'Leave - You really don''t want to go out with him':gt $loc, $metka
-						end
+						else
+							act 'No - This is all too sudden (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+						end	
 
 						act 'Yes - You''ve always wanted a boyfriend like him':
 							cls

locations/stwork2.qsrc

@@ -377,8 +377,17 @@ if $ARGS[0] = 'pr2':
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr2.jpg"></center>'
 	'The man you''re dancing is mesmerized by you and can''t stop touching himself, after a while he asks you if he can fuck you for 2000 <b>₽</b>.'
-
-	act 'Reject him':gt 'stwork', 'start'
+	
+	gs 'willpower', 'sex', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Reject him (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'stwork', 'start'
+		end
+	else
+		act 'Reject him (<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':
 		guy += 1
@@ -393,7 +402,16 @@ if $ARGS[0] = 'pr3':
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr3.jpg"></center>'
 	'It''s a bit different dancing for a woman, it''s not often you have the pleasure doing that so you''re feeling a bit more frisky than usual. As you finish the dance she gives you an kiss and you start making out. She stops and offers you 1000 <b>₽</b> to continue on.'
 
-	act 'Reject her':gt 'stwork', 'start'
+	gs 'willpower', 'sex', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:	
+		act 'Reject her (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'stwork', 'start'
+		end
+	else
+		act 'Reject her (<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':
 		girl += 1