Explorar el Código

Moved cum location/amount/guy/age/etc. calculations from stat_display to cum_manage

richard_butte hace 4 años
padre
commit
f87beee17b
Se han modificado 2 ficheros con 364 adiciones y 362 borrados
  1. 363 0
      locations/Cum_Manage.qsrc
  2. 1 362
      locations/stat_display.qsrc

+ 363 - 0
locations/Cum_Manage.qsrc

@@ -609,5 +609,368 @@ if $ARGS[0] = 'cumeater':
 	end
 end
 
+if $ARGS[0] = 'cum_stat_display':
+	if Enable_clearcum > 0: gs 'cum_cleanup', 'reset'
+
+	killvar 'cumvolume'
+	killvar 'i'
+	killvar 'knownguy'
+	killvar 'cumcount'
+	killvar 'cumowner'
+
+	if arrsize('sparrvol') > 0:
+		!!go through every location
+		:locationloop
+			!!start from the freshest load
+			idx = arrsize('sparrloc')-1
+			:spermitemloop
+				!!if the currently examined load loaction is the location of the current cycle, execute
+				if sparrloc[idx] = i:
+					!!setting the age of the current load
+					!! 0: mouth
+					!! 1: in this hour
+					!! 2: in four hours
+					!! 3: at least five hours ago
+					!! 4: in body (pussy or ass)
+					!! 5: no more than 12 hours in condom
+					!! 6: no more than 48 hours in condom
+					!! 7: more than two days old, in condom
+					if i = 12:
+						j = 0
+					elseif i = 17:
+						if sparrage[idx] <= 12:
+							j = 5
+						elseif sparrage[idx] <= 48:
+							j = 6
+						else
+							j = 7
+						end
+					elseif i = 0 or i = 3:
+						j = 4
+					else
+						if sparrage[idx] <= 1:
+							j = 1
+						elseif sparrage[idx] <= 5:
+							j = 2
+						else
+							j = 3
+						end
+					end
+
+					cumvolume['<<i>>:<<j>>'] += sparrvol[idx]
+					if sparrvol[idx] > 0:
+						if sparridt[idx] = 0:
+							!!unknown partner
+							cumcount['<<i>>:<<j>>'] += 1
+						elseif sparridt[idx] = 1:
+							!!known partner
+							!!storing the name of the cum owner (format: $cumowner[<cum location>:<age of cum>:<index of cum owner>])
+							if knownguy['<<i>>:<<j>>'] > 0:
+								gchk = 0
+								:sameguycheck
+								if $cumowner['<<i>>:<<j>>:<<gchk>>'] ! $sparrnam[idx] and gchk <= knownguy['<<i>>:<<j>>']:gchk += 1 & jump 'sameguycheck'
+								if gchk > knownguy['<<i>>:<<j>>']:
+									$cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
+									knownguy['<<i>>:<<j>>'] += 1
+									cumcount['<<i>>:<<j>>'] += 1
+								end
+							else
+								$cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
+								knownguy['<<i>>:<<j>>'] += 1
+								cumcount['<<i>>:<<j>>'] += 1
+							end
+						end
+					end
+				end
+			if idx > 0:idx -= 1 & jump 'spermitemloop'
+		if i < 18:i += 1 & jump 'locationloop'
+		killvar 'i'
+		killvar 'idx'
+		killvar 'j'
+	end
+
+	!!Clearing cum location array before positive entries are applied below in the icon and the text message codes
+	killvar 'cumloc'
+
+	$stat_cum_msg = ''
+	$stat_cum_text = ''
+	stat_visible_cum = 0
+	stat_cumloc_check = 0
+
+	i = 0
+	:cumlocloop
+		if i = 0:
+			$icon_txtloc = 'your pussy'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg''">pussy</a>'
+		elseif i = 1:
+			$icon_txtloc = 'your labia'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumpussy/cumpus'+rand(1,4)+'.jpg''">labia</a>'
+		elseif i = 2:
+			$txtloc = 'the front of your panties'
+			$icon_txtloc = $txtloc
+		elseif i = 3:
+			$icon_txtloc = 'your ass'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg''">ass</a>'
+		elseif i = 4:
+			$icon_txtloc = 'your butt'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumass/cumass'+rand(1,6)+'.jpg''">butt</a>'
+		elseif i = 5:
+			$txtloc = 'the back of your panties'
+			$icon_txtloc = $txtloc
+		elseif i = 6:
+
+			$icon_txtloc = 'your clothes near your groin'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/'+rand(1,3)+'.jpg''">clothes near your groin</a>'
+		elseif i = 7:
+			$icon_txtloc = 'your clothes'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/cumclothes'+rand(1,21)+'.jpg''">clothes</a>'
+		elseif i = 8:
+			$txtloc = 'your back'
+			$icon_txtloc = $txtloc
+		elseif i = 9:
+			$txtloc = 'your legs'
+			$icon_txtloc = $txtloc
+		elseif i = 10:
+			$txtloc = 'your arms'
+			$icon_txtloc = $txtloc
+		elseif i = 11:
+			if pcs_haircol = 0:
+				$cum_face_image = 'brown/'
+				$cum_face_image += rand(1, 31)
+			elseif pcs_haircol = 1:
+				$cum_face_image = 'black/'
+				$cum_face_image += rand(1, 23)
+			elseif pcs_haircol = 2:
+				$cum_face_image = 'red/'
+				$cum_face_image += rand(1, 19)
+			elseif pcs_haircol = 3:
+				$cum_face_image = 'blonde/'
+				$cum_face_image += rand(1, 25)
+			elseif pcs_haircol > 3:
+				$cum_face_image = 'custom/'
+				$cum_face_image += rand(1, 20)
+			end
+			$icon_txtloc = 'your face'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumface/<<$cum_face_image>>.jpg''">face</a>'
+			killvar 'cum_face_image'
+		elseif i = 13:
+			$txtloc = 'your hands'
+			$icon_txtloc = $txtloc
+		elseif i = 14:
+			$icon_txtloc = 'your stomach'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach</a>'
+		elseif i = 15:
+			$icon_txtloc = 'your breasts'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumtits/cumtits'+rand(1,19)+'.jpg''">breasts</a>'
+		elseif i = 16:
+			$icon_txtloc = 'your hair'
+			$txtloc = 'your hair</a>'
+		elseif i = 17:
+			$txtloc = 'in your vagina in a slipped condom'
+			$icon_txtloc = $txtloc
+		else
+			$icon_txtloc = 'the gusset of your panties'
+			$txtloc = 'the gusset of your panties</a>'
+		end
+
+		j = 0
+		:ageloop
+			if cumvolume['<<i>>:<<j>>'] > 0:
+				!!Cum locations set for checking npc reactions
+				cumloc[i] = 1
+				cumvol[i] = cumvolume['<<i>>:<<j>>']
+				if stat_cumloc_check ! 1 and i ! 12: stat_cumloc_check = 1
+				!!amount setting
+				if cumvolume['<<i>>:<<j>>'] > 250:
+					!! 25 ml, about four-five load, gushing
+					$txtamount = 'Enormous '
+				elseif cumvolume['<<i>>:<<j>>'] > 100:
+					!! 10 ml, about two load, flowing
+					$txtamount = 'Huge '
+				elseif cumvolume['<<i>>:<<j>>'] >= 20:
+					!! 2 ml, seeping out
+					$txtamount = 'Decent '
+				else
+					!! residue amount, no leakage
+					$txtamount = 'Small '
+				end
+
+				!! if sperm age stage is 4, it means inside the body
+				if j = 4:
+					if (vibratorIN = 1 and i = 0) or (analplugin = 1 and i = 3):
+						$txtproxy = 'being plugged in '
+					elseif i = 0 and cumvolume['<<i>>:<<j>>'] < pcs_vag*5:
+						$txtproxy = 'staying inside of '
+					elseif i = 3 and pcs_ass <= 25:
+						$txtproxy = 'staying inside of '
+					else
+						if cumvolume['<<i>>:<<j>>'] > 250:
+							$txtproxy = 'gushing out of '
+						elseif cumvolume['<<i>>:<<j>>'] > 100:
+							$txtproxy = 'flowing out of '
+						elseif cumvolume['<<i>>:<<j>>'] >= 40:
+							$txtproxy = 'seeping out of '
+						else
+							$txtproxy = 'staying inside of '
+						end
+					end
+				elseif j >= 5:
+				!! if sperm age stage is over 4, meaning in condom
+					if j = 5:
+						$txtproxy = 'buried '
+					elseif j = 6:
+						$txtproxy = 'marinating '
+					else
+						$txtproxy = 'rotting '
+					end
+					if cumcondslip_deep > (vagina / 2): $txtproxy += 'deep '
+				elseif j < 4 and j > 0:
+					!!amount setting
+					if cumvolume['<<i>>:<<j>>'] > 160:
+						!! 10 ml, about two load, flowing
+						$txtproxy = 'coating '
+					elseif cumvolume['<<i>>:<<j>>'] > 40:
+						!! 2 ml, seeping out
+						$txtproxy = 'covering '
+					else
+						!! residue amount, no leakage
+						$txtproxy = 'spattering '
+					end
+					if j = 1:
+						$txtproxy += 'wetly '
+					elseif j = 2:
+						$txtproxy += 'dryly '
+					else
+						$txtproxy += 'powderly '
+					end
+				end
+
+				$txtperson = ''
+				if cumcount['<<i>>:<<j>>'] = 0:
+	!!ToDo: No idea how to do the icon here (julzor)
+					$txtiscum = 'some whitish substance '
+				else
+					$txtiscum = 'cum'
+					if cumcount['<<i>>:<<j>>'] = knownguy['<<i>>:<<j>>']:
+					!! everyone is known (one or more)
+						if knownguy['<<i>>:<<j>>'] = 1:
+							$txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' '
+						else
+							kmax = 0
+							:nullocator1
+							if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator1'
+							kmax -= 1
+							k = 0
+							:knownloop
+								$txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']]
+							if k < kmax-1:$txtperson += ', ' & k += 1 & jump 'knownloop'
+							k += 1
+							$txtperson += ' and ' + $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ' '
+						end
+					elseif knownguy['<<i>>:<<j>>'] = 0:
+					!! no one is known (one or more)
+						if cumcount['<<i>>:<<j>>'] = 1:
+							$txtperson += 'some guy '
+						else
+							$txtperson += 'some guys '
+						end
+					else
+					!! there are known and unknown guys in the mix
+						if knownguy['<<i>>:<<j>>'] = 1:
+							$txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' and some guy'
+						else
+							kmax = 0
+							:nullocator2
+							if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator2'
+							kmax -= 1
+							k = 0
+							:mixloop
+								$txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ', '
+							if k < kmax: k += 1 & jump 'mixloop'
+							$txtperson += 'and some guy'
+						end
+						if cumcount['<<i>>:<<j>>'] - knownguy['<<i>>:<<j>>'] > 1:
+							$txtperson += 's '
+						else
+							$txtperson += ' '
+						end
+					end
+				end
+				$icon_txtiscum = $txtiscum
+				if j <= 4 and trt_cumeater = 1 and $txtiscum = 'cum': $txtiscum = '<a href="exec:gs ''cum_manage'', ''cumeater'', <<i>>"><font color=#0064FF>' + $txtiscum + '</font></a>'
+				$txtiscum += ' from '
+				$icon_txtiscum += ' from '
+				if i = 0 and j = 4 and vibratorIN = 0 and pcs_vag*10 < cumvolume['<<i>>:<<j>>'] and cumvolume['<<i>>:<<j>>'] >= 20:
+					$stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + iif($pantyworntype ! 'none', ' into your panties.', ' down your legs.')+'</font></b>'
+					if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
+					$stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + iif($pantyworntype ! 'none', ' into your panties.', ' down your legs.')
+				elseif sparragestage >= 5:
+					if cumcondslip_aware > 0: $stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
+					if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
+					$stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + '.'
+				elseif j ! 0:
+					$stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
+					if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
+					$stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + '.'
+				else
+					$stat_cum_text += '<BR><b><font color="red">Your breath smells like sperm.</font></b>'
+					if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
+					$stat_cum_msg += 'Your breath smells like sperm.'
+				end
+			end
+		if j < 7: j+=1 & jump 'ageloop'
+	if i < 18: i+=1 & jump 'cumlocloop'
+	killvar 'i'
+	killvar 'j'
+	killvar 'txtperson'
+	killvar 'k'
+	killvar 'kmax'
+	killvar 'txtamount'
+	killvar 'txtiscum'
+	killvar '$icon_txtiscum'
+	killvar 'txtperson'
+	killvar 'txtproxy'
+	killvar 'txtloc'
+	killvar '$icon_txtloc'
+	killvar 'cumvolume'
+	killvar 'cumcount'
+	killvar 'knownguy'
+	killvar 'cumowner'
+
+	$stat_visible_cum_temp = ''
+	$stat_visible_cum_msg = ''
+
+	if cumloc[6] = 1 or cumloc[7] = 1 or cumloc[11] = 1 or cumloc[13] = 1 or cumloc[16] = 1:
+		if cumloc[6] = 1:
+			stat_visible_cum = 1
+			if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
+			$stat_visible_cum_temp += 'your clothes near your groin'
+		end
+		if cumloc[7] = 1:
+			stat_visible_cum = 1
+			if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
+			$stat_visible_cum_temp += 'your clothes'
+		end
+		if cumloc[11] = 1:
+			stat_visible_cum = 1
+			if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
+			$stat_visible_cum_temp += 'your face'
+		end
+		if cumloc[13] = 1:
+			stat_visible_cum = 1
+			if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
+			$stat_visible_cum_temp += 'your hands'
+		end
+		if cumloc[16] = 1:
+			stat_visible_cum = 1
+			if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
+			$stat_visible_cum_temp += 'your hair'
+		end
+
+		$stat_visible_cum_msg = 'People can see the cum on '+ $stat_visible_cum_temp + '.'
+	end
+
+end
+
 --- Cum_Manage ---------------------------------
 

+ 1 - 362
locations/stat_display.qsrc

@@ -668,368 +668,7 @@ end
 $stat_img_temp = func('$body_image','clothes')
 $stat_clothes_msg += '<br><img src="<<$stat_img_temp>>">'
 
-!!------ Cum management (Start) -------
-
-if Enable_clearcum > 0: gs 'cum_cleanup', 'reset'
-
-killvar 'cumvolume'
-killvar 'i'
-killvar 'knownguy'
-killvar 'cumcount'
-killvar 'cumowner'
-
-if arrsize('sparrvol') > 0:
-	!!go through every location
-	:locationloop
-		!!start from the freshest load
-		idx = arrsize('sparrloc')-1
-		:spermitemloop
-			!!if the currently examined load loaction is the location of the current cycle, execute
-			if sparrloc[idx] = i:
-				!!setting the age of the current load
-				!! 0: mouth
-				!! 1: in this hour
-				!! 2: in four hours
-				!! 3: at least five hours ago
-				!! 4: in body (pussy or ass)
-				!! 5: no more than 12 hours in condom
-				!! 6: no more than 48 hours in condom
-				!! 7: more than two days old, in condom
-				if i = 12:
-					j = 0
-				elseif i = 17:
-					if sparrage[idx] <= 12:
-						j = 5
-					elseif sparrage[idx] <= 48:
-						j = 6
-					else
-						j = 7
-					end
-				elseif i = 0 or i = 3:
-					j = 4
-				else
-					if sparrage[idx] <= 1:
-						j = 1
-					elseif sparrage[idx] <= 5:
-						j = 2
-					else
-						j = 3
-					end
-				end
-
-				cumvolume['<<i>>:<<j>>'] += sparrvol[idx]
-				if sparrvol[idx] > 0:
-					if sparridt[idx] = 0:
-						!!unknown partner
-						cumcount['<<i>>:<<j>>'] += 1
-					elseif sparridt[idx] = 1:
-						!!known partner
-						!!storing the name of the cum owner (format: $cumowner[<cum location>:<age of cum>:<index of cum owner>])
-						if knownguy['<<i>>:<<j>>'] > 0:
-							gchk = 0
-							:sameguycheck
-							if $cumowner['<<i>>:<<j>>:<<gchk>>'] ! $sparrnam[idx] and gchk <= knownguy['<<i>>:<<j>>']:gchk += 1 & jump 'sameguycheck'
-							if gchk > knownguy['<<i>>:<<j>>']:
-								$cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
-								knownguy['<<i>>:<<j>>'] += 1
-								cumcount['<<i>>:<<j>>'] += 1
-							end
-						else
-							$cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
-							knownguy['<<i>>:<<j>>'] += 1
-							cumcount['<<i>>:<<j>>'] += 1
-						end
-					end
-				end
-			end
-		if idx > 0:idx -= 1 & jump 'spermitemloop'
-	if i < 18:i += 1 & jump 'locationloop'
-	killvar 'i'
-	killvar 'idx'
-	killvar 'j'
-end
-
-!!Clearing cum location array before positive entries are applied below in the icon and the text message codes
-killvar 'cumloc'
-
-$stat_cum_msg = ''
-$stat_cum_text = ''
-stat_visible_cum = 0
-stat_cumloc_check = 0
-
-i = 0
-:cumlocloop
-	if i = 0:
-		$icon_txtloc = 'your pussy'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg''">pussy</a>'
-	elseif i = 1:
-		$icon_txtloc = 'your labia'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumpussy/cumpus'+rand(1,4)+'.jpg''">labia</a>'
-	elseif i = 2:
-		$txtloc = 'the front of your panties'
-		$icon_txtloc = $txtloc
-	elseif i = 3:
-		$icon_txtloc = 'your ass'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg''">ass</a>'
-	elseif i = 4:
-		$icon_txtloc = 'your butt'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumass/cumass'+rand(1,6)+'.jpg''">butt</a>'
-	elseif i = 5:
-		$txtloc = 'the back of your panties'
-		$icon_txtloc = $txtloc
-	elseif i = 6:
-
-		$icon_txtloc = 'your clothes near your groin'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/'+rand(1,3)+'.jpg''">clothes near your groin</a>'
-	elseif i = 7:
-		$icon_txtloc = 'your clothes'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/cumclothes'+rand(1,21)+'.jpg''">clothes</a>'
-	elseif i = 8:
-		$txtloc = 'your back'
-		$icon_txtloc = $txtloc
-	elseif i = 9:
-		$txtloc = 'your legs'
-		$icon_txtloc = $txtloc
-	elseif i = 10:
-		$txtloc = 'your arms'
-		$icon_txtloc = $txtloc
-	elseif i = 11:
-		if pcs_haircol = 0:
-			$cum_face_image = 'brown/'
-			$cum_face_image += rand(1, 31)
-		elseif pcs_haircol = 1:
-			$cum_face_image = 'black/'
-			$cum_face_image += rand(1, 23)
-		elseif pcs_haircol = 2:
-			$cum_face_image = 'red/'
-			$cum_face_image += rand(1, 19)
-		elseif pcs_haircol = 3:
-			$cum_face_image = 'blonde/'
-			$cum_face_image += rand(1, 25)
-		elseif pcs_haircol > 3:
-			$cum_face_image = 'custom/'
-			$cum_face_image += rand(1, 20)
-		end
-		$icon_txtloc = 'your face'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumface/<<$cum_face_image>>.jpg''">face</a>'
-		killvar 'cum_face_image'
-	elseif i = 13:
-		$txtloc = 'your hands'
-		$icon_txtloc = $txtloc
-	elseif i = 14:
-		$icon_txtloc = 'your stomach'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach</a>'
-	elseif i = 15:
-		$icon_txtloc = 'your breasts'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumtits/cumtits'+rand(1,19)+'.jpg''">breasts</a>'
-	elseif i = 16:
-		$icon_txtloc = 'your hair'
-		$txtloc = 'your hair</a>'
-	elseif i = 17:
-		$txtloc = 'in your vagina in a slipped condom'
-		$icon_txtloc = $txtloc
-	else
-		$icon_txtloc = 'the gusset of your panties'
-		$txtloc = 'the gusset of your panties</a>'
-	end
-
-	j = 0
-	:ageloop
-		if cumvolume['<<i>>:<<j>>'] > 0:
-			!!Cum locations set for checking npc reactions
-			cumloc[i] = 1
-			if stat_cumloc_check ! 1 and i ! 12: stat_cumloc_check = 1
-			!!amount setting
-			if cumvolume['<<i>>:<<j>>'] > 250:
-				!! 25 ml, about four-five load, gushing
-				$txtamount = 'Enormous '
-			elseif cumvolume['<<i>>:<<j>>'] > 100:
-				!! 10 ml, about two load, flowing
-				$txtamount = 'Huge '
-			elseif cumvolume['<<i>>:<<j>>'] >= 20:
-				!! 2 ml, seeping out
-				$txtamount = 'Decent '
-			else
-				!! residue amount, no leakage
-				$txtamount = 'Small '
-			end
-
-			!! if sperm age stage is 4, it means inside the body
-			if j = 4:
-				if (vibratorIN = 1 and i = 0) or (analplugin = 1 and i = 3):
-					$txtproxy = 'being plugged in '
-				elseif i = 0 and cumvolume['<<i>>:<<j>>'] < pcs_vag*5:
-					$txtproxy = 'staying inside of '
-				elseif i = 3 and pcs_ass <= 25:
-					$txtproxy = 'staying inside of '
-				else
-					if cumvolume['<<i>>:<<j>>'] > 250:
-						$txtproxy = 'gushing out of '
-					elseif cumvolume['<<i>>:<<j>>'] > 100:
-						$txtproxy = 'flowing out of '
-					elseif cumvolume['<<i>>:<<j>>'] >= 40:
-						$txtproxy = 'seeping out of '
-					else
-						$txtproxy = 'staying inside of '
-					end
-				end
-			elseif j >= 5:
-			!! if sperm age stage is over 4, meaning in condom
-				if j = 5:
-					$txtproxy = 'buried '
-				elseif j = 6:
-					$txtproxy = 'marinating '
-				else
-					$txtproxy = 'rotting '
-				end
-				if cumcondslip_deep > (vagina / 2): $txtproxy += 'deep '
-			elseif j < 4 and j > 0:
-				!!amount setting
-				if cumvolume['<<i>>:<<j>>'] > 160:
-					!! 10 ml, about two load, flowing
-					$txtproxy = 'coating '
-				elseif cumvolume['<<i>>:<<j>>'] > 40:
-					!! 2 ml, seeping out
-					$txtproxy = 'covering '
-				else
-					!! residue amount, no leakage
-					$txtproxy = 'spattering '
-				end
-				if j = 1:
-					$txtproxy += 'wetly '
-				elseif j = 2:
-					$txtproxy += 'dryly '
-				else
-					$txtproxy += 'powderly '
-				end
-			end
-
-			$txtperson = ''
-			if cumcount['<<i>>:<<j>>'] = 0:
-!!ToDo: No idea how to do the icon here (julzor)
-				$txtiscum = 'some whitish substance '
-			else
-				$txtiscum = 'cum'
-				if cumcount['<<i>>:<<j>>'] = knownguy['<<i>>:<<j>>']:
-				!! everyone is known (one or more)
-					if knownguy['<<i>>:<<j>>'] = 1:
-						$txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' '
-					else
-						kmax = 0
-						:nullocator1
-						if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator1'
-						kmax -= 1
-						k = 0
-						:knownloop
-							$txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']]
-						if k < kmax-1:$txtperson += ', ' & k += 1 & jump 'knownloop'
-						k += 1
-						$txtperson += ' and ' + $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ' '
-					end
-				elseif knownguy['<<i>>:<<j>>'] = 0:
-				!! no one is known (one or more)
-					if cumcount['<<i>>:<<j>>'] = 1:
-						$txtperson += 'some guy '
-					else
-						$txtperson += 'some guys '
-					end
-				else
-				!! there are known and unknown guys in the mix
-					if knownguy['<<i>>:<<j>>'] = 1:
-						$txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' and some guy'
-					else
-						kmax = 0
-						:nullocator2
-						if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator2'
-						kmax -= 1
-						k = 0
-						:mixloop
-							$txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ', '
-						if k < kmax: k += 1 & jump 'mixloop'
-						$txtperson += 'and some guy'
-					end
-					if cumcount['<<i>>:<<j>>'] - knownguy['<<i>>:<<j>>'] > 1:
-						$txtperson += 's '
-					else
-						$txtperson += ' '
-					end
-				end
-			end
-			$icon_txtiscum = $txtiscum
-			if j <= 4 and trt_cumeater = 1 and $txtiscum = 'cum': $txtiscum = '<a href="exec:gs ''cum_manage'', ''cumeater'', <<i>>"><font color=#0064FF>' + $txtiscum + '</font></a>'
-			$txtiscum += ' from '
-			$icon_txtiscum += ' from '
-			if i = 0 and j = 4 and vibratorIN = 0 and pcs_vag*10 < cumvolume['<<i>>:<<j>>'] and cumvolume['<<i>>:<<j>>'] >= 20:
-				$stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + iif($pantyworntype ! 'none', ' into your panties.', ' down your legs.')+'</font></b>'
-				if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
-				$stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + iif($pantyworntype ! 'none', ' into your panties.', ' down your legs.')
-			elseif sparragestage >= 5:
-				if cumcondslip_aware > 0: $stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
-				if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
-				$stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + '.'
-			elseif j ! 0:
-				$stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
-				if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
-				$stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + '.'
-			else
-				$stat_cum_text += '<BR><b><font color="red">Your breath smells like sperm.</font></b>'
-				if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
-				$stat_cum_msg += 'Your breath smells like sperm.'
-			end
-		end
-	if j < 7: j+=1 & jump 'ageloop'
-if i < 18: i+=1 & jump 'cumlocloop'
-killvar 'i'
-killvar 'j'
-killvar 'txtperson'
-killvar 'k'
-killvar 'kmax'
-killvar 'txtamount'
-killvar 'txtiscum'
-killvar '$icon_txtiscum'
-killvar 'txtperson'
-killvar 'txtproxy'
-killvar 'txtloc'
-killvar '$icon_txtloc'
-killvar 'cumvolume'
-killvar 'cumcount'
-killvar 'knownguy'
-killvar 'cumowner'
-
-$stat_visible_cum_temp = ''
-$stat_visible_cum_msg = ''
-
-if cumloc[6] = 1 or cumloc[7] = 1 or cumloc[11] = 1 or cumloc[13] = 1 or cumloc[16] = 1:
-	if cumloc[6] = 1:
-		stat_visible_cum = 1
-		if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
-		$stat_visible_cum_temp += 'your clothes near your groin'
-	end
-	if cumloc[7] = 1:
-		stat_visible_cum = 1
-		if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
-		$stat_visible_cum_temp += 'your clothes'
-	end
-	if cumloc[11] = 1:
-		stat_visible_cum = 1
-		if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
-		$stat_visible_cum_temp += 'your face'
-	end
-	if cumloc[13] = 1:
-		stat_visible_cum = 1
-		if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
-		$stat_visible_cum_temp += 'your hands'
-	end
-	if cumloc[16] = 1:
-		stat_visible_cum = 1
-		if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
-		$stat_visible_cum_temp += 'your hair'
-	end
-
-	$stat_visible_cum_msg = 'People can see the cum on '+ $stat_visible_cum_temp + '.'
-end
-
-!!------ Cum management (End) ------
+gs 'cum_manage', 'cum_stat_display'
 
 $stat_bfgf_msg_0 = ''
 $stat_bfgf_tooltip_0 = ''