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>>
<<set $activeSlave.health = random(-50,-20)>>
<<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.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.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 chokehold. 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>>
	<<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.name, come to grace me with _hisP presence."
	<<else>>
		"I've been watching you ever since you first moved in, $PC.name, 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 > 0>>
				"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 > 0>>
				"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 > 0>>
				"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 > 0>>
				"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 > 0>>
				"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 > 0>>
				"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 > 0>>
				"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 > 0>>
				"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.

		You can feel the head of his cock teasing your 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. 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 isPlayerFertile($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, you think to yourself, as you try to coax his sperm from your abused pussy.
		<<if isPlayerFertile($PC)>>
			For some reason your body feels really satisfied, despite not climaxing... 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>>
	<<else>>
		With $his free hand, $he begins to explore your bound body.
		<<switch $PC.career>>
		<<case "wealth">>
			<<if $PC.boobs > 0>>
				"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 > 0>>
				"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 > 0>>
				"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 > 0>>
				"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 > 0>>
				"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 > 0>>
				"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 > 0>>
				"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 > 0>>
				"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.ballsImplant > 2>>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 boy 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">>
			<<set $activeSlave.health -= 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">>
				<<set $activeSlave.health -= 20>>
				<<set $activeSlave.amp = 1>>
				<<set $activeSlave.heels = 0>>
				<<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">>
					<<set $activeSlave.health -= 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.skin skin.

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

<<textbox "$PC.eyeColor" $PC.eyeColor "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]]

repo_name: Fekenol/fc


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:
:: PC Skin Workaround [nobr]

<<set $nextButton = "Get in", $nextLink = "PC Surgery Degradation">>

You can enter any color for your skin to be changed to. Once you have chosen, you just have to get in and let the machine do its thing.
<br><<textbox "$PC.skin" $PC.skin "PC Surgery Degradation">>


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.boobs == 1 && $PC.boobsImplant == 0>>
	<<if $PC.preg == 31>>
		<<if $PC.boobsBonus == 2>>
			<<if random(1,100) > 90>>
				Your already huge breasts have @@.lime;grown even more enormous@@ with your new pregnancy. Quick measurements show you've gone up yet another a cup size over the course of your pregnancy.
				<<set $PC.boobsBonus++>>
			<</if>>
		<<elseif $PC.boobsBonus == 1>>
			<<if random(1,100) > 75>>
				Your already large breasts have @@.lime;grown even larger@@ with your new pregnancy. Quick measurements show you've gone up another cup size or so over the course of your pregnancy.
				<<set $PC.boobsBonus++>>
			<</if>>
		<<elseif $PC.boobsBonus == 0>>
			<<if random(1,100) > 75>>
				Your breasts have @@.lime;grown larger@@ to feed your coming child<<if $PC.pregType > 1>>ren<</if>>. Quick measurements show you've gone up a cup size over the course of your pregnancy.
				<<set $PC.boobsBonus++>>
			<</if>>
		<<elseif $PC.boobsBonus == -1>>
			<<if random(1,100) > 80>>
				Your breasts have @@.lime;grown a bit larger@@ to feed your coming child<<if $PC.pregType > 1>>ren<</if>>. Quick measurements show you've gone up nearly two cup sizes over the course of your pregnancy.
				<<set $PC.boobsBonus++>>
			<</if>>
		<<elseif $PC.boobsBonus == -2>>
			<<if random(1,100) > 80>>
				Your once small breasts have @@.lime;become very swollen@@ lately with your new pregnancy. Quick measurements show you've gone up a cup size over the course of your pregnancy.
				<<set $PC.boobsBonus++>>
			<</if>>
		<<elseif $PC.boobsBonus == -3>>
			<<if random(1,100) > 75>>
				Your once tiny breasts have @@.lime;become swollen@@ lately with your new pregnancy. Quick measurements show you've actually gone up a cup size over the course of your pregnancy.
				<<set $PC.boobsBonus++>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<<if $PC.lactation > 0>>
	<<if $playerGetsMilked > 0>>
		<<set $PC.lactationDuration = 2>>
		<<if $playerGetsMilked == 2>>
			<<set _milk = 10+($PC.boobsBonus*10)>>
			<<if $PC.boobsImplant == 1>>
				<<set _milk *= .9>>
			<</if>>
			<<set _milk = Math.trunc(_milk)>>
			<<if _milk < 1>>
				<<set _milk = 1>>
			<</if>>
			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 intent and purposes, @@.yellow;you are no longer pregnant.@@
				<<set WombFlush($PC), $PC.pregKnown = 0, $PC.pregWeek = 0>>
				<<run SetBellySize($PC)>>
			<</if>>
		<</if>>
	<<elseif _oldCount > $PC.pregType && $PC.pregType == 0>>
		<<set WombFlush($PC), $PC.pregKnown = 0, $PC.pregWeek = 0>>
		<<run SetBellySize($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>>


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 */