[changed] willpower seeding for most pavlovsk community center

locations/gaptek.qsrc

@@ -156,7 +156,7 @@ if $ARGS[0] = 'garden':
 			minut += rand(5, 15)
 			if gaprezikday ! daystart or gatabletkiday ! daystart or gabotmedday ! daystart or gabotsmlday ! daystart or gapregday ! daystart:
 				'You wait until the last customer leaves the pharmacy, and quickly dart over to the counter.'
-				'"Hi aunt Luda, my <<$npc_nickname[''A29'']>> needs a few more items for her garden."'
+				'"Hi Aunt Luda, my <<$npc_nickname[''A29'']>> needs a few more items for her garden."'
 				'"Your <<$npc_nickname[''A29'']>>, huh? Sure, sure... it''s right here, take your pick!" she chuckles, as you try to hide your blush.'
 				'You intently stare at the items, avoiding her gaze as you mutter: "Thank you, Aunt..."'
 				'"No problem, <<$pcs_nickname>>. But seriously, tell Natasha she shouldn''t spend so much time gardening. We keep running low on stock."'

locations/gdk.qsrc

@@ -21,13 +21,27 @@ end
 if hour >= 20 and hour <= 23 and week >= 5 and week < 7:
 	'The entrance to the Community Centre is full of young people, the guys are just hanging around smoking and joking. The girls in small groups, all dressed up and gossiping. You see the bushes moving, Pavlovsks'' famous make out garden.'
 	'You hear people in the alley beside the club. <a href="exec:minut += 5 & gt ''ugel''">Investigate</a>.'
-	if gdkin_in = daystart:
-		act 'Return to the dance':gt 'gdkin'
-	elseif money >= 25:
-		act 'Go to the dance (25 <b>₽</b>)':
-			money -= 25
-			minut += 5
-			gt 'gdkin'
+	if gdkincum = daystart and (cumloc[6] = 0 and cumloc[7] = 0) and cumloc[11] = 0:
+		gdkincum = 0
+	end
+	if gdkincum ! daystart:
+		if gdkin_in = daystart:
+			act 'Return to the dance':gt 'gdkin'
+		elseif money >= 25:
+			act 'Go to the dance (25 <b>₽</b>)':
+				money -= 25
+				minut += 5
+				gt 'gdkin'
+			end
+		end
+	else
+		*nl
+		if (cumloc[6] = 1 or cumloc[7] = 1) and cumloc[11] = 1:
+			'You should clean the cum off your face and clothes before heading back to the dance.'
+		elseif cumloc[11] = 1:
+			'You should clean the cum off your face before heading back to the dance.'
+		elseif cumloc[6] = 1 or cumloc[7] = 1:
+			'You should clean the cum off your clothes before heading back to the dance.'
 		end
 	end
 else

locations/gdkin.qsrc

@@ -57,9 +57,11 @@ if $ARGS[0] = '':
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_dance.jpg"></center>'
 			if pcs_inhib < 40:inhib_exp += rand(1,2)
 			if (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1:
-				pav_sex += 15
-
-				pcs_mood -= 80
+				gdkincum = daystart
+				gs 'fame', 'pav', 'sex', 5
+				pcs_mood -= 40
+				gs 'stat'
+				
 				'As you head out on the dance floor, A guy walks up to you and sees the cum still splattered on you. The guy points to you "Check out the cock-sucker! Hey guys, this chick has cum smeared all over her face." The ones standing near him come closer. "Did you forget to swallow, slut?" Your cheeks blush with shame and you quickly head for the exit.'
 
 				act 'Leave':gt 'gdk'
@@ -71,7 +73,6 @@ if $ARGS[0] = '':
 				danc_exp += 1
 
 				pcs_mood += 10
-				pcs_willpwr += 10
 				frost = 0
 				gs 'stat'
 
@@ -146,9 +147,11 @@ if $ARGS[0] = '':
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_yaho.jpg"></center>'
 
 			if (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1:
-				pav_sex += 15
-
-				pcs_mood -= 80
+				gdkincum = daystart
+				gs 'fame', 'pav', 'sex', 5
+				pcs_mood -= 40
+				gs 'stat'
+				
 				'While standing by the wall a guy notices cum on your clothes and he points and shouts. "This chick is covered in cum, wait did you fail to swallow slut?" He says to you laughing. Your cheeks blush with shame and you head for the exit.'
 
 				act 'Leave':gt 'gdk'
@@ -424,9 +427,17 @@ if $ARGS[0] = 'dance_vrp':
 		end
 
 		if alko < 6 or pcs_horny <= 75 or pav_slut <= 25:
-			act 'Refuse':
-				if pcs_sprt <= 30: sprt_exp += rand(0, 1)
-				gt 'gdkin'
+			gs 'willpower', 'drink', 'resist'
+			if will_cost <= pcs_willpwr:
+				act 'Refuse (<<will_cost>> Willpower)':
+					gs 'willpower', 'drink', 'resist'
+					gs 'willpower', 'pay', 'resist'
+					if pcs_sprt <= 30: sprt_exp += rand(0, 1)
+					gs 'stat'
+					gt 'gdkin'
+				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
 		end
 
@@ -465,9 +476,17 @@ if $ARGS[0] = 'dance_vrp':
 					'You went outside with the man. As you walked he put his arm around your waist. "My name is <<$boydesc>>. What''s your name?" You answered "<<$pcs_nickname>>." The man continued, "<<$pcs_nickname>>, I''m in town on a business trip. I am staying at a nearby hotel, I live in the city itself. There is virtually nothing to do in this town you know. Come back to my hotel with me and we can drink whiskey, while we sit and have a nice chat."'
 
 					if alko < 6 or pcs_horny <= 75 or pav_slut <= 25:
-						act 'Refuse':
-							if pcs_sprt <= 30: sprt_exp += rand(0, 1)
-							gt 'gdkin'
+						gs 'willpower', 'drink', 'resist'
+						if will_cost <= pcs_willpwr:
+							act 'Refuse (<<will_cost>> Willpower)':
+								gs 'willpower', 'drink', 'resist'
+								gs 'willpower', 'pay', 'resist'
+								if pcs_sprt <= 30: sprt_exp += rand(0, 1)
+								gs 'stat'
+								gt 'gdkin'
+							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
 					end
 

locations/gdksport.qsrc

@@ -246,7 +246,6 @@ if $ARGS[0] = 'albina1':
 
 		act 'I do not care':
 			*clr & cla
-			pcs_dom += 1
 			npc_rel['A23'] -= 5
 			gs 'stat'
 			'<center><b><font color="maroon"><<$npc_firstname[''A23'']>> <<$npc_lastname[''A23'']>></font></b></center>'
@@ -294,7 +293,6 @@ if $ARGS[0] = 'albina2':
 
 		act 'I do not care':
 			*clr & cla
-			pcs_dom += 1
 			npc_rel['A23'] -= 5
 			gs 'stat'
 			'<center><b><font color="maroon"><<$npc_firstname[''A23'']>> <<$npc_lastname[''A23'']>></font></b></center>'
@@ -433,10 +431,8 @@ if $ARGS[0] = 'starlets':
 	'<center><img <<$set_imgh>> src="images/locations/shared/gym/fit1.jpg"></center>'
 
 	if pcs_dancero < 15:
-		sub += 1
 		'You train together with the girls in "The Starlets". You danced badly and Albina constantly yelled at you and called you a bowlegged cow.'
 	elseif pcs_dancero < 30:
-		sub += 1
 		'You train together with the girls of "The Starlets". You sometimes managed to get the moves right, but most of the time you were out of synch or made the wrong move. Albina constantly yelled at you and called you a bowlegged cow.'
 	elseif pcs_dancero < 45:
 		'You train together with the girls of "The Starlets". You managed to get into the general rhythm and moved well with the other girls, but Albina is still not happy. "<<$pcs_nickname>>, you are very sluggish, you need to put more life into it."'
@@ -460,7 +456,7 @@ if $ARGS[0] = 'starlets':
 			end
 
 			if DanceWhoreT > 0: DanceWhoreT = 0
-			if AlbFather = 0 and DanceWhore > rand (5, 20):
+			if AlbFather = 0 and DanceWhore > rand(5,20):
 				AlbFather = 1
 				'Albina after training beckoned you to her. "Good work, <<$pcs_nickname>>. The clients were satisfied and you were very discrete. You''re doing fine, doing excellent, in fact. Stick with me and you will have all the money, cars and apartments you could want."'
 			end
@@ -489,41 +485,41 @@ if $ARGS[0] = 'starlets':
 				if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
 
 				if pcs_apprnc >= 52:
-					if pcs_apprnc < 64:wealthmanrand = rand(0, 15)
-					if pcs_apprnc >= 64 and pcs_apprnc < 72:wealthmanrand = rand(0, 12)
-					if pcs_apprnc >= 72:wealthmanrand = rand(0, 10)
+					if pcs_apprnc < 64:wealthmanrand = rand(0,15)
+					if pcs_apprnc >= 64 and pcs_apprnc < 72:wealthmanrand = rand(0,12)
+					if pcs_apprnc >= 72:wealthmanrand = rand(0,10)
 
 					if wealthmanrand = 0:
 						kolvomanparty = 1
-						danceWhorePay = rand(3, 8)
+						danceWhorePay = rand(3,8)
 						'You saw that a man in a decent suit went up to Albina and started to talk quietly with her.'
 					elseif wealthmanrand = 1:
 						kolvomanparty = 2
-						danceWhorePay = rand(5, 10)
+						danceWhorePay = rand(5,10)
 						'You saw that two guys approached Albina and started to talk to her.'
 					elseif wealthmanrand = 2:
 						kolvomanparty = 1
-						danceWhorePay = rand(4, 9)
+						danceWhorePay = rand(4,9)
 						'You saw that an Armenian went up to Albina and started talking to her and gesticulating wildly.'
 					elseif wealthmanrand = 3:
 						kolvomanparty = 2
-						danceWhorePay = rand(6, 12)
+						danceWhorePay = rand(6,12)
 						'You saw that two Armenians went up to Albina and started talking to her.'
 					elseif wealthmanrand = 4:
 						kolvomanparty = 3
-						danceWhorePay = rand(8, 14)
+						danceWhorePay = rand(8,14)
 						'You saw that three Armenians approached Albina and started talking to her.'
 					elseif wealthmanrand = 5:
 						kolvomanparty = 1
-						danceWhorePay = rand(5, 10)
+						danceWhorePay = rand(5,10)
 						'You saw that a black went up Albina and started talking to her.'
 					elseif wealthmanrand = 6:
 						kolvomanparty = 2
-						danceWhorePay = rand(7, 15)
+						danceWhorePay = rand(7,15)
 						'You saw that two black men went up Albina and started talking to her.'
 					elseif wealthmanrand = 7:
 						kolvomanparty = 3
-						danceWhorePay = rand(10, 20)
+						danceWhorePay = rand(10,20)
 						'You saw that three black men went up Albina and started talking to her.'
 					end
 
@@ -540,16 +536,23 @@ if $ARGS[0] = 'starlets':
 							else
 								'Albina came closer to you and quietly began to speak, "You see these guys? If you stay with them for a couple of hours and be affectionate, you will be able to earn <<danceWhorePay*1000>> <b>₽</b>."'
 							end
-
-							act 'Refuse and leave':
-								*clr & cla
-								minut += 15
-								otkazDanceWhore = 1
-								DanceWhoreT = 0
-								gs 'stat'
-								'You got in the car along with the rest of the troupe, and shortly you returned to town.'
-
-								act 'Leave':gt 'pavResidential'
+							
+							gs 'willpower', 'prostitution', 'resist', 'hard'
+							if will_cost <= pcs_willpwr:
+								act 'Refuse and leave (<<will_cost>> Willpower)':
+									*clr & cla
+									gs 'willpower', 'prostitution', 'resist', 'hard'
+									gs 'willpower', 'pay', 'resist'
+									minut += 15
+									otkazDanceWhore = 1
+									DanceWhoreT = 0
+									gs 'stat'
+									'You got in the car along with the rest of the troupe, and shortly you returned to town.'
+
+									act 'Leave':gt 'pavResidential'
+								end
+							else
+								act 'Refuse 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 'Agree':
@@ -561,14 +564,14 @@ if $ARGS[0] = 'starlets':
 								slutty += 1
 								gs 'stat'
 								'You agreed to be "nice" and Albina counted out your money.'
-								if wealthmanrand = 0:act 'Go with a man':gt 'AlbStarsWhore', 'whore1'
-								if wealthmanrand = 1:act 'Go with men':gt 'AlbStarsWhore', 'whore2'
-								if wealthmanrand = 2:act 'Go in Caucasians':gt 'AlbStarsWhore', 'whore3'
-								if wealthmanrand = 3:act 'Go with Caucasians':gt 'AlbStarsWhore', 'whore4'
-								if wealthmanrand = 4:act 'Go with Caucasians':gt 'AlbStarsWhore', 'whore5'
-								if wealthmanrand = 5:act 'Start with a black man':gt 'AlbStarsWhore', 'whore6'
-								if wealthmanrand = 6:act 'Go with blacks':gt 'AlbStarsWhore', 'whore7'
-								if wealthmanrand = 7:act 'Go with blacks':gt 'AlbStarsWhore', 'whore8'
+								if wealthmanrand = 0:act 'Go with the man':gt 'AlbStarsWhore', 'whore1'
+								if wealthmanrand = 1:act 'Go with the men':gt 'AlbStarsWhore', 'whore2'
+								if wealthmanrand = 2:act 'Go with the Armenian':gt 'AlbStarsWhore', 'whore3'
+								if wealthmanrand = 3:act 'Go with the Armenians':gt 'AlbStarsWhore', 'whore4'
+								if wealthmanrand = 4:act 'Go with the Armenians':gt 'AlbStarsWhore', 'whore5'
+								if wealthmanrand = 5:act 'Go with the black man':gt 'AlbStarsWhore', 'whore6'
+								if wealthmanrand = 6:act 'Go with the blacks':gt 'AlbStarsWhore', 'whore7'
+								if wealthmanrand = 7:act 'Go with the blacks':gt 'AlbStarsWhore', 'whore8'
 							end
 						end
 					end
@@ -711,7 +714,6 @@ if $ARGS[0] = 'vball4':
 	loopcount = 0
 	timemult = 0
 	npc_rel['A69'] += 1
-	pcs_dom += 1
 	if pcs_inhib < 40:inhib_exp += rand(0,1)
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/gym/volley/gdksport.jpg"></center>'
@@ -719,15 +721,23 @@ if $ARGS[0] = 'vball4':
 	'At the beginning of the workout you ran a few laps around the room. Afterwards the coach has you do push-ups and crunches. Then you practiced receiving and setting up plays and serving the ball. At the end of the workout you had a practice game.'
 	act 'Leave':gt 'gdksport', 'start'
 	if $pantyworntype = 'none' and rand(0,1) = 1 and (volleytanga = 1 or VoltrenerVoyeur >= 5):
-		act 'Correct clothing':
-			inhib_exp += rand(1,5)
-			*clr & cla
-			TrenerLust += 3
-			Voltrenersee += 1 & ! setcheck on gg without panties
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/gym/volley/event/game'+rand(1,2)+'.jpg"></center>'
-			'It seems the coach noticed you wasn''t wearing any panties, his eyes lit up and he said turning away: "<<$pcs_lastname>>. Come see me after training. I need to show you UH ... a few things" '
-			act 'Leave':gs'stat'& gt 'gdksport', 'start'
-			act 'Go to the coach''s office':gt 'Voltrenersex', 'start'
+		gs 'willpower', 'exhib', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Correct clothing (<<will_cost>> Willpower)':
+				*clr & cla
+				inhib_exp += rand(1,5)
+				TrenerLust += 3
+				Voltrenersee += 1 & ! setcheck on gg without panties
+				gs 'willpower', 'exhib', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/gym/volley/event/game'+rand(1,2)+'.jpg"></center>'
+				'It seems the coach noticed you wasn''t wearing any panties, his eyes lit up and he said turning away: "<<$pcs_lastname>>. Come see me after training. I need to show you UH ... a few things" '
+				act 'Leave':gs'stat'& gt 'gdksport', 'start'
+				act 'Go to the coach''s office':gt 'Voltrenersex', 'start'
+			end
+		else
+			act 'Correct clothing (<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 'Talk to the coach':gt 'Voltrener', 'start'
@@ -752,7 +762,6 @@ if $ARGS[0] = 'vball5':
 		sorevday = daystart
 		if hour < 18: hour = 18 & minut = 0
 		timemult = 0
-		pcs_dom += 1
 		npc_rel['A69'] += 2
 		minut += 60 & !total time should be 4 hours, 2 hours for the game and 2 hours travel
 		gt 'gdksport', 'volley'
@@ -833,7 +842,6 @@ if $ARGS[0] = 'volley':
 
 					if npc_rel['A69'] >= rand(0, 80):
 						volleysostav = 2
-						pcs_dom += 1
 						poverkomand = ((pcs_vball*2) + ((pcs_stren + pcs_vital + pcs_agil + pcs_react)/2))/2
 						'The coach agrees to let you play the second half.'
 
@@ -940,19 +948,42 @@ if $ARGS[0] = 'shower':
 		if ShowerIvan = 1: ShowerIvan = 2
 		'You entered the women''s shower, turning the water on you began to lather up your body with a washcloth. Suddenly, you hear the door creak as it opened and you remember that you agreed not to lock it for Ivan.'
 		'You looked around and see Ivan Prokhorov standing there looking at you. "Hello <<$pcs_nickname>>. The men''s shower is full, so I thought I would join you instead." Ivan smiled after these words.'
-		act 'Further':gt 'gdksport', 'ShowerWithIvan'
+		act 'Shower with Ivan':gt 'gdksport', 'ShowerWithIvan'
+		gs 'willpower', 'bj', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Not today (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'bj', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/ivan/sex/community/shower1.jpg"></center>'
+				'You cover your breasts with one hand and turn sideways crossing your legs while flashing Ivan your best smile.'
+				'"How about another time Ivan? I''m not feeling it right now." Ivan just laughs and walk out of the shower room.'
+				'You quickly lock the door, before finishing your shower in peace.'
+				act 'Get out of the shower':gt 'gdksport', 'start'
+			end
+		else
+			act 'Not today (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
 	elseif kotovVSprohorov = 1 and ShowerIvan < 3:
 		kotovVSprohorov = 2
 		'You enter the women''s shower and turning the water on begin to lather your body with a washcloth. Suddenly, you hear the door creak as it opened and you remember that you forgot to lock it.'
 		'You looked around and saw Ivan Prokhorov standing in the doorway looking at you. "Hi <<$pcs_nickname>>. Can I join you? The men''s shower is full." Ivan smiled after these words.'
-		act 'Throw Ivan out':
-			*clr & cla
-			IvanShowerQW = 1
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/ivan/sex/community/shower1.jpg"></center>'
-			'You covered your chest with one hand and turn sideways crossing your legs as you hurl your washcloth at Ivan. He easily dodged the flying cloth and laughs as he exits the shower room.'
-			'You get out of the shower and quickly lock the door, before going back and quickly finishing your shower.'
-			act 'Get out of the shower':gt 'gdksport', 'start'
+		gs 'willpower', 'bj', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Throw Ivan out (<<will_cost>> Willpower)':
+				*clr & cla
+				IvanShowerQW = 1
+				gs 'willpower', 'bj', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/ivan/sex/community/shower1.jpg"></center>'
+				'You cover your breasts with one hand and turn sideways crossing your legs as you hurl your washcloth at Ivan. He easily dodged the flying cloth and laughs as he exits the shower room.'
+				'You quickly lock the door, before finishing your shower in peace.'
+				act 'Get out of the shower':gt 'gdksport', 'start'
+			end
+		else
+			act 'Throw Ivan out (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 
 		act 'Uh, what?':
@@ -960,14 +991,21 @@ if $ARGS[0] = 'shower':
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/ivan/shower2.jpg"></center>'
 			'You''re completely surprised and confused by Ivan''s sudden appearance, you are struck speechless. Ivan takes your inaction and silence as consent, as he walks into the shower room and closes the door behind him.'
-
-			act 'Escape from the shower':
-				*clr & cla
-				IvanShowerQW = 1
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/ivan/sex/community/shower1.jpg"></center>'
-				'You cover your breasts with one hand as you quickly grab your towel and run from the shower. As you run into the changing room, you can hear Ivan laughing.'
-				gt 'gdksport', 'start'
+			
+			gs 'willpower', 'bj', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Escape from the shower (<<will_cost>> Willpower)':
+					*clr & cla
+					IvanShowerQW = 1
+					gs 'willpower', 'bj', 'resist', 'hard'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/ivan/sex/community/shower1.jpg"></center>'
+					'You cover your breasts with one hand as you quickly grab your towel and run from the shower. As you run into the changing room, you can hear Ivan laughing.'
+					act 'Get out of the shower':gt 'gdksport', 'start'
+				end
+			else
+				act 'Escape from the shower (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
 			act 'Wash together':
 				IvanShowerYes = 0
@@ -1020,7 +1058,7 @@ if $ARGS[0] = 'ShowerWithIvan':
 			gs 'stat'
 			act 'Allow him to continue':
 				cla & *clr
-				if pcs_throat<15:
+				if pcs_throat < 15:
 					'<center><video autoplay loop src="images/shared/sex/blowjob/shower6.mp4"></video></center>'
 					'Penetrating further and further into your mouth, then into your throat, his member blocked your breath, which caused a gag reflex, nearly causing you to vomit. Freeing your mouth from his dick and wiping your tears, you screamed at Ivan, "This isn''t some bottomless hole for you to shove your dick into, you know!" Ivan gave you a guilty look then he pulled you back to your feet again as he began to kiss you, caress your breasts and ass until you began to moan with desire. He turned you around then bent you over with your ass towards him.'
 				else
@@ -1103,6 +1141,20 @@ if $ARGS[0] = 'ShowerWithIvan':
 					end
 				end
 			end
+			gs 'willpower', 'anal', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'That''s enough for now (<<will_cost>> Willpower)':
+					gs 'willpower', 'anal', 'resist', 'hard'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/ivan/sex/community/shower1.jpg"></center>'
+					'Ivan pauses for a brief second and you use the chance to quickly stand up and jump out of the shower.'
+					'You look back at him and say, "I think you''ve had enough of me for today. Maybe you can have more next time."'
+					act 'Get out of the shower':gt 'gdksport', 'start'
+				end
+			else
+				act 'That''s enough for now (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
 		end
 	end
 end
@@ -1116,8 +1168,18 @@ if $ARGS[0] = 'Ivan_bored':
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/ivan/school/ivan2.jpg"></center>'
 	'You look at Ivan for a long moment and bite your lower lip and then whisper just loud enough he can barely hear you. "I''m bored." He looks at you a moment then smiles, he looks around, then takes you by the hand and leads you away from the others, into one of the lesser used area''s of the school. He stops at one of the boys restrooms, going inside and leaving you outside. A few moments later two younger boys are ushered out by Ivan and sent packing. He watches them go, once they round the corner he pulls you into the bathroom.'
-
-	act 'Leave': gt 'gschool_lessons', 'short_break'
+	
+	gs 'willpower', 'anal', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Leave (<<will_cost>> Willpower)':
+			gs 'willpower', 'anal', 'resist'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'gschool_lessons', 'short_break'
+		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 'Go into the bathroom with Ivan':
 		*clr & cla

locations/gdktoilet.qsrc

@@ -22,7 +22,17 @@ if $ARGS[0] = 'start':
 	end
 	
 	if hour >= 8 and hour <= 23:
-		act 'Go in the Men''s toilet': gt 'gdktoilet', 'mens_entrance_events'
+		gs 'willpower', 'exhib', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Go in the Men''s toilet (<<will_cost>> Willpower)':
+				gs 'willpower', 'exhib', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				gt 'gdktoilet', 'mens_entrance_events'
+			end
+		else
+			act 'Go in the Men''s toilet (<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 in the Women''s toilet': gt 'gdktoilet', 'womens'
 	end
 
@@ -37,13 +47,27 @@ if $ARGS[0] = 'start':
 			close all
 			pl '<a href="exec: music_on = 1 & gt $loc, $metka">Play music</a>'
 		end
-		if gdkin_in = daystart:
-			act 'Return to the dance':gt 'gdkin'
-		elseif money >= 25:
-			act 'Go to the dance (25 <b>₽</b>)':
-				money -= 25
-				minut += 5
-				gt 'gdkin'
+		if gdkincum = daystart and (cumloc[6] = 0 and cumloc[7] = 0) and cumloc[11] = 0:
+			gdkincum = 0
+		end
+		if gdkincum ! daystart:
+			if gdkin_in = daystart:
+				act 'Return to the dance':gt 'gdkin'
+			elseif money >= 25:
+				act 'Go to the dance (25 <b>₽</b>)':
+					money -= 25
+					minut += 5
+					gt 'gdkin'
+				end
+			end
+		else
+			*nl
+			if (cumloc[6] = 1 or cumloc[7] = 1) and cumloc[11] = 1:
+				'You should clean the cum off your face and clothes before heading back to the dance.'
+			elseif cumloc[11] = 1:
+				'You should clean the cum off your face before heading back to the dance.'
+			elseif cumloc[6] = 1 or cumloc[7] = 1:
+				'You should clean the cum off your clothes before heading back to the dance.'
 			end
 		end
 	end
@@ -70,71 +94,106 @@ if $ARGS[0] = 'mens_entrance_events':
 			'You decide to take a closer look, to your surprise, there is a naked man standing with his face to the wall. His body is pressed up close against the wall.'
 			if pcs_vag >= 1:
 				if pcs_horny >=80:
-					act 'Seduce him':
-						*clr & cla
-						gs 'stat'
-						if pcs_cupsize >= 20:
+					gs 'willpower', 'sex', 'force'
+					if will_cost <= pcs_willpwr:
+						act 'Seduce him (<<will_cost>> Willpower)':
 							*clr & cla
+							gs 'willpower', 'sex', 'force'
+							gs 'willpower', 'pay', 'force'
 							gs 'stat'
-							'<center><b><font color="maroon">Men''s Room</font></b></center>'
-							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/grabbig.jpg"></center>'
-							'You look over his naked body and you wonder who''s on the other side. You bite your finger in appreciation of his naked body while grabbing your <<$titsize>>. You walk over to him trying to seduce him. He succumbs to your charms. No longer able to resist he takes all your clothes off and pushes you against the wall. Kissing you passionately.'
-							gs 'arousal', 'foreplay', 1
-							gs 'stat'
-							act 'Kiss him': gt'gdktoilet', 'mensglory'
-						elseif $pantyworntype ! 'none':
+							if pcs_cupsize >= 20:
+								*clr & cla
+								gs 'stat'
+								'<center><b><font color="maroon">Men''s Room</font></b></center>'
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/grabbig.jpg"></center>'
+								'You look over his naked body and you wonder who''s on the other side. You bite your finger in appreciation of his naked body while grabbing your <<$titsize>>. You walk over to him trying to seduce him. He succumbs to your charms. No longer able to resist he takes all your clothes off and pushes you against the wall. Kissing you passionately.'
+								gs 'arousal', 'foreplay', 1
+								gs 'stat'
+								act 'Kiss him': gt'gdktoilet', 'mensglory'
+							elseif $pantyworntype ! 'none':
+								*clr & cla
+								gs 'stat'
+								'<center><b><font color="maroon">Men''s Room</font></b></center>'
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/seducesmall.jpg"></center>'
+								'You look over his naked body and you wonder who''s on the other side. Your small <<$titsize>> are not enough to coax the man so you take off your clothes revealing your underwear and breasts. You walk over to him trying to seduce him. He succumbs to your charms. No longer able to resist he takes the rest of your clothes off and pushes you against the wall. Kissing you passionately.'
+								gs 'arousal', 'foreplay', 5
+								gs 'stat'
+								act 'Kiss him': gt'gdktoilet', 'mensglory'
+							else
+								*clr & cla
+								gs 'stat'
+								'<center><b><font color="maroon">Men''s Room</font></b></center>'
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/nakedsmall.jpg"></center>'
+								'You look over his naked body and you wonder who''s on the other side. Your small <<$titsize>> are not enough to coax the man so you take off your clothes revealing your breasts and pussy. You walk over to him trying to seduce him. He succumbs to your charms. No longer able to resist he takes the rest of your clothes off and pushes you against the wall. Kissing you passionately.'
+								gs 'arousal', 'foreplay', 1
+								gs 'stat'
+								act 'Kiss him': gt'gdktoilet', 'mensglory'
+							end
+						end
+					else
+						act 'Seduce him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+				elseif pcs_horny >=40:
+					gs 'willpower', 'mast', 'self'
+					if will_cost <= pcs_willpwr:
+						act 'Masturbate':
 							*clr & cla
+							gs 'willpower', 'mast', 'self'
+							gs 'willpower', 'pay', 'self'
 							gs 'stat'
-							'<center><b><font color="maroon">Men''s Room</font></b></center>'
-							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/seducesmall.jpg"></center>'
-							'You look over his naked body and you wonder who''s on the other side. Your small <<$titsize>> are not enough to coax the man so you take off your clothes revealing your underwear and breasts. You walk over to him trying to seduce him. He succumbs to your charms. No longer able to resist he takes the rest of your clothes off and pushes you against the wall. Kissing you passionately.'
-							gs 'arousal', 'foreplay', 5
-							gs 'stat'
-							act 'Kiss him': gt'gdktoilet', 'mensglory'
-						else
-							*clr & cla
+							pcs_mood += 15
+							gs 'arousal', 'masturbate', 25
 							gs 'stat'
 							'<center><b><font color="maroon">Men''s Room</font></b></center>'
-							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/nakedsmall.jpg"></center>'
-							'You look over his naked body and you wonder who''s on the other side. Your small <<$titsize>> are not enough to coax the man so you take off your clothes revealing your breasts and pussy. You walk over to him trying to seduce him. He succumbs to your charms. No longer able to resist he takes the rest of your clothes off and pushes you against the wall. Kissing you passionately.'
-							gs 'arousal', 'foreplay', 1
-							gs 'stat'
-							act 'Kiss him': gt'gdktoilet', 'mensglory'
-						end
-					end
-				elseif pcs_horny >=40 and pcs_dom >= 40:
-					act 'Masturbate':
-						*clr & cla
-						gs 'stat'
-						pcs_mood += 15
-						pcs_vag += 1
-						'<center><b><font color="maroon">Men''s Room</font></b></center>'
-						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/masturbate.jpg"></center>'
-						'You decide to masturbate in front of him. You rub your clit while exposing your bare ass. He smile and nods appreciating your body. You start to feel warm as you keep rubbing your clit. Your body gets tense as you approach orgasm.'
-						gs 'arousal', 'masturbate', 25
-						gs 'stat'
-						if pcs_apprnc >= 80:
-							if pcs_dom <=80:
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/masturbate.jpg"></center>'
+							'You decide to masturbate in front of him. You rub your clit while exposing your bare ass. He smile and nods appreciating your body. You start to feel warm as you keep rubbing your clit. Your body gets tense as you approach orgasm.'
+							if pcs_apprnc >= 120:
 								*clr & cla
-								gs 'stat'
 								'<center><b><font color="maroon">Men''s Room</font></b></center>'
 								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/1kissing.jpg"></center>'
 								'Unable to resist the man pushes you against the wall kissing you.'
 								gs 'arousal', 'kiss', 5
 								gs 'stat'
 								act 'Give In': gt'gdktoilet', 'mensglory'
+								gs 'willpower', 'sex', 'resist'
+								if will_cost <= pcs_willpwr:
+									act 'Leave (<<will_cost>> Willpower)':
+										gs 'willpower', 'sex', 'resist'
+										gs 'willpower', 'pay', 'resist'
+										gs 'arousal', 'end'
+										gs 'stat'
+										'<center><img <<$set_imgh>> src="images/pc/fuckoff2.jpg"></center>'
+										'Not wanting to fuck this guy, you push him off you and quickly get dressed before telling him to fuck off!'
+										gt'gdktoilet', '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
+							elseif pcs_apprnc >= 80:
+								cla
+								*nl
+								'The man backs away from the wall and says, "Why don''t you come over here and we can have some fun."'
+								act 'Give In': gt'gdktoilet', 'mensglory'
+								gs 'willpower', 'sex', 'resist'
+								if will_cost <= pcs_willpwr:
+									act 'Leave (<<will_cost>> Willpower)':
+										gs 'willpower', 'sex', 'resist'
+										gs 'willpower', 'pay', 'resist'
+										gs 'arousal', 'end'
+										gs 'stat'
+										'<center><img <<$set_imgh>> src="images/pc/fuckoff2.jpg"></center>'
+										'Not wanting to fuck this guy, you quickly get dressed before telling him to fuck off!'
+										gt'gdktoilet', '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
 							else
-								*clr & cla
-								gs 'arousal', 'end'
-								gs 'stat'
-								'<center><b><font color="maroon">Men''s Room</font></b></center>'
-								'<center><img <<$set_imgh>> src="images/pc/fuckoff2.jpg"></center>'
-								'The man backs away from the wall and says, "Why don''t you come over here and we can have some fun." Not wanting to fuck this guy, you quickly get dressed and tell him to fuck off!'
-								act 'Leave': gt'gdktoilet', 'start'
+								act 'Leave': gs 'arousal', 'end' & gt'gdktoilet', 'start'
 							end
-						else
-							act 'Leave': gs 'arousal', 'end' & gt'gdktoilet', 'start'
 						end
+					else
+					
 					end
 				else
 					gs 'stat'
@@ -203,62 +262,78 @@ if $ARGS[0] = 'mens_entrance_events':
 		'<center><b><font color="maroon">Men''s Room</font></b></center>'
 		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/mensrape3.mp4"></video></center>'
 		'You look inside the men''s restroom and see Dimka grabbing some chick by the hair and forcing her down onto his 16cm penis.'
-		if sub >= 20 or DimaRudeQW > 0:
-			'You look at her giving him the blowjob and you want to be punished too.'
-			if DimaRudeQW = 0:
-				act 'Interrupt':
+			
+		if DimaRudeQW = 0:
+			gs 'willpower', 'bj', 'self'
+			if will_cost <= pcs_willpwr:
+				act 'Interrupt (<<will_cost>> Willpower)':
 					*clr & cla
 					minut += 5
 					pcs_horny += 10
+					gs 'willpower', 'bj', 'self'
+					gs 'willpower', 'pay', 'self'
 					gs 'stat'
 					'<center><b><font color="maroon">Men''s Room</font></b></center>'
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/smiling.jpg"></center>'
 					'You decide to interrupt them and get in on the action. Dimka looks at you smiling and says "What the fuck are you interrupting me, get the fuck out." That''s when Dimka slaps you across the face. Your face now all red you quickly leave the restroom and leave.'
 					act 'Leave': gt'gdktoilet', 'start'
 				end
-			elseif DimaRudeQW > 0:
-				act 'Interrupt':
+			else
+				act 'Interrupt (<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'gdktoilet', 'start'
+		elseif DimaRudeQW > 0:
+			act 'Interrupt':
+				*clr & cla
+				minut += 5
+				dimkawarn = 0
+				gs 'stat'
+				'<center><b><font color="maroon">Men''s Room</font></b></center>'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/smiling.jpg"></center>'
+				'Wanting some attention from your boyfriend you decide to interrupt them. Dimka sees you and says, "Look what we have here, one more of my bitches to join us." He turns to the girl on the ground and says to her "Get on the ground and lay down."'
+				act 'Climb on top':
 					*clr & cla
-					minut += 5
-					dimkawarn = 0
 					gs 'stat'
 					'<center><b><font color="maroon">Men''s Room</font></b></center>'
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/smiling.jpg"></center>'
-					'Wanting some attention from your boyfriend you decide to interrupt them. Dimka sees you and says, "Look what we have here, one more of my bitches to join us." He turns to the girl on the ground and says to her "Get on the ground and lay down."'
-					act 'Climb on top':
+					'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/threesomeanal.mp4"></video></center>'
+					'You take your clothes off and climb on top of her. She starts to lick your pussy while Dimka fucks your ass without any lubrication. With her licking your pussy and Dimka fucking your ass you start to orgasm.'
+					gs 'arousal', 'cuni', 10, 'lesbian', 'dom'
+					gs 'arousal', 'anal', 10, 'sub', 'rough'
+					minut -= 10
+					gs 'stat'
+					act 'Continue':
 						*clr & cla
+						pcs_mood += 15
+						if npc_sex['A1'] = 0: npc_sex['A1'] = 1 & guy += 1
+						girl += 1
+						minut += 10
+						gs 'cum_call', 'anus', 'A1', 1
 						gs 'stat'
 						'<center><b><font color="maroon">Men''s Room</font></b></center>'
-						'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/threesomeanal.mp4"></video></center>'
-						'You take your clothes off and climb on top of her. She starts to lick your pussy while Dimka fucks your ass without any lubrication. With her licking your pussy and Dimka fucking your ass you start to orgasm.'
-						gs 'arousal', 'cuni', 10, 'lesbian', 'dom'
-						gs 'arousal', 'anal', 10, 'sub', 'rough'
-						minut -= 10
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/threesomeanalcum.jpg"></center>'
+						'Starting to pound your ass harder, Dimka starts to grunt as he shoots his load in your ass. Pulling out his warm liquid flows out your ass spilling onto the girls face. He takes his dick and puts it in her mouth saying, "Clean the rest of this up slut and don''t forget to clean my bitch too." The girl starts to lick your ass clean. She is really good at it and you begin to have another orgasm. You finish and decide to get up and get dressed. Dimka pleased with your behaviour tells you, "You should come by my house more often, slave."'
+						$orgasm_or = 'yes'
+						cumspclnt = 15
+						gs 'cum_cleanup'
+						gs 'arousal', 'end'
 						gs 'stat'
-						act 'Continue':
-							*clr & cla
-							pcs_mood += 15
-							sub += 5
-							if npc_sex['A1'] = 0: npc_sex['A1'] = 1 & guy += 1
-							girl += 1
-							minut += 10
-							gs 'cum_call', 'anus', 'A1', 1
-							gs 'stat'
-							'<center><b><font color="maroon">Men''s Room</font></b></center>'
-							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/threesomeanalcum.jpg"></center>'
-							'Starting to pound your ass harder, Dimka starts to grunt as he shoots his load in your ass. Pulling out his warm liquid flows out your ass spilling onto the girls face. He takes his dick and puts it in her mouth saying, "Clean the rest of this up slut and don''t forget to clean my bitch too." The girl starts to lick your ass clean. She is really good at it and you begin to have another orgasm. You finish and decide to get up and get dressed. Dimka pleased with your behaviour tells you, "You should come by my house more often, slave."'
-							$orgasm_or = 'yes'
-							cumspclnt = 15
-							gs 'cum_cleanup'
-							gs 'arousal', 'end'
-							gs 'stat'
-							act 'Leave': gt'gdktoilet', 'start'
-						end
+						act 'Leave': gt'gdktoilet', 'start'
 					end
 				end
 			end
-		else
-			act 'Leave': gt'gdktoilet', 'start'
+			
+			gs 'willpower', 'bj', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Leave (<<will_cost>> Willpower)':
+					gs 'willpower', 'bj', 'resist', 'hard'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					gt'gdktoilet', '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
 		end
 	else
 		minut += 1
@@ -308,14 +383,20 @@ if $ARGS[0] = 'mens':
 		gs 'arousal', 'voyeur_sex', 5
 		gs 'stat'
 		act 'Move away': minut += 1 & gt'gdktoilet', 'mens'
-		if pcs_horny >=50:
-			act 'Masturbate':
-				cla
-				gs 'stat'
-				'You walk into one of the men''s stalls.'
-				gs 'arousal', 'masturbate', 5
-				gs 'stat'
-				act 'start': gt 'gdktoilet', 'mensmast'
+		if pcs_horny >= 50:
+			gs 'willpower', 'mast', 'self'
+			if will_cost <= pcs_willpwr:
+				act 'Masturbate (<<will_cost>> Willpower)':
+					cla
+					gs 'willpower', 'mast', 'self'
+					gs 'willpower', 'pay', 'self'
+					gs 'arousal', 'masturbate', 5
+					gs 'stat'
+					'You walk into one of the men''s stalls.'
+					act 'start': gt 'gdktoilet', 'mensmast'
+				end
+			else
+				act 'Masturbate (<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
@@ -365,15 +446,18 @@ if $ARGS[0] = 'mensmast':
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/mensmast2.jpg"></center>'
 				'You grab some toilet paper and clean off your now wet clit. You think to yourself, "I hope nobody heard that."'
-				if rand(1, 100) >= 80:
+				if rand(1,100) >= 75:
 					gs 'npcgeneratec', 0, 'guy from the men''s bathroom', rand(19,45)
 					npc_dick[$npclastgenerated] = rand(10,24)
 					gs 'boyStat', $npclastgenerated
 					'You look up and notice the stall door opens. Right then a man in an orange jumpsuit walks in. He tells you, "Do you know where you are?" Unable to respond after your intense orgasm the man unzips his jumpsuit and takes out his <<npc_dick[$npclastgenerated]>>cm dick and places it near your mouth.'
-					if pcs_dom >= 20:
-						act 'Run away':
-							gs 'arousal', 'end'
+					gs 'willpower', 'bj', 'resist', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Run away (<<will_cost>> Willpower)':
 							cla
+							gs 'willpower', 'bj', 'resist', 'hard'
+							gs 'willpower', 'pay', 'resist'
+							gs 'arousal', 'end'
 							*nl
 							if $pantyworntype ! 'none' or $braworntype ! 'none':
 								gs 'underwear', 'dispose'
@@ -389,52 +473,62 @@ if $ARGS[0] = 'mensmast':
 							end
 						end
 					else
-						act 'Suck':
+						act 'Run away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+					act 'Suck':
+						*clr & cla
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/mensmast3.jpg"></center>'
+						'You open your mouth and begin to suck his dick. You can feel your pussy getting itchy again so you start to rub it. You continue to rub your clit until the man is about to cum.'
+						gs 'arousal', 'bj', 5, 'sub', 'unknown'
+						gs 'arousal', 'masturbate', 5
+						minut -= 5
+						gs 'stat'
+						act 'Climax again':
 							*clr & cla
+							pcs_mood += 15
+							minut += 5
+							spafinloc = 11
+							facial += 1
+							gs 'cum_manage'
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/mensmast4.jpg"></center>'
+							$orgasm_or = 'custom'
+							$orgasm_txt = 'You continue to rub your clit more and more when all of a sudden you explode into another orgasm. The man tells you he''s about to cum and you stop sucking his dick. The second you stop sucking he cums around your mouth.'
+							gs 'arousal', 'masturbate', 2
+							gs 'arousal', 'end'
 							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/mensmast3.jpg"></center>'
-							'You open your mouth and begin to suck his dick. You can feel your pussy getting itchy again so you start to rub it. You continue to rub your clit until the man is about to cum.'
-							gs 'arousal', 'bj', 5, 'sub', 'unknown'
-							gs 'arousal', 'masturbate', 5
-							minut -= 5
-							gs 'stat'
-							act 'Climax again':
+							act 'Rest':
 								*clr & cla
-								pcs_mood += 15
 								minut += 5
-								spafinloc = 11
-								facial += 1
-								gs 'cum_manage'
-								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/mensmast4.jpg"></center>'
-								$orgasm_or = 'custom'
-								$orgasm_txt = 'You continue to rub your clit more and more when all of a sudden you explode into another orgasm. The man tells you he''s about to cum and you stop sucking his dick. The second you stop sucking he cums around your mouth.'
-								gs 'arousal', 'masturbate', 2
-								gs 'arousal', 'end'
 								gs 'stat'
-								act 'Rest':
-									*clr & cla
-									minut += 5
-									gs 'stat'
-									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/mensmast5.jpg"></center>'
-									'The man leaves the stall, he mumbles something but you are too far gone and woozy. You stay crouched on the floor with cum all over your mouth as you try to recover.'
-									act 'Leave the stall':gt 'gdktoilet', 'mens'
-								end
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/mens/sex/mensmast5.jpg"></center>'
+								'The man leaves the stall, he mumbles something but you are too far gone and woozy. You stay crouched on the floor with cum all over your mouth as you try to recover.'
+								act 'Leave the stall':gt 'gdktoilet', 'mens'
 							end
 						end
 					end
+				else
+					act 'Leave Stall':gt 'gdktoilet', 'mens'
 				end
-				act 'Leave Stall':gt 'gdktoilet', 'mens'
 			end
 		end
 	else
 		act 'Continue': gt 'gdktoilet', 'mensmast'
 	end
-	act 'Stop':
-		cla
-		minut += 1
-		gs 'stat'
-		'You decide that you shouldn''t continue in fear of being discovered.'
-		act 'Leave Stall':gt 'gdktoilet', 'mens'
+	gs 'willpower', 'mast', 'self'
+	if will_cost <= pcs_willpwr:
+		act 'Stop (<<will_cost>> Willpower)':
+			cla
+			gs 'willpower', 'mast', 'self'
+			gs 'willpower', 'pay', 'self'
+			minut += 1
+			gs 'stat'
+			*nl
+			'You decide that you shouldn''t continue in fear of being discovered.'
+			act 'Leave Stall':gt 'gdktoilet', 'mens'
+		end
+	else
+		act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
 end
 
@@ -495,32 +589,46 @@ if $ARGS[0] = 'mensglory':
 								'You decide to swallow his cum. The man says, "You are much better than that hole in the wall." You smile and nod to him and get dressed. You leave the bathroom feeling satisfied and relaxed.'
 								act 'Leave': gt'gdktoilet', 'start'
 							end
-							act 'Spit':
-								*clr & cla
-								minut +=5								
-								gs 'stat'
-								'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/cumspit.mp4"></video></center>'
-								'You spit out his cum which. The man says, "You don''t like the taste of cum?" You don''t respond and get up to get dressed and leave.'
-								act 'Leave': gt'gdktoilet', 'start'
+							gs 'willpower', 'swallow', 'resist'
+							if will_cost <= pcs_willpwr:
+								act 'Spit (<<will_cost>> Willpower)':
+									*clr & cla
+									gs 'willpower', 'swallow', 'resist'
+									gs 'willpower', 'pay', 'resist'
+									minut +=5						
+									gs 'stat'
+									'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/mens/sex/cumspit.mp4"></video></center>'
+									'You spit out his cum which. The man says, "You don''t like the taste of cum?" You don''t respond and get up to get dressed and leave.'
+									act 'Leave': gt'gdktoilet', 'start'
+								end
+							else
+								act 'Spit (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 							end
 						end
 					else
-						act 'Keep sucking':
-							*clr & cla
-							minut += 5
-							swallow += 1
-							gs 'cum_call', 'mouth', 'guy from the men''s bathroom'
-							gs 'arousal', 'end'
-							gs 'stat'
-							if pcs_throat <= 25:
-								'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj91.mp4"></video></center>'
-								'You keep sucking taking in his entire dick. You stop when you feel his hard penis throbbing as a warm liquid fills your throat. You pull out his penis from your mouth making sure to not let any get spilled. The man says, "You are much better than that hole in the wall." You smile and nod to him and get dressed. You leave the bathroom feeling satisfied and relaxed.'
-								act 'Leave': gt'gdktoilet', 'start'
-							else
-								'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj26.mp4"></video></center>'
-								'Unable to continue to fit his entire penis inside your mouth you keep sucking the tip of his dick until you feel his hard penis throbbing as a warm liquid fills the back of your mouth. You pull out his penis from your mouth making sure to not let any get spilled. The man says, "You are much better than that hole in the wall." You smile and nod to him and get dressed. You leave the bathroom feeling satisfied and relaxed.'
-								act 'Leave': gt'gdktoilet', 'start'
+						gs 'willpower', 'sex', 'resist'
+						if will_cost <= pcs_willpwr:
+							act 'Keep sucking (<<will_cost>> Willpower)':
+								*clr & cla
+								gs 'willpower', 'sex', 'resist'
+								gs 'willpower', 'pay', 'resist'
+								minut += 5
+								swallow += 1
+								gs 'cum_call', 'mouth', 'guy from the men''s bathroom'
+								gs 'arousal', 'end'
+								gs 'stat'
+								if pcs_throat <= 25:
+									'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj91.mp4"></video></center>'
+									'You keep sucking taking in his entire dick. You stop when you feel his hard penis throbbing as a warm liquid fills your throat. You pull out his penis from your mouth making sure to not let any get spilled. The man says, "You are much better than that hole in the wall." You smile and nod to him and get dressed. You leave the bathroom feeling satisfied and relaxed.'
+									act 'Leave': gt'gdktoilet', 'start'
+								else
+									'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj26.mp4"></video></center>'
+									'Unable to continue to fit his entire penis inside your mouth you keep sucking the tip of his dick until you feel his hard penis throbbing as a warm liquid fills the back of your mouth. You pull out his penis from your mouth making sure to not let any get spilled. The man says, "You are much better than that hole in the wall." You smile and nod to him and get dressed. You leave the bathroom feeling satisfied and relaxed.'
+									act 'Leave': gt'gdktoilet', 'start'
+								end
 							end
+						else
+							act 'Keep sucking (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 						end
 						act 'Ride':
 							*clr & cla
@@ -621,28 +729,35 @@ if $ARGS[0] = 'emptystall':
 		'You walk down to the last stall. The large almost perfectly round hole is still there. You wonder how many women have used that hole. You feel a little excited as you contemplate your next move.'
 	end
 	if pcs_horny >=40:
-		act 'Caress Yourself':
-			if pcs_inhib < 40:inhib_exp += rand(1,3)
-			*clr & cla
-			gs 'stat'
-			picrand = rand(1,2)
-			if picrand = 1:
+		gs 'willpower', 'mast', 'self'
+		if will_cost <= pcs_willpwr:				
+			act 'Caress Yourself (<<will_cost>> Willpower)':
+				if pcs_inhib < 40:inhib_exp += rand(1,3)
 				*clr & cla
+				gs 'willpower', 'mast', 'self'
+				gs 'willpower', 'pay', 'self'
 				gs 'stat'
-				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/caress1.mp4"></video></center>'
-				'Feeling a bit turned on, you close the door to the stall and you behind to reach down your underwear and start rubbing your clit.'
-				gs 'arousal', 'masturbate', 4
-				gs 'stat'
-				act 'Continue': gs 'gdktoilet', 'contmast'
-			else
-				*clr & cla
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/shared/sex/mast/mastr.jpg"></center>'
-				'Feeling a bit turned on, you close the door to the stall and you sit down exposing your pussy and begin to run your clit.'
-				gs 'arousal', 'masturbate', 4
-				gs 'stat'
-				act 'Continue': gs 'gdktoilet', 'contmast'
+				picrand = rand(1,2)
+				if picrand = 1:
+					*clr & cla
+					gs 'stat'
+					'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/caress1.mp4"></video></center>'
+					'Feeling a bit turned on, you close the door to the stall and you behind to reach down your underwear and start rubbing your clit.'
+					gs 'arousal', 'masturbate', 4
+					gs 'stat'
+					act 'Continue': gs 'gdktoilet', 'contmast'
+				else
+					*clr & cla
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/shared/sex/mast/mastr.jpg"></center>'
+					'Feeling a bit turned on, you close the door to the stall and you sit down exposing your pussy and begin to run your clit.'
+					gs 'arousal', 'masturbate', 4
+					gs 'stat'
+					act 'Continue': gs 'gdktoilet', 'contmast'
+				end
 			end
+		else
+			act 'Caress Yourself (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	end
 	act 'Look at the Hole': gt 'gdktoilet', 'hole'
@@ -685,12 +800,20 @@ if $ARGS[0] = 'contmast':
 	else
 		act 'Continue': gt 'gdktoilet', 'contmast'
 	end
-	act 'Stop':
-		cla
-		gs 'arousal', 'end'
-		gs 'stat'
-		'You decide that you shouldn''t continue and stop yourself from finishing.'
-		act 'Leave Stall':gt 'gdktoilet', 'womens'
+	gs 'willpower', 'mast', 'self'
+	if will_cost <= pcs_willpwr:
+		act 'Stop (<<will_cost>> Willpower)':
+			cla
+			minut += 1
+			gs 'willpower', 'mast', 'self'
+			gs 'willpower', 'pay', 'self'
+			gs 'arousal', 'end'
+			gs 'stat'
+			'You decide that you shouldn''t continue and stop yourself from finishing.'
+			act 'Leave Stall':gt 'gdktoilet', 'womens'
+		end
+	else
+		act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
 end
 
@@ -711,12 +834,20 @@ if $ARGS[0] = 'hole':
 			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghstartled.mp4"></video></center>'
 			'While looking through the hole you decided to write something on the wall just above it. While you were focused on writing, you didn''t notice the dick poking through the hole until the tip of it nearly went into your mouth. Startled you jerk away from the offending penis.'
 			act 'Suck it': gt 'gdktoilet', 'blowjob'
-			act 'Touch the shaft':gt 'gdktoilet', 'virgin'
-			act 'Quickly leave the stall':
-				*clr & cla
-				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/eww.mp4"></video></center>'
-				'You shudder in disgust at the thought that some stranger''s dick was just practically in your mouth, you get up and quickly leave.'
-				act'Leave':gt 'gdktoilet', 'womens'
+			if pcs_throat = 0:act 'Touch the shaft':gt 'gdktoilet', 'virgin'
+			gs 'willpower', 'bj', 'resist'
+			if will_cost <= pcs_willpwr:
+				act 'Quickly leave the stall (<<will_cost>> Willpower)':
+					*clr & cla
+					gs 'willpower', 'bj', 'resist'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/eww.mp4"></video></center>'
+					'You shudder in disgust at the thought that some stranger''s dick was just practically in your mouth, you get up and quickly leave.'
+					act'Leave':gt 'gdktoilet', 'womens'
+				end
+			else
+				act 'Quickly leave the stall (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
 		end
 	elseif rand(1, 10) >= 7 - (ghnow * 2):
@@ -729,29 +860,54 @@ if $ARGS[0] = 'hole':
 			'You move away from the hole reconsidering what you were about to do and quickly leave the stall.'
 			act 'Leave':gt 'gdktoilet', 'womens'
 		end
-		act 'Stick your finger in the hole':
-			*clr & cla
-			money += 100
-			minut += 10
-			gs 'stat'
-			if gloryhole = 0:
-				'<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghfinger'+rand(1,5)+'.jpg"></center>'
-				'You put your finger in the hole hoping to entice a man to come over...'
-				'The man slips 100 <b>₽</b> into the hole, and then puts his erect cock through the hole.'
-				act 'Blow Him': gt 'gdktoilet', 'blowjob'
-			elseif gloryhole > 0:
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ready.jpg"></center>'
-				'You poke your finger in the hole showing that you are ready to serve a man. Then you put your face close to the hole and open your mouth.'
-				'The stranger slips 100 <b>₽</b> into the hole, and then his erect cock pokes out of the hole.'
-				act 'Blow Him': gt 'gdktoilet', 'blowjob'
-			end
-			act 'Stop':
+		gs 'willpower', 'bj', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Stick your finger in the hole (<<will_cost>> Willpower)':
 				*clr & cla
-				'Seeing the dick poke through, you reconsider what you are about to do, do you really want to suck some strange man''s dick, through a hole in the bathroom for money?'
-				act 'Take his money and Leave':gt 'gdktoilet', 'rape'
-				act 'Give back the money and Leave': money -= 100 & gt 'gdktoilet', 'womens'
-				act 'Blow Him': gt 'gdktoilet', 'blowjob'
+				money += 100
+				minut += 10
+				gs 'willpower', 'bj', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				if gloryhole = 0:
+					'<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghfinger'+rand(1,5)+'.jpg"></center>'
+					'You put your finger in the hole hoping to entice a man to come over...'
+					'The man slips 100 <b>₽</b> into the hole, and then puts his erect cock through the hole.'
+					act 'Blow Him': gt 'gdktoilet', 'blowjob'
+				elseif gloryhole > 0:
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ready.jpg"></center>'
+					'You poke your finger in the hole showing that you are ready to serve a man. Then you put your face close to the hole and open your mouth.'
+					'The stranger slips 100 <b>₽</b> into the hole, and then his erect cock pokes out of the hole.'
+					act 'Blow Him': gt 'gdktoilet', 'blowjob'
+				end
+				gs 'willpower', 'bj', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'Stop (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'willpower', 'bj', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						'Seeing the dick poke through, you reconsider what you are about to do, do you really want to suck some strange man''s dick, through a hole in the bathroom for money?'
+						gs 'willpower', 'bj', 'resist', 'hard'
+						if will_cost <= pcs_willpwr:
+							act 'Take his money and Leave (<<will_cost>> Willpower)':
+								gs 'willpower', 'bj', 'resist', 'hard'
+								gs 'willpower', 'pay', 'resist'
+								gs 'stat'
+								gt 'gdktoilet', 'rape'
+							end
+						else
+							act 'Take his money 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 'Give back the money and Leave': money -= 100 & gt 'gdktoilet', 'womens'
+						act 'Blow Him': gt 'gdktoilet', 'blowjob'
+					end
+				else
+					act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
 			end
+		else
+			act 'Stick your finger in the hole (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	else
 		*clr & cla
@@ -770,27 +926,41 @@ end
 if $ARGS[0] = 'virgin':
 	'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghvirgin1.mp4"></video></center>'
 	'You tentatively reach out and gently touch the dick, half afraid to, but also half wanting to.'
-
-	act 'Quickly leave the stall':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/eww.mp4"></video></center>'
-		'You shudder in disgust at the thought that you were just touching some stranger''s dick. You get up and quickly leave.'
-		act'Leave':gt 'gdktoilet', 'womens'
-	end
 	
+	gs 'willpower', 'hj', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Quickly leave the stall (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'hj', 'resist'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/eww.mp4"></video></center>'
+			'You shudder in disgust at the thought that you were just touching some stranger''s dick. You get up and quickly leave.'
+			act'Leave':gt 'gdktoilet', 'womens'
+		end
+	else
+		act 'Quickly leave the stall (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 	act 'Grab it':
 		*clr & cla
 		'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghfeeling.mp4"></video></center>'
 		'Biting your lip and deciding you want to feel it some more, you reach over again and grab it. You caress it with your hand, it is harder than you expected and warm to the touch, it almost feels like it is throbbing in your hand. Unexplained feelings of excitement run through your body. You hear through the wall the guy saying, "Stop playing with it and stroke it." "Huh?" You reply, not knowing why he wants you to stroke it. He replies, "Really, you don''t know? Just grab it with your hand and slide it up and down."'
 		gs 'arousal', 'foreplay', 5, 'unknown'
 		gs 'stat'
-		act 'Stop':
-			*clr & cla
-			gs 'arousal', 'end'
-			gs 'stat'
-			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/eww.mp4"></video></center>'
-			'You let go of him, wondering what possessed you to grab some stranger''s dick in the first place. You quickly leave the stall, you can hear the guy. "Hey why did you stop?... Hello? Are you still there? What the fuck!"'
-			act 'Quickly get out': gt 'gdktoilet', 'womens'
+		gs 'willpower', 'hj', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Stop (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'hj', 'resist', 'hard'
+				gs 'willpower', 'pay', 'resist'
+				gs 'arousal', 'end'
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/eww.mp4"></video></center>'
+				'You let go of him, wondering what possessed you to grab some stranger''s dick in the first place. You quickly leave the stall, you can hear the guy. "Hey why did you stop?... Hello? Are you still there? What the fuck!"'
+				act 'Quickly get out': gt 'gdktoilet', 'womens'
+			end
+		else
+			act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 		act 'Slide your hand on his penis':
 			*clr & cla
@@ -842,15 +1012,22 @@ if $ARGS[0] = 'blowjob':
 			'Despite what he says you keep sucking his dick, you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
 			act 'Get up': gt'gdktoilet', 'emptystall'
 		end
-		act 'Step back':
-			*clr & cla
-			facial += 1
-			gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
-			gs 'arousal', 'end'
-			gs 'stat'
-			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghfacial.mp4"></video></center>'
-			'You pull your mouth off his dick but keep jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
-			act 'Get up': gt'gdktoilet', 'emptystall'
+		gs 'willpower', 'swallow', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Step back (<<will_cost>> Willpower)':
+				*clr & cla
+				facial += 1
+				gs 'willpower', 'swallow', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
+				gs 'arousal', 'end'
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghfacial.mp4"></video></center>'
+				'You pull your mouth off his dick but keep jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
+				act 'Get up': gt'gdktoilet', 'emptystall'
+			end
+		else
+			act 'Step back (<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
@@ -890,38 +1067,53 @@ if $ARGS[0] = 'anal':
 		gs 'arousal', 'anal', 5, 'unknown', 'sub'
 		gs 'stat'
 		
-		act 'Stop':
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/analpain.jpg"></center>'
-			'The pain gets to be to much and you can''t take it anymore, on the verge of tears you stop and pull your ass off his dick. You quickly get dressed and leave, you wonder if it was supposed to hurt that much. You can hear the guy yelling at you for having stopped before he finished.'
-			gs 'arousal', 'end'
-			gs 'stat'
-
-			act 'Leave': gt'gdktoilet', 'womens'
+		gs 'willpower', 'anal', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Stop (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'anal', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'arousal', 'end'
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/analpain.jpg"></center>'
+				'The pain gets to be to much and you can''t take it anymore, on the verge of tears you stop and pull your ass off his dick. You quickly get dressed and leave, you wonder if it was supposed to hurt that much. You can hear the guy yelling at you for having stopped before he finished.'
+				act 'Leave': gt'gdktoilet', 'womens'
+			end
+		else
+			act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 		act 'Let him cum in your ass':
 			*clr & cla
 			gs 'cum_call', 'anus', 'an unknown guy from the gloryhole'
-			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghanalcream1.mp4"></video></center>'
-			'You feel his dick throb as he shoots his load of sperm deep in your ass, filling it up. When you pull your ass off his dick, you feel the hot sperm spilling out of your gaping asshole.'
 			gs 'arousal', 'anal', 10, 'unknown', 'sub'
 			minut -= 9
 			gs 'arousal', 'end'
 			gs 'stat'
+			
+			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghanalcream1.mp4"></video></center>'
+			'You feel his dick throb as he shoots his load of sperm deep in your ass, filling it up. When you pull your ass off his dick, you feel the hot sperm spilling out of your gaping asshole.'
 
 			act 'Get up': gt'gdktoilet', 'emptystall'
 		end
-		act 'Let him cum all over your ass':
-			*clr & cla
-			gs 'cum_call', 'butt', 'an unknown guy from the gloryhole'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ghcumonass.jpg"></center>'
-			'You pull your ass away, feeling his cock slip out of your asshole, just as you feel hot splashing of cum landing on your butt, coating your cheeks and running down the crack of your ass.'
-			gs 'arousal', 'anal', 10, 'unknown', 'sub'
-			minut -= 9
-			gs 'arousal', 'end'
-			gs 'stat'
+		gs 'willpower', 'cum_inside_anal', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Let him cum all over your ass (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'cum_inside_anal', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'cum_call', 'butt', 'an unknown guy from the gloryhole'
+				gs 'arousal', 'anal', 10, 'unknown', 'sub'
+				minut -= 9
+				gs 'arousal', 'end'
+				gs 'stat'
+				
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/bathroom/womens/sex/ghcumonass.jpg"></center>'
+				'You pull your ass away, feeling his cock slip out of your asshole, just as you feel hot splashing of cum landing on your butt, coating your cheeks and running down the crack of your ass.'
 
-			act 'Get up': gt'gdktoilet', 'emptystall'
+				act 'Get up': gt'gdktoilet', 'emptystall'
+			end
+		else
+			act 'Let him cum all over your ass (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 		act 'Turn around, kneel and let him cum in your mouth':
 			*clr & cla
@@ -936,18 +1128,25 @@ if $ARGS[0] = 'anal':
 
 			act 'Get up': gt'gdktoilet', 'emptystall'
 		end
-		act 'Turn around, kneel and let him cum on your face':
-			*clr & cla
-			facial += 1
-			gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
-			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghfacial.mp4"></video></center>'
-			'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
-			gs 'arousal', 'hj', 10, 'unknown', 'sub'
-			minut -= 9
-			gs 'arousal', 'end'
-			gs 'stat'
+		gs 'willpower', 'swallow', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Turn around, kneel and let him cum on your face (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'swallow', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				facial += 1
+				gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
+				gs 'arousal', 'hj', 10, 'unknown', 'sub'
+				minut -= 9
+				gs 'arousal', 'end'
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghfacial.mp4"></video></center>'
+				'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
 
-			act 'Get up': gt'gdktoilet', 'emptystall'
+				act 'Get up': gt'gdktoilet', 'emptystall'
+			end
+		else
+			act 'Turn around, kneel and let him cum on your face (<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
@@ -994,32 +1193,48 @@ if $ARGS[0] = 'pussy2':
 
 			act 'Get dressed': gt'gdktoilet', 'emptystall'
 		end
-		act 'Quickly turn around and get on your knees':
-			*clr & cla
-			act 'Let him cum in your mouth':
-				*clr & cla
-				swallow += 1
-				gs 'cum_call', 'mouth', 'an unknown guy from the gloryhole'
-				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghswallow.mp4"></video></center>'
-				'Once down on your knees you take his dick into your mouth and start sucking him. You are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
-				gs 'arousal', 'bj', 10, 'unknown', 'sub'
-				minut -= 9
-				gs 'arousal', 'end'
-				gs 'stat'
-				act 'Get dressed': gt'gdktoilet', 'emptystall'
-			end
-			act 'Let him cum on your face':
+		gs 'willpower', 'cum_inside', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Quickly turn around and get on your knees (<<will_cost>> Willpower)':
 				*clr & cla
-				facial += 1
-				gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
-				'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghfacial.mp4"></video></center>'
-				'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
-				gs 'arousal', 'hj', 10, 'unknown', 'sub'
-				minut -= 9
-				gs 'arousal', 'end'
+				gs 'willpower', 'cum_inside', 'resist'
+				gs 'willpower', 'pay', 'resist'
 				gs 'stat'
-				act 'Get dressed': gt'gdktoilet', 'emptystall'
+				act 'Let him cum in your mouth':
+					*clr & cla
+					swallow += 1
+					gs 'cum_call', 'mouth', 'an unknown guy from the gloryhole'
+					'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghswallow.mp4"></video></center>'
+					'Once down on your knees you take his dick into your mouth and start sucking him. You are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
+					gs 'arousal', 'bj', 10, 'unknown', 'sub'
+					minut -= 9
+					gs 'arousal', 'end'
+					gs 'stat'
+					act 'Get dressed': gt'gdktoilet', 'emptystall'
+				end
+				gs 'willpower', 'swallow', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'Let him cum on your face (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'willpower', 'swallow', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						facial += 1
+						gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
+						gs 'arousal', 'hj', 10, 'unknown', 'sub'
+						minut -= 9
+						gs 'arousal', 'end'
+						gs 'stat'
+						'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/ghfacial.mp4"></video></center>'
+						'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
+
+						act 'Get dressed': gt'gdktoilet', 'emptystall'
+					end
+				else
+					act 'Let him cum on your face (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
 			end
+		else
+			act 'Quickly turn around and get on your knees (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	else
 		if sexcontra = 4: