2 次代码提交 6e8c947bfe ... d50531ac36

作者 SHA1 备注 提交日期
  Spackled Lanturn d50531ac36 [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 3 年之前
  Spackled Lanturn c868909499 [text edit] clean up sexdvanadva 3 年之前
共有 1 个文件被更改,包括 14 次插入83 次删除
  1. 14 83
      locations/sexdvanadva.qsrc

+ 14 - 83
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'