[added] Willpower seeding

locations/lake.qsrc

@@ -142,14 +142,21 @@ if $ARGS[0] = 'start':
 							act 'Run away':
 								*clr & cla
 								'You try to get up, but are immediately pulled to his hairy chest by his strong hands.'
+								
+								gs 'willpower', 'misc', 'resist', 'hard'
+								if will_cost <= pcs_willpwr:
+									act 'Knee hit him in the balls (<<will_cost>> Willpower)':
+										*clr & cla
+										andrei = 1
+										gs 'willpower', 'pay', 'resist'
+										gs 'stat'
+										'You very accurately knee him in the balls, he screams and lets you down.'
 
-								act 'Knee hit him in the balls':
-									*clr & cla
-									andrei = 1
-									'You very accurately knee him in the balls, he screams and lets you down.'
-
-									act 'Escape from the beach':gt 'lake', 'start'
-								end
+										act 'Escape from the beach':gt 'lake', 'start'
+									end
+								else
+									act 'Knee him in the balls (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+								end	
 
 								act 'Escape from his clutches':
 									*clr & cla
@@ -393,7 +400,7 @@ if $ARGS[0] = 'walklake1':
 					minut += 2
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
-					'You asked what the guy wants. The guy looks at you again with a smirk. "You have written on his face that you are a whore. Here to earn your living?"'
+					'You asked what the guy wants. The guy looks at you again with a smirk. "You have written on your face that you are a whore. Here to earn your living?"'
 
 					act 'How dare you? (Troubled)':
 						cla & *clr
@@ -436,8 +443,17 @@ if $ARGS[0] = 'walklake1':
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
 				'You tell the guy "Money first!" The guy grins, "If you are going to make money whoring, get ready to drink the cup of humiliation to the dregs." The guy takes the money out and hands it to you imposingly.'
-
-				act 'Leave':gt 'lake', 'start'
+				
+				gs 'willpower', 'misc', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Leave (<<will_cost>> Willpower)':
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						gt 'lake', 'start'
+					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 'Take the money':
 					cla & *clr
@@ -546,7 +562,16 @@ if $ARGS[0] = 'dinribak':
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
 		'You call the idiot an idiot and get ready to leave. The guy says, "Well, maybe I was wrong, and you are not whore and a slut. Maybe I''m right and you are a slut, and you will stay and earn two thousand."'
 
-		act 'Leave':gt 'lake', 'start'
+		gs 'willpower', 'misc', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Leave (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'lake', 'start'
+			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 'Money first':
 			cla & *clr
@@ -555,8 +580,17 @@ if $ARGS[0] = 'dinribak':
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
 			'You hesitating blurt out "Money up front!"'
 			'The guy laughs, "Well, that solves that one then! Take your money whore, and then you won''t need to play games pretending to be a schoolgirl virgin." The guy takes the money and hands it to you imposingly.'
-
-			act 'Change your mind and leave':gt 'lake', 'start'
+			
+			gs 'willpower', 'misc', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Change your mind and leave (<<will_cost>> Willpower)':
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					gt 'lake', 'start'
+				end
+			else
+				act 'Change your mind and 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 'Take the money':
 				cla & *clr
@@ -604,7 +638,16 @@ if $ARGS[0] = 'dinribak':
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
 		'You hesitantly move closer to the guy and he quickly grabs you by the wrist, literally restraining you. "Come on baby, no need to think about it, we both know that you want to try the taste of my dick. So don''t be shy."'
 
-		act 'Faint compliance then run':gt 'lake', 'start'
+		gs 'willpower', 'misc', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Faint compliance then run (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'lake', 'start'
+			end
+		else
+			act 'Faint compliance then run (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end	
 
 		act 'Kneel in front of the guy':
 			cla & *clr
@@ -792,16 +835,22 @@ if $ARGS[0] = 'stasValera2a':
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/refuse1.jpg"></center>'
 	'You angrily remove his hands from your body. Stasik grins, "C''mon baby, relax."'
 
-	act 'Rebel and go':
-		cla & *clr
-		minut += 2
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/refuse3.jpg"></center>'
-		'You angrily stand up and began to leave. Stasik gets to his feet and tries to persuade you to go with the guys to the cafe.'
-
-		act 'Leave':gt 'lake', 'start'
-	end
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Rebel and go (<<will_cost>> Willpower)':
+			cla & *clr
+			minut += 2
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/refuse3.jpg"></center>'
+			'You angrily stand up and began to leave. Stasik gets to his feet and tries to persuade you to go with the guys to the cafe.'
 
+			act 'Leave':gt 'lake', 'start'
+		end
+	else
+		act 'Rebel and go (<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':
 		cla & *clr
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/tits1.jpg"></center>'
@@ -831,25 +880,38 @@ if $ARGS[0] = 'stasValera3':
 	minut -= 3
 	gs 'stat'
 
-	act 'Hey! What are you doing?':
-		cla & *clr
-		minut += 2
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/refuse4.jpg"></center>'
-		'You jump to your feet adjusting your bra. Stasik smiles, "Do not be afraid girl."'
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Hey! What are you doing? (<<will_cost>> Willpower)':
+			cla & *clr
+			minut += 2
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/refuse4.jpg"></center>'
+			'You jump to your feet adjusting your bra. Stasik smiles, "Do not be afraid girl."'
 
-		act 'Leave':gt 'lake', 'start'
-	end
+			act 'Leave':gt 'lake', 'start'
+		end
+	else
+		act 'Hey! What are you doing? (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
 
-	act 'Feebly protest':
-		cla & *clr
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/talk5.jpg"></center>'
-		'You try to pull your bra back and whisper, "No." Stasik smiles, "Do not be shy girl."'
-		gs 'arousal', 'foreplay', 5
-		minut -= 3
-		gs 'stat'
-		act 'Relax': gt 'lake', 'stasValera4'
-	end
+	gs 'willpower', 'misc', 'resist', 'medium'
+	if will_cost <= pcs_willpwr:
+		act 'Feebly protest (<<will_cost>> Willpower)':
+			cla & *clr
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/talk5.jpg"></center>'
+			'You try to pull your bra back and whisper, "No." Stasik smiles, "Do not be shy girl."'
+			gs 'arousal', 'foreplay', 5
+			minut -= 3
+			gs 'stat'
+			act 'Relax': gt 'lake', 'stasValera4'
+		end
+	else
+		act 'Feebly protest (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
 
 	act 'Be silent':
 		cla & *clr
@@ -940,14 +1002,32 @@ if $ARGS[0] = 'vlake1':
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/vlake1/vlake1.jpg"></center>'
 	'While you are sunbathing on the beach you come across a group of four guys and they begin to flirt with you'
 
-	act 'Leave':gt 'lake', 'start'
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Leave (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'lake', 'start'
+		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 'Flirt':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/vlake1/vlake2.jpg"></center>'
 		'Boys are perched nearby, they flirt and try to sneak a touch of your body and caress it.'
 
-		act 'Leave':gt 'lake', 'start'
+		gs 'willpower', 'misc', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Leave (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'lake', 'start'
+			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 'Relax and enjoy':
 			*clr & cla
@@ -1045,14 +1125,32 @@ if $ARGS[0] = 'vlake2':
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/vlake2/vlake1.jpg"></center>'
 	'While tanning you notice two naked men walking along the shore from the nudist beach.'
 
-	act 'Disregard':gt 'lake', 'start'
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Disregard (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'lake', 'start'
+		end
+	else
+		act 'Disregard (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
 
 	act 'Wave at them':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/vlake2/vlake2.jpg"></center>'
 		'The men come up to you, one of them kneels down next to you and kisses your lips, the second one kneels in front of you and stokes your panties.'
 
-		act 'And push them away':gt 'lake', 'start'
+		gs 'willpower', 'misc', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'And push them away (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'lake', 'start'
+			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 'Kneel':
 			*clr & cla
@@ -1129,7 +1227,16 @@ if $ARGS[0] = 'andrey1':
 	gs 'stat'
 	'You go to Andrew, he grins and says, "Let''s go for a swim!"'
 
-	act 'Refuse':gt 'lake', 'start'
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Refuse (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'lake', 'start'
+		end
+	else
+		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
 
 	act 'Bathe':
 		*clr & cla
@@ -1199,7 +1306,16 @@ if $ARGS[0] = 'kater1':
 	'Riding on the jet ski you try too steep a turn, which throws you into the water, you have swallowed alot of water and begin to sink. Thankfully you notice a guy on a boat, he pulls you out of the water, and binds the Jet ski to the boat. After a while, having coughed up some water, you catch your breath and start to feel much better, the guy comes up to you.'
 	'"Well, how are you beautiful, pulled yourself together, what about gratitude?" he asks, his hand now on your pussy.'
 
-	act 'Take the Jet ski and leave':gt 'lake', 'start'
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Take the Jet ski and leave (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'lake', 'start'
+		end
+	else
+		act 'Take the Jet ski and 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 'Spread your legs':
 		*clr & cla
@@ -1291,7 +1407,16 @@ if $ARGS[0] = 'kater2':
 	'Riding on a banana you loss grip and fall in the water, you swallow alot of water and begin to sink. Thankfully you notice two guys on a boat and they get you out of the water. After a while you catch your breath, relax and start to look around. You saw that on the bow both your saviors are naked.'
 	if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
 
-	act 'Pretending to be asleep until moored':gt 'lake', 'start'
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Pretend to be asleep until docked (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'lake', 'start'
+		end
+	else
+		act 'Pretend to be asleep until docked (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 
 	act 'Approach them':
 		*clr & cla
@@ -1372,7 +1497,16 @@ if $ARGS[0] = 'kater3':
 	'"Well, how are you beautiful, pulled yourself together, what about gratitude?" he asks, his hand now on your pussy.'
 	if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
 
-	act 'Take the Jet ski and leave':gt 'lake', 'start'
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Take the Jet ski and leave (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'lake', 'start'
+		end
+	else
+		act 'Take the Jet ski and 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 'Spread your legs':
 		*clr & cla
@@ -1436,7 +1570,16 @@ if $ARGS[0] = 'horse1':
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/horse1/horse1.jpg"></center>'
 	'Riding along the beach you notice the two men on quad bikes, they wave to you and offered to keep you company.'
 
-	act 'Refuse':gt 'lake', 'start'
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Refuse (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'lake', 'start'
+		end
+	else
+		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
 
 	act 'Go with them':
 		*clr & cla
@@ -1545,7 +1688,16 @@ if $ARGS[0] = 'horse2':
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/horse2/horse1.jpg"></center>'
 	'While you are riding you meet two men on horseback and they ask you to join them for a walk together.'
 
-	act 'Refuse':gt 'lake', 'start'
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Refuse (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'lake', 'start'
+		end
+	else
+		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
 
 	act 'Go with them':
 		*clr & cla

locations/lakecafe.qsrc

@@ -219,18 +219,26 @@ if $ARGS[0] = 'barmensha':
 								'You refuse to relent.'
 								'Eugene sighs: "All our regulars know that we ''arrange meetings'' every Monday between 22:00 and 23:00. If you''re here at that time and want to earn some money, introduce yourself to the person or group you want to service and say: ''I''ll be your waitress tonight.'' They''ll know what it means. Please don''t do it, <<$pcs_nickname>>."'
 								'You see tears forming in her eyes.'
-								act 'Say you won''t do it':
-									cla
-									'Eugene seems relieved as she looks back at you.'
-									'"Thank you, <<$pcs_nickname>>. I don''t know what I would do if you were doing that..."'
-									act 'Continue':
+								gs 'willpower', 'misc', 'self', 'easy'
+								if will_cost <= pcs_willpwr:
+									act 'Say you won''t do it (<<will_cost>> Willpower)':
 										cla
-										LCworkwork = 2
-										LCwork = 0
-										minut += 4
-										gt 'lakecafe', 'barmensha'
+										gs 'willpower', 'pay', 'self'
+										gs 'stat'
+										'Eugene seems relieved as she looks back at you.'
+										'"Thank you, <<$pcs_nickname>>. I don''t know what I would do if you were doing that..."'
+										act 'Continue':
+											cla
+											LCworkwork = 2
+											LCwork = 0
+											minut += 4
+											gt 'lakecafe', 'barmensha'
+										end
 									end
-								end
+								else
+									act 'Say you won''t do it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+								end	
+								
 								act 'Walk away':
 									cla
 									npc_love['A89'] -= 30
@@ -251,19 +259,26 @@ if $ARGS[0] = 'barmensha':
 							'"All our regulars know that we ''arrange meetings'' every Monday between 22:00 and 23:00. If you''re here at that time and want to earn some money, introduce yourself to the person or group you want to service and say: ''I''ll be your waitress tonight.'' They''ll know what it means. From what the girls told me, they get paid between 500 and 1,000 <b>₽</b>."'
 							'Before you leave, she adds: "Please don''t do it. I''m starting to care for you and..."'
 							'She looks away from you.'
-							act 'Say you won''t do it':
-								cla
-								'You promise Eugene you won''t do it.'
-								'Eugene seems relieved as she looks back at you.'
-								'"Thank you, <<$pcs_nickname>>. I don''t think I could look at you the same way if you did that."'
-								act 'Continue':
+							gs 'willpower', 'misc', 'self', 'easy'
+							if will_cost <= pcs_willpwr:
+								act 'Say you won''t do it (<<will_cost>> Willpower)':
 									cla
-									LCworkwork = 2
-									LCwork = 0
-									minut += 4
-									gt 'lakecafe', 'barmensha'
+									gs 'willpower', 'pay', 'self'
+									gs 'stat'
+									'Eugene seems relieved as she looks back at you.'
+									'"Thank you, <<$pcs_nickname>>. I don''t know what I would do if you were doing that..."'
+									act 'Continue':
+										cla
+										LCworkwork = 2
+										LCwork = 0
+										minut += 4
+										gt 'lakecafe', 'barmensha'
+									end
 								end
-							end
+							else
+								act 'Say you won''t do it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+							end	
+							
 							act 'Walk away':
 								cla
 								npc_love['A89'] -= 5
@@ -348,7 +363,7 @@ if $ARGS[0] = 'barmensha':
 					end
 				end
 
-				act 'go with her.':gt 'LCporn', 'sex'
+				act 'Go with her.':gt 'LCporn', 'sex'
 			else
 				'"I seem to have a growing problem, <<$pcs_nickname>>. Could you help me out?"'
 				'When you nod, she continues: "How about you follow me to a back room, and we have some fun?"'