Willpower seeded for hunter_favors

locations/hunter_favors.qsrc

@@ -58,21 +58,28 @@ if $ARGS[0] = 'housekeeping_request':
 			end
 		end
 
-		act '"I''ll help later, busy right now"':
-			*clr & cla
-			minut += 5
-			hunter_collective_opinion -= 3
+		gs 'willpower', 'misc', 'resist', 'easy'
+		if will_cost <= pcs_willpwr:
+			act '"I''ll help later, busy right now" (<<will_cost>> Willpower)':
+				*clr & cla
+				minut += 5
+				hunter_collective_opinion -= 3
+
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
 
-			!TODO: Find new image
-			gt 'swamp_yard'
+				!TODO: Find new image
+				gt 'swamp_yard'
+			end
+		else
+			act '"I''ll help later, busy right now" (<font color="red"><<will_cost>> Willpower)':'<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 
-		!TODO: Make this act mood dependent
 		act '"What?! Do I look like a servant to you?':
 			'<center><img <<$set_imgh>> src="images/pc/speak_to_the_hand.jpg"></center>'
 			'You walk away from <<$boydesc>>'
 			hunter_collective_opinion -= 10
-			gt 'swamp_yard'
+			act 'Continue': gt 'swamp_yard'
 		end
 	end
 end
@@ -130,9 +137,9 @@ if $ARGS[0] = 'meat_stew':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hotsoup.jpg"></center>'
 	*nl
 
-	'You cooked a stew with the meat hunters brough and brought it inside the hut. There''s enough for <<mushroom_soup>> servings'
+	'You cooked a stew with the meat hunters brought. There''s enough for <<mushroom_soup>> servings'
 
-	act 'Continue': gt 'swamphouse', 'start'
+	act 'Continue': gt 'swamp_yard', 'fireside'
 end
 
 if $ARGS[0] = 'mushroom_soup':
@@ -149,213 +156,10 @@ if $ARGS[0] = 'mushroom_soup':
 
 	'You made a simple mushroom soup by the camppfire and carried it inside the hut. There''s enough for <<mushroom_soup>> servings'
 
-	act 'Continue': gt 'swamphouse', 'start'
+	act 'Continue': gt 'swamp_yard', 'start'
 end
 
 !Sexual favors
-if $ARGS[0] = 'hunterstableBJ':
-	cla
-	*clr
-	minut += 1
-	hunterstableBJ = 1
-	pcs_dom -= 1
-	menu_off = 1
-	gs 'stat'
-
-	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterstable2.jpg"></center>'
-	*nl
-	'You see one of the hunters sitting at the table. Thinking you both could have some fun, you look at him smiling slyly. Not before long you''re crawling under the table...'
-
-	if hunterstableBJA = 0:
-		act 'Give Andrei a blowjob':
-			*clr & cla
-			gs 'boyStat', 'A172'
-			hunterstableBJA = 1
-			if hunterandreisex = 0:hunterandreisex = 1 & guy += 1
-			temp_sh = rand(1,2)
-			gs 'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/hanterstablebj1.'+rand(1,5)+'.jpg"></center>'
-			*nl
-			'You got comfortable under the table and brought your head between his thighs and started sucking on his cock....'
-			'Andrei''s cock got rock hard fast and soon enough you could feel a taste of pre-cum in your mouth...'
-
-			gs 'arousal', 'bj', 5, 'sub'
-			gs 'stat'
-
-			if temp_sh = 1:
-				act 'Keep sucking':
-					*clr & cla
-					minut += 1
-					gs 'cum_call', 'face', $boy, 1
-					if $clothingworntype = 'nude': gs 'cum_call', 'stomach', $boy, 1
-					if $clothingworntype ! 'nude': gs 'cum_call', 'clothesgroin', $boy, 1
-					gs 'stat'
-
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/hanterstablecum1.'+rand(1,5)+'.jpg"></center>'
-					*nl
-					'Andrei didn''t last more for a minute or two, his thighs tensed up and his load started shooting out and hitting your face several times.'
-					'When he was all done you cleaned Andrei the best you could, and then you put his cock back in his pants and zipped him up.'
-
-					gs 'arousal', 'end'
-					gs 'stat'
-
-					act 'Continue': gs 'swamphouse', 'hunterstableBJ'
-				end
-			else
-				act 'Keep sucking':
-					*clr & cla
-					minut += 1
-					gs 'cum_call', 'mouth', $boy, 1
-					swallow += 1
-					hunterstableBJA = 1
-					gs 'stat'
-
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/hanterstablebj1.'+rand(1,5)+'.jpg"></center>'
-					*nl
-					'You could feel Andrei''s cock tensing up, ready to explode. You hear a grunt and before you can react Andrei unloads his warm spunk in your mouth...'
-					gs 'arousal', 'end'
-					gs 'stat'
-
-					act 'Continue': gs 'swamphouse', 'hunterstableBJ'
-				end
-			end
-		end
-	end
-	if hunterstableBJS = 0:
-		act 'Give Sergei a blowjob':
-			*clr & cla
-			gs 'boyStat', 'A174'
-			hunterstableBJS = 1
-			if huntersergeisex = 0:huntersergeisex = 1 & guy += 1
-			temp_sh = rand(1,2)
-			gs 'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/hanterstablebj1.'+rand(1,5)+'.jpg"></center>'
-			*nl
-			'You got comfortable under the table and brought your head between his thighs and started sucking on his cock....'
-			'Sergei''s cock got rock hard fast and soon enough you could feel a taste of pre-cum in your mouth...'
-
-			gs 'arousal', 'bj', 5, 'sub'
-			gs 'stat'
-
-			if temp_sh = 1:
-				act 'Keep sucking':
-					*clr & cla
-					minut += 1
-					gs 'cum_call', 'face', $boy, 1
-					if $clothingworntype = 'nude': gs 'cum_call', 'stomach', $boy, 1
-					if $clothingworntype ! 'nude': gs 'cum_call', 'clothesgroin', $boy, 1
-					gs 'stat'
-
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/hanterstablecum1.'+rand(1,5)+'.jpg"></center>'
-					*nl
-					'Sergei didn''t last more for a minute or two, his thighs tensed up and his load started shooting out and hitting your face several times.'
-					'When he was all done you cleaned Andrei the best you could, and then you put his cock back in his pants and zipped him up.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Continue': gs 'swamphouse', 'hunterstableBJ'
-				end
-			else
-				act 'Keep sucking':
-					*clr & cla
-					minut += 1
-					gs 'cum_call', 'mouth', $boy, 1
-					swallow += 1
-					hunterstableBJS = 1
-					gs 'stat'
-
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/hanterstablebj1.'+rand(1,5)+'.jpg"></center>'
-					*nl
-					'You could feel Sergei''s cock tensing up, ready to explode. You hear a grunt and before you can react Andrei unloads his warm spunk in your mouth...'
-					gs 'arousal', 'end'
-					gs 'stat'
-
-					act 'Continue': gs 'swamphouse', 'hunterstableBJ'
-				end
-			end
-		end
-	end
-	if hunterstableBJI = 0:
-		act 'Give Igor a blowjob':
-			*clr & cla
-			gs 'boyStat', 'A173'
-			hunterstableBJI = 1
-			if hunterigorsex = 0:hunterigorsex = 1 & guy += 1
-			temp_sh = rand(1,5)
-			gs 'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/hanterstablebj1.'+rand(1,5)+'.jpg"></center>'
-			*nl
-			'You got comfortable under the table and brought your head between his thighs and started sucking on his cock....'
-			'Igor''s cock got rock hard fast and soon enough you could feel a taste of pre-cum in your mouth...'
-
-			gs 'arousal', 'bj', 5, 'sub'
-			gs 'stat'
-
-			if temp_sh = 1:
-				act 'Keep sucking':
-					*clr & cla
-					minut += 1
-					gs 'cum_call', 'face', $boy, 1
-					if $clothingworntype = 'nude': gs 'cum_call', 'stomach', $boy, 1
-					if $clothingworntype ! 'nude': gs 'cum_call', 'clothesgroin', $boy, 1
-					gs 'stat'
-
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/hanterstablecum1.'+rand(1,5)+'.jpg"></center>'
-					*nl
-					'Igor didn''t last more for a minute or two, his thighs tensed up and his load started shooting out and hitting your face several times.'
-					'When he was all done you cleaned Andrei the best you could, and then you put his cock back in his pants and zipped him up.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Continue': gs 'swamphouse', 'hunterstableBJ'
-				end
-			else
-				act 'Keep sucking':
-					*clr & cla
-					minut += 1
-					gs 'cum_call', 'mouth', $boy, 1
-					swallow += 1
-					hunterstableBJI = 1
-					gs 'stat'
-
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/hanterstablebj1.'+rand(1,5)+'.jpg"></center>'
-					*nl
-					'You could feel Igor''s cock tensing up, ready to explode. You hear a grunt and before you can react Andrei unloads his warm spunk in your mouth...'
-					gs 'arousal', 'end'
-					gs 'stat'
-
-					act 'Continue': gs 'swamphouse', 'hunterstableBJ'
-				end
-			end
-		end
-	end
-	if hunterstableBJA = 1 and hunterstableBJS = 1 and hunterstableBJI = 1:act 'Get out from under the table':mushroom_soup = 1 & gs 'swamphouse', 'hunterstable'
-end
-
-if $ARGS[0] = 'table_blow_request':
-	*clr & cla
-	minut += 1
-	gs 'stat'
-
-	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterstable.jpg"></center>'
-	*nl
-	'You sit down at the table, wanting to eat with the guys, before you can begin you hear...'
-	'"Not so fast <<$pcs_nickname>>, Andrei said with a smile on his face. "You understand that the only free cheese is the one found in the mousetrap."'
-	'"Want to eat with us, you need to do some work," he mockingly grinned and pointed under the table.'
-
-	act 'Crawl under the table':
-		pcs_dom -= 1
-		gs 'hunter_favors', 'hunterstableBJ'
-	end
-
-	act 'Refuse':
-		hunter_collective_opinion -= 3
-		hunter_sexual_comfort -= 3
-		gt 'swamphouse', 'start'
-	end
-end
-
 if $ARGS[0] = 'creekside_gangbang_request':
 	*clr & cla
 	minut += 5
@@ -364,6 +168,7 @@ if $ARGS[0] = 'creekside_gangbang_request':
 	'You''re sitting down in the meadow near the road, relaxing, enjoying the nice weather, when all of a sudden Andrei, Sergei and Igor approach you. They quickly surround you not letting move away.'
 	'"Hey, <<$pcs_nickname>>, we''ve been talking with each other, and we feel that you need to repay us somehow for the lessons. So what do you say?"'
 
+	!TODO: WP check to agree?
 	act 'Agree':
 		*clr & cla
 
@@ -395,7 +200,25 @@ if $ARGS[0] = 'creekside_gangbang_request':
 			act 'Further': gt 'hunter_interactions', 'creekside_gangbang'
 		end
 	end
-	act 'Refuse':
+
+	gs 'willpower', 'gangbang', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		!TODO: Add scene for succeeding willpower check
+		act 'Refuse (<<will_cost>> Willpower)':
+			*clr & cla
+			minut += 5
+
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+
+			hunter_collective_opinion += 5
+			hunter_sexual_comfort -= 10
+
+			gs 'stat'
+			gt 'backwater'
+		end
+	else
+		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)':
 		*clr & cla
 		minut += 5
 
@@ -409,9 +232,11 @@ if $ARGS[0] = 'creekside_gangbang_request':
 		'"<<$pcs_nickname>>, don''t fuck around with us. Deep inside you know you need to repay us." said Andrei, grabbing you by the hair.'
 
 		gs 'hunter_interactions', 'creekside_rape'
-	end
+		end
+	end	
 end
 
+!TODO: WP needed for bondage?
 if $ARGS[0] = 'yard_bondage':
 	if $ARGS[1] = '':
 		yard_bound_temprand = rand(1,9)
@@ -554,7 +379,7 @@ if $ARGS[0] = 'yard_bondage':
 		'He rubs the tip of his dick against your already wet pussy lips a few times before pushing all the way in. You cannot help but gasp as <<$boydesc>>''s cock fills your pussy'
 		'After letting you settle in to the sensation for a second he slowly starts pumping your pussy. In a minute you are screaming and moaning as he picks his pace up.'
 
-		gs 'dinsex', 'vaginal_sex', 10, 'sub', 'bound'
+		gs 'dinsex', 'vaginal_sex', 10, 'bound'
 
 		act 'Start pumping your hips to match him':
 			cla & *clr
@@ -615,7 +440,7 @@ if $ARGS[0] = 'yard_bondage':
 		gs 'pain', 6, 'pinch', 'nipples'
 		gs 'pain', 3, 'pinch', 'breasts'
 
-		gs 'arousal', 'breasts', 5, 'rough', 'masochism', 'sub'
+		gs 'arousal', 'breasts', 5, 'rough', 'masochism'
 		gs 'arousal', 'end'
 		gs 'stat'
 
@@ -628,7 +453,7 @@ if $ARGS[0] = 'yard_bondage':
 		act 'Further':
 			cla & *clr
 			gs 'pain', 3, 'spank', 'nipples'
-			gs 'arousal', 'breasts', 5, 'rough', 'masochism', 'sub'
+			gs 'arousal', 'breasts', 5, 'rough', 'masochism'
 			gs 'arousal', 'end'
 
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bondage_clamps2.jpg"></center>'
@@ -638,7 +463,7 @@ if $ARGS[0] = 'yard_bondage':
 			act 'Further':
 				cla & *clr
 				gs 'pain', 10, 'pinch', 'nipples'
-				gs 'arousal', 'breasts', 10, 'rough', 'masochism', 'sub'
+				gs 'arousal', 'breasts', 10, 'rough', 'masochism'
 				minut -= 5
 				gs 'arousal', 'end'
 
@@ -650,15 +475,24 @@ if $ARGS[0] = 'yard_bondage':
 				'"Please, I can''t take it anymore!" you plead.'
 				'"''Please'' what, little princess?" Andrei asks'
 
-				act 'Seriousy, please let me go!':
-					cla & *clr
-					hunter_collective_opinion += 10
-					hunter_sexual_comfort -= 15
+				gs 'willpower', 'sex', 'resist'
+				if will_cost <= pcs_willpwr: 
+					act 'Seriousy, please let me go! (<<will_cost>> Willpower</font>)':
+						cla & *clr
+						
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						
+						hunter_collective_opinion += 10
+						hunter_sexual_comfort -= 15
 
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/released_from_bondage.jpg"></center>'
-					'"Well, alright, you are no fun" says Andrei before releasing you from your bonds.'
-					'You rub your sore breasts for a few seconds before shooing away Andrei staring at you giving him a last show.'
-					act 'Further': gt 'swamp_yard'
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/released_from_bondage.jpg"></center>'
+						'"Well, alright, you are no fun" says Andrei before releasing you from your bonds.'
+						'You rub your sore breasts for a few seconds before shooing away Andrei staring at you giving him a last show.'
+						act 'Further': gt 'swamp_yard'
+					end
+				else
+					act 'Seriousy, please let me go! (<font color="red"><<will_cost>> Willpower</font>)':'<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
 				act 'Please fuck me!':
 					cla & *clr
@@ -688,6 +522,7 @@ if $ARGS[0] = 'yard_bondage':
 		end
 	end
 
+
 	if $ARGS[1] = 'unbound_fuck':
 		cla & *clr
 		hunter_sexual_comfort += 15
@@ -695,8 +530,8 @@ if $ARGS[0] = 'yard_bondage':
 
 		gs 'boyStat', 'A173'
 
-		gs 'arousal', 'foreplay', 5, 'sub', 'exhibitionism'
-		gs 'arousal', 'kiss', 5, 'sub', 'exhibitionism'
+		gs 'arousal', 'foreplay', 5, 'exhibitionism'
+		gs 'arousal', 'kiss', 5, 'exhibitionism'
 		gs 'arousal', 'end'
 		gs 'stat'
 
@@ -707,12 +542,12 @@ if $ARGS[0] = 'yard_bondage':
 
 		act 'Further':
 			cla & *clr
-			gs 'arousal', 'vaginal', 5, 'sub', 'exhibitionism'
+			gs 'arousal', 'vaginal', 5, 'exhibitionism'
 
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/unbound_fucked1.jpg"></center>'
 			'Igor settles on the ground and you settle on his crotch, mounting him.'
 			'You start bouncing up and down, gasping from the feeling of his cock pumping inside you'
-			gs 'dinsex', 'vaginal_sex', 10, 'sub', 'exhibitonism'
+			gs 'dinsex', 'vaginal_sex', 10, 'exhibitonism'
 
 			act 'Further':
 				cla & *clr
@@ -720,7 +555,7 @@ if $ARGS[0] = 'yard_bondage':
 				'After some minutes, Igor pushes you on your hands and starts fucking you from behind.'
 				'He really picks up the pace as you start moaning and screaming like a wanton whore, getting fucked like that right out in the open.'
 
-				gs 'dinsex', 'vaginal_sex', 10, 'sub', 'exhibitonism', 'rough', 'humiliation'
+				gs 'dinsex', 'vaginal_sex', 10, 'exhibitonism', 'rough', 'humiliation'
 				spafinloc = 4
 				gs 'cum_manage'
 				spafinloc = 8
@@ -739,17 +574,26 @@ if $ARGS[0] = 'yard_bondage':
 					'"You mean, never wear clothes around and stay naked the whole time?" you ask, surprised'
 					'"Yes, at least while it is only us around." he says. "So what do you say?"'
 
-					act 'Agree':
-						cla
-						*nl
-						hunter_collective_opinion += 20
-						hunter_sexual_comfort += 10
-						forced_naked_day = 999999999999999
-						gs 'stat'
+					gs 'willpower', 'exhib', 'self', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Agree (<<will_cost>> Willpower)':
+							cla
+							*nl
+							hunter_collective_opinion += 20
+							hunter_sexual_comfort += 30
 
-						'"Well," you respond. "At this point we are well past the point of being shy about a bit of nudity. So sure, why not?" you reply.'
-						'"Thanks <<$pcs_nickname>>" he says, before walking away'
-						act 'Further': gt 'swamp_yard'
+							gs 'willpower', 'pay', 'self'
+							gs 'stat'
+
+							forced_naked_day = 999999999999999
+							gs 'stat'
+
+							'"Well," you respond. "At this point we are well past the point of being shy about a bit of nudity. So sure, why not?" you reply.'
+							'"Thanks <<$pcs_nickname>>" he says, before walking away'
+							act 'Further': gt 'swamp_yard'
+						end
+					else
+						act 'Agree (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 					end
 					act 'Refuse':
 						cla

locations/swamp_yard.qsrc

@@ -76,7 +76,6 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 	if hour >= 20 and hour < 24: gs 'swamp_yard', 'nighttime_flavor_events'
 end	
 
-!Code blocks for leaf events (events not calling other  events)
 if $ARGS[0] = 'swamp_escape':
 	!add chance to swamped by illume
 	if hunters = 1: