code:
:: Generate New Slave [nobr]

<<if (random(0,99) < $seeDicks)>>
	<<include "Generate XY Slave">>
<<elseif ($seeDicks > 0)>>
	<<if ($arcologies[0].FSGenderFundamentalistSMR == 1 || $arcologies[0].FSRepopulationFocusSMR == 1)>>
	<<set $seed to 90>>
	<<elseif ($arcologies[0].FSGenderRadicalistLaw == 1)>>
	<<set $seed to 50>>
	<<else>>
	<<set $seed to 80>>
	<</if>>
	<<if (random(1,100) > $seed) && (random(0,99) < $seeDicks)>>
	<<include "Generate XY Slave">>
	<<else>>
	<<include "Generate XX Slave">>
	<</if>>
<<else>>
	<<include "Generate XX Slave">>
<</if>>

repo_name: TheBoi/fc


code:
:: Growth Research Institute

<<set $nextButton to "Back">>\
<<set $nextLink to "Buy Slaves">>\
<<set $returnTo to "Buy Slaves">>\
<<set $showEncyclopedia to 1>><<set $encyclopedia to "Slave Schools">>\
\
//The Growth Research Institute (GRI) is not primarily a slave school at all, but rather the world leader in female growth hormone development. It operates research centers in the Free Cities to avoid traditional medical research laws. GRI runs several slave schools to raise healthy, unmodified subjects for use in trials. After a year of experimental hormone treatment they are sold. <<if $GRI.schoolUpgrade != 0>>

You have endowed <<if $GRI.schoolUpgrade == 1>>a research focus on advanced curatives, most subjects now leave the GRI at unnatural levels of vitality.<<else>>a research focus on milk production, subjects' breasts are bigger and milkier than ever.<</if>> As a major <<if $PC.title == 0>>benefactrix<<else>>benefactor<</if>> of the institution, you also receive a discount on them.<</if>>//

GRI offers a fresh graduate for inspection via video call. The interview takes place in the graduate's bare-metal holding cell. Disturbingly, it is strongly reminiscent of an enclosure for a lab animal, only scaled up to contain a lab animal of human dimensions.

<<nobr>>
<<set $activeSlaveOneTimeMinAge to 16>>
<<set $activeSlaveOneTimeMaxAge to 19>>
<<include "Generate XX Slave">>
<<set $activeSlave.origin to "You bought her from the Growth Research Institute right after her use as a test subject ended.">>
<<set $activeSlave.career to "a slave">>
<<set $activeSlave.intelligenceImplant to 0>>
<<set $activeSlave.devotion = random(-15,-5)>>
<<set $activeSlave.trust = random(-25,-45)>>
<<set $activeSlave.chem = 100>>
<<if $GRI.schoolUpgrade == 1>>
	<<set $activeSlave.health = 200>>
<<else>>
	<<set $activeSlave.health = random(-80,100)>>
<</if>>
<<set $activeSlave.height to random(160,210)>>
<<set $activeSlave.butt to random(4,10)>>
<<if $GRI.schoolUpgrade is 2>>
	<<set $activeSlave.boobs to 200*random(15,30)>>
	<<set $activeSlave.lactation to 2>>
<<else>>
	<<set $activeSlave.boobs to 200*random(4,20)>>
<</if>>
<<set $activeSlave.nipples to either("inverted", "huge")>>
<<set $activeSlave.areolae to either(0, 1, 2, 3)>>
<<set $activeSlave.clit to either(0, 1, 2, 3)>>
<<set $activeSlave.lips to random(5,85)>>
<<set $activeSlave.anus to 0>>
<<set $activeSlave.vagina to 0>>
<<set $activeSlave.preg to 0>>
<<set $activeSlave.weight to 0>>
<<set $activeSlave.vaginalSkill = 0>>
<<set $activeSlave.oralSkill = 0>>
<<set $activeSlave.analSkill = 0>>
<<set $activeSlave.whoreSkill = 0>>
<<set $activeSlave.entertainSkill = 0>>
<<set $activeSlave.combatSkill = 0>>
<<set $activeSlave.pubicHStyle to "waxed">>
<<set $activeSlave.birthWeek to 0>>
<<set $activeSlave.behavioralFlaw to either("odd")>>
<<set $activeSlave.hStyle to "shaved">>
<<set $activeSlave.hLength to 0>>
<<set $activeSlave.customTat to "She has a barcode that identified her when she was a test subject at the Growth Research Institute tattooed on her left cheek.">>
<<slaveCost $activeSlave>>
<<if $GRI.schoolSale != 0>>
	<<set $slaveCost = Math.trunc($slaveCost*0.5)>>
<<elseif $GRI.schoolUpgrade != 0>>
	<<set $slaveCost = Math.trunc($slaveCost*0.8)>>
<</if>>
<<if $slavesSeen > $slaveMarketLimit>><<set $slaveCost += Math.trunc($slaveCost*(($slavesSeen-$slaveMarketLimit)*0.1))>><</if>>
<</nobr>>\
\
The price is ¤<<print $slaveCost>>.<<if $slavesSeen > $slaveMarketLimit>> You have cast such a wide net for slaves this week that it is becoming more expensive to find more for sale. Your reputation helps determine your reach within the slave market.<</if>>
\
<<nobr>>
<<if $cash >= $slaveCost>>
	[[Buy her slave contract|New Slave Intro][$cash -= $slaveCost,$GRI.schoolSale to 0,$GRI.studentsBought += 1,$nextButton to "Continue",$nextLink to "AS Dump",$returnTo to "Main"]]
<<else>>
	//You lack the necessary funds to buy this slave.//
<</if>>
<</nobr>>
[[Request to see a different graduate of the same school|Growth Research Institute][$slavesSeen += 1]]

<<set $saleDescription to 1>>\
<<include "Long Slave Description">>\
<<set $saleDescription to 0>>\


code:
:: Head Girl Suite

<<nobr>>
<<set $nextButton to "Back to Main">>
<<set $nextLink to "Main">>
<<set $returnTo to "Head Girl Suite">>

<<if $HGSuiteName != "the Head Girl Suite">>
	<<set $HGSuiteNameCaps to $HGSuiteName.replace("the ", "The ")>>
<</if>>

<<set $HGSuiteSlaves to 0>>
<<set $notHGSuiteSlaves to 0>>
<<for _i to 0; _i < $slaves.length; _i++>>
	<<if $slaves[_i].assignment is "live with your Head Girl">>
		<<set $HGSuiteSlaves += 1>>
		<<set $activeSlave to $slaves[_i]>>
	<<else>>
		<<set $notHGSuiteSlaves += 1>>
	<</if>>
<</for>>

<<if $HeadGirl == 0>>
	You have no Head Girl appointed to live in $HGSuiteName.
<<elseif $HGSuiteSlaves > 0>>
	Your Head Girl $HeadGirl.slaveName has $activeSlave.slaveName living in $HGSuiteName with her, as her servant, assistant, and sexual appliance.
<<else>>
	Your Head Girl $HeadGirl.slaveName lives alone in her handsome suite.
<</if>>

//Any slave assigned to live with your Head Girl will become, for most practical purposes, her slave.//

<<if $HGSuiteEquality == 1>>
	The two slaves living in $HGSuiteName are ''equals,'' and will alternate weeks as Head Girl and Head Girl's bitch. [[Stop|Head Girl Suite][$HGSuiteEquality to 0]]
<<else>>
	The current Head Girl will ''remain Head Girl.'' [[Have them alternate|Head Girl Suite][$HGSuiteEquality to 1,$HGSuiteSurgery to 0,$HGSuiteDrugs to 0,$HGSuiteHormones to 0]] //This will only take effect if the other girl is an appropriate candidate//

	<<if $HGSuiteSurgery == 1>>
	She is ''allowed'' to use surgical modification on her slave. [[Disallow|Head Girl Suite][$HGSuiteSurgery to 0]]
	<<else>>
	She is ''not allowed'' to use surgical modification on her slave. [[Allow|Head Girl Suite][$HGSuiteSurgery to 1]]
	<</if>>

	<<if $HGSuiteDrugs == 1>>
	She is ''allowed'' to use growth hormones on her slave. [[Disallow|Head Girl Suite][$HGSuiteDrugs to 0]]
	<<else>>
	She is ''not allowed'' to use growth hormones on her slave. [[Allow|Head Girl Suite][$HGSuiteDrugs to 1]]
	<</if>>

	<<if $HGSuiteHormones == 1>>
	She is ''allowed'' to customize her slave with hormone treatments. [[Disallow|Head Girl Suite][$HGSuiteHormones to 0]]
	<<else>>
	She is ''not allowed'' to customize her slave with hormone treatments. [[Allow|Head Girl Suite][$HGSuiteHormones to 1]]
	<</if>>
<</if>>

<<if $HGSuiteSlaves > 0>>

''Bring the Head Girl's girl out of $HGSuiteName:''
	<<set $Flag to 1>>
	<<include "Slave Summary">>
<</if>>

<<if ($notHGSuiteSlaves > 0) && ($HGSuiteSlaves < 1)>>

''Assign a slave to the Head Girl:''
	<<set $Flag to 0>>
	<<include "Slave Summary">>
<</if>>
<<unset $Flag>>

Rename $HGSuiteName: <<textbox "$HGSuiteName" $HGSuiteName "Head Girl Suite">> //Use a noun or similar short phrase//
<</nobr>>


code:
:: HG Application [nobr]

<<if ndef $HGSeverity>>
	<<set $HGSeverity = 0>>
<</if>>
<<set $activeSlave.tired to 1>>
<<set $HGEnergy -= 1>>
<<set _effectiveness to 15+$HeadGirl.actualAge+($HeadGirl.intelligence*10)-($HeadGirl.accent*5)+($HGSeverity*10)+($activeSlave.intelligence*10)-($activeSlave.accent*5)>>
<<if $HeadGirl.sexualFlaw == "abusive">>
<<if $HGSeverity >= 0>>
	<<set _effectiveness += 10>>
<</if>>
<</if>>

    ''Your head girl __@@color:pink;$HeadGirl.slaveName@@__'' notices that ''__@@color:pink;$activeSlave.slaveName@@__''
<<if $HGtraining is "health">>
	is unwell.
<<elseif $HGtraining is "obedience">>
	is disobedient.
<<elseif $HGtraining is "flaw">>
	has
	<<if ["cum addict", "anal addict", "attention whore", "breast growth", "abusive", "malicious", "self hating", "neglectful", "breeder"].contains($activeSlave.sexualFlaw)>>
		a paraphilia.
	<<else>>
		an unpleasant flaw worth fixing.
	<</if>>
<<elseif $HGtraining is "soften">>
	has an unpleasant flaw that she can try to soften into a unique quirk.
<<elseif $HGtraining is "oral skill">>
	isn't as orally skilled as she is.
<<elseif $HGtraining is "anal skill">>
	isn't as skilled at taking anal as she is.
<<elseif $HGtraining is "fuck skill">>
	isn't as skilled at vaginal intercourse as she is.
<<elseif $HGtraining is "whore skill">>
	isn't as skilled at the fine art of sex for money as she is.
<<elseif $HGtraining is "entertain skill">>
	isn't as skilled at entertainment as she is.
<</if>>

<<if $HGtraining is "health">>

She helps $activeSlave.slaveName however she can. The tender care has @@color:green;improved $activeSlave.slaveName's health.@@
<<set $activeSlave.health += 10>>

<<else>>

<<if $HeadGirl.career is "an arcology owner">>
	She was once an arcology owner herself, making her truly peerless as a Head Girl.
	<<set _effectiveness += 50>>
<<elseif $HGCareers.contains($HeadGirl.career)>>
	She was used to giving commands and being obeyed in her life before she was a slave, experience she can call on now.
	<<set _effectiveness += 5>>
<</if>>

<<if $HeadGirl.actualAge > 30>>
	Her age and experience help her as she works with $activeSlave.slaveName.
<<elseif ($HeadGirl.actualAge < 25) && $AgePenalty > 0>>
	Her youth and inexperience impede her as she works with $activeSlave.slaveName.
<</if>>

<<if $HeadGirl.accent >= 3>>
	She does her best to give orders in $language, but has to resort to a lot of unseemly gesticulation and shouting, making her much less effective.
<<elseif $HeadGirl.accent is 2>>
	Her heavy $HeadGirl.nationality accent impedes her clarity in $language, making her somewhat less effective.
<</if>>

<<if ($HGtraining is "obedience") || ($HGtraining is "flaw") || ($HGtraining is "soften")>>
	<<if $HeadGirl.intelligence > 1>>
		<<if $activeSlave.intelligence > 1>>
			She needs her wits about her to mold $activeSlave.slaveName, who's quite intelligent herself.
		<<elseif $activeSlave.intelligence >= -1>>
			Her intelligence helps her mold $activeSlave.slaveName.
		<<else>>
			Molding $activeSlave.slaveName is very easy, especially for a smart Head Girl like her.
		<</if>>
	<</if>>
<<else>>
	<<if $HeadGirl.intelligence > 1>>
		<<if $activeSlave.intelligence > 1>>
			Both slaves are quite intelligent, making her job much easier.
		<<elseif $activeSlave.intelligence >= -1>>
			She's quite intelligent and can teach $activeSlave.slaveName well.
		<<else>>
			She needs all her considerable intelligence to get through to the idiot she has to teach.
		<</if>>
	<</if>>
<</if>>

<<if $HGSeverity > 0>>
	Your directives encourage her to rape any slave that fails in the slightest way, a task she approaches
	<<if $HeadGirl.sexualFlaw is "abusive">>
		eagerly, since she prefers to take her pleasure without consent.
	<<elseif $HeadGirl.fetish is "sadist">>
		with sadistic enthusiasm.
	<<elseif $HeadGirl.fetish is "dom">>
		with confidence.
	<<elseif $HeadGirl.energy > 95>>
		as a convenient way to
		<<if ($HeadGirl.balls > 0)>>
			drain her perpetually overfilled balls into a series of spasming holes.
		<<else>>
			sate her excess sexual appetite.
		<</if>>
	<<else>>
		dutifully.
	<</if>>
	<<if $activeSlave.vagina == 0>>
	In $activeSlave.slaveName's case, she's careful to limit her sexual abuse to things that won't take the girl's virginity. The slave
	<<elseif $activeSlave.vagina == 0>>
	She's careful to molest $activeSlave.slaveName in ways that don't involve penetrating her virgin ass. The slave
	<<else>>
		$activeSlave.slaveName
	<</if>>
	<<if $activeSlave.devotion > 50>>
	accepts the abuse, believing she deserves to be raped.
	<<elseif $activeSlave.devotion >= -20>>
	is @@color:gold;frightened@@ by the unceasing abuse.
	<<set $activeSlave.trust -= 1>>
	<<else>>
	@@color:mediumorchid;hates@@ and @@color:gold;fears@@ the constant abuse.
	<<set $activeSlave.trust -= 1>>
	<<set $activeSlave.devotion -= 1>>
	<</if>>
	$HeadGirl.slaveName makes sure her victim hates it, every time, and $activeSlave.slaveName can't help but do her very best to avoid this treatment.
<<elseif $HGSeverity == 0>>
	You allow her to use her own judgment when punishing failures,
	<<if $HeadGirl.sexualFlaw is "abusive">>
		and she usually decides in favor of forcing misbehaving slaves to get her off.
	<<elseif $HeadGirl.fetish is "sadist">>
	permission the sadist uses for her own gratification.
	<<elseif $HeadGirl.fetish is "dom">>
	which the dominant girl uses confidently.
	<<elseif $HeadGirl.energy > 95>>
	which she uses to
	<<if ($HeadGirl.balls > 0)>>
		force her subordinates to keep her balls drained.
	<<else>>
		extract the constant sexual favors her libido demands.
	<</if>>
	<<else>>
	and she does her best to be fair.
	<</if>>
	$activeSlave.slaveName
	<<if $activeSlave.devotion > 50>>
	is @@color:mediumaquamarine;grateful@@ that she is punished justly when she makes mistakes.
	<<set $activeSlave.trust += 1>>
	<<elseif $activeSlave.devotion >= -20>>
	does her best to learn quickly and avoid punishment.
	<<else>>
	is @@color:gold;scared@@ by her inability to get away with the smallest disobedience.
	<<set $activeSlave.trust -= 1>>
	<</if>>
<<else>>
	You require her to use respect when punishing; she does her best to motivate, but is unable to use real fear as a tool. $activeSlave.slaveName understands this, and @@color:mediumaquamarine;trusts@@ that if she fails, the consequences won't be too awful.
	<<set $activeSlave.trust += 1>>
<</if>>

<<if $HGtraining is "obedience">>

<<set _effectiveness -= $activeSlave.intelligence*15>>
<<set $activeSlave.trust -= Math.trunc(_effectiveness/4)>>
<<if $activeSlave.devotion < -50>>
	She helps watch and restrain the rebellious $activeSlave.slaveName, helping wear her down, @@color:gold;breaking $activeSlave.slaveName's rebelliousness.@@
<<elseif $activeSlave.devotion < -20>>
	She keeps $activeSlave.slaveName constantly aware of her slavery, @@color:gold;breaking $activeSlave.slaveName's resistance.@@
<<else>>
	She acts as another pair of eyes watching $activeSlave.slaveName and metes out punishments,	@@color:gold;improving $activeSlave.slaveName's servitude.@@
<</if>>

<<elseif $HGtraining is "flaw">>

<<set _effectiveness -= $activeSlave.intelligence*15>>
<<set $activeSlave.training += _effectiveness>>
<<if ["cum addict", "anal addict", "attention whore", "breast growth", "abusive", "malicious", "self hating", "neglectful", "breeder"].contains($activeSlave.sexualFlaw)>>
	$HeadGirl.slaveName does her best to get $activeSlave.slaveName past it with punishments and rewards,
	<<if $activeSlave.training > 100>>
		<<set $activeSlave.training = 0>>
		and @@color:green;resolves $activeSlave.slaveName's paraphilia.@@
		<<if $activeSlave.behavioralFlaw != "none">>
		<<set $activeSlave.behavioralFlaw to "none">>
		<<elseif $activeSlave.sexualFlaw != "none">>
		<<set $activeSlave.sexualFlaw to "none">>
		<</if>>
	<<else>>
		and makes partial progress.
	<</if>>
<<else>>
	$HeadGirl.slaveName punishes $activeSlave.slaveName whenever she catches her indulging in her bad habits,
	<<if $activeSlave.training > 100>>
		<<set $activeSlave.training = 0>>
		and @@color:green;fixes $activeSlave.slaveName's flaw.@@
		<<if $activeSlave.behavioralFlaw != "none">>
		<<set $activeSlave.behavioralFlaw to "none">>
		<<elseif $activeSlave.sexualFlaw != "none">>
		<<set $activeSlave.sexualFlaw to "none">>
		<</if>>
	<<else>>
		and makes partial progress.
	<</if>>
<</if>>

<<elseif $HGtraining is "soften">>

<<set _effectiveness -= $activeSlave.intelligence*15>>
<<set $activeSlave.training += _effectiveness>>
She punishes $activeSlave.slaveName whenever she sees her breaking the rules yet does her best to retain what makes the slave special,
<<if $activeSlave.training > 150>>
	<<set $activeSlave.training = 0>>
	and successfully @@color:green;softens $activeSlave.slaveName's flaw.@@
	<<if $activeSlave.behavioralFlaw != "none">>
		<<if ($activeSlave.behavioralFlaw is "arrogant")>>
		<<set $activeSlave.behavioralQuirk to "confident">>
		<<elseif ($activeSlave.behavioralFlaw is "bitchy")>>
		<<set $activeSlave.behavioralQuirk to "cutting">>
		<<elseif ($activeSlave.behavioralFlaw is "odd")>>
		<<set $activeSlave.behavioralQuirk to "funny">>
		<<elseif ($activeSlave.behavioralFlaw is "hates men")>>
		<<set $activeSlave.behavioralQuirk to "adores women">>
		<<elseif ($activeSlave.behavioralFlaw is "hates women")>>
		<<set $activeSlave.behavioralQuirk to "adores men">>
		<<elseif ($activeSlave.behavioralFlaw is "gluttonous")>>
		<<set $activeSlave.behavioralQuirk to "fitness">>
		<<elseif ($activeSlave.behavioralFlaw is "anorexic")>>
		<<set $activeSlave.behavioralQuirk to "insecure">>
		<<elseif ($activeSlave.behavioralFlaw is "devout")>>
		<<set $activeSlave.behavioralQuirk to "sinful">>
		<<elseif ($activeSlave.behavioralFlaw is "liberated")>>
		<<set $activeSlave.behavioralQuirk to "advocate">>
		<</if>>
		<<set $activeSlave.behavioralFlaw to "none">>
	<<elseif $activeSlave.sexualFlaw != "none">>
		<<if ($activeSlave.sexualFlaw is "hates oral")>>
		<<set $activeSlave.sexualQuirk to "gagfuck queen">>
		<<elseif ($activeSlave.sexualFlaw is "hates anal")>>
		<<set $activeSlave.sexualQuirk to "painal queen">>
		<<elseif ($activeSlave.sexualFlaw is "hates penetration")>>
		<<set $activeSlave.sexualQuirk to "strugglefuck queen">>
		<<elseif ($activeSlave.sexualFlaw is "shamefast")>>
		<<set $activeSlave.sexualQuirk to "tease">>
		<<elseif ($activeSlave.sexualFlaw is "idealistic")>>
		<<set $activeSlave.sexualQuirk to "romantic">>
		<<elseif ($activeSlave.sexualFlaw is "repressed")>>
		<<set $activeSlave.sexualQuirk to "perverted">>
		<<elseif ($activeSlave.sexualFlaw is "apathetic")>>
		<<set $activeSlave.sexualQuirk to "caring">>
		<<elseif ($activeSlave.sexualFlaw is "crude")>>
		<<set $activeSlave.sexualQuirk to "unflinching">>
		<<elseif ($activeSlave.sexualFlaw is "judgemental")>>
		<<set $activeSlave.sexualQuirk to "size queen">>
		<</if>>
		<<set $activeSlave.sexualFlaw to "none">>
	<</if>>
<<else>>
	and makes partial progress.
<</if>>

<<elseif $HGtraining is "oral skill">>

<<set $activeSlave.training = 0>>
<<if ($HeadGirl.fetish is "cumslut") && ($HeadGirl.fetishStrength > 60)>>
	In spare moments she teaches $activeSlave.slaveName how to suck cocks, cunts, and assholes. Her enthusiasm for oral sex is infectious. $activeSlave.slaveName's oral skills have improved.
	<<set $skillIncrease = 2>><<OralSkillIncrease $activeSlave>>
<<elseif ($HeadGirl.dick > 0) && canAchieveErection($HeadGirl) && $HeadGirl.dickAccessory != ("chastity")>>
	In spare moments she teaches $activeSlave.slaveName how to suck cocks, cunts, and assholes. Your head girl uses her penis as an effective teaching tool. $activeSlave.slaveName's oral skills have improved.
	<<set $skillIncrease = 2>><<OralSkillIncrease $activeSlave>>
<<elseif ($HeadGirl.clit > 2)>>
	In spare moments she teaches $activeSlave.slaveName how to suck cocks, cunts, and assholes. Your head girl uses her pseudophallus-sized clit as an effective teaching tool. $activeSlave.slaveName's oral skills have improved.
	<<set $skillIncrease = 1>><<OralSkillIncrease $activeSlave>>
<<else>>
	In spare moments she teaches $activeSlave.slaveName how to suck cocks, cunts, and assholes. $activeSlave.slaveName's oral skills have improved.
<</if>>
<<set $skillIncrease = Math.trunc(_effectiveness/10)>><<OralSkillIncrease $activeSlave>>

<<elseif $HGtraining is "anal skill">>

<<set $activeSlave.training = 0>>
<<if ($HeadGirl.fetish is "buttslut") && ($HeadGirl.fetishStrength > 60)>>
	In spare moments she teaches $activeSlave.slaveName how to take it up the ass. Your head girl's enthusiasm for backdoor loving is infectious. $activeSlave.slaveName's anal skills have improved.
	<<set $skillIncrease = 2>><<AnalSkillIncrease $activeSlave>>
<<elseif ($HeadGirl.dick > 0) && canAchieveErection($HeadGirl) && $HeadGirl.dickAccessory != ("chastity")>>
	In spare moments she teaches $activeSlave.slaveName how to take a dick up the butt. Your head girl uses her penis as an effective teaching tool. $activeSlave.slaveName's anal skills have improved.
	<<set $skillIncrease = 2>><<AnalSkillIncrease $activeSlave>>
<<elseif ($HeadGirl.clit > 2)>>
	In spare moments she teaches $activeSlave.slaveName how to take a phallus up the butt. Your head girl uses her pseudophallus-sized clit as an effective teaching tool. $activeSlave.slaveName's anal skills have improved.
	<<set $skillIncrease = 1>><<AnalSkillIncrease $activeSlave>>
<<else>>
	In spare moments she teaches $activeSlave.slaveName how to take a dick up the butt. $activeSlave.slaveName's anal skills have improved.
<</if>>
<<set $skillIncrease = Math.trunc(_effectiveness/10)>><<AnalSkillIncrease $activeSlave>>

<<elseif $HGtraining is "fuck skill">>

<<set $activeSlave.training = 0>>
<<if ($HeadGirl.energy > 95)>>
	In spare moments she teaches $activeSlave.slaveName how to take a dick. Your head girl's enthusiasm for sex is infectious. $activeSlave.slaveName's vanilla sex skills have improved.
	<<set $skillIncrease = 1>><<VaginalSkillIncrease $activeSlave>>
<<elseif ($HeadGirl.dick > 0) && canAchieveErection($HeadGirl) && $HeadGirl.dickAccessory != ("chastity")>>
	In spare moments she teaches $activeSlave.slaveName how to take a dick. Your head girl uses her penis as an effective teaching tool. $activeSlave.slaveName's vanilla sex skills have improved.
	<<set $skillIncrease = 1>><<VaginalSkillIncrease $activeSlave>>
<<elseif ($HeadGirl.clit > 2)>>
	In spare moments she teaches $activeSlave.slaveName how to take a phallus. Your head girl uses her pseudophallus-sized clit as an effective teaching tool. $activeSlave.slaveName's vanilla sex skills have improved.
	<<set $skillIncrease = 1>><<VaginalSkillIncrease $activeSlave>>
<<else>>
	In spare moments she teaches $activeSlave.slaveName how to take a dick. $activeSlave.slaveName's vanilla sex skills have improved.
<</if>>
<<set $skillIncrease = Math.trunc(_effectiveness/10)>><<VaginalSkillIncrease $activeSlave>>

<<elseif $HGtraining is "whore skill">>

<<set $activeSlave.training = 0>>
In spare moments she teaches $activeSlave.slaveName how to prostitute herself. $activeSlave.slaveName's whoring skills have improved.
<<set $skillIncrease = Math.trunc(_effectiveness/10)>><<WhoreSkillIncrease $activeSlave>>

<<elseif $HGtraining is "entertain skill">>

<<set $activeSlave.training = 0>>
<<if ($HeadGirl.fetish is "humiliation") && ($HeadGirl.fetishStrength > 60)>>
	In spare moments she teaches $activeSlave.slaveName how to entertain. Your head girl's enthusiasm for public display is infectious. $activeSlave.slaveName's entertainment skills have improved.
	<<set $skillIncrease = 1>><<EntertainSkillIncrease $activeSlave>>
<<else>>
	In spare moments she teaches $activeSlave.slaveName how to entertain. $activeSlave.slaveName's entertainment skills have improved.
<</if>>
<<set $skillIncrease = Math.trunc(_effectiveness/10)>><<EntertainSkillIncrease $activeSlave>>

<</if>>
<</if>>

<<if ($activeSlave.devotion >= -20)>>
<<if ($activeSlave.attrKnown == 0)>>
	<<set $activeSlave.attrKnown to 1>>
	$HeadGirl.slaveName also investigates the slave's basic sexual orientation, finding that she is
	<<if ($activeSlave.attrXY <= 40)>>
		@@color:red;disgusted by men@@
	<<elseif ($activeSlave.attrXY <= 60)>>
		indifferent to men
	<<elseif ($activeSlave.attrXY <= 80)>>
		@@color:green;attracted to men@@
	<<else>>
		@@color:green;intensely attracted to men@@
	<</if>>
	and
	<<if ($activeSlave.attrXX <= 40)>>
		@@color:red;disgusted by women.@@
	<<elseif ($activeSlave.attrXX <= 60)>>
		indifferent to women.
	<<elseif ($activeSlave.attrXX <= 80)>>
		@@color:green;attracted to women.@@
	<<else>>
		@@color:green;intensely attracted to women.@@
	<</if>>
<</if>>
<</if>>

<<for $I to 0; $I < $slaves.length; $I++>>
	<<if $activeSlave.ID == $slaves[$I].ID>>
	<<set $slaves[$I] to $activeSlave>>
	<<set $activeSlave to {}>>
	<<break>>
	<</if>>
<</for>>


code:
:: HG Select

<<nobr>>
<<set $nextButton to "Back to Main">>
<<set $nextLink to "Main">>
<<set $showEncyclopedia to 1>><<set $encyclopedia to "The Head Girl">>

<<for _i to 0;_i < $slaves.length;_i++>>
<<if $HeadGirl.ID == $slaves[_i].ID>>
	''__@@color:pink;$slaves[_i].slaveName@@__'' is serving as your head girl<<if $arcologies[0].FSEgyptianRevivalistLaw == 1>> and Consort; it is her role to serve and comfort you at your side, in addition to performing normal head girl duties<</if>>.
	<<set $slaves[_i].assignment to "be your Head Girl">>
	<<set $slaves[_i].assignmentVisible to 1>>
	<<break>>
<</if>>
<</for>>
<<if ($HeadGirl == 0)>>
	You have not selected a head girl.
<</if>>

__Your Head Girl will prioritize training in the following order:__

<<if ($headGirlTrainsHealth == 0)>>
	Your head girl will @@color:red;NOT TREAT@@ poor health. [[Improve health|HG Select][$headGirlTrainsHealth to 1]]
<<else>>
	Your head girl will @@color:green;TREAT@@ poor health. [[Stop improving health|HG Select][$headGirlTrainsHealth to 0]]
<</if>>

<<if ($headGirlTrainsFlaws == 0)>>
	Your head girl will @@color:red;NOT FIX@@ flaws. [[Fix flaws|HG Select][$headGirlTrainsFlaws to 1]] | [[Soften flaws|HG Select][$headGirlTrainsFlaws to 2]]
<<elseif ($headGirlTrainsFlaws == 1)>>
	Your head girl will @@color:green;FIX@@ flaws. [[Stop fixing flaws|HG Select][$headGirlTrainsFlaws to 0]] | [[Soften flaws|HG Select][$headGirlTrainsFlaws to 2]]
<<else>>
	Your head girl will @@color:yellow;SOFTEN@@ flaws. [[Stop fixing flaws|HG Select][$headGirlTrainsFlaws to 0]] | [[Fix flaws|HG Select][$headGirlTrainsFlaws to 1]]
<</if>>

<<if ($headGirlTrainsParaphilias == 0)>>
	Your head girl will @@color:red;NOT FIX@@ paraphilias. [[Fix paraphilias|HG Select][$headGirlTrainsParaphilias to 1]]
<<else>>
	Your head girl will @@color:green;FIX@@ paraphilias. [[Stop fixing paraphilias|HG Select][$headGirlTrainsParaphilias to 0]]
<</if>>

<<if ($headGirlTrainsObedience == 0)>>
	Your head girl will @@color:red;NOT TRAIN@@ obedience. [[Train obedience|HG Select][$headGirlTrainsObedience to 1]]
<<else>>
	Your head girl will @@color:green;TRAIN@@ obedience. [[Stop training obedience|HG Select][$headGirlTrainsObedience to 0]]
<</if>>

<<if ($headGirlTrainsSkills == 0)>>
	Your head girl will @@color:red;NOT TRAIN@@ skills. [[Train skills|HG Select][$headGirlTrainsSkills to 1]]
<<else>>
	Your head girl will @@color:green;TRAIN@@ skills. [[Stop training skills|HG Select][$headGirlTrainsSkills to 0]]
<</if>>

<<if ($HGSeverity > 0)>>
	Your head girl will be ''aggressive'' when punishing, with rape strongly encouraged. [[Moderate|HG Select][$HGSeverity to 0]]
<<elseif ($HGSeverity == 0)>>
	Your head girl will be ''moderate'' when punishing, carefully selecting appropriate consequences. [[Be aggressive|HG Select][$HGSeverity to 1]] | [[Restrict her|HG Select][$HGSeverity to -1]]
<<else>>
	Your head girl will be ''respectful'' when punishing, treating slaves decently. [[Be stricter|HG Select][$HGSeverity to 0]]
<</if>>

<<if ($HGFormality != 0)>>
	Your head girl will be ''formal'': she will always call you <<if $PC.title == 1>>Master<<else>>Mistress<</if>>, just like any other slave.
	[[Allow private informality|HG Select][$HGFormality to 0]]
<<else>>
	Your head girl is allowed to be ''informal'': in private and at her discretion, she may call you <<if $PC.title == 1>>Sir<<else>>Ma'am<</if>>. [[Maintain complete formality|HG Select][$HGFormality to 1]]
<</if>>

<<if $HeadGirl != 0>>
<<if $universalRulesImpregnation == "HG">>

	It's your Head Girl's responsibility to impregnate fertile slaves.
	<<set $HGCum = 2+Math.trunc(($HeadGirl.balls/4)+($HeadGirl.energy/95)+($HeadGirl.health/95))>>
	<<if canAchieveErection($HeadGirl) && $HeadGirl.pubertyXY == 1>>
		To maximize the chances of impregnation, she will fuck fertile pussies frequently during the week. $HeadGirl.slaveName can service $HGCum slaves this way.
		<<if $HeadGirl.devotion > 95>>She loves you so much she'll fuck them until she's sore.<<else>>If she were more devoted to you, she might be able to drive herself to get hard and service one more.<</if>>
		<<if $HeadGirl.balls >= 120>>Her unreal balls produce nearly an endless supply of semen, her ability to impregnate almost limitless .<<elseif $HeadGirl.balls >= 80>>Her inhuman balls produce so much semen she can easily impregnate twenty girls in one sitting.<<elseif $HeadGirl.balls >= 50>>Her giant balls produce so much semen she can easily impregnate twelve girls in one sitting.<<elseif $HeadGirl.balls >= 25>>Her oversized balls produce so much semen she can cum repeatedly in a single session.<<elseif $HeadGirl.balls >= 5>>Her big balls produce so much semen she can cum more before she's drained.<<else>>Bigger balls would let her cum more before she's drained.<</if>>
		<<if $HeadGirl.health > 95>>Her wonderful health lets her get hard and stay hard all the time.<<else>>If her health were perfect, she might be able to get hard more often.<</if>>
		<<if $HeadGirl.energy > 95>>Her nymphomania drives her to go above and beyond in this.<<else>>A more powerful sex drive could reduce her refractory period.<</if>>
	<<else>>
		However, $HeadGirl.slaveName cannot perform this duty.
	<</if>>
	[[Rescind her impregnation responsibility|HG Select][$universalRulesImpregnation to "none"]] | [[See to it yourself|HG Select][$universalRulesImpregnation to "PC"]]
<<else>>
	<<if canAchieveErection($HeadGirl) && $HeadGirl.pubertyXY == 1>>

		Your Head Girl is capable of impregnating slaves, but it's not part of her responsibilities.
		[[Assign her to impregnate|HG Select][$universalRulesImpregnation to "HG"]]
	<</if>>
<</if>>
<</if>>

''Appoint a head girl from among your devoted slaves:''
<<include "Slave Summary">>

[[None|HG Workaround][$HeadGirl to 0]]
<</nobr>>


code:
:: HG Workaround

<<if ($HeadGirl == 0)>>
	<<for $i to 0; $i < $slaves.length; $i++>>
	<<if ($slaves[$i].assignment is "be your Head Girl")>>
		<<set $slaves[$i].assignment to "rest">>
		<<set $slaves[$i].assignmentVisible to 1>>
		<<break>>
	<</if>>
	<</for>>
	<<if $personalAttention is "HG">>
	<<if $PC.career == "escort">>
	<<set $personalAttention to "whoring">>
	<<elseif $PC.career == "servant">>
	<<set $personalAttention to "upkeep">>
	<<else>>
	<<set $personalAttention to "business">>
	<</if>>
	<</if>>
<<else>>
	<<for $i to 0; $i < $slaves.length; $i++>>
	<<if $HeadGirl.ID == $slaves[$i].ID>>
		<<set $slaves[$i].assignment to "be your Head Girl">>
		<<set $slaves[$i].assignmentVisible to 1>>
		<<set $slaves[$i].choosesOwnAssignment to 0>>
		<<set $slaves[$i].sentence to 0>>
	<<elseif ($slaves[$i].assignment is "be your Head Girl")>>
		<<set $slaves[$i].assignment to "rest">>
		<<set $slaves[$i].assignmentVisible to 1>>
	<</if>>
	<</for>>
<</if>>

<<set $HGTimeInGrade to 0>>

<<goto "Main">>


code:
:: Hole Workaround

<<set $activeSlave.assignment to "work a glory hole">>
<<set $activeSlave.choosesOwnAssignment to 0>>
<<for $i to 0; $i < $slaves.length; $i++>>
	<<if $activeSlave.ID == $slaves[$i].ID>>
	<<set $slaves[$i] to $activeSlave>>
	<<break>>
	<</if>>
<</for>>

<<goto "Main">>


code:
:: Household Liquidator [nobr]

<<set $nextButton to "Back", $nextLink to "Buy Slaves", $returnTo to "Buy Slaves", $showEncyclopedia to 1, $encyclopedia to "Household Liquidations">>

<<if random(1,100) > 50>>

The household liquidator is offering a set of siblings for sale. As usual, you will only be permitted to inspect the older, but there is a guarantee that the younger will be similar.

<<include "Generate New Slave">>
<<set $activeSlave.origin to "You bought her from the household liquidator.">>

<<set $activeSlave.devotion = random(-75,-25)>>
<<set $activeSlave.trust = random(-45,-25)>>
<<set $activeSlave.oldDevotion to $activeSlave.devotion>>
<<set $activeSlave.oldTrust to $activeSlave.trust>>
<<set $activeSlave.health = random(-50,20)>>
<<if $familyTesting == 1>>
	<<set $activeSlave.mother = $missingParentID>>
	<<set $activeSlave.father = $missingParentID>>
	<<set $activeSlave.sisters += 1>>
	<<set $missingParentID -= 1>>
	<<set $activeSlave.canRecruit = 0>>
<<else>>
	<<set $activeSlave.relation to "sister">>
	<<set $activeSlave.relationTarget to $activeSlave.ID + 1000>>
<</if>>

<<slaveCost $activeSlave>>

The price is ¤<<print $slaveCost*3>>.

<<if $cash >= $slaveCost*3>>
	[[Buy their slave contract|Siblings Workaround][$cash -= $slaveCost*3,$nextButton to "Continue",$nextLink to "Main"]]
<<else>>
	//You lack the necessary funds to buy these slaves.//
<</if>>

[[Decline to purchase them and check out another set of slaves|Household Liquidator][$slavesSeen += 2]]

<<set $saleDescription to 1>>
<<set $applyLaw to 1>>
<<include "Long Slave Description">>
<<set $saleDescription to 0>>

<<elseif random(1,100) > 20>>

The household liquidator is offering a mother and her daughter for sale. As usual, you will only be permitted to inspect the mother, but there is a guarantee that the daughter will be similar.

/% Begin younger mothers submod. %/
<<set $activeSlaveOneTimeMinAge to $fertilityAge + $minimumSlaveAge>>
<<set $activeSlaveOneTimeMaxAge to 42>>
<<set $one_time_age_overrides_pedo_mode to 1>> /% Old enough to have a daughter who can be a slave. %/
/% End younger mothers submod. %/
<<include "Generate New Slave">>
<<set $activeSlave.origin to "You bought her from the household liquidator.">>

<<set $activeSlave.devotion = random(-75,-25)>>
<<set $activeSlave.trust = random(-45,-25)>>
<<set $activeSlave.oldDevotion to $activeSlave.devotion>>
<<set $activeSlave.oldTrust to $activeSlave.trust>>
<<set $activeSlave.health = random(-50,20)>>
<<set $activeSlave.boobs += 100>>
<<set $activeSlave.butt += 1>>
<<if $activeSlave.vagina > -1>><<set $activeSlave.vagina += 1>><</if>>
<<set $activeSlave.birthsTotal to 1>>
<<if $familyTesting == 1>>
	<<set $activeSlave.daughters += 1>>
	<<set $activeSlave.canRecruit = 0>>
<<else>>
	<<set $activeSlave.relation to "mother">>
	<<set $activeSlave.relationTarget to $activeSlave.ID + 1000>>
<</if>>

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

The price is ¤<<print $slaveCost*3>>.<<if $slavesSeen > $slaveMarketLimit>> You have cast such a wide net for slaves this week that it is becoming more expensive to find more for sale. Your reputation helps determine your reach within the slave market.<</if>>

<<if $cash >= $slaveCost*3>>
	[[Buy their slave contract|Mother Daughter Workaround][$cash -= $slaveCost*3,"Continue",$nextLink to "Main"]]
<<else>>
	//You lack the necessary funds to buy these slaves.//
<</if>>

[[Decline to purchase them and check out another set of slaves|Household Liquidator][$slavesSeen += 2]]

<<set $saleDescription to 1>>
<<set $applyLaw to 1>>
<<include "Long Slave Description">>
<<set $saleDescription to 0>>

<<else>>

The household liquidator is offering something special: twins. The markup is huge, but the merchandise isn't something you see every day.

<<include "Generate New Slave">>
<<set $activeSlave.origin to "You bought her from the household liquidator.">>

<<set $activeSlave.devotion = random(-75,-25)>>
<<set $activeSlave.trust = random(-45,-25)>>
<<set $activeSlave.oldDevotion to $activeSlave.devotion>>
<<set $activeSlave.oldTrust to $activeSlave.trust>>
<<set $activeSlave.health = random(-50,20)>>
<<if $familyTesting == 1>>
	<<set $activeSlave.mother = $missingParentID>>
	<<set $activeSlave.father = $missingParentID>>
	<<set $activeSlave.sisters += 1>>
	<<set $missingParentID -= 1>>
	<<set $activeSlave.canRecruit = 0>>
<<else>>
	<<set $activeSlave.relation to "twin">>
	<<set $activeSlave.relationTarget to $activeSlave.ID + 1000>>
<</if>>
<<slaveCost $activeSlave>>

The price is ¤<<print $slaveCost*4>>.<<if $slavesSeen > $slaveMarketLimit>> You have cast such a wide net for slaves this week that it is becoming more expensive to find more for sale. Your reputation helps determine your reach within the slave market.<</if>>

<<if $cash >= $slaveCost*4>>
	[[Buy their slave contract|Twins Workaround][$cash -= $slaveCost*4,$nextButton to "Continue",$nextLink to "Main"]]
<<else>>
	//You lack the necessary funds to buy these slaves.//
<</if>>

[[Decline to purchase them and check out another set of slaves|Household Liquidator][$slavesSeen += 2]]

<<set $saleDescription to 1>>
<<set $applyLaw to 1>>
<<include "Long Slave Description">>
<<set $saleDescription to 0>>

<</if>>


code:
:: Import Rule [nobr]

<<set $nextButton to "Continue">>
<<set $nextLink to "Rules Assistant">>
//Paste the code into the text box and click Apply//

<<set $tempRule to "">>
<<textbox "$tempRule" $tempRule>>
<<link "Apply">>
	<<if (def $tempRule) && ($tempRule isnot "")>>
		<<set $tempRule to eval('({' + $tempRule + '})')>>

		<<if $defaultRules.length > 0>>
			<<set $RulesID += 1>>
		<<else>>
			<<set $RulesID to 1>>
		<</if>>

		<<set $tempRule.ID to $RulesID>>
		<<set $defaultRules.push($tempRule)>>
		<<replace #import>>
			''Rule imported successfully!''

		<</replace>>
	<<else>>
		<<replace #import>>
			''Rule not imported!''

		<</replace>>
	<</if>>
	<<unset $tempRule>>
<</link>>

<<link "Continue">>
	<<goto "Rules Assistant">>
<</link>>


code:
:: Increment Piercings

<<if $activeSlave.nipplesPiercing < 2>>
	<<set $activeSlave.nipplesPiercing += 1>>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.clitPiercing < 2>>
	<<set $activeSlave.clitPiercing += 1>>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.vagina != -1>>
<<if $activeSlave.vaginaPiercing < 2>>
	<<set $activeSlave.vaginaPiercing += 1>>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<</if>>

<<if $activeSlave.dick > 0>>
<<if $activeSlave.dickPiercing < 2>>
	<<set $activeSlave.dickPiercing += 1>>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<</if>>

<<if $activeSlave.anusPiercing < 2>>
	<<set $activeSlave.anusPiercing += 1>>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.lipsPiercing < 2>>
	<<set $activeSlave.lipsPiercing += 1>>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.tonguePiercing < 2>>
	<<set $activeSlave.tonguePiercing += 1>>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.earPiercing < 2>>
	<<set $activeSlave.earPiercing += 1>>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.nosePiercing < 2>>
	<<set $activeSlave.nosePiercing += 1>>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.eyebrowPiercing < 2>>
	<<set $activeSlave.eyebrowPiercing += 1>>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.navelPiercing < 2>>
	<<set $activeSlave.navelPiercing += 1>>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.areolaePiercing < 1>>
	<<set $activeSlave.areolaePiercing += 1>>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.corsetPiercing < 1>>
	<<set $activeSlave.corsetPiercing += 1>>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<goto "Body Modification">>


code:
:: JE slave dispute

<<nobr>>

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

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

<<if $event is "slave deal">>
	<<set $contractCost to 5000>>
	<<set $activeSlaveOneTimeMinAge to 24>>
	<<set $activeSlaveOneTimeMaxAge to 42>>
	<<set $one_time_age_overrides_pedo_mode to 1>>
	<<include "Generate New Slave">>
	<<set $activeSlave.origin to "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 to $activeSlave.devotion>>
	<<set $activeSlave.health = random(0,20)>>
	<<set $activeSlave.earPiercing to 1>>
	<<if $activeSlave.dick == 0>>
		<<set $activeSlave.vagina to random(1,2)>>
		<<set $activeSlave.ovaries to 1>>
	<</if>>
	<<set $birthsTotal = 1>>
	<<set $activeSlave.shouldersTat to either("tribal patterns", "flowers")>>
	<<set $activeSlave.stampTat to either("tribal patterns", "flowers")>>
<<elseif $event is "slave training">>
	<<set $contractCost = 10000>>
	<<include "Generate XY Slave">>
	<<set $activeSlave.origin to "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 to $activeSlave.devotion>>
	<<set $activeSlave.health = random(60,80)>>
	<<set $activeSlave.balls to 0>>
	<<set $activeSlave.anus to 2>>
	<<set $activeSlave.analSkill = 35>>
	<<set $activeSlave.oralSkill = 35>>
	<<set $activeSlave.whoreSkill = 35>>
	<<set $activeSlave.entertainSkill = 35>>
	<<set $activeSlave.nipplesPiercing to 1>>
	<<set $activeSlave.clitPiercing to 1>>
	<<set $activeSlave.dickPiercing to 1>>
	<<set $activeSlave.anusPiercing to 1>>
	<<set $activeSlave.lipsPiercing to 1>>
	<<set $activeSlave.tonguePiercing to 1>>
	<<set $activeSlave.earPiercing to 1>>
	<<set $activeSlave.nosePiercing to 1>>
	<<set $activeSlave.eyebrowPiercing to 1>>
	<<set $activeSlave.navelPiercing to 1>>
	<<set $activeSlave.boobsTat to either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.buttTat to either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.vaginaTat to either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.dickTat to either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.lipsTat to either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.anusTat to either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.shouldersTat to either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.armsTat to either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.legsTat to either("advertisements", "degradation", "rude words")>>
	<<set $activeSlave.stampTat to either("advertisements", "degradation", "rude words")>>
<<elseif $event is "majority deal">>
	<<set $contractCost to 20000>>
	<<set $activeSlaveOneTimeMinAge to $minimumSlaveAge>>
	<<set $activeSlaveOneTimeMaxAge to 18>>
	<<include "Generate New Slave">>
	<<set $activeSlave.origin to "She was raised to be a slave, since she was mistakenly thought to be from good slave stock.">>
	<<set $activeSlave.career to "a slave">>
	<<set $activeSlave.devotion = random(10,15)>>
	<<set $activeSlave.trust = $activeSlave.devotion>>
	<<set $activeSlave.oldDevotion to $activeSlave.devotion>>
	<<set $activeSlave.health = random(80,90)>>
	<<if $activeSlave.dick == 0>>
		<<set $activeSlave.vagina to 0>>
		<<set $activeSlave.ovaries to 1>>
	<<elseif $activeSlave.balls == 0>>
		<<set $activeSlave.balls to 1>>
	<</if>>
	<<set $activeSlave.anus to 0>>
	<<set $activeSlave.analSkill = 0>>
	<<set $activeSlave.oralSkill = 0>>
	<<set $activeSlave.whoreSkill = 0>>
	<<set $activeSlave.vaginalSkill = 0>>
	<<set $activeSlave.entertainSkill = 0>>
<<elseif $event is "indenture deal">>
	<<set $contractCost to 7500>>
	<<set $activeSlaveOneTimeMinAge to 24>>
	<<set $activeSlaveOneTimeMaxAge to 42>>
	<<include "Generate New Slave">>
	<<set $activeSlave.origin to "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 to $activeSlave.devotion>>
	<<set $activeSlave.health = random(-20,20)>>
	<<set $activeSlave.anus to 2>>
	<<if $activeSlave.vagina > -1>>
	<<set $activeSlave.vagina to 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 to 600>>
	<<set $activeSlave.butt += 1>>
	<<set $activeSlave.buttImplant to 1>>
	<<set $activeSlave.lips += 10>>
	<<set $activeSlave.lipsImplant to 10>>
	<<set $activeSlave.lipsPiercing to 1>>
	<<set $activeSlave.tonguePiercing to 1>>
	<<set $activeSlave.earPiercing to 1>>
	<<set $activeSlave.nosePiercing to 1>>
	<<set $activeSlave.eyebrowPiercing to 1>>
	<<set $activeSlave.navelPiercing to 1>>
	<<set $activeSlave.nipplesPiercing to 1>>
	<<set $activeSlave.clitPiercing to 1>>
	<<set $activeSlave.stampTat to either("tribal patterns", "flowers")>>
<<else>>
	<<set $contractCost = 10000>>
	<<set $activeSlaveOneTimeMaxAge to 22>>
	<<include "Generate New Slave">>
	<<set $activeSlave.origin to "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 to $activeSlave.devotion>>
	<<set $activeSlave.health = random(0,20)>>
	<<set $activeSlave.anus to 2>>
	<<if $activeSlave.dick == 0>>
		<<set $activeSlave.vagina to 2>>
		<<set $activeSlave.ovaries to 1>>
		<<if isFertile($activeSlave)>>
		<<set $activeSlave.preg to 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 is "slave deal">>
	<<if $assistantName is "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 is "slave training">>
	<<if $assistantName is "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 is "majority deal">>
	<<if $assistantName is "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 is "indenture deal">>
	<<if $assistantName is "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 is "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 is "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 @@color: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 @@color: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, @@color:green;capturing the hearts@@ of more romantic citizens. The angry slave trader leaves the arcology, @@color: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, @@color: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, @@color: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, @@color:green;increasing prosperity.@@ The story of the mother willing to be enslaved gets around quickly, @@color:green;capturing the hearts@@ of more romantic citizens. The mother, meanwhile, presents herself for enslavement, @@color:hotpink;very grateful@@ that you've saved her daughter's life.
	<<set $arcologies[0].prosperity += 5>>
	<<set $rep += 500>>
	<<set $nextLink to "AS Dump">>
	<<include "New Slave Intro">>
	<</replace>>
	<</link>> //This will cost ¤$contractCost and give you the slave//
<<elseif $event is "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 @@color: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 @@color: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 @@color: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 @@color: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 @@color: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, @@color: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, @@color: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 @@color:green;effusively@@ for days to anyone who will listen about your discreet administration of the arcology. The slave, meanwhile, arrives at your penthouse, @@color:hotpink;rather hopeful@@ that she's going to a good master.
	<<set $arcologies[0].prosperity += 5>>
	<<set $rep += 500>>
	<<set $nextLink to "AS Dump">>
	<<include "New Slave Intro">>
	<</replace>>
	<</link>> //This will cost ¤$contractCost and give you the slave//
<<elseif $event is "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 @@color: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 @@color: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 @@color:green;positively@@ in public about how you helped an innocent breeder protect his prize bloodlines. Slave trading to and from your arcology is @@color: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 @@color:red;furiously@@ in public about how you denied an innocent breeder justice against those swindling slave schools. The school, however, passes a @@color: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 @@color:green;kindly@@ in public about how you helped an innocent breeder protect his prize bloodlines. The school sends a @@color: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 to "AS Dump">>
	<<include "New Slave Intro">>
	<</replace>>
	<</link>> //This will cost ¤$contractCost and give you the slave//
<<elseif $event is "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 @@color: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 @@color: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 @@color:green;told and retold,@@ impressing the more credulous citizens. It also @@color: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 @@color:green;impresses@@ some of the more commercially powerful citizens of the arcology, but is @@color: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 @@color:green;impresses@@ the slave traders, but is @@color:red;booed@@ by fairer-minded citizens.
	<<set $arcologies[0].prosperity += 5>>
	<<set $rep -= 100>>
	<<set $nextLink to "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 @@color: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 @@color: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, @@color: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, @@color: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, @@color:green;increasing prosperity.@@ On the other hand, the angry buyer shows himself to be not a person to treat lightly, either; he maintains a @@color: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, @@color:hotpink;hopeful@@ that she's been lucky enough to end up in a less abusive situation.
	<<set $nextLink to "AS Dump">>
	<<include "New Slave Intro">>
	<</replace>>
	<</link>> //This will cost ¤$contractCost and give you the slave//
<</if>>\


code:
:: Law Compliance [nobr]

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

has passed inspection to be sold in your arcology.

<<if $arcologies[0].FSSlimnessEnthusiastSMR == 1>>
	<<set $activeSlave.weight to 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 to $activeSlave.physicalAge>>
		<<set $activeSlave.pubertyXX to 1>>
	    <<else>>
		<<set $activeSlave.physicalAge to $fertilityAge>>
		<<set $activeSlave.visualAge to $fertilityAge>>
		<<set $activeSlave.actualAge to $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 to 1>>
	    <<set $activeSlave.vagina to either(0, 0, 1, 1, 1, 1, 1, 2, 2, 3)>>
	    <<set $activeSlave.pregType to either(1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 5)>>
	    <<set $activeSlave.preg to 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 to either(0, 0, 0, 1, 1, 2)>>
	<<set $activeSlave.labia to either(0, 1, 2, 3)>>
	<<set $activeSlave.boobs += random(2,5)*100>>
	<<set $activeSlave.butt += random(1,2)>>
	<<set $activeSlave.lips to random(15,55)>>
	<<if $activeSlave.dick > 0>>
	<<set $activeSlave.dick to random(3,5)>>
	<</if>>
	<<if $activeSlave.balls > 0>>
	<<set $activeSlave.balls to 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 to 0>>
	<<set $activeSlave.boobs += random(0,2)*100>>
	<<set $activeSlave.butt += random(0,1)>>
	<<if $activeSlave.face < 3>>
		<<set $activeSlave.face += random(0,1)>>
	<</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 to 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 is $arcologies[0].FSSubjugationistRace>>
	<<set $activeSlave.balls to 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 to -2>>
	<<set $activeSlave.pregType to 0>>
	<<set $activeSlave.balls to 0>>
	<<set $activeSlave.ovaries to 0>>
	As a member of the lowest class,<<if $activeSlave.preg > 0>> her pregnancy is immediately terminated, and<</if>> she is promtply 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 @@color: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 @@color:mediumaquamarine;basic respect@@ despite being a sex slave.
	<<set $activeSlave.trust += 10>>
<</if>>
<</if>>
<<if $arcologies[0].FSDegradationistSMR == 1>>
	Her current owners @@color: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 to 0>>
	<<set $activeSlave.areolaePiercing to 0>>
	<<set $activeSlave.lipsPiercing to 0>>
	<<set $activeSlave.vaginaPiercing to 0>>
	<<set $activeSlave.dickPiercing to 0>>
	<<set $activeSlave.clitPiercing to 0>>
	<<set $activeSlave.anusPiercing to 0>>
	<<set $activeSlave.corsetPiercing to 0>>
	<<set $activeSlave.earPiercing to 0>>
	<<set $activeSlave.eyebrowPiercing to 0>>
	<<set $activeSlave.nosePiercing to 0>>
	<<set $activeSlave.navelPiercing to 0>>
	<<set $activeSlave.lipsTat to 0>>
	<<set $activeSlave.buttTat to 0>>
	<<set $activeSlave.anusTat to 0>>
	<<set $activeSlave.vaginaTat to 0>>
	<<set $activeSlave.dickTat to 0>>
	<<set $activeSlave.boobsTat to 0>>
	<<set $activeSlave.armsTat to 0>>
	<<set $activeSlave.legsTat to 0>>
	<<set $activeSlave.shouldersTat to 0>>
	<<set $activeSlave.backTat to 0>>
	<<set $activeSlave.stampTat to 0>>
	<<if $activeSlave.boobsImplant > 0>>
	<<set $activeSlave.boobs -= $activeSlave.boobsImplant>>
	<<set $activeSlave.boobsImplant to 0>>
	<</if>>
	<<if $activeSlave.buttImplant > 0>>
	<<set $activeSlave.butt -= $activeSlave.buttImplant>>
	<<set $activeSlave.buttImplant to 0>>
	<</if>>
	<<if $activeSlave.lipsImplant > 0>>
	<<set $activeSlave.lips -= $activeSlave.lipsImplant>>
	<<set $activeSlave.lipsImplant to 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 @@color:gold;fear@@ and @@color:mediumorchid;disgust.@@
	<<set $activeSlave.trust -= 5>>
	<<set $activeSlave.devotion -= 5>>
	<</if>>
	<<if $activeSlave.boobsImplant == 0>>
	<<set $activeSlave.boobsImplant to 400>>
	<<set $activeSlave.boobs += $activeSlave.boobsImplant>>
	<</if>>
	<<if $activeSlave.buttImplant == 0>>
	<<set $activeSlave.buttImplant to 1>>
	<<set $activeSlave.butt += $activeSlave.buttImplant>>
	<</if>>
	<<if $activeSlave.lipsImplant == 0>>
	<<set $activeSlave.lipsImplant to 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, @@color:gold;worrying her.@@
	<<set $activeSlave.trust -= 5>>
	<<elseif $activeSlave.physicalAge <= 25>>
	She was treated reasonably well in the slave pens due to her youth, @@color: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, @@color:mediumaquamarine;reassuring her.@@
	<<set $activeSlave.trust += 5>>
	<<elseif $activeSlave.physicalAge <= 25>>
	She was treated as a disposable little slut in the slave pens, @@color: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 to 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, @@color:gold;terrifying her@@ and @@color:mediumorchid;filling her with hatred.@@
	<<set $activeSlave.trust -= 15>>
	<<set $activeSlave.devotion -= 15>>
	<<else>>
	She accepted this treatment, @@color:hotpink;breaking her@@ to sexual slavery.
	<<set $activeSlave.devotion += 5>>
	<</if>>

	<<if ndef $activeSlave.publicCount>>
	<<set $activeSlave.publicCount to 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 @@color: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 @@color:mediumaquamarine;confident@@ that her entertainment skills will be valued here.
	<<set $activeSlave.trust += 10>>
	<<elseif $activeSlave.intelligenceImplant > 0>>
	She now @@color:mediumaquamarine;hopes@@ that her education will be valued here.
	<<set $activeSlave.trust += 5>>
	<<else>>
	She is @@color: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 @@color:mediumaquamarine;confident@@ that, as a proper Japanese girl, she will receive preferential treatment.
	<<set $activeSlave.trust += 10>>
	<<elseif $activeSlave.entertainSkill > 30>>
	She now @@color:mediumaquamarine;hopes@@ that her refined entertainment skills will make her culturally as well as sexually valuable.
	<<set $activeSlave.trust += 5>>
	<<else>>
	She is @@color: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 > 2>>
	She is now @@color:mediumaquamarine;confident@@ that her great beauty will be valued here.
	<<set $activeSlave.trust += 10>>
	<<elseif $activeSlave.accent <= 1>>
	She now @@color:mediumaquamarine;hopes@@ that her linguistic skill will be valued here.
	<<set $activeSlave.trust += 5>>
	<<else>>
	She is @@color: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 @@color:mediumaquamarine;confident@@ that her brilliance will be valued here.
	<<set $activeSlave.trust += 10>>
	<<elseif $activeSlave.intelligenceImplant > 0>>
	She now @@color:mediumaquamarine;hopes@@ that her education will be valued here.
	<<set $activeSlave.trust += 5>>
	<<else>>
	She is @@color: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 @@color: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 to 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 disregard sex until she showed no interest in sex at all.
	<<set $activeSlave.energy to 20>>
<</if>>
<</if>>

<<if $BasicBeautySMR == 1>>
	<<if $activeSlave.face < 0>>
		<<set $activeSlave.face to either(0,0,0,1,1,1,2,2,3)>>
	<</if>>
	While she was in the slave pens, she saw that less attractive slaves were immediately designated as menials and fuckdolls, and she is @@color: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 < 0>>
		<<set $activeSlave.face to either(1,1,1,2,2,2,2,2,3,3)>>
	<</if>>
	While she was in the slave pens, she saw that less attractive slaves were immediately designated as menials and fuckdolls, and she is @@color: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 to 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 @@color: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 to 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 @@color: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 to 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 to 0>>
	<</if>>
<</if>>
<<if $HeightEugenicsSMR == 1>>
	rigorous height and bone measurements,
	<<if $activeSlave.height < 185>>
	<<set $seed to 0>>
	<</if>>
<</if>>
<<if $FaceEugenicsSMR == 1>>
	strict judgements of her facial attractiveness,
	<<if $activeSlave.face < 2>>
	<<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, @@color:mediumorchid;infuriating@@ and @@color:gold;terrifying@@ her.
	<<set $activeSlave.balls to 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, @@color:mediumorchid;saddening@@ and @@color:gold;frightening@@ her.
	<<set $activeSlave.preg to -2>>
	<<set $activeSlave.pregType to 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 is "slaver">>
	<<if $gingering is "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 is "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 is "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 is "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 is "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 is "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 @@color:springgreen;career as a slaver.@@
	<<else>>
	<<if $gingering is "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 is "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 is "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 is "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 is "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 is "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 is "mercenary">>
		The nervous slave brokers confirm this in response to a direct question. Your intimidating reputation from your @@color:springgreen;years in the profession of arms@@ has its uses.
	<<elseif $gingeringDetection is "force">>
		The nervous slave brokers confirm this in response to a direct question. Your reputation as @@color: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 to "Back">>
<<set $nextLink to "Brothel">>
<<set $showEncyclopedia to 1>><<set $encyclopedia to "Madams">>

<<for _i to 0;_i < $slaves.length;_i++>>
<<if $Madam.ID == $slaves[_i].ID>>
	''__@@color:pink;$slaves[_i].slaveName@@__'' is serving as your Madam.
	<<set $slaves[_i].assignment to "be the Madam">>
	<<set $slaves[_i].assignmentVisible to 0>>

She will manage the brothel.
	<<break>>
<</if>>
<</for>>
<<if ($Madam == 0)>>
	You have not selected a Madam.
<</if>>

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

[[None|Madam Workaround][$Madam to 0]]
<</nobr>>


code:
:: Madam Workaround

<<for $i to 0; $i < $slaves.length; $i++>>
	<<if ($slaves[$i].assignment is "be the Madam") && ($slaves[$i].ID != $Madam.ID)>>
		<<set $slaves[$i].assignment to "rest">>
		<<set $slaves[$i].assignmentVisible to 1>>
		<<break>>
	<</if>>
	<</for>>

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

<<goto "Brothel">>