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>>
<<ClearSummaryCache $activeSlave>>
<<ClearSummaryCache $impregnatrix>>

<<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>>
		She's pregnant, and as far as she's concerned, everyone should be pregnant. She's @@.hotpink;happy to spread the love.@@
	<<elseif isFertile($impregnatrix)>>
		She'd love to get pregnant herself, but as far as she's concerned, putting a baby in someone else is the @@.hotpink;next best thing.@@
	<<else>>
		She's been deeply unhappy that there's no prospect of her ever being able to carry a child, and this is the @@.hotpink;next best thing@@ for her.
	<</if>>
	<<set $impregnatrix.devotion += 4>>
	<<if ($impregnatrix.preg == -3)>>Her 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>>Her 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 her cock in girls, she doesn't take much convincing.
	<<if ($impregnatrix.preg == -3)>>Her 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>>Her member springs instantly to attention at the prospect of pussy.
	<</if>>

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

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

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

<<else>>
	Since $impregnatrix.slaveName is unlikely to comply willingly, you simply restrain her 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 she 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)))>>
	She cries with joy and presents her virgin <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>> to $impregnatrix.slaveName for fertilization. @@.hotpink;She is grateful@@ for this fulfillment of her fondest wish and naturally @@.lime;will break in her <<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)>>
	She cries with joy and presents her fertile <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>> to $impregnatrix.slaveName for breeding. @@.hotpink;She is grateful@@ for this fulfillment of her fondest wish.
	<<set $activeSlave.devotion += 4>>

<<elseif ($activeSlave.devotion > 20) && (($activeSlave.vagina == 0) || (($activeSlave.anus == 0) && ($activeSlave.mpreg == 1)))>>
	She accepts your orders without comment and presents her virgin <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>> to $impregnatrix.slaveName for fertilization. She gasps in shock when she feels her hot seed. @@.hotpink;She is broken to slavery@@ by this application of her body, which naturally @@.lime;will break in her <<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)))>>
	She is clearly unhappy at the idea of losing her pearl of great price to $impregnatrix.slaveName; this probably isn't what she imagined her first real sex would be like. Worse, she knows she's fertile and realizes she'll likely get pregnant. Nevertheless, @@.hotpink;she is broken to slavery@@ by this application of her body, which naturally @@.lime;will break in her <<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, she refuses to give $impregnatrix.slaveName her virginity. You restrain her despite her @@.mediumorchid;horrified tears@@ and @@.gold;frightened begging.@@ Naturally, this cruel tableau @@.lime;will break in her <<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 her limbless torso up for $impregnatrix.slaveName.
<<elseif tooBigBreasts($activeSlave)>>
	You set her up for $impregnatrix.slaveName, face down so the weight of her tits pins her helplessly in place.
<<elseif tooBigButt($activeSlave)>>
	You set her up for $impregnatrix.slaveName, face down so the weight of her giant ass pins her helplessly in place and gives $impregnatrix.slaveName a lovely cushion to thrust against.
<<elseif tooBigDick($activeSlave)>>
	You set her up for $impregnatrix.slaveName, face up so she is pinned under the weight of her giant cock.
<<elseif tooBigBalls($activeSlave)>>
	You set her up for $impregnatrix.slaveName, face down so the weight of her giant balls anchor her helplessly in place.
<<elseif ($activeSlave.fetish == "submissive") && ($activeSlave.fetishStrength > 60) && ($activeSlave.fetishStrength > 60) && ($activeSlave.fetishKnown == 1)>>
	She is accustomed to submit to you, but as a natural submissive she doesn't have much trouble submitting to $impregnatrix.slaveName's seed instead.
<<elseif $activeSlave.devotion < -20>>
	She tries to refuse, so you restrain her despite her resistance to the idea of being made a breeder.
<<elseif $activeSlave.devotion <= 20>>
	She obeys your orders reluctantly, arranging herself for <<if $activeSlave.mpreg == 1>>anal<<else>>vaginal<</if>> sex despite her obvious hesitation to be made a breeder.
<<elseif $activeSlave.devotion < 10>>
	She obeys your orders, arranging herself for <<if $activeSlave.mpreg == 1>>anal<<else>>vaginal<</if>> sex despite her slight hesitation at the idea of being made a breeder.
<<else>>
	She happily obeys your orders, getting ready to serve <<if def $PC.customTitle>>her $PC.customTitle by making you<<elseif $PC.title != 0>>her Master by making him<<else>>her 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 her <<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 her more of the same until she gets going. After watching them mechanically go at it for a while, you stop $impregnatrix.slaveName, insert an electrostimulator up her rectum, and administer a shock to her <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> that forces her to empty her 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 her anal virginity@@ in any case, but being assraped by a metal probe that shocked her into orgasm so that she would impregnate another slave is @@.mediumorchid;a special level@@ of violation for her.
		<<set $impregnatrix.devotion -= 5, $impregnatrix.anus = 1>>
	<</if>>

<<elseif ($impregnatrix.devotion < -20)>>
	Since your semen donatrix is restrained, you order $activeSlave.slaveName to present herself on the couch, and then maneuver $impregnatrix.slaveName's dick into place. $activeSlave.slaveName does her best to hump herself against the unwilling cock until you deal $impregnatrix.slaveName a terrific swat across the ass and promise to give her more of the same until she gets going. After watching her mechanically fuck for a while, you stop her, push an electrostimulator up her butt, and administer a shock to her <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> that forces her to empty her nuts into $activeSlave.slaveName. She @@.mediumorchid;resents@@ what you made her do and @@.gold;fears you@@ as a result. Though $activeSlave.slaveName accepts the situation, she 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 her anal virginity@@ in any case, but being assraped by a metal probe that shocked her into orgasm so that she would impregnate another slave is @@.mediumorchid;a special level@@ of violation for her.
		<<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 her fertile pussy defenseless and available, and then tell the randy $impregnatrix.slaveName that it's all hers. The slave life has so affected $impregnatrix.slaveName that she is quite eager to rape another slave pregnant to fulfill her desire to reproduce. She finishes with indecent speed and looks almost disappointed until you tell her to take her 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 her @@.gold;horror@@ and @@.mediumorchid;resentment,@@ while $impregnatrix.slaveName is lying next to her on the couch in a state of obvious @@.hotpink;satiation and bliss.@@ $impregnatrix.slaveName kisses $activeSlave.slaveName's stomach and expresses the hope that she'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 her fertile <<if $activeSlave.mpreg == 1>>ass<<else>>pussy<</if>> defenseless and available, and then tell the randy $impregnatrix.slaveName that it's all hers. The slave life has so affected $impregnatrix.slaveName that she is quite eager to rape another slave pregnant, just for the perverted novelty of the act. She blows her load with indecent speed and looks crushed until you tell her to take her 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 her @@.gold;horror@@ and @@.mediumorchid;resentment,@@ while $impregnatrix.slaveName is lying next to her 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 her 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 her 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 she climaxes, her 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 her pussy instead, stimulating her <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> with a good fucking until she blows her 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 her @@.lime;first time@@ as she 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 her ass instead, stimulating her <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> with a good assfuck until she blows her 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 her @@.lime;first buttfuck@@ as she 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 her <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> with a good fucking until she blows her 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 her @@.lime;first time@@ as she 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 her <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> with a good assfuck until she blows her 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 her @@.lime;first buttfuck@@ as she 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>>
	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 her 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 she climaxes, clenching you to orgasm in turn with her spasms. Pulling out, you offer <<if $PC.dick ==1>>yourself<<else>>your strap-on<</if>> to $activeSlave.slaveName's gasping mouth so she can <<if $PC.dick ==1>>suck you hard again<<else>>lube the phallus with some saliva<</if>> as she 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 her
	<<if canDoVaginal($activeSlave)>>
		feminine slit instead, stimulating her <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> with a hard fucking
		<<if ($impregnatrix.vagina == 0)>>
			$impregnatrix.slaveName will certainly remember this @@.hotpink;very special@@ day for many reasons, including losing her @@.lime;virginity@@ as she 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 canDoAnal($activeSlave)>>
		ass instead, stimulating her <<if $impregnatrix.prostate != 0>>prostate<<else>>internals<</if>> with a good assfuck
		<<if ($impregnatrix.anus == 0)>>
			$impregnatrix.slaveName will certainly remember this @@.hotpink;very special@@ day for many reasons, including taking her @@.lime;first buttfuck@@ as she 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>>
	<<else>>
		mouth instead, giving her a good facefuck
		<<set $impregnatrix.oralCount += _penCountBonus, $oralTotal += _penCountBonus>>
	<</if>>
	until she blows her 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 ($activeSlave.anus == 0) && canDoAnal($activeSlave)>>
		$activeSlave.slaveName has been used as a slave in a truly thorough way today: she has @@.hotpink;accepted@@ both her @@.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 her 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: Drosil/fc

license: mit


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 ")>> respectively, 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 silently]

<<set _ID = $activeSlave.ID, _SL = $slaves.length, _x = $slaves.findIndex(function(s) { return s.ID == _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 && $activeSlave.daughters > 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>>
	<</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>>
	<<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>>

	<<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 _dump = $slaves.deleteAt(_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>>

<<for _i = 0; _i < _SL; _i++>>
	<<if _ID == $slaves[_i].ID>><<break>><</if>>
<</for>>
<<if _i < _SL>>
	<<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 $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]]