[added] Additional willpower checks for pav market from Altarielxlt

locations/arturRinok.qsrc

@@ -100,8 +100,19 @@ if $ARGS[0] = 'start':
 		end
 	end
 
-	act 'Leave':gt 'pavtrain_market', 'start'
+	gs 'willpower', 'bj', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Leave (<<will_cost>> Willpower)':
+			gs 'willpower', 'bj', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'pavtrain_market', '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
+
 if $ARGS[0] = 'work_1':
 	*clr & cla
 	menu_off = 1

locations/pavtrain_market.qsrc

@@ -745,13 +745,24 @@ if ARGS[0] = 13:
 		minut += 5
 		gs 'stat'
 		i = rand(40,200)
+		gs 'willpower', 'resist'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/zaglanut.jpg"></center>'
 		'You open the wallet and you see that there''s <<i>> <b>₽</b>'
-		act 'Take the money and throw away the wallet':
-			money += i
-			pcs_mood += 10
-			killvar 'i'
-			gt 'pavtrain_market', 'start'
+
+		if will_cost <= pcs_willpwr:
+			act 'Take the money and throw away the wallet (<<will_cost>> Willpower)':
+				gs 'willpower', 'pay', 'resist'
+				*clr & cla
+				gs 'stat'
+				'You just need the money.':
+				money += i
+				pcs_mood += 10
+				gs stat
+				killvar 'i'
+				gt 'pavtrain_market','start'
+			end
+		else
+			act 'Take the money and throw away the wallet (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 		act 'Catch up with the woman and return her purse':
 			*clr & cla
@@ -818,12 +829,24 @@ if ARGS[0] = 18:
 	'As you walk past a stall you notice a small hole torn in the canvas.'
 	act 'Stop wandering': gt 'pavtrain_market', 'start'
 	act 'Wander around the market': gt 'pavtrain_market','events'
-	act 'Look through the hole':
-		*clr & cla
-		if girl > 1: pcs_horny += 5
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pereodev'+rand(1,15)+'.jpg"></center>'
-		'You look inside the tent and see a half-naked girl trying on clothes.' 
-		act 'Leave': gt 'pavtrain_market', 'start'
+	act 'Look through the hole (<<will_cost>> Willpower)':
+		gs 'stat'
+		gs 'willpower', 'resist'
+		if will_cost <= pcs_willpwr:
+			*clr & cla
+			if girl > 1: pcs_horny += 5
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'Oh...'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/market/pereodev'+rand(1,15)+'.jpg"></center>'
+			'You look inside the tent and see ' + $pavtrain_marketrandtext[rand(3,7)]
+			act 'Leave': gt 'pavtrain_market', 'start'
+		else
+			cla
+			'You cannot bring yourself to look through the whole (Not enough willpower)'
+			act 'Stop wandering': gt 'pavtrain_market', 'start'
+			act 'Wander around the market': gt 'pavtrain_market','events'
+		end
 	end
 end