[added] more willpower seeding and some arousal changes

locations/Komp.qsrc

@@ -154,7 +154,7 @@ if $ARGS[0] = 'porno':
 			'<center><img <<$set_imgh>> src="images/shared/accessories/computer/porno.jpg"></center>'
 			'You find a video you think you''d enjoy, and spend some time watching it. Wow, that girl is so lucky...'
 
-			gs 'arousal', 'porn', 60
+			gs 'arousal', 'voyeur_sex', 60
 			gs 'stat'
 
 			act 'The video ends...':gt 'Komp', 'porno'
@@ -187,7 +187,7 @@ if $ARGS[0] = 'masturbate':
 	gs 'stat'
 
 	if pcs_horny >= 100:
-		$orgasm_or = 'custom'
+		$orgasm_or = 'yes'
 		$orgasm_txt = 'Suddenly your muscles tighten and you cum powerfully, while you stifle your moans so your neighbours won''t find out. Afterwards, you have goosebumps all over your skin. That was just what you needed!'
 	end
 
@@ -1013,11 +1013,18 @@ if $ARGS[0] = 'waitclients':
 
 			act 'Continue':gt 'Komp','waitclients'
 		end
-		act 'Refuse to take off your bra':
-			cls
-			webpopular -= 1
-			gt 'Komp','waitclients'
-		end
+		gs 'willpower', 'exhib', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse to take off your bra (<<will_cost>> Willpower)':
+				cls
+				webpopular -= 1
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'Komp','waitclients'
+			end
+		else
+			act 'Refuse to take off your bra (<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 backmfc = 1 and clientask >= 96 and clientask < 98:
 		cls
@@ -1047,11 +1054,19 @@ if $ARGS[0] = 'waitclients':
 
 			act 'Continue':gt 'Komp','waitclients'
 		end
-		act 'Refuse to take off your panties':
-			cls
-			webpopular -= 1
-			gt 'Komp','waitclients'
-		end
+		
+		gs 'willpower', 'exhib', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse to take off your panties (<<will_cost>> Willpower)':
+				cls
+				webpopular -= 1
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'Komp','waitclients'
+			end
+		else
+			act 'Refuse to take off your panties (<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 topmfc = 0 and clientask >= 94 and clientask < 96:
 		cls
@@ -1080,11 +1095,18 @@ if $ARGS[0] = 'waitclients':
 
 			act 'Continue':gt 'Komp','waitclients'
 		end
-		act 'Refuse to play with your boobs':
-			cls
-			webpopular -= 1
-			gt 'Komp','waitclients'
-		end
+		gs 'willpower', 'exhib', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse to play with your boobs (<<will_cost>> Willpower)':
+				cls
+				webpopular -= 1
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'Komp','waitclients'
+			end
+		else
+			act 'Refuse to play with your boobs (<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 backmfc = 0 and clientask = 93:
 		cls
@@ -1120,11 +1142,19 @@ if $ARGS[0] = 'waitclients':
 			end
 			act 'Continue':gt 'Komp','waitclients'
 		end
-		act 'Ignore him':
-			cls
-			webpopular -= 1
-			gt 'Komp','waitclients'
-		end
+		
+		gs 'willpower', 'exhib', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Ignore him (<<will_cost>> Willpower)':
+				cls
+				webpopular -= 1
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'Komp','waitclients'
+			end
+		else
+			act 'Ignore him (<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 backmfc = 0 and clientask = 92:
 		cls
@@ -1171,11 +1201,18 @@ if $ARGS[0] = 'waitclients':
 
 			act 'Continue':gt 'Komp','waitclients'
 		end
-		act 'Ignore him':
-			cls
-			webpopular -= 1
-			gt 'Komp','waitclients'
-		end
+		gs 'willpower', 'exhib', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Ignore him (<<will_cost>> Willpower)':
+				cls
+				webpopular -= 1
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'Komp','waitclients'
+			end
+		else
+			act 'Ignore him (<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 backmfc = 0 and pcs_ass >= 30 and webpopular >= 50 and clientask = 91:
 		cls
@@ -1235,10 +1272,18 @@ if $ARGS[0] = 'waitclients':
 			end
 			act 'Continue':gt 'Komp','waitclients'
 		end
-		act 'Ignore him':
-			cls
-			gt 'Komp','waitclients'
-		end
+		gs 'willpower', 'exhib', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Ignore him (<<will_cost>> Willpower)':
+				cls
+				webpopular -= 1
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'Komp','waitclients'
+			end
+		else
+			act 'Ignore him (<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 webpopular >= 15 and pcs_ass >= 15 and clientask = 89:
@@ -1450,7 +1495,7 @@ if $ARGS[0] = 'waitclients':
 				mfccum += 1
 				pcs_mood = 100
 				gs 'stat'
-				$orgasm_or = 'custom'
+				$orgasm_or = 'yes'
 				$orgasm_txt = 'It feels too good to stop! Before you know it, your fingers are repeatedly penetrating your ass and you moan excitedly, barely keeping yourself from screaming. You just had an anal orgasm in front of <<camclients>> users, completely free of charge! Oops...'
 				gs 'stat'
 			end

locations/LCporn.qsrc

@@ -27,17 +27,23 @@ if $ARGS[0] = 'firsttime':
 
 		act 'Get dressed again':gt 'Lakecafe', 'main'
 	end
+	
+	gs 'willpower', 'sex', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			*clr & cla
+			npc_rel['A89'] -= 10
+			minut += 7
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'No, no! You quickly squirm past Eugene and leave the pantry, and don''t stop walking until you''re well away from the diner.'
+			LCEugenefirst = 0
 
-	act 'Get out of here':
-		*clr & cla
-		npc_rel['A89'] -= 10
-		minut += 7
-		gs 'stat'
-		'No, no! You quickly squirm past Eugene and leave the pantry, and don''t stop walking until you''re well away from the diner.'
-		LCEugenefirst = 0
-
-		act 'Continue':gt 'nord'
-	end
+			act 'Continue':gt 'nord'
+		end
+	else
+		act 'Get out of here (<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] = 'sex':
@@ -56,11 +62,14 @@ if $ARGS[0] = 'sex':
 		'Eugene grins at you and says: "I was hoping you''d say that. Come on, let me help you."'
 		'She helps you take your clothes off, and lies down on the mattress with you. She slips her <<dick>>cm <<$dick_girth>> dick into your pussy and starts to fuck you. She spends time rubbing your clit while she fucks you, to keep you nice and wet.'
 		gs 'dinsex', 'boy_puts_his_condom'
-		gs 'dinsex','vaginal_sex',40,'futa'
+		gs 'dinsex', 'vaginal_sex', 40, 'futa', 'sub'
 		'Finally, a good half hour after she started fucking your twat, Eugene finally lets out a loud girly groan.'
 		gs 'dinsex','sexcum'
 		gs 'stat'
 		'She smiles apologetically at you and begins to get dressed again while she says: "Thanks, <<$pcs_nickname>>! You were great... but I really have to get back to work before someone misses me! We''ve been in here way too long already!"'
+		
+		gs 'arousal', 'end'
+		gs 'stat'
 
 		act 'Get dressed again':gt 'Lakecafe', 'main'
 	end
@@ -80,6 +89,9 @@ if $ARGS[0] = 'sex':
 		facial += 1
 		gs 'stat'
 		'She smiles apologetically at you and begins to get dressed again while she says: "Thanks, <<$pcs_nickname>>! You were great... but I really have to get back to work before someone misses me! We''ve been in here way too long already!"'
+		
+		gs 'arousal', 'end'
+		gs 'stat'
 
 		act 'Get dressed again':gt 'Lakecafe', 'main'
 	end
@@ -104,6 +116,8 @@ if $ARGS[0] = 'sex':
 		gs 'stat'
 		'She smiles apologetically at you and begins to get dressed again while she says: "Thanks, <<$pcs_nickname>>! You were great... but I really have to get back to work before someone misses me! We''ve been in here way too long already!"'
 		gs 'dinsex', 'after_anal','no_plug'
+		gs 'arousal', 'end'
+		gs 'stat'
 		
 		act 'Get dressed again':gt 'Lakecafe', 'main'
 	end
@@ -115,10 +129,12 @@ if $ARGS[0] = 'toiletsex':
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/toiletsexend.jpg"></center>'
 	'You come up from behind the man, and suddenly wrap your arms around him. He''s startled for a moment, but relaxes when you whisper: "That''s a nice cock you have there! I bet we could have some fun together, you and I..."'
 	'The man gives you a dirty grin when he feels you wrap your fingers around his cock, but he wants more. He takes you by the hand and guides you to the rear entrance of the diner, into the back alley. He positions you against the dumpsters and eagerly shoves his cock inside you.'
-	gs 'dinsex','vaginal_sex',6,'unknown'
+	gs 'dinsex', 'vaginal_sex', 6, 'unknown'
 	'Not a surprise, he barely lasts any time at all, with in a few minutes he grunts and pulls out of your pussy and shoots his load all over you ass and without a further word he goes back into the cafe.'
 	gs 'cum_call','butt',$boy,1
 	gs 'npccleanc',$npclastgenerated
+	gs 'arousal', 'end'
+	gs 'stat'
 	act 'Return to the restroom':gt 'laketoilet', 'main'
 end
 

locations/gevent.qsrc

@@ -132,10 +132,6 @@ if $ARGS[0] = '3':
 	*clr & cla
 	menu_off = 1
 	gs 'drugs', 'alcohol', 'vodka', 3
-	minut += 120
-	stat['bj'] += 3
-	stat['anal'] += 3
-	stat['vaginal'] += 3
 	pcs_vag += 3
 	pcs_ass += 3
 	pcs_throat += 3
@@ -162,6 +158,13 @@ if $ARGS[0] = '3':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/3.jpg"></center>'
 	'You go with the Armenian to his home nearby. In the apartment there are two more guys, also Armenians. They speak to each other in their own language, while drinking alot of alcohol. You don''t realise just how strong it is until you are completely wasted, then they strip and fuck you, taking turns in all of your holes, finishing inside and all over you, all the while they are filming with there phones. Finally, when they are spent and bored of you, they kicked you out of the apartment.'
+	
+	gs 'arousal', 'bj', 50, 'rough', 'rape', 'humiliation', 'group'
+	gs 'arousal', 'vaginal', 50, 'rough', 'rape', 'humiliation', 'group'
+	gs 'arousal', 'anal', 50, 'rough', 'rape', 'humiliation', 'group'
+	minut -= 50
+	gs 'arousal', 'end'
+	gs 'stat'
 
 	act 'Continue':gt 'pavResidential'
 end
@@ -171,16 +174,18 @@ if $ARGS[0] = '4':
 	menu_off = 1
 	guy += 1
 	gs 'drugs', 'alcohol', 'vodka'
-	stat['vaginal'] += 1
 	pcs_vag += 1
 	cumprecheck = 1
 	gs 'cum_manage'
 	spafinloc = 4
 	gs 'cum_manage'
-	minut += 50
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/4.jpg"></center>'
 	'You accompany the guy to his house, where you enjoy a few beverages with him. A while later you find yourself on your back, getting pounded by this stranger. He rides you with his hairy body and pulls out right before he orgasms, draping his load all over your buttocks. Not bothering to clean it up, you simply get dressed. You sit back down and chat with him for a while, drinking some tea in an attempt to sober up before leaving. You still feel rather drunk when you close the door behind you, returning to the streets.'
+	
+	gs 'arousal', 'vaginal', 20, 'humiliation'
+	gs 'arousal', 'end'
+	gs 'stat'
 
 	act 'Return to Pavlovsk':gt 'pavResidential'
 end
@@ -189,13 +194,11 @@ if $ARGS[0] = '5':
 	*clr & cla
 	menu_off = 1
 	guy += 1
-	stat['vaginal'] += 1
 	pcs_vag += 1
 	cumprecheck = 1
 	gs 'cum_manage'
 	spafinloc = 4
 	gs 'cum_manage'
-	minut += 15
 	money += 100
 	slutty += 1
 	pav_prostitute += rand(2,4)
@@ -203,6 +206,10 @@ if $ARGS[0] = '5':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/5.jpg"></center>'
 	'The guy quickly pulls you into the bushes, separated enough from the main roads to get a quick fuck in without being noticed. Not even bothering to undress you, he simply pulls your clothes to the side and thrusts his dick inside you. Within minutes, his breathing grows heavier and he growls as he shoots his load onto your ass cheeks. He pants: "Nice, babe... you''re definitely worth the money", as he hands you 100 <b>₽</b> and leaves.'
 
+	gs 'arousal', 'vaginal', 15, 'prostitution'
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Straighten your clothes':gt 'pavResidential'
 end
 
@@ -210,13 +217,9 @@ if $ARGS[0] = '6':
 	*clr & cla
 	menu_off = 1
 	gs 'cikl'
-	hour = 12
-	minut = 17
 	pav_sex += rand(8,16)
 	guyondisco = rand(5, 10)
 	guy += guyondisco
-	stat['bj'] += guyondisco
-	stat['vaginal'] += guyondisco
 	pcs_vag += guyondisco
 	pcs_throat += guyondisco
 	gang += 1
@@ -258,6 +261,12 @@ if $ARGS[0] = '6':
 	'Taking their turns fucking your mouth and pussy mercilessly, some even came back for seconds while one of them made sure to capture all of it on camera. The last thing you remember is him taking some close-ups of your cum-covered face, saying: "Man look at this whore, no inhibitions whatsoever! This video is going to be a huge hit on the internet!"'
 	'By the time you wake up again it''s the middle of the next day, and you are lying naked in a ditch somewhere just outside of town, covered in semen. Luckily they were decent enough to at least give you your clothes back, which you find in a pile next to you with your other belongings. As you quickly get dressed you silently pray they reconsidered and didn''t share the video, but at the same time know better. As you make your way back to Pavlovsk you realize this probably hurt your reputation in town as a result, since many people will have seen the video by now.'
 
+	gs 'arousal', 'bj', 600, 'rough', 'rape', 'humiliation', 'group'
+	gs 'arousal', 'vaginal', 600, 'rough', 'rape', 'humiliation', 'group'
+	minut -= 600
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Return to the Pavlovsk streets':gt 'pavResidential'
 end
 
@@ -265,9 +274,6 @@ if $ARGS[0] = '7':
 	*clr & cla
 	menu_off = 1
 	guy += 2
-	stat['anal'] += 2
-	stat['bj'] += 2
-	stat['vaginal'] += 2
 	pcs_vag += 2
 	pcs_ass += 2
 	pcs_throat += 2
@@ -288,6 +294,13 @@ if $ARGS[0] = '7':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/7.jpg"></center>'
 	'The guys bring you back to their apartment, where they swiftly strip you of your clothes and subsequently fuck you in all holes, taking turns spitroasting you. When they''re close to cumming, they force you down on your knees and they both release their loads onto your face. Before you even get a chance to wash up they kick you out, leaving you to get dressed on the streets. You desperately grab your clothes from the ground and quickly hide behind a car as you put them on, hoping no random passers-by spotted you. One of the guys is watching you through the window the whole time, and you can hear his laughter while you run away as quickly as you can.'
 
+	gs 'arousal', 'bj', 50, 'rough', 'rape', 'humiliation', 'group'
+	gs 'arousal', 'vaginal', 50, 'rough', 'rape', 'humiliation', 'group'
+	gs 'arousal', 'anal', 50, 'rough', 'rape', 'humiliation', 'group'
+	minut -= 50
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Return to the Pavlovsk streets':gt 'pavResidential'
 end
 

locations/kino.qsrc

@@ -130,7 +130,18 @@ if $ARGS[0] = 'sex2':
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/cinema/sex/kinosex1.jpg"></center>'
 	'Halfway though the movie a man sits down next to you. Smiling, he offers you some of his popcorn.'
 	gs'stat'
-	act 'Run away':gt 'kino'
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Run away (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'kino'
+		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	
+	
 	act 'Have some':
 		cla
 		*clr

locations/kinoM.qsrc

@@ -83,8 +83,7 @@ if $ARGS[0] = 'sex':
 	if pcs_horny >= 90:
 		pcs_mood += 15
 		pcs_willpwr += 15
-		
-		$orgasm_or = 'custom'
+		$orgasm_or = 'yes'
 		$orgasm_txt = 'As you feel pleasure growing inside of you, you start moaning involuntarily, louder and louder. <<$loverdesc[lover_number]>> puts his hand over your mouth in an effort to muffle the noises. Then a massive orgasm hits you, leaving you shuddering and quivering on his cock.'
 	end
 

locations/klofdomhouse.qsrc

@@ -481,7 +481,17 @@ if $ARGS[0] = 'ev22':
 	'The boss looks closely at you and says, "Come to me, looks like you''re ready to make some more money."'
 
 	act 'Go to the boss''s room':gt 'klofdomhouse', 'ev23'
-	act 'Go home':gt 'street'
+	
+	gs 'willpower', 'misc', 'self', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Go home (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'self'
+			gs 'stat'
+			gt 'street'
+		end
+	else
+		act '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
 
 if $ARGS[0] = 'ev23':
@@ -492,7 +502,17 @@ if $ARGS[0] = 'ev23':
 	'"Well, Well, take off your clothes and show yourself." Says the boss.'
 
 	act 'Show yourself':gt 'klofdomhouse', 'ev24'
-	act 'Get out of here':gt 'street'
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'street'
+		end
+	else
+		act 'Get out of here (<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] = 'ev24':
@@ -503,7 +523,17 @@ if $ARGS[0] = 'ev24':
 	'"Show your breasts" Orders the boss.'
 
 	act 'Show your breasts':gt 'klofdomhouse', 'ev25'
-	act 'Get out of here':gt 'street'
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'street'
+		end
+	else
+		act 'Get out of here (<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] = 'ev25':
@@ -515,11 +545,18 @@ if $ARGS[0] = 'ev25':
 	gs 'arousal', 'flashlite', 5, 'sub'
 	gs 'stat'
 	act 'Show your ass':gt 'klofdomhouse', 'ev26'
-	act 'Get out of here':
-		gs 'arousal', 'end'
-		gs 'stat'
-		gt 'street'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt 'street'
+		end
+	else
+		act 'Get out of here (<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] = 'ev26':
@@ -532,11 +569,18 @@ if $ARGS[0] = 'ev26':
 	gs 'arousal', 'flash', 5, 'sub'
 	gs 'stat'
 	act 'Remove your dress':gt 'klofdomhouse', 'ev27'
-	act 'Get out of here':
-		gs 'arousal', 'end'
-		gs 'stat'
-		gt 'street'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt 'street'
+		end
+	else
+		act 'Get out of here (<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] = 'ev27':
@@ -547,11 +591,18 @@ if $ARGS[0] = 'ev27':
 	'"Spreads your legs!" You receive an order.'
 
 	act 'Spread your legs':gt 'klofdomhouse', 'ev28'
-	act 'Get out of here':
-		gs 'arousal', 'end'
-		gs 'stat'
-		gt 'street'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt 'street'
+		end
+	else
+		act 'Get out of here (<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] = 'ev28':
@@ -560,14 +611,21 @@ if $ARGS[0] = 'ev28':
 	'<center><img <<$set_imgh>> src="images/characters/city/jora/klof26_6.jpg"></center>'
 	'You sat on the bed and open your legs.'
 	'"And now seduce me" Smiles the boss.'
-	gs 'arousal', 'flash', 5, 'sub'
+	gs 'arousal', 'foreplay', 5, 'sub'
 	gs 'stat'
 	act 'Seduce the boss':gt 'klofdomhouse', 'ev29'
-	act 'Get out of here':
-		gs 'arousal', 'end'
-		gs 'stat'
-		gt 'street'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt 'street'
+		end
+	else
+		act 'Get out of here (<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] = 'ev29':
@@ -578,11 +636,18 @@ if $ARGS[0] = 'ev29':
 	gs 'arousal', 'flash', 5, 'sub'
 	gs 'stat'
 	act 'Give him a better view':gt 'klofdomhouse', 'ev30'
-	act 'Get out of here':
-		gs 'arousal', 'end'
-		gs 'stat'
-		gt 'street'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt 'street'
+		end
+	else
+		act 'Get out of here (<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] = 'ev30':
@@ -593,11 +658,18 @@ if $ARGS[0] = 'ev30':
 	gs 'arousal', 'flash', 5, 'sub'
 	gs 'stat'
 	act 'Lick the boss''s cock':gt 'klofdomhouse', 'ev31'
-	act 'Get out of here':
-		gs 'arousal', 'end'
-		gs 'stat'
-		gt 'street'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt 'street'
+		end
+	else
+		act 'Get out of here (<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] = 'ev31':
@@ -608,11 +680,18 @@ if $ARGS[0] = 'ev31':
 	gs 'arousal', 'foreplay', 5, 'sub'
 	gs 'stat'
 	act 'Suck it':gt 'klofdomhouse', 'ev32'
-	act 'Get out of here':
-		gs 'arousal', 'end'
-		gs 'stat'
-		gt 'street'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt 'street'
+		end
+	else
+		act 'Get out of here (<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] = 'ev32':
@@ -624,11 +703,18 @@ if $ARGS[0] = 'ev32':
 	gs 'arousal', 'bj', 5, 'sub'
 	gs 'stat'
 	act 'Spread your legs':gt 'klofdomhouse', 'ev33'
-	act 'Get out of here':
-		gs 'arousal', 'end'
-		gs 'stat'
-		gt 'street'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt 'street'
+		end
+	else
+		act 'Get out of here (<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] = 'ev33':
@@ -640,11 +726,18 @@ if $ARGS[0] = 'ev33':
 	gs 'arousal', 'flash', 5, 'sub'
 	gs 'stat'
 	act 'Let him fuck your pussy':gt 'klofdomhouse', 'ev34'
-	act 'Refuse':
-		gs 'arousal', 'end'
-		gs 'stat'
-		gt 'street'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt 'street'
+		end
+	else
+		act 'Get out of here (<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] = 'ev34':
@@ -669,11 +762,18 @@ if $ARGS[0] = 'ev34':
 	'"Now I try your ass."'
 
 	act 'Let him fuck your ass':gt 'klofdomhouse', 'ev35'
-	act 'Refuse':
-		gs 'arousal', 'end'
-		gs 'stat'
-		gt 'street'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt 'street'
+		end
+	else
+		act 'Get out of here (<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] = 'ev35':
@@ -749,11 +849,18 @@ if $ARGS[0] = 'ev39':
 	'"Serve both my boys only your pussy, both at the same time." Orders the boss.'
 
 	act 'Obediently serve the boys':gt 'klofdomhouse', 'ev40'
-	act 'Refuse':
-		gs 'arousal', 'end'
-		gs 'stat'
-		gt 'street'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Refuse (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt 'street'
+		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
 
 if $ARGS[0] = 'ev40':
@@ -802,10 +909,19 @@ if $ARGS[0] = 'ev42':
 	'He motions to you and says, "Come on baby, swim."'
 
 	act 'Go swimming':gt 'klofdomhouse', 'ev43'
-	act 'Leave':
-		gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
-		gt 'down'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Leave (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'clothing', 'wear', $normalclothingworntype, normalclothingworn
+			gs 'stat'
+			gt 'down'
+		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
 
 if $ARGS[0] = 'ev43':
@@ -816,10 +932,19 @@ if $ARGS[0] = 'ev43':
 	'Jora finds you a spot by the pool and tells you, "Lie down <<$pcs_nickname>> wait until more people gather." He goes for a swim.'
 
 	act 'Lie down beside the pool':gt 'klofdomhouse', 'ev44'
-	act 'Leave':
-		gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
-		gt 'down'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Leave (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'clothing', 'wear', $normalclothingworntype, normalclothingworn
+			gs 'stat'
+			gt 'down'
+		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
 
 if $ARGS[0] = 'ev44':
@@ -830,12 +955,20 @@ if $ARGS[0] = 'ev44':
 	'You lay around the pool, the pool is filling up with people.'
 	'Jora swims up to you orders, "Take off your clothes in front of the crowd."'
 
-	if sub > 0 or pcs_inhib > 35:act 'Hesitantly remove your top':gt 'klofdomhouse', 'ev45'
+	act 'Hesitantly remove your top':gt 'klofdomhouse', 'ev45'
 
-	act 'Get out of here':
-		gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
-		gt 'down'
-	end
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'clothing', 'wear', $normalclothingworntype, normalclothingworn
+			gs 'stat'
+			gt 'down'
+		end
+	else
+		act 'Get out of here (<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] = 'ev45':
@@ -852,14 +985,23 @@ if $ARGS[0] = 'ev45':
 
 	'Jora says with a grin, "Show the people those tits, they want some entertainment."'
 
-	if sub > 5 or pcs_inhib > 35:act 'Remove hands':gt 'klofdomhouse', 'ev46'
+	act 'Remove hands':gt 'klofdomhouse', 'ev46'
 	gs 'arousal', 'flashlite', 5, 'sub'
 	gs 'exhibitionism', 1
 	gs 'stat'
-	act 'Get out of here':
-		gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
-		gt 'down'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'clothing', 'wear', $normalclothingworntype, normalclothingworn
+			gs 'stat'
+			gt 'down'
+		end
+	else
+		act 'Get out of here (<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] = 'ev46':
@@ -873,7 +1015,7 @@ if $ARGS[0] = 'ev46':
 	'You lift your arms behind his head and strike a pose.'
 	'Jora orders, "Remove the rest."'
 
-	if sub > 10 or pcs_inhib > 40:act 'Go into the water and remove bikini bottoms':gt 'klofdomhouse', 'ev47'
+	act 'Go into the water and remove bikini bottoms':gt 'klofdomhouse', 'ev47'
 
 	act 'Get out of here':
 		gs 'arousal', 'end'
@@ -891,15 +1033,23 @@ if $ARGS[0] = 'ev47':
 	'You pull off your bikini bottoms and let them drift away in water.'
 	'Jora orders, "Come out and show yourself to everyone."'
 
-	if sub > 15 or pcs_inhib > 40:act 'Get out of the water':gt 'klofdomhouse', 'ev48'
+	act 'Get out of the water':gt 'klofdomhouse', 'ev48'
 	gs 'arousal', 'flash', 5, 'sub'
 	gs 'exhibitionism', 1
 	gs 'stat'
-	act 'Get out of here':
-		gs 'arousal', 'end'
-		gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
-		gt 'down'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'clothing', 'wear', $normalclothingworntype, normalclothingworn
+			gs 'stat'
+			gt 'down'
+		end
+	else
+		act 'Get out of here (<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] = 'ev48':
@@ -911,15 +1061,23 @@ if $ARGS[0] = 'ev48':
 	'You go to the edge of the pool, around you there is a crowd of excited guys.'
 	'Jora orders you, "Spread your legs."'
 
-	if sub > 20 or pcs_inhib > 50:act 'Spread your legs':gt 'klofdomhouse', 'ev49'
+	act 'Spread your legs':gt 'klofdomhouse', 'ev49'
 	gs 'arousal', 'flash', 5, 'sub'
 	gs 'exhibitionism', 3
 	gs 'stat'
-	act 'Get out of here':
-		gs 'arousal', 'end'
-		gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
-		gt 'down'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'clothing', 'wear', $normalclothingworntype, normalclothingworn
+			gs 'stat'
+			gt 'down'
+		end
+	else
+		act 'Get out of here (<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] = 'ev49':
@@ -931,14 +1089,22 @@ if $ARGS[0] = 'ev49':
 	'The excitement covers you in heat so you go into the shallow water and relax.'
 	'Jora orders, "Spread your lips."'
 
-	if sub > 25 or pcs_inhib > 55:act 'Spread your lips':gt 'klofdomhouse', 'ev50'
+	act 'Spread your lips':gt 'klofdomhouse', 'ev50'
 	gs 'arousal', 'flash', 5, 'sub'
 	gs 'stat'
-	act 'Get out of here':
-		gs 'arousal', 'end'
-		gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
-		gt 'down'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'clothing', 'wear', $normalclothingworntype, normalclothingworn
+			gs 'stat'
+			gt 'down'
+		end
+	else
+		act 'Get out of here (<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] = 'ev50':
@@ -949,14 +1115,22 @@ if $ARGS[0] = 'ev50':
 	'Most of the mens mouths are gaping open.'
 	'Jora orders, "play with yourself."'
 
-	if sub > 30 or pcs_inhib > 60:act 'Caressing your pussy':gt 'klofdomhouse', 'ev51'
+	act 'Caressing your pussy':gt 'klofdomhouse', 'ev51'
 	gs 'arousal', 'vaginal_finger', 5, 'exhibitionism', 'sub'
 	gs 'stat'
-	act 'Get out of here':
-		gs 'arousal', 'end'
-		gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
-		gt 'down'
-	end
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'arousal', 'end'
+			gs 'clothing', 'wear', $normalclothingworntype, normalclothingworn
+			gs 'stat'
+			gt 'down'
+		end
+	else
+		act 'Get out of here (<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] = 'ev51':
@@ -969,13 +1143,19 @@ if $ARGS[0] = 'ev51':
 	act 'Cum':gt 'klofdomhouse', 'ev52'
 	gs 'arousal', 'masturbate', 5, 'exhibitionism', 'sub'
 	gs 'stat'
-	if sub <= 30:
-		act 'Get out of here':
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
 			gs 'arousal', 'end'
-			gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
+			gs 'clothing', 'wear', $normalclothingworntype, normalclothingworn
+			gs 'stat'
 			gt 'down'
 		end
-	end
+	else
+		act 'Get out of here (<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] = 'ev52':
@@ -990,13 +1170,18 @@ if $ARGS[0] = 'ev52':
 	gs 'stat'
 	act 'Insert Dildo':gt 'klofdomhouse', 'ev53'
 
-	if sub <= 30:
-		act 'Get out of here':
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
 			gs 'arousal', 'end'
-			gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
+			gs 'clothing', 'wear', $normalclothingworntype, normalclothingworn
+			gs 'stat'
 			gt 'down'
 		end
-	end
+	else
+		act 'Get out of here (<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] = 'ev53':
@@ -1020,13 +1205,18 @@ if $ARGS[0] = 'ev54':
 	gs 'stat'
 	act 'Put one in your ass':gt 'klofdomhouse', 'ev55'
 
-	if sub <= 30:
-		act 'Get out of here':
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
 			gs 'arousal', 'end'
-			gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
+			gs 'clothing', 'wear', $normalclothingworntype, normalclothingworn
+			gs 'stat'
 			gt 'down'
 		end
-	end
+	else
+		act 'Get out of here (<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] = 'ev55':
@@ -1052,13 +1242,18 @@ if $ARGS[0] = 'ev56':
 	gs 'stat'
 	act 'Obediently hold the glass':gt 'klofdomhouse', 'ev57'
 
-	if sub <= 30:
-		act 'Get out of here':
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
 			gs 'arousal', 'end'
-			gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
+			gs 'clothing', 'wear', $normalclothingworntype, normalclothingworn
+			gs 'stat'
 			gt 'down'
 		end
-	end
+	else
+		act 'Get out of here (<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] = 'ev57':
@@ -1111,13 +1306,18 @@ if $ARGS[0] = 'ev61':
 
 	act 'Fuck the crowd':gt 'klofdomhouse', 'ev62'
 
-	if sub <= 30:
-		act 'Get out of here':
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Get out of here (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
 			gs 'arousal', 'end'
-			gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
+			gs 'clothing', 'wear', $normalclothingworntype, normalclothingworn
+			gs 'stat'
 			gt 'down'
 		end
-	end
+	else
+		act 'Get out of here (<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] = 'ev62':

locations/kompMFC.qsrc

@@ -418,11 +418,18 @@ if vibrator = 1 or dildo = 1 or middildo = 1 or largedildo = 1 or bigdildo = 1 o
 					gt'Komp','waitclients'
 				end
 			end
-			act 'Ignore him':
-				cls
-				webpopular -= 1
-				gt'Komp','waitclients'
-			end
+			gs 'willpower', 'exhib', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Ignore him (<<will_cost>> Willpower)':
+					cls
+					webpopular -= 1
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					gt 'Komp','waitclients'
+				end
+			else
+				act 'Ignore him (<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 pcs_vag > 0:
 		if vibrator = 1:
@@ -1019,11 +1026,18 @@ else
 				act'Continue':gt'Komp','waitclients'
 			end
 		end
-		act 'Ignore him':
-			cls
-			webpopular -= 1
-			gt'Komp','waitclients'
-		end
+		gs 'willpower', 'exhib', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Ignore him (<<will_cost>> Willpower)':
+				cls
+				webpopular -= 1
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'Komp','waitclients'
+			end
+		else
+			act 'Ignore 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_vag > 0:
 		act 'Do as he asks':
 			cls

locations/kompMFCtwo.qsrc

@@ -43,11 +43,18 @@ if webpopular >= 15 and pcs_ass >= 15 and clientask = 89:
 		end
 		act'Continue':gt'Komp','waitclients'
 	end
-	act 'Ignore him':
-		cls
-		webpopular -= 1
-		gt'Komp','waitclients'
-	end
+	gs 'willpower', 'exhib', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Ignore him (<<will_cost>> Willpower)':
+				cls
+				webpopular -= 1
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'Komp','waitclients'
+			end
+		else
+			act 'Ignore him (<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 webpopular < 50 and clientask = 88:
@@ -82,11 +89,18 @@ if webpopular < 50 and clientask = 88:
 		end
 		act'Continue':gt'Komp','waitclients'
 	end
-	act 'Ignore him':
-		cls
-		webpopular -= 1
-		gt'Komp','waitclients'
-	end
+	gs 'willpower', 'exhib', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Ignore him (<<will_cost>> Willpower)':
+				cls
+				webpopular -= 1
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'Komp','waitclients'
+			end
+		else
+			act 'Ignore him (<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 webpopular >= 50 and pcs_vag >= 35 and clientask = 87:
@@ -117,10 +131,18 @@ if webpopular >= 50 and pcs_vag >= 35 and clientask = 87:
 		'The chat is very impressed with your eagerness to please, and makes several lewd comments on what a good slut you are. You wiggle your hips at them for a moment before retrieving the objects and setting them aside.'
 		act'Continue':gt'Komp','waitclients'
 	end
-	act 'Ignore him':
-		cls
-		gt'Komp','waitclients'
-	end
+	gs 'willpower', 'exhib', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Ignore him (<<will_cost>> Willpower)':
+				cls
+				webpopular -= 1
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'Komp','waitclients'
+			end
+		else
+			act 'Ignore him (<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 webpopular >= 35 and pcs_vag >= 25 and alko >= 8 and clientask = 86:
@@ -426,11 +448,18 @@ if backmfc = 0 and pcs_vag > 20 and clientask = 83:
 		end
 		act'Continue':gt'Komp','waitclients'
 	end
-	act 'Ignore him':
-		cls
-		webpopular -= 1
-		gt'Komp','waitclients'
-	end
+	gs 'willpower', 'exhib', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Ignore him (<<will_cost>> Willpower)':
+			cls
+			webpopular -= 1
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'Komp','waitclients'
+		end
+	else
+		act 'Ignore him (<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 webpopular > 25 and backmfc = 0 and sub > 25 and pcs_vag > 10 and prezik > 0 and clientask = 82:
@@ -464,11 +493,18 @@ if webpopular > 25 and backmfc = 0 and sub > 25 and pcs_vag > 10 and prezik > 0
 		'When it''s in, you slowly pretend that you''re fucking yourself with it, even though it''s more your hips and hands moving than you actually moving the toothbrush. That would hurt like hell! You carefully pull the toothbrush out again, wincing with pain the whole time. Next time someone asks you to do that, you might not be so eager to do it any more... no matter how many tokens they offer.'
 		act'Further':gt'Komp','waitclients'
 	end
-	act 'Ignore him':
-		cls
-		webpopular -= 1
-		gt'Komp','waitclients'
-	end
+	gs 'willpower', 'exhib', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Ignore him (<<will_cost>> Willpower)':
+			cls
+			webpopular -= 1
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'Komp','waitclients'
+		end
+	else
+		act 'Ignore him (<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 backmfc = 0 and webpopular >= 50 and pcs_ass > 25 and clientask = 81:
@@ -503,11 +539,18 @@ if backmfc = 0 and webpopular >= 50 and pcs_ass > 25 and clientask = 81:
 		'The pain in your ass is unbearable for a while, but the client is true to his word. He donates a decent amount of tokens and lets you know that he hopes to meet an anal queen like you one day. You''re not sure if you can carry on with your show, though... that hurt a lot more than you thought it would.'
 		act'Continue':gt'Komp','waitclients'
 	end
-	act 'Ignore him':
-		cls
-		webpopular -= 1
-		gt'Komp','waitclients'
-	end
+	gs 'willpower', 'exhib', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Ignore him (<<will_cost>> Willpower)':
+			cls
+			webpopular -= 1
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'Komp','waitclients'
+		end
+	else
+		act 'Ignore him (<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 backmfc = 0 and webpopular >= 50 and pcs_ass > 10 and pcs_vag > 10 and sub > 50 and alko >= 6 and clientask = 80:
@@ -548,11 +591,18 @@ if backmfc = 0 and webpopular >= 50 and pcs_ass > 10 and pcs_vag > 10 and sub >
 		'A couple of minutes you finally pulled out of his embattled hell holes hook and crying, completely forgetting about the crowd of screaming spectators, promised myself never to repeat such...'
 		act'Further':gt'Komp','waitclients'
 	end
-	act 'Ignore':
-		cls
-		webpopular -= 1
-		gt'Komp','waitclients'
-	end
+	gs 'willpower', 'exhib', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Ignore him (<<will_cost>> Willpower)':
+			cls
+			webpopular -= 1
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'Komp','waitclients'
+		end
+	else
+		act 'Ignore him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
 end
 
 --- kompMFCtwo ---------------------------------

locations/lena.qsrc

@@ -17,7 +17,18 @@ if $ARGS[0] = 'lena':
 	act 'Move away':gt $loc,$metka
 	if $metka = 'party_gost':
 		'Lena and Ira together clink cups. "<<$pcs_nickname>>, Lets party!" As they offer you a drink.'
-		act 'Drink':gt 'ira', 'drink'
+		
+		gs 'willpower', 'drink', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Drink (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				gt 'ira', 'drink'
+			end
+		else
+			act 'Drink (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end	
+		
 		act 'Dance':gt 'ira', 'dance'
 	else
 		if alko < 6 and $metka = 'party_home': act 'Have a drink': gt'sbReksHome','party_drink'