[fixed] in sexorg, (1) move common code outside conditional, (2) delete unused variables, and (3) kill variables that were being set to 0 when this file exited (sexvar) or are only used in this file and are randomly reset every time they are used (sexorgrand). (1) and (2) cut this file from 169 to 92 lines

locations/sexorg.qsrc

@@ -10,109 +10,43 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'var':
-	sexorgrand = rand(0, 6)
+	cla
+	*clr
+	sexvar += 1
 
+	sexorgrand = rand(0, 6)
 	if sexorgrand = 0:
-		cla
-		*clr
-		sexvar += 1
-
-		if orsxbj = 0:
-			orsxbj = 1
-		end
-
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/minet<<picrand>>.jpg"></center>'
 		'You and one of the girls switch back and forth sucking one guy''s cock for a while, getting off on his moans of pleasure but never pushing him so far that he could actually cum. Every now and then, you both lick his head simultaneously, French kissing while your "victim" watches and enjoys.'
 
 		gs 'arousal', 'bj', 10, 'sub', 'group'
 		gs 'arousal', 'kiss', 10, 'sub', 'group'
 		minut -= 10
-		gs 'stat'
-		
-		act 'Continue the orgy':gt 'sexorg', 'var'
-
-		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
 	elseif sexorgrand = 1:
-		cla
-		*clr
-		sexvar += 1
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/vag<<picrand>>.jpg"></center>'
 		'You watch as one of the girls gets her pussy filled from behind by a big cock, listening to her loud moans and idly rubbing your own clit while you wait your turn.'
 
 		gs 'arousal', 'masturbate', 10
-		gs 'stat'
-		
-		act 'Continue the orgy':gt 'sexorg', 'var'
-
-		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
 	elseif sexorgrand = 2:
-		cla
-		*clr
-		sexvar += 1
-
-		if orsxsex = 0:
-			orsxsex = 1
-		end
-
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/uvag<<picrand>>.jpg"></center>'
 		'You lie down on your back and almost instantly feel one of the guys'' cocks entering your moist cunt. His movements are fast and rough, and you''d cry out in ecstasy if it weren''t for the pussy you are busy licking.'
 
 		gs 'arousal', 'vaginal', 10, 'sub', 'group', 'rough'
 		gs 'arousal', 'cuni_give', 10, 'sub', 'group'
 		minut -= 10
-		gs 'stat'
-		
-		act 'Continue the orgy':gt 'sexorg', 'var'
-
-		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
 	elseif sexorgrand = 3:
-		cla
-		*clr
-		sexvar += 1
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/anal<<picrand>>.jpg"></center>'
 		'You watch one of the girls - you don''t even know her name - not breaking eye contact with her as she lowers herself onto one of the guys, impaling her tight ass on his hard dick. "You''d love to take my place, wouldn''t you?" she asks sweetly, then cries out as her partner loses patience and starts fucking her from below. You don''t have to answer - the fingers you have buried in your pussy as you watch tell her everything she needs to know.'
 
 		gs 'arousal', 'masturbate', 10
-		gs 'stat'
-		
-		act 'Continue the orgy':gt 'sexorg', 'var'
-
-		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
 	elseif sexorgrand = 4:
-		cla
-		*clr
-
-		if orsxanal = 0:
-			pdsxanal = 1
-		end
-
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/uanal<<picrand>>.jpg"></center>'
 		'You are not as well prepared as you thought you were, and it hurts a little as one of the guys pushes past your sphincter, but soon the pain is forgotten and replaced by a pleasant sense of fullness... and that''s before he starts really fucking you. You lean into the girl in front of you''s cunt and enjoy yourself.'
 
 		gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
 		gs 'arousal', 'cuni_give', 10, 'sub', 'group'
 		minut -= 10
-		gs 'stat'
-		
-		act 'Continue the orgy':gt 'sexorg', 'var'
-
-		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
 	elseif sexorgrand = 5:
-		cla
-		*clr
-
-		if orsxbj = 0:
-			orsxbj = 1
-		end
-
-		if orsxsex = 0:
-			orsxsex = 1
-		end
-
-		if orsxanal = 0:
-			orsxanal = 1
-		end
-
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/udp<<picrand>>.jpg"></center>'
 		'At first you are a little reluctant about being double penetrated - the two guys are both pretty well endowed, after all - but in the end, your curiosity and horniness wins over all concerns, and you thoroughly enjoy the feeling of having both your nether holes filled at the same time.'
 
@@ -120,34 +54,23 @@ if $ARGS[0] = 'var':
 		gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
 		gs 'arousal', 'cuni_give', 10, 'sub', 'group'
 		minut -= 10
-		gs 'stat'
-		
-		act 'Continue the orgy':gt 'sexorg', 'var'
-
-		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
-	elseif sexorgrand = 6:
-		cla
-		*clr
-		sexvar += 1
+	else
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/dp<<picrand>>.jpg"></center>'
 		'Her expression of bliss and loud utterances leave no doubt in your mind: having her ass and pussy filled at the same time has sent this girl straight to heaven, and while you watch on in jealousy, you have no other choice than to rub your clit and wait your turn.'
 
 		gs 'arousal', 'masturbate', 10
-		gs 'stat'
-		
-		act 'Continue the orgy':gt 'sexorg', 'var'
-
-		if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
 	end
+	
+	gs 'stat'
+	act 'Continue the orgy':gt 'sexorg', 'var'
+	if sexvar >= 3:act 'Let the guys finish.':gt 'sexorg', 'end'
 end
 
 if $ARGS[0] = 'end':
 	cla
 	*clr
-	orsxbj = 0
-	orsxsex = 0
-	orsxanal = 0
-	sexvar = 0
+	killvar 'sexvar'
+	killvar 'sexorgrand'
 	spafinloc = 12
 	gs 'cum_manage'