Browse Source

[removed] some legacy hantersex code

pfffbft 5 years ago
parent
commit
020deff5b9

+ 11 - 0
locations/hunter_favors.qsrc

@@ -412,4 +412,15 @@ if $ARGS[0] = 'creekside_gangbang_request':
     end
 end
 
+if $ARGS[0] = 'yard_bondage':
+	
+
+
+
+end	
+
+
+
+
+
 --- hunter_favors ---------------------------------

+ 64 - 3
locations/hunter_interactions.qsrc

@@ -485,6 +485,65 @@ if $ARGS[0] = 'shooting_bet':
         '<center><video autoplay loop src="images/locations/gadukino/hunters/shooting_nude.mp4"></video></center>'
     end    
     
+    !This beautiful snippet is from park.qsrc
+    tirkoef = pcs_agil + pcs_shoot
+	tirmin = tirkoef * 20 / 100
+    tirand = rand(tirkoef - tirmin, tirkoef + tirmin)
+    
+    act 'Further':
+        if tirand > 70:
+            gt 'hunter_interactions', 'shooting_bet', 'win'
+        else
+            gt 'hunter_interactions', 'shooting_bet', 'lose'
+        end        
+    end
+
+    if $ARGS[1] = 'win':
+    end    
+
+    if $ARGS[1] = 'lose':
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/AndreiHanter.jpg"></center>'
+        '"Well seems like that did not work out as expected. Now, give me a moment while I think" says Andrei.'
+        'Just a second after you start thinking about what perverted scheme he can come up with, "Oh I know!" he says.'
+
+        !lost_bet_temprand = rand(1,4)
+        lost_bet_temprand = 1
+
+        if lost_bet_temprand = 1:
+            if $clothingworntype = 'nude':
+                hunter_collective_opinion -= 20
+                hunter_sexual_comfort += 40
+
+
+                '"I am going to tie you to that tree right next to the yard and then you will allow me to do whatever you want me to."'
+                '"Or the others..." he adds.'
+                act 'Further': gt 'hunter_favors', 'yard_bondage'
+            else:
+                '"I want you to lose the clothes for today and tomorrow. Be more in touch with nature and all that. You can put em back on the day after of course"'
+
+                act 'Strip naked':
+                    hunter_collective_opinion -= 5
+                    hunter_sexual_comfort += 10
+
+                    forced_naked = daystart + 1
+
+                    gs 'clothing', 'strip', 'swamphouse'
+				    gs 'underwear', 'remove'
+
+				    gs 'arousal', 'flash', 10, 'exhibitionism', 'sub'
+				    gs 'arousal', 'end'
+
+    			    gs 'stat'
+                    gt 'swamp_woods'
+                end     
+
+        !TODO: Implement these additional options
+        elseif lost_bet_temprand = 2:
+        elseif lost_bet_temprand = 3:
+        elseif lost_bet_temprand = 4:
+        end    
+    end 
+
 end    
 
 
@@ -585,7 +644,7 @@ if $ARGS[0] = 'naked_encounter':
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swampdvornude.jpg"></center>'
 		'You notice the hunters ogling your body while you are walking around naked. You subconsciously cover up your private parts'
 
-		if FUNC('lost_clothes_here','swamphouse') = 1 and $lastwornclothingtype ! 'nude':
+		if FUNC('lost_clothes_here','swamphouse') = 1 and $lastwornclothingtype ! 'nude' and forced_naked_day < daystart:
 			act 'Run and get dressed':
 				*clr & cla
 				minut += 5
@@ -596,8 +655,8 @@ if $ARGS[0] = 'naked_encounter':
 				'You rush to get your stuff in the hut so you can get dressed.'
 				act'Further':gt 'swamphouse'
 			end
-		else
-			act 'Cover up with a burlap sack sou found':
+        elseif forced_naked_day < daystart
+			act 'Cover up with a burlap sack you found':
 				*clr & cla
 				minut+=5
 				gs 'clothing', 'swamp_clothes', 1
@@ -710,10 +769,12 @@ if $ARGS[0] = 'naked_encounter':
 end
 
 if $ARGS[0] = 'dance_show':
+    gt $loc
     !TODO: Fill this in
 end
 
 if $ARGS[0] = 'fireside_gangbang':
+    gt $loc
     !TODO: Fill this in
 end
 

+ 15 - 2
locations/swamp_woods.qsrc

@@ -147,21 +147,34 @@ if $ARGS[0] = 'shooting_practice':
 
 	act 'Walk away': gt 'swamp_woods'
 	act 'Ask if you can shoot too':
-		if hunter_collective_opinion > 40 and rand(1,4) = 1:
+		if hunter_collective_opinion > 50 and rand(1,4) = 1:
 			cla & *clr
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/andrei_shooting.jpg"></center>'
 			'"Sure thing! But say, how about we spice it up a bit? If you can hit that bottle over there in one shot, I will do anything you want" says Andrei'
 			'"And what if I cannot?" you ask.'
 			'"Well, in that case you get to do anything I ask for. It is only fair, right?" he asks with a smirk.'
 			'"I guess it is" you respond, slightly blushing thinking about what Andrei could ask you to do.'
+			
 			act 'Take the bet':
 				cla & *clr
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/shooting.jpg"></center>'
+				
+				hunter_collective_opinion += 6
+				gs 'stat'
+
+				if $clothingworntype ! 'nude':
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/shooting.jpg"></center>'
+				else
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/shooting_nude.jpg"></center>'
+				end	
 				'You line up your sights and aim at the bottle. You inhale and hold your breath before...'
 				act 'Pull the trigger': gt 'hunter_interactions', 'shooting_bet'
 			end
 			act 'Refuse':
 				cla
+
+				hunter_collective_opinion -= 2
+				gs 'stat'
+
 				'Not liking the odds of likely spending the day naked or worse, "Maybe some other time" you respond before walking away.'
 				act 'Further': gt 'swamp_woods'
 			end

+ 2 - 64
locations/swamp_yard.qsrc

@@ -61,9 +61,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 	if dirty_swamp_yard > 5:  act 'Clean up the trash outside': gs 'hunter_favors', 'yard_cleanup'
 	if hunter_collective_opinion < 10: act '<b>Escape to the swamp</b>': gs 'swamp_yard', 'swamp_escape'
 
-	! TODO: Figure how to remove the sneaky gotos if not tied to other locations
-	if hunterhelp = 1: gs 'swamp_yard', 'rescued_from_swamp'
-	
+	if hunterhelp = 1: gs 'swamp_yard', 'rescued_from_swamp'	
 
 	if hunterhelp = 2 and huntersKnow = 0:
 		gs 'hunter_interactions', 'meet_hunters_after_rescue'
@@ -74,6 +72,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 	gs 'hunter_ambient', 'schedule'
 
 	if hour >= 8 and hour < 20: gs 'swamp_yard', 'daytime_flavor_events'
+	if hour >= 20 and hour < 24: gs 'swamp_yard', 'nighttime_flavor_events'
 end	
 
 !Code blocks for leaf events (events not calling other  events)
@@ -198,67 +197,6 @@ if $ARGS[0] = 'skirt_breeze':
 	end
 end
 
-!TODO: This will be revamped. Temporary to keep the dialogue for now
-if $ARGS[0] = 'hunter_group_sex':
-	! sex if GG whore
-	if hunters > 0 and huntersRape = 5 and huntslutsexrand = 1 and huntslutsex = 0:
-		*clr & cla
-		minut += 5
-		temphunt = rand(1,3)
-		! the choice of who will fuck GG
-		slutgosex = 1
-		gs 'stat'
-
-		if temphunt = 1:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/andreihanter.jpg"></center>'
-		if temphunt = 2:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/sergeihanter.jpg"></center>'
-		if temphunt = 3:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/igorhanter.jpg"></center>'
-		if temphunt = 1:'Andrei steps out of the hut, heading straight towards you. "<<$pcs_nickname>>, walk with me..." without uttering another word he grabs you by the arm and leads you to the nearest tree...'
-		if temphunt = 2:'Sergei steps out of the hut, heading straight towards you. "<<$pcs_nickname>>, let''s go a bit aside you need to help me out with my itch," he said and lead you in the direction of the nearest thicket.'
-		if temphunt = 3:'Igor steps out of the hut, heading straight towards you. "<<$pcs_nickname>>, I need you to help me with this bulge," he says pointing at his groin, leading you away from the yard...'
-		if pcs_horny < 40:' You obediently follow along, well knowing the reason he wanted you to tag along.'
-		if pcs_horny >= 40 and pcs_horny < 70:'"I need you to take me..." is all you manage to say while he''s leading you away.'
-		if pcs_horny >= 70:'"I was hoping this would happened," you think to yourself, feeling your wet pussy pulsating with desire. You jump onto him, taking charge, leaving him stunned about who wants it more, you or him.'
-
-		act 'Go':gt 'hunters', 'start'
-	end
-		
-	! trio if GG whore
-	if hunters > 0 and huntersRape = 5 and huntslutsexrand = 2 and huntslutsex = 0:
-		*clr & cla
-		minut += 5
-		temphunt = rand(1,3)
-		slutgosex = 2
-		gs 'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterswork1.2.jpg"></center>'
-		if temphunt = 1:
-			'You see Andrei talking with Sergei in the yard. They notice you, and start moving towards you. "Come with us <<$pcs_nickname>>," without uttering another word Andrei grabs you by the arm and leads you to the nearest tree.... Sergei follows after.'
-		elseif temphunt = 2:
-			'Andrei and Igor notice you enter the yard, they call you over. "Come with us <<$pcs_nickname>>, you need to help us out with our itch," said Andrei pulling you in the direction of the nearest thicket. Igor follows behind.'
-		elseif temphunt = 3:
-			'You notice Igor and Sergei standing in the yard whispering something to each other. Igor approaches you and says "<<$pcs_nickname>>, "<<$pcs_nickname>>, I need you to help me with this bulge," he says pointing at his groin. He calls Sergei over and they start leading you away from the yard...'
-		end
-		if pcs_horny < 40: 
-			'You obediently follow along, well knowing the reason they wanted you to tag along.'
-		elseif pcs_horny >= 40 and pcs_horny < 70:
-			'"I need you to take me..." is all you manage to say while they''re leading you away.'
-		elseif pcs_horny >= 70:
-			'"I was hoping this would happened," you think to yourself, feeling your wet pussy pulsating with desire. You jump onto one of them, taking charge, leaving the other one stunned about who wants it more, they or you.'
-		end
-
-		act 'Go with the guys':
-			*clr & cla
-			minut += 5
-			pcs_horny += 5
-
-			gs 'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/doublehanterlove.jpg"></center>'
-			'You go along with the men holding their hands, knowing where they''re about to lead you. You don''t mind you want them as bad as they wants you...'
-			act 'Further':gt 'huntersex', 'sluthomesex'
-		end
-	end
-end
 
 !Code blocks for branch events (events calling other  events)
 if $ARGS[0] = 'campfire':

+ 4 - 4
locations/swamphouse.qsrc

@@ -88,7 +88,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 	
 	if clothesAtLocation = 1 and swamp_clothes = 0:
 		!clothes are ready
-		if $clothingworntype = 'nude' and forced_naked_day ! daystart:
+		if $clothingworntype = 'nude' and forced_naked_day < daystart:
 			act 'Get dressed':
 				cla
 				*clr
@@ -100,7 +100,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 				gs 'stat'
 				act 'Back': gt 'swamphouse', 'start'
 			end
-		else
+		elseif $clothingworntype ! 'nude':
 			act 'Pick up your clothes':
 				cla
 				*clr
@@ -109,7 +109,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 				act 'Back': gt 'swamphouse', 'start'
 			end
 		end
-	elseif swamp_clothes = 1:
+	elseif swamp_clothes = 1 and forced_naked_day < daystart:
 		if $clothingworntype = 'nude':
 			act 'Wear hessian sack':
 				cla
@@ -126,7 +126,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 	end
 
 	if pcs_horny >= 50 and hunters = 0 or pcs_horny >= 50 and hunters = 1 and hour >= 8 and hour < 20:
-		!TODO: Add content for hunters being aroundd or walking in
+		!TODO: Add content for hunters being around or walking in
 		act 'Masturbate':
 			gt 'selfplay', 'start'
 		end