[fixed] in sex, (1) delete unused sxkuni variable, (2) merge together the code for the near identical four vaginal sex options (since pos is only used to determine where cum goes and values 3 to 6 had it go to the same place (inside vagina) in previous implementation, only real differences between these was the picture displayed), and (3) kill vars when we're done with them instead of just zeroing them out or leaving them as is

locations/sex.qsrc

@@ -69,10 +69,6 @@ if $ARGS[0] = 'kuni':
 	gs 'dinsex2', 'stamina_npc'
 	pos = 2
 
-	if sxkuni = 0:
-		sxkuni = 1
-	end
-
 	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/kuni<<picrand>>.jpg"></center>'
 
 	if textrand = 1:'He places gentle kisses and licks all across your thighs, slowly working his way to your sweet slit. When he reaches it, he eagerly thrusts his tongue inside you as far it will go, lapping up your juices enthusiastically.'
@@ -89,7 +85,7 @@ if $ARGS[0] = 'kuni':
 	if sexvar = 0:gs 'sex', 'end'
 end
 
-if $ARGS[0] = 'vag':
+if $ARGS[0] = 'vag' or $ARGS[0] = 'nae' or $ARGS[0] = 'rak' or $ARGS[0] = 'bok':
 	cls
 	if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
 	sexvar -= 1
@@ -102,93 +98,7 @@ if $ARGS[0] = 'vag':
 		sxsex = 1
 	end
 
-	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/vag<<picrand>>.jpg"></center>'
-	
-	if textrand = 1:'He slowly penetrates you and keeps thrusting until most of his length is buried inside you. You eagerly kiss him when you see the look of ecstasy on his face and wrap your arms around him while he thrusts his hips against yours.'
-	if textrand = 2:'His hard cock slides inside your wet cunt easily, and you feel the engorged head slowly part your insides when it goes deeper and deeper. You can''t help but rub your clit, while you encourage him to fuck you harder.'
-	if textrand = 3:'He doesn''t stop until his cock bottoms out in you and then proceeds to fuck you with the entire length of his impressive shaft. His thrusts become more and more intense, and soon, the sound of his skin slapping against yours fills the room.'
-	if textrand = 4:'Your wet pussy eagerly takes his cock in, and you hear some embarrassing sopping sounds when he proceeds to fuck your pussy enthusiastically. You must''ve wanted him pretty badly if you got this wet...'
-
-	gs 'arousal', 'vaginal', 10
-	gs 'stat'
-
-	if sexvar < 0:sexvar = 0
-	if sexvar = 1:'<br>The man groans that he will cum soon.'
-	if sexvar > 0:cumprecheck = 1 & gs 'cum_manage' & xgt 'sex', 'var'
-	if sexvar = 0:gs 'sex', 'end'
-end
-
-if $ARGS[0] = 'nae':
-	cls
-	if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
-	sexvar -= 1
-	gs 'dinsex2', 'stamina_npc'
-	pos = 4
-
-	if sxsex = 0:
-		if svidboysex = 1:sexa += 1
-
-		sxsex = 1
-	end
-
-	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/nae<<picrand>>.jpg"></center>'
-
-	if textrand = 1:'He slowly penetrates you and keeps thrusting until most of his length is buried inside you. You eagerly kiss him when you see the look of ecstasy on his face and wrap your arms around him while he thrusts his hips against yours.'
-	if textrand = 2:'His hard cock slides inside your wet cunt easily, and you feel the engorged head slowly part your insides when it goes deeper and deeper. You can''t help but rub your clit, while you encourage him to fuck you harder.'
-	if textrand = 3:'He doesn''t stop until his cock bottoms out in you and then proceeds to fuck you with the entire length of his impressive shaft. His thrusts become more and more intense, and soon, the sound of his skin slapping against yours fills the room.'
-	if textrand = 4:'Your wet pussy eagerly takes his cock in, and you hear some embarrassing sopping sounds when he proceeds to fuck your pussy enthusiastically. You must''ve wanted him pretty badly if you got this wet...'
-
-	gs 'arousal', 'vaginal', 10
-	gs 'stat'
-
-	if sexvar < 0:sexvar = 0
-	if sexvar = 1:'<br>The man groans that he will cum soon.'
-	if sexvar > 0:cumprecheck = 1 & gs 'cum_manage' & xgt 'sex', 'var'
-	if sexvar = 0:gs 'sex', 'end'
-end
-
-if $ARGS[0] = 'rak':
-	cls
-	if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
-	sexvar -= 1
-	gs 'dinsex2', 'stamina_npc'
-	pos = 5
-
-	if sxsex = 0:
-		if svidboysex = 1:sexa += 1
-		sxsex = 1
-	end
-
-	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/rak<<picrand>>.jpg"></center>'
-
-	if textrand = 1:'He slowly penetrates you and keeps thrusting until most of his length is buried inside you. You eagerly kiss him when you see the look of ecstasy on his face and wrap your arms around him while he thrusts his hips against yours.'
-	if textrand = 2:'His hard cock slides inside your wet cunt easily, and you feel the engorged head slowly part your insides when it goes deeper and deeper. You can''t help but rub your clit, while you encourage him to fuck you harder.'
-	if textrand = 3:'He doesn''t stop until his cock bottoms out in you and then proceeds to fuck you with the entire length of his impressive shaft. His thrusts become more and more intense, and soon, the sound of his skin slapping against yours fills the room.'
-	if textrand = 4:'Your wet pussy eagerly takes his cock in, and you hear some embarrassing sopping sounds when he proceeds to fuck your pussy enthusiastically. You must''ve wanted him pretty badly if you got this wet...'
-
-	gs 'arousal', 'vaginal', 10
-	gs 'stat'
-
-	if sexvar < 0:sexvar = 0
-	if sexvar = 1:'<br>The man groans that he will cum soon.'
-	if sexvar > 0:cumprecheck = 1 & gs 'cum_manage' & xgt 'sex', 'var'
-	if sexvar = 0:gs 'sex', 'end'
-end
-
-if $ARGS[0] = 'bok':
-	cls
-	if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
-	sexvar -= 1
-	gs 'dinsex2', 'stamina_npc'
-	pos = 6
-
-	if sxsex = 0:
-		if svidboysex = 1:sexa += 1
-
-		sxsex = 1
-	end
-
-	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/bok<<picrand>>.jpg"></center>'
+	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexrand/<<$ARGS[0]>><<picrand>>.jpg"></center>'
 	
 	if textrand = 1:'He slowly penetrates you and keeps thrusting until most of his length is buried inside you. You eagerly kiss him when you see the look of ecstasy on his face and wrap your arms around him while he thrusts his hips against yours.'
 	if textrand = 2:'His hard cock slides inside your wet cunt easily, and you feel the engorged head slowly part your insides when it goes deeper and deeper. You can''t help but rub your clit, while you encourage him to fuck you harder.'
@@ -210,7 +120,7 @@ if $ARGS[0] = 'anal':
 	if sexstart = 0:sexstart = 1 & sexvar = rand(3,7)
 	sexvar -= 1
 	gs 'dinsex2', 'stamina_npc'
-	pos = 7
+	pos = 4
 
 	if sxanal = 0:
 		if svidboysex = 1:anala += 1
@@ -236,26 +146,25 @@ end
 
 if $ARGS[0] = 'end':
 	cla
-	sexstart = 0
-	sexvar = 0
-	sxkuni = 0
-	sxbj = 0
-	sxsex = 0
-	sxanal = 0
-	SexTypeCheck = 0
-	BlowBan = 0
-	CooneyBan = 0
-	MissionBan = 0
-	CowgirlBan = 0
-	DoggyBan = 0
-	SidewaysBan = 0
-	AnalBan = 0
-	dick = 0
+	killvar 'sexstart'
+	killvar 'sexvar'
+	killvar 'sxbj'
+	killvar 'sxsex'
+	killvar 'sxanal'
+	killvar 'SexTypeCheck'
+	killvar 'BlowBan'
+	killvar 'CooneyBan'
+	killvar 'MissionBan'
+	killvar 'CowgirlBan'
+	killvar 'DoggyBan'
+	killvar 'SidewaysBan'
+	killvar 'AnalBan'
+	killvar 'dick'
 
 	if pos < 3:
 		spafinloc = 12
 		'He groans loudly, and you feel his hard cock erupting in your mouth. You swallow it obediently, figuring that is what he wants you to do.'
-	elseif pos < 7:
+	elseif pos = 3:
 		spafinloc = 0
 		cuminside = 1
 		'He groans loudly, spraying his seed deep inside your pussy.'
@@ -269,7 +178,7 @@ if $ARGS[0] = 'end':
 		orgasm += 1
 		'You feel so horny after bringing him to orgasm, you''re very close to having an orgasm also! You close your eyes and surrender yourself to the moment, quickly rubbing yourself to completion.'
 	end
-	if cuminside = 1: gs 'cuminsidereact'
+	if cuminside = 1: killvar 'cuminside' & gs 'cuminsidereact'
 
 	gs 'arousal', 'end'
 
@@ -286,7 +195,7 @@ if $ARGS[0] = 'end':
 		if picrand = 89: killvar 'picrand' & gt 'bed', 'start'
 		killvar 'picrand'
 		if svidboysex = 1:
-			svidboysex = 0
+			killvar 'svidboysex'
 			gt $svidboy_home, $svidboy_home_arg
 		end