1
0
Преглед на файлове

[fixed] in sexdvanadva, (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 (sexdvarand). (1) and (2) cut this file from 175 to 106 lines

Spackled Lanturn преди 3 години
родител
ревизия
d50531ac36
променени са 1 файла, в които са добавени 11 реда и са изтрити 80 реда
  1. 11 80
      locations/sexdvanadva.qsrc

+ 11 - 80
locations/sexdvanadva.qsrc

@@ -14,140 +14,71 @@ 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.'
 
 		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.'
 		
 		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 off each other and share a deep kiss before you both swallow.'