[fixed] Added willpower seeding

locations/hairsalon.qsrc

@@ -583,7 +583,7 @@ if $ARGS[0] = 'dyehair':
 			cla
 			*clr
 			'"I want to go back to my natural hair colour." you say as you pick at your hair in the mirror, "I don''t think <<$pcs_haircol>> is working for me."' 
-			'"Sure thing!", she says in a chearful way, "Why don''t you take a seat?"'
+			'"Sure thing!", she says in a cheerful way, "Why don''t you take a seat?"'
 			'"We''ll be done in no time!", she says and points your over to sit down on one of the seats.'
 
 			act 'Sit down':

locations/shop.qsrc

@@ -53,46 +53,56 @@ if $shoplocation = 'main':
 				'Your heart is thumping in your chest, your vision narrows, you feel faint.'
 				act 'Pass out':gt 'event', 'scoreslut1'
 			else
-				'You meet the same Dima whos friend fucked and abused you. Dima grins confidently and says, "Hello."'
+				'You meet the same Dima who''s friend fucked and abused you. Dima grins confidently and says, "Hello."'
 
 				act 'Hello':
 					cla
 					'"Come with me, My wife''s away", says Dima.'
-
-					act 'Fuck no':gt 'shop', 'start'
-
+					
+					gs 'willpower', 'sex', 'resist'
+					if will_cost <= pcs_willpwr:
+						act 'Fuck no (<<will_cost>> Willpower)':
+							gs 'willpower', 'pay', 'resist'
+							gt 'shop', 'start'
+						end
+					else
+						act 'Fuck no (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+					
 					act 'I deserve this':
 						*clr & cla
 
 						if rand(1, 2) = 1:
 							cla
-							stat['vaginal'] += 1
 							oral += 1
 							pcs_throat += 1
 							spafinloc = 12
 							gs 'cum_manage'
 							swallow += 1
-							pcs_horny = 0
-							minut += 10
 							'Dima takes you to his house and orders you to lie across the sofa. You get on into position, he calls you a bitch and a starts fucking you in the mouth.'
 							'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/gostdt2.jpg"></center>'
 							'Dima finally finishes in your mouth, you obediently swallow and lick the remnants of sperm off his big cock.'
-
+							
+							gs 'arousal', 'bj', 10, 'sub', 'deepthroat', 'humiliation'
+							gs 'arousal', 'end'
+							gs 'stat'
+							
 							act 'Leave': minut += 3 & gt 'street'
 						else
 							cla
-							stat['vaginal'] += 1
-							stat['anal'] += 1
+							gs 'pain', 6, 'asscheeks', 'slap'
 							spafinloc = 4
 							gs 'cum_manage'
 							spank += 1
 							boom = 5
-							pcs_horny = 0
-							minut += 30
 							'Dima has brings you to his house and right in the corridor begins to kiss and undress you. When you are naked he takes you to the bathroom.'
-							'There he unscrews the showerhead and puts the hose in your ass. Quickly you feel the fullness and Dima sits you on the toilet. After the rough enema, he bends you over and puts his big dick in your ass.'
+							'There he unscrews the shower-head and puts the hose in your ass. Quickly you feel the fullness and Dima sits you on the toilet. After the rough enema, he bends you over and puts his big dick in your ass.'
 							'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/gostanal2.jpg"></center>'
 							'Dima fucks you in the ass whilst slapping your butt, at first it is painful, but gradually you get it and it feels amazing. Finally, your ass fills with hot liquid and Dima moans and grabs your buttocks.'
+							
+							gs 'arousal', 'anal', 30, 'sub', 'rough', 'humiliation'
+							gs 'arousal', 'end'
+							gs 'stat'
 
 							act 'Leave': minut += 3 & gt 'street'
 						end

locations/shoplifting.qsrc

@@ -121,23 +121,29 @@ if $ARGS[0] = 'securityroom':
 		if pcs_money >= 5000: act 'Offer a bribe (5000<b>₽</b>)': gt 'shoplifting', 'bribe'
 		act 'Keep quiet': gt 'shoplifting', 'quiet'
 	end
-
-	act 'Deny':
-		*clr & cla
-		minut += 5
-		gs 'stat'
-		'You defyingly tell him that he''s grabbed the wrong person and that you have no idea what he''s talking about.'
-		'"Listen here, girl. We''ve got you on tape as you''ve shoplifted..." he proudly boasts.'
-		'You know you''ve been caught buy you keep on sticking to you story, "That can be whoever on that tape, how can you prove that''s me?"'
-		'The security guard chuckles, "Don''t worry about that. I''ll go and get the manager and then we''ll see what he decides to do with you..."'
-		'"Wait!" you squeal, "We don''t need to get him involved..."'
-		'The security guard crosses his hands, "So what possibly could you offer me?"'
-
-		act 'Masturbate for him': gt 'shoplifting', 'show'
-		act 'Offer him relief': gt 'shoplifting', 'bj'
-		if pcs_money >= 5000: act 'Offer a bribe (5000<b>₽</b>)': gt 'shoplifting', 'bribe'
-		act 'Keep quiet': gt 'shoplifting', 'quiet'
-	end
+	
+	gs 'willpower', 'misc', 'self', 'medium'
+    if will_cost <= pcs_willpwr:
+		act 'Deny':
+			*clr & cla
+			minut += 5
+			gs 'willpower', 'pay', 'self'
+			gs 'stat'
+			'You defyingly tell him that he''s grabbed the wrong person and that you have no idea what he''s talking about.'
+			'"Listen here, girl. We''ve got you on tape as you''ve shoplifted..." he proudly boasts.'
+			'You know you''ve been caught buy you keep on sticking to you story, "That can be whoever on that tape, how can you prove that''s me?"'
+			'The security guard chuckles, "Don''t worry about that. I''ll go and get the manager and then we''ll see what he decides to do with you..."'
+			'"Wait!" you squeal, "We don''t need to get him involved..."'
+			'The security guard crosses his hands, "So what possibly could you offer me?"'
+
+			act 'Masturbate for him': gt 'shoplifting', 'show'
+			act 'Offer him relief': gt 'shoplifting', 'bj'
+			if pcs_money >= 5000: act 'Offer a bribe (5000<b>₽</b>)': gt 'shoplifting', 'bribe'
+			act 'Keep quiet': gt 'shoplifting', 'quiet'
+		end
+	else
+        act 'Deny (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+    end
 end
 
 	!add a trigger so that you know that you''ve had sex with security guard, sexguard = 1 or something, will be used later in the police file