glife/locations/cum_arrcheat

# cum_arrcheat

if cycle = 0:
	$cycletemp[1] = 'menstruating with <<mesec>> hours remaining'
elseif cycle = 1:
	cycletemp[6] = (150-FocH)
	$cycletemp[1] = 'in your follicular phase with an egg release hormone level of <<EggRH>> with around <<cycletemp[6]>> hours remaining until ovulation.'
elseif cycle = 2:
	$cycletemp[1] = 'ovulating with around <<Ovulate>> hours remaining until your luteal phase begins. You have <<UnfertEgg>> unfertilized egg and <<FertEgg>> unimplanted zygote. It has been <<ferteggage>> hours since ovulation began.'
elseif cycle = 3:
	cycletemp[6] = (300-LutH)
	$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 cycle = 4:
	$cycletemp[1] = 'in your post pregnancy recovery phase. You have around <<RecovH>> hours remaining before your follicular phase begins.'
elseif cycle = 5:
	$cycletemp[1] = 'pregnant. Your body currently has a pregnancy chemical level of <<pregchem>>. You have <<BabyEmbryo>> baby growing inside you.'
elseif cycle = 6:
	$cycletemp[1] = 'menopausal.'
else
	$cycletemp[1] = 'an unknown value.'
end
		
if steriletu < 0:
	$cycletemp[2]= '. You have had a tubal ligation procedure'
else
	$cycletemp[2]= ''
end
if lactate < 0:
	$cycletemp[3]= '. You are lactating. You currently have <<lactatemv>> millilitres of milk stored, with a capacity of <<lactatemm>> millilitres'
else
	$cycletemp[3]= ''
end
if tabletkicheck = 2:
	$cycletemp[4] = '. You are currently protected from pregnancy by a birth control shot. You have <<tabletkishot>> days until it runs out'
elseif tabletkicheck = 1:
	if tabletkiday = daystart:
		$cycletemp[6] = '. You have taken your pill today'
	else
		$cycletemp[6] = '. You have not taken your pill today'
	end
	$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'
elseif pillcon > 0:
	$cycletemp[4] = '. You currently have <<pillcon>> units of birth control chemical in your body'
else
	$cycletemp[4] = ''
end

cls
'You are currently <<$cycletemp[1]>><<$cycletemp[2]>><<$cycletemp[4]>>. Your womb damage is at <<sterilewb>> and your Ovary damage is at <<sterileov>><<$cycletemp[2]>>. '

cycletemp[4] = arrsize('$wombpotfath')
if cycletemp[4] > 0:
	cycletemp = 0
	'Potential Father List (of <<cycletemp[4]>>):'
	:cumcpfloop
	'Father <<cycletemp>>: <<$wombpotfath[cycletemp]>>'
	cycletemp += 1
	if cycletemp < arrsize('$wombpotfath'): jump 'cumcpfloop'
else
	'No listed potential fathers.'
end

cycletemp[4] = arrsize('$cumarrnam')
if cycletemp[4] > 0:
	cycletemp = 0
	'Sperm in your womb (of <<cycletemp[4]>>):'
	'<Table border=1><TR><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></TR>'
	:cumcswloop
	if cumarrdel[cycletemp] = 0:
		$cycletemp[2] = 'Vaginal intercourse'
	elseif cumarrdel[cycletemp] = 1:
		$cycletemp[2] = 'From spatter on the vagina'
	elseif cumarrdel[cycletemp] = 2:
		$cycletemp[2] = 'From the anal area'
	elseif cumarrdel[cycletemp] = 3:
		$cycletemp[2] = 'From sperm on clothing'
	elseif cumarrdel[cycletemp] = 4:
		$cycletemp[2] = 'From sperm on fingers'
	elseif cumarrdel[cycletemp] = 5:
		$cycletemp[2] = 'From sperm on wipes'
	else
		$cycletemp[2] = 'improperly defined'
	end
	if cumarrcon[cycletemp] = 0:
		$cycletemp[3] = 'No contraception used'
	elseif cumarrcon[cycletemp] = 1:
		$cycletemp[3] = 'You lied about being on the pill'
	elseif cumarrcon[cycletemp] = 2:
		$cycletemp[3] = 'You were on the pill'
	elseif cumarrcon[cycletemp] = 3:
		$cycletemp[3] = 'You used a condom'
	elseif cumarrcon[cycletemp] = 4:
		$cycletemp[3] = 'The condom broke'
	elseif cumarrcon[cycletemp] = 5:
		$cycletemp[3] = 'The condom slipped off inside you'
	elseif cumarrcon[cycletemp] = 6:
		$cycletemp[3] = 'The condom was sabotaged by someone else'
	elseif cumarrcon[cycletemp] = 7:
		$cycletemp[3] = 'You sabotaged the condom'
	else
		$cycletemp[3] = 'improperly defined'
	end
	!'Index number: <<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]>>.'
	*P '<TR><TD><<cycletemp>></TD><TD><<$cumarrnam[cycletemp]>></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></TR>'
	cycletemp += 1
	if cycletemp < arrsize('$cumarrnam'):
		jump 'cumcswloop'
	else
		'</TABLE>'
	end
else
	'No sperm is registered in your womb.'
end


cycletemp[4] = arrsize('sparrvol')
if cycletemp[4] > 0:
	cycletemp = 0
	'Sperm spatter (of <<cycletemp[4]>>):'
	'<Table border=1><TR><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>'
	:cumcsbloop
	cycletemp[2] = (sparrvol[cycletemp]/10)
	if sparrloc[cycletemp] = 0:
		$cycletemp[3] = 'In your Vagina'
	elseif sparrloc[cycletemp] = 1:
		$cycletemp[3] = 'On your labia'
	elseif sparrloc[cycletemp] = 2:
		$cycletemp[3] = 'On your panties over your vagina'
	elseif sparrloc[cycletemp] = 3:
		$cycletemp[3] = 'In your anus'
	elseif sparrloc[cycletemp] = 4:
		$cycletemp[3] = 'On your butt'
	elseif sparrloc[cycletemp] = 5:
		$cycletemp[3] = 'On your panties over your butt'
	elseif sparrloc[cycletemp] = 6:
		$cycletemp[3] = 'On your clothes in your groin area'
	elseif sparrloc[cycletemp] = 7:
		$cycletemp[3] = 'On your clothes'
	elseif sparrloc[cycletemp] = 8:
		$cycletemp[3] = 'On your back'
	elseif sparrloc[cycletemp] = 9:
		$cycletemp[3] = 'On your legs'
	elseif sparrloc[cycletemp] = 10:
		$cycletemp[3] = 'On your arms'
	elseif sparrloc[cycletemp] = 11:
		$cycletemp[3] = 'On your face'
	elseif sparrloc[cycletemp] = 12:
		$cycletemp[3] = 'Inside your mouth'
	elseif sparrloc[cycletemp] = 13:
		$cycletemp[3] = 'On your hands'
	elseif sparrloc[cycletemp] = 14:
		$cycletemp[3] = 'On your stomach'
	elseif sparrloc[cycletemp] = 15:
		$cycletemp[3] = 'On your breasts'
	elseif sparrloc[cycletemp] = 16:
		$cycletemp[3] = 'In your hair'
	elseif sparrloc[cycletemp] = 17:
		$cycletemp[3] = 'In a condom in your vagina'
	else
		$cycletemp[3] = 'improperly defined'
	end
	!'Index number: <<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]>>.'
	*P '<TR><TD><<cycletemp>></TD><TD><<$sparrnam[cycletemp]>></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>'
	cycletemp += 1
	if cycletemp < arrsize('sparrvol'):
		jump 'cumcsbloop'
	else
		'</TABLE>'
	end
else
	'No sperm spatter is registered.'
end
	
cycletemp[4] = arrsize('$ChildFath')
if cycletemp[4] > 0:
	cycletemp = 0
	if $wombthfath ! 'Unknown': 'Current father set as the father you think is of the children in the womb: <<$wombthfath>>'
	'Babies and Children (of <<cycletemp[4]>>):'
	'<Table border=1><TR><TH>Index number</TH><TH>Name of the kid</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>Child Eye Color</TH><TH>Child Hair Color</TH><TH>Child Contraceptive Type</TH></TR>'
	:cumcbcloop
	if polkid[cycletemp] = 0:
		$cycletemp[2] = 'Female'
	else
		$cycletemp[2] = 'Male'
	end
	if babyptype[cycletemp] = 0:
		$cycletemp[3] = 'Zygote'
	elseif babyptype[cycletemp] = 1:
		$cycletemp[3] = 'Healthy Implantation'
	elseif babyptype[cycletemp] = 2:
		$cycletemp[3] = 'Entropic Pregnancy'
	elseif babyptype[cycletemp] = 3:
		$cycletemp[3] = 'Breach'
	elseif babyptype[cycletemp] = 40:
		$cycletemp[3] = 'Damaged Foetus from Alcohol/Smoking/Other drugs'
	elseif babyptype[cycletemp] = 45:
		$cycletemp[3] = 'Damaged Foetus from other sources'
	elseif babyptype[cycletemp] = 50:
		$cycletemp[3] = 'Severely Damaged Foetus'
	elseif babyptype[cycletemp] = 100:
		$cycletemp[3] = 'Foetal Death'
	elseif babyptype[cycletemp] = 105:
		$cycletemp[3] = 'Foetal Death, will not self purge'
	else
		$cycletemp[3] = 'Unlabelled Ptype'	
	end
	!'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 Contraceptive Type: <<ChildConType[cycletemp]>>'
	*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]>></TD><TD><<$ChildThFath[cycletemp]>></TD><TD><<eyeskid[cycletemp]>></TD><TD><<hairkid[cycletemp]>></TD><TD><<ChildConType[cycletemp]>></TD></TR>'
	cycletemp += 1
	if cycletemp < arrsize('$ChildFath'):
		jump 'cumcbcloop'
	else
		'</TABLE>'
	end
else
	'No Pregnancies registered.'
end
killvar '$cycletemp'
act 'Leave':gt $locM

--- cum_arrcheat ---------------------------------