Browse Source

Merge branch 'master' of https://git.catrenelle.com/Kevin_Smarts/glife

Anya 2 years ago
parent
commit
f4210e2dfb

+ 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'
 
 !!------------------------------------------------------------------------------------------------------------
 

+ 0 - 268
locations/cum_arrcheat.qsrc

@@ -1,268 +0,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
-
-*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 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'
-	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
-
-'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
-	'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'
-	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
-	'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>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
-	'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'
-	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
-	'No Pregnancies registered.'
-end
-killvar '$cycletemp'
-act 'Return to cheat index': dynamic $cheatmenu
-
---- cum_arrcheat ---------------------------------
-

+ 500 - 0
locations/fertility.qsrc

@@ -0,0 +1,500 @@
+# fertility
+
+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
+
+	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
+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
+
+	*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 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'
+		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
+
+	'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
+		'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'
+		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
+		'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>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
+		'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'
+		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
+		'No Pregnancies registered.'
+	end
+	killvar '$cycletemp'
+	act 'Return to cheat index': dynamic $cheatmenu
+end
+--- fertility ---------------------------------
+

+ 100 - 58
locations/pav_disco_coolkids.qsrc

@@ -28,52 +28,95 @@ if $ARGS[0] = 'classmates':
 	end
 
 	'<center><b><font color="maroon">Disco</font></b></center>'
-	'<center><table><TR><TD>Most of the cool kids and jocks are gathered around some tables and couches near the dance floor while the others dance. Some of the other students are hanging around near them or are out dancing.</TD></table></center>'
+	'<center><table><tr><td colspan = 8>Most of the cool kids and jocks are gathered around some tables and couches near the dance floor while the others dance. Some of the other students are hanging around near them or are out dancing.</td></tr>'
 
-	'<center><table border=0 cellspacing=0 cellpadding=5><TR>'
 	i = 1
+	i2 = 0
 	:discopop_loop
 		if (npc_grupTipe['A<<i>>'] = 1 or $npc_nickname['A<<i>>'] = 'Natasha') and discoenable['A<<i>>'] = 1:
-			*p '<TD><a href="exec: i = <<i>> & gt ''pav_disco_coolkids'', ''cool_list''"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"></a></br><<$npc_firstname[''A<<i>>'']>></TD>'
+			if i2 = 0: '<tr>'
+			i2 += 1
+			'<td width =12.5%><table bgcolor=#FFF8DC><tr><td align=center><a href="exec: i = <<i>> & gt ''pav_disco_coolkids'', ''cool_list''"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"></a></td></tr><tr><td align=center><<$npc_firstname[''A<<i>>'']>></td></tr></table></td>'
+			if i2 mod 8 = 0: i2 = 0 & '</tr>'
 		end
 		i += 1
 	if i <= aarraynumber:jump 'discopop_loop'
 
-	'<TR>'
-
 	i = 1
 	:discojock_loop
 		if npc_grupTipe['A<<i>>'] = 2 and discoenable['A<<i>>'] = 1:
-			*p '<TD><a href="exec: i = <<i>> & gt ''pav_disco_coolkids'', ''jocks_list''"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"></a></br><<$npc_firstname[''A<<i>>'']>></TD>'
+			if i2 = 0: '<tr>'
+			i2 += 1
+			'<td width =12.5%><table bgcolor=#FFF8DC><tr><td align=center><a href="exec: i = <<i>> & gt ''pav_disco_coolkids'', ''jocks_list''"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"></a></td></tr><tr><td align=center><<$npc_firstname[''A<<i>>'']>></td></tr></table></td>'
+			if i2 mod 8 = 0: i2 = 0 & '</tr>'
 		end
 		i += 1
 	if i <= aarraynumber:jump 'discojock_loop'
-	
-	'</table></center>'
+	if i2 mod 8 <> 0:
+		:disco_loopi21
+		i2 += 1
+		'<td></td>'
+		if i2 mod 8 = 0:
+			i2 = 0
+			'</tr>'
+		else
+			jump 'disco_loopi21'
+		end
+	end
+
+	'<tr><td colspan=8>The gopniks are lounging in the darkest corner of the hall. They''re mostly keeping to themselves, but a few of them are out dancing.</td></tr>'
 
-	'<center><table><TR><TD>The gopniks are lounging in the darkest corner of the hall. They''re mostly keeping to themselves, but a few of them are out dancing.</TD></table></center>'
-	
-	'<center><table border=0 cellspacing=0 cellpadding=5><TR>'
 	i = 1
 	:discogop_loop
 		if npc_grupTipe['A<<i>>'] = 4 and discoenable['A<<i>>'] = 1:
 			$loopname = $npc_nickname['A<<i>>']
 			$loopname = $lcase($loopname)
-			*p '<TD><a href="exec: i = <<i>> & gt ''pav_disco_coolkids'', ''gop_list''"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"></a></br><<$npc_firstname[''A<<i>>'']>></TD>'
+			if i2 = 0: '<tr>'
+			i2 += 1
+			'<td width =12.5%><table bgcolor=#FFF8DC><tr><td align=center><a href="exec: i = <<i>> & gt ''pav_disco_coolkids'', ''gop_list''"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"></a></td></tr><tr><td align=center><<$npc_firstname[''A<<i>>'']>></td></tr></table></td>'
+			if i2 mod 8 = 0: i2 = 0 & '</tr>'
+		end
+		if i = 144:
+			if i2 mod 8 <> 0:
+				:disco_loopi22
+				i2 += 1
+				'<td></td>'
+				if i2 mod 8 = 0:
+					i2 = 0
+					'</tr>'
+				else
+					jump 'disco_loopi22'
+				end
+			end
 		end
-		if i = 144: '<TR>'
 		i += 1
 	if i <= aarraynumber:jump 'discogop_loop'
-	
-	if soniaPS > 0 and discoenable['A25'] = 1: *p '<a href="exec:gt ''pav_disco_coolkids'', ''sonia_outcast''"><img  height="100" src="images/characters/shared/headshots_main/25.jpg"></a><br>'
+	if i2 mod 8 <> 0:
+		:disco_loopi23
+		i2 += 1
+		'<td></td>'
+		if i2 mod 8 = 0:
+			i2 = 0
+			'</tr>'
+		else
+			jump 'disco_loopi23'
+		end
+	end
+
+	if soniaPS > 0 and discoenable['A25'] = 1:
+		'<tr><td><table bgcolor=#FFF8DC><tr><td align=center><a href="exec:gt ''pav_disco_coolkids'', ''sonia_outcast'' "><img  height="100" src="images/characters/shared/headshots_main/25.jpg"></a></td></tr><tr><td align=center><<$npc_firstname[''A25'']>></td></tr></table></td><td colspan=7></td></tr>'
+	end
+	if hour >= 21 and hour < 23 and week=5:
+		'<tr><td bgcolor=#FFF8DC align=left width=12.5%><a href="exec: gt ''VolleyTrenerSpeak''"><img  height="100" src="images/characters/shared/headshots_main/69.jpg"></a></td><td valign=bottom align=left bgcolor=white colspan=7>Coach Mikhail Nikolayevich stands at the enterance of the hall.</td></tr>'
+	end
 	'</table></center>'
 	*nl
-	
+
 	!!display of their headshots in a table like the above $args has.
 !!if you click the head shot it goes to there args for the disco to interact with them.
-	
-	
-!!also a more advanced version of the above, can we not only give them a chance to be present, but split the images in two. One them sitting around and one of the ones dancing? SO something like this. 
+
+
+!!also a more advanced version of the above, can we not only give them a chance to be present, but split the images in two. One them sitting around and one of the ones dancing? SO something like this.
 !!	'Most the cool kids and a few of the jocks are mostly gathered around some tables and couches near the dance floor.'
 	!!display of their headshots in a table like the above $args has of those sitting around
 !!	'While several of the cool kids and jocks are out on the dance floor dancing.'
@@ -84,9 +127,8 @@ if $ARGS[0] = 'classmates':
 	!!display of their headshots in a table like the above $args has of those dancing
 !!	'Occasionally you see some of your other classmates here'
 	!!Natasha and Sonia_outcast are the only ones that can show up here
-	
+
 	act 'Move away': gt $loc, $loc_arg
-	if hour >= 21 and hour < 23 and week=5: '<center><a href="exec: gt ''VolleyTrenerSpeak''">Coach Mikhail Nikolayevich</a> stands at the enterance of the hall.</center>'
 end
 
 if $ARGS[0] = 'jocks_list':
@@ -318,7 +360,7 @@ if $ARGS[0] = 'dimka':
 			elseif npc_rel['A1'] <= 20 or fame['pav_slut'] >= 250:
 				'"Nobody wants you here, whore. At least not yet. You might have a dick or two to suck later though." he says mockingly before turning his back and shunning you.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-			else 
+			else
 				'When Dimka sees you, he just smiles and keeps dancing. He doesn''t seem to mind you dancing next to him, but he doesn''t talk to you and instead focuses on the others.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 				act 'Dance with him': gt 'pav_disco_coolkids', 'dimka_dance'
@@ -355,7 +397,7 @@ if $ARGS[0] = 'dimka':
 				end
 				act 'Go with Dimka': gt 'pav_disco_coolkids', 'dimka_sex'
 			end
-			
+
 		elseif grupTipe = 5:
 			'When you get near him, he glances at some of the other cool kids and then back to you. "You get lost loser?" He looks you over and shakes his head. "Where did you get those clothes? Do you even know how to dress yourself?" Several of the others laugh at his comment. "Go away, you''re killing the mood, loser."'
 			act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
@@ -371,7 +413,7 @@ if $ARGS[0] = 'dimka':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big1.jpg"></center>'
 				'"Would you like to dance?" you ask with a smile.'
-				'He hesitates for a moment before nodding. "Yeah, sure."' 
+				'He hesitates for a moment before nodding. "Yeah, sure."'
 				'The two of you then head off onto the dance floor together.'
 				act 'Go dancing': gt 'pav_disco_coolkids', 'dimka_dance'
 			end
@@ -402,7 +444,7 @@ if $ARGS[0] = 'dimka':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big1.jpg"></center>'
 				'"Would you like to dance?" you ask with a smile.'
-				'He hesitates for a moment before nodding. "Yeah, sure."' 
+				'He hesitates for a moment before nodding. "Yeah, sure."'
 				'The two of you then head off onto the dance floor together.'
 				act 'Go dancing': gt 'pav_disco_coolkids', 'dimka_dance'
 			end
@@ -459,7 +501,7 @@ if $ARGS[0] = 'dimka_dance':
 						'<center><b><font color="maroon"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></font></b></center>'
 						'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big1.jpg"></center>'
 						'"I don''t know", you say, embarrassed, "maybe?"'
-						'Dimka smiles and hugs you. "Of course. I knew it from the start. But... You know, I can''t be going out with some sort of nun - most girls here are prudes. I want a girl who knows how to enjoy herself... and you know how to have fun, right?"' 
+						'Dimka smiles and hugs you. "Of course. I knew it from the start. But... You know, I can''t be going out with some sort of nun - most girls here are prudes. I want a girl who knows how to enjoy herself... and you know how to have fun, right?"'
 						'You nod carefully. Where is he going with this?'
 						'His smile get even bigger. "So, it''s simple: I''ll go out with you if you can prove to me that you''re not a prude. All you''ve gotta do... is suck my dick, right now."'
 						dynamic $din_dima_predlog
@@ -469,7 +511,7 @@ if $ARGS[0] = 'dimka_dance':
 				end
 			else
 				act 'No - This is all too sudden (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-			end	
+			end
 
 			act 'Yes - You''ve always wanted a boyfriend like him':
 				cls
@@ -477,7 +519,7 @@ if $ARGS[0] = 'dimka_dance':
 				'<center><b><font color="maroon"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></font></b></center>'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big1.jpg"></center>'
 				'You were a little surprised by his directness but respond "Yes".'
-				'Dimka smiles. "Of course. I knew it from the start. But... You know, I can''t be going out with some sort of nun - most girls here are prudes. I want a girl who knows how to enjoy herself... and you know how to have fun, right?"' 
+				'Dimka smiles. "Of course. I knew it from the start. But... You know, I can''t be going out with some sort of nun - most girls here are prudes. I want a girl who knows how to enjoy herself... and you know how to have fun, right?"'
 				'You nod carefully. Where is he going with this?'
 				'His smile get even bigger. "So, it''s simple: I''ll go out with you if you can prove to me that you''re not a prude. All you''ve gotta do... is suck my dick, right now."'
 				dynamic $din_dima_predlog
@@ -638,7 +680,7 @@ if $ARGS[0] = 'marcus':
 		act 'Go out on the dance floor':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/school_kids/marcus_dance.jpg"></center>'
-			if npc_rel['A146'] >= 50 and fame['pav_slut'] < 250:		
+			if npc_rel['A146'] >= 50 and fame['pav_slut'] < 250:
 				'"Hey <<$pcs_nickname>>, want to dance?" he asks as you approach before moving in close and dancing next to you.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 				act 'Dance with him': gt 'pav_disco_coolkids', 'marcus_dance'
@@ -654,7 +696,7 @@ if $ARGS[0] = 'marcus':
 			elseif fame['pav_slut'] >= 250:
 				'When he sees you heading in his direction, he moves away and starts dancing with another girl on the dance floor.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-			else 
+			else
 				'When you get near him, he smiles but then turns and starts dancing with another girl on the dance floor that seems interested in him, completely ignoring you.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 			end
@@ -667,7 +709,7 @@ if $ARGS[0] = 'marcus':
 			minut += 15
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big146.jpg"></center>'
-			if npc_rel['A146'] >= 50 and fame['pav_slut'] < 250:		
+			if npc_rel['A146'] >= 50 and fame['pav_slut'] < 250:
 				'You enjoy hearing the stories Marcus tells you about his life in America. "It''s kind of funny, I don''t think I was nearly as popular as this back home. I''m not complaining though!"'
 				'You spend the some more time asking more questions about his home life and he''s happy to tell you all about it.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
@@ -784,7 +826,7 @@ if $ARGS[0] = 'marcus_dance':
 							end
 						else
 							act 'No (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-						end	
+						end
 					end
 				end
 			else
@@ -811,7 +853,7 @@ if $ARGS[0] = 'andrey_stasya':
 		act 'Go out on the dance floor':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/school_kids/andrey_stasya_dance2.jpg"></center>'
-			if npc_rel['A147'] >= 50 and npc_rel['A139'] >= 50 and fame['pav_slut'] < 250:		
+			if npc_rel['A147'] >= 50 and npc_rel['A139'] >= 50 and fame['pav_slut'] < 250:
 				'When you get close to them they smile and part a little, an obvious invite to dance with them. You start dancing with them, sometimes with Andrey, other times with Stasya and sometimes all three of you dance together. More often than not, you''re forced aside as they kiss while dancing.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 				act 'Keep dancing with them':
@@ -874,7 +916,7 @@ if $ARGS[0] = 'andrey_stasya':
 			elseif fame['pav_slut'] >= 250:
 				'When they see you heading in their direction, they both give you looks of disgust, making is very clear they want nothing to do with you.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-			else 
+			else
 				'When you get near them, they mostly ignore you, but they don''t seem to mind you dancing right next to them.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 			end
@@ -888,7 +930,7 @@ if $ARGS[0] = 'andrey_stasya':
 			minut += 15
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/school_kids/andrey_stasya.jpg"></center>'
-			if npc_rel['A147'] >= 50 and npc_rel['A139'] >= 50 and fame['pav_slut'] < 250:		
+			if npc_rel['A147'] >= 50 and npc_rel['A139'] >= 50 and fame['pav_slut'] < 250:
 				if hotcat >= 6 and Marcus_sextype >= 1:
 					'You spend some time with Andrey and Stasya talking about school or local gossip, asking them questions about their home life and Andrey is all to happy to tell you all about it, which mostly involves what him and Marcus get up to, which causes Stasya to stop talking as much and get a sour look on her face. After a bit he leans over and whispers something to her, but you can''t make it out.'
 					*nl
@@ -938,7 +980,7 @@ if $ARGS[0] = 'andrey_stasya':
 				'As you get close to them Stasya says. "Oh my god, stay away from us you skank."'
 				'Andrey gives you a dirty look and puts his arm around Stasya. "We have nothing to say to you, slut."'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-			else 
+			else
 				'You spend some time with Andrey and Stasya until she says "I want a drink."'
 				'"Sure babe, anything you want. Catch you later <<$pcs_nickname>>." he says to you with a smile before they walk off hand in hand.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
@@ -1024,7 +1066,7 @@ if $ARGS[0] = 'mefodiy':
 				minut += 15
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big148.jpg"></center>'
-				'"They used to pick on me when I was younger for being a late developer. When you''re the smallest kid in the year, bullies single you out. I was good at avoiding them, but I ended up getting cornered by a group of them one day. Vitek was feeding off the rest of them and calling me names before he punched me really hard. I fell to the floor and he walked up about to kick me in the guts when Roman stepped between us. Vitek told him to get out of the way, but Roman just stares him down.' 
+				'"They used to pick on me when I was younger for being a late developer. When you''re the smallest kid in the year, bullies single you out. I was good at avoiding them, but I ended up getting cornered by a group of them one day. Vitek was feeding off the rest of them and calling me names before he punched me really hard. I fell to the floor and he walked up about to kick me in the guts when Roman stepped between us. Vitek told him to get out of the way, but Roman just stares him down.'
 				'It looked stupid, this little guy staring up at Vitek with Dan and Vasily flanking him but they backed down. Vitek made some excuse and walked away and I was going to thank Roman, but he just walked off with the rest of them. I still don''t know why he did it, but that''s why I don''t like the gopniks."'
 				act 'Ask him if they still give him trouble':
 					*clr & cla
@@ -1090,7 +1132,7 @@ if $ARGS[0] = 'igor':
 		act 'Go out on the dance floor':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/school_kids/igor_dance.jpg"></center>'
-			if npc_rel['A4'] >= 50 and fame['pav_slut'] < 250:		
+			if npc_rel['A4'] >= 50 and fame['pav_slut'] < 250:
 				'When Igor sees you, his face lights up and he smiles warmly. He waves you over and when you get to him, he pulls you in for a hug. "I was hoping I''d see you." he says shyly before he starts dancing with you. You can''t help but giggle at him.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 				act 'Dance with him': gt 'pav_disco_coolkids', 'igor_dance'
@@ -1100,7 +1142,7 @@ if $ARGS[0] = 'igor':
 			elseif npc_rel['A4'] <= 20 or fame['pav_slut'] >= 250:
 				'When he sees you coming he walks away, only to stop a short distance away and start dancing again.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-			else 
+			else
 				'When Igor sees you, he just smiles and keeps dancing. He doesn''t seem to mind you dancing with him.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 				act 'Dance with him': gt 'pav_disco_coolkids', 'igor_dance'
@@ -1158,7 +1200,7 @@ if $ARGS[0] = 'igor':
 				*clr & cla
 				minut += 15
 				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'		
+				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 				'The two of you start discussing the outfits and styles of the various people at the disco, mostly giggling at those with awful fashion sense before he turns to you. "Would you like to dance?"'
 				act 'No':
 					*clr & cla
@@ -1186,7 +1228,7 @@ if $ARGS[0] = 'igor':
 		elseif fame['pav_slut'] >= 200:
 			'Igor is hanging out with some of the cool kids as you approach. The others are quick to throw some insults your way, but Igor hesitates. It isn''t until the rest notice his silence that he finally speaks up to agree with the rest of the group. "I''m surprised the gopniks are finished with her so early. Must have had another cocksleeve waiting for them, or maybe she''s just gotten too loose."'
 			act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-		else 
+		else
 			'"Hey Igor, what are you doing?" you ask as you see him looking around for someone.'
 			'He just shrugs. "Just hanging out. You?"'
 			'The two of you spend some time chatting. He''s a little reserved at first, but the more you talk the more he opens up.'
@@ -1195,7 +1237,7 @@ if $ARGS[0] = 'igor':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 				'"Would you like to dance?" you ask with a smile.'
-				'He hesitates for a moment before nodding. "Yeah, sure."' 
+				'He hesitates for a moment before nodding. "Yeah, sure."'
 				'The two of you then head off onto the dance floor together.'
 				act 'Go dancing': gt 'pav_disco_coolkids', 'igor_dance'
 			end
@@ -1250,19 +1292,19 @@ if $ARGS[0] = 'igor_dance':
 						cls
 						gs 'willpower', 'pay', 'resist'
 						gs 'stat'
-						'You refuse to go outside with Igor. He doesn''t say a word in response, but looks angry. Dimka, as if he had sensed your refusal, comes over and asks what''s wrong. Igor shrugs. "Your cocksucker doesn''t want to suck me off."' 
+						'You refuse to go outside with Igor. He doesn''t say a word in response, but looks angry. Dimka, as if he had sensed your refusal, comes over and asks what''s wrong. Igor shrugs. "Your cocksucker doesn''t want to suck me off."'
 						'Dimka frowns at you. "He''s my best friend. When he asks you to blow him, you do it as if it was me who asked. Now, let''s see about that blowjob!" He grabs your arm - you don''t know what it is about him, but resistance seems futile. Igor, encouraged by Dimka''s action, takes the other, and the two of them lead you outside.'
 						dynamic $din_igor_dima_disco_bj
 					end
 				else
 					act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-				end	
+				end
 
 				exit
 			end
 
 			if npc_rel['A1'] = 0:
-				'"Dimka told me that you dumped him. I get it, he can be a real asshole sometime." Igor whispers in your ear.' 
+				'"Dimka told me that you dumped him. I get it, he can be a real asshole sometime." Igor whispers in your ear.'
 				'He pauses for a second. "Want to go outside and get some air?"'
 				'You feel that you could use some fresh air and agree.'
 				dynamic $din_igor__disco
@@ -1411,7 +1453,7 @@ if $ARGS[0] = 'katja':
 	minut += 5
 	gs 'npc_relationship', 'modify', 'A14', 'like'
 	gs 'stat'
-	if rand(1,4) <= 3 and katjaQW['QWstage']  > 1: 
+	if rand(1,4) <= 3 and katjaQW['QWstage']  > 1:
 		'<center><b><font color="maroon">Disco</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_dance1_1.jpg"></center>'
 		'You see Katja out on the dance floor dancing by herself.'
@@ -1613,7 +1655,7 @@ if $ARGS[0] = 'sonia':
 		act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 		act 'Go out on the dance floor':
 			*clr & cla
-			if npc_rel['A25'] >= 50 and fame['pav_slut'] < 250:		
+			if npc_rel['A25'] >= 50 and fame['pav_slut'] < 250:
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/school_kids/sonia_dance.jpg"></center>'
 				'She smiles at you as she sees you coming out onto the dance floor. She waves you over, obviously wanting to dance with you.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
@@ -1627,7 +1669,7 @@ if $ARGS[0] = 'sonia':
 				'She smiles at you as she sees you coming out onto the dance floor. She doesn''t move away, but also doesn''t encourage you to dance with her.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 				act 'Dance with her': gt 'pav_disco_coolkids', 'sonia_dance'
-			else 
+			else
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/school_kids/sonia_dance.jpg"></center>'
 				'She smiles at you and waves as you she sees you coming out onto the dance floor.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
@@ -1643,7 +1685,7 @@ if $ARGS[0] = 'sonia':
 			minut += 15
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big25.jpg"></center>'
-			if npc_rel['A25'] >= 50 and fame['pav_slut'] < 250:		
+			if npc_rel['A25'] >= 50 and fame['pav_slut'] < 250:
 				'She grins at you when you walk over. "Hey <<$pcs_nickname>>, what''s up girl?"'
 				'You can''t help but smile. Her energy and happiness is infectious. "Nothing much, just came to have fun. You?"'
 				'She giggles. "I LOVE having fun." The two of you start talking about various things you''ve done for fun lately.'
@@ -1672,7 +1714,7 @@ if $ARGS[0] = 'sonia':
 				'You can''t help but smile. She''s one of the only people that''s nice to you, even in public. "Nothing much, just came to have fun. You?"'
 				'She shrugs a little. "Oh you know, just hanging with my peeps, looking for a little fun." A new song starts playing and before you can respond. "OH MY GOD! I love this song, let''s dance!" she says to one of the other girls and grabs her hand before pulling them out onto the dance floor. She gives you a friendly wave before disappearing onto the dance floor.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-			else 
+			else
 				'She smiles at you when you approach. "Hey <<$pcs_nickname>>, what''s up?"'
 				'You can''t help but smile. Her energy and happiness is infectious. "Nothing much, just came to have fun. You?"'
 				'She shrugs a little. "Oh you know, just hanging with my peeps, looking for a little fun." A new song starts playing and before you can respond. "OH MY GOD! I love this song, let''s dance!" she says to one of the other girls and grabs her hand before pulling them out onto the dance floor. She gives you a friendly wave before disappearing onto the dance floor.'
@@ -1710,7 +1752,7 @@ if $ARGS[0] = 'sonia_outcast':
 		act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 		act 'Go out on the dance floor':
 			*clr & cla
-			if npc_rel['A25'] >= 50 and fame['pav_slut'] < 250:		
+			if npc_rel['A25'] >= 50 and fame['pav_slut'] < 250:
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/school_kids/sonia_outcast_dance2.jpg"></center>'
 				'When she sees you heading out onto the dance floor, she starts dancing her way over to you with a big smile on her face. "Hey <<$pcs_nickname>>, I''m so glad you came. Dance with me?"'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
@@ -1724,7 +1766,7 @@ if $ARGS[0] = 'sonia_outcast':
 				'When she sees you heading out onto the dance floor, she starts dancing her way over to you with a big smile on her face. "Hey slut! Let''s make all the boys lose their fucking minds and give them a hell of a show!"'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 				act 'Dance with her': gt 'pav_disco_coolkids', 'sonia_outcast_dance'
-			else 
+			else
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/school_kids/sonia_outcast_dance2.jpg"></center>'
 				'When she sees you heading out onto the dance floor, she starts dancing her way over to you with a big smile on her face.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
@@ -1740,7 +1782,7 @@ if $ARGS[0] = 'sonia_outcast':
 			minut += 15
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big25.jpg"></center>'
-			if npc_rel['A25'] >= 50 and fame['pav_slut'] < 250:		
+			if npc_rel['A25'] >= 50 and fame['pav_slut'] < 250:
 				'She grins at you when you walk over. "Hey <<$pcs_nickname>>, what''s up girl?"'
 				'You can''t help but smile. Her energy and happiness is infectious. "Nothing much, just came to have fun. You?"'
 				'The two of you talk about a variety of things, mostly avoiding her reputation and current issues.'
@@ -1788,7 +1830,7 @@ if $ARGS[0] = 'sonia_outcast':
 					'She literally squeals with delight, causing several people to look over your direction. "That''s my slut, lets go show those losers how to really have fun." She says as she practically drags you out onto the dance floor.'
 					act 'Go dancing': gt 'pav_disco_coolkids', 'sonia_outcast_dance'
 				end
-			else 
+			else
 				'She grins at you when you walk over. "Hey <<$pcs_nickname>>, what''s up girl?"'
 				'You can''t help but smile. Her energy and happiness is infectious. "Nothing much, just came to have fun. You?"'
 				'The two of you talk about a variety of things, mostly avoiding her reputation and current issues.'
@@ -1880,7 +1922,7 @@ if $ARGS[0] = 'sonia_outcast_dance':
 							end
 						else
 							act 'No (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-						end	
+						end
 					end
 				end
 			end
@@ -1923,7 +1965,7 @@ if $ARGS[0] = 'natasha':
 					'"Why are you even trying to dance with me? It''s not like we''re in the same social circle or something." Natasha says with a suspicious look. "So, if you could just..." She drags the last part out, expecting you to catch her drift and leave.'
 				end
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
-			else 
+			else
 				'When Natasha sees you, she just smiles and keeps dancing. She doesn''t seem to mind dancing with you.'
 				act 'Do something else': gt 'pav_disco_coolkids', 'classmates'
 				act 'Dance with her': gt 'pav_disco_coolkids', 'natasha_dance'
@@ -1946,7 +1988,7 @@ if $ARGS[0] = 'natasha':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big16.jpg"></center>'
 				'"Would you like to dance?" you ask with a smile.'
-				'She grins and nods her head. "Yeah, I would love to."' 
+				'She grins and nods her head. "Yeah, I would love to."'
 				'The two of you then head off onto the dance floor together.'
 				act 'Go dancing': gt 'pav_disco_coolkids', 'natasha_dance'
 			end
@@ -1967,7 +2009,7 @@ if $ARGS[0] = 'natasha':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big16.jpg"></center>'
 				'"Would you like to dance?" you ask with a smile.'
-				'She hesitates for a moment before nodding. "Yeah, I would love to."' 
+				'She hesitates for a moment before nodding. "Yeah, I would love to."'
 				'The two of you then head off onto the dance floor together.'
 				act 'Go dancing': gt 'pav_disco_coolkids', 'natasha_dance'
 			end

+ 12 - 0
locations/schedule.qsrc

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