code:
:: FSlaveImpreg Consummate [nobr]

The first necessary step is to prepare the donatrix.

<<set _penCountBonus = random(6,20), _analCountBonus = _penCountBonus, _vagCountBonus = _penCountBonus>>
<<set $impregnatrix.penetrativeCount += _penCountBonus+1, $penetrativeTotal += _penCountBonus+1>>
<<run clearSummaryCache($activeSlave)>>
<<setLocalPronouns $activeSlave>>
<<run clearSummaryCache($impregnatrix)>>
<<setLocalPronouns $impregnatrix 2>>

<<if ($impregnatrix.fetish == "pregnancy") && ($impregnatrix.fetishKnown == 1) && ($impregnatrix.fetishStrength > 60) && ($impregnatrix.devotion >= -20)>>
	This is very easy, since $impregnatrix.slaveName has an impregnation fetish.
	<<if $impregnatrix.pregKnown == 1>>
		_He2's pregnant, and as far as _he2's concerned, everyone should be pregnant. $He's @@.hotpink;happy to spread the love.@@
	<<elseif isFertile($impregnatrix)>>
		_He2'd love to get pregnant _himself2, but as far as _he2's concerned, putting a baby in someone else is the @@.hotpink;next best thing.@@
	<<else>>
		_He2's been deeply unhappy that there's no prospect of _him2 ever being able to carry a child, and this is the @@.hotpink;next best thing@@ for _him2.
	<</if>>
	<<set $impregnatrix.devotion += 4>>
	<<if ($impregnatrix.preg == -3)>>_His2 member remains limp despite the prospect of getting another slave pregnant, but a direct injection of vasodilators quickly fixes that for this special occasion.
	<<else>>_His2 member springs instantly to attention at the prospect of getting another slave pregnant.
	<</if>>

<<elseif ($impregnatrix.attrXX > 65) && ($impregnatrix.attrKnown == 1) && ($impregnatrix.devotion >= -20)>>
	Since $impregnatrix.slaveName likes sticking _his2 cock in girls, _he2 doesn't take much convincing.
	<<if ($impregnatrix.preg == -3)>>_His2 member remains limp despite the prospect of <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>>, but a direct injection of vasodilators quickly fixes that for this special occasion.
	<<else>>_His2 member springs instantly to attention at the prospect of pussy.
	<</if>>

<<elseif ($impregnatrix.devotion > 50)>>
	Since $impregnatrix.slaveName is devoted to you, _he2'll eagerly fuck anything you tell _him2 to fuck.
	<<if ($impregnatrix.preg == -3)>>_He2 accepts a direct injection of vasodilators to counteract the hormones keeping _him2 soft,
	<<else>>_He2 quickly gets _himself2 hard,
	<</if>>
	only a certain confusion in _his2 look betraying that _he2 realizes how special an occasion this is.

<<elseif ($impregnatrix.devotion > 20)>>
	Since $impregnatrix.slaveName is obedient, _he2'll fuck anything you tell _him2 to fuck.
	<<if ($impregnatrix.preg == -3)>>_He2 accepts a direct injection of vasodilators to counteract the hormones keeping _him2 soft,
	<<else>>_He2 hurriedly gets _himself2 hard,
	<</if>>
	only a slight hesitation betraying _his2 realization that this is a special occasion.

<<elseif ($impregnatrix.devotion >= -20)>>
	Since $impregnatrix.slaveName does not resist your will, _he2 should comply reasonably well.
	<<if ($impregnatrix.preg == -3)>>_He2 accepts a direct injection of vasodilators to counteract the hormones keeping _him2 soft,
	<<else>>_He2 has to work to get _himself2 hard despite _his2 doubts,
	<</if>>
	fear and disgust showing on _his2 face as _he2 absorbs the perversion of the natural order of things _he2's about to experience.

<<else>>
	Since $impregnatrix.slaveName is unlikely to comply willingly, you simply restrain _him2 and administer a massive dose of vasodilators, directly where they will do the most good. $impregnatrix.slaveName writhes with the pain of the injection, which is compounded as _he2 springs agonizingly erect.

<</if>>

Next, you see to $activeSlave.slaveName.

<<if $activeSlave.mpreg == 1>>
	<<set $activeSlave.analCount += _analCountBonus+1>>
	<<set $analTotal += _analCountBonus+1>>
<<else>>
	<<set $activeSlave.vaginalCount += _vagCountBonus+1>>
	<<set $vaginalTotal += _vagCountBonus+1>>
<</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>>ass<<else>>pussy<</if>> to $impregnatrix.slaveName for fertilization. @@.hotpink;$He is grateful@@ for this fulfillment of $his fondest wish and naturally @@.lime;will break in $his <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>>.@@
	<<if $activeSlave.mpreg == 1>>
		<<set $activeSlave.anus = 1>>
	<<else>>
		<<set $activeSlave.vagina = 1>>
	<</if>>
	<<set $activeSlave.devotion += 10>>

<<elseif ($activeSlave.fetish == "pregnancy") && ($activeSlave.fetishStrength > 60) && ($activeSlave.fetishKnown == 1) && ($activeSlave.fetishStrength > 60)>>
	$He cries with joy and presents $his fertile <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>> to $impregnatrix.slaveName for breeding. @@.hotpink;$He is grateful@@ for this fulfillment of $his fondest wish.
	<<set $activeSlave.devotion += 4>>

<<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>>ass<<else>>pussy<</if>> to $impregnatrix.slaveName for fertilization. $He gasps in shock when $he feels _his2 hot seed. @@.hotpink;$He is broken to slavery@@ by this application of $his body, which naturally @@.lime;will break in $his <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</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 the idea of losing $his pearl of great price to $impregnatrix.slaveName; this probably isn't what $he imagined $his first real sex would be like. Worse, $he knows $he's fertile and realizes $he'll likely get pregnant. Nevertheless, @@.hotpink;$he is broken to slavery@@ by this application of $his body, which naturally @@.lime;will break in $his <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>>.@@
	<<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 $impregnatrix.slaveName $his virginity. You restrain $him despite $his @@.mediumorchid;horrified tears@@ and @@.gold;frightened begging.@@ Naturally, this cruel tableau @@.lime;will break in $his <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>>.@@
	<<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 set $his limbless torso up for $impregnatrix.slaveName.
<<elseif tooBigBreasts($activeSlave)>>
	You set $him up for $impregnatrix.slaveName, face down so the weight of $his tits pins $him helplessly in place.
<<elseif tooBigButt($activeSlave)>>
	You set $him up for $impregnatrix.slaveName, face down so the weight of $his giant ass pins $him helplessly in place and gives $impregnatrix.slaveName a lovely cushion to thrust against.
<<elseif tooBigDick($activeSlave)>>
	You set $him up for $impregnatrix.slaveName, face up so $he is pinned under the weight of $his giant cock.
<<elseif tooBigBalls($activeSlave)>>
	You set $him up for $impregnatrix.slaveName, face down so the weight of $his giant balls anchor $him helplessly in place.
<<elseif ($activeSlave.fetish == "submissive") && ($activeSlave.fetishStrength > 60) && ($activeSlave.fetishStrength > 60) && ($activeSlave.fetishKnown == 1)>>
	$He is accustomed to submit to you, but as a natural submissive $he doesn't have much trouble submitting to $impregnatrix.slaveName's seed instead.
<<elseif $activeSlave.devotion < -20>>
	$He tries to refuse, so you restrain $him despite $his resistance to the idea of being made a breeder.
<<elseif $activeSlave.devotion <= 20>>
	$He obeys your orders reluctantly, arranging $himself for <<if $activeSlave.mpreg == 1>>anal<<else>>vaginal<</if>> sex despite $his obvious hesitation to be made a breeder.
<<elseif $activeSlave.devotion < 10>>
	$He obeys your orders, arranging $himself for <<if $activeSlave.mpreg == 1>>anal<<else>>vaginal<</if>> sex despite $his slight hesitation at the idea of being made a breeder.
<<else>>
	$He happily obeys your orders, getting ready to serve <<if def $PC.customTitle>>$his $PC.customTitle by making you<<elseif $PC.title != 0>>$his Master by making him<<else>>$his Mistress by making her<</if>> another slave.
<</if>>

<<= knockMeUp($activeSlave, 100, 2, $impregnatrix.ID, 1)>>

<<if ($activeSlave.devotion < -20) && ($impregnatrix.devotion < -20)>>
	Since you have two restrained slaves, it's up to you to do all the work. You put $activeSlave.slaveName on the couch with $his <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>> available, and then maneuver $impregnatrix.slaveName's dick into place. The two slaves make no further moves until you deal $impregnatrix.slaveName a terrific swat across the ass and promise to give _him2 more of the same until _he2 gets going. After watching them mechanically go at it for a while, you stop $impregnatrix.slaveName, insert an electrostimulator up _his2 rectum, and administer a shock to _his2 <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> that forces _him2 to empty _his2 nuts into $activeSlave.slaveName. Both slaves @@.mediumorchid;resent@@ what you made them do and @@.gold;fear you@@ as a result.
	<<set $activeSlave.devotion -= 5, $activeSlave.trust -= 5>>
	<<set $impregnatrix.devotion -= 5, $impregnatrix.trust -= 5>>
	<<set $impregnatrix.analCount += 1, $analTotal += 1>>
	<<if ($impregnatrix.anus == 0)>>
		$impregnatrix.slaveName would have been reluctant to @@.lime;lose _his2 anal virginity@@ in any case, but being assraped by a metal probe that shocked _him2 into orgasm so that _he2 would impregnate another slave is @@.mediumorchid;a special level@@ of violation for _him2.
		<<set $impregnatrix.devotion -= 5, $impregnatrix.anus = 1>>
	<</if>>

<<elseif ($impregnatrix.devotion < -20)>>
	Since your semen donatrix is restrained, you order $activeSlave.slaveName to present $himself on the couch, and then maneuver $impregnatrix.slaveName's dick into place. $activeSlave.slaveName does $his best to hump $himself against the unwilling cock until you deal $impregnatrix.slaveName a terrific swat across the ass and promise to give _him2 more of the same until _he2 gets going. After watching _him2 mechanically fuck for a while, you stop _him2, push an electrostimulator up _his2 butt, and administer a shock to _his2 <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> that forces _him2 to empty _his2 nuts into $activeSlave.slaveName. $He @@.mediumorchid;resents@@ what you made _him2 do and @@.gold;fears you@@ as a result. Though $activeSlave.slaveName accepts the situation, $he looks into $impregnatrix.slaveName's eyes with obvious apology.
	<<set $impregnatrix.devotion -= 5, $impregnatrix.trust -= 5>>
	<<set $impregnatrix.analCount += 1, $analTotal += 1>>
	<<if ($impregnatrix.anus == 0)>>
		$impregnatrix.slaveName would have been reluctant to @@.lime;lose _his2 anal virginity@@ in any case, but being assraped by a metal probe that shocked _him2 into orgasm so that _he2 would impregnate another slave is @@.mediumorchid;a special level@@ of violation for _him2.
		<<set $impregnatrix.devotion -= 5, $impregnatrix.anus = 1>>
	<</if>>

<<elseif ($impregnatrix.fetish == "pregnancy") && ($impregnatrix.fetishStrength > 60) && ($impregnatrix.devotion > 20) && ($activeSlave.devotion < -20)>>
	You arrange $activeSlave.slaveName on the couch with $his fertile pussy defenseless and available, and then tell the randy $impregnatrix.slaveName that it's all _hers2. The slave life has so affected $impregnatrix.slaveName that _he2 is quite eager to rape another slave pregnant to fulfill _his2 desire to reproduce. _He2 finishes with indecent speed and looks almost disappointed until you tell _him2 to take _his2 time and be thorough. By the end of the day $activeSlave.slaveName's <<if $activeSlave.mpreg == 1>>ass<<else>>cunt<</if>> is dripping cum, to $his @@.gold;horror@@ and @@.mediumorchid;resentment,@@ while $impregnatrix.slaveName is lying next to $him on the couch in a state of obvious @@.hotpink;satiation and bliss.@@ $impregnatrix.slaveName kisses $activeSlave.slaveName's stomach and expresses the hope that $he'll produce a good new slave.
	<<set $activeSlave.devotion -= 5, $activeSlave.trust -= 5>>
	<<set $impregnatrix.devotion += 4>>

<<elseif ($impregnatrix.energy > 95) && ($impregnatrix.devotion > 20) && ($activeSlave.devotion < -20)>>
	You arrange $activeSlave.slaveName on the couch with $his fertile <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>> defenseless and available, and then tell the randy $impregnatrix.slaveName that it's all _hers2. The slave life has so affected $impregnatrix.slaveName that _he2 is quite eager to rape another slave pregnant, just for the perverted novelty of the act. _He2 blows _his2 load with indecent speed and looks crushed until you tell _him2 to take _his2 time and be thorough. By the end of the day $activeSlave.slaveName's <<if $activeSlave.mpreg == 1>>anus<<else>>cunt<</if>> is dripping cum, to $his @@.gold;horror@@ and @@.mediumorchid;resentment,@@ while $impregnatrix.slaveName is lying next to $him on the couch in a state of obvious @@.hotpink;satiation and bliss.@@ $impregnatrix.slaveName kisses $activeSlave.slaveName's stomach and expresses the hope that you'll let _him2 do this again sometime.
	<<set $activeSlave.devotion -= 5, $activeSlave.trust -= 5>>
	<<set $impregnatrix.devotion += 4>>

<<elseif ($activeSlave.devotion <= 20) || ($impregnatrix.devotion <= 20)>>
	You order $activeSlave.slaveName onto the couch and tell $impregnatrix.slaveName to get on with it. They fuck mechanically, gazing with roiling emotions into each others' eyes. They do seem to come to some sort of a nonverbal understanding on the necessity of getting it done, and there is no real unhappiness in either of them when they finish and disentangle themselves, with $impregnatrix.slaveName's rapidly softening dick slipping easily out of $activeSlave.slaveName's cum-filled <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>>.

<<elseif ($activeSlave.devotion <= 50) || ($impregnatrix.devotion <= 50)>>
	You order $activeSlave.slaveName and $impregnatrix.slaveName to get on with it. They fuck mechanically at first, gazing with roiling emotions into each others' eyes. Eventually, they begin to enjoy the extreme intimacy of the act, finding between themselves a hint of a life before slavery, when men and women had sex within the bonds of marriage for the purpose of procreation. They finish and resume life as slaves, the light of this intimacy diminishing, softening with $impregnatrix.slaveName's dick and dripping away with the contents of $activeSlave.slaveName's cum-filled <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>>.

<<elseif $activeSlave.mpreg == 1>>
	The parents-to-be need little encouragement. They embrace happily and turn eagerly to the business of anal sex in the cowgirl position. They take their time, humping slowly and gazing into each others' eyes. After a little while, though, $activeSlave.slaveName looks over to where you're sitting, the invitation clear in $his eyes. As soon as you stand to come over, $activeSlave.slaveName turns around on $impregnatrix.slaveName's cock and opens wide for you. You and $impregnatrix.slaveName enjoy the mother-to-be gently until $he climaxes, $his eager oral reaching a fever pitch, bringing you to your own climax.
	<<if $PC.dick == 1>>
		<<if canDoVaginal($impregnatrix)>>
			Pulling out, you flip them again so that $impregnatrix.slaveName is on top and switch to _his2 pussy instead, stimulating _his2 <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> with a good fucking until _he2 blows _his2 load into $activeSlave.slaveName's fertile <<if $activeSlave.mpreg == 1>>ass<<else>>cunt<</if>>. The two of them collapse into an exhausted, @@.hotpink;happy@@ pile of slave flesh with three loads inside them.
			<<if ($impregnatrix.vagina == 0)>>
				$impregnatrix.slaveName will certainly remember this @@.hotpink;very special@@ day for many reasons, including it being _his2 @@.lime;first time@@ as _he2 inseminated $activeSlave.slaveName.
				<<set $impregnatrix.devotion += 4, $impregnatrix.vagina = 1>>
			<</if>>
			<<if $PC.dick == 1 && $impregnatrix.eggType == "human" && canGetPregnant($impregnatrix)>>
				<<= knockMeUp($impregnatrix, 10, 0, -1, 1)>>
			<</if>>
			<<set $impregnatrix.vaginalCount += _penCountBonus, $vaginalTotal += _penCountBonus>>
		<<elseif canDoAnal($impregnatrix)>>
			Pulling out, you flip them again so that $impregnatrix.slaveName is on top and switch to _his2 ass instead, stimulating _his2 <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> with a good assfuck until _he2 blows _his2 load into $activeSlave.slaveName's fertile <<if $activeSlave.mpreg == 1>>ass<<else>>cunt<</if>>. The two of them collapse into an exhausted, @@.hotpink;happy@@ pile of slave flesh with three loads inside them.
			<<if ($impregnatrix.anus == 0)>>
				$impregnatrix.slaveName will certainly remember this @@.hotpink;very special@@ day for many reasons, including taking _his2 @@.lime;first buttfuck@@ as _he2 inseminated $activeSlave.slaveName.
				<<set $impregnatrix.devotion += 4, $impregnatrix.anus = 1>>
			<</if>>
			<<if $PC.dick == 1 && $impregnatrix.eggType == "human" && canGetPregnant($impregnatrix)>>
				<<= knockMeUp($impregnatrix, 10, 1, -1, 1)>>
			<</if>>
			<<set $impregnatrix.analCount += _penCountBonus, $analTotal += _penCountBonus>>
		<<else>>
			The two of them collapse into an exhausted, @@.hotpink;happy@@ pile of slave flesh.
		<</if>>
	<<else>>
		<<if canDoVaginal($impregnatrix)>>
			Pulling back, you flip them again so that $impregnatrix.slaveName is on top and don a strapon. You begin stimulating _his2 <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> with a good fucking until _he2 blows _his2 load into $activeSlave.slaveName's fertile <<if $activeSlave.mpreg == 1>>ass<<else>>cunt<</if>>. The two of them collapse into an exhausted, @@.hotpink;happy@@ pile of slave flesh.
			<<if ($impregnatrix.vagina == 0)>>
				$impregnatrix.slaveName will certainly remember this @@.hotpink;very special@@ day for many reasons, including it being _his2 @@.lime;first time@@ as _he2 inseminated $activeSlave.slaveName.
				<<set $impregnatrix.devotion += 4, $impregnatrix.vagina = 1>>
			<</if>>
			<<set $impregnatrix.vaginalCount += _penCountBonus, $vaginalTotal += _penCountBonus>>
		<<elseif canDoAnal($impregnatrix)>>
			Pulling back, you flip them again so that $impregnatrix.slaveName is on top and don a strapon. You begin stimulating _his2 <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> with a good assfuck until _he2 blows _his2 load into $activeSlave.slaveName's fertile <<if $activeSlave.mpreg == 1>>ass<<else>>cunt<</if>>. The two of them collapse into an exhausted, @@.hotpink;happy@@ pile of slave flesh.
			<<set $impregnatrix.analCount += _penCountBonus, $analTotal += _penCountBonus>>
			<<if ($impregnatrix.anus == 0)>>
				$impregnatrix.slaveName will certainly remember this @@.hotpink;very special@@ day for many reasons, including taking _his2 @@.lime;first buttfuck@@ as _he2 inseminated $activeSlave.slaveName.
				<<set $impregnatrix.devotion += 4, $impregnatrix.anus = 1>>
			<</if>>
		<<else>>
			 The two of them collapse into an exhausted, @@.hotpink;happy@@ pile of slave flesh.
		<</if>>
	<</if>>
	<<set $impregnatrix.oralCount += _penCountBonus, $oralTotal += _penCountBonus>>
	<<set $activeSlave.devotion += 4>>
	<<set $impregnatrix.devotion += 4>>

<<else>>
	<<set _didImpregnatrix = 0>>
	The parents-to-be need little encouragement. They embrace happily and turn eagerly to the business of vanilla sex in the missionary position. They take their time, humping slowly and gazing into each others' eyes. After a little while, though, $activeSlave.slaveName looks over $impregnatrix.slaveName's shoulder to where you're sitting, the invitation clear in $his eyes. As soon as you stand to come over, they roll over without being ordered to
	<<if canDoAnal($activeSlave)>>
		present $activeSlave.slaveName's butthole.
		<<set $activeSlave.analCount += _penCountBonus, $analTotal += _penCountBonus>>
	<<else>>
		invite you into $activeSlave.slaveName's crowded pussy.
		<<set $activeSlave.vaginalCount += _penCountBonus, $vaginalTotal += _penCountBonus>>
	<</if>>
	You and $impregnatrix.slaveName double penetrate the mother-to-be gently until $he climaxes, clenching you to orgasm in turn with $his spasms. Pulling out, you offer <<if $PC.dick ==1>>yourself<<else>>your strap-on<</if>> to $activeSlave.slaveName's gasping mouth so $he can <<if $PC.dick ==1>>suck you hard again<<else>>lube the phallus with some saliva<</if>> as $he continues riding cock. Once <<if $PC.dick ==1>>stiff<<else>>the strap-on is nice and wet<</if>>, you flip them again so that $impregnatrix.slaveName is back on top and switch to _his2
	<<if canDoVaginal($activeSlave)>>
		feminine slit instead, stimulating _his2 <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> with a hard fucking
		<<set _didImpregnatrix = 1>>
	<<elseif canDoAnal($activeSlave)>>
		ass instead, stimulating _his2 <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> with a good assfuck
		<<set _didImpregnatrix = 2>>
	<<else>>
		mouth instead, giving _him2 a good facefuck
		<<set $impregnatrix.oralCount += _penCountBonus, $oralTotal += _penCountBonus>>
	<</if>>
	until _he2 blows _his2 load into $activeSlave.slaveName's fertile cunt. The two of them collapse into an exhausted, @@.hotpink;happy@@ pile of slave flesh with three loads inside them.
	<<set $activeSlave.devotion += 4>>
	<<set $impregnatrix.devotion += 4>>
	<<if _didImpregnatrix == 1>>
		<<if ($impregnatrix.vagina == 0)>>
			$impregnatrix.slaveName will certainly remember this @@.hotpink;very special@@ day for many reasons, including losing _his2 @@.lime;virginity@@ as _he2 inseminated $activeSlave.slaveName.
			<<set $impregnatrix.devotion += 4, $impregnatrix.vagina = 1>>
		<</if>>
		<<set $impregnatrix.vaginalCount += _penCountBonus, $vaginalTotal += _penCountBonus>>
		<<if $PC.dick == 1 && $impregnatrix.eggType == "human" && canGetPregnant($impregnatrix)>>
			<<= knockMeUp($impregnatrix, 10, 0, -1, 1)>>
		<</if>>
	<<elseif _didImpregnatrix == 2>>
		<<if ($impregnatrix.anus == 0)>>
			$impregnatrix.slaveName will certainly remember this @@.hotpink;very special@@ day for many reasons, including taking _his2 @@.lime;first buttfuck@@ as _he2 inseminated $activeSlave.slaveName.
			<<set $impregnatrix.devotion += 4, $impregnatrix.anus = 1>>
		<</if>>
		<<set $impregnatrix.analCount += _penCountBonus, $analTotal += _penCountBonus>>
		<<if $PC.dick == 1 && $impregnatrix.eggType == "human" && canGetPregnant($impregnatrix)>>
			<<= knockMeUp($impregnatrix, 10, 1, -1, 1)>>
		<</if>>
	<</if>>
	<<if ($activeSlave.anus == 0) && canDoAnal($activeSlave)>>
		$activeSlave.slaveName has been used as a slave in a truly thorough way today: $he has @@.hotpink;accepted@@ both $his @@.lime;first anal@@ and insemination by $impregnatrix.slaveName.
		<<set $activeSlave.devotion += 4, $activeSlave.anus = 1>>
	<</if>>

<</if>>

Throughout the week, you keep $activeSlave.slaveName's <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>> intimate with $impregnatrix.slaveName's cock. In the end, you are certain $activeSlave.slaveName is carrying $impregnatrix.slaveName's child.

<<if $arcologies[0].FSRestart != "unset">>
	Rumors spread about you breeding your slaves; the Societal Elite are @@.red;displeased@@ by these rumors.
	<<set $failedElite += 1>>
<</if>>
<<if $arcologies[0].FSGenderRadicalist != "unset" && $activeSlave.mpreg == 1>>
	Society @@.green;approves@@ of your breeding your slaves ass; this advances the ideal all a slave needs is their rear.
	<<set $rep += $FSSingleSlaveRep*($arcologies[0].FSGenderRadicalist/$FSLockinLevel)>>
	<<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.
	<<set $rep -= $FSSingleSlaveRep*($arcologies[0].FSGenderFundamentalist/$FSLockinLevel)>>
	<<set $arcologies[0].FSGenderFundamentalist -= 0.05*$FSSingleSlaveRep>>
<<elseif $arcologies[0].FSGenderFundamentalist != "unset">>
	Society @@.green;approves@@ of your breeding your slaves; this advances the ideal of a durable, self propagating race of slaves.
	<<set $rep += $FSSingleSlaveRep*($arcologies[0].FSGenderFundamentalist/$FSLockinLevel)>>
	<<set $arcologies[0].FSGenderFundamentalist += 0.05*$FSSingleSlaveRep>>
<</if>>

You prepare the necessary file on their possible offspring. Upon birth, it will be remanded to a slave orphanage to be raised to the age of $minimumSlaveAge and then sold, but its likely appearance and traits are already worth noting.

$activeSlave.slaveName and $impregnatrix.slaveName are likely to produce

<<if ($seeRace == 1)>>

<<if ($activeSlave.race == "white") && ($impregnatrix.race == "white")>>
	a pure white,
<<elseif ($activeSlave.race == "asian") && ($impregnatrix.race == "asian")>>
	an asian,
<<elseif ($activeSlave.race == "latina") && ($impregnatrix.race == "latina")>>
	a latina,
<<elseif ($activeSlave.race == "black") && ($impregnatrix.race == "black")>>
	a black,
<<elseif ($activeSlave.race == "arab") && ($impregnatrix.race == "arab")>>
	a pure Middle Eastern,
<<elseif ($activeSlave.race == "white") && ($impregnatrix.race == "black")>>
	a mulatto,
<<elseif ($activeSlave.race == "black") && ($impregnatrix.race == "white")>>
	a mulatto,
<<elseif ($activeSlave.race == "white") && ($impregnatrix.race == "latina")>>
	a mestizo,
<<elseif ($activeSlave.race == "latina") && ($impregnatrix.race == "white")>>
	a mestizo,
<<elseif ($activeSlave.race == "asian") && ($impregnatrix.race == "black")>>
	an afro-asian,
<<elseif ($activeSlave.race == "black") && ($impregnatrix.race == "asian")>>
	an afro-asian,
<<elseif ($activeSlave.race == "arab") && ($impregnatrix.race == "black")>>
	an afro-arab,
<<elseif ($activeSlave.race == "black") && ($impregnatrix.race == "arab")>>
	an afro-arab,
<<elseif ($activeSlave.race == "amerindian") && ($impregnatrix.race == "white")>>
	a mestizo,
<<elseif ($activeSlave.race == "white") && ($impregnatrix.race == "amerindian")>>
	a mestizo,
<<elseif ($activeSlave.race == $impregnatrix.race)>>
	an ethnically pure,
<<else>>
	mixed ethnicity,
<</if>>

<</if>>

<<if (($activeSlave.intelligence+$impregnatrix.intelligence) > 3)>>
	brilliant,
<<elseif (($activeSlave.intelligence+$impregnatrix.intelligence) > 1)>>
	smart,
<<elseif (($activeSlave.intelligence+$impregnatrix.intelligence) < -3)>>
	cretinous,
<<elseif (($activeSlave.intelligence+$impregnatrix.intelligence) < -1)>>
	stupid,
<</if>>

<<if (($activeSlave.height+$impregnatrix.height) > 185)>>
	tall,
<<elseif (($activeSlave.height+$impregnatrix.height) < 160)>>
	short,
<<else>>
	middle height,
<</if>>

<<if (($activeSlave.boobs+$impregnatrix.boobs-$activeSlave.boobsImplant-$impregnatrix.boobsImplant) > 1500)>>
	big-titted
<<elseif (($activeSlave.boobs+$impregnatrix.boobs-$activeSlave.boobsImplant-$impregnatrix.boobsImplant) < 700)>>
	flat-chested
<<else>>
	moderately-breasted
<</if>>

<<if (($activeSlave.butt+$impregnatrix.butt-$activeSlave.buttImplant-$impregnatrix.buttImplant) > 9)>>
	slave with a huge ass.
<<elseif (($activeSlave.butt+$impregnatrix.butt-$activeSlave.buttImplant-$impregnatrix.buttImplant) < 5)>>
	slave with a flat ass.
<<else>>
	slave with a decent ass.
<</if>>

<<set $slaves[$i] = $impregnatrix>> /* save changes -- $i is already set to the index of the impregnatrix by fSlaveImpreg */


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

repo_name: evrgentesee/fc


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>>
		<<AddSlave $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]

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

/* setup identifiers */
<<if $familyTesting == 1 >>
	<<set _one = relativeTerm($activeSlave, $sissy)>> /* sissy is active's blank */
	<<set _other = relativeTerm($sissy, $activeSlave)>> /* active is sissy's blank */
<<else>>
	<<set _one = $sissy.relation >>
	<<set _other = $activeSlave.relation >>
<</if>>

/* gender relation descriptions */
/* TODO: is there a function for gender-aware relationships? */
<<if $sissy.vagina == -1 >>
	<<set _one = _one.replace("mother","father").replace("sister","brother").replace("daughter","son") >>
<</if>>
<<if $activeSlave.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 $sissy.actualAge > $activeSlave.actualAge>>
		<<set _onelong = "older "+_one >>
		<<set _otherlong = "younger "+_other >>
	<<elseif $sissy.actualAge < $activeSlave.actualAge>>
		/* Note: this is never true (at least without extended family mode) */
		<<set _onelong = "younger "+_one >>
		<<set _otherlong = "older "+_other >>
	<<else>> /* twins, no real differentiation */
		<<if $sissy.vagina == -1 >>
			<<set _onelong = _one + " brother">>
		<<else>>
			<<set _onelong = _one + " sister">>
		<</if>>
		<<if $activeSlave.vagina == -1 >>
			<<set _otherlong = _other + " brother" >>
		<<else>>
			<<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 ($sissy.dick == 0) || ($activeSlave.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 ($sissy.dick != 0) || ($activeSlave.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 >>
SISSY SLAVE (FIRST):

_one ($sissy.relation)

$sissy.physicalAge

_oneshe / _oneher

ACTIVE SLAVE (SECOND):

_other ($activeSlave.relation)

$activeSlave.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 69 position on your couch. They either never did this in front of a stranger or never had sex this way before. You remind them that they are sex slaves now. They need to follow all orders, especially sexual ones, so this is a comparatively 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 $activeSlave.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 _otherher ministrations.
	<<if ($sissy.dick == 0) != ($activeSlave.dick == 0) >>
	Of course, _othershe has to adapt _otherher actions <<if $sissy.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 watch really 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 an impressive mutual orgasm. Their lusty moans are only muffled 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 are standing 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, 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 $sissy.devotion += 4>>
<<set $sissy.trust += 4>>
<<set $sissy.oralCount += 1>>
<<set $oralTotal += 1>>
<<set $activeSlave.devotion += 4>>
<<set $activeSlave.trust += 4>>
<<set $activeSlave.oralCount += 1>>
<<set $oralTotal += 1>>
<</link>>


code:
:: Remove activeSlave [nobr]

<<set _ID = $activeSlave.ID, _SL = $slaves.length, _x = $slaveIndices[_ID]>>

<<set WombZeroID($PC, _ID)>>
<<if $activeSlave.reservedChildren > 0>>
	<<set $reservedChildren -= $activeSlave.reservedChildren>>
<</if>>
<<if $PC.mother == _ID>>
	<<set $PC.mother = $missingParentID>>
	<<set _missingID = 1>>
<</if>>
<<if $PC.father == _ID>>
	<<set $PC.father = $missingParentID>>
	<<set _missingID = 1>>
<</if>>
<<if $PC.sisters > 0>>
	<<if areSisters($PC, $activeSlave) > 0>>
		<<set $PC.sisters-->>
	<</if>>
<</if>>
<<if $PC.daughters > 0>>
	<<if $activeSlave.father == -1 || $activeSlave.mother == -1>>
		<<set $PC.daughters-->>
	<</if>>
<</if>>

<<if _x >= 0 && _x < _SL>>
	<<if $incubator > 0>>
		<<for _z = 0; _z < $tanks.length; _z++>>
			<<if _ID == $tanks[_z].mother>>
				<<set $tanks[_z].mother = $missingParentID>>
				<<set _missingID = 1>>
			<</if>>
			<<if _ID == $tanks[_z].father>>
				<<set $tanks[_z].father = $missingParentID>>
				<<set _missingID = 1>>
			<</if>>
		<</for>>
	<</if>>
	<<for _y = 0; _y < _SL; _y++>>
		<<set WombZeroID($slaves[_y], _ID)>> /* This check is complex, should be done in JS now, all needed will be done here. */
		<<if $activeSlave.daughters > 0>>
			<<if $slaves[_y].mother == _ID>>
				<<set $slaves[_y].mother = $missingParentID>>
			<</if>>
			<<if $slaves[_y].father == _ID>>
				<<set $slaves[_y].father = $missingParentID>>
			<</if>>
			<<set _missingID = 1>>
		<</if>>
		<<if $activeSlave.mother > 0 || $activeSlave.father > 0>>
			<<if $activeSlave.mother == $slaves[_y].ID || $activeSlave.father == $slaves[_y].ID>>
				<<set $slaves[_y].daughters-->>
			<</if>>
		<</if>>
		<<if $activeSlave.sisters > 0>>
			<<if areSisters($activeSlave, $slaves[_y]) > 0>>
				<<set $slaves[_y].sisters-->>
			<</if>>
		<</if>>
		<<if $slaves[_y].ID == $activeSlave.relationTarget>>
			<<set $slaves[_y].relation = 0, $slaves[_y].relationTarget = 0>>
		<</if>>
		<<if $slaves[_y].milkSource != 0>>
			<<if $slaves[_y].milkSource == _ID>>
				<<set $slaves[_y].milkSource =0, $slaves[_y].inflation = 0, $slaves[_y].inflationType = "none", $slaves[_y].inflationMethod = 0>>
			<</if>>
		<</if>>
		<<if $slaves[_y].cumSource != 0>>
			<<if $slaves[_y].cumSource == _ID>>
				<<set $slaves[_y].cumSource = 0, $slaves[_y].inflation = 0, $slaves[_y].inflationType = "none", $slaves[_y].inflationMethod = 0>>
			<</if>>
		<</if>>
		<<if $slaves[_y].ID == $activeSlave.relationshipTarget>>
			<<set $slaves[_y].relationship = 0, $slaves[_y].relationshipTarget = 0>>
		<</if>>
		<<if $slaves[_y].ID == $activeSlave.rivalryTarget>>
			<<set $slaves[_y].rivalry = 0, $slaves[_y].rivalryTarget = 0>>
		<</if>>
		/* moved to saDevotion as a discovery event
		<<if $slaves[_y].origBodyOwnerID == _ID>>
			<<set $slaves[_y].origBodyOwnerID = 0>>
		<</if>>
		*/
	<</for>>

	/* remove from Pit fighters list, if needed */
	<<set $fighterIDs.delete(_ID)>>

	/* remove from Coursing Association, if needed */
	<<if $Lurcher != 0 && $Lurcher.ID == _ID>>
		<<set $Lurcher = 0>>
	<</if>>

	<<if Array.isArray($personalAttention)>>
		<<set _rasi = $personalAttention.findIndex(function(s) { return s.ID == _ID; })>>
		<<if _rasi != -1>>
			<<set $personalAttention.deleteAt(_rasi)>>
			<<if $personalAttention.length == 0>>
				<<if $PC.career == "escort">>
					<<set $personalAttention = "whoring">>
				<<elseif $PC.career == "servant">>
					<<set $personalAttention = "upkeep">>
				<<else>>
					<<set $personalAttention = "business">>
				<</if>>
			<</if>>
		<</if>>
	<</if>>

	/% Remove from facility array or leadership role, if needed %/
	<<= removeJob($activeSlave, $activeSlave.assignment)>>

	<<if $traitor != 0>>
		<<if _ID == $traitor.pregSource>>
			<<set $traitor.pregSource = 0>>
		<</if>>
		<<if $traitor.mother == _ID>>
			<<set $traitor.mother = $missingParentID>>
			<<set _missingID = 1>>
		<</if>>
		<<if $traitor.father == _ID>>
			<<set $traitor.father = $missingParentID>>
			<<set _missingID = 1>>
		<</if>>
		<<if $traitor.origBodyOwnerID == _ID>>
			<<set $traitor.origBodyOwnerID = 0>>
		<</if>>
	<</if>>
	<<if $boomerangSlave != 0>>
		<<if _ID == $boomerangSlave.pregSource>>
			<<set $boomerangSlave.pregSource = 0>>
		<</if>>
		<<if $boomerangSlave.mother == _ID>>
			<<set $boomerangSlave.mother = $missingParentID>>
			<<set _missingID = 1>>
		<</if>>
		<<if $boomerangSlave.father == _ID>>
			<<set $boomerangSlave.father = $missingParentID>>
			<<set _missingID = 1>>
		<</if>>
		<<if $boomerangSlave.origBodyOwnerID == _ID>>
			<<set $traitor.origBodyOwnerID = 0>>
		<</if>>
	<</if>>

	<<set _o = $organs.findIndex(function(s) { return s.ID == $activeSlave.ID; })>>
	<<if _o != -1>>
		<<set $organs.deleteAt(_o)>>
	<</if>>
	<<set _o = $limbs.findIndex(function(s) { return s.ID == $activeSlave.ID; })>>
	<<if _o != -1>>
		<<set $limbs.deleteAt(_o)>>
	<</if>>

	<<set _geneIndex = $genePool.findIndex(function(s) { return s.ID == $activeSlave.ID; })>>
	<<if _geneIndex != -1>>
		<<set _dontDeleteMe = 0>>
		<<if $traitor != 0>>
			<<if isImpregnatedBy($traitor, $activeSlave) || $traitor.ID == $activeSlave.ID>> /* did we impregnate the traitor, or are we the traitor? */
				<<set _dontDeleteMe = 1>>
			<</if>>
		<</if>>
		<<if $boomerangSlave != 0>>
			<<if isImpregnatedBy($boomerangSlave, $activeSlave) || $boomerangSlave.ID == $activeSlave.ID>> /* did we impregnate the boomerang, or are we the boomerang? */
				<<set _dontDeleteMe = 1>>
			<</if>>
		<</if>>
		<<if _dontDeleteMe == 0>> /* avoid going through this loop if possible */
			<<for _rasi = 0; _rasi < _SL; _rasi++>>
				<<if $slaves[_rasi].ID != $activeSlave.ID && isImpregnatedBy($slaves[_rasi], $activeSlave)>> /* have we impregnated a slave that is not ourself? */
					<<set _dontDeleteMe = 1>>
					<<break>>
				<</if>>
			<</for>>
		<</if>>
		<<if _dontDeleteMe == 0>>
			<<set $genePool.deleteAt(_geneIndex)>>
		<</if>>
	<</if>>

	<<set _dump = removeSlave(_x), _SL--, $activeSlave = 0>>

	<<if _missingID == 1>>
		<<set $missingParentID-->>
	<</if>>
<</if>>


code:
:: RG AS Dump [silently]

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

<<set $activeSlave.actualAge = Number($activeSlave.actualAge) || 18>>
<<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.whoreSkill < 60>><<set $activeSlave.whoreSkill += 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.entertainSkill < 60>><<set $activeSlave.entertainSkill += 20>><</if>>
	<<elseif $PC.career == "servant">>
		<<set $activeSlave.trust += 10>>
		<<set $activeSlave.devotion += 10>>
	<<elseif $PC.career == "gang">>
		<<set $activeSlave.health += 5>>
		<<if $activeSlave.combatSkill < 1>>
			<<set $activeSlave.combatSkill += 1>>
		<</if>>
	<<elseif $PC.career == "BlackHat">>
		<<set $activeSlave.intelligence++>>
		<<if $activeSlave.intelligence > 3>>
			<<set $activeSlave.intelligence = 3>>
		<</if>>
	<<elseif $PC.career == "escort">>
		<<if $activeSlave.entertainSkill < 60>>
			<<set $activeSlave.entertainSkill += 20>>
		<</if>>
		<<if $activeSlave.whoreSkill < 60>>
			<<set $activeSlave.whoreSkill += 20>>
		<</if>>
		<<if ($activeSlave.oralSkill < 60)>>
			<<set $activeSlave.oralSkill += 20, _seed-->>
		<</if>>
		<<if ($activeSlave.analSkill < 60) && (($activeSlave.anus > 0) || ($activeSlave.analSkill <= 10))>>
			<<set $activeSlave.analSkill += 20, _seed-->>
		<</if>>
		<<if (_seed > 0) && ($activeSlave.vaginalSkill < 60) && ($activeSlave.vagina > -1) && (($activeSlave.vagina > 0) || ($activeSlave.vaginalSkill <= 10))>>
			<<set $activeSlave.vaginalSkill += 20, _seed-->>
		<</if>>
	<<elseif $PC.career == "wealth">>
		<<if ($activeSlave.oralSkill < 60)>>
			<<set $activeSlave.oralSkill += 20, _seed-->>
		<</if>>
		<<if ($activeSlave.analSkill < 60) && (($activeSlave.anus > 0) || ($activeSlave.analSkill <= 10))>>
			<<set $activeSlave.analSkill += 20, _seed-->>
		<</if>>
		<<if (_seed > 0) && ($activeSlave.vaginalSkill < 60) && ($activeSlave.vagina > -1) && (($activeSlave.vagina > 0) || ($activeSlave.vaginalSkill <= 10))>>
			<<set $activeSlave.vaginalSkill += 20>>
		<</if>>
	<<else>>
		<<set $activeSlave.devotion += 10>>
		<<if $activeSlave.whoreSkill < 60>><<set $activeSlave.whoreSkill += 20>><</if>>
		<<if $activeSlave.entertainSkill < 60>><<set $activeSlave.entertainSkill += 20>><</if>>
		<<if ($activeSlave.oralSkill < 60)>>
			<<set $activeSlave.oralSkill += 20, _seed-->>
		<</if>>
		<<if ($activeSlave.analSkill < 60) && (($activeSlave.anus > 0) || ($activeSlave.analSkill <= 10))>>
			<<set $activeSlave.analSkill += 20, _seed-->>
		<</if>>
		<<if (_seed > 0) && ($activeSlave.vaginalSkill < 60) && ($activeSlave.vagina > -1) && (($activeSlave.vagina > 0) || ($activeSlave.vaginalSkill <= 10))>>
			<<set $activeSlave.vaginalSkill += 20>>
		<</if>>
	<</if>>
	<<set $careerBonusApplied = 1>>
<</if>>

<<set _i = $slaveIndices[_ID]>>
<<if def _i>>
	<<set $slaves[_i] = $activeSlave>>
<<elseif def $activeSlave.slaveName>>
	<<AddSlave $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.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.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>>
<<if $activeSlave.birthsTotal > 0>>
	<<if $activeSlave.pubertyXX < 1>>
		<<set $activeSlave.birthsTotal = 0>>
	<</if>>
	<<set $activeSlave.birthsTotal = Math.clamp($activeSlave.birthsTotal, 0, (($activeSlave.actualAge-$activeSlave.pubertyAgeXX)*50))>>
<</if>>

''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">>

Custom tattoo: <<textbox "$activeSlave.customTat" $activeSlave.customTat "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 from being overwritten.//
<<else>>
	[[Disable Override|More customization options][$originOveride = 0]] //Will unlock origin and allow slavegen to overwrite it.//
<</if>>
<<if $activeSlave.prestige>>

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

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

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

''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.birthsTotal" $activeSlave.birthsTotal "More customization options">> //How many times she has already given birth, not necessarily while owned by you.//

[[Continue|Starting Girls]]