Undid earlier change with gs call to cum_manage, moved and changed cumeatercleanup to argument in cum_cleanup.

locations/cum_cleanup

@@ -322,5 +322,17 @@ spdirtyb = 0
 spdirtyc = 0
 spdirtyf = 0
 
+if $ARGS[0] = 'cumeatercleanup':
+	KILLVAR 'spafinloc',temp
+	KILLVAR 'sparrage',temp
+	KILLVAR 'sparrloc',temp
+	KILLVAR '$sparrnam',temp
+	KILLVAR 'sparrppt',temp
+	KILLVAR 'sparridt',temp
+	KILLVAR 'sparrvol',temp
+	KILLVAR 'sparrslc',temp
+	cumsumbod -= sparrvol[temp]
+end
+
 --- cum_cleanup ---------------------------------
 

locations/stat

@@ -1242,8 +1242,6 @@ if Enable_fbreath > 0:
 end
 }
 
-gs 'cum_manage', 'cumeater'
-
 $clear_write = {
 	body_write = 0
 	face_write = 0
@@ -1270,7 +1268,297 @@ if body_write > 0 and face_write > 0:
 	end
 end
 
-gs 'cum_manage', 'statcall'
+$temp[1] = {
+	if sparridt[temp1arr] = 1:
+		temp2arr = temp1arr + 1
+		temp3arr = arrpos(temp2arr,'sparrloc',i)
+		if temp3arr > 0 and sparrvol[temp3arr] > 0 and sparrloc[temp3arr] = i and $sparrnam[temp3arr] ! $sparrnam[temp1arr]:
+			$cumtemp[1] = 'Multiple men'
+		else
+			$cumtemp[1] = $sparrnam[temp1arr]
+		end
+	else
+		$cumtemp[1] = 'Somebody'
+	end
+	if sparrage[temp1arr] < temp[2]:
+		$cumtemp[2] = 'fresh '
+	elseif sparrage[temp1arr] < temp[3]:
+		$cumtemp[2] = ''
+	else
+		temp[4] = sparrloc[temp1arr]
+		if temp[4] ! 0 and temp ! 3:
+			$cumtemp[2] = 'crusty '
+		else
+			$cumtemp[2] = 'stale '
+		end
+	end
+}
+temp = arrsize('sparrvol')
+if temp > 0:
+	!{index for use in dynamic}
+	i = 0
+	!{values for fresh and crusty, only updated where needed}
+	temp[2] = 4
+	temp[3] = 10
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		$cumtemp[3] = 'fills your '
+		if sparrslc[temp1arr] > 0:
+			$cumtemp[3] = 'slowly flows from your '
+			spdirtyn = 1
+		elseif sparrslc[temp] > 0 and sparrloc[temp] = 0:
+			$cumtemp[3] = 'slowly flows from your '
+			spdirtyn = 1
+		end
+		if swallow >= 10:
+			pl '<a href="exec:view''images/body/cumpussy.jpg''"><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',0) & 'gs 'cum_manage', 'cumeater2''"><b><font color="blue">sperm</font></b></a><b> <<$cumtemp[3]>>pussy</font></b></a>.'
+		else
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm <<$cumtemp[3]>><a href="exec:view''images/body/cumpussy.jpg''">pussy</a>.</font></b>'
+		end
+		spdirty = 1
+		spdirtyi = 1
+	end
+	i = 1
+	temp[2] = 1
+	temp[3] = 5
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',1) & 'gs 'cum_manage', 'cumeater2''"><b><font color="blue">sperm</font></b></a><b> is smeared across your pussy lips.</font></b>.'
+		else
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your pussy lips.'
+		end
+		spdirty = 1
+		spdirtyn = 1
+	end
+	i = 2
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',2) & 'gs 'cum_manage', 'cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your panties.</font></b>.'
+		else
+			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the crotch of your panties.'
+		end
+		spdirtyc = 1
+	end
+	i = 3
+	temp[2] = 4
+	temp[3] = 10
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if analplugin = 1:
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is stuffed in your ass, corked in by your anal plug.</font></b>'
+		else
+			$cumtemp[3] = 'fills your '
+			if sparrslc[temp1arr] > 0:
+				$cumtemp[3] = 'slowly flows from your '
+				spdirtyn = 1
+			elseif sparrslc[temp] > 0 and sparrloc[temp] = 3:
+				$cumtemp[3] = 'slowly flows from your '
+				spdirtyn = 1
+			end
+			if swallow >= 10:
+				pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',3) & 'gs 'cum_manage', 'cumeater6''"><b><font color="blue">sperm</font></b></a><b> <<$cumtemp[3]>><a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
+			else
+				pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm <<$cumtemp[3]>><a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
+			end
+		end
+		spdirty = 1
+		spdirtyi = 1
+	end
+	i = 4
+	temp[2] = 1
+	temp[3] = 5
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',4) & 'gs 'cum_manage', 'cumeater3''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumass.jpg''">ass</a>.</font></b>.'
+		else
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumass.jpg''">ass</a>.'
+		end
+		spdirty = 1
+		spdirtyn = 1
+	end
+	i = 5
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',5) & 'gs 'cum_manage', 'cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the ass of your panties.</font></b>.'
+		else
+			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the ass of your panties.'
+		end
+		spdirtyc = 1
+	end
+	i = 6
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',6) & 'gs 'cum_manage', 'cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>.'
+		else
+			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the crotch of your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.'
+		end
+		spdirtyc = 1
+	end
+	i = 7
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',7) & 'gs 'cum_manage', 'cumeater5''"><b><font color="blue">semen</font></b></a><b> stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>.'
+		else
+			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.'
+		end
+		spdirtyc = 1
+	end
+	i = 8
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',8) & 'gs 'cum_manage', 'cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your back.</font></b>.'
+		else
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your back.'
+		end
+		spdirty = 1
+		spdirtyn = 1
+	end
+	i = 9
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',9) & 'gs 'cum_manage', 'cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your legs.</font></b>.'
+		else
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your legs.'
+		end
+		spdirty = 1
+		spdirtyn = 1
+	end
+	i = 10
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',10) & 'gs 'cum_manage', 'cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your arms.</font></b>.'
+		else
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your arms.'
+		end
+		spdirty = 1
+		spdirtyn = 1
+	end
+	i = 11
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',11) & 'gs 'cum_manage', 'cumeater4''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumface.jpg''">face</a>.</font></b>.'
+		else
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumface.jpg''">face</a>.'
+		end
+		spdirty = 1
+		spdirtyn = 1
+		spdirtyv = 1
+	end
+	i = 12
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		pl '<b><font color="red">Your mouth smells like <<$cumtemp[1]>>''s sperm.</a>.'
+		spdirty = 1
+		spdirtyb = 1
+		fbreath = 0
+	end
+	i = 13
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',13) & 'gs 'cum_manage', 'cumeater8''"><b><font color="blue">sperm</font></b></a><b> is smeared across your hands.</font></b>.'
+		else
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your hands.'
+		end
+		spdirty = 1
+		spdirtyn = 1
+		spdirtyv = 1
+		spdirtyf = 1
+	end
+	i = 14
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',14) & 'gs 'cum_manage', 'cumeater1''"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a>.</font></b>.'
+		else
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a>.'
+		end
+		spdirty = 1
+		spdirtyn = 1
+	end
+	i = 15
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',15) & 'gs 'cum_manage', 'cumeater7''"><b><font color="blue">sperm</font></b></a><b> is smeared across your breasts.</font></b>.'
+		else
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your breasts.'
+		end
+		spdirty = 1
+		spdirtyn = 1
+	end
+	i = 16
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		dynamic $temp[1]
+		if swallow >= 10 and sparrage[temp1arr] < 5:
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',16) & 'gs 'cum_manage', 'cumeater9''"><b><font color="blue">sperm</font></b></a><b> is smeared in your hair.</font></b>.'
+		else
+			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared in your hair.'
+		end
+		spdirty = 1
+		spdirtyn = 1
+		spdirtyv = 1
+	end
+	i = 17
+	temp1arr = arrpos('sparrloc',i)
+	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
+		if sparridt[temp1arr] = 1:
+			$cumtemp[1] = $sparrnam[temp1arr]
+		else
+			$cumtemp[1] = 'Somebody'
+		end
+		if sparrage[temp1arr] < 1:
+			$cumtemp[2] = 'freshly buried'
+		elseif sparrage[temp1arr] < 13:
+			$cumtemp[2] = 'buried'
+		else
+			$cumtemp[2] = 'marinating '
+		end
+		pl '<b><font color="red">A spent condom full of <<$cumtemp[1]>>''s sperm is <<$cumtemp[2]>> deep in your vagina.'
+		spdirty = 1
+		spdirtyi = 1
+	end
+end
+!{should kill all temp values}
+killvar '$temp'
+killvar '$cumtemp'
+temp1arr = 0
+temp2arr = 0
+temp3arr = 0
+cumfrot = 0
+cumpussy = 0
+cumbelly = 0
+cumass = 0
+cumlip = 0
+cumface = 0
+cumanus = 0
 
 if $clothingworntype = 'nude' and lactatemess > 0:
 	if lactatemess < 3: