code:
:: Manage Personal Affairs [nobr]

<<set $nextButton = "Back", $nextLink = "Main", $showEncyclopedia = 0>>
<<run PCTitle()>>

<<set _ML = $marrying.length>>

<<if $cheatMode == 1>>
	//[[Cheat Edit Player|PCCheatMenu][$cheater = 1]]

//
<</if>>

You pause for a moment from your busy day to day life to return to <<if $masterSuite != 0>>$masterSuiteName<<else>>your room<</if>> to consider some things about yourself.

You take yourself in a full length mirror. You are <<if $PC.race == "amerindian" || $PC.race == "asian" || $PC.race == "indo-aryan">>an<<else>>a<</if>> $PC.race <<if $PC.dick != 0 && $PC.vagina != -1>>futanari<<elseif $PC.dick != 0>>man<<else>>woman<</if>> with<<if $PC.markings == "freckles">> freckled<<elseif $PC.markings == "heavily freckled">> heavily freckled<</if>> <<print $PC.skin>> skin, $PC.hColor hair, <<print App.Desc.eyesColor($PC)>> and a perfect $PC.faceShape face.
<<if $PC.actualAge >= 65>>
	You're @@.orange;$PC.actualAge@@ and definitely feeling it.<<if $PC.visualAge > $PC.actualAge>> You've taken measures to @@.lime;look an older $PC.visualAge,@@ though perhaps it might be time to undo it.<<elseif $PC.visualAge < $PC.actualAge>> You've taken measures to @@.lime;look a younger $PC.visualAge,@@ now if only your body agreed with your looks.<</if>>
<<elseif $PC.actualAge >= 50>>
	You're @@.orange;$PC.actualAge@@ and starting to feel it.<<if $PC.visualAge > $PC.actualAge>> You've taken measures to @@.lime;look an older $PC.visualAge.@@<<elseif $PC.visualAge < $PC.actualAge>> You've taken measures to @@.lime;look a younger $PC.visualAge.@@<</if>>
<<elseif $PC.actualAge >= 35>>
	You're @@.orange;$PC.actualAge@@ and strong.<<if $PC.visualAge > $PC.actualAge>> You've taken measures to @@.lime;look an older $PC.visualAge@@ and reap the respect that comes with it.<<elseif $PC.visualAge < $PC.actualAge>> You've taken measures to @@.lime;look a younger $PC.visualAge@@ recapturing your youth.<</if>>
<<else>>
	You're @@.orange;$PC.actualAge@@ and full of vigor.<<if $PC.visualAge > $PC.actualAge>> You've taken measures to @@.lime;look an older $PC.visualAge@@ and reap the respect that comes with it.<<elseif $PC.visualAge < $PC.actualAge>> You've taken measures to @@.lime;look a younger $PC.visualAge,@@ even though society may find your looks uncomfortable.<</if>>
<</if>>
<<if ($playerAging != 0)>>Your birthday is <<if $PC.birthWeek == 51>>next week<<else>>in <<print 52-$PC.birthWeek>> weeks<</if>>.<</if>>
Looking down,
<<PlayerBoobs>>
<<PlayerBelly>>
<<if $PC.prostate == 2 && $PC.belly < 10000>> Your pubic mound bulges outward noticeably thanks to your massive prostate.<<elseif $PC.prostate == 1 && $PC.belly < 5000>> Your pubic mound swells outward slightly due to your oversized prostate.<</if>>
Beneath all that,
<<PlayerCrotch>>
Around back,
<<PlayerButt>>

<<if $playerSurgery == 0>>[[Visit your plastic surgeon.|Elective Surgery][$playerSurgery = 4]]<<elseif $playerSurgery == 1>>Your favorite plastic surgeon is booked solid for the next week.<<else>>Your favorite plastic surgeon is booked solid for the next $playerSurgery weeks.<</if>>

You have a number of contact lenses in various colors available.
You current eye color is <<print App.Desc.eyeColor($PC)>>.

/* This a simplified version of the slave code in salon.tw, when adding missing/glass eyes, copy the code from there */
/* remove lenses */
<<set _n = 0>>
<<if getLeftEyeColor($PC) !== getGeneticEyeColor($PC, "left")>>
	<<set _n++>>
	[[Remove left lens|Manage Personal Affairs][resetEyeColor($PC, "left")]]
<</if>>
<<if getRightEyeColor($PC) !== getGeneticEyeColor($PC, "right")>>
	<<set _n++>>
	<<if _n > 0>>|<</if>>
	[[Remove right lens|Manage Personal Affairs][resetEyeColor($PC, "right")]]
<</if>>
<<if _n === 2>>
	| [[Remove both lenses|Manage Personal Affairs][resetEyeColor($PC, "both")]]
<</if>>

//Change what your eyes look like://

Side:
[[Left|Manage Personal Affairs][$artificialEyeSide = "left"]]
| [[Right|Manage Personal Affairs][$artificialEyeSide = "right"]]
| [[Both|Manage Personal Affairs][$artificialEyeSide = "both"]]

Iris:
[[Amber|Manage Personal Affairs][$artificialEyeColor = "amber"]]
| [[Black|Manage Personal Affairs][$artificialEyeColor = "black"]]
| [[Blue|Manage Personal Affairs][$artificialEyeColor = "blue"]]
| [[Brown|Manage Personal Affairs][$artificialEyeColor = "brown"]]
| [[Green|Manage Personal Affairs][$artificialEyeColor = "green"]]
| [[Hazel|Manage Personal Affairs][$artificialEyeColor = "hazel"]]
| [[Orange|Manage Personal Affairs][$artificialEyeColor = "orange"]]
| [[Pale-Grey|Manage Personal Affairs][$artificialEyeColor = "pale-grey"]]
| [[Pink|Manage Personal Affairs][$artificialEyeColor = "pink"]]
| [[Red|Manage Personal Affairs][$artificialEyeColor = "red"]]
| [[Sky-Blue|Manage Personal Affairs][$artificialEyeColor = "sky-blue"]]
| [[Turquoise|Manage Personal Affairs][$artificialEyeColor = "turquoise"]]
| [[White|Manage Personal Affairs][$artificialEyeColor = "white"]]
| [[Yellow|Manage Personal Affairs][$artificialEyeColor = "yellow"]]

Pupil:
[[Circular|Manage Personal Affairs][$artificialEyeShape = "circular"]]
| [[Almond-Shaped|Manage Personal Affairs][$artificialEyeShape = "almond-shaped"]]
| [[Bright|Manage Personal Affairs][$artificialEyeShape = "bright"]]
| [[Catlike|Manage Personal Affairs][$artificialEyeShape = "catlike"]]
| [[Demonic|Manage Personal Affairs][$artificialEyeShape = "demonic"]]
| [[Devilish|Manage Personal Affairs][$artificialEyeShape = "devilish"]]
| [[Goat-Like|Manage Personal Affairs][$artificialEyeShape = "goat-like"]]
| [[Heart-Shaped|Manage Personal Affairs][$artificialEyeShape = "heart-shaped"]]
| [[Hypnotic|Manage Personal Affairs][$artificialEyeShape = "hypnotic"]]
| [[Serpent-Like|Manage Personal Affairs][$artificialEyeShape = "serpent-like"]]
| [[Star-Shaped|Manage Personal Affairs][$artificialEyeShape = "star-shaped"]]
| [[Teary|Manage Personal Affairs][$artificialEyeShape = "teary"]]
| [[Vacant|Manage Personal Affairs][$artificialEyeShape = "vacant"]]
| [[Wide-Eyed|Manage Personal Affairs][$artificialEyeShape = "wide-eyed"]]

Sclera:
[[White|Manage Personal Affairs][$artificialEyeFill = "white"]]
| [[Amber|Manage Personal Affairs][$artificialEyeFill = "amber"]]
| [[Black|Manage Personal Affairs][$artificialEyeFill = "black"]]
| [[Blue|Manage Personal Affairs][$artificialEyeFill = "blue"]]
| [[Brown|Manage Personal Affairs][$artificialEyeFill = "brown"]]
| [[Green|Manage Personal Affairs][$artificialEyeFill = "green"]]
| [[Hazel|Manage Personal Affairs][$artificialEyeFill = "hazel"]]
| [[Orange|Manage Personal Affairs][$artificialEyeFill = "orange"]]
| [[Pale-Grey|Manage Personal Affairs][$artificialEyeFill = "pale-grey"]]
| [[Pink|Manage Personal Affairs][$artificialEyeFill = "pink"]]
| [[Red|Manage Personal Affairs][$artificialEyeFill = "red"]]
| [[Sky-Blue|Manage Personal Affairs][$artificialEyeFill = "sky-blue"]]
| [[Turquoise|Manage Personal Affairs][$artificialEyeFill = "turquoise"]]
| [[Yellow|Manage Personal Affairs][$artificialEyeFill = "yellow"]]

<<if ndef $artificialEyeColor>>
	<<set $artificialEyeColor = "", $artificialEyeShape = "", $artificialEyeFill = "">>
<</if>>

<<if $artificialEyeSide != "" && $artificialEyeColor != "">>

	<<link "Take" "Manage Personal Affairs">>
		/* apply modifications */
		<<run setEyeColorFull($PC, $artificialEyeColor, $artificialEyeShape, $artificialEyeFill, $artificialEyeSide)>>
		<<run cashX(forceNeg($modCost), "PCmedical")>>

		/* reset variables */
		<<set $artificialEyeSide = "", $artificialEyeColor = "", $artificialEyeShape = "", $artificialEyeFill = "">>
	<</link>>

	/* make the following easier to read */
	<<set _both = $artificialEyeSide === "both">>

	$him $artificialEyeColor
	<<if _both>>
		lenses
	<<else>>
		a lens
	<</if>>
	<<if $artificialEyeShape != "" || $artificialEyeFill != "">>
		with
		<<if $artificialEyeShape != "" >>
			$artificialEyeShape <<if _both>> pupils <<else>> pupil <</if>>
		<</if>>
		<<if $artificialEyeShape != "" && $artificialEyeFill != "">>
			and
		<</if>>
		<<if $artificialEyeFill != "" >>
			$artificialEyeFill <<if _both>> sclerae <<else>> sclera <</if>>
		<</if>>
	<</if>>?
<</if>>

You have a selection of hair dyes available.

	<<if $PC.origHColor == $PC.hColor>>Your hair is its natural color.<<else>>[[Remove dye|Manage Personal Affairs][$PC.hColor = $PC.origHColor]]<</if>>
	<<if $PC.origHColor != "auburn">>| [[Auburn|Manage Personal Affairs][$PC.hColor = "auburn"]]<</if>>
	<<if $PC.origHColor != "black">>| [[Hazel|Manage Personal Affairs][$PC.hColor = "black"]]<</if>>
	<<if $PC.origHColor != "blonde">>| [[Blonde|Manage Personal Affairs][$PC.hColor = "blonde"]]<</if>>
	<<if $PC.origHColor != "blue">>| [[Blue|Manage Personal Affairs][$PC.hColor = "blue"]]<</if>>
	<<if $PC.origHColor != "blue-violet">>| [[Blue-Violet|Manage Personal Affairs][$PC.hColor = "blue-violet"]]<</if>>
	<<if $PC.origHColor != "brown">>| [[Brown|Manage Personal Affairs][$PC.hColor = "brown"]]<</if>>
	<<if $PC.origHColor != "burgundy">>| [[Burgundy|Manage Personal Affairs][$PC.hColor = "burgundy"]]<</if>>
	<<if $PC.origHColor != "chestnut">>| [[Chestnut|Manage Personal Affairs][$PC.hColor = "chestnut"]]<</if>>
	<<if $PC.origHColor != "chocolate brown">>| [[Chocolate|Manage Personal Affairs][$PC.hColor = "chocolate brown"]]<</if>>
	<<if $PC.origHColor != "copper">>| [[Copper|Manage Personal Affairs][$PC.hColor = "copper"]]<</if>>
	<<if $PC.origHColor != "crimson">>| [[Crimson|Manage Personal Affairs][$PC.hColor = "crimson"]]<</if>>
	<<if $PC.origHColor != "dark blue">>| [[Dark Blue|Manage Personal Affairs][$PC.hColor = "dark blue"]]<</if>>
	<<if $PC.origHColor != "dark brown">>| [[Dark Brown|Manage Personal Affairs][$PC.hColor = "dark brown"]]<</if>>
	<<if $PC.origHColor != "dark orchid">>| [[Blue-Violet|Manage Personal Affairs][$PC.hColor = "dark orchid"]]<</if>>
	<<if $PC.origHColor != "ginger">>| [[Ginger|Manage Personal Affairs][$PC.hColor = "ginger"]]<</if>>
	<<if $PC.origHColor != "golden">>| [[Golden|Manage Personal Affairs][$PC.hColor = "golden"]]<</if>>
	<<if $PC.origHColor != "green">>| [[Green|Manage Personal Affairs][$PC.hColor = "green"]]<</if>>
	<<if $PC.origHColor != "green-yellow">>| [[Green-Yellow|Manage Personal Affairs][$PC.hColor = "green-yellow"]]<</if>>
	<<if $PC.origHColor != "grey">>| [[Grey|Manage Personal Affairs][$PC.hColor = "grey"]]<</if>>
	<<if $PC.origHColor != "hazel">>| [[Hazel|Manage Personal Affairs][$PC.hColor = "hazel"]]<</if>>
	<<if $PC.origHColor != "jet black">>| [[Jet Black|Manage Personal Affairs][$PC.hColor = "jet black"]]<</if>>
	<<if $PC.origHColor != "pink">>| [[Pink|Manage Personal Affairs][$PC.hColor = "pink"]]<</if>>
	<<if $PC.origHColor != "platinum blonde">>| [[Platinum Blonde|Manage Personal Affairs][$PC.hColor = "platinum blonde"]]<</if>>
	<<if $PC.origHColor != "purple">>| [[Purple|Manage Personal Affairs][$PC.hColor = "purple"]]<</if>>
	<<if $PC.origHColor != "red">>| [[Red|Manage Personal Affairs][$PC.hColor = "red"]]<</if>>
	<<if $PC.origHColor != "sea green">>| [[Sea Green|Manage Personal Affairs][$PC.hColor = "sea green"]]<</if>>
	<<if $PC.origHColor != "silver">>| [[Silver|Manage Personal Affairs][$PC.hColor = "silver"]]<</if>>
	<<if $PC.origHColor != "strawberry-blonde">>| [[Strawberry-Blonde|Manage Personal Affairs][$PC.hColor = "strawberry-blonde"]]<</if>>
	<<if $PC.origHColor != "white">>| [[White|Manage Personal Affairs][$PC.hColor = "white"]]<</if>>

<<if $weddingPlanned > 0>>

	<<set _slave1 = getSlave($marrying[0])>>
	<<if _ML > 1>>
		<<if _ML >= 2>>
			<<set _slave2 = getSlave($marrying[1])>>
		<</if>>
		<<if _ML >= 3>>
			<<set _slave3 = getSlave($marrying[2])>>
		<</if>>
		<<if _ML == 4>>
			<<set _slave4 = getSlave($marrying[3])>>
		<</if>>
	<</if>>

/* yes, I am aware this looks horrendous - if you can find a way to clean this up, by all means */
	You have a wedding planned for this weekend; you are <<if $weddingPlanned == 1>>marrying<<elseif $weddingPlanned == 2>>sharing<<elseif $weddingPlanned == 3>>knocking up<</if>> <<print "[[SlaveFullName(_slave1)|Slave Interact][$activeSlave = _slave1]]">><<if _ML > 2>>, <<elseif _ML == 2>> and <<print "[[SlaveFullName(_slave2)|Slave Interact][$activeSlave = _slave2]]">><</if>><<if _ML > 2>><<print "[[SlaveFullName(_slave2)|Slave Interact][$activeSlave = _slave2]]">><<if _ML == 3>> and <<else>>, <</if>><<print "[[SlaveFullName(_slave3)|Slave Interact][$activeSlave = _slave3]]">><<if _ML == 4>> and <<print "[[SlaveFullName(_slave4)|Slave Interact][$activeSlave = _slave4]]">><</if>> <<if $weddingPlanned == 2>>with your honored guests<</if>><</if>>.
	[[Cancel it|Manage Personal Affairs][$weddingPlanned = -1, $marrying = []]]
<</if>>

<<if $FCTVreceiver > 0>>

	<<if $FCTVrate == 1>>
		You make sure to tune in to FCTV at least once a week. [[Watch every other week|Manage Personal Affairs][$FCTVrate = 2]] | [[Watch once a month|Manage Personal Affairs][$FCTVrate = 4]] | [[Ignore it|Manage Personal Affairs][$FCTVrate = -1]]
	<<elseif $FCTVrate == 2>>
		You make sure to tune in to FCTV at least every two weeks. [[Watch every week|Manage Personal Affairs][$FCTVrate = 1]] | [[Watch once a month|Manage Personal Affairs][$FCTVrate = 4]] | [[Ignore it|Manage Personal Affairs][$FCTVrate = -1]]
	<<elseif $FCTVrate == 4>>
		You make sure to check in on FCTV at least once a month. [[Watch every week|Manage Personal Affairs][$FCTVrate = 1]] | [[Watch every other week|Manage Personal Affairs][$FCTVrate = 2]] | [[Ignore it|Manage Personal Affairs][$FCTVrate = -1]]
	<<else>>
		You don't watch FCTV. [[Watch every week|Manage Personal Affairs][$FCTVrate = 1]] | [[Watch every other week|Manage Personal Affairs][$FCTVrate = 2]] | [[Watch once a month|Manage Personal Affairs][$FCTVrate = 4]]
	<</if>>
	<<if $saveImported > 0 && $FCTVremote == 0>>

You know TVs should have a remote. [[Buy one yourself|Manage Personal Affairs][$FCTVremote = 1, cashX(forceNeg(100*$upgradeMultiplierTrade), "capEx")]]
	<</if>>
<</if>>

You ponder what skills may be useful in running your arcology.

Trading:
<<if $PC.skill.trading >= 100>>
	You are a master at economics and trading.
<<elseif $PC.skill.trading >= 80>>
	You are an expert at economics and trading.
<<elseif $PC.skill.trading >= 60>>
	You are skilled in economics and trading.
<<elseif $PC.skill.trading >= 40>>
	You know some things about economics and trading.
<<elseif $PC.skill.trading >= 20>>
	You are a beginner in economics.
<<elseif $PC.skill.trading >= 0>>
	You know only the basics of trading.
<<elseif $PC.skill.trading >= -20>>
	You know how to haggle a little.
<<elseif $PC.skill.trading >= -40>>
	You know how to shop around.
<<elseif $PC.skill.trading >= -60>>
	You know not to pay sticker price.
<<elseif $PC.skill.trading >= -80>>
	People always give you discounts, but you never save any money.
<<else>>
	They said it was a bear market, so where are the bears?
<</if>>

Warfare:
<<if $PC.skill.warfare >= 100>>
	You are a master of warfare.
<<elseif $PC.skill.warfare >= 80>>
	You are an expert at tactics and strategy.
<<elseif $PC.skill.warfare >= 60>>
	You are skilled in combat.
<<elseif $PC.skill.warfare >= 40>>
	You know some things about combat.
<<elseif $PC.skill.warfare >= 20>>
	You are a beginner in tactics and strategy.
<<elseif $PC.skill.warfare >= 0>>
	You know only the basics of fighting.
<<elseif $PC.skill.warfare >= -20>>
	You know how to hold a gun.
<<elseif $PC.skill.warfare >= -40>>
	You know how to stab with a knife.
<<elseif $PC.skill.warfare >= -60>>
	Go for the throat?
<<elseif $PC.skill.warfare >= -80>>
	Just kick them in the balls, right?
<<else>>
	People like you are usually the first raped in a war.
<</if>>

Slaving:
<<if $PC.skill.slaving >= 100>>
	You are a master slaver.
<<elseif $PC.skill.slaving >= 80>>
	You are an expert at enslaving.
<<elseif $PC.skill.slaving >= 60>>
	You are skilled in slaving.
<<elseif $PC.skill.slaving >= 40>>
	You know some things about getting slaves.
<<elseif $PC.skill.slaving >= 20>>
	You are a beginner in slaving.
<<elseif $PC.skill.slaving >= 0>>
	You know only the basics of slaving.
<<elseif $PC.skill.slaving >= -20>>
	You know how to avoid becoming a slave.
<<elseif $PC.skill.slaving >= -40>>
	You know to read contracts before you sign them.
<<elseif $PC.skill.slaving >= -60>>
	You know to be careful.
<<elseif $PC.skill.slaving >= -80>>
	You know better than to trust anyone.
<<else>>
	It would be easy to enslave you.
<</if>>

Engineering:
<<if $PC.skill.engineering >= 100>>
	You are a master engineer.
<<elseif $PC.skill.engineering >= 80>>
	You are an expert at engineering.
<<elseif $PC.skill.engineering >= 60>>
	You are skilled in engineering.
<<elseif $PC.skill.engineering >= 40>>
	You know some things about engineering.
<<elseif $PC.skill.engineering >= 20>>
	You are a beginner in engineering.
<<elseif $PC.skill.engineering >= 0>>
	You know only the basics of engineering.
<<elseif $PC.skill.engineering >= -20>>
	You can build a gingerbread house that doesn't collapse.
<<elseif $PC.skill.engineering >= -40>>
	You can tie a tight knot, does that count?
<<elseif $PC.skill.engineering >= -60>>
	Glue is your friend; lots of it.
<<elseif $PC.skill.engineering >= -80>>
	You know better than to even try to build something.
<<else>>
	You can cook; that's sort of like building something, right?
<</if>>

Medicine:
<<if $PC.skill.medicine >= 100>>
	You are a master surgeon.
<<elseif $PC.skill.medicine >= 80>>
	You are an expert at medicine and surgery.
<<elseif $PC.skill.medicine >= 60>>
	You are skilled in surgery.
<<elseif $PC.skill.medicine >= 40>>
	You know some things about medicine.
<<elseif $PC.skill.medicine >= 20>>
	You are a beginner in medicine.
<<elseif $PC.skill.medicine >= 0>>
	You know the basics of treating injuries.
<<elseif $PC.skill.medicine >= -20>>
	You can stop a wound from getting infected.
<<elseif $PC.skill.medicine >= -40>>
	Gauze is your friend. Just keep wrapping.
<<elseif $PC.skill.medicine >= -60>>
	You know how to apply a band-aid.
<<elseif $PC.skill.medicine >= -80>>
	Cure-alls are wonderful. Why aren't they sold in stores, though?
<<else>>
	Alcohol makes pain go away, right?
<</if>>

Hacking:
<<if $PC.skill.hacking >= 100>>
	You are a master of hacking.
<<elseif $PC.skill.hacking >= 80>>
	You are an expert at hacking.
<<elseif $PC.skill.hacking >= 60>>
	You are skilled in hacking.
<<elseif $PC.skill.hacking >= 40>>
	You know some things about hacking.
<<elseif $PC.skill.hacking >= 20>>
	You are a beginner in hacking.
<<elseif $PC.skill.hacking >= 0>>
	You know only the basics of hacking.
<<elseif $PC.skill.hacking >= -20>>
	You know how to click a mouse.
<<elseif $PC.skill.hacking >= -40>>
	Enter does something?
<<elseif $PC.skill.hacking >= -60>>
	Where is the "any" key?
<<elseif $PC.skill.hacking >= -80>>
	You can push the power button, good job.
<<else>>
	This black box thingy is magical.
<</if>>

On formal occasions, you are announced as $PCTitle. By slaves, however, you prefer to be called <<= properMaster()>>.

<<if ndef $PC.customTitle>>

<<link "Set a custom title for slaves to address you">>
		<<replace "#result">>
			Custom title: <<textbox "$PC.customTitle" $PC.customTitle>>
			<<link "Apply">>
				<<replace "#result">>
					Your title is now $PC.customTitle.
					<<set $PC.customTitleLisp = lispReplace($PC.customTitle)>>
				<</replace>>
			<</link>>
		<</replace>>
	<</link>>
<<else>>

Your custom title is <<textbox "$PC.customTitle" $PC.customTitle>>
	<<link "Apply">>
		<<replace "#result">>
			Your title is now $PC.customTitle.
			<<set $PC.customTitleLisp = lispReplace($PC.customTitle)>>
		<</replace>>
	<</link>> |
	<<link "Stop using a custom title">>
		<<replace "#result">>
			You stop using a custom title
			<<set $PC.customTitle = undefined>>
			<<set $PC.customTitleLisp = undefined>>
		<</replace>>
	<</link>>
<</if>>

<<link "Rename yourself">>
	<<replace "#nameResult">>
	New name: <<textbox "_PCNamet" $PC.slaveName>>
		<<link "Apply">>
			<<run repX(-500, "event")>>
			<<replace "#nameResult">>
				<<set $PC.slaveName = _PCNamet>>
				You will now be known as <<= PlayerName()>>.
			<</replace>>
		<</link>>
	<</replace>>
<</link>> //Will cost you some reputation//

<<if $PC.degeneracy > 0>>

	__Rumors__

	<<if $PC.degeneracy > 100>>
		There are severe and devastating rumors about you spreading across the arcology.
	<<elseif $PC.degeneracy > 75>>
		There are severe rumors about you spreading across the arcology.
	<<elseif $PC.degeneracy > 50>>
		There are bad rumors about you spreading across the arcology.
	<<elseif $PC.degeneracy > 25>>
		There are rumors about you spreading across the arcology.
	<<elseif $PC.degeneracy > 10>>
		There are minor rumors about you spreading across the arcology.
	<<else>>
		The occasional rumor about you can be heard throughout the arcology.
	<</if>>

<</if>>

<<if $familyTesting == 1>>

			<<link "Pull up the file on your family tree.">>
				<<replace #familyTreeLink>>
					<<run renderFamilyTree($slaves, -1)>>
				<</replace>>
			<</link>>

	<<if totalPlayerRelatives($PC) > 0 || ($showMissingSlaves && ($PC.mother in $missingTable || $PC.father in $missingTable))>>
		<<PlayerFamily>>
	<</if>>
<</if>>

<<if $PC.vagina != -1>>

__Contraceptives and Fertility__

<<if $PC.preg < 6 && $PC.pregKnown == 1>>
	Your period is late, so the first thing you do is test yourself for a potential pregnancy: @@.lime;you are pregnant.@@
	<<if ($arcologies[0].FSRestart == "unset" || $eugenicsFullControl == 1 || ($PC.pregSource != -1 && $PC.pregSource != -6))>>
		<<link "Abort your child">><<replace "#miniscene">><<run TerminatePregnancy($PC)>><<print "You take a syringe filled with abortifacients and make yourself comfortable. Injecting the vial through your belly into your womb, your close your eyes and wait for what is coming. Once you feel it is over, you clean yourself up and go on your way, child free.">>
    <</replace>><</link>>
	<</if>>
<<elseif $PC.labor == 1>>
	You are beginning to feel contractions; you'll be giving birth soon.
<<elseif $PC.preg >= 39>>
	Your due date is looming, but your <<if $PC.pregType > 1>>children don't<<else>>child doesn't<</if>> seem to be interested in coming out just yet. [[Induce childbirth|Manage Personal Affairs][$PC.labor = 1]]
<<elseif $PC.pregKnown == 1>>
	You're pregnant, something rather unbecoming for an arcology owner.
	<<if ($arcologies[0].FSRestart == "unset" || $eugenicsFullControl == 1 || ($PC.pregSource != -1 && $PC.pregSource != -6))>>
		<<link "Abort your child">><<replace "#miniscene">><<run TerminatePregnancy($PC)>><<print "You take a syringe filled with abortifacients and make yourself comfortable. Injecting the vial through your belly into your womb, your close your eyes and wait for what is coming. Once you feel it is over, you clean yourself up and go on your way, child free.">>
    <</replace>><</link>>
	<</if>>
<</if>>

<<if $PC.counter.birthsTotal > 0>>

In total, you have given birth to:
<<if $PC.counter.birthElite > 0>>

<<print $PC.counter.birthElite>> bab<<if $PC.counter.birthElite > 1>>ies<<else>>y<</if>> for the Societal Elite.
<</if>>
<<if $PC.counter.birthMaster > 0>>

<<print $PC.counter.birthMaster>> bab<<if $PC.counter.birthMaster > 1>>ies<<else>>y<</if>> for your former Master.
<</if>>
<<if $PC.counter.birthClient > 0>>

<<print $PC.counter.birthClient>> bab<<if $PC.counter.birthClient > 1>>ies<<else>>y<</if>> from clients you've slept with.
<</if>>
<<if $PC.counter.birthDegenerate > 0>>

<<print $PC.counter.birthDegenerate>> bastard<<if $PC.counter.birthDegenerate > 1>>s<</if>> from getting fucked by slaves.
<</if>>
<<if $PC.counter.birthArcOwner > 0>>

<<print $PC.counter.birthArcOwner>> bab<<if $PC.counter.birthArcOwner > 1>>ies<<else>>y<</if>> from your time with male arcology owners.
<</if>>
<<if $PC.counter.birthCitizen > 0>>

<<print $PC.counter.birthCitizen>> bab<<if $PC.counter.birthCitizen > 1>>ies<<else>>y<</if>> from sex with arcology citizens.
<</if>>
<<if $PC.counter.birthOther > 0>>

<<print $PC.counter.birthOther>> bab<<if $PC.counter.birthOther > 1>>ies<<else>>y<</if>> from sources you can't quite recall.
<</if>>
<<if $PC.counter.birthSelf > 0>>

<<print $PC.counter.birthSelf>> bab<<if $PC.counter.birthSelf > 1>>ies<<else>>y<</if>> that <<if $PC.counter.birthSelf > 1>>are<<else>>is<</if>> literally all you.
<</if>>
<<if $PC.counter.birthLab > 0>>

<<print $PC.counter.birthLab>> bab<<if $PC.counter.birthLab > 1>>ies<<else>>y<</if>> specially designed in the lab.
<</if>>
<</if>>
<<if $PC.counter.slavesKnockedUp > 0>>

	<<if $PC.dick > 0>>
		You've knocked up <<print num($PC.counter.slavesKnockedUp)>> fertile slave girl<<if $PC.counter.slavesKnockedUp > 1>>s<</if>><<if $PC.counter.slavesFathered > 0>> and fathered <<print num($PC.counter.slavesFathered)>> new slave<<if $PC.counter.slavesFathered > 1>>s<</if>><</if>> as an arcology owner so far.
	<<else>>
		Before your sex change, you knocked up <<print num($PC.counter.slavesKnockedUp)>> fertile slave girl<<if $PC.counter.slavesKnockedUp > 1>>s<</if>><<if $PC.counter.slavesFathered > 0>> and fathered <<print num($PC.counter.slavesFathered)>> new slave<<if $PC.counter.slavesFathered > 1>>s<</if>><</if>>.
	<</if>>
<<else>>
	<<if $PC.counter.slavesFathered > 0>>

		<<if $PC.dick != 0>>
			You've fathered <<print num($PC.counter.slavesFathered)>> new slave<<if $PC.counter.slavesFathered > 1>>s<</if>> as an arcology owner so far.
		<<else>>
			Before your sex change, you fathered <<print num($PC.counter.slavesFathered)>> new slave<<if $PC.counter.slavesFathered > 1>>s<</if>>.
		<</if>>
	<</if>>
<</if>>

<<if $PC.preg >= 8>>
	You're currently <<print $PC.preg>> week<<if $PC.preg > 1>>s<</if>> pregnant, so contraception doesn't matter right now.
<<elseif $PC.preg >= 6>>
	You're having morning sickness.
<<elseif $PC.preg > 1>>
	You've missed your period. This could be bad.
<<elseif $PC.preg > 0>>
	Your fertile pussy has been thoroughly seeded; there is a chance you are pregnant.
	<<if ($arcologies[0].FSRestart == "unset" || $eugenicsFullControl == 1 || ($PC.pregSource != -1 && $PC.pregSource != -6))>>
		<<link "Pop some morning after pills">><<set WombFlush($PC)>><<goto "Manage Personal Affairs">><</link>>
	<</if>>
<<elseif $PC.pregWeek < 0>>
	You're still recovering from your recent pregnancy.
<<elseif $PC.preg == -2>>
	You're menopausal. Your time to bear children has passed.
<<elseif $PC.preg == -1>>
	You're currently on birth control.
	[[Stop taking it|Manage Personal Affairs][$PC.preg = 0]]
<<elseif $PC.preg == 0>>
	You're currently fertile.
	[[Start taking birth control|Manage Personal Affairs][$PC.preg = -1, $PC.fertDrugs = 0]]

	<<set _toSearch = $PC.refreshment.toLowerCase(), _fertRefresh = 0>>
	<<if _toSearch.indexOf("fertility") != -1>>
		<<set _fertRefresh = 1>>
	<</if>>
	<<if $PC.fertDrugs == 1>>
		You are currently taking fertility supplements<<if _fertRefresh == 1>>on top of the <<print $PC.refreshment>>s.<<else>>.<<if $PC.forcedFertDrugs > 0>> You feel a strange eagerness whenever you think of bareback sex.<</if>><</if>> [[Stop taking fertility drugs|Manage Personal Affairs][$PC.fertDrugs = 0]]
	<<else>>
		You are not on any fertility supplements<<if _fertRefresh == 1>>, other than the $PC.refreshment, of course.<<else>>.<<if $PC.forcedFertDrugs > 0>> You feel a strange eagerness whenever you think of bareback sex.<</if>><</if>> [[Start taking fertility drugs|Manage Personal Affairs][$PC.fertDrugs = 1]]
	<</if>>
<</if>>
<<if ($PC.preg > 0 && $pregnancyMonitoringUpgrade == 1)>>

[[Inspect pregnancy|Analyze PC Pregnancy]]
<</if>>
<<if $PC.preg >= 0 && $PC.ovaries == 1>>

[[Harvest and implant an egg|Surrogacy Workaround][$donatrix = $PC, $impregnatrix = "Undecided", $receptrix = "Undecided", $nextLink = "Manage Personal Affairs"]]
<</if>>

<<if $arcologies[0].FSRestartDecoration >= 100>>
	<<if $playerBred == 0>>

		You are currently not bearing children for the Societal Elite.
		[[List your womb as available|Manage Personal Affairs][$playerBred = 1, $playerBredTube = 0]] | [[Sign up for artificial insemination|Manage Personal Affairs][$playerBred = 1, $playerBredTube = 1]]
	<<else>>
		Your womb is dedicated to carrying the Societal Elites' children.
		<<if $PC.counter.birthElite > 0>>
			[[List your womb as unavailable|Manage Personal Affairs][$playerBred = 0]]
		<<else>>
			// You must bear at least one child for the Societal Elite before removing yourself from the breeding program. //
		<</if>>
	<</if>>
<</if>>

<<if $PC.preg == 0 && $PC.pregWeek == 0>>

	<<if $dairyPiping == 1 && ($cumSlaves > 0 || $arcologies[0].FSPastoralistLaw == 1)>>
		<<if $PC.skill.cumTap == 0>>

			The tap connected to $dairyName has a variety of attachments, one of which being a very tantalizing dick-shaped nozzle. It looks like it would be a perfect fit for you, if you were curious, that is.

[[No one is looking...|FSelf]]
		<<else>>

			The tap connected to $dairyName is calling to you. Begging to let it fill you with cum again. If you wanted to try and go bigger, that is.

[[Sounds fun!|FSelf]]

<<link "You only want to get pregnant." "Manage Personal Affairs">><<set $PC.preg = 1, $PC.pregWeek = 1, $PC.pregSource = 0, $PC.pregKnown = 1>><<set $PC.pregType = setPregType($PC)>><<set WombImpregnate($PC, $PC.pregType, 0, 1)>><</link>>
		<</if>>
	<</if>>
	<<if $PC.vagina >= 1 && $PC.dick != 0>>
		<<if $PC.counter.birthSelf > 0>>

			Who better to impregnate you than you?

[[Impregnate yourself.|MpregSelf]]
		<<else>>

			You have an empty vagina, a working set of balls, and a strong craving for a hot creampie. Who better to give it to you than you?
			[[Grab an extra syringe.|MpregSelf]]
		<</if>>
	<</if>>

<</if>>

<<else>> /* no vagina */

<<if $PC.counter.births > 0>>

	Before your sex change, you had given birth to:
	<<if $PC.counter.birthElite > 0>>

<<print num($PC.counter.birthElite)>> bab<<if $PC.counter.birthElite > 1>>ies<<else>>y<</if>> for the Societal Elite.
	<</if>>
	<<if $PC.counter.birthMaster > 0>>

<<print num($PC.counter.birthMaster)>> bab<<if $PC.counter.birthMaster > 1>>ies<<else>>y<</if>> for your former Master.
	<</if>>
	<<if $PC.counter.birthClient > 0>>

<<print num($PC.counter.birthClient)>> bab<<if $PC.counter.birthClient > 1>>ies<<else>>y<</if>> from clients you've slept with.
	<</if>>
	<<if $PC.counter.birthDegenerate > 0>>

<<print num($PC.counter.birthDegenerate)>> bastard<<if $PC.counter.birthDegenerate > 1>>s<</if>> from getting fucked by slaves.
	<</if>>
	<<if $PC.counter.birthArcOwner > 0>>

<<print num($PC.counter.birthArcOwner)>> bab<<if $PC.counter.birthArcOwner > 1>>ies<<else>>y<</if>> from your time with male arcology owners.
	<</if>>
	<<if $PC.counter.birthCitizen > 0>>

<<print num($PC.counter.birthCitizen)>> bab<<if $PC.counter.birthCitizen > 1>>ies<<else>>y<</if>> from sex with arcology citizens.
	<</if>>
	<<if $PC.counter.birthFutaSis > 0>>

<<print num($PC.counter.birthFutaSis)>> bab<<if $PC.counter.birthFutaSis > 1>>ies<<else>>y<</if>> conceived during orgies with the Futanari Sisters.
	<</if>>
	<<if $PC.counter.birthOther > 0>>

<<print num($PC.counter.birthOther)>> bab<<if $PC.counter.birthOther > 1>>ies<<else>>y<</if>> from sources you can't quite recall.
	<</if>>
	<<if $PC.counter.birthSelf > 0>>

<<print num($PC.counter.birthSelf)>> bab<<if $PC.counter.birthSelf > 1>>ies<<else>>y<</if>> that <<if $PC.counter.birthSelf > 1>>were<<else>>was<</if>> literally all you.
	<</if>>
	<<if $PC.counter.birthLab > 0>>

<<print $PC.counter.birthLab>> bab<<if $PC.counter.birthLab > 1>>ies<<else>>y<</if>> specially designed in the lab.
	<</if>>
<</if>>
<<if $PC.counter.slavesKnockedUp > 0>>

		You've knocked up <<print num($PC.counter.slavesKnockedUp)>> fertile slave girl<<if $PC.counter.slavesKnockedUp > 1>>s<</if>><<if $PC.counter.slavesFathered > 0>> and fathered <<print num($PC.counter.slavesFathered)>> new slave<<if $PC.counter.slavesFathered > 1>>s<</if>><</if>> as an arcology owner so far.
<<else>>
	<<if $PC.counter.slavesFathered > 0>>

		You've fathered <<print num($PC.counter.slavesFathered)>> new slave<<if $PC.counter.slavesFathered > 1>>s<</if>> as an arcology owner so far.
	<</if>>
<</if>>

<</if>>

<<if $PC.lactation == 1>>

	__Lactation__

	Your breasts are laden with milk.
	<<if $PC.rules.lactation == "sell">>
		You are spending time with the penthouse milkers and making a quick ¤ from your efforts. [[Stop milking yourself|Manage Personal Affairs][$PC.rules.lactation = "none"]] | [[Stop using the milkers|Manage Personal Affairs][$PC.rules.lactation = "maintain"]]
	<<elseif $PC.rules.lactation == "maintain">>
		You are taking the time to keep yourself lactating. [[Stop milking yourself|Manage Personal Affairs][$PC.rules.lactation = "none"]]<<if $servantMilkers == 1>> | [[Use the penthouse milkers|Manage Personal Affairs][$PC.rules.lactation = "sell"]]<</if>>
	<<else>>
		You are currently letting nature run its course. [[Keep yourself milked|Manage Personal Affairs][$PC.rules.lactation = "maintain"]]<<if $servantMilkers == 1>> | [[Use the penthouse milkers|Manage Personal Affairs][$PC.rules.lactation = "sell"]]<</if>>
	<</if>>
<</if>>

__Drugs__

<<if $PC.staminaPills == 1>>
	You are currently taking stamina enhancing pills in order to enjoy more slaves per week. [[Stop taking stamina enhancing drugs|Manage Personal Affairs][$PC.staminaPills = 0]]
<<else>>
	You are not on any stamina enhancers. [[More stamina means more sex|Manage Personal Affairs][$PC.staminaPills = 1]]
<</if>>

/*

__Other Personal Business__*/

<<if $propOutcome == 1 && $arcologies[0].FSRestart != "unset">>

	__Elite Breeder Qualifications__
	<<if ndef $activeStandard>>
		<<InitStandards>>
	<<else>>
		<<UpdateStandards>>
		<<BreedingStandards>>
	<</if>>
<</if>>


code:
:: Nueva Universidad de Libertad [nobr]

<<set $nextButton = "Back", $nextLink = "Buy Slaves", $returnTo = "Buy Slaves", $showEncyclopedia = 1, $encyclopedia = "Slave Schools">>
/* Multi-Purchase Support */
<<if ndef $newSlaves>><<set $newSlaves = []>><</if>>
<<if $newSlaves.length > 0>>
	<<set $nextButton = "Continue", $nextLink = "Bulk Slave Intro", $slaveMarket = "NUL", $returnTo = "Main", $newSlaveIndex = 0>>
<</if>>

//Nueva Universidad de Libertad is a unique slave school operating in the Free Cities. Its business model is to offer as close to asexuality as a sex slave can possess. All students have their sex organs surgically removed at a very young age, before the onset of puberty. This is followed by numerous cosmetic surgery alternations, alongside a steady regimen of hormone blockers, throughout their education. The result is an utterly physically androgynous slave. <<if $NUL.schoolUpgrade != 0>>

You have endowed the school with advanced training courses in <<if $NUL.schoolUpgrade == 1>>entertainment and conversation<<else>>the various sexual arts<</if>>. As a major financial supporter of the institution, you also receive a discount on them.<</if>>//

Nueva Universidad de Libertad offers a fresh graduate for inspection via video call. The interview takes place in said graduate's dormitory. The room is sparse and utilitarian, and immaculately clean. Likely by design, it looks like the set from an old sci-fi movie.

<<= generateMarketSlave("NUL")>>
<<set $slaveCost = slaveCost($activeSlave)>>
<<if $NUL.schoolSale != 0>>
	<<set $slaveCost = Math.trunc($slaveCost*0.5)>>
<<elseif $NUL.schoolUpgrade != 0>>
	<<set $slaveCost = Math.trunc($slaveCost*0.8)>>
<</if>>
<<if $slavesSeen > $slaveMarketLimit>><<set $slaveCost += Math.trunc($slaveCost*(($slavesSeen-$slaveMarketLimit)*0.1))>><</if>>

The price is <<print cashFormat($slaveCost)>>.<<if $slavesSeen > $slaveMarketLimit>> You have cast such a wide net for slaves this week that it is becoming more expensive to find more for sale. Your reputation helps determine your reach within the slave market.<</if>>

<<setLocalPronouns $activeSlave>>
<<buyingFromSchoolControls $NUL "slave" "slaves">>

repo_name: IchthysdeKilt/fc

license: mit


code:
:: Organ Farm [nobr]

<<set $nextButton = "Back", $nextLink = "Manage Penthouse", $showEncyclopedia = 1, $encyclopedia = "The Pharmaceutical Fab.", _PCSkillCheck = Math.min($upgradeMultiplierMedicine, $HackingSkillMultiplier)>>

The Organ Farm

<<if $organFarmUpgrade > 2>>
	//The organ farm is running smoothly. It can rapidly grow tailored organs for implantation in slaves. It can easily produce altered variants should you obtain the data necessary to create them.//

<<elseif $organFarmUpgrade > 1>>
	//The organ farm is running smoothly. It can quickly grow tailored organs for implantation in slaves, though there will be side-effects. It can easily produce altered variants should you obtain the data necessary to create them.//

<<elseif ($organFarmUpgrade > 0)>>
	//The organ farm is running smoothly. It can grow tailored organs for implantation in slaves. It can easily produce altered variants should you obtain the data necessary to create them.//

<</if>>

<<if ($organFarmUpgrade < 3) && ($rep <= 10000*_PCSkillCheck)>>
	//You lack the reputation to access experimental organ farm parts//

<<elseif $dispensary == 0 && $organFarmUpgrade == 2>>
	//An upgraded pharmaceutical fabricator is required by the perfected organ farm//

<<elseif $dispensary == 0 && $organFarmUpgrade == 1>>
	//A pharmaceutical fabricator is required to produce the chemicals for the accelerated organ farm//

<<elseif $dispensaryUpgrade == 0 && $organFarmUpgrade == 2>>
	//The pharmaceutical fabricator must upgraded in order to produce the drugs required by the perfected organ farm//

<<elseif $organs.length > 0>>
	//The organ farm cannot be upgraded while it is use//

<<elseif ($organFarmUpgrade == 2) && ($rep > 10000*_PCSkillCheck)>>
	[[Upgrade the organ farm to the cutting edge model|Organ Farm][cashX(forceNeg(150000*_PCSkillCheck), "capEx"), $organFarmUpgrade = 3]]
	//Costs <<print cashFormat(150000*_PCSkillCheck)>>//

    //Will allow the organ farm to rapidly grow organs without risk to the implantee's health.//

<<elseif ($organFarmUpgrade == 1) && ($rep > 10000*_PCSkillCheck)>>
	[[Upgrade the organ farm with an experimental growth accelerator|Organ Farm][cashX(forceNeg(75000*_PCSkillCheck), "capEx"), $organFarmUpgrade = 2]]
	//Costs <<print cashFormat(75000*_PCSkillCheck)>>//

    //Will allow the organ farm to quickly grow organs. Implanted organs may cause health issues.//

<</if>>

Organ Production

<<if $organs.length > 0>>
	The following organs are being grown:
	<<for $i = 0; $i < $organs.length; $i++>>
		<<set $j = $slaveIndices[$organs[$i].ID]>>
		<<if def $j>>

			$slaves[$j].slaveName's $organs[$i].type,
			<<if $organFarmUpgrade == 1>>
				<<print $organs[$i].weeksToCompletion>>
			<<elseif $organFarmUpgrade == 2>>
				<<print Math.ceil($organs[$i].weeksToCompletion/2)>>
			<<elseif $organFarmUpgrade == 3>>
				<<print Math.ceil($organs[$i].weeksToCompletion/4)>>
			<</if>> weeks from completion.
		<<else>>
			@@.red;Error: organID not found.@@
		<</if>>
	<</for>>

<</if>>
<<if $incubatorSlaves > 0>>
	<<for $x = 0; $x < $incubatorOrgans.length; $x++>>
		<<for _w = 0; _w < $incubatorSlaves; _w++>>
			<<if $tanks[_w].ID == $incubatorOrgans[$x].ID>>

				$tanks[_w].slaveName's $incubatorOrgans[$x].type,
				<<if $incubatorOrgans[$x].weeksToCompletion <= 0>>
					ready to be implanted as soon as $he exits the incubator.
				<<else>>
					<<if $organFarmUpgrade == 1>>
						<<print $incubatorOrgans[$x].weeksToCompletion>>
					<<elseif $organFarmUpgrade == 2>>
						<<print Math.ceil($incubatorOrgans[$x].weeksToCompletion/2)>>
					<<elseif $organFarmUpgrade == 3>>
						<<print Math.ceil($incubatorOrgans[$x].weeksToCompletion/4)>>
					<</if>> weeks from completion.
				<</if>>
				<<break>>
			<</if>>
		<</for>>
	<</for>>

<</if>>
/* TODO: potentially allow organs to be implanted into children in the nursery
<<set _NL = $NurseryiIDs.length>>
<<if _NL > 0>>
	<<for $x = 0; $x < $nurseryOrgans.length; $x++>>
		<<for _w = 0; _w < _NL; _w++>>
			<<if $cribs[_w].ID == $nurseryOrgans[$x].ID>>

				$cribs[_w].slaveName's $nurseryOrgans[$x].type,
				<<if $nurseryOrgans[$x].weeksToCompletion <= 0>>
					ready to be implanted as soon as $he exits the nursery.
				<<else>>
					<<if $organFarmUpgrade == 1>>
						<<print $nurseryOrgans[$x].weeksToCompletion>>
					<<elseif $organFarmUpgrade == 2>>
						<<print Math.ceil($nurseryOrgans[$x].weeksToCompletion/2)>>
					<<elseif $organFarmUpgrade == 3>>
						<<print Math.ceil($nurseryOrgans[$x].weeksToCompletion/4)>>
					<</if>> weeks from completion.
				<</if>>
				<<break>>
			<</if>>
		<</for>>
	<</for>>

<</if>>
*/

<<if $completedOrgans.length > 0>>

	Currently the following organs are completed and ready for implantation:
	<<for $i = 0; $i < $completedOrgans.length; $i++>>
		<<set $j = $slaveIndices[$completedOrgans[$i].ID]>>
		<<if def $j>>

$slaves[$j].slaveName's $completedOrgans[$i].type.
		<<else>>
			@@.red;Error: completedOrganID not found.@@
		<</if>>
	<</for>>

<</if>>

<<if ($youngerOvaries != 1) && ($rep <= 10000*_PCSkillCheck)>>
	//You lack the reputation to access designs for cloning fertile ovaries for menopausal slaves.//

<<elseif ($youngerOvaries != 1) && ($rep > 10000*_PCSkillCheck)>>
	[[Purchase designs for cloning fertile ovaries for menopausal slaves|Organ Farm][cashX(forceNeg(30000*_PCSkillCheck), "capEx"), $youngerOvaries = 1]]
	//Costs <<print cashFormat(30000*_PCSkillCheck)>>//

    //Will allow the growth of younger, fertile ovaries for menopausal slaves. Restored fertility will only last for a couple years at most.//

<<elseif ($youngerOvaries > 0)>>
	The organ farm is capable of growing fertile ovaries for postmenopausal slaves.

<</if>>

<<if $asexualReproduction == 1>>
	The organ farm is capable of growing modified ovary pairs capable of self-fertilization.

<</if>>

<<if $seePreg != 0 && $seeBestiality == 1 && $cheatMode == 1>>
	<<if $farmyardLabUpgrades.animalOvaries > 0>>
		<<if $animalOvaries < 1>>
			//You lack the required designs for cloning animal ovaries for slaves.//

		<<else>>
			The organ farm is capable of growing animal ovaries for slaves.

		<</if>>
	<</if>>

	<<if $farmyardLabUpgrades.animalTesticles > 0>>
		<<if $animalTesticles < 1>>
			//You lack the required designs for cloning animal testicles for slaves.//

		<<else>>
			The organ farm is capable of growing animal testicles for slaves.

		<</if>>
	<</if>>

	<<if $farmyardLabUpgrades.animalMpreg > 0 && $arcologies[0].FSGenderRadicalistResearch == 1>>
		<<if $animalMpreg < 1>>
			//You lack the required designs for cloning animal anal wombs and ovaries for slaves.//

		<<else>>
			The organ farm is capable of growing animal anal wombs and ovaries for slaves.

		<</if>>
	<</if>>
<</if>>

Future Societies Research

<<if $seePreg != 0>>
	<<if $arcologies[0].FSGenderRadicalistDecoration == 100>>
		<<if ($arcologies[0].FSGenderRadicalistResearch == 0)>>
			<<if ($rep >= 10000*_PCSkillCheck)>>
				[[Fund research into developing male pregnancy methods|Organ Farm][cashX(forceNeg(50000*_PCSkillCheck), "capEx"),$arcologies[0].FSGenderRadicalistResearch = 1]] //Costs <<print cashFormat(50000*_PCSkillCheck)>>. Will allow cloning and production of anal uteri and ovaries.//

			<<else>>
				// You lack the reputation to access the research necessary to develop anal uteri and ovaries. //

			<</if>>
		<<else>>
			The organ farm has been upgraded with schematics for modified uteri and ovaries.

		<</if>>
	<<elseif $arcologies[0].FSGenderRadicalistResearch == 1>>
		The organ farm has been upgraded with schematics for modified uteri and ovaries.

	<<else>>
		// Gender Radicalist focused research unavailable. //

	<</if>>
<</if>>


code:
:: Ova Transplant Workaround [nobr]

<<set $nextButton = "Cancel", $receptrix = 0, _eligibility = 0>>

//You've decided which fertilized ovum is to be transplanted; now you must select whose womb will be its new home.//

__Select a slave to serve as the host__

<<for _otw = 0; _otw < $slaves.length; _otw++>>
	<<capture _otw>>
		<<if ($donatrix.ID != $slaves[_otw].ID && $slaves[_otw].ovaries > 0 || $slaves[_otw].mpreg > 0) && isSlaveAvailable($slaves[_otw]) && $slaves[_otw].preg >= 0 && $slaves[_otw].preg < $slaves[_otw].pregData.normalBirth/10 && $slaves[_otw].pregWeek >= 0 && $slaves[_otw].pubertyXX == 1 && $slaves[_otw].pregType < 12 && $slaves[_otw].bellyImplant == -1 && $slaves[_otw].broodmother == 0 && $slaves[_otw].inflation <= 2 && $slaves[_otw].physicalAge < 70>>
			<<set _name = SlaveFullName($slaves[_otw])>>

[[_name|Surrogacy][$receptrix = $slaves[_otw], cashX(forceNeg($surgeryCost*2), "slaveSurgery"), $surgeryType = "transplant"]] <<if $slaves[_otw].pregType >= 4>>//Using a slave carrying multiples is inadvisable//<</if>>
			<<set _eligibility = 1>>
		<</if>>
	<</capture>>
<</for>>
<<if (_eligibility == 0)>>

//You have no slaves capable of acting as a surrogate.//
<</if>>

<<if $PC.vagina != -1 && $donatrix.ID != -1 && $PC.preg >= 0 && $PC.preg < 4 && $PC.pregType < 8 && $PC.physicalAge < 70>>

	[[Use your own womb|Surrogacy][$receptrix = $PC, cashX(forceNeg($surgeryCost*2), "slaveSurgery"), $surgeryType = "transplant"]]
<</if>>


code:
:: P Bodyswap Reveal [nobr]

<<set $nextButton = "Continue", $nextLink = "Random Nonindividual Event">>

<<set $bodyswapAnnounced = 1>>
<<set $fcnn.push("...transferring consciousness from one body to another is morally wrong, but financially...")>>

You receive countless messages throughout the day; mostly worthless spam, several uninteresting business offers and the occasional enslavement request. This one catches your eye however. It's an offer from a top surgeon who has recently been experimenting with radical new surgeries. You've been loosely following their work for the last few weeks, ever since they successfully swapped the consciousness from one slave to another with minimal side effects, assuming they are kept on a special suppressant, and it seems they are now offering their work to anyone with a surgical suite capable of performing the surgery and willing to undertake the risk.

It's an interesting offer and your remote surgery will suffice should you want to change up your slaves' bodies more than any drug or implant ever could. You'll need a slave to swap them with, however. Perhaps one of the mindless slaves from the Flesh Heap will suit your needs, should you not wish to use your own stock.


code:
:: P raped [nobr]

<<set $raped = 1, $nextLink = "Nonrandom Event", $returnTo = "Nonrandom Event">>

<<setPlayerPronouns>>

<<set $activeSlaveOneTimeMinAge = 16>>
<<set $oneTimeDisableDisability = 1>>
<<if $arcologies[0].FSSupremacistLawME == 1>>
	<<set $fixedRace = $arcologies[0].FSSupremacistRace>>
<<elseif $arcologies[0].FSSubjugationistLawME == 1>>
	<<set _races = setup.filterRacesLowercase.filter(race => race !== $arcologies[0].FSSubjugationistRace)>>
	<<set $fixedRace = _races.random()>>
<</if>>
<<if $PC.vagina >= 0>>
	<<set $activeSlave = GenerateNewSlave("XY")>>
	<<set $activeSlave.dick = 6>>
	<<set $activeSlave.balls = 5>>
	<<set $activeSlave.boobs = 0>>
	<<set $activeSlave.waist = 50>>
	<<set $activeSlave.skill.oral = 0>>
	<<set $activeSlave.skill.anal = 0>>
<<else>>
	<<set $activeSlave = GenerateNewSlave("XX")>>
	<<set $activeSlave.vagina = 1>>
	<<set $activeSlave.preg = 0>>
	<<set $activeSlave.weight = random(-20,30)>>
	<<set $activeSlave.waist = -20>>
<</if>>
<<set $activeSlave.origin = "You sentenced $him to enslavement for the attempted rape of a free " + _womanP + ".">>
<<set $activeSlave.devotion = -100>>
<<set $activeSlave.trust = -100>>
<<run setHealth($activeSlave, jsRandom(-40, -20), normalRandInt(15, 3), undefined, 1, jsRandom(30, 80))>>
<<set $activeSlave.anus = 0>>
<<set $activeSlave.behavioralFlaw = "arrogant">>
<<set $activeSlave.sexualFlaw = "judgemental">>

<<setLocalPronouns $activeSlave>>

While returning from a meeting with a prospective investor, an unfortunate wrong turn has led you into a rather seedy area of your arcology. You feel distinctly uncomfortable for some reason.

<<if $PC.career == "mercenary" || $PC.skill.warfare >= 85>>
	The moment you hear the sound of the knife unsheathe your reflexes take over. With a single strike, the $woman tailing you lies in a heap on the ground.
	<<set $raped = 0>>
<<elseif $PC.career == "slaver" || $PC.skill.warfare >= 45>>
	The moment you notice an arm coming around from behind you does your training kick in. You quickly disarm the assailant and knock them to the floor before placing them in a choke-hold. Once they are subdued, you stand back to decide what to do next.
	<<set $raped = 0>>
<<elseif $PC.career == "gang">>
	The moment you hear the sound of the knife unsheathe your reflexes take over. With a single stab, your own shiv is buried in $his chest, incapacitating $him.
	<<set $raped = 0>>
<<else>>
	You stifle a <<if $PC.title == 1>>swear<<else>>scream<</if>> when you feel your arm grabbed and the knife pressed to your throat, knowing that it will only end badly for you in this place.
<</if>>

<<if $raped == 1>>
	<<set $fcnn.push("...plans for increased security measures, but refused to answer questions regarding...")>>
	<<if $PC.vagina >= 0>>
		"Well, well, well, look what <<if $PC.belly >= 5000 || $PC.preg >= 20>>waddled<<else>>walked<</if>> into my territory. If it isn't $PC.slaveName, come to grace me with _hisP presence."
	<<else>>
		"I've been watching you ever since you first moved in, $PC.slaveName, waiting for the perfect moment to make you mine. We are going to have a little fun, you and I."
	<</if>>
	The $woman binds your hands behind you, all the while keeping the knife to your throat. "Smart keeping your mouth shut; maybe I won't have to hurt you. Heh, I know what you're thinking, that you'll find out who I am and punish me. Don't worry, I made sure to not to leave you any trails to follow. Now let's see what we have here."

	<<if $PC.vagina >= 0>>
		With $his free hand, $he begins to explore your vulnerable body.
		<<switch $PC.career>>
		<<case "wealth">>
			<<if $PC.boobs >= 300>>
				"Nice and supple. How much did you have to pay for these babies?" he smirks as he gropes your breasts.
			<</if>>
			<<if $PC.preg >= 20 || $PC.belly >= 5000>>
				"Couldn't afford an abortion after you took over? How sad," he chuckles as he rubs your pregnant belly.
			<</if>>
			<<if $PC.dick > 0>>
				"Went with the full package didn't you?" he mocks as he flicks the tip of your stiffening cock.
			<</if>>
		<<case "capitalist">>
			<<if $PC.boobs >= 300>>
				"Nice and supple. Bet these got you some great deals with guys, didn't they?" he smirks as he gropes your breasts.
			<</if>>
			<<if $PC.preg >= 20 || $PC.belly >= 5000>>
				"Sleeping with guys to close deals? Such a slut," he chuckles as he rubs your pregnant belly.
			<</if>>
			<<if $PC.dick > 0>>
				"Guess you fuck people over in more ways than one, don't you?" he mocks as he flicks the tip of your stiffening cock.
			<</if>>
		<<case "engineer">>
			<<if $PC.boobs >= 300>>
				"Nice and supple. Did the other engineers care about your designs or just your tits?" he smirks as he gropes your breasts.
			<</if>>
			<<if $PC.preg >= 20 || $PC.belly >= 5000>>
				"I can see why your designs were so popular, you fucked your way into the spotlight!" he chuckles as he rubs your pregnant belly.
			<</if>>
			<<if $PC.dick > 0>>
				"Well you do know how to erect things, don't you?" he mocks as he flicks the tip of your stiffening cock.
			<</if>>
		<<case "medicine">>
			<<if $PC.boobs >= 300>>
				"Nice and supple. Did you implant them yourself?" he smirks as he gropes your breasts.
			<</if>>
			<<if $PC.preg >= 20 || $PC.belly >= 5000>>
				<<if $PC.dick > 0>>
					"Look at that belly! I bet you inseminated yourself with your own seed," he chuckles as he rubs your pregnant belly.
				<<else>>
					"I see how you work. Mess up a surgery and give the guy a pity fuck. Surprised you couldn't get their spawn out of your belly though. Guess you aren't that good of a surgeon," he chuckles as he rubs your pregnant belly.
				<</if>>
			<</if>>
			<<if $PC.dick > 0>>
				"I'm impressed. Your woman impression is quite good. Did you do the surgery yourself?" he mocks as he flicks the tip of your stiffening cock. "Still going to fuck you though."
			<</if>>
		<<case "celebrity">>
			<<if $PC.boobs >= 300>>
				"Nice and supple. I wonder how many guys jacked off to your pictures?" he smirks as he gropes your breasts.
			<</if>>
			<<if $PC.preg >= 20 || $PC.belly >= 5000>>
				"I can see how you got so popular!" he chuckles as he rubs your pregnant belly.
			<</if>>
			<<if $PC.dick > 0>>
				"How much tape did it take to hold this guy down?" he mocks as he flicks the tip of your stiffening cock.
			<</if>>
		<<case "escort">>
			<<if $PC.boobs >= 300>>
				"Nice and soft. How many dicks have been between these babies?" he smirks as he gropes your breasts.
			<</if>>
			<<if $PC.preg >= 20 || $PC.belly >= 5000>>
				"What kind of whore doesn't know about protection?" he chuckles as he rubs your pregnant belly.
			<</if>>
			<<if $PC.dick > 0>>
				"So, did you ever get to use this when you were a prostitute?" he mocks as he flicks the tip of your stiffening cock.
			<</if>>
		<<case "servant">>
			<<if $PC.boobs >= 300>>
				"Nice and supple. Bet your Master spent a fortune making these so nice," he smirks as he gropes your breasts.
			<</if>>
			<<if $PC.preg >= 20 || $PC.belly >= 5000>>
				"Holding on to your Master's final gift are you?" he chuckles as he rubs your pregnant belly.
			<</if>>
			<<if $PC.dick > 0>>
				"When your Master first undressed you, what did he think of his 'girl'?" he mocks as he flicks the tip of your stiffening cock.
			<</if>>
		<<case "BlackHat">>
			<<if $PC.boobs >= 300>>
				"Nice and supple. What are the odds that I can find these babies on the internet?" he smirks as he gropes your breasts.
			<</if>>
			<<if $PC.preg >= 20 || $PC.belly >= 5000>>
				"You'd think someone so skilled at breaking security would understand protection themselves. Or did you trade your pussy for information?" he chuckles as he rubs your pregnant belly.
			<</if>>
			<<if $PC.dick > 0>>
				"Trying to catch a signal with that?" he mocks as he flicks the tip of your stiffening cock.
			<</if>>
		<</switch>>
		Finally he reaches your moistening pussy. "Already wet are we? Glad you know your place," he states as he pulls your clothes off and bends you over.<<if $PC.vagina == 0>> "And you still have your innocence, how delightful!"<</if>>

		You can feel the head of his cock teasing your
		<<if $PC.vagina == 0>>
			virgin pussy; you grit your teeth knowing what will come next. Without mercy, he @@.red;tears through your hymen@@ and forces himself as deep as your tight pussy lets him. You choke back a sob as he struggles to hilt himself in you. He must have undergone surgery or something because there is no way your body can handle such a monster. Your in agony already, you can't fathom what will happen when he looses his patience.
		<<else>>
			pussy lips; you hope it feels bigger than it really is. As he struggles to force it into you, you regret thinking about it. He must have undergone surgery or something because he fills you completely. You feel weak just from him sticking it in, you can't fathom what will happen once he starts thrusting.
		<</if>>
		You soon find out as he wastes no time starting slow. He violently rams his oversized cock deep into you, threatening to penetrate your cervix with each thrust. He quickens his pace, fucking you like a beast.
		<<if $PC.preg < 1>>
			<<if random(1,100) > 60>>
				His hand rises to your lips and forces something into your mouth. "Swallow it." You obey, hoping to just get this over with.
				<<set $PC.forcedFertDrugs += 3>>
			<</if>>
			With one final thrust, he forces through your battered cervix and unloads in the depths of your <<if canGetPregnant($PC)>>fertile <</if>>womb.
		<<else>>
			With one final thrust, he forces it in as deep as he can into you and blows his seed deep in your aching cunt.
		<</if>>
		<<if $PC.preg >= 20 || $PC.belly >= 5000>>"Now your child<<if $PC.pregType > 1>>ren<</if>> will know what a real man's sperm is like!" <</if>>
		He shoves you to the ground, pussy gaping from the size of his shaft and leaking his huge load all over yourself. By the time you loosen your bindings, he is long gone.

		It would be prudent to up security in your arcology. That or take a guard along when you leave the penthouse. Such a thing, happening to you. You can't allow such an indignity to happen again, <<if $PC.vagina == 0>>not that you'll ever get your first time back<<else>>you think to yourself<</if>>, as you try to coax his sperm from your abused pussy.
		<<if canGetPregnant($PC)>>
			For some reason your body feels really satisfied, despite <<if $PC.vagina == 0>>what transpired<<else>>not climaxing<</if>>... Is this what it feels like to be bred by someone so dominant? You should take a pregnancy test right away and make sure he didn't knock you up.
			<<= knockMeUp($PC, 100, 0, -2, 1)>>
		<</if>>
		<<if $PC.vagina == 0>><<set $PC.vagina++>><</if>>
	<<else>>
		With $his free hand, $he begins to explore your bound body.
		<<switch $PC.career>>
		<<case "wealth">>
			<<if $PC.boobs >= 300>>
				"Spared no expenses for these babies, did you?" $he smirks as $he gropes your breasts.
			<</if>>
			$He slips $his hand down your pants. "Now there's the money maker!"
		<<case "capitalist">>
			<<if $PC.boobs >= 300>>
				"Ever wonder if they were listening to you or just ogling the man with the breasts?" $he smirks as $he gropes your breasts.
			<</if>>
			$He slips $his hand down your pants. "Now that explains how you were so successful!"
		<<case "engineer">>
			<<if $PC.boobs >= 300>>
				"How did you get any work done with these hanging over your designs?" $he smirks as $he gropes your breasts.
			<</if>>
			$He slips $his hand down your pants. "I see what kind of tools you like. Big and strong!"
		<<case "medicine">>
			<<if $PC.boobs >= 300>>
				"I'm sure you had quite the number of clients after a pair of these," $he smirks as $he gropes your breasts.
			<</if>>
			$He slips $his hand down your pants. "Huh, I wonder if that's real..."
		<<case "celebrity">>
			<<if $PC.boobs >= 300>>
				"Nice and supple. Just like I'd expect from a man sporting tits." $he smirks as $he gropes your breasts.
			<</if>>
			$He slips $his hand down your pants; "Oh, now those tabloids make sense."
		<<case "escort">>
			<<if $PC.boobs >= 300>>
				"With these hanging out, how many men tried to pick you up?" $he smirks as $he gropes your breasts.
			<</if>>
			$He slips $his hand down your pants. "Now there's the money maker!"
		<<case "servant">>
			<<if $PC.boobs >= 300>>
				"Did your Master even ask before he stuck you with these?" $he smirks as $he gropes your breasts.
			<</if>>
			$He slips $his hand down your pants. "Now that's surprising. I expected something smaller."
		<<case "BlackHat">>
			<<if $PC.boobs >= 300>>
				"Nice and supple. What are the odds that I can find these babies on the internet?" $he smirks as $he gropes your breasts.
			<</if>>
			$He slips $his hand down your pants. "You wouldn't mind if I download a few files now would you? Well, not that it matters."
		<</switch>>
		Satisfied, $he pulls your cock out of its increasingly cramped confines. "Look at him grow, he knows what comes next..." $He teases as $he pushes you to the ground and climbs on top of you.

		$He lines $himself up with the tip of your dick before taking its entire length into $himself. $He lets out a lust filled moan as $he begins to bounce on your traitorous member. You can do nothing to stop $him from riding you to climax, so you just enjoy the sight of $his breasts bouncing to $his pace. As you feel your orgasm approaching, you try to time it so you can slip out of $him just before you blow your load, but you have no such luck.
		"You really think I'd let you spoil my plans?" $he asks as $he grinds against you, making sure you cum deep in $his pussy. $He leans back and massages $his <<if $PC.balls >= 20>>taut <</if>>stomach, savoring the sensation of your seed seeping into $him. "That's it, make me a mommy." $He leans in close and you pop free of $his snatch. "Be a good _girlP and make this arcology a nice place for your bastard. I want to retire in luxury." $He blows you a kiss as $he stuffs a plug up $his vagina, redresses and heads on $his way. By the time you loosen your bindings, $he is long gone.

		It would be prudent to up security in your arcology, that or take a guard along when you leave the penthouse. You can't allow such an indignity to happen again, nor do you need the stress of a bastard trying to seize control of your estate when you want to retire, but you wouldn't mind having your way with $him if you get the chance.
	<</if>>

<<else>>

	Now the only question is what to do with the would-be rapist. You could toss them out of the arcology, but it might be more fun to turn the tables on $him.

	<<set $contractCost = 1000>>
	<<set $slaveCost = slaveCost($activeSlave)>>
	<<set $slaveCost -= 1000>>

	//Applying enslavement as punishment will cost <<print cashFormat($contractCost)>>. Doing so and then selling $him immediately will bring in approximately <<print cashFormat($slaveCost)>>.//

	<<set $saleDescription = 1>>
	<<include "Long Slave Description">>

	<<if $cash >= $contractCost>>

<<link "Enslave $him">>
			<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
			<<replace "#result">>
				You complete the legalities and biometric scanning quickly and without fuss. The idiot will regret crossing you when $he wakes in the penthouse for basic slave induction.
				<<include "New Slave Intro">>
			<</replace>>
		<</link>>

<<link "Sentence $him to a day in the stocks, then enslave $him">>
			<<run healthDamage($activeSlave, 10)>>
			<<set $activeSlave.behavioralFlaw = "odd">>
			<<set $activeSlave.sexualFlaw = "hates penetration">>
			<<set $activeSlave.anus = 2>>
			<<set $activeSlave.counter.anal += 12, $activeSlave.counter.oral += 23>>
			<<set $analTotal += 12, $oralTotal += 23>>
			<<if $activeSlave.vagina > -1>>
				<<set $activeSlave.vagina = 2>>
				<<set $activeSlave.counter.vaginal += 12>>
				<<set $vaginalTotal += 12>>
				<<if random(1,100) > 60 && isFertile($activeSlave)>>
					<<= knockMeUp($activeSlave, 100, 0, -2, 1)>>
				<</if>>
			<<else>>
				<<set $activeSlave.counter.anal += 12, $analTotal += 12>>
			<</if>>
			<<set $activeSlave.counter.publicUse += 47>>
			<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
			<<replace "#result">>
				You declare $his holes fair game for the entire arcology. $He spends a torturous day in the stocks before being hauled in for enslavement, somewhat @@.red;the worse for wear@@ and @@.red;acting oddly@@ due to $his ordeal, bruises all over $his body, cum leaking from $his @@.lime;loosened@@ anus<<if $activeSlave.vagina > -1>> and @@.lime;fucked-out@@ pussy<</if>>. The public @@.green;enjoys the fun.@@
				<<run repX(500, "event")>>
				<<set $arcologies[0].prosperity += 2>>
				<<include "New Slave Intro">>
			<</replace>>
		<</link>>
		<<if $arcade > 0>>

<<link "Enslave $him and sentence $him to a month in the arcade">>
				<<= assignJob($activeSlave, "be confined in the arcade")>>
				<<set $activeSlave.sentence = 4>>
				<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
				<<replace "#result">>
					You complete the legalities and biometric scanning quickly and cautiously. The idiot will be in for a surprise when $he awakes to find $he can't move and a dick is in $his ass.
					<<run newSlave($activeSlave)>> /* skip New Slave Intro */
				<</replace>>
			<</link>>
		<</if>>
		<<if $dairy > 0>>
			<<if $dairyRestraintsSetting > 1>>

<<link "Enslave $him and send $him straight to the industrial dairy">>
					<<= assignJob($activeSlave, "work in the dairy")>>
					<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
					<<replace "#result">>
						You complete the legalities and biometric scanning quickly and cautiously. The idiot will wake up <<if $dairyStimulatorsSetting > 1>>in agony as $his anus takes the rectal hydration dildo<<else>>to find $his chest has begun swelling with milk<</if>>.
						<<set $activeSlave.boobs += 300>>
						<<run newSlave($activeSlave)>> /* skip New Slave Intro */
					<</replace>>
				<</link>>
			<</if>>
		<</if>>
		<<if $farmyard > 0>>

<<link "Enslave $him and send $him straight to the farmyard">>
				<<= assignJob($activeSlave, "work as a farmhand")>>
				<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
				<<replace "#result">>
					You complete the legalities and biometric scanning quickly and cautiously. The idiot will wake up in $farmyardName, where $he will spend the rest of $his days working the fields<<if $farmyardShows == 1>> and <<if $seeBestiality == 1>>getting fucked by animals<<else>>putting on shows with animals<</if>><</if>>.
					<<run newSlave($activeSlave)>> /* skip New Slave Intro */
				<</replace>>
			<</link>>
		<</if>>
		<<if $seeExtreme > 0>>

<<link "Punitively amputate $his limbs, and then enslave $him">>
				<<run healthDamage($activeSlave, 20)>>
				<<run removeLimbs($activeSlave, "all")>>
				<<set $activeSlave.behavioralFlaw = "odd">>
				<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
				<<replace "#result">>
					You want $him to suffer for what $he tried to pull on you. You make sure $he is fully awake as $he is strapped into the autosurgery. You take great pleasure in watching $him struggle as $his limbs are taken, one by one. Of course, @@.red;$his health is affected@@ and the horrible experience has left $him @@.red;acting oddly.@@ After $he has stabilized, it's off to the penthouse for basic slave induction. You'd like to see $him try and touch you again without arms and legs.
				<</replace>>
			<</link>>
			<<if $activeSlave.balls > 0>>

<<link "Enslave the criminal and geld $him">>
					<<run healthDamage($activeSlave, 20)>>
					<<set $activeSlave.balls = 0>>
					<<set $activeSlave.devotion -= 25>>
					<<set $activeSlave.trust -= 25>>
					<<run newSlave($activeSlave)>>
					<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
					<<replace "#result">>
						You want $him to suffer for what $he tried to pull on you. You make sure $he is fully awake as $he is strapped into the autosurgery, taking the time to roughly fondle $his balls. You take great pleasure in watching $him struggle as $his testicles are removed. Once $he can stand again, it's off to the penthouse for basic slave induction.
						<<include "New Slave Intro">>
					<</replace>>
				<</link>>
			<</if>>
		<</if>>
	<<else>>
		//You lack the necessary funds to enslave $him.//
	<</if>>

<<link "Publicly flog the criminal">>
		<<replace "#result">>
			Naturally, the wretch will be thrown out of the arcology, but an example must first be made. Free people must understand that criminals who commit outrages against them will be severely punished. The protesting malefactor is stripped and flogged on the promenade before being escorted bleeding from the arcology. The public @@.green;approves of this harshness.@@
			<<run repX(500, "event")>>
		<</replace>>
	<</link>>

<</if>>


code:
:: PC Appearance Intro [nobr]

Race and appearance are largely irrelevant in the Free Cities; there are only the free and the enslaved.

//Appearance only, no effect on gameplay (unless you make a big deal out of it).//

@@.orange;What nationality are you?@@

You are $PC.nationality.

<<textbox "$PC.nationality" $PC.nationality "PC Appearance Intro">> //Capitalize it//

@@.orange;What race are you?@@

You're $PC.race.

<<link "White">>
	<<set $PC.race = "white">>
	<<PlayerRace>>
<</link>>
|
<<link "Asian">>
	<<set $PC.race = "asian">>
	<<PlayerRace>>
<</link>>
|
<<link "Latina">>
	<<set $PC.race = "latina">>
	<<PlayerRace>>
<</link>>
|
<<link "Middle Eastern">>
	<<set $PC.race = "middle eastern">>
	<<PlayerRace>>
<</link>>
|
<<link "Black">>
	<<set $PC.race = "black">>
	<<PlayerRace>>
<</link>>
|
<<link "Semitic">>
	<<set $PC.race = "semitic">>
	<<PlayerRace>>
<</link>>
|
<<link "Southern European">>
	<<set $PC.race = "southern european">>
	<<PlayerRace>>
<</link>>
|
<<link "Indo-Aryan">>
	<<set $PC.race = "indo-aryan">>
	<<PlayerRace>>
<</link>>
|
<<link "Amerindian">>
	<<set $PC.race = "amerindian">>
	<<PlayerRace>>
<</link>>
|
<<link "Pacific Islander">>
	<<set $PC.race = "pacific islander">>
	<<PlayerRace>>
<</link>>
|
<<link "Malay">>
	<<set $PC.race = "malay">>
	<<PlayerRace>>
<</link>>
|
<<link "Mixed Race">>
	<<set $PC.race = "mixed race">>
	<<PlayerRace>>
<</link>>

@@.orange;What is your skin tone?@@

You have $PC.origSkin skin.

<<link "Pure White">>
	<<set $PC.origSkin = "pure white">>
	<<PlayerSkin>>
<</link>>
|
<<link "Ivory">>
	<<set $PC.origSkin = "ivory">>
	<<PlayerSkin>>
<</link>>
|
<<link "White">>
	<<set $PC.origSkin = "white">>
	<<PlayerSkin>>
<</link>>
|
<<link "Extremely Pale">>
	<<set $PC.origSkin = "extremely pale">>
	<<PlayerSkin>>
<</link>>
|
<<link "Very Pale">>
	<<set $PC.origSkin = "very pale">>
	<<PlayerSkin>>
<</link>>
|
<<link "Pale">>
	<<set $PC.origSkin = "pale">>
	<<PlayerSkin>>
<</link>>
|
<<link "Extremely Fair">>
	<<set $PC.origSkin = "extremely fair">>
	<<PlayerSkin>>
<</link>>
|
<<link "Very Fair">>
	<<set $PC.origSkin = "very fair">>
	<<PlayerSkin>>
<</link>>
|
<<link "Fair">>
	<<set $PC.origSkin = "fair">>
	<<PlayerSkin>>
<</link>>
|
<<link "Light">>
	<<set $PC.origSkin = "light">>
	<<PlayerSkin>>
<</link>>
|
<<link "Light Olive">>
	<<set $PC.origSkin = "light olive">>
	<<PlayerSkin>>
<</link>>
|
<<link "Tan">>
	<<set $PC.origSkin = "tan">>
	<<PlayerSkin>>
<</link>>
|
<<link "Olive">>
	<<set $PC.origSkin = "olive">>
	<<PlayerSkin>>
<</link>>
|
<<link "Bronze">>
	<<set $PC.origSkin = "bronze">>
	<<PlayerSkin>>
<</link>>
|
<<link "Dark Olive">>
	<<set $PC.origSkin = "dark olive">>
	<<PlayerSkin>>
<</link>>
|
<<link "Dark">>
	<<set $PC.origSkin = "dark">>
	<<PlayerSkin>>
<</link>>
|
<<link "Light Beige">>
	<<set $PC.origSkin = "light beige">>
	<<PlayerSkin>>
<</link>>
|
<<link "Beige">>
	<<set $PC.origSkin = "beige">>
	<<PlayerSkin>>
<</link>>
|
<<link "Dark Beige">>
	<<set $PC.origSkin = "dark beige">>
	<<PlayerSkin>>
<</link>>
|
<<link "Light Brown">>
	<<set $PC.origSkin = "light brown">>
	<<PlayerSkin>>
<</link>>
|
<<link "Brown">>
	<<set $PC.origSkin = "brown">>
	<<PlayerSkin>>
<</link>>
|
<<link "Dark Brown">>
	<<set $PC.origSkin = "dark brown">>
	<<PlayerSkin>>
<</link>>
|
<<link "Black">>
	<<set $PC.origSkin = "black">>
	<<PlayerSkin>>
<</link>>
|
<<link "Ebony">>
	<<set $PC.origSkin = "ebony">>
	<<PlayerSkin>>
<</link>>
|
<<link "Pure Black">>
	<<set $PC.origSkin = "pure black">>
	<<PlayerSkin>>
<</link>>

@@.orange;Some people have freckles.@@

	<<if $PC.markings == "none">>
		Your skin is pure and clear of any freckles.
	<<elseif $PC.markings == "freckles">>
		You have some freckles on your cheeks and elsewhere.
	<<elseif $PC.markings == "heavily freckled">>
		You have dense freckles on your cheeks and elsewhere.
	<</if>>

<<link "No Freckles">>
	<<set $PC.markings = "none">>
	<<PlayerMarkings>>
<</link>>
|
<<link "Light Freckles">>
	<<set $PC.markings = "freckles">>
	<<PlayerMarkings>>
<</link>>
|
<<link "Heavy Freckles">>
	<<set $PC.markings = "heavily freckled">>
	<<PlayerMarkings>>
<</link>>

@@.orange;What color are your eyes?@@

You have $PC.eye.origColor eyes.

<<textbox "$PC.eye.origColor" $PC.eye.origColor "PC Appearance Intro">>

@@.orange;What color is your hair?@@

You have $PC.hColor hair.

<<textbox "$PC.hColor" $PC.hColor "PC Appearance Intro">>

[[Finish player character customization|PC Experience Intro][resetEyeColor($PC)]]


code:
:: PC Preg Intro [nobr]

You have a working female reproductive system, and thus, a menstrual cycle. Women already face hardships as slaveowners and arcology owners, and being pregnant, coupled with a strong societal aversion to the dominant being penetrated, leads most pregnant owners to find themselves in dire situations. As an added precaution, since nothing stops an owner from hooking up with another owner, contraceptives are common amongst free women.

@@.orange;What's your stance on taking contraceptives?@@

You're
<<if $PC.preg == -1>>
	not interested in being a mother.
	[[Risky|PC Preg Intro][$PC.preg = 0]]
<<elseif $PC.preg == 0>>
	fertile and you know the risks.
	[[Safe|PC Preg Intro][$PC.preg = -1]] | [[About that...|PC Preg Intro][$PC.preg = 10]]
<<elseif $PC.preg > 42>>
	proudly pregnant with octuplets and they are coming right now.
	[[Not pregnant|PC Preg Intro][$PC.preg = 0, $PC.pregType = 0, $PC.labor = 0]]
<<elseif $PC.preg > 37>>
	<<print $PC.preg>> weeks pregnant and very close to being due.
	[[Not pregnant|PC Preg Intro][$PC.preg = 0, $PC.pregType = 0]]
	| [[Overdid the fertility agents|PC Preg Intro][$PC.preg = 43, $PC.pregType = 8, $PC.labor = 1]]
<<else>>
	already pregnant.
	[[Fertile|PC Preg Intro][$PC.preg = 0]]
	| [[Make that very pregnant|PC Preg Intro][$PC.preg = 40]]
<</if>>

//Being or becoming pregnant will raise difficulty.//

@@.orange;Hormones can be an interesting thing, but how do they affect you?@@

You're
<<if $PC.pregMood == 1>>
	gentle and motherly when you're hormonal.
	[[Normal|PC Preg Intro][$PC.pregMood = 0]] | [[Aggressive|PC Preg Intro][$PC.pregMood = 2]]
<<elseif $PC.pregMood == 0>>
	in complete control of yourself.
	[[Motherly|PC Preg Intro][$PC.pregMood = 1]] | [[Aggressive|PC Preg Intro][$PC.pregMood = 2]]
<<else>>
	aggressive and domineering when you're hormonal.
	[[Normal|PC Preg Intro][$PC.pregMood = 0]] | [[Motherly|PC Preg Intro][$PC.pregMood = 1]]
<</if>>

//Hormone induced moods may alter some sex scenes, as well as change slaves' reactions to you.//

[[Confirm player character customization|PC Appearance Intro]]


code:
:: Personal Notes [nobr]

<<if $useTabs == 0>>__Personal Notes__<</if>>
<br>
<<if ($playerAging != 0)>>Your birthday is <<if $PC.birthWeek == 51>>next week<<if $playerAging == 2>>; you'll be turning <<print $PC.actualAge+1>><</if>><<else>>in <<print 52-$PC.birthWeek>> weeks<</if>>.<</if>>
<<PlayerBoobs>>
<<PlayerBelly>>
<<PlayerCrotch>>
<<PlayerButt>>
<<if $PC.lactation > 0>>
	<<if $PC.rules.lactation != "none" && $PC.rules.lactation != "induce">>
		<<set $PC.lactationDuration = 2>>
		<<if $PC.rules.lactation == "sell">>
			/* watch this be a disaster */
			<<set _milk = milkAmount($PC)>>
			Whenever you have a free moment and a chest swollen with milk, you spend your time attached to the nearest milker. As a result, you produce _milk liters of sellable milk over the week.
			<<if ($arcologies[0].FSPastoralistLaw == 1)>>
				<<set _milkSale = _milk*(28+Math.trunc($arcologies[0].FSPastoralist/30))>>
				Since breast milk is $arcologies[0].name's only legal dairy product, and yours is in a class all of its own, society can't get enough of it and you make @@.yellowgreen;<<print cashFormat(_milkSale)>>.@@
			<<elseif ($arcologies[0].FSPastoralist != "unset")>>
				<<set _milkSale = _milk*(12+Math.trunc($arcologies[0].FSPastoralist/30))>>
				Since milk is fast becoming a major part of the $arcologies[0].name's dietary culture, and yours is in a class all of its own, you make @@.yellowgreen;<<print cashFormat(_milkSale)>>.@@
			<<else>>
				<<set _milkSale = _milk*8>>
				Your milk is sold for @@.yellowgreen;<<print cashFormat(_milkSale)>>.@@
			<</if>>
			<<run cashX(_milkSale, "personalBusiness")>>
		<<else>>
			You regularly see to your breasts to make sure your milk production doesn't dry up; be it by hand, milker, or mouth, you keep yourself comfortably drained.
		<</if>>
	<<else>>
		<<if $PC.belly < 1500>>
			<<set $PC.lactationDuration-->>
			<<if $PC.lactationDuration == 0>>
				With no reason to continue production, your @@.yellow;lactation has stopped.@@
				<<set $PC.lactation = 0>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<<if $PC.preg > 0>>
	<<set _oldCount = $PC.pregType>>
	<<if $PC.preg <= 2>>
		<<run fetalSplit($PC, 1000)>>
		<<run WombCleanYYFetuses($PC)>>
	<</if>>
	<<if $pregnancyMonitoringUpgrade == 1>>
		<<if _oldCount < $PC.pregType>>
			While making use of the advanced pregnancy monitoring equipment, you are surprised to find @@.lime;your womb is a little more occupied than last checkup.@@
		<<elseif _oldCount > $PC.pregType>>
			While making use of the advanced pregnancy monitoring equipment, you are surprised to find @@.orange;your womb houses less life than last checkup.@@
			<<if $PC.pregType == 0>>
				For all intents and purposes, @@.yellow;you are no longer pregnant.@@
				<<run TerminatePregnancy($PC)>>
			<</if>>
		<</if>>
	<<elseif _oldCount > $PC.pregType && $PC.pregType == 0>>
		<<run TerminatePregnancy($PC)>>
	<</if>>
	<<if $PC.preg == 15>>
		<<if $PC.pregKnown == 0>>
			Your areolae have gotten dark. Some cursory tests reveal @@.lime;you are about fifteen weeks pregnant.@@ How did that manage to slip past you?
			<<set $PC.pregKnown = 1>>
		<<else>>
			Your areolae have gotten dark. Just another step along your pregnancy.
		<</if>>
	<<elseif $PC.belly >= 1500>>
		<<if ($PC.preg > 20) && ($PC.lactation == 0)>>
			<<if $PC.preg > random(18,30)>>
				A moist sensation on your breasts draws your attention; @@.lime;your milk has come in.@@
				<<set $PC.lactation = 1>>
			<</if>>
		<</if>>
		<<if $PC.lactation == 1>>
			<<set $PC.lactationDuration = 2>>
		<</if>>
	<</if>>
	<<if ($PC.preg >= $PC.pregData.normalBirth/4)>>
		<<set _gigantomastiaMod = $PC.geneticQuirks.gigantomastia == 2 ? ($PC.geneticQuirks.macromastia == 2 ? 3 : 2) : 1>>
		/* trim this down */
		<<if $PC.geneMods.NCS == 1>>
			<<set _boobTarget = 100>>
		<<elseif $PC.geneticQuirks.androgyny == 2>>
			<<set _boobTarget = 400>>
		<<elseif $PC.physicalAge >= 18>>
			<<if $PC.pregType >= 8>>
				<<set _boobTarget = 1500>> /* 2000 */
			<<elseif $PC.pregType >= 5>>
				<<set _boobTarget = 1400>>
			<<elseif $PC.pregType >= 2>>
				<<set _boobTarget = 1000>>
			<<else>>
				<<set _boobTarget = 800>>
			<</if>>
		<<elseif $PC.physicalAge >= 13>>
			<<if $PC.pregType >= 8>>
				<<set _boobTarget = 1500>> /* 1800 */
			<<elseif $PC.pregType >= 5>>
				<<set _boobTarget = 1400>>
			<<elseif $PC.pregType >= 2>>
				<<set _boobTarget = 1000>>
			<<else>>
				<<set _boobTarget = 800>>
			<</if>>
		<<elseif $PC.physicalAge >= 8>>
			<<if $PC.pregType >= 8>>
				<<set _boobTarget = 1400>>
			<<elseif $PC.pregType >= 5>>
				<<set _boobTarget = 1000>>
			<<elseif $PC.pregType >= 2>>
				<<set _boobTarget = 800>>
			<<else>>
				<<set _boobTarget = 600>>
			<</if>>
		<<else>>
			<<if $PC.pregType >= 8>>
				<<set _boobTarget = 1000>>
			<<elseif $PC.pregType >= 5>>
				<<set _boobTarget = 8000>>
			<<elseif $PC.pregType >= 2>>
				<<set _boobTarget = 600>>
			<<else>>
				<<set _boobTarget = 400>>
			<</if>>
		<</if>>
		/*<<set _boobTarget *= _gigantomastiaMod>>*/
		<<if ($PC.geneMods.NCS == 0)>>
			/*
			<<if $PC.pregType >= 30>>
				<<if ($PC.weight <= 65)>>
					$He has @@.lime;gained weight@@ in order to better sustain $himself and $his children.
					<<set $PC.weight += 1>>
				<</if>>
				<<if (random(1,100) > 60)>>
					<<if (($PC.boobs - $PC.boobsImplant) < _boobTarget)>>
						$His breasts @@.lime;greatly swell@@ to meet the upcoming demand.
						<<set $PC.boobs += 100>>
						<<if $PC.boobShape != "saggy" && $PC.preg > $PC.pregData.normalBirth/1.25 && ($PC.breastMesh != 1) && ($PC.drugs != "sag-B-gone")>>
							$His immensely engorged @@.orange;breasts become saggy@@ in the last stages of $his pregnancy as $his body undergoes changes in anticipation of the forthcoming birth.
							<<set $PC.boobShape = "saggy">>
						<</if>>
					<</if>>
					<<if $PC.geneticQuirks.androgyny != 2>>
						<<if ($PC.hips < 2)>>
							$His hips @@.lime;widen@@ for $his upcoming birth.
							<<set $PC.hips += 1>>
						<</if>>
						<<if ($PC.butt < 14)>>
							$His butt @@.lime;swells with added fat@@ from $his changing body.
							<<set $PC.butt += 1>>
						<</if>>
					<</if>>
				<</if>>
			<<elseif ($PC.pregType >= 10)>>
				<<if random(1,100) > 80 && (($PC.boobs - $PC.boobsImplant) < _boobTarget)>>
					<<set $PC.boobs += 50>>
					<<if $PC.boobShape != "saggy" && ($PC.breastMesh != 1) && ($PC.drugs != "sag-B-gone")>>
						<<if $PC.preg > random($PC.pregData.normalBirth/1.25, $PC.pregData.normalBirth*2.05)>>
							$His swollen @@.orange;breasts become saggy@@ in the last stages of $his pregnancy as $his body undergoes changes in anticipation of the forthcoming birth.
							<<set $PC.boobShape = "saggy">>
						<</if>>
					<</if>>
				<</if>>
			<</if>>
			*/
			<<if ($PC.boobs - $PC.boobsImplant) < _boobTarget>>
				<<if $PC.boobs >= 1400>>
					<<if random(1,100) > 90>>
						Unsurprisingly, your cow tits @@.lime;have swollen even larger@@ with your pregnancy.
						<<set $PC.boobs += 25>>
					<</if>>
				<<elseif $PC.boobs >= 1200>>
					<<if random(1,100) > 90>>
						Your already huge breasts have @@.lime;grown even heavier@@ with your pregnancy.
						<<set $PC.boobs += 25>>
						<<if $PC.boobs >= 1400>>
							Your desk is steadily starting to disappear; @@.lime;H-cups will do that.@@
						<</if>>
					<</if>>
				<<elseif $PC.boobs >= 1000>>
					<<if random(1,100) > 75>>
						Your already large breasts have @@.lime;grown even larger@@ with your pregnancy.
						<<set $PC.boobs += 25>>
						<<if $PC.boobs >= 1200>>
							Nothing fits comfortably now; your tailor says @@.lime;it's your G-cup knockers.@@ Your back agrees.
						<</if>>
					<</if>>
				<<elseif $PC.boobs >= 800>>
					<<if random(1,100) > 75>>
						Your breasts have @@.lime;grown a bit larger@@ to feed your coming child<<if $PC.pregType > 1>>ren<</if>>.
						<<set $PC.boobs += 25>>
						<<if $PC.boobs >= 1000>>
							You popped your bra when you put it on; @@.lime;time to order some F-cups.@@
						<</if>>
					<</if>>
				<<elseif $PC.boobs >= 650>>
					<<if random(1,100) > 80>>
						Your breasts have @@.lime;grown a bit larger@@ to feed your coming child<<if $PC.pregType > 1>>ren<</if>>.
						<<set $PC.boobs += 25>>
						<<if $PC.boobs >= 800>>
							Their prominence, and a quick measuring, reveals @@.lime;you now sport DDs.@@
						<</if>>
					<</if>>
				<<elseif $PC.boobs >= 500>>
					<<if random(1,100) > 80>>
						Your breasts have @@.lime;grown a bit larger@@ to feed your coming child<<if $PC.pregType > 1>>ren<</if>>.
						<<set $PC.boobs += 25>>
						<<if $PC.boobs >= 650>>
							They're big, sensitive, @@.lime;and now a D-cup.@@
						<</if>>
					<</if>>
				<<elseif $PC.boobs >= 400>>
					<<if random(1,100) > 80>>
						Your breasts have @@.lime;gotten heavier@@ alongside your pregnancy.
						<<set $PC.boobs += 25>>
						<<if $PC.boobs >= 500>>
							They spill dramatically out of your bra now, which means @@.lime;you've graduated to a C-cup.@@
						<</if>>
					<</if>>
				<<elseif $PC.boobs >= 300>>
					<<if random(1,100) > 75>>
						Your breasts have @@.lime;swollen@@ alongside your pregnancy.
						<<set $PC.boobs += 25>>
						<<if $PC.boobs >= 400>>
							A quick measuring after your top started to feel too constricting reveals @@.lime;you are now a B-cup!@@
						<</if>>
					<</if>>
				<<else>>
					<<if random(1,100) > 75>>
						Your chest @@.lime;has filled out slightly@@ with your pregnancy.
						<<set $PC.boobs += 25>>
						<<if $PC.boobs >= 300>>
							They've gotten so big that @@.lime;you can now fill an A-cup bra.@@
						<</if>>
					<</if>>
				<</if>>
				<<if _sagCheck>>
					<<if $PC.boobShape != "saggy" && $PC.preg > random($PC.pregData.normalBirth/1.25, $PC.pregData.normalBirth*2.5) && ($PC.breastMesh != 1) && ($PC.drugs != "sag-B-gone")>>
						$His @@.orange;breasts become saggy@@ in the last stages of $his pregnancy as $his body undergoes changes in anticipation of the forthcoming birth.
						<<set $PC.boobShape = "saggy">>
					<</if>>
				<</if>>
			<</if>>
			/*
			<<if $PC.preg > $PC.pregData.normalBirth/1.25 && $PC.physicalAge >= 18 && $PC.hips == 1 && $PC.hipsImplant == 0 && random(1,100) > 90>>
				$His hips @@.lime;widen@@ to better support $his gravidity.
				<<set $PC.hips += 1>>
			<<elseif $PC.preg > $PC.pregData.normalBirth/1.42 && $PC.physicalAge >= 18 && $PC.hips == 0 && $PC.hipsImplant == 0 && random(1,100) > 70>>
				$His hips @@.lime;widen@@ to better support $his gravidity.
				<<set $PC.hips += 1>>
			<</if>>
			*/
		<</if>>
	<</if>>
<</if>>


code:
:: RE legendary womb [nobr]

<<set $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "RIE Eligibility Check", $activeSlave = ($legendaryFacility == 1) ? getSlave($legendaryWombID) : $eventSlave>>

<<if (ndef $activeSlave)>> /* not found — reset variable and stop event */
	<<set $legendaryWombID = 0>>
	<<goto "RIE Eligibility Check">>
<<else>>

<<setLocalPronouns $activeSlave>>
<<set $activeSlave.devotion += 4>>

<<EventNameLink>> is an incredible mother. $He's given birth to numbers that would have been considered absurd in the days when drug treatments were limited by consent. A nascent organization will be holding a pageant for pregnant slaves tomorrow, and since they're aware you keep breeders, they've sent you an invitation to enter a heavily pregnant slave to be judged.

This is a rare opportunity. The idea of a pregnancy pageant isn't new but it is undeniably going to attract attention, so the pageant is likely to draw some serious press. Were $activeSlave.slaveName to win, $he would probably be remembered for a long time as a special mother.

<<link "Fairly enter $him in the pregnancy pageant">>
	<<EventNameDelink $activeSlave>>
	<<if random(1,100) > 90>>
		<<replace "#result">>
		$activeSlave.slaveName is shown in public, closely inspected by the judging committee, and then asked to demonstrate how to pleasure a man while so heavily pregnant. It's likely there was some bribery behind the scenes, but $his heavy belly and creative positions win the day. Against all odds $he is named best in show, and will be @@.green;remembered@@ as a breeder of the highest pedigree. As $his owner, your reputation has @@.green;also increased.@@
		<<run repX(500, "event", $activeSlave)>>
		<<set $activeSlave.prestige = 1>>
		<<set $activeSlave.prestigeDesc = "$He is remembered for winning best in show as a breeder.">>
		<<set $desc = "a best in show ribbon awarded to " + $activeSlave.slaveName + " as a breeder">>
		<<set $trinkets.push($desc)>>
		<</replace>>
	<<else>>
		<<replace "#result">>
		$activeSlave.slaveName is shown in public, closely inspected by the judging committee, and then asked to demonstrate how to pleasure a man while so heavily pregnant. It's likely there was some bribery behind the scenes, and it is fatal to $his chances of winning. Though $his pregnant body is the most impressive on display, another slaveowner who was more open-handed with the judges took best in show. The public is impressed with $activeSlave.slaveName's reproductive capability anyway; as you are $his owner, your reputation has @@.green;increased@@ a little.
		<<run repX(500, "event", $activeSlave)>>
		<</replace>>
	<</if>>
<</link>>

<<link "Spend <<print cashFormat(5000)>> bribing the judges">>
	<<EventNameDelink $activeSlave>>
	<<if random(1,100) > 50>>
		<<replace "#result">>
		$activeSlave.slaveName is shown in public, closely inspected by the judging committee, and then asked to demonstrate how to pleasure a man while so heavily pregnant. Several of the judges cannot resist giving you a wink as they look $him over. $activeSlave.slaveName is unsurprisingly named best in show, and will be @@.green;remembered@@ as a breeder of the highest pedigree. As $his owner, your reputation has @@.green;also increased.@@
		<<run cashX(-5000, "event", $activeSlave)>>
		<<run repX(500, "event", $activeSlave)>>
		<<set $activeSlave.prestige = 1>>
		<<set $activeSlave.prestigeDesc = "$He is remembered for winning best in show as a breeder.">>
		<<set $desc = "a best in show ribbon awarded to " + $activeSlave.slaveName + " as a breeder">>
		<<set $trinkets.push($desc)>>
		<</replace>>
	<<else>>
		<<replace "#result">>
		$activeSlave.slaveName is shown in public, closely inspected by the judging committee, and then asked to demonstrate how to pleasure a man while so heavily pregnant. Several of the judges cannot resist giving you a wink as they look $him over, but others look disapprovingly at them; it seems some of your competitors also forwarded money to the committee. After furious wrangling, $activeSlave.slaveName loses to another mother. The public is impressed with $activeSlave.slaveName's reproductive capability anyway; as you are $his owner, your reputation has @@.green;increased@@ a little.
		<<run cashX(-5000, "event", $activeSlave)>>
		<<run repX(500, "event", $activeSlave)>>
		<</replace>>
	<</if>>
<</link>>

<<link "Spend <<print cashFormat(10000)>> bribing the judges and sabotaging the competition">>
	<<EventNameDelink $activeSlave>>
	<<if random(1,100) > 10>>
		<<replace "#result">>
		$activeSlave.slaveName is shown in public, closely inspected by the judging committee, and then asked to demonstrate how to pleasure a man while so heavily pregnant. After $he's put through $his paces, the most unfortunate series of accidents somehow befalls $his fellow mothers. One is taken ill, another seems drugged, and another went into labor and gave birth, disqualifying her. $activeSlave.slaveName is unsurprisingly named best in show, and will be @@.green;remembered@@ as a breeder of the highest pedigree. As $his owner, your reputation has @@.green;also increased.@@
		<<run cashX(-10000, "event", $activeSlave)>>
		<<run repX(500, "event", $activeSlave)>>
		<<set $activeSlave.prestige = 1>>
		<<set $activeSlave.prestigeDesc = "$He is remembered for winning best in show as a breeder.">>
		<<set $desc = "a best in show ribbon awarded to " + $activeSlave.slaveName + " as a breeder">>
		<<set $trinkets.push($desc)>>
		<</replace>>
	<<else>>
		<<replace "#result">>
		$activeSlave.slaveName is shown in public, closely inspected by the judging committee, and then asked to demonstrate how to pleasure a man while so heavily pregnant. You are surprised to see that the judging committee has been changed at the last minute. They choose another breeder as best in show. There are persistent @@.red;rumors@@ after the show that there was an absolute massacre of firings at the dairy organization headquarters the night before the show after it was discovered that someone, widely thought to be you, had been corrupting the judges.
		<<run cashX(-10000, "event", $activeSlave)>>
		<<run repX(-100, "event", $activeSlave)>>
		<</replace>>
	<</if>>
<</link>>

<</if>> /* closes validity check */