Added picsets and logic for Igor's creekside scene. Pending text and back end code stuffs

locations/IgorHunter.qsrc

@@ -1,42 +1,104 @@
 # Igorhunter
 
-$menu_loc = 'Igorhunter'
-$menu_arg = ''
-menu_off = 0
-gs 'boyStat', 'A173'
-$boybody = 'high'
-$boybod = 'athletic'
-$boyface = 'brunette'
-lover_picture_number = 31
-finance = 1
-vneshBoy = 8
-$boyClo = 'dressed in jeans and a sweater.'
-figurBoy = 1
-titBoy = 1
-hairBoy = 3
-harakBoy = 1
-izvrat = 0
-boyage = year - ((npc_dob['A173'] - (npc_dob['A173'] mod 10000)) / 10000)
-boy_birth_date = 9
-boy_birth_month = 6
-gs 'stat'
-
-'<center><b><font color = maroon>Igor Anisimov</font></b></center>'
-'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/igorhanter.jpg"></center>'
-'Igor is a hunter along with the Sergei and Andrei and is here visiting Andrei. He''s <<boyage>> years old. He is not married and lives in the City Center..'
-
-act 'Chat':
-    *clr & cla
-    minut += 60
-	menu_off = 1
+if $ARGS[0] = '':
+    $menu_loc = 'Igorhunter'
+    $menu_arg = ''
+    menu_off = 0
+    gs 'boyStat', 'A173'
+    $boybody = 'high'
+    $boybod = 'athletic'
+    $boyface = 'brunette'
+    lover_picture_number = 31
+    finance = 1
+    vneshBoy = 8
+    $boyClo = 'dressed in jeans and a sweater.'
+    figurBoy = 1
+    titBoy = 1
+    hairBoy = 3
+    harakBoy = 1
+    izvrat = 0
+    boyage = year - ((npc_dob['A173'] - (npc_dob['A173'] mod 10000)) / 10000)
+    boy_birth_date = 9
+    boy_birth_month = 6
+    gs 'stat'
     
-    igor_base_opinion += 1
-
-    act 'Continue': gt $loc
+    '<center><b><font color = maroon>Igor Anisimov</font></b></center>'
+    '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/igorhanter.jpg"></center>'
+    'Igor is a hunter along with the Sergei and Andrei and is here visiting Andrei. He''s <<boyage>> years old. He is not married and lives in the City Center..'
+    
+    act 'Chat':
+        *clr & cla
+        minut += 60
+        menu_off = 1
+        
+        igor_base_opinion += 1
+    
+        act 'Continue': gt $loc
+    end
 end
 
 if $ARGS[0] = 'check_opinion':
     huntersIgorQw = igor_base_opinion + hunter_collective_opinion / 2 - hunter_sexual_comfort / 4
+
+    if huntersIgorQw > hunter_collective_opinion: huntersIgorQw = hunter_collective_opinion - hunter_sexual_comfort / 4
+
+end
+
+if $ARGS[0] = 'schedule':
+end
+
+!Sex scenes
+if $ARGS[0] = 'creekside':
+    if $ARGS[1] = '':
+        cla
+        act 'See who is behind you':
+            '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/2.jpg"></center>'
+            act 'Cover your chest with your arms':
+                '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/1.jpg"></center>'
+                act 'You are not feeling it':
+                    cla
+                end
+                act 'Kiss him back':
+                    '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/3.jpg"></center>'
+                    act 'Further': gt 'IgorHunter', 'creekside', 'bj'
+                end
+            end
+        
+            act 'Give him a hug':
+                '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/4.jpg"></center>'
+                act 'Lay back and spread your legs':
+                '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/5.jpg"></center>'
+                act 'Further': gt 'IgorHunter', 'creekside', 'piv'
+                end
+            end
+        end
+    end
+
+    if $ARGS[1] = 'bj':
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/7.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/8.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/9.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/10.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/11.jpg"></center>'
+    
+    end
+ 
+
+    if $ARGS[1] = 'piv':
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_1.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_2.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_3.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_4.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_5.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_6.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_7.jpg"></center>'
+    end
+end
+
+if $ARGS[0] = 'yard':
+end
+
+if $ARGS[0] = 'cabin':
 end
 
 --- Igorhunter ---------------------------------

locations/backwater.qsrc

@@ -11,187 +11,194 @@ cls
 gs'stat'
 clothesAtLocation = FUNC('lost_clothes_here',$CURLOC)
 
-act 'Go back to the hut':minut += 5 & gt'swamp_yard'
+if $ARGS[0] = '':
+	act 'Go back to the hut':minut += 5 & gt'swamp_yard'
 
-'<center><B>Backwater</B></center>'
-
-if month >= 4 and month <= 10:
-	if hour >= 6 and hour < 22:
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater.jpg"></center>'
-	else
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_night.jpg"></center>'
-	end
-else
-	if hour >= 8 and hour < 18:
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_winter.jpg"></center>'
-	else
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_winter_night.jpg"></center>'
-	end
-end
-*nl
-
-'A small creek with relatively clean water. If the weather is warm you can clean yourself up. Also, if your clothes are dirty you can wash them here.'
-*nl
-if clothesAtLocation = 1:'Your clothes lie on the shore.'
-
-if $clothingworntype = 'nude':
-	act 'Wash self':
-		cla
-		*clr
-		menu_off = 1
-		dynamic $showerdin
-		face_write = 0
-		body_write = 0
-		minut += 30
-		pcs_mood += 10
-		pcs_willpwr += 5
-		inhib_exp += rand(1,3)
-		if huntersRape = 1: huntersRape = 2
-
-		if $pantyworntype = 'none':
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim2.jpg"></center>'
+	'<center><B>Backwater</B></center>'
+	
+	if month >= 4 and month <= 10:
+		if hour >= 6 and hour < 22:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater.jpg"></center>'
 		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim1.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_night.jpg"></center>'
 		end
-			*nl
-		'You washed yourself in the creek.'
-
-		act 'Finish':gt 'backwater'
-	end
-end
-if cumloc[11] = 1 or cumloc[12] = 1:
-	act 'Clean the sperm from your face (0:10)':
-		cla
-		*clr
-		menu_off = 1
-		pcs_makeup = 1
-		cumspclnt = 9
-		gs 'cum_cleanup'
-		cumspclnt = 13
-		gs 'cum_cleanup'
-		if pcs_sweat > 19 : pcs_sweat -= 5
-		minut += 10
-		if huntersRape = 1: huntersRape = 2
-		gs 'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim1.jpg"></center>'
-		*nl
-		'You carefully wash off the sperm in the creek.'
-		act 'Finish':gt 'backwater'
-	end
-end
-if body_write > 0 or face_write > 0:
-	act 'Wash the writings off your body (0:10)':
-		cla
-		*clr
-		menu_off = 1
-		body_write = 0
-		face_write = 0
-		minut += 10
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash1.jpg"></center>'
-		*nl
-		'You wash off the indecent inscriptions on your body.'
-
-		act 'Finish':menu_off = 0 & gt $loc, $metka
-	end
-end
-if cumloc[6] = 1 or cumloc[7] = 1:
-	act 'Wipe the cum off your clothes (0:10)':
-		cla
-		*clr
-		menu_off = 1
-		cumspclnt = 6
-		gs 'cum_cleanup'
-		minut += 10
-		if huntersRape = 1: huntersRape = 2
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/cumwash.jpg"></center>'
-		*nl
-		'You clean the cum stains off your clothes.'
-
-		act 'Finish':gt 'backwater'
-	end
-end
-
-if spdirty > 0:
-	act 'Quick wash (0:15)':
-		cla
-		*clr
-		menu_off = 1
-		cumspclnt = 4
-		gs 'cum_cleanup'
-		if pcs_sweat < 30:
-			pcs_sweat = 15 + rand(0,4)
+	else
+		if hour >= 8 and hour < 18:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_winter.jpg"></center>'
 		else
-			pcs_sweat -= 10 + rand(0,4)
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_winter_night.jpg"></center>'
 		end
-		minut += 15
-		if huntersRape = 1: huntersRape = 2
-		gs'stat'
-		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
-		*nl
-		'You carefully wash your face, removing any impurities.'
-		act 'Finish':gt 'backwater'
 	end
-end
-
-if clothesAtLocation = 0:
-	if $clothingworntype ! 'nude' and temper >= 15:
-		act'Get undressed':
+	*nl
+	
+	'A small creek with relatively clean water. If the weather is warm you can clean yourself up. Also, if your clothes are dirty you can wash them here.'
+	*nl
+	if clothesAtLocation = 1:'Your clothes lie on the shore.'
+	
+	if $clothingworntype = 'nude':
+		act 'Wash self':
+			cla
+			*clr
 			menu_off = 1
-			if huntersKnowSlut > 0 or hunters = 0 or hour < 8 or hour >= 20 or pcs_inhib > 35:
-				cla
-				*clr
-				minut+=5
-				gs 'underwear', 'remove'
-				if huntersRape = 1: huntersRape = 2
-
-				if CloSkirtShortness > 0:
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterundress_ski.jpg"></center>'
-				else
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterundress.jpg"></center>'
-				end
-				gs 'clothing', 'strip', 'backwater'
-				'You do not hesitate getting undressed, not caring if anyone is watching.'
-				act'Back':gt'backwater'
+			dynamic $showerdin
+			face_write = 0
+			body_write = 0
+			minut += 30
+			pcs_mood += 10
+			pcs_willpwr += 5
+			inhib_exp += rand(1,3)
+			if huntersRape = 1: huntersRape = 2
+	
+			if $pantyworntype = 'none':
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim2.jpg"></center>'
 			else
-				cla
-				*clr
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
-				'You hesitate getting undressed, what if someone suddenly sees you?'
-				act'Back':gt'backwater'
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim1.jpg"></center>'
 			end
+				*nl
+			'You washed yourself in the creek.'
+	
+			act 'Finish':gt 'backwater'
 		end
-	else
-	'It''s too cold to undress. Maybe you should bathe inside the hut'
 	end
-else
-	if $clothingworntype ! 'nude':
-		act 'Pick up your clothes':
+	if cumloc[11] = 1 or cumloc[12] = 1:
+		act 'Clean the sperm from your face (0:10)':
 			cla
 			*clr
 			menu_off = 1
-			gs 'clothing', 'recover_lost_clothes', 'backwater'
-			'You pick up your clothes laying on the ground.'
-			gt $loc, $metka
+			pcs_makeup = 1
+			cumspclnt = 9
+			gs 'cum_cleanup'
+			cumspclnt = 13
+			gs 'cum_cleanup'
+			if pcs_sweat > 19 : pcs_sweat -= 5
+			minut += 10
+			if huntersRape = 1: huntersRape = 2
+			gs 'stat'
+	
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim1.jpg"></center>'
+			*nl
+			'You carefully wash off the sperm in the creek.'
+			act 'Finish':gt 'backwater'
 		end
-	elseif forced_naked_day < daystart:
-		act 'Get dressed':
+	end
+	if body_write > 0 or face_write > 0:
+		act 'Wash the writings off your body (0:10)':
 			cla
 			*clr
 			menu_off = 1
-			gs 'clothing', 'recover_lost_clothes', 'backwater', 1
-			gs 'underwear', 'wear'
-			'You pick up your clothes laying on the ground and get dressed.'
-			gt $loc, $metka
+			body_write = 0
+			face_write = 0
+			minut += 10
+			gs'stat'
+	
+			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash1.jpg"></center>'
+			*nl
+			'You wash off the indecent inscriptions on your body.'
+	
+			act 'Finish':menu_off = 0 & gt $loc, $metka
+		end
+	end
+	if cumloc[6] = 1 or cumloc[7] = 1:
+		act 'Wipe the cum off your clothes (0:10)':
+			cla
+			*clr
+			menu_off = 1
+			cumspclnt = 6
+			gs 'cum_cleanup'
+			minut += 10
+			if huntersRape = 1: huntersRape = 2
+			gs'stat'
+	
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/cumwash.jpg"></center>'
+			*nl
+			'You clean the cum stains off your clothes.'
+	
+			act 'Finish':gt 'backwater'
+		end
+	end
+	
+	if spdirty > 0:
+		act 'Quick wash (0:15)':
+			cla
+			*clr
+			menu_off = 1
+			cumspclnt = 4
+			gs 'cum_cleanup'
+			if pcs_sweat < 30:
+				pcs_sweat = 15 + rand(0,4)
+			else
+				pcs_sweat -= 10 + rand(0,4)
+			end
+			minut += 15
+			if huntersRape = 1: huntersRape = 2
+			gs'stat'
+			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
+			*nl
+			'You carefully wash your face, removing any impurities.'
+			act 'Finish':gt 'backwater'
+		end
+	end
+	
+	if clothesAtLocation = 0:
+		if $clothingworntype ! 'nude' and temper >= 15:
+			act'Get undressed':
+				menu_off = 1
+				if huntersKnowSlut > 0 or hunters = 0 or hour < 8 or hour >= 20 or pcs_inhib > 35:
+					cla
+					*clr
+					minut+=5
+					gs 'underwear', 'remove'
+					if huntersRape = 1: huntersRape = 2
+	
+					if CloSkirtShortness > 0:
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterundress_ski.jpg"></center>'
+					else
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterundress.jpg"></center>'
+					end
+					gs 'clothing', 'strip', 'backwater'
+					'You do not hesitate getting undressed, not caring if anyone is watching.'
+					act'Back':gt'backwater'
+				else
+					cla
+					*clr
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
+					'You hesitate getting undressed, what if someone suddenly sees you?'
+					act'Back':gt'backwater'
+				end
+			end
+		else
+		'It''s too cold to undress. Maybe you should bathe inside the hut'
+		end
+	else
+		if $clothingworntype ! 'nude':
+			act 'Pick up your clothes':
+				cla
+				*clr
+				menu_off = 1
+				gs 'clothing', 'recover_lost_clothes', 'backwater'
+				'You pick up your clothes laying on the ground.'
+				gt $loc, $metka
+			end
+		elseif forced_naked_day < daystart:
+			act 'Get dressed':
+				cla
+				*clr
+				menu_off = 1
+				gs 'clothing', 'recover_lost_clothes', 'backwater', 1
+				gs 'underwear', 'wear'
+				'You pick up your clothes laying on the ground and get dressed.'
+				gt $loc, $metka
+			end
 		end
 	end
+	
+end
+
+if $ARGS[0] = 'creekside_relax':
+
 end
 
-if $clothingworntype = 'nude' and huntersKnowSlut = 0 and hunters = 1 and hour > 8 and hour < 20 and hunterknowday < day:
+if $clothingworntype = 'nude' and igor_away = 'no' and rand(1,10) = 1:
 	cla
 	*clr
 	menu_off = 1

locations/hunter_interactions.qsrc

@@ -1022,7 +1022,7 @@ end
 if $ARGS[0] = 'meet_hunters':
     cla & *clr
     
-    hunter_collective_opinion = 30
+    hunter_collective_opinion = rand(20,30)
 	hunter_sexual_comfort = 10 + pcs_apprnc / 4
     hunters_violent = 0
     
@@ -1060,7 +1060,7 @@ if $ARGS[0] = 'meet_hunters_after_rescue':
 	huntersKnow = 1
 
 	!TODO: More behavior variables w/ explanation
-	hunter_collective_opinion = 30
+	hunter_collective_opinion = rand(20,30)
 	hunter_sexual_comfort = 10 + pcs_apprnc / 4
 	hunters_violent = 0
 

locations/hunters.qsrc

@@ -37,10 +37,14 @@ if $ARGS[0] = 'check_opinion':
 		if $clothingworntype ! 'nude':
 			'Andrei then looks at you and says "What is it with all the clothing? Let it all air out!"'
 		else
-			'"Damn, <<$pcs_nickname>>, you look really good without the clothes. The things I would want to do to you..." said a somewhat aroused Andrei.'	
+			'"Damn, <<$pcs_nickname>>, you look really good without the clothes. In case you didn''t know" said a somewhat aroused Andrei.'	
 		end
 	elseif hunter_sexual_comfort > 25:
-		'Andrei then looks at you and throws you an air kiss.'
+		if $clothingworntype ! 'nude':
+			'Andrei then looks at you and throws you an air kiss.'
+		else
+			'Seeing you strutting your stuff naked, Andrei blows a wolf whistle.'	
+		end
 	else
 		'The other hunters completely ignore you, pretending you are not even there.'
 	end

locations/swamp_yard.qsrc

@@ -63,12 +63,13 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 
 	if hunterhelp = 1: gs 'swamp_yard', 'rescued_from_swamp'	
 
-	if hunterhelp = 2 and huntersKnow = 0:
-		gs 'hunter_interactions', 'meet_hunters_after_rescue'
-	elseif huntersKnow = 0:
-		act 'Approach the men': gt 'hunter_interactions', 'meet_hunters'
+	if huntersKnow = 0:
+		if hunterhelp = 2:
+			 gs 'hunter_interactions', 'meet_hunters_after_rescue'
+		else
+			act 'Approach the men': gt 'hunter_interactions', 'meet_hunters'
+		end
 	end
-
 	gs 'hunter_ambient', 'schedule'
 
 	if hour >= 8 and hour < 20: gs 'swamp_yard', 'daytime_flavor_events'