[fixed] Very old style cum calls updated and so gosubs I made into gotos in error in last commit

locations/podrsex.qsrc

@@ -81,7 +81,7 @@ if $ARGS[0] = 'pussy':
 	if sexvar > 0:
 		xgt 'podrsex', 'var'
 	else
-		gt 'podrsex', 'end'
+		gs 'podrsex', 'end'
 	end
 end
 
@@ -116,7 +116,7 @@ if $ARGS[0] = 'ass':
 	if sexvar > 0:
 		xgt 'podrsex', 'var'
 	else
-		gt 'podrsex', 'end'
+		gs 'podrsex', 'end'
 	end
 end
 
@@ -153,7 +153,7 @@ if $ARGS[0] = 'voy':
 	if sexvar > 0:
 		xgt 'podrsex', 'var'
 	else
-		gt 'podrsex', 'end'
+		gs 'podrsex', 'end'
 	end
 end
 

locations/sex.qsrc

@@ -169,29 +169,21 @@ if $ARGS[0] = 'end':
 	killvar 'dick'
 
 	if pos = 1:
-		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.'
+		gs 'cum_call', 'mouth_swallow', $boy, 1
 	elseif pos = 2:
-		spafinloc = 9
 		'Stroking himself while he pleasures you, he groans loudly, spraying his seed on the floor. Some of it splatters against your feet as well.'
+		gs 'cum_call', 'feet', $boy, 1
 	elseif pos = 3:
-		spafinloc = 0
-		cuminside = 1
 		'He groans loudly, spraying his seed deep inside your pussy.'
+		gs 'cum_call', '', $boy, 1
+		gs 'cuminsidereact'
 	else
-		spafinloc = 3
 		'He groans loudly, spraying his seed deep inside your ass.'
+		gs 'cum_call', 'anus', $boy, 1
 	end
-	gs 'cum_manage'
-	if pcs_horny >= 80:
-		pcs_horny = 0
-		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: killvar 'cuminside' & gs 'cuminsidereact'
 
 	gs 'arousal', 'end'
-
 	gs 'stat'
 	act 'Leave':
 		if picrand >= 54 and picrand <= 73: killvar 'picrand' & gt 'office', 'work'