2 Commits e4dcb9597e ... b1acfd7f1e

Author SHA1 Message Date
  Spackled Lanturn b1acfd7f1e [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 3 years ago
  Spackled Lanturn efc40cc423 [text edit] clean up sexorg 3 years ago
1 changed files with 18 additions and 95 deletions
  1. 18 95
      locations/sexorg.qsrc

+ 18 - 95
locations/sexorg.qsrc

@@ -10,144 +10,67 @@ 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>'
-		'The two of you switch back and forth between 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.'
+		'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 his cock entering your moist cunt. His movements are fast and rough and you''d cry out in ecstacy if it wasn''t for the pussy you were busy licking.'
+		'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 don''t break eye contact with her - you don''t even know their names - as she lowers herself onto him, 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.'
+		'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 were not as well prepared as you thought you''d be and it hurts a little as he 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 mean into the girl''s cunt and enjoy yourself.'
+		'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 were a little reluctant about being double penetrated - the two guys were both pretty well endowed, after all - but in the end, your curiosity and horniness won over all concerns and you thoroughly enjoy the feeling of having both your nether holes filled at the same time.'
+		'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.'
 
 		gs 'arousal', 'vaginal', 10, 'sub', 'group', 'rough'
 		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.'
+		'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'
 
@@ -156,7 +79,7 @@ if $ARGS[0] = 'end':
 	end
 
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/bowling/sex/cum<<picrand>>.jpg"></center>'
-	'They put you and the other two girls on your knees in front of them and furiously stroke their dicks into your expectant mouths. You barely even taste the sperm, even though you catch a full spurt of it on your tongue - to you, it marks the end of a thrilling adventure. It''s not every day that you have an orgy in a bowling center.'
+	'The guys put you and the other two girls on your knees in front of them and furiously stroke their dicks into your expectant mouths. You barely even taste the sperm, even though you catch a full spurt of it on your tongue - to you, it marks the end of a thrilling adventure. It''s not every day that you have an orgy in a bowling center.'
 
 	gs 'arousal', 'end'
 	gs 'stat'