locations/sexdvanadva.qsrc

@@ -14,143 +14,74 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'var':
+	cla
+	*clr
+	sexvar += 1
+
 	sexdvarand = rand(0, 6)
 
 	if picrand = 11:sexdvarand = rand(0, 5)
 	if picrand = 14:sexdvarand = rand(0, 4)
 
 	if sexdvarand = 0:
-		cla
-		*clr
-		sexvar += 1
-
-		if dvdvsxbj = 0:
-			dvdvsxbj = 1
-		end
-
 		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/minet<<picrand>>.jpg"></center>'
 		'The two of you suck their cocks.'
 		
 		gs 'arousal', 'bj', 10, 'sub'
-		gs 'stat'
-
-		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
-		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
 	elseif sexdvarand = 1:
-		cla
-		*clr
-		sexvar += 1
 		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/vag<<picrand>>.jpg"></center>'
 		'While she enjoys a stiff cock in her pussy, you are not left wanting for attention.'
 		
 		gs 'arousal', 'erotic', 10, 'sub'
-		gs 'stat'
-
-		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
-		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
 	elseif sexdvarand = 2:
-		cla
-		*clr
-		sexvar += 1
-
-		if dvdvsxsex = 0:
-			dvdvsxsex = 1
-		end
-
 		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/uvag<<picrand>>.jpg"></center>'
 		'He thrusts into you. His cock sends waves of pleasure over your body.'
 		
 		gs 'arousal', 'vaginal', 10, 'sub'
-		gs 'stat'
-
-		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
-		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
 	elseif sexdvarand = 3:
-		cla
-		*clr
-		sexvar += 1
 		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/anal<<picrand>>.jpg"></center>'
 		'You enjoy the sight of a cock in her ass, but you are mostly too distracted by the cock in your mouth.'
 
 		gs 'arousal', 'bj', 10, 'sub'
-		gs 'stat'
-		
-		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
-		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
 	elseif sexdvarand = 4:
-		cla
-		*clr
-		sexvar += 1
-
-		if dvdvsxanal = 0:
-			dvdvsxanal = 1
-		end
-
 		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/uanal<<picrand>>.jpg"></center>'
-		'When he enters your backdoor it hurts a little, but soon the pain goes away. Pleasure takes its place, as he slowly moves back and forth, stretching your hole.'
+		'When he enters your backdoor, it hurts a little, but soon, the pain goes away. Pleasure takes its place, as he slowly moves back and forth, stretching your hole.'
 
 		gs 'arousal', 'anal', 10, 'sub'
-		gs 'stat'
-		
-		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
-		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
 	elseif sexdvarand = 5:
-		cla
-		*clr
-		sexvar += 1
-
-		if dvdvsxsex = 0:
-			dvdvsxsex = 1
-		end
-
-		if dvdvsxanal = 0:
-			dvdvsxanal = 1
-		end
-
 		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/udp<<picrand>>.jpg"></center>'
 		'Both men enter you at the same time. The feeling is almost too intense. Your moans of pleasure urge them on.'
 		
 		gs 'arousal', 'vaginal', 10, 'sub'
 		gs 'arousal', 'anal', 10, 'sub'
 		minut -= 10
-		gs 'stat'
-		
-		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
-		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
 	elseif sexdvarand = 6:
-		cla
-		*clr
-		sexvar += 1
 		'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/dp<<picrand>>.jpg"></center>'
-		'She has both men fucking her. It makes you feel a little envious, as you watch playing with yourself.'
+		'She has both men fucking her. It makes you feel a little envious as you watch, playing with yourself.'
 		
 		gs 'arousal', 'masturbate', 10, 'sub'
-		gs 'stat'
-
-		if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
-		if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
 	end
+
+	gs 'stat'
+	if sexvar < 3:act 'More':xgt 'sexdvanadva', 'var'
+	if sexvar >= 3:act 'Finish':gt 'sexdvanadva', 'end'
 end
 
 if $ARGS[0] = 'end':
 	cla
 	*clr
 	minut += 10
-	dvdvsxbj = 0
-	dvdvsxsex = 0
-	dvdvsxanal = 0
 	gs 'npcgeneratec', 0, 'Random Guy', rand(18,45)
 	gs 'boyStat', $npclastgenerated
 	spafinloc = 12
 	gs 'cum_manage'
-	sexvar = 0
+	killvar 'sexvar'
+	killvar 'sexdvarand'
 
-	if pcs_horny >= 80:
-		$orgasm_or = 'yes'
-	end
+	if pcs_horny >= 80:$orgasm_or = 'yes'
 
 	'<center><img <<$set_imgh>> src="images/locations/shared/sex/sexdvanadva/cum<<picrand>>.jpg"></center>'
-	'They spill semen all over both of you. You lick it of each other, and share a deep kiss, before you both swallow.'
+	'They spill semen all over both of you. You lick it off each other and share a deep kiss before you both swallow.'
 	
 	gs 'arousal', 'end'
 	gs 'stat'