glife/sugarcube/src/autogenerated/unsorted/Cum_Manage.tw

:: cum_manage
<<set $here = 'cum_manage'>>
<<set $ARGS = $location_var[$here]>>
<<info "Deactivated: cum_manage">>
::cum_manage_deactivated
<!-- !!-->
<!-- !!	THIS IS A CORE FILE TO GAME MECHANICS. Please edit CAREFULLY, and leave as many comments as possible!!-->
<!-- !!-->
<!-- !!	The comments in this file serve as tutorial to managing cum/sperm during scene writing and game-play. Please read them.-->
<!-- !!-->
<!-- !!	spafinloc and cum array naming takes precident over other naming schemes. Always import and export variables by their cum array names-->
<!-- !!-->
<!-- !!-------------------------------------------------------------------------------------------------------------->
<!-- !!-->
<!-- !!	Cum Array indices:-->
<!-- !!-->
<!-- !!	cumarrnam : Sperm Owner-->
<!-- !!	cumarrppt : Sperm Potential Potency (max sperm delivery)-->
<!-- !!	cumarrcpt : Sperm Current Potency	(current amount of sperm)-->
<!-- !!	cumarrdel : Sperm "Delivery" (method of *VAGINAL ONLY* acquisition)-->
<!-- !!	cumarrcon :	Contraception typ used-->
<!-- !!	cumarrage : Sperm age in hours-->
<!-- !!	cumarrkno : Did you know/realize who did it?-->
<!-- !!	cumarrcnt : Unique identifier of the exact which time the MC has had this sperm incident occur.-->
<!-- !!-->
<!-- !!-->
<!-- !!-->
<!-- !!	Spatter Array indices:-->
<!-- !!-->
<!-- !!	sparrloc : Location of the sperm, as per cumarrdel-->
<!-- !!	sparrnam : Spatter Owner-->
<!-- !!	sparrppt : Spatter Potential Potency (Used to increase potency if you don't clean yourself out)-->
<!-- !!	sparridt : Did you know/realize who did it?-->
<!-- !!	sparrvol : Volume of the spatter. 40 is average.-->
<!-- !!	sparrslc : Spread status of the spatter. High volume can spread the contaminant from it's starting place.-->
<!-- !!	sparrcnt : Unique identifier of the exact which time the MC has had this spatter incident occur.-->
<!-- !!-->
<!-- !!-->
<!-- !!-->
<!-- !!	Values of 'cumarrdel' as defined by the cum_arr:-->
<!-- !!-->
<!-- !!	cumarrdel = 0 : 'Vaginal intercourse'-->
<!-- !!	cumarrdel = 1 : 'From spatter on labia'-->
<!-- !!	cumarrdel = 2 : 'From the anal area'-->
<!-- !!	cumarrdel = 3 : 'From sperm on clothing'-->
<!-- !!	cumarrdel = 4 : 'From sperm on fingers'-->
<!-- !!	cumarrdel = 5 : 'From sperm on wipes'-->
<!-- !!	cumarrdel = 6 : 'Unknown'-->
<!-- !!-->
<!-- !!-->
<!-- !!-->
<!-- !!	Values of 'cumarrcon' as defined by the cum_arr:-->
<!-- !!-->
<!-- !!	cumarrcon = 0: 'No contraception used'-->
<!-- !!	cumarrcon = 1: 'You lied about being on the pill'-->
<!-- !!	cumarrcon = 2: 'You were on the pill'-->
<!-- !!	cumarrcon = 3: 'You used a condom'-->
<!-- !!	cumarrcon = 4: 'The condom broke'-->
<!-- !!	cumarrcon = 5: 'The condom slipped off inside you'-->
<!-- !!	cumarrcon = 6: 'The condom was sabotaged by someone else'-->
<!-- !!	cumarrcon = 7: 'You sabotaged the condom'-->
<!-- !!	cumarrcon = 8: 'Precum had sperm in it'-->
<!-- !!	cumarrcon = 9: 'You believe are sterile'-->
<!-- !!-->
<!-- !!-->
<!-- !!-->
<!-- !!	Values of 'cumarrkno' as defined by the cum_arr:-->
<!-- !!-->
<!-- !!	cumarrkno = -2 : 'You were unaware there was sperm in you'-->
<!-- !!	cumarrkno = -1 : 'You do not think that any sperm has gotten into you'-->
<!-- !!	cumarrkno =  0 : 'You know somebody got sperm in you, but you don't know that person'-->
<!-- !!	cumarrkno =  1 : 'You know who got sperm in you'-->
<!-- !!-->
<!-- !!	Setting for no STD checks-->
<!-- !!-->
<!-- !!	cumnostd = 1 : No risk of STD, resets at end of file so must be used for all related cum_management calls-->
<!-- !!-->
<!-- !!	Locations to be defined by 'spafinloc'-->
<!-- !!-->
<!-- !!	0 = 'In your Vagina'-->
<!-- !!	1 = 'On your labia'-->
<!-- !!	2 = 'On your panties over your vagina'-->
<!-- !!	3 = 'In your anus'-->
<!-- !!	4 = 'On your butt'-->
<!-- !!	5 = 'On your panties over your butt'-->
<!-- !!	6 = 'On your clothes in your groin area'-->
<!-- !!	7 = 'On your clothes'-->
<!-- !!	8 = 'On your back'-->
<!-- !!	9 = 'On your legs'-->
<!-- !!	10 = 'On your arms'-->
<!-- !!	11 = 'On your face'-->
<!-- !!	12 = 'Inside your mouth'-->
<!-- !!	13 = 'On your hands'-->
<!-- !!	14 = 'On your stomach'-->
<!-- !!	15 = 'On your breasts'-->
<!-- !!	16 = 'In your hair'-->
<!-- !!	17 = 'In a condom in your vagina'-->
<!-- !!-->
<!-- !!-------------------------------------------------------------------------------------------------------------->
<<if !$location_var[$here][0]>>
	<!-- !!{ Debug information, comment out in release versions. } -->
	<!-- !!	'<br><b><font color="red">cum_manage</font> called with: spafinloc=<<spafinloc>> cumarrkno=<<cumarrkno>> cummarrcon=<<cumarrcon>> cumarrdel=<<cumarrdel>></b>'-->
	<!-- !!{ We count every time somebody cum on or inside the MC. It is used for spatter and cum matching in femcyc} -->
	<<run $pc.sexStatInc('cum_count','aware',1)>>
	<<set $condom_break = 0>>
	<!-- !!{	Here we define our important variables.} -->
	<<set $dick = $npcs.get($boy,'dick')>>
	<<if getvar("$sexvolume") <= 0>>
		<<set $sexvolume = 40>>

	<</if>>
	<<if getvar("$sexspecpot") == 0>>
		<<set $sexspecpot = $npcs.get($boy,'spermpot')>>

	<</if>>
	<<if getvar("$sexspecpot") == 0>>
		<<set $sexspecpot = sexvolume * rand(250, 300)>>

	<</if>>
	<<if getvar("$sexspecpot") < 0>>
		<<set $sexspecpot = 0>>

	<</if>>
	<<if $pc.vibratorin == 1 and getvar("$spafinloc") == 0 and getvar("$replace_vib") == 0>>
		<<set $pc.vibratorin = 0>>

	<</if>>
	<<if getvar("$pc.analplugin") == 1 and getvar("$spafinloc") == 3 and getvar("$replace_analplug") == 0>>
		<<set $pc.analplugin = 0>>

	<</if>>
	<!-- !!{	Set the cum array temp to the current size of the cum array to add a new entry to the end of file. Then checks to see if you are on the pill. If you are and there is no contraception used, it flags this as a "done with pill" act, which means a pregnancy will be a pill failure.} -->
	<<set $cumarrtemp = arrsize('$cumarrnam')>>
	<<if getvar("$sexcontra") == 0 and getvar("$pillcon2") > 1000>>
		<<set $sexcontra = 2>>

	<</if>>
	<!-- !!{Check for previous deposit, and if it was by the same guy and precum, it sets cumarrtemp back by one} -->
	<!-- !!	if $cumarrnam[cumarrtemp-1] = $boy and cumarrkno[cumarrtemp-1] = -1:cumarrtemp -= 1 & sexspecpot = cumarrppt[$cumarrtemp]-->
	<<if getvar("$cumprecheck") == 1 and getvar("$cumnostd") == 0>>
		<<setinit $cumarrkno[$cumarrtemp] = -1>>
		<<gs 'dinSex' 'std_trigger'>>
	<<elseif getvar("$sexunaware") > 0>>
		<<setinit $cumarrkno[$cumarrtemp] = -2>>
	<<elseif getvar("$sexpartkno") == 1>>
		<<setinit $cumarrkno[$cumarrtemp] = 1>>
	<<else>>
		<<setinit $cumarrkno[$cumarrtemp] = 0>>
	<</if>>
	<!-- !!{ If a condom slipped in the vagina, it will pushed deeper inside the vagina during vaginal sex.} -->
	<<if getvar("$spafinloc") <= 0 and getvar("$cumcondslip") > 0>>
		<<if $dick > $cumcondslip_deep>>
			<<set $cumcondslip_deep = dick + rand(0,2)>>
		<<else>>
			<<set $cumcondslip_deep += rand(0,2)>>
		<</if>>
	<</if>>
	<<set $sparrtemp = arrsize('sparrvol')>>
	<!-- !!{	Check to see if this is flagged as a preejaculate emmission. All vaginal penetrations that flag this as cumprecheck contain preejaculate. Guidelines for calling it: If your boy is likely to have masterbated, had sex, or otherwise encouraged semen to leak out of their urethra in the last 48 hours, they probably have some fertile preejaculate. If in doubt, let it leak. The chances of pregnancy from it are low, and the MC should have been wearing protection.} -->
	<<if getvar("$cumprecheck") != 1>>
		<!-- !!{	Here it checks for anal deposit and increments anal creampie variable.} -->
		<<if getvar("$spafinloc") == 3>>
			<<if getvar("$sexunaware") == 1 or getvar("$sexcontra") == 6>>
				<<set $pcs_acp_unknown += 1>>
			<<else>>
				<<set $pcs_acp_known += 1>>
			<</if>>
		<</if>>
		<!-- !!{	Here it checks for vaginal deposit.} -->
		<<if getvar("$spafinloc") <= 0>>
			<!-- !!{	Next it sets the variables in the array. The cumming boys name is first and cum age to 0.
			!!	The cum delivery location is set to vaginally, and we check to see if this is an unknowing sex act.
			!!	If it is, it makes it so the MC doesn''t know who did it.
			!!	If the boy has a custom specified potency 'sexspecpot', it flags the potency. Otherwise it sets it to the default.
			!!	Default potency potential is generated from a random multiplier of sexvolume.
			!!	Sexvolume defaults to 40 (4 mL), but may be overwritten with 'sexvolume'.} -->
			<<setinit $cumarrnam[$cumarrtemp] = $boy>>
			<<setinit $cumarrage[$cumarrtemp] = 0>>
			<<setinit $cumarrdel[$cumarrtemp] = 0>>
			<<setinit $cumarrcnt[$cumarrtemp] = $pc.sexStat('cum_count')>>
			<<setinit $cumarrppt[$cumarrtemp] = $sexspecpot>>
			<!-- !!{	Now it sets up the splatter and actual internal cum.
			!!	First it sets the array to the spatter end of file.	Then it checks for riding bareback.
			!!	If theres a condom, it gives a chance for the condom to fail in general, slip off and remain in the vagina, or break.} -->
			<<if getvar("$sexcontra") > 2>>
				<<if getvar("$noprotect") == 1>>
					<<set $noprotect = 0>> <<set $sexcontra = 4>>

				<</if>>
				<<if getvar("$sexcontra") == 3>>
					<<set $temprand = rand(0,1000)>>
					<<set $dick_wid = 3>>
					<<if $dick_girth == 'skinny'>>
						<<set $dick_wid = 2>>

					<</if>>
					<<if $dick_girth == 'slim'>>
						<<set $dick_wid = 3>>

					<</if>>
					<<if $dick_girth == 'well proportioned'>>
						<<set $dick_wid = 3>>

					<</if>>
					<<if $dick_girth == 'thicker than average'>>
						<<set $dick_wid = 4>>

					<</if>>
					<<if $dick_girth == 'thick'>>
						<<set $dick_wid = 4>>

					<</if>>
					<<if $dick_girth == 'massive'>>
						<<set $dick_wid = 5>>

					<</if>>
					<<if $dick_girth == 'monstrous'>>
						<<set $dick_wid = 6>>

					<</if>>
					<<set $break_thresh = $dick_wid * 2>>
					<<set $break_thresh -= $pc.pcs_vag / 4>>
					<<set $break_thresh += $dick / 4>>
					<<set $slip_thresh = 36 - ($dick_wid * 2)>>
					<<set $slip_thresh -= ($pc.pcs_vag / 2)>>
					<<set $slip_thresh -= $dick / 2>>
					<<if getvar("$break_thresh") < 1>>
						<<set $break_thresh = 1>>

					<</if>>
					<<if getvar("$slip_thresh") < 4>>
						<<set $slip_thresh = 4>>

					<</if>>
					<<set $break_thresh += $slip_thresh>>
					<<set $slip_thresh = 0>>
					<<if getvar("$temprand") == 0>>
						<<setinit $cumarrcpt[$cumarrtemp] += $cumarrppt[$cumarrtemp] / 4>>
						<<setinit $cumarrcon[$cumarrtemp] = 3>>
					<<elseif $temprand <= $break_thresh>>
						<<setinit $cumarrcpt[$cumarrtemp] += $cumarrppt[$cumarrtemp] / 2>>
						<<setinit $cumarrcon[$cumarrtemp] = 4>>
						<<set $sexcontra = 4>>
						<<setinit $sparrage[$sparrtemp] = 0>>
						<<setinit $sparrloc[$sparrtemp] = 0>>
						<<setinit $sparrnam[$sparrtemp] = $boy>>
						<<setinit $sparrcnt[$sparrtemp] = $pc.sexStat('cum_count')>>
						<<setinit $sparrppt[$sparrtemp] = $sexspecpot>>
						<<setinit $sparrvol[$sparrtemp] += $sexvolume>>
						<<set $cumsumbod += $sexvolume>>
						<<set $cumsumvag += $sexvolume>>
						<<set $condom_break = 1>>
						<<run $pc.sexStatInc('broken_condoms','aware',1)>>
						<<run $pc.sexStatSet('last_broken_condom','aware',$time.daystart)>>
						<<setinit $sparridt[$sparrtemp] = $cumarrkno[$cumarrtemp]>>
						<<setinit $sparrslc[$sparrtemp] = 0>>
						<<ferteggfather>>
					<<else>>
						<<setinit $cumarrcpt[$cumarrtemp] += 5>>
						<<setinit $cumarrcon[$cumarrtemp] = 3>>
					<</if>>
					<!-- !!{	Next it checks to see if the event is calling specifically for a burst or slipped off condom.
					!!	It treats them the same as if the condom above had a failure.} -->
				<<elseif getvar("$sexcontra") == 4>>
					<<setinit $cumarrcpt[$cumarrtemp] += $cumarrppt[$cumarrtemp] / 2>>
					<<setinit $cumarrcon[$cumarrtemp] = 4>>
					<<setinit $sparrage[$sparrtemp] = 0>>
					<<setinit $sparrloc[$sparrtemp] = 0>>
					<<setinit $sparrnam[$sparrtemp] = $boy>>
					<<setinit $sparrcnt[$sparrtemp] = $pc.sexStat('cum_count')>>
					<<setinit $sparrppt[$sparrtemp] = $sexspecpot>>
					<<setinit $sparrvol[$sparrtemp] += $sexvolume>>
					<<set $cumsumbod += $sexvolume>>
					<<set $cumsumvag += $sexvolume>>
					<<set $condom_break = 1>>
					<<setinit $sparridt[$sparrtemp] = $cumarrkno[$cumarrtemp]>>
					<<setinit $sparrslc[$sparrtemp] = 0>>
					<<ferteggfather>>
				<<elseif getvar("$sexcontra") == 5>>
					<<setinit $cumarrcpt[$cumarrtemp] += $cumarrppt[$cumarrtemp] / 200>>
					<<setinit $cumarrcon[$cumarrtemp] = 5>>
					<<set $cumcondslip = 1>>
					<<set $cumcondsanb = $cumarrtemp>>
					<<setinit $sparrage[$sparrtemp] = 0>>
					<<setinit $sparrloc[$sparrtemp] = 17>>
					<<setinit $sparrnam[$sparrtemp] = $boy>>
					<<setinit $sparrcnt[$sparrtemp] = $pc.sexStat('cum_count')>>
					<<setinit $sparrppt[$sparrtemp] = $sexspecpot>>
					<<setinit $sparrvol[$sparrtemp] += $sexvolume>>
					<<set $cumsumbod += $sexvolume>>
					<<set $cumsumvag += $sexvolume>>
					<<setinit $sparridt[$sparrtemp] = $cumarrkno[$cumarrtemp]>>
					<<setinit $sparrslc[$sparrtemp] = 0>>
					<<set $cumcondslip += 1>>
					<<if getvar("$cumcondslip_deep") <= 0>>
						<<set $cumcondslip_deep = rand(1, dick)>>

					<</if>>
					<<if getvar("$sparridt["+$sparrtemp+"]") >= 0>>
						<<set $cumcondslip_aware = 1>>

					<</if>>
					<<ferteggfather>>
					<!-- !!{	Next, check for sabotaged condoms. First sabotaged by you, then sabotaged by the guy.
					!!	If they were sabotaged, it acts similar to a condom failure, but worse.} -->
				<<elseif getvar("$sexcontra") == 6>>
					<<setinit $cumarrcpt[$cumarrtemp] += $cumarrppt[$cumarrtemp] / 3>>
					<<setinit $cumarrcon[$cumarrtemp] = 6>>
				<<elseif getvar("$sexcontra") == 7>>
					<<setinit $cumarrcpt[$cumarrtemp] += $cumarrppt[$cumarrtemp] / 3>>
					<<setinit $cumarrcon[$cumarrtemp] = 7>>
					<<ferteggfather>>
				<</if>>
				<!-- !!{	If you have no protection, you get a nice, full load of semen.} -->
			<<else>>
				<<setinit $sparrage[$sparrtemp] = 0>>
				<<setinit $sparrloc[$sparrtemp] = 0>>
				<<setinit $sparrnam[$sparrtemp] = $boy>>
				<<setinit $sparrcnt[$sparrtemp] = $pc.sexStat('cum_count')>>
				<<setinit $sparrppt[$sparrtemp] = $sexspecpot>>
				<<setinit $sparrvol[$sparrtemp] += $sexvolume>>
				<<set $cumsumbod += $sexvolume>>
				<<set $cumsumvag += $sexvolume>>
				<<setinit $sparridt[$sparrtemp] = $cumarrkno[$cumarrtemp]>>
				<<setinit $sparrslc[$sparrtemp] = 0>>
				<<setinit $cumarrcpt[$cumarrtemp] += $cumarrppt[$cumarrtemp] / 5 * 4>>
				<<setinit $cumarrcon[$cumarrtemp] = $sexcontra>>
				<<ferteggfather>>
			<</if>>
			<!-- !! creampie vaginal statistics:-->
			<<if getvar("$spafinloc") == 0>>
				<<run $pc.sexStatSet('last_creampie','aware',$time.daystart)>>
				<!-- !!STD checks-->
				<<if getvar("$cumnostd") == 0>>
					<<gs 'dinSex' 'std_trigger'>>

				<</if>>
				<!-- !! safe creampie (if cycle > 3 or on pill or succubus):-->
				<<if getvar("$cycle") > 3 or getvar("$birth_control['safe']") == 1 or getvar("$succubusflag") == 1>>
					<<if getvar("$sexunaware") == 1 or getvar("$sexcontra") == 6>>
						<<set $pcs_cp_safe_unknown += 1>>
					<<else>>
						<<set $pcs_cp_safe_known += 1>>
					<</if>>
					<!-- !! pretty safe creampie (if cycle = 3 or cycle = 0):-->
				<<elseif getvar("$cycle") == 0 or getvar("$cycle") == 3>>
					<<if getvar("$sexunaware") == 1 or getvar("$sexcontra") == 6>>
						<<set $pcs_cp_notsafe_unknown += 1>>
					<<else>>
						<<set $pcs_cp_notsafe_known += 1>>
					<</if>>
					<!-- !! risky creampie (not on pill, fertile part of the cycle):-->
				<<else>>
					<<if getvar("$sexunaware") == 1 or getvar("$sexcontra") == 6>>
						<<set $pcs_cp_risky_unknown += 1>>
					<<else>>
						<<set $pcs_cp_risky_known += 1>>
					<</if>>
				<</if>>
			<</if>>
			<!-- !!{	If you arent getting it in the vagina, and the boy isnt pumping it into a condom, a spatter is made and applied.
			!!	If you arent wearing any panties and it was called to hit your panties, it goes directly to your groin.
			!!	If you are naked and it calls for a clothing strike, it will go to your body instead.} -->
		<<elseif getvar("$spafinloc") > 0 and getvar("$sexcontra") < 3>>
			<<setinit $sparrage[$sparrtemp] = 0>>
			<<setinit $sparrcnt[$sparrtemp] = $pc.sexStat('cum_count')>>
			<<if $wardrobe.pantyworntype == 'none'>>
				<<if getvar("$spafinloc") == 2>>
					<<set $spafinloc = 1>>
				<<elseif getvar("$spafinloc") == 5>>
					<<set $spafinloc = 4>>
				<</if>>
			<</if>>
			<<if $wardrobe.clothingworntype == 'nude'>>
				<<if getvar("$spafinloc") == 2>>
					<<set $spafinloc = 1>>
				<<elseif getvar("$spafinloc") == 5>>
					<<set $spafinloc = 4>>
				<<elseif getvar("$spafinloc") == 6>>
					<<if rand(0,1) == 0>>
						<<set $spafinloc = 1>>
					<<else>>
						<<set $spafinloc = 4>>
					<</if>>
				<<elseif getvar("$spafinloc") == 7>>
					<<if rand(0,1) == 0>>
						<<set $spafinloc = 14>>
					<<else>>
						<<set $spafinloc = 15>>
					<</if>>
				<</if>>
			<</if>>
			<<setinit $sparrloc[$sparrtemp] = $spafinloc>>
			<<if getvar("$spafinloc") == 12 and $pc.pcs_breath == 1>>
				<<set $pc.pcs_breath = 0>>

			<</if>>
			<<if getvar("$spafinloc") == 12 and getvar("$swallow") >= 10 and rand(0,3) == 0>>
				<<setn $pc.pcs_energy += 2>> <<setn $pc.pcs_hydra += 1>>

			<</if>>
			<<setinit $sparrnam[$sparrtemp] = $boy>>
			<<setinit $sparrppt[$sparrtemp] = $sexspecpot>>
			<<setinit $sparrvol[$sparrtemp] += $sexvolume>>
			<<set $cumsumbod += $sexvolume>>
			<<if getvar("$spafinloc") == 3>>
				<<set $cumsumass += $sexvolume>>
			<</if>>
			<<setinit $sparridt[$sparrtemp] = $cumarrkno[$cumarrtemp]>>
			<<setinit $sparrslc[$sparrtemp] = 0>>
		<</if>>
		<<if $cumarrppt[$cumarrtemp] < $cumarrcpt[$cumarrtemp]>>
			<<setinit $cumarrcpt[$cumarrtemp] = $cumarrppt[$cumarrtemp]>>

		<</if>>
		<<set $sexpartkno = 0>>
		<<set $sexunaware = 0>>
		<!-- !!{	And this is the pre ejaculate release talked about above.} -->
	<<elseif getvar("$sexcontra") < 3 and getvar("$spafinloc") == 0>>
		<<setinit $cumarrnam[$cumarrtemp] = $boy>>
		<<setinit $cumarrcnt[$cumarrtemp] = $pc.sexStat('cum_count')>>
		<<setinit $cumarrppt[$cumarrtemp] = $sexspecpot>>
		<<setinit $cumarrage[$cumarrtemp] = 0>>
		<<setinit $cumarrdel[$cumarrtemp] = 0>>
		<<setinit $cumarrcon[$cumarrtemp] = $sexcontra>>
		<<setinit $cumarrcpt[$cumarrtemp] += $cumarrppt[$cumarrtemp] / 12>>
		<<if $cumarrppt[$cumarrtemp] < $cumarrcpt[$cumarrtemp]>>
			<<setinit $cumarrcpt[$cumarrtemp] = $cumarrppt[$cumarrtemp]>>

		<</if>>
	<</if>>
	<!-- !!STD from anal check-->
	<<if getvar("$spafinloc") == 3 and getvar("$cumnostd") == 0>>
		<<gs 'dinSex' 'std_trigger'>>

	<</if>>
	<!-- !!STD from oral check-->
	<<if getvar("$spafinloc") == 12 and getvar("$cumnostd") == 0>>
		<<gs 'dinSex' 'std_trigger_oral'>>

	<</if>>
	<<set $cumprecheck = 0>>
	<<set $spafinloc = 0>>
	<<set $sexvolume = 0>>
	<<din_Update_Condom_Counts>>
	<<if getvar("$cumsumass") >= 60>>
		<<set $arrmodtmp = arrpos('sparrloc',3)>>
		<<if getvar("$sparrslc["+$arrmodtmp+"]") <= 0>>
			<<setinit $sparrslc[$arrmodtmp] += 1>>

		<</if>>
	<</if>>
	<<if getvar("$cumsumvag") >= 60>>
		<<set $arrmodtmp = arrpos('sparrloc',0)>>
		<<if getvar("$sparrslc["+$arrmodtmp+"]") <= 0>>
			<<setinit $sparrslc[$arrmodtmp] += 1>>

		<</if>>
	<</if>>
	<<set $sexspecpot to null>>
	<<set $cumnostd to null>>
<</if>>
<<if $location_var[$here][0] == 'cumgather'>>
	<<set $cloc = $ARGS[1]>>
	<<set $i = arrpos('sparrloc', cloc)>>
	<<if getvar("$i") != -1 and $i < arrsize('sparrloc')>>
		<<if getvar("$cloc") == 0>>
			<<set $part = 'pussy'>>
		<<elseif getvar("$cloc") == 1>>
			<<set $part = 'pussylips'>>
		<<elseif getvar("$cloc") == 2 or getvar("$cloc") == 5>>
			<<set $part = 'your panties'>>
		<<elseif getvar("$cloc") == 3>>
			<<set $part = 'anus'>>
		<<elseif getvar("$cloc") == 4>>
			<<set $part = 'buttocks'>>
		<<elseif getvar("$cloc") == 6 or getvar("$cloc") == 7>>
			<<set $part = 'clothes'>>
		<<elseif getvar("$cloc") == 8>>
			<<set $part = 'back'>>
		<<elseif getvar("$cloc") == 9>>
			<<set $part = 'legs'>>
		<<elseif getvar("$cloc") == 10>>
			<<set $part = 'arms'>>
		<<elseif getvar("$cloc") == 11>>
			<<run $pc.sexStatInc('cum_facial','aware',1)>>
			<<set $part = 'face'>>
		<<elseif getvar("$cloc") == 14>>
			<<set $part = 'stomach'>>
		<<elseif getvar("$cloc") == 15>>
			<<set $part = 'breasts'>>
		<<elseif getvar("$cloc") == 16>>
			<<set $part = 'hair'>>
		<<else>>
			<<set $part = 'unknown'>>
		<</if>>
		<<if $inventory.get("wipe") > 0>>
			<<run $inventory.dec('wipe',1)>>
			<<set $time.minutes += 5>>
			<p>You use a wipe to clean the sperm from your $part.</p>
			<<gs 'cum_cleanup' 'cleanloc' $cloc>>
		<</if>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'cumeater_icon'>>
	<<set $j = 0>>
	<<warn 'JUMP MARKER ENCOUNTERED: :cumeater_icon_jump'>>
	<<if getvar("$cumloc["+$j+"]") > 0 and getvar("$j") != 12>>
		<<gs 'cum_manage' 'cumeater' $j>>

	<</if>>
	<<if getvar("$j") < 17>>
		<<setn $j += 1>>

	<</if>>
<</if>>
<<if $location_var[$here][0] == 'cumeater'>>
	<<set $cloc = $ARGS[1]>>
	<<set $i = arrpos('sparrloc', cloc)>>
	<<if getvar("$i") != -1 and $i < arrsize('sparrloc')>>
		<<setinit $pc.cumAtLocation(12) = 1>>
		<<set $pc.pcs_breath = 0>>
		<<set $part = ''>>
		<<if getvar("$cloc") == 13>>
			<<gs 'cum_cleanup' 'cleanloc' $cloc>>
			You carefully lick the sperm residue from both hands, enjoying the tart taste of semen.
		<<else>>
			<<if getvar("$cloc") == 0>>
				<<set $part = 'pussy'>>
			<<elseif getvar("$cloc") == 1>>
				<<set $part = 'pussylips'>>
			<<elseif getvar("$cloc") == 2 or getvar("$cloc") == 5>>
				<<set $part = 'your panties'>>
				<<gs 'cum_cleanup' 'cleanloc' 2>>
				<<gs 'cum_cleanup' 'cleanloc' 5>>
			<<elseif getvar("$cloc") == 3>>
				<<set $part = 'anus'>>
			<<elseif getvar("$cloc") == 4>>
				<<set $part = 'buttocks'>>
			<<elseif getvar("$cloc") == 6 or getvar("$cloc") == 7>>
				<<set $part = 'clothes'>>
				<<gs 'cum_cleanup' 'cleanloc' 6>>
				<<gs 'cum_cleanup' 'cleanloc' 7>>
			<<elseif getvar("$cloc") == 8>>
				<<set $part = 'back'>>
			<<elseif getvar("$cloc") == 9>>
				<<set $part = 'legs'>>
			<<elseif getvar("$cloc") == 10>>
				<<set $part = 'arms'>>
			<<elseif getvar("$cloc") == 11>>
				<<set $part = 'face'>>
			<<elseif getvar("$cloc") == 14>>
				<<set $part = 'stomach'>>
			<<elseif getvar("$cloc") == 15>>
				<<set $part = 'breasts'>>
			<<elseif getvar("$cloc") == 16>>
				<<set $part = 'hair'>>
			<<else>>
				<<set $part = 'unknown'>>
			<</if>>
			<<if rand(0, 1) == 0>>
				<p>You collect a handful of sperm from your $part in your hand and lick it all up, enjoying the tart taste of semen.</p>
			<<else>>
				<p>You collect the sperm from your $part with your fingers and lick them, enjoying the tart taste of semen.</p>
			<</if>>
			<<gs 'cum_cleanup' 'cleanloc' $cloc>>
		<</if>>
		<<set $time.minutes += 2>>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'cum_stat_display'>>
	<<if getvar("$Enable_clearcum") > 0>>
		<<gs 'cum_cleanup' 'reset'>>

	<</if>>
	<<set $cumvolume to null>>
	<<set $i to null>>
	<<set $knownguy to null>>
	<<set $cumcount to null>>
	<<set $cumowner to null>>
	<<if arrsize('sparrvol') > 0>>
		<!-- !!go through every location-->
		<<warn 'JUMP MARKER ENCOUNTERED: :locationloop'>>
		<!-- !!start from the freshest load-->
		<<set $idx = arrsize('sparrloc') - 1>>
		<<warn 'JUMP MARKER ENCOUNTERED: :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 getvar("$i") == 12>>
				<<set $j = 0>>
			<<elseif getvar("$i") == 17>>
				<<if getvar("$sparrage["+$idx+"]") <= 12>>
					<<set $j = 5>>
				<<elseif getvar("$sparrage["+$idx+"]") <= 48>>
					<<set $j = 6>>
				<<else>>
					<<set $j = 7>>
				<</if>>
			<<elseif getvar("$i") == 0 or getvar("$i") == 3>>
				<<set $j = 4>>
			<<else>>
				<<if getvar("$sparrage["+$idx+"]") <= 1>>
					<<set $j = 1>>
				<<elseif getvar("$sparrage["+$idx+"]") <= 5>>
					<<set $j = 2>>
				<<else>>
					<<set $j = 3>>
				<</if>>
			<</if>>
			<<setinit $cumvolume[$i + ':j'] += $sparrvol[$idx]>>
			<<if getvar("$sparrvol["+$idx+"]") > 0>>
				<<if getvar("$sparridt["+$idx+"]") == 0>>
					<!-- !!unknown partner-->
					<<setinit $cumcount[$i + ':j'] += 1>>
				<<elseif getvar("$sparridt["+$idx+"]") == 1>>
					<!-- !!known partner-->
					<!-- !!storing the name of the cum owner (format: $cumowner[<cum location>:<age of cum>:<index of cum owner>])-->
					<!-- FAILED TO CONVERT
						if knownguy['<<i>>:<<j>>'] > 0:
					-----
						<<if $knownguy[$i+'>>
						<!-- FAILED TO CONVERT
	<<j>>'] > 0:
-----
	ERROR: FAILED TO CONVERT LITERAL: """<<j>>'] > 0:"""

-->
<<warn "CONVERSION ERROR 8084e5b6922c3222c070ef6d4cc0c6ed">>

					<</if>>

					-->
					<<warn "CONVERSION ERROR cbaf90e3d30b447997c9add5e0aaaa3b">>
					<<set $gchk = 0>>
					<<warn 'JUMP MARKER ENCOUNTERED: :sameguycheck'>>
					<!-- FAILED TO CONVERT
						if $cumowner['<<i>>:<<j>>:<<gchk>>'] ! $sparrnam[idx] and gchk <= knownguy['<<i>>:<<j>>']:gchk += 1 & jump 'sameguycheck'
					-----
						<<if $cumowner[$i+'>>
						<!-- FAILED TO CONVERT
	<<j>>:<<gchk>>'] ! $sparrnam[$idx] and gchk <= knownguy[$i+':<<j>>']:gchk += 1 & jump 'sameguycheck'
-----
	<<set ERROR: FAILED TO CONVERT LITERAL: """<<j>>:<<gchk>>'] ! $sparrnam[$idx] and gchk <""" = ERROR: FAILED TO CONVERT LITERAL: """knownguy[$i + ':j']:gchk""" + ERROR: FAILED TO CONVERT LITERAL: """= 1""">>

-->
<<warn "CONVERSION ERROR c2c62665d52324b991a4aa6366622858">>

					<</if>>

					-->
					<<warn "CONVERSION ERROR 55b65b19d0cab9016c5ba7ffb0918652">>
					<!-- FAILED TO CONVERT
						if gchk > knownguy['<<i>>:<<j>>']:
					-----
						<<if $gchk > ERROR: FAILED TO CONVERT LITERAL: """knownguy[$i""" + >>
						<!-- FAILED TO CONVERT
	<<j>>']:
-----
	ERROR: FAILED TO CONVERT LITERAL: """<<j>>']:"""

-->
<<warn "CONVERSION ERROR 986b6dd672a501c429756fca171fe117">>

					<</if>>

					-->
					<<warn "CONVERSION ERROR f6c04cf65278d36920de5533bfcc71d6">>
					<<setinit $cumowner[$i + ':j:knownguy[''+$i+':'+$j+'']'] = $sparrnam[$idx]>>
					<<setinit $knownguy[$i + ':j'] += 1>>
					<<setinit $cumcount[$i + ':j'] += 1>>
				<</if>>
			<<else>>
				<<setinit $cumowner[$i + ':j:knownguy[''+$i+':'+$j+'']'] = $sparrnam[$idx]>>
				<<setinit $knownguy[$i + ':j'] += 1>>
				<<setinit $cumcount[$i + ':j'] += 1>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<<if getvar("$idx") > 0>>
	<<setn $idx -= 1>>

<</if>>
<<if getvar("$i") < 18>>
	<<setn $i += 1>>

<</if>>
<<set $i to null>>
<<set $idx to null>>
<<set $j to null>>
<</END>>
<!-- !!Clearing cum location array before positive entries are applied below in the icon and the text message codes-->
<<set $cumloc to null>>
<<set $stat_cum_msg = ''>>
<<set $stat_cum_text = ''>>
<<set $stat_visible_cum = 0>>
<<set $stat_cumloc_check = 0>>
<<set $i = 0>>
<<warn 'JUMP MARKER ENCOUNTERED: :cumlocloop'>>
<<if getvar("$i") == 0>>
	<<set $icon_txtloc = 'your pussy'>>
	<<set $txtloc = 'your <<link "pussy">><</link>>'>>
<<elseif getvar("$i") == 1>>
	<<set $icon_txtloc = 'your labia'>>
	<<set $txtloc = 'your <<link "labia">><</link>>'>>
<<elseif getvar("$i") == 2>>
	<<set $txtloc = 'the front of your panties'>>
	<<set $icon_txtloc = $txtloc>>
<<elseif getvar("$i") == 3>>
	<<set $icon_txtloc = 'your ass'>>
	<<set $txtloc = 'your <<link "ass">><</link>>'>>
<<elseif getvar("$i") == 4>>
	<<set $icon_txtloc = 'your butt'>>
	<<set $txtloc = 'your <<link "butt">><</link>>'>>
<<elseif getvar("$i") == 5>>
	<<set $txtloc = 'the back of your panties'>>
	<<set $icon_txtloc = $txtloc>>
<<elseif getvar("$i") == 6>>
	<<set $icon_txtloc = 'your clothes near your groin'>>
	<<set $txtloc = 'your <<link "clothes near your groin">><</link>>'>>
<<elseif getvar("$i") == 7>>
	<<set $icon_txtloc = 'your clothes'>>
	<<set $txtloc = 'your <<link "clothes">><</link>>'>>
<<elseif getvar("$i") == 8>>
	<<set $txtloc = 'your back'>>
	<<set $icon_txtloc = $txtloc>>
<<elseif getvar("$i") == 9>>
	<<set $txtloc = 'your legs'>>
	<<set $icon_txtloc = $txtloc>>
<<elseif getvar("$i") == 10>>
	<<set $txtloc = 'your arms'>>
	<<set $icon_txtloc = $txtloc>>
<<elseif getvar("$i") == 11>>
	<<if $pc.hairColor == 0>>
		<<set $cum_face_image = 'brown/'>>
		<<set $cum_face_image += rand(1, 31)>>
	<<elseif $pc.hairColor == 1>>
		<<set $cum_face_image = 'black/'>>
		<<set $cum_face_image += rand(1, 23)>>
	<<elseif $pc.hairColor == 2>>
		<<set $cum_face_image = 'red/'>>
		<<set $cum_face_image += rand(1, 19)>>
	<<elseif $pc.hairColor == 3>>
		<<set $cum_face_image = 'blonde/'>>
		<<set $cum_face_image += rand(1, 25)>>
	<<elseif $pc.hairColor > 3>>
		<<set $cum_face_image = 'custom/'>>
		<<set $cum_face_image += rand(1, 20)>>
	<</if>>
	<<set $icon_txtloc = 'your face'>>
	<<set $txtloc = 'your <<link "face">><</link>>'>>
	<<set $cum_face_image to null>>
<<elseif getvar("$i") == 13>>
	<<set $txtloc = 'your hands'>>
	<<set $icon_txtloc = $txtloc>>
<<elseif getvar("$i") == 14>>
	<<set $icon_txtloc = 'your stomach'>>
	<<set $txtloc = 'your <<link "stomach">><</link>>'>>
<<elseif getvar("$i") == 15>>
	<<set $icon_txtloc = 'your breasts'>>
	<<set $txtloc = 'your <<link "breasts">><</link>>'>>
<<elseif getvar("$i") == 16>>
	<<set $icon_txtloc = 'your hair'>>
	<<set $txtloc = 'your hair</a>'>>
<<elseif getvar("$i") == 17>>
	<<set $txtloc = 'in your vagina in a slipped condom'>>
	<<set $icon_txtloc = $txtloc>>
<<else>>
	<<set $icon_txtloc = 'the gusset of your panties'>>
	<<set $txtloc = 'the gusset of your panties</a>'>>
<</if>>
<<set $j = 0>>
<<warn 'JUMP MARKER ENCOUNTERED: :ageloop'>>
<!-- FAILED TO CONVERT
	if cumvolume['<<i>>:<<j>>'] > 0:
-----
	<<if $cumvolume[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>'] > 0:
-----
	ERROR: FAILED TO CONVERT LITERAL: """<<j>>'] > 0:"""

-->
<<warn "CONVERSION ERROR 8084e5b6922c3222c070ef6d4cc0c6ed">>

<</if>>

-->
<<warn "CONVERSION ERROR 58f6309a3d8a0afe2e4288db96cb209c">>
<!-- !!Cum locations set for checking npc reactions-->
<<setinit $cumloc[$i] = 1>>
<<setinit $cumvol[$i] = $cumvolume[$i + ':j']>>
<<if getvar("$stat_cumloc_check") != 1 and getvar("$i") != 12>>
	<<set $stat_cumloc_check = 1>>

<</if>>
<!-- !!amount setting-->
<!-- FAILED TO CONVERT
	if cumvolume['<<i>>:<<j>>'] > 250:
-----
	<<if $cumvolume[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>'] > 250:
-----
	ERROR: FAILED TO CONVERT LITERAL: """<<j>>'] > 250:"""

-->
<<warn "CONVERSION ERROR feb317bfa6af1d190339171ec4afb0ff">>

<</if>>

-->
<<warn "CONVERSION ERROR 964ee9e1dcc20037512b2f8ca9c45d16">>
<!-- !! 25 ml, about four-five load, gushing-->
<<set $txtamount = 'Enormous '>>
<<elseif $cumvolume[$i+'>>
<</if>>
<!-- !! 10 ml, about two load, flowing-->
<<set $txtamount = 'Huge '>>
<<elseif $cumvolume[$i+'>>
<</if>>
<!-- !! 2 ml, seeping out-->
<<set $txtamount = 'Decent '>>
<<else>>
<!-- !! residue amount, no leakage-->
<<set $txtamount = 'Small '>>
<</END>>
<!-- !! if sperm age stage is 4, it means inside the body-->
<<if getvar("$j") == 4>>
	<<if ($pc.vibratorin == 1 and getvar("$i") == 0) or (getvar("$analplugin") == 1 and getvar("$i") == 3)>>
		<<set $txtproxy = 'being plugged in '>>
	<<elseif getvar("$i") == 0 and $cumvolume[$i+'>>
	<</if>>
		<<set $txtproxy = 'staying inside of '>>
	<<elseif getvar("$i") == 3 and $pc.pcs_ass <= 25>>
		<<set $txtproxy = 'staying inside of '>>
	<<else>>
		<!-- FAILED TO CONVERT
			if cumvolume['<<i>>:<<j>>'] > 250:
		-----
			<<if $cumvolume[$i+'>>
			<!-- FAILED TO CONVERT
	<<j>>'] > 250:
-----
	ERROR: FAILED TO CONVERT LITERAL: """<<j>>'] > 250:"""

-->
<<warn "CONVERSION ERROR feb317bfa6af1d190339171ec4afb0ff">>

		<</if>>

		-->
		<<warn "CONVERSION ERROR 964ee9e1dcc20037512b2f8ca9c45d16">>
		<<set $txtproxy = 'gushing out of '>>
	<<elseif $cumvolume[$i+'>>
	<</if>>
		<<set $txtproxy = 'flowing out of '>>
	<<elseif $cumvolume[$i+'>>
	<</if>>
		<<set $txtproxy = 'seeping out of '>>
	<<else>>
		<<set $txtproxy = 'staying inside of '>>
	<</if>>
<</if>>
<<elseif getvar("$j") >= 5>>
<!-- !! if sperm age stage is over 4, meaning in condom-->
<<if getvar("$j") == 5>>
	<<set $txtproxy = 'buried '>>
<<elseif getvar("$j") == 6>>
	<<set $txtproxy = 'marinating '>>
<<else>>
	<<set $txtproxy = 'rotting '>>
<</if>>
<<if $cumcondslip_deep > (vagina / 2)>>
	<<sets $txtproxy += 'deep '>>

<</if>>
<<elseif getvar("$j") < 4 and getvar("$j") > 0>>
<!-- !!amount setting-->
<!-- FAILED TO CONVERT
	if cumvolume['<<i>>:<<j>>'] > 160:
-----
	<<if $cumvolume[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>'] > 160:
-----
	ERROR: FAILED TO CONVERT LITERAL: """<<j>>'] > 160:"""

-->
<<warn "CONVERSION ERROR 65ee44b2b201c966374aef52dd821eae">>

<</if>>

-->
<<warn "CONVERSION ERROR e9c6e11e84c575781605f4735434c28b">>
<!-- !! 10 ml, about two load, flowing-->
<<set $txtproxy = 'coating '>>
<<elseif $cumvolume[$i+'>>
<</if>>
<!-- !! 2 ml, seeping out-->
<<set $txtproxy = 'covering '>>
<<else>>
<!-- !! residue amount, no leakage-->
<<set $txtproxy = 'spattering '>>
<</END>>
<<if getvar("$j") == 1>>
	<<set $txtproxy += 'wetly '>>
<<elseif getvar("$j") == 2>>
	<<set $txtproxy += 'dryly '>>
<<else>>
	<<set $txtproxy += 'powderly '>>
<</if>>
<</END>>
<<set $txtperson = ''>>
<!-- FAILED TO CONVERT
	if cumcount['<<i>>:<<j>>'] = 0:
-----
	<<if $cumcount[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>'] = 0:
-----
	<<set ERROR: FAILED TO CONVERT LITERAL: """<<j>>']""" = ERROR: FAILED TO CONVERT LITERAL: """0:""">>

-->
<<warn "CONVERSION ERROR 2919954522e8e208eaa99782f108c02d">>

<</if>>

-->
<<warn "CONVERSION ERROR 1c8f3bc3c5e88c9953a73ec022da82d6">>
<!-- !!ToDo: No idea how to do the icon here (julzor)-->
<<set $txtiscum = 'some whitish substance '>>
<<else>>
<<set $txtiscum = 'cum'>>
<!-- FAILED TO CONVERT
	if cumcount['<<i>>:<<j>>'] = knownguy['<<i>>:<<j>>']:
-----
	<<if $cumcount[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>'] = knownguy[$i+':<<j>>']:
-----
	<<set ERROR: FAILED TO CONVERT LITERAL: """<<j>>']""" = ERROR: FAILED TO CONVERT LITERAL: """knownguy[$i + ':j']:""">>

-->
<<warn "CONVERSION ERROR 2a6b937c43b3875e9aac7536141988de">>

<</if>>

-->
<<warn "CONVERSION ERROR c0a1eee10fa97efb258ff417ecebdf1f">>
<!-- !! everyone is known (one or more)-->
<!-- FAILED TO CONVERT
	if knownguy['<<i>>:<<j>>'] = 1:
-----
	<<if $knownguy[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>'] = 1:
-----
	<<set ERROR: FAILED TO CONVERT LITERAL: """<<j>>']""" = ERROR: FAILED TO CONVERT LITERAL: """1:""">>

-->
<<warn "CONVERSION ERROR e4b9445675061cefc0b16d7a6012490e">>

<</if>>

-->
<<warn "CONVERSION ERROR 3cd70cdc4e55d3c2b10c42c400e5c70d">>
<!-- FAILED TO CONVERT
	if $npc_usedname[$cumowner['<<i>>:<<j>>:0']] = 'stranger':
-----
	<<if $npcs.get($cumowner[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>:0','usedname')] = 'stranger':
-----
	<<set ERROR: FAILED TO CONVERT LITERAL: """<<j>>:0']]""" = ERROR: FAILED TO CONVERT LITERAL: """'stranger':""">>

-->
<<warn "CONVERSION ERROR 12105a52a57366ebb04696f4949273bd">>

<</if>>

-->
<<warn "CONVERSION ERROR 3c3ac8a421fdca062675bff638f81159">>
<<set $txtperson = $npcs.get($cumowner[$i + ':j:0','firstname')] + ' '>>
<<else>>
<<set $txtperson = $npcs.get($cumowner[$i + ':j:0','usedname')] + ' '>>
<</END>>
<<else>>
<<set $kmax = 0>>
<<warn 'JUMP MARKER ENCOUNTERED: :nullocator1'>>
<!-- FAILED TO CONVERT
	if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator1'
-----
	<<if $cumowner[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator1'
-----
	<<set ERROR: FAILED TO CONVERT LITERAL: """<<j>>:<<kmax>>'] ! '':kmax""" += 1>>

-->
<<warn "CONVERSION ERROR 16a094295854e6e8dc6180ca943d4ff8">>

<</if>>

-->
<<warn "CONVERSION ERROR ec0304ca3f8b12b77019ae6b43496954">>
<<set $kmax -= 1>>
<<set $k = 0>>
<<warn 'JUMP MARKER ENCOUNTERED: :knownloop'>>
<<set $txtperson += $npcs.get($cumowner[$i + ':j:k','usedname')]>>
<<if $k < $kmax - 1>>
	<<sets $txtperson += ', '>> <<setn $k += 1>>

<</if>>
<<set $k += 1>>
<!-- FAILED TO CONVERT
	if $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] = 'stranger':
-----
	<<if $npcs.get($cumowner[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>:<<k>>','usedname')] = 'stranger':
-----
	<<set ERROR: FAILED TO CONVERT LITERAL: """<<j>>:<<k>>']]""" = ERROR: FAILED TO CONVERT LITERAL: """'stranger':""">>

-->
<<warn "CONVERSION ERROR 4e5d448f5f0921e46b36f43cf22a8a3f">>

<</if>>

-->
<<warn "CONVERSION ERROR 389f854f99dadd76fbc64d0509cbe4fa">>
<<set $txtperson += ' and ' + $npcs.get($cumowner[$i + ':j:k','firstname')] + ' '>>
<<else>>
<<set $txtperson += ' and ' + $npcs.get($cumowner[$i + ':j:k','usedname')] + ' '>>
<</END>>
<</END>>
<<elseif $knownguy[$i+'>>
<</if>>
<!-- !! no one is known (one or more)-->
<!-- FAILED TO CONVERT
	if cumcount['<<i>>:<<j>>'] = 1:
-----
	<<if $cumcount[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>'] = 1:
-----
	<<set ERROR: FAILED TO CONVERT LITERAL: """<<j>>']""" = ERROR: FAILED TO CONVERT LITERAL: """1:""">>

-->
<<warn "CONVERSION ERROR e4b9445675061cefc0b16d7a6012490e">>

<</if>>

-->
<<warn "CONVERSION ERROR 12e6586f0500ce116c91194e702302ca">>
<<set $txtperson += 'some guy '>>
<<else>>
<<set $txtperson += 'some guys '>>
<</END>>
<<else>>
<!-- !! there are known and unknown guys in the mix-->
<!-- FAILED TO CONVERT
	if knownguy['<<i>>:<<j>>'] = 1:
-----
	<<if $knownguy[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>'] = 1:
-----
	<<set ERROR: FAILED TO CONVERT LITERAL: """<<j>>']""" = ERROR: FAILED TO CONVERT LITERAL: """1:""">>

-->
<<warn "CONVERSION ERROR e4b9445675061cefc0b16d7a6012490e">>

<</if>>

-->
<<warn "CONVERSION ERROR 3cd70cdc4e55d3c2b10c42c400e5c70d">>
<!-- FAILED TO CONVERT
	if $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] = 'stranger':
-----
	<<if $npcs.get($cumowner[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>:<<k>>','usedname')] = 'stranger':
-----
	<<set ERROR: FAILED TO CONVERT LITERAL: """<<j>>:<<k>>']]""" = ERROR: FAILED TO CONVERT LITERAL: """'stranger':""">>

-->
<<warn "CONVERSION ERROR 4e5d448f5f0921e46b36f43cf22a8a3f">>

<</if>>

-->
<<warn "CONVERSION ERROR 389f854f99dadd76fbc64d0509cbe4fa">>
<<set $txtperson = $npcs.get($cumowner[$i + ':j:0','firstname')] + ' and some guy'>>
<<else>>
<<set $txtperson = $npcs.get($cumowner[$i + ':j:0','usedname')] + ' and some guy'>>
<</END>>
<<else>>
<<set $kmax = 0>>
<<warn 'JUMP MARKER ENCOUNTERED: :nullocator2'>>
<!-- FAILED TO CONVERT
	if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator2'
-----
	<<if $cumowner[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator2'
-----
	<<set ERROR: FAILED TO CONVERT LITERAL: """<<j>>:<<kmax>>'] ! '':kmax""" += 1>>

-->
<<warn "CONVERSION ERROR dd0dc24559ebee17167585b57b3a04c7">>

<</if>>

-->
<<warn "CONVERSION ERROR 6bf0c9136bd1dde3a2da67e71d55ab80">>
<<set $kmax -= 1>>
<<set $k = 0>>
<<warn 'JUMP MARKER ENCOUNTERED: :mixloop'>>
<!-- FAILED TO CONVERT
	if $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] = 'stranger':
-----
	<<if $npcs.get($cumowner[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>:<<k>>','usedname')] = 'stranger':
-----
	<<set ERROR: FAILED TO CONVERT LITERAL: """<<j>>:<<k>>']]""" = ERROR: FAILED TO CONVERT LITERAL: """'stranger':""">>

-->
<<warn "CONVERSION ERROR 4e5d448f5f0921e46b36f43cf22a8a3f">>

<</if>>

-->
<<warn "CONVERSION ERROR 389f854f99dadd76fbc64d0509cbe4fa">>
<<set $txtperson += $npcs.get($cumowner[$i + ':j:k','firstname')] + ', '>>
<<else>>
<<set $txtperson += $npcs.get($cumowner[$i + ':j:k','usedname')] + ', '>>
<</END>>
<<if $k < $kmax>>
	<<setn $k += 1>>
<</if>>
<<set $txtperson += 'and some guy'>>
<</END>>
<!-- FAILED TO CONVERT
	if cumcount['<<i>>:<<j>>'] - knownguy['<<i>>:<<j>>'] > 1:
-----
	<<if $cumcount[$i+'>>
	<!-- FAILED TO CONVERT
	<<j>>'] - knownguy[$i+':<<j>>'] > 1:
-----
	ERROR: FAILED TO CONVERT LITERAL: """<<j>>']""" - ERROR: FAILED TO CONVERT LITERAL: """knownguy[$i + ':j'] > 1:"""

-->
<<warn "CONVERSION ERROR ec1ecce5afce128965dc991738d7cc87">>

<</if>>

-->
<<warn "CONVERSION ERROR 1ee0c6692f3e65e7707d317c2cb0d51b">>
<<set $txtperson += 's '>>
<<else>>
<<set $txtperson += ' '>>
<</END>>
<</END>>
<</END>>
<<set $icon_txtiscum = $txtiscum>>
<<if getvar("$j") <= 4 and $pc.trait('cumeater') == 1 and $txtiscum == 'cum'>>
	<<set $txtiscum = '<a href="exec:gs 'cum_manage', 'cumeater', i"><font color=#0064FF>' + $txtiscum + '</font></a>'>>

<</if>>
<<if $txtperson != ''>>
	<<set $txtperson = ' from ' + $txtperson>>
<</if>>
<!-- FAILED TO CONVERT
	if i = 0 and j = 4 and vibratorin = 0 and pcs_vag*10 < cumvolume['<<i>>:<<j>>'] and cumvolume['<<i>>:<<j>>'] >= 20:
-----
	<<if getvar("$i") == 0 and getvar("$j") == 4 and $pc.vibratorin == 0 and $pc.pcs_vag * 10 < ERROR: FAILED TO CONVERT LITERAL: """cumvolume[$i""" + >>
	<!-- FAILED TO CONVERT
	<<j>>'] and cumvolume[$i+':<<j>>'] >= 20:
-----
	<<set ERROR: FAILED TO CONVERT LITERAL: """<<j>>'] and cumvolume[$i + ':j'] >""" = ERROR: FAILED TO CONVERT LITERAL: """20:""">>

-->
<<warn "CONVERSION ERROR c0c8f72d5471ac70bbc76b1d47bab9a1">>

<</if>>

-->
<<warn "CONVERSION ERROR 06bb85a1beb2db156e898a2e41126f5f">>
<<set $stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + iif($wardrobe.pantyworntype ! 'none', ' into your panties.', ' down your legs.')+'</font></b>'>>
<<if $stat_cum_msg != ''>>
	<<set $stat_cum_msg += '<br>'>>

<</if>>
<<set $stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + iif($wardrobe.pantyworntype ! 'none', ' into your panties.', ' down your legs.')>>
<<elseif getvar("$sparragestage") >= 5>>
<<if getvar("$cumcondslip_aware") > 0>>
	<<set $stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'>>

<</if>>
<<if $stat_cum_msg != ''>>
	<<set $stat_cum_msg += '<br>'>>

<</if>>
<<set $stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + '.'>>
<<elseif getvar("$j") != 0>>
<<set $stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'>>
<<if $stat_cum_msg != ''>>
	<<set $stat_cum_msg += '<br>'>>

<</if>>
<<set $stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + '.'>>
<<else>>
<<set $stat_cum_text += '<BR><b><font color="red">Your mouth has the tangy aftertaste of sperm.</font></b>'>>
<<if $stat_cum_msg != ''>>
	<<set $stat_cum_msg += '<br>'>>

<</if>>
<<set $stat_cum_msg += 'Your mouth has the tangy aftertaste of sperm.'>>
<</END>>
<</END>>
<<if getvar("$j") < 7>>
	<<setn $j += 1>>
<</if>>
<<if getvar("$i") < 18>>
	<<setn $i += 1>>
<</if>>
<<set $i to null>>
<<set $j to null>>
<<set $txtperson to null>>
<<set $k to null>>
<<set $kmax to null>>
<<set $txtamount to null>>
<<set $txtiscum to null>>
<<set $icon_txtiscum to null>>
<<set $txtperson to null>>
<<set $txtproxy to null>>
<<set $txtloc to null>>
<<set $icon_txtloc to null>>
<<set $cumvolume to null>>
<<set $cumcount to null>>
<<set $knownguy to null>>
<<set $cumowner to null>>
<<set $stat_visible_cum_temp = ''>>
<<set $stat_visible_cum_msg = ''>>
<<if $pc.cumAtLocation(6) == 1 or $pc.cumAtLocation(7) == 1 or $pc.cumAtLocation(11) == 1 or $pc.cumAtLocation(13) == 1 or $pc.cumAtLocation(16) == 1>>
	<<if $pc.cumAtLocation(6) == 1>>
		<<set $stat_visible_cum = 1>>
		<<if $stat_visible_cum_temp != ''>>
			<<sets $stat_visible_cum_temp += ', '>>

		<</if>>
		<<set $stat_visible_cum_temp += 'your clothes near your groin'>>
	<</if>>
	<<if $pc.cumAtLocation(7) == 1>>
		<<set $stat_visible_cum = 1>>
		<<if $stat_visible_cum_temp != ''>>
			<<sets $stat_visible_cum_temp += ', '>>

		<</if>>
		<<set $stat_visible_cum_temp += 'your clothes'>>
	<</if>>
	<<if $pc.cumAtLocation(11) == 1>>
		<<set $stat_visible_cum = 1>>
		<<if $stat_visible_cum_temp != ''>>
			<<sets $stat_visible_cum_temp += ', '>>

		<</if>>
		<<set $stat_visible_cum_temp += 'your face'>>
	<</if>>
	<<if $pc.cumAtLocation(13) == 1>>
		<<set $stat_visible_cum = 1>>
		<<if $stat_visible_cum_temp != ''>>
			<<sets $stat_visible_cum_temp += ', '>>

		<</if>>
		<<set $stat_visible_cum_temp += 'your hands'>>
	<</if>>
	<<if $pc.cumAtLocation(16) == 1>>
		<<set $stat_visible_cum = 1>>
		<<if $stat_visible_cum_temp != ''>>
			<<sets $stat_visible_cum_temp += ', '>>

		<</if>>
		<<set $stat_visible_cum_temp += 'your hair'>>
	<</if>>
	<<set $stat_visible_cum_msg = 'People can see the cum on '+ $stat_visible_cum_temp + '.'>>
<</if>>
<<setinit $cum_loc['vagina'] = $pc.cumAtLocation(0)>>
<<setinit $cum_loc['labia'] = $pc.cumAtLocation(1)>>
<<setinit $cum_loc['panty_front'] = $pc.cumAtLocation(2)>>
<<setinit $cum_loc['anus'] = $pc.cumAtLocation(3)>>
<<setinit $cum_loc['butt'] = $pc.cumAtLocation(4)>>
<<setinit $cum_loc['panty_back'] = $pc.cumAtLocation(5)>>
<<setinit $cum_loc['clothes_groin'] = $pc.cumAtLocation(6)>>
<<setinit $cum_loc['clothes'] = $pc.cumAtLocation(7)>>
<<setinit $cum_loc['back'] = $pc.cumAtLocation(8)>>
<<setinit $cum_loc['legs'] = $pc.cumAtLocation(9)>>
<<setinit $cum_loc['arms'] = $pc.cumAtLocation(10)>>
<<setinit $cum_loc['face'] = $pc.cumAtLocation(11)>>
<<setinit $cum_loc['mouth'] = $pc.cumAtLocation(12)>>
<<setinit $cum_loc['hands'] = $pc.cumAtLocation(13)>>
<<setinit $cum_loc['stomach'] = $pc.cumAtLocation(14)>>
<<setinit $cum_loc['tits'] = $pc.cumAtLocation(15)>>
<<setinit $cum_loc['hair'] = $pc.cumAtLocation(16)>>
<<setinit $cum_loc['condom_in_pussy'] = $pc.cumAtLocation(17)>>
<</END>>