code:
:: RE royal blood [nobr]

<<set $nextButton = "Continue", $nextLink = "RIE Eligibility Check", $returnTo = "RIE Eligibility Check">>

/*princess*/
<<set $activeSlaveOneTimeMinAge = 16>>
<<set $activeSlaveOneTimeMaxAge = 19>>
<<set $oneTimeDisableDisability = 1>>
<<set $activeSlave = GenerateNewSlave("XX")>>
<<set $activeSlave.career = "a princess">>
<<if $realRoyalties == 1>>
	<<set $activeSlave.nationality = setup.royalNationalities.random()>>
	<<run nationalityToRace($activeSlave)>>
<</if>>
<<set $activeSlave.prestige = 2>>
<<set $activeSlave.prestigeDesc = "$He was the princess of an ancient kingdom.">>
<<set $activeSlave.devotion = random(-80,-60)>>
<<set $activeSlave.trust = random(-50,-60)>>
<<set $activeSlave.face = random(25,100)>>
<<set $activeSlave.boobs = either(100, 200, 300)>>
<<set $activeSlave.vagina = 0>>
<<set $activeSlave.ovaries = 1>>
<<set $activeSlave.preg = -1>>
<<set $activeSlave.pubicHStyle = "waxed">>
<<set $activeSlave.underArmHStyle = "waxed">>
<<set $activeSlave.hips = 0>>
<<set $activeSlave.butt = random(1,2)>>
<<set $activeSlave.dick = 0>>
<<set $activeSlave.foreskin = 0>>
<<set $activeSlave.balls = 0>>
<<set $activeSlave.anus = 0>>
<<set $activeSlave.weight = 0>>
<<set $activeSlave.intelligence = random(15,100)>>
<<set $activeSlave.intelligenceImplant = 15>>
<<set $activeSlave.skill.entertainment = 45>>
<<set $activeSlave.skill.anal = 0>>
<<set $activeSlave.skill.oral = 0>>
<<set $activeSlave.skill.whoring = 0>>
<<set $activeSlave.canRecruit = 0>>
<<run setHealth($activeSlave, jsRandom(30, 60), 0, 0, 0, 0)>>
<<set $activeSlave.behavioralFlaw = either("arrogant", "bitchy")>>
<<set _princess = clone($activeSlave)>>
<<setLocalPronouns _princess>>
<<if $realRoyalties == 1>>
	<<if _princess.nationality == "Japanese">>
		<<set _princess.birthSurname = "Yamato">>
		<<set _princess.slaveSurname = "Yamato">>
	<<elseif _princess.nationality == "Luxembourgian">>
		<<set _princess.birthSurname = "Luxembourg-Nassau">>
		<<set _princess.slaveSurname = "Luxembourg-Nassau">>
	<<elseif _princess.nationality == "Belgian">>
		<<set _princess.birthSurname = "Saxe-Coburg and Gotha">>
		<<set _princess.slaveSurname = "Saxe-Coburg and Gotha">>
	<<elseif _princess.nationality == "Danish">>
		<<set _princess.birthSurname = "Glücksburg">>
		<<set _princess.slaveSurname = "Glücksburg">>
	<<elseif _princess.nationality == "Dutch">>
		<<set _princess.birthSurname = "Orange-Nassau">>
		<<set _princess.slaveSurname = "Orange-Nassau">>
	<<elseif _princess.nationality == "Swedish">>
		<<set _princess.birthSurname = "Bernadotte">>
		<<set _princess.slaveSurname = "Bernadotte">>
	<<elseif _princess.nationality == "Spanish">>
		<<set _princess.birthSurname = "Bourbon">>
		<<set _princess.slaveSurname = "Bourbon">>
	<<elseif _princess.nationality == "Norwegian">>
		<<set _princess.birthSurname = "Glücksburg">>
		<<set _princess.slaveSurname = "Glücksburg">>
	<<elseif _princess.nationality == "Cambodian">>
		<<set _princess.birthSurname = "Norodom">>
		<<set _princess.slaveSurname = "Norodom">>
	<<elseif _princess.nationality == "Moroccan">>
		<<set _princess.birthSurname = "Alawi">>
		<<set _princess.slaveSurname = "Alawi">>
	<<elseif _princess.nationality == "Omani">>
		<<set _princess.birthSurname = "Al Said">>
		<<set _princess.slaveSurname = "Al Said">>
	<<elseif _princess.nationality == "Jordanian">>
		<<set _princess.birthSurname = "Hāshim">>
		<<set _princess.slaveSurname = "Hāshim">>
	<<elseif _princess.nationality == "Bruneian">>
		<<set _princess.birthSurname = "Bolkiah">>
		<<set _princess.slaveSurname = "Bolkiah">>
	<<elseif _princess.nationality == "Emirati">>
		<<set _princess.birthSurname = "Al Nahyan">>
		<<set _princess.slaveSurname = "Al Nahyan">>
	<<elseif _princess.nationality == "Bahraini">>
		<<set _princess.birthSurname = "Al Khalifah">>
		<<set _princess.slaveSurname = "Al Khalifah">>
	<<elseif _princess.nationality == "Kuwaiti">>
		<<set _princess.birthSurname = "Al Sabah">>
		<<set _princess.slaveSurname = "Al Sabah">>
	<<elseif _princess.nationality == "Malaysian">>
		<<set _princess.birthSurname = "Pahang">>
		<<set _princess.slaveSurname = "Pahang">>
	<<elseif _princess.nationality == "Qatari">>
		<<set _princess.birthSurname = "Al Thani">>
		<<set _princess.slaveSurname = "Al Thani">>
	<<elseif _princess.nationality == "Saudi">>
		<<set _princess.birthSurname = "Al Saud">>
		<<set _princess.slaveSurname = "Al Saud">>
	<<elseif _princess.nationality == "Tongan">>
		<<set _princess.birthSurname = "Tupou">>
		<<set _princess.slaveSurname = "Tupou">>
	<<elseif _princess.nationality == "Swazi">>
		<<set _princess.birthSurname = "Dlamini">>
		<<set _princess.slaveSurname = "Dlamini">>
	<<elseif _princess.nationality == "Mosotho">>
		<<set _princess.birthSurname = "Moshesh">>
		<<set _princess.slaveSurname = "Moshesh">>
	<<elseif _princess.nationality == "British">>
		<<set _princess.birthSurname = "Windsor">>
		<<set _princess.slaveSurname = "Windsor">>
	<<elseif _princess.nationality == "Monégasque">>
		<<set _princess.birthSurname = "Grimaldi">>
		<<set _princess.slaveSurname = "Grimaldi">>
	<<elseif _princess.nationality == "Bhutanese">>
		<<set _princess.birthSurname = "Wangchuck">>
		<<set _princess.slaveSurname = "Wangchuck">>
	<<elseif _princess.nationality == "Thai">>
		<<set _princess.birthSurname = "Chakri">>
		<<set _princess.slaveSurname = "Chakri">>
	<</if>>
<</if>>
/*prince*/
<<if $seeDicks > 0>>
	<<set $activeSlave.ID = generateSlaveID()>>
	<<set $activeSlave.birthWeek += Math.floor(Math.random() * 52)>>
	<<if $activeSlave.birthWeek >= 52>>
		<<set $activeSlave.birthWeek -= 52>>
		<<set $activeSlave.actualAge += 1>>
	<</if>>
	<<set $activeSlave.actualAge = $activeSlave.actualAge+1>>
	<<set $activeSlave.visualAge = $activeSlave.actualAge>>
	<<set $activeSlave.physicalAge = $activeSlave.actualAge>>
	<<set $activeSlave.ovaryAge = $activeSlave.actualAge>>
	<<set $activeSlave.genes = "XY">>
	<<run nationalityToName($activeSlave)>>
	<<set $activeSlave.birthSurname = _princess.birthSurname, $activeSlave.slaveSurname = _princess.birthSurname>>
	<<set $activeSlave.career = "a prince">>
	<<set $activeSlave.prestige = 2>>
	<<set $activeSlave.prestigeDesc = "$He was the crown prince of an ancient kingdom.">>
	<<set $activeSlave.devotion = random(-80,-60)>>
	<<set $activeSlave.trust = random(-50,-60)>>
	<<set $activeSlave.boobs = 150>>
	<<set $activeSlave.butt = random(0,1)>>
	<<set $activeSlave.vagina = -1>>
	<<set $activeSlave.clit = 0>>
	<<set $activeSlave.labia = 0>>
	<<set $activeSlave.ovaries = 0>>
	<<set $activeSlave.preg = 0>>
	<<set $activeSlave.dick = random(3,5)>>
	<<set $activeSlave.balls = random(2,4)>>
	<<set $activeSlave.scrotum = $activeSlave.balls>>
	<<set $activeSlave.prostate = 1>>
	<<set $activeSlave.pubertyXX = 0>>
	<<set $activeSlave.pubertyAgeXY = $potencyAge>>
	<<if $activeSlave.physicalAge >= $activeSlave.pubertyAgeXY>>
		<<set $activeSlave.pubertyXY = 1>>
	<<else>>
		<<set $activeSlave.pubertyXY = 0>>
	<</if>>
	<<set $activeSlave.anus = 0>>
	<<set $activeSlave.weight = 0>>
	<<set $activeSlave.muscles = 50>>
	<<set $activeSlave.intelligence = random(15,100)>>
	<<set $activeSlave.intelligenceImplant = 15>>
	<<set $activeSlave.face = Math.clamp($activeSlave.face+20,-100,100)>>
	<<set $activeSlave.faceImplant = 15>>
	<<set $activeSlave.skill.anal = 0>>
	<<set $activeSlave.skill.oral = 0>>
	<<set $activeSlave.skill.whoring = 0>>
	<<set $activeSlave.skill.combat = 1>>
	<<set $activeSlave.canRecruit = 0>>
	<<run setHealth($activeSlave, jsRandom(30, 60), 0, 0, 0, 0)>>
	<<set $activeSlave.behavioralFlaw = either("arrogant", "bitchy")>>
	<<set _prince = clone($activeSlave)>>
	<<setLocalPronouns _prince 2>>
<</if>>
/*Queen*/
<<set $activeSlave.ID = generateSlaveID()>>
<<set $activeSlaveOneTimeMinAge = ($fertilityAge+$activeSlave.actualAge)>>
<<if $pedo_mode == 1>>
	<<set $activeSlaveOneTimeMaxAge = 24>>
<<else>>
	<<set $activeSlaveOneTimeMaxAge = 43>>
<</if>>
<<set $activeSlave.actualAge = random($activeSlaveOneTimeMinAge,$activeSlaveOneTimeMaxAge)>>
<<set $activeSlave.visualAge = $activeSlave.actualAge>>
<<set $activeSlave.physicalAge = $activeSlave.actualAge>>
<<set $activeSlave.ovaryAge = $activeSlave.actualAge>>
<<set $activeSlave.genes = "XX">>
<<run nationalityToName($activeSlave)>>
<<set $activeSlave.birthSurname = _princess.birthSurname, $activeSlave.slaveSurname = _princess.birthSurname>>
<<set $activeSlave.career = "a Queen">>
<<set $activeSlave.prestige = 2>>
<<set $activeSlave.prestigeDesc = "$He was the Queen of an ancient kingdom.">>
<<set $activeSlave.face = random(25,100)>>
<<set $activeSlave.faceImplant = 0>>
<<set $activeSlave.devotion = random(10,20)>>
<<set $activeSlave.trust = random(-20,-30)>>
<<set $activeSlave.boobs = random(3,10)*100>>
<<set $activeSlave.vagina = 2>>
<<set $activeSlave.dick = 0>>
<<set $activeSlave.foreskin = 0>>
<<set $activeSlave.balls = 0>>
<<set $activeSlave.scrotum = 0>>
<<set $activeSlave.prostate = 0>>
<<set $activeSlave.ovaries = 1>>
<<if $seePreg != 0>>
	<<set $activeSlave.preg = 7>>
	<<set $activeSlave.pregType = 1>>
	<<set $activeSlave.pregWeek = 7>>
	<<set $activeSlave.pregKnown = 1>>
	<<run SetBellySize($activeSlave)>>
<</if>>
<<set $activeSlave.pubicHStyle = "waxed">>
<<set $activeSlave.shoulders = random(-1,1)>>
<<set $activeSlave.hips = 1>>
<<set $activeSlave.butt = random(2,4)>>
<<set $activeSlave.anus = 0>>
<<set $activeSlave.weight = 0>>
<<set $activeSlave.intelligence = random(15,100)>>
<<set $activeSlave.intelligenceImplant = 30>>
<<set $activeSlave.skill.entertainment = 45>>
<<set $activeSlave.skill.whoring = 0>>
<<set $activeSlave.counter.birthsTotal = 2>>
<<set $activeSlave.pubertyXX = 1>>
<<set $activeSlave.pubertyXY = 0>>
<<set $activeSlave.canRecruit = 0>>
<<run setHealth($activeSlave, jsRandom(30, 60), 0, 0, 0, 0)>>
<<set $activeSlave.behavioralFlaw = either("arrogant", "bitchy")>>
<<set _queen = clone($activeSlave)>>
<<setLocalPronouns _queen 3>>

<<setAssistantPronouns>>

One unfortunate consequence of existing in a global world is that business opportunities continue to crop up unabated by the onset of night in one corner of the world or another, an inconsiderate phenomenon for arcology owners who happen to be asleep when an event of importance takes place outside the walls of their arcology. This particular evening you are awoken by an alert from $assistant.name, unusually intense for this late hour.
<<if $assistant.personality > 0>>
	"<<= properMaster()>>, there is a time sensitive enslavement opportunity available if you're interested." _HeA pauses before continuing. "You're going to want to see this one <<= properMaster()>>."
<<else>>
	_HeA informs you that there is a time sensitive enslavement opportunity for you to peruse, and that _heA has calculated the potential rewards are worthy of your consideration even in the middle of the night.
<</if>>

A convenient video feed is brought up, displaying a quick visual summary of the opportunity at hand.

It seems a bastion of the old world has fallen, a royal family of ancient blood and reputation has been overthrown by a local populist leader and his fellow revolutionaries. Furthermore, the leader of the revolution has designs to transform the outmoded monarchy into an arcology of his own, and has transmitted a request for aid to his new peers in the Free Cities.

Of course, nothing in the Free Cities is free and international aid is no exception. This new arcology owner is no fool, however, and has outlined a number of rewards to be delivered to his most generous benefactors.

Though the King himself is dead, murdered in his bed by bloodthirsty revolutionaries, the rest of his family and the majority of his court have been captured and enslaved by their former subjects. The new arcology owner, having decided that a large injection of credits or a shipment of goods is superior to deflowering a royal pussy or asshole, has directed his followers to slake their lust and vengeance on the King's _wife3 and court rather than his children, though they too are past the age of majority.

Time is short, but you are well placed to acquire some choice slaves. With an adequate donation<<if $SF.Toggle && $SF.Active >= 1>>, or the use of $SF.Lower<</if>>, of course.

<<link "Go back to sleep">>
	<<replace "#result">>
	You inform your personal assistant that you aren't planning to take any action. It's not every day that a monarchy collapses in the old world, but it's also not particularly uncommon either.
	<</replace>>
<</link>>
<<if ($cash >= 50000) && ($rep >= 2000)>>

<<link "Leverage your reputation and credits to aid the new arcology in exchange for a pretty princess">>
	<<replace "#result">>
		You seize a tablet and practically roll out of your bed, working furiously and using every feature of $assistant.name to the utmost. It's not easy, but you call in a number of favors and grease a handful of palms, and soon a flight of VTOLs are landing in the new arcology laden with goods. When they take off again they have the princess aboard clad in chains, and make a direct course towards your waiting penthouse.

		Eventually $he arrives in your penthouse, the perfect image of a demure yet composed princess. $His clearly practiced façade of poise and grace fades under scrutiny, however. The slightest trembling of $his balled up fists, the minute tremors that mar $his immaculate posture, $his inability to meet your eyes with $his own — all signs that $he is still a scared $girl despite all $his royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to $him in $his new life in the penthouse, it does stand in stark contrast to $his more common slave peers.

		<<set _princess.origin = "$He was a princess of a royal kingdom, till $his family was overthrown and $he was sold to you in exchange for aid.">>
		<<run cashX(-50000, "slaveTransfer", _princess)>>
		<<run repX(-2000, "event", _princess)>>
		<<set $activeSlave = _princess>>
		<<include "New Slave Intro">>
	<</replace>>
<</link>> // You will need to utilize a portion of your reputation and <<print cashFormat(50000)>> to enslave $him.//
<<else>>
	//You lack the necessary funds and reputation to enslave a princess.//
<</if>>

<<if $SF.Toggle && $SF.Active >= 1>>

<<link "Dispatch a $SF.Lower on a night time raid to acquire a pretty princess.">>
	<<replace "#result">>
		Seizing a tablet, you quickly send a message to <<print App.SF.SFC()>>. After dark, a flight of VTOLs land in the new arcology laden with troops. When they take off again they have the princess aboard clad in chains and make a direct course towards your waiting penthouse.

		Eventually $he arrives in your penthouse, the perfect image of a demure yet composed princess. $His clearly practiced façade of poise and grace fades under scrutiny, however. The slightest trembling of $his balled up fists, the minute tremors that mar $his immaculate posture, $his inability to meet your eyes with $his own — all signs that $he is still a scared $girl despite all $his royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to $him in $his new life in the penthouse, it does stand in stark contrast to $his more common slave peers.

		<<set $arcologies[0].prosperity -= 15>>
		<<set _princess.origin = "$He was a princess of a royal kingdom, till $his family was overthrown and $he was acquired by "+$SF.Lower+".">>
		<<set $activeSlave = _princess>>
		<<include "New Slave Intro">>
		<<run repX(-18000, "event", $activeSlave)>>
	<</replace>>
<</link>> //You will be despised for this action, and trade will be greatly damaged.//
<</if>>
<<if $seeDicks > 0>>
	<<if $cash >= 35000>>

<<link "Dispatch a sizable amount of aid in exchange for the crown prince">>
			<<replace "#result">>
				You seize a tablet and practically roll out of your bed, working vigorously and using every feature of $assistant.name to the utmost. It's not easy, but your credits pave your way to sending a flight of VTOLs laden with goods to the new arcology. They take off again with the crown prince aboard and in chains, where _he2 rails against the uncaring metal walls of the VTOL for the breadth of _his2 journey to your penthouse.

				When _he2 arrives in your penthouse, the former prince is beside _himself2 with rage. When _he2 is brought to be modified in the remote surgery, _he2 breaks free and attempts to fight _his2 way out of your penthouse. _His2 attempt at freedom is futile, however, and _he2 is soon overwhelmed by your guards and dragged back to the remote surgery. It doesn't take long for the valiant prince to become a new dickgirl, though _his2 submission to life as a slave is another question entirely.

				<<set _prince.origin = "$He was the crown prince of a royal kingdom, till $his family was overthrown and $he was sold to you in exchange for aid.">>
				<<run cashX(-35000, "slaveTransfer", _prince)>>
				<<set $activeSlave = _prince>>
				<<include "New Slave Intro">>
			<</replace>>
		<</link>> // Purchasing the goods and hiring the VTOLs will cost about <<print cashFormat(35000)>>.//
	<<else>>

//You lack the necessary funds to enslave a crown prince.//
	<</if>>
<</if>>

<<if $seeDicks > 0>>
	<<if $SF.Toggle && $SF.Active >= 1>>

<<link "Dispatch $SF.Lower on a night time raid to acquire the crown prince.">>
			<<replace "#result">>
				Seizing a tablet, you quickly send a message to The Colonel. After dark, a flight of VTOLs land in the new arcology laden with troops. They take off again with the crown prince aboard and in chains, where _he2 rails against the uncaring metal walls of the VTOL for the breadth of _his2 journey to your penthouse.

				When _he2 arrives in your penthouse, the former prince is beside _himself2 with rage. When _he2 is brought to be modified in the remote surgery, _he2 breaks free and attempts to fight _his2 way out of your penthouse. _His2 attempt at freedom is futile, however, and _he2 is soon overwhelmed by your guards and dragged back to the remote surgery. It doesn't take long for the valiant prince to become a new dickgirl, though _his2 submission to life as a slave is another question entirely.

				<<set $arcologies[0].prosperity -= 15>>
				<<run repX(-18000, "event", $activeSlave)>>
				<<set _prince.origin = "$He was the crown prince of a royal kingdom, till $his family was overthrown and $he was acquired by "+$SF.Lower+".">>
				<<set $activeSlave = _prince>>
				<<include "New Slave Intro">>
			<</replace>>
		<</link>> //You will be despised for this action, and trade will be greatly damaged.//
	<</if>>
<</if>>
<<if $seeDicks > 0>>
	<<if ($cash >= 100000) && ($rep >= 10000)>>

<<link "Leverage your substantial reputation and a huge sum of credits to aid the new arcology in exchange for both the prince and princess">>
			<<replace "#result">>
				You seize a tablet and practically roll out of your bed, working furiously and using every feature of $assistant.name to the utmost. It's not easy, but you call in a number of favors and grease a handful of palms, and soon a flight of VTOLs are landing in the new arcology laden with goods. When they take off again they have the prince and princess aboard, clad in chains and bound face to face in a forced embrace, and make a direct course towards your waiting penthouse.

				Eventually they arrive in your penthouse, faces flushed with embarrassment of their compromising position. The former prince is beside _himself2 with rage, but seems to be holding _himself2 back for _his2 little $sister's sake, while $he struggles to maintain a façade of poise and grace. The slightest trembling of $his balled up fists, the minute tremors that mar $his immaculate posture, $his inability to meet your eyes with $his own — all signs that $he is still a scared $girl despite all $his royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to $him in $his new life in the penthouse, it does stand in stark contrast to $his more common slave peers. However, the prince's submission to life as a slave is another question entirely.

				/* princess */
				<<set _princess.origin = "$He was a princess of a royal kingdom, till $his family was overthrown and $he was sold to you in exchange for aid.">>
				<<run setMissingParents(_princess)>>
				<<run cashX(-60000, "slaveTransfer", _princess)>>
				<<run repX(-6000, "event", _princess)>>
				<<run newSlave(_princess)>> /* skip New Slave Intro */
				/* prince */
				<<set _prince.origin = "$He was the crown prince of a royal kingdom, till $his family was overthrown and $he was sold to you in exchange for aid.">>
				<<set _prince.mother = _princess.mother>>
				<<set _prince.father = _princess.father>>
				<<run cashX(-40000, "slaveTransfer", _prince)>>
				<<run repX(-4000, "event", _prince)>>
				<<run newSlave(_prince)>> /* skip New Slave Intro */
			<</replace>>
		<</link>> // You will need to utilize a sizable portion of your reputation and <<print cashFormat(100000)>> to enslave them.//
	<<else>>

//You lack the necessary funds and reputation to enslave both the crown prince and princess.//
	<</if>>
<</if>>

<<if $seeDicks > 0>>
	<<if $SF.Toggle && $SF.Active >= 1>>

<<link "Dispatch $SF.Lower on a night time raid to acquire both the prince and princess.">>
			<<replace "#result">>
				Seizing a tablet, you quickly send a message to The Colonel. After dark, a flight of VTOLs land in the new arcology laden with troops. When they take off again they have the prince and princess aboard, clad in chains and bound face to face in a forced embrace, and make a direct course towards your waiting penthouse.

				Eventually they arrive in your penthouse, faces flushed with embarrassment of their compromising position. The former prince is beside _himself2 with rage, but seems to be holding _himself2 back for _his2 little $sister's sake, while $he struggles to maintain a façade of poise and grace. The slightest trembling of $his balled up fists, the minute tremors that mar $his immaculate posture, $his inability to meet your eyes with $his own — all signs that $he is still a scared $girl despite all $his royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to $him in $his new life in the penthouse, it does stand in stark contrast to $his more common slave peers. However, the prince's submission to life as a slave is another question entirely.

				<<set $arcologies[0].prosperity -= 15>>
				/* princess */
				<<set _princess.origin = "$He was a princess of a royal kingdom, till $his family was overthrown and $he was acquired by "+$SF.Lower+".">>
				<<run setMissingParents(_princess)>>
				<<run newSlave(_princess)>> /* skip New Slave Intro */
				<<run repX(-10000, "event", _princess)>>
				/* prince */
				<<set _prince.origin = "$He was the crown prince of a royal kingdom, till $his family was overthrown and $he was acquired by "+$SF.Lower+".">>
				<<set _prince.mother = _princess.mother>>
				<<set _prince.father = _princess.father>>
				<<run newSlave(_prince)>> /* skip New Slave Intro */
				<<run repX(-8000, "event", _prince)>>
			<</replace>>
		<</link>> //You will be despised for this action, and trade will be greatly damaged.//
	<</if>>
<</if>>
<<if $cash >= 25000>>

<<link "Transfer a respectable quantity of credits for a handful of court ladies">>
	<<replace "#result">>
		You take a tablet and peruse the various court ladies on offer by the fledgling arcology. You single out a few interesting individuals for purchase that might suit your tastes, but the slapdash descriptions provided for each slave by the revolutionaries make it likely that any similarities to your aesthetic leanings will be coincidental. Once you are satisfied with your selection, you electronically transfer the credits to the new arcology and soon receive a receipt for your donation and an estimated delivery schedule.

		When the ladies arrive at your penthouse, they seem almost relieved at the opulence of their new surroundings. Though they still retain much of their aristocratic arrogance, they each submit to biometric scanning with relative obedience. It seems likely that their obedience is borne out of a delusional rationalization that enslavement by one wealthy master is better than enslavement by the unwashed masses they once lorded over.

		<<for $i = 0; $i < 3; $i++>>
			<<set $activeSlaveOneTimeMinAge = 21>>
			<<set $activeSlaveOneTimeMaxAge = ($retirementAge-2)>>
			<<set $oneTimeDisableDisability = 1>>
			<<set $fixedNationality = _princess.nationality>>
			<<set $activeSlave = GenerateNewSlave("XX")>>
			<<set _origin = "$He was a member of the court in an ancient kingdom, till it was overthrown and $he was sold to you in exchange for credits.">>
			<<set $activeSlave.origin = _origin>>
			<<set $activeSlave.career = "a lady courtier">>
			<<set $activeSlave.prestige = 1>>
			<<set $activeSlave.prestigeDesc = "$He was once a lady of the court of an ancient kingdom.">>
			<<set $activeSlave.face = random(25,76)>>
			<<set $activeSlave.devotion = random(10,20)>>
			<<set $activeSlave.trust = random(-20,-30)>>
			<<set $activeSlave.boobs = random(3,10)*100>>
			<<set $activeSlave.vagina = 1>>
			<<set $activeSlave.dick = 0>>
			<<set $activeSlave.foreskin = 0>>
			<<set $activeSlave.balls = 0>>
			<<set $activeSlave.ovaries = 1>>
			<<set $activeSlave.pubicHStyle = "waxed">>
			<<set $activeSlave.underArmHStyle = "waxed">>
			<<set $activeSlave.shoulders = random(-1,1)>>
			<<set $activeSlave.hips = 1>>
			<<set $activeSlave.butt = 1>>
			<<set $activeSlave.anus = 0>>
			<<set $activeSlave.weight = 0>>
			<<set $activeSlave.intelligence = random(-50,70)>>
			<<set $activeSlave.intelligenceImplant = 15>>
			<<set $activeSlave.skill.entertainment = 25>>
			<<set $activeSlave.skill.whoring = 0>>
			<<run setHealth($activeSlave, jsRandom(30, 60), 0, 0, 0, 0)>>
			<<set $activeSlave.canRecruit = 0>>
			<<set $activeSlave.behavioralFlaw = either("arrogant", "bitchy")>>
			<<run newSlave($activeSlave)>> /* skip New Slave Intro */
			<<run cashX(-8333, "slaveTransfer", $activeSlave)>>
		<</for>>
	<</replace>>
<</link>> // It will cost about <<print cashFormat(25000)>> to enslave them.//
<<else>>

//You lack the necessary funds to enslave a handful of court ladies.//
<</if>>

<<if $SF.Toggle && $SF.Active >= 1>>

<<link "Dispatch $SF.Lower on a night time raid to acquire a handful of court ladies.">>
	<<replace "#result">>
		You take a tablet and peruse the various court ladies on offer by the fledgling arcology. You single out a few interesting individuals for acquisition that might suit your tastes, but the slapdash descriptions provided for each by $SF.Lower Intelligence make it likely that any similarities to your aesthetic leanings will be coincidental. Once you are satisfied with your selection, you electronically transfer the order to The Colonel and soon receive a mission success notice along with an estimated delivery schedule.

		When the ladies arrive at your penthouse, they seem almost relieved at the opulence of their new surroundings. Though they still retain much of their aristocratic arrogance, they each submit to biometric scanning with relative obedience. It seems likely that their obedience is borne out of a delusional rationalization that enslavement by one wealthy master is better than enslavement by the unwashed masses they once lorded over.

		<<set $arcologies[0].prosperity -= 10>>
		<<for $i = 0; $i < 3; $i++>>
			<<set $activeSlaveOneTimeMinAge = 21>>
			<<set $activeSlaveOneTimeMaxAge = ($retirementAge-2)>>
			<<set $oneTimeDisableDisability = 1>>
			<<set $fixedNationality = _princess.nationality>>
			<<set $activeSlave = GenerateNewSlave("XX")>>
			<<set _origin = "$He was a member of the court in an ancient kingdom, till it was overthrown and $he was acquired by "+$SF.Lower+".">>
			<<set $activeSlave.origin = _origin>>
			<<set $activeSlave.career = "a lady courtier">>
			<<set $activeSlave.prestige = 1>>
			<<set $activeSlave.prestigeDesc = "$He was once a lady of the court of an ancient kingdom.">>
			<<set $activeSlave.face = random(25,76)>>
			<<set $activeSlave.devotion = random(10,20)>>
			<<set $activeSlave.trust = random(-20,-30)>>
			<<set $activeSlave.boobs = random(3,10)*100>>
			<<set $activeSlave.vagina = 1>>
			<<set $activeSlave.dick = 0>>
			<<set $activeSlave.foreskin = 0>>
			<<set $activeSlave.balls = 0>>
			<<set $activeSlave.ovaries = 1>>
			<<set $activeSlave.pubicHStyle = "waxed">>
			<<set $activeSlave.underArmHStyle = "waxed">>
			<<set $activeSlave.shoulders = random(-1,1)>>
			<<set $activeSlave.hips = 1>>
			<<set $activeSlave.butt = 1>>
			<<set $activeSlave.anus = 0>>
			<<set $activeSlave.weight = 0>>
			<<set $activeSlave.intelligence = random(-50,70)>>
			<<set $activeSlave.intelligenceImplant = 15>>
			<<set $activeSlave.skill.entertainment = 25>>
			<<set $activeSlave.skill.whoring = 0>>
			<<run setHealth($activeSlave, jsRandom(30, 60), 0, 0, 0, 0)>>
			<<set $activeSlave.canRecruit = 0>>
			<<set $activeSlave.behavioralFlaw = either("arrogant", "bitchy")>>
			<<run newSlave($activeSlave)>> /* skip New Slave Intro */
			<<run repX(-3333, "event", $activeSlave)>>
		<</for>>
	<</replace>>
<</link>> // You will disliked for this action and trade will be damaged. //
<</if>>
<<if $cash >= 15000>>

<<link "Transfer a modest quantity of credits for the Queen _himself3">>
	<<replace "#result">>
		You take a tablet and transmit a communication request to the new arcology owner. It doesn't take long for him to accept but when his video feed connects on your screen, you find yourself staring at the pained expression of the Queen _himself3. It becomes abundantly clear that someone is mounting _him3 from behind as _his3 body shakes and spasms from the intensity of their thrusts. You note that the Queen appears to be getting fucked on an extravagant, yet bloodstained, four-poster bed, likely the site of _his3 former husband's demise. The mysterious individual unsurprisingly turns out to be the new arcology owner, revealing himself by shoving the Queen's face down against the stained bed sheets as he lowers his own face into frame. "How can I help you?"

		The man seems somewhat surprised that you want to purchase the Queen, given the breadth and quality of his other merchandise available, but not unduly so. Soon enough negotiations begin and a short time later an equitable price is agreed upon. Your new peer even throws in a slight discount, in exchange for allowing him to use the Queen himself for the remainder of the night.

		When the Queen arrives at your penthouse, _he3 seems almost relieved and almost basks in the opulence of _his3 new surroundings. Yet, it seems likely that _his3 relief has more to do with saving _him3 from a lifetime of gang rape at the mercy of _his3 former subjects, than it does the familiar luxury. _He3 submits to biometric scanning obediently and without
		<<if $seePreg != 0>>
			fuss, during which you discover to _his3 surprise that _he3 is pregnant. Since _he3 hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice _he3 cradles _his3 ever so slightly rounded stomach protectively nonetheless.
		<<else>>
			fuss.
		<</if>>

		<<set $activeSlaveOneTimeMinAge = ($fertilityAge+2)>>
		<<if $pedo_mode == 1>>
			<<set $activeSlaveOneTimeMaxAge = 24>>
		<<else>>
			<<set $activeSlaveOneTimeMaxAge = 43>>
		<</if>>
		<<set _queen.actualAge = random($activeSlaveOneTimeMinAge,$activeSlaveOneTimeMaxAge)>>
		<<set _queen.visualAge = _queen.actualAge>>
		<<set _queen.physicalAge = _queen.actualAge>>
		<<set _queen.ovaryAge = _queen.actualAge>>
		<<set _queen.origin = "$He was the Queen of a royal kingdom, till $his husband was overthrown and $he was sold to you in exchange for credits.">>
		<<run cashX(-15000, "slaveTransfer", _queen)>>
		<<set $activeSlave = _queen>>
		<<include "New Slave Intro">>
	<</replace>>
<</link>> // It will cost about <<print cashFormat(15000)>> to enslave _him3.//
<<else>>

//You lack the necessary funds to enslave a Queen.//
<</if>>

<<if $SF.Toggle && $SF.Active >= 1>>

<<link "Dispatch $SF.Lower on a night time raid to acquire the Queen _himself3.">>
	<<replace "#result">>
		Seizing a tablet, you quickly send a message to The Colonel. After dark, a flight of VTOLs land in the new arcology laden with troops. When they take off again they have the Queen aboard and make a direct course towards your waiting penthouse.

		When the Queen arrives at your penthouse, _he3 seems almost relieved and almost basks in the opulence of _his3 new surroundings. Yet, it seems likely that _his3 relief has more to do with saving _him3 from a lifetime of gang rape at the mercy of _his3 former subjects, than it does the familiar luxury. _He3 submits to biometric scanning obediently and without
		<<if $seePreg != 0>>
			fuss, during which you discover to _his3 surprise that _he3 is pregnant. Since _he3 hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice _he3 cradles _his3 ever so slightly rounded stomach protectively nonetheless.
		<<else>>
			fuss.
		<</if>>

		<<set $arcologies[0].prosperity -= 12>>
		<<set $activeSlaveOneTimeMinAge = ($fertilityAge+2)>>
		<<if $pedo_mode == 1>>
			<<set $activeSlaveOneTimeMaxAge = 24>>
		<<else>>
			<<set $activeSlaveOneTimeMaxAge = 43>>
		<</if>>
		<<set _queen.actualAge = random($activeSlaveOneTimeMinAge,$activeSlaveOneTimeMaxAge)>>
		<<set _queen.visualAge = _queen.actualAge>>
		<<set _queen.physicalAge = _queen.actualAge>>
		<<set _queen.ovaryAge = _queen.actualAge>>
		<<set _queen.origin = "$He was the Queen of a royal kingdom, till $his husband was overthrown and $he was acquired by "+$SF.Lower+".">>
		<<set $activeSlave = _queen>>
		<<include "New Slave Intro">>
		<<run repX(-12000, "event", _queen)>>
	<</replace>>
<</link>> //You will be despised for this action, and trade will be greatly damaged.//
<</if>>
<<if $cash >= 500000>>

<<link "Send a large amount of credits and goods to retrieve both the princess and Queen.">>
	<<replace "#result">>
		You take a tablet and transmit a communication request to the new arcology owner with your intent. Once his shock wears off, he readily accepts with little need for negotiation. Soon, a flight of VTOLs land in the new arcology laden with goods. When they take off again they have the princess and the Queen, who is resigned to _his3 fate, clad in chains then bound face to face in a forced embrace.

		Eventually they both arrive in your penthouse. The princess is flushed with embarrassment in $his compromising position, struggling to maintain a façade of poise and grace. The slightest trembling of $his balled up fists, the minute tremors that mar $his immaculate posture, $his inability to meet your eyes with $his own — all signs that $he is still a scared $girl despite all $his royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to $him in $his new life in the penthouse, it does stand in stark contrast to $his more common slave peers. The Queen, on the other hand, seems almost relieved and basks in the opulence of _his3 new surroundings. Yet, it seems likely that _his3 relief has more to do with saving _him3 from a lifetime of gang rape at the mercy of _his3 former subjects, than it does the familiar luxury. _He3 submits to biometric scanning obediently and without
		<<if $seePreg != 0>>
			fuss, during which you discover to _his3 surprise that _he3 is pregnant. Since _he3 hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice _he3 cradles _his3 ever so slightly rounded stomach protectively nonetheless.
		<<else>>
			fuss.
		<</if>>
		/* princess */
		<<set _princess.origin = "$He was a princess of a royal kingdom, till $his family was overthrown and $he was sold for credits.">>
		<<set _princess.mother = _queen.ID>>
		<<run setMissingParents(_princess)>>
		<<run cashX(-400000, "slaveTransfer", _princess)>>
		<<run newSlave(_princess)>> /* skip New Slave Intro */
		/*Queen*/
		<<set _queen.origin = "$He was the Queen of a royal kingdom, till $his husband was overthrown and $he was sold for credits.">>
		<<set _queen.mother = 0>>
		<<set _queen.father = 0>>
		<<run cashX(-100000, "slaveTransfer", _queen)>>
		<<run newSlave(_queen)>> /* skip New Slave Intro */
	<</replace>>
<</link>> // It will cost about <<print cashFormat(500000)>> to enslave both the princess and Queen.//
<<else>>

//You lack the necessary funds and reputation to enslave both the Queen and princess.//
<</if>>

<<if $SF.Toggle && $SF.Active >= 1>>

<<link "Dispatch $SF.Lower on a night time raid to acquire both the princess and Queen.">>
	<<replace "#result">>
	Seizing a tablet, you quickly send a message to The Colonel. After dark, a flight of VTOLs land in the new arcology laden with troops. When they take off again they have the princess and Queen aboard, making a direct course towards your waiting penthouse.

		Eventually they both arrive in your penthouse. The princess is flushed with embarrassment in $his compromising position, struggling to maintain a façade of poise and grace. The slightest trembling of $his balled up fists, the minute tremors that mar $his immaculate posture, $his inability to meet your eyes with $his own — all signs that $he is still a scared $girl despite all $his royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to $him in $his new life in the penthouse, it does stand in stark contrast to $his more common slave peers. The Queen, on the other hand, seems almost relieved and basks in the opulence of _his3 new surroundings. Yet, it seems likely that _his3 relief has more to do with saving _him3 from a lifetime of gang rape at the mercy of _his3 former subjects, than it does the familiar luxury. _He3 submits to biometric scanning obediently and without
		<<if $seePreg != 0>>
			fuss, during which you discover to _his3 surprise that _he3 is pregnant. Since _he3 hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice _he3 cradles _his3 ever so slightly rounded stomach protectively nonetheless.
		<<else>>
			fuss.
		<</if>>
		<<set $arcologies[0].prosperity -= 13>>
		/* princess */
		<<set _princess.origin = "$He was a princess of a royal kingdom, till $his family was overthrown and $he was sold for credits.">>
		<<set _princess.mother = _queen.ID>>
		<<run setMissingParents(_princess)>>
		<<run newSlave(_princess)>> /* skip New Slave Intro */
		<<run repX(-10000, "event", _princess)>>
		/*Queen*/
		<<set _queen.origin = "$He was the Queen of a royal kingdom, till $his husband was overthrown and $he was sold for credits.">>
		<<set _queen.mother = 0>>
		<<set _queen.father = 0>>
		<<run newSlave(_queen)>> /* skip New Slave Intro */
		<<run repX(-3000, "event", _queen)>>
	<</replace>>
<</link>> //You will be despised for this action, and trade will be greatly damaged.//
<</if>>

<<if $cash >= 500000>>

<<link "Offer a generous amount of cash in exchange for both the Queen and _his3 court ladies.">>
	<<replace "#result">>
		You take a tablet and transmit a communication request to the new arcology owner with your intent. Once his shock wears off, he readily accepts with little need for negotiation. Soon, a flight of VTOLs land in the new arcology laden with goods. When they take off again they have the Queen, who is resigned to _his3 fate, and a gaggle of terrified court ladies chained together.

		Eventually they all arrive in your penthouse. The Queen seems almost relieved and basks in the opulence of _his3 new surroundings. Yet, it seems likely that _his3 relief has more to do with saving _him3 from a lifetime of gang rape at the mercy of _his3 former subjects, than it does the familiar luxury. _He3 submits to biometric scanning obediently and without
		<<if $seePreg != 0>>
			fuss, during which you discover to _his3 surprise that _he3 is pregnant. Since _he3 hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice _he3 cradles _his3 ever so slightly rounded stomach protectively nonetheless.
		<<else>>
			fuss.
		<</if>>
		Meanwhile, the ladies seem comforted by the opulence of their new surroundings. Though they still retain much of their aristocratic arrogance, they each submit to biometric scanning with relative obedience. It seems likely that their obedience is borne out of a delusional rationalization that enslavement by one wealthy master is better than enslavement by the unwashed masses they once lorded over.
		/* ladies */
		<<for $i = 0; $i < 3; $i++>>
			<<set $activeSlaveOneTimeMinAge = 21>>
			<<set $activeSlaveOneTimeMaxAge = ($retirementAge-2)>>
			<<set $oneTimeDisableDisability = 1>>
			<<set $fixedNationality = _princess.nationality>>
			<<set $activeSlave = GenerateNewSlave("XX")>>
			<<set _origin = "$He was a member of the court in an ancient kingdom, till it was overthrown and $he was sold for credits.">>
			<<set $activeSlave.origin = _origin>>
			<<set $activeSlave.career = "a lady courtier">>
			<<set $activeSlave.prestige = 1>>
			<<set $activeSlave.prestigeDesc = "$He was once a lady of the court of an ancient kingdom.">>
			<<set $activeSlave.face = random(25,76)>>
			<<set $activeSlave.devotion = random(10,20)>>
			<<set $activeSlave.trust = random(-20,-30)>>
			<<set $activeSlave.boobs = random(3,10)*100>>
			<<set $activeSlave.vagina = 1>>
			<<set $activeSlave.dick = 0>>
			<<set $activeSlave.foreskin = 0>>
			<<set $activeSlave.balls = 0>>
			<<set $activeSlave.ovaries = 1>>
			<<set $activeSlave.pubicHStyle = "waxed">>
			<<set $activeSlave.underArmHStyle = "waxed">>
			<<set $activeSlave.shoulders = random(-1,1)>>
			<<set $activeSlave.hips = 1>>
			<<set $activeSlave.butt = 1>>
			<<set $activeSlave.anus = 0>>
			<<set $activeSlave.weight = 0>>
			<<set $activeSlave.intelligence = random(-50,70)>>
			<<set $activeSlave.intelligenceImplant = 15>>
			<<set $activeSlave.skill.entertainment = 25>>
			<<set $activeSlave.skill.whoring = 0>>
			<<run setHealth($activeSlave, jsRandom(30, 60), 0, 0, 0, 0)>>
			<<set $activeSlave.canRecruit = 0>>
			<<set $activeSlave.behavioralFlaw = either("arrogant", "bitchy")>>
			<<run newSlave($activeSlave)>> /* skip New Slave Intro */
			<<run cashX(-100000, "slaveTransfer", $activeSlave)>>
		<</for>>
		/*Queen*/
		<<set _queen.origin = "$He was the Queen of a royal kingdom, till $his husband was overthrown and $he was sold for credits.">>
		<<run setMissingParents(_queen)>>
		<<run newSlave(_queen)>> /* skip New Slave Intro */
		<<run cashX(-200000, "slaveTransfer", _queen)>>
	<</replace>>
<</link>> // It will cost about <<print cashFormat(500000)>> to enslave the Queen and _his3 court ladies.//
<<else>>

//You lack the necessary funds to enslave the Queen and _his3 ladies.//
<</if>>
<<if $SF.Toggle && $SF.Active >= 1>>

<<link "Dispatch $SF.Lower on a night time raid to acquire the Queen and _his3 court ladies.">>
	<<replace "#result">>
		Seizing a tablet, you quickly send a message to The Colonel. After dark, a flight of VTOLs land in the new arcology laden with troops. When they take off again they have the Queen, who is resigned to _his3 fate, and a gaggle of terrified court ladies chained together.

		Eventually they all arrive in your penthouse. The Queen seems almost relieved and basks in the opulence of _his3 new surroundings. Yet, it seems likely that _his3 relief has more to do with saving _him3 from a lifetime of gang rape at the mercy of _his3 former subjects, than it does the familiar luxury. _He3 submits to biometric scanning obediently and without
		<<if $seePreg != 0>>
			fuss, during which you discover to _his3 surprise that _he3 is pregnant. Since _he3 hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice _he3 cradles _his3 ever so slightly rounded stomach protectively nonetheless.
		<<else>>
			fuss.
		<</if>>
		Meanwhile, the ladies seem comforted by the opulence of their new surroundings. Though they still retain much of their aristocratic arrogance, they each submit to biometric scanning with relative obedience. It seems likely that their obedience is borne out of a delusional rationalization that enslavement by one wealthy master is better than enslavement by the unwashed masses they once lorded over.
		<<set $arcologies[0].prosperity -= 13>>
		/* ladies */
		<<for $i = 0; $i < 3; $i++>>
			<<set $activeSlaveOneTimeMinAge = 21>>
			<<set $activeSlaveOneTimeMaxAge = ($retirementAge-2)>>
			<<set $oneTimeDisableDisability = 1>>
			<<set $fixedNationality = _princess.nationality>>
			<<set $activeSlave = GenerateNewSlave("XX")>>
			<<set _origin = "$He was a member of the court in an ancient kingdom, till it was overthrown and $he was acquired by "+$SF.Lower+".">>
			<<set $activeSlave.origin = _origin>>
			<<set $activeSlave.career = "a lady courtier">>
			<<set $activeSlave.prestige = 1>>
			<<set $activeSlave.prestigeDesc = "$He was once a lady of the court of an ancient kingdom.">>
			<<set $activeSlave.face = random(25,76)>>
			<<set $activeSlave.devotion = random(10,20)>>
			<<set $activeSlave.trust = random(-20,-30)>>
			<<set $activeSlave.boobs = random(3,10)*100>>
			<<set $activeSlave.vagina = 1>>
			<<set $activeSlave.dick = 0>>
			<<set $activeSlave.foreskin = 0>>
			<<set $activeSlave.balls = 0>>
			<<set $activeSlave.ovaries = 1>>
			<<set $activeSlave.pubicHStyle = "waxed">>
			<<set $activeSlave.underArmHStyle = "waxed">>
			<<set $activeSlave.shoulders = random(-1,1)>>
			<<set $activeSlave.hips = 1>>
			<<set $activeSlave.butt = 1>>
			<<set $activeSlave.anus = 0>>
			<<set $activeSlave.weight = 0>>
			<<set $activeSlave.intelligence = random(-50,70)>>
			<<set $activeSlave.intelligenceImplant = 15>>
			<<set $activeSlave.skill.entertainment = 25>>
			<<set $activeSlave.skill.whoring = 0>>
			<<run setHealth($activeSlave, jsRandom(30, 60), 0, 0, 0, 0)>>
			<<set $activeSlave.canRecruit = 0>>
			<<set $activeSlave.behavioralFlaw = either("arrogant", "bitchy")>>
			<<run newSlave($activeSlave)>> /* skip New Slave Intro */
			<<run repX(-3000, "event", $activeSlave)>>
		<</for>>
		/*Queen*/
		<<set _queen.origin = "$He was the Queen of a royal kingdom, till $his husband was overthrown and $he was acquired by "+$SF.Lower+".">>
		<<run setMissingParents(_queen)>>
		<<run newSlave(_queen)>> /* skip New Slave Intro */
		<<run repX(-4000, "event", _queen)>>
	<</replace>>
<</link>> //You will be despised for this action, and trade will be greatly damaged.//
<</if>>

<<if $limitFamilies !== 1>>
	<<if $cash >= 2500000>>

<<link "Send an unheard amount of credits and goods to retrieve the entire court.">>
		<<replace "#result">>
			You take a tablet and transmit a communication request to the new arcology owner with your intent. Once his shock wears off, he readily accepts with little need for negotiation. Soon, a flight of VTOLs land in the new arcology laden with goods. When they take off again they have the
			<<if $seeDicks > 0>>
				prince and princess, clad in chains and bound face to face in a forced embrace, the Queen, who is resigned to _his3 fate,
			<<else>>
				princess and $his mother, clad in chains and bound face to face in a forced embrace,
			<</if>>
			and a gaggle of terrified court ladies.

			Eventually they all arrive in your penthouse. The
			<<if $seeDicks > 0>>
				prince and princess
			<<else>>
				princess and queen
			<</if>>
			are flushed with embarrassment in their compromising position.
			<<if $seeDicks > 0>>
				The former prince is beside _himself2 with rage, but seems to be holding _himself2 back for _his2 little $sister's sake, while $he struggles to maintain a façade of poise and grace.
			<<else>>
				The princess struggles to maintain a façade of poise and grace.
			<</if>>
			The slightest trembling of $his balled up fists, the minute tremors that mar $his immaculate posture, $his inability to meet your eyes with $his own — all signs that $he is still a scared $girl despite all $his royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to $him in $his new life in the penthouse, it does stand in stark contrast to $his more common slave peers.
			<<if $seeDicks > 0>>
				However, the prince's submission to life as a slave is another question entirely. The Queen, on the other hand,
			<<else>>
				The Queen
			<</if>>
			seems almost relieved and basks in the opulence of _his3 new surroundings. Yet, it seems likely that _his3 relief has more to do with saving _him3 from a lifetime of gang rape at the mercy of _his3 former subjects, than it does the familiar luxury. _He3 submits to biometric scanning obediently and without
			<<if $seePreg != 0>>
				fuss, during which you discover to _his3 surprise that _he3 is pregnant. Since _he3 hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice _he3 cradles _his3 ever so slightly rounded stomach protectively nonetheless.
			<<else>>
				fuss.
			<</if>>
			Lastly, the ladies seem comforted by the opulence of their new surroundings. Though they still retain much of their aristocratic arrogance, they each submit to biometric scanning with relative obedience. It seems likely that their obedience is borne out of a delusional rationalization that enslavement by one wealthy master is better than enslavement by the unwashed masses they once lorded over.
			/* ladies */
			<<for $i = 0; $i < 3; $i++>>
				<<set $activeSlaveOneTimeMinAge = 21>>
				<<set $activeSlaveOneTimeMaxAge = ($retirementAge-2)>>
				<<set $oneTimeDisableDisability = 1>>
				<<set $fixedNationality = _princess.nationality>>
				<<set $activeSlave = GenerateNewSlave("XX")>>
				<<set _origin = "$He was a member of the court in an ancient kingdom, till it was overthrown and $he was sold for credits.">>
				<<set $activeSlave.origin = _origin>>
				<<set $activeSlave.career = "a lady courtier">>
				<<set $activeSlave.prestige = 1>>
				<<set $activeSlave.prestigeDesc = "$He was once a lady of the court of an ancient kingdom.">>
				<<set $activeSlave.face = random(25,76)>>
				<<set $activeSlave.devotion = random(10,20)>>
				<<set $activeSlave.trust = random(-20,-30)>>
				<<set $activeSlave.boobs = random(3,10)*100>>
				<<set $activeSlave.vagina = 1>>
				<<set $activeSlave.dick = 0>>
				<<set $activeSlave.foreskin = 0>>
				<<set $activeSlave.balls = 0>>
				<<set $activeSlave.ovaries = 1>>
				<<set $activeSlave.pubicHStyle = "waxed">>
				<<set $activeSlave.underArmHStyle = "waxed">>
				<<set $activeSlave.shoulders = random(-1,1)>>
				<<set $activeSlave.hips = 1>>
				<<set $activeSlave.butt = 1>>
				<<set $activeSlave.anus = 0>>
				<<set $activeSlave.weight = 0>>
				<<set $activeSlave.intelligence = random(-50,70)>>
				<<set $activeSlave.intelligenceImplant = 15>>
				<<set $activeSlave.skill.entertainment = 25>>
				<<set $activeSlave.skill.whoring = 0>>
				<<run setHealth($activeSlave, jsRandom(30, 60), 0, 0, 0, 0)>>
				<<set $activeSlave.canRecruit = 0>>
				<<set $activeSlave.behavioralFlaw = either("arrogant", "bitchy")>>
				<<run newSlave($activeSlave)>> /* skip New Slave Intro */
				<<run cashX(-133333, "slaveTransfer", $activeSlave)>>
			<</for>>
			/* princess */
			<<set _princess.origin = "$He was a princess of a royal kingdom, till $his family was overthrown and $he was sold for credits.">>
			<<set _princess.mother = _queen.ID>>
			<<run setMissingParents(_princess)>>
			<<run newSlave(_princess)>> /* skip New Slave Intro */
			<<run cashX(-1100000, "slaveTransfer", _princess)>>
			/* prince */
			<<if $seeDicks > 0>>
				<<set _prince.origin = "$He was the crown prince of a royal kingdom, till $his family was overthrown and $he was sold for credits.">>
				<<set _prince.mother = _princess.mother>>
				<<set _prince.father = _princess.father>>
				<<run newSlave(_prince)>> /* skip New Slave Intro */
				<<run cashX(-750000, "slaveTransfer", _prince)>>
			<</if>>
			/*Queen*/
			<<set _queen.origin = "$He was the Queen of a royal kingdom, till $his husband was overthrown and $he was sold for credits.">>
			<<run setMissingParents(_queen)>>
			<<run newSlave(_queen)>> /* skip New Slave Intro */
			<<run cashX(-250000, "slaveTransfer", _queen)>>
		<</replace>>
	<</link>> // It will cost about <<print cashFormat(2500000)>> to enslave the entire court.//
	<<else>>

//You lack the necessary funds to enslave the entire court.//
	<</if>>

	<<if $SF.Toggle && $SF.Active >= 1>>

<<link "Dispatch $SF.Lower on a night time raid to take everything of value.">>
			<<replace "#result">>
				<<set _loot = random(10,300)*100>>
				Seizing a tablet, you quickly send a message to The Colonel. After dark, a flight of VTOLs land in the new arcology laden with troops. When they take off again they have the
				<<if $seeDicks > 0>>
					prince and princess, clad in chains and bound face to face in a forced embrace, the Queen, who is resigned to _his3 fate,
				<<else>>
					princess and $his mother, clad in chains and bound face to face in a forced embrace,
				<</if>>
				and a gaggle of terrified court ladies and as much loot as they could carry.

				Eventually they all arrive in your penthouse. The
				<<if $seeDicks > 0>>
					prince and princess
				<<else>>
					princess and queen
				<</if>>
				are flushed with embarrassment in their compromising position.
				<<if $seeDicks > 0>>
					The former prince is beside _himself2 with rage, but seems to be holding _himself2 back for _his2 little $sister's sake, while $he struggles to maintain a façade of poise and grace.
				<<else>>
					The princess struggles to maintain a façade of poise and grace.
				<</if>>
				The slightest trembling of $his balled up fists, the minute tremors that mar $his immaculate posture, $his inability to meet your eyes with $his own — all signs that $he is still a scared $girl despite all $his royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to $him in $his new life in the penthouse, it does stand in stark contrast to $his more common slave peers.
				<<if $seeDicks > 0>>
					However, the prince's submission to life as a slave is another question entirely. The Queen, on the other hand,
				<<else>>
					The Queen
				<</if>>
				seems almost relieved and basks in the opulence of _his3 new surroundings. Yet, it seems likely that _his3 relief has more to do with saving _him3 from a lifetime of gang rape at the mercy of _his3 former subjects, than it does the familiar luxury. _He3 submits to biometric scanning obediently and without
				<<if $seePreg != 0>>
					fuss, during which you discover to _his3 surprise that _he3 is pregnant. Since _he3 hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice _he3 cradles _his3 ever so slightly rounded stomach protectively nonetheless.
				<<else>>
					fuss.
				<</if>>
				Lastly, the ladies seem comforted by the opulence of their new surroundings. Though they still retain much of their aristocratic arrogance, they each submit to biometric scanning with relative obedience. It seems likely that their obedience is borne out of a delusional rationalization that enslavement by one wealthy master is better than enslavement by the unwashed masses they once lorded over. You also scored @@.yellowgreen;<<print cashFormat(_loot)>>@@ in valuables from the raid.
				<<set $arcologies[0].prosperity = 2>>
				<<set _repShares = Math.trunc($rep/-15)>> /*this event is supposed to end in reputation at 0. In order to slice up that pie, we find shares of "everything" here and give them out later, before finally setting leftovers to 0. 3 ladies at one share each, +3 for prince, +4 for queen, +5 for princess is 15 shares.*/

				/* ladies */
				<<for $i = 0; $i < 3; $i++>>
					<<set $activeSlaveOneTimeMinAge = 21>>
					<<set $activeSlaveOneTimeMaxAge = ($retirementAge-2)>>
					<<set $fixedNationality = _princess.nationality>>
					<<set $oneTimeDisableDisability = 1>>
					<<set $activeSlave = GenerateNewSlave("XX")>>
					<<set _origin = "$He was a member of the court in an ancient kingdom, till it was overthrown and $he was acquired by "+$SF.Lower+".">>
					<<set $activeSlave.origin = _origin>>
					<<set $activeSlave.career = "a lady courtier">>
					<<set $activeSlave.prestige = 1>>
					<<set $activeSlave.prestigeDesc = "$He was once a lady of the court of an ancient kingdom.">>
					<<set $activeSlave.face = random(25,76)>>
					<<set $activeSlave.devotion = random(10,20)>>
					<<set $activeSlave.trust = random(-20,-30)>>
					<<set $activeSlave.boobs = random(3,10)*100>>
					<<set $activeSlave.vagina = 1>>
					<<set $activeSlave.dick = 0>>
					<<set $activeSlave.foreskin = 0>>
					<<set $activeSlave.balls = 0>>
					<<set $activeSlave.ovaries = 1>>
					<<set $activeSlave.pubicHStyle = "waxed">>
					<<set $activeSlave.underArmHStyle = "waxed">>
					<<set $activeSlave.shoulders = random(-1,1)>>
					<<set $activeSlave.hips = 1>>
					<<set $activeSlave.butt = 1>>
					<<set $activeSlave.anus = 0>>
					<<set $activeSlave.weight = 0>>
					<<set $activeSlave.intelligence = random(-50,70)>>
					<<set $activeSlave.intelligenceImplant = 15>>
					<<set $activeSlave.skill.entertainment = 25>>
					<<set $activeSlave.skill.whoring = 0>>
					<<run setHealth($activeSlave, jsRandom(30, 60), 0, 0, 0, 0)>>
					<<set $activeSlave.canRecruit = 0>>
					<<set $activeSlave.behavioralFlaw = either("arrogant", "bitchy")>>
					<<run newSlave($activeSlave)>> /* skip New Slave Intro */
					<<run repX((1*_repShares), "event", $activeSlave)>>
				<</for>>
				/* princess */
				<<set _princess.origin = "$He was a princess of a royal kingdom, till $his family was overthrown and $he was acquired by "+$SF.Lower+".">>
				<<set _princess.mother = _queen.ID>>
				<<run setMissingParents(_princess)>>
				<<run newSlave(_princess)>> /* skip New Slave Intro */
				<<run repX((5*_repShares), "event", $activeSlave)>>
				/* prince */
				<<if $seeDicks > 0>>
					<<set _prince.origin = "$He was the crown prince of a royal kingdom, till $his family was overthrown and $he was acquired by "+$SF.Lower+".">>
					<<set _prince.mother = _princess.mother>>
					<<set _prince.father = _princess.father>>
					<<run newSlave(_prince)>> /* skip New Slave Intro */
					<<run repX((3*_repShares), "event", $activeSlave)>>
				<</if>>
				/*Queen*/
				<<set _queen.origin = "$He was the Queen of a royal kingdom, till $his husband was overthrown and $he was acquired by "+$SF.Lower+".">>
				<<run setMissingParents(_queen)>>
				<<run newSlave(_queen)>> /* skip New Slave Intro */
				<<run repX((4*_repShares), "event", $activeSlave)>>
				<<run repX(0-$rep, "event")>> /*Round off any remaining rep due to the trunc on shares*/
			<</replace>>
		<</link>> //You will be loathed for this action and trade will be crippled.//
	<</if>>
<</if>>


code:
:: Arcade [nobr jump-to-safe jump-from-safe]

<<set $nextButton = "Back to Main", $nextLink = "Main", $returnTo = "Arcade", $encyclopedia = "Arcade", _AL = App.Entity.facilities.arcade.employeesIDs().size>>

	<<if $arcadeName != "the Arcade">>
		<<set $arcadeNameCaps = $arcadeName.replace("the ", "The ")>>
	<</if>>
	$arcadeNameCaps
	<<switch $arcadeDecoration>>
		<<case "Roman Revivalist">>
			is built out as a Roman street restaurant, with the bar containing the inmates. Citizens can amuse themselves at either side of the bar while enjoying some wine and olives and talking over the day's events.
		<<case "Aztec Revivalist">>
			is built out as an Aztec stone temple, with a short stone staircase to lead the people straight to the slaves waiting in front of the establishment. A small canal leads the shed blood to the back and out of the building.
		<<case "Egyptian Revivalist">>
			is built to look like an ancient Egyptian temple, with a long altar of sacrifice serving as the wall in which the inmates are held. Incongruously, it's piled with fresh flowers.
		<<case "Edo Revivalist">>
			is built to look like an Edo onsen, with discreet partitions allowing citizens a modicum of privacy as they use the services here. There are baths available so they can wash themselves afterward.
		<<case "Arabian Revivalist">>
			is built to look like a fantastical Arabian dungeon, with the inmates kept in iron cages that hold their holes in place for use.
		<<case "Chinese Revivalist">>
			is set up to look like a rough bar in an ancient Chinese city, with the inmates immured in the bar itself. Rowdy citizens can drink and fuck the holes here while shouting and boasting over the slaves' heads.
		<<case "Chattel Religionist">>
			is well decorated with severe religious iconography, since this place is an acceptable if not respectable place for a citizen to find relief, so long as they keep the service of the slave they use here in mind.
		<<case "Degradationist">>
			is nothing but a system of harnesses to hold slaves in the usual posture they would hold within a normal Free Cities sex arcade. This way, no iota of their degradation here is missed.
		<<case "Asset Expansionist">>
			is constructed so that the slaves lie within the arcade facing up. The wall itself ends at waist height, so their breasts stick up to be groped while they are used from either end.
		<<case "Repopulation Focus">>
			is constructed so that the slaves lie within the arcade facing up. A hole is situated above them, so that their belly has room to protrude upwards as they are fucked pregnant.
		<<case "Eugenics">>
			is designed with built in dispensers for various prophylactics. Numerous reminders to not impregnate subhumans line the walls along with offers for patrons to join the ranks of the Elite.
		<<case "Transformation Fetishist">>
			reveals more of its inmates' bodies than the typical Free Cities sex arcade. There's no attempt to hide the feeding arrangements or injection lines, since transformation into a human sex toy is considered arousing here.
		<<case "Gender Radicalist">>
			is built to reveal most of its inmate's bellies, butts, groins, and thighs. Whatever a slave here has between her legs, it's available to be fucked, played with, or abused.
		<<case "Gender Fundamentalist">>
			is built to block the lower part of its inmates' butts from view and use. The slaves within are thus limited to their anuses for service here, but any slave can be disposed of in $arcadeName without offending fundamentalist sensibilities.
		<<case "Physical Idealist">>
			logs customers' performance for their own athletic information. It keeps track of personal bests and all-time high scores, and pays out cash prizes to customers who fuck the holes faster, harder, or for longer than the previous record holder.
		<<case "Supremacist">>
			is constructed so that the inmates' entire heads stick out of the mouth wall, though they're still masked and their jaws are held apart by ring gags. After all, seeing the anguish of the subhumans here is one of the main attractions.
		<<case "Subjugationist">>
			is constructed so that the inmates' entire heads stick out of the mouth wall, though they're still masked and their jaws are held apart by ring gags. After all, seeing the anguish of the $arcologies[0].FSSubjugationistRace slaves here is one of the main attractions.
		<<case "Paternalist">>
			is constructed so that nothing at all of the slaves is visible. The arcade is just a row of holes. In this way, good, paternalistic citizens can partake of a Free Cities sex arcade without being confronted with what they're doing.
		<<case "Pastoralist">>
			is constructed so that the slaves lie within the arcade facing up. If a slave is lactating, her breasts are kept bare and under the maximum sustainable dose of lactation drugs, so that any penetration of her holes produces amusing squirts of milk.
		<<case "Maturity Preferentialist">>
			is constructed so that nothing but the slaves' holes can be seen. This makes it possible to maintain the appearance of offering MILFs while using $arcadeName to get value out of useless young bitches' holes.
		<<case "Youth Preferentialist">>
			is constructed so that nothing but the slaves' holes can be seen. This makes it possible to maintain the appearance of offering nothing but young slaves while using $arcadeName to get value out of old bitches' holes.
		<<case "Body Purist">>
			is built out in such a way that much more of the slaves' rears and faces are visible than in a standard Free Cities sex arcade. This makes it much easier to check them for purity before using their holes.
		<<case "Slimness Enthusiast">>
			is barely distinguishable from a standard Free Cities sex arcade. The difference is a fun one, though: since the butts sticking out of the wall are much skinnier than usual, there's no padding to get in the way of hilting oneself in the holes.
		<<case "Hedonistic">>
			is built in such a way so that most of a slave's ass, thighs, breasts and belly are exposed for patrons to grope and fondle. Plenty of cup holders and surfaces are available to hold one's food and drink as they enjoy their hole of choice.
		<<case "Intellectual Dependency">>
			is barely distinguishable from a standard Free Cities sex arcade. The difference is a fun one, though: $arcadeName keeps track of the total number of orgasms each stall experiences each day and displays the current leader to encourage competition.
		<<case "Slave Professionalism">>
			is constructed so that nothing but the slaves' holes can be seen. No details are given about the slave within, nor are their minds allowed to perceive what is happening around them.
		<<case "Petite Admiration">>
			is barely distinguishable from a standard Free Cities sex arcade. The difference is remarkable, though: since it expects clientèle of all sizes, the stalls are easily ratcheted to the perfect height.
		<<case "Statuesque Glorification">>
			is constructed so that the slaves' holes are lined up perfectly for the taller clientèle. This makes it possible to maintain the appearance of offering nothing but tall slaves while using $arcadeName to get value out of short bitches' holes.
		<<default>>
			is a standard Free Cities sex arcade: a pair of hallways extend away from the entrance, lined with doorless stalls like those in a public restroom. One hallway offers mouths, the other <<if $seeDicks != 100>>vaginas and <</if>>anuses.
	<</switch>>
	<<if _AL > 2>>
		It's busy. Customers are entering and exiting, leaving a few ¤ behind in the charge machines and loads of semen behind in the holes.
	<<elseif _AL > 0>>
		It's understaffed; there are lines here and there for the few holes available.
	<<else>>
		It's empty and quiet.

			<<link "Decommission the arcade" "Main">>
				<<set $arcade = 0, $arcadeUpgradeInjectors = 0, $arcadeUpgradeFuckdolls = 0, $arcadeUpgradeCollectors = 0>>
				<<run App.Arcology.cellUpgrade($building, App.Arcology.Cell.Market, "Arcade", "Markets")>>
			<</link>>

	<</if>>

	It can support $arcade inmates. There <<if _AL == 1>>is<<else>>are<</if>> currently _AL slave<<if _AL != 1>>s<</if>> incarcerated in $arcadeName.

	<<if $arcadeUpgradeFuckdolls == 1 && _AL > 1>>
		The arcade has automatic Fuckdollification functions, and you can decide to convert your least popular slave at the end of the week. [[Activate|Arcade][$arcadeUpgradeFuckdolls = 2]]
	<<elseif $arcadeUpgradeFuckdolls == 2>>
		You have decided that the least popular inmate will be converted to a standard Fuckdoll this week. [[Deactivate|Arcade][$arcadeUpgradeFuckdolls = 1]]
	<</if>>

	<<if $arcade > _AL && $fuckdolls > 0>>
		<<set _fuckdollRoom = $arcade - _AL>>
		There is room in the arcade for <<print _fuckdollRoom>> menial Fuckdolls. <<if $fuckdolls > 1>>They'll be more efficient in the arcade, so you restrain them here.<<else>>Your Fuckdoll will be more efficient serving in the arcade, so you send it here.<</if>>
	<</if>>

	<<set _Tmult0 = Math.trunc($arcade*1000*$upgradeMultiplierArcology)>>
	[[Expand the arcade|Arcade][cashX(forceNeg(_Tmult0), "capEx"), $arcade += 10]] //Costs <<print cashFormat(_Tmult0)>> and will increase upkeep costs//

	<<if _AL > 0>>
		<<includeDOM removeFacilityWorkers("arcade", "", "work a glory hole")>>
	<</if>>

<<set _Tmult1 = Math.trunc(10000*$upgradeMultiplierArcology)>>

	<<if $arcadeUpgradeInjectors == 1>>
		It has been upgraded with electroshock applicators. Whether they're enjoying themselves or not is irrelevant, they are shocked to tighten their holes regardless. You may also apply aphrodisiacs to further enhance performance. [[Apply aphrodisiacs|Arcade][$arcadeUpgradeInjectors = 2]]
	<<elseif $arcadeUpgradeInjectors == 2>>
		It has been upgraded with aphrodisiac injection systems and electroshock applicators. If the aphrodisiacs fail to force an orgasm from an inmate, they are shocked to tighten their holes regardless.
	<<elseif $arcadeUpgradeCollectors == 1>>
		It has been retrofitted to milk lactating slaves<<if $seeDicks != 0>> and cockmilk slaves capable of ejaculating<</if>>, though less efficiently than a dedicated facility.
	<<else>>
		It is a standard arcade. It can be upgraded to either maximize the pleasure of those that visit it at the expense of the health of the inmates, or to keep them healthy (if not happy) and milk them of useful fluids.

			[[Upgrade the arcade with invasive performance-enhancing systems|Arcade][cashX(forceNeg(_Tmult1), "capEx"), $arcadeUpgradeInjectors = 1]] | [[Retrofit the arcade to collect useful fluids|Arcade][cashX(forceNeg(_Tmult1), "capEx"), $arcadeUpgradeCollectors = 1]]

				Choosing either upgrade will cost <<print cashFormat(_Tmult1)>> and will increase upkeep costs. They are mutually exclusive; only one can be chosen.

	<</if>>

	<<if $arcadeUpgradeHealth == 2>>
		It has been upgraded with curative injectors and set to maximum power. Inmates will be kept decently healthy so they can be held locked in place for as long as necessary while remaining productive throughout.

			[[Decrease power|Arcade][$arcadeUpgradeHealth = 1]]

	<<elseif $arcadeUpgradeHealth == 1>>
		It has been upgraded with curative injectors. Inmates will be kept alive and productive, so they may be held locked in place for as long as necessary and available for use.

			[[Increase power|Arcade][$arcadeUpgradeHealth = 2]] | [[Turn off|Arcade][$arcadeUpgradeHealth = 0]]

	<<elseif $arcadeUpgradeHealth == 0>>
		It has been upgraded with curative injectors, but they are currently turned off.

			[[Turn on|Arcade][$arcadeUpgradeHealth = 1]]

	<<else>>
		The arcade can be upgraded to include curative injectors in order to keep inmates from succumbing under the harsh treatment. You are assured the inmates won't like their time in the arcade any better, it is purely intended to keep them functional and ready for use around the clock. It comes equipped with two settings.

			[[Install curative injectors|Arcade][$arcadeUpgradeHealth = 1]]

	<</if>>

	$arcadeNameCaps is
	<<if $arcadeUpgradeFuckdolls == 1>>
		equipped to convert inmates into standard Fuckdolls. The converter can be put to work on your order.

			[[Turn on conversion|Arcade][$arcadeUpgradeFuckdolls = 2]]

	<<elseif $arcadeUpgradeFuckdolls == 2>>
		equipped to convert inmates into standard Fuckdolls. The converter is currently active and will convert the least popular girl at the end of the week.

			[[Turn off conversion|Arcade][$arcadeUpgradeFuckdolls = 1]]

	<<else>>
		<<set _Tmult2 = Math.trunc(5000*$upgradeMultiplierArcology)>>
		not equipped to convert inmates into standard Fuckdolls.

			[[Upgrade the arcade to create Fuckdolls|Arcade][cashX(forceNeg(_Tmult2), "capEx"), $arcadeUpgradeFuckdolls = 1]]

				Costs <<print cashFormat(_Tmult2)>>

	<</if>>

<<includeDOM App.Facilities.Arcade.Stats(true)>>

	<<includeDOM App.UI.SlaveList.listSJFacilitySlaves(App.Entity.facilities.arcade)>>

	Rename $arcadeName: <<textbox "$arcadeName" $arcadeName "Arcade">>

		Use a noun or similar short phrase

repo_name: NovX/fc

license: mit


code:
:: Arcade Report [nobr]

<<set _slaves = App.Utils.sortedEmployees(App.Entity.facilities.arcade)>>
<<set _DL = _slaves.length, _SL = $slaves.length, _cockmilked = 0, _milked = 0, _milkProfits = 0, _profits = 0, _oldCash = 0, _boobsImplanted = 0, _prostatesImplanted = 0, _vasectomiesUndone = 0, _mSlave = 0, _bSlave = 0, _pSlave = 0, _cSlave = 0>>

<<set $facility = $facility || {}, $facility.arcade = initFacilityStatistics($facility.arcade)>>

    <<if (_DL > 1)>>''There are _DL inmates confined in $arcadeName.''<<else>>''There is one inmate confined in $arcadeName.''<</if>>
<<if ($arcologies[0].FSDegradationist > 20)>>
	<<if $arcologies[0].FSDegradationistLaw == 1>>
		The tenants located near the arcade consider the facility a normal part of their surroundings, including the crowd of menial slaves waiting their turn spills out into the hallway, 24 hours a day.
	<<else>>
		The tenants located near the arcade consider the facility a normal part of their surroundings.
	<</if>>
<<elseif ($arcologies[0].FSPaternalist > 20)>>
	The tenants located near the arcade consider it an @@.red;intolerable@@ establishment.
<</if>>
<<if $arcadeDecoration != "standard">>

    $arcadeNameCaps's customers enjoy @@.green;getting off in $arcadeDecoration surroundings.@@
<</if>>

<<for _slave range _slaves>>
	<<setLocalPronouns _slave>>
	<<set $i = $slaveIndices[_slave.ID]>> /% for the included passages %/

	/* Perform facility based rule changes */
	<<set _slave.clothes = "no clothing">>
	/* Health */
	<<if $arcadeUpgradeHealth == 2 && _slave.health.condition < 40>>
		<<run improveCondition(_slave, 2)>>
	<<elseif _slave.health.condition > 20>>
		<<run healthDamage(_slave, 5)>>
	<<elseif $arcadeUpgradeHealth == 1 && _slave.health.condition < -30>>
		<<run improveCondition(_slave, 2)>>
	<<elseif _slave.health.condition > -50>>
		<<run healthDamage(_slave, 3)>>
	<<elseif _slave.health.condition > -90>>
		<<run healthDamage(_slave, 1)>>
	<</if>>
	/* Curatives */
	<<if $arcadeUpgradeHealth == 2>>
		<<set _slave.curatives = 2>>
	<<elseif $arcadeUpgradeHealth == 1>>
		<<set _slave.curatives = 1>>
	<</if>>
	/* Stimulation or lack thereof trust/devotion effect */
	<<if ($arcadeUpgradeInjectors > 0)>>
		<<if $arcadeUpgradeInjectors == 2>>
			<<set _slave.aphrodisiacs = 2>>
		<</if>>
		<<set _slave.devotion -= 5, _slave.trust -= 10>>
	<<else>>
		<<set _slave.trust -= 5>>
	<</if>>
	/* Muscles */
	<<if (_slave.muscles > -100)>>
		<<set _slave.muscles-->>
	<</if>>

	<<if $showEWD != 0>>

		/* 000-250-006 */
		<<if $seeImages && $seeReportImages>>

				<<= SlaveArt(_slave, 0, 0)>>

		<</if>>
		/* 000-250-006 */
		<<= SlaveFullName(_slave)>>
		<<if _slave.choosesOwnAssignment == 2>>
			<<= App.SlaveAssignment.choosesOwnJob(_slave)>>
		<<else>>
			is confined in $arcadeName.
		<</if>>

    $He <<= App.SlaveAssignment.workAGloryHole(_slave)>>
	<<else>>
		<<run App.SlaveAssignment.choosesOwnJob(_slave)>>
		<<run App.SlaveAssignment.workAGloryHole(_slave)>>
	<</if>>
	<<if ($arcadeUpgradeCollectors > 0)>>
		<<if (_slave.vasectomy == 1)>>
			<<set _slave.vasectomy = 0, _vasectomiesUndone++>>
			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", _slave), surgeryDamage(_slave, 10)>>
		<<elseif (_slave.lactation < 2)>>
			<<set _slave.lactation = 2, _boobsImplanted++>>
			<<set _bSlave = _slave>>
			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", _slave), surgeryDamage(_slave, 10)>>
		<<elseif _slave.prostate == 1>>
			<<set _slave.prostate = 2, _prostatesImplanted++>>
			<<set _pSlave = _slave>>
			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", _slave), surgeryDamage(_slave, 10)>>
		<<elseif (_slave.lactation > 0) || (_slave.balls > 0)>>
			<<set _oldCash = $cash>>
			<<if $showEWD != 0>>

    $He <<= App.SlaveAssignment.getMilked(_slave)>>
			<<else>>
				<<run App.SlaveAssignment.getMilked(_slave)>>
			<</if>>
			<<set _milkProfits += $cash-_oldCash>>
			<<set _growth = 0>>
			<<set _gigantomastiaMod = _slave.geneticQuirks.gigantomastia == 2 ? (_slave.geneticQuirks.macromastia == 2 ? 3 : 2) : 1>>
			<<if (_slave.boobs < 2000)>>
				<<set _growth = 100>>
			<<elseif (_slave.boobs < 5000*_gigantomastiaMod)>>
				<<set _growth = 50>>
			<<elseif (_slave.boobs < 10000*_gigantomastiaMod)>>
				<<set _growth = 25>>
			<</if>>
			<<if (_slave.geneMods.NCS == 1)>>
				/*
				** NCS will allow some growth for Arcade milking, but not as much as the Dairy.
				*/
				<<set _growth = Math.trunc(_growth/3.5)>>
			<</if>>
			<<set _slave.boobs += _growth>>
			<<if ((_slave.balls > 0) && (_slave.balls < 10) && (random(1,100) > (40 + (10 * (_slave.balls + (2 * _slave.geneMods.NCS))))))>>
				<<set _slave.balls++>>
			<</if>>
			<<if ((_slave.dick > 0) && (_slave.dick < 10) && (random(1,100) > (40 + (10 * _slave.dick + (2 * _slave.geneMods.NCS)))))>>
				<<set _slave.dick++>>
			<</if>>
			<<if (_slave.lactation > 0)>>
				<<set _milked++>>
				<<set _mSlave = _slave>>
			<</if>>
			<<if (_slave.balls > 0)>>
				<<set _cockmilked++>>
				<<set _cSlave = _slave>>
			<</if>>
		<</if>>
	<</if>>
	<<if (_slave.inflation > 0)>>
		<<run deflate(_slave)>>
	<</if>>
	<<if $showEWD != 0>>

		<<include "SA rules">>
		<<include "SA diet">>
		<<include "SA long term effects">>
		<<= App.SlaveAssignment.drugs(_slave)>>
		<<= App.SlaveAssignment.relationships(_slave)>>
		<<= App.SlaveAssignment.rivalries(_slave)>>

    <<= App.SlaveAssignment.devotion(_slave)>>
	<<else>>
		<<silently>>
		<<include "SA rules">>
		<<include "SA diet">>
		<<include "SA long term effects">>
		<<run App.SlaveAssignment.drugs(_slave)>>
		<<run App.SlaveAssignment.relationships(_slave)>>
		<<run App.SlaveAssignment.rivalries(_slave)>>
		<<run App.SlaveAssignment.devotion(_slave)>>
		<</silently>>
	<</if>>
<</for>>

<<if _DL + $fuckdolls > 0>>

	<<if _milked == 1>>
		<<setLocalPronouns _mSlave>>
		One of them is lactating and spends $his time in $arcadeName being simultaneously milked and fucked.
	<<elseif _milked > 1>>
		_milked of them are lactating and spend their time in $arcadeName being simultaneously milked and fucked.
	<</if>>

	<<if _vasectomiesUndone>>
		<<if _vasectomiesUndone == 1>>
			One
		<<else>>
			_vasectomiesUndone
		<</if>>
		of them had severed vas deferens, so they were reattached to allow sperm through, costing @@.red;<<print cashFormat($surgeryCost*_vasectomiesUndone)>>.@@
	<</if>>
	<<if _boobsImplanted>>
		<<if _boobsImplanted == 1>>
			<<setLocalPronouns _bSlave>>
			One of them was not lactating, so $he was
		<<else>>
			_boobsImplanted of them were not lactating, so they were
		<</if>>
		implanted with long-acting lactation inducing drugs, costing @@.red;<<print cashFormat($surgeryCost*_boobsImplanted)>>.@@
	<</if>>
	<<if _prostatesImplanted>>
		<<if _prostatesImplanted == 1>>
			<<setLocalPronouns _pSlave>>
			One of them was not producing the maximum possible amount of precum, so $he was
		<<else>>
			_prostatesImplanted of them were not producing the maximum possible amount of precum, so they were
		<</if>>
		implanted with long-acting prostate stimulation drugs, costing @@.red;<<print cashFormat($surgeryCost*_prostatesImplanted)>>.@@
	<</if>>
	<<if _cockmilked == 1>>
		<<setLocalPronouns _cSlave>>
		One of them retains testicles and is brutally cockmilked as $he is used.
	<<elseif _cockmilked > 1>>
		_cockmilked of them retain testicles and are brutally cockmilked as they are used.
	<</if>>

	The arcade makes you
	<<if $policies.publicFuckdolls == 0>>
		@@.yellowgreen;<<print cashFormat(_profits)>>@@ from selling the inmates' holes
	<<else>>
		@@.green;more reputable@@ from freely providing the inmates' holes
	<</if>>
	<<if $arcadeUpgradeCollectors > 0 && $policies.publicFuckdolls == 0>>
		and
	<</if>>
	<<if $arcadeUpgradeCollectors > 0>>
		@@.yellowgreen;<<print cashFormat(_milkProfits)>>@@ from selling the fluids they produced
	<</if>>
	this week.
	<<if ($arcologies[0].FSPaternalist > 20)>>
		<<run repX(forceNeg(Math.trunc(_profits/20)), "arcade")>>
	<</if>>
<</if>>

<<if ($arcadeUpgradeFuckdolls == 2)>>
	<<set $activeSlave = 0, _Age = -1, _FD = -1, _MB = -1, _Con = -1>>
	<<for _slave range _slaves>>
		<<if _slave.sentence == 0>> /* let's not convert slaves we are punishing into Fuckdolls */
			<<if (_slave.fetish == "mindbroken")>>
				<<if (_slave.fuckdoll == 0)>>
					<<if (_slave.physicalAge > 35)>>
						<<set _Age = $i>>
						<<break>>
					<<elseif _FD == -1>>
						<<set _FD = $i>>
					<</if>>
				<<elseif _MB == -1>>
					<<if _slave.vagina >= 4 || _slave.anus >= 4>>
						<<set _Con = $i>>
					<<elseif _slave.physicalAge > 35>>
						<<set _Age = $i>>
					<<else>>
						<<set _MB = $i>>
					<</if>>
				<</if>>
			<<elseif _Con == -1>>
				<<if _slave.vagina >= 4 || _slave.anus >= 4>>
					<<set _Con = $i>>
				<<elseif _slave.physicalAge > 35>>
					<<set _Age = $i>>
				<</if>>
			<</if>>
		<</if>>
	<</for>>
	<<if _FD > -1>>
		<<set $activeSlave = $slaves[_FD]>>
	<<elseif _Con > -1>>
		<<set $activeSlave = $slaves[_Con]>>
	<<elseif _MB > -1>>
		<<set $activeSlave = $slaves[_MB]>>
	<<elseif _Age > -1>>
		<<set $activeSlave = $slaves[_Age]>>
	<</if>>
	<<if $activeSlave != 0>>
		<<setLocalPronouns $activeSlave>>

    $activeSlave.slaveName is low-quality merchandise, so $he has been converted into a Fuckdoll.
		<<= removeActiveSlave() >>
		<<if $activeSlave == 0>> /% if not zero then technically there was an error INVALID SLAVE %/
			<<set $fuckdolls++, _SL-->>
		<</if>>
	<<else>>

    No slaves have failed quality inspection for Fuckdoll conversion. $arcadeNameCaps will remain overcrowded this week.
	<</if>>
<</if>>

<<if _DL > 0>>

	<>

	<<includeDOM App.Facilities.Arcade.Stats(false)>>
	<<timed 50ms>>
		<<replace #arcade-stats>>
			<<includeDOM App.Facilities.Arcade.Stats(true)>>
		<</replace>>
	<</timed>>

<</if>>