[added] another batch of seeded willpower

locations/Katlake.qsrc

@@ -8,11 +8,19 @@ gs 'stat'
 
 act 'Ignore her':gt 'Nudelake'
 
-act 'Approach her':
-	cla
-	'You decide to walk up to the girl, and try to start a conversation with her.'
-
-	act 'Greet':gt 'Katlake', 'znakomstvo'
+	gs 'willpower', 'misc', 'self', 'easy'
+	if will_cost <= pcs_willpwr:
+		act 'Approach her (<<will_cost>> Willpower)':
+			cla
+			gs 'willpower', 'pay', 'self'
+			gs 'stat'
+			'You decide to walk up to the girl, and try to start a conversation with her.'
+
+			act 'Greet':gt 'Katlake', 'znakomstvo'
+		end
+	else
+		act 'Approach 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
 
 if $ARGS[0] = 'znakomstvo':

locations/kamera.qsrc

@@ -75,55 +75,61 @@ act 'Greet her':
 					act 'Leave the police station':gt 'nord'
 				end
 
-				act 'Refuse to talk':
-					cla
-					*clr
-					'<center><img <<$set_imgh>> src="images/locations/city/industrial/police/sex/c7.jpg"></center>'
-					'"I don''t know what you''re talking about, officer..." you repeat the phrase you''ve been saying the whole time to her in a sultry voice, pretending you''re enjoying her treatment. To be honest, it''s actually starting to feel good.'
-					'To taunt her even more, you move one finger to your anus and gently begin to massage it.'
-					'The girl is speechless for a moment, and then begins to thrust her baton inside you even faster. You''re really beginning to enjoy this, moaning loudly and thrusting your hips against the baton, begging her to fuck you hard.'
-					'"Thank you officer, thank you..." you moan, when you feel your orgasm overtake you. You black out for a second, completely oblivious to your surroundings.'
-					'When you regain your focus, the girl stands a bit awkwardly next to you. This wasn''t supposed to happen! Her orders were to squeeze a confession out of you, not to give you a good fucking with her baton!'
-					'You can tell that she has an obvious damp spot in her panties; bringing you to an unintended orgasm aroused her a great deal! She has a somewhat frustrated look in her eyes when she looks at you, knowing she failed. She has a firm grip on her nightstick.'
-
-					$orgasm_or = 'yes'
-					gs 'arousal', 'vaginal_dildo', 90, 'sub', 'lesbian', 'rough'
-					gs 'stat'
-					
-					act 'Rudely tell her to get lost':
-						over = 7
-						gt 'gameover'
-						exit
-					end
-
-					act 'Kiss her pussy through her panties':
-						cla
-						*clr
-						mentovka = 1
-						'<center><img <<$set_imgh>> src="images/locations/city/industrial/police/sex/c8.jpg"></center>'
-						'Figuring you''re probably better off keeping her on your side, you wordlessly squirm towards her and move your head between her legs, with her standing over you. You begin to kiss her pussy softly through her panties, coaxing a groan out of her.'
-						'She immediately understands what you want to do, and quickly takes off her clothes. She doesn''t even have to encourage you when she squats above your head again, since you eagerly bury your face between her legs and explore every inch of her pussy. She''s softly stroking your hair while you lick her eager cunt, completely forgetting about her role.'
-						'A few minutes later, she groans loudly and her body begins to shiver. She''s orgasming! You do your best to keep her steady and lick her until it''s over, and then slowly help her down to your bunk where you cuddle for a minute.'
-						'There, she looks at you awkwardly and quickly puts her clothes back on, getting ready to leave your cell. In the doorway she softly mutters: "You really didn''t do it, huh? I... I''ll have the paperwork done. You''ll be released soon."'
-						
-						gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
+				gs 'willpower', 'sex', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Refuse to talk (<<will_cost>> Willpower)':
+						cla & *clr
+						gs 'willpower', 'pay', 'resist'
 						gs 'stat'
-		
-						act 'Wait to see if she keeps her word':
+						'<center><img <<$set_imgh>> src="images/locations/city/industrial/police/sex/c7.jpg"></center>'
+						'"I don''t know what you''re talking about, officer..." you repeat the phrase you''ve been saying the whole time to her in a sultry voice, pretending you''re enjoying her treatment. To be honest, it''s actually starting to feel good.'
+						'To taunt her even more, you move one finger to your anus and gently begin to massage it.'
+						'The girl is speechless for a moment, and then begins to thrust her baton inside you even faster. You''re really beginning to enjoy this, moaning loudly and thrusting your hips against the baton, begging her to fuck you hard.'
+						'"Thank you officer, thank you..." you moan, when you feel your orgasm overtake you. You black out for a second, completely oblivious to your surroundings.'
+						'When you regain your focus, the girl stands a bit awkwardly next to you. This wasn''t supposed to happen! Her orders were to squeeze a confession out of you, not to give you a good fucking with her baton!'
+						'You can tell that she has an obvious damp spot in her panties; bringing you to an unintended orgasm aroused her a great deal! She has a somewhat frustrated look in her eyes when she looks at you, knowing she failed. She has a firm grip on her nightstick.'
+
+						$orgasm_or = 'yes'
+						gs 'arousal', 'vaginal_dildo', 90, 'sub', 'lesbian', 'rough'
+						gs 'stat'
+						
+						act 'Rudely tell her to get lost':
+							over = 7
+							gt 'gameover'
+							exit
+						end
+
+						act 'Kiss her pussy through her panties':
 							cla
 							*clr
-							gnewQW = 3
-							'<center><img <<$set_imgh>> src="images/locations/city/industrial/police/c1.jpg"></center>'
-							'You get dressed again and wait for her to come back. About half an hour later, the door swings open and sure enough, there she is! She''s holding your belongings, and lets you change into your own clothes before escorting you to the exit. When you''re at the doorstep she whispers: "You were great, I really needed that. Thanks!" and slams the door shut before you can respond.'
-							'You''re free!'
-
-							gs 'arousal', 'end'
-							gs 'stat'
+							mentovka = 1
+							'<center><img <<$set_imgh>> src="images/locations/city/industrial/police/sex/c8.jpg"></center>'
+							'Figuring you''re probably better off keeping her on your side, you wordlessly squirm towards her and move your head between her legs, with her standing over you. You begin to kiss her pussy softly through her panties, coaxing a groan out of her.'
+							'She immediately understands what you want to do, and quickly takes off her clothes. She doesn''t even have to encourage you when she squats above your head again, since you eagerly bury your face between her legs and explore every inch of her pussy. She''s softly stroking your hair while you lick her eager cunt, completely forgetting about her role.'
+							'A few minutes later, she groans loudly and her body begins to shiver. She''s orgasming! You do your best to keep her steady and lick her until it''s over, and then slowly help her down to your bunk where you cuddle for a minute.'
+							'There, she looks at you awkwardly and quickly puts her clothes back on, getting ready to leave your cell. In the doorway she softly mutters: "You really didn''t do it, huh? I... I''ll have the paperwork done. You''ll be released soon."'
 							
-							act 'Freedom!':gt 'nord'
+							gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
+							gs 'stat'
+			
+							act 'Wait to see if she keeps her word':
+								cla
+								*clr
+								gnewQW = 3
+								'<center><img <<$set_imgh>> src="images/locations/city/industrial/police/c1.jpg"></center>'
+								'You get dressed again and wait for her to come back. About half an hour later, the door swings open and sure enough, there she is! She''s holding your belongings, and lets you change into your own clothes before escorting you to the exit. When you''re at the doorstep she whispers: "You were great, I really needed that. Thanks!" and slams the door shut before you can respond.'
+								'You''re free!'
+
+								gs 'arousal', 'end'
+								gs 'stat'
+								
+								act 'Freedom!':gt 'nord'
+							end
 						end
 					end
-				end
+				else
+					act 'Refuse to talk (<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/kavkazkafe.qsrc

@@ -32,23 +32,38 @@ if $ARGS[0] = 'podgivi':
 			'You go into the back room with Givi and begin to count wine bottles aloud to him, as he writes figures in his notebook.'
 			'Suddenly the door to the back room opens and in walks Ashot. You look at Givi, puzzled.'
 			'Givi smiles. "<<$pcs_nickname>>, my nephew Ashot has still not become a real man, I hope you can help him, I know of no one better."'
+			
+			gs 'willpower', 'misc', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Refuse (<<will_cost>> Willpower)':
+					cla
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					'You rebel, "What do you take me for?"'
+					'Givi laughes. "You are a feisty girl, yes? I know you want to ride two big digits, we will not tell anyone, do not be afraid."'
+					'Ashot comes up to you and holds his arms out to hug you.'
 
-			act 'Refuse':
-				cla
-				'You rebel, "What do you take me for?"'
-				'Givi laughes. "You are a feisty girl, yes? I know you want to ride two big digits, we will not tell anyone, do not be afraid."'
-				'Ashot comes up to you and holds his arms out to hug you.'
-
-				act 'Embrace him':gt 'kavkazkafe', 'grup'
+					act 'Embrace him':gt 'kavkazkafe', 'grup'
 
-				act 'Refuse':
-					cla
-					'You blurt out, "This is too much for me, I''m going home!" and turn to leave.'
-					'Givi trots after you, "<<$pcs_nickname>> wait, I thought you''d like, I didn''t mean to offend you."'
+					gs 'willpower', 'misc', 'resist', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Refuse (<<will_cost>> Willpower)':
+							cla
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							'You blurt out, "This is too much for me, I''m going home!" and turn to leave.'
+							'Givi trots after you, "<<$pcs_nickname>> wait, I thought you''d like, I didn''t mean to offend you."'
 
-					act 'Leave':gt 'street'
+							act 'Leave':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
-			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 'Do it':gt 'kavkazkafe', 'grup'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/podsob.jpg"></center>'
@@ -63,24 +78,39 @@ if $ARGS[0] = 'podgivi':
 					'"<<$pcs_nickname>>. I want you. Come to me sweetie."'
 					'Givis strong hands turn you around. You are now face to face with Givi.'
 					act 'Kneel':gt 'kavkazkafe', 'givibj'
-					act 'Protest':
-						cla
-						'You rebel, "What do you take me for?"'
-						'Givi smiles knowingly. "You''re a whore, don''t think I know how much that booty is worth?"'
-
-						act 'Kneel':
-							money += 5000
-							gt 'kavkazkafe', 'givibj'
-						end
-
-						act 'Refuse':
+					
+					gs 'willpower', 'misc', 'resist', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Protest (<<will_cost>> Willpower)':
 							cla
-							'You blurt out, "That''s not what I meant, I''m going home!" and turn to leave.'
-							'Givi grabs you by the arm and drags you to a chair in the back.'
-
-							act 'Trying to get away':gt 'kavkazkafe', 'givirape'
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							'You rebel, "What do you take me for?"'
+							'Givi smiles knowingly. "You''re a whore, don''t think I know how much that booty is worth?"'
+
+							act 'Kneel':
+								money += 5000
+								gt 'kavkazkafe', 'givibj'
+							end
+
+							gs 'willpower', 'misc', 'resist', 'hard'
+							if will_cost <= pcs_willpwr:
+								act 'Refuse (<<will_cost>> Willpower)':
+									cla
+									gs 'willpower', 'pay', 'resist'
+									gs 'stat'
+									'You blurt out, "That''s not what I meant, I''m going home!" and turn to leave.'
+									'Givi grabs you by the arm and drags you to a chair in the back.'
+
+									act 'Trying to get away':gt 'kavkazkafe', 'givirape'
+								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
-					end
+					else
+						act 'Protest (<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 'Remove his hands':
@@ -91,24 +121,38 @@ if $ARGS[0] = 'podgivi':
 
 					act 'Kneel':gt 'kavkazkafe', 'givibj'
 
-					act 'Reject him':
-						cla
-						'You rebel "What do you take me for?"'
-						'Givi gives you his best puppy dog eyes and clasps his hands like he is begging. "Come my bold goddess. Hey, You want money? I''ll give you five thousand? And a bonus."'
-
-						act 'Kneel':
-							money += 5000
-							gt 'kavkazkafe', 'givibj'
-						end
-
-						act 'Refuse':
+					gs 'willpower', 'misc', 'resist', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Reject him (<<will_cost>> Willpower)':
 							cla
-							'You blurt out, "What would a goddess do with money? You silly man. I''m going home!" and turn to leave.'
-							'Givi trots after you, "<<$pcs_nickname>> wait, I''m sorry, please forgive me."'
-
-							act 'Leave':gt 'street'
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							'You rebel "What do you take me for?"'
+							'Givi gives you his best puppy dog eyes and clasps his hands like he is begging. "Come my bold goddess. Hey, You want money? I''ll give you five thousand? And a bonus."'
+
+							act 'Kneel':
+								money += 5000
+								gt 'kavkazkafe', 'givibj'
+							end
+
+							gs 'willpower', 'misc', 'resist', 'hard'
+							if will_cost <= pcs_willpwr:
+								act 'Refuse (<<will_cost>> Willpower)':
+									cla
+									gs 'willpower', 'pay', 'resist'
+									gs 'stat'
+									'You blurt out, "What would a goddess do with money? You silly man. I''m going home!" and turn to leave.'
+									'Givi trots after you, "<<$pcs_nickname>> wait, I''m sorry, please forgive me."'
+
+									act 'Leave':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
-					end
+					else
+						act 'Reject 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
 			else
 				'Givi slaps your ass with relish.'

locations/kazinosvid.qsrc

@@ -136,13 +136,20 @@ if $ARGS[0] = '1':
 						money -= randkazinvsum
 						gt 'kazinosvid', '3'
 					end
-
-					act 'Use an alternative form of payment':
-						kazsexdva = 1
-						guy += 2
-						gang += 1
-						xgt 'sexdvanadva', 'var'
-					end
+					
+					gs 'willpower', 'misc', 'self', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Use an alternative form of payment (<<will_cost>> Willpower)':
+							kazsexdva = 1
+							guy += 2
+							gang += 1
+							gs 'willpower', 'pay', 'self'
+							gs 'stat'
+							xgt 'sexdvanadva', 'var'
+						end
+					else
+						act 'Use an alternative form of payment (<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
@@ -165,8 +172,16 @@ if $ARGS[0] = '2':
 		'A few minutes later the man says: "Let''s up the stakes. I''m willing to gamble with my clothing if you ladies are."'
 		'<<$telsob>> giggled, "You may end up naked and ashamed, <<$pcs_nickname>> and I haven''t lost a hand yet."'
 		'"I have nothing to be ashamed of," the man grins.'
-
-		act 'Take <<$telsob>> and leave':gt 'kazinosvid', '3'
+		
+		gs 'willpower', 'misc', 'self', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Take <<$telsob>> and leave (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'self'
+			gs 'stat'
+			gt 'kazinosvid', '3'
+		else
+			act 'Take <<$telsob>> and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end	
 
 		act 'Play strip poker':
 			*clr & cla