Merge remote-tracking branch 'sovietmercader/master'

locations/BDSM_Club.qsrc

@@ -87,43 +87,44 @@ if $ARGS[0] = 'in':
 		'"Well," the woman puts her hands together and looks at you. Who do you want to be? Top or bottom?'
 		'"I do not know," you shrug. "What does that mean?"'
 		'"Dominant or submissive?"'
-		if pcs_dom < 50:
-			act 'submissive':
-				*clr & cla
-				minut += 10
-				sub += 1
-				$BDSMrole = 's'
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_2.jpg"></center>'
-				'The woman''s eyes light up. She stands up behind the desk and orders you.'
-				'"Stand up!"'
-				'You jump, than understand, why you did. The imperious voice of this Lady holds you in awe.'
-				'"No sitting lower in the presence of top. Understood?"'
-				'"Yes."'
-				'"Wrong! Try again!"'
-				'"Yes, Mistress."'
-				'The woman nods. "Undress!"'
-				'"But..."'
-				'"Undress, now! Or I''ll knock you out!" Mistress has her hand on the table.'
-				'You look to the man you were just talking to, but he just stands there, expressionless. You undress.'
-				'"Sign!"'
-				'You sign the document. The man places the paper in a folder.'
-				'"Listen carefully..."'
-				'She explains to you, that the club costs 20,000 <b>₽</b> per 30 days access, with a 10,000 ruble registration fee. For slaves there is a means for discount, if the slave is well behaved and earns enough merits, the membership will be automatically extended.'
-				'Untrained slaves are not allowed in the Mansion, you will require training. You''ll have to report to me for that, I''m going to enjoy it.'
-				'"Come back when you are ready for training. Be clean, have an enema. You must own a maid outfit, so you will be wearing it. Everything clear?'
-				'"But... what if I don''t have a maid outfit?..." You whisper.'
-				'"Find a branch of G & M and buy one, and don''t forget to bring the first instalment of 10 thousand <b>₽</b>. We are not a charitable organization, nothing is free. However, if you prove yourself as a sub, you will be able to earn some tips in private sessions. But the main thing – do not talk. We have important clients, and don''t need advertising. Everything clear?"'
-				'"Clear... Mistress..."'
-				'As you are leaving, you think, where will you get the money for the down payment.'
-				act 'Logout':gt 'BDSM_Club', 'start'
-			end
+		act 'Submissive':
+			*clr & cla
+			minut += 10
+			sub += 1
+			$BDSMrole = 's'
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_2.jpg"></center>'
+			'The woman''s eyes light up. She stands up behind the desk and orders you.'
+			'"Stand up!"'
+			'You jump, than understand, why you did. The imperious voice of this Lady holds you in awe.'
+			'"No sitting lower in the presence of top. Understood?"'
+			'"Yes."'
+			'"Wrong! Try again!"'
+			'"Yes, Mistress."'
+			'The woman nods. "Undress!"'
+			'"But..."'
+			'"Undress, now! Or I''ll knock you out!" Mistress has her hand on the table.'
+			'You look to the man you were just talking to, but he just stands there, expressionless. You undress.'
+			'"Sign!"'
+			'You sign the document. The man places the paper in a folder.'
+			'"Listen carefully..."'
+			'She explains to you, that the club costs 20,000 <b>₽</b> per 30 days access, with a 10,000 ruble registration fee. For slaves there is a means for discount, if the slave is well behaved and earns enough merits, the membership will be automatically extended.'
+			'Untrained slaves are not allowed in the Mansion, you will require training. You''ll have to report to me for that, I''m going to enjoy it.'
+			'"Come back when you are ready for training. Be clean, have an enema. You must own a maid outfit, so you will be wearing it. Everything clear?'
+			'"But... what if I don''t have a maid outfit?..." You whisper.'
+			'"Find a branch of G & M and buy one, and don''t forget to bring the first installment of 10 thousand <b>₽</b>. We are not a charitable organization, nothing is free. However, if you prove yourself as a sub, you will be able to earn some tips in private sessions. But the main thing – do not talk. We have important clients, and don''t need advertising. Everything clear?"'
+			'"Clear... Mistress..."'
+			'As you are leaving, you think, where will you get the money for the down payment.'
+			act 'Leave':gt 'BDSM_Club', 'start'
 		end
-		if sub < 50:
-			act 'Dominant':
+		gs 'willpower', 'misc', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Dominant (<<will_cost>> Willpower)':
 				*clr & cla
 				minut += 10
 				$BDSMrole = 'd'
+				gs 'willpower', 'misc', 'resist', 'hard'
+				gs 'willpower', 'pay', 'resist'
 				gs 'stat'
 				!'<center><img <<$set_imgh>> src="images/bdsm_club/<<$BDSMrole>><<BDSMmeet>>_2.jpg"></center>'
 				'The woman sighs disappointedly.'
@@ -136,6 +137,8 @@ if $ARGS[0] = 'in':
 				'As you are leaving, you think, where will you get the money for the registration fee and if you can persuade someone to come here as a sub.'
 				act 'Leave':gt 'BDSM_Club', 'start'
 			end
+		else
+			act 'Dominant (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	end
 end

locations/BDSM_training.qsrc

@@ -140,21 +140,28 @@ if $ARGS[0] = '1':
 								'"You must earn it!"'
 								$orgasm_or = 'no'
 								gs 'stat'
-								act 'Cheat and cum':
-									*clr & cla
-									minut += 10
-									pcs_horny = 10
-									pcs_mood += 25
-									gs 'stat'
-									'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_9.jpg"></center>'
-									'You decide to cheat and, with an incredible force of will, take control of the body. It goes unnoticed, Mistress continues, and you rapidly cum.'
-									'"What''s going on?!" Yells Mistress in your ear. "You bitch, tricking me like that!'
-									'She unhooks you from the cross, puts you on your knees and slaps you a few times. You are so happy, being able to cum, that you laugh.'
-									'"Laugh? Well, I''ll fix that!"'
-									'Mistress picks up a rope and wraps it around your breasts, tightly binding the left and right. The pain makes you start crying, but Mistress is not through, she hangs on you nipple clamps with weights and forces you to crouch, so, the weights are swinging. You hurt, but at the same time it''s nice, and you stay there as instructed.'
-									$orgasm_or = 'yes'
-									gs 'stat'
-									act 'Further':gt 'BDSM_training', 'BDSMend'
+								gs 'willpower', 'hj', 'resist', 'hard'
+								if will_cost <= pcs_willpwr:
+									act 'Cheat and cum (<<will_cost>> Willpower)':
+										*clr & cla
+										minut += 10
+										pcs_horny = 10
+										pcs_mood += 25
+										gs 'willpower', 'hj', 'resist', 'hard'
+										gs 'willpower', 'pay', 'resist'
+										gs 'stat'
+										'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_9.jpg"></center>'
+										'You decide to cheat and, with an incredible force of will, take control of the body. It goes unnoticed, Mistress continues, and you rapidly cum.'
+										'"What''s going on?!" Yells Mistress in your ear. "You bitch, tricking me like that!'
+										'She unhooks you from the cross, puts you on your knees and slaps you a few times. You are so happy, being able to cum, that you laugh.'
+										'"Laugh? Well, I''ll fix that!"'
+										'Mistress picks up a rope and wraps it around your breasts, tightly binding the left and right. The pain makes you start crying, but Mistress is not through, she hangs on you nipple clamps with weights and forces you to crouch, so, the weights are swinging. You hurt, but at the same time it''s nice, and you stay there as instructed.'
+										$orgasm_or = 'yes'
+										gs 'stat'
+										act 'Further':gt 'BDSM_training', 'BDSMend'
+									end
+								else
+									act 'Cheat and cum (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 								end
 								act 'Hold back':
 									*clr & cla

locations/BMloc.qsrc

@@ -31,8 +31,19 @@ act 'Dance':
 	if bmTip[Tboynum] = 0:'After the Dance <<$boydesc>> offers to go out and drink beer.'
 	if bmTip[Tboynum] = 1:'After the Dance <<$boydesc>> offers to go hang out.'
 	if bmTip[Tboynum] = 2:'After the Dance <<$boydesc>> offers to go to his hotel.'
-
-	act 'Refuse': sprt_exp += rand(0,1) & gt 'gdkin'
+	
+	gs 'willpower', 'drink', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Refuse (<<will_cost>> Willpower)':
+			sprt_exp += rand(0,1)
+			gs 'willpower', 'drink', 'resist'
+			gs 'willpower', 'pay'
+			gs 'stat'
+			gt 'gdkin'
+		end
+	else
+		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 	
 	act 'Agree':
 		*clr & cla

locations/BelSex.qsrc

@@ -62,7 +62,7 @@ if $ARGS[0] = 'bj1':
 		end
 	end
 	if belact > 0:
-	belyvag = rand(0,3)
+		belyvag = rand(0,3)
 		if belyvag = 0:
 			 '<<$boydesc>> grunts loudly while you suck him off. "Time to give you a real pounding!"'
 			act'Get in position':gt 'BelSex', 'vaginal1'

locations/abduction.qsrc

@@ -296,7 +296,7 @@ if $ARGS[0] = 'abdBreak1':
 	tortureType = rand(1,3)
 	gs 'willpower', 'misc', 'resist', 'hard'
 	if will_cost <= pcs_willpwr:
-		act 'Spit in his face (<<will_cost>> Willpower</font>)':
+		act 'Spit in his face (<<will_cost>> Willpower)':
 			gs 'willpower', 'misc', 'resist', 'hard'
 			gs 'willpower', 'pay', 'resist'
 			gs 'stat'

locations/andrey.qsrc

@@ -352,7 +352,7 @@ if $ARGS[0] = 'beg':
 		'"Anything? Ha! Fine, I know what you could do!" The manager says as his eyes begin to wander all over your body. "You can start off by sucking my cock and then bend over and let me stick my cock into your ass. That''s the only way you can prove to me you''re a hard worker, got it? If not then you''re just another lazy brat, and I don''t need someone like that working for me."'
 		gs 'willpower', 'anal', 'resist'
 		if will_cost <= pcs_willpwr:
-			act 'Refuse (<<will_cost>> Willpower</font>)':
+			act 'Refuse (<<will_cost>> Willpower)':
 				cla
 				*clr
 				'<center><img <<$set_imgh>> src="images\locations\city\citycenter\mall\cats\fired.jpg"></center>'

locations/bass.qsrc

@@ -62,7 +62,7 @@ if $ARGS[0] = 'a':
 			
 			gs 'willpower', 'misc', 'resist'
 			if will_cost <= pcs_willpwr:
-				act 'Tell Kisame to fuck off (<<will_cost>> Willpower</font>)':
+				act 'Tell Kisame to fuck off (<<will_cost>> Willpower)':
 					cla
 					'"I don''t care who you are, fuck off!"'
 					'"That''s not nice!" he replies.'
@@ -84,7 +84,7 @@ if $ARGS[0] = 'a':
 		
 		gs 'willpower', 'bj', 'resist'
 		if will_cost <= pcs_willpwr:
-			act 'Attack Kisame (<<will_cost>> Willpower</font>)':
+			act 'Attack Kisame (<<will_cost>> Willpower)':
 				cla
 				pcs_horny += 10
 				gs 'willpower', 'bj', 'resist'

locations/belpicknick.qsrc

@@ -18,6 +18,17 @@ if $ARGS[0] = '':
 		'You drink the vodka as you were told, and feel a shiver run down your spine. Your throat burns when you swallow it, but soon after a pleasant warmth spreads throughout your body. A few minutes later, you feel absolutely hammered.'
 		act'Continue':gt 'belpicknick', '1'
 	end
+	gs 'willpower', 'drink', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Run away from them (<<will_cost>> Willpower)':
+			gs 'willpower', 'drink', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
+			nroad = rand(1,19)
+			gt 'road'
+		end
+	else
+		act 'Run away from them (<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] = '1':
@@ -42,6 +53,25 @@ if $ARGS[0] = '1':
 		end
 		if pcs_danc >= 40:gt 'belpicknick', 'dance'
 	end
+	if pcs_danc < 40:
+		gs 'willpower', 'mast', 'resist', 'hard'
+	else
+		gs 'willpower', 'voyeur', 'resist', 'hard'
+	end
+	if will_cost <= pcs_willpwr:
+		act 'Run away from them (<<will_cost>> Willpower)':
+			if pcs_danc < 40:
+				gs 'willpower', 'mast', 'resist', 'hard'
+			else
+				gs 'willpower', 'voyeur', 'resist', 'hard'
+			end
+			gs 'willpower', 'pay', 'resist'
+			nroad = rand(1,19)
+			gt 'road'
+		end
+	else
+		act 'Run away from them (<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] = 'vb_light':
@@ -55,18 +85,39 @@ if $ARGS[0] = 'vb_light':
 	if rand(1,100) <= 10:		
 		'Even though the criminals seem enthralled by your show, one of them is getting frustrated: "Whatever. You shouldn''t be putting bottles up there, but our cocks! Get over here whore, it''s time you get fucked."'
 		act'Continue':gt 'belpicknick', 'gang'
+		gs 'willpower', 'gangbang', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Run away from them (<<will_cost>> Willpower)':
+				gs 'willpower', 'gangbang', 'resist', 'hard'
+				gs 'willpower', 'pay', 'resist'
+				nroad = rand(1,19)
+				gt 'road'
+			end
+		else
+			act 'Run away from them (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
 	else
 		'The guys are not impressed however. "What kind of weak shit is this? You''d better put some more effort into it, otherwise we''re going to do it for you."'
 		act'Shove the bottom into your vagina':gt 'belpicknick', 'vb_hard'
 		act'Shove the neck into your ass':gt 'belpicknick', 'ab_light'
 		act'Shove the bottom into your ass':gt 'belpicknick', 'ab_hard'
+		gs 'willpower', 'mast', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Run away from them (<<will_cost>> Willpower)':
+				gs 'willpower', 'mast', 'resist', 'hard'
+				gs 'willpower', 'pay', 'resist'
+				nroad = rand(1,19)
+				gt 'road'
+			end
+		else
+			act 'Run away from them (<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
 
 if $ARGS[0] = 'vb_hard':
 	cls
 	dick1 = 40
-	prevdance = 0
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/vadim/sex/bottle2.jpg"></center>'
 	gs 'dinsex2', 'd_vag_sex_bottle', 5, 'dick1'
@@ -78,17 +129,38 @@ if $ARGS[0] = 'vb_hard':
 	if rand(1,100) <= 80:
 		'Even though the criminals seem enthralled by your show, one of them is getting frustrated: "Whatever. You shouldn''t be putting bottles up there, but our cocks! Get over here whore, it''s time you get fucked."'
 		act'Continue':gt 'belpicknick', 'gang'
+		gs 'willpower', 'gangbang', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Run away from them (<<will_cost>> Willpower)':
+				gs 'willpower', 'gangbang', 'resist', 'hard'
+				gs 'willpower', 'pay', 'resist'
+				nroad = rand(1,19)
+				gt 'road'
+			end
+		else
+			act 'Run away from them (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
 	else	
 		'The bandits look at each other for a second, and then shake their heads: "Not good enough, slut. Put it in your ass and be quick about it, otherwise we''re doing it for you."'
 		act'Shove the neck into your ass':gt 'belpicknick', 'ab_light'
 		act'Shove the bottom into your ass':gt 'belpicknick', 'ab_hard'
+		gs 'willpower', 'mast', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Run away from them (<<will_cost>> Willpower)':
+				gs 'willpower', 'mast', 'resist', 'hard'
+				gs 'willpower', 'pay', 'resist'
+				nroad = rand(1,19)
+				gt 'road'
+			end
+		else
+			act 'Run away from them (<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
 
 if $ARGS[0] = 'ab_light':
 	cls
 	dick1 = 10
-	prevdance = 0
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/vadim/sex/bottle3.jpg"></center>'
 	gs 'dinsex2', 'd_analsex_bottle',5,'dick1'
@@ -100,9 +172,31 @@ if $ARGS[0] = 'ab_light':
 	if rand(1,100) <= 70:	
 		'Even though the criminals seem enthralled by your show, one of them is getting frustrated: "Whatever. You shouldn''t be putting bottles up there, but our cocks! Get over here whore, it''s time you get fucked."'
 		act'Continue':gt 'belpicknick', 'gang'
+		gs 'willpower', 'gangbang', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Run away from them (<<will_cost>> Willpower)':
+				gs 'willpower', 'gangbang', 'resist', 'hard'
+				gs 'willpower', 'pay', 'resist'
+				nroad = rand(1,19)
+				gt 'road'
+			end
+		else
+			act 'Run away from them (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
 	else
 		'The bandits look at each other for a second, and then shake their heads: "Not good enough, slut. Use the other end and be quick about it, otherwise we''re doing it for you."'
 		act'Shove the bottom into your ass':gt 'belpicknick', 'ab_hard'
+		gs 'willpower', 'mast', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Run away from them (<<will_cost>> Willpower)':
+				gs 'willpower', 'mast', 'resist', 'hard'
+				gs 'willpower', 'pay', 'resist'
+				nroad = rand(1,19)
+				gt 'road'
+			end
+		else
+			act 'Run away from them (<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
 
@@ -119,6 +213,17 @@ if $ARGS[0] = 'ab_hard':
 	end
 	'The guys slap each other on the back, thoroughly impressed: "What an ass, look at it stretch! It''s gonna take all of our cocks combined in there to even feel something!"'
 	act'Continue':gt 'belpicknick', 'gang'
+	gs 'willpower', 'gangbang', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Run away from them (<<will_cost>> Willpower)':
+			gs 'willpower', 'gangbang', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
+			nroad = rand(1,19)
+			gt 'road'
+		end
+	else
+		act 'Run away from them (<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] = 'dance':
@@ -150,6 +255,17 @@ if $ARGS[0] = 'dance':
 			'Suddenly the cock you''re currently sucking on is pulled away from you, and <<$boydesc>> tells you to get on all fours saying he wants to try another hole now.'
 			act'Get on your hands and knees':gt 'belpicknick', 'doggy'
 		end
+		gs 'willpower', 'sex', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Run away from them (<<will_cost>> Willpower)':
+				gs 'willpower', 'sex', 'resist', 'hard'
+				gs 'willpower', 'pay', 'resist'
+				nroad = rand(1,19)
+				gt 'road'
+			end
+		else
+			act 'Run away from them (<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
 
@@ -191,6 +307,17 @@ if $ARGS[0] = 'missionary':
 				'You stay in position for the next guy.'
 				act'Continue':gt 'belpicknick', 'missionary'
 			end
+			gs 'willpower', 'sex', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Run away from them (<<will_cost>> Willpower)':
+					gs 'willpower', 'sex', 'resist', 'hard'
+					gs 'willpower', 'pay', 'resist'
+					nroad = rand(1,19)
+					gt 'road'
+				end
+			else
+				act 'Run away from them (<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
@@ -246,6 +373,17 @@ if $ARGS[0] = 'doggy':
 				'You stay in position for the next guy.'
 				act'Continue':gt 'belpicknick', 'doggy'
 			end
+			gs 'willpower', 'sex', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Run away from them (<<will_cost>> Willpower)':
+					gs 'willpower', 'sex', 'resist', 'hard'
+					gs 'willpower', 'pay', 'resist'
+					nroad = rand(1,19)
+					gt 'road'
+				end
+			else
+				act 'Run away from them (<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

locations/billiard.qsrc

@@ -14,57 +14,82 @@ gs 'stat'
 act 'Leave':gt 'torgcentr'
 
 if hour >= 8 and hour <= 20:
-	if money >= 250:
-		act 'Play (250 <b>₽</b>) (1:00)':
+	if money >= 125:
+		act 'Play (125 <b>₽</b>) (1:00)':
 			menu_off = 1
-			money -= 250
+			money -= 125
 			minut += 60
 			billvar = 0
-			pool_exp += rand(0, 3)
-			billrand = rand(0, 5)
-
+			pool_exp += rand(0,3)
+			billrand = rand(0,5)
+			gs 'stat'
+			
 			if billrand = 0:
 				cla
 				'You play one of the guys here and he asks if you want to make it more interesting.'
 
 				if money >= 1000:act 'Bet on the game (1000 <b>₽</b>)':billvar = 0 & gt 'billiard', 'randwin'
 
-				if pcs_dom > 20 and strapon = 1:
-					act 'Play for his ass, sex if you lose':
-						billvar = 1
-						gt 'billiard', 'randwin'
+				if strapon = 1:act 'Play for his ass, sex if you lose':billvar = 1 & gt 'billiard', 'randwin'
+				
+				gs 'willpower', 'anal', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'Stick to practice games (<<will_cost>> Willpower)':
+						gs 'willpower', 'anal', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						gt 'billiard'
 					end
+				else
+					act 'Stick to practice games (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+				
+				act 'Let him have the table instead':
+					money += 125
+					pool_exp -= rand(0,3)
+					gs 'stat'
+					gt 'billiard'
 				end
-
-				act 'Stick to practice games':gt 'billiard'
 			elseif billrand = 1:
 				cla
 				'You play a couple of the guys here and they ask if you want to make it more interesting.'
 
 				if money >= 1000:act 'Bet on the game (1000 <b>₽</b>)':billvar = 0 & gt 'billiard', 'randwin'
 
-				if pcs_dom > 20 and strapon = 1:
-					act 'Play for his ass, sex if you lose':
-						billvar = 2
-						gt 'billiard', 'randwin'
+				if strapon = 1:act 'Play for their asses, sex if you lose':billvar = 2 & gt 'billiard', 'randwin'
+
+				gs 'willpower', 'anal', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Stick to practice games (<<will_cost>> Willpower)':
+						gs 'willpower', 'anal', 'resist', 'hard'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						gt 'billiard'
 					end
+				else
+					act 'Stick to practice games (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
-
-				act 'Stick to practice games':gt 'billiard'
-			elseif billrand > 1:
+				
+				act 'Let him have the table instead':
+					money += 125
+					pool_exp -= rand(0,3)
+					gs 'stat'
+					gt 'billiard'
+				end
+			elseif billrand >= 2:
 				cla
-				'You played billiards.'
+				'You played billiards by yourself.'
 
 				act 'Leave':gt 'billiard'
 			end
 		end
 	end
 
-	if money >= 300:
-		act 'Play for money (300 <b>₽</b>)':
+	if money >= 250:
+		act 'Play for money (250 <b>₽</b>)':
 			menu_off = 1
 			minut += 60
-			pool_exp += rand(0, 1)
+			pool_exp += rand(0,1)
 			billvar = 3
 			gt 'billiard', 'randwin'
 		end
@@ -112,8 +137,8 @@ if $ARGS[0] = 'randwin':
 		
 		act 'Leave':gt 'billiard'
 	elseif billwin > 10 and billvar = 3:
-		money += 300
-		'You won and received 300 <b>₽</b>.'
+		money += 250
+		'You won and received 250 <b>₽</b>.'
 
 		act 'Get_Away':gt 'billiard'
 	elseif billwin <= 10 and billvar = 0:

locations/billsvid.qsrc

@@ -71,7 +71,17 @@ if $ARGS[0] = '1':
 	gs 'arousal', 'foreplay', 5, 'lesbian'
 	gs 'stat'
 	
-	act 'Not now <<$telsob>>':gt 'billsvid', '3'
+	gs 'willpower', 'cuni', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Not now <<$telsob>> (<<will_cost>> Willpower)':
+			gs 'willpower', 'cuni', 'resist'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'billsvid', '3'
+		end
+	else
+		act 'Not now <<$telsob>> (<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 her':
 		*clr & cla
@@ -83,7 +93,17 @@ if $ARGS[0] = '1':
 		gs 'stat'
 	
 		act 'Lick her':gt 'billsvid', '10'
-		act 'Get licked':gt 'billsvid', '11'
+		gs 'willpower', 'cuni', 'force'
+		if will_cost <= pcs_willpwr:
+			act 'Get licked (<<will_cost>> Willpower)':
+				gs 'willpower', 'cuni', 'force'
+				gs 'willpower', 'pay', 'force'
+				gs 'stat'
+				gt 'billsvid', '11'
+			end
+		else
+			act 'Get licked (<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
 
@@ -95,7 +115,17 @@ if $ARGS[0] = '10':
 	gs 'arousal', 'cuni_give', 5, 'lesbian'
 	gs 'stat'
 		
-	act 'Get licked':gt 'billsvid', '11'
+	gs 'willpower', 'cuni', 'force'
+	if will_cost <= pcs_willpwr:
+		act 'Get licked (<<will_cost>> Willpower)':
+			gs 'willpower', 'cuni', 'force'
+			gs 'willpower', 'pay', 'force'
+			gs 'stat'
+			gt 'billsvid', '11'
+		end
+	else
+		act 'Get licked (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 
 	if bilsvidkiy = 0:act 'Play with a cue':gt 'billsvid', '12'
 	if bilsvidukiy = 0:act 'Ask her to play with a cue':gt 'billsvid', '13'
@@ -112,7 +142,19 @@ if $ARGS[0] = '11':
 	act 'Lick her':gt 'billsvid', '10'
 
 	if bilsvidkiy = 0:act 'Play with a cue':gt 'billsvid', '12'
-	if bilsvidukiy = 0:act 'Ask her to play with a cue':gt 'billsvid', '13'
+	if bilsvidukiy = 0:
+		gs 'willpower', 'sex', 'force'
+		if will_cost <= pcs_willpwr:
+			act 'Ask her to play with a cue (<<will_cost>> Willpower)':
+				gs 'willpower', 'sex', 'force'
+				gs 'willpower', 'pay', 'force'
+				gs 'stat'
+				gt 'billsvid', '13'
+			end
+		else
+			act 'Ask her to play with a cue (<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
 
 if $ARGS[0] = '12':
@@ -124,7 +166,19 @@ if $ARGS[0] = '12':
 	gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian'
 	gs 'stat'
 	
-	if bilsvidukiy = 0:act 'Ask her to play with a cue':gt 'billsvid', '13'
+	if bilsvidukiy = 0:
+		gs 'willpower', 'sex', 'force'
+		if will_cost <= pcs_willpwr:
+			act 'Ask her to play with a cue (<<will_cost>> Willpower)':
+				gs 'willpower', 'sex', 'force'
+				gs 'willpower', 'pay', 'force'
+				gs 'stat'
+				gt 'billsvid', '13'
+			end
+		else
+			act 'Ask her to play with a cue (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+	end
 
 	act 'Finish':gt 'billsvid', '3'
 end
@@ -153,7 +207,17 @@ if $ARGS[0] = '2':
 	gs 'arousal', 'foreplay', 5, 'lesbian'
 	gs 'stat'
 	
-	act 'Continue to play':gt 'billsvid', '3'
+	gs 'willpower', 'cuni', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Continue to play <<$telsob>> (<<will_cost>> Willpower)':
+			gs 'willpower', 'cuni', 'resist'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'billsvid', '3'
+		end
+	else
+		act 'Continue to play <<$telsob>> (<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 her':
 		*clr & cla

locations/bobka.qsrc

@@ -113,8 +113,18 @@ if ARGS[0] = 3:
 	'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/rimming.jpg"></center>'
 	'<<$tempval>> drop to your knees before Bobka and look at him questioningly, softly muttering you''ll do whatever he wants you to do.'
 	'Bobka lies back and lifts his legs, exposing his ass to you. He grunts: "Start licking, bitch! If you know what''s good for you..."'
-
-	act 'Lick his ass reluctantly':gt 'bobka', 'rimming2'
+	
+	gs 'willpower', 'bj', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Lick his ass reluctantly (<<will_cost>> Willpower)':
+			gs 'willpower', 'bj', 'resist'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'bobka', 'rimming2'
+		end
+	else
+		act 'Lick his ass reluctantly (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 	act 'Lick his ass enthusiastically':gt 'bobka', 'rimming3'
 end
 
@@ -130,8 +140,18 @@ if ARGS[0] = 4:
 	'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/knees.jpg"></center>'
 	'<<$tempval>> drop to your knees before Bobka and look at him questioningly, softly muttering you''ll do whatever he wants you to do.'
 	'"I don''t need you today", he tells you, and your heart sinks. Then he continues: "I do need to piss, though... might as well use you. I''ll even give you a chance to earn some extra money: I''ll give you 100 <b>₽</b> if you open your mouth and swallow it all", and pulls his cock out of his pants.'
-
-	act 'Let him pee on your face':gt 'bobka', 'peeface'
+	
+	gs 'willpower', 'swallow', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Let him pee on your face (<<will_cost>> Willpower)':
+			gs 'willpower', 'bj', 'resist'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'bobka', 'peeface'
+		end
+	else
+		act 'Let him pee on your face (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 	act 'Open your mouth for him':gt 'bobka', 'peeswallow'
 end
 

locations/bordel.qsrc

@@ -118,8 +118,18 @@ if $ARGS[0] = 'var':
 
 	if borrand = 0:
 		'Customer orders one girl (1,000 <b>₽</b>).'
-
-		act 'Refuse':gt 'bordel', 'brothel'
+		
+		gs 'willpower', 'sex', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse (<<will_cost>> Willpower)':
+				gs 'willpower', 'sex', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'bordel', 'brothel'
+			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':
 			borsexkol += 1
@@ -137,7 +147,17 @@ if $ARGS[0] = 'var':
 	elseif borrand = 1:
 		'Customer orders two girls (1,000 <b>₽</b>).'
 
-		act 'Refuse':gt 'bordel', 'brothel'
+		gs 'willpower', 'sex', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse (<<will_cost>> Willpower)':
+				gs 'willpower', 'sex', 'resist', 'hard'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'bordel', 'brothel'
+			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':
 			borsexkol += 1
@@ -154,7 +174,17 @@ if $ARGS[0] = 'var':
 	elseif borrand = 2:
 		'Two clients book one girl (1,500 <b>₽</b>).'
 
-		act 'Refuse':gt 'bordel', 'brothel'
+		gs 'willpower', 'sex', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse (<<will_cost>> Willpower)':
+				gs 'willpower', 'sex', 'resist', 'hard'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'bordel', 'brothel'
+			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':
 			borsexkol += 1
@@ -171,7 +201,17 @@ if $ARGS[0] = 'var':
 	elseif borrand = 3:
 		'Two clients book two girls (1,500 <b>₽</b>).'
 
-		act 'Refuse':gt 'bordel', 'brothel'
+		gs 'willpower', 'sex', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse (<<will_cost>> Willpower)':
+				gs 'willpower', 'sex', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'bordel', 'brothel'
+			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':
 			borsexkol += 1
@@ -188,7 +228,17 @@ if $ARGS[0] = 'var':
 	elseif borrand = 4:
 		'Group of customers order one girl, price 2,000 <b>₽</b>.'
 
-		act 'Refuse':gt 'bordel', 'brothel'
+		gs 'willpower', 'sex', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse (<<will_cost>> Willpower)':
+				gs 'willpower', 'sex', 'resist', 'hard'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'bordel', 'brothel'
+			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':
 			borsexkol += 1

locations/bordelv.qsrc

@@ -12,7 +12,7 @@ gs 'stat'
 'While you''re pondering this information, Vika enters the room, dressed in a pink combination, and lies on the bed.'
 'She looks at you through the glass and with one hand massages her pussy through her panties. Observing her is turning you on.'
 
-act 'Keep on watching':
+act 'Watch Vika work':
 	cla
 	*clr
 	picrand = 2
@@ -26,13 +26,24 @@ act 'Keep on watching':
 	gs 'stat'
 	
 	act 'Leave':gt 'bordelv', 'out'
-	act 'Keep watching':gt 'bordelv', 'sex'
+	
+	gs 'willpower', 'voyeur', 'self', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Keep watching (<<will_cost>> Willpower)':
+			gs 'willpower', 'voyeur', 'self', 'hard'
+			gs 'willpower', 'pay', 'self'
+			gs 'stat'
+			gt 'bordelv', 'sex'
+		end
+	else
+		act 'Keep watching (<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':
 	cla
 	*clr
-	picrand = rand(3, 7)
+	picrand = rand(3,7)
 	dviksex += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bvika<<picrand>>.jpg"></center>'
@@ -44,9 +55,19 @@ if $ARGS[0] = 'sex':
 	minut -= 10
 	gs 'stat'
 	
-	act 'Keep watching':gt 'bordelv', 'sex'
+	gs 'willpower', 'voyeur', 'self'
+	if will_cost <= pcs_willpwr:
+		act 'Keep watching more (<<will_cost>> Willpower)':
+			gs 'willpower', 'voyeur', 'self'
+			gs 'willpower', 'pay', 'self'
+			gs 'stat'
+			gt 'bordelv', 'sex'
+		end
+	else
+		act 'Keep watching more (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 
-	if dviksex >= 3:act 'Leave':gt 'bordelv', 'end'
+	act 'Leave':gt 'bordelv', 'end'
 end
 
 if $ARGS[0] = 'end':
@@ -77,13 +98,37 @@ if $ARGS[0] = 'end':
 					vikaend = 1
 					gt 'street'
 				end
-
-				act 'Comfort her':
+				
+				gs 'willpower', 'misc', 'self'
+				if will_cost <= pcs_willpwr:
+					act 'Comfort her (<<will_cost>> Willpower)':
+						cla
+						npc_rel['A220'] += 5
+						gs 'willpower', 'misc', 'self'
+						gs 'willpower', 'pay', 'self'
+						gs 'stat'
+						'You begin to comfort her by saying that you did not want to hurt her and what you uttered was because it came as a shock. Vika nears you and you hug her, soon after she stops crying and says that she should get back to work, and walks you to the exit.'
+						act 'Leave':gt 'street'
+					end
+				else
+					act 'Comfort her (<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', 'misc', 'self', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Comfort her (<<will_cost>> Willpower)':
 					cla
 					npc_rel['A220'] += 5
-					'You begin to comfort her by saying that you did not want to hurt her and what you uttered was because it came as a shock. Vika nears you and you hug her, soon after she stops crying and says that she should get back to work, and walks you to the exit.'
+					gs 'willpower', 'misc', 'self', 'hard'
+					gs 'willpower', 'pay', 'self'
+					gs 'stat'
+					'"Why are you so upset? So you work in a brothel, I couldn''t keep my hands off me. It was so hot." you say quietly.'
+					'Vika breaths out, relieved, "I was worried that you would not understand. I have to go back to work now, you should leave." Vika says as she leads you to the exit.'
+
 					act 'Leave':gt 'street'
 				end
+			else
+				act 'Comfort her (<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 'Comfort her':
@@ -94,15 +139,23 @@ if $ARGS[0] = 'end':
 
 				act 'Leave':gt 'street'
 			end
+			
+			gs 'willpower', 'misc', 'self', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Ask about a job at the brothel (<<will_cost>> Willpower)':
+					cla
+					npc_rel['A220'] += 5
+					bordel = 1
+					gs 'willpower', 'misc', 'self', 'hard'
+					gs 'willpower', 'pay', 'self'
+					gs 'stat'
+					'"That was so hot! Can you talk to your boss, I want to work here?" you ask.'
+					'Vika lets out a relieving sigh, "And here I was worried that you would not understand. I''ll ask the boss, but I can not guarantee they''ll take you on. I have to go back to work, you should leave." Vika says and leads you to the exit.'
 
-			act 'Ask about a job at the brothel':
-				cla
-				npc_rel['A220'] += 5
-				bordel = 1
-				'"That was so hot! Can you talk to your boss, I want to work here?" you ask.'
-				'Vika lets out a relieving sigh, "And here I was worried that you would not understand. I''ll ask the boss, but I can not guarantee they''ll take you on. I have to go back to work, you should leave." Vika says and leads you to the exit.'
-
-				act 'Leave':gt 'street'
+					act 'Leave':gt 'street'
+				end
+			else
+				act 'Ask about a job at the brothel (<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
@@ -129,16 +182,21 @@ if $ARGS[0] = 'out':
 	
 		gt 'street'
 	end
-
-	act 'Comfort her':
-		cla
-		npc_rel['A220'] += 15
-		'Seeing her upset, you begin to comfort her by saying that you did not want to hurt her and that you''re sorry. Vika walks up to you and you hug each other. Shortly thereafter she stops crying and says that she should get back to work, as she walks you to the exit.'
-
-		gs 'arousal', 'end'
-		gs 'stat'
 	
-		act 'Leave':gt 'street'
+	gs 'willpower', 'misc', 'self', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Comfort her (<<will_cost>> Willpower)':
+			cla
+			npc_rel['A220'] += 15
+			gs 'willpower', 'misc', 'self', 'hard'
+			gs 'willpower', 'pay', 'self'
+			gs 'arousal', 'end'
+			gs 'stat'
+			'Seeing her upset, you begin to comfort her by saying that you did not want to hurt her and that you''re sorry. Vika walks up to you and you hug each other. Shortly thereafter she stops crying and says that she should get back to work, as she walks you to the exit.'
+			act 'Leave':gt 'street'
+		end
+	else
+		act 'Comfort her (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
 end
 

locations/bouling.qsrc

@@ -20,8 +20,8 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 			menu_off = 1
 			minut += 60
 			boulvar = 0
-			boulingnav += rand(0, 3)
-			boulrand = rand(0, 9)
+			boulingnav += rand(0,3)
+			boulrand = rand(0,9)
 			gs 'npcgeneratec', 0, 'Bowling Player', rand(18,40)
 			$boy[0] = $npclastgenerated
 			$boydesc[0] = $npc_usedname[$npclastgenerated]
@@ -34,10 +34,32 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 				
 			if boulrand = 0:
 				'You see two guys and they challenge you to a game.'
-				act 'Gamble (2000 <b>₽</b>)':boulvar = 1 & gt 'bouling', 'randwin'	
+				act 'Gamble (2000 <b>₽</b>)':boulvar = 1 & gt 'bouling', 'randwin'
+				gs 'willpower', 'sex', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Refuse and play a normal game (<<will_cost>> Willpower)':
+						gs 'willpower', 'sex', 'resist', 'hard'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						gt 'bouling', 'randwin'
+					end
+				else
+					act 'Refuse and play a normal game (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
 			elseif boulrand = 1:
 				'You meet two girls and they suggest challenging two guys to a game: Prize 5000 <b>₽</b>, lose and they have sex with you.'
 				act 'Play':boulvar = 2 & gt 'bouling', 'randwin'
+				gs 'willpower', 'sex', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Refuse and play a normal game (<<will_cost>> Willpower)':
+						gs 'willpower', 'sex', 'resist', 'hard'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						gt 'bouling', 'randwin'
+					end
+				else
+					act 'Refuse and play a normal game (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
 			elseif boulrand > 1:
 				gt 'bouling', 'randwin' 
 			end
@@ -83,8 +105,18 @@ if $ARGS[0] = 'randwin':
 
 		if money >= 2000:
 			'You lose and have to pay 2,000 <b>₽</b>.'
-
-			act 'Offer sex instead':xgt 'sexdvoe', 'var'
+			
+			gs 'willpower', 'sex', 'self', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Offer sex instead (<<will_cost>> Willpower)':
+					gs 'willpower', 'sex', 'self', 'hard'
+					gs 'willpower', 'pay', 'self'
+					gs 'stat'
+					xgt 'sexdvoe', 'var'
+				end
+			else
+				act 'Offer sex instead (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
 			act 'Pay': money -= 2000 & gt 'bouling'
 		else
 			'You lost, but you do not have money to pay, only one thing for it.'

locations/mitka.qsrc

@@ -216,7 +216,7 @@ if $ARGS[0] = 'sex_chat':
 		end
 		gs 'willpower', 'bj', 'resist'
 		if will_cost <= pcs_willpwr:
-			act 'No thanks (<<will_cost>> Willpower</font>)':
+			act 'No thanks (<<will_cost>> Willpower)':
 				cla
 				npc_rel['A63'] -= 1
 				gs 'willpower', 'bj', 'resist'