code:
:: SA work a glory hole [nobr]

<!-- Statistics gathering -->
<<set _incomeStats = getSlaveStatisticData($slaves[$i], $slaves[$i].assignment === Job.ARCADE ? $facility.arcade : undefined)>>

<<if $arcologies[0].FSDegradationist != "unset">>
	<<set $beauty = random(80,100)+(20*(4-$slaves[$i].anus))+(10*(4-$slaves[$i].vagina))+Math.trunc($arcologies[0].FSDegradationist/2)>>
<<else>>
	<<set $beauty = random(80,100)+(20*(4-$slaves[$i].anus))+(10*(4-$slaves[$i].vagina))>>
<</if>>
<<if $arcologies[0].FSDegradationistLaw == 1>>
	<<set $beauty = Math.trunc($beauty*1.5)>>
<<elseif $ACitizens > $ASlaves*2>>
	<<set $beauty = Math.trunc($beauty*1.1)>>
<<elseif $ACitizens > $ASlaves>>
	<<set $beauty = Math.trunc($beauty*1)>>
<<elseif $ACitizens > $ASlaves*0.5>>
	<<set $beauty = Math.trunc($beauty*0.95)>>
<<elseif $ACitizens > $ASlaves*0.25>>
	<<set $beauty = Math.trunc($beauty*0.9)>>
<<else>>
	<<set $beauty = Math.trunc($beauty*0.85)>>
<</if>>
<<if $beauty < 10>>
	<<set $beauty = 10>>
<</if>>
<<if $ACitizens > $ASlaves*0.5>>
	<<set $FResult = 3>>
<<elseif $ACitizens > $ASlaves*0.25>>
	<<set $FResult = 2>>
<<else>>
	<<set $FResult = 1>>
<</if>>

<<if ($slaves[$i].assignment == "be confined in the arcade") && ($arcadeUpgradeInjectors == 1)>>
	<<set $FResult += 1>>
<</if>>

is <<if $slaves[$i].fuckdoll == 0>>restrained in a glory hole<<else>>set out for use<</if>>. $beauty customers (<<print Math.trunc($beauty/7)>> a day) paid ¤$FResult to use $possessive holes.
<<set _incomeStats.customers = $beauty>>

<<if ($arcologies[0].FSDegradationist > 0)>>
	Demand for $possessive holes is strong due to the appetite for degradation rampant in $arcologies[0].name.
<</if>>

<<if ($slaves[$i].curatives > 0) || $slaves[$i].inflationType == "curative">>
	The drugs $pronoun's<<if $slaves[$i].inflationType == "curative">> harboring inside $possessive guts<<else>> on<</if>> protect $possessive health from the stress of being used as a sexual appliance.
<<elseif ($slaves[$i].health < -50)>>
	The stress of being used while very ill @@.red;damaged $possessive health.@@
	<<set $slaves[$i].health -= 10>>
<<elseif ($slaves[$i].health < -10)>>
	<<if (random(1,100) > 10)>>
		The stress of being used while weak has @@.red;damaged $possessive health.@@
		<<set $slaves[$i].health -= 10>>
	<</if>>
<<elseif ($slaves[$i].vagina == -1)>>
	<<if (random(1,100) > 70)>>
		The stress of being used in only two holes has @@.red;damaged $possessive health.@@
		<<set $slaves[$i].health -= 10>>
	<</if>>
<<elseif (random(1,100) > 25)>>
	The stress of being used has @@.red;damaged $possessive health.@@
	<<set $slaves[$i].health -= 10>>
<</if>>

<<if ($slaves[$i].vagina == 0) && canDoVaginal($slaves[$i])>>
	A <<if $slaves[$i].fuckdoll == 0>>glory hole <</if>>user takes $possessive virginity. He does not notice or care. @@.lime;$possessiveCap pussy has been broken in@@ in a @@.gold;painful@@ and @@.mediumorchid;degrading@@ way.
	<<set $slaves[$i].devotion -= 10, $slaves[$i].trust -= 10, $slaves[$i].vagina = 1>>
<<elseif ($slaves[$i].vagina < 3) && (canDoVaginal($slaves[$i])) && (random(1,100) > ((170-$beauty)+($slaves[$i].vagina*10)))>>
	@@.lime;$possessiveCap pussy gets stretched out by the use.@@
	<<set $slaves[$i].vagina += 1>>
<</if>>

<<if ($slaves[$i].anus == 0) && canDoAnal($slaves[$i])>>
	$possessiveCap anal virginity goes to a <<if $slaves[$i].fuckdoll == 0>>glory hole <</if>>user, who doesn't understand why this particular run at <<if $slaves[$i].fuckdoll == 0>>the glory hole<<else>>a Fuckdoll<</if>> is so great. @@.lime;$possessiveCap ass has been broken in@@ in a @@.gold;painful@@ and @@.mediumorchid;degrading@@ way.
	<<set $slaves[$i].devotion -= 5, $slaves[$i].trust -= 5, $slaves[$i].anus = 1>>
<<elseif ($slaves[$i].anus < 3) && canDoAnal($slaves[$i]) && (random(1,100) > ((150-$beauty)+($slaves[$i].anus*10)))>>
	@@.lime;$possessiveCap asshole sees constant use and loosens.@@
	<<set $slaves[$i].anus += 1>>
<</if>>

<<if ($slaves[$i].fetish == "mindbroken")>>
	$pronounCap serves $possessive role as a mindless set of holes to perfection.
<<else>>
	<<set $skillIncrease = 5>>
	<<if ($slaves[$i].oralSkill <= 10)>>
		With $possessive throat being brutally used, $possessive gag reflex is suppressed and $possessive oral skills improve.
		<<OralSkillIncrease $slaves[$i]>>
	<<elseif ($slaves[$i].vaginalSkill <= 10) && (canDoVaginal($slaves[$i]))>>
		With $possessive pussy being harshly used, $possessive vaginal skills improve.
		<<VaginalSkillIncrease $slaves[$i]>>
	<<elseif ($slaves[$i].analSkill <= 10) && (canDoAnal($slaves[$i]))>>
		With $possessive butt being mercilessly fucked, $possessive anal skills improve.
		<<AnalSkillIncrease $slaves[$i]>>
	<</if>>
	<<if $slaves[$i].sexualFlaw == "self hating">>
		$possessiveCap self hatred is so deep that $pronoun believes $pronoun deserves to serve in a glory hole, and even gets off on the degradation.
	<<elseif ($slaves[$i].sentence > 0)>>
		<<if ($slaves[$i].behavioralFlaw != "odd") && (random(1,100) > (100+($slaves[$i].devotion/5)))>>
			Constant confinement coupled with brutal use has left $object with involuntary nervous tics.
			<<set $slaves[$i].behavioralFlaw = "odd">>
		<</if>>
		<<set $slaves[$i].devotion -= 5, $slaves[$i].trust -= 5>>
		<<if ($slaves[$i].devotion > 50)>>
			$pronounCap does $possessive best to tolerate $possessive sentence to the glory hole, but @@.mediumorchid;$possessive devotion is hurt@@ and $pronoun is @@.gold;filled with fear@@ $pronoun won't be let out.
		<<elseif ($slaves[$i].devotion > 20)>>
			$pronounCap does not understand why $possessive obedience has earned $object a sentence to this torture. @@.mediumorchid;$possessiveCap obedience is hurt@@ and $pronoun is @@.gold;filled with fear@@ $pronoun won't be let out.
		<<elseif ($slaves[$i].devotion >= -20)>>
			$possessiveCap fear of you turns to desperation during $possessive sentence. @@.mediumorchid;$possessiveCap obedience is reduced@@ and $pronoun is @@.gold;filled with fear@@ $pronoun won't be let out.
		<<elseif ($slaves[$i].devotion >= -50)>>
			Though $pronoun is only temporarily sentenced to suffer, @@.mediumorchid;$possessive resistance is increased@@ and $pronoun is @@.gold;filled with fear@@ $pronoun won't be let out.
		<<else>>
			$pronounCap has hope $pronoun'll be released after $possessive sentence, but @@.mediumorchid;$possessive hatred of you is increased@@ and $pronoun is @@.gold;filled with fear@@ $pronoun won't be let out.
		<</if>>
	<<else>>
		<<if ($slaves[$i].behavioralFlaw != "odd") && (random(1,100) > (70+($slaves[$i].devotion/5)))>>
			Constant confinement coupled with brutal use has left $object with involuntary nervous tics.
			<<set $slaves[$i].behavioralFlaw = "odd">>
		<</if>>
		<<set $slaves[$i].devotion -= 10, $slaves[$i].trust -= 10>>
		<<if ($slaves[$i].devotion > 50)>>
			$pronounCap feels starved of personal contact. @@.mediumorchid;$possessiveCap devotion is hurt@@ and $pronoun is @@.gold;filled with fear@@ $pronoun won't be let out.
		<<elseif ($slaves[$i].devotion > 20)>>
			$pronounCap does not understand why $possessive obedience has earned $object this immurement. @@.mediumorchid;$possessiveCap obedience is hurt@@ and $pronoun is @@.gold;filled with fear@@ $pronoun won't be let out.
		<<elseif ($slaves[$i].devotion >= -20)>>
			$possessiveCap fear of you has increased into something like a pathology. @@.mediumorchid;$possessiveCap obedience is reduced@@ and $pronoun is @@.gold;filled with fear@@ $pronoun won't be let out.
		<<elseif ($slaves[$i].devotion >= -50)>>
			$possessiveCap resistance is deepening into hatred. @@.mediumorchid;$possessiveCap resistance is increased@@ and $pronoun is @@.gold;filled with fear@@ $pronoun won't be let out.
		<<else>>
			@@.mediumorchid;$possessiveCap helpless hatred of you is increased@@ and $pronoun is @@.gold;filled with fear@@ $pronoun won't be let out.
		<</if>>
	<</if>>
<</if>>

$possessiveCap feelings, skills, and appearance do not matter. $pronounCap is condemned to a world that consists of a tiny cell, featureless except for the never-ending dicks $pronoun is required to service. You were paid @@.yellowgreen;¤<<print ($beauty*$FResult)>>@@ for the use of $slaves[$i].slaveName's holes this week.

/* FACILITY DECORATION IMPACTS */

<<if ($slaves[$i].assignment == "be confined in the arcade") && ($arcadeDecoration != "standard")>>
<<set _seed = 0.0001*$FSSingleSlaveRep*$beauty>>
<<switch $arcadeDecoration>>
<<case "Roman Revivalist">>
	<<set $arcologies[0].FSRomanRevivalist += _seed>>
<<case "Aztec Revivalist">>
	<<set $arcologies[0].FSAztecRevivalist += _seed>>
<<case "Egyptian Revivalist">>
	<<set $arcologies[0].FSEgyptianRevivalist += _seed>>
<<case "Edo Revivalist">>
	<<set $arcologies[0].FSEdoRevivalist += _seed>>
<<case "Arabian Revivalist">>
	<<set $arcologies[0].FSArabianRevivalist += _seed>>
<<case "Chinese Revivalist">>
	<<set $arcologies[0].FSChineseRevivalist += _seed>>
<<case "Repopulation Focus">>
	<<set $arcologies[0].FSRepopulationFocus += _seed>>
<<case "Eugenics">>
	<<set $arcologies[0].FSRestart += _seed>>
<<case "Chattel Religionist">>
	<<set $arcologies[0].FSChattelReligionist += _seed>>
<<case "Degradationist">>
	<<set $arcologies[0].FSDegradationist += _seed>>
<<case "Asset Expansionist">>
	<<set $arcologies[0].FSAssetExpansionist += _seed>>
<<case "Transformation Fetishist">>
	<<set $arcologies[0].FSTransformationFetishist += _seed>>
<<case "Gender Radicalist">>
	<<set $arcologies[0].FSGenderRadicalist += _seed>>
<<case "Gender Fundamentalist">>
	<<set $arcologies[0].FSGenderFundamentalist += _seed>>
<<case "Physical Idealist">>
	<<set $arcologies[0].FSPhysicalIdealist += _seed>>
<<case "Hedonistic">>
	<<set $arcologies[0].FSHedonisticDecadence += _seed>>
<<case "Supremacist">>
	<<set $arcologies[0].FSSupremacist += _seed>>
<<case "Subjugationist">>
	<<set $arcologies[0].FSSubjugationist += _seed>>
<<case "Paternalist">>
	<<set $arcologies[0].FSPaternalist += _seed>>
<<case "Pastoralist">>
	<<set $arcologies[0].FSPastoralist += _seed>>
<<case "Maturity Preferentialist">>
	<<set $arcologies[0].FSMaturityPreferentialist += _seed>>
<<case "Youth Preferentialist">>
	<<set $arcologies[0].FSYouthPreferentialist += _seed>>
<<case "Body Purist">>
	<<set $arcologies[0].FSBodyPurist += _seed>>
<<case "Slimness Enthusiast">>
	<<set $arcologies[0].FSSlimnessEnthusiast += _seed>>
<</switch>>
<</if>>

/* SEX ACT COUNTS AND SEXUAL SATISFACTION */

<<set _oralUse = $oralUseWeight+$slaves[$i].lips>>
<<set _analUse = 0>>
<<if canDoAnal($slaves[$i])>><<set _analUse =  $analUseWeight-$slaves[$i].anus>><</if>>
<<set _vaginalUse = 0>>
<<if canDoVaginal($slaves[$i])>><<set _analUse =  $vaginalUseWeight-$slaves[$i].vagina>><</if>>

<<set _demand = _oralUse+_analUse+_vaginalUse>>
<<set _oralUse = Math.trunc((_oralUse/_demand)*$beauty)>>
<<set _analUse = Math.trunc((_analUse/_demand)*$beauty)>>
<<set _vaginalUse = Math.trunc((_vaginalUse/_demand)*$beauty)>>
<<set $slaves[$i].need -= (_analUse+_vaginalUse)/4>>

<<set $slaves[$i].oralCount += _oralUse, $slaves[$i].publicCount += _oralUse, $oralTotal += _oralUse>>
<<set $slaves[$i].analCount += _analUse, $slaves[$i].publicCount += _analUse, $analTotal += _analUse>>
<<set $slaves[$i].vaginalCount += _vaginalUse, $slaves[$i].publicCount += _vaginalUse, $vaginalTotal += _vaginalUse>>

<<set _cervixPump = _vaginalUse>>

<<if $slaves[$i].need>>
<<if $slaves[$i].fetishKnown>>
<<switch $slaves[$i].fetish>>
<<case "submissive" "masochist">>
	<<if _analUse+_vaginalUse > 0>>
		She enjoys being used, and got sexual satisfaction from the <<print _analUse+_vaginalUse>> dicks stuck inside her this week.
		<<set $slaves[$i].need -= _analUse+_vaginalUse>>
	<</if>>
<<case "dom" "sadist">>
<<case "cumslut">>
	<<if _oralUse > 0>>
		She enjoys being facefucked, and got sexual satisfaction from the _oralUse dicks shoved inside her throat this week.
		<<set $slaves[$i].need -= _oralUse>>
	<</if>>
<<case "buttslut">>
	<<if _analUse > 0>>
		She enjoys getting buttfucked, and got sexual satisfaction from the _analUse times she was sodomized this week.
		<<set $slaves[$i].need -= _analUse>>
	<</if>>
<<case "pregnancy">>
	<<if $slaves[$i].mpreg == 0>>
	<<if _vaginalUse > 0>>
		She enjoys having her pussy fucked, and got sexual satisfaction from the _vaginalUse times she got pounded this week.
		<<set $slaves[$i].need -= _vaginalUse>>
	<</if>>
	<<else>>
		<<if _analUse > 0>>
			She enjoys having her ass fucked, and got sexual satisfaction from the _analUse times she got pounded this week.
			<<set $slaves[$i].need -= _analUse>>
		<</if>>
	<</if>>
<<case "humiliation">>
	She enjoys the humiliation of having her most intimate parts presented for public use, and got a bit of sexual satisfaction from every sex act she performed this week.
	<<set $slaves[$i].need -= $beauty>>
<</switch>>
<</if>>
<</if>>

<<if $slaves[$i].cervixImplant == 1 && _cervixPump > 0 && canDoVaginal($slaves[$i])>>
	She notices her @@.orange;belly has swollen@@ from all the vaginal sex she had throughout the week.
	<<set $slaves[$i].bellyImplant += _cervixPump*20>>
<</if>>

<<set $cash += ($beauty*$FResult)>>
<<set _profits += ($beauty*$FResult)>>
<<set _incomeStats.income += ($beauty*$FResult)>>

license: mit


code:
:: Salon [nobr]

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

<<set $showEncyclopedia = 1>><<set $encyclopedia = "The Auto Salon">>

The Auto Salon

//$activeSlave.slaveName is seated in the auto salon. $pronounCap is awaiting your artistic pleasure.//

/* EYES */

<<if $activeSlave.eyes > -3>> /* Begin eye check */

/* 000-250-006 */
<<if $seeImages == 1>>
<<if $imageChoice == 1>>

<<SlaveArt $activeSlave 3 0>>

<<else>>

<<SlaveArt $activeSlave 3 0>>

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

<<if $activeSlave.origEye == "implant">>
	$pronounCap has artificial eyes, and $pronoun
	<<if $activeSlave.eyewear == "none">>
		has no eyewear.
	<<else>>
		is wearing $activeSlave.eyewear.  [[Remove|Salon][$activeSlave.eyewear = "none"]]
	<</if>>
	//Blurring options are annoying and impede performance on some assignments.//

	Give her: [[Cosmetic glasses|Salon][$activeSlave.eyewear = "glasses",$cash -= $modCost]]

<<elseif $activeSlave.eyes < -1>>
	$pronounCap is blind, and
	<<if $activeSlave.eyewear == "none">>
		has no eyewear.
	<<else>>
		is wearing $activeSlave.eyewear.  [[Remove|Salon][$activeSlave.eyewear = "none"]]
	<</if>>
	//Blurring options are annoying and impede performance on some assignments.//

	Give her: [[Cosmetic glasses|Salon][$activeSlave.eyewear = "glasses",$cash -= $modCost]]
<<elseif $activeSlave.eyes > -1>>
	$possessiveCap vision is normal, and $pronoun
	<<if $activeSlave.eyewear == "none">>
		has no eyewear.
	<<else>>
		is wearing $activeSlave.eyewear.  [[Remove|Salon][$activeSlave.eyewear = "none"]]
	<</if>>
	//Blurring options are annoying and impede performance on some assignments.//

	Give her: [[Cosmetic glasses|Salon][$activeSlave.eyewear = "glasses",$cash -= $modCost]]
	| [[Blurring glasses|Salon][$activeSlave.eyewear = "blurring glasses",$cash -= $modCost]]
	| [[Blurring contacts|Salon][$activeSlave.eyewear = "blurring contacts",$cash -= $modCost]]
<<else>>
	$pronounCap is nearsighted, and $pronoun
	<<if $activeSlave.eyewear == "none">>
		has no eyewear.
	<<else>>
		is wearing $activeSlave.eyewear.  [[Remove|Salon][$activeSlave.eyewear = "none"]]
	<</if>>
	//Nearsightedness will impede performance on some assignments.//

	Give her: [[Cosmetic glasses|Salon][$activeSlave.eyewear = "glasses",$cash -= $modCost]]
	| [[Corrective glasses|Salon][$activeSlave.eyewear = "corrective glasses",$cash -= $modCost]]
	| [[Corrective contacts|Salon][$activeSlave.eyewear = "corrective contacts",$cash -= $modCost]]

<</if>>

<<if $activeSlave.origEye != "implant">>

	Custom cosmetic lenses:
	<<if $activeSlave.origEye != "none">>
		$possessiveCap eyes are $activeSlave.eyeColor.
		<<if $activeSlave.origEye != $activeSlave.eyeColor>>
			[[Remove lenses|Salon][$activeSlave.eyeColor = $activeSlave.origEye]] or //choose new ones://
		<<else>>
			//Choose $possessive cosmetic lenses:
		<</if>>
	<<else>>
		<<if $activeSlave.eyeColor == "empty">>
			$possessiveCap has no eyes.  //Choose what kind of eyes you want $possessive to have://
		<<else>>
			$possessiveCap glass eyes are $activeSlave.eyeColor.  [[Remove eyes|Salon][$activeSlave.eyeColor = "empty"]] or //choose new ones://
		<</if>>
	<</if>>

	Color:
	[[Blue|Salon][$artificialEyeColor = "blue"]]
	| [[Black|Salon][$artificialEyeColor = "black"]]
	| [[Brown|Salon][$artificialEyeColor = "brown"]]
	| [[Green|Salon][$artificialEyeColor = "green"]]
	| [[Turquoise|Salon][$artificialEyeColor = "turquoise"]]
	| [[Sky-blue|Salon][$artificialEyeColor = "sky-blue"]]
	| [[Hazel|Salon][$artificialEyeColor = "hazel"]]
	| [[Pale-grey|Salon][$artificialEyeColor = "pale-grey"]]
	| [[White|Salon][$artificialEyeColor = "white"]]
	| [[Pink|Salon][$artificialEyeColor = "pink"]]
	| [[Amber|Salon][$artificialEyeColor = "amber"]]
	| [[Red|Salon][$artificialEyeColor = "red"]]

	Shape:
	[[Catlike|Salon][$artificialEyeShape = "catlike"]]
	| [[Serpent-like|Salon][$artificialEyeShape = "serpent-like"]]
	| [[Devilish|Salon][$artificialEyeShape = "devilish"]]
	| [[Demonic|Salon][$artificialEyeShape = "demonic"]]
	| [[Hypnotic|Salon][$artificialEyeShape = "hypnotic"]]
	| [[Heart-shaped|Salon][$artificialEyeShape = "heart-shaped"]]
	| [[Wide-eyed|Salon][$artificialEyeShape = "wide-eyed"]]
	| [[Almond-shaped|Salon][$artificialEyeShape = "almond-shaped"]]
	| [[Bright|Salon][$artificialEyeShape = "bright"]]
	| [[Teary|Salon][$artificialEyeShape = "teary"]]
	| [[Vacant|Salon][$artificialEyeShape = "vacant"]]

	<<if $artificialEyeColor == "" && $artificialEyeShape != "">>

		[[Give|Salon][$activeSlave.eyeColor = ($artificialEyeShape),$cash -= $modCost, $artificialEyeColor = "", $artificialEyeShape = ""]] her $artificialEyeShape $artificialEyeColor <<if $activeSlave.origEye == "none">>glass eyes<<else>>lenses<</if>>? //This will be applied in addition to eyewear choices.//
	<<elseif $artificialEyeColor != "" || $artificialEyeShape != "">>

		[[Give|Salon][$activeSlave.eyeColor = ($artificialEyeShape + " " + $artificialEyeColor),$cash -= $modCost, $artificialEyeColor = "", $artificialEyeShape = ""]] her $artificialEyeShape $artificialEyeColor <<if $activeSlave.origEye == "none">> glass eyes<<else>>lenses<</if>>? //This will be applied in addition to eyewear choices.//
	<</if>>
<<else>>
	$possessiveCap eyes are artificial and can't be set here.
<</if>>
<</if>> /*End eye check */

/* HAIR */

<<if $activeSlave.bald != 1>>
	$possessiveCap hair is $activeSlave.hColor.
	<<if $activeSlave.origHColor != $activeSlave.hColor>>
		[[Restore natural color|Salon][$activeSlave.hColor = $activeSlave.origHColor]] or //choose a new one://
	<<else>>
		//Choose a dye color before dyeing her hair://
	<</if>>

	Colors:
		[[Blonde|Salon][$primaryHairColor = "blonde"]]
		| [[Golden|Salon][$primaryHairColor = "golden"]]
		| [[Platinum Blonde|Salon][$primaryHairColor = "platinum blonde"]]
		| [[Strawberry-blonde|Salon][$primaryHairColor = "strawberry-blonde"]]
		| [[Copper|Salon][$primaryHairColor = "copper"]]
		| [[Ginger|Salon][$primaryHairColor = "ginger"]]
		| [[Red|Salon][$primaryHairColor = "red"]]
		| [[Deep Red|Salon][$primaryHairColor = "deep red"]]
		| [[Green|Salon][$primaryHairColor = "green"]]
		| [[Blue|Salon][$primaryHairColor = "blue"]]
		| [[Pink|Salon][$primaryHairColor = "pink"]]
		| [[Dark Brown|Salon][$primaryHairColor = "dark brown"]]
		| [[Brown|Salon][$primaryHairColor = "brown"]]
		| [[Auburn|Salon][$primaryHairColor = "auburn"]]
		| [[Burgundy|Salon][$primaryHairColor = "burgundy"]]
		| [[Chocolate|Salon][$primaryHairColor = "chocolate brown"]]
		| [[Chestnut|Salon][$primaryHairColor = "chestnut"]]
		| [[Hazel|Salon][$primaryHairColor = "hazel"]]
		| [[Black|Salon][$primaryHairColor = "black"]]
		| [[Grey|Salon][$primaryHairColor = "grey"]]
		| [[Silver|Salon][$primaryHairColor = "silver"]]
		| [[White|Salon][$primaryHairColor = "white"]]
		| [[Blazing red|Salon][$primaryHairColor = "blazing red"]]
		| [[Neon green|Salon][$primaryHairColor = "neon green"]]
		| [[Neon blue|Salon][$primaryHairColor = "neon blue"]]
		| [[Neon pink|Salon][$primaryHairColor = "neon pink"]]

	Highlights:
		[[None|Salon][$secondaryHairColor = ""]]
		| [[Blonde|Salon][$secondaryHairColor = " with blonde highlights"]]
		| [[Black|Salon][$secondaryHairColor = " with black highlights"]]
		| [[Grey|Salon][$secondaryHairColor = " with grey highlights"]]
		| [[Silver|Salon][$secondaryHairColor = " with silver highlights"]]
		| [[White|Salon][$secondaryHairColor = " with white highlights"]]
		| [[Blazing red|Salon][$secondaryHairColor = " with blazing red highlights"]]
		| [[Neon green|Salon][$secondaryHairColor = " with neon green highlights"]]
		| [[Neon blue|Salon][$secondaryHairColor = " with neon blue highlights"]]
		| [[Neon pink|Salon][$secondaryHairColor = " with neon pink highlights"]]
		| [[Rainbow|Salon][$secondaryHairColor = " with rainbow highlights"]]

	<<if $primaryHairColor != 0>>

		[[Dye her hair|Salon][$activeSlave.hColor = ($primaryHairColor + $secondaryHairColor),$cash -= $modCost, $primaryHairColor = 0, $secondaryHairColor = ""]] $primaryHairColor $secondaryHairColor now?
	<</if>>

$possessiveCap $activeSlave.hStyle hair is $activeSlave.hLength cm long. //General hairstyles will conform to hair length and clothing choices.//

	<<if $activeSlave.hLength > 1>>
		Style $possessive hair:
		[[Neat|Salon][$activeSlave.hStyle = "neat",$cash -= $modCost]]
		 | [[Up|Salon][$activeSlave.hStyle = "up",$cash -= $modCost]]
		 | [[In a ponytail|Salon][$activeSlave.hStyle = "ponytail",$cash -= $modCost]]
		 | [[In a bun|Salon][$activeSlave.hStyle = "bun",$cash -= $modCost]]
		 | [[Curled|Salon][$activeSlave.hStyle = "curled",$cash -= $modCost]]
		 | [[Permed|Salon][$activeSlave.hStyle = "permed",$cash -= $modCost]]
		 | [[Luxurious|Salon][$activeSlave.hStyle = "luxurious",$cash -= $modCost]]
		 | [[Messy|Salon][$activeSlave.hStyle = "messy",$cash -= $modCost]]
		 | [[Eary|Salon][$activeSlave.hStyle = "eary",$cash -= $modCost]]
		 | [[Dreadlocks|Salon][$activeSlave.hStyle = "dreadlocks",$cash -= $modCost]]
		 | [[Cornrows|Salon][$activeSlave.hStyle = "cornrows",$cash -= $modCost]]
		 | [[Braided|Salon][$activeSlave.hStyle = "braided",$cash -= $modCost]]
		 | [[In tails|Salon][$activeSlave.hStyle = "tails",$cash -= $modCost]]
		 | [[Afro|Salon][$activeSlave.hStyle = "afro",$cash -= $modCost]]
		 | [[Shaved sides|Salon][$activeSlave.hStyle = "strip",$cash -= $modCost]]
	<<else>>
		//$possessiveCap hair is too short to style meaningfully//
	<</if>>

	<<if $activeSlave.hLength > 1>>

		Cut and style $possessive hair:
		 [[Shaved|Salon][$activeSlave.hStyle = "shaved",$activeSlave.hLength = 0,$cash -= $modCost]]
		 | [[Trimmed short|Salon][$activeSlave.hStyle = "trimmed",$activeSlave.hLength = 10,$cash -= $modCost]]
		 | [[Buzzcut|Salon][$activeSlave.hStyle = "buzzcut",$activeSlave.hLength = 1,$cash -= $modCost]]
	<</if>>

	Cut or lengthen $possessive hair:
	<<if $activeSlave.hLength > 5>>
		[[Very short|Salon][$activeSlave.hLength = 5,$cash -= $modCost]]
	<</if>>
	<<if $activeSlave.hLength > 10>>
		| [[Short|Salon][$activeSlave.hLength = 10,$cash -= $modCost]]
	<</if>>
	<<if $activeSlave.hLength > 30>>
		| [[Shoulder length|Salon][$activeSlave.hLength = 30,$cash -= $modCost]]
	<</if>>
	<<if $activeSlave.hLength > 60>>
		| [[Long|Salon][$activeSlave.hLength = 60,$cash -= $modCost]]
	<</if>>
	<<if $activeSlave.hLength > 100>>
		| [[Very long|Salon][$activeSlave.hLength = 100,$cash -= $modCost]]
	<</if>>
	<<if $activeSlave.hLength == 1>>
		| [[Apply hair growth stimulating treatment|Salon][$activeSlave.hLength = 1,$cash -= $modCost]]
	<<elseif $activeSlave.hLength < 150>>
		| [[Apply extensions|Salon][$activeSlave.hLength += 10,$cash -= $modCost]]
	<</if>>

	Have $possessive hair carefully maintained at its current length:
	<<if $activeSlave.haircuts == 1>>
		[[Cease maintenance|Salon][$activeSlave.haircuts = 0]]
	<<else>>
		[[Begin maintenance|Salon][$activeSlave.haircuts = 1]]
	<</if>>
<<else>>
	<<if $activeSlave.hStyle == "bald">>
		$pronounCap is completely bald.

	<<else>>
		$possessiveCap current wig is $activeSlave.hColor.
		<<if $activeSlave.origHColor == "bald" && $activeSlave.hStyle != "bald">>
			[[Remove wig|Salon][$activeSlave.hStyle = "bald",$activeSlave.hLength = 0,$cash -= $modCost]] or //choose a new one://
		<<else>>
			//Choose a wig color://
		<</if>>

		Colors:
		[[Blonde|Salon][$primaryHairColor = "blonde"]]
		| [[Golden|Salon][$primaryHairColor = "golden"]]
		| [[Platinum Blonde|Salon][$primaryHairColor = "platinum blonde"]]
		| [[Strawberry-blonde|Salon][$primaryHairColor = "strawberry-blonde"]]
		| [[Copper|Salon][$primaryHairColor = "copper"]]
		| [[Ginger|Salon][$primaryHairColor = "ginger"]]
		| [[Red|Salon][$primaryHairColor = "red"]]
		| [[Deep Red|Salon][$primaryHairColor = "deep red"]]
		| [[Green|Salon][$primaryHairColor = "green"]]
		| [[Blue|Salon][$primaryHairColor = "blue"]]
		| [[Pink|Salon][$primaryHairColor = "pink"]]
		| [[Dark Brown|Salon][$primaryHairColor = "dark brown"]]
		| [[Brown|Salon][$primaryHairColor = "brown"]]
		| [[Auburn|Salon][$primaryHairColor = "auburn"]]
		| [[Burgundy|Salon][$primaryHairColor = "burgundy"]]
		| [[Chocolate|Salon][$primaryHairColor = "chocolate brown"]]
		| [[Chestnut|Salon][$primaryHairColor = "chestnut"]]
		| [[Hazel|Salon][$primaryHairColor = "hazel"]]
		| [[Black|Salon][$primaryHairColor = "black"]]
		| [[Grey|Salon][$primaryHairColor = "grey"]]
		| [[Silver|Salon][$primaryHairColor = "silver"]]
		| [[White|Salon][$primaryHairColor = "white"]]
		| [[Blazing red|Salon][$primaryHairColor = "blazing red"]]
		| [[Neon green|Salon][$primaryHairColor = "neon green"]]
		| [[Neon blue|Salon][$primaryHairColor = "neon blue"]]
		| [[Neon pink|Salon][$primaryHairColor = "neon pink"]]

		Highlights:
		[[None|Salon][$secondaryHairColor = ""]]
		| [[Blonde|Salon][$secondaryHairColor = " with blonde highlights"]]
		| [[Black|Salon][$secondaryHairColor = " with black highlights"]]
		| [[Grey|Salon][$secondaryHairColor = " with grey highlights"]]
		| [[Silver|Salon][$secondaryHairColor = " with silver highlights"]]
		| [[White|Salon][$secondaryHairColor = " with white highlights"]]
		| [[Blazing red|Salon][$secondaryHairColor = " with blazing red highlights"]]
		| [[Neon green|Salon][$secondaryHairColor = " with neon green highlights"]]
		| [[Neon blue|Salon][$secondaryHairColor = " with neon blue highlights"]]
		| [[Neon pink|Salon][$secondaryHairColor = " with neon pink highlights"]]
		| [[Rainbow|Salon][$secondaryHairColor = " with rainbow highlights"]]

		<<if $primaryHairColor != 0>>

			[[Change|Salon][$activeSlave.hColor = ($primaryHairColor + $secondaryHairColor),$cash -= $modCost, $primaryHairColor = 0, $secondaryHairColor = ""]] $possessive wig color to $primaryHairColor $secondaryHairColor
		<</if>>
	<</if>>

	<<if $activeSlave.hStyle != "bald">>

		$possessiveCap $activeSlave.hStyle wig is $activeSlave.hLength cm long.

		//General hairstyles will conform to hair length and clothing choices.//

		<<if $activeSlave.hLength == 0>><<set $activeSlave.hLength = 10>><</if>>

		Set wig length to:
		<<if $activeSlave.hLength != 10>>[[10cm|Salon][$activeSlave.hLength = 10,$cash -= $modCost]]<</if>>
		<<if $activeSlave.hLength != 30>>[[30cm|Salon][$activeSlave.hLength = 30,$cash -= $modCost]]<</if>>
		<<if $activeSlave.hLength != 60>>[[60cm|Salon][$activeSlave.hLength = 60,$cash -= $modCost]]<</if>>
		<<if $activeSlave.hLength != 90>>[[90cm|Salon][$activeSlave.hLength = 90,$cash -= $modCost]]<</if>>
		<<if $activeSlave.hLength != 120>>[[120cm|Salon][$activeSlave.hLength = 120,$cash -= $modCost]]<</if>>
		<<if $activeSlave.hLength != 150>>[[150cm|Salon][$activeSlave.hLength = 150,$cash -= $modCost]]<</if>>
	<<else>>
		$pronounCap is not wearing a wig.
	<</if>>

	<<if $activeSlave.hStyle != "bald">>
		Set wig style:
	<<else>>
		Give her a wig:
	<</if>>
	 [[Ponytail|Salon][$activeSlave.hStyle = "ponytail",$cash -= $modCost]]
	 | [[Bun|Salon][$activeSlave.hStyle = "bun",$cash -= $modCost]]
	 | [[Curled|Salon][$activeSlave.hStyle = "curled",$cash -= $modCost]]
	 | [[Permed|Salon][$activeSlave.hStyle = "permed",$cash -= $modCost]]
	 | [[Luxurious|Salon][$activeSlave.hStyle = "luxurious",$cash -= $modCost]]
	 | [[Dreadlocks|Salon][$activeSlave.hStyle = "dreadlocks",$cash -= $modCost]]
	 | [[Cornrows|Salon][$activeSlave.hStyle = "cornrows",$cash -= $modCost]]
	 | [[Braided|Salon][$activeSlave.hStyle = "braided",$cash -= $modCost]]
	 | [[Tails|Salon][$activeSlave.hStyle = "tails",$cash -= $modCost]]
	 | [[Afro|Salon][$activeSlave.hStyle = "afro",$cash -= $modCost]]
<</if>>

/* MAKEUP */

<<if $activeSlave.makeup == 1>>
	$pronounCap's wearing minimal makeup.
<<elseif $activeSlave.makeup == 2>>
	$pronounCap's wearing expensive, luxurious makeup.
<<elseif $activeSlave.makeup == 3>>
	$possessiveCap makeup is color-coordinated with $possessive $activeSlave.hColor hair.
<<elseif $activeSlave.makeup == 4>>
	$pronounCap's wearing stereotypical, garish streetwalker makeup.
<<elseif $activeSlave.makeup == 5>>
	$pronounCap's wearing eye-catching neon makeup.
<<elseif $activeSlave.makeup == 6>>
	$possessiveCap neon makeup is color-coordinated with $possessive $activeSlave.hColor hair.
<<elseif $activeSlave.makeup == 7>>
	$pronounCap's wearing expensive, metallic makeup.
<<elseif $activeSlave.makeup == 8>>
	$possessiveCap metallic makeup is color-coordinated with $possessive $activeSlave.hColor hair.
<<elseif $activeSlave.lipsTat == "permanent makeup">>
	$possessiveCap face appears to bear very heavy, slutty makeup, but on closer inspection, the makeup is actually tattooed on.
<<else>>
	$possessiveCap face is makeup-free.
<</if>>
<<if $activeSlave.makeup > 0>>
	[[  Remove|Salon][$activeSlave.makeup = 0,$cash -= $modCost]]
<</if>>

Apply makeup:
[[Nice|Salon][$activeSlave.makeup = 1,$cash -= $modCost]]
| [[Gorgeous|Salon][$activeSlave.makeup = 2,$cash -= $modCost]]
| [[Slutty|Salon][$activeSlave.makeup = 4,$cash -= $modCost]]
| [[Color-coordinate with hair|Salon][$activeSlave.makeup = 3,$cash -= $modCost]]

[[Neon|Salon][$activeSlave.makeup = 5,$cash -= $modCost]]
| [[Neon, color-coordinate with hair|Salon][$activeSlave.makeup = 6,$cash -= $modCost]]

[[Metallic|Salon][$activeSlave.makeup = 7,$cash -= $modCost]]
| [[Metallic, color-coordinate with hair|Salon][$activeSlave.makeup = 8,$cash -= $modCost]]

/* NAILS */

<<if $activeSlave.amp == 1>>
	$pronounCap has no hands, and thus, no nails.
<<elseif $activeSlave.nails == 1>>
	$possessiveCap nails are long and elegant.
<<elseif $activeSlave.nails == 2>>
	$possessiveCap nails are color-coordinated with $possessive $activeSlave.hColor hair.
<<elseif $activeSlave.nails == 3>>
	$possessiveCap nails are sharp and claw-like.
<<elseif $activeSlave.nails == 4>>
	$possessiveCap nails are bright and glittery.
<<elseif $activeSlave.nails == 5>>
	$possessiveCap nails are long and garish, streetwalker-style.
<<elseif $activeSlave.nails == 6>>
	$possessiveCap nails are vivid and eye-catching.
<<elseif $activeSlave.nails == 7>>
	$possessiveCap nails are vivid, eye-catching and color-coordinated with $possessive $activeSlave.hColor hair.
<<elseif $activeSlave.nails == 8>>
	$possessiveCap nails are shiny and metallic.
<<elseif $activeSlave.nails == 9>>
	$possessiveCap nails are shiny, mettalic and color-coordinated with $possessive $activeSlave.hColor hair.
<<else>>
	$possessiveCap nails are neatly clipped.
<</if>>

<<if $activeSlave.amp != 1>>

Treat nails:
[[Clip|Salon][$activeSlave.nails = 0,$cash -= $modCost]]
| [[Extend|Salon][$activeSlave.nails = 1,$cash -= $modCost]]
| [[Sharp, claw-like|Salon][$activeSlave.nails = 3,$cash -= $modCost]]
| [[Bright, glittery|Salon][$activeSlave.nails = 4,$cash -= $modCost]]
| [[Streetwalker-style|Salon][$activeSlave.nails = 5,$cash -= $modCost]]
| [[Color-coordinate with hair|Salon][$activeSlave.nails = 2,$cash -= $modCost]]

[[Neon|Salon][$activeSlave.nails = 6,$cash -= $modCost]]
| [[Neon, color-coordinate with hair|Salon][$activeSlave.nails = 7,$cash -= $modCost]]

[[Metallic|Salon][$activeSlave.nails = 8,$cash -= $modCost]]
| [[Metallic, color-coordinate with hair|Salon][$activeSlave.nails = 9,$cash -= $modCost]]
<</if>>

/* SKIN */

<<set $tannableSkin = ["natural", "lightened", "white", "fair", "pale", "light", "extremely pale"]>>
<<set $lightenableSkin = ["natural", "dark", "olive", "black", "brown", "light brown", "tanned"]>>
<<set $bleachableSkin = ["natural", "lightened", "white", "fair", "light"]>>
<<set $darkenableSkin = ["natural", "lightened", "white", "fair", "pale", "light", "extremely pale", "olive", "tanned", "light brown", "brown"]>>
<<set $dyedSkin = ["red dyed", "green dyed", "blue dyed", "dyed red", "dyed green", "dyed blue", "tiger striped", "camouflage patterned"]>>

$possessiveCap skin is $activeSlave.skin.

<<if ($dyedSkin.indexOf($activeSlave.skin) != -1)>>
	[[Remove coloring|Salon][$activeSlave.skin = $activeSlave.origSkin,$cash -= $modCost]]
<</if>>

<<if ($dyedSkin.indexOf($activeSlave.skin) == -1)>>

	Change skin tone:
	<<set _needsSpacers = 0>>
	<<if ($bleachableSkin.indexOf($activeSlave.skin) != -1)>>
		<<if  _needsSpacers == 1>> | <</if>>
		[[Bleach|Salon][$activeSlave.skin = "pale",$cash -= $modCost]]
		<<set _needsSpacers = 1>>
	<</if>>
	<<if ($lightenableSkin.indexOf($activeSlave.skin) != -1)>>
		<<if  _needsSpacers == 1>> | <</if>>
		[[Lighten|Salon][$activeSlave.skin = "lightened",$cash -= $modCost]]
		<<set _needsSpacers = 1>>
	<</if>>
	<<if ($tannableSkin.indexOf($activeSlave.skin) != -1)>>
		<<if  _needsSpacers == 1>> | <</if>>
		[[Tan|Salon][$activeSlave.skin = "tanned",$cash -= $modCost]]
		<<set _needsSpacers = 1>>
	<</if>>
	<<if ($darkenableSkin.indexOf($activeSlave.skin) != -1)>>
		<<if  _needsSpacers == 1>> | <</if>>
		[[Darken|Salon][$activeSlave.skin = "dark",$cash -= $modCost]]
		<<set _needsSpacers = 1>>
	<</if>>
<</if>>

Dye or paint:
[[Red|Salon][$activeSlave.skin = "dyed red",$cash -= $modCost]]
| [[Green|Salon][$activeSlave.skin = "dyed green",$cash -= $modCost]]
| [[Blue|Salon][$activeSlave.skin = "dyed blue",$cash -= $modCost]]
| [[Tiger stripes|Salon][$activeSlave.skin = "tiger striped",$cash -= $modCost]]
| [[Camouflage|Salon][$activeSlave.skin = "camouflage patterned",$cash -= $modCost]]

/* MARKS */

<<if ($activeSlave.markings == "beauty mark")>>

	$pronounCap has a prominent mole on $possessive face, which
	<<if $activeSlave.face > 40>>
	qualifies as a beauty mark and enhances $possessive attractiveness due to $possessive facial beauty.
	<<elseif $activeSlave.face < -10>>
	makes $possessive even less attractive.
	<<else>>
	qualifies as a beauty mark since $pronoun's pretty, having no significant impact on $possessive beauty.
	<</if>>
	[[Remove it|Salon][$activeSlave.markings = "none",$cash -= $modCost]]
<</if>>
<<if ($activeSlave.markings == "birthmark")>>

	$pronounCap has a large birthmark, which
	<<if $activeSlave.prestige > 0>>
	enhances $possessive attractiveness due to $possessive prestige.
	<<else>>
	detracts from $possessive attractiveness.
	<</if>>
	[[Bleach it|Salon][$activeSlave.markings = "none",$cash -= $modCost]]
<</if>>

/* PUBIC HAIR */

<<if $activeSlave.pubicHStyle != "bald" && $activeSlave.pubicHStyle != "hairless" && $activeSlave.physicalAge >= 12>>

$possessiveCap $activeSlave.pubicHStyle pubic hair
	<<if $activeSlave.pubicHStyle == "waxed">>
		would be $activeSlave.pubicHColor if present.
	<<else>>
		is $activeSlave.pubicHColor.
	<</if>>
	<<if $activeSlave.pubicHColor != $activeSlave.hColor>>
		[[Match the curtains?|Salon][$activeSlave.pubicHColor = $activeSlave.hColor,$cash -= $modCost]]
	<</if>>

	Dye $possessive pubic hair:
		[[Blonde|Salon][$activeSlave.pubicHColor = "blonde",$cash -= $modCost]]
		| [[Golden|Salon][$activeSlave.pubicHColor = "golden",$cash -= $modCost]]
		| [[Platinum blonde|Salon][$activeSlave.pubicHColor = " platinum blonde",$cash -= $modCost]]
		| [[Strawberry-blonde|Salon][$activeSlave.pubicHColor = "strawberry-blonde",$cash -= $modCost]]
		| [[Copper|Salon][$activeSlave.pubicHColor = "copper",$cash -= $modCost]]
		| [[Ginger|Salon][$activeSlave.pubicHColor = "ginger",$cash -= $modCost]]
		| [[Red|Salon][$activeSlave.pubicHColor = "red",$cash -= $modCost]]
		| [[Deep Red|Salon][$primaryHairColor = "deep red"]]
		| [[Green|Salon][$activeSlave.pubicHColor = "green",$cash -= $modCost]]
		| [[Blue|Salon][$activeSlave.pubicHColor = "blue",$cash -= $modCost]]
		| [[Pink|Salon][$activeSlave.pubicHColor = "pink",$cash -= $modCost]]
		| [[Dark Brown|Salon][$activeSlave.pubicHColor = "dark brown",$cash -= $modCost]]
		| [[Brown|Salon][$activeSlave.pubicHColor = "brown",$cash -= $modCost]]
		| [[Auburn|Salon][$activeSlave.pubicHColor = "auburn",$cash -= $modCost]]
		| [[Burgundy|Salon][$activeSlave.pubicHColor = "burgundy",$cash -= $modCost]]
		| [[Chocolate|Salon][$activeSlave.pubicHColor = "chocolate brown",$cash -= $modCost]]
		| [[Chestnut|Salon][$activeSlave.pubicHColor = "chestnut",$cash -= $modCost]]
		| [[Hazel|Salon][$activeSlave.pubicHColor = "hazel",$cash -= $modCost]]
		| [[Black|Salon][$activeSlave.pubicHColor = "black",$cash -= $modCost]]
		| [[Grey|Salon][$activeSlave.pubicHColor = "grey",$cash -= $modCost]]
		| [[Silver|Salon][$activeSlave.pubicHColor = "silver",$cash -= $modCost]]
		| [[White|Salon][$activeSlave.pubicHColor = "white",$cash -= $modCost]]
		| [[Blazing red|Salon][$activeSlave.pubicHColor = "blazing red",$cash -= $modCost]]
		| [[Neon green|Salon][$activeSlave.pubicHColor = "neon green",$cash -= $modCost]]
		| [[Neon blue|Salon][$activeSlave.pubicHColor = "neon blue",$cash -= $modCost]]
		| [[Neon pink|Salon][$activeSlave.pubicHColor = "neon pink",$cash -= $modCost]]

	Style $possessive pubic hair:
		[[Waxed|Salon][$activeSlave.pubicHStyle = "waxed",$cash -= $modCost]]
		 | [[Landing strip|Salon][$activeSlave.pubicHStyle = "in a strip",$cash -= $modCost]]
		 | [[Neat|Salon][$activeSlave.pubicHStyle = "neat",$cash -= $modCost]]
		 | [[Bushy in the front|Salon][$activeSlave.pubicHStyle = "bushy in the front and neat in the rear",$cash -= $modCost]]
		 | [[Bushy|Salon][$activeSlave.pubicHStyle = "bushy",$cash -= $modCost]]
		 | [[Very Bushy|Salon][$activeSlave.pubicHStyle = "very bushy",$cash -= $modCost]]

<<else>>

$possessiveCap groin is completely hairless.
<</if>>

<<if $activeSlave.underArmHStyle != "bald" && $activeSlave.underArmHStyle != "hairless" && $activeSlave.physicalAge >= 12>>

$possessiveCap $activeSlave.underArmHStyle underarm hair
	<<if $activeSlave.pubicHStyle == "waxed">>
		would be $activeSlave.underArmHColor if present.
	<<else>>
		is $activeSlave.underArmHColor.
	<</if>>
	<<if $activeSlave.underArmHColor != $activeSlave.hColor>>
		[[Match the curtains?|Salon][$activeSlave.underArmHColor = $activeSlave.hColor,$cash -= $modCost]]
	<</if>>

    Dye $possessive armpit hair:
		[[Blonde|Salon][$activeSlave.underArmHColor = "blonde",$cash -= $modCost]]
		| [[Golden|Salon][$activeSlave.underArmHColor = "golden",$cash -= $modCost]]
		| [[Platinum blonde|Salon][$activeSlave.underArmHColor = " platinum blonde",$cash -= $modCost]]
		| [[Strawberry-blonde|Salon][$activeSlave.underArmHColor = "strawberry-blonde",$cash -= $modCost]]
		| [[Copper|Salon][$activeSlave.underArmHColor = "copper",$cash -= $modCost]]
		| [[Ginger|Salon][$activeSlave.underArmHColor = "ginger",$cash -= $modCost]]
		| [[Red|Salon][$activeSlave.underArmHColor = "red",$cash -= $modCost]]
		| [[Deep Red|Salon][$primaryHairColor = "deep red"]]
		| [[Green|Salon][$activeSlave.underArmHColor = "green",$cash -= $modCost]]
		| [[Blue|Salon][$activeSlave.underArmHColor = "blue",$cash -= $modCost]]
		| [[Pink|Salon][$activeSlave.underArmHColor = "pink",$cash -= $modCost]]
		| [[Dark Brown|Salon][$activeSlave.underArmHColor = "dark brown",$cash -= $modCost]]
		| [[Brown|Salon][$activeSlave.underArmHColor = "brown",$cash -= $modCost]]
		| [[Auburn|Salon][$activeSlave.underArmHColor = "auburn",$cash -= $modCost]]
		| [[Burgundy|Salon][$activeSlave.underArmHColor = "burgundy",$cash -= $modCost]]
		| [[Chocolate|Salon][$activeSlave.underArmHColor = "chocolate brown",$cash -= $modCost]]
		| [[Chestnut|Salon][$activeSlave.underArmHColor = "chestnut",$cash -= $modCost]]
		| [[Hazel|Salon][$activeSlave.underArmHColor = "hazel",$cash -= $modCost]]
		| [[Black|Salon][$activeSlave.underArmHColor = "black",$cash -= $modCost]]
		| [[Grey|Salon][$activeSlave.underArmHColor = "grey",$cash -= $modCost]]
		| [[Silver|Salon][$activeSlave.underArmHColor = "silver",$cash -= $modCost]]
		| [[White|Salon][$activeSlave.underArmHColor = "white",$cash -= $modCost]]
		| [[Blazing red|Salon][$activeSlave.underArmHColor = "blazing red",$cash -= $modCost]]
		| [[Neon green|Salon][$activeSlave.underArmHColor = "neon green",$cash -= $modCost]]
		| [[Neon blue|Salon][$activeSlave.underArmHColor = "neon blue",$cash -= $modCost]]
		| [[Neon pink|Salon][$activeSlave.underArmHColor = "neon pink",$cash -= $modCost]]

	Style $possessive armpit hair:
		[[Waxed|Salon][$activeSlave.underArmHStyle = "waxed",$cash -= $modCost]]
		 | [[Shaved|Salon][$activeSlave.underArmHStyle = "shaved",$cash -= $modCost]]
		 | [[Neat|Salon][$activeSlave.underArmHStyle = "neat",$cash -= $modCost]]
		 | [[Bushy|Salon][$activeSlave.underArmHStyle = "bushy",$cash -= $modCost]]

<<else>>

$possessiveCap underarms are completely hairless.
<</if>>


code:
:: Scheduled Event

<<set $showEncyclopedia = 0>>

<<if $expired == 1>>
	<<set $expiree = 0>>
	<<include "Remove activeSlave">>
	<<for $i = 0; $i < $slaves.length; $i++>>
	<<if $slaves[$i].indenture == 0>>
		<<set $expiree = $slaves[$i]>>
		<<break>>
	<</if>>
	<</for>>
<</if>>
<<set $expired = 0>>

<<if $retired == 1>>
	<<set $activeSlave = $slaves.find(function(s) { return s.ID == $retiree.ID; }), $retiree = 0>>
	<<include "Remove activeSlave">>
	<<for $i = 0; $i < $slaves.length; $i++>>
	<<if $slaves[$i].indenture < 0>>
	<<if $slaves[$i].actualAge >= $retirementAge && $PhysicalRetirementAgePolicy != 1>>
		<<set $retiree = $slaves[$i]>>
		<<break>>
	<</if>>
	<<if $slaves[$i].physicalAge >= $retirementAge && $PhysicalRetirementAgePolicy == 1>>
		<<set $retiree = $slaves[$i]>>
		<<break>>
	<</if>>
	<<if $SexMilestoneRetirement == 1>>
		<<if $slaves[$i].oralCount + $slaves[$i].analCount + $slaves[$i].vaginalCount + $slaves[$i].penetrativeCount + $slaves[$i].mammaryCount >= $retirementSex>>
		<<set $retiree = $slaves[$i]>>
		<<break>>
		<</if>>
	<</if>>
	<<if $MilkMilestoneRetirement == 1>>
		<<if $slaves[$i].milk >= $retirementMilk>>
		<<set $retiree = $slaves[$i]>>
		<<break>>
		<</if>>
	<</if>>
	<<if $BirthsMilestoneRetirement == 1>>
		<<if $slaves[$i].births >= $retirementBirths>>
		<<set $retiree = $slaves[$i]>>
		<<break>>
		<</if>>
	<</if>>
	<<if $KillsMilestoneRetirement == 1>>
		<<if $slaves[$i].pitkills >= $retirementKills>>
		<<set $retiree = $slaves[$i]>>
		<<break>>
		<</if>>
	<</if>>
	<</if>>
	<</for>>
<</if>>
<<set $retired = 0>>

/* birth scheduled event */
<<if $birthed == 1>>
	<<set $birthee = 1>>
<</if>>
<<set $birthed = 0>>

/* burst scheduled event */
<<if $burst == 1>>
	<<set $burstee = 1>>
<</if>>
<<set $burst = 0>>

<<if $week == 30>>
	<<set $fcnn.push("...is where I'll be when the bombs hit. Survival is my first...")>>
	<<set $fcnn.push("...time to prepare for major shortages is now, since there's no likelihood...")>>
	<<set $fcnn.push("...construction of shelters accelerated last quarter, due to fears...")>>
	<<set $fcnn.push("...major drought across the entire hemisphere shows no signs of...")>>
	<<set $fcnn.push("...medical organization offered no explanation, stating that...")>>
<<elseif $week == 50>>
	<<set $fcnn.push("...tested a thermonuclear device of some five megatons last night...")>>
	<<set $fcnn.push("...heavy fighting for the third week in the capital city of...")>>
	<<set $fcnn.push("...economic recovery looking increasingly unlikely in the event of...")>>
	<<set $fcnn.push("...complete exhaustion of safe water reserves across...")>>
	<<set $fcnn.push("...climate refugees streamed across the border despite...")>>
<<elseif $week == 70>>
	<<set $fcnn.push("...second low-order nuclear detonation in the city of...")>>
	<<set $fcnn.push("...total societal collapse induced by rising sea levels declared today in...")>>
	<<set $fcnn.push("...likelihood of containing Influenza-M was downgraded to a lower...")>>
	<<set $fcnn.push("...threatened immediate use of chemical weapons should those forces not withdraw...")>>
	<<set $fcnn.push("...relief organizations unable to deal with casualties from nuclear exchange between...")>>
<<elseif $week == 90>>
	<<set $fcnn = ["FCNN service has been temporarily suspended. Please stand by."]>>
<</if>>

<<if $secExp == 1>>
	<<include "attackGenerator">>
<</if>>

<<if $rivalOwner == -1>>
	<<goto "P rival initiation">>
<<elseif $slaveRebellion == 1 && $secExp == 1>>
	<<goto "rebellionOptions">>
<<elseif $citizenRebellion == 1 && $secExp == 1>>
	<<goto "rebellionOptions">>
<<elseif $attackThisWeek == 1 && $secExp == 1>>
	<<goto "attackOptions">>
<<elseif $PC.labor == 1>>
	<<goto "SE Player Birth">>
<<elseif ($independenceDay == 1) && (Math.trunc(($week-23)/52) == ($week-23)/52)>>
	<<goto "SE independence day">>
<<elseif ($weddingPlanned > 0)>>
	<<set $seed = 0>>
	<<for $i = 0; $i < $slaves.length; $i++>>
	<<if ($slaves[$i].ID == $weddingSlaveID)>>
		<<set $activeSlave = $slaves[$i]>>
		<<set $seed = 1>>
		<<goto "SE wedding">>
	<</if>>
	<</for>>
	<<if $seed == 0>>
		<<set $weddingPlanned = 0, $cash += 10000>>
		<<goto "Scheduled Event">>
	<</if>>
<<elseif $playerBred == 1 && ($PC.preg == 0 || $PC.preg == -1)>>
	<<goto "P insemination">>
<<elseif ($retiree != 0)>>
	<<goto "SE retirement">>
<<elseif ($expiree != 0)>>
	<<goto "SE expiration">>
<<elseif ($burstee != 0)>>
	<<set $burst = 0>>
	<<goto "SE Burst">>
<<elseif ($slaveDeath != 0)>>
	<<set $slaveDeath = 0>>
	<<goto "SE Death">>
<<elseif ($birthee != 0)>>
	<<set $birthed = 0>>
	<<goto "SE Birth">>
<<elseif ($FCTVshow == 1)>>
    <<set $FCTVshow = 0, $activeSlave = 0>>
    <<goto "SE FCTV Shows">>
<<elseif ($recruiterEugenics == 0 and $recruiterProgress >= 13)>>
	<<goto "SE recruiter success">>
<<elseif ($recruiterEugenics == 1 and $recruiterProgress >= (13 + ($IntelligenceEugenicsSMR+$HeightEugenicsSMR+$FaceEugenicsSMR)*6))>>
	<<goto "SE recruiter success">>
<<elseif ($customSlaveOrdered == 1)>>
	<<goto "SE custom slave delivery">>
<<elseif ($huskSlaveOrdered == 1)>>
	<<goto "SE husk slave delivery">>
<<elseif ($Lurcher != 0) && ($CoursingAssociation != 0) && (Math.trunc($week/4) == ($week/4)) && ($coursed != 1)>>
	<<goto "SE coursing">>
<<elseif ($RaidingMercenaries != 0) && ($week > ($raided + 6))>>
	<<goto "SE raiding">>
<<elseif ((($fighterIDs.length > 1) && ($pitBG == 0)) || (($fighterIDs.length > 0) && ($Bodyguard != 0) && ($pitBG == 1))) && ($pitFought == 0)>>
	<<if $pitLethal == 1>><<goto "SE lethal pit">><<else>><<goto "SE nonlethal pit">><</if>>
<<elseif ($bioreactorPerfectedID != 0) && ($bioreactorsAnnounced != 1)>>
	<<goto "P bioreactor perfected">>
<<elseif ($TSS.schoolPresent == 1) && ($TSS.schoolProsperity <= -10)>>
	<<goto "RES Failure">>
<<elseif ($GRI.schoolPresent == 1) && ($GRI.schoolProsperity <= -10)>>
	<<goto "RES Failure">>
<<elseif ($SCP.schoolPresent == 1) && ($SCP.schoolProsperity <= -10)>>
	<<goto "RES Failure">>
<<elseif ($LDE.schoolPresent == 1) && ($LDE.schoolProsperity <= -10)>>
	<<goto "RES Failure">>
<<elseif ($TGA.schoolPresent == 1) && ($TGA.schoolProsperity <= -10)>>
	<<goto "RES Failure">>
<<elseif ($TCR.schoolPresent == 1) && ($TCR.schoolProsperity <= -10)>>
	<<goto "RES Failure">>
<<elseif ($TFS.schoolPresent == 1) && ($TFS.schoolProsperity <= -10)>>
	<<goto "RES Failure">>
<<elseif ($TFS.schoolPresent == 1) && ($organFarmUpgrade != 0) && ($TFS.farmUpgrade == 0)>>
	<<goto "TFS Farm Upgrade">>
<<elseif ($nicaea == 1) && ($organFarmUpgrade != 0) && ($TFS.farmUpgrade == 0)>>
	<<goto "TFS Farm Upgrade">>
<<elseif $arcologies[0].FSChattelReligionist != "unset">>
	<<if $nicaeaHeld == 1>>
		<<if $plot == 1>><<goto "Nonrandom Event">><<else>><<goto "Random Nonindividual Event">><</if>>
	<<elseif ($nicaeaAnnounceable == 1) && ($nicaeaAnnounced != 1)>>
		<<goto "SE nicaea announcement">>
	<<elseif $nicaeaPreparation == 1>>
		<<if $nicaeaInvolvement != 0>>
			<<goto "SE nicaea preparation">>
		<<else>>
			<<set $nicaeaPreparation = 0>>
			<<if $plot == 1>><<goto "Nonrandom Event">><<else>><<goto "Random Nonindividual Event">><</if>>
		<</if>>
	<<elseif $nicaeaInvolvement >= 0>>
		<<set $nicaeaRollA = random(-1,0), $nicaeaRollB = random(-1,0), $nicaeaRollC = random(-1,0)>>
		<<set $nicaeaFocus = either("owners", "slaves")>>
		<<set $nicaeaAssignment = either("whore", "serve the public", "please you")>>
		<<set $nicaeaAchievement = either("devotion", "trust", "slaves")>>
		<<goto "SE nicaea council">>
	<<else>>
		<<if $plot == 1>><<goto "Nonrandom Event">><<else>><<goto "Random Nonindividual Event">><</if>>
	<</if>>
<<elseif $plot == 1>>
	<<goto "Nonrandom Event">>
<<else>>
	<<goto "Random Nonindividual Event">>
<</if>>


code:
:: Schoolroom [nobr]

<<set $nextButton = "Back to Main", $nextLink = "Main", $returnTo = "Schoolroom", $showEncyclopedia = 1, $encyclopedia = "Schoolroom", $schoolroomSlaves = $SchlRiIDs.length>>
<<showallAssignmentFilter>>
<<if $schoolroomName != "the Schoolroom">>
	<<set $schoolroomNameCaps = $schoolroomName.replace("the ", "The ")>>
<</if>>
<<schoolAssignmentFilter>>
$schoolroomNameCaps is well-equipped, with wall screens to display lessons. These are currently
<<switch $schoolroomDecoration>>
<<case "Roman Revivalist">>
	showing the story of a famous Roman slave who sacrificed her life for the life of <<if def $PC.customTitle>>her $PC.customTitle<<elseif $PC.title != 0>>her master<<else>>her mistress<</if>>.
<<case "Aztec Revivalist">>
	showing the reenactment of a legendary story of a slave who ascended by offering her blood to the gods, and was granted eternal life.
<<case "Egyptian Revivalist">>
	showing an interpretation of Egyptian history that attributes many great monuments to the enlightened use slave labor.
<<case "Edo Revivalist">>
	showing an interpretation of Japanese cultural history that emphasizes a serf's duty to her social superiors.
<<case "Arabian Revivalist">>
	showing an interpretation of Arabian cultural history that focuses on thriving slave markets and vibrant harems.
<<case "Chinese Revivalist">>
	showing an interpretation of Chinese cultural history that focuses on concubinage, palace etiquette, and social order.
<<case "Chattel Religionist">>
	displaying a passage from the holy book that supports slavery.
<<case "Degradationist">>
	displaying a rote recitation of a slave's proper acceptance of her subhuman status.
<<case "Repopulation Focus">>
	reviewing a number a of sexual positions to accommodate a heavily pregnant girl.
<<case "Eugenics">>
	reviewing ways to better your owner's standing intermixed with exaggerated pregnancy horror stories focused on slave pregnancy.
<<case "Asset Expansionist">>
	reviewing techniques that allow two slaves with huge breasts to inspect and moisturize each others' hard to reach areas.
<<case "Transformation Fetishist">>
	offering a brief primer on surgical recovery, with practical techniques to make it quicker.
<<case "Gender Radicalist">>
	going over how to keep one's asspussy ready for intercourse at any time, including how to schedule regular enemata and pre-lubrication.
<<case "Gender Fundamentalist">>
	going over the trifecta that is the standard approach of sex slaves: a blowjob, followed by vaginal, finished with anal.
<<case "Physical Idealist">>
	offering a brief primer on the arcology's nutritional system which will allow slaves to double check their own protein intake.
<<case "Supremacist">>
	reviewing the scientific evidence for $arcologies[0].FSSupremacistRace superiority.
<<case "Subjugationist">>
	reviewing the scientific evidence for $arcologies[0].FSSubjugationistRace inferiority.
<<case "Paternalist">>
	reviewing a lesson on time-management skills, and the students are taking notes on their own tablets.
<<case "Pastoralist">>
	reviewing how to help fellow slaves with huge, lactating breasts.
<<case "Maturity Preferentialist">>
	going over daily sets of exercises designed to keep mature slaves' holes as tight as possible.
<<case "Youth Preferentialist">>
	reviewing social cues that young slaves who have been enslaved through their entire adulthood might not understand.
<<case "Body Purist">>
	offering a brief primer on the arcology's nutritional system which will allow slaves to double check their own caloric intake.
<<case "Slimness Enthusiast">>
	offering a brief primer on the arcology's nutritional system which will allow slaves to double check their own caloric intake.
<<case "Hedonistic">>
	exposing slaves to new, fascinating forms of pleasure; both for others and for themselves.
<<default>>
	reviewing the often complex subject of how to address citizens other that one's owner.
<</switch>>

<<if $schoolroomSlaves > 2>>
	$schoolroomNameCaps is busy with slaves, repeating their lessons out loud to drill the instruction home. A few girls are maintaining uncomfortable positions in the corner as punishment for poor work.
<<elseif $schoolroomSlaves > 0>>
	$schoolroomNameCaps sparsely populated, the few students repeating their lessons out loud to drill the instruction home. One girl is maintaining an uncomfortable position in the corner as punishment for poor work.
<<elseif $Schoolteacher != 0>>
	$Schoolteacher.slaveName is alone in $schoolroomName, and has nothing to do but work on her lesson plans.
<<else>>
	None of your slaves are learning in $schoolroomName.
	[[Decommission the schoolroom|Main][$schoolroom = 0, $schoolroomUpgradeSkills = 0, $schoolroomUpgradeLanguage = 0, $schoolroomUpgradeRemedial = 0, $schoolroomDecoration = "standard"]]
<</if>>

<<set _Tmult0 = Math.trunc($schoolroom*1000*$upgradeMultiplierArcology)>>

$schoolroomNameCaps has room to house $schoolroom slaves while they learn.
[[Expand the schoolroom|Schoolroom][$cash -= _Tmult0, $schoolroom += 5]] //Costs ¤_Tmult0//

<<if $schoolroomUpgradeSkills == 1>>
	$schoolroomNameCaps provides slaves with some intermediate skills, including a solid foundation in sex, efficient and safe prostitution, and the rudiments of courtesanship.
<<else>>
	<<set _Tmult1 = Math.trunc(10000*$upgradeMultiplierArcology)>>
	$schoolroomNameCaps inculcates the basic skills necessary to a sex slave. [[Upgrade the curriculum to cover some intermediate skills|Schoolroom][$cash -= _Tmult1, $schoolroomUpgradeSkills = 1]] //Costs ¤_Tmult1//
<</if>>

<<set _Tmult2 = Math.trunc(5000*$upgradeMultiplierArcology)>>
<<if $schoolroomUpgradeLanguage == 1>>
	$schoolroomNameCaps boasts state of the art linguistic interfaces that allow it to teach the basics of the arcology's lingua franca with increased success.
<<else>>
	$schoolroomNameCaps includes only basic language classes in its curriculum. [[Install advanced linguistic interfaces to efficiently teach the arcology's lingua franca|Schoolroom][$cash -= _Tmult2, $schoolroomUpgradeLanguage = 1]] //Costs ¤_Tmult2//
<</if>>

<<if $schoolroomUpgradeRemedial == 1>>
	$schoolroomNameCaps has been upgraded with advanced teaching tools to help even the stupidest slave learn at an acceptable pace. Intelligent slaves won't learn much faster as a result, but idiots will benefit a great deal.
<<else>>
	$schoolroomNameCaps teaches idiots using standard methods. [[Purchase specialized materials to help stupid slaves learn good|Schoolroom][$cash -= _Tmult2, $schoolroomUpgradeRemedial = 1]] //Costs ¤_Tmult2//
<</if>>

<<if $Schoolteacher != 0>>
	<<set $Flag = 2>>
	<<include "Slave Summary">>
<<else>>
	You do not have a slave serving as a Schoolteacher. [[Appoint one|Schoolteacher Select]]
<</if>>

<<if ($schoolroom <= $schoolroomSlaves)>>
	''$schoolroomNameCaps is full and cannot hold any more slaves''
<<elseif ($slaves.length > $schoolroomSlaves)>>
	<<link "''Send a slave to study in $schoolroomName''">>
		<<replace #ComingGoing>>
			<<resetAssignmentFilter>>
			<<set $Flag to 0>>
			<<include "Slave Summary">>
		<</replace>>
	<</link>>
<</if>>

<<if $schoolroomSlaves > 0>>
	| <<link "''Bring a slave out of $schoolroomName''">>
		<<replace #ComingGoing>>
			<<schoolAssignmentFilter>>
			<<set $Flag = 1>>
			<<include "Slave Summary">>
			<<resetAssignmentFilter>>
		<</replace>>
	<</link>>
<<else>>

//The classroom is empty for the moment.
//
<</if>>

<<assignmentFilter>>

	<<schoolAssignmentFilter>>
	<<set $Flag = 1>>
	<<include "Slave Summary">>
	<<resetAssignmentFilter>>

Rename $schoolroomName: <<textbox "$schoolroomName" $schoolroomName "Schoolroom">> //Use a noun or similar short phrase//


code:
:: Schoolroom Report [nobr]

<<SlaveSort $SchlRiIDs>>
<<set _DL = $SchlRiIDs.length, $schoolroomSlaves = _DL, _SL = $slaves.length, _idleBonus = 0, _FLsFetish = 0>>

<<if $schoolroomDecoration != "standard">>
	<<set _devBonus = 1>>
<<else>>
	<<set _devBonus = 0>>
<</if>>

<<if $Schoolteacher != 0>>
	<<set _FLs = $slaves.findIndex(function(s) { return s.ID == $Schoolteacher.ID; })>>

	<<if ($slaves[_FLs].health < -80)>>
		<<set $slaves[_FLs].health += 20>>
	<<elseif ($slaves[_FLs].health < -40)>>
		<<set $slaves[_FLs].health += 15>>
	<<elseif ($slaves[_FLs].health < 0)>>
		<<set $slaves[_FLs].health += 10>>
	<<elseif ($slaves[_FLs].health < 90)>>
		<<set $slaves[_FLs].health += 7>>
	<</if>>
	<<if ($slaves[_FLs].devotion <= 60)>>
		<<set $slaves[_FLs].devotion++>>
	<</if>>
	<<if ($slaves[_FLs].trust < -30)>>
		<<set $slaves[_FLs].trust++>>
	<</if>>
	<<set $slaves[_FLs].devotion += _devBonus>>
	<<if $slaves[_FLs].fetishStrength <= 95>>
		<<if $slaves[_FLs].fetish != "dom">>
			<<fetishChangeChance $slaves[_FLs]>>
			<<if $fetishChangeChance > random(0,100)>>
				<<set _FLsFetish = 1, $slaves[_FLs].fetishKnown = 1, $slaves[_FLs].fetish = "dom">>
			<</if>>
		<<elseif $slaves[_FLs].fetishKnown == 0>>
			<<set _FLsFetish = 1, $slaves[_FLs].fetishKnown = 1>>
		<<else>>
			<<set _FLsFetish = 2, $slaves[_FLs].fetishStrength += 4>>
		<</if>>
	<</if>>
	<<set $Schoolteacher = $slaves[_FLs]>>
	    $Schoolteacher.slaveName is serving as your Schoolteacher.<<if $Schoolteacher.relationship == -3 && $Schoolteacher.devotion > 50>> As your loving wife, she tries her best to teach her pupils how to please you.<</if>>
	<<if (_FLsFetish == 1)>>
		She's allowed and even expected to use her students for her own sexual gratification, and in their own way her students are complicit, offering sexual favors for an easier time in the classroom. Before long, she's running a hungry eye over the tits and asses of new trainees; she is now @@.lightcoral;more dominant.@@
	<<elseif (_FLsFetish == 2)>>
		Every new student in class is a new target for her personal educational attention. @@.lightsalmon;She becomes more dominant.@@
	<</if>>
	<<if setup.schoolteacherCareers.includes($Schoolteacher.career)>>
		She has experience with students and learning from her life before she was a slave, making her more effective.
	<</if>>
	<<if ($Schoolteacher.visualAge > 35)>>
		Her age earns her the respect of her students.
		<<set _idleBonus++>>
	<</if>>
	<<if ($Schoolteacher.intelligence > 0)>>
		She's intelligent enough to be a good teacher.
		<<set _idleBonus++>>
	<</if>>
	<<if ($Schoolteacher.intelligenceImplant == 1)>>
		Since she's educated herself, she understands her students.
		<<set _idleBonus++>>
	<</if>>
	<<if ($Schoolteacher.face > 40)>>
		Her students want to be just like their beautiful teacher.
		<<set _idleBonus++>>
	<</if>>
	<<for _dI = 0; _dI < _DL; _dI++>>
		<<set $i = $slaveIndices[$SchlRiIDs[_dI]]>>
		<<if $Schoolteacher.rivalryTarget == $slaves[$i].ID>>
			Ever since her <<if $Schoolteacher.rivalry == 1>>growing rival<<elseif $Schoolteacher.rivalry == 2>>rival<<elseif $Schoolteacher.rivalry == 3>>bitter rival<</if>>, was enrolled, she began stalking the classroom carrying a large paddle, much to $slaves[$i].slaveName's terror.
			<<set $slaves[$i].devotion -= 4, $slaves[$i].trust -= 4>>
			<<if random(1,100) > 35>>
				<<set $Schoolteacher.rivalry++, $slaves[_FLs].rivalry++, $slaves[$i].rivalry++>>
			<</if>>
		<<elseif $Schoolteacher.relationshipTarget == $slaves[$i].ID>>
			She dedicates most of her attention to her <<if $Schoolteacher.relationship == 1>>friend<<elseif $Schoolteacher.relationship == 2>>best friend<<elseif $Schoolteacher.relationship == 3>>friend with benefits<<elseif $Schoolteacher.relationship == 4>>lover<<elseif $Schoolteacher.relationship == 5>>slave wife<</if>>, $slaves[$i].slaveName, making sure she understands that day's lesson.
			<<set $slaves[$i].devotion += 2, $slaves[$i].trust += 2>>
		<<elseif $familyTesting == 1 && totalRelatives($slaves[$i]) > 0>>
			<<if $slaves[$i].mother == $Schoolteacher.ID || $slaves[$i].father == $Schoolteacher.ID>>
				She makes sure to spend extra time teaching her daughter, $slaves[$i].slaveName.
				<<set $slaves[$i].trust++>>
			<<elseif $slaves[$i].ID == $Schoolteacher.mother>>
				She makes sure to spend extra time teaching her mother, $slaves[$i].slaveName.
				<<set $slaves[$i].trust++>>
			<<elseif $slaves[$i].ID == $Schoolteacher.father>>
				She makes sure to spend extra time teaching her father, $slaves[$i].slaveName.
				<<set $slaves[$i].trust++>>
			<<elseif areSisters($slaves[$i], $Schoolteacher) == 1>>
				She makes sure to spend extra time teaching her twin sister, $slaves[$i].slaveName.
				<<set $slaves[$i].trust++>>
			<<elseif areSisters($slaves[$i], $Schoolteacher) == 2>>
				She makes sure to spend extra time teaching her sister, $slaves[$i].slaveName.
				<<set $slaves[$i].trust++>>
			<<elseif areSisters($slaves[$i], $Schoolteacher) == 3>>
				She makes sure to spend extra time teaching her half-sister, $slaves[$i].slaveName.
				<<set $slaves[$i].trust++>>
			<</if>>
		<<elseif $Schoolteacher.relationTarget == $slaves[$i].ID && $familyTesting == 0>>
			She makes sure to spend extra time teaching her $slaves[$i].relation, $slaves[$i].slaveName.
			<<set $slaves[$i].trust++>>
		<</if>>
	<</for>>
	<<if (_DL < $schoolroom)>>
		<<set _seed = random(1,10)+(($schoolroom-_DL)*(random(150,170)+(_idleBonus*10)))>>
		<<set $cash += _seed>>

    Since she doesn't have enough students to occupy all her time, $schoolroomName takes in citizens' slaves on a contract basis and she teaches them too, earning @@.yellowgreen;¤_seed.@@
	<</if>>
	<<if (_DL > 0)>>

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

<<if (_DL > 0)>>
	    <<if (_DL == 1)>>''There is one slave studying in $schoolroomName.''<<else>>''There are _DL slaves studying in $schoolroomName.''<</if>>
<</if>>

<<if ($Schoolteacher != 0)>>
	<<set $i = _FLs>> /* apply following SA passages to facility leader */
	<<if $showEWD != 0>>

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

			<<SlaveArt $slaves[_FLs] 0 0>>

		<</if>>
		/* 000-250-006 */
		''__@@.pink;$slaves[_FLs].slaveName@@__'' is serving as your Schoolteacher.

		<<include "SA chooses own clothes">>
		<<include "SA diet">>
		<<include "SA long term effects">>
		<<include "SA drugs">>
		<<include "SA relationships">>
		<<include "SA rivalries">>

<<include "SA devotion">>
	<<else>>
		<<silently>>
		<<include "SA chooses own clothes">>
		<<include "SA diet">>
		<<include "SA long term effects">>
		<<include "SA drugs">>
		<<include "SA relationships">>
		<<include "SA rivalries">>
		<<include "SA devotion">>
		<</silently>>
	<</if>>
	<<set $Schoolteacher = $slaves[_FLs]>>
<</if>>

<<set _restedSlaves = 0>>
<<for _dI = 0; _dI < _DL; _dI++>>
	<<set $i = $slaveIndices[$SchlRiIDs[_dI]]>>
	<<set $slaves[$i].devotion += _devBonus>>
	<<if ($slaves[$i].health < -80)>>
		<<set $slaves[$i].health += 20>>
	<<elseif ($slaves[$i].health < -40)>>
		<<set $slaves[$i].health += 10>>
	<<elseif ($slaves[$i].health < 0)>>
		<<set $slaves[$i].health += 7>>
	<<elseif ($slaves[$i].health < 90)>>
		<<set $slaves[$i].health += 3>>
	<</if>>
	/% Education done? Has to be here before we run the SA's or there will be double entries for slave %/
	<<if ($slaves[$i].intelligenceImplant == 1)>>
	<<if ($slaves[$i].voice == 0) || ($slaves[$i].accent <= 1) || (($schoolroomUpgradeLanguage == 0) && ($slaves[$i].accent <= 2))>>
	<<if ($slaves[$i].oralSkill > 30) || (($schoolroomUpgradeSkills == 0) && ($slaves[$i].oralSkill > 10))>>
	<<if ($slaves[$i].whoreSkill > 30) || (($schoolroomUpgradeSkills == 0) && ($slaves[$i].whoreSkill > 10))>>
	<<if ($slaves[$i].entertainSkill > 30) || (($schoolroomUpgradeSkills == 0) && ($slaves[$i].entertainSkill > 10))>>
	<<if ($slaves[$i].analSkill > 30) || (($schoolroomUpgradeSkills == 0) && ($slaves[$i].analSkill > 10))>>
	<<if ($slaves[$i].vaginalSkill > 30) || (($schoolroomUpgradeSkills == 0) && ($slaves[$i].vaginalSkill > 10)) || ($slaves[$i].vagina < 0)>>

''__@@.pink;$slaves[$i].slaveName@@__'' can learn little from further classes, so @@.yellow;her assignment has defaulted to rest.@@
		<<removeJob $slaves[$i] "learn in the schoolroom">>
		<<set _restedSlaves++, _dI--, _DL-->>
		<<continue>>
	<</if>>
	<</if>>
	<</if>>
	<</if>>
	<</if>>
	<</if>>
	<</if>>
	<<if $showEWD != 0>>

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

			<<SlaveArt $slaves[$i] 0 0>>

		<</if>>
		/* 000-250-006 */
		''__@@.pink;$slaves[$i].slaveName@@__''
		<<if $slaves[$i].choosesOwnAssignment == 2>>
			<<include "SA chooses own job">>
		<<else>>
			is studying in $schoolroomName.
		<</if>>

    She <<include "SA take classes">>

		<<include "SA chooses own clothes">>
		<<include "SA diet">>
		<<include "SA long term effects">>
		<<include "SA drugs">>
		<<include "SA relationships">>
		<<include "SA rivalries">>

<<include "SA devotion">>
	<<else>>
		<<silently>>
		<<include "SA chooses own job">>
		<<include "SA take classes">>
		<<include "SA chooses own clothes">>
		<<include "SA diet">>
		<<include "SA long term effects">>
		<<include "SA drugs">>
		<<include "SA relationships">>
		<<include "SA rivalries">>
		<<include "SA devotion">>
		<</silently>>
	<</if>>
<</for>>
<<if (_restedSlaves > 0)>>

	<<if (_restedSlaves == 1)>>
		One slave has
	<<else>>
		_restedSlaves slaves have
	<</if>>
	@@.green;learned@@ all they can, and will be released from the schoolroom before the end of the week.
<</if>>
<<if $schoolroomDecoration != "standard">>
	$schoolroomNameCaps's $schoolroomDecoration atmosphere @@.hotpink;has a minor impact on the students.@@
<</if>>
<<if _DL > 0 || $Schoolteacher != 0>>

<</if>>


code:
:: Schoolteacher Select [nobr]

<<set $nextButton = "Back", $nextLink = "Schoolroom", $showEncyclopedia = 1, $encyclopedia = "Schoolteacher">>
<<showallAssignmentFilter>>
<<if ($Schoolteacher != 0)>>
	''__@@.pink;<<SlaveFullName $Schoolteacher>>@@__'' is serving as your Schoolteacher.

She will help teach your slaves.
<<else>>
	You have not selected a Schoolteacher.
<</if>>

''Appoint a Schoolteacher from your devoted slaves:''

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

<<assignmentFilter>>

	<<showallAssignmentFilter>>
	<<include "Slave Summary">>
	<<resetAssignmentFilter>>


code:
:: Schoolteacher Workaround [silently]

<<if $Schoolteacher != 0>>
	<<removeJob $Schoolteacher "be the Schoolteacher">>
<</if>>
<<if $i > -1>>
	<<assignJob $slaves[$i] "be the Schoolteacher">>
	<<set $slaves[$i].livingRules = "luxurious">>
	<<set $Schoolteacher = $slaves[$i]>>
<</if>>

<<goto "Schoolroom">>