code:
:: BeastFucked [nobr]

<<run clearSummaryCache($activeSlave)>>
<<setLocalPronouns $activeSlave>>

<<if $animalType == "canine">>
	<<set _animal = $activeCanine>>
<<elseif $animalType == "hooved">>
	<<set _animal = $activeHooved>>
<<elseif $animalType == "feline">>
	<<set _animal = $activeFeline>>
<</if>>

/* add any animal species that begin with a vowel here */
<<switch _animal.species>>
<<default>>
	<<set _a = "a">>
<</switch>>

<<if canDoVaginal($activeSlave)>>
	<<set _sexAct = "vaginal">>
	<<set _orifice = "pussy">>
	<<set _hole = 0>>
<<elseif canDoAnal($activeSlave)>>
	<<set _sexAct = "anal">>
	<<set _orifice = "asshole">>
	<<set _hole = 1>>
<<else>>
	<<set _sexAct = "oral">>
	<<set _orifice = "mouth">>
<</if>>

<<set _used = {mouth: 0, vagina: 0, anus: 0}>>
<<if $activeSlave.vagina > 0>>
	<<set _used.vagina = 1>>
<</if>>
<<if $activeSlave.anus > 0>>
	<<set _used.anus = 1>>
<</if>>
<<if $activeSlave.oralCount > 0>>
	<<set _used.mouth = 1>>
<</if>>

<<if $activeSlave.fetish == "masochist">>
	<<set _fetishDesc = "committing such a painful act", _activeQuirk = 1, _quirk = 1>>
<<elseif $activeSlave.fetish == "humiliation">>
	<<set _fetishDesc = "committing such a humiliating act", _activeQuirk = 1, _quirk = 1>>
<<elseif $activeSlave.sexualQuirk == "perverted">>
	<<set _fetishDesc = "committing such a perverted act", _activeQuirk = 1, _quirk = 1>>
<<elseif $activeSlave.behavioralQuirk == "sinful">>
	<<set _fetishDesc = "committing such a sinful act", _activeQuirk = 1, _quirk = 1>>
<<elseif $activeSlave.fetish == "cumslut">>
	<<set _fetishDesc = "getting to drink more cum", _activeQuirk = 1, _quirk = 2>>
<<elseif $activeSlave.sexualQuirk == "gagfuck queen">>
	<<set _fetishDesc = "getting to suck more dick", _activeQuirk = 1, _quirk = 2>>
<</if>>

<<if canWalk($activeSlave)>>You call $him over and<<else>>You order another slave to bring $activeSlave.slaveName over. Once $he is situated, you<</if>> tell $him you want to watch $him <<switch _sexAct>><<case "oral">>suck off<<default>>get fucked by<</switch>> <<print _a>> _animal.species.

<<if ($activeSlave.fetish != "mindbroken")>>
	<<if ($activeSlave.devotion > 50)>>
		<<if _sexAct == "vaginal" || _sexAct == "anal">>
			<<if _used.vagina || _used.anus>>
				<<if $activeSlave.fetishKnown == 1 && _activeQuirk>>
					$activeSlave.slaveName's face visibly brightens at the thought of _fetishDesc.
				<<else>>
					$activeSlave.slaveName looks visibly disturbed, but is so attentive to your will that $he quickly agrees.
				<</if>>
			<<else>>
				<<if $activeSlave.fetishKnown == 1 && _activeQuirk>>
					$activeSlave.slaveName's face visibly brightens at the thought of _fetishDesc, although $he seems a bit hesitant at the thought of giving $his <<if _sexAct == "anal">>anal <</if>>virginity to an animal.
				<<else>>
					$activeSlave.slaveName looks visibly shaken at the thought of having $his precious <<if _sexAct == "anal">>anal <</if>>virginity taken by an animal, but is so attentive to your will that $he agrees.
				<</if>>
			<</if>>
		<<else>>
			<<if $activeSlave.fetishKnown == 1 && _activeQuirk && _quirk == 2>>
				$activeSlave.slaveName's face visibly brightens at the thought of _fetishDesc, even if it's <<print _a>> _animal.species's cum.
			<<else>>
				$activeSlave.slaveName blanches at the thought of having to suck <<print _a>> _animal.species's dick, but $he is so devoted to you that $he reluctantly agrees.
			<</if>>
		<</if>>
	<</if>>

	<<if ($activeSlave.devotion > 20) && ($activeSlave.devotion <= 50)>>
		<<if _sexAct == "vaginal" || _sexAct == "anal">>
			<<if _used.vagina || _used.anus>>
				<<if $activeSlave.fetishKnown == 1 && _activeQuirk>>
					$activeSlave.slaveName isn't too keen on the idea of fucking <<print _a>> _animal.species, but the thought of _fetishDesc soon convinces $him to comply.
				<<else>>
					$activeSlave.slaveName tries in vain to conceal $his horror, but quickly regains $his composure.
				<</if>>
			<<else>>
				<<if $activeSlave.fetishKnown == 1 && _activeQuirk>>
					$activeSlave.slaveName clearly has some reservations about having $his <<if _sexAct == "anal">>anal <</if>>virginity taken by <<print _a>> _animal.species, but the thought of _fetishDesc soon convinces $him to comply.
				<<else>>
					$activeSlave.slaveName tries in vain to conceal $his horror at the thought of having $his <<if _sexAct == "anal">>rosebud<<else>>pearl<</if>> taken by a beast, but quickly regains $his composure.
				<</if>>
			<</if>>
		<<else>>
			<<if $activeSlave.fetishKnown == 1 && _activeQuirk && _quirk == 2>>
				$activeSlave.slaveName isn't too keen on the idea of sucking off <<print _a>> _animal.species, but the thought of _fetishDesc soon convinces $him to comply.
			<<else>>
				$activeSlave.slaveName tries in vain to conceal $his horror, but quickly regains $his composure.
			<</if>>
		<</if>>
	<</if>>

	<<if ($activeSlave.devotion >= -20) && ($activeSlave.devotion <= 20)>>
		<<if _sexAct == "vaginal" || _sexAct == "anal">>
			<<if _used.vagina || _used.anus>>
				<<if $activeSlave.fetishKnown == 1 && _activeQuirk>>
					$activeSlave.slaveName looks disgusted at the thought of fucking <<print _a>> _animal.species at first, but the thought of the _fetishDesc that comes with it seems to spark a small flame of lust in $him.
				<<else>>
					$activeSlave.slaveName tries in vain to conceal $his horror,
				<</if>>
			<<else>>
				<<if $activeSlave.fetishKnown == 1 && _activeQuirk>>
					$activeSlave.slaveName looks disgusted at the thought of giving up $his <<if _sexAct == "anal">>anal <</if>>virginity to <<print _a>> _animal.species, but the thought of _fetishDesc it soon sparks a small flame of lust in $him.
				<<else>>
					$activeSlave.slaveName tries in vain to conceal $his horror at the thought of giving $his <<if _sexAct == "anal">>anal <</if>>virginity to an animal, and only the threat of a far worse punishment keeps $him from running out of the room.
				<</if>>
			<</if>>
		<<else>>
			<<if $activeSlave.fetishKnown == 1 && _activeQuirk && _quirk == 2>>
				$activeSlave.slaveName looks disgusted at the thought of sucking off <<print _a>> _animal.species at first, but the thought of _fetishDesc seems to spark a small flame of lust in $him.
			<<else>>
				$activeSlave.slaveName tries in vain to conceal $his horror,
			<</if>>
		<</if>>
	<</if>>

	<<if ($activeSlave.devotion < -20)>>
		$activeSlave.slaveName's face contorts into a mixture of <<if ($activeSlave.devotion < -50)>>hatred, anger, and disgust, <<else>>anger and disgust, <</if>>
	<</if>>

<<else>>
	$activeSlave.slaveName nods $his head dumbly, $his eyes vacant.
<</if>>

<<if canWalk($activeSlave)>>
	<<if $activeSlave.devotion >= -20>>
		<<if ($activeSlave.devotion <= 20)>>
			and only the threat of worse punishment prevents $him from running out of the room.
		<</if>>
			You have $him <<if ($activeSlave.clothing != "naked") && (_sexAct != "oral")>>take off $his clothing, then <</if>><<if _sexAct == "oral">>lay <<else>>kneel <</if>>down on the floor <<if _sexAct != "oral">>with $his ass in the air<<else>>on $his back<</if>>
	<<else>>
		and $Bodyguard.slaveName has to physically prevent $him from running out of the room<<if random(1,100) > 75>><<set $activeSlave.minorInjury = either("black eye", "split lip", "bruise")>>, resulting in a $activeSlave.minorInjury. <<else>>. <</if>>You <<if ($activeSlave.clothing != "naked")>>force $him to take off $his $activeSlave.clothing and <</if>>restrain $him on the floor <<if _sexAct != "oral">>with $his ass in the air<<else>>with a ring gag in $his mouth<</if>> — all the while ignoring $his screams and pleas for mercy —
	<</if>>
<<else>>
	but $he knows $he is powerless to stop you. You <<if ($activeSlave.clothing != "naked")>>take off $his clothes and <</if>><<if _sexAct == "oral">>place a ring gag in $his mouth, then<</if>>place $him on the ground with a cushion under $his hips <<if _sexAct != "oral">>, $his ass in the air,<</if>>
<</if>>

before calling in the _animal.species. The _animal.species slowly saunters up to the <<if ($activeSlave.devotion <= 20)>>bound <</if>>slave and takes its position
<<if canWalk($activeSlave)>><<if _sexAct != "oral">>behind<<else>>above<</if>><<else>>above<</if>> $him. You can see its _animal.dickSize penis slowly come to attention as its animalistic brain realizes that it's standing <<if canWalk($activeSlave)>><<if _sexAct != "oral">>behind<<else>>above<</if>><<else>>above<</if>> a warm hole that needs to be filled with seed.

<<switch _animal.type>>
<<case "canine">>
	<<if canWalk($activeSlave)>>
		<<switch _sexAct>>
		<<case "oral">>
			<<if $activeSlave.devotion > 20>>
				$activeSlave.slaveName <<if _activeQuirk != 1>>reluctantly<</if>> grabs the _animal.dickSize cock and gives it a tentative lick.
			<</if>>
		<<default>>
			The _animal.species clambers up to mount $activeSlave.slaveName, eliciting a squeal from the girl as its claws dig into $his flesh.
		<</switch>>
	<<else>>
		The _animal.species <<if _sexAct != "oral">> takes a few curious sniffs, then <</if>>lines its cock up with $activeSlave.slaveName's <<switch _sexAct>><<case "vaginal" "anal">>_orifice.<<case "oral">>mouth, then, with a mighty shove, begins to thrust rapidly, in the way that only _animal.species can.<</switch>>
	<</if>>

	<<switch _sexAct>>
	<<case "vaginal" "anal">>
		It takes a couple of tries, but it finally manages to sink its cock into $his <<if _sexAct == "vaginal" && _activeQuirk>>wet <</if>>_orifice.
	<<case "oral">>
		<<if canWalk($activeSlave)>>
			In one swift motion, the canine buries its cock deep in $his throat, causing $him to gag. It then begins to thrust rapidly, in the way that only <<print _animal.species>>s can.
		<</if>>
	<</switch>>

	<<if _sexAct != "oral">>
		<<if (_sexAct == "vaginal" && !_used.vagina) || (_sexAct == "anal" && !_used.anus)>>The slave gives a loud <<if ($activeSlave.devotion > 20)>>moan<<else>>groan<</if>> as $his <<if _sexAct == "anal">>@@.lime;anal@@<</if>> @@.lime;virginity is taken from $him@@<<if ($activeSlave.devotion < -20)>>@@.lime; by force@@<</if>>.<</if>>
	<</if>>

<<case "hooved">>
	The _animal.species stands over $him as another slave lines its massive phallus up with $activeSlave.slaveName's <<switch _sexAct>><<case "oral">>open mouth<<case "vaginal" "anal">><<if _activeQuirk>>wet <</if>>_orifice<</switch>>.

	With a slight thrust, it enters $him and begins to fuck <<if _sexAct == "oral">>$his mouth<<else>> $him<</if>>. $activeSlave.slaveName can't help but give a loud groan as the huge cock
	<<switch _sexAct>>
	<<case "oral">>
		stretches $his throat to the limit.
	<<default>>
		<<if _sexAct == "vaginal" && ($activeSlave.vagina <= 1) || _sexAct == "anal" && ($activeSlave.anus <= 1)>>
			@@.lime;all but splits $his@@
		<<elseif _sexAct == "vaginal" && ($activeSlave.vagina <= 3) || _sexAct == "anal" && ($activeSlave.anus <= 2)>>
			@@.lime;stretches $his@@
		<<else>>
			fills $his
		<</if>>

	<<if _sexAct == "vaginal">>
		<<if $activeSlave.vagina == 0>>
			@@.lime;virgin@@
		<<elseif $activeSlave.vagina == 1>>
			@@.lime;tight@@
		<<elseif $activeSlave.vagina == 2>>
			@@.lime;reasonably tight@@
		<<elseif $activeSlave.vagina == 3>>
			@@.lime;loose@@
		<<elseif $activeSlave.vagina <= 9>>
			cavernous
		<<else>>
			ruined
		<</if>>
	<<else>>
		<<if $activeSlave.anus == 0>>
			@@.lime;virgin@@
		<<elseif $activeSlave.anus == 1>>
			@@.lime;tight@@
		<<elseif $activeSlave.anus == 2>>
			@@.lime;loose@@
		<<elseif $activeSlave.anus == 3>>
			very loose
		<<else>>
			gaping
		<</if>>
	<</if>>

	<<if (_sexAct == "vaginal" && $activeSlave.vagina <= 3) || (_sexAct == "anal" && $activeSlave.anus <= 2) >>@@.lime;_orifice@@<<else>>_orifice<</if>><<if (_sexAct == "vaginal" && ($activeSlave.vagina <= 1)) || (_sexAct == "anal" && ($activeSlave.anus <= 1))>>@@.lime; apart.@@<<elseif (_sexAct == "vaginal" && ($activeSlave.vagina <= 3)) || (_sexAct == "anal" && ($activeSlave.anus <= 2))>>@@.lime;.@@<<else>>.<</if>>
	<</switch>>

<<case "feline">>
	<<if canWalk($activeSlave)>>
		The _animal.species mounts $him, causing $him to give a squeal as its claws dig into $his flesh.
	<<else>>
		The _animal.species lines its _animal.dickSize penis with $activeSlave.slaveName's _orifice and gives a mighty shove.
	<</if>>
	$activeSlave.slaveName gives a loud <<if $activeSlave.devotion > 50>>moan<<else>>groan<</if>> as the _animal.species buries its large, barbed, cock deep in $his _orifice.
<</switch>>

<<if _sexAct != "oral">>
	<<if _sexAct == "vaginal">>
		<<if !_used.vagina>>
			<<if ($activeSlave.devotion >= -20)>>
				<<if _activeQuirk>>
					@@.lime;Losing $his virginity@@ in such a painful manner has @@.hotpink;increased $his devotion to you.@@
					<<set $activeSlave.devotion += 10>>
				<<else>>
					<<if $activeSlave.devotion > 50>>
						Since $he is well broken, @@.lime;losing $his virginity@@ in such a manner has @@.hotpink;increased $his submission to you.@@
						<<set $activeSlave.devotion += 5>>
					<<elseif ($activeSlave.devotion >= -20) && ($activeSlave.devotion <= 50)>>
						@@.lime;Losing $his virginity@@ in such a manner has @@.hotpink;increased $his submission to you,@@ though $he is @@.gold;fearful@@ that you'll decide to only use $him to sate your animals' lust.
						<<set $activeSlave.devotion += 5, $activeSlave.trust -= 5>>
					<<elseif ($activeSlave.devotion >= -50) && ($activeSlave.devotion < -20)>>
						$He is clearly @@.mediumorchid;unhappy@@ in the manner in which $his virginity has been taken, and $he @@.gold;fears@@ you'll decide to only use $him to sate your animals' lust.
						<<set $activeSlave.devotion -= 10, $activeSlave.trust -= 10>>
					<</if>>
				<</if>>
			<<else>>
				Having $his @@.lime;pearl of great price taken@@ by a mere beast has @@.mediumorchid;reinforced the hatred $he holds towards you,@@ and $he is @@.gold;terrified@@ you'll only use $him as a plaything for your animals.
				<<set $activeSlave.devotion -= 10, $activeSlave.trust -= 10>>
			<</if>>
		<</if>>
	<<else>>
		<<if !_used.anus>>
			<<if ($activeSlave.devotion >= -20)>>
				<<if _activeQuirk>>
					@@.lime;Losing $his anal virginity@@ in such a painful manner has @@.hotpink;increased $his devotion to you.@@
					<<set $activeSlave.devotion += 10>>
				<<else>>
					<<if $activeSlave.devotion > 50>>
						Since $he is well broken, @@.lime;losing $his anal virginity@@ in such a manner has @@.hotpink;increased $his submission to you.@@
						<<set $activeSlave.devotion += 5>>
					<<elseif ($activeSlave.devotion >= -20) && ($activeSlave.devotion <= 50)>>
						@@.lime;Losing $his anal virginity@@ in such a manner has @@.hotpink;increased $his submission to you,@@ though $he is @@.gold;fearful@@ that you'll decide to only use $him to sate your animals' lust.
						<<set $activeSlave.devotion += 5, $activeSlave.trust -= 5>>
					<<elseif ($activeSlave.devotion >= -50) && ($activeSlave.devotion < -20)>>
						$He is clearly @@.mediumorchid;unhappy@@ in the manner in which @@.lime;$his anal virginity has been taken,@@ and $he @@.gold;fears@@ you'll decide to only use $him to sate your animals' lust.
						<<set $activeSlave.devotion -= 10, $activeSlave.trust -= 10>>
					<</if>>
				<</if>>
			<<else>>
				Having @@.lime;$his rosebud taken@@ by a mere beast has @@.mediumorchid;reinforced the hatred $he holds towards you,@@ and $he is @@.gold;terrified@@ you'll only use $him as a plaything for your animals.
				<<set $activeSlave.devotion -= 10, $activeSlave.trust -= 10>>
			<</if>>
		<</if>>
	<</if>>

	<<if (!_used.vagina && _sexAct == "vaginal") || (!_used.anus && _sexAct == "anal")>>
		The pain of having such a _animal.dickSize cock take $his <<if _sexAct == "anal">>anal <</if>>virginity has @@.red;damaged $his health.@@
		<<set $activeSlave.health -= 5>>
	<</if>>
<</if>>

<<switch _animal.type>>
<<case "canine">>
	The <<switch _animal.species>><<case "dog">>hound<<default>>_animal.species<</switch>> wastes no time in beginning to hammer away at $his _orifice, causing $activeSlave.slaveName to moan uncontrollably as its thick, veiny member probes the depths of $his <<switch _sexAct>><<case "oral">>throat<<case "vaginal">>cunt<<case "anal">>rectum<</switch>>.
	A few short minutes later, $he gives a loud groan
	<<if ($activeSlave.fetishKnown == 1) && (_activeQuirk)>> and shakes in orgasm <</if>>
	as the _animal.species's knot begins to swell and its penis begins to erupt a thick stream of jizz <<switch _sexAct>><<case "vaginal" "anal">>into $him<<case "oral">>down $his throat<</switch>>.
	After almost a minute, the _animal.species has finally finished cumming and its knot is sufficiently small enough that the _animal.species is able to pull its cock out, causing
	<<switch _sexAct>>
	<<case "vaginal" "anal">>
		a stream of cum to slide out of $his
		<<if _sexAct == "vaginal" && ($activeSlave.vagina <= 2) || _sexAct == "anal" && ($activeSlave.anus <= 1)>>
			@@.lime;now-gaping _orifice.@@
		<<else>>
			<<if _sexAct == "vaginal">>
				<<if $activeSlave.vagina == 3>>
					loose
				<<elseif $activeSlave.vagina <= 9>>
					cavernous
				<<else>>
					ruined
				<</if>>
			<<else>>
				<<if $activeSlave.anus == 0>>
					virgin
				<<elseif $activeSlave.anus == 1>>
					tight
				<<elseif $activeSlave.anus == 2>>
					loose
				<<elseif $activeSlave.anus == 3>>
					very loose
				<<else>>
					gaping
				<</if>>
			<</if>> _orifice.
		<</if>>
		<<if canGetPregnant($activeSlave) && canBreed($activeSlave, _animal)>>
			<<= knockMeUp($activeSlave, 5, _hole, -8)>>
		<</if>>
	<<case "oral">>
		$activeSlave.slaveName to immediately start coughing and retching uncontrollably.

	<</switch>> Having finished its business, the _animal.species runs off, presumably in search of food.

	<<switch _sexAct>>
	<<case "vaginal">>
		<<if $activeSlave.vagina < 3>>
			<<set $activeSlave.vagina = 3>>
		<</if>>
		<<set $activeSlave.vaginalCount += 1>>
	<<case "anal">>
		<<if $activeSlave.anus < 2>>
			<<set $activeSlave.anus = 2>>
		<</if>>
		<<set $activeSlave.vaginalCount += 1>>
	<<case "oral">>
		<<set $activeSlave.oralCount += 1>>
	<</switch>>

<<case "hooved">>
	The <<switch _animal.species>><<case "horse">>stallion<<default>>_animal.species<</switch>> begins to thrust faster and faster, causing $activeSlave.slaveName to moan and groan in pain as the<<if _sexAct == "vaginal">> tip rams $his cervix<<else>> huge _animal.species cock fills $him completely<</if>>. Before too long, the _animal.species's movements begin to slow, and you can see its large testicles contract slightly as it begins to fill $activeSlave.slaveName's <<switch _sexAct>><<case "vaginal" "anal">>_orifice<<case "oral">>stomach<</switch>> to the brim with thick _animal.species semen.
	After what seems like an impossibly long time, the _animal.species's dick finally begins to soften and it finally pulls out<<if _sexAct == "oral">>, causing $activeSlave.slaveName to immediately begin to cough and retch uncontrollably<</if>>. You have a servant lead the _animal.species away, with a fresh apple as a treat for its good performance.

	<<switch _sexAct>>
	<<case "vaginal">>
		<<if $activeSlave.vagina < 4>>
			<<set $activeSlave.vagina = 4>>
		<</if>>
		<<set $activeSlave.vaginalCount += 1>>
	<<case "anal">>
		<<if $activeSlave.anus < 4>>
			<<set $activeSlave.anus = 4>>
		<</if>>
		<<set $activeSlave.analCount += 1>>
	<<case "oral">>
		<<set $activeSlave.oralCount += 1>>
	<</switch>>
	<<if _sexAct != "oral">>
		<<if canGetPregnant($activeSlave) && canBreed($activeSlave, _animal)>>
			<<= knockMeUp($activeSlave, 5, _hole, -8)>>
		<</if>>
	<</if>>

<<case "feline">>
	The _animal.species begins to move, thrusting faster and faster. The $girl beneath can't stop a groan of pain from escaping $his lips as the barbs on its dick @@.red;rub the inside of $his _orifice raw.@@ After a few minutes of painful coupling, the _animal.species's thrusts finally slow, then stop completely. With a <<if _animal.species != "cat">>deep bellow<<else>>loud //meow//<</if>>, he finally dismounts, gives you a long look, then stalks off.

	<<set $activeSlave.health -= 1>>
	<<switch _sexAct>>
	<<case "vaginal">>
		<<if $activeSlave.vagina < 2>>
			<<set $activeSlave.vagina = 2>>
		<</if>>
		<<set $activeSlave.vaginalCount += 1>>
	<<case "anal">>
		<<if $activeSlave.anus < 2>>
			<<set $activeSlave.anus = 2>>
		<</if>>
		<<set $activeSlave.vaginalCount += 1>>
	<<case "oral">>
		<<set $activeSlave.oralCount += 1>>
	<</switch>>
	<<if _sexAct != "oral">>
		<<if canGetPregnant($activeSlave) && canBreed($activeSlave, _animal)>>
			<<= knockMeUp($activeSlave, 5, _hole, -8)>>
		<</if>>
	<</if>>
<</switch>>

<<if (random(1,100) > (100 + $activeSlave.devotion))>>
	<<switch _sexAct>>
	<<case "vaginal">>
		<<if ($activeSlave.energy <= 95) && ($activeSlave.sexualFlaw != "hates penetration")>>
			Having <<print _a>> _animal.species fuck $him by force has given $him a @@.red;hatred of penetration.@@
			<<set $activeSlave.sexualFlaw = "hates penetration">>
		<</if>>
	<<case "anal">>
		<<if ($activeSlave.energy <= 95) && ($activeSlave.sexualFlaw != "hates anal")>>
			Having <<print _a>> _animal.species fuck $him by force has given $him a @@.red;hatred of anal penetration.@@
			<<set $activeSlave.sexualFlaw = "hates anal">>
		<</if>>
	<<case "oral">>
		<<if ($activeSlave.energy <= 95) && ($activeSlave.sexualFlaw != "hates oral")>>
			Having <<print _a>> _animal.species fuck $him by force has given $him a @@.red;hatred of oral penetration.@@
			<<set $activeSlave.sexualFlaw = "hates oral">>
		<</if>>
	<</switch>>
<</if>>

<<if _sexAct != "oral">>
	<<if $postSexCleanUp > 0>>

		<<if ($activeSlave.vagina == 3)>>
			<<= capFirstChar(_animal.species)>> cum drips out of $his fucked-out hole.
		<<elseif ($activeSlave.vagina == 2)>>
			<<= capFirstChar(_animal.species)>> cum drips out of $his stretched vagina.
		<<elseif ($activeSlave.vagina == 1)>>
			$His still-tight vagina keeps the _animal.species's load inside $him.
		<<elseif ($activeSlave.vagina < 0)>>
			<<= capFirstChar(_animal.species)>> cum drips out of $his girly ass.
		<<else>>
			<<= capFirstChar(_animal.species)>> cum slides right out of $his gaping hole.
		<</if>>

		<<if canWalk($activeSlave)>>
			$He uses <<if $activeSlave.vagina > 0>>a quick douche to clean $his <<if $activeSlave.vagina < 2>>tight<<elseif $activeSlave.vagina > 3>>loose<</if>> pussy<<else>>an enema to clean $his <<if $activeSlave.anus < 2>>tight<<elseif $activeSlave.anus < 3>>used<<else>>gaping<</if>> butthole<</if>>,
			<<switch $activeSlave.assignment>>
			<<case "work in the brothel">>
				just like $he does between each customer.
			<<case "serve in the club">>
				just like $he does in the club.
			<<case "work in the dairy">>
				to avoid besmirching the nice clean dairy.
			<<case "work as a farmhand">>
				to avoid tainting the food in $farmyardName.
			<<case "work as a servant">>
				mostly to keep everything $he has to clean from getting any dirtier.
			<<case "whore">>
				before returning to offering it for sale.
			<<case "serve the public">>
				before returning to offering it for free.
			<<case "rest">>
				before crawling back into bed.
			<<case "get milked">>
				<<if $activeSlave.lactation > 0>>before going to get $his uncomfortably milk-filled tits drained<<else>>and then rests until $his balls are ready to be drained again<</if>>.
			<<case "be a servant">>
				since $his chores didn't perform themselves while you used $his fuckhole.
			<<case "please you">>
				before returning to await your next use of $his fuckhole, as though nothing had happened.
			<<case "be a subordinate slave">>
				though it's only a matter of time before another slave decides to play with $his fuckhole.
			<<case "be your Head Girl">>
				worried that $his charges got up to trouble while $he enjoyed $his <<= WrittenMaster()>>'s use.
			<<case "guard you">>
				so $he can be fresh and ready for more sexual use even as $he guards your person.
			<<case "be the Schoolteacher">>
				before $he returns to teaching $his classes.
			<<default>>
				before $he returns to $activeSlave.assignment.
			<</switch>>
		<</if>>
	<</if>>
<</if>>

<<set $animalType = 0>>


code:
:: BirthStorm [nobr]

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

<<set $activeSlave.curBabies = WombBirth($activeSlave, 34)>> /*Here check - how many children survive this event. 34 weeks minimum.*/
<<set _curBabies = $activeSlave.curBabies>>

The remote surgery allows the removal of the pregnancy generator through conventional means, an injection to induce labor and the resulting birthing of the womb's contents.
<<if $activeSlave.broodmother == 2>>
	$activeSlave.slaveName's obscenely swollen belly begins to shudder and writhe moments after being injected with the drug as all $his waters break. $He spreads $his <<if $activeSlave.amp != 1>>legs to either side of $his spasming bulk as wide as $he can<<else>>stumps as wide as $he can<</if>> with a loud moan. $His vaginal lips part as the first of $his brood is born, followed by another, and another. After hours of constant
<<elseif $activeSlave.broodmother == 1>>
	$activeSlave.slaveName's massive belly shudders and shrinks as all $his waters simultaneously break. $He spreads $his <<if $activeSlave.amp != 1>>legs<<else>>stumps<</if>> wide with a loud moan. $His vaginal lips part as the first of $his brood is born, followed not long after by another. After an hour of constant
<<else>>
	$activeSlave.slaveName's massive belly shudders and shrinks as all $his waters simultaneously break. $He spreads $his <<if $activeSlave.amp != 1>>legs<<else>>stumps<</if>> wide with a loud moan. $His vaginal lips part as $his birthing begins. After an hour of intensive
<</if>>
<<if $activeSlave.fetish == "mindbroken">>
	birthing, $he shows little interest in the changes to $his body. @@.red;The ordeal of intensive birthing has had a massive effect on $his health as well as completely destroying $his vagina.@@
<<elseif $activeSlave.sexualFlaw == "breeder">>
	birthing and the realization that you are taking away $his ideal body, $his perfect existence; $his mind @@.red;fundamentally breaks. The ordeal of intensive birthing has had a massive effect on $his health as well as completely destroying $his vagina.@@
	<<set $activeSlave.fetish = "mindbroken">>
<<elseif $activeSlave.fetish == "pregnancy" && $Nurse != 0>>
	birthing and orgasming all the time, $activeSlave.slaveName's mind would have broken. However, $Nurse.slaveName had the foresight to sedate $him after witnessing $his constant orgasming. $He awakes to find $his belly deflated, no longer crammed full of life. $He is @@.mediumorchid;disappointed@@ that you would forbid $him from such a pleasure, but @@.mediumaquamarine;understands@@ why it was done. @@.red;The ordeal of intensive birthing has had a massive effect on $his health as well as completely destroying $his vagina.@@
	<<set $activeSlave.trust += 5, $activeSlave.devotion -= 5>>
<<elseif $activeSlave.fetish == "pregnancy">>
	<<if $activeSlave.broodmother == 2>>
		birthing and orgasming each time, $activeSlave.slaveName's mind is @@.red;fundamentally broken.@@ Being under constant pleasure for so long has destroyed all but the part of $him that feels pleasure. With one final push the breeding device is expelled from $his womb as the last spark of what was $his mind is extinguished. @@.red;The ordeal of constant birthing has had a massive effect on $his health as well as completely destroying $his vagina.@@
		<<set $activeSlave.fetish = "mindbroken">>
	<<elseif $activeSlave.broodmother == 1>>
		birthing and orgasming each time, $activeSlave.slaveName is reduced to a quivering, overstimulated pile. When $he returns to $his senses, @@.hotpink;$he can only express how much $he wants to go again.@@ @@.red;The ordeal of constant birthing has had a massive effect on $his health as well as completely destroying $his vagina.@@
		<<set $activeSlave.devotion += 4>>
	<<else>>
		birthing and orgasming all the time, $activeSlave.slaveName is reduced to a quivering, overstimulated pile. When $he returns to $his senses, @@.hotpink;$he can only express how much $he wants to go again.@@ @@.red;The ordeal of intensive birthing has had a massive effect on $his health as well as completely destroying $his vagina.@@
		<<set $activeSlave.devotion += 3>>
	<</if>>
<<elseif $activeSlave.devotion <= 20>>
	birthing, @@.mediumorchid;$he hates you for destroying $his body like this.@@ $He is @@.gold;terrified of your power@@ over $his body. @@.red;The ordeal of constant birthing has had a massive effect on $his health as well as completely destroying $his vagina.@@
	<<set $activeSlave.trust -= 40, $activeSlave.devotion -= 50>>
<<elseif $activeSlave.devotion <= 50>>
	birthing, $he is dully obedient. $He has been broken to slave life so thoroughly that even this is neither surprising nor affecting. $He is @@.gold;terrified of your power@@ over $his body. @@.red;The ordeal of constant birthing has had a massive effect on $his health as well as completely destroying $his vagina.@@
	<<set $activeSlave.trust -= 40>>
<<else>>
	birthing, $he is @@.hotpink;pleased by this stark development@@ since $he is so attentive to your will. $He also expects $he'll be able to fuck better now without a massive belly getting in the way. @@.red;The ordeal of constant birthing has had a massive effect on $his health as well as completely destroying $his vagina.@@
	<<set $activeSlave.devotion += 4>>
<</if>>

<<set _babyPrice = random(-20,20)>>
<<if $activeSlave.broodmother == 2>>
	<<set $activeSlave.preg = -3>>
	<<if $activeSlave.vagina < 6>>
		<<set $activeSlave.vagina = 10>>
	<</if>>
	<<set $activeSlave.health -= 80>>
<<else>>
	<<if lastPregRule($activeSlave,$defaultRules)>><<set $activeSlave.preg = -1>><<else>><<set $activeSlave.preg = 0>><</if>> /* I think, it's not logical to break her reproductive system out of repair, if she is only type 1 broodmother. In this case she have to birth only like 5-10 fully grown babies, others get progressively smaller. It's should be even smaller stress to body then for "normal" hyperpregnant with 15-20+ children - they have to birth them all at full size.*/
	<<if $activeSlave.vagina < 6>>
		<<set $activeSlave.vagina = 6>>
	<</if>>
	<<set $activeSlave.health -= 30>>
<</if>>
<<if $Cash4Babies == 1 && _curBabies > 0>>
	$His surviving <<if _curBabies > 1>>children<<else>>child<</if>> sold for a total of @@.yellowgreen;<<print cashFormat(_curBabies*(50+_babyPrice))>>.@@
	<<run cashX((_curBabies*(50+_babyPrice)), "babyTransfer", $activeSlave)>>
<</if>>
<<set $activeSlave.births += _curBabies>>
<<set $activeSlave.birthsTotal += _curBabies>>
<<set $birthsTotal += _curBabies>>
<<if $activeSlave.geneticQuirks.fertility+$activeSlave.geneticQuirks.hyperFertility >= 4>>
	<<set $activeSlave.pregWeek = -2>>
<<elseif $activeSlave.geneticQuirks.hyperFertility > 1>>
	<<set $activeSlave.pregWeek = -3>>
<<else>>
	<<set $activeSlave.pregWeek = -4>>
<</if>>
<<set $activeSlave.pregType = 0>>
<<set $activeSlave.pregSource = 0>>
<<set $activeSlave.pregKnown = 0>>
<<set WombFlush($activeSlave)>>
<<set $activeSlave.broodmother = 0>>
<<run SetBellySize($activeSlave)>>

repo_name: oxone/fc


code:
:: Breeder Proposal [nobr]

<<set $nextButton = " ", $nextLink = "Main", $propOutcome = -1>>

You draft a proposal to the Societal Elite proposing the use of specially tested slaves as breeding stock. If they can pass the tests required to join the societal elite; even as slaves, their bodies can prove valuable to furthering eugenics. They will gain no additional rights, but their wombs will be used to birth elite children; helping stave off potential threats of inbreeding and adding possible missed beneficial traits into the Elite's gene pool.

Within the hour, you are called before <<if $eugenicsFullControl == 1>>what's left of <</if>>The Societal Elite.

<<if $eugenicsFullControl == 1>>
	"That sounds like an acceptable proposal. We'll draft the standards for breeding stock and notify you shortly."
	<<set $propOutcome = 1>>
	<<InitStandards>>
	<<set $nextButton = "Continue">><<UpdateNextButton>> /* unlock Continue button */
<<elseif $PC.pregSource == -1 || $PC.pregSource == -6>>
	"Since you are doing your part and carrying an elite child, we will gladly reward you by granting your proposal. We shall decide upon the standards for breeding stock and notify you shortly."
	<<set $propOutcome = 1>>
	<<InitStandards>>
	<<set $nextButton = "Continue">><<UpdateNextButton>> /* unlock Continue button */
<<elseif $PC.birthElite > 0>>
	"Since you have carried children for our cause, we will gladly reward you by granting your proposal. We shall decide upon the standards for breeding stock and notify you shortly."
	<<set $propOutcome = 1>>
	<<InitStandards>>
	<<set $nextButton = "Continue">><<UpdateNextButton>> /* unlock Continue button */
<<elseif $PC.dick == 0>>
	<<if $failedElite > 50>>
		"Do you really think you are in any position to make such a request? You, a fertile woman and member of the Elite, who has not taken even the slightest interest in carrying one of our children, dares to even suggest using slaves as breeding stock? Well?"

<<link "Agree to being used as a breeder and save face">>
		<<replace "#result">>
			"Good choice girl. A selection of men will be provided to you, take your pick and bear our children. Or use a test tube, if that's more to your tastes."
			<<set $playerBred = 1, $propOutcome = 1>>
			<<InitStandards>>
			<<set $nextButton = "Continue">><<UpdateNextButton>> /* unlock Continue button */
		<</replace>>
		<</link>>

<<link "Decline being used as a breeder and face the Societal Elites' wrath">>
		<<replace "#result">>
			"You'll regret this decision. We'll have our way one way or another."
			<<set $failedElite += 275, $propOutcome = -1>>
			<<set $nextButton = "Continue">><<UpdateNextButton>> /* unlock Continue button */
		<</replace>>
		<</link>>

	<<else>>
		"An interesting proposal, given your lack of equipment, though we would be much more open to listen to your request if you were heavy with one of our children.

<<link "Agree to being used as a breeder for the sake of your proposal">>
		<<replace "#result">>
			"Good choice girl, your proposal is more important than your dignity after all, isn't it? A selection of men will be provided to you, take your pick and bear our children. Or use a test tube, if that's more to your tastes."
			<<set $failedElite -= 50, $playerBred = 1, $propOutcome = 1>>
			<<InitStandards>>
			<<set $nextButton = "Continue">><<UpdateNextButton>> /* unlock Continue button */
		<</replace>>
		<</link>>
		<<if $failedElite <= 0>>

<<link "Decline being used as a breeder and leverage your standing">>
			<<replace "#result">>
				"Yes, you have done much to further our cause. We respect the "balls" on you, despite your lack of them. Very well, we shall set the standards for what shall qualify as breeding stock and our standards will be delivered to you shortly."
				<<set $propOutcome = 1>>
				<<InitStandards>>
				<<set $nextButton = "Continue">><<UpdateNextButton>> /* unlock Continue button */
			<</replace>>
			<</link>>
		<<else>>

<<link "Decline being used as a breeder and withdraw your proposal">>
			<<replace "#result">>
				"Then why waste our time? You disappoint us, but don't worry; you'll be laden with child soon enough."
				<<set $propOutcome = -1>>
				<<set $nextButton = "Continue">><<UpdateNextButton>> /* unlock Continue button */
			<</replace>>
			<</link>>
		<</if>>

	<</if>>
<<else>>
	<<if $PC.dick == 1 && $PC.vagina == 1 && $failedElite > 50>>
		"We have read your proposal and propose the following: You are not well liked among us, and your medical records show you are quite capable of carrying a child. If you will carry our children, we will grant your proposal, otherwise, leave and never ask us this again."

<<link "Agree to being used as a breeder to complete the deal">>
		<<replace "#result">>
			"Your contributions will be appreciated. We shall convene to decide the qualifications for a slave to become a breeder. We will inform you of them when we send the list of eligible males to breed you. Or send you a test tube, if that's more to your tastes."
			<<set $failedElite -= 50, $playerBred = 1, $propOutcome = 1>>
			<<InitStandards>>
			<<set $nextButton = "Continue">><<UpdateNextButton>> /* unlock Continue button */
		<</replace>>
		<</link>>

<<link "Decline being used as a breeder and withdraw your proposal">>
		<<replace "#result">>
			"Very well, if your masculinity is more valuable to you than your proposal, then so be it."
			<<set $propOutcome = -1>>
			<<set $nextButton = "Continue">><<UpdateNextButton>> /* unlock Continue button */
		<</replace>>
		<</link>>

	<<elseif $PC.dick == 1 && $PC.vagina == 1>>
		"We have read your proposal and agree. However, we shall set the standards for what shall qualify as breeding stock, not you. Our standards will be delivered to you shortly.

		Your medical records say you have working female sex organs, and we respect your choice to not use them. But have you considered carrying another member's child? It will be extremely lucrative for you and go a long way to furthering our objectives."

<<link "Agree to being used as a breeder">>
		<<replace "#result">>
			"Your contributions will be appreciated. We shall convene to decide the qualifications for a slave to become a breeder. We will inform you of them when we send the list of eligible males to breed you. Or send you a test tube, if that's more to your tastes."
			<<set $playerBred = 1, $propOutcome = 1>>
			<<InitStandards>>
			<<set $nextButton = "Continue">><<UpdateNextButton>> /* unlock Continue button */
		<</replace>>
		<</link>>

<<link "Decline being used as a breeder">>
		<<replace "#result">>
			"Very well, if you wish to waste your gift, it is your prerogative. We shall convene to decide the qualifications for a slave to become a breeder and inform you upon completion."
			<<set $propOutcome = 1>>
			<<InitStandards>>
			<<set $nextButton = "Continue">><<UpdateNextButton>> /* unlock Continue button */
		<</replace>>
		<</link>>

	<<else>>
		"We have read your proposal and agree. However, we shall set the standards for what shall qualify as breeding stock, not you. Our standards will be delivered to you shortly."
		<<set $propOutcome = 1>>
		<<InitStandards>>
		<<set $nextButton = "Continue">><<UpdateNextButton>> /* unlock Continue button */
	<</if>>
<</if>>


code:
:: BreedingTest [nobr]

<<set $nextButton = "Back">>
<<set $nextLink = "Slave Interact">>

<<UpdateStandards>>
<<BreedingStandards>>

<<BreedingEligibility>>


code:
:: Cloning Workaround [nobr]

<<set $nextButton = "Cancel", $nextLink = "Gene Lab", _eligibility = 0>>
<<if $donatrix != "Undecided" && $donatrix.ID == -1>><<set _impreg = PlayerName()>><<elseif $donatrix != "Undecided">><<set _impreg = SlaveFullName($donatrix)>><<else>><<set _impreg = $donatrix>><</if>>
<<if $receptrix != "Undecided" && $receptrix.ID == -1>><<set _receive = PlayerName()>><<elseif $receptrix != "Undecided">><<set _receive = SlaveFullName($receptrix)>><<else>><<set _receive = $receptrix>><</if>>

//Blank ovum prepared, please select genetic source://

[[Yourself|Cloning Workaround][$donatrix = $PC]]
<<for _cw = 0; _cw < $slaves.length; _cw++>>
<<capture _cw>>
	<<set _name = SlaveFullName($slaves[_cw])>>

[[_name|Cloning Workaround][$donatrix = $slaves[_cw]]]
<</capture>>
<</for>>

__Chosen surrogate: _receive __

<<for _cw1 = 0; _cw1 < $slaves.length; _cw1++>>
<<capture _cw1>>
	<<if ($slaves[_cw1].ovaries > 0 || $slaves[_cw1].mpreg > 0) && isSlaveAvailable($slaves[_cw1]) && $slaves[_cw1].preg >= 0 && $slaves[_cw1].preg < 4 && $slaves[_cw1].pregWeek >= 0 && $slaves[_cw1].pubertyXX == 1 && $slaves[_cw1].pregType < 12 && $slaves[_cw1].bellyImplant == -1 && $slaves[_cw1].broodmother == 0 && $slaves[_cw1].inflation <= 2 && $slaves[_cw1].physicalAge < 70>>
		<<set _name2 = SlaveFullName($slaves[_cw1])>>

[[_name2|Cloning Workaround][$receptrix = $slaves[_cw1]]] <<if $slaves[_cw1].pregType >= 4>>//Using a slave carrying multiples is unadvisable//<</if>>
		<<set _eligibility = 1>>
	<</if>>
<</capture>>
<</for>>
<<if (_eligibility == 0)>>

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

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

	[[Use your own womb|Cloning Workaround][$receptrix = $PC]]
<</if>>

_impreg will be cloned and _receive shall act as the incubator.
<<if _impreg != "Undecided" && _receive != "Undecided">>
	[[Implant clone ovum|Surrogacy][cashX(forceNeg($surgeryCost*2), "slaveSurgery"), $surgeryType = 'clone']]
<</if>>


code:
:: Criminal Market [nobr]

<<set $nextButton = "Back", $nextLink = "Buy Slaves", $returnTo = "Buy Slaves", $showEncyclopedia = 1, $encyclopedia = "Slave Schools">>

<<if ndef $newSlaves>><<set $newSlaves = []>><</if>>
<<if $newSlaves.length > 0>>
	<<set $nextButton = "Continue", $nextLink = "Bulk Slave Intro", $returnTo = "Main", $newSlaveIndex = 0>>
<</if>>

You board the transport to
<<switch $weeklyMarket>>
<<case "low tier criminals">> /* mixed prisoners */

	a small prison on the edge of the city spanning from the foot of your arcology with the appearance of an Old World police station. You arrive inside and are met by a cute receptionist, asking why one such as yourself would visit such a place. With formalities out of the way, the head of the station is called and arrives shortly. "Well now, didn't expect to see you here. Came to pick up a criminal and give them a chance at not being a menial?" You are then led further into the station and into the prisoners quarters; most of them downcast and dismal, but some look up to see what the commotion is about. "You! Come here! This gentleman wants to take a look so be on your best behavior!" the head calls out, bringing one of the criminals close enough to be inspected.

<<case "gangs and smugglers">> /* males only */

	a large gray prison at the edge of the Free City as word of your approach is sent ahead. The visage of the prison itself is a grim one, enclosed by a large gray concrete fence with electrified barbed wire coiled at the top. As the vehicle rolls to a stop before a large gate, the guard in control of the gate operates a board of buttons and levers, promptly opening it so it may continue. "Stay on the road," he respectfully advises, a final remark before letting your driver carries on. Beyond the fence is an array of guard towers manned with drones for 24/7 surveillance, giving you a clear idea of what was to happen if you were not to heed the guard's words and decided to wander off from the group.

	Your destination at the end of the road is a garage, where upon your disembarking, no less than 4 heavily armored guards with electric batons at their sides come to greet you. You could almost mistake them for unmanned drones had they not spoken, "We've been expecting you, please follow us. We house some dangerous individuals in our establishment and we need to keep you safe." You accept their advice and enter the premises.

	You are met with a dimly lit concrete hallway as you enter, only for it to open up to a multi-floor prison that had placed its prisoners underground for the most part<<if $PC.title == 0 || $PC.boobsBonus > 1 || $PC.butt > 1>>, where you are met with a hailstorm of whistles, cheers and other catcalls<</if>>. You come to a bridge and look down to see its inhabitants, hard criminals that are coming together for a meal. You watch a fight break out at one point and an armored guard quickly stepped in and applying his baton to the offenders, coupled with a loud zap that silences the entire area. Around your level, you see the better stock; the attractive prisoners one would show to an interested customer.

	You finally reach the warden's office, "Welcome <<if $PC.title == 1>>Mister<<else>>Miss<</if>> <<= PlayerName()>>, I never thought my prison could have turned to a trade such as this, but times are hard." He beckons you to the seat opposite him, "but I'm not one to complain when an opportunity such as this comes my way." He motions to his guards to bring in a select stock for your perusal, "We house some tough nuts in this establishment, but if you believe you can capitalize on these criminals, we'll be happy to have you take them off our hands." The guard returns with a convict ready to be sold.

<<case "white collar">> /* mixed prisoners */

	what looks more like an oversized vacation home rather than something one goes to for committing crimes. You enter the premises into a small chamber with a booth to the side and are immediately met with, "Ah! We've been waiting for you. Please go in. We'll call someone to guide you immediately."

	You nod at the prompt and enter further into the luxurious building to find a formally dressed guide and what appears to be the holding area of the prison. The cells, if you can call them that, are large and cozy, each with their own computer and television. The air is also conditioned for their comfort and Old World classical music is playing to provide further ambiance. Walking through, you see the prisoners themselves, lazing about in their beds, sitting at their computers or just talking to each other. If there was ever a prison you'd rather end up in, this would be it.

	You enter the warden's office and are greeted with all due formalities, "Glad to see you at our establishment. When I heard that someone as renowned as yourself was coming over, I made the appropriate preparations." You are served a cup of tea as she brings in the chosen stock for you to observe at your leisure.

<<case "military prison">>

	a holding facility for prisoners of war located on the outskirts of the Free City, which is reasonable due to the dangers inherent to the criminals imprisoned in such an establishment. The driver radios ahead that you and several other interested parties will be arriving shortly. Once you disembark at the edge of the grounds, you are recognized by the stationed guard and ushered into a heavily armored vehicle. <<if $PC.career == "mercenary">>The interior brings back memories and you completely<<else>>Although the interior makes you feel like a prisoner, you<</if>> understand the reasoning behind such a design choice.

	Once you arrive at the prison, the door opens to a garage and another door, brightly lit to welcome you to the premises. Through the door, you find the prisoner's quarters, each of them enclosed by electrified fences to ensure your safety as you see the stock. A guard enters, asking you to follow him as he leads you across the chamber to meet with the warden.

	Entering the warden's quarters, you take a seat across from the warden as he takes the initiative, "Ah, fancy meeting one such as yourself here. Though we house some of the hardiest criminals you can find, I'm sure one such as yourself could find great use for them." He smirks "... or perhaps great entertainment through the pits", he beckons to his staff as they bring in the selected stock.

<</switch>>

<<GenerateMarketSlave $weeklyMarket>>

<<slaveCost $activeSlave>>
<<setLocalPronouns $activeSlave>>
<<if $slavesSeen > $slaveMarketLimit>><<set $slaveCost += Math.trunc($slaveCost*(($slavesSeen-$slaveMarketLimit)*0.1))>><</if>>

It will cost <<print cashFormat($slaveCost)>> to enslave $him.

<<if $cash >= $slaveCost>>

[["Enslave " + $him + " and check out other available prisoners"|Criminal Market][cashX(forceNeg($slaveCost), "slaveTransfer", $activeSlave), $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
	<<if $newSlaves.length == 0>>

[["Enslave " + $him|New Slave Intro][cashX(forceNeg($slaveCost), "slaveTransfer", $activeSlave),$nextButton = "Continue",$nextLink = "AS Dump",$returnTo = "Main"]]
	<<else>>

[["Enslave " + $him + " and finish your inspection"|Bulk Slave Intro][cashX(forceNeg($slaveCost), "slaveTransfer", $activeSlave), $newSlaves.push($activeSlave)]]
	<</if>>
<<else>>
	//You lack the necessary funds to enslave this criminal.//
<</if>>

[[Inspect a different prisoner|Criminal Market][$slavesSeen += 1]]
<<if $newSlaves.length > 0>>

[[Finish your enslavement of prisoners|Bulk Slave Intro]]
<</if>>

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

<<slaveCost $activeSlave>>


code:
:: csec [nobr]

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

<<run clearSummaryCache($activeSlave)>>

/*---------------- calculations -----------------*/

/* Now it's will be possible to use passage for broodmothers and partial birthers too.*/

<<set $activeSlave.pregControl = "none">>
<<set _beforeSize = WombGetVolume($activeSlave)>>
<<set $activeSlave.curBabies = WombBirth($activeSlave, $activeSlave.pregData.minLiveBirth)>> /* 34 week is minimal gestation time for human live birth. Here we take only ready to survive. With others we will deal later in code. */
<<set $activeSlave.curStillBirth = 0 >>

<<set _curBabies = $activeSlave.curBabies.length>> /*just to improve speed and usability here.*/

<<set $activeSlave.births += _curBabies>>
<<set $activeSlave.birthsTotal += _curBabies>>
<<set $birthsTotal += _curBabies>>

<<set _others = 0, _PC = 0, _citizens = 0, _oldMaster = 0, _arcOwner = 0, _lab = 0, _fathers = [], _babyFatherLink = []>>
<<for _cb = 0; _cb < $activeSlave.curBabies.length; _cb++>>
	<<if $activeSlave.curBabies[_cb].fatherID == 0 || $activeSlave.curBabies[_cb].fatherID == -5>>
		<<set _others++>>
		<<set _fathers.push("some man's")>>
	<<elseif $activeSlave.curBabies[_cb].fatherID == -1>>
		<<set $PC.slavesFathered++>>
		<<set _PC++>>
		<<set _fathers.push("your")>>
	<<elseif $activeSlave.curBabies[_cb].fatherID == -2>>
		<<set _citizens++>>
		<<set _fathers.push("your arcology's")>>
	<<elseif $activeSlave.curBabies[_cb].fatherID == -3>>
		<<set _oldMaster++>>
		<<set _fathers.push("your former Master's")>>
	<<elseif $activeSlave.curBabies[_cb].fatherID == -4>>
		<<set _arcOwner++>>
		<<set _fathers.push("another arcology owner's")>>
	<<elseif $activeSlave.curBabies[_cb].fatherID == -7>>
		<<set _lab++>>
		<<set _fathers.push("the gene lab's")>>
	<<else>>
		<<set _babyDaddy = findFather($activeSlave.curBabies[_cb].fatherID)>>
		<<if def _babyDaddy>>
			<<if _babyDaddy.ID == $activeSlave.ID>>
				<<set _fathers.push(String($his + " own"))>>
				<<for _cb2 = 0; _cb2 < _babyFatherLink.length; _cb2++>>
					<<if _babyFatherLink[_cb2].string == String($his + " own")>>
						<<set _babyFatherLink[_cb2].count++>>
					<<else>>
						<<set _babyFatherLink[_cb2] = {string: String($his + " own"), count: 1}>>
					<</if>>
				<</for>>
			<<else>>
				<<set _fathers.push(String(_babyDaddy.slaveName+ "'s"))>>
				<<for _cb2 = 0; _cb2 < _babyFatherLink.length; _cb2++>>
					<<if _babyFatherLink[_cb2].string == String(_babyDaddy.slaveName+ "'s")>>
						<<set _babyFatherLink[_cb2].count++>>
					<<else>>
						<<set _babyFatherLink[_cb2] = {string: String(_babyDaddy.slaveName+ "'s"), count: 1}>>
					<</if>>
				<</for>>
			<</if>>
			<<set _adjust = _babyDaddy.slavesFathered++>>
			<<set adjustFatherProperty(_babyDaddy, "slavesFathered", _adjust)>>
		<<else>>
			<<set _others++>>
			<<set _fathers.push("some man's")>>
		<</if>>
	<</if>>
<</for>>
<<set _fathersReduced = removeDuplicates(_fathers)>>
<<for _cb = 0; _cb < _fathersReduced.length; _cb++>>
	<<set _num = 0>>
	<<if _fathersReduced[_cb] == "some man's">>
		<<set _num = _others>>
	<<elseif _fathersReduced[_cb] == "your">>
		<<set _num = _PC>>
	<<elseif _fathersReduced[_cb] == "your arcology's">>
		<<set _num = _citizens>>
	<<elseif _fathersReduced[_cb] == "your former Master's">>
		<<set _num = _oldMaster>>
	<<elseif _fathersReduced[_cb] == "another arcology owner's">>
		<<set _num = _arcOwner>>
	<<elseif _fathersReduced[_cb] == "the gene lab's">>
		<<set _num = _lab>>
	<<else>>
		<<set _cb2 = _babyFatherLink.findIndex(function(s) {_fathersReduced[_cb] == _babyFatherLink[s].string; })>>
		<<if _cb2 != -1>>
			<<set _num = _babyFatherLink[_cb2].count>>
		<</if>>
	<</if>>
	<<if _num == 1>>
		<<set _fathersReduced[_cb] += " baby">>
	<<elseif _num >= 40>>
		<<set _fathersReduced[_cb] += String(" massive brood of " + _num + " babies")>>
	<<elseif _num >= 20>>
		<<set _fathersReduced[_cb] += String(" brood of " + _num + " babies")>>
	<<elseif _num >= 10>>
		<<set _fathersReduced[_cb] += String(" impressive group of " + _num + " babies")>>
	<<elseif _num == 9>>
		<<set _fathersReduced[_cb] += " nonuplets">>
	<<elseif _num == 8>>
		<<set _fathersReduced[_cb] += " octuplets">>
	<<elseif _num == 7>>
		<<set _fathersReduced[_cb] += " septuplets">>
	<<elseif _num == 6>>
		<<set _fathersReduced[_cb] += " sextuplets">>
	<<elseif _num == 5>>
		<<set _fathersReduced[_cb] += " quintuplets">>
	<<elseif _num == 4>>
		<<set _fathersReduced[_cb] += " quadruplets">>
	<<elseif _num == 3>>
		<<set _fathersReduced[_cb] += " triplets">>
	<<elseif _num == 2>>
		<<set _fathersReduced[_cb] += " twins">>
	<</if>>
<</for>>

<<if $activeSlave.broodmother < 1>> /* broodmothers can't lose fetuses, or it's abortion procedure, not c'sec.*/
	<<if $surgeryUpgrade == 1 >>
		/* nothing right now. For partial birthers, who can do it. For future use.*/
	<<else>>
		<<set $activeSlave.curStillBirth = $activeSlave.womb.length>>
		<<set WombFlush($activeSlave)>>
		/* normally fetuses before 34 week will not survive */
	<</if>>
<</if>>
<<set _afterSize = WombGetVolume($activeSlave)>> /* not really needed right now, but better to add alredy for future usage. To not forget later.*/
<<set $diffSize = _beforeSize / (1 + _afterSize)>> /* 1 used to avoid divide by zero error.*/

<<set _incubated = 0>>
<<set _oldDevotion = $activeSlave.devotion>>

<<set _cToIncub = 0, _cToNursery = 0>>
<<for _csec = 0; _csec < _curBabies; _csec++>>
	<<if $activeSlave.curBabies[_csec].reserve === "incubator">>
		<<set _cToIncub++>>
	<<elseif $activeSlave.curBabies[_csec].reserve === "nursery">>
		<<set _cToNursery++>>
	<</if>>
<</for>>

/* ------------------------------------------------ */

Performing a cesarean section is trivial for the remote surgery to carry out. $activeSlave.slaveName is sedated, $his child<<if _curBabies > 1>>ren<</if>> extracted, and taken to a bed to recover. By the time $he comes to,
<<if _curBabies > 0>>
	<<if _fathersReduced.length > 2>>
		<<for _cb = 0; _cb < _fathersReduced.length; _cb++>>
			<<if _cb < _fathersReduced.length-1>>
				_fathersReduced[_cb],
			<<else>>
				and _fathersReduced[_cb]
			<</if>>
		<</for>>
	<<elseif _fathersReduced.length > 1>>
		_fathersReduced[0] and _fathersReduced[1]
	<<else>>
		_fathersReduced[0]
	<</if>>

	<<if _curBabies <= 1>>has<<else>>have<</if>>
	already been

	<<if _cToIncub == _curBabies>>
		taken to $incubatorName.
		<<set _incubated = 2>>
	<<elseif _cToIncub < _curBabies && _cToIncub > 0>>
		split between $incubatorName and
		<<set _incubated = 1>>
	<</if>>

	<<if _cToNursery == _curBabies>>
		taken to $nurseryName.
		<<set _nursed = 2>>
	<<elseif _cToNursery < _curBabies && _cToNursery > 0>>
		split between $nurseryName and
		<<set _nursed = 1>>
	<</if>>

	<<set $mom = $activeSlave>>
	<<if _cToIncub > 0 || _cToNursery > 0>>
		<<for _cb = 0; _cb < _curBabies; _cb++>> /* if there is no reserved children, code in loop will not trigger */
			<<if $mom.curBabies[_cb].reserve == "incubator">>
				<<set $activeSlave = generateChild($mom, $mom.curBabies[_cb], 1)>>
				<<include "Incubator Workaround">>
				<<run $mom.curBabies.splice($mom.curBabies[_cb], 1)>>
				<<set _cb--, _curBabies-->>
			<<elseif $mom.curBabies[_cb].reserve == "nursery">>
				<<set $activeSlave = generateChild($mom, $mom.curBabies[_cb])>>
				<<include "Nursery Workaround">>
				<<run $mom.curBabies.splice($mom.curBabies[_cb], 1)>>
				<<set _cb--, _curBabies-->>
			<</if>>
		<</for>>
	<</if>>
	<<set $activeSlave = $mom>>

<<else>>
	/*No live babies. Placeholder */
<</if>>

<<set _curBabies = $activeSlave.curBabies.length>>

<<if _incubated != 2 && _nursed != 2 && _curBabies > 0>>

	<<if _incubated == 1 || _nursed == 1>>the rest<</if>>
	<<if $arcologies[0].FSRestart != "unset" && $activeSlave.breedingMark == 1 && $activeSlave.pregSource == -1 && $propOutcome == 1>>
		<<set _lostBabies = 1>>
		handed off to the Societal Elite to be raised into upstanding members of the new society.
	<<elseif $Cash4Babies == 1 && ($activeSlave.relationship != -3) && ($activeSlave.assignment != "serve in the master suite") && ($activeSlave.assignment != "be your Concubine")>>
		<<set _lostBabies = 1, _call = 1>>
		<<= BirthDestinationText("Sold",$activeSlave)>>
	<<elseif $universalRulesChildrenBecomeBreeders > 0 && $arcologies[0].FSRepopulationFocus > 40 && $DefaultBirthDestination === "individually decided fates">>
		<<set _lostBabies = 1>>
		<<= BirthDestinationText("Orphanage",$activeSlave)>>
		<<set $breederOrphanageTotal += _curBabies>>
	<</if>>
	<<if _lostBabies != 1 && $DefaultBirthDestination === "individually decided fates">>

		<<link '...sent to a slave orphanage.'>>
			<<replace #_disposition>>
				<<set $slaveOrphanageTotal += _curBabies>>
				<<= BirthDestinationText("Orphanage",$activeSlave)>>
			<</replace>>
			<<set $nextButton = "Back">><<UpdateNextButton>> /* unlock Continue button */
		<</link>>
		<<if $arcologies[0].FSRepopulationFocus > 40>>

<<link '...sent to a breeder school.'>>
				<<replace #_disposition>>
					<<= BirthDestinationText("Breeder",$activeSlave)>>
					<<set $breederOrphanageTotal += _curBabies>>
				<</replace>>
				<<set $nextButton = "Back">><<UpdateNextButton>> /* unlock Continue button */
			<</link>>
			//Will cost a one-time <<print cashFormat(50)>>//
		<</if>>

<<link '...sent to a citizen school.'>>
			<<replace #_disposition>>
				<<= BirthDestinationText("Citizen",$activeSlave)>>
				<<set $activeSlave.devotion += 4, $citizenOrphanageTotal += _curBabies>>
			<</replace>>
			<<set $nextButton = "Back">><<UpdateNextButton>> /* unlock Continue button */
		<</link>>
		//Will cost <<print cashFormat(100)>> weekly//

<<link '...sent to be raised privately.'>>
			<<replace #_disposition>>
				The <<= BirthDestinationText("Private",$activeSlave)>>
				<<set $activeSlave.devotion += 6, $privateOrphanageTotal += _curBabies>>
			<</replace>>
			<<set $nextButton = "Back">><<UpdateNextButton>> /* unlock Continue button */
		<</link>>
		//Will cost <<print cashFormat(500)>> weekly//
	<<elseif _lostBabies != 1 && $DefaultBirthDestination != "individually decided fates">>
		<<set _call = 1>> $His <<if _curBabies > 1>>babies<<else>>baby<</if>> were sent to $DefaultBirthDestination.
				<<switch $DefaultBirthDestination>>
					<<case "an orphanage">>
						<<= BirthDestinationText("Orphanage",$activeSlave)>>
						<<set $slaveOrphanageTotal += _curBabies>>
					<<case "a citizen school">>
						<<= BirthDestinationText("Citizen",$activeSlave)>>
						<<set $activeSlave.devotion += 4, $citizenOrphanageTotal += _curBabies>>
					<<case "a private school">>
						<<= BirthDestinationText("Private",$activeSlave)>>
						<<set $activeSlave.devotion += 6, $privateOrphanageTotal += _curBabies>>
					<<case "the market">>
						<<= BirthDestinationText("Sold",$activeSlave)>>
				<</switch>>
	<<else>>
		<<set $nextButton = "Back">><<UpdateNextButton>> /* unlock Continue button */
	<</if>>

<</if>>

<<if _curBabies+_cToIncub+_cToNursery < 1>>
	/* Reaction for no live babies here. Placeholder.*/
<<elseif $activeSlave.fetish != "mindbroken" && $activeSlave.fuckdoll == 0>>

	<<if $activeSlave.pregSource == -1>>
		<<if $activeSlave.devotion <= 20 && $activeSlave.weekAcquired > 0>>
			$He @@.mediumorchid;despises@@ you for using $his body to bear your children.
			<<set $activeSlave.devotion -= 10>>
		<<elseif $activeSlave.devotion > 50>>
			$He's @@.hotpink;so proud@@ to have successfully carried children for you.
			<<set $activeSlave.devotion += 3>>
		<</if>>
	<</if>>
	<<if $activeSlave.fetish == "pregnancy">>
		$He's a little disappointed $he didn't get to give birth, but can't wait to get pregnant again.
	<<elseif ($activeSlave.devotion > 50)>>
		$He is @@.hotpink;pleased by this stark development,@@ since $he is so attentive to your will. $He also expects $he'll be able to fuck better now.
		<<set $activeSlave.devotion += 4>>
	<<elseif ($activeSlave.devotion > 20)>>
		$He is broken enough to accept your control of $his pregnancies.
	<<elseif ($activeSlave.devotion >= -20)>>
		$He would have preferred to give birth when $he was ready and is @@.gold;sensibly fearful@@ of your total power over $his body.
		<<set $activeSlave.trust -= 5>>
	<<else>>
		$He does not understand the realities of $his life as a slave at a core level, so $he's @@.mediumorchid;terrified and angry@@ that you decided to cut short $his pregnancy. $He is @@.gold;sensibly fearful@@ of your total power over $his body.
		<<set $activeSlave.trust -= 5, $activeSlave.devotion -= 5>>
	<</if>>
<</if>>

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

	<<if $activeSlave.breedingMark == 1 && ($activeSlave.pregSource == -1 || $activeSlave.pregSource == -6) && $propOutcome == 1>>
		The Societal Elite @@.green;are pleased@@ at the new additions to their class.
		<<set $failedElite -= 2*_curBabies>>
	<<else>>
		The Societal Elite @@.red;are disappointed@@ that you would allow subhuman filth to dirty society under your watch. Society @@.red;frowns@@ on the unwelcome addition of more subhumans into the world.
		<<if $eugenicsFullControl != 1>>
			<<set $failedElite += 5*_curBabies>>
		<</if>>
		<<set $rep -= 10*_curBabies>>
	<</if>>
<</if>>

Since $his <<if $activeSlave.mpreg == 1>>ass<<else>>vagina<</if>> was spared from childbirth, @@.lime;it retained its tightness.@@
<<if ($PC.medicine >= 100)>>
	Since you @@.springgreen;performed the surgery yourself,@@ and you do artist's work, $his health is @@.green;less affected@@ by the surgery than it would have been if you'd paid some hack to do it remotely.
	<<if $activeSlave.fetish != "mindbroken" && $activeSlave.fuckdoll == 0>>
		$He went into the surgery very aware that you were performing it manually.
		<<if ($activeSlave.devotion < _oldDevotion)>>
			<<if ($activeSlave.devotion > 50)>>
				Though $he is unhappy with the results, $he consoles $himself with the knowledge that you cared enough to do it personally.
			<<elseif ($activeSlave.devotion >= -20)>>
				$He is @@.gold;even more afraid@@ of you afterward than $he would otherwise be. You must seem a cruel and near-omnipotent power to $him.
				<<set $activeSlave.trust -= 5>>
			<<else>>
				$He is @@.mediumorchid;even more hateful@@ of you afterward than $he would otherwise be. It must seem to $him that $he's nothing more than a test subject to you.
				<<set $activeSlave.devotion -= 5>>
			<</if>>
		<<else>>
			<<if ($activeSlave.devotion > 50)>>
				Since $he's happy with the results, $he's almost beside $himself with @@.hotpink;gratitude,@@ and filled with @@.mediumaquamarine;admiration@@ of your skill.
				<<set $activeSlave.devotion += 4, $activeSlave.trust += 4>>
			<<elseif ($activeSlave.devotion >= -20)>>
				$He is quite struck by how you performed the surgery personally. $He admires your refusal to be one of the idle rich, and @@.hotpink;likes you more.@@
				<<set $activeSlave.devotion += 5>>
			<<else>>
				$He knows that $he should be grateful to you for performing the surgery personally, but the emotional turmoil of the occasion is too much for $him, and the realization makes little lasting impact.
			<</if>>
		<</if>>
	<</if>>
<<else>>
	As with all surgery @@.red;$his health has been slightly affected.@@
	<<set $activeSlave.health -= 5>>
<</if>>
<<if $activeSlave.wombImplant == "restraint">>
	The uterine support mesh built into $his womb was irreversibly damaged and had to be carefully extracted. Such an invasive surgery carried @@.red;major health complications.@@
	<<set $activeSlave.health -= 30, $activeSlave.wombImplant = "none">>
<</if>>

<<if $activeSlave.womb.length == 0>> /* Only if pregnancy is really ended... */
	<<if lastPregRule($activeSlave,$defaultRules)>><<set $activeSlave.preg = -1>><<else>><<set $activeSlave.preg = 0>><</if>>
	<<set $activeSlave.pregType = 0>>
	<<set $activeSlave.pregSource = 0>>
	<<set $activeSlave.pregKnown = 0>>
	<<if $activeSlave.geneticQuirks.fertility+$activeSlave.geneticQuirks.hyperFertility >= 4>>
		<<set $activeSlave.pregWeek = -2>>
	<<elseif $activeSlave.geneticQuirks.hyperFertility > 1>>
		<<set $activeSlave.pregWeek = -3>>
	<<else>>
		<<set $activeSlave.pregWeek = -4>>
	<</if>>
	<<set $activeSlave.labor = 0>>
	<<if $activeSlave.broodmother == 0 && $bellyImplants == 1>>

		Since $he is already in surgery and $his body already stretched, it would be possible to preserve $his pregnant appearance via fillable implant.
		<<link "Do it.">>

			<<replace "#bir">>
				<<if $PC.medicine >= 100>><<set $activeSlave.health -= 5>><<else>><<set $activeSlave.health -= 10>><</if>>
				Installation of belly implant is relatively simple procedure. Using the fact that $his body and internal organs have already adapted to pregnancy, it's possible to greatly expand the initial size of implant. $He will still look pregnant post surgery and recovery.

				<<if ($activeSlave.devotion > 50)>>
					$He leaves the surgery with $his belly still very gravid, and as such, knows you put something into $his womb replacing $his prior natural pregnancy. $He is @@.hotpink;curious@@ about the details of the implant, and eagerly awaits to see the end result.
					<<set $activeSlave.devotion += 4>>
				<<elseif ($activeSlave.devotion >= -20)>>
					$He leaves the surgery with $his belly still very gravid, and as such, knows you put something into $his womb replacing $his prior natural pregnancy. $He understands the realities of $his life as a slave, but $he is still surprised at what now resides in $his womb. $He is @@.gold;sensibly fearful@@ of your total power over $his body.
					<<set $activeSlave.trust -= 5>>
				<<else>>
					$He leaves the surgery with $his belly still very gravid, and as such, knows you put something into $his womb replacing $his prior natural pregnancy. $He does not understand the realities of $his life as a slave at a core level, so $he's @@.mediumorchid;terrified and angry@@ at the potential that $he's been turned in some sort of freak. Even after what has been implanted into $his womb is explained to $him, $he is no less defiant; though $he is relieved that procedure is reversible and there is no truly permanent damage. $He is @@.gold;sensibly fearful@@ of your total power over $his body.
					<<set $activeSlave.trust -= 5>>
					<<set $activeSlave.devotion -= 5>>
				<</if>>
				<<set $activeSlave.bellyImplant = Math.floor(_beforeSize)>>
				<<if $activeSlave.bellyImplant > 800000 && $arcologies[0].FSTransformationFetishistResearch > 0>>
					<<set $activeSlave.bellyImplant = 800000>>
				<<elseif $activeSlave.bellyImplant > 130000 && $arcologies[0].FSTransformationFetishistResearch < 1>>
					<<set $activeSlave.bellyImplant = 130000>>
				<</if>>
				<<set $activeSlave.preg = -2>>
				<<run SetBellySize($activeSlave)>>
			<</replace>>
		<</link>>
	<</if>>
<</if>>
<<set $activeSlave.cSec = 1>>
<<run SetBellySize($activeSlave)>>
<<set $reservedChildren = FetusGlobalReserveCount("incubator")>>
<<set $reservedChildrenNursery = FetusGlobalReserveCount("nursery")>>


code:
:: Customize Slave Trade [nobr]

<<if ndef $nationalities>>
	<<set $nationalities = {}>>
<</if>>
<<if ndef $baseControlsFilter>>
	<<set $baseControlsFilter = "all">>
<</if>>
<<if ndef $customWA>>
	<<set $customWA = 0>>
<</if>>

When civilization turned upon itself, some countries readily took to enslaving their own. Others were raided by their neighbors for their desirable, and profitable, citizens. Which nationalities were most affected by the booming slave trade, and thus, likely to appear in your local slave markets?

''+ to increase pop. – to reduce pop. 0 to remove entirely''

<<include "Basenationalities Controls">>

[[Reset filters|passage()][$baseControlsFilter = "all"]] | [[Clear all nationalities|passage()][$nationalities = {}]]

Vanilla presets:

<>

Mod presets:

<>


code:
:: Elite Slave [nobr]

<<set $nextButton = "Back", $nextLink = "Buy Slaves", $returnTo = "Buy Slaves">>
<<set $showEncyclopedia = 1, $encyclopedia = "Slave Schools">>

You check to see if any potential breeding slaves are on auction. <<if $eliteAuctioned == 1>>There are none available right now, but there probably will be next week.<<else>>

<<set $eliteAuctioned = 1>>

<<if $arcologies[0].FSMaturityPreferentialist > 20>>
	<<set $activeSlaveOneTimeMinAge = 25>>
<<else>>
	<<set $activeSlaveOneTimeMinAge = $fertilityAge>>
<</if>>
<<if $arcologies[0].FSYouthPreferentialist > 20>>
	<<set $activeSlaveOneTimeMaxAge = 23>>
<<else>>
	<<set $activeSlaveOneTimeMaxAge = 40>>
<</if>>
<<set $one_time_age_overrides_pedo_mode = 1>>
<<set $oneTimeDisableDisability = 1>>
<<if $arcologies[0].FSSupremacist != "unset">>
	<<set $fixedRace = $arcologies[0].FSSupremacistRace>>
<<elseif $arcologies[0].FSSubjugationist != "unset">>
	<<set _races = ["amerindian", "asian", "asian", "asian", "asian", "asian", "asian", "black", "black", "indo-aryan", "indo-aryan", "latina", "latina", "latina", "malay", "malay", "middle eastern", "middle eastern", "mixed race", "pacific islander", "semitic", "semitic", "southern european", "southern european", "white", "white", "white", "white", "white", "white", "white", "white", "white"]>>
	<<set _races = _races.delete($arcologies[0].FSSubjugationistRace)>>
	<<set $fixedRace = _races.random()>>
<</if>>
<<include "Generate XX Slave">>
<<set $activeSlave.origin = "She was purchased from a member of the Elite.">>
<<set $activeSlave.career = "a slave">>
<<set $activeSlave.prestige = 1>>
<<set $activeSlave.trust = random(60,100)>>
<<set $activeSlave.devotion = random(60,100)>>
<<if $arcologies[0].FSPaternalist > 20>>
	<<set $activeSlave.health = 100>>
	<<set $activeSlave.intelligenceImplant = 30>>
<<else>>
	<<set $activeSlave.health = random(10,60)>>
	<<set $activeSlave.intelligenceImplant = either(0,15,30)>>
<</if>>
<<if $arcologies[0].FSSlimnessEnthusiast > 20>>
	<<if $arcologies[0].FSHedonisticDecadence > 20 || $arcologies[0].FSPhysicalIdealistLaw == 1>>
		<<set _weightMax = 30>>
	<<else>>
		<<set _weightMax = 0>>
	<</if>>
<<elseif $arcologies[0].FSPhysicalIdealistLaw == 1>>
	<<set _weightMax = 30>>
<<else>>
	<<set _weightMax = 100>>
<</if>>
<<if $arcologies[0].FSHedonisticDecadence > 20>>
	<<if $arcologies[0].FSSlimnessEnthusiast > 20>>
		<<set _weightMin = 10>>
	<<else>>
		<<set _weightMin = 95>>
	<</if>>
<<else>>
	<<set _weightMin = -70>>
<</if>>
<<set $activeSlave.weight = random(_weightMin, _weightMax)>>
<<if $arcologies[0].FSPhysicalIdealist > 20>>
	<<if $arcologies[0].FSPhysicalIdealistLaw == 1>>
		<<set _musclesMin = 20>>
		<<set _musclesMax = 50>>
	<<else>>
		<<set _musclesMin = 95>>
		<<set _musclesMax = 100>>
	<</if>>
<<elseif $arcologies[0].FSHedonisticDecadence > 20>>
	<<if $arcologies[0].FSHedonisticDecadenceStrongFat == 1>>
		<<set _musclesMin = 50>>
		<<set _musclesMax = 100>>
	<<else>>
		<<set _musclesMin = -100>>
		<<set _musclesMax = 50>>
	<</if>>
<<else>>
	<<set _musclesMin = -50>>
	<<set _musclesMax = 50>>
<</if>>
<<set $activeSlave.muscles = random(_musclesMin, _musclesMax)>>
<<if $arcologies[0].FSPhysicalIdealist > 20>>
	<<set $activeSlave.height += 5>>
<</if>>
<<set $activeSlave.eyes = 1>>
<<set $activeSlave.hears = 0>>
<<if ($activeSlave.weight < -30)>>
	<<set $activeSlave.waist = random(-55,0)>>
<<elseif $activeSlave.physicalAge < 13>>
	<<set $activeSlave.waist = random(-25,25)>>
<<elseif ($activeSlave.weight <= 30)>>
	<<set $activeSlave.waist = random(-45,5)>>
<<elseif ($activeSlave.weight <= 160)>>
	<<set $activeSlave.waist = random(-20,10)>>
<</if>>
<<if $activeSlave.voice < 2>>
	<<set $activeSlave.voice++>>
<</if>>
<<if $activeSlave.accent > 1>>
	<<set $activeSlave.accent = 1>>
<</if>>
<<if $activeSlave.shoulders > 0>>
	<<set $activeSlave.shoulders -= 2>>
<</if>>
<<if $arcologies[0].FSAssetExpansionist > 20>>
	<<set $activeSlave.boobs = (random(50,500) * 100)>>
	<<set $activeSlave.butt = random(6,20)>>
	<<if $arcologies[0].FSTransformationFetishist > 20>>
		<<set $activeSlave.boobsImplant = $activeSlave.boobs-200>>
		<<set $activeSlave.buttImplant = $activeSlave.butt-1>>
	<</if>>
<<elseif $arcologies[0].FSSlimnessEnthusiast > 20>>
	<<set $activeSlave.boobs = (random(3,5) * 100)>>
	<<set $activeSlave.butt = random(0,2)>>
	<<if $arcologies[0].FSTransformationFetishist > 20>>
		<<set $activeSlave.boobsImplant = $activeSlave.boobs-50>>
		<<if $activeSlave.butt > 1>>
			<<set $activeSlave.buttImplant = 1>>
		<</if>>
	<</if>>
<<else>>
	<<set $activeSlave.boobs = (random(5,10) * 100)>>
	<<set $activeSlave.butt = random(3,7)>>
	<<if $arcologies[0].FSTransformationFetishist > 20>>
		<<set $activeSlave.boobsImplant = $activeSlave.boobs-200>>
		<<set $activeSlave.buttImplant = $activeSlave.butt-1>>
	<</if>>
<</if>>
<<if $arcologies[0].FSTransformationFetishist > 20>>
	<<set $activeSlave.boobShape = "normal">>
<<else>>
	<<set $activeSlave.boobShape = either("perky", "perky", "torpedo-shaped", "wide-set")>>
<</if>>
<<if $activeSlave.nipples == "tiny">>
	<<set $activeSlave.nipples = "puffy">>
<</if>>
<<set $activeSlave.face = 100>>
<<set $activeSlave.faceShape = either("cute", "cute", "exotic", "exotic", "normal", "normal", "sensual", "sensual", "sensual")>>
<<set $activeSlave.lips = random(45,75)>>
<<if $arcologies[0].FSTransformationFetishist > 20>>
	<<set $activeSlave.lips += 25>>
	<<set $activeSlave.lipsImplant = 25>>
<</if>>
<<if $activeSlave.teeth != "normal" && $activeSlave.physicalAge >= 12>>
	<<set $activeSlave.teeth = "normal">>
<</if>>
<<if $activeSlave.vaginaLube == 0>>
	<<set $activeSlave.vaginaLube++>>
<</if>>
<<set $activeSlave.preg = 0>>
<<set $activeSlave.birthsTotal = either(0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 3, 4)>>
<<if $arcologies[0].FSPastoralist > 20 || $activeSlave.birthsTotal > 0>>
	<<set $activeSlave.lactation = 1>>
	<<if $arcologies[0].FSPastoralist > 20>>
		<<set $activeSlave.lactationAdaptation = $arcologies[0].FSPastoralist>>
	<<else>>
		<<set $activeSlave.lactationAdaptation = Math.min($activeSlave.birthsTotal*10, 100)>>
	<</if>>
<<else>>
	<<set $activeSlave.lactation = either(0, 0, 0, 0, 1)>>
<</if>>
<<if $activeSlave.lactation > 0>>
	<<set $activeSlave.lactationDuration = 2>>
<</if>>
<<if $activeSlave.birthsTotal > 0>>
	<<set $activeSlave.vagina = random(2,3)>>
	<<set $activeSlave.pregWeek = either(-4, -3, -2, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)>>
<<else>>
	<<set $activeSlave.vagina = random(0,3)>>
	<<set $activeSlave.pregWeek = 0>>
<</if>>
<<if $activeSlave.hips <= 0>>
	<<set $activeSlave.hips = 1>>
<</if>>
<<if $arcologies[0].FSGenderRadicalist > 20>>
	<<set $activeSlave.dick = random(2,5)>>
	<<set $activeSlave.balls = random(2,10)>>
	<<set $activeSlave.scrotum = $activeSlave.balls>>
	<<set $activeSlave.prostate = random(1,3)>>
<</if>>
<<set $activeSlave.makeup = 2>>
<<set $activeSlave.nails = 1>>
<<if $activeSlave.vagina == 0>>
	<<set $activeSlave.vaginalSkill = 30>>
<<else>>
	<<set $activeSlave.vaginalSkill = 100>>
<</if>>
<<if $activeSlave.anus == 0>>
	<<set $activeSlave.analSkill = 10>>
<<else>>
	<<set $activeSlave.analSkill = 70>>
<</if>>
<<set $activeSlave.oralSkill = 100>>
<<set $activeSlave.vaginalAccessory = "chastity belt">>
<<set $activeSlave.intelligence = random(51,100)>>
<<set $activeSlave.attrKnown = 1>>
<<set $activeSlave.fetishKnown = 1>>
<<set $activeSlave.behavioralQuirk = "confident">>
<<set $activeSlave.sexualQuirk = either("caring", "caring", "gagfuck queen", "perverted", "romantic", "romantic", "strugglefuck queen", "tease", "unflinching")>>
<<set $activeSlave.pubertyXX = 1>>
<<set $activeSlave.breedingMark = 1>>

<<slaveCost $activeSlave>>

It will take <<print cashFormat($slaveCost)>> to win the auction.

<<if $cash >= $slaveCost>>
	[[Place that bid|New Slave Intro][cashX(forceNeg($slaveCost), "slaveTransfer", $activeSlave),$nextButton = "Continue",$nextLink = "AS Dump",$returnTo = "Main"]]
<<else>>
	//You lack the necessary funds to place a winning bid.//
<</if>>

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

<</if>>


code:
:: eliteTakeOver [nobr]

<<set $nextButton = " ">>
<<setLocalPronouns $Bodyguard>>

<<set _pregSurrender = 0>>
/* preg/lobotomization check */
You knew this day would come. Surrounding yourself with powerful people has its boons, but also poses a distinct threat. You've heard them murmuring when you enter the room, you've seen them excuse themselves from your presence, and lately they've been overtly hostile. The Societal Elite have turned on you.

You look up from your desk as the locked door to your office unseals, and a dozen individuals brazenly walk into your view.<<if $Bodyguard != 0>> $Bodyguard.slaveName stands between you and them. A single glare from the leader of the bunch and she backs off, eyes to the ground.<</if>>

<<if $PC.pregSource == -1 || $PC.pregSource == -6>>
	<<if $PC.refreshmentType == 0>>
		Taking a drag from a fresh $PC.refreshment,
	<<elseif $PC.refreshmentType == 1>>
		Taking a drink of a fresh glass of $PC.refreshment,
	<<elseif $PC.refreshmentType == 2>>
		Taking a bite of a fresh $PC.refreshment,
	<<elseif $PC.refreshmentType == 3>>
		Doing a line of $PC.refreshment,
	<<elseif $PC.refreshmentType == 4>>
		Injecting a hit of $PC.refreshment into your arm,
	<<elseif $PC.refreshmentType == 5>>
		Swallowing a $PC.refreshment,
	<<elseif $PC.refreshmentType == 6>>
		Placing a tab of $PC.refreshment under your tongue,
	<</if>>
	you greet your rather unwelcome guests.

	"You are no longer worthy of being a part of our society. But you carry within you one of our heirs. A conundrum for some, but we have already solved that problem."

	What was that last thing he said? It's getting hard to think right. The $PC.refreshment... Drugged... You collapse onto your desk, unconscious.

	<<if $Bodyguard != 0>>
		A sharp pain and a rush of adrenaline drags you back to your senses. Sneaking a peak, you witness $Bodyguard.slaveName valiantly trying to protect you, despite <<if $Bodyguard.amp < 0>>$his cybernetics being locked down<<else>>the overwhelming odds<</if>>. As she and their leader struggle closer to your desk, his revolver and a syringe are dislodged onto your desk. It seems drugging you wasn't their first thought. With $Bodyguard.slaveName's risky gamble, your fate has fallen back into your hands.
	<<else>>
		You'll spend the rest of your life a breeder to the Societal Elite; blinded and muted. More than a slave, but still less than your master. Life isn't so bad, your two most devoted slaves were taken along to keep you happy, and you are treated quite well, possibilities considered. Though once your eggs dry up, odds are your little remaining usefulness will be at an end. Best not to think too much into it.
		<<set _pregSurrender = 1>>
		<<set $ui = "start">>

		''GAME OVER''
	<</if>>
<<elseif $PC.pregSource != -6>>
	The leader reaches into his jacket and extracts a syringe, you recognize it as a powerful drug used in lobotomies, and places it to your left. From his hip he pulls a revolver, six-chambered, and loads five bullets, spins the chamber, and places it to your right.

	"You are no longer worthy of being a part of our society. You know you can't be allowed to spread any information. But we are not merciless; one of our members has taken an interest in having you as her pet. You may choose to lose your mind, and service her until she tires of you, or gamble for your life and serve her anyway. Now decide."
<</if>>

<<if _pregSurrender == 0>>
	<<set $finalChoice = "final stand">>
	The choice is simple — you will not be a slave.

	You decide to make a final stand.

	<<if $Bodyguard != 0>>

		<<if $PC.pregSource == -1 || $PC.pregSource == -6>>
			$Bodyguard.slaveName is already doing everything in $his power to save you.
		<<else>>
			<<link "Attempt to signal $Bodyguard.slaveName, your bodyguard">>
				<<set $finalChoice = "bodyguard">>
				<<replace "#fate">>
					attempt to signal $Bodyguard.slaveName, your bodyguard.
				<</replace>>
			<</link>>
		<</if>>
	<</if>>
	<<if $mercenaries >= 1>>

		<<link "Send a message to the leader of the $mercenariesTitle">>
			<<set $finalChoice = "mercenaries">>
			<<replace "#fate">>
				send a message to the leader of the $mercenariesTitle.
			<</replace>>
		<</link>>
	<</if>>
	<<if $SF.Toggle && $SF.Active >= 1>>

 <<set _N = SFC()>>
		<<link "Send a message to _N">>
			<<set $finalChoice = "SF">>
			<<replace "#fate">>
				send a message to <<print SFC()>>.
			<</replace>>
		<</link>>
	<</if>>
	<<if $PC.pregSource != -6 && $PC.pregSource != -1>>

		<<link "Try and enrage them.">>
			<<set $finalChoice = "enrage">>
			<<replace "#fate">>
				try and enrage them, baiting them into a vulnerable position.
			<</replace>>
		<</link>>
	<</if>>

	<<link "Make a final stand">>
		<<set $finalChoice = "final stand">>
		<<replace "#fate">>
			make a final stand.
		<</replace>>
	<</link>>

	<<link "Give in">>
		<<set $finalChoice = "give in">>
		<<replace "#fate">>
			give in.
		<</replace>>
	<</link>>

	<<link "Confirm">>
		<<goto "eliteTakeOverFight">>
	<</link>>
<</if>>


code:
:: eliteTakeOverFight [nobr]

<<set _shoot = 0>>
<<switch $finalChoice>>
<<case "bodyguard">>
	<<set _roll = random(0,100)>>
	<<if $career == "mercenary">>
		As a result of your prior experience as a mercenary you were able to successfully signal $Bodyguard.slaveName without the elites noticing.
		<<set $BodyguardHasSucessfullyRecivedSignal = 1>>
	<<elseif $PC.warfare >= 100 && _roll > 20>>
		As a result of your mastery of warfare you were able to successfully signal $Bodyguard.slaveName without the elites noticing.
		<<set $BodyguardHasSucessfullyRecivedSignal = 1>>
	<<elseif $PC.warfare >= 60 && _roll > 30>>
		As a result of your expertness of warfare you were able to successfully signal $Bodyguard.slaveName without the elites noticing.
		<<set $BodyguardHasSucessfullyRecivedSignal = 1>>
	<<elseif $PC.warfare >= 30 && _roll > 40>>
		As a result of having some skill in warfare you were able to successfully signal $Bodyguard.slaveName without the elites noticing.
		<<set $BodyguardHasSucessfullyRecivedSignal = 1>>
	<<elseif $PC.warfare >= 10 && _roll > 50>>
		As a result of having a small amount of skill in warfare you were able to successfully signal $Bodyguard.slaveName without the elite's noticing.
		<<set $BodyguardHasSucessfullyRecivedSignal = 1>>
	<<elseif $PC.warfare < 10 && _roll > 60>>
		By blind luck and what little you remember of your lessons in warfare are were able to successfully signal $Bodyguard.slaveName without the elites noticing.
		<<set $BodyguardHasSucessfullyRecivedSignal = 1>>
	<<else>>
		One of the elites shouts "What the fuck were you trying to do?" Well, there goes that option.
		<<set $BodyguardHasSucessfullyRecivedSignal = 0>>
	<</if>>

You then pick up the revolver and quickly take aim.
<<case "mercenaries">>

You send a quick message to the leader of your $mercenariesTitle, about your situation, then you pick up the revolver and quickly take aim.
	<<set $MercenariesMessageSent = 1>>
<<case "SF">>

You send a quick message to <<print SFC()> about your situation, then you pick up the revolver and quickly take aim.
	<<set $SpecialForcesMessageSent = 1>>
<<case "enrage">>
	<<if $PC.career != "wealth" && $PC.career != "engineer" && $PC.career != "medicine">>
		You know exactly what to say in order to enrage them.
		<<set _EliteEnraged = 1>>
	<<elseif random(0,100) > 50>>
		You manage to select the right words to enrage them.
		<<set _EliteEnraged = 1>>
	<<else>>
		You try to enrage them, but your words have had no effect.
		<<set _EliteEnraged = 0>>
	<</if>>

You then pick up the revolver and quickly take aim.
<<case "final stand">>
	You pick up the revolver and quickly take aim.
<<case "give in">>
	You pick up the revolver and hold the barrel to your temple.
<</switch>>

<<if $finalChoice == "give in">>
	<<if $PC.pregSource == -1 || $PC.pregSource == -6>> Screw their plans, you're out of here. <</if>>With a bang! you drop dead.
	<<set $ui = "start">>

	''GAME OVER''
<<else>>
	/* PC shooting */
	/* higher skill means a higher chance to hit due to lower requirements and if the elites are enraged they very slightly become easier targets. */
	/* 5/6 = 83% rounded down is the chance that it was loaded chamber (simplified version based off the wikipedia article) */

	/* variables: */
	/* Revolver */
	<<set _revolverChambers = 6>>
	<<set _revolverBullets = 5>>
	/*Elites */
	<<set $eliteTotal = 12>>
	<<set $eliteDead = 0>>
	<<set $eliteVegetable = 0>>

	/* To Hit chance */
	<<if $PC.pregSource == -1 || $PC.pregSource == -6>> /* still woozy */
		<<set _toHit = 56>>
	<<elseif $PC.career == "mercenary" || $PC.warfare == 100>>
		<<set _toHit = 83>>
	<<elseif $PC.warfare >= 60>>
		<<set _toHit = 76>>
	<<elseif $PC.warfare >= 30>>
		<<set _toHit = 67>>
	<<elseif $PC.warfare >= 10>>
		<<set _toHit = 60>>
	<<else>>
		<<set _toHit = 56>>
	<</if>>
	<<if _EliteEnraged == 1>>
		<<set _toHit += 5>>
	<</if>>

	/* shooting */
	/* in the end I removed the messages from the cycle. I don't think having 6 lines of "you shot" is pretty looking. Feel free to re add them in however */
	<<for _i = _revolverChambers; _i > 0; _i-->>
		<<if random(0,100) <= _toHit && _revolverBullets > 0>>
			<<set $eliteDead += 1, _revolverBullets -= 1>>
		<<elseif _revolverBullets > 0>>
			<<set _revolverBullets -= 1>>
		<</if>>
	<</for>>

	<<if $eliteDead >= 1>>

You managed to kill several elites in rapid succession, leaving the rest in shock and fear.
	<<elseif $eliteDead == 1>>

You managed to kill one elite, leaving the rest in shock and fear.
	<<else>>

Unfortunately you fail to kill a single elite.
	<</if>>

	/* syringe shot */
	<<set $eliteVegetable = 0>>
	<<set _druggedThrow = 0>>

	<<if $eliteDead > 0>>
		With $eliteDead elite's dead, you pick up the syringe from the desk and aim for the forehead of another.
	<<else>>
		Having failed to kill them with the revolver, in a desperate move you pick up the syringe from the desk and aim for the forehead of one of the elite.
	<</if>>
	<<if $PC.pregSource == -1 || $PC.pregSource == -6>>But there's two of them... Shaking your head, you realize it's the drugs messing with you. You just need to focus.<</if>>
	<<set _hitRoll = (random(0,100) - _druggedThrow)>>
	<<if $career == "mercenary" && _hitRoll > 0>>
		With your prior history as a mercenary, making the throw is child's play.
		<<set _SyringeHeadShot = 1>>
	<<elseif $PC.warfare >= 100>>
		<<if _hitRoll > 50>>
			As a result of your mastery of warfare you successfully made the throw.
			<<set _SyringeHeadShot = 1>>
		<<else>>
			Unfortunately you miss the shot.
			<<set _SyringeHeadShot = 0>>
		<</if>>
	<<elseif $PC.warfare >= 60>>
		<<if _hitRoll > 60>>
			As a result of your combat expertise you successfully made the throw.
			<<set _SyringeHeadShot = 1>>
		<<else>>
			Unfortunately you miss the shot.
			<<set _SyringeHeadShot = 0>>
		<</if>>
	<<elseif $PC.warfare >= 30>>
		<<if _hitRoll > 70>>
			As you have some skill, you successfully made the throw.
			<<set _SyringeHeadShot = 1>>
		<<else>>
			Unfortunately you miss the shot.
			<<set _SyringeHeadShot = 0>>
		<</if>>
	<<elseif $PC.warfare >= 10>>
		<<if _hitRoll > 80>>
			Your small amount of skill assisted you in making the throw.
			<<set _SyringeHeadShot = 1>>
		<<else>>
			Unfortunately you miss the shot.
			<<set _SyringeHeadShot = 0>>
		<</if>>
	<<elseif $PC.warfare < 10>>
		<<if _hitRoll > 90>>
			By blind luck you successfully made the throw.
			<<set _SyringeHeadShot = 1>>
		<<else>>
			Unfortunately you miss the shot.
			<<set _SyringeHeadShot = 0>>
		<</if>>
	<</if>>
	<<if _SyringeHeadShot == 1>>

		Picking up the spent revolver, you aim for the syringe's plunger.
		<<if $career == "mercenary">>
			With your prior history as a mercenary, making the throw is child's play.
			<<set _SpentRevolverHitSyringePlunger = 1>>
		<<elseif $PC.warfare >= 100 && random(0,100) > 50>>
			As a result of your mastery of warfare you successfully made the throw.
			<<set _SpentRevolverHitSyringePlunger = 1>>
		<<elseif $PC.warfare >= 60 && random(0,100) > 60>>
			As a result of your expertness of warfare you successfully made the throw.
			<<set _SpentRevolverHitSyringePlunger = 1>>
		<<elseif $PC.warfare >= 30 && random(0,100) > 70>>
			As you have some skill you successfully made the throw.
		<<set _SpentRevolverHitSyringePlunger = 1>>
		<<elseif $PC.warfare >= 10 && random(0,100) > 80>>
			Your small amount of skill assisted you in making the throw.
			<<set _SpentRevolverHitSyringePlunger = 1>>
		<<elseif $PC.warfare < 10 && random(0,100) > 90>>
			By blind luck you successfully made the throw.
			<<set _SpentRevolverHitSyringePlunger = 1>>
		<<else>>
			Unfortunately you miss the shot.
			<<set _SpentRevolverHitSyringePlunger = 0>>
		<</if>>
	<</if>>
	<<if _SpentRevolverHitSyringePlunger == 1>>

		<<if random(0,100) > 50>>
			The target dies of nervous system overload brought about by the drug.
			<<set $eliteDead +=1>>
		<<else>>
			The target is still alive but is nothing more than a vegetable.
			<<set $eliteVegetable = 1>>
		<</if>>
	<</if>>
<</if>>

<<set $eliteLeft = $eliteTotal - $eliteDead - $eliteVegetable>>

/* if the player has managed to make enough damage to the elite and the rep is high enough the citizens will come to save the PC */
/* this is to give reason to exist for the "enrage" and "last stand" option */
/* result 							*/
/* $eliteFate:						*/
/* 		killed = 0 					*/
/*		enslaved = 1 				*/
/* 		had fun (and enslaved) = 2 	*/
<<if $BodyguardHasSucessfullyRecivedSignal == 1>>
	$Bodyguard.slaveName asks "<<Master>>, what should I do with the <<if $eliteLeft < $eliteTotal>>remaining<</if>> 'elite'?"

	<<link "Open fire">>
		<<set $eliteFate = 0>>
		<<goto "eliteTakeOverResult">>
	<</link>>

	<<link "Enslave them">>
		<<set $eliteFate = 1>>
		<<goto "eliteTakeOverResult">>
	<</link>>

<<link "Have fun with them them">>
		<<set $eliteFate = 2>>
		<<goto "eliteTakeOverResult">>
	<</link>>
<<elseif $MercenariesMessageSent == 1>>
	It is now that a squad of $mercenariesTitle makes their entrance, pointing their guns at the <<if $eliteLeft < $eliteTotal>>remaining<</if>> elite.
	The officer asks "Your orders, <<= properTitle()>>?"

	<<link "Open fire">>
		<<set $eliteFate = 0>>
		<<goto "eliteTakeOverResult">>
	<</link>>

	<<link "Enslave them">>
		<<set $eliteFate = 1>>
		<<goto "eliteTakeOverResult">>
	<</link>>

<<link "Have fun with them them">>
		<<set $eliteFate = 2>>
		<<goto "eliteTakeOverResult">>
	<</link>>
<<elseif $SpecialForcesMessageSent>>
	It is now that a squad of $SF.Lower makes their entrance, pointing their guns at the <<if $eliteLeft < $eliteTotal>>remaining<</if>> elite.
	The officer asks "Your orders, <<= properTitle()>>?"

	<<link "Open fire">>
		<<set $eliteFate = 0>>
		<<goto "eliteTakeOverResult">>
	<</link>>

	<<link "Enslave them">>
		<<set $eliteFate = 1>>
		<<goto "eliteTakeOverResult">>
	<</link>>

<<link "Have fun with them them">>
		<<set $eliteFate = 2>>
		<<goto "eliteTakeOverResult">>
	<</link>>
<<elseif $Bodyguard != 0>>
	<<setLocalPronouns $Bodyguard>>
	It is now that $Bodyguard.slaveName makes $his entrance, pointing $his guns at the <<if $eliteLeft < $eliteTotal>>remaining<</if>> elite.
	$He then asks, "<<Master>>, what should I do with the <<if $eliteLeft < $eliteTotal>>remaining<</if>> 'elite' left?"

	<<link "Open fire">>
		<<set $eliteFate = 0>>
		<<goto "eliteTakeOverResult">>
	<</link>>

	<<link "Enslave them">>
		<<set $eliteFate = 1>>
		<<goto "eliteTakeOverResult">>
	<</link>>

<<link "Have fun with them them">>
		<<set $eliteFate = 2>>
		<<goto "eliteTakeOverResult">>
	<</link>>
<<elseif $eliteLeft <= 9 && $rep >= 10000>>
	Some of the citizens waiting outside your penthouse to see you hear the ruckus and rush inside, worried. Time freezes for a few seconds, while the remaining elite recover from their terror and the citizens digest the gory scene in front of them.
	The newcomers are quick to take your side. In little time the elites, outgunned and outnumbered, are neutralized.

One of the more courageous citizens approaches you and asks "<<= properTitle()>>, what should we do with them?"

	<<link "Open fire">>
		<<set $eliteFate = 0>>
		<<goto "eliteTakeOverResult">>
	<</link>>

	<<link "Enslave them">>
		<<set $eliteFate = 1>>
		<<goto "eliteTakeOverResult">>
	<</link>>

<<link "Have fun with them them">>
		<<set $eliteFate = 2>>
		<<goto "eliteTakeOverResult">>
	<</link>>
<<else>>
	With nothing else left, you remain powerless to stop the <<if $eliteLeft < $eliteTotal>>remaining<</if>> elite, who quickly capture and enslave you. Your personal story may continue, but the part of it worthy of retelling has now ended.
	<<set $ui = "start">>

	''GAME OVER''
<</if>>