glife/sugarcube/src/autogenerated/Functions/fertility.tw

:: fertility
<<set $here = 'fertility'>>
<<set $ARGS = $location_var[$here]>>
<<if $location_var[$here][0] == 'birth_control'>>
	<!-- !!-------------------------------------------------------------------------------------------------------------->
	<!-- !!	Birth control-->
	<!-- !!-------------------------------------------------------------------------------------------------------------->
	<!-- !!	Birth Control Management variables-->
	<!-- !!-->
	<!-- !!	tabletkimm		: The modifier for the current mood of the MC.-->
	<!-- !!	tabletkiap		: Autopill factor affecting the liklihood you took your pill as you should have-->
	<!-- !!	tabletkipt		: Pill Dicipline Take increase-->
	<!-- !!	tabletkipi		: Pill Dicipline Dont take increase-->
	<!-- !!	tabletkicpd		: Current MC Pill Dicipline-->
	<!-- !!	tabletkichday	: Current day that the Birth Control is being evaluated for-->
	<!-- !!	tabletkicheck	: If the birth control from shot (2) or pill (1)-->
	<!-- !!	tabletki		: How many packages of Birth Control Pills there are-->
	<!-- !!	tabletkiold		: Total number packages of expired pills-->
	<!-- !!	tabletkifake	: Total number packages of fake/counterfeit pills-->
	<!-- !!	tabletkirej		: Total number packages of factory rejected pills-->
	<!-- !!	tabletkifert	: Total number packages of subsituted fertility pills-->
	<!-- !!	tabletkisug		: Total number packages of sugar pills-->
	<!-- !!	pillsleft		: Total number packages of pills in current package-->
	<!-- !!	tabletkishot	: The flag for being on the Birth Control shot.-->
	<!-- !!	pillcon			: The number for the current birth control chemical level.-->
	<!-- !!	pilldays		: The number of consecutive days (you believe) you have taken your pill-->
	<<if $Luth > (LutH_Max-75) and getvar("$placebopart") <= 0>>
		<<set $placebopart = 8>>

	<</if>>
	<<set $placebopart -= 1>>
	<<if getvar("$tabletkishot") <= 0>>
		<<setn $pillcon -= 1000>> <<setn $pillcon2 -= 1000>>

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

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

	<</if>>
	<<if getvar("$tabletkicheck") == 2>>
		<<if getvar("$tabletkishot") != 0>>
			<!-- !!cycle = 1-->
			<<set $mesec = 0>>
			<<if rand(0,1000) == 1000>>
				<<set $EggRH = rand(20,80)>>
			<<else>>
				<<set $EggRH = 0>>
			<</if>>
			<<set $FocH = $EggRH>>
		<</if>>
		<<if getvar("$tabletkishot") <= 0>>
			<<set $pillcon -= 29000>>
			<<set $pillcon2 -= 29000>>
			<<if getvar("$tabletkishot") < 0>>
				<<set $tabletkishot = 0>>

			<</if>>
		<</if>>
		<<if getvar("$shotdays") < 2>>
			<<set $tabletkicheck = 0>>
			Your birth control shot is no longer protecting you.
		<<elseif getvar("$shotdays") < 10>>
			Your birth control shot is past due for renewal. The chemicals regulating your fertility cycle are wearing off.
		<<elseif getvar("$shotdays") > 10 and getvar("$shotdays") < 14>>
			You are due for a birth control shot soon if you do not get one, you might get pregnant.
		<<elseif getvar("$shotdays") == 10>>
			Your birth control shot is due for renewal tomorrow.
		<</if>>
	<</if>>
	<!-- !! dropped the decrement out of the above if-statement so that players on pill would still run out of BC shot-->
	<!-- !! as in for example the case of the therapist forcing you on the pill while you already had the shot.-->
	<<if getvar("$tabletkishot") > 0>>
		<<setn $tabletkishot -= 1>>

	<</if>>
	<<if getvar("$shotdays") > 0>>
		<<setn $shotdays -= 1>>

	<</if>>
	<!-- !! birth_control['implant_status']-->
	<!-- !! 0: No implant-->
	<!-- !! 3: Implant (more than 30 days left)-->
	<!-- !! 2: Implant (less than 30 days left)-->
	<!-- !! 1: Empty implant-->
	<<if $spellTarget['birth_control'] == 'self'>>
		<<set $pillcon = 40000>>
		<<set $pillcon2 = 40000>>
		<<setinit $spellTime['birth_control'] -= 1>>
		<<if getvar("$spellTime['birth_control']") > 0 and getvar("$spellTime['birth_control']") < 30>>
			<<setinit $birth_control['implant_status'] = 2>>
			<<set 'Your birth control spell will only last for spellTime['birth_control'] more' + iif(spellTime['birth_control'] = 1, 'day.', 'days.')>>
		<<elseif getvar("$spellTime['birth_control']") < 1>>
			<<setinit $spellTarget['birth_control'] = ''>>
			<<set $pillcon = 0>>
			<<set $pillcon2 = 0>>
			Your birth control spell has ended. You'll need to recast it if you don't want to get pregnant.
		<</if>>
	<<elseif getvar("$birth_control['implant_status']") > 1>>
		<<set $pc.pcs_skin += rand(0,1)>>
		<<set $pillcon += (($pillcon + 15000) / 25) + 4000>>
		<<if getvar("$pillcon") > 40000>>
			<<set $pillcon = 40000>>

		<</if>>
		<<set $pillcon2 += (($pillcon2 + 15000) / 25) + 4000>>
		<<if getvar("$pillcon2") > 40000>>
			<<set $pillcon2 = 40000>>

		<</if>>
		<<setinit $birth_control['implant_timer'] -= 1>>
		<<if ($birth_control['implant_timer'] - 1090) > 0>>
			<<gs 'pain' '(birth_control['implant_timer'] - 1090)*2' 'armL' 'ache'>>
		<<elseif getvar("$birth_control['implant_timer']") > 0 and getvar("$birth_control['implant_timer']") < 30>>
			<<setinit $birth_control['implant_status'] = 2>>
			<<set 'Your birth control implant is only good for birth_control['implant_timer'] more' + iif(birth_control['implant_timer'] = 1, 'day.', 'days.')>>
		<<elseif getvar("$birth_control['implant_timer']") < 0>>
			<<setinit $birth_control['implant_status'] = 1>>
			You should renew or remove your birth control implant.
		<</if>>
	<<elseif getvar("$birth_control['implant_status']") == 1>>
		You should renew or remove your birth control implant.
	<</if>>
	<<set $tabletkipd += $tabletkipi>>
	<<set $tabletkipi = 0>>
	<<set $tabletkipt = 0>>
	<<if getvar("$tabletkicheck") == 1>>
		<<if getvar("$tabletki") == 0 and getvar("$pillsleft["+$ptype+"]") == 0>>
			<<set $tabletkicheck = 0>>
			You are out of birth control pills.
			<<set $tabletkipi = -5>>
		<<elseif getvar("$tabletki") == 0 and getvar("$pillsleft["+$ptype+"]") == 28>>
			You have just opened your last package of birth control pills. You need to buy more.
		<<elseif getvar("$tabletki") == 0 and getvar("$pillsleft["+$ptype+"]") <= 5>>
			You are running out of birth control pills, you only have a few left.
		<</if>>
	<</if>>
	<<if getvar("$tabletkicheck") == 1 and $tabletkichday < $time.daystart>>
		<<set $tabletkichday = $time.daystart>>
		<<set $tabletkimm = (100 * ($pc.willpower / $pc.willpowermax)) + $pc.mood>>
		<<if $pc.pcs_sleep < 10>>
			<<set $tabletkimm -= (100 - ($pc.pcs_sleep * 10))>>
		<</if>>
		<<if $pc.willpower < $pc.willpowermax / 4>>
			<<set $tabletkimm = $tabletkimm / 4>>
		<<elseif $pc.mood < 10>>
			<<set $tabletkimm = $tabletkimm / 2>>
		<</if>>
		<<set $tabletkiap = $tabletkimm>>
		<<set $tabletkiap += ($pc.skillLevel("intelligence") * 4) + ($pc.skillLevel("spirit") * 2) + ($pc.age * 3)>>
		<<set $tabletkiap -= (($kid * 30) + ($abort * 2) - ($tabletkipd * ((60 - $pc.age) / 10)))>>
		<<set $temprand = rand(0,(200 + ($tabletkimm - ((100 - $pc.skillLevel("spirit")) * 3))))>>
		<<set $tabletkiap += $temprand>>
		<<if getvar("$tabletkiap") < 300>>
			<<if getvar("$tabletkipd") > -10>>
				<<if $pc.willpower < $pc.willpowermax / 4>>
					You stare at your package of birth control pills, you know you should take one but you can't quite work up enough effort to care.
				<<elseif $pc.mood < 10>>
					You stare at your package of birth control pills, but you don't open it.
				<<elseif $pc.pcs_sleep < 10>>
					You fumble with your birth control pills, trying to get a pill out. You finally give up too tired to manage it.
				<<else>>
					You just realized you forgot to take your birth control pill today.
				<</if>>
			<</if>>
			<<set $tabletkipt = 2>>
			<<set $tabletkipi = -4>>
		<<else>>
			<<if getvar("$tabletkiap") < 350>>
				<<set $temprand = rand(0,5)>>
			<<else>>
				<<set $temprand = rand(0,1000)>>
			<</if>>
			<<if getvar("$temprand") == 0>>
				<<set $temprand = rand(0,1)>>
				<<if getvar("$temprand") == 0>>
					<<gs 'din_bad' 'takepill'>>
					<<set $tabletkipt = -2>>
					<<set $tabletkipi = 1>>
				<<else>>
					<<set $tabletkipt = 3>>
					<<set $tabletkipi = -3>>
				<</if>>
				<<if getvar("$tabletkipd") > -10>>
					You find yourself holding the bottle of birth control pills, you cannot remember if you took one or not.
				<</if>>
				<<if getvar("$tabletkipd") > 0>>
					<<if rand(0,9) == 0>>
						<<if getvar("$tabletkipt") < 0>>
							You don't think you have taken your pill today.
						<<else>>
							<<set $pilldaychk = $time.daystart>>
							You think you have taken your pill today.
						<</if>>
					<<else>>
						<<if getvar("$tabletkipt") > 0>>
							You don't think you have taken your pill today.
						<<else>>
							<<set $pilldaychk = $time.daystart>>
							You think you have taken your pill today.
						<</if>>
					<</if>>
				<</if>>
			<<else>>
				You take your birth control pill for the day.
				<<set $pilldaychk = $time.daystart>>
				<<gs 'din_bad' 'takepill'>>
				<<if rand(0,7) == 0 and $tabletkiday >= (daystart - 1)>>
					<<setn $tabletkipd += 1>>

				<</if>>
				<<set $tabletkiday = $time.daystart>>
				<<set $tabletkipt = 0>>
				<<set $tabletkipi = 0>>
			<</if>>
		<</if>>
	<<elseif getvar("$tabletkicheck") == 0>>
		<<if $tabletkiday >= (daystart - 1) and getvar("$tabletkipt") == 0 and rand(0,7) == 0>>
			<<set $tabletkipt = 1>>

		<</if>>
		<<if getvar("$pillcon") > 0 and getvar("$tabletkipi") == 0 and rand(0,3) == 0 and ($tabletkiday + 15) > $time.daystart>>
			<<set $tabletkipi = -1>>

		<</if>>
	<</if>>
	<<if $pilldaychk == $time.daystart>>
		<<set $pilldays += 1>>
	<<else>>
		<<set $pilldays -= 1>>
	<</if>>
	<<if getvar("$pilldays") > 18>>
		<<set $pilldays = 18>>

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

	<</if>>
	<<if getvar("$pillcon") >= 40000>>
		<<setinit $birth_control['safe'] = 1>>
	<<elseif getvar("$placebopart") <= 0>>
		<<setinit $birth_control['safe'] = 0>>
	<</if>>
	<<if getvar("$pillcon2") >= 40000>>
		<<setinit $birth_control['think_safe'] = 1>>
	<<elseif getvar("$placebopart") <= 0>>
		<<setinit $birth_control['think_safe'] = 0>>
	<</if>>
	<<setinitpush "$MenCal" $str(cycle)>>
	<<if ArrSize('$MenCal') == 60>>
		<<setinit $MenCal[0] to null>>

	<</if>>
<</if>>
<<if $location_var[$here][0] == 'cum_arrcheat'>>
	<!-- !! npc_pregtalk[] 0/1: Does character A# know that you are currently pregnant-->
	<!-- !! pcs_pregtalk 0/1: Has PC been told she is pregnant-->
	<center><h2>Cheat Menu - OOX Debug</h2></center>
	<<if getvar("$cycle") == 0>>
		<<setinit $cycletemp[1] = 'menstruating with mesec hours remaining'>>
	<<elseif getvar("$cycle") == 1>>
		<<setinit $cycletemp[6] = ($Foch_Max - $FocH)>>
		<<setinit $cycletemp[1] = 'in your follicular phase with an egg release hormone level of EggRH with around cycletemp[6] hours remaining until ovulation'>>
	<<elseif getvar("$cycle") == 2>>
		<<setinit $cycletemp[1] = 'ovulating with around Ovulate hours remaining until your luteal phase begins and EggRH remaining egg release hormone. You have UnfertEgg unfertilized egg and FertEgg unimplanted zygote. It has been ferteggage hours since ovulation began'>>
	<<elseif getvar("$cycle") == 3>>
		<<setinit $cycletemp[6] = ($LutH_Max - $LutH)>>
		<<setinit $cycletemp[1] = 'in your luteal phase with BabyEmbryo foetus and FertEgg unimplanted zygote. Your body currently has a pregnancy chemical level of pregchem. It has been ferteggage hours since you ovulated. You have around cycletemp[6] hours remaining until menstruation or official pregnancy'>>
	<<elseif getvar("$cycle") == 4>>
		<<setinit $cycletemp[1] = 'in your post pregnancy recovery phase. You have around RecovH hours remaining before your follicular phase begins'>>
	<<elseif getvar("$cycle") == 5>>
		<<setinit $cycletemp[1] = 'pregnant. Your body currently has a pregnancy chemical level of pregchem. You have BabyEmbryo baby growing inside you'>>
	<<elseif getvar("$cycle") == 6>>
		<<setinit $cycletemp[1] = 'menopausal'>>
	<<else>>
		<<setinit $cycletemp[1] = 'an unknown value'>>
	<</if>>
	<<if getvar("$steriletu") < 0>>
		<<setinit $cycletemp[2] = '. You have had a tubal ligation procedure'>>
	<<else>>
		<<setinit $cycletemp[2] = ''>>
	<</if>>
	<<if getvar("$lactation['active']") > 0>>
		<<setinit $cycletemp[3] = '. You are lactating. You currently have lactation['breastmv']/1000 millilitres of milk stored, with a capacity of lactation['breastmm']/1000 millilitres'>>
	<<else>>
		<<setinit $cycletemp[3] = ''>>
	<</if>>
	<<if getvar("$tabletkicheck") == 2>>
		<<setinit $cycletemp[4] = '. You are currently protected from pregnancy by a birth control shot. You have tabletkishot days until it runs out'>>
	<<elseif getvar("$tabletkicheck") == 1>>
		<<if $tabletkiday == $time.daystart>>
			<<setinit $cycletemp[6] = '. You have taken your pill today'>>
		<<else>>
			<<setinit $cycletemp[6] = '. You have not taken your pill today'>>
		<</if>>
		<<setinit $cycletemp[4] = '. You automatically take your pill. Your current pill discipline is tabletkipd$cycletemp[6]. tabletkipt will be added to your pill discipline if you take the pill now, and tabletkipi will be added to your pill discipline if you do no additional action. You currently have pillcon units of birth control chemical in your body, though you believe it is actually pillcon2.'>>
	<<elseif getvar("$pillcon2") > 0>>
		<<setinit $cycletemp[4] = '. You currently have pillcon units of birth control chemical in your body, but you think it is actually pillcon2.'>>
	<<else>>
		<<setinit $cycletemp[4] = ''>>
	<</if>>
	<<if getvar("$pilldays") > 0>>
		<<setinit $cycletemp[8] = 'You believe you have taken your birth control pill pilldays days in a row.'>>
	<<else>>
		<<setinit $cycletemp[8] = ''>>
	<</if>>
	<p>You are currently $cycletemp[1]$cycletemp[2]$cycletemp[4] $cycletemp[8] Your womb damage is at sterilewb and your Ovary damage is at sterileov$cycletemp[2]. You have been cummed on or inside yourself stat['cum_count'] times.</p>
	<<setinit $cycletemp[4] = arrsize('$wombpotfath')>>
	<<if $cycletemp[4] > 0>>
		<<set $cycletemp = 0>>
		<p>Potential Father List (of cycletemp[4]):</p>
		<<warn 'JUMP MARKER ENCOUNTERED: :cumcpfloop'>>
		<<if $wombpotfath[$cycletemp] != 'unknown'>>
			<<setinit $cycletemp[5] = $npc($wombpotfath[$cycletemp).usedname]>>
		<<else>>
			<<setinit $cycletemp[5] = ''>>
		<</if>>
		<p>Father cycletemp: $wombpotfath[$cycletemp] - $cycletemp[5]</p>
		<<set $cycletemp += 1>>
		<<if $cycletemp < arrsize('$wombpotfath')>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump cumcpfloop'>>

		<</if>>
	<<else>>
		No listed potential fathers.
	<</if>>
	<<setinit $cycletemp[4] = arrsize('$cumarrnam')>>
	<<if $cycletemp[4] > 0>>
		<<set $cycletemp = 0>>
		<p>Sperm in your womb (of cycletemp[4]):</p>
		<Table border=1><TR><TH>Index</TH><TH>ID</TH><TH>Owner</TH><TH>Potential Potency</TH><TH>Current Potency</TH><TH>Method of Acquisition</TH><TH>Contraception Type</TH><TH>Age in Hours</TH><TH>Aware</TH><TH>DNA</TH></TR>
		<<warn 'JUMP MARKER ENCOUNTERED: :cumcswloop'>>
		<<if getvar("$cumarrdel["+$cycletemp+"]") == 0>>
			<<setinit $cycletemp[2] = 'Vaginal intercourse'>>
		<<elseif getvar("$cumarrdel["+$cycletemp+"]") == 1>>
			<<setinit $cycletemp[2] = 'From spatter on the vagina'>>
		<<elseif getvar("$cumarrdel["+$cycletemp+"]") == 2>>
			<<setinit $cycletemp[2] = 'From the anal area'>>
		<<elseif getvar("$cumarrdel["+$cycletemp+"]") == 3>>
			<<setinit $cycletemp[2] = 'From sperm on clothing'>>
		<<elseif getvar("$cumarrdel["+$cycletemp+"]") == 4>>
			<<setinit $cycletemp[2] = 'From sperm on fingers'>>
		<<elseif getvar("$cumarrdel["+$cycletemp+"]") == 5>>
			<<setinit $cycletemp[2] = 'From sperm on wipes'>>
		<<else>>
			<<setinit $cycletemp[2] = 'improperly defined'>>
		<</if>>
		<<if getvar("$cumarrcon["+$cycletemp+"]") == 0>>
			<<setinit $cycletemp[3] = 'No contraception used'>>
		<<elseif getvar("$cumarrcon["+$cycletemp+"]") == 1>>
			<<setinit $cycletemp[3] = 'You lied about being on the pill'>>
		<<elseif getvar("$cumarrcon["+$cycletemp+"]") == 2>>
			<<setinit $cycletemp[3] = iif(birth_control['implant_status'] > 1, 'You have a birth control implant', 'You were on the pill')>>
		<<elseif getvar("$cumarrcon["+$cycletemp+"]") == 3>>
			<<setinit $cycletemp[3] = 'You used a condom'>>
		<<elseif getvar("$cumarrcon["+$cycletemp+"]") == 4>>
			<<setinit $cycletemp[3] = 'The condom broke'>>
		<<elseif getvar("$cumarrcon["+$cycletemp+"]") == 5>>
			<<setinit $cycletemp[3] = 'The condom slipped off inside you'>>
		<<elseif getvar("$cumarrcon["+$cycletemp+"]") == 6>>
			<<setinit $cycletemp[3] = 'The condom was sabotaged by someone else'>>
		<<elseif getvar("$cumarrcon["+$cycletemp+"]") == 7>>
			<<setinit $cycletemp[3] = 'You sabotaged the condom'>>
		<<elseif getvar("$cumarrcon["+$cycletemp+"]") == 8>>
			<<setinit $cycletemp[3] = 'Precum had sperm in it'>>
		<<elseif getvar("$cumarrcon["+$cycletemp+"]") == 9>>
			<<setinit $cycletemp[3] = 'Semen from a previous sexual act was pushed into the vagina'>>
		<<else>>
			<<setinit $cycletemp[3] = 'improperly defined'>>
		<</if>>
		<<setinit $cycletemp[5] = $npc($cumarrnam[$cycletemp).usedname]>>
		<!-- !'Index number: <<cycletemp>>. Sperm ID: <<cumarrcnt[$cycletemp]>>. Sperm Owner: <<$cumarrnam[$cycletemp]>>. Sperm Potential Potency: <<cumarrppt[$cycletemp]>> Sperm Current Potency: <<cumarrcpt[$cycletemp]>>. Sperm Method of Acquisition: <<$cycletemp[2]>>. Sperm Contraception Type: <<$cycletemp[3]>>. Sperm Age in Hours: <<Cumarrage[$cycletemp]>>. If you know who did it (0 means no): <<cumarrkno[$cycletemp]>>.'-->
		<!-- FAILED TO CONVERT
			*P '<TR><TD><<cycletemp>></TD><TD><<cumarrcnt[cycletemp]>></TD><TD><<$cumarrnam[cycletemp]>> - <<$cycletemp[5]>></TD><TD><<cumarrppt[cycletemp]>> Sperm</TD><TD><<cumarrcpt[cycletemp]>> Sperm</TD><TD><<$cycletemp[2]>></TD><TD><<$cycletemp[3]>></TD><TD><<Cumarrage[cycletemp]>></TD><TD><<cumarrkno[cycletemp]>></TD><TD><<$npc_dna[$cumarrnam[cycletemp]]>></TD></TR>'
		-----
			 * ERROR: FAILED TO CONVERT LITERAL: """P '<TR><TD><<cycletemp>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<cumarrcnt[$cycletemp]>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD>$cumarrnam[$cycletemp]""" - ERROR: FAILED TO CONVERT LITERAL: """$cycletemp[5]<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<cumarrppt[$cycletemp]>> Sperm<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<cumarrcpt[$cycletemp]>> Sperm<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD>$cycletemp[2]<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD>$cycletemp[3]<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<Cumarrage[$cycletemp]>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<cumarrkno[$cycletemp]>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<=$npc($cumarrnam[$cycletemp).dna>>]<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><""" / ERROR: FAILED TO CONVERT LITERAL: """TR>'"""

		-->
		<<warn "CONVERSION ERROR cb1a6a678fe87301fabd054a570b5105">>
		<<set $cycletemp += 1>>
		<<if $cycletemp < arrsize('$cumarrnam')>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump cumcswloop'>>
		<<else>>
			</TABLE>
		<</if>>
	<<else>>
		No sperm is registered in your womb.
	<</if>>
	<<setinit $cycletemp[4] = arrsize('sparrvol')>>
	<<if $cycletemp[4] > 0>>
		<<set $cycletemp = 0>>
		<p>Sperm spatter (of cycletemp[4]):</p>
		<Table border=1><TR><TH>Index</TH><TH>ID</TH><TH>Sperm Owner</TH><TH>Potential Potency</TH><TH>Age in Hours</TH><TH>Aware</TH><TH>Volume (ml)</TH><TH>Location</TH><TH>Spread Value</TH></TR>
		<<warn 'JUMP MARKER ENCOUNTERED: :cumcsbloop'>>
		<<setinit $cycletemp[2] = ($sparrvol[$cycletemp] / 10)>>
		<<if getvar("$sparrloc["+$cycletemp+"]") == 0>>
			<<setinit $cycletemp[3] = 'In your Vagina'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 1>>
			<<setinit $cycletemp[3] = 'On your labia'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 2>>
			<<setinit $cycletemp[3] = 'On your panties over your vagina'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 3>>
			<<setinit $cycletemp[3] = 'In your anus'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 4>>
			<<setinit $cycletemp[3] = 'On your butt'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 5>>
			<<setinit $cycletemp[3] = 'On your panties over your butt'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 6>>
			<<setinit $cycletemp[3] = 'On your clothes in your groin area'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 7>>
			<<setinit $cycletemp[3] = 'On your clothes'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 8>>
			<<setinit $cycletemp[3] = 'On your back'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 9>>
			<<setinit $cycletemp[3] = 'On your legs'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 10>>
			<<setinit $cycletemp[3] = 'On your arms'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 11>>
			<<setinit $cycletemp[3] = 'On your face'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 12>>
			<<setinit $cycletemp[3] = 'Inside your mouth'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 13>>
			<<setinit $cycletemp[3] = 'On your hands'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 14>>
			<<setinit $cycletemp[3] = 'On your stomach'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 15>>
			<<setinit $cycletemp[3] = 'On your breasts'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 16>>
			<<setinit $cycletemp[3] = 'In your hair'>>
		<<elseif getvar("$sparrloc["+$cycletemp+"]") == 17>>
			<<setinit $cycletemp[3] = 'In a condom in your vagina'>>
		<<else>>
			<<setinit $cycletemp[3] = 'improperly defined'>>
		<</if>>
		<<setinit $cycletemp[5] = $npc($sparrnam[$cycletemp).usedname]>>
		<!-- !'Index number: <<cycletemp>>. Spatter Sperm ID: <<sparrcnt[$cycletemp]>>. Spatter Sperm Owner: <<$sparrnam[$cycletemp]>>. Spatter Potential Potency: <<sparrppt[$cycletemp]>> Spatter Age in Hours: <<sparrage[$cycletemp]>>. If you know who did it (0 means no): <<sparridt[$cycletemp]>>. Spatter Volume: <<cycletemp[2]>> Milliliters. Spatter Location: <<$cycletemp[3]>>. Spatter Spread Value: <<sparrslc[$cycletemp]>>.'-->
		<!-- FAILED TO CONVERT
			*P '<TR><TD><<cycletemp>></TD><TD><<sparrcnt[cycletemp]>></TD><TD><<$sparrnam[cycletemp]>> - <<$cycletemp[5]>></TD><TD><<sparrppt[cycletemp]>></TD><TD><<sparrage[cycletemp]>></TD><TD><<sparridt[cycletemp]>></TD><TD><<cycletemp[2]>></TD><TD><<$cycletemp[3]>></TD><TD><<sparrslc[cycletemp]>></TD></TR>'
		-----
			 * ERROR: FAILED TO CONVERT LITERAL: """P '<TR><TD><<cycletemp>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<sparrcnt[$cycletemp]>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD>$sparrnam[$cycletemp]""" - ERROR: FAILED TO CONVERT LITERAL: """$cycletemp[5]<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<sparrppt[$cycletemp]>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<sparrage[$cycletemp]>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<sparridt[$cycletemp]>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<cycletemp[2]>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD>$cycletemp[3]<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<sparrslc[$cycletemp]>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><""" / ERROR: FAILED TO CONVERT LITERAL: """TR>'"""

		-->
		<<warn "CONVERSION ERROR d5a7759186df1b4b358fbdc363c154af">>
		<<set $cycletemp += 1>>
		<<if $cycletemp < arrsize('sparrvol')>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump cumcsbloop'>>
		<<else>>
			</TABLE>
		<</if>>
	<<else>>
		No sperm spatter is registered.
	<</if>>
	<<setinit $cycletemp[4] = arrsize('$ChildFath')>>
	<<if $cycletemp[4] > 0>>
		<<set $cycletemp = 0>>
		<<if $wombthfath != 'unknown'>>
			<p>Current father set as the father you think is of the children in the womb: $wombthfath</p>

		<</if>>
		<p>Babies and Children (of cycletemp[4]):</p>
		<Table border=1><TR><TH>Index</TH><TH>Name</TH><TH>Age</TH><TH>Born(M/D/Y)</TH><TH>Sex</TH><TH>Pregnancy Type</TH><TH>Biological Father</TH><TH>Believed Father</TH><TH>Eye Color</TH><TH>Hair Color</TH><th>Type</th><TH>Contraception Type</TH><TH>Child DNA</TH></TR>
		<<warn 'JUMP MARKER ENCOUNTERED: :cumcbcloop'>>
		<<if getvar("$polkid["+$cycletemp+"]") == 0>>
			<<setinit $cycletemp[2] = 'F'>>
		<<else>>
			<<setinit $cycletemp[2] = 'M'>>
		<</if>>
		<<if getvar("$babyptype["+$cycletemp+"]") == 0>>
			<<setinit $cycletemp[3] = 'Zygote'>>
		<<elseif getvar("$babyptype["+$cycletemp+"]") == 1>>
			<<setinit $cycletemp[3] = 'Healthy Implantation'>>
		<<elseif getvar("$babyptype["+$cycletemp+"]") == 2>>
			<<setinit $cycletemp[3] = 'Ectopic Pregnancy'>>
		<<elseif getvar("$babyptype["+$cycletemp+"]") == 3>>
			<<setinit $cycletemp[3] = 'Breach'>>
		<<elseif getvar("$babyptype["+$cycletemp+"]") == 40>>
			<<setinit $cycletemp[3] = 'Damaged Foetus from Alcohol/Smoking/Other drugs'>>
		<<elseif getvar("$babyptype["+$cycletemp+"]") == 45>>
			<<setinit $cycletemp[3] = 'Damaged Foetus from other sources'>>
		<<elseif getvar("$babyptype["+$cycletemp+"]") == 50>>
			<<setinit $cycletemp[3] = 'Severely Damaged Foetus'>>
		<<elseif getvar("$babyptype["+$cycletemp+"]") == 100>>
			<<setinit $cycletemp[3] = 'Foetal Death'>>
		<<elseif getvar("$babyptype["+$cycletemp+"]") == 105>>
			<<setinit $cycletemp[3] = 'Foetal Death, will not self purge'>>
		<<else>>
			<<setinit $cycletemp[3] = 'Unlabelled Ptype'>>
		<</if>>
		<<if getvar("$ChildConType["+$cycletemp+"]") == 0>>
			<<setinit $cycletemp[4] = 'No contraception used'>>
		<<elseif getvar("$ChildConType["+$cycletemp+"]") == 1>>
			<<setinit $cycletemp[4] = 'You lied about being on the pill'>>
		<<elseif getvar("$ChildConType["+$cycletemp+"]") == 2>>
			<<setinit $cycletemp[4] = 'You were on the pill'>>
		<<elseif getvar("$ChildConType["+$cycletemp+"]") == 3>>
			<<setinit $cycletemp[4] = 'You used a condom'>>
		<<elseif getvar("$ChildConType["+$cycletemp+"]") == 4>>
			<<setinit $cycletemp[4] = 'The condom broke'>>
		<<elseif getvar("$ChildConType["+$cycletemp+"]") == 5>>
			<<setinit $cycletemp[4] = 'The condom slipped off inside you'>>
		<<elseif getvar("$ChildConType["+$cycletemp+"]") == 6>>
			<<setinit $cycletemp[4] = 'The condom was sabotaged by someone else'>>
		<<elseif getvar("$ChildConType["+$cycletemp+"]") == 7>>
			<<setinit $cycletemp[4] = 'You sabotaged the condom'>>
		<<else>>
			<<setinit $cycletemp[4] = 'improperly defined'>>
		<</if>>
		<<setinit $cycletemp[5] = $npc($ChildFath[$cycletemp).usedname]>>
		<<if $npc($ChildThFath[$cycletemp).usedname] != ''>>
			<<setinit $cycletemp[7] = $npc($ChildThFath[$cycletemp).usedname]>>
		<<else>>
			<<setinit $cycletemp[7] = $ChildThFath[$cycletemp]>>
		<</if>>
		<!-- !'Index number: <<cycletemp>>. Name of the kid: <<$kidname[$cycletemp]>>. Age of the kid: <<kidage[$cycletemp]>>. Born(M/D/Y): <<monthkid[$cycletemp]>> / <<daykid[$cycletemp]>> / <<yearkid[$cycletemp]>>. Sex: <<$cycletemp[2]>>. Pregnancy Type: <<$cycletemp[3]>>. Biological Father: <<$ChildFath[$cycletemp]>>. Believed Father: <<$ChildThFath[$cycletemp]>>. Child Eye Color: <<eyeskid[$cycletemp]>>. Child Hair Color: <<hairkid[$cycletemp]>>. Child Type: <<$childtype[$cycletemp]>>. Child Contraceptive Type: <<$cycletemp[4]>>'-->
		<!-- FAILED TO CONVERT
			*P '<TR><TD><<cycletemp>></TD><TD><<$kidname[cycletemp]>></TD><TD><<kidage[cycletemp]>></TD><TD><<monthkid[cycletemp]>> / <<daykid[cycletemp]>> / <<yearkid[cycletemp]>></TD><TD><<$cycletemp[2]>></TD><TD><<$cycletemp[3]>></TD><TD><<$ChildFath[cycletemp]>> - <<$cycletemp[5]>></TD><TD><<$ChildThFath[cycletemp]>> - <<$cycletemp[7]>></TD><TD><<eyeskid[cycletemp]>></TD><TD><<hairkid[cycletemp]>></TD><td><<$childtype[cycletemp]>></td><TD><<$cycletemp[4]>></TD><TD><<$kid_dna[cycletemp]>></TD></TR>'
		-----
			 * ERROR: FAILED TO CONVERT LITERAL: """P '<TR><TD><<cycletemp>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD>$kidname[$cycletemp]<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<kidage[$cycletemp]>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<monthkid[$cycletemp]>>""" / ERROR: FAILED TO CONVERT LITERAL: """<<daykid[$cycletemp]>>""" / ERROR: FAILED TO CONVERT LITERAL: """<<yearkid[$cycletemp]>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD>$cycletemp[2]<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD>$cycletemp[3]<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD>$ChildFath[$cycletemp]""" - ERROR: FAILED TO CONVERT LITERAL: """$cycletemp[5]<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD>$ChildThFath[$cycletemp]""" - ERROR: FAILED TO CONVERT LITERAL: """$cycletemp[7]<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<eyeskid[$cycletemp]>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD><<hairkid[$cycletemp]>><""" / ERROR: FAILED TO CONVERT LITERAL: """TD><td>$childtype[$cycletemp]<""" / ERROR: FAILED TO CONVERT LITERAL: """td><TD>$cycletemp[4]<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><TD>$kid_dna[$cycletemp]<""" / ERROR: FAILED TO CONVERT LITERAL: """TD><""" / ERROR: FAILED TO CONVERT LITERAL: """TR>'"""

		-->
		<<warn "CONVERSION ERROR 362d46dd634a9dc36148e341dc98527e">>
		<<set $cycletemp += 1>>
		<<if $cycletemp < arrsize('$ChildFath')>>
			<<warn 'JUMP COMMAND ENCOUNTERED: jump cumcbcloop'>>
		<<else>>
			</TABLE>
		<</if>>
	<<else>>
		No Pregnancies registered.
	<</if>>
	<<set $cycletemp to null>>
	<<actCLA 'Return to cheat index'>>
		<<cheatmenu>>
	<</actCLA>>
<</if>>