浏览代码

[added] willpower seeding for Vasily Dan and Vitek drinking events and sex and some other smaller files too

sovietmercader 5 年之前
父节点
当前提交
bee4d243d1

+ 0 - 11
locations/HotelHole.qsrc

@@ -869,12 +869,6 @@ if $ARGS[0] = 'PregBDSM' :
 			*clr & cla
 			gs 'arousal', 'bj', 30, 'rough','sub','humiliation'
 			gs 'stat'
-			if pcs_dom => 5:
-				pcs_dom -5
-			else
-				sub = sub + 5 - pcs_dom
-				pcs_dom = 0
-			end
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/pregbdsm2.jpg"></center>'
 			'<<$boydesc>> releases your cuffs from the chain and you immediately collapse onto your knees, the forced suspension being the only thing keeping you standing. He takes his <<dick>> cm dick and pushes it against your lips.'
 			'"Now start working, you fat cow!" He demands.'
@@ -919,11 +913,6 @@ if $ARGS[0] = 'PregBDSM' :
 				act 'Swallow your last bit of pride and take a sip':
 					*clr & cla
 					pcs_hydra += 20
-					if pcs_dom => 20:
-						pcs_dom -20
-					else
-						sub = sub + 20 - pcs_dom
-					end
 					gs 'arousal', 'pee', -5, 'sub', 'humilation'
 					gs 'arousal', 'end'
 					'"<<$pitfs>>Ok baby, I am doing this for you.<<$pitfe>>" You think as you place a hand on your hefty belly and stop resisting.'

+ 79 - 41
locations/Military.qsrc

@@ -67,8 +67,18 @@ if $ARGS[0] = 'san0':
 	gs 'boyStat', $npclastgenerated
 	'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/san0.jpg"></center>'
 	'During the examination, the patient shows you his erection and looks at you with anticipation.'
-
-	act 'Drive him away':gt 'Military', 'start'
+	
+	gs 'willpower', 'bj', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Drive him away (<<will_cost>> Willpower)':
+			gs 'willpower', 'bj', 'resist'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'Military', 'start'
+		end
+	else
+		act 'Drive him 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 'Play along':
 		guy += 1
@@ -88,7 +98,17 @@ if $ARGS[0] = 'san1':
 	'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/san1.jpg"></center>'
 	'While the infirmary is unoccupied, the doctor begins to molest you.'
 
-	act 'Drive him away':gt 'Military', 'start'
+	gs 'willpower', 'bj', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Drive him away (<<will_cost>> Willpower)':
+			gs 'willpower', 'bj', 'resist'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'Military', 'start'
+		end
+	else
+		act 'Drive him 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 'Play along':
 		guy += 1
@@ -103,8 +123,18 @@ if $ARGS[0] = 'pro0':
 	menu_off = 1
 	cla
 	'You met two soldiers whom ask you to help them out with a war game, in the role of a captive spy.'
-
-	act 'Refuse':gt 'Military', 'start'
+	
+	gs 'willpower' 'gangbang', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Refuse (<<will_cost>> Willpower)':
+			gs 'willpower', 'gangbang', 'resist'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'Military', 'start'
+		end
+	else
+		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 
 	act 'Agree':
 		gs 'npcgeneratec', 0, 'Soldier', rand(18,34)
@@ -134,42 +164,50 @@ if $ARGS[0] = 'pro1':
 	'You notice that a guy follows you for several minutes.'
 
 	act 'Ignore it':gt 'military', 'rape'
+	
+	gs 'willpower', 'rape', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Run away (<<will_cost>> Willpower)':
+			gs 'willpower', 'rape', 'resist'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/shared/military/forest_running.jpg"></center>'
+			if pcs_run < 10:
+				peshimraperand = rand(0, 11)
+			elseif pcs_run < 20:
+				peshimraperand = rand(0, 20)
+			elseif pcs_run < 30:
+				peshimraperand = rand(0, 30)
+			elseif pcs_run < 40:
+				peshimraperand = rand(0, 40)
+			elseif pcs_run < 50:
+				peshimraperand = rand(0, 50)
+			elseif pcs_run < 60:
+				peshimraperand = rand(0, 60)
+			elseif pcs_run < 70:
+				peshimraperand = rand(0, 70)
+			elseif pcs_run < 80:
+				peshimraperand = rand(0, 80)
+			elseif pcs_run < 90:
+				peshimraperand = rand(0, 90)
+			else
+				peshimraperand = rand(11, 100)
+			end
 
-	act 'Run away':
-		'<center><img <<$set_imgh>> src="images/locations/city/shared/military/forest_running.jpg"></center>'
-		if pcs_run < 10:
-			peshimraperand = rand(0, 11)
-		elseif pcs_run < 20:
-			peshimraperand = rand(0, 20)
-		elseif pcs_run < 30:
-			peshimraperand = rand(0, 30)
-		elseif pcs_run < 40:
-			peshimraperand = rand(0, 40)
-		elseif pcs_run < 50:
-			peshimraperand = rand(0, 50)
-		elseif pcs_run < 60:
-			peshimraperand = rand(0, 60)
-		elseif pcs_run < 70:
-			peshimraperand = rand(0, 70)
-		elseif pcs_run < 80:
-			peshimraperand = rand(0, 80)
-		elseif pcs_run < 90:
-			peshimraperand = rand(0, 90)
-		else
-			peshimraperand = rand(11, 100)
-		end
-
-		if peshimraperand < 11:
-			cla
-			'You tried to run away but the guy caught you.'
+			if peshimraperand < 11:
+				cla
+				'You tried to run away but the guy caught you.'
 
-			act 'Further':gt 'military', 'rape'
-		else
-			cla
-			'You are rushing headlong, crashing through the bushes. Finally you ran back to the camp.'
+				act 'Continue':gt 'military', 'rape'
+			else
+				cla
+				'You are rushing headlong, crashing through the bushes. Finally you ran back to the camp.'
 
-			act 'Further':gt 'military', 'start'
+				act 'Continue':gt 'military', 'start'
+			end
 		end
+	else
+		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
 end
 
@@ -198,7 +236,7 @@ if $ARGS[0] = 'rape':
 		gs 'arousal', 'bj', 5, 'sub', 'rough'
 		gs 'stat'
 		
-		act 'Further':
+		act 'Continue':
 			cla
 			*clr
 			cumprecheck = 1
@@ -209,7 +247,7 @@ if $ARGS[0] = 'rape':
 			gs 'arousal', 'vaginal', 10, 'sub', 'rough'
 			gs 'stat'
 		
-			act 'Further':
+			act 'Continue':
 				cla
 				*clr
 				'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/rape4.jpg"></center>'
@@ -218,7 +256,7 @@ if $ARGS[0] = 'rape':
 				gs 'arousal', 'anal', 10, 'sub', 'rough'
 				gs 'stat'
 		
-				act 'Further':
+				act 'Continue':
 					cla
 					*clr
 					sexpartkno = 1
@@ -233,7 +271,7 @@ if $ARGS[0] = 'rape':
 					gs 'arousal', 'end'
 					gs 'stat'
 					
-					act 'Further':gt 'military', 'start'
+					act 'Continue':gt 'military', 'start'
 				end
 			end
 		end

+ 0 - 2
locations/gdksex.qsrc

@@ -457,7 +457,6 @@ if $ARGS[0] = 'kissing':
 								if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0:guy += 1
 
 								bmBJ[Tboynum] += 1
-								sub += 1
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/cocksuck.jpg"></center>'
 								'Without even realizing it, you move in to gently kiss the penis. After a few kisses and licks you let it slide into your mouth and begin to suck him off diligently, wanting to repay him for the pleasure he just gave you.'
@@ -681,7 +680,6 @@ if $ARGS[0] = 'blowjob':
 	if boynumBlock = 0:guy += 1
 	if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0:guy += 1
 
-	sub += 1
 	gs 'boymass', 'B'
 	bmBJ[Tboynum] += 1
 	gs 'stat'

+ 38 - 23
locations/gopsex.qsrc

@@ -194,7 +194,7 @@ if $ARGS[0] = 'gopsex_select':
 		act 'Sex with Vitek':
 			if shgopsex_vitya_count <= 0:
 				cla
-				'Vitek says: "Sorry <<$pcs_nickname>>, I can''t to fuck more today."'
+				'Vitek says: "Sorry <<$pcs_nickname>>, I can''t fuck you more today."'
 				act 'Leave': gt 'shulga_room', 'start'
 			else
 				$gopsex_n_npc = 2
@@ -211,7 +211,17 @@ if $ARGS[0] = 'gopsex_select':
 			end
 		end
 	end
-	act 'Leave': gt 'shulga_room', 'start'
+	gs 'willpower', 'sex', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Leave (<<will_cost>> Willpower)':
+			gs 'willpower', 'sex', 'resist'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'shulga_room', '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
 !===========================================================!
 !Sex 1 on 1!
@@ -223,8 +233,8 @@ if $ARGS[0] = 'shgopsex':
 		'"So <<$boydesc>>, do you want to have fun with me?" You lick your lips sensually and ask him: "What can I do for you?"'
 		if mesec > 0:
 			'<font color = red><b>You warn him that you''re on your period and so your pussy is off limits!</b></font>'
-		elseif mesec <=0 and pcs_vag <=0:
-			'<font color = red><b>You tell him, that you want to save you virginity, so your pussy is available only for eating.</b></font>'
+		elseif mesec <= 0 and pcs_vag <= 0:
+			'<font color = red><b>You tell him, that you want to save your virginity, so your pussy is available only for eating.</b></font>'
 		end
 	end
 	act 'Hand job': gt 'gopsex', 'shgopsex_hj'
@@ -232,17 +242,25 @@ if $ARGS[0] = 'shgopsex':
 	if pcs_throat >= 20:
 		act 'Deep Throat': gt 'gopsex', 'shgopsex_throat'
 	end
-	if mesec <=0 and pcs_vag >=1:
+	if mesec <= 0 and pcs_vag >= 1:
 		act 'Sex': gt 'gopsex', 'shgopsex_vag'
 	end
 	act 'Anal sex': gt 'gopsex', 'shgopsex_anal'
 	act 'Grope boobs': gt 'gopsex', 'shgopsex_tits'
-	if mesec <=0:
+	if mesec <= 0:
 		act 'Sixty nine': gt 'gopsex', 'shgopsex_69'
 		act 'Cunnilingus': gt 'gopsex', 'shgopsex_lick'
-	end	
-	if pcs_dom >= 5: 
-		act 'Leave': gt 'shulga_room', 'start'
+	end
+	gs 'willpower', 'sex', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Leave (<<will_cost>> Willpower)':
+			gs 'willpower', 'sex', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'shulga_room', '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
 !ending sex
@@ -274,7 +292,7 @@ if $ARGS[0] = 'shgopsex_lick':
 	!Vasya (NPC 1)
 	if $gopsex_n_npc = 1:
 		if pav_slut >= 100:
-			'<<$pcs_nickname>> you are a <<$gnikname>>, it''s unpleasant for me to lick cunt such girl, God knows how many cocks you have got there today. So go ahead, expose your whorish holes! I''m going to fuck you.'
+			'<<$pcs_nickname>> you are a <<$gnikname>>, it''s unpleasant for me to lick the cunt of such a girl, God knows how many cocks you have got there today. So go ahead, show me your whorish holes! I''m going to fuck you.'
 		elseif pav_slut < 100:
 			pcs_horny += 10
 			minut += ''+rand(3,7)+''
@@ -286,7 +304,7 @@ if $ARGS[0] = 'shgopsex_lick':
 	!Vitya (NPC 2)
 	if $gopsex_n_npc = 2:
 		if pav_slut >= 100:
-			'<<$pcs_nickname>> you are a <<$gnikname>>, it''s unpleasant for me to lick cunt such girl, God knows how many cocks you have got there today. So go ahead, show me better your whorish holes!'
+			'<<$pcs_nickname>> you are a <<$gnikname>>, it''s unpleasant for me to lick the cunt of such a girl, God knows how many cocks you have got there today. So go ahead, show me your whorish holes! I''m going to fuck you.'
 		elseif pav_slut < 100:
 			pcs_horny += 10
 			minut += ''+rand(3,7)+''
@@ -298,10 +316,10 @@ if $ARGS[0] = 'shgopsex_lick':
 	end
 	!Dan (NPC 0)
 	if $gopsex_n_npc = 0:
-	'"Dan, lick my pussy, please." You ask sweetly.'
-	'"<<$pcs_nickname>>, aren''t you screwy to asking me doing such stuff?"'
-	'"And what''s wrong with that? Are you ashamed to do me nicely?"'
-	'"Yes, it''s unpleasant for me to lick cunt of a slut, God knows how many cocks you have got there today ... So come on! Don''t fuck with me ... Expose your whorish holes! I''m going to fuck you."'
+		'"Dan, lick my pussy, please." You ask sweetly.'
+		'"<<$pcs_nickname>>, aren''t you screwy to asking me doing such stuff?"'
+		'"And what''s wrong with that? Are you ashamed to do me nicely?"'
+		'"Yes, it''s unpleasant for me to lick the cunt of a slut, God knows how many cocks you have got there today ... So come on! Don''t fuck with me ... Expose your whorish holes! I''m going to fuck you."'
 	end
 	act 'Sex selection': gs 'gopsex', 'shgopsex','cont'
 end
@@ -312,7 +330,7 @@ if $ARGS[0] = 'shgopsex_69':
 	gs 'stat'
 	if $gopsex_n_npc >= 1:
 		if pav_slut >= 100:
-			'<<$pcs_nickname>> you are a <<$gnikname>>, it''s unpleasant for me to lick cunt such girl, God knows how many cocks you have got there today. So go ahead, show me better your whorish holes!'
+			'<<$pcs_nickname>> you are a <<$gnikname>>, it''s unpleasant for me to lick the cunt of such a girl, God knows how many cocks you have got there today. So go ahead, show me better your whorish holes! I''m going to fuck you.'
 			act 'Sex selection': gs 'gopsex', 'shgopsex','cont'
 		elseif pav_slut < 100:
 			gs 'arousal', 'bj', 5
@@ -478,7 +496,7 @@ if $ARGS[0] = 'shgopsex_group':
 		act 'Suck all at once': gs 'gopsex','hide','group_sex_start' & gt 'gopsex','hide','shgopsex_group_bja'
 	end
 	if pcs_vag >=1 and mesec <=0:
-		act 'The pussy': gs 'gopsex','hide','group_sex_start' & gt 'gopsex','hide','shgopsex_group_vag'
+		act 'In the pussy': gs 'gopsex','hide','group_sex_start' & gt 'gopsex','hide','shgopsex_group_vag'
 	end
 	act 'In the ass': gs 'gopsex','hide','group_sex_start' & gt 'gopsex','hide','shgopsex_group_anal'
 	if pcs_vag >=1 and mesec <=0:
@@ -490,9 +508,6 @@ if $ARGS[0] = 'shgopsex_group':
 	if pcs_ass >= 30:
 		act 'Three cocks in the ass': gs 'gopsex','hide','group_sex_start' & gt 'gopsex','hide','shgopsex_group_tripleanal'
 	end
-	if pcs_dom => 10:
-		act 'Leave': gt 'shulga_room', 'start'
-	end
 	gs 'stat'
 end
 !hide small parts of code
@@ -982,7 +997,7 @@ if $ARGS[0] = 'hide':
 		killvar 'O'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/gopsex/group/cum/swallow'+rand(1,12)+'.jpg"></center>'
-		'One by one the '+func('gopsex','hide','gop_text_npcr')+' cumm their semen into your mouth and you swallow it all.'
+		'One by one the '+func('gopsex','hide','gop_text_npcr')+' cum their semen into your mouth and you swallow it all.'
 		gs 'arousal', 'end'
 		act 'Leave': gt 'shulga_room', 'start'
 	end &!--- shgopsex_group_swallow ---
@@ -1003,7 +1018,7 @@ if $ARGS[0] = 'hide':
 		gs 'arousal', 'end'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/gopsex/group/cum/cumbody'+rand(1,15)+'.jpg"></center>'
-		'The '+func('gopsex','hide','gop_text_npcr')+' come, squirting their hot sticky cum all over your body.' 
+		'The '+func('gopsex','hide','gop_text_npcr')+' cum, squirting their hot sticky cum all over your body.' 
 		act 'Leave': gt 'shulga_room', 'start'
 	end &!--- shgopsex_group_cumbelly ---
 
@@ -1023,7 +1038,7 @@ if $ARGS[0] = 'hide':
 		gs 'arousal', 'end'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/gopsex/group/cum/cumvag'+rand(1,4)+'.jpg"></center>'
-		'One by one the '+func('gopsex','hide','gop_text_npcr')+' take their turns and shot their hot cum onto your pussy.'
+		'One by one the '+func('gopsex','hide','gop_text_npcr')+' take their turns shooting their hot cum into your pussy.'
 		act 'Leave': gt 'shulga_room', 'start'
 	end &!--- shgopsex_group_cumvag ---
 

+ 309 - 166
locations/gopskver.qsrc

@@ -28,13 +28,21 @@ if kotovLoveQW > 0:
 		else
 			'Vitek Kotov sees you walking in the park, and tells you to come over. When you approach him, he explains he''s drinking some beer with his friends in the park, and offers you to join them.'
 		end
-
-		act 'Decline and leave':
-			if $prevloc = 'gkafe':
-				gt 'gkafe'
-			else
-				gt 'gskver', 'start'
+		
+		gs 'willpower', 'drink', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Decline and leave (<<will_cost>> Willpower)':
+				gs 'willpower', 'drink', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				if $prevloc = 'gkafe':
+					gt 'gkafe'
+				else
+					gt 'gskver', 'start'
+				end
 			end
+		else
+			act 'Decline 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 'Drink beer with Vitek and the guys':
@@ -44,8 +52,8 @@ if kotovLoveQW > 0:
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/beer3.jpg"></center>'
 			'The guys pour out a beer for you, and you enjoy a nice cold beer in their company.'
-
-			act 'Continue':
+			
+			act 'Leave':
 				if $prevloc = 'gkafe':
 					gt 'gkafe'
 				else
@@ -56,10 +64,10 @@ if kotovLoveQW > 0:
 			if hour = 20:
 				*nl
 				if week = 5 or week = 6:
-					'It''s evening, and the boys are getting ready to go to the disco like they do every friday and saturday. You could call it a night and leave them alone, or tag along.'
+					'It''s evening, and the boys are getting ready to go to the disco like they do every Friday and Saturday. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
 					act 'Go to the disco with the boys':minut += 15 & gt 'gdkin'
 				else
-					'It''s evening, and the boys are getting ready to go to Vasily'' Home. You could call it a night and leave them alone, or tag along.'
+					'It''s evening, and the boys are getting ready to go to Vasily'' Home. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
 					act 'Go with the boys':minut += 15 & gt 'shulgahall'
 				end
 			end
@@ -83,10 +91,10 @@ if kotovLoveQW > 0:
 		*nl
 		act 'Leave':gt 'gskver', 'start'
 		if week = 5 or week = 6:
-			'It''s evening, and the boys are getting ready to go to the disco like they do every friday and saturday. You could call it a night and leave them alone, or tag along.'
+			'It''s evening, and the boys are getting ready to go to the disco like they do every Friday and Saturday. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
 			act 'Go to the disco with the boys': minut += 15 & gt 'gdkin'
 		else
-			'It''s evening, and the boys are getting ready to go to Vasily''s home. You could call it a night and leave them alone, or tag along.'
+			'It''s evening, and the boys are getting ready to go to Vasily''s home. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
 			act 'Go to with the boys': minut += 15 & gt 'shulgahall'
 		end
 	end
@@ -96,16 +104,26 @@ else
 			*nl
 			act 'Leave':gt 'gskver', 'start'
 			if week = 5 or week = 6:
-				'It''s evening, and the boys are getting ready to go to the disco like they do every friday and saturday. You could call it a night and leave them alone, or tag along.'
+				'It''s evening, and the boys are getting ready to go to the disco like they do every Friday and Saturday. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
 				act 'Go to the disco with the boys': minut += 15 & gt 'gdkin'
 			else
-				'It''s evening, and the boys are getting ready to go to Vasily''s home. You could call it a night and leave them alone, or tag along.'
+				'It''s evening, and the boys are getting ready to go to Vasily''s home. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
 				act 'Go to with the boys': minut += 15 & gt 'shulgahall'
 			end
-		elseif alko >= 9 and alko < 9 and DansOralSlut = 1:
+		elseif alko >= 6 and alko < 9 and DansOralSlut = 1:
 			'You''re quite drunk, and before going to the disco Dan offers to walk you home.'
-
-			if pcs_dom >= 5: act '"No need, I can find my own way home"': gt 'pavComplex', 'start'
+			
+			gs 'willpower', 'misc', 'resist'
+			if will_cost <= pcs_willpwr:
+				act '"No need, I can find my own way home" (<<will_cost>> Willpower)':
+					gs 'willpower', 'misc', 'resist'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					gt 'pavComplex', 'start'
+				end
+			else
+				act '"No need, I can find my own way home" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
 
 			act 'Go with Dan':
 				*clr & cla
@@ -114,21 +132,38 @@ else
 				gs 'stat'
 				'You''re walking down the street, feeling a bit wobbly from the alcohol while Dan supports your weight. He tells you funny stories and anecdotes along the way, and before you know it you''re at your apartment building. When you open the door and enter the building, Dan suddenly pulls you to the side. He''s quite rough about it, and shoves you into a dark corner of the stairwell. He takes your hand by the chin and whispers in your ear: "Your turn to make me feel good, slut. Otherwise I''m telling everyone."'
 				gs 'gopskver', 'dan_blowjob'
+				
+				gs 'willpower', 'bj', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Push him away and go home (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'fame', 'pav', 'sex', 60
+						gs 'willpower', 'bj', 'resist', 'hard'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						'You push him away from you and say indignantly: "No way, Dan! Leave me alone!"'
+						'Dan''s eyes look murderous, but he doesn''t touch you. After a few seconds he bounces back, and he grins as he says: "Suit yourself, whore... your reputation in town will be ruined", and then walks away before you can get another word in.'
 
-				act 'Push him away':
-					*clr & cla
-					pav_prostitute += 60
-					gs 'stat'
-					'You push him away from you and say indignantly: "No way, Dan! Leave me alone!"'
-					'Dan''s eyes look murderous, but he doesn''t touch you. After a few seconds he bounces back, and he grins as he says: "Suit yourself, whore... your reputation in town will be ruined", and then walks away before you can get another word in.'
-
-					act 'Go home': gt 'pavComplex', 'start'
+						act 'Go home': gt 'pavComplex', 'start'
+					end
+				else
+					act 'Push him away and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
 			end
 		elseif alko >= 6 and alko < 9 and DansOralSlut = 0:
 			'You''re quite drunk, and before going to the disco Dan offers to walk you home.'
 
-			if pcs_dom >= 5: act 'Decline': gt 'pavComplex', 'start'
+			gs 'willpower', 'misc', 'resist'
+			if will_cost <= pcs_willpwr:
+				act '"No need, I can find my own way home" (<<will_cost>> Willpower)':
+					gs 'willpower', 'misc', 'resist'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					gt 'pavComplex', 'start'
+				end
+			else
+				act '"No need, I can find my own way home" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
 
 			act 'Go with Dan':
 				*clr & cla
@@ -136,16 +171,36 @@ else
 				minut += 15
 				gs 'stat'
 				'You''re walking down the street, feeling a bit wobbly from the alcohol while Dan supports your weight. He tells you funny stories and anecdotes along the way, and before you know it you''re at your apartment building. When you open the door and enter the building, Dan suddenly pulls you to the side. He''s quite rough about it, and shoves you into a dark corner of the stairwell. He takes your hand by the chin and kisses your lips hard.'
-
-				if pcs_dom >= 10: act 'Push him away and go home': pcs_dom -= 2 & gt 'pavComplex', 'start'
+				
+				gs 'willpower', 'sex_other', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'Push him away and go home (<<will_cost>> Willpower)':
+						gs 'willpower', 'sex_other', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						gt 'pavComplex', 'start'
+					end
+				else
+					act 'Push him away and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
 
 				act 'Kiss him back':
 					*clr & cla
 					pcs_horny += 10
 					gs 'stat'
-					'You return his kiss, unsure why he''s kissing you... he never seemed to be that interested in you. Then you feel his hands on your shoulders, and Dan firmly presses down on them trying to get you to drop to your knees. He whispers reassuringly: "Don''t worry, <<$pcs_nickname>>... I didn''t tell anyone about all the things you did. Do a good job, and your secret will stay safe."'
+					'You return his kiss, unsure why he''s kissing you... he never seemed to be that interested in you. Then you feel his hands on your shoulders, and Dan firmly presses down on them trying to get you to drop to your knees. He whispers reassuringly: "Don''t worry, <<$pcs_nickname>>... I won''t tell anyone about this. Do a good job, and this secret will stay between us."'
 
-					if pcs_dom >= 15: act 'Push him away and go home': pcs_dom -= 5 & gt 'pavComplex', 'start'
+					gs 'willpower', 'bj', 'resist'
+					if will_cost <= pcs_willpwr:
+						act 'Push him away and go home (<<will_cost>> Willpower)':
+							gs 'willpower', 'bj', 'resist'
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							gt 'pavComplex', 'start'
+						end
+					else
+						act 'Push him away and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
 
 					gs 'gopskver', 'dan_blowjob'
 				end
@@ -153,7 +208,17 @@ else
 		elseif alko >= 9:
 			'You got absolutely hammered in the park, and are swaying from side to side when you walk down the pathway. Suddenly Vasily hugs your waist tightly and begins to lead you somewhere, with his friends following him.'
 
-			if pcs_dom >= 5: act 'Say you have to go and leave them': pcs_dom -= 1 & gt 'pavComplex', 'start'
+			gs 'willpower', 'gangbang', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Push them away and go home (<<will_cost>> Willpower)':
+					gs 'willpower', 'gangbang', 'resist', 'hard'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					gt 'pavComplex', 'start'
+				end
+			else
+				act 'Push them away and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
 
 			act 'Go with the guys':
 				*clr & cla
@@ -197,12 +262,20 @@ else
 			if alko < 6:
 				iif($prevloc = 'gkafe','The boys ordered some extra beers ','The boys have some extra beers with them,') + 'and invite you to have a seat and join them.'
 
-				act 'Decline the beer and leave':
-					if $prevloc = 'gkafe' or $prevloc = 'pavtrainhall':
-						gt $prevloc
-					else
-						gt 'gskver', 'start'
+				gs 'willpower', 'drink', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'Decline and leave (<<will_cost>> Willpower)':
+						gs 'willpower', 'drink', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						if $prevloc = 'gkafe' or $prevloc = 'pavtrainhall':
+							gt $prevloc
+						else
+							gt 'gskver', 'start'
+						end
 					end
+				else
+					act 'Decline 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 'Drink beer with the guys':
@@ -213,7 +286,7 @@ else
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/beer3.jpg"></center>'
 					'The guys cheer and pour out a beer for you. Vasily gives you ' + iif($prevloc = 'gkafe','a glass','the cup') +' while the others propose a toast, already having beers in their hands. You happily join them in their toast, and spend the next 15 minutes chatting with them and having sips of your cold beer.'
 
-					act 'Continue':
+					act 'Leave':
 						if $prevloc = 'gkafe' or $prevloc = 'pavtrainhall':
 							gt $prevloc
 						else
@@ -223,10 +296,10 @@ else
 					if hour = 20:
 						*nl
 						if week = 5 or week = 6:
-							'It''s evening, and the boys are getting ready to go to the disco like they do every friday and saturday. You could call it a night and leave them alone, or tag along.'
+							'It''s evening, and the boys are getting ready to go to the disco like they do every Friday and Saturday. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
 							act 'Go to the disco with the boys': minut += 15 & gt 'gdkin'
 						else
-							'It''s evening, and the boys are getting ready to go to Vasily''s home. You could call it a night and leave them alone, or tag along.'
+							'It''s evening, and the boys are getting ready to go to Vasily''s home. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
 							act 'Go with the boys': minut += 15 & gt 'shulgahall'
 						end
 					end
@@ -242,7 +315,7 @@ else
 						'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big11.jpg"></center>'
 						'Vasily puts his hand on your shoulder and tells you that his friends aren''t the kind of guys a nice girl should be getting drunk with and sends you on your way.'
 
-						act 'Continue':
+						act 'Leave':
 							if $prevloc = 'gkafe' or $prevloc = 'pavtrainhall':
 								gt $prevloc
 							else
@@ -266,14 +339,21 @@ else
 
 						act 'Thank them for the beer and leave':gt 'gskver', 'start'
 					end
+					
+					gs 'willpower', 'exhib', 'resist'
+					if will_cost <= pcs_willpwr:
+						act '"What? No!" (<<will_cost>> Willpower)':
+							*clr & cla
+							gs 'willpower', 'exhib', 'resist'
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							'You raise your voice a little and act surprised: "What? No way! Whoever told you that was lying!"'
+							'However, Dan doesn''t fall for your act, and matter-of-factly says: "<<$pcs_nickname>>, you''re a slut. We''ve all seen you, the whole town knows it. Why are you even trying to deny it? You''re such a terrible liar..."'
 
-					act '"What? No!"':
-						*clr & cla
-						gs 'stat'
-						'You raise your voice a little and act surprised: "What? No way! Whoever told you that was lying!"'
-						'However, Dan doesn''t fall for your act, and matter-of-factly says: "<<$pcs_nickname>>, you''re a slut. We''ve all seen you, the whole town knows it. Why are you even trying to deny it? You''re such a terrible liar..."'
-
-						act 'Leave':gt 'gskver', 'start'
+							act 'Leave':gt 'gskver', 'start'
+						end
+					else
+						act '"What? No!" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 					end
 				elseif pav_slut < 125:
 					if $prevloc = 'gkafe':'Vasily suggests to the guys to leave the cafe and continue drinking in the park. You are too drunk to resist so you just follow them to the park'
@@ -289,41 +369,53 @@ else
 							gs 'stat'
 							'You blush again but confirm: "Yes, I let them cum inside my mouth."'
 							'Vasily is excited now, squirming in his seat: "So... how about you put that pretty mouth of yours to work on us?"'
-
-							act '"No way!"':
-								*clr & cla
-								gs 'stat'
-								'You indignantly reject Vasily''s proposal: "No way, Shulga! I can''t just do that for everyone who asks!"'
-								'Dan suddenly growls at you: "Shut up, whore. I''ve seen you suck cocks of just about anyone you meet, and swallow their loads to the last drop! They make videos when you''re not paying attention... and now suddenly we''re not good enough for you?"'
-								'You''re a bit afraid of his sudden outburst and try to explain yourself: "Dan please, you have to understand! I don''t just su-"'
-								'He interrupts you: "Shut up! We won''t ask again... are you going to be a nice little slut and do as we ask, or are you going to keep pretending to be some stuck up bitch?"'
-
-								act 'Be a nice little slut':
-									*clr & cla
-									gs 'stat'
-									'You don''t want to anger Dan any further, and decide to back down. You softly say: "Relax, Dan... I''m sorry, I didn''t mean to insult you or your friends. I''ll do it."'
-									'Dan smirks at you: "I forgive you, slut... I guess you just didn''t know what to do yet, when someone asks you for your whore mouth. We''ll teach you what you need to know about your place in the world. Get down before me and start sucking!"'
-									gs 'gopskver', 'triple_blow'
-								end
-
-								act 'Keep refusing':
-									minut += 5
-									fingal += 1
-									body_write = 1
-									sub += 1
-									pcs_mood -= 5
+							
+							gs 'willpower', 'gangbang', 'resist'
+							if will_cost <= pcs_willpwr:
+								act '"No way!" (<<will_cost>> Willpower)':
 									*clr & cla
+									gs 'willpower', 'gangbang', 'resist'
+									gs 'willpower', 'pay', 'resist'
 									gs 'stat'
-
-									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/gop/body_cocksucker.jpg"></center>'
-									'You keep refusing, and try to get up and leave. Dan slaps your face hard, however, and you fall to the ground. He immediately pins you down, and begins to rip your clothes off. "Too proud, huh? We''ll have to take you down a peg!"'
-									'The boys take out some markers and write several obscene words onto your skin. Soon, the whole town can read what a huge slut you are!'
-									'You don''t want to anger them any further, knowing the boys are much stronger than you, and don''t dare to protest while they keep writing more things on you. Eventually they''re satisfied, and let you get up. They even let you put your clothes back on, so you can cover up at least the majority of the writings. Dan smirks: "Maybe that''ll help you remember what you are, slut. When you''re ready to apologize, you know where to find us."'
-
-									act 'Leave':gt 'gskver', 'start'
+									'You indignantly reject Vasily''s proposal: "No way, Shulga! I can''t just do that for everyone who asks!"'
+									'Dan suddenly growls at you: "Shut up, whore. I''ve seen you suck cocks of just about anyone you meet, and swallow their loads to the last drop! They make videos when you''re not paying attention... and now suddenly we''re not good enough for you?"'
+									'You''re a bit afraid of his sudden outburst and try to explain yourself: "Dan please, you have to understand! I don''t just su-"'
+									'He interrupts you: "Shut up! We won''t ask again... are you going to be a nice little slut and do as we ask, or are you going to keep pretending to be some stuck up bitch?"'
+
+									act 'Be a nice little slut':
+										*clr & cla
+										gs 'stat'
+										'You don''t want to anger Dan any further, and decide to back down. You softly say: "Relax, Dan... I''m sorry, I didn''t mean to insult you or your friends. I''ll do it."'
+										'Dan smirks at you: "I forgive you, slut... I guess you just didn''t know what to do yet, when someone asks you for your whore mouth. We''ll teach you what you need to know about your place in the world. Get down before me and start sucking!"'
+										gs 'gopskver', 'triple_blow'
+									end
+									
+									gs 'willpower', 'gangbang', 'resist', 'hard'
+									if will_cost <= pcs_willpwr:
+										act 'Keep refusing (<<will_cost>> Willpower)':
+											*clr & cla
+											minut += 5
+											fingal += 1
+											body_write = 1
+											pcs_mood -= 5
+											gs 'willpower', 'gangbang', 'resist', 'hard'
+											gs 'willpower', 'pay', 'resist'
+											gs 'stat'
+
+											'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/gop/body_cocksucker.jpg"></center>'
+											'You keep refusing, and try to get up and leave. Dan slaps your face hard, however, and you fall to the ground. He immediately pins you down, and begins to rip your clothes off. "Too proud, huh? We''ll have to take you down a peg!"'
+											'The boys take out some markers and write several obscene words onto your skin. Soon, the whole town can read what a huge slut you are!'
+											'You don''t want to anger them any further, knowing the boys are much stronger than you, and don''t dare to protest while they keep writing more things on you. Eventually they''re satisfied, and let you get up. They even let you put your clothes back on, so you can cover up at least the majority of the writings. Dan smirks: "Maybe that''ll help you remember what you are, slut. When you''re ready to apologize, you know where to find us."'
+
+											act 'Leave':gt 'gskver', 'start'
+										end
+									else
+										act 'Keep refusing (<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 '"No way!" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 							end
-
 							act '"Well, maybe... just don''t tell anyone!"':
 								*clr & cla
 								gs 'stat'
@@ -331,30 +423,43 @@ else
 								gs 'gopskver', 'triple_blow'
 							end
 						end
+						
+						gs 'willpower', 'swallow', 'resist'
+						if will_cost <= pcs_willpwr:
+							act '"No, that''s a lie!" (<<will_cost>> Willpower)':
+								*clr & cla
+								gs 'willpower', 'swallow', 'resist'
+								gs 'willpower', 'pay', 'resist'
+								gs 'stat'
+								'You spit on the ground, and pretend to be insulted: "No way, Vasily! That''s disgusting!"'
+
+								if swallow > 0:
+									'Dan suddenly snaps, and shouts at you: "<<$pcs_nickname>>, don''t bullshit us! The whole town knows you''re a huge cum guzzler, who loves little more than to take a big load into her mouth and swallow it all down! Stop lying!"'
+								elseif swallow = 0 and facial > 0:
+									'Dan suddenly chuckles: "But you love taking loads all over your face, right? I''ve seen several pictures of you, with your face and mouth all covered in cum."'
+								else
+									'Dan chuckles: "Maybe you can''t get a guy off with your mouth yet? Don''t worry <<$pcs_nickname>>, we will help you with your technique..."'
+								end
 
-						act '"No, that''s a lie!"':
+								'Dan sharply says as he reaches for his pants and exposes his hard cock: "Enough talk! I think it''s time <<$pcs_nickname>> shows us what a good little slut she is. Take it in your mouth!"'
+								gs 'gopskver', 'triple_blow'
+							end
+						else
+							act '"No, that''s a lie!" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+						end
+					end
+					gs 'willpower', 'bj', 'resist'
+					if will_cost <= pcs_willpwr:
+						act '"No, that''s a lie!" (<<will_cost>> Willpower)':
 							*clr & cla
+							gs 'willpower', 'bj', 'resist'
+							gs 'willpower', 'pay', 'resist'
 							gs 'stat'
-							'You spit on the ground, and pretend to be insulted: "No way, Vasily! That''s disgusting!"'
-
-							if swallow > 0:
-								'Dan suddenly snaps, and shouts at you: "<<$pcs_nickname>>, don''t bullshit us! The whole town knows you''re a huge cum guzzler, who loves little more than to take a big load into her mouth and swallow it all down! Stop lying!"'
-							elseif swallow = 0 and facial > 0:
-								'Dan suddenly chuckles: "But you love taking loads all over your face, right? I''ve seen several pictures of you, with your face and mouth all covered in cum."'
-							else
-								'Dan chuckles: "Maybe you can''t get a guy off with your mouth yet? Don''t worry <<$pcs_nickname>>, we will help you with your technique..."'
-							end
-
-							'Dan sharply says as he reaches for his pants and exposes his hard cock: "Enough talk! I think it''s time <<$pcs_nickname>> shows us what a good little slut she is. Take it in your mouth!"'
+							'You pretend to be insulted at the mere notion, but Dan gets angry: "<<$pcs_nickname>>, you''re a slut! I know it, you know it, the whole fucking town knows it! Don''t be a stuck up bitch and start sucking!"'
 							gs 'gopskver', 'triple_blow'
 						end
-					end
-
-					act '"No, that''s a lie!"':
-						*clr & cla
-						gs 'stat'
-						'You pretend to be insulted at the mere notion, but Dan gets angry: "<<$pcs_nickname>>, you''re a slut! I know it, you know it, the whole fucking town knows it! Don''t be a stuck up bitch and start sucking!"'
-						gs 'gopskver', 'triple_blow'
+					else
+						act '"No, that''s a lie!" (<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
@@ -410,16 +515,23 @@ if $ARGS[0] = 'BjBeerStart':
 			act 'Open your legs for a beer': gt 'gopskver','BjBeerVag'
 			act 'Take it in the ass for beer': gt 'gopskver','BjBeerAnal'
 		end
-
-		if pcs_dom > 0 and pcs_stren + pcs_agil + pcs_run < 180: act 'Refuse and run': gt 'gopskver', 'BjBeerBeaten'
-
-		if pcs_dom > 0 and razradKik >= 3 or pcs_stren + pcs_agil + pcs_run >= 180:
-			act 'Refuse and run':
-				cla
-				cls
-				'The Gopniks don''t take your refusal very well, and try to force you anyway when they realize you''re not going to do what they want. However, your athletic training pays off and you manage to outrun them. Once you''re certain they''re no longer following you, you stop for a moment to catch your breath.'
-				act 'Return to the park': gt 'gskver', 'start'
+		
+		gs 'willpower', 'sex', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse and run away (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'sex', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				if pcs_stren + pcs_agil + pcs_run < 180:
+					gt 'gopskver', 'BjBeerBeaten'
+				elseif razradKik >= 3 or pcs_stren + pcs_agil + pcs_run >= 180
+					'The Gopniks don''t take your refusal very well, and try to force you anyway when they realize you''re not going to do what they want. However, your fitness and training pays off and you manage to outrun them. Once you''re certain they''re no longer following you, you stop for a moment to catch your breath.'
+					act 'Return to the park': gt 'gskver', 'start'
+				end
 			end
+		else
+			act 'Refuse and 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
 	end
 end
@@ -430,12 +542,10 @@ if $ARGS[0] = 'BjBeerBeaten':
 	pcs_hairbsh = 0
 	minut += 10
 	spank += 1
-	sub += 3
 	spanked = 1
 	spankedtime = totminut
 	gs 'underwear', 'remove'
-	set pcs_mood= pcs_mood-10
-	set pcs_willpwr = pcs_willpwr - 10
+	pcs_mood -= 10
 	if pcs_makeup > 1: pcs_makeup = 0
 	gs 'stat'
 
@@ -452,14 +562,21 @@ if $ARGS[0] = 'BjBeerBeaten':
 		*pl
 		'Dan is not unhappy with your efforts, but feels bored after you move away from his cock again. He offers: "She''s got more than one hole, guys... why are we all sharing just the one?"'
 		'The thought barely registers in your mind at first, but finally it does: they''re going to fuck you too!?'
-		if pcs_dom>10 and pcs_vag = 0 and pcs_ass >5 and pcs_horny < 75:
-			act 'Offer your ass instead':
-				'You plead to the guys: "Please guys, I''m still a virgin! My <<$npc_nickname[''A29'']>> would kill me if I lost my virginity, she has me checked every month! Maybe... maybe there''s something else I could do to please you, if you leave my pussy alone?"'
-				act 'Take it in the ass':gt 'gopskver','BjBeerAnal'
+		if pcs_vag = 0:
+			gs 'willpower', 'sex', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Offer your ass instead (<<will_cost>> Willpower)':
+					gs 'willpower', 'sex', 'resist', 'hard'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					'You plead to the guys: "Please guys, I''m still a virgin! My <<$npc_nickname[''A29'']>> would kill me if I lost my virginity, she has me checked every month! Maybe... maybe there''s something else I could do to please you, if you leave my pussy alone?"'
+					act 'Take it in the ass':gt 'gopskver','BjBeerAnal'
+				end
+			else
+				act 'Offer your ass instead (<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 'Let them fuck you': gt 'gopskver','BjBeerVag'
 		end
+		act 'Let them fuck you': gt 'gopskver','BjBeerVag'
 	elseif BjBeerQW = 4:
 		*pl
 		'You routinely drop to your knees, and suck the guys off one by one. Suddenly Vitek reaches down, and rubs his rough fingers over your holes. He grunts: "Listen, <<$pcs_nickname>>... ever got fucked in the ass before?"'
@@ -473,7 +590,17 @@ if $ARGS[0] = 'BjBeerBeaten':
 		end
 		act 'Submit and let them fuck your ass': gt 'gopskver','BjBeerAnal'
 	else
-		act 'Put some effort into sucking them off': gt 'gopskver', 'BjBeerAct'
+		gs 'willpower', 'bj', 'self', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Do your best when you suck them off (<<will_cost>> Willpower)':
+				gs 'willpower', 'bj', 'self', 'hard'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				gt 'gopskver', 'BjBeerAct'
+			end
+		else
+			act 'Do your best when you suck them off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
 		act 'Passively suck them off': gt 'gopskver', 'BjBeerPas'
 	end
 end
@@ -492,14 +619,21 @@ if $ARGS[0] = 'BjBeerYes':
 		'You obediently drop to your knees and lick your lips, looking up at the guys with your <<$glaza3>>.'
 		'Pleased with your eagerness, Vasily says: "I bet we could get more out of her than just a blowjob. Let''s go find a quiet place and put her other holes to work too!"'
 		'You meekly object, but it gets drowned out by the enthusiastic shouts of the others. They pull you up and guide you to a place where no one ever comes.'
-		if pcs_dom>10 and pcs_vag = 0 and pcs_ass >5 and pcs_horny < 75:
-			act 'Offer your ass instead':
-				'You plead to the guys: "Please guys, I''m still a virgin! My <<$npc_nickname[''A29'']>> would kill me if I lost my virginity, she has me checked every month! Maybe... maybe there''s something else I could do to please you, if you leave my pussy alone? Please?"'
-				act 'Take it in the ass':gt 'gopskver','BjBeerAnal'
+		if pcs_vag = 0:
+			gs 'willpower', 'sex', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Offer your ass instead (<<will_cost>> Willpower)':
+					gs 'willpower', 'sex', 'resist', 'hard'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					'You plead to the guys: "Please guys, I''m still a virgin! My <<$npc_nickname[''A29'']>> would kill me if I lost my virginity, she has me checked every month! Maybe... maybe there''s something else I could do to please you, if you leave my pussy alone?"'
+					act 'Take it in the ass':gt 'gopskver','BjBeerAnal'
+				end
+			else
+				act 'Offer your ass instead (<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 'Let them fuck you': gt 'gopskver','BjBeerVag'
 		end
+		act 'Let them fuck you': gt 'gopskver','BjBeerVag'
 	elseif BjBeerQW = 4:
 		*pl
 		'You routinely drop to your knees, and suck the guys off one by one. Suddenly Vitek reaches down, and rubs his rough fingers over your holes. He grunts: "Listen, <<$pcs_nickname>>... ever got fucked in the ass before?"'
@@ -513,7 +647,17 @@ if $ARGS[0] = 'BjBeerYes':
 		end
 		act 'Submit and let them fuck your ass': gt 'gopskver','BjBeerAnal'
 	else
-		act 'Do your best when you suck them off': gt 'gopskver', 'BjBeerAct'
+		gs 'willpower', 'bj', 'self', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Do your best when you suck them off (<<will_cost>> Willpower)':
+				gs 'willpower', 'bj', 'self', 'hard'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				gt 'gopskver', 'BjBeerAct'
+			end
+		else
+			act 'Do your best when you suck them off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
 		act 'Just put in a token effort': gt 'gopskver', 'BjBeerPas'
 	end
 end
@@ -525,7 +669,7 @@ if $ARGS[0] = 'BjBeerAct':
 	pcs_throat += 1
 	swallow += 1
 	stat['bj'] += 1
-	eggs +=1
+	eggs += 1
 	spafinloc = 12
 	gs 'cum_manage'
 	BjBeerActiv = 1
@@ -550,7 +694,7 @@ if $ARGS[0] = 'BjBeerAct':
 		elseif BjBeerQW = 2:
 			act 'Serve the others': gt 'gopskver','BjBeerPalevo'
 		!elseif BjBeerQW = 3:
-		!act 'Serve the others': gt 'gopskver','BjBeerStraight'
+			!act 'Serve the others': gt 'gopskver','BjBeerStraight'
 		else
 			act 'Serve the others': gt 'gopskver','BjBeerDouble'
 		end
@@ -585,7 +729,7 @@ if $ARGS[0] = 'BjBeerPas':
 		elseif BjBeerQW = 2:
 			act 'Serve the others': gt 'gopskver','BjBeerPalevo'
 		!elseif BjBeerQW = 3:
-		!act 'Serve the others': gt 'gopskver','BjBeerStraight'
+			!act 'Serve the others': gt 'gopskver','BjBeerStraight'
 		else
 			act 'Serve the others': gt 'gopskver', 'BjBeerDouble'
 		end
@@ -653,7 +797,6 @@ if $ARGS[0] = 'BjBeerFace':
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeer<<Beerrand>>.jpg"></center>'
 			'Dan grins at you and offers you his unfinished bottle, and smiles when you drink it eagerly. Your mood improves slightly.'
 			act 'Return to the park': BjBeerActiv = 0 & gt 'gskver', 'start'
-
 		elseif BjBeerActiv = 0:
 			pcs_mood = 0
 			BjBeerQW += 1
@@ -741,10 +884,9 @@ end
 if $ARGS[0] = 'BjBeerVag':
 	*clr & cla
 	minut += 10
-	rape = rape + 1
-	gang = gang + 1
-	sub += 3
-	if sub > 0:pcs_horny += sub
+	rape += 1
+	gang += 1
+	pcs_horny += 10
 	BjBeerQW += 1
 	BjBeerDay = daystart
 	gs 'stat'
@@ -752,7 +894,7 @@ if $ARGS[0] = 'BjBeerVag':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeervag.jpg" ></center>'
 	'The guys prop you down onto the bench with your legs wide, and unceremoniously begin to touch you everywhere. They pull your legs to the side, pinch your nipples, pull your clothes to the sides and put several fingers in your pussy.'
 	'You are trying to hide your feelings, but wail when they pinch your nipples or slap your bottom too roughly. Tears slowly form in your eyes when you realize you''re really nothing more but a set of holes to fuck for them.'
-	if sub > 20: 'However, at the same time, the humiliation and helplessness from your current position make you feel a tinge excited.'
+	'However, at the same time, the humiliation and helplessness from your current position make you feel a tinge excited.'
 	if analplugin = 1: 'Vasily suddenly exclaims: "A butt plug!? Were you preparing your tight little ass for us the whole time, <<$pcs_nickname>>? How sweet!" He roughly pulls the plug out of your ass, and just as abruptly shoves it back in. The other boys laugh, as they notice the grimace on your face.'
 	if pcs_pubes > 10:
 		'One of the boys fondles your nether region, but mumbles unhappily: "Man, it''s like the freaking rainforest down there. You should really shave next time, this is disgusting."'
@@ -866,10 +1008,9 @@ end
 
 if $ARGS[0] = 'BjBeerAnal':
 	*clr & cla
-	rape = rape + 1
-	gang = gang + 1
-	sub += 3
-	if sub > 0:pcs_horny += sub
+	rape += 1
+	gang += 1
+	pcs_horny += 10
 	BjBeerQW += 1
 	BjBeerDay = daystart
 	gs 'stat'
@@ -877,7 +1018,7 @@ if $ARGS[0] = 'BjBeerAnal':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeeranal.jpg" ></center>'
 	'The guys guide you to the by now familiar bench at the back of the park again. The boys unceremoniously push you over towards the bench, and make you kneel on top of it.'
 	'You dutifully await on the bench with your head down, slowly pulling your clothes to the side to expose your ass for the boys. You feel a shiver roll down your spine, while you feel them silently judging you.'
-	if sub > 20: 'However, at the same time, the humiliation and helplessness from your current position make you feel a tinge excited.'
+	'However, at the same time, the humiliation and helplessness from your current position make you feel a tinge excited.'
 	if pcs_ass <= 5: 'You hear a frantic discussion behind you, the guys are trying to figure out who gets to fuck your tight unexperienced ass first. Vasily ends up being the lucky one.'
 	if pcs_ass > 5: 'You hear a frantic discussion behind you, the guys are trying to figure out who gets to fuck your ass first. Vasily ends up being the lucky one.'
 	if tatupb > 0: 'When he sees the tattoo on your lower back, Vasily pats your ass approvingly: "Nice tramp stamp, whore."'
@@ -906,21 +1047,20 @@ if $ARGS[0] = 'BjBeerAnal':
 			'For some reason he''s upset, and when you look around you see why. You didn''t give yourself an enema, and his dick is all dirty! He thrusts his groin towards your face expectantly: "Clean that up, whore! That''s disgusting!"'
 			'You wrinkle your nose at his dirty and smelly erection... ugh!'
 
-		act'Clean him up':
-			Suckrand=rand(1,2)
-			cla
-			cls
-			sub +=1
-			minut +=5
-			pcs_mood = pcs_mood - 3
-			gs 'stat'
+			act 'Clean him up':
+				Suckrand=rand(1,2)
+				cla
+				cls-
+				minut +=5
+				pcs_mood -= 3
+				gs 'stat'
 
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeerdirtyanal<<Suckrand>>.jpg" ></center>'
-			'You hesitate for a second, but you realize that he''s not giving you a choice. You obediently fall to your knees before him and take his cock in your mouth, looking to correct your mistake.'
-			'The taste is horrible, and you have great difficulty suppressing your gag reflex as you carefully lick and suck his dick, humbly looking into his eyes in the hope of avoiding punishment.'
-			'You have an awful taste in your mouth, and you quietly berate yourself for not giving yourself an enema today. You don''t have much time to mull it over though, as Dan says: "That''s good enough. Now get back into position and spread your ass, slut."'
-			act 'Spread your ass cheeks': gt 'gopskver','BjBeerAnal2'
-		end
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeerdirtyanal<<Suckrand>>.jpg" ></center>'
+				'You hesitate for a second, but you realize that he''s not giving you a choice. You obediently fall to your knees before him and take his cock in your mouth, looking to correct your mistake.'
+				'The taste is horrible, and you have great difficulty suppressing your gag reflex as you carefully lick and suck his dick, humbly looking into his eyes in the hope of avoiding punishment.'
+				'You have an awful taste in your mouth, and you quietly berate yourself for not giving yourself an enema today. You don''t have much time to mull it over though, as Dan says: "That''s good enough. Now get back into position and spread your ass, slut."'
+				act 'Spread your ass cheeks': gt 'gopskver','BjBeerAnal2'
+			end
 
 		elseif klismaday = daystart:
 			'Fortunately, you gave yourself an enema earlier today and Vasily''s cock comes out clean. You don''t have much time to think about the assfucking he gave you though, as Dan says: "Not bad. Now get back into position and spread your ass, slut. You still have two more to go."'
@@ -980,7 +1120,6 @@ if $ARGS[0] = 'BjBeerAnal2':
 		act 'Show them':
 			*clr & cla
 			minut +=5
-			sub += 1
 			gs 'stat'
 
 			if pcs_ass <= 10:
@@ -1064,7 +1203,6 @@ if $ARGS[0] = 'triple_blow':
 		spafinloc = 12
 		gs 'cum_manage'
 		swallow += 1
-		sub += 1
 		minut += 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjgop.jpg"></center>'
@@ -1081,7 +1219,6 @@ if $ARGS[0] = 'triple_blow':
 			spafinloc = 11
 			gs 'cum_manage'
 			dick = 15
-			sub += 1
 			minut += 5
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjgop2.jpg"></center>'
@@ -1118,19 +1255,25 @@ if $ARGS[0] = 'triple_blow':
 
 						act 'Leave':gt 'gskver', 'start'
 					end
+					gs 'willpower', 'sex_other', 'resist'
+					if will_cost <= pcs_willpwr:
+						act 'Object (<<will_cost>> Willpower)':
+							*clr & cla
+							gs 'willpower', 'sex_other', 'resist'
+							gs 'willpower', 'pay', 'resist'
+							gs 'arousal', 'pee', -5, 'sub', 'humilation', 'group'
+							gs 'arousal', 'end'
+							gs 'stat'
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/gop/goppee.jpg"></center>'
+							'Still rubbing your eyes, you shake your head and say: "No way, Dan! I''m no slut!"'
+							'Dan angrily replies: "Tough words, coming from some promiscuous whore still trying to rub the sperm out of her eyes. Looks like she needs another reminder, boys."'
+							'You don''t like the sound of that. When you carefully try to open your eyes again you notice the guys have surrounded you, and they all have their cocks out. Your vision is still blurry though, and you shriek in disgust when you feel a stream of urine hit your face. Then another, and a third. You realize you can''t fight off the three of them, and just let it happen.'
+							'Noticing your change in demeanour, Dan smirks at you when the streams have dried up: "That''s right, whore, just let it happen. Let that be a reminder for you.. now get the fuck out of here and clean yourself up, you look disgusting."'
 
-					act 'Object':
-						*clr & cla
-						gs 'arousal', 'pee', -5, 'sub', 'humilation', 'group'
-						gs 'arousal', 'end'
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/gop/goppee.jpg"></center>'
-						'Still rubbing your eyes, you shake your head and say: "No way, Dan! I''m no slut!"'
-						'Dan angrily replies: "Tough words, coming from some promiscuous whore still trying to rub the sperm out of her eyes. Looks like she needs another reminder, boys."'
-						'You don''t like the sound of that. When you carefully try to open your eyes again you notice the guys have surrounded you, and they all have their cocks out. Your vision is still blurry though, and you shriek in disgust when you feel a stream of urine hit your face. Then another, and a third. You realize you can''t fight off the three of them, and just let it happen.'
-						'Noticing your change in demeanour, Dan smirks at you when the streams have dried up: "That''s right, whore, just let it happen. Let that be a reminder for you.. now get the fuck out of here and clean yourself up, you look disgusting."'
-
-						act 'Leave':gt 'gskver', 'start'
+							act 'Leave':gt 'gskver', 'start'
+						end
+					else
+						act 'Object (<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

+ 9 - 11
locations/ivanRoom.qsrc

@@ -29,21 +29,19 @@ if StoryLine = 0 or altQS = 1:
 			'<center><img <<$set_imgh>> src="images/locations/city/industrial/apartment/gun.jpg"></center>'
 			'As Juugo approaches to the door, you notice the tattoos on his face move seemingly having a life of their own, you notice them growing and twisting covering his face in black designs. As the designs settle on his face you notice his fists have increased in size and appear as if they are made of stone. With a  growl he launches a rock hard fist at the door bending the steel door inwards. Grabbing one of the exposed edges of the now damaged door Juugo tears the door from its frame and off it''s hinges. You run into the apartment after Juugo and see Ivan standing in the room holding a gun. Ivan fired a shot and Juugo twitched, then Ivan fired again and again. Juugo fell to the floor. The gun empty Ivan began frantically reloading the gun.'
 
-			if pcs_dom > 0:
-				act 'Embed Ivan':
+			act 'Embed Ivan':
+				cls
+				gs 'stat'
+				!!'<center><img <<$set_imgh>> src="images/locations/city/industrial/apartment/gun.jpg"></center>'
+				'You ran at Ivan attempting to kick him while he reloads the gun. Ivan suddenly jumped back into a bedroom and slams the door in your face.  Your inertia carries you into the solid interior door and you rebound off of it just as another shot explodes thru the door splintering the wood and narrowly misses hitting you. As you push yourself up from the floor you see Juugo, the black designs swirling all over his exposed skin, he growls low and dangerous in his chest and you see the bullet wounds expelling the bullets from his body and closing right before your eyes. His body almost totally black now with the magical tattos you see horns sprout from his forehead. Juugo shouts furiously "NOW YOU DIE!" and charges at the wooden door that Ivan is hiding behind, lowering his head and shoulders for the impact he doesn''t even slow as he crashes through the solid wood sending splinters and shards flying inward into the room. You follow close behind entering the room and skidding to a halt. Ivan has been thrown backwards and to the ground, he''s bleeding badly from several areas with many wooden spikes impaling his body in various parts.  No sign of his gun he must have dropped it when the door exploded on him. Juugo still iin a rage falls upon the prone body and with an inhuman roar begins to pummel the unconscious man. Small lightning bolts arc through the body as Juugo continues to pound the body quickly reducing Ivan to little more then pulp.'
+
+				act 'Run':
 					cls
 					gs 'stat'
 					!!'<center><img <<$set_imgh>> src="images/locations/city/industrial/apartment/gun.jpg"></center>'
-					'You ran at Ivan attempting to kick him while he reloads the gun. Ivan suddenly jumped back into a bedroom and slams the door in your face.  Your inertia carries you into the solid interior door and you rebound off of it just as another shot explodes thru the door splintering the wood and narrowly misses hitting you. As you push yourself up from the floor you see Juugo, the black designs swirling all over his exposed skin, he growls low and dangerous in his chest and you see the bullet wounds expelling the bullets from his body and closing right before your eyes. His body almost totally black now with the magical tattos you see horns sprout from his forehead. Juugo shouts furiously "NOW YOU DIE!" and charges at the wooden door that Ivan is hiding behind, lowering his head and shoulders for the impact he doesn''t even slow as he crashes through the solid wood sending splinters and shards flying inward into the room. You follow close behind entering the room and skidding to a halt. Ivan has been thrown backwards and to the ground, he''s bleeding badly from several areas with many wooden spikes impaling his body in various parts.  No sign of his gun he must have dropped it when the door exploded on him. Juugo still iin a rage falls upon the prone body and with an inhuman roar begins to pummel the unconscious man. Small lightning bolts arc through the body as Juugo continues to pound the body quickly reducing Ivan to little more then pulp.'
-
-					act 'Run':
-						cls
-						gs 'stat'
-						!!'<center><img <<$set_imgh>> src="images/locations/city/industrial/apartment/gun.jpg"></center>'
-						'You turn and run out of the apartment at seeing Juugo fall. Just as you near the entrance you hear and feel a powerful explosion shake the house, hit from behind by the force your flung out the front door.  With ears ringing and aches and pains all over you look around and realize that Ivan''s apartment has collapsed, bits of wood and concrete litter the area around where you were thrown.'
+					'You turn and run out of the apartment at seeing Juugo fall. Just as you near the entrance you hear and feel a powerful explosion shake the house, hit from behind by the force your flung out the front door.  With ears ringing and aches and pains all over you look around and realize that Ivan''s apartment has collapsed, bits of wood and concrete litter the area around where you were thrown.'
 
-						act 'Run away from the entrance':gt 'nord'
-					end
+					act 'Run away from the entrance':gt 'nord'
 				end
 			end
 

+ 68 - 15
locations/narkopriton.qsrc

@@ -178,13 +178,21 @@ if $ARGS[0] = 'heroin':
 				'It''s obvious that you have no idea what to do. He takes pitty on you and cooks you up a shot. He loads the needle full and gives it to you.'
 				'"Thanks." You take the needle and go find a couch in the house to sit on.'
 				'Finding a couch, you sit down and look at the needle apprehensively, you question yourself...'
-				act 'You can''t help but think of all the horror stories and return the drugs':
-					*clr & cla
-					'<center><b>Local drug den</b></center>'
-					'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
-					'You change your mind and give the syringe back to the guy.'
-					'"I don''t do refunds girl," he said.'
-					act '"I know," you say and leave': minut += 5 & gt 'street'
+				gs 'willpower', 'drugs', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'You can''t help but think of all the horror stories and return the drugs (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'willpower', 'drugs', 'resist', 'hard'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						'<center><b>Local drug den</b></center>'
+						'<center><img <<$set_imgh>> src="images/locations/city/residential/den/narkopriton.jpg"></center>'
+						'You change your mind and give the syringe back to the guy.'
+						'"I don''t do refunds girl," he said.'
+						act '"I know," you say and leave': minut += 5 & gt 'street'
+					end
+				else
+					act 'You can''t help but think of all the horror stories and return the drugs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
 				act 'You remember the look of bliss on the junkies faces in the park and use the drugs':
 					*clr & cla
@@ -226,11 +234,23 @@ if $ARGS[0] = 'drugslut':
 	minut += 5
 	gs 'stat'
 
-	act 'Leave dejectedly':	minut += 5 & gt 'street'
-
 	if NarkShmaraTimes > 0:
 		'"Bobka, please! You remember me, right? I''m good for it, you can trust me!" you beg him, but he gives you a wicked grin.'
 		'"Come on, <<$pcs_nickname>>! You know I don''t do credit!" he snorts.'
+		
+		gs 'willpower', 'drugs', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Leave dejectedly (<<will_cost>> Willpower)':
+				minut += 5
+				gs 'willpower', 'drugs', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'street'
+			end
+		else
+			act 'Leave dejectedly (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+		
 		act 'Keep begging, promising you''ll do anything':
 			*clr & cla
 			minut += 5
@@ -260,8 +280,19 @@ if $ARGS[0] = 'drugslut':
 				'You keep begging Bobka to give you some heroin, while you follow him to an empty room. He just laughs at you and says: <<$bobtalk>>'
 
 				act '<<$bobtext>>':	NarkShmaraTimes += 1 & gt 'bobka', bobrand
-
-				act 'Change your mind and leave': minut += 5 & gt 'street'
+				
+				gs 'willpower', 'bj', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'Change your mind and leave (<<will_cost>> Willpower)':
+						minut += 5
+						gs 'willpower', 'bj', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						gt 'street'
+					end
+				else
+					act 'Change your mind and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
 			end
 		end
 
@@ -314,12 +345,23 @@ if $ARGS[0] = 'drugslut':
 				end
 			end
 		end
-
-		act 'Leave dejectedly': minut += 5 & gt 'street'
 	elseif NarkShmaraTimes = 0:
 		'You beg the man: "Please! I need a hit... I need it badly! Please, I''ll pay you back! I promise!"'
 		'The guy laughs: "Yea, sure. Do you know how many times a day I hear that? If I had a ruble for every time someone told me that, I would''ve retired by now! I don''t do credit, simple as that. Get lost."'
-
+		
+		gs 'willpower', 'drugs', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Leave dejectedly (<<will_cost>> Willpower)':
+				minut += 5
+				gs 'willpower', 'drugs', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'street'
+			end
+		else
+			act 'Leave dejectedly (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+		
 		act 'Keep begging, promising you''ll do anything':
 			*clr & cla
 			minut += 5
@@ -367,7 +409,18 @@ if $ARGS[0] = 'drugslut':
 					end
 				end
 
-				act 'Change your mind and leave': minut += 5 & gt 'street'
+				gs 'willpower', 'bj', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'Change your mind and leave (<<will_cost>> Willpower)':
+						minut += 5
+						gs 'willpower', 'bj', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						gt 'street'
+					end
+				else
+					act 'Change your mind and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
 			end
 		end
 	end

+ 12 - 2
locations/parkBimbo.qsrc

@@ -9,8 +9,18 @@ if $ARGS[0] = 'pos1':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/parkbimbo1.jpg"></center>'
 	'You notice an old guy, who has to be in his sixties watching you. Then you notice he has his rather large dick out and he has a raging hard on.'
-	if pcs_horny > 50:act 'Help the old guy out':gt 'parkBimbo', 'pos2'
-	act 'Flip him the bird':gt 'gskver', 'start'
+	act 'Help the old guy out':gt 'parkBimbo', 'pos2'
+	gs 'willpower', 'bj', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Flip him the bird (<<will_cost>> Willpower)':
+			gs 'willpower', 'bj', 'resist'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'gskver', 'start'
+		end
+	else
+		act 'Flip him the bird (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 end
 
 if $ARGS[0] = 'pos2':

+ 13 - 3
locations/parksvid.qsrc

@@ -77,7 +77,7 @@ if $ARGS[0] = '1':
 		'"How should I know, come on and lets ask him."'
 		'"I''m not going to ask him, you ask him." said <<$telsob>>, making plaintive eyes.'
 
-		act 'Cancel and go for a walk on.':gt 'parksvid', '3'
+		act 'Forget it and continue on your walk':gt 'parksvid', '3'
 
 		act 'Ask him':
 			*clr & cla
@@ -92,8 +92,18 @@ if $ARGS[0] = '1':
 			'"Wow!" Comes her voice from under the kilt and after a few moments when she has said nothing more, you realise what is going on. "Well what are you staring there?" you ask noticing the huge smile on the guys face and the movement of her head under his kilt, while <<$telsob>> sucks him off right there and then.'
 			'A few minutes later she crawls out from under the kilt and wipes her lips.'
 			'"If you girls would like to see what else I can do with what''s under there, I know a spot.." suggests the guy still sporting a huge grin.'
-
-			act 'Decline and continue your walk':gt 'parksvid', '3'
+			
+			gs 'willpower', 'cuni', 'resist'
+			if will_cost <= pcs_willpwr:
+				act 'Decline and continue your walk (<<will_cost>> Willpower)':
+					gs 'willpower', 'cuni', 'resist'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					gt 'parksvid', '3'
+				end
+			else
+				act 'Decline and continue your walk (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
 
 			act 'Go with the guy':
 				*clr & cla