[fixed] willpower seeding, fifth batch + merged dinBoroda.qsrc with clener.qsrc

locations/Gnpc.qsrc

@@ -131,7 +131,7 @@ if boytimes[numnpc] > 0 and otnBoyFrend[numnpc] > 40:
 end
 'You approach <<$nameBoyfrend[numnpc]>> and greet him<<$bfGreeting>>.'
 
-act 'Apologize and leave':otnBoyFrend[numnpc] -= 5 & gt $loc, $metka
+act 'Apologize and leave': otnBoyFrend[numnpc] -= 5 & gt $loc, $metka
 
 act 'Take a walk through the park':
 	cla
@@ -178,12 +178,12 @@ act 'Take a walk through the park':
 	if gboyrand = 0:
 		'<<$nameBoyfrend[numnpc]>> offers to go to the movies.'
 
-		act 'Apologize and leave':otnBoyFrend[numnpc] -= 5 & gt $loc, $metka
+		act 'Apologize and leave': otnBoyFrend[numnpc] -= 5 & gt $loc, $metka
 		act 'Go to the cinema':gt 'Gnpc_cinema'
 	elseif gboyrand = 1:
 		'<<$nameBoyfrend[numnpc]>> suggests to drink some beers in the park.'
 
-		act 'Apologize and leave':otnBoyFrend[numnpc] -= 5 & gt $loc, $metka
+		act 'Apologize and leave': otnBoyFrend[numnpc] -= 5 & gt $loc, $metka
 
 		act 'Go for a beer':
 			cla
@@ -228,7 +228,6 @@ if preg = 1 and pregchem <= 1920 and npc_pregtalk[numnpc] = 0 and gnpcSex[numnpc
 
 			act 'Dump him and take the money':
 				cla
-				pcs_dom += 2
 				npc_pregtalk[numnpc] = 1
 				otnBoyFrend[numnpc] = 0
 				money += 5000
@@ -240,7 +239,6 @@ if preg = 1 and pregchem <= 1920 and npc_pregtalk[numnpc] = 0 and gnpcSex[numnpc
 
 			act 'Dump him and throw the money in his face':
 				cla
-				pcs_dom += 5
 				npc_pregtalk[numnpc] = 1
 				otnBoyFrend[numnpc] = 0
 				gs 'stat'
@@ -254,7 +252,6 @@ if preg = 1 and pregchem <= 1920 and npc_pregtalk[numnpc] = 0 and gnpcSex[numnpc
 
 			act 'Dump him':
 				cla
-				pcs_dom += 5
 				npc_pregtalk[numnpc] = 1
 				otnBoyFrend[numnpc] = 0
 				gs 'stat'
@@ -281,20 +278,24 @@ if GboyBalabol[numnpc] = 1:
 			'<<$nameBoyfrend[numnpc]>> grins, "Relax, <<$pcs_nickname>>. It''s a fact that you''re a <<$gnikname>>. So what?"'
 		end
 
-		act 'Break up with him':
-			cla
-			pcs_dom += 5
-			GboyBalabol[numnpc] = 2
-			otnBoyFrend[numnpc] = 0
-			gs 'stat'
-			'You furiously scream at him that you never want to see him again and storm off.'
+		gs 'willpower', 'misc', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Break up with him (<<will_cost>> Willpower)':
+				cla
+				gs 'willpower', 'pay', 'self'
+				GboyBalabol[numnpc] = 2
+				otnBoyFrend[numnpc] = 0
+				gs 'stat'
+				'You furiously scream at him that you never want to see him again and storm off.'
 
-			act 'Leave':gt $loc, $metka
+				act 'Leave': gt $loc, $metka
+			end
+		else
+			act 'Break up with 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 'Forgive him':
 			cla
-			sub += 5
 			GboyBalabol[numnpc] = 2
 			gs 'stat'
 			'You think about what he said. Because of the rumours, a lot of people have already a bad opinion about you and you don''t want to lose your <<$bfTitle[numnpc]>>, too. So you reluctantly decide to forgive him.'
@@ -304,50 +305,69 @@ if GboyBalabol[numnpc] = 1:
 	end
 end
 
-if sub < 20 and ((boytimes[numnpc] <= 4 and otnBoyFrend[numnpc] < 100) or (boytimes[numnpc] > 4 and otnBoyFrend[numnpc] < 120)):
+if (boytimes[numnpc] <= 4 and otnBoyFrend[numnpc] < 100) or (boytimes[numnpc] > 4 and otnBoyFrend[numnpc] < 120):
 	act 'End the relationship':
 		cla
 		*nl
 		'You think about how you could approach your <<$bfTitle[numnpc]>> with this delicate matter...'
 		*nl
 
-		if otnBoyFrend[numnpc] < 40 or pcs_dom > 10:
-			act 'Break up with him':
+		if otnBoyFrend[numnpc] < 40:
+			gs 'willpower', 'misc', 'self', 'easy'
+		else
+			gs 'willpower', 'misc', 'self'
+		end
+		if will_cost <= pcs_willpwr:
+			act 'Break up with him (<<will_cost>> Willpower)':
 				cla
-				pcs_dom += 5
+				if otnBoyFrend[numnpc] < 40:
+					gs 'willpower', 'misc', 'self', 'easy'
+				else
+					gs 'willpower', 'misc', 'self'
+				end
+				gs 'willpower', 'pay', 'self'
 				otnBoyFrend[numnpc] = 0
 				gs 'stat'
 				'You tell <<$nameBoyfrend[numnpc]>> that it would be better if you don''t see each other again and that he should''t call you anymore. He just stares at you, so you decide to quickly leave before he overcomes his state of shock.'
 
-				act 'Leave':gt $loc, $metka
+				act 'Leave': gt $loc, $metka
 			end
+		else
+			act 'Break up with him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 
 		if otnBoyFrend[numnpc] >= 40 and gnpcSex[numnpc] > 0:
-			act 'Just be friends':
-				cla
-				temprand = rand(0, 4)
-				sub -= 5
-				'You nervously approach <<$nameBoyfrend[numnpc]>>, "Listen, <<$nameBoyfrend[numnpc]>>, I really like you, but I''m not ready for an intimate relationship right now. I think we should forget what happened between us and just be friends, okay?"'
-
-				if boytimes[numnpc] > 4 and otnBoyFrend[numnpc] >= 80 and temprand = 0:
-					otnBoyFrend[numnpc] -= 40
-					gnpcSex[numnpc] = 0
-					gs 'stat'
-
-					'<<$nameBoyfrend[numnpc]>> looks totally dejected as you tell him the bad news. You really feel pity for him. When you finish your speech there''s a moment of painful silence.'
-					'Then <<$nameBoyfrend[numnpc]>> takes a deep breath, looks you in the eyes and says, "That''s really hard on me, <<$pcs_firstname>>. But I respect your feelings. I like you, too... very much in fact! That''s why I''m willing to be your friend, even if it means that we can''t be a couple."'
-					'Wow, you didn''t expect that! Still, you feel touched by his devotion and give him a bear hug, smiling from ear to ear. "Thank you, <<$nameBoyfrend[numnpc]>>! I''m so glad that you can understand me. I think we both need some time now to digest all that. Call me when you''re feeling better."'
-				else
-					otnBoyFrend[numnpc] = 0
-					gs 'stat'
-
-					'<<$nameBoyfrend[numnpc]>> narrows his eyes, "Just friends, huh? That''s a pretty lame excuse, <<$pcs_firstname>>, you know that? If you want to break up with me then why don''t you say so!"'
-					'You try to explain to him, "No, that''s not what I mean, <<$nameBoyfrend[numnpc]>>! I really like you..."'
-					'"You know what? You can stuff your friendship! I''m outta here!", with these words he storms off.'
+			gs 'willpower', 'misc', 'self', 'easy'
+			if will_cost <= pcs_willpwr:
+				act 'Just be friends (<<will_cost>> Willpower)':
+					cla
+					gs 'willpower', 'misc', 'self', 'easy'
+					gs 'willpower', 'pay', 'self'
+					temprand = rand(0, 4)
+					'You nervously approach <<$nameBoyfrend[numnpc]>>, "Listen, <<$nameBoyfrend[numnpc]>>, I really like you, but I''m not ready for an intimate relationship right now. I think we should forget what happened between us and just be friends, okay?"'
+
+					if boytimes[numnpc] > 4 and otnBoyFrend[numnpc] >= 80 and temprand = 0:
+						otnBoyFrend[numnpc] -= 40
+						gnpcSex[numnpc] = 0
+						gs 'stat'
+
+						'<<$nameBoyfrend[numnpc]>> looks totally dejected as you tell him the bad news. You really feel pity for him. When you finish your speech there''s a moment of painful silence.'
+						'Then <<$nameBoyfrend[numnpc]>> takes a deep breath, looks you in the eyes and says, "That''s really hard on me, <<$pcs_firstname>>. But I respect your feelings. I like you, too... very much in fact! That''s why I''m willing to be your friend, even if it means that we can''t be a couple."'
+						'Wow, you didn''t expect that! Still, you feel touched by his devotion and give him a bear hug, smiling from ear to ear. "Thank you, <<$nameBoyfrend[numnpc]>>! I''m so glad that you can understand me. I think we both need some time now to digest all that. Call me when you''re feeling better."'
+					else
+						otnBoyFrend[numnpc] = 0
+						pcs_mood -= 10
+						gs 'stat'
+
+						'<<$nameBoyfrend[numnpc]>> narrows his eyes, "Just friends, huh? That''s a pretty lame excuse, <<$pcs_firstname>>, you know that? If you want to break up with me then why don''t you say so!"'
+						'You try to explain to him, "No, that''s not what I mean, <<$nameBoyfrend[numnpc]>>! I really like you..."'
+						'"You know what? You can stuff your friendship! I''m outta here!", with these words he storms off.'
+					end
+
+					act 'Leave':gt $loc, $metka
 				end
-
-				act 'Leave':gt $loc, $metka
+			else
+				act 'Just be friends (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
 		end
 

locations/Gnpc_cinema.qsrc

@@ -20,19 +20,24 @@ act 'Watch the movie':
 	if otnBoyFrend[numnpc] < 80:
 		'You watched the movie a couple of hours sitting in a chair next to the guy.'
 
-		act 'Go to the exit':gt 'Gnpc2'
+		act 'Go to the exit': gt 'Gnpc2'
 	elseif otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc] = 0:
 		'You have been watching a movie and suddenly felt a hand on my knee Man.'
 
-		act 'Remove his hands':
-			cls
-			pcs_dom += 1
-			otnBoyFrend[numnpc] -= 20
-			gs 'stat'
-			'You have removed palm guy with his knees and continued to watch the movie. Movie finally ended. In the hall lights went on and the screen went titles.'
-
-			act 'Go to the exit':gt 'Gnpc2'
-		end
+		gs 'willpower', 'misc', 'self', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Remove his hands (<<will_cost>> Willpower)':
+				cls
+				gs 'willpower', 'pay', 'self'
+				otnBoyFrend[numnpc] -= 20
+				gs 'stat'
+				'You have removed palm guy with his knees and continued to watch the movie. Movie finally ended. In the hall lights went on and the screen went titles.'
+
+				act 'Go to the exit': gt 'Gnpc2'
+			end
+		else
+			act 'Remove his hands (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end	
 
 		act 'Ignore':
 			cls
@@ -40,12 +45,12 @@ act 'Watch the movie':
 			gs 'stat'
 			'You pretended that nothing happens and the guy started more actively stroking your leg. Movie finally ended. In the hall lights went on and the screen went titles.'
 
-			act 'Go to the exit':gt 'Gnpc2'
+			act 'Go to the exit': gt 'Gnpc2'
 		end
 	elseif otnBoyFrend[numnpc] >= 80 and gnpcSex[numnpc] > 0:
 		'You have been watching the movies, and <<$nameBoyfrend[numnpc]>> put his hand on your foot and began to stroke your knee. Movie finally ended. In the hall lights went on and the screen went titles.'
 
-		act 'Go to the exit':gt 'Gnpc2'
+		act 'Go to the exit': gt 'Gnpc2'
 	end
 end
 

locations/brother.qsrc

@@ -1252,10 +1252,7 @@ if $ARGS[0] = 'brother_voyeur_ev6':
 
 		gs 'willpower', 'exhib', 'resist', 'easy'
 		if will_cost <= pcs_willpwr:
-			act 'Refuse and get dressed (<<will_cost>> Willpower)':
-				gs 'willpower', 'pay', 'resist'
-				gt $loc, $metka
-				end
+			act 'Refuse and get dressed (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt $loc, $metka
 		else
 			act 'Refuse and get dressed (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
@@ -1267,10 +1264,7 @@ if $ARGS[0] = 'brother_voyeur_ev6':
 
 		gs 'willpower', 'exhib', 'resist', 'easy'
 		if will_cost <= pcs_willpwr:
-			act 'Refuse and get dressed (<<will_cost>> Willpower)':
-				gs 'willpower', 'pay', 'resist'
-				gt $loc, $metka
-				end
+			act 'Refuse and get dressed (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt $loc, $metka
 		else
 			act 'Refuse and get dressed (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
@@ -1351,10 +1345,7 @@ if $ARGS[0] = 'brother_voyeur_ev7':
 
 			gs 'willpower', 'exhib', 'resist', 'easy'
 			if will_cost <= pcs_willpwr:
-				act 'Refuse and get dressed (<<will_cost>> Willpower)':
-					gs 'willpower', 'pay', 'resist'
-					gt $loc, $metka
-					end
+				act 'Refuse and get dressed (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt $loc, $metka
 			else
 				act 'Refuse and get dressed (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end

locations/clener.qsrc

@@ -28,11 +28,11 @@ if $ARGS[0] = 'start':
 		act 'Talk to Yuri':
 			cla
 			menu_off = 1
-			minut += 15
+			minut += 5
 			gs 'stat'
 			'Still smiling he says, "<<$pcs_nickname>>, want to grab a cup of coffee?"'
 
-			act 'Decline':jouryQwNo = 1 & gt 'clener', 'start'
+			act 'Decline': jouryQwNo = 1 & gt 'clener', 'start'
 
 			act 'Accept':
 				*clr & cla
@@ -41,9 +41,9 @@ if $ARGS[0] = 'start':
 				'You nod and the two of you head off to the café, where Yuri orders coffee. You sit down at the table and begin to sip on your coffee. Yuri is painfully quiet, he has no sense of humor and is very stiff.'
 				'It''s pretty clear that he likes you, but he does not know how to put a move on you. As you finish the coffee Yuri finally suggests if you want to follow him to his home.'
 
-				act 'No':jouryQwNo = 1 & gt 'clener', 'start'
+				act 'No': jouryQwNo = 1 & gt 'clener', 'start'
 
-				act 'Go with Yuri':gt 'youry', 'quest'
+				act 'Go with Yuri': gt 'youry', 'quest'
 			end
 		end
 	end
@@ -71,50 +71,51 @@ if $ARGS[0] = 'start':
 
 					act 'Have a drink':
 						cla
-						if pcs_hydra >= 100:
-							pcs_hydra -= 5
-						else
-							pcs_hydra -= 10
-						end
+						gs 'drugs', 'alcohol', 'vodka'
+						pcs_energy += 10
+						fat += 2
+						gs 'stat'
 						'You drink the shitty vodka and it burns your throat. Your throat is on fire and you quickly grab some cheese to help soothe it. Sasha casually downs the glass and doesn''t even blink. "Ah, good one."'
 						'While you are leaning over to eat the sausage, you feel a light touch as the guard pats you on the buttocks.'
 
 						act 'Smile':
 							cla
-							minut += 15
+							minut += 10
 							pcs_horny += 10
-							if pcs_hydra >= 100:
-								pcs_hydra -= 5
-							else
-								pcs_hydra -= 10
-							end
+							gs 'drugs', 'alcohol', 'vodka'
 							gs 'stat'
 							'You smile and Sasha pours more vodka, not stopping his caressing of your buttocks.'
 
-							if pcs_horny < 50:dynamic $borodachNo2
+							if pcs_horny < 50: gs 'clener', 'borodachNo2'
 
-							dynamic $borodachDrink
+							gs 'clener', 'borodachDrink'
 						end
 
-						act 'Put your hand on his pants':
-							*clr & cla
-							borodachTimes += 1
-							gs 'stat'
-
-							picrand = rand(0, 2)
-
-							if picrand = 0:'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/hj.jpg"></center>'
-							if picrand = 1:'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/hj1.jpg"></center>'
-							if picrand = 2:'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/hj2.jpg"></center>'
-
-							'You put your hand on his crotch and feel his erection harden. Your thin fingers slide over his hardon and find the zipper. You unzip him and get his cock out of his pants. Sasha relaxes on the couch waiting for you to continue what you started.'
-							
-							gs 'arousal', 'foreplay', 15
-							gs 'stat'
-							
-							
-							dynamic $ohrhj
-							dynamic $ohrbj
+						gs 'willpower', 'hj', 'self'
+						if will_cost <= pcs_willpwr:
+							act 'Put your hand on his pants (<<will_cost>> Willpower)':
+								*clr & cla
+								gs 'willpower', 'pay', 'self'
+								borodachTimes += 1
+								gs 'stat'
+
+								picrand = rand(0, 2)
+
+								if picrand = 0:'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/hj.jpg"></center>'
+								if picrand = 1:'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/hj1.jpg"></center>'
+								if picrand = 2:'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/hj2.jpg"></center>'
+
+								'You put your hand on his crotch and feel his erection harden. Your thin fingers slide over his hardon and find the zipper. You unzip him and get his cock out of his pants. Sasha relaxes on the couch waiting for you to continue what you started.'
+								
+								gs 'arousal', 'foreplay', 5
+								gs 'stat'
+								
+								
+								gs 'clener', 'ohrhj'
+								gs 'clener', 'ohrbj'
+							end
+						else
+							act 'Put your hand on his pants (<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
@@ -146,9 +147,14 @@ if $ARGS[0] = 'start':
 				'You nod, "Yes, the pay is pretty bad but I need the job..."'
 				'"By the way, I''m Sasha, and you''re?"'
 				'"<<$pcs_nickname>>." you politely answer.'
-				'"Nice name... I was just thinking about heading on a break, would you like to join me?"'
+				'"Nice name... I was just thinking about heading on a break, would you like to join me for a drink?"'
 
-				act 'Sorry, I have to go':gt 'clener', 'start'
+				gs 'willpower', 'drink', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'Sorry, I have to go (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'clener', 'start'
+				else
+					act 'Sorry, I have to 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 'Why not':
 					cla
@@ -158,40 +164,40 @@ if $ARGS[0] = 'start':
 
 					act 'Have a drink':
 						cla
-						if pcs_hydra >= 100:
-							pcs_hydra -= 5
-						else
-							pcs_hydra -= 10
-						end
+						gs 'drugs', 'alcohol', 'vodka'
+						pcs_energy += 10
+						fat += 2
+						gs 'stat'
 						'You drink the shitty vodka and it burns your throat. Your throat is on fire and you quickly grab some cheese to help soothe it. Sasha casually downs the glass and doesn''t even blink. "Ah, good one."'
 						'While you are leaning over to eat the sausage, you feel a light touch as the guard pats you on the buttocks.'
 
-						act 'React':
-							cla
-							minut += 15
-							pcs_horny += 10
-							gs 'stat'
-							'"Hey! What are you doing?" you ask.'
-							'"Relax, it was merely an accident." Sasha starts muttering as he pours another shot, "Let''s have a drink."'
+						gs 'willpower', 'misc', 'self'
+						if will_cost <= pcs_willpwr:
+							act 'React (<<will_cost>> Willpower)':
+								cla
+								gs 'willpower', 'pay', 'self'
+								minut += 10
+								pcs_horny += 10
+								gs 'stat'
+								'"Hey! What are you doing?" you ask.'
+								'"Relax, it was merely an accident." Sasha starts muttering as he pours another shot, "Let''s have a drink."'
 
-							if pcs_horny < 50:dynamic $borodachNo
+								if pcs_horny < 50: gs 'clener', 'borodachNo'
 
-							dynamic $borodachDrink
+								gs 'clener', 'borodachDrink'
+							end
+						else
+							act 'React (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 						end
 
 						act 'Pretend not to notice':
 							cla
-							if pcs_hydra >= 100:
-								pcs_hydra -= 5
-							else
-								pcs_hydra -= 10
-							end
-							minut += 15
-							pcs_horny += 15 + SUB
+							minut += 10
+							pcs_horny += 15
 							gs 'stat'
 							'You continue on as usual, trying not to pay attention to it, since it was only a casual touch. Sasha pours more vodka and says, "The second shot always tastes better." as he takes another quaff.'
-							if pcs_horny < 50:dynamic $borodachNo
-							dynamic $borodachDrink
+							if pcs_horny < 50: gs 'clener', 'borodachNo'
+							gs 'clener', 'borodachDrink'
 						end
 					end
 				end
@@ -230,7 +236,7 @@ if $ARGS[0] = 'start':
 				clener = 2
 				'You agree to work as a cleaner.'
 
-				act 'Leave':gt 'clener', 'start'
+				act 'Leave': gt 'clener', 'start'
 			end
 		end
 	end
@@ -248,7 +254,7 @@ if $ARGS[0] = 'start':
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener1.jpg"></center>'
 
 			if clener < 5:
-				if hour >= 9 and hour <= 16:'You fill a bucket of water and head over to the office with a mop. The office staff keeps out of the way while you clean the floor.'
+				if hour >= 9 and hour <= 16: 'You fill a bucket of water and head over to the office with a mop. The office staff keeps out of the way while you clean the floor.'
 			elseif clener >= 5 and clener < 10:
 				if hour >= 9 and hour <= 16:
 					jouryQw += 1
@@ -268,10 +274,10 @@ if $ARGS[0] = 'start':
 					act 'No':
 						cla
 						jouryQwNo = 1
-						'You look angerly at him, "No, I don''t mix business with pleasure..." Yuri looks dejected as he moves away from you.'
+						'You look angrily at him, "No, I don''t mix business with pleasure..." Yuri looks dejected as he moves away from you.'
 						'As you''ve finished, you head over to Boris Ivanovich''s office. He gives you 65 <b>₽</b> for the work.'
 
-						act 'Leave':gt 'clener', 'start'
+						act 'Leave': gt 'clener', 'start'
 					end
 
 					act 'Yes':
@@ -282,19 +288,19 @@ if $ARGS[0] = 'start':
 						'As you''ve finished, you head over to Boris Ivanovich''s office. He gives you 65 <b>₽</b> for the work.'
 						'As you leave, you notice Yuri awiting you. He''s pretty nervous and it seems as if he doesn''t know what to do. Not knowing what to say, he blurts out, "How about we head over to my place, watch some movies, drink champagne and talk."'
 
-						act 'No':jouryQwNo = 1 & gt 'clener', 'start'
+						act 'No': jouryQwNo = 1 & gt 'clener', 'start'
 
-						act 'Go with Yuri':gt 'youry', 'quest'
+						act 'Go with Yuri': gt 'youry', 'quest'
 					end
 
 					exit
 				end
 
-				if jouryQw > 7 and hour >= 9 and hour <= 16 and jourySex = 0:'You fill a bucket of water and head over to the office with a mop. The office staff keeps out of the way while you clean the floor. Yuri looks at you studying every inch of your figure.'
-				if jouryQw > 7 and hour >= 9 and hour <= 16 and jourySex > 0:'You fill a bucket of water and head over to the office with a mop. The office staff keeps out of the way while you clean the floor. Yuri pretends not to notice you in the office.'
+				if jouryQw > 7 and hour >= 9 and hour <= 16 and jourySex = 0: 'You fill a bucket of water and head over to the office with a mop. The office staff keeps out of the way while you clean the floor. Yuri looks at you studying every inch of your figure.'
+				if jouryQw > 7 and hour >= 9 and hour <= 16 and jourySex > 0: 'You fill a bucket of water and head over to the office with a mop. The office staff keeps out of the way while you clean the floor. Yuri pretends not to notice you in the office.'
 			end
 
-			if hour < 9 or hour > 16:'The office is empty of people, you quietly wash the floor and wipe the floor in the office.'
+			if hour < 9 or hour > 16: 'The office is empty of people, you quietly wash the floor and wipe the floor in the office.'
 
 			'As you''ve finished, you head over to Boris Ivanovich''s office. He gives you 65 <b>₽</b> for the work.'
 
@@ -322,19 +328,23 @@ if $ARGS[0] = 'start':
 					'You let go off your cleaning stuff and look straight into Yuri''s eyes, asking him, "Are you ashamed of me?"'
 					'Yuri stammers, "I-I''m not embarrassed by you being a cleaner, but you must understand, I''m a manager, and you''re the cleaning lady. We must not be seen together. But I want you to keep seeing you. You know where I live, come by my place after 16:00."'
 
-					act 'Fuck you':
-						cla
-						pcs_dom += 1
-						jouryResult = 1
-						'You''re offended by his behaviour and without any hesitation you tell Yuri to go to hell. He quickly turns and walks away.'
-						'You continue on by mopping the floor and polish the toilets and urinals. You are given 65 <b>₽</b> for your work.'
+					gs 'willpower', 'misc', 'self'
+					if will_cost <= pcs_willpwr:
+						act 'Fuck you (<<will_cost>> Willpower)':
+							cla
+							gs 'willpower', 'pay', 'self'
+							jouryResult = 1
+							'You''re offended by his behaviour and without any hesitation you tell Yuri to go to hell. He quickly turns and walks away.'
+							'You continue on by mopping the floor and polish the toilets and urinals. You are given 65 <b>₽</b> for your work.'
 
-						act 'Leave':gt 'clener', 'start'
+							act 'Leave':gt 'clener', 'start'
+						end
+					else
+						act 'Fuck you (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 					end
 
 					act 'Okay.':
 						cla
-						sub += 1
 						jouryResult = 10
 						'Yuri only sees you as a simple fuck whore. But you''re willing to put up with it and agree to visit him afterwards. Yuri nods in satisfaction and leaves the toilet.'
 						'You continue on by mopping the floor and polish the toilets and urinals. You are given 65 <b>₽</b> for your work.'
@@ -388,5 +398,198 @@ if $ARGS[0] = 'start':
 	end
 end
 
+if $ARGS[0] = 'borodachNo':
+	menu_off = 1
+	act 'I''ve had enough':
+		cla
+		minut += 5
+		gs 'stat'
+		'You refuse to drink and start to leave. The guard tries to persuade you to stay with him and continue.'
+
+		gs 'willpower', 'drink', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'clener', 'start'
+		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
+		gs 'clener', 'borodachDrink'
+	end
+end
+
+if $ARGS[0] = 'borodachNo2':
+	menu_off = 1
+	act 'I have to go now':
+		cla
+		minut += 5
+		gs 'stat'
+		'You gather your things and start to leave, Sasha tries to persuade you to stay with him and continue.'
+
+		gs 'willpower', 'sex', 'resist', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'clener', 'start'
+		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
+		gs 'clener', 'borodachSex'
+	end
+end
+
+if $ARGS[0] = 'borodachDrink':
+	menu_off = 1
+	act 'Another drink':
+		cla
+		minut += 15
+		pcs_horny += 20
+		gs 'stat'
+		'You drink and eat some more cheese, you realize that you are happily drunk. The guard''s hand does not stop caressing your ass.'
+		gs 'clener', 'borodachNo2'
+		gs 'clener', 'borodachSex'
+	end
+end
+
+if $ARGS[0] = 'borodachSex':
+	menu_off = 1
+	act 'Relax':
+		cla
+
+		if borodachSex = 0:borodachSex = 1 & guy += 1
+		'You calm down and begin to enjoy the hands caressing you. Sasha has openly embraced and started kissing you.'
+		'His hands slide under your clothes, unbuttoning and removing them. Soon he has exposed your chest and begins to suck your nipples.'
+
+		gs 'arousal', 'foreplay', 5 
+		gs 'stat'
+		
+		act 'Lie down on the sofa':
+			*clr & cla
+			gs 'stat'
+			borodachSexDay = daystart
+			pose = 0
+			gs 'boyStat', 'A39'
+			'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
+			'<<$boydesc>> lays you on the sofa, spreads your legs and pulls out his <<dick>> cm dick, his fingers begin to caress your pussy, preparing it for entry.'
+			
+			gs 'arousal', 'vaginal_finger', 5
+			gs 'arousal', 'vaginal', 15
+			gs 'stat'
+			
+			gs 'orgazm', 'start'
+
+			act 'Leave':gt 'street'
+		end
+	end
+end
+
+if $ARGS[0] = 'ohrhj':
+	menu_off = 1
+	act 'Masturbate him':
+		cla
+		'You start stroking his cock with your delicate hands. Quickly Sasha groans, "I can''t hold on much longer."'
+		
+		gs 'arousal', 'hj', 5, 'dom'
+		gs 'stat'
+		
+		gs 'clener', 'ohrbj'
+		gs 'clener', 'ohrhjcum'
+		gs 'clener', 'ohrsex'
+	end
+end
+
+if $ARGS[0] = 'ohrhjcum':
+	menu_off = 1
+	act 'Masturbate him more':
+		*clr & cla
+		borodachSexDay = daystart
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/hjcum.jpg"></center>'
+		'Sasha groans and his cock enthusiastically paints your hand white.'
+
+		gs 'arousal', 'hj', 5, 'dom'
+		gs 'stat'
+		
+		act 'Leave':gt 'street'
+	end
+end
+
+if $ARGS[0] = 'ohrbj':
+	menu_off = 1
+	act 'Suck him':
+		*clr & cla
+		picrand = rand(1, 4)
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/bj<<picrand>>.jpg"></center>'
+
+		'You wrap your <<$liptalk>> around his strong and warm 15 cm cock and quickly begin by sucking the head, caressing it with your tongue and lips. Sasha groans, "I''m going to come."'
+		
+		gs 'arousal', 'bj', 5, 'sub'
+		gs 'stat'
+		
+		gs 'clener', 'ohrbjcum'
+		gs 'clener', 'ohrsex'
+	end
+end
+
+if $ARGS[0] = 'ohrbjcum':
+	menu_off = 1
+	act 'Suck harder':
+		*clr & cla
+		spafinloc = 12
+		gs 'cum_manage'
+		gs 'stat'
+		picrand = rand(1, 4)
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/bjcum<<picrand>>.jpg"></center>'
+		'You redouble your efforts, sucking his hard cock with your <<$liptalk>>. Hot sperm hits your mouth, again and again. You continue to suck, ignoring your mouth full of viscous sperm. Until he finally nothing left.'
+		
+		gs 'arousal', 'bj', 5, 'sub'
+		gs 'stat'
+
+		act 'Swallow sperm':
+			*clr & cla
+			borodachSexDay = daystart
+			gs 'stat'
+			picrand = rand(1, 3)
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/swallow<<picrand>>.jpg"></center>'
+			'You open your sperm filled mouth and show off your hard work, then swallow it.'
+
+			gs 'arousal', 'bj', 1, 'sub'
+			gs 'arousal', 'end'
+			gs 'stat'
+		
+			act 'Leave':gt 'street'
+		end
+
+		act 'Spit it out':
+			*clr & cla
+			borodachSexDay = daystart
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/spit.jpg"></center>'
+			'You open your sperm filled mouth and show off your hard work, then quickly find the sink and spit it out.'
+
+			gs 'arousal', 'bj', 1, 'sub'
+			gs 'arousal', 'end'
+			gs 'stat'
+			
+			act 'Leave':gt 'street'
+		end
+	end
+end
+
+if $ARGS[0] = 'ohrsex':
+	menu_off = 1
+	act 'Sex':
+		*clr & cla
+		gs 'stat'
+		borodachSexDay = daystart
+		pose = 0
+		gs 'boyStat', 'A39'
+		'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
+		'<<$boydesc>> lays you on the sofa, spreads your legs and pulls out his <<dick>> centimeter dick. His fingers begin to caress your pussy, preparing it for entry.'
+
+		gs 'arousal', 'vaginal_finger', 5
+		gs 'arousal', 'vaginal', 15, 'sub'
+		gs 'arousal', 'end'
+		gs 'stat'
+			
+		act 'Leave':gt 'street'
+	end
+end
 --- clener ---------------------------------
 

locations/dinBoroda.qsrc

@@ -1,187 +0,0 @@
-# dinBoroda
-$borodachNo = {
-	menu_off = 1
-	act 'I''ve had enough':
-		cla
-		minut += 15
-		gs 'stat'
-		'You refuse to drink and start to leave. The guard tries to persuade you to stay with him and continue.'
-
-		if SUB < 10:act 'Leave':pcs_dom += 1 & gt 'clener', 'start'
-		dynamic $borodachDrink
-	end
-}
-
-$borodachNo2 = {
-	menu_off = 1
-	act 'I have to go now':
-		cla
-		minut += 15
-		gs 'stat'
-		'You gather your things and start to leave, Sasha tries to persuade you to stay with him and continue.'
-
-		if pcs_dom > 0 and pcs_horny < 50:act 'Leave':pcs_dom += 1 & gt 'clener', 'start'
-		dynamic $borodachSex
-	end
-}
-$borodachDrink = {
-	menu_off = 1
-	act 'Another drink':
-		cla
-		minut += 15
-		pcs_horny += 20
-		gs 'stat'
-		'You drink and eat some more cheese, you realize that you are happily drunk. The guard''s hand does not stop caressing your ass.'
-		dynamic $borodachNo2
-		dynamic $borodachSex
-	end
-}
-
-$borodachSex = {
-	menu_off = 1
-	act 'Relax':
-		cla
-
-		if borodachSex = 0:borodachSex = 1 & guy += 1
-		'You calm down and begin to enjoy the hands caressing you. Sasha has openly embraced and started kissing you.'
-		'His hands slide under your clothes, unbuttoning and removing them. Soon he has exposed your chest and begins to suck your nipples.'
-
-		gs 'arousal', 'foreplay', 5 
-		gs 'stat'
-		
-		act 'Lie down on the sofa':
-			*clr & cla
-			gs 'stat'
-			borodachSexDay = daystart
-			pose = 0
-			gs 'boyStat', 'A39'
-			'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
-			'<<$boydesc>> lays you on the sofa, spreads your legs and pulls out his <<dick>> cm dick, his fingers begin to caress your pussy, preparing it for entry.'
-			
-			gs 'arousal', 'vaginal_finger', 5
-			gs 'arousal', 'vaginal', 25
-			gs 'stat'
-			
-			gs 'orgazm', 'start'
-
-			act 'Leave':gt 'street'
-		end
-	end
-}
-
-$ohrhj = {
-	menu_off = 1
-	act 'Masturbate him':
-		cla
-		'You start stroking his cock with your delicate hands. Quickly Sasha groans, "I can''t hold on much longer."'
-		
-		gs 'arousal', 'hj', 15, 'dom'
-		gs 'stat'
-		
-		dynamic $ohrbj
-		dynamic $ohrhjcum
-		dynamic $ohrsex
-	end
-}
-
-$ohrhjcum = {
-	menu_off = 1
-	act 'Masturbate him more':
-		*clr & cla
-		borodachSexDay = daystart
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/hjcum.jpg"></center>'
-		'Sasha groans and his cock enthusiastically paints your hand white.'
-
-		gs 'arousal', 'hj', 15, 'dom'
-		gs 'stat'
-		
-		act 'Leave':gt 'street'
-	end
-}
-
-$ohrbj = {
-	menu_off = 1
-	act 'Suck him':
-		*clr & cla
-		picrand = rand(1, 4)
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/bj<<picrand>>.jpg"></center>'
-
-		'You wrap your <<$liptalk>> around his strong and warm 15 cm cock and quickly begin by sucking the head, caressing it with your tongue and lips. Sasha groans, "I''m going to come."'
-		
-		gs 'arousal', 'bj', 15, 'sub'
-		gs 'stat'
-		
-		dynamic $ohrbjcum
-		dynamic $ohrsex
-	end
-}
-
-$ohrbjcum = {
-	menu_off = 1
-	act 'Suck harder':
-		*clr & cla
-		spafinloc = 12
-		gs 'cum_manage'
-		gs 'stat'
-		picrand = rand(1, 4)
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/bjcum<<picrand>>.jpg"></center>'
-		'You redouble your efforts, sucking his hard cock with your <<$liptalk>>. Hot sperm hits your mouth, again and again. You continue to suck, ignoring your mouth full of viscous sperm. Until he finally nothing left.'
-		
-		gs 'arousal', 'bj', 15, 'sub'
-		gs 'stat'
-
-		act 'Swallow sperm':
-			*clr & cla
-			borodachSexDay = daystart
-			gs 'stat'
-			picrand = rand(1, 3)
-			'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/swallow<<picrand>>.jpg"></center>'
-			'You open your sperm filled mouth and show off your hard work, then swallow it.'
-
-			gs 'arousal', 'bj', 15, 'sub'
-			gs 'arousal', 'end'
-			gs 'stat'
-		
-			act 'Leave':gt 'street'
-		end
-
-		act 'Spit it out':
-			*clr & cla
-			borodachSexDay = daystart
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/spit.jpg"></center>'
-			'You open your sperm filled mouth and show off your hard work, then quickly find the sink and spit it out.'
-
-			gs 'arousal', 'bj', 15, 'sub'
-			gs 'arousal', 'end'
-			gs 'stat'
-			
-			act 'Leave':gt 'street'
-		end
-	end
-}
-
-$ohrsex = {
-	menu_off = 1
-	act 'Sex':
-		*clr & cla
-		gs 'stat'
-		borodachSexDay = daystart
-		pose = 0
-		gs 'boyStat', 'A39'
-		'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
-		'<<$boydesc>> lays you on the sofa, spreads your legs and pulls out his <<dick>> centimeter dick. His fingers begin to caress your pussy, preparing it for entry.'
-
-		gs 'arousal', 'vaginal', 30, 'sub'
-		gs 'arousal', 'end'
-		gs 'stat'
-			
-		act 'Leave':gt 'street'
-	end
-}
-
-rikudootvet = 1415
-
---- dinBoroda ---------------------------------
-

locations/gLakeNude.qsrc

@@ -8,9 +8,9 @@ $menu_arg = ''
 $locclass = 'beach'
 menu_off = 0
 *clr & cla
-gs'stat'
+gs 'stat'
 !!check to make sure I did the sound call correct
-if sound = 0:PLAY 'sound/lakeshore2.mp3',20
+if sound = 0: PLAY 'sound/lakeshore2.mp3',20
 '<center><H4>Secluded beach</H4></center>'
 if month >= 3 and month <= 5:
 	if hour >= 6 and hour <= 17:
@@ -58,10 +58,10 @@ act'Leave the secluded beach<<$tmp_lakenude_leave>>':
 	if $clothingworntype ! 'nude' or ($clothingworntype = 'nude' and pcs_inhib >= 60):
 		cla
 		minut += 10
-		gt'glake'
+		gt 'glake'
 	else
 		msg '<center>You are not willing to show off your naked body on the main beach, what would people say?</center>'
-		gt'gLakeNude'
+		gt 'gLakeNude'
 	end
 end
 killvar '$tmp_lakenude_leave'
@@ -76,43 +76,49 @@ if month >= 5 and month <= 9:
 	end
 		
 	if $clothingworntype ! 'nude' and (pcs_inhib > 30 or (exhibitionist_lvl > 1 and pcs_horny >= 60)):
-		act'Take off your clothes':
-			menu_off = 1
-			if pcs_inhib > 30:
-				*clr & cla
-				minut+=5
-				inhib_exp += rand(1,3)
-				gs 'clothing', 'strip'
-				gs 'underwear', 'remove'
-				if pcs_horny >= 80 and exhibitionist_lvl > 1:
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants3.jpg"></center>'
-					'You strip off. A couple of passing men do a double-take and pause a moment to look at your sopping wet panties, probably thinking about what is making you so excited. You don''t care about what they might say or think of you.'
-				elseif pcs_inhib >= 60:
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
-					'Not caring if anyone is looking at you, you slowly take off your clothes. You peel off each item like a stripper. Soon, you are completely naked.'
-				elseif pcs_inhib < 60:
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
-					'You quickly check to see if anyone is watching, and when you''re satisfied no one is paying you undue attention, you take off your clothes. You''re naked now.'
+		gs 'willpower', 'exhib', 'self', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Take off your clothes (<<will_cost>> Willpower)':
+				gs 'willpower', 'exhib', 'self', 'easy'
+				gs 'willpower', 'pay', 'self'
+				menu_off = 1
+				if pcs_inhib > 30:
+					*clr & cla
+					minut += 5
+					inhib_exp += rand(1,3)
+					gs 'clothing', 'strip'
+					gs 'underwear', 'remove'
+					if pcs_horny >= 80 and exhibitionist_lvl > 1:
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants3.jpg"></center>'
+						'You strip off. A couple of passing men do a double-take and pause a moment to look at your sopping wet panties, probably thinking about what is making you so excited. You don''t care about what they might say or think of you.'
+					elseif pcs_inhib >= 60:
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
+						'Not caring if anyone is looking at you, you slowly take off your clothes. You peel off each item like a stripper. Soon, you are completely naked.'
+					elseif pcs_inhib < 60:
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
+						'You quickly check to see if anyone is watching, and when you''re satisfied no one is paying you undue attention, you take off your clothes. You''re naked now.'
+					end
+				else
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/shyness.jpg"></center>'
+					'Even though no one is around, you don''t feel confident enough to actually take your clothes off. What if someone would see you nude?'
 				end
-			else
-				*clr & cla
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/shyness.jpg"></center>'
-				'Even though no one is around, you don''t feel confident enough to actually take your clothes off. What if someone would see you nude?'
+				act 'Continue': gt 'gLakeNude'
 			end
-			act'Continue':gt'gLakeNude'
+		else
+			act 'Take off your clothes (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	elseif $clothingworntype = 'nude':
-		act'Put your clothes back on':
+		act 'Put your clothes back on':
 			*clr & cla
 			menu_off = 1
-			minut+=5
+			minut += 5
 			gs 'clothing', 'wear_last_worn'
 			gs 'underwear', 'wear'
 			nudelake = rand(1,10)
 			if nudelake <= 2:
 				minut += 5
 				pcs_mood -= 5
-				pcs_willpwr -= 5
 				gs 'exhibitionism', 4
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/noclothes.jpg"></center>'
@@ -120,7 +126,7 @@ if month >= 5 and month <= 9:
 				act 'Run home naked': gt 'glake', 'nude_home'
 			else
 				'You return to the place where you left your clothes, and put them back on.'
-				act'Continue': gt 'gLakeNude'
+				act 'Continue': gt 'gLakeNude'
 			end
 		end
 	end
@@ -133,9 +139,8 @@ if temper >= 15 and month >= 5 and month <= 9:
 		*clr & cla
 		menu_off = 1
 		minut += 30
-		pcs_willpwr += 5
 		pcs_mood += 5
-		gs'stat'
+		gs 'stat'
 
 		if $clothingworntype = 'swimwear' and pcs_hips<=90:
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini0,'+rand(0,3)+'.jpg"></center>'
@@ -156,7 +161,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 	end
 	
 	if hour >= 6 and hour <= 20 and ($clothingworntype = 'swimwear' or $clothingworntype = 'nude'):
-		act'Go swimming (30 minutes)':
+		act 'Go swimming (30 minutes)':
 			menu_off = 1
 			*clr & cla
 			cumspclnt = 4
@@ -182,12 +187,12 @@ if temper >= 15 and month >= 5 and month <= 9:
 			'You play around and have fun in the lake, enjoying the feel of the warm water on your naked body. The clean lake water refreshes and invigorates you.'
 			if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
 
-			act 'Get out of the water':gt'gLakeNude'
+			act 'Get out of the water': gt 'gLakeNude'
 		end
 	end
 	
 	if sunWeather = 1 and hour >= 6 and hour <= 20  and ($clothingworntype = 'swimwear' or $clothingworntype = 'nude'):
-		act'Go sunbathing (30 minutes)':
+		act 'Go sunbathing (30 minutes)':
 			menu_off = 1
 			if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
 				*clr & cla
@@ -209,76 +214,90 @@ if temper >= 15 and month >= 5 and month <= 9:
 					pcs_tan = pcs_tan + 3
 					'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun on your body.'
 				end
-				act 'Continue':gt'gLakeNude'
+				act 'Continue': gt 'gLakeNude'
 			else
 				cla
 				'You have to take off your clothes before you can lay down to sunbath.'
-				act'Continue':gt'gLakeNude'
+				act 'Continue': gt 'gLakeNude'
 			end
 		end
 	end
 	
 	if voyeurism_start = 0:
-		act'Look around the beach':
+		act 'Look around the beach':
 			*clr & cla
 			menu_off = 1
-			minut += 5
 			voyeurism_start_view = rand(1,3)
 			gs 'stat'
 			if voyeurism_start_view <= 2:
+				minut += 5
 				'<center><img <<$set_imgh>> src="images/locations/shared/lake/lake_beach1.jpg"></center>'
 				'You look around, but see nothing interesting. Just a few others in swimwear or relaxing on the beach.'
 			else
 				voyeurism_start = 1
 				voyeurism += 1
+				gs 'arousal', 'voyeur', 5
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg"></center>'
 				'You look around and notice that a little ways off at the end of the small beach is a pair of lovers laying on the sand. The girl is completely naked and her hand is stroking the guy''s cock through his white pants. The guy turns his head and notices that you look at them. You immediately turn away, blushing terribly and begin to explore your feet as if seeing them for the first time.'
 			end
 			act'Back': gt 'gLakeNude'
 		end
 	elseif voyeurism_start = 1:
-		act'Watch couple on the beach':
-			*clr & cla
-			menu_off = 1
-			if voyeurism = 0:
-				minut += 5
-				voyeurism += 1
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/lake_legs.jpg"></center>'
-				'From the corner of your eye you see several naked people. You think they look right at you. You blush and you freeze in terror, tears well up in the corner of your eyes. After a few moments you find yourself looking at your own feet.<br><dh>"Wha....What am I doing?! Why do I feel like watching... Am I a voyeur? Yes, I am! I`m a girl who likes to watch nude people!"</dh> you think.<br> You can''t remember a single instance in your life when you were watching someone. So is it worth to start doing it now? YES!'
-				act'Stop Watching!': gt'gLakeNude'
-			else
-				voyeurism_start = 2
-				minut += 50
-				pcs_horny += 75
-				voyeurism += 1
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg"></center>'
-				'From the corner of your eye you see several naked people. You think they look right at you. You blush and you freeze in terror, tears well up in the corner of your eyes. After a few moments you find yourself looking at your own feet.<br><dh>"Wha....What am I doing?! Why do I feel like watching... Am I a voyeur? Yes, I am! I`m a girl who likes to watch nude people!"</dh> you think.<br> But then you remember how you recently were watching others on the beach and think: <dh>"That was scary, cool, and hot. I need to keep at least one eye always watching."</dh>'
-				act'Watch the couple': 	gs'gLakeNudeEvent','gLakeNude_sex'
+		gs 'willpower', 'voyeur', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Watch couple on the beachs (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'voyeur', 'self'
+				gs 'willpower', 'pay', 'self'
+				menu_off = 1
+				if voyeurism = 0:
+					gs 'arousal', 'voyeur', 5
+					voyeurism += 1
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/lake_legs.jpg"></center>'
+					'From the corner of your eye you see several naked people. You think they look right at you. You blush and you freeze in terror, tears well up in the corner of your eyes. After a few moments you find yourself looking at your own feet.<br><dh>"Wha....What am I doing?! Why do I feel like watching... Am I a voyeur? Yes, I am! I`m a girl who likes to watch nude people!"</dh> you think.<br> You can''t remember a single instance in your life when you were watching someone. So is it worth to start doing it now? YES!'
+					act'Stop Watching!': gt'gLakeNude'
+				else
+					voyeurism_start = 2
+					gs 'arousal', 'voyeur', 30
+					voyeurism += 1
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg"></center>'
+					'From the corner of your eye you see several naked people. You think they look right at you. You blush and you freeze in terror, tears well up in the corner of your eyes. After a few moments you find yourself looking at your own feet.<br><dh>"Wha....What am I doing?! Why do I feel like watching... Am I a voyeur? Yes, I am! I`m a girl who likes to watch nude people!"</dh> you think.<br> But then you remember how you recently were watching others on the beach and think: <dh>"That was scary, cool, and hot. I need to keep at least one eye always watching."</dh>'
+					act'Watch the couple': 	gs'gLakeNudeEvent','gLakeNude_sex'
+				end
 			end
+		else
+			act 'Watch couple on the beach (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	elseif voyeurism_start = 2 and (pcs_horny < 90 or pav_slut < 50):
-		act 'Spy on other nudists on the beach':
-			menu_off = 1
-			gs 'stat'
-			if voyeurism_nudist <= 14 or pav_slut > 50:
-				voyeurism_nudist += 1
-				gs'gLakeNudeEvent','gLakeNude_nudist'
-				act'Continue': gt 'gLakeNude'
-			else
-				*clr & cla
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/nudebeachself'+rand(1,3)+'.jpg"></center>'
-				'You want to watch for nudists, but suddenly notice that you start to feel weird.<br><dh>"Probably spying too much."</dh> you think and look straight ahead.'
-				act'Continue': gt'gLakeNude'
+		gs 'willpower', 'voyeur', 'self', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Spy on other nudists on the beach (<<will_cost>> Willpower)':
+				gs 'willpower', 'voyeur', 'self', 'easy'
+				gs 'willpower', 'pay', 'self'
+				menu_off = 1
+				gs 'stat'
+				if voyeurism_nudist <= 14 or pav_slut > 50:
+					voyeurism_nudist += 1
+					gs 'gLakeNudeEvent','gLakeNude_nudist'
+					act 'Continue': gt 'gLakeNude'
+				else
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/nudebeachself'+rand(1,3)+'.jpg"></center>'
+					'You want to watch for nudists, but suddenly notice that you start to feel weird.<br><dh>"Probably spying too much."</dh> you think and look straight ahead.'
+					act 'Continue': gt'gLakeNude'
+				end
 			end
 		end
-	end
+		else
+			act 'Spy on other nudists on the beach (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
 	if voyeurism >= 17 and voyeurism_start = 2:
 		if voyeurism_forest = 0:
-			act'Explore the forest': gt'gLakeNudeForest'
+			act 'Explore the forest': gt 'gLakeNudeForest'
 		else
-			act'Hide in the woods near the beach': gt'gLakeNudeForest'
+			act 'Hide in the woods near the beach': gt 'gLakeNudeForest'
 		end
 	end
 end
@@ -312,7 +331,7 @@ if $ARGS[0] = 'sauna':
 	end
 		
 	if $clothingworntype ! 'nude' and (pcs_inhib > 25 or (exhibitionist_lvl > 1 and pcs_horny >= 60)):
-		act'Take off your clothes':
+		act 'Take off your clothes':
 			*clr & cla
 			menu_off = 1
 			minut +=  5
@@ -323,14 +342,14 @@ if $ARGS[0] = 'sauna':
 			act 'Continue': gt 'gLakeNude', 'sauna'
 		end
 	else
-		act'Put your clothes back on':
+		act 'Put your clothes back on':
 			cla
 			menu_off = 1
 			minut += 5
 			gs 'clothing', 'wear_last_worn'
 			gs 'underwear', 'wear'
 			'You put your clothes back on.'
-			act'Continue': gt 'gLakeNude', 'sauna'
+			act 'Continue': gt 'gLakeNude', 'sauna'
 		end
 	end
 	
@@ -345,7 +364,7 @@ if $ARGS[0] = 'sauna':
 				'It appears to be empty at the moment.'
 			else
 				saunarand = rand(1,5)
-				if saunarand = 1:
+				if saunarand = 4:
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/womennude.jpg"></center>'
 					'You find several other girls inside completely naked using the sauna.'
 				elseif saunarand > 4:
@@ -382,7 +401,7 @@ if $ARGS[0] = 'sauna':
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg"></center>'
 			'It appears to be empty at the moment.'
-			act 'Leave': gt 'gLakeNude', 'sauna' 
+			act 'Leave': gt 'gLakeNude', 'sauna'
 			act 'Use the sauna':
 				*clr & cla
 				minut += 30
@@ -410,7 +429,7 @@ if $ARGS[0] = 'sauna':
 				'It appears to be empty at the moment.'
 			else
 				saunarand = rand(1,5)
-				if saunarand = 1:
+				if saunarand = 4:
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/coednude.jpg"></center>'
 					'You find several other people in here, men and women. All of them completely naked.'
 				elseif saunarand > 4:
@@ -421,26 +440,32 @@ if $ARGS[0] = 'sauna':
 					'It appears to be empty at the moment.'
 				end
 			end
+			gs 'willpower', 'exhib', 'self', 'easy'
+			if saunarand < 4 or $clothingworntype = 'swimwear': will_cost = 0
+			if will_cost <= pcs_willpwr:
+				act iif(saunarand < 4 or $clothingworntype = 'swimwear', 'Use the sauna', 'Use the sauna (<<will_cost>> Willpower)'):
+					*clr & cla
+					gs 'willpower', 'pay', 'self'
+					minut += 30
+					pcs_mood += 10
+					if $clothingworntype = 'swimwear':
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg"></center>'
+						if pcs_inhib < 40: inhib_exp += rand(0,1)
+					else
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg"></center>'
+						if pcs_inhib < 60: inhib_exp += rand(1,3)
+					end
+					gs 'stat'
+					'You spend 30 minutes relaxing in the sauna.'
 
-			act 'Leave': gt 'gLakeNude', 'sauna'
-			act 'Use the sauna':
-				*clr & cla
-				minut +=30
-				pcs_mood += 10
-				if $clothingworntype = 'swimwear':
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg"></center>'
-					if pcs_inhib < 40: inhib_exp += rand(0,1)
-				else
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg"></center>'
-					if pcs_inhib < 60: inhib_exp += rand(1,3)
-				end
-				gs 'stat'
-				'You spend 30 minutes relaxing in the sauna.'
-
-				act 'Leave': gt 'gLakeNude', 'sauna'
+					act 'Leave': gt 'gLakeNude', 'sauna'
 
-				if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
+					if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
+				end
+			else
+				act 'Use the sauna (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
+			act 'Leave': gt 'gLakeNude', 'sauna'
 		end
 	else
 		*nl

locations/gLakeNudeEvent.qsrc

@@ -6,14 +6,14 @@ if $args[0] = 'gLakeNude_sex':
 	*clr
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_0.jpg"></center>'
 	'You tear your eyes from their beautiful legs and look around. You see that no one else is on the beach except you and the couple that''s getting hot and heavy. By now they are too into each other to pay attention to you. The girl slowly wraps her plump lips around the head of her man''s cock, pushing her ass into the air in a seductive pose.'
-	gs 'arousal', 'voyeur', 5
+	gs 'arousal', 'voyeur', 1
 	gs 'stat'
 	act 'Continue watching':
 		cla
 		*clr
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_1.jpg"></center>'
 		'The gorgeous blonde wraps a delicate hand around the shaft of the engorged cock. She slowly begins pumping the base of her boyfriend''s dick as she sucks and licks around the head, never breaking eye contact. The stud''s abs tighten visibly as he draws in a breath of pleasure from blonde''s ministrations. You find yourself enthralled; unable to look away as a heat begins to build just below your belly.'
-		gs 'arousal', 'voyeur', 5
+		gs 'arousal', 'voyeur', 2
 		gs 'stat'
 		act 'Further':
 			cla
@@ -21,7 +21,7 @@ if $args[0] = 'gLakeNude_sex':
 			gs 'clothing','strip'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_2.jpg"></center>'
 			'Leaving your clothes lying on the sand, you move a little closer to the sexy couple, pretending that you''re just walking on the beach. You see the girl push her man''s legs further apart, allowing her to dip her head down and take one ball into her mouth, then the other. Once she returns to his throbbing cock, she opens her tight throat and takes it in further than before, almost 3/4 of the way down the impressive member'
-			gs 'arousal', 'voyeur', 5
+			gs 'arousal', 'voyeur', 2
 			gs 'stat'
 			act 'Further':
 				cla
@@ -29,7 +29,7 @@ if $args[0] = 'gLakeNude_sex':
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_3.jpg"></center>'
 				'Suddenly a strong wave rushes on shore and drenches them both. The water crashes up over the cock-hungry blonde''s legs and thighs, causing her throw her head up and gasp, the meaty phallus popping out her mouth. The couple make eye contact with each other and giggle lightly. "Let''s go swimming" you hear the hot woman say in a sultry voice.
 				As the pair start to get up a wave of panic rushes over you. You need to do duck away quickly; otherwise they''ll surely take notice of you and how you''re shaking from excitement.' 
-				gs 'arousal', 'voyeur', 5
+				gs 'arousal', 'voyeur', 1
 				gs 'stat'
 				act 'Further':
 					cla
@@ -52,28 +52,28 @@ if $args[0] = 'gLakeNude_sex':
 							*clr
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_6.jpg"></center>'
 							'The hot Adonis of a man gives his girl one hard smack on her plump ass. He then spreads his feet wide apart and bends his knees, lining up his still rock hard member with the blonde girl''s waiting orifice. As he slides his thick pole into her pussy, you catch sight of her eyes as they roll back into her head. She bites down on her lower lip, stifling a moan.'							
-							gs 'arousal', 'voyeur', 5
+							gs 'arousal', 'voyeur', 1
 							gs 'stat'
 							act 'Further':
 								cla
 								*clr
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_7.jpg"></center>'
 								'The chiseled statue of a man continues pounding into his girlfriend for several more minutes, continually changing angles and speed to keep her at the peak of passion. You continue rubbing your dripping vagina, feeling shame and excitement in equal measure. Even from this distance you can hear the blonde girl''s breaths as they become shorter and more erratic. Suddenly her breathe catches in her throat for a moment before she lets out a wailing cry of pleasure. "Oh my god, she just came so hard!" you think as your own arousal continues to build.'
-								gs 'arousal', 'voyeur', 5
+								gs 'arousal', 'voyeur', 4
 								gs 'stat'
 								act 'Further':
 									cla
 									*clr
 									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_8.jpg"></center>'
 									'After her orgasm subsides, the blond rolls over onto her back, letting the massive cock slide out of her for just a moment. Before long, however, her boyfriend is sliding his knees up to her ass in the sand. The hormone driven man pushes his girlfriend''s knees back, exposing her used hole to him once more. Without giving her more than a moment to prepare the strong brute thrusts his mighty dick back into her waiting pussy.'
-									gs 'arousal', 'voyeur', 5
+									gs 'arousal', 'voyeur', 2
 									gs 'stat'
 									act 'Further':
 										cla
 										*clr
 										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_9.jpg"></center>'
 										'"It seems that the time for tender loving is over" you think as you watch the ripped man drive his veiny cock into her without mercy. He thrusts hard and fast, his tight balls swinging violently with every thrust.'
-										gs 'arousal', 'voyeur', 5
+										gs 'arousal', 'voyeur', 1
 										gs 'stat'
 										act 'Further': gt 'gLakeNudeEvent', 'gLakeNude_sex2'
 									end
@@ -92,7 +92,7 @@ if $args[0] = 'gLakeNude_sex2':
 	*clr
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_10.jpg"></center>'
 	'Another unexpected wave crashes onto the beach and flows over the fucking couple. This time it seems like they will pay it no mind, too enraptured by each other''s bodies to care about the sandy water.'
-	gs 'arousal', 'voyeur', 5
+	gs 'arousal', 'voyeur', 1
 	gs 'stat'
 	act 'Further':
 		cla
@@ -107,7 +107,7 @@ if $args[0] = 'gLakeNude_sex2':
 			*clr
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_12.jpg"></center>'
 			'The horny, impatient man wastes no time getting himself back into position. He grips both of the girl''s perfect ass cheeks in either hand, flesh pillowing through is fingers, as he thrusts himself back into her sopping hole.'
-			gs 'arousal', 'voyeur', 5
+			gs 'arousal', 'voyeur', 1
 			gs 'stat'
 			act 'Further':
 				cla
@@ -121,7 +121,7 @@ if $args[0] = 'gLakeNude_sex2':
 					*clr
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_14.jpg"></center>'
 					'Without warning the man suddenly crosses his arms over his girlfriend''s hips and flips her onto her back. In a moment he''s back inside of her, never breaking the rhythm of his thrusts. You marvel at the power in his body, as well as the possessiveness he has over his girlfriend. She is his and he will do what he wants with her.'
-					gs 'arousal', 'voyeur', 5
+					gs 'arousal', 'voyeur', 1
 					gs 'stat'
 					act 'Further':
 						cla
@@ -130,14 +130,14 @@ if $args[0] = 'gLakeNude_sex2':
 						'"Do it!" the gruff man commands as his girlfriend vigorously rubs her clit while he fucks her.'
 						'"Do It now!" he threatens just a moment before the blonde girl throws her head back and screams in orgasm, her body and legs shaking uncontrollably.'
 						'The dominant man thrusts hard just a few more times before...'
-						gs 'arousal', 'voyeur', 5
+						gs 'arousal', 'voyeur', 1
 						gs 'stat'
 						act 'Further':
 							cla
 							*clr
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_16.jpg"></center>'
 							'he pulls his pussy juice soaked cock out of his girlfriend''s snatch and erupts a volcano of cum all over her.'
-							gs 'arousal', 'voyeur', 5
+							gs 'arousal', 'voyeur', 1
 							gs 'stat'
 							act 'Further':
 								cla
@@ -145,7 +145,7 @@ if $args[0] = 'gLakeNude_sex2':
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_17.jpg"></center>'
 								'The sperm and sand mix to form a coarse paste as they cover the blonde girl''s belly. She obediently attempts to lean her head forward to catch a few drops in her mouth as it flies out, but she is too spent to really make the effort.'
 								'The couple collapse next to each other, exhausted from their romance session, and begin quietly talking.'
-								gs 'arousal', 'voyeur', 5
+								gs 'arousal', 'voyeur', 1
 								gs 'arousal', 'end'
 								gs 'stat'
 								act 'Further':

locations/gLakeNudeForest.qsrc

@@ -19,26 +19,42 @@ end
 
 if temper >= 20 and month >= 5 and month <= 9 and hour >= 6 and hour <= 20:
 	if voyeurism_forest = 0:
-		set voyeurism_forest = 1
-		act'Follow the girl': gt'gLakeNudeEvent','gLakeNudeForest_piss'
+		voyeurism_forest = 1
+		gs 'willpower', 'voyeur', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Follow the girl (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'self' & gt 'gLakeNudeEvent', 'gLakeNudeForest_piss'
+		else
+			act 'Follow the girl (<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'Spy on nudists':
-			menu_off = 1
-			gs 'gLakeNudeEvent','gLakeNude_nudist'
-			act 'Look': gt 'gLakeNudeForest'
+		gs 'willpower', 'voyeur', 'self', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Spy on nudists (<<will_cost>> Willpower)':
+				menu_off = 1
+				gs 'willpower', 'voyeur', 'self', 'easy'
+				gs 'willpower', 'pay', 'self'
+				gs 'gLakeNudeEvent','gLakeNude_nudist'
+				act 'Look': gt 'gLakeNudeForest'
+		else
+			act 'Spy on nudists (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
-		act'Spy on girl going for a pee':
-			cla
-			*clr
-			menu_off = 1
-			minut += 10
-			pcs_horny += 10
-			voyeurism += 1
-			kol_foto_piss = 169
-			viewforestpiss = rand(1,kol_foto_piss)
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/piss_forest/piss_forest_<<rand(1,kol_foto_piss)>>.jpg"></center>'
-			'You slip behind a tree and watch as a cute girl looks for a private spot to do her business. She finally decides on a patch of dirt near some bushes and squats down. You dare to peek your head around the tree trunk for a better look as the girl finds her balance and appears to relax. A torrent of hot piss begins to flow from the young woman''s nether lips. You hear a light moan escape her mouth. "Wow, she must have been holding it awhile.", you think as heat radiates through your groin from the naughtiness of what you just saw.'
-			act'Back': gt 'gLakeNudeForest'
+		gs 'willpower', 'voyeur', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Spy on girl going for a pee (<<will_cost>> Willpower)':
+				*clr & cla
+				menu_off = 1
+				gs 'willpower', 'voyeur', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'arousal', 'voyeur', 10
+				voyeurism += 1
+				kol_foto_piss = 169
+				viewforestpiss = rand(1,kol_foto_piss)
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/piss_forest/piss_forest_<<rand(1,kol_foto_piss)>>.jpg"></center>'
+				'You slip behind a tree and watch as a cute girl looks for a private spot to do her business. She finally decides on a patch of dirt near some bushes and squats down. You dare to peek your head around the tree trunk for a better look as the girl finds her balance and appears to relax. A torrent of hot piss begins to flow from the young woman''s nether lips. You hear a light moan escape her mouth. "Wow, she must have been holding it awhile.", you think as heat radiates through your groin from the naughtiness of what you just saw.'
+				act'Back': gt 'gLakeNudeForest'
+			end
+		else
+			act 'Spy on girl going for a pee (<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

locations/preCUST.qsrc

@@ -554,7 +554,8 @@ if $ARGS[0] = 'Done':
 	gs 'din_van'
 	gs 'din_bad'
 	gs 'dinSex'
-	gs 'dinBoroda'
+	!! KEY! I merged 'dinBoroda' with 'clener' and removed the dynamics. This line was at the end of dinBoroda, so I moved it here just in case. Sicaa
+	rikudootvet = 1415
 	gs 'BanSexType'
 
 	gs 'outdoors', 'weather'