code:
:: FPCImpreg [nobr]

/* TODO: add reactions for incest */

<<run clearSummaryCache($activeSlave)>>
<<set _bonus = random(6,20)>>
<<set _belly = bellyAdjective($activeSlave)>>
<<set _superfetation = ($activeSlave.geneticQuirks.superfetation == 2 && $activeSlave.pregKnown == 1) ? 1 : 0>>

<<if $activeSlave.mpreg == 1>>
	<<set $activeSlave.counter.anal += _bonus+1, $analTotal += _bonus+1>>
<<else>>
	<<set $activeSlave.counter.vaginal += _bonus+1, $vaginalTotal += _bonus+1>>
<</if>>

You call $him over so you can
<<if $activeSlave.mpreg == 1>>
	<<if ($activeSlave.anus > 2)>>
		fuck $his gaping, fertile
	<<elseif ($activeSlave.anus == 2)>>
		use $his whorish, fertile
	<<elseif ($activeSlave.anus == 1)>>
		use $his tight, fertile
	<<elseif ($activeSlave.anus == 0)>>
		take $his fertile, virgin
	<</if>>
	<<if _superfetation == 1>>
		asshole and put another baby in $him.
	<<else>>
		asshole.
	<</if>>
<<else>>
	<<if ($activeSlave.vagina > 2)>>
		fuck $his gaping, fertile cunt.
	<<elseif ($activeSlave.vagina == 2)>>
		use $his whorish, fertile cunt.
	<<elseif ($activeSlave.vagina == 1)>>
		use $his tight, fertile cunt.
	<<elseif ($activeSlave.vagina == 0)>>
		take $his fertile, virgin pussy.
	<</if>>
	<<if _superfetation == 1>>
		You plan on putting another baby in $him.
	<</if>>

	<<if ($activeSlave.vaginaTat == "tribal patterns")>>
		The tattoos on $his abdomen certainly draw attention there.
	<<elseif ($activeSlave.vaginaTat == "scenes")>>
		The tattoos on $his abdomen nicely illustrate what you mean to do to $him.
	<<elseif ($activeSlave.vaginaTat == "degradation")>>
		The tattoos on $his abdomen ask you to, after all.
	<</if>>

	<<if $activeSlave.clit == 1>>
		$His big clit <<if $activeSlave.foreskin > 0>>peeks out from under its hood<<else>>can't be missed<</if>>.
	<<elseif $activeSlave.clit > 2>>
		$His huge clit is impossible to miss.
	<</if>>

	<<if ($activeSlave.vaginaPiercing > 1) && ($activeSlave.vagina != -1)>>
		$His pierced lips and clit have $him nice and wet.
	<<elseif ($activeSlave.vaginaPiercing == 1) && ($activeSlave.vagina != -1)>>
		$His pierced clit has $him nice and moist.
	<</if>>
<</if>>

<<if ($activeSlave.fetish == "pregnancy") && ($activeSlave.fetishStrength > 60) && ($activeSlave.fetishKnown == 1) && ($activeSlave.vagina == 0 || ($activeSlave.anus == 0 && $activeSlave.mpreg == 1))>>
	$He cries with joy and presents $his virgin <<if $activeSlave.mpreg == 1>>asshole<<else>>pussy<</if>> for fertilization. $He sobs with happiness when $he feels your hot seed<<if $PC.balls == 3>> filling $him until $his belly is distended and wobbling with your cum<<elseif $PC.balls == 2>> pouring into $him until $he is stuffed with your cum<<elseif $PC.balls == 1>> pouring into $him<</if>>, knowing that $his first time will always be special to $him. $He spends the rest of the day cherishing $his _belly stomach. This new connection with $his <<= WrittenMaster($activeSlave)>> @@.hotpink;increases $his devotion to you.@@ @@.lime;$His <<if $activeSlave.mpreg == 1>>asshole<<else>>pussy<</if>> has been broken in, and there's a good chance $he's <<if _superfetation == 1>>got another bun in the oven<<else>>pregnant<</if>>.@@
	<<if $activeSlave.mpreg == 1>>
		<<set $activeSlave.anus = 1>>
	<<else>>
		<<set $activeSlave.vagina = 1>>
	<</if>>
	<<set $activeSlave.devotion += 15>>
<<elseif ($activeSlave.fetish == "pregnancy") && ($activeSlave.fetishStrength > 60) && ($activeSlave.fetishKnown == 1)>>
	$He cries with joy and presents $his fertile <<if $activeSlave.mpreg == 1>>asshole<<else>>pussy<</if>> for breeding. $He sobs with happiness when $he feels your hot seed<<if $PC.balls == 3>> filling $him until $his belly is distended and wobbling with your cum<<elseif $PC.balls == 2>> pouring into $him until $he is stuffed with your cum<<elseif $PC.balls == 1>> pouring into $him<</if>>. $He spends the rest of the day considering $his own _belly stomach with pride. This new connection with $his <<= WrittenMaster($activeSlave)>> @@.hotpink;increases $his devotion to you.@@
	<<set $activeSlave.devotion += 10>>
<<elseif ($activeSlave.devotion > 20) && ($activeSlave.vagina == 0 || ($activeSlave.anus == 0 && $activeSlave.mpreg == 1))>>
	$He accepts your orders without comment and presents $his virgin <<if $activeSlave.mpreg == 1>>asshole<<else>>pussy<</if>> for fertilization. $He gasps in shock when $he feels your hot seed<<if $PC.balls == 3>> filling $him until $his belly is distended and wobbling with your cum<<elseif $PC.balls == 2>> pouring into $him until $he is stuffed with your cum<<elseif $PC.balls == 1>> pouring into $him<</if>>. $He spends the rest of the day struggling with roiling emotions. Since $he is already well broken<<if _superfetation == 1>> and pregnant<</if>>, this new connection with $his <<= WrittenMaster($activeSlave)>> @@.hotpink;increases $his devotion to you.@@ @@.lime;$His <<if $activeSlave.mpreg == 1>>asshole<<else>>pussy<</if>> has been broken in, and there's a good chance $he's <<if _superfetation == 1>>got another bun in the oven<<else>>pregnant<</if>>.@@
	<<if $activeSlave.mpreg == 1>>
		<<set $activeSlave.anus = 1>>
	<<else>>
		<<set $activeSlave.vagina = 1>>
	<</if>>
	<<set $activeSlave.devotion += 10>>
<<elseif ($activeSlave.devotion >= -20) && ($activeSlave.vagina == 0 || ($activeSlave.anus == 0 && $activeSlave.mpreg == 1))>>
	$He is clearly unhappy at losing $his pearl of great price to you; this probably isn't what $he imagined $his first real sex would be like. Worse, $he knows $he's fertile and realizes
	<<if _superfetation == 1>>
		$his existing pregnancy is not going to stop you from adding another baby to $his womb.
	<<else>>
		$he'll likely get pregnant.
	<</if>>
	Nevertheless, this new connection with $his <<= WrittenMaster($activeSlave)>> @@.hotpink;increases $his devotion to you.@@ @@.lime;$His <<if $activeSlave.mpreg == 1>>asshole<<else>>pussy<</if>> has been broken in.@@
	<<if $activeSlave.mpreg == 1>>
		<<set $activeSlave.anus = 1>>
	<<else>>
		<<set $activeSlave.vagina = 1>>
	<</if>>
	<<set $activeSlave.devotion += 4>>
<<elseif ($activeSlave.vagina == 0 || ($activeSlave.anus == 0 && $activeSlave.mpreg == 1))>>
	As you anticipated, $he refuses to give you $his virginity. And as you expected, $he is unable to resist you. $He cries as your cock opens $his fresh, tight hole. Afterward, $he <<if $activeSlave.amp != 1>>clutches $his _belly stomach<<else>>lies there<</if>> and sobs, horrified by the knowledge that
	<<if _superfetation == 1>>
		$his unborn <<if $activeSlave.pregType == 1>>child is<<else>>children are<</if>> now sharing quarters with $his rapist's child.
	<<else>>
		$he's probably carrying $his rapist's child.
	<</if>>
	The rape @@.mediumorchid;decreases $his devotion to you@@ and @@.gold;fills $him with fear.@@ @@.lime;$His <<if $activeSlave.mpreg == 1>>asshole<<else>>pussy<</if>> has been broken in.@@
	<<set $activeSlave.devotion -= 5, $activeSlave.trust -= 5>>
	<<if $activeSlave.mpreg == 1>>
		<<set $activeSlave.anus = 1>>
	<<else>>
		<<set $activeSlave.vagina = 1>>
	<</if>>
<<elseif ($activeSlave.amp == 1)>>
	You have $his limbless torso set on the end of the couch, face-<<if _superfetation == 1>>up<<else>>down<</if>>, with $his hips up in the air. This way, you get the greatest degree of penetration into $his fertile <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>> you can manage. $He moans <<if _superfetation == 1>>openly<<else>>into the cushions<</if>>, knowing that when $he feels the hot flow of semen<<if $PC.balls == 3>> filling $him until $his stomach is distended and wobbling with your cum<<elseif $PC.balls == 2>> pouring into $him until $he is stuffed with your cum<<elseif $PC.balls == 1>> pouring into $him<</if>>, $he has probably <<if _superfetation == 1>>got another bun in the oven<<else>>gotten pregnant<</if>>.
<<elseif tooBigBelly($activeSlave)>>
	Since $he already ahs trouble moving with $his _belly belly, you just tip $him onto it; this leaves $his fertile <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>> exposed and vulnerable. $He moans as $he clutches the sides of $his stomach, knowing that when $he feels the hot flow of semen<<if $PC.balls == 3>> filling $him until $his the pressure forces it to spray around your shaft<<elseif $PC.balls == 2>> pouring into $him until $he is stuffed with your cum<<elseif $PC.balls == 1>> pouring into $him<</if>>, $he has probably gotten <<if _superfetation == 1>> another bun added to the oven<<else>>pregnant<</if>>.
<<elseif tooFatSlave($activeSlave)>>
	You set $him down on the couch, face-down, with $his hips up in the air. This way, $he's pinned in place by the weight of $his own body, and you get the greatest degree of penetration into $his fertile <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>>; after you push into $his soft folds enough to reach it, of course. $He moans into the cushions, knowing that when $he feels the hot flow of semen<<if $PC.balls == 3>> filling $him until $his stomach is distended and wobbling with your cum<<elseif $PC.balls == 2>> pouring into $him until $he is stuffed with your cum<<elseif $PC.balls == 1>> pouring into $him<</if>>, $he has probably <<if _superfetation == 1>>got another bun in the oven<<else>>gotten pregnant<</if>>.
<<elseif tooBigBreasts($activeSlave)>>
	You set $him down on the couch, face-down, with $his hips up in the air. This way, $he's pinned in place by the weight of $his ridiculous tits, and you get the greatest degree of penetration into $his fertile <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>>. $He moans into the cushions, knowing that when $he feels the hot flow of semen<<if $PC.balls == 3>> filling $him until $his stomach is distended and wobbling with your cum<<elseif $PC.balls == 2>> pouring into $him until $he is stuffed with your cum<<elseif $PC.balls == 1>> pouring into $him<</if>>, $he has probably <<if _superfetation == 1>>got another bun in the oven<<else>>gotten pregnant<</if>>.
<<elseif tooBigButt($activeSlave)>>
	You set $him down on the couch, face-down, with $his hips up in the air. This way, $he's stuck under $his ridiculous ass, you get an amazingly soft rear to pound, and you get the greatest degree of penetration into $his fertile <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>>. $He moans into the cushions, knowing that when $he feels the hot flow of semen<<if $PC.balls == 3>> filling $him until $his stomach is distended and wobbling with your cum<<elseif $PC.balls == 2>> pouring into $him until $he is stuffed with your cum<<elseif $PC.balls == 1>> pouring into $him<</if>>, $he has probably <<if _superfetation == 1>>got another bun in the oven<<else>>gotten pregnant<</if>>.
<<elseif tooBigDick($activeSlave)>>
	You set $him down on the couch, face-down, with $his hips up in the air. This way, $he's anchored in place by the weight of $his ridiculous cock, and you get the greatest degree of penetration into $his fertile <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>>. $He moans into the cushions, knowing that when $he feels the hot flow of semen<<if $PC.balls == 3>> filling $him until $his stomach is distended and wobbling with your cum<<elseif $PC.balls == 2>> pouring into $him until $he is stuffed with your cum<<elseif $PC.balls == 1>> pouring into $him<</if>>, $he has probably <<if _superfetation == 1>>got another bun in the oven<<else>>gotten pregnant<</if>>.
<<elseif tooBigBalls($activeSlave)>>
	You set $him down on the couch, face-down, with $his hips up in the air. This way, $he's anchored in place by the weight of $his ridiculous balls, and you get the greatest degree of penetration into $his fertile <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>>. $He moans into the cushions, knowing that when $he feels the hot flow of semen<<if $PC.balls == 3>> filling $him until $his stomach is distended and wobbling with your cum<<elseif $PC.balls == 2>> pouring into $him until $he is stuffed with your cum<<elseif $PC.balls == 1>> pouring into $him<</if>>, $he has probably <<if _superfetation == 1>>got another bun in the oven<<else>>gotten pregnant<</if>>.
<<elseif ($activeSlave.fetish == "submissive") && ($activeSlave.fetishStrength > 60) && ($activeSlave.fetishKnown == 1)>>
	$He <<if $activeSlave.belly >= 10000>>waddles<<else>>comes<</if>> submissively over, smiling a little submissive smile, and spreads $himself for you.
	<<if $activeSlave.belly < 5000>>
		You take $him on the couch next to your desk in the missionary position. $He hugs $his torso to you and $his breasts press against your chest; you can feel $his heart beating hard.
	<<else>>
		You take $him from behind against your desk. $He steadies $himself as $he feels your hands roaming across $his _belly belly. As the sex reaches its climax, $his breaths grow short and $his moans passionate. $He pushed against you,
	<</if>>
	 As the sex reaches its climax your semen<<if $PC.balls == 3>> fills $him until $his stomach is distended and wobbling with your cum<<elseif $PC.balls == 2>> pours into $him until $he is stuffed with your cum<<elseif $PC.balls == 1>> pours into $him<<else>> jets into $his welcoming depths<</if>> as $he begs you to use $his unworthy body to make a new slave.
<<elseif $activeSlave.devotion < -20>>
	$He tries to refuse, so you bend the disobedient slave over your desk and take $him hard from behind. $His breasts slide back and forth across the desk. You give $his buttocks some nice hard swats as you pound $him. $He grunts and moans but knows better than to try to get away. $He begs you not to cum inside $him, knowing $he's fertile, and sobs when $he feels you<<if $PC.balls == 3>> filling $him until $his stomach is distended and wobbling with your cum<<elseif $PC.balls == 2>> pouring into $him until $he is stuffed with your cum<<elseif $PC.balls == 1>> pouring into $him<<else>> blow your load<</if>> despite $his pleas.
<<elseif $activeSlave.devotion <= 20>>
	$He obeys, lying on the couch next to your desk with $his legs spread. You kneel on the ground and enter $him, a hand on each of $his legs to give you purchase. The pounding is hard and fast, and $he gasps and whines.
	<<if $activeSlave.belly >= 100000>>
		You reach a hand up to tease $his already taut dome of a pregnancy.
	<<else>>
		You reach a hand down to maul $his breasts.
	<</if>>
	$He begs you not to cum inside $him, knowing $he's fertile, but soon loses track of $his fears as $he enjoys $himself. $He bites $his lip and moans as $he climaxes. You fill $his squeezing fuckhole<<if $PC.balls == 3>> far beyond capacity<<elseif $PC.balls == 2>> beyond capacity<<elseif $PC.balls == 1>> to capacity<</if>> with your cum; $he realizes what you've done with a gasp and a worried look.
<<else>>
	<<if $activeSlave.belly < 5000>>
		$He skips over smiling and gives you a quick kiss. You take $him on the couch next to your desk in the missionary position. $He hugs $his torso to you and $his breasts press against your chest; you can feel $his heart beating hard. As the sex reaches its climax, $his kisses grow urgent and passionate. $He clings to you,
	<<else>>
		$He waddles over smiling and leans in to give you a quick kiss. You take $him from behind against your desk. $He steadies $himself as $he feels your hands roaming across $his _belly belly. As the sex reaches its climax, $his breaths grow short and $his moans passionate. $He pushed against you,
	<</if>>
	your semen<<if $PC.balls == 3>> flowing into $him until $his stomach is distended and wobbling with your cum<<elseif $PC.balls == 2>> pouring into $him until $he is stuffed with your cum<<elseif $PC.balls == 1>> pouring into $him<<else>> jetting into $him<</if>> as $he rides the downslope of $his orgasm. $He kisses you and promises to do $his best to use $his womb to make <<if _superfetation == 1>>another<<else>>a<</if>> good slave for you.
<</if>>

You repeat this ritual throughout the week, ensuring that $activeSlave.slaveName
<<if _superfetation == 1>>
	has @@.lime;added your child@@ to $his pregnancy.
<<else>>
	is @@.lime;carrying your child.@@
<</if>>

<<= knockMeUp($activeSlave, 100, 2, -1, 1)>>

<<if $arcologies[0].FSRestart != "unset">>
	<<if ($activeSlave.breedingMark != 1 || $propOutcome == 0) && $eugenicsFullControl != 1>>
		Rumors spread about you fucking your slaves pregnant; the Societal Elite are @@.red; very displeased@@ by these rumors.
		<<set $failedElite += 5>>
	<</if>>
<</if>>
<<if $arcologies[0].FSGenderRadicalist != "unset" && $activeSlave.mpreg == 1>>
	Society @@.green;approves@@ of your fucking your slaves' asses pregnant; this advances the ideal all a slave needs is $his rear.
	<<run repX($FSSingleSlaveRep*($arcologies[0].FSGenderRadicalist/$FSLockinLevel), "futureSocieties", $activeSlave)>>
	<<set $arcologies[0].FSGenderRadicalist += 0.05*$FSSingleSlaveRep>>
<<elseif $arcologies[0].FSGenderFundamentalist != "unset" && $activeSlave.mpreg == 1>>
	Society @@.red;is disgusted@@ by this degenerate form of reproduction.
	<<run repX(forceNeg($FSSingleSlaveRep*($arcologies[0].FSGenderFundamentalist/$FSLockinLevel)), "futureSocieties", $activeSlave)>>
	<<set $arcologies[0].FSGenderFundamentalist -= 0.05*$FSSingleSlaveRep>>
<<elseif $arcologies[0].FSGenderFundamentalist != "unset">>
	Society @@.green;approves@@ of your putting a new slave in $him; this advances the idea that all slaves should bear their masters' babies.
	<<run repX($FSSingleSlaveRep*($arcologies[0].FSGenderFundamentalist/$FSLockinLevel), "futureSocieties", $activeSlave)>>
	<<set $arcologies[0].FSGenderFundamentalist += 0.05*$FSSingleSlaveRep>>
<</if>>


code:
:: FRival [nobr]

<<set $partner = $slaveIndices[$activeSlave.rivalryTarget]>>
<<run clearSummaryCache($activeSlave)>>
<<setLocalPronouns $activeSlave>>
<<run clearSummaryCache($slaves[$partner])>>
<<setLocalPronouns $slaves[$partner] 2>>

You call $activeSlave.slaveName to your office and let $him know you'll be abusing $slaves[$partner].slaveName together.

<<if ($activeSlave.fetish == "sadist") && ($activeSlave.fetishStrength > 60) && ($activeSlave.fetishKnown == 1)>>
	$He looks overjoyed at the prospect of getting to hurt someone.
<</if>>

$slaves[$partner].slaveName sees $activeSlave.slaveName as _he2 enters and looks worried.

<<if ($slaves[$partner].anus == 0) && ($slaves[$partner].vagina < 0)>>
	Since _he2's a sissy bitch and an anal virgin, you tell _him2 to bend over and <<if ($PC.dick == 0)>>give you head<<else>>suck your dick<</if>>. _He2 does, and once _he2's working away, you tell $activeSlave.slaveName to come over and start spanking. $slaves[$partner].slaveName begins to lift _his2 head as though to protest, so you shove _him2 back down onto your <<if ($PC.dick == 0)>>pussy<<else>>cock<</if>>, gagging and struggling. $activeSlave.slaveName administers a series of cruel slaps to the quivering <<if $seeRace == 1>>$slaves[$partner].race <</if>>buttocks in front of $him, making your victim yell delightfully into your <<if ($PC.dick == 0)>>womanhood<<else>>member<</if>>. After a short time $activeSlave.slaveName decides to be even crueler, and begins to 'miss' frequently, hitting $slaves[$partner].slaveName's limp dick instead of _his2 ass.
	<<set $slaves[$partner].counter.oral++, $oralTotal++>>
<<elseif ($slaves[$partner].anus == 0) && ($slaves[$partner].vagina == 0)>>
	Since _he2's a virgin, you tell _him2 to bend over and <<if ($PC.dick == 0)>>give you head<<else>>suck your dick<</if>>. _He2 does, and once _he2's working away, you tell $activeSlave.slaveName to come over and start spanking. $slaves[$partner].slaveName begins to lift _his2 head as though to protest, so you shove _him2 back down onto your <<if ($PC.dick == 0)>>pussy<<else>>cock<</if>>, gagging and struggling. $activeSlave.slaveName administers a series of cruel slaps to the quivering <<if $seeRace == 1>>$slaves[$partner].race <</if>>buttocks in front of $him, making your victim yell delightfully into your <<if ($PC.dick == 0)>>womanhood<<else>>member<</if>>. After a short time $activeSlave.slaveName decides to be even crueler, and begins to 'miss' frequently, hitting $slaves[$partner].slaveName's poor pussy instead of _his2 ass.
	<<set $slaves[$partner].counter.oral++, $oralTotal++>>
<<elseif ($slaves[$partner].anus == 0) && ($slaves[$partner].vagina > 0) && canPenetrate($activeSlave)>>
	You tell _him2 to bend over and <<if ($PC.dick == 0)>>give you head<<else>>suck your dick<</if>>. _He2 does, and once _he2's working away, you tell $activeSlave.slaveName to use the bitch. $slaves[$partner].slaveName begins to lift _his2 head as though to protest, so you shove _him2 back down onto your <<if ($PC.dick == 0)>>pussy<<else>>cock<</if>>, gagging and struggling. $activeSlave.slaveName lands a slap on the <<if $seeRace == 1>>$slaves[$partner].race <</if>>butt in front of $him as $he lines $his turgid dick up with $slaves[$partner].slaveName's pussy. $He sinks in with a sigh and begins to enjoy $himself, using slaps and pinches to ensure that of the two slaves, the fun is entirely on $his side.
	<<set $slaves[$partner].counter.vaginal++, $slaves[$partner].counter.oral++, $activeSlave.counter.penetrative++, $vaginalTotal++, $oralTotal++, $penetrativeTotal++>>
<<elseif ($slaves[$partner].anus == 0) && ($slaves[$partner].vagina > 0) && ($activeSlave.dick > 0)>>
	You <<if ($PC.dick == 0)>>step into a strap-on and tell _him2 to ride it<<else>>tell _him2 to ride your dick<</if>>, facing away from you. _He2 does, not without trepidation, which increases when you hold _him2 securely in place. Once _he2's humping away, you tell $activeSlave.slaveName to use _his2 face. $activeSlave.slaveName comes over slowly, unsure what to do with the offer since $his dick is so useless. $He forces $slaves[$partner].slaveName's face against $his useless member anyway. After a bit of this, $activeSlave.slaveName, clearly unsatisfied, turns around and rides $slaves[$partner].slaveName with $his ass instead. $slaves[$partner].slaveName tries to avoid orally servicing _his2 rival's asshole, but you hold _him2 in place and $activeSlave.slaveName sighs in contentment.
	<<set $slaves[$partner].counter.oral++, $slaves[$partner].counter.vaginal++, $activeSlave.counter.oral++, $vaginalTotal++, $oralTotal += 2>>
<<elseif ($slaves[$partner].anus == 0) && ($slaves[$partner].vagina > 0)>>
	You <<if ($PC.dick == 0)>>step into a strap-on and tell _him2 to ride it<<else>>tell _him2 to ride your dick<</if>>, facing away from you. $He does, not without trepidation, which increases when you hold $him securely in place. Once _he2's humping away, you tell $activeSlave.slaveName to ride _his2 face. $activeSlave.slaveName comes over, gently rubbing $his pussy. $He forces $slaves[$partner].slaveName's face against $his slick cunt, ignoring _his2 reluctance. $slaves[$partner].slaveName eventually realizes that _he2's better off getting it over with, and applies _his2 tongue as best _he2 can.
	<<set $slaves[$partner].counter.oral++, $slaves[$partner].counter.vaginal++, $activeSlave.counter.oral++, $vaginalTotal++, $oralTotal += 2>>
<<elseif ($slaves[$partner].anus > 0) && ($slaves[$partner].vagina < 0) && canPenetrate($activeSlave)>>
	You <<if ($PC.dick == 0)>>step into a strap-on and tell _him2 to ride it<<else>>tell _him2 to ride your dick<</if>>, facing you. _He2 lowers _his2 butthole down onto your cock, not without trepidation, which increases when you reach behind _him2 and spread _his2 buttocks as wide as they'll go. With _him2 pinned, you tell $activeSlave.slaveName to come over and join you. $activeSlave.slaveName comes over, stroking $himself hard, not certain what you mean. To make it clear, you hook a single finger up into poor $slaves[$partner].slaveName's rectum alongside <<if ($PC.dick == 0)>>the fake phallus<<else>>your dick<</if>>. It takes $activeSlave.slaveName a while to jam $his cock up the struggling and sobbing $slaves[$partner].slaveName's anus. Of the three phalli present, $slaves[$partner].slaveName's is the only one that's soft as _he2 cries _his2 way through a brutal double anal rape.
	<<set $slaves[$partner].counter.anal++, $activeSlave.counter.penetrative++, $analTotal++, $penetrativeTotal++>>
<<elseif ($slaves[$partner].anus > 0) && ($slaves[$partner].vagina == 0) && canPenetrate($activeSlave)>>
	You <<if ($PC.dick == 0)>>step into a strap-on and tell _him2 to ride it<<else>>tell _him2 to ride your dick<</if>> anally, facing you. _He2 lowers _his2 butthole down onto your cock, not without trepidation, which increases when you reach behind _him2 and spread _his2 buttocks as wide as they'll go. With _him2 pinned, you tell $activeSlave.slaveName to come over and join you. $activeSlave.slaveName comes over, stroking $himself hard, not certain what you mean. To make it clear, you hook a single finger up into poor $slaves[$partner].slaveName's rectum alongside <<if ($PC.dick == 0)>>the fake phallus<<else>>your dick<</if>>. It takes $activeSlave.slaveName a while to jam $his cock up the struggling and sobbing $slaves[$partner].slaveName's anus. $slaves[$partner].slaveName buys continued vaginal virginity by taking a brutal double anal rape.
	<<set $slaves[$partner].counter.anal++, $activeSlave.counter.penetrative++, $analTotal++, $penetrativeTotal++>>
<<elseif ($slaves[$partner].anus > 0) && ($slaves[$partner].vagina < 1) && ($activeSlave.dick > 0)>>
	You <<if ($PC.dick == 0)>>step into a strap-on and tell _him2 to ride it<<else>>tell _him2 to ride your dick<</if>> anally, facing away from you. _He2 does, not without trepidation, which increases when you hold _him2 securely in place as you pump yourself in and out of _his2 asshole. You tell $activeSlave.slaveName to ride _his2 face. $activeSlave.slaveName comes over slowly, unsure what to do with the offer since $his dick is so useless. $He forces $slaves[$partner].slaveName's face against $his useless member anyway. After a bit of this, $activeSlave.slaveName, clearly unsatisfied, turns around and rides $slaves[$partner].slaveName with $his ass instead. $slaves[$partner].slaveName tries to avoid orally servicing _his2 rival's asshole, but you hold _him2 in place and $activeSlave.slaveName sighs in contentment.
	<<set $slaves[$partner].counter.anal++, $slaves[$partner].counter.oral++, $activeSlave.counter.oral++, $analTotal++, $oralTotal += 2>>
<<elseif ($slaves[$partner].anus > 0) && ($slaves[$partner].vagina < 1)>>
	You <<if ($PC.dick == 0)>>step into a strap-on and tell _him2 to ride it<<else>>tell _him2 to ride your dick<</if>> anally, facing away from you. _He2 does, not without trepidation, which increases when you hold _him2 securely in place as you pump yourself in and out of _his2 asshole. You tell $activeSlave.slaveName to ride _his2 face. $activeSlave.slaveName comes over, gently rubbing $his pussy. $He forces $slaves[$partner].slaveName's face against $his slick cunt, ignoring _his2 reluctance. $slaves[$partner].slaveName eventually realizes that _he2's better off getting it over with, and applies _his2 tongue as best _he2 can.
	<<set $slaves[$partner].counter.oral++, $slaves[$partner].counter.anal++, $activeSlave.counter.oral++, $analTotal++, $oralTotal += 2>>
<<elseif ($slaves[$partner].anus > 0) && ($slaves[$partner].vagina > 0) && canPenetrate($activeSlave)>>
	You <<if ($PC.dick == 0)>>step into a strap-on and tell _him2 to ride it<<else>>tell _him2 to ride your dick<</if>>, facing you. _He2 does, with some trepidation, which increases when you reach behind _him2 and spread _his2 buttocks as wide as they'll go. With _him2 pinned, you tell $activeSlave.slaveName to come over and join you. $activeSlave.slaveName comes over, stroking $himself hard. You squeeze $slaves[$partner].slaveName's buttocks together and then spread them again, forcing _his2 anus to wink invitingly. You stop $slaves[$partner].slaveName's abortive humping and hold _his2 hips in place while $activeSlave.slaveName gets $his cock up $his ass. Once $he's set, off the two of you go, with poor $slaves[$partner].slaveName gasping and grimacing as _he2 gets it rough in both holes.
	<<set $slaves[$partner].counter.vaginal++, $slaves[$partner].counter.anal++, $activeSlave.counter.penetrative++, $vaginalTotal++, $analTotal++, $penetrativeTotal++>>
<<elseif ($slaves[$partner].anus > 0) && ($slaves[$partner].vagina > 0) && ($activeSlave.dick > 0)>>
	You <<if ($PC.dick == 0)>>step into a strap-on and tell _him2 to ride it<<else>>tell _him2 to ride your dick<</if>>, facing you. _He2 does, with some trepidation, which increases when you reach behind _him2 and spread _his2 buttocks as wide as they'll go. With _him2 pinned, you tell $activeSlave.slaveName to come over and join you. $activeSlave.slaveName comes over, stroking $himself hard, not certain what you mean, since $his cock is useless. To make it clear, you push two fingers into $slaves[$partner].slaveName's butt, finger fucking _his2 asshole until $activeSlave.slaveName takes over. Once $he's set, off the two of you go, with poor $slaves[$partner].slaveName gasping and grimacing as _he2 gets it rough in both holes. $activeSlave.slaveName uses as many fingers as $he can, always at least one more than $slaves[$partner].slaveName would like.
	<<set $slaves[$partner].counter.vaginal++, $slaves[$partner].counter.anal++, $activeSlave.counter.penetrative++, $vaginalTotal++, $analTotal++, $penetrativeTotal++>>
<<elseif ($slaves[$partner].anus > 0) && ($slaves[$partner].vagina > 0)>>
	You <<if ($PC.dick == 0)>>step into a strap-on and tell _him2 to ride it<<else>>tell _him2 to ride your dick<</if>>, facing you. _He2 does, with some trepidation, which increases when you reach behind _him2 and spread _his2 buttocks as wide as they'll go. With _him2 pinned, you tell $activeSlave.slaveName to come over and join you, indicating a strap-on for slave use, on a side shelf. $activeSlave.slaveName hurries into it and comes over. You stop $slaves[$partner].slaveName's abortive humping and hold _his2 hips in place while $activeSlave.slaveName gets $his fake cock up _his2 ass. Once $he's set, off the two of you go, with poor $slaves[$partner].slaveName gasping and grimacing as _he2 gets it rough in both holes. $activeSlave.slaveName murmurs calumnies in $slaves[$partner].slaveName's ear, pinches _his2 nipples, and generally adds humiliation above and beyond being double penetrated by _his2 owner and _his2 rival.
	<<set $slaves[$partner].counter.vaginal++, $slaves[$partner].counter.anal++, $activeSlave.counter.penetrative++, $vaginalTotal++, $analTotal++, $penetrativeTotal++>>
<<else>>
	Unforeseen combination of rival stats; yell at FC Dev to write a scene for these slaves.
<</if>>

<<if passage() !== "Slave Interact">>
	<<set $nextLink = "AS Dump">>
<</if>>

repo_name: CheatDude/fc


code:
:: FSlaveImpreg [nobr]

<<set $nextButton = "Back", $nextLink = "Slave Interact", $impregnatrix = 0, $eligibility = 0>>

//$activeSlave.slaveName is fertile; now you must select a slave with both a penis and potent testicles.//

__Select an eligible slave to serve as the semen donatrix:__

<<for _i = 0; _i < $slaves.length; _i++>>
	<<if ($slaves[_i].ID != $activeSlave.ID) && canImpreg($activeSlave, $slaves[_i])>>
		<<set _name = SlaveFullName($slaves[_i])>>

<<print "[[_name|FSlaveImpreg Consummate][$impregnatrix = $slaves[" + _i + "]]]">>
		<<if $slaves[_i].custom.label>> (@@.yellow;''<<print $slaves[_i].custom.label>>''@@)<</if>>
		<<if $familyTesting == 1 && totalRelatives($activeSlave) > 0>>
			/* parental test */
			<<if ($activeSlave.father && $slaves[_i].ID == $activeSlave.father)>>
				@@.lightgreen;Father@@
			<</if>>
			<<if ($activeSlave.mother && $slaves[_i].ID == $activeSlave.mother)>>
				@@.lightgreen;Mother@@
			<</if>>
			/* offspring test */
			<<if ($slaves[_i].mother && $slaves[_i].mother == $activeSlave.ID)>>
				@@.lightgreen;Daughter@@
			<</if>>
			<<if ($slaves[_i].father && $slaves[_i].father == $activeSlave.ID)>>
				@@.lightgreen;Daughter@@
			<</if>>
			/* sibling test */
			<<switch areSisters($activeSlave, $slaves[_i])>>
				<<case 1>>
					@@.lightgreen;Twin.@@
				<<case 2>>
					<<if ($slaves[_i].genes == "XX")>>
						@@.lightgreen;Sister@@
					<<else>>
						@@.lightgreen;Brother@@
					<</if>>
				<<case 3>>
					<<if ($slaves[_i].genes == "XX")>>
						@@.lightgreen;Half-Sister@@
					<<else>>
						@@.lightgreen;Half-Brother@@
					<</if>>
			<</switch>>
		<</if>> /* closes extended family mode */
		<<set $eligibility = 1>>
	<</if>>
<</for>>
<<if ($eligibility == 0)>>
	//You have no slaves capable of inseminating others.//
<</if>>


code:
:: family panic [nobr]

<<set $nextButton = "Back", $nextLink = "Main">>

<<set $slaves.forEach(function(s) { s.sisters = 0; s.daughters = 0; })>>
<<set $PC.daughters = 0, $PC.sisters = 0>>

<<for _fp = 0; _fp < $slaves.length; _fp++>>
	<<if ($slaves[_fp].mother == -1 || $slaves[_fp].father == -1)>>
		<<set $PC.daughters++>>
	<</if>>
	<<if areSisters($slaves[_fp], $PC) > 0>>
		<<set $PC.sisters++>>
	<</if>>
	<<for _fpt = 0; _fpt < $slaves.length; _fpt++>>
		<<if ($slaves[_fpt].mother == $slaves[_fp].ID) || ($slaves[_fpt].father == $slaves[_fp].ID)>>
			<<set $slaves[_fp].daughters++>>
		<</if>>
		<<if areSisters($slaves[_fpt], $slaves[_fp]) > 0>>
			<<set $slaves[_fp].sisters++>>
		<</if>>
	<</for>>
<</for>>

//Family relations flushed and rebuilt.//


code:
:: Import Slave [nobr]

<<set $nextButton = "Continue", $nextLink = "Slave Interact">>

//Paste the code into the text box and click Apply//

<<set $tempSlave = "">>
<<textbox "$tempSlave" $tempSlave>>
<<link "Apply">>
	<<if (def $tempSlave) && ($tempSlave !== "")>>
		<<set $tempSlave = eval('({' + $tempSlave + '})')>>
		<<set $tempSlave.ID = $IDNumber>>
		<<set $IDNumber += 1>>
		<<run newSlave($tempSlave)>>
		<<replace #import>>
			''Slave imported successfully!''

		<</replace>>
		<<unset $tempSlave>>
	<<else>>
		<<replace #import>>
			''Slave not imported!''

		<</replace>>
	<</if>>
<</link>>

<<link "Continue">>
	<<goto "Slave Interact">>
<</link>>


code:
:: newSlaveIncestSex [nobr]

<<set _clothesTemp = $relative.clothes, $relative.clothes = "no clothing">>
<<set _clothesTemp2 = $relative2.clothes, $relative2.clothes = "no clothing">>

/* 000-250-006 */
<<if $seeImages == 1>>

			<<SlaveArt $relative 2 0>>

			<<SlaveArt $relative2 2 0>>

<</if>>
/* 000-250-006 */

<<set $relative.clothes = _clothesTemp>>
<<set $relative2.clothes = _clothesTemp2>>

/* setup pronouns (switch on vagina for sisters and herms regardless of genes) */
<<set _oneshe = "she" >>
<<set _oneher = "her" >>
<<if $relative.vagina == -1 >>
	<<set _oneshe = "he" >>
	<<set _oneher = "his" >>
<</if>>
<<set _othershe = "she" >>
<<set _otherher = "her" >>
<<if $relative2.vagina == -1 >>
	<<set _othershe = "he" >>
	<<set _otherher = "his" >>
<</if>>

/* setup identifiers */
<<if $familyTesting == 1 >>
	<<set _one = relativeTerm($relative2, $relative)>> /* relative is relative2's blank */
	<<set _other = relativeTerm($relative, $relative2)>> /* relative2 is relative's blank */
<<else>>
	<<if $relative.actualAge == $relative2.actualAge>>
		<<set _one = "twin">>
		<<set _other = "twin">>
	<<else>>
		<<set _one = $relative.relation>>
		<<set _other = $relative2.relation>>
	<</if>>
<</if>>

/* gender relation descriptions */
/* TODO: is there a function for gender-aware relationships? */
<<if $relative.vagina == -1 >>
	<<set _one = _one.replace("mother","father").replace("sister","brother").replace("daughter","son") >>
<</if>>
<<if $relative2.vagina == -1 >>
	<<set _other = _other.replace("mother","father").replace("sister","brother").replace("daughter","son") >>
<</if>>

<<if _one == _other >>
/* two sisters / brothers: identify by age */
	<<if $relative.actualAge > $relative2.actualAge>>
		<<set _onelong = "older "+_one >>
		<<set _otherlong = "younger "+_other >>
	<<elseif $relative.actualAge < $relative2.actualAge>>
		/* Note: this is never true (at least without extended family mode) */
		<<set _onelong = "younger "+_one >>
		<<set _otherlong = "older "+_other >>
	<<elseif $familyTesting != 1>> /* twins, no real differentiation */
		<<if $relative.vagina == -1 && _one != "brother">>
			<<set _onelong = _one + " brother">>
		<<elseif _one != "sister">>
			<<set _onelong = _one + " sister">>
		<</if>>
		<<if $relative2.vagina == -1 && _one != "brother">>
			<<set _otherlong = _other + " brother" >>
		<<elseif _one != "sister">>
			<<set _otherlong = _other + " sister" >>
		<</if>>
	<</if>>
<<else>>
	<<set _onelong = _one>>
	<<set _otherlong = _other>>
<</if>>

/* prepare some text passages based on options */
<<set _actions = [] >>
<<set _secretions = [] >>
<<set _genitals = [] >>
<<if ($relative.dick == 0) || ($relative2.dick == 0) >>
	/* at least one vagina is present */
	<<run _actions.push("clit-flinging tongue-action") >> /* TODO: check oral skill of slaves */
	<<run _secretions.push("femcum") >>
	<<run _genitals.push("licked wet cunt") >>
<</if>>
<<if ($relative.dick != 0) || ($relative2.dick != 0) >>
	/* at least one penis is present */
	<<run _actions.push("nose-pressed-against-balls deep-throats") >> /* TODO: check oral skill of slaves */
	<<run _secretions.push("semen") >>
	<<run _genitals.push("limp dangling cock") >>
<</if>>
<<if _genitals.length == 1 >>
	<<set _genitals = _genitals[0]+"s" >>
<<else>>
	<<set _genitals = _genitals.join(" and ") >>
<</if>>

<<if $debugMode >>
RELATIVE SLAVE (FIRST):

_one ($relative.relation)

$relative.physicalAge

_oneshe / _oneher

RELATIVE2 SLAVE (SECOND):

_other ($relative2.relation)

$relative2.physicalAge

_othershe / _otherher

<</if>>

<<link "Order them to demonstrate their love for each other">>
<<replace "#result">>
Now that you own them, you want to see proof of their love for each other. You order the <<if _one == "twin">>twins<<elseif _one == _other && _one == "brother">>brothers<<elseif _one == _other && _one == "sister">>sisters<<else>>_one and _other<</if>> to perform mutual oral sex in front of you.
Hesitantly, they assume the 69 position on your couch. They have either never done this in front of a stranger or have never had sex this way before. You remind them that they are sex slaves now. They need to follow all orders, including sexual ones, so this is a relatively gentle start.

<<if _one == "twin">>One _one<<else>>The _onelong<</if>> shows more boldness as _oneshe lowers _oneher head towards _oneher _otherlong's privates.
<<if $relative2.dick == 0 >>
Carefully, _oneshe spreads _oneher _other's labia. Then _oneshe continues to give _oneher _other's exposed pussy a few experimental licks. At first, _oneher efforts seem to be futile, but after a while the _otherlong's clit becomes engorged and _otherher juices start flowing.
<<else>>
Uncertain, _oneshe grabs _oneher <<if _other == "twin">>_other<<else>>_otherlong<</if>>'s penis. Then _oneshe puts _oneher _other's flaccid member into _oneher mouth and gives it an experimental suck. At first, _oneher efforts seem to be futile, but after a while the _otherlong sports a nice, hard erection.
<</if>>
As the _other's arousal grows, _othershe becomes more eager to please _otherher _onelong, too. Going down on _otherher's lover's genitals, _othershe starts to mimic _oneher ministrations.
	<<if ($relative.dick == 0) != ($relative2.dick == 0) >>
	Of course, _othershe has to adapt _otherher actions <<if $relative.dick == 0 >>from the feelings on _otherher dick to the pussy pressed against _otherher lips.<<else>>from the feelings at _otherher pussy to the dick in _otherher mouth.<</if>>
	<</if>>

You can tell how uncomfortable they are with you watching them, but as they become increasingly worked up, they lose their inhibitions. Soon, you are watching some fairly enthralling <<print $RecETSevent.replace("incest","") >> incest action at your office<<if _actions.length >>, including some enthusiastic <<print _actions.join(" and ")>><</if>>. Eventually, they bring each other to impressive mutual orgasms. Their lusty moans are muffled only by each others' crotches. Spent, exhausted, and with their faces covered in each others <<print _secretions.join(" and ")>>, they untangle to rest comfortably on your couch.

You indicate them to present themselves to you. Still shaking from the aftershocks of their orgasms, they stand side by side in front of you, panting, naked and with their _genitals dripping mixed juices. You simply nod, showing your approval. They are visibly relieved, and not only sexually. They are more confident of having made the right choice in enslaving themselves to you, since you seem @@.mediumaquamarine;trustworthy@@ and @@.hotpink;sympathetic.@@ They hug again, kissing and licking the sexual fluids off each others' stained faces.
<</replace>>
<<set $relative.devotion += 4>>
<<set $relative.trust += 4>>
<<set $relative.counter.oral += 1>>
<<set $oralTotal += 1>>
<<set $relative2.devotion += 4>>
<<set $relative2.trust += 4>>
<<set $relative2.counter.oral += 1>>
<<set $oralTotal += 1>>
<</link>>

/*
<<link "Show them how cruel life in your arcology can be">>
TODO: this needs to be written
<<replace "#result">>
<</replace>>
<<set $relative.devotion -= 4>>
<<set $relative.trust -= 4>>
<<set $relative.counter.oral += 1>>
<<set $oralTotal += 1>>
<<set $relative2.devotion -= 4>>
<<set $relative2.trust -= 4>>
<<set $relative2.counter.oral += 1>>
<<set $oralTotal += 1>>
<</link>>
*/


code:
:: RG AS Dump [silently]

<<set _SL = $slaves.length, _ID = $activeSlave.ID>>

<<set $activeSlave.actualAge = Math.clamp($activeSlave.actualAge, $minimumSlaveAge, 120)>>
<<set $activeSlave.physicalAge = $activeSlave.actualAge>>
<<set $activeSlave.visualAge = $activeSlave.actualAge>>
<<set $activeSlave.ovaryAge = $activeSlave.actualAge>>
<<set $activeSlave.devotion = Number($activeSlave.devotion) || 0>>
<<set $activeSlave.trust = Number($activeSlave.trust) || 0>>
<<set $activeSlave.boobs = Number($activeSlave.boobs) || 200>>

<<if $activeSlave.analArea < $activeSlave.anus>>
	<<set $activeSlave.analArea = $activeSlave.anus>>
<</if>>

/* RECRUITERS */

<<if $familyTesting == 1>>
	<<if $activeSlave.canRecruit == 1>>
		/*<<set $recruiters.push($activeSlave)>>*/
	<</if>>
<<else>>

<<if ($activeSlave.relation == 0)>>
	<<if random(1,100) <= 5>>
		<<set $activeSlave.recruiter = "twin">>
	<<elseif ($activeSlave.actualAge > 32) && (random(1,100) <= 41)>>
		<<set $activeSlave.recruiter = "mother">>
	<<elseif ($activeSlave.actualAge < 24) && (random(1,100) <= 40)>>
		<<set $activeSlave.recruiter = "daughter">>
	<<elseif ($activeSlave.actualAge < 43) && (random(1,100) <= 20)>>
		<<set $activeSlave.recruiter = "older sister">>
	<<elseif ($activeSlave.actualAge < 25) && ($activeSlave.actualAge > 18) && (random(1,100) <= 20)>>
		<<set $activeSlave.recruiter = "young sister">>
	<</if>>
<</if>>

<</if>>

<<if $applyCareerBonus == 1>>
	<<set _seed = 2>>
	<<if $PC.career == "capitalist">>
		<<if $activeSlave.skill.whoring < 60>><<set $activeSlave.skill.whoring += 20>><</if>>
	<<elseif $PC.career == "mercenary">>
		<<set $activeSlave.trust += 10>>
	<<elseif $PC.career == "slaver">>
		<<set $activeSlave.devotion += 10>>
	<<elseif $PC.career == "medicine">>
		<<set $activeSlave.boobs += 600, $activeSlave.boobsImplant += 600, $activeSlave.butt += 2, $activeSlave.buttImplant += 2, $activeSlave.lips += 10, $activeSlave.lipsImplant += 10, $activeSlave.waist = -55>>
	<<elseif $PC.career == "celebrity">>
		<<if $activeSlave.skill.entertainment < 60>><<set $activeSlave.skill.entertainment += 20>><</if>>
	<<elseif $PC.career == "servant">>
		<<set $activeSlave.trust += 10>>
		<<set $activeSlave.devotion += 10>>
	<<elseif $PC.career == "gang">>
		<<set $activeSlave.health += 5>>
		<<if $activeSlave.skill.combat < 1>>
			<<set $activeSlave.skill.combat += 1>>
		<</if>>
	<<elseif $PC.career == "BlackHat">>
		<<set $activeSlave.intelligence += 40>>
		<<if $activeSlave.intelligence > 100>>
			<<set $activeSlave.intelligence = 100>>
		<</if>>
	<<elseif $PC.career == "escort">>
		<<if $activeSlave.skill.entertainment < 60>>
			<<set $activeSlave.skill.entertainment += 20>>
		<</if>>
		<<if $activeSlave.skill.whoring < 60>>
			<<set $activeSlave.skill.whoring += 20>>
		<</if>>
		<<if ($activeSlave.skill.oral < 60)>>
			<<set $activeSlave.skill.oral += 20, _seed-->>
		<</if>>
		<<if ($activeSlave.skill.anal < 60) && (($activeSlave.anus > 0) || ($activeSlave.skill.anal <= 10))>>
			<<set $activeSlave.skill.anal += 20, _seed-->>
		<</if>>
		<<if (_seed > 0) && ($activeSlave.skill.vaginal < 60) && ($activeSlave.vagina > -1) && (($activeSlave.vagina > 0) || ($activeSlave.skill.vaginal <= 10))>>
			<<set $activeSlave.skill.vaginal += 20, _seed-->>
		<</if>>
	<<elseif $PC.career == "wealth">>
		<<if ($activeSlave.skill.oral < 60)>>
			<<set $activeSlave.skill.oral += 20, _seed-->>
		<</if>>
		<<if ($activeSlave.skill.anal < 60) && (($activeSlave.anus > 0) || ($activeSlave.skill.anal <= 10))>>
			<<set $activeSlave.skill.anal += 20, _seed-->>
		<</if>>
		<<if (_seed > 0) && ($activeSlave.skill.vaginal < 60) && ($activeSlave.vagina > -1) && (($activeSlave.vagina > 0) || ($activeSlave.skill.vaginal <= 10))>>
			<<set $activeSlave.skill.vaginal += 20>>
		<</if>>
	<<else>>
		<<set $activeSlave.devotion += 10>>
		<<if $activeSlave.skill.whoring < 60>><<set $activeSlave.skill.whoring += 20>><</if>>
		<<if $activeSlave.skill.entertainment < 60>><<set $activeSlave.skill.entertainment += 20>><</if>>
		<<if ($activeSlave.skill.oral < 60)>>
			<<set $activeSlave.skill.oral += 20, _seed-->>
		<</if>>
		<<if ($activeSlave.skill.anal < 60) && (($activeSlave.anus > 0) || ($activeSlave.skill.anal <= 10))>>
			<<set $activeSlave.skill.anal += 20, _seed-->>
		<</if>>
		<<if (_seed > 0) && ($activeSlave.skill.vaginal < 60) && ($activeSlave.vagina > -1) && (($activeSlave.vagina > 0) || ($activeSlave.skill.vaginal <= 10))>>
			<<set $activeSlave.skill.vaginal += 20>>
		<</if>>
	<</if>>
	<<set $careerBonusApplied = 1>>
<</if>>

<<set _i = $slaveIndices[_ID]>>
<<if def _i>>
	<<set $slaves[_i] = $activeSlave>>
<<elseif def $activeSlave.slaveName>>
	<<run newSlave($activeSlave)>>
<</if>>

<<goto $returnTo>>


code:
:: Commit Starting Girl [nobr]

<<set $activeSlave.actualAge = Number($activeSlave.actualAge) || 18>>
<<set $activeSlave.devotion = Number($activeSlave.devotion) || 0>>
<<set $activeSlave.trust = Number($activeSlave.trust) || 0>>
<<if $activeSlave.indenture >= 0>>
	<<set $activeSlave.indenture = Math.clamp($activeSlave.indenture, 26, 208) || 26>>
<</if>>
<<if $activeSlave.pregSource == -1>>
	<<set $PC.slavesKnockedUp++>>
<</if>>
<<set $activeSlave.height = Math.clamp($activeSlave.height, 85, 274) || 140>>
<<set $activeSlave.boobs = Math.clamp(Math.trunc($activeSlave.boobs/50)*50, 0, 50000) || 200>>
<<set $activeSlave.origRace = $activeSlave.race>>
<<set $activeSlave.origSkin = $activeSlave.skin>>
<<set $activeSlave.weekAcquired = 0>>

<<set $careerBonusApplied = 0>>
<<set $originOveride = 0>>

<<if $cash < $minimumSlaveCost>><<goto "Acquisition">><</if>>

<<set $showStartingGirlsExplanation = 0>>

<<if $createRelatedSlave == 0 && (($hostage == 0) || ($slaveCost > $hostageCost))>>
	<<set $hostage = $slaveWithoutBonuses, $hostageCost = $slaveCost, $hostageAnnounced = -1>>
<</if>>

<<= SlaveFullName($activeSlave)>> has been added to your starting stable of slaves. You now have <<print cashFormat($cash)>> remaining.

<<if $cash >= $minimumSlaveCost>>

	<<link "Add another slave, starting from a new slave">>
		<<StartingGirlsWorkaround>>
		<<goto "Starting Girls">>
	<</link>>
	<<if $familyTesting == 1>>

[[Add another slave, based on the previous slave|Starting Girls][$activeSlave = $slaveWithoutBonuses, $startingGirlCopied = 1, $activeSlave.mother = 0, $activeSlave.father = 0]]
	<<else>>

[[Add another slave, based on the previous slave|Starting Girls][$activeSlave = $slaveWithoutBonuses, $activeSlave.relation = 0, $activeSlave.relationTarget = 0, $startingGirlCopied = 1]]
	<</if>>
	<<if $createRelatedSlave == 1>>

	//Add another slave, related to the previous slave://

	<<if $familyTesting == 1>>
		/* Not needed due to stuffedanon's work
		<<if $activeSlave.actualAge >= 34>>
			<<if $activeSlave.ovaries>>

				[[Daughter|RG AS Dump][$returnTo = "Starting Girls", $startingGirlRelation = "mother", $startingGirlCopied = 1]]
			<</if>>
			<<if $activeSlave.balls>>

				[[Dick-daughter|RG AS Dump][$returnTo = "Starting Girls", $startingGirlRelation = "father", $startingGirlCopied = 1]]
				//A slave daughter carried and birthed by another woman, impregnated by $activeSlave.slaveName.//
			<</if>>
			/% I'm aware this term is ridiculous. If anyone can come up with a better word to reconcile all slaves being female with the act of fatherhood and the masculine nature of the word father, I'm all ears. Wrote myself into a corner on this one. %/
		<</if>>
		<<if $activeSlave.actualAge <= 28>>
			<<if $activeSlave.mother <= 0>>

				[[Mother|RG AS Dump][$returnTo = "Starting Girls", $activeSlave.mother = $IDNumber, $startingGirlRelation = "daughter", $startingGirlCopied = 1]]
			<<else>>
				//This slave already has a mother.//
			<</if>>
			<<if $seeDicks>>
				<<if $activeSlave.father <= 0>>

					[[Dick-mother|RG AS Dump][$returnTo = "Starting Girls", $activeSlave.father = $IDNumber, $startingGirlRelation = "dickdaughter", $startingGirlCopied = 1]]
					//A slave who provided the impregnation to create $activeSlave.slaveName.//
				<<else>>
					//This slave already has a dick-mother.//
				<</if>>
			<</if>>
		<</if>>
		<<if $activeSlave.actualAge < 44>>

			[[Older Sister|RG AS Dump][$returnTo = "Starting Girls", $startingGirlRelation = "older sister", $startingGirlCopied = 1]]
		<</if>>

		[[Twin|RG AS Dump][$returnTo = "Starting Girls", $startingGirlRelation = "twin", $startingGirlCopied = 1]]
		<<if $activeSlave.actualAge > 19>>

			[[Younger Sister|RG AS Dump][$returnTo = "Starting Girls", $startingGirlRelation = "younger sister", $startingGirlCopied = 1]]
		<</if>>
		*/

    //Use "based on the previous slave" and the available .father and .mother controls to create your family//
	<<else>>

		<<if $activeSlave.actualAge <= 8 && ($PC.career == "servant" || $PC.career == "escort") && ($PC.vagina == 1)>>
		<<else>>
		<<if $activeSlave.actualAge >= ($fertilityAge + $minimumSlaveAge)>>

			[[Daughter|RG AS Dump][$returnTo = "Starting Girls", $activeSlave.relation = "mother", $startingGirlRelation = "mother", $activeSlave.counter.birthsTotal += 1, $activeSlave.relationTarget = $activeSlave.ID+1, $startingGirlCopied = 1]]
		<</if>>
		<<if $activeSlave.actualAge <= 24>>

			[[Mother|RG AS Dump][$returnTo = "Starting Girls", $activeSlave.relation = "daughter", $startingGirlRelation = "daughter", $activeSlave.relationTarget = $activeSlave.ID+1, $startingGirlCopied = 1]]
		<</if>>
		<<if $activeSlave.actualAge < 44>>

			[[Older Sister|RG AS Dump][$returnTo = "Starting Girls", $activeSlave.relation = "sister", $startingGirlRelation = "older sister", $activeSlave.relationTarget = $activeSlave.ID+1, $startingGirlCopied = 1]]
		<</if>>

		[[Twin|RG AS Dump][$returnTo = "Starting Girls", $activeSlave.relation = "twin", $startingGirlRelation = "twin", $activeSlave.relationTarget = $activeSlave.ID+1, $startingGirlCopied = 1]]
		<<if $activeSlave.actualAge > $minimumSlaveAge+1>>

			[[Younger Sister|RG AS Dump][$returnTo = "Starting Girls", $activeSlave.relation = "sister", $startingGirlRelation = "younger sister", $activeSlave.relationTarget = $activeSlave.ID+1, $startingGirlCopied = 1]]
		<</if>>
		<</if>>
	<</if>>
	<<elseif $activeSlave.relation == 0>>

[[Add another slave, related to the previous slave|Commit Starting Girl][$createRelatedSlave = 1]]
	<</if>>
<</if>>

[[Stop adding slaves and take control of the arcology|Acquisition]]


code:
:: More customization options [nobr]

<<set $activeSlave.pubicHColor = $activeSlave.hColor>>
<<set $activeSlave.underArmHColor = $activeSlave.hColor>>
<<set $activeSlave.origHColor = $activeSlave.hColor>>
<<set $activeSlave.origEye = $activeSlave.eyeColor>>
<<set $activeSlave.origRace = $activeSlave.race>>
<<if $activeSlave.counter.birthsTotal > 0>>
	<<if $activeSlave.pubertyXX < 1>>
		<<set $activeSlave.counter.birthsTotal = 0>>
	<</if>>
	<<set $activeSlave.counter.birthsTotal = Math.clamp($activeSlave.counter.birthsTotal, 0, (($activeSlave.actualAge-$activeSlave.pubertyAgeXX)*50))>>
<</if>>
<<setLocalPronouns $activeSlave>>

''Birth name:'' <<textbox "$activeSlave.birthName" $activeSlave.birthName "More customization options">>
| ''Slave name:'' <<textbox "$activeSlave.slaveName" $activeSlave.slaveName "More customization options">>

''Birth surname:'' <<textbox "$activeSlave.birthSurname" $activeSlave.birthSurname "More customization options">>
| ''Slave surname:'' <<textbox "$activeSlave.slaveSurname" $activeSlave.slaveSurname "More customization options">>

''Career:'' <<textbox "$activeSlave.career" $activeSlave.career "More customization options">>

''Nationality:'' <<textbox "$activeSlave.nationality" $activeSlave.nationality "More customization options">> //This will not alter name or race.//

''Ethnicity:'' <<textbox "$activeSlave.race" $activeSlave.race "More customization options">> //This will not apply phenotypes.//

''Hair color:'' <<textbox "$activeSlave.hColor" $activeSlave.hColor "More customization options">> //This will also set pubic and underarm hair color.//

''Eye color:'' <<textbox "$activeSlave.eyeColor" $activeSlave.eyeColor "More customization options">>

''Pupil shape:'' <<textbox "$activeSlave.pupil" $activeSlave.pupil "More customization options">>

''Sclera color:'' <<textbox "$activeSlave.sclerae" $activeSlave.sclerae "More customization options">>

Custom tattoo: <<textbox "$activeSlave.custom.tattoo" $activeSlave.custom.tattoo "More customization options">> //Use complete, capitalized and punctuated sentences.//

Custom origin story: <<textbox "$activeSlave.origin" $activeSlave.origin "More customization options">> //Use complete, capitalized and punctuated sentences.//

<<if $originOveride == 0>>
	[[Origin Override|More customization options][$originOveride = 1]] //Will keep your custom origin and tattoo from being overwritten.//
<<else>>
	[[Disable Override|More customization options][$originOveride = 0]] //Will unlock origin and allow slavegen to overwrite it and its related tattoo.//
<</if>>
<<if $activeSlave.prestige>>

Reason for prestigiousness: <<textbox "$activeSlave.prestigeDesc" $activeSlave.prestigeDesc>> //Use complete, capitalized and punctuated sentences.//
<</if>>

Custom description: <<textbox "$activeSlave.custom.desc" $activeSlave.custom.desc "More customization options">> //Use complete, capitalized and punctuated sentences.//

Custom label: <<textbox "$activeSlave.custom.label" $activeSlave.custom.label "More customization options">> //Use a short phrase.//

''Pubic hair maintenance:'' $activeSlave.pubicHStyle.
[[Waxed|More customization options][$activeSlave.pubicHStyle = "waxed"]]
| [[Naturally hairless|More customization options][$activeSlave.pubicHStyle = "hairless"]]
| [[Landing strip|More customization options][$activeSlave.pubicHStyle = "in a strip"]]
| [[Neat|More customization options][$activeSlave.pubicHStyle = "neat"]]
| [[Bushy in the front|More customization options][$activeSlave.pubicHStyle = "bushy in the front and neat in the rear"]]
| [[Bushy|More customization options][$activeSlave.pubicHStyle = "bushy"]]
| [[Very Bushy|More customization options][$activeSlave.pubicHStyle = "very bushy"]]

''Under arm hair maintenance:'' $activeSlave.underArmHStyle.
[[Waxed|More customization options][$activeSlave.underArmHStyle = "waxed"]]
| [[Naturally hairless|More customization options][$activeSlave.underArmHStyle = "hairless"]]
| [[Shaved|More customization options][$activeSlave.underArmHStyle = "shaved"]]
| [[Neat|More customization options][$activeSlave.underArmHStyle = "neat"]]
| [[Bushy|More customization options][$activeSlave.underArmHStyle = "bushy"]]

''Natural skin distinctiveness:'' $activeSlave.markings.
[[None|More customization options][$activeSlave.markings = "none"]]
| [[Freckles|More customization options][$activeSlave.markings = "freckles"]]
| [[Heavily freckled|More customization options][$activeSlave.markings = "heavily freckled"]]
| [[Beauty mark|More customization options][$activeSlave.markings = "beauty mark"]]
| [[Birthmark|More customization options][$activeSlave.markings = "birthmark"]]

<<if $activeSlave.anus > 0>>

	''External appearance of anus:''
	<<if $activeSlave.analArea <= $activeSlave.anus>>
		Recently stretched to current size.
	<<elseif $activeSlave.analArea - $activeSlave.anus == 1>>
		Used to current size.
	<<else>>
		Very broad.
	<</if>>
	[[Recently stretched|More customization options][$activeSlave.analArea = $activeSlave.anus]]
	| [[Used to current size|More customization options][$activeSlave.analArea = $activeSlave.anus+1]]
	| [[Very broad|More customization options][$activeSlave.analArea = $activeSlave.anus+2]]
<</if>>

''Natural breast shape:'' $activeSlave.boobShape.
[[Normal|More customization options][$activeSlave.boobShape = "normal"]]
| [[Perky|More customization options][$activeSlave.boobShape = "perky"]]
| [[Torpedo-shaped|More customization options][$activeSlave.boobShape = "torpedo-shaped"]]
| [[Wide-set|More customization options][$activeSlave.boobShape = "wide-set"]]
| [[Downward-facing|More customization options][$activeSlave.boobShape = "downward-facing"]]
| [[Saggy|More customization options][$activeSlave.boobShape = "saggy"]]

''Births:'' <<textbox "$activeSlave.counter.birthsTotal" $activeSlave.counter.birthsTotal "More customization options">> //How many times $he has already given birth, not necessarily while owned by you.//

[[Continue|Starting Girls]]