Pārlūkot izejas kodu

some moves out of the cikl procedure

rachels 2 gadi atpakaļ
vecāks
revīzija
f5923284d7

+ 2 - 0
changes from 0_8_5 to 0_8_6.txt

@@ -4,12 +4,14 @@ Locations:
 
 npc							<- npc_age, npc_intro
 gschool						<- gschool_schedule
+fertility					<- cum_arrcheat
 
 === deleted locations ===
 
 npc_age						-> func('npc','age',..)
 npc_intro					-> gs 'npc','intro',..,..
 gschool_schedule			-> gs 'gschool', 'schedule'
+cum_arrcheat				-> gs 'fertility', 'cum_arrcheat'
 
 Variables:
 

+ 2 - 1
glife.qproj

@@ -51,10 +51,12 @@
 		<Location name="shortgs"/>
 		<Location name="show_table"/>
 		<Location name="femcyc"/>
+		<Location name="fertility"/>
 		<Location name="exercise"/>
 		<Location name="food"/>
 		<Location name="beverage"/>
 		<Location name="food_menu"/>
+		<Location name="schedule"/>
 		<Location name="sleep"/>
 		<Location name="willpower"/>
 		<Location name="drugs"/>
@@ -83,7 +85,6 @@
 	</Folder>
 	<Folder name="CumManage">
 		<Location name="Cum_Manage"/>
-		<Location name="cum_arrcheat"/>
 		<Location name="cum_cleanup"/>
 		<Location name="cum_call"/>
 		<Location name="pregriskeval"/>

+ 2 - 2
locations/Cheatmenu_din.qsrc

@@ -2488,7 +2488,7 @@ $cheatmenu['quicktime'] = {
 	gs 'daystart'
 	gs 'outdoors', 'weather'
 	gs 'stat'
-	gs 'cum_arrcheat'
+	gs 'fertility', 'cum_arrcheat'
 }
 
 $cheatmenu = {
@@ -2502,7 +2502,7 @@ $cheatmenu = {
 	'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
 	'<td width="400" cellspacing="0" cellpadding="20" valign="top">'
 	'<a href="exec:dynamic $cheatmenu[''dynamic'']">Dynamic Input Command</a>'
-	'<a href="exec:gs ''cum_arrcheat''">OOX Debug</a>'
+	'<a href="exec:gs ''fertility'',''cum_arrcheat''">OOX Debug</a>'
 	'Right now <<$week[week]>> <<$month>> <<day>> <<year>> <<hour>>:<<minut>>'
 	'Jump forward <a href="exec:dynamic $cheatmenu[''quicktime''], 15 & dynamic $cheatmenu">+15</a> minutes'
 	*nl

+ 1 - 228
locations/cikl.qsrc

@@ -326,235 +326,8 @@ if pcs_tan > 0: pcs_tan -= 1
 
 if prezikmsg = 2: prezikmsg = 3
 
-!!------------------------------------------------------------------------------------------------------------
-!!	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 placebopart <= 0: placebopart = 8
-placebopart -= 1
-
-if tabletkishot <= 0: pillcon -= 1000 & pillcon2 -= 1000
-if pillcon < 0:	pillcon = 0
-if pillcon2 < 0: pillcon2 = 0
-
-if tabletkicheck = 2:
-	if tabletkishot ! 0:
-		!!cycle = 1
-		mesec = 0
-		if rand(0,1000) = 1000:
-			EggRH = rand(20,80)
-		else
-			EggRH = 0
-		end
-		FocH = EggRH
-	end
-	if tabletkishot <= 0:
-		pillcon -= 29000
-		pillcon2 -= 29000
-		if tabletkishot < 0: tabletkishot = 0
-	end
-	if shotdays = -8:
-		tabletkicheck = 0
-		shotdue = 0
-		if  birth_control['implant_status'] > 0:
-			'Your birth control shot is no longer protecting you.'
-		end
-	elseif shotdays <= 0:
-		if shotdays = 0:
-			shotdue = 7
-		else
-			shotdue -= 1
-		end
-		if  birth_control['implant_status'] > 0:
-			'The chemicals regulating your fertility cycle are wearing off, you need to get your shot in <<shotdue>> days.'
-		end
-	elseif shotdays > 1 and shotdays < 5 and birth_control['implant_status'] = 0:
-		'You are due for a birth control shot soon if you do not get one, you might get pregnant.'
-	elseif shotdays = 1 and birth_control['implant_status'] = 0:
-		'Your birth control shot is due for renewal tomorrow.'
-	end
-
-	if shotdays > -100:shotdays -=1
-	if tabletkishot > 0:tabletkishot -= 1
-end
-
-!! 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 birth_control['implant_status'] > 1:
-	pcs_skin += rand(0,1)
-	
-	pillcon += ((pillcon + 15000) / 25) + 4000
-	if pillcon > 40000: pillcon = 40000
-	
-	pillcon2 += ((pillcon2 + 15000) / 25) + 4000
-	if pillcon2 > 40000: pillcon2 = 40000
-		
-	birth_control['implant_timer'] -= 1
-	if (birth_control['implant_timer'] - 1090) > 0:
-		gs 'pain', '<<(birth_control[''implant_timer''] - 1090)*2>>', 'armL', 'ache'
-	elseif birth_control['implant_timer'] > 0 and birth_control['implant_timer'] < 30:
-		birth_control['implant_status'] = 2
-		'Your birth control implant is only good for <<birth_control[''implant_timer'']>> more'+iif(birth_control['implant_timer'] = 1, 'day.', 'days.')
-	elseif birth_control['implant_timer'] < 0:
-		birth_control['implant_status'] = 1
-		'You should renew or remove your birth control implant.'
-	end
-elseif birth_control['implant_status'] = 1:
-	'You should renew or remove your birth control implant.'
-end
-
-tabletkipd += tabletkipi
-tabletkipi = 0
-tabletkipt = 0
-if tabletkicheck = 1:
-	if tabletki = 0 and pillsleft[ptype] = 0:
-		tabletkicheck = 0
-		'You are out of birth control pills.'
-		tabletkipi = -5
-	elseif tabletki = 0 and pillsleft[ptype] = 28:
-		'You have just opened your last package of birth control pills. You need to buy more.'
-	elseif tabletki = 0 and pillsleft[ptype] <= 5:
-		'You are running out of birth control pills, you only have a few left.'
-	end
-end
-
-if tabletkicheck = 1 and tabletkichday < daystart:
-	tabletkichday = daystart
-	tabletkimm = (100*(pcs_willpwr / willpowermax)) + pcs_mood
-	if pcs_sleep < 10:
-		tabletkimm -= (100- (pcs_sleep * 10))
-	end
-	if pcs_willpwr < willpowermax / 4:
-		tabletkimm = tabletkimm / 4
-	elseif pcs_mood < 10:
-		tabletkimm = tabletkimm / 2
-	end
-	tabletkiap = tabletkimm
-	tabletkiap += (pcs_intel * 4) + (pcs_sprt * 2) + (age * 3)
-	tabletkiap -= ((kid * 30) + (abort * 2) - (tabletkipd * ((60 - age) / 10)))
-	temprand = rand(0,(200 + (tabletkimm - ((100 - pcs_sprt) * 3))))
-	tabletkiap += temprand
-	if tabletkiap < 300:
-		if tabletkipd > -10:
-			if pcs_willpwr < willpowermax / 4:
-				pilldaychk = 0
-				'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 pcs_mood < 10:
-				pilldaychk = 0
-				'You stare at your package of birth control pills, but you don''t open it.'
-			elseif pcs_sleep < 10:
-				pilldaychk = 0
-				'You fumble with your birth control pills, trying to get a pill out. You finally give up too tired to manage it.'
-			else
-				pilldaychk = 0
-				'You just realized you forgot to take your birth control pill today.'
-			end
-		end
-		tabletkipt = 2
-		tabletkipi = -4
-	else
-		if tabletkiap < 350:
-			temprand = rand(0,5)
-		else
-			temprand = rand(0,1000)
-		end
-		if temprand = 0:
-			temprand = rand(0,1)
-			if temprand = 0:
-				gs 'din_bad','takepill'
-				tabletkipt = -2
-				tabletkipi = 1
-			else
-				tabletkipt = 3
-				tabletkipi = -3
-			end
-
-			if tabletkipd > -10:
-				pilldaychk = 0
-				'You find yourself holding the bottle of birth control pills, you cannot remember if you took one or not.'
-			end
-			if tabletkipd > 0:
-				if rand(0,9) = 0:
-					if tabletkipt < 0:
-						pilldaychk = 0
-						'You don''t think you have taken your pill today.'
-					else
-						pilldaychk = 1
-						'You think you have taken your pill today.'
-					end
-				else
-					if tabletkipt > 0:
-						pilldaychk = 0
-						'You don''t think you have taken your pill today.'
-					else
-						pilldaychk = 1
-						'You think you have taken your pill today.'
-					end
-				end
-			end
-		else
-			'You take your birth control pill for the day.'
-			pilldaychk = 1
-			gs 'din_bad','takepill'
-			if rand(0,7) = 0 and tabletkiday >= (daystart - 1): tabletkipd += 1
-			tabletkiday = daystart
-			tabletkipt = 0
-			tabletkipi = 0
-		end
-	end
-elseif tabletkicheck = 0:
-	if tabletkiday >= (daystart - 1) and tabletkipt = 0 and rand(0,7) = 0: tabletkipt = 1
-	if pillcon > 0 and tabletkipi = 0 and rand(0,3) = 0 and (tabletkiday + 15) > daystart = 0: tabletkipi = -1
-end
-
-if pilldaychk = 1:
-	pilldays += 1
-else
-	pilldays -= 1
-end
-
-pilldaychk = 0
-if pilldays > 18: pilldays = 18
-if pilldays < 0: pilldays = 0
-
-if pillcon > 38000:
-	birth_control['safe'] = 1
-else
-	birth_control['safe'] = 0
-end
-
-if pillcon2 > 38000:
-	birth_control['think_safe'] = 1
-else
-	birth_control['think_safe'] = 0
-end
-
-$MenCal[] = $str(cycle)
-if ArrSize('$MenCal') = 60: killvar '$MenCal',0
 
+gs 'fertility', 'birth_control'
 
 !!------------------------------------------------------------------------------------------------------------
 

+ 465 - 233
locations/fertility.qsrc

@@ -1,268 +1,500 @@
-# cum_arrcheat
+# fertility
 
-!! npc_pregtalk[] 0/1: Does character A# know that you are currently pregnant
-!! pcs_pregtalk 0/1: Has PC been told she is pregnant
+if $ARGS[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
 
-*clr & cla
-'<center><h2>Cheat Menu - OOX Debug</h2></center>'
-if cycle = 0:
-	$cycletemp[1] = 'menstruating with <<mesec>> hours remaining'
-elseif cycle = 1:
-	cycletemp[6] = (Foch_Max-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 and <<EggRH>> remaining egg release hormone. You have <<UnfertEgg>> unfertilized egg and <<FertEgg>> unimplanted zygote. It has been <<ferteggage>> hours since ovulation began'
-elseif cycle = 3:
-	cycletemp[6] = (LutH_Max-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 Luth > (LutH_Max-75) and placebopart <= 0: placebopart = 8
+	placebopart -= 1
 
-if steriletu < 0:
-	$cycletemp[2]= '. You have had a tubal ligation procedure'
-else
-	$cycletemp[2]= ''
-end
-if lactation['active'] > 0:
-	$cycletemp[3]= '. You are lactating. You currently have <<lactation[''breastmv'']/1000>> millilitres of milk stored, with a capacity of <<lactation[''breastmm'']/1000>> 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'
+	if tabletkishot <= 0: pillcon -= 1000 & pillcon2 -= 1000
+	if pillcon < 0:	pillcon = 0
+	if pillcon2 < 0: pillcon2 = 0
+
+	if tabletkicheck = 2:
+		if tabletkishot ! 0:
+			!!cycle = 1
+			mesec = 0
+			if rand(0,1000) = 1000:
+				EggRH = rand(20,80)
+			else
+				EggRH = 0
+			end
+			FocH = EggRH
+		end
+		if tabletkishot <= 0:
+			pillcon -= 29000
+			pillcon2 -= 29000
+			if tabletkishot < 0: tabletkishot = 0
+		end
+		if shotdays = -8:
+			tabletkicheck = 0
+			shotdue = 0
+			if  birth_control['implant_status'] > 0:
+				'Your birth control shot is no longer protecting you.'
+			end
+		elseif shotdays <= 0:
+			if shotdays = 0:
+				shotdue = 7
+			else
+				shotdue -= 1
+			end
+			if  birth_control['implant_status'] > 0:
+				'The chemicals regulating your fertility cycle are wearing off, you need to get your shot in <<shotdue>> days.'
+			end
+		elseif shotdays > 1 and shotdays < 5 and birth_control['implant_status'] = 0:
+			'You are due for a birth control shot soon if you do not get one, you might get pregnant.'
+		elseif shotdays = 1 and birth_control['implant_status'] = 0:
+			'Your birth control shot is due for renewal tomorrow.'
+		end
+
+		if shotdays > -100:shotdays -=1
+		if tabletkishot > 0:tabletkishot -= 1
 	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, though you believe it is actually <<pillcon2>>.'
-elseif pillcon2 > 0:
-	$cycletemp[4] = '. You currently have <<pillcon>> units of birth control chemical in your body, but you think it is actually <<pillcon2>>.'
-else
-	$cycletemp[4] = ''
-end
 
-if pilldays > 0:
-	$cycletemp[8] = '. You believe you have taken your birth control pill <<pilldays>> days in a row'
-else
-	$cycletemp[8] = ''
-end
+	!! birth_control['implant_status']
+	!! 0: No implant
+	!! 3: Implant (more than 30 days left)
+	!! 2: Implant (less than 30 days left)
+	!! 1: Empty implant
 
-'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.'
+	if birth_control['implant_status'] > 1:
+		pcs_skin += rand(0,1)
+		
+		pillcon += ((pillcon + 15000) / 25) + 4000
+		if pillcon > 40000: pillcon = 40000
+		
+		pillcon2 += ((pillcon2 + 15000) / 25) + 4000
+		if pillcon2 > 40000: pillcon2 = 40000
+			
+		birth_control['implant_timer'] -= 1
+		if (birth_control['implant_timer'] - 1090) > 0:
+			gs 'pain', '<<(birth_control[''implant_timer''] - 1090)*2>>', 'armL', 'ache'
+		elseif birth_control['implant_timer'] > 0 and birth_control['implant_timer'] < 30:
+			birth_control['implant_status'] = 2
+			'Your birth control implant is only good for <<birth_control[''implant_timer'']>> more'+iif(birth_control['implant_timer'] = 1, 'day.', 'days.')
+		elseif birth_control['implant_timer'] < 0:
+			birth_control['implant_status'] = 1
+			'You should renew or remove your birth control implant.'
+		end
+	elseif birth_control['implant_status'] = 1:
+		'You should renew or remove your birth control implant.'
+	end
 
-cycletemp[4] = arrsize('$wombpotfath')
-if cycletemp[4] > 0:
-	cycletemp = 0
-	'Potential Father List (of <<cycletemp[4]>>):'
-	:cumcpfloop
-	if $wombpotfath[cycletemp] ! 'unknown':
-		$cycletemp[5] = $npc_usedname[$wombpotfath[cycletemp]]
-	else
-		$cycletemp[5] = ''
+	tabletkipd += tabletkipi
+	tabletkipi = 0
+	tabletkipt = 0
+	if tabletkicheck = 1:
+		if tabletki = 0 and pillsleft[ptype] = 0:
+			tabletkicheck = 0
+			'You are out of birth control pills.'
+			tabletkipi = -5
+		elseif tabletki = 0 and pillsleft[ptype] = 28:
+			'You have just opened your last package of birth control pills. You need to buy more.'
+		elseif tabletki = 0 and pillsleft[ptype] <= 5:
+			'You are running out of birth control pills, you only have a few left.'
+		end
 	end
-	'Father <<cycletemp>>: <<$wombpotfath[cycletemp]>> - <<$cycletemp[5]>>'
-	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>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>'
-	: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'
+	if tabletkicheck = 1 and tabletkichday < daystart:
+		tabletkichday = daystart
+		tabletkimm = (100*(pcs_willpwr / willpowermax)) + pcs_mood
+		if pcs_sleep < 10:
+			tabletkimm -= (100- (pcs_sleep * 10))
+		end
+		if pcs_willpwr < willpowermax / 4:
+			tabletkimm = tabletkimm / 4
+		elseif pcs_mood < 10:
+			tabletkimm = tabletkimm / 2
+		end
+		tabletkiap = tabletkimm
+		tabletkiap += (pcs_intel * 4) + (pcs_sprt * 2) + (age * 3)
+		tabletkiap -= ((kid * 30) + (abort * 2) - (tabletkipd * ((60 - age) / 10)))
+		temprand = rand(0,(200 + (tabletkimm - ((100 - pcs_sprt) * 3))))
+		tabletkiap += temprand
+		if tabletkiap < 300:
+			if tabletkipd > -10:
+				if pcs_willpwr < willpowermax / 4:
+					pilldaychk = 0
+					'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 pcs_mood < 10:
+					pilldaychk = 0
+					'You stare at your package of birth control pills, but you don''t open it.'
+				elseif pcs_sleep < 10:
+					pilldaychk = 0
+					'You fumble with your birth control pills, trying to get a pill out. You finally give up too tired to manage it.'
+				else
+					pilldaychk = 0
+					'You just realized you forgot to take your birth control pill today.'
+				end
+			end
+			tabletkipt = 2
+			tabletkipi = -4
+		else
+			if tabletkiap < 350:
+				temprand = rand(0,5)
+			else
+				temprand = rand(0,1000)
+			end
+			if temprand = 0:
+				temprand = rand(0,1)
+				if temprand = 0:
+					gs 'din_bad','takepill'
+					tabletkipt = -2
+					tabletkipi = 1
+				else
+					tabletkipt = 3
+					tabletkipi = -3
+				end
+
+				if tabletkipd > -10:
+					pilldaychk = 0
+					'You find yourself holding the bottle of birth control pills, you cannot remember if you took one or not.'
+				end
+				if tabletkipd > 0:
+					if rand(0,9) = 0:
+						if tabletkipt < 0:
+							pilldaychk = 0
+							'You don''t think you have taken your pill today.'
+						else
+							pilldaychk = 1
+							'You think you have taken your pill today.'
+						end
+					else
+						if tabletkipt > 0:
+							pilldaychk = 0
+							'You don''t think you have taken your pill today.'
+						else
+							pilldaychk = 1
+							'You think you have taken your pill today.'
+						end
+					end
+				end
+			else
+				'You take your birth control pill for the day.'
+				pilldaychk = 1
+				gs 'din_bad','takepill'
+				if rand(0,7) = 0 and tabletkiday >= (daystart - 1): tabletkipd += 1
+				tabletkiday = daystart
+				tabletkipt = 0
+				tabletkipi = 0
+			end
+		end
+	elseif tabletkicheck = 0:
+		if tabletkiday >= (daystart - 1) and tabletkipt = 0 and rand(0,7) = 0: tabletkipt = 1
+		if pillcon > 0 and tabletkipi = 0 and rand(0,3) = 0 and (tabletkiday + 15) > daystart = 0: tabletkipi = -1
+	end
+
+	if pilldaychk = 1:
+		pilldays += 1
 	else
-		$cycletemp[2] = 'improperly defined'
+		pilldays -= 1
 	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] = iif(birth_control['implant_status'] > 1, 'You have a birth control implant', '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'
-	elseif cumarrcon[cycletemp] = 8:
-		$cycletemp[3] = 'Precum had sperm in it'
-	elseif cumarrcon[cycletemp] = 9:
-		$cycletemp[3] = 'Semen from a previous sexual act was pushed into the vagina'
+
+	pilldaychk = 0
+	if pilldays > 18: pilldays = 18
+	if pilldays < 0: pilldays = 0
+
+	if pillcon > 38000:
+		birth_control['safe'] = 1
 	else
-		$cycletemp[3] = 'improperly defined'
+		birth_control['safe'] = 0
 	end
-	$cycletemp[5] = $npc_usedname[$cumarrnam[cycletemp]]
-	!'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]>>.'
-	*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>'
-	cycletemp += 1
-	if cycletemp < arrsize('$cumarrnam'):
-		jump 'cumcswloop'
+
+	if pillcon2 > 38000:
+		birth_control['think_safe'] = 1
 	else
-		'</TABLE>'
+		birth_control['think_safe'] = 0
 	end
-else
-	'No sperm is registered in your womb.'
+
+	$MenCal[] = $str(cycle)
+	if ArrSize('$MenCal') = 60: killvar '$MenCal',0
 end
 
+if $ARGS[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
 
-cycletemp[4] = arrsize('sparrvol')
-if cycletemp[4] > 0:
-	cycletemp = 0
-	'Sperm spatter (of <<cycletemp[4]>>):'
-	'<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>'
-	: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'
+	*clr & cla
+	'<center><h2>Cheat Menu - OOX Debug</h2></center>'
+	if cycle = 0:
+		$cycletemp[1] = 'menstruating with <<mesec>> hours remaining'
+	elseif cycle = 1:
+		cycletemp[6] = (Foch_Max-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 and <<EggRH>> remaining egg release hormone. You have <<UnfertEgg>> unfertilized egg and <<FertEgg>> unimplanted zygote. It has been <<ferteggage>> hours since ovulation began'
+	elseif cycle = 3:
+		cycletemp[6] = (LutH_Max-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[3] = 'improperly defined'
+		$cycletemp[1] = 'an unknown value'
 	end
-	$cycletemp[5] = $npc_usedname[$sparrnam[cycletemp]]
-	!'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]>>.'
-	*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>'
-	cycletemp += 1
-	if cycletemp < arrsize('sparrvol'):
-		jump 'cumcsbloop'
+
+	if steriletu < 0:
+		$cycletemp[2]= '. You have had a tubal ligation procedure'
 	else
-		'</TABLE>'
+		$cycletemp[2]= ''
+	end
+	if lactation['active'] > 0:
+		$cycletemp[3]= '. You are lactating. You currently have <<lactation[''breastmv'']/1000>> millilitres of milk stored, with a capacity of <<lactation[''breastmm'']/1000>> 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, though you believe it is actually <<pillcon2>>.'
+	elseif pillcon2 > 0:
+		$cycletemp[4] = '. You currently have <<pillcon>> units of birth control chemical in your body, but you think it is actually <<pillcon2>>.'
+	else
+		$cycletemp[4] = ''
 	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</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>'
-	:cumcbcloop
-	if polkid[cycletemp] = 0:
-		$cycletemp[2] = 'F'
+	if pilldays > 0:
+		$cycletemp[8] = '. You believe you have taken your birth control pill <<pilldays>> days in a row'
 	else
-		$cycletemp[2] = 'M'
+		$cycletemp[8] = ''
 	end
-	if babyptype[cycletemp] = 0:
-		$cycletemp[3] = 'Zygote'
-	elseif babyptype[cycletemp] = 1:
-		$cycletemp[3] = 'Healthy Implantation'
-	elseif babyptype[cycletemp] = 2:
-		$cycletemp[3] = 'Ectopic 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'
+
+	'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.'
+
+	cycletemp[4] = arrsize('$wombpotfath')
+	if cycletemp[4] > 0:
+		cycletemp = 0
+		'Potential Father List (of <<cycletemp[4]>>):'
+		:cumcpfloop
+		if $wombpotfath[cycletemp] ! 'unknown':
+			$cycletemp[5] = $npc_usedname[$wombpotfath[cycletemp]]
+		else
+			$cycletemp[5] = ''
+		end
+		'Father <<cycletemp>>: <<$wombpotfath[cycletemp]>> - <<$cycletemp[5]>>'
+		cycletemp += 1
+		if cycletemp < arrsize('$wombpotfath'): jump 'cumcpfloop'
 	else
-		$cycletemp[3] = 'Unlabelled Ptype'
+		'No listed potential fathers.'
 	end
-	if ChildConType[cycletemp] = 0:
-		$cycletemp[4] = 'No contraception used'
-	elseif ChildConType[cycletemp] = 1:
-		$cycletemp[4] = 'You lied about being on the pill'
-	elseif ChildConType[cycletemp] = 2:
-		$cycletemp[4] = 'You were on the pill'
-	elseif ChildConType[cycletemp] = 3:
-		$cycletemp[4] = 'You used a condom'
-	elseif ChildConType[cycletemp] = 4:
-		$cycletemp[4] = 'The condom broke'
-	elseif ChildConType[cycletemp] = 5:
-		$cycletemp[4] = 'The condom slipped off inside you'
-	elseif ChildConType[cycletemp] = 6:
-		$cycletemp[4] = 'The condom was sabotaged by someone else'
-	elseif ChildConType[cycletemp] = 7:
-		$cycletemp[4] = 'You sabotaged the condom'
+
+	cycletemp[4] = arrsize('$cumarrnam')
+	if cycletemp[4] > 0:
+		cycletemp = 0
+		'Sperm in your womb (of <<cycletemp[4]>>):'
+		'<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>'
+		: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] = iif(birth_control['implant_status'] > 1, 'You have a birth control implant', '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'
+		elseif cumarrcon[cycletemp] = 8:
+			$cycletemp[3] = 'Precum had sperm in it'
+		elseif cumarrcon[cycletemp] = 9:
+			$cycletemp[3] = 'Semen from a previous sexual act was pushed into the vagina'
+		else
+			$cycletemp[3] = 'improperly defined'
+		end
+		$cycletemp[5] = $npc_usedname[$cumarrnam[cycletemp]]
+		!'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]>>.'
+		*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>'
+		cycletemp += 1
+		if cycletemp < arrsize('$cumarrnam'):
+			jump 'cumcswloop'
+		else
+			'</TABLE>'
+		end
 	else
-		$cycletemp[4] = 'improperly defined'
+		'No sperm is registered in your womb.'
 	end
-	$cycletemp[5] = $npc_usedname[$ChildFath[cycletemp]]
-	if $ChildThFath[cycletemp] ! 'unknown':
-		$cycletemp[7] = $npc_usedname[$ChildThFath[cycletemp]]
+
+
+	cycletemp[4] = arrsize('sparrvol')
+	if cycletemp[4] > 0:
+		cycletemp = 0
+		'Sperm spatter (of <<cycletemp[4]>>):'
+		'<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>'
+		: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
+		$cycletemp[5] = $npc_usedname[$sparrnam[cycletemp]]
+		!'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]>>.'
+		*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>'
+		cycletemp += 1
+		if cycletemp < arrsize('sparrvol'):
+			jump 'cumcsbloop'
+		else
+			'</TABLE>'
+		end
 	else
-		$cycletemp[7] = ''
+		'No sperm spatter is registered.'
 	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 Type: <<$childtype[cycletemp]>>. Child Contraceptive Type: <<$cycletemp[4]>>'
-	*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>'
-	cycletemp += 1
-	if cycletemp < arrsize('$ChildFath'):
-		jump 'cumcbcloop'
+
+	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</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>'
+		:cumcbcloop
+		if polkid[cycletemp] = 0:
+			$cycletemp[2] = 'F'
+		else
+			$cycletemp[2] = 'M'
+		end
+		if babyptype[cycletemp] = 0:
+			$cycletemp[3] = 'Zygote'
+		elseif babyptype[cycletemp] = 1:
+			$cycletemp[3] = 'Healthy Implantation'
+		elseif babyptype[cycletemp] = 2:
+			$cycletemp[3] = 'Ectopic 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
+		if ChildConType[cycletemp] = 0:
+			$cycletemp[4] = 'No contraception used'
+		elseif ChildConType[cycletemp] = 1:
+			$cycletemp[4] = 'You lied about being on the pill'
+		elseif ChildConType[cycletemp] = 2:
+			$cycletemp[4] = 'You were on the pill'
+		elseif ChildConType[cycletemp] = 3:
+			$cycletemp[4] = 'You used a condom'
+		elseif ChildConType[cycletemp] = 4:
+			$cycletemp[4] = 'The condom broke'
+		elseif ChildConType[cycletemp] = 5:
+			$cycletemp[4] = 'The condom slipped off inside you'
+		elseif ChildConType[cycletemp] = 6:
+			$cycletemp[4] = 'The condom was sabotaged by someone else'
+		elseif ChildConType[cycletemp] = 7:
+			$cycletemp[4] = 'You sabotaged the condom'
+		else
+			$cycletemp[4] = 'improperly defined'
+		end
+		$cycletemp[5] = $npc_usedname[$ChildFath[cycletemp]]
+		if $ChildThFath[cycletemp] ! 'unknown':
+			$cycletemp[7] = $npc_usedname[$ChildThFath[cycletemp]]
+		else
+			$cycletemp[7] = ''
+		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 Type: <<$childtype[cycletemp]>>. Child Contraceptive Type: <<$cycletemp[4]>>'
+		*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>'
+		cycletemp += 1
+		if cycletemp < arrsize('$ChildFath'):
+			jump 'cumcbcloop'
+		else
+			'</TABLE>'
+		end
 	else
-		'</TABLE>'
+		'No Pregnancies registered.'
 	end
-else
-	'No Pregnancies registered.'
+	killvar '$cycletemp'
+	act 'Return to cheat index': dynamic $cheatmenu
 end
-killvar '$cycletemp'
-act 'Return to cheat index': dynamic $cheatmenu
-
---- cum_arrcheat ---------------------------------
+--- fertility ---------------------------------
 

+ 12 - 0
locations/schedule.qsrc

@@ -0,0 +1,12 @@
+# schedule
+
+if $ARGS[0] = 'cikl':
+
+
+
+
+
+
+
+end
+--- schedule ---------------------------------