code:
:: JE slave dispute

<<nobr>>

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

<<set $event = $justiceEvents.pluck()>>

<<if $event == "slave deal">>
	<<set $contractCost = 5000>>
	<<set $activeSlaveOneTimeMinAge = 24>>
	<<set $activeSlaveOneTimeMaxAge = 42>>
	<<set $one_time_age_overrides_pedo_mode = 1>>
	<<include "Generate New Slave">>
	<<set $activeSlave.origin = "She sold herself into slavery to buy medical care for her daughter.">>
	<<set $activeSlave.devotion = random(25,30)>>
	<<set $activeSlave.trust = $activeSlave.devotion-20>>
	<<set $activeSlave.oldDevotion = $activeSlave.devotion>>
	<<set $activeSlave.health = random(0,20)>>
	<<set $activeSlave.earPiercing = 1>>
	<<if $activeSlave.dick == 0>>
		<<set $activeSlave.vagina = random(1,2)>>
		<<set $activeSlave.ovaries = 1>>
	<</if>>
	<<set $birthsTotal = 1>>
	<<set $activeSlave.shouldersTat = either("tribal patterns", "flowers")>>
	<<set $activeSlave.stampTat = either("tribal patterns", "flowers")>>
<<elseif $event == "slave training">>
	<<set $contractCost = 10000>>
	<<include "Generate XY Slave">>
	<<set $activeSlave.origin = "You bought out a deal involving her training to be an expert gelded sex slave.">>
	<<set $activeSlave.devotion = random(30,40)>>
	<<set $activeSlave.trust = $activeSlave.devotion>>
	<<set $activeSlave.oldDevotion = $activeSlave.devotion>>
	<<set $activeSlave.health = random(60,80)>>
	<<set $activeSlave.balls = 0>>
	<<set $activeSlave.anus = 2>>
	<<set $activeSlave.analSkill = 35>>
	<<set $activeSlave.oralSkill = 35>>
	<<set $activeSlave.whoreSkill = 35>>
	<<set $activeSlave.entertainSkill = 35>>
	<<set $activeSlave.nipplesPiercing = 1>>
	<<set $activeSlave.clitPiercing = 1>>
	<<set $activeSlave.dickPiercing = 1>>
	<<set $activeSlave.anusPiercing = 1>>
	<<set $activeSlave.lipsPiercing = 1>>
	<<set $activeSlave.tonguePiercing = 1>>
	<<set $activeSlave.earPiercing = 1>>
	<<set $activeSlave.nosePiercing = 1>>
	<<set $activeSlave.eyebrowPiercing = 1>>
	<<set $activeSlave.navelPiercing = 1>>
	<<set $activeSlave.boobsTat = either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.buttTat = either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.vaginaTat = either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.dickTat = either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.lipsTat = either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.anusTat = either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.shouldersTat = either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.armsTat = either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.legsTat = either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.stampTat = either("advertisements", "degradation", "rude words")>>
<<elseif $event == "majority deal">>
	<<set $contractCost = 20000>>
	<<set $activeSlaveOneTimeMinAge = $minimumSlaveAge>>
	<<set $activeSlaveOneTimeMaxAge = 18>>
	<<include "Generate New Slave">>
	<<set $activeSlave.origin = "She was raised to be a slave, since she was mistakenly thought to be from good slave stock.">>
	<<set $activeSlave.career = "a slave">>
	<<set $activeSlave.devotion = random(10,15)>>
	<<set $activeSlave.trust = $activeSlave.devotion>>
	<<set $activeSlave.oldDevotion = $activeSlave.devotion>>
	<<set $activeSlave.health = random(80,90)>>
	<<if $activeSlave.dick == 0>>
		<<set $activeSlave.vagina = 0>>
		<<set $activeSlave.ovaries = 1>>
	<<elseif $activeSlave.balls == 0>>
		<<set $activeSlave.balls = 1>>
	<</if>>
	<<set $activeSlave.anus = 0>>
	<<set $activeSlave.analSkill = 0>>
	<<set $activeSlave.oralSkill = 0>>
	<<set $activeSlave.whoreSkill = 0>>
	<<set $activeSlave.vaginalSkill = 0>>
	<<set $activeSlave.entertainSkill = 0>>
<<elseif $event == "indenture deal">>
	<<set $contractCost = 7500>>
	<<set $activeSlaveOneTimeMinAge = 24>>
	<<set $activeSlaveOneTimeMaxAge = 42>>
	<<include "Generate New Slave">>
	<<set $activeSlave.origin = "She was enslaved after you manipulated her deal for indentured servitude.">>
	<<set $activeSlave.devotion = random(-10,-15)>>
	<<set $activeSlave.trust = $activeSlave.devotion+4>>
	<<set $activeSlave.oldDevotion = $activeSlave.devotion>>
	<<set $activeSlave.health = random(-20,20)>>
	<<set $activeSlave.anus = 2>>
	<<if $activeSlave.vagina > -1>>
	<<set $activeSlave.vagina = 2>>
	<</if>>
	<<set $activeSlave.vaginalSkill = 15>>
	<<set $activeSlave.oralSkill = 15>>
	<<set $activeSlave.analSkill = 15>>
	<<set $activeSlave.whoreSkill = 0>>
	<<set $activeSlave.entertainSkill = 15>>
	<<set $activeSlave.boobs += 600>>
	<<set $activeSlave.boobsImplant = 600>>
	<<set $activeSlave.butt += 1>>
	<<set $activeSlave.buttImplant = 1>>
	<<set $activeSlave.lips += 10>>
	<<set $activeSlave.lipsImplant = 10>>
	<<set $activeSlave.lipsPiercing = 1>>
	<<set $activeSlave.tonguePiercing = 1>>
	<<set $activeSlave.earPiercing = 1>>
	<<set $activeSlave.nosePiercing = 1>>
	<<set $activeSlave.eyebrowPiercing = 1>>
	<<set $activeSlave.navelPiercing = 1>>
	<<set $activeSlave.nipplesPiercing = 1>>
	<<set $activeSlave.clitPiercing = 1>>
	<<set $activeSlave.stampTat = either("tribal patterns", "flowers")>>
<<else>>
	<<set $contractCost = 10000>>
	<<set $activeSlaveOneTimeMaxAge = 22>>
	<<include "Generate New Slave">>
	<<set $activeSlave.origin = "You bought out a deal for her sale after the seller took her virginity and the buyer no longer wanted her.">>
	<<if ndef $activeSlave.publicCount>><<set $activeSlave.publicCount = 10>><<else>><<set $activeSlave.publicCount += 10>><</if>>
	<<set $activeSlave.devotion = random(25,30)>>
	<<set $activeSlave.trust = $activeSlave.devotion-20>>
	<<set $activeSlave.oldDevotion = $activeSlave.devotion>>
	<<set $activeSlave.health = random(0,20)>>
	<<set $activeSlave.anus = 2>>
	<<if $activeSlave.dick == 0>>
		<<set $activeSlave.vagina = 2>>
		<<set $activeSlave.ovaries = 1>>
		<<if isFertile($activeSlave)>>
		<<set $activeSlave.preg = 1>>
		<</if>>
	<</if>>
<</if>>

<</nobr>>\
\
<<nobr>>

/* 000-250-006 */
/* <<if $seeImages == 1>><<SlaveArt $activeSlave 2 0>><</if>> */
<<if $seeImages == 1>>

    <<SlaveArt $activeSlave 2 0>>

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

<<if $event == "slave deal">>
	<<if $assistantName == "your personal assistant">>Your personal assistant<<else>>$assistantName<</if>> breaks in on your sleep with an urgent message. You push a slave off you and sit up to take it. As the owner of the arcology, you perform some functions that would traditionally be the province of a government. In this anarcho-liberal polity, it's still necessary for people making deals to have someone to appeal to when disputes arise. Part of your agreement with your tenants is that you will perform this duty on deals between two tenants. The message is about just such a disagreement; they always seem to happen in the middle of the night, and they're always urgent.

	An older woman who has signed an enslavement contract with a slave trader is accusing her of not living up to the terms. The contract requires that the trader pay the medical costs of the woman's daughter in return for the woman's voluntary enslavement. The woman claims that the payments have not been made and the trader is still insisting on enslavement.

	The trader states that the daughter was thought to only have a minor condition, but has proven to be suffering from serious cancer. She protests that she will lose a great deal of money, and that there's no way she would have made the deal if the woman had been honest with her about how bad her daughter's condition was. The woman responds that she didn't know.
<<elseif $event == "slave training">>
	<<if $assistantName == "your personal assistant">>Your personal assistant<<else>>$assistantName<</if>> breaks in on your sleep with an urgent message. You push a slave off you and sit up to take it. As the owner of the arcology, you perform some functions that would traditionally be the province of a government. In this anarcho-liberal polity, it's still necessary for people making deals to have someone to appeal to when disputes arise. Part of your agreement with your tenants is that you will perform this duty on deals between two tenants. The message is about just such a disagreement; they always seem to happen in the middle of the night, and they're always urgent.

	One of your prominent tenants is accusing another of failing to train a slave for him according to the terms of a slave training contract. He highlights a part of the contract that requires that the slave be expert in "all common sexual skills." He self-righteously declares that the delivered slave has no vaginal skills to speak of, that he doesn't want her as a result, and requests that you release him from the contract.

	The trainer replies with some aspersion that the accuser is technically correct: the slave has no vaginal skills at all. This is, however, due to the fact that the slave has no vagina. He claims that the accuser verbally requested a gelded slave, though there's nothing about that either way in the contract. He protests that he did his best to train an expert gelding, and offers many lengthy videos to prove that he did.
<<elseif $event == "majority deal">>
	<<if $assistantName == "your personal assistant">>Your personal assistant<<else>>$assistantName<</if>> breaks in on your sleep with an urgent message. You push a slave off you and sit up to take it. As the owner of the arcology, you perform some functions that would traditionally be the province of a government. In this anarcho-liberal polity, it's still necessary for people making deals to have someone to appeal to when disputes arise. Part of your agreement with your tenants is that you will perform this duty on deals between two tenants. The message is about just such a disagreement; they always seem to happen in the middle of the night, and they're always urgent.

	A prominent citizen is accusing a slave school of lying to him about the pedigree of a girl about to reach her majority. She'll be enslaved once she's of age, and he owns the rights to her. He produces many messages from the school about her progress; they all reference her excellent bloodline. The slave's genes were sequenced recently for an unrelated treatment, and it appears she's not the child of the slaves the school stated she was. He angrily demands compensation for the effort he's put into planning for her.

	The school's representative is apologetic, but firm. The school readily admits an error, but he protests that they weren't aware of the confusion, either. They've offered to buy her back, with interest, but reject what they call an exorbitant demand for compensation. They produce the original pedigree, protesting that it shows that they were lied to, too. The slave does resemble the supposed parents closely; only an unusually invasive check would have disclosed the fraud.
<<elseif $event == "indenture deal">>
	<<if $assistantName == "your personal assistant">>Your personal assistant<<else>>$assistantName<</if>> breaks in on your sleep with an urgent message. You push a slave off you and sit up to take it. As the owner of the arcology, you perform some functions that would traditionally be the province of a government. In this anarcho-liberal polity, it's still necessary for people making deals to have someone to appeal to when disputes arise. Part of your agreement with your tenants is that you will perform this duty on deals between two tenants. The message is about just such a disagreement; they always seem to happen in the middle of the night, and they're always urgent.

	A slutty-looking girl appears, bearing a split lip and a black eye, accusing a slave trader of tricking her. She sends you a lengthy contract of indentured servitude. Nothing seems out of order, though indentured servants are becoming less common, since slave labor is usually cheaper and less limited. The angry accuser claims that the trader told her that she wouldn't be required to have sex while indentured. The promise doesn't seem to be in writing, but the girl bitterly insists that it was made. "And now," she almost shrieks, "he's making me be a whore. I got assfucked five times yesterday. Five!"

	The trader indignantly denies ever making any such commitment, and points out, correctly, that she has no proof. He protests that he only made the indentured servitude deal as a favor to her, and is angry that she's repaying his courtesy in not insisting on enslavement by this ingratitude. "I see here in the record that she was indeed used anally five times yesterday," he observes acidly. "But that's her job."
<<else>>
	<<if $assistantName == "your personal assistant">>Your personal assistant<<else>>$assistantName<</if>> breaks in on your sleep with an urgent message. You push a slave off you and sit up to take it. As the owner of the arcology, you perform some functions that would traditionally be the province of a government. In this anarcho-liberal polity, it's still necessary for people making deals to have someone to appeal to when disputes arise. Part of your agreement with your tenants is that you will perform this duty on deals between two tenants. The message is about just such a disagreement; they always seem to happen in the middle of the night, and they're always urgent.

	A wealthy slaveowner, clearly nursing a ferocious hangover, is accusing a less prominent citizen of refusing to honor the terms of a sale they signed in the early hours of the morning. Already shaking your head, you pull up the security logs with his permission. You verify that yes, indeed, they're visible at a loud party hosted by the wealthy slaveowner, talking over a tablet for a long time before shaking hands and signing.

	The putative buyer protests that though the terms of sale don't show it, their conversation before the sale focused on the slave's virginity. The logs show that this, too, is true. And then, he rages, the slaveowner got even drunker, and brought the slave up to join the party, encouraging other guests to gangbang her. The logs show this too; the slave is definitely not a virgin any longer. The would-be buyer says he understands that he should have gotten the part about the virginity in writing and guaranteed up until he got his hands on her, but requests that you honor the spirit of the deal by letting him out of a contract to buy a now-ruined slave.
<</if>>

<</nobr>>\

<<if $event == "slave deal">>\
	<<link "Privately inform both parties you'll settle this in favor of the most generous">>
	<<replace "#result">>
	You privately inform both parties you'll settle this in favor of the most generous. You instantly receive a single notice of escrow payment contingent on the case going the payer's way. You select the @@.yellowgreen;bigger of the two@@ and decide the matter before returning to bed in a good mood. However, the next day it becomes apparent that although she isn't stupid enough to make a public accusation of corruption, the older woman made use of her few remaining hours of freedom to @@.red;slander@@ your administration of justice.
	<<set $rep -= 100>>
	<<set $cash += random(150,200)*10>>
	<</replace>>
	<</link>>
	<<link "Settle the dispute in favor of the older woman">>
	<<replace "#result">>
	You settle the dispute in favor of the slave-to-be. She is resigned, knowing that she's now owned by a woman who almost certainly hates her, but her daughter's treatments are assured. The story gets around quickly, @@.green;capturing the hearts@@ of more romantic citizens. The angry slave trader leaves the arcology, @@.red;reducing prosperity.@@
	<<set $arcologies[0].prosperity -= 5>>
	<<set $rep += 500>>
	<</replace>>
	<</link>>
	<<link "Settle the dispute in favor of the slave trader">>
	<<replace "#result">>
	You settle the dispute in favor of the slave trader. The story of the mother's enslavement, along with the prompt death of the daughter due to inadequate treatment, gets around the Free Cities, @@.red;appalling@@ more romantic citizens. The trader lets it be known amongst her peers that you do not brook uppity behavior from poor bitches, and that slave traders can expect to do well in your arcology, @@.green;increasing prosperity.@@
	<<set $arcologies[0].prosperity += 5>>
	<<set $rep -= 500>>
	<</replace>>
	<</link>>
	<<link "Offer to buy out the contract">>
	<<AddSlave $activeSlave>>
	<<set $cash -= $contractCost>>
	<<replace "#result">>
	You offer to simply buy out the contract, taking the slave for yourself, letting the slave trader out of her side of the deal, and providing for the daughter's medical care. The trader lets it be known amongst her peers that you will make things right no matter the cost to yourself, @@.green;increasing prosperity.@@ The story of the mother willing to be enslaved gets around quickly, @@.green;capturing the hearts@@ of more romantic citizens. The mother, meanwhile, presents herself for enslavement, @@.hotpink;very grateful@@ that you've saved her daughter's life.
	<<set $arcologies[0].prosperity += 5>>
	<<set $rep += 500>>
	<<set $nextLink = "AS Dump">>
	<<include "New Slave Intro">>
	<</replace>>
	<</link>> //This will cost ¤$contractCost and give you the slave//
<<elseif $event == "slave training">>\
	<<link "Privately inform both parties you'll settle this in favor of the most generous">>
	<<replace "#result">>
	You privately inform both parties you'll settle this in favor of the most generous. You instantly receive two notices of escrow payments contingent on the case going the payer's way. You select the @@.yellowgreen;bigger of the two@@ and decide the matter before returning to bed in a good mood. However, the next day it becomes apparent that although he isn't stupid enough to make a public accusation of corruption, the loser is proclaiming that he is @@.red;not pleased@@ with your administration of justice.
	<<set $rep -= 100>>
	<<set $cash += random(150,200)*10>>
	<</replace>>
	<</link>>
	<<link "Settle the dispute in favor of the accuser">>
	<<replace "#result">>
	You settle the dispute in favor of the wealthy accuser. He lets you know privately that he recently had a business deal go bad, so he's in a tough cash situation right now; he's so grateful for your assistance in this embarrassing situation that he talks @@.green;effusively@@ for days to anyone who will listen about your good administration of the arcology. Unfortunately, the furious trainer has packed up his equipment and his gelding and left for another arcology, somewhat @@.red;reducing prosperity.@@
	<<set $arcologies[0].prosperity -= 5>>
	<<set $rep += 500>>
	<</replace>>
	<</link>>
	<<link "Settle the dispute in favor of the trainer">>
	<<replace "#result">>
	You settle the dispute in favor of the slave trainer. It transpires that the wealthy accuser was no longer wealthy at all, and was looking to get out of the deal; he's furious, and spends a long day @@.red;spewing invectives@@ against you to anyone who will listen before decamping back to the old world. The trainer, on the other hand, lets it be known that you support businessmen, who can trust you to look after their interests, @@.green;increasing prosperity.@@
	<<set $arcologies[0].prosperity += 5>>
	<<set $rep -= 500>>
	<</replace>>
	<</link>>
	<<link "Offer to buy out the deal">>
	<<AddSlave $activeSlave>>
	<<set $cash -= $contractCost>>
	<<replace "#result">>
	You offer to simply buy out the deal, paying the trainer and taking the slave yourself, and letting the buyer out of the payment. The trainer, on the other hand, lets it be known that you support businessmen, who can trust you to ensure they don't come out second best, @@.green;increasing prosperity.@@ The buyer lets you know privately that he recently had a business deal go bad, so he's in a tough cash situation right now; he's so grateful for your assistance in this embarrassing situation that he talks @@.green;effusively@@ for days to anyone who will listen about your discreet administration of the arcology. The slave, meanwhile, arrives at your penthouse, @@.hotpink;rather hopeful@@ that she's going to a good master.
	<<set $arcologies[0].prosperity += 5>>
	<<set $rep += 500>>
	<<set $nextLink = "AS Dump">>
	<<include "New Slave Intro">>
	<</replace>>
	<</link>> //This will cost ¤$contractCost and give you the slave//
<<elseif $event == "majority deal">>\
	<<link "Privately inform both parties you'll settle this in favor of the most generous">>
	<<replace "#result">>
	You privately inform both parties you'll settle this in favor of the most generous. You instantly receive two notices of escrow payments contingent on the case going the payer's way. You select the @@.yellowgreen;bigger of the two@@ and decide the matter before returning to bed in a good mood. However, the next day it becomes apparent that although he isn't stupid enough to make a public accusation of corruption, the loser is proclaiming that he is @@.red;not pleased@@ with your administration of justice.
	<<set $rep -= 100>>
	<<set $cash += random(150,200)*10>>
	<</replace>>
	<</link>>
	<<link "Settle the dispute in favor of the accuser">>
	<<replace "#result">>
	You settle the dispute in favor of the prominent accuser. He dabbles in slave breeding himself, and was looking forward to using the slave in question for breeding stock; like many breeders he cares deeply about his stable, and speaks @@.green;positively@@ in public about how you helped an innocent breeder protect his prize bloodlines. Slave trading to and from your arcology is @@.red;somewhat lessened@@ however, since the school lets it be known that trading in your arcology is a risk.
	<<set $arcologies[0].prosperity -= 5>>
	<<set $rep += 500>>
	<</replace>>
	<</link>>
	<<link "Settle the dispute in favor of the trainer">>
	<<replace "#result">>
	You settle the dispute in favor of the school, and against the prominent accuser. He dabbles in slave breeding himself, and was looking forward to using the slave in question for breeding stock; like many breeders he cares deeply about his stable, and speaks @@.red;furiously@@ in public about how you denied an innocent breeder justice against those swindling slave schools. The school, however, passes a @@.green;good word@@ around the industry that schools trading with your arcology can expect to be protected from frivolous claims.
	<<set $arcologies[0].prosperity += 5>>
	<<set $rep -= 500>>
	<</replace>>
	<</link>>
	<<link "Compromise on the compensation and offer to buy out the deal">>
	<<AddSlave $activeSlave>>
	<<set $cash -= $contractCost>>
	<<replace "#result">>
	You offer to buy out the deal, paying the school and taking the slave yourself, and compromising on the demanded compensation. The citizen was looking forward to using the slave in question for breeding stock; like many breeders he cares deeply about his stable and is mollified by the moderate payment, and speaks @@.green;kindly@@ in public about how you helped an innocent breeder protect his prize bloodlines. The school sends a @@.green;positive note@@ around the industry to the effect that schools trading with your arcology can expect to have excessive claims sensibly reduced.
	<<set $arcologies[0].prosperity += 3>>
	<<set $rep += 300>>
	<<set $nextLink = "AS Dump">>
	<<include "New Slave Intro">>
	<</replace>>
	<</link>> //This will cost ¤$contractCost and give you the slave//
<<elseif $event == "indenture deal">>\
	<<link "Privately inform both parties you'll settle this in favor of the most generous">>
	<<replace "#result">>
	You privately inform both parties you'll settle this in favor of the most generous. You instantly receive a single notice of escrow payment contingent on the case going the payer's way. You select the @@.yellowgreen;bigger of the two@@ and decide the matter before returning to bed in a good mood. However, the next day it becomes apparent that although she isn't stupid enough to make a public accusation, the whore has been @@.red;whispering@@ to her peers that you helped the trader cheat her into prostitution. Few citizens care, but there is a faint scent of corruption.
	<<set $rep -= 50>>
	<<set $cash += random(150,200)*10>>
	<</replace>>
	<</link>>
	<<link "Settle the dispute in favor of the indentured whore">>
	<<replace "#result">>
	You settle the dispute in favor of the indentured whore, adding a requirement to the indentured servitude that she not be required to fuck against her will. The story of the brave prostitute and the conniving trader is @@.green;told and retold,@@ impressing the more credulous citizens. It also @@.red;raises doubts@@ among the wealthier, more business-minded residents about whether you can be depended on to promote their interests.
	<<set $arcologies[0].prosperity -= 5>>
	<<set $rep += 500>>
	<</replace>>
	<</link>>
	<<link "Settle the dispute in favor of the indenture holder">>
	<<replace "#result">>
	You settle the dispute in favor of the owner of the indenture. No change in the contract is necessary, since it already says what it should: that he controls her for the required period. That's all. The story of your strictness in business disputes @@.green;impresses@@ some of the more commercially powerful citizens of the arcology, but is @@.red;hissed@@ by the stupider, more romantic residents, who see only a brave whore being beaten down by a conniving slave trader.
	<<set $arcologies[0].prosperity += 5>>
	<<set $rep -= 500>>
	<</replace>>
	<</link>>
	<<link "Buy out the contract and enslave her">>
	<<AddSlave $activeSlave>>
	<<set $cash -= $contractCost>>
	<<replace "#result">>
	You quietly contact the trader and suggest an alternative method of settling the dispute. He is surprised, but agrees readily, chuckling at how the "recalcitrant bitch" is going to be dealt with. To her horror, she finds that your near-total power over deals made in your arcology has been employed to saddle her with additional debts that, under her indentured servitude, she cannot hope to repay. It is then the work of ten minutes to demand payment, and when she cannot pay, demand her body for enslavement. The story of your cunning @@.green;impresses@@ the slave traders, but is @@.red;booed@@ by fairer-minded citizens.
	<<set $arcologies[0].prosperity += 5>>
	<<set $rep -= 100>>
	<<set $nextLink = "AS Dump">>
	<<include "New Slave Intro">>
	<</replace>>
	<</link>> //This will cost ¤$contractCost and give you the slave//
<<else>>\
	<<link "Privately inform both parties you'll settle this in favor of the most generous">>
	<<replace "#result">>
	You privately inform both parties you'll settle this in favor of the most generous. You instantly receive two notices of escrow payment contingent on the case going the payer's way. You select the @@.yellowgreen;bigger of the two@@ and decide the matter before returning to bed in a good mood. However, the next day it becomes apparent that although he isn't stupid enough to make a public accusation of corruption, the buyer is furious at paying virgin prices for a defiled slave, and is privately @@.red;slandering@@ your administration of justice.
	<<set $rep -= 100>>
	<<set $cash += random(150,200)*10>>
	<</replace>>
	<</link>>
	<<link "Settle the dispute in favor of the prospective buyer">>
	<<replace "#result">>
	What's most important is the justice of the outcome. You settle the dispute in favor of the buyer, who would otherwise be forced to buy something he did not mean to pay for. He lets it be known far and wide that you are willing to stand up for what's right, no matter what and no matter who, @@.green;improving@@ your reputation. The angry seller, now afflicted with a devalued slave in addition to a bad headache, lets his group of friends know that social superiors have no advantage at justice here. They become more reticent about dealmaking in your arcology, @@.red;damaging@@ its prosperity.
	<<set $arcologies[0].prosperity -= 5>>
	<<set $rep += 500>>
	<</replace>>
	<</link>>
	<<link "Settle the dispute in favor of the prominent slaveowner">>
	<<replace "#result">>
	A deal is a deal; buyer beware. You settle the dispute in favor of the slaveowner. He lets it be known amongst his peers that you do not let social inferiors insist on justice against their betters. Citizens of quality become more willing to consider dealmaking in your arcology, @@.green;increasing prosperity.@@ On the other hand, the angry buyer shows himself to be not a person to treat lightly, either; he maintains a @@.red;malicious@@ whispering campaign to the effect that your administration of justice is fatally biased.
	<<set $arcologies[0].prosperity += 5>>
	<<set $rep -= 500>>
	<</replace>>
	<</link>>
	<<link "Offer to buy out the contract">>
	<<AddSlave $activeSlave>>
	<<set $cash -= $contractCost>>
	<<replace "#result">>
	You offer to simply buy out the contract, taking the slave for yourself. This lets the buyer out of buying her, and the slaveowner gets his money; but it soon becomes apparent that what both of them were really looking for is an opportunity to put one over on the other. Neither is pleased to be denied a petty victory, but they both have the sense to keep their mouths shut. The poor slave, meanwhile, appears in the penthouse entryway, @@.hotpink;hopeful@@ that she's been lucky enough to end up in a less abusive situation.
	<<set $nextLink = "AS Dump">>
	<<include "New Slave Intro">>
	<</replace>>
	<</link>> //This will cost ¤$contractCost and give you the slave//
<</if>>\


code:
:: Lab Report [nobr]

''Lab Report''

<<if ($researchLab.hired + $researchLab.menials) != 0>>
	<<if $researchLab.research == "none" && $researchLab.manufacture == "none">>
		Since lab is currently not working on any projects they take contract work and earn you @@.yellowgreen;¤<<print (($researchLab.hired * 3 + $researchLab.menials) * $researchLab.aiModule * 20)>>.@@
		<<set $cash += (($researchLab.hired * 3 + $researchLab.menials) * $researchLab.aiModule * 20)>>
	<<elseif $researchLab.research != "none">>
		<<set $researchLab.productionTime -= (($researchLab.hired * 3) + ($researchLab.menials) * ($researchLab.aiModule))>>
		<<if $researchLab.productionTime <= 0>>
			Your lab staff have @@.green;completed@@ their project.
			<<if $researchLab.research == "Basic prosthetics interface">>
				<<set $researchLab.basicPLimbInterface to 1>>
			<<elseif $researchLab.research == "Advanced prosthetics interface">>
				<<set $researchLab.advPLimbInterface to 1>>
			<<elseif $researchLab.research == "Basic prosthetic limbs">>
				<<set $researchLab.basicPLimb to 1>>
			<<elseif $researchLab.research == "Advanced sex limbs">>
				<<set $researchLab.advSexPLimb to 1>>
			<<elseif $researchLab.research == "Advanced beauty limbs">>
				<<set $researchLab.advGracePLimb to 1>>
			<<elseif $researchLab.research == "Advanced combat limbs">>
				<<set $researchLab.advCombatPLimb to 1>>
			<<elseif $researchLab.research == "Cybernetic limbs">>
				<<set $researchLab.cyberneticPLimb to 1>>
			<<elseif $researchLab.research == "Ocular implants">>
				<<set $researchLab.ocularImplant to 1>>
			/*<<elseif $researchLab.research == "Erectile implant">>
				<<set $researchLab.erectileImplant to 1>>*/
			<</if>>
			<<set $researchLab.productionTime to 0, $researchLab.research to "none">>
		<<else>>
			Your lab staff are currently researching @@.yellow;$researchLab.research@@.
		<</if>>
	<<elseif $researchLab.manufacture != "none">>
		<<set $researchLab.productionTime -= (($researchLab.hired * 3) + ($researchLab.menials) * ($researchLab.aiModule))>>
		<<if $researchLab.productionTime <= 0>>
			Your lab staff have @@.green;completed@@ their project.
			<<if $researchLab.manufacture == "Basic prosthetics interface">>
				<<set $stockpile.basicPLimbInterface += 1>>
			<<elseif $researchLab.manufacture == "Advanced prosthetics interface">>
				<<set $stockpile.advPLimbInterface += 1>>
			<<elseif $researchLab.manufacture == "Basic prosthetic limbs">>
				<<set $stockpile.basicPLimb += 1>>
			<<elseif $researchLab.manufacture == "Advanced sex limbs">>
				<<set $stockpile.advSexPLimb += 1>>
			<<elseif $researchLab.manufacture == "Advanced beauty limbs">>
				<<set $stockpile.advGracePLimb += 1>>
			<<elseif $researchLab.manufacture == "Advanced combat limbs">>
				<<set $stockpile.advCombatPLimb += 1>>
			<<elseif $researchLab.manufacture == "Cybernetic limbs">>
				<<set $stockpile.cyberneticPLimb += 1>>
			<<elseif $researchLab.manufacture == "Ocular implants">>
				<<set $stockpile.ocularImplant += 1>>
			<</if>>
			<<set $researchLab.productionTime to 0>>
			<<set $researchLab.manufacture = "none">>
		<<else>>
			Your lab staff are currently working on @@.yellow;$researchLab.manufacture@@.
		<</if>>
	<</if>>
<</if>>

repo_name: samhradh/fc


code:
:: Law Compliance [nobr]

<<set $gingering = 0>>
<<set $gingeringDetected = 0>>
<<set $gingeringDetection = 0>>
<<set $toSearch = $activeSlave.origin>>
<<if $toSearch == 0>><<set $toSearch = "unset">><</if>>
<<if $HonestySMR == 1>>
<<elseif $toSearch.indexOf("Shelter") != -1>>
<<else>>
	<<set $beforeGingering = $activeSlave>>
	<<if ($activeSlave.trust < -20) && (random(1,3) == 1)>>
	<<set $gingering = "antidepressant">>
	<<set $activeSlave.trust += random(10,40)>>
	<<elseif ($activeSlave.devotion < -20) && (random(1,3) == 1)>>
	<<set $gingering = "depressant">>
	<<set $activeSlave.devotion += random(10,40)>>
	<<elseif ($activeSlave.health < 60) && (random(1,3) == 1)>>
	<<set $gingering = "stimulant">>
	<<set $activeSlave.health += random(20,40)>>
	<<elseif ($activeSlave.balls > 0) && ($activeSlave.dick > 2) && (random(1,3) == 1)>>
	<<set $gingering = "vasoconstrictor">>
	<<set $activeSlave.dick -= random(1,2)>>
	<<elseif ($activeSlave.balls > 0) && ($activeSlave.dick < 5) && (random(1,3) == 1)>>
	<<set $gingering = "vasodiolator">>
	<<set $activeSlave.dick += random(1,2)>>
	<<elseif ($activeSlave.attrKnown == 0) && (random(1,3) == 1)>>
	<<set $gingering = "aphrodisiac">>
	<<set $activeSlave.aphrodisiac = 2>>
	<<set $activeSlave.attrKnown = 1>>
	<<set $activeSlave.attrXX = random(60.90)>>
	<<set $activeSlave.attrXY = random(60,90)>>
	<<set $activeSlave.energy = random(50,90)>>
	<<elseif ($activeSlave.anus > 0) && ($activeSlave.fetishKnown == 0) && (random(1,3) == 1)>>
	<<set $gingering = "ginger">>
	<<set $activeSlave.fetish = "buttslut">>
	<<set $activeSlave.fetishKnown = 1>>
	<<set $activeSlave.fetishStrength = 65>>
	<</if>>
	<<if ($PC.slaving >= 100) || ($PC.career == "arcology owner")>>
		<<set $gingeringDetected = 1>>
		<<set $gingeringDetection = "slaver">>
	<<elseif ($PC.warfare >= 100) && (random(1,2) == 1)>>
		<<set $gingeringDetected = 1>>
		<<set $gingeringDetection = "mercenary">>
	<<elseif ($PC.rumor == "force") && (random(1,2) == 1)>>
		<<set $gingeringDetected = 1>>
		<<set $gingeringDetection = "force">>
	<<elseif (random(1,3) == 1)>>
		<<set $gingeringDetected = 1>>
	<</if>>
<</if>>

has passed inspection to be sold in your arcology.

<<if $arcologies[0].FSSlimnessEnthusiastSMR == 1>>
	<<set $activeSlave.weight = random(-80,0)>>
	<<set $activeSlave.health = random(50,90)>>
	She has been kept on a rigorous diet for sale, has been required to exercise regularly, and has had excellent care taken of her health.
<</if>>
<<if $arcologies[0].FSRepopulationFocusSMR == 1>>
	<<if $activeSlave.physicalAge < $fertilityAge>>
	    <<if $precociousPuberty == 1 >>
		<<set $activeSlave.pubertyAgeXX = $activeSlave.physicalAge>>
		<<set $activeSlave.pubertyXX = 1>>
	    <<else>>
		<<set $activeSlave.physicalAge = $fertilityAge>>
		<<set $activeSlave.visualAge = $fertilityAge>>
		<<set $activeSlave.actualAge = $fertilityAge>>
	    <</if>>
	<</if>>
	<<if $activeSlave.preg < 1>> /* "if" needed here to avoid conflicts with already pregnant slaves from repopulation FS arcologies markets */
	    <<set $activeSlave.ovaries = 1>>
	    <<set $activeSlave.vagina = either(0, 0, 1, 1, 1, 1, 1, 2, 2, 3)>>
	    <<set $activeSlave.pregType = either(1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 5)>>
	    <<set $activeSlave.preg = random(5,33)>>
	<</if>>
	If she was unable to become pregnant before, she has been made to now.  She is fertilized surgically to insure a healthy pregnancy.
<</if>>
<<if $arcologies[0].FSAssetExpansionistSMR == 1>>
	<<set $activeSlave.clit = either(0, 0, 0, 1, 1, 2)>>
	<<set $activeSlave.labia = either(0, 1, 2, 3)>>
	<<set $activeSlave.boobs += random(2,5)*100>>
	<<set $activeSlave.butt += random(1,2)>>
	<<set $activeSlave.lips = random(15,55)>>
	<<if $activeSlave.dick > 0>>
	<<set $activeSlave.dick = random(3,5)>>
	<</if>>
	<<if $activeSlave.balls > 0>>
	<<set $activeSlave.balls = random(3,5)>>
	<</if>>
	She has been on powerful growth hormones for a long time, and has experienced growth in several areas as a result.
<</if>>
<<if $arcologies[0].FSPhysicalIdealistSMR == 1>>
	<<set $activeSlave.muscles = either(50, 100)>>
	<<set $activeSlave.weight = random(-20, 0)>>
	<<set $activeSlave.health = random(50,90)>>
	Much of her time before sale was spent lifting weights, and her health has been raised to to an almost unnatural level.
<</if>>
<<if $arcologies[0].FSGenderFundamentalistSMR == 1>>
	<<if $activeSlave.dick > 0>>
	<<set $activeSlave.balls = 0>>
	<<set $activeSlave.boobs += random(0,2)*100>>
	<<set $activeSlave.butt += random(0,1)>>
	<<if $activeSlave.face < 95>>
		<<set $activeSlave.face = Math.trunc($activeSlave.face+random(0,20),-100,100)>>
	<</if>>
	Her balls were removed as soon as she was enslaved, and she's been kept on powerful female hormones for long enough to have a general feminizing effect.
	<</if>>
<<elseif $arcologies[0].FSSupremacistSMR == 1>>
	<<if $activeSlave.dick > 0>>
	<<if $activeSlave.race != $arcologies[0].FSSupremacistRace>>
	<<set $activeSlave.balls = 0>>
	Her balls were removed as soon as she was enslaved to prevent her from polluting fertile slaves with her inferior semen.
	<</if>>
	<</if>>
<<elseif $arcologies[0].FSSubjugationistSMR == 1>>
	<<if $activeSlave.dick > 0>>
	<<if $activeSlave.race == $arcologies[0].FSSubjugationistRace>>
	<<set $activeSlave.balls = 0>>
	Her balls were removed as soon as she was enslaved to prevent her from polluting fertile slaves with her subhuman semen.
	<</if>>
	<</if>>
<</if>>
<<if $arcologies[0].FSRestartSMR == 1>>
	<<if $activeSlave.balls > 0 || $activeSlave.ovaries > 0>>
	<<set $activeSlave.preg = -2>>
	<<set $activeSlave.pregType = 0>>
	<<set $activeSlave.balls = 0>>
	<<set $activeSlave.ovaries = 0>>
	As a member of the lowest class,<<if $activeSlave.preg > 0>> her pregnancy is immediately terminated, and<</if>> she is promptly sterilized to prevent her from passing on her useless genes.
	<</if>>
<</if>>
<<if $arcologies[0].FSPaternalistSMR == 1>>
<<if $activeSlave.devotion <= 20>>
	While she came through the slave markets, she was treated with decency. She has begun to wonder whether she can @@.mediumaquamarine;get away with@@ being disobedient.
	<<set $activeSlave.trust += 10>>
<<else>>
	While she came through the slave markets, she was treated with decency. She has begun to hope that she can expect @@.mediumaquamarine;basic respect@@ despite being a sex slave.
	<<set $activeSlave.trust += 10>>
<</if>>
<</if>>
<<if $arcologies[0].FSDegradationistSMR == 1>>
	Her current owners @@.gold;brutalized her@@ before putting her on sale, using clever methods to produce agony without seriously damaging her health.
	<<set $activeSlave.trust -= 10>>
<</if>>
<<if $arcologies[0].FSBodyPuristSMR == 1>>
	In order to qualify for sale, she has been meticulously inspected for implants, tattoos, and piercings, and any present have been removed.
	<<set $activeSlave.nipplesPiercing = 0>>
	<<set $activeSlave.areolaePiercing = 0>>
	<<set $activeSlave.lipsPiercing = 0>>
	<<set $activeSlave.vaginaPiercing = 0>>
	<<set $activeSlave.dickPiercing = 0>>
	<<set $activeSlave.clitPiercing = 0>>
	<<set $activeSlave.anusPiercing = 0>>
	<<set $activeSlave.corsetPiercing = 0>>
	<<set $activeSlave.earPiercing = 0>>
	<<set $activeSlave.eyebrowPiercing = 0>>
	<<set $activeSlave.nosePiercing = 0>>
	<<set $activeSlave.navelPiercing = 0>>
	<<set $activeSlave.lipsTat = 0>>
	<<set $activeSlave.buttTat = 0>>
	<<set $activeSlave.anusTat = 0>>
	<<set $activeSlave.vaginaTat = 0>>
	<<set $activeSlave.dickTat = 0>>
	<<set $activeSlave.boobsTat = 0>>
	<<set $activeSlave.armsTat = 0>>
	<<set $activeSlave.legsTat = 0>>
	<<set $activeSlave.shouldersTat = 0>>
	<<set $activeSlave.backTat = 0>>
	<<set $activeSlave.stampTat = 0>>
	<<if $activeSlave.boobsImplant > 0>>
	<<set $activeSlave.boobs -= $activeSlave.boobsImplant>>
	<<set $activeSlave.boobsImplant = 0>>
	<</if>>
	<<if $activeSlave.buttImplant > 0>>
	<<set $activeSlave.butt -= $activeSlave.buttImplant>>
	<<set $activeSlave.buttImplant = 0>>
	<</if>>
	<<if $activeSlave.lipsImplant > 0>>
	<<set $activeSlave.lips -= $activeSlave.lipsImplant>>
	<<set $activeSlave.lipsImplant = 0>>
	<</if>>
<</if>>
<<if $arcologies[0].FSTransformationFetishistSMR == 1>>
	In order to qualify for sale, she has been kitted out with a basic set of breast, buttock, and lip implants.
	<<if $activeSlave.devotion <= 20>>
	Being turned into an assembly line bimbo fills her with @@.gold;fear@@ and @@.mediumorchid;disgust.@@
	<<set $activeSlave.trust -= 5>>
	<<set $activeSlave.devotion -= 5>>
	<</if>>
	<<if $activeSlave.boobsImplant == 0>>
	<<set $activeSlave.boobsImplant = 400>>
	<<set $activeSlave.boobs += $activeSlave.boobsImplant>>
	<</if>>
	<<if $activeSlave.buttImplant == 0>>
	<<set $activeSlave.buttImplant = 1>>
	<<set $activeSlave.butt += $activeSlave.buttImplant>>
	<</if>>
	<<if $activeSlave.lipsImplant == 0>>
	<<set $activeSlave.lipsImplant = 10>>
	<<set $activeSlave.lips += $activeSlave.lipsImplant>>
	<</if>>
<</if>>
<<if $arcologies[0].FSYouthPreferentialistSMR == 1>>
	<<if $activeSlave.physicalAge > 35>>
	She was treated as a disposable old bitch in the slave pens, @@.gold;worrying her.@@
	<<set $activeSlave.trust -= 5>>
	<<elseif $activeSlave.physicalAge <= 25>>
	She was treated reasonably well in the slave pens due to her youth, @@.mediumaquamarine;reassuring her.@@
	<<set $activeSlave.trust += 5>>
	<</if>>
<</if>>
<<if $arcologies[0].FSMaturityPreferentialistSMR == 1>>
	<<if $activeSlave.physicalAge > 35>>
	She was treated reasonably well in the slave pens due to her maturity, @@.mediumaquamarine;reassuring her.@@
	<<set $activeSlave.trust += 5>>
	<<elseif $activeSlave.physicalAge <= 25>>
	She was treated as a disposable little slut in the slave pens, @@.gold;worrying her.@@
	<<set $activeSlave.trust -= 5>>
	<</if>>
<</if>>
<<if $arcologies[0].FSPastoralistSMR == 1>>
	<<if $activeSlave.lactation == 0>>
	She was implanted with permanent lactation drugs in order to qualify for sale, and was kept in the slave pens until she could be put up on the block with dripping nipples.
	<<set $activeSlave.lactation = 2>>
	<</if>>
<</if>>
<<if $arcologies[0].FSChattelReligionistSMR == 1>>
	She has been consecrated for sale by being offered to the public for a full night, from sunset to sunrise.
	<<if $activeSlave.devotion <= 20>>
	Since she was not willing to accept this treatment, her consecration took the form of twelve hours of rape, @@.gold;terrifying her@@ and @@.mediumorchid;filling her with hatred.@@
	<<set $activeSlave.trust -= 15>>
	<<set $activeSlave.devotion -= 15>>
	<<else>>
	She accepted this treatment, @@.hotpink;breaking her@@ to sexual slavery.
	<<set $activeSlave.devotion += 5>>
	<</if>>

	<<if ndef $activeSlave.publicCount>>
	<<set $activeSlave.publicCount = 0>>
	<</if>>

	<<set $activeSlave.oralCount += 10>>
	<<set $activeSlave.publicCount += 10>>
	<<set $oralTotal += 10>>
	<<set $activeSlave.analCount += 10>>
	<<set $activeSlave.publicCount += 10>>
	<<set $analTotal += 10>>
	<<if $activeSlave.vagina > 0>>
	<<set $activeSlave.vaginalCount += 10>>
	<<set $activeSlave.publicCount += 10>>
	<<set $vaginalTotal += 10>>
	<<if $activeSlave.vagina < 3>>
		<<set $activeSlave.vagina += 1>>
	<</if>>
	<<else>>
	<<set $activeSlave.oralCount += 10>>
	<<set $activeSlave.publicCount += 10>>
	<<set $oralCount += 10>>
	<</if>>
	<<if $activeSlave.anus > 0>>
	<<set $activeSlave.analCount += 10>>
	<<set $activeSlave.publicCount += 10>>
	<<set $analTotal += 10>>
	<<if $activeSlave.anus < 3>>
		<<set $activeSlave.anus += 1>>
	<</if>>
	<<else>>
	<<set $activeSlave.oralCount += 10>>
	<<set $activeSlave.publicCount += 10>>
	<<set $oralCount += 10>>
	<</if>>
<</if>>
<<if $arcologies[0].FSRomanRevivalistSMR == 1>>
	As she passed though the slave markets, she saw many less valuable slaves selected to die in gladiatorial combats. She is relieved she wasn't one of them, but @@.gold;terrified@@ that will be her fate if she makes mistakes.
	<<set $activeSlave.trust -= 10>>
<</if>>
<<if $arcologies[0].FSEgyptianRevivalistSMR == 1>>
	While she was in the slave pens, she was subjected to Egyptian cultural indoctrination.
	<<if $activeSlave.entertainSkill > 10>>
	She is now @@.mediumaquamarine;confident@@ that her entertainment skills will be valued here.
	<<set $activeSlave.trust += 10>>
	<<elseif $activeSlave.intelligenceImplant > 0>>
	She now @@.mediumaquamarine;hopes@@ that her education will be valued here.
	<<set $activeSlave.trust += 5>>
	<<else>>
	She is @@.gold;concerned@@ that she doesn't have what it takes to fit in.
	<<set $activeSlave.trust -= 5>>
	<</if>>
<</if>>
<<if $arcologies[0].FSEdoRevivalistSMR == 1>>
	While she was in the slave pens, she was subjected to Edo Revivalist cultural indoctrination.
	<<if $activeSlave.nationality is "Japanese">>
	She is now @@.mediumaquamarine;confident@@ that, as a proper Japanese girl, she will receive preferential treatment.
	<<set $activeSlave.trust += 10>>
	<<elseif $activeSlave.entertainSkill > 30>>
	She now @@.mediumaquamarine;hopes@@ that her refined entertainment skills will make her culturally as well as sexually valuable.
	<<set $activeSlave.trust += 5>>
	<<else>>
	She is @@.gold;concerned@@ that she doesn't have what it takes to fit in.
	<<set $activeSlave.trust -= 5>>
	<</if>>
<</if>>
<<if $arcologies[0].FSArabianRevivalistSMR == 1>>
	While she was in the slave pens, she was subjected to classical Arabian cultural indoctrination.
	<<if $activeSlave.face > 40>>
	She is now @@.mediumaquamarine;confident@@ that her great beauty will be valued here.
	<<set $activeSlave.trust += 10>>
	<<elseif $activeSlave.accent <= 1>>
	She now @@.mediumaquamarine;hopes@@ that her linguistic skill will be valued here.
	<<set $activeSlave.trust += 5>>
	<<else>>
	She is @@.gold;concerned@@ that she doesn't have what it takes to fit in.
	<<set $activeSlave.trust -= 5>>
	<</if>>
<</if>>
<<if $arcologies[0].FSChineseRevivalistSMR == 1>>
	While she was in the slave pens, she was subjected to Imperial Chinese cultural indoctrination.
	<<if $activeSlave.intelligence > 1>>
	She is now @@.mediumaquamarine;confident@@ that her brilliance will be valued here.
	<<set $activeSlave.trust += 10>>
	<<elseif $activeSlave.intelligenceImplant > 0>>
	She now @@.mediumaquamarine;hopes@@ that her education will be valued here.
	<<set $activeSlave.trust += 5>>
	<<else>>
	She is @@.gold;concerned@@ that she doesn't have what it takes to fit in.
	<<set $activeSlave.trust -= 5>>
	<</if>>
<</if>>

<<if $BasicSMR != 1>>
	While she came through the slave markets, she was treated with inhuman callousness. It was very obvious and @@.gold;very terrifying@@ to her that she is now considered a piece of meat.
	<<set $activeSlave.trust -= 5>>
<</if>>

<<if $HealthInspectionSMR == 1>>
<<if $activeSlave.health < -10>>
	Her current owners held her for basic medical care before putting her on sale, resolving some of her health issues.
	<<set $activeSlave.health = -10>>
<</if>>
<</if>>

<<if $EducationSMR == 1>>
<<if $activeSlave.intelligenceImplant == 0>>
	She arrived at $arcologies[0].name in a pitiably undereducated state, and has been held back until she completed a basic course of slave education.
	<<set $activeSlave.intelligenceImplant = 1>>
	<<if $activeSlave.intelligence < 2>>
	<<set $activeSlave.intelligence += 1>>
	<</if>>
<</if>>
<</if>>

<<if $FrigiditySMR == 1>>
<<if $activeSlave.energy > 20>>
	Before reaching the market, she was trained to disregard sex until she showed no interest in sex at all.
	<<set $activeSlave.energy = 20>>
<</if>>
<</if>>

<<if $BasicBeautySMR == 1>>
	<<if $activeSlave.face < 0>>
		<<set $activeSlave.face = random(0,60)>>
	<</if>>
	While she was in the slave pens, she saw that less attractive slaves were immediately designated as menials and fuckdolls, and she is @@.gold;terrified@@ that should she lose her beauty, she'll be considered worthless and be reassigned on the spot.
	<<set $activeSlave.trust -= 5>>
<</if>>

<<if $QualityBeautySMR == 1>>
	<<if $activeSlave.face < 20>>
		<<set $activeSlave.face = random(20,100)>>
	<</if>>
	While she was in the slave pens, she saw that less attractive slaves were immediately designated as menials and fuckdolls, and she is @@.gold;terrified@@ that should she loses her beauty, she'll be considered worthless and be reassigned on the spot.
	<<set $activeSlave.trust -= 5>>
<</if>>

<<if $BasicIntelligenceSMR == 1>>
	<<if $activeSlave.intelligence < 0>>
		<<set $activeSlave.intelligence = either(0,1,1,1,1,1,1,1,1,1,2,2,2,3)>>
	<</if>>
	While she was in the slave pens, she saw that less intelligent slaves were immediately designated as menials and fuckdolls, and she is @@.gold;terrified@@ that if she makes a mistake, she'll be thought stupid and be reassigned on the spot.
	<<set $activeSlave.trust -= 5>>
<</if>>

<<if $QualityIntelligenceSMR == 1>>
	<<if $activeSlave.intelligence < 1>>
		<<set $activeSlave.intelligence = either(1,1,1,1,2,2,2,2,2,2,2,3)>>
	<</if>>
	While she was in the slave pens, she saw that less intelligent slaves were immediately designated as menials and fuckdolls, and she is @@.gold;terrified@@ that if she makes a mistake, she'll be thought stupid and be reassigned on the spot.
	<<set $activeSlave.trust -= 5>>
<</if>>

<<if $IntelligenceEugenicsSMR + $HeightEugenicsSMR + $FaceEugenicsSMR > 0>>
<<set $seed = 1>>
As soon as she arrived in the slave market, she was subjected to a battery of testing:
<<if $IntelligenceEugenicsSMR == 1>>
	an intelligence test,
	<<if $activeSlave.intelligence < 2>>
	<<set $seed = 0>>
	<</if>>
<</if>>
<<if $HeightEugenicsSMR == 1>>
	rigorous height and bone measurements,
	<<if $activeSlave.height < 185>>
	<<set $seed = 0>>
	<</if>>
<</if>>
<<if $FaceEugenicsSMR == 1>>
	strict judgements of her facial attractiveness,
	<<if $activeSlave.face < 40>>
	<<set $seed to 0>>
	<</if>>
<</if>>
a physical exam, and more.
<<if $seed == 0>>
	She failed, and only then learned that by failing she placed herself under the merciless dictates of eugenic theory.
	<<if $activeSlave.balls > 0>>
	Her balls were promptly removed to prevent her from passing on her inferior genes, @@.mediumorchid;infuriating@@ and @@.gold;terrifying@@ her.
	<<set $activeSlave.balls = 0>>
	<<set $activeSlave.devotion -= 20>>
	<<set $activeSlave.trust -= 20>>
	<<elseif $activeSlave.ovaries > 0>>
	Her <<if $activeSlave.preg > 0>>pregnancy was terminated and afterwards her <</if>>tubes were promptly tied to prevent her from passing on her inferior genes, @@.mediumorchid;saddening@@ and @@.gold;frightening@@ her.
	<<set $activeSlave.preg = -2>>
	<<set $activeSlave.pregType = 0>>
	<<set $activeSlave.devotion -= 10>>
	<<set $activeSlave.trust -= 10>>
	<<else>>
	Fortunately for her, she was already incapable of passing on her inferior genes.
	<</if>>
<<else>>
	She passed, and only then learned that passing marked her as fit to pass on her genes, should her owners decide to breed her.
	<<if $activeSlave.balls > 0>>
	Her relief that she won't have her balls cut off is mixed with fear at being introduced to your society in this way.
	<<elseif $activeSlave.ovaries > 0>>
	Her relief that she won't have her tubes tied is mixed with fear at being introduced to your society in this way.
	<<else>>
	This is merely confusing to her, since she isn't able to reproduce as it is. Of course, she doesn't know that you're quite capable of changing that.
	<</if>>
<</if>>
<</if>>

<<if $gingering != 0>>
<<if $gingeringDetected == 1>>
	<<if $gingeringDetection == "slaver">>
	<<if $gingering == "antidepressant">>
		She is acting dazed and unfocused. She's obviously been given antidepressants to make her appear less fearful, and will be considerably less trusting than she seems.
	<<elseif $gingering == "depressant">>
		She is acting dazed and unfocused. She's obviously been given a depressant to make her appear less hateful, and will be considerably less accepting of slavery than she seems.
	<<elseif $gingering == "stimulant">>
		She is acting twitchy and hyperactive. She's obviously been given a stimulant to make her seem healthier and more energetic, and is a lot less healthy than she looks.
	<<elseif $gingering == "vasoconstrictor">>
		Her lips have the slightest blue tinge, making it obvious she's been given a vasoconstrictor. Her cock is a lot less of a girldick than it looks right now.
	<<elseif $gingering == "vasodiolator">>
		She has an impressive erection, but it seems quite unconnected to the rest of her, as if she doesn't know what to do with it. She's obviously been given a vasodiolator to make her dick seem a little less pathetic.
	<<elseif $gingering == "aphrodisiac">>
		Her pupils are slightly dilated, her breath comes in fast pants, and her skin is flushed. She's obviously been given as big of a dose of aphrodisiacs as she can handle without a heart attack.
	<<else>>
		She is acting oddly, presenting her ass in an awkward way and acting uncomfortable. She's obviously had an irritant shoved up her butt to make her act like an anal whore.
	<</if>>
	It's a trick you're very familiar with, given your @@.springgreen;career as a slaver.@@
	<<else>>
	<<if $gingering == "antidepressant">>
		She is acting dazed and unfocused, like she's been given antidepressants to make her appear less fearful. She may be considerably less trusting than she seems.
	<<elseif $gingering == "depressant">>
		She is acting languid and drugged, like she's been given a depressant to make her appear less hateful. She may be considerably less accepting of slavery than she seems.
	<<elseif $gingering == "stimulant">>
		She is acting twitchy and hyperactive, like she's been given a stimulant to make her seem healthier and more energetic. She may be considerably less vital than she seems.
	<<elseif $gingering == "vasoconstrictor">>
		Her lips have the slightest blue tinge, suggesting that she may have been given a vasoconstrictor. If she has, her cock may be considerably less feminine and demure than it now seems.
	<<elseif $gingering == "vasodiolator">>
		She has an impressive erection, but it seems quite unconnected to the rest of her, as if she doesn't know what to do with it. She may have been given a vasodiolator. If she has, her cock may be considerably less impressive than it now seems.
	<<elseif $gingering == "aphrodisiac">>
		Her pupils are slightly dilated, her breath comes in fast pants, and her skin is flushed. These are the characteristic symptoms of a dose of aphrodisiacs limited only by a desire to avoid giving her a heart attack.
	<<else>>
		She is acting oddly, presenting her ass in an awkward way and acting uncomfortable. She may be considerably less interested in anal sex than she seems.
	<</if>>
	<<if $gingeringDetection == "mercenary">>
		The nervous slave brokers confirm this in response to a direct question. Your intimidating reputation from your @@.springgreen;years in the profession of arms@@ has its uses.
	<<elseif $gingeringDetection == "force">>
		The nervous slave brokers confirm this in response to a direct question. Your reputation as @@.springgreen;a <<if $PC.title == 1>>man<<else>>woman<</if>> of blood@@ has its uses.
	<</if>>
	<</if>>
<</if>>
<</if>>


code:
:: Madam Select [nobr]

<<set $nextButton = "Back", $nextLink = "Brothel", $showEncyclopedia = 1, $encyclopedia = "Madam">>

<<if ($Madam != 0)>>
	''__@@.pink;$Madam.slaveName@@__'' is serving as your Madam.

She will manage the brothel.
<<else>>
	You have not selected a Madam.
<</if>>

''Appoint a Madam from your devoted slaves:''
<<include "Slave Summary">>

[[None|Madam Workaround][$i = -1]]


code:
:: Madam Workaround [silently]

<<if $Madam != 0>>
	<<set _ID = $Madam.ID, _SL = $slaves.length>>
	<<for _i = 0; _i < _SL; _i++>>
		<<if (_ID == $slaves[_i].ID)>><<break>><</if>>
	<</for>>
	<<set $slaves[_i].assignment = "rest", $slaves[_i].assignmentVisible = 1>>
<</if>>
<<if $i > -1>>
	<<if $slaves[$i].ID == $HeadGirl.ID>>
		<<set $HeadGirl = 0>>
	<</if>>
	<<if $slaves[$i].ID == $Recruiter.ID>>
		<<set $Recruiter = 0>>
	<</if>>
	<<if $slaves[$i].ID == $Bodyguard.ID>>
		<<set $Bodyguard = 0>>
	<</if>>
	<<if $slaves[$i].ID == $personalAttention>>
		<<if $PC.career == "escort">>
		<<set $personalAttention = "whoring">>
		<<elseif $PC.career == "servant">>
		<<set $personalAttention = "upkeep">>
		<<else>>
		<<set $personalAttention = "business">>
		<</if>>
	<</if>>
	<<set $slaves[$i].assignment = "be the Madam", $slaves[$i].assignmentVisible = 0, $slaves[$i].choosesOwnAssignment = 0, $slaves[$i].sentence = 0, $slaves[$i].livingRules = "luxurious">>
	<<if $slaves[$i].choosesOwnClothes == 1>><<include "SA chooses own clothes">><</if>>
	<<set $Madam = $slaves[$i]>>
<<else>>
	<<set $Madam = 0>>
<</if>>

<<goto "Brothel">>


code:
:: Main [nobr]

<<if $releaseID >= 1000 || $ver.includes("0.9") || $ver.includes("0.8") || $ver.includes("0.7") || $ver.includes("0.6")>>
	<<if $releaseID >= 1000>>
	<<else>>
		''@@.red;INCOMPATIBLE SAVE WARNING:@@'' your saved game was created using version $ver and you are using version 0.10.0. Please select New Game Plus from the Options menu or start a new game.

	<</if>>
<<else>>
	''@@.red;INCOMPATIBLE SAVE WARNING:@@'' your saved game was created using version $ver and you are using later version which New Game Plus cannot reconcile. Please start a new game.

<</if>>

<<if ndef $defaultRules>>
	<<include "Init Rules">>
<</if>>
<<if ndef $PC.birthArcOwner>>
	<<set $PC.birthArcOwner = 0>>
<</if>>
<<if ndef $PC.birthCitizen>>
	<<set $PC.birthCitizen = 0>>
<</if>>
<<if ndef $medicalEnema>>
	<<set $medicalEnema = 0>>
<</if>>
<<if ndef $slaveDeath>>
	<<set $slaveDeath = 0>>
<</if>>
<<if ndef $assistantExtra2>>
	<<set $assistantExtra2 = 0>>
<</if>>
<<set $currentRule = $defaultRules[0]>>

<<SlaveSort $slaves>>

<<set $dormitoryPopulation = 0, $roomsPopulation = 0, $slavesVisible = 0, _PA = -1, _HG = -1, _RC = -1, _BG = -1, _SL = $slaves.length>>

<<for $i = 0; $i < _SL; $i++>>
	<<if $slaves[$i].assignmentVisible == 1>>
		<<set $slavesVisible++>>
		<<if $slaves[$i].livingRules == "luxurious">>
			<<if $slaves[$i].relationship >= 4>>
			  <<set $roomsPopulation += 0.5>>
			<<else>>
			  <<set $roomsPopulation++>>
			<</if>>
		<<else>>
			<<set $dormitoryPopulation++>>
		<</if>>
	<</if>>
	<<set _ID = $slaves[$i].ID>>
	<<if $personalAttention == _ID>>
		<<set _PA = $i>>
	<</if>>
	<<if $HeadGirl.ID == _ID>>
		<<set _HG = $i>>
	<<elseif $Recruiter.ID == _ID>>
		<<set _RC = $i>>
	<<elseif $Bodyguard.ID == _ID>>
		<<set _BG = $i>>
	<</if>>
<</for>>

<<set $nextButton = "END WEEK", $nextLink = "End Week", $showEncyclopedia = 1, $encyclopedia = "How to Play">>
<<include "Costs">>

<<if ($arcologies[0].name == "")>>
	<<set $arcologies[0].name = "Arcology X-4">>
<</if>>
<<if ($PC.customTitle == "")>>
	<<set $PC.customTitle = undefined, $PC.customTitleLisp = undefined>>
<</if>>
<<if ($brothelName == "")>>
	<<set $brothelName = "the Brothel">>
<</if>>
<<if ($brothelNameCaps == "")>>
	<<set $brothelNameCaps = "The Brothel">>
<</if>>
<<if ($dairyName == "")>>
	<<set $dairyName = "the Dairy">>
<</if>>
<<if ($dairyNameCaps == "")>>
	<<set $dairyNameCaps = "The Dairy">>
<</if>>
<<if ($clubName == "")>>
	<<set $clubName = "the Club">>
<</if>>
<<if ($clubNameCaps == "")>>
	<<set $clubNameCaps = "The Club">>
<</if>>
<<if ($servantsQuartersName == "")>>
	<<set $servantsQuartersName = "the Servants' Quarters">>
<</if>>
<<if ($servantsQuartersNameCaps == "")>>
	<<set $servantsQuartersNameCaps = "The Servants' Quarters">>
<</if>>
<<if ($schoolroomName == "")>>
	<<set $schoolroomName = "the Schoolroom">>
<</if>>
<<if ($schoolroomNameCaps == "")>>
	<<set $schoolroomNameCaps = "The Schoolroom">>
<</if>>
<<if ($spaName == "")>>
	<<set $spaName = "the Spa">>
<</if>>
<<if ($spaNameCaps == "")>>
	<<set $spaNameCaps = "The Spa">>
<</if>>
<<if ($clinicName == "")>>
	<<set $clinicName = "the Clinic">>
<</if>>
<<if ($clinicNameCaps == "")>>
	<<set $clinicNameCaps = "The Clinic">>
<</if>>
<<if ($arcadeName == "")>>
	<<set $arcadeName = "the Arcade">>
<</if>>
<<if ($arcadeNameCaps == "")>>
	<<set $arcadeNameCaps = "The Arcade">>
<</if>>
<<if ($cellblockName == "")>>
	<<set $cellblockName = "the Cellblock">>
<</if>>
<<if ($cellblockNameCaps == "")>>
	<<set $cellblockNameCaps = "The Cellblock">>
<</if>>
<<if ($masterSuiteName == "")>>
	<<set $masterSuiteName = "the Master Suite">>
<</if>>
<<if ($masterSuiteNameCaps == "")>>
	<<set $masterSuiteNameCaps = "The Master Suite">>
<</if>>
<<if ($HGSuiteName == "")>>
	<<set $HGSuiteName = "the Head Girl Suite">>
<</if>>
<<if ($HGSuiteNameCaps == "")>>
	<<set $HGSuiteNameCaps = "The Head Girl Suite">>
<</if>>
<<if ($pitName == "")>>
	<<set $pitName = "the Pit">>
<</if>>
<<if ($pitNameCaps == "")>>
	<<set $pitNameCaps = "The Pit">>
<</if>>
<<if ($incubatorName == "")>>
	<<set $incubatorName = "the Incubator">>
<</if>>
<<if ($incubatorNameCaps == "")>>
	<<set $incubatorNameCaps = "The Incubator">>
<</if>>

<<if $seeArcology == 1>>    //<<include "Arcology Description">> | [[Hide|Main][$seeArcology = 0]]//
<</if>>

<<if $seeDesk == 1>>
<<include "Office Description">>
//[[Hide|Main][$seeDesk = 0]]//
<</if>>
<<if $seeFCNN == 1>>FCNN: <<print $fcnn.random()>>//[[Hide|Main][$seeFCNN = 0]]//<</if>>
<<if ($seeDesk == 1) && ($seeFCNN == 0)>>
<</if>>

__''MAIN MENU''__    //[[Summary Options]]
<<if $rulesAssistantMain != 0>>
| [[Rules Assistant Options|Rules Assistant]]
<<if $rulesAssistantAuto != 1>>
	| <<link "Apply Rules Assistant at week end">><<set $rulesAssistantAuto = 1>><<goto "Main">><</link>>
<<else>>
	| <<link "Stop applying Rules Assistant at week end">><<set $rulesAssistantAuto = 0>><<goto "Main">><</link>>
<</if>>
| <<link "Activate Rules Assistant">><<for _i = 0;_i < _SL;_i++>><<if $slaves[_i].useRulesAssistant == 1 && $slaves[_i].assignmentVisible == 1>><<DefaultRules $slaves[_i]>><</if>><</for>><<goto "Main">><</link>>
<</if>>
<<if $sortSlavesMain != 0>>

    Sort by:
	<<if $sortSlavesBy != "devotion">>[[Devotion|Main][$sortSlavesBy = "devotion"]]<<else>>Devotion<</if>> |
	<<if $sortSlavesBy != "name">>[[Name|Main][$sortSlavesBy = "name"]]<<else>>Name<</if>> |
	<<if $sortSlavesBy != "assignment">>[[Assignment|Main][$sortSlavesBy = "assignment"]]<<else>>Assignment<</if>> |
	<<if $sortSlavesBy != "seniority">>[[Seniority purchased|Main][$sortSlavesBy = "seniority"]]<<else>>Seniority<</if>> |
	<<if $sortSlavesBy != "age">>[[Age|Main][$sortSlavesBy = "age"]]<<else>>Age<</if>> |
	Sort: <<if $sortSlavesOrder != "descending">>[[Descending|Main][$sortSlavesOrder = "descending"]]<<else>>Descending<</if>> |
	<<if $sortSlavesOrder != "ascending">>[[Ascending|Main][$sortSlavesOrder = "ascending"]]<<else>>Ascending<</if>>
<</if>>//

<<if $positionMainLinks >= 0>>
	<<MainLinks>>
<</if>>
/* TASK ARRAY */
<<if $assignFilter == 1>>
<<set $jobTypes = [{title: "Rest", asgn: "rest"}, {title: "Subordinate", asgn: "be a subordinate slave"}, {title: "Whore", asgn: "whore"}, {title: "Public Servant", asgn: "serve the public"}, {title: "Hole", asgn: "work a glory hole"}, {title: "Milking", asgn: "get milked"}, {title: "House Servant", asgn: "be a servant"}, {title: "Fucktoy", asgn: "please you"}, {title: "Confinement", asgn: "stay confined"}, {title: "Classes", asgn: "take classes"}, {title: "Choose own", asgn: "choose her own job"}]>>

<<link Reset>><<set $slaves.map(function(y){y.assignmentVisible = 1})>><<set $slaves.filter(function(x){return x.assignment == "live with your Head Girl" || x.assignment.includes("in the") || x.assignment == "work as a servant" || x.assignment.includes("be the") || x.assignment == "be your agent" || x.assignment == "be your Concubine"}).map(function(y){y.assignmentVisible = 0})>><<replace '#summarylist'>><<include "Slave Summary">><</replace>><</link>>
Filter by assignment: |
<<for _i = 0; _i < $jobTypes.length; _i++>>
	<<set _title = $jobTypes[_i].title>>
	<<if $slaves.filter(function(x){return x.assignment == ($jobTypes[_i].asgn)}).length > 0>>
		<<print "
			<<link _title>>
				<<set $slaves.filter(function(x){return x.assignment == ($jobTypes[" + _i + "].asgn)}).map(function(y){y.assignmentVisible = 1})>>
				<<set $slaves.filter(function(x){return x.assignment != ($jobTypes[" + _i + "].asgn)}).map(function(y){y.assignmentVisible = 0})>>
				<<replace '#summarylist'>><<include 'Slave Summary'>><</replace>>
			<</link>>
		">>	|
	<</if>>
<</for>>
<</if>>
<<include "Slave Summary">>

<<if $lineSeparations == 0>>
<<else>>
<</if>>
<<if $positionMainLinks <= 0>>

<<MainLinks>>
<</if>>

<<set _j = "Back", _k = "AS Dump", _l = "Main">>
<<for $i = 0; $i < _SL; $i++>>
<<if ($slaves[$i].assignment == "please you")>>

<<include "Toychest">> //In the coming week you plan to concentrate on
	<<if $slaves[$i].fuckdoll == 0>>
		<<if $slaves[$i].toyHole != "all her holes">>
			her $slaves[$i].toyHole, but for now://

    <<print "[[Use her mouth|FLips][$activeSlave = $slaves["+$i+"], $nextButton = _j, $nextLink = _k, $returnTo = _l]]">> | <<print "[[Play with her tits|FBoobs][$activeSlave = $slaves["+$i+"], $nextButton = _j, $nextLink = _k, $returnTo = _l]]">>
			<<if canDoVaginal($slaves[$i])>>
				| <<print "[[Fuck her|FVagina][$activeSlave = $slaves["+$i+"], $nextButton = _j, $nextLink = _k, $returnTo = _l]]">>
				<<if canDoAnal($slaves[$i])>>
				| <<print "[[Use her holes|FButt][$activeSlave = $slaves["+$i+"], $nextButton = _j, $nextLink = _k, $returnTo = _l]]">>
				<</if>>
			<</if>>
			<<if canDoAnal($slaves[$i])>>
			| <<print "[[Fuck her ass|FAnus][$activeSlave = $slaves["+$i+"], $nextButton = _j, $nextLink = _k, $returnTo = _l]]">>
			<</if>>
			/*check*/
			<<if canAchieveErection($slaves[$i])>>
			| <<print "[[Ride her|FDick][$activeSlave = $slaves["+$i+"],$nextButton = _j,$nextLink = _k,$returnTo = _l]]">>
			<</if>>
			| <<print "[[Abuse her|FAbuse][$activeSlave = $slaves["+$i+"],$nextButton = _j,$nextLink = _k,$returnTo = _l]]">>
		<<else>>
			all of her holes equally, but for now://

    <<print "[[Use her mouth|FLips][$activeSlave = $slaves["+$i+"],$nextButton = _j,$nextLink = _k,$returnTo = _l]]">> | <<print "[[Play with her tits|FBoobs][$activeSlave = $slaves["+$i+"],$nextButton = _j,$nextLink = _k,$returnTo = _l]]">>
			<<if canDoVaginal($slaves[$i])>>
				| <<print "[[Fuck her|FVagina][$activeSlave = $slaves["+$i+"],$nextButton = _j,$nextLink = _k,$returnTo = _l]]">>
				<<if canDoAnal($slaves[$i])>>
				| <<print "[[Use her holes|FButt][$activeSlave = $slaves["+$i+"],$nextButton = _j,$nextLink = _k,$returnTo = _l]]">>
				<</if>>
			<</if>>
			<<if canDoAnal($slaves[$i])>>
			| <<print "[[Fuck her ass|FAnus][$activeSlave = $slaves["+$i+"],$nextButton = _j,$nextLink = _k,$returnTo = _l]]">>
			<</if>>
			/*check*/
			<<if canAchieveErection($slaves[$i])>>
			| <<print "[[Ride her|FDick][$activeSlave = $slaves["+$i+"],$nextButton = _j,$nextLink = _k,$returnTo = _l]]">>
			<</if>>
			| <<print "[[Abuse her|FAbuse][$activeSlave = $slaves["+$i+"],$nextButton = _j,$nextLink = _k,$returnTo = _l]]">>
		<</if>>
	<<else>>
		<<if $slaves[$i].toyHole != "all her holes">>
			its $slaves[$i].toyHole.
		<<else>>
			all of its holes.
		<</if>>
	<</if>>
<</if>>
<</for>>

<<if (_BG > -1) && ($slaves[_BG].assignment == "guard you")>>
	<<set $i = _BG>>
	<<set $GO = "idiot ball">>

<<include "Use Guard">>

    <<print "[[Use her mouth|FLips][$activeSlave = $slaves["+_BG+"], $nextButton = _j, $nextLink = _k, $returnTo = _l]]">>
	| <<print "[[Play with her tits|FBoobs][$activeSlave = $slaves["+_BG+"], $nextButton = _j, $nextLink = _k, $returnTo = _l]]">>
	<<if canDoVaginal($slaves[_BG])>>
		| <<print "[[Fuck her|FVagina][$activeSlave = $slaves["+_BG+"], $nextButton = _j, $nextLink = _k, $returnTo = _l]]">>
		<<if canDoAnal($slaves[_BG])>>
		| <<print "[[Use her holes|FButt][$activeSlave = $slaves["+_BG+"],$nextButton = _j, $nextLink = _k, $returnTo = _l]]">>
		<</if>>
	<</if>>
		/*check*/
		<<if canAchieveErection($slaves[_BG])>>
		| <<print "[[Ride her|FDick][$activeSlave = $slaves["+_BG+"], $nextButton = _j, $nextLink = _k, $returnTo = _l]]">>
	<</if>>
	<<if canDoAnal($slaves[_BG])>>
	| <<print "[[Fuck her ass|FAnus][$activeSlave = $slaves["+_BG+"], $nextButton = _j, $nextLink = _k, $returnTo = _l]]">>
	<</if>>
	| <<print "[[Abuse her|Gameover][$gameover = $GO]]">>
<</if>>

<<set $activeSlave = Array.random($slaves)>>
<<if ($activeSlave.assignment != "please you") && ($activeSlave.assignment != "guard you")>>

<<include "Walk Past">>
<</if>>


code:
:: Manage Arcology [nobr]

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

<<if $cheatMode == 1>>

//[[Cheat Edit Arcology|MOD_Edit Arcology Cheat][$cheater = 1]]//

<</if>>
<<set $showEncyclopedia = 0>>

<<include "Arcology Description">>

__Arcology Ownership__
You own ''$arcologies[0].ownership%'' of $arcologies[0].name, <<if $arcologies[0].minority > 0>>against ''$arcologies[0].minority%'' owned by the second most significant holder<<else>>and there are no other significant holders<</if>>.
<<if $arcologies[0].minority > $arcologies[0].ownership-10>>
	@@.red;This is a dangerously narrow margin of control.@@
<</if>>
<<set $price = 500*Math.trunc($arcologies[0].prosperity*(1+($arcologies[0].demandFactor/100)))>>
A 1% interest in $arcologies[0].name is worth ¤$price and will require a transaction cost of ¤10000 to acquire.

<<if $arcologies[0].ownership+$arcologies[0].minority < 100>>
	[[Buy|Manage Arcology][$cash -= $price+10000, $arcologies[0].ownership += 1, $arcologies[0].demandFactor += 5]]
	<<if $arcologies[0].ownership+$arcologies[0].minority <= 90>>
	<<if $cash > $price*10>>
		| [[10%|Manage Arcology][$cash -= ($price*10)+10000, $arcologies[0].ownership += 10, $arcologies[0].demandFactor += 50]]
		//Transaction costs will only be paid once//
	<</if>>
	<</if>>
<<else>>Buy<</if>> |
<<if $arcologies[0].ownership > 0>>
	[[Sell|Manage Arcology][$cash += $price, $arcologies[0].ownership -= 1, $arcologies[0].demandFactor -= 5]]
	<<if $arcologies[0].ownership >= 10>>
		| [[10%|Manage Arcology][$cash += $price*10, $arcologies[0].ownership -= 10, $arcologies[0].demandFactor -= 50]]
	<</if>>
<</if>>
<<if $arcologies[0].ownership+$arcologies[0].minority < 100>>
<<if $rep >= 10000>>

	<<set $repPrice = Math.clamp($price/2, 0, 10000)>>
	You have so much political capital that you can spend reputation to acquire ownership by spending reputation. [[Use reputation|Manage Arcology][$rep -= $repPrice, $arcologies[0].ownership += 1, $arcologies[0].demandFactor += 5]]
<</if>>
<</if>>

<<if $FSAnnounced > 0>>
	<<if $FSCredits > 0>>

		@@.yellow;$arcologies[0].name's society is ready to begin accepting a new societal direction.@@
	<</if>>
<</if>>

__Construction__

<<if $AProsperityCap <= 60>>
	//The first major upgrade needed is the installation of a drone security system so higher-class citizens will feel safe and protected should they choose to immigrate. This upgrade will cost ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>.// [[Install drone security system|Manage Arcology][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $AProsperityCap += 20]]
<<elseif $AProsperityCap <= 80>>
	//The next major upgrade needed is the installation of a better water reclamation system so your residents will have access to cheaper water and hydroponically grown food. This upgrade will cost ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>.// [[Upgrade water reclamation system|Manage Arcology][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $AProsperityCap += 20]]
<<elseif $AProsperityCap <= 100>>
	//The next major upgrade needed is the installation of a broader apron at the bottom of the arcology to increase its surface area and gather more solar energy. Right now, tenants that use a lot of power have to import it from outside. This upgrade will cost ¤<<print Math.trunc(20000*$upgradeMultiplierArcology)>>.// [[Install solar apron|Manage Arcology][$cash -= Math.trunc(20000*$upgradeMultiplierArcology), $AProsperityCap += 20]]
<<elseif $AProsperityCap <= 120>>
	//The next major upgrade needed is an improvement of the arcology's electrical transmission lines to make efficient use of the additional power from the solar apron. This upgrade will cost ¤<<print Math.trunc(50000*$upgradeMultiplierArcology)>>.// [[Upgrade transmission lines|Manage Arcology][$cash -= Math.trunc(50000*$upgradeMultiplierArcology), $AProsperityCap += 30]]
<<elseif $AProsperityCap <= 150>>
	//The next major upgrade needed is an overhaul of the commercial floors. As the arcology has become prosperous a better class of citizen has started to look for a higher class of establishment. These renovations will cost ¤<<print Math.trunc(100000*$upgradeMultiplierArcology)>>.// [[Renovate commercial floors|Manage Arcology][$cash -= Math.trunc(100000*$upgradeMultiplierArcology), $AProsperityCap += 40]]
<<elseif $AProsperityCap <= 190>>
	//The next major upgrade needed is an overhaul of the residential floors. As the arcology has become prosperous a better class of citizen has started to look for a higher class of living quarters. These renovations will cost ¤<<print Math.trunc(200000*$upgradeMultiplierArcology)>>.// [[Renovate residential floors|Manage Arcology][$cash -= Math.trunc(200000*$upgradeMultiplierArcology), $AProsperityCap += 50]]
<<elseif $AProsperityCap <= 240>>
	//The next major upgrade needed is the addition of a spire at the top of the arcology to increase the space available for the wealthiest citizens to own whole floors. This huge project will cost ¤<<print Math.trunc(250000*$upgradeMultiplierArcology)>>.// [[Add spire|Manage Arcology][$cash -= Math.trunc(250000*$upgradeMultiplierArcology), $AProsperityCap += 60]]
<<else>>
	//The arcology's public areas are fully upgraded.//
<</if>>
<<if ($PC.engineering >= 100) || ($PC.career == "arcology owner")>>
<<if $AProsperityCap < 360>>
	//Arcology upgrades are less expensive due to your @@.springgreen;<<if $PC.career == "arcology owner">>experience in the Free Cities<<else>>arcology engineering training<</if>>.@@//
<</if>>
<</if>>

<<if $weatherCladding == 0>>
	//Extreme weather is becoming common worldwide. The arcology's exterior can be hardened to reduce damage in case of heavy weather, but this will reduce its beauty somewhat and will cost ¤<<print Math.trunc(50000*$upgradeMultiplierArcology)>>. Your citizens are <<if $weatherAwareness == 0>>likely to disapprove of this measure as alarmism.<<else>>@@.yellow;concerned that this measure has not been taken already.@@<</if>> // [[Apply weather cladding|Manage Arcology][$cash -= Math.trunc(50000*$upgradeMultiplierArcology), $weatherCladding = 1]]
<<elseif $weatherCladding == 1 && $AProsperityCap is 300>>
	The arcology's exterior is jacketed with unsightly but sturdy weather cladding. Your arcology is so prosperous that remodeling the cladding into something beautiful is within the realm of possibility. This massive project will cost ¤<<print Math.trunc(3500000*$upgradeMultiplierArcology)>> and without a doubt render your arcology one of the wonders of the world.
[[Remodel weather cladding|Manage Arcology][$cash -= Math.trunc(3500000*$upgradeMultiplierArcology), $weatherCladding = 2, $AProsperityCap = 360]]
<<elseif $weatherCladding == 1>>
	//The arcology's exterior is jacketed with unsightly but sturdy weather cladding.//
<<elseif $weatherCladding == 2>>
	//The arcology's exterior is jacketed with gorgeously sculpted and fully functional weather cladding.//
<</if>>

__Facilities__

<<if $brothel == 0>>
	[[Combine empty apartments into a brothel|Manage Arcology][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $brothel = 5]]
	//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>> and will incur upkeep costs//
<<elseif $brothel > 0>>
	A brothel has been installed directly below your penthouse. It can support <<print $brothel>> whores.
<</if>>

<<if $club == 0>>
	[[Build a club to serve as a focal point for public sluts|Manage Arcology][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $club = 5]]
	//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>> and will incur upkeep costs//
<<elseif $club > 0>>
	There are rooms off the club to support slaves as they please citizens. They can support <<print $club>> sluts.
<</if>>

<<if $arcade == 0>>
	[[Construct a sex arcade to confine slaves in|Manage Arcology][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $arcade = 5]]
	//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>> and will incur upkeep costs//
<<elseif $arcade > 0>>
	A sex arcade has been installed in the arcology. It can support <<print $arcade>> inmates.
<</if>>

<<if $dairy == 0>>
	[[Add a dairy to the water reclamation facility|Manage Arcology][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $dairy = 5]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>> and will incur upkeep costs//
<<elseif $dairy > 0>>
	A dairy has been installed in the water reclamation area of your penthouse. It can support <<print $dairy>> milkers.
<</if>>

<<if $servantsQuarters == 0>>
	[[Build a dormitory to house large numbers of house servants|Manage Arcology][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $servantsQuarters = 5]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>//
<<else>>
	Your penthouse includes a dormitory to house large numbers of house servants.
<</if>>

<<if $schoolroom == 0>>
	[[Build a schoolroom where slaves can be educated|Manage Arcology][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $schoolroom = 5]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>//
<<else>>
	Your penthouse includes a schoolroom where slaves can be educated.
<</if>>

<<if $spa == 0>>
	[[Install open baths to provide relaxation space for resting slaves|Manage Arcology][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $spa = 5]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>//
<<else>>
	The penthouse includes a fully appointed spa where slaves can rest and recuperate.
<</if>>

<<if $clinic == 0>>
	[[Expand the surgical recovery area to accommodate patients and a nurse|Manage Arcology][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $clinic = 5]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>//
<<else>>
	The surgical recovery area has been expanded to take in more unhealthy slaves and be staffed by a nurse.
<</if>>

<<if $cellblock == 0>>
	[[Construct cells to properly confine disobedient slaves|Manage Arcology][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $cellblock = 5]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>//
<<else>>
	The lower level of the penthouse includes a hallway of cells to confine slaves in.
<</if>>

<<if $cyberMod == 1>>

	<<if $researchLab.built == "true">>
		Your penthouse is now equipped with a research lab.
	<<else>>
		[[Clear out one of the floors and install research equipment|Manage Arcology][$cash -= Math.trunc(15000*$upgradeMultiplierArcology), $researchLab.built = "true", $researchLab.maxSpace = 5]]
		//Costs ¤<<print Math.trunc(15000*$upgradeMultiplierArcology)>>//
	<</if>>
<</if>>

<<if $familyTesting == 1>>

<<if $AProsperityCap > 120>>
<<if $incubator == 0>>
	[[Install an incubation chamber to rapidly age children|Manage Arcology][$cash -= Math.trunc(100000*$upgradeMultiplierArcology), $incubator = 1]]
	//Costs ¤<<print Math.trunc(100000*$upgradeMultiplierArcology)>>//
<<else>>
	The penthouse has a specialized facility dedicated to rapidly aging children.
<</if>>
<<elseif $AProsperityCap >= 100 && $AProsperityCap <= 120>>
	//Installation of a child aging facility will require the arcology's electrical infrastructure to be overhauled.//
<</if>>
<</if>>

__Special Arcology Upgrades__

<<if ($personalArms == 0) && ($mercenaries == 0) && ($assistant == 0)>>
//$arcologies[0].name has no special upgrades//
<</if>>

<<if ($personalArms == 1)>>
You own a prototype powered exoskeleton that mounts armor and a smart mortar system, and has rifles mounted into its forearms.
<<elseif ($personalArms > 1)>>
You own a prototype powered exoskeleton that mounts armor and a smart mortar system, and has rifles mounted into its forearms. Furthermore, your security drones can rearm with small-caliber guns if necessary.
<</if>>

<<if ($mercenaries > 0)>>
<<if ($mercenaries == 1)>>
A squad of mercenaries is permanently quartered in $arcologies[0].name. They are grim men and women, heavily armed and armored. Their upkeep is costing ¤<<print ($mercenaries*1000)>> weekly.
<<elseif ($mercenaries < 5)>>
A full platoon of mercenaries is permanently quartered in $arcologies[0].name. They are grim men and women, heavily armed and armored. Their upkeep is costing ¤<<print ($mercenaries*1000)>> weekly.
<<elseif ($mercenaries >= 5)>>
You have permanently settled a full platoon of mercenaries in $arcologies[0].name as your $mercenariesTitle. They are grim men and women who appreciate their luxurious life here and train hard to keep their skills with their prototype armor sharp. Their upkeep is costing ¤<<print ($mercenaries*1000)>> weekly.
<</if>>
<</if>>

<<if ($assistant > 0)>>
<<if $assistantName == "your personal assistant">>Your personal assistant<<else>>$assistantName<</if>> is using an alternative personality setting, speaking in a sultry, sexual voice, and talking as though the penthouse's sex toys are her body.
<</if>>
<<if ($assistant > 1)>>
She also has charge of all smart piercings in the arcology, and is using her adaptations to sexual duties to improve their effectiveness.
<</if>>

Your slaves have participated in approximately <<print $oralTotal+$vaginalTotal+$analTotal>> sexual encounters: $oralTotal primarily oral, $vaginalTotal vanilla, $mammaryTotal mammary, $analTotal anal, and $penetrativeTotal with the slave penetrating another. They have produced about $milkTotal liters of marketable milk, <<if $seeDicks != 0>>about $cumTotal deciliters of marketable cum, <</if>>and have given birth $birthsTotal times.

<<if $pitKillsTotal > 0>>$pitKillsTotal slaves have died in your fighting pit.<</if>>
<<if $fuckdollsSold > 0>>$fuckdollsSold mindbroken arcade slaves have been converted into Fuckdolls and sold.<</if>>

Your arcology is named <<textbox "$arcologies[0].name" $arcologies[0].name "Manage Arcology">>


code:
:: Manage Penthouse [nobr]

<<if $cheatMode == 1>>

//[[Cheat Edit Arcology|MOD_Edit Arcology Cheat][$cheater = 1]]//

<</if>>
<<set $showEncyclopedia = 0>>

<<include "Office Description">>
<<if $PC.career == "mercenary">>
	You look back at the rifle. It could never hold a zero, and would fail to feed if it wasn't given just the right amount of lubricant. But sometimes, you'd give anything for one more mission with that shitty old rifle.
<</if>>

__Penthouse Capacity__

The main penthouse dormitory, which houses slaves who aren't living in a facility and aren't granted a luxurious standard of living, has a capacity of ''$dormitory'' slaves.
[[Expand the dormitory|Manage Penthouse][$cash -= Math.trunc($dormitory*1000*$upgradeMultiplierArcology), $dormitory += 10]]
//Costs ¤<<print Math.trunc($dormitory*1000*$upgradeMultiplierArcology)>>//

//Exceeding this limit is bad for slaves' health, devotion and trust//

The penthouse also features little individual rooms, which house slaves who do enjoy a luxurious standard of living. They have a capacity of ''$rooms'' slaves.
[[Expand the rooms|Manage Penthouse][$cash -= Math.trunc($rooms*1000*$upgradeMultiplierArcology), $rooms += 5]]
//Costs ¤<<print Math.trunc($rooms*1000*$upgradeMultiplierArcology)>>//

//The number of rooms determines the number of slaves that can be granted luxury//

__Penthouse Improvements__

<<if $masterSuite == 0>>
	[[Improve your master bedroom to house a harem of personal toys|Manage Penthouse][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $masterSuite = 1]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>//
<<else>>
	Your penthouse is capped by a master suite with room for an entire harem of personal toys.
<</if>>

<<if $HGSuite != 1>>
	[[Build a small suite for a Head Girl to live in|Manage Penthouse][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $HGSuite = 1]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>//
<<else>>
	There is a small but handsome suite next to yours reserved for the Head Girl.
<</if>>

<<if $servantMilkers != 1>>
	Your penthouse is equipped with basic milkers for lactating slaves. [[Install more and tie them into the liquid systems|Manage Penthouse][$cash -= Math.trunc(25000*$upgradeMultiplierArcology), $servantMilkers = 1]]
	//Costs ¤<<print Math.trunc(25000*$upgradeMultiplierArcology)>>//
<<else>>
	Every room in the penthouse is equipped with milkers tied into the liquid systems, letting slaves with full udders drain them anywhere.
<</if>>

<<if $boobAccessibility != 1>>
<<if $pregAccessibility == 1 || $ballsAccessibility || $buttAccessibility>>
	Your penthouse has already been widened for overly wide slaves but there are no special accomodations for slaves with enormous breasts. [[Remodel for accessibility|Manage Penthouse][$cash -= Math.trunc(20000*$upgradeMultiplierArcology), $boobAccessibility = 1]]
	//Costs ¤<<print Math.trunc(20000*$upgradeMultiplierArcology)>>//
<<else>>
	Your penthouse has no special accessibility provisions for slaves with enormous breasts. [[Remodel for accessibility|Manage Penthouse][$cash -= Math.trunc(50000*$upgradeMultiplierArcology), $boobAccessibility = 1]]
	//Costs ¤<<print Math.trunc(50000*$upgradeMultiplierArcology)>>//
<</if>>
<<else>>
	The entire penthouse has been remodeled to make life with enormous breasts easier. The doorways have been widened, and tables, sinks and other items now have two levels: one at shoulder height for slaves to use, and another at waist height for them to rest their tits on while they do.
<</if>>

<<if $seeHyperPreg == 1>>

<<if $pregAccessibility != 1>>
<<if $boobAccessibility == 1 || $ballsAccessibility || $buttAccessibility>>
	Your penthouse has already been widened to make life for overly wide slaves easier but there are no special accomodations for slaves with enormous pregnancies. [[Remodel for accessibility|Manage Penthouse][$cash -= Math.trunc(20000*$upgradeMultiplierArcology), $pregAccessibility = 1]]
	//Costs ¤<<print Math.trunc(20000*$upgradeMultiplierArcology)>>//
<<else>>
	Your penthouse has no special accessibility provisions for slaves with enormous pregnancies. [[Remodel for accessibility|Manage Penthouse][$cash -= Math.trunc(50000*$upgradeMultiplierArcology), $pregAccessibility = 1]]
	//Costs ¤<<print Math.trunc(50000*$upgradeMultiplierArcology)>>//
<</if>>
<<else>>
	The entire penthouse has been remodeled to make life with enormous pregnancies easier. The doorways have been widened, and tables, sinks and other items are now designed to work around a massively distended belly.
<</if>>
<</if>>

<<if $arcologies[0].FSAssetExpansionistResearch == 1>>

<<if $dickAccessibility != 1>>
	Your penthouse has no special accessibility provisions for slaves with enormous dicks. [[Remodel for accessibility|Manage Penthouse][$cash -= Math.trunc(20000*$upgradeMultiplierArcology), $dickAccessibility = 1]]
	//Costs ¤<<print Math.trunc(20000*$upgradeMultiplierArcology)>>//
<<else>>
	The entire penthouse has been remodeled to make life with enormous dicks easier. Carts, slings and harnesses are available to keep things from dragging and there is now plenty of room for huge genitals to occupy when a slave must use appliances, tables and seats.
<</if>>

<<if $ballsAccessibility != 1>>
<<if $boobAccessibility == 1 || $buttAccessibility || $pregAccessibility>>
	Your penthouse has already been widened to make life for overly wide slaves easier but there are no special accomodations for slaves with enormous testicles. [[Remodel for accessibility|Manage Penthouse][$cash -= Math.trunc(20000*$upgradeMultiplierArcology), $ballsAccessibility = 1]]
	//Costs ¤<<print Math.trunc(20000*$upgradeMultiplierArcology)>>//
<<else>>
	Your penthouse has no special accessibility provisions for slaves with enormous testicles. [[Remodel for accessibility|Manage Penthouse][$cash -= Math.trunc(50000*$upgradeMultiplierArcology), $ballsAccessibility = 1]]
	//Costs ¤<<print Math.trunc(50000*$upgradeMultiplierArcology)>>//
<</if>>
<<else>>
	The entire penthouse has been remodeled to make life with enormous testicles easier. The doorways have been widened, tables, sinks and other items are now designed to fit over giant balls, drains have been widened to allow excessive cum to flow easier, and seats have been specially altered to allow plenty of ball room for seated slaves.
<</if>>

<<if $buttAccessibility != 1>>
<<if $boobAccessibility == 1 || $dickAccessibility || $ballsAccessibility>>
	Your penthouse has already been widened to make life for overly wide slaves easier but there are no special accomodations for slaves with gigantic posteriours. [[Remodel for accessibility|Manage Penthouse][$cash -= Math.trunc(20000*$upgradeMultiplierArcology), $buttAccessibility = 1]]
	//Costs ¤<<print Math.trunc(20000*$upgradeMultiplierArcology)>>//
<<else>>
	Your penthouse has no special accessibility provisions for slaves with enormous posteriors. [[Remodel for accessibility|Manage Penthouse][$cash -= Math.trunc(50000*$upgradeMultiplierArcology), $buttAccessibility = 1]]
	//Costs ¤<<print Math.trunc(50000*$upgradeMultiplierArcology)>>//
<</if>>
<<else>>
	The entire penthouse has been remodeled to make life with enormous rears easier. The doorways have been widened, and anything that can be sat on is now extra, extra wide and reinforced to allow even the heaviest, biggest asses to comfortably rest upon it.
<</if>>

<</if>>

<<if $feeder == 0>>
	[[Upgrade the kitchen's nutritional sensing systems|Manage Penthouse][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $feeder = 1]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>//
<<else>>
	The kitchen mounts sensors to refine diets in real time.
<</if>>

<<if $cockFeeder == 0>>
	[[Enhance the feeding system with faux phalli|Manage Penthouse][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $cockFeeder = 1]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>//
<<else>>
	The kitchen dispenses food from phalli slaves must suck off in order to eat. //[[Remove them|Manage Penthouse][$cockFeeder = 0]]//
<</if>>

<<if $suppository == 0>>
	[[Replace the drug dispensers with reciprocating dildo suppositories|Manage Penthouse][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $suppository = 1]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>//
<<else>>
	The kitchen applies drugs that can be absorbed rectally by assfucking slaves with dildos that cum the pharmaceuticals.  //[[Remove them|Manage Penthouse][$suppository = 0]]//
<</if>>

<<if $dairy != 0>>
<<if $dairyPiping == 0>>
	[[Install pipes connecting the Dairy to the rest of your penthouse for use in enema play|Manage Penthouse][$cash -= Math.trunc(15000*$upgradeMultiplierArcology), $dairyPiping = 1]]
	//Costs ¤<<print Math.trunc(15000*$upgradeMultiplierArcology)>>//
<<else>>
	Various taps around the penthouse supply product from $dairyName for use in enema play and force-feeding.
<</if>>
<<elseif $dairyPiping == 1>>
	Various taps around the penthouse supply product from $dairyName for use in enema play and force-feeding. With no dairy to draw from, they are currently unused.
<</if>>

<<if $studio == 0>>
	[[Install a media hub to convert slave video feeds into pornography|Manage Penthouse][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $studio = 1]]
	//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//
<<else>>
	The arcology's video systems are connected to a media hub that can convert slave video feeds into pornography.
<</if>>

<<if $dojo == 0>>
	[[Set up a personal armory to support a bodyguard|Manage Penthouse][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $dojo = 1]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>//
<<elseif $dojo == 1>>
	There is a small armory next to your office that can support a bodyguard. [[Upgrade the armory with a private room for the bodyguard|Manage Penthouse][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $dojo = 2]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>//
<<else>>
	There is a small armory next to your office that can support a bodyguard, with a little room for her to rest in when off duty.
<</if>>

<<if $pit == 0>>
	[[Build a pit to host slave fights|Manage Penthouse][$cash -= Math.trunc(5000*$upgradeMultiplierArcology), $pit = 1]]
	//Costs ¤<<print Math.trunc(5000*$upgradeMultiplierArcology)>>//
<<else>>
	You have a room with a padded pit sunken into the floor for slave fights.
<</if>>

<<if ($dispensary == 0)>>
<<if ($rep > 2000)>>
	[[Install a pharmaceutical fabricator|Manage Penthouse][$cash -= Math.trunc(20000*$upgradeMultiplierArcology), $dispensary = 1, $drugsCost = $drugsCost/4]]
	//Costs ¤<<print Math.trunc(20000*$upgradeMultiplierArcology)>>//
<<else>>
	//You lack the reputation to obtain cutting-edge pharmaceutical technology//
<</if>>
<<else>>
	There is a [[pharmaceutical fabricator|Dispensary]] in the basement.
<</if>>

<<if ($surgeryUpgrade == 0)>>
<<if ($rep > 10000)>>
	[[Upgrade the remote surgery|Manage Penthouse][$cash -= Math.trunc(50000*$upgradeMultiplierArcology), $surgeryUpgrade = 1]]
	//Costs ¤<<print Math.trunc(50000*$upgradeMultiplierArcology)>>//
<<else>>
	//You lack the reputation to secure rare surgery upgrades//
<</if>>
<<else>>
	Your remote surgery has been heavily upgraded and customized.
<</if>>

<<if $cyberMod == 0>>
	<<switch $prostheticsUpgrade>>
	<<case 1>>
	There is a facility to construct mechanical prosthetic limbs for amputated slaves.
	<<if ($rep > 14000)>>
		[[Research advanced prototype prosthetics|Manage Penthouse][$cash -= Math.trunc(100000*$upgradeMultiplierArcology), $prostheticsUpgrade = 2]]
		//Costs ¤<<print Math.trunc(100000*$upgradeMultiplierArcology)>>//
	<<else>>
		//You lack the reputation to research and produce prototype prosthetics.//
	<</if>>
	<<case 2>>
	There is a prosthetics facility upgraded to use advanced materials and designs.
	<<if ($rep > 16000)>>
		[[Research high-tech cybernetic limbs|Manage Penthouse][$cash -= Math.trunc(100000*$upgradeMultiplierArcology), $prostheticsUpgrade = 3]]
		//Costs ¤<<print Math.trunc(100000*$upgradeMultiplierArcology)>>//
	<<else>>
		//You lack the reputation to research and produce prototype cybernetic limbs.//
	<</if>>
	<<case 3>>
	There is a high-tech facility to build prosthetics and state-of-the-art cybernetic replacement limbs.
	<<default>>
	<<if ($rep > 12000)>>
		[[Construct a mechanical prosthetics facility|Manage Penthouse][$cash -= Math.trunc(100000*$upgradeMultiplierArcology), $prostheticsUpgrade = 1]]
		//Costs ¤<<print Math.trunc(100000*$upgradeMultiplierArcology)>>//
	<<else>>
		//You lack the reputation to construct a prosthetics facility.//
	<</if>>
	<</switch>>
<</if>>