code:
:: Salon [nobr jump-from-safe]

<<set $nextButton = "Confirm changes", $nextLink = "Slave Interact", $encyclopedia = "The Auto Salon">>
<<set $AS = $activeSlave.ID>>
<<run App.Utils.setLocalPronouns(getSlave($AS))>>

<<if $showInches == 2>>
	<<set _oldHLength = Math.round(getSlave($AS).hLength/2.54), _newHLength = 0>>
<<else>>
	<<set _oldHLength = getSlave($AS).hLength, _newHLength = 0>>
<</if>>

The Auto Salon

	<<= getSlave($AS).slaveName>> is seated in the auto salon. $He is awaiting your artistic pleasure.

/* 000-250-006 */

	<<if $seeImages == 1>>
		<<if $imageChoice == 1>>

<<= SlaveArt(getSlave($AS), 3, 0)>>

		<<else>>

<<= SlaveArt(getSlave($AS), 3, 0)>>

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

/* 000-250-006 */

/* EYES */

Eyewear

<<if getBestVision(getSlave($AS)) === 0>>
	$He is blind, and
	<<if getSlave($AS).eyewear == "none">>
		has no eyewear.
	<<else>>
		is wearing <<= getSlave($AS).eyewear>>. [[Remove|Salon][getSlave($AS).eyewear = "none"]]
	<</if>>

		Give $him: [[Cosmetic glasses|Salon][getSlave($AS).eyewear = "glasses",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

<<elseif anyVisionEquals(getSlave($AS), 1)>>
	$He is nearsighted, and $he
	<<if getSlave($AS).eyewear == "none">>
		has no eyewear.
	<<else>>
		is wearing <<= getSlave($AS).eyewear>>. [[Remove|Salon][getSlave($AS).eyewear = "none"]]
	<</if>>

		Give $him: [[Cosmetic glasses|Salon][getSlave($AS).eyewear = "glasses",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		| [[Corrective glasses|Salon][getSlave($AS).eyewear = "corrective glasses",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		| [[Corrective contacts|Salon][getSlave($AS).eyewear = "corrective contacts",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		Nearsightedness will impede performance on some assignments.

<<else>>
	$His vision is normal, and $he
	<<if getSlave($AS).eyewear == "none">>
		has no eyewear.
	<<else>>
		is wearing <<= getSlave($AS).eyewear>>. [[Remove|Salon][getSlave($AS).eyewear = "none"]]
	<</if>>

		Give $him: [[Cosmetic glasses|Salon][getSlave($AS).eyewear = "glasses",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		| [[Blurring glasses|Salon][getSlave($AS).eyewear = "blurring glasses",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		| [[Blurring contacts|Salon][getSlave($AS).eyewear = "blurring contacts",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		Blurring options are annoying and impede performance on some assignments.

<</if>>

<<includeDOM App.Medicine.Modification.eyeSelector(getSlave($AS))>>

/* EARS */

Ears

	<<if getSlave($AS).earImplant == 1>>
		$He has artificial inner ear implants,
		<<if getSlave($AS).earwear == "none">>
			which are unobstructed.
		<<else>>
			and is wearing <<= getSlave($AS).earwear>>. [[Remove|Salon][getSlave($AS).earwear = "none"]]
		<</if>>
	<<elseif getSlave($AS).hears < -1>>
		$He is deaf, and
		<<if getSlave($AS).earwear == "none">>
			is wearing nothing on $his ears.
		<<else>>
			is wearing <<= getSlave($AS).earwear>>. [[Remove|Salon][getSlave($AS).earwear = "none"]]
		<</if>>
	<<elseif getSlave($AS).hears > -1>>
		$His hearing is normal, and $he
		<<if getSlave($AS).earwear == "none">>
			has nothing in $his ears.
		<<else>>
			is wearing <<= getSlave($AS).earwear>>. [[Remove|Salon][getSlave($AS).earwear = "none"]]
		<</if>>
	<<else>>
		$He is hearing impaired, and
		<<if getSlave($AS).earwear == "none">>
			wears nothing to correct or worsen this.
		<<else>>
			is wearing <<= getSlave($AS).earwear>>. [[Remove|Salon][getSlave($AS).earwear = "none"]]
		<</if>>
	<</if>>

		Give $him:
		[[Hearing aids|Salon][getSlave($AS).earwear = "hearing aids",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		| [[Muffling ear plugs|Salon][getSlave($AS).earwear = "muffling ear plugs",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		| [[Deafening ear plugs|Salon][getSlave($AS).earwear = "deafening ear plugs",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		Muffling options are annoying and impede performance on some assignments.

/*End ear check */

	<<if getSlave($AS).horn != "none">>
		$His <<= getSlave($AS).horn>> are <<= getSlave($AS).hornColor>>

			Set horn color:
				[[Black|Salon][getSlave($AS).hornColor = "black",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Blazing Red|Salon][getSlave($AS).hornColor = "blazing red",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Blue-Violet|Salon][getSlave($AS).hornColor = "blue-violet",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Blue|Salon][getSlave($AS).hornColor = "blue",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Brown|Salon][getSlave($AS).hornColor = "brown",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Burgundy|Salon][getSlave($AS).hornColor = "burgundy",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Copper|Salon][getSlave($AS).hornColor = "copper",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Dark Blue|Salon][getSlave($AS).hornColor = "dark blue",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Dark Brown|Salon][getSlave($AS).hornColor = "dark brown",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Dark Orchid|Salon][getSlave($AS).hornColor = "dark orchid",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Deep Red|Salon][getSlave($AS).hornColor = "deep red",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Golden|Salon][getSlave($AS).hornColor = "golden",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Green-yellow|Salon][getSlave($AS).hornColor = "green-yellow",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Green|Salon][getSlave($AS).hornColor = "green",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Grey|Salon][getSlave($AS).hornColor = "grey",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Jet Black|Salon][getSlave($AS).hornColor = "jet black",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Neon Blue|Salon][getSlave($AS).hornColor = "neon blue",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Neon Green|Salon][getSlave($AS).hornColor = "neon green",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Neon Pink|Salon][getSlave($AS).hornColor = "neon pink",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Pink|Salon][getSlave($AS).hornColor = "pink",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Ivory|Salon][getSlave($AS).hornColor = "ivory",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Purple|Salon][getSlave($AS).hornColor = "purple",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Red|Salon][getSlave($AS).hornColor = "red",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Sea Green|Salon][getSlave($AS).hornColor = "sea green",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[Silver|Salon][getSlave($AS).hornColor = "silver",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				| [[White|Salon][getSlave($AS).hornColor = "white",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

	<</if>>

/* HAIR */

Hair

/* MAKEUP */

Makeup

	<<= App.Desc.makeup(getSlave($AS))>>
	<<if getSlave($AS).makeup > 0>>
		[[Remove|Salon][getSlave($AS).makeup = 0,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
	<</if>>

	Apply makeup:
		[[Nice|Salon][getSlave($AS).makeup = 1,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		| [[Gorgeous|Salon][getSlave($AS).makeup = 2,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		| [[Slutty|Salon][getSlave($AS).makeup = 4,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		| [[Color-coordinate with hair|Salon][getSlave($AS).makeup = 3,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

		[[Neon|Salon][getSlave($AS).makeup = 5,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		| [[Neon, color-coordinate with hair|Salon][getSlave($AS).makeup = 6,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

		[[Metallic|Salon][getSlave($AS).makeup = 7,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		| [[Metallic, color-coordinate with hair|Salon][getSlave($AS).makeup = 8,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

/* NAILS */

	<<= App.Desc.nails(getSlave($AS))>>

	<<if hasAnyArms(getSlave($AS))>>

			Treat nails:
			[[Clip|Salon][getSlave($AS).nails = 0,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Extend|Salon][getSlave($AS).nails = 1,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Sharp, claw-like|Salon][getSlave($AS).nails = 3,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Bright, glittery|Salon][getSlave($AS).nails = 4,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Streetwalker-style|Salon][getSlave($AS).nails = 5,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Color-coordinate with hair|Salon][getSlave($AS).nails = 2,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

			[[Neon|Salon][getSlave($AS).nails = 6,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Neon, color-coordinate with hair|Salon][getSlave($AS).nails = 7,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

			[[Metallic|Salon][getSlave($AS).nails = 8,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Metallic, color-coordinate with hair|Salon][getSlave($AS).nails = 9,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

	<</if>>

/* SKIN */

Skin

	$His skin is <<= getSlave($AS).skin>>.

	<<if (setup.dyedSkins.includes(getSlave($AS).skin))>>
		[[Remove coloring|Salon][getSlave($AS).skin = getSlave($AS).origSkin,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
	<<elseif ((getSlave($AS).skin == "sun tanned") || (getSlave($AS).skin == "spray tanned"))>>
		[[Remove tanning|Salon][getSlave($AS).skin = getSlave($AS).origSkin,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
	<</if>>

<<if (!setup.dyedSkins.includes(getSlave($AS).skin))>>

		<<if (getSlave($AS).skin == "sun tanned" || getSlave($AS).skin == "spray tanned")>>
			$His skin tanning must be removed before any advanced procedure to change $his skin color.
		<<else>>
			Change skin tone:
			<<set _needsSpacers = 0>>
			<<if (skinToneLevel(getSlave($AS).skin) > 1)>>
				<<if _needsSpacers == 1>> | <</if>>
				[[Bleach|Salon][getSlave($AS).skin = changeSkinTone(getSlave($AS).skin, -2), cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				<<set _needsSpacers = 1>>
			<</if>>
			<<if (skinToneLevel(getSlave($AS).skin) > 8)>>
				<<if _needsSpacers == 1>> | <</if>>
				[[Lighten|Salon][getSlave($AS).skin = changeSkinTone(getSlave($AS).skin, -1), cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				<<set _needsSpacers = 1>>
			<</if>>
			<<if (skinToneLevel(getSlave($AS).skin) < 18)>>
				<<if _needsSpacers == 1>> | <</if>>
				[[Darken|Salon][getSlave($AS).skin = changeSkinTone(getSlave($AS).skin, 1), cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				<<set _needsSpacers = 1>>
			<</if>>
			<<if (skinToneLevel(getSlave($AS).skin) < 25)>>
				<<if _needsSpacers == 1>> | <</if>>
				[[Blacken|Salon][getSlave($AS).skin = changeSkinTone(getSlave($AS).skin, 2), cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				<<set _needsSpacers = 1>>
			<</if>>
		<</if>>

		<<set _needsSpacers = 0>>
		<<if (getSlave($AS).skin != "sun tanned")>>
			<<if (skinToneLevel(getSlave($AS).skin) < 6)>>
				$His skin is so light in color that any attempt at natural tanning is more likely to damage $his skin.
			<<elseif (skinToneLevel(getSlave($AS).skin) > 20)>>
				$His skin is so dark in color that any attempt at natural tanning is not likely to appear on $his skin.
			<<else>>
				[["Sun tan " + $his + " skin"|Salon][getSlave($AS).skin = "sun tanned", cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
				<<set _needsSpacers = 1>>
			<</if>>
		<</if>>
		<<if (getSlave($AS).skin != "spray tanned")>>
			<<if _needsSpacers == 1>> | <</if>>
			[["Spray tan " + $his + " skin"|Salon][getSlave($AS).skin = "spray tanned", cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		<</if>>

<</if>>

	Dye or paint:
	[[Blue|Salon][getSlave($AS).skin = "dyed blue",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
	| [[Camouflage|Salon][getSlave($AS).skin = "camouflage patterned",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
	| [[Gray|Salon][getSlave($AS).skin = "dyed gray",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
	| [[Green|Salon][getSlave($AS).skin = "dyed green",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
	| [[Pink|Salon][getSlave($AS).skin = "dyed pink",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
	| [[Red|Salon][getSlave($AS).skin = "dyed red",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
	| [[Tiger Stripes|Salon][getSlave($AS).skin = "tiger striped",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

/* MARKS */

	<<if (getSlave($AS).markings == "beauty mark")>>
		$He has a prominent mole on $his face, which
		<<if getSlave($AS).face > 40>>
			qualifies as a beauty mark and enhances $his attractiveness due to $his facial beauty.
		<<elseif getSlave($AS).face < -10>>
			makes $him even less attractive.
		<<else>>
			qualifies as a beauty mark since $he's pretty, having no significant impact on $his beauty.
		<</if>>
		[[Remove it|Salon][getSlave($AS).markings = "none",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
	<</if>>

	<<if (getSlave($AS).markings == "birthmark")>>
		$He has a large birthmark, which
		<<if getSlave($AS).prestige > 0 || getSlave($AS).porn.prestige > 1>>
			enhances $his attractiveness due to $his prestige.
		<<else>>
			detracts from $his attractiveness.
		<</if>>
		[[Bleach it|Salon][getSlave($AS).markings = "none",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
	<</if>>

Body hair

/* EYEBROW HAIR */

<<if getSlave($AS).eyebrowHStyle != "bald">>

		$His <<if getSlave($AS).eyebrowFullness != "natural">><<= getSlave($AS).eyebrowFullness>><<if getSlave($AS).eyebrowHStyle != "natural">>,<</if>> <</if>><<if getSlave($AS).eyebrowHStyle != "natural">><<= getSlave($AS).eyebrowHStyle>> <</if>> eyebrows
		<<if getSlave($AS).eyebrowHStyle == "shaved">>
			would be <<= getSlave($AS).eyebrowHColor>> if present.
		<<else>>
			are <<= getSlave($AS).eyebrowHColor>>.
		<</if>>
		<<if getSlave($AS).eyebrowHColor != getSlave($AS).hColor>>
			[[Match the hair?|Salon][getSlave($AS).eyebrowHColor = getSlave($AS).hColor,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		<</if>>

		Dye $his eyebrow hair:
			[[Auburn|Salon][getSlave($AS).eyebrowHColor = "auburn",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Black|Salon][getSlave($AS).eyebrowHColor = "black",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Blazing Red|Salon][getSlave($AS).eyebrowHColor = "blazing red",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Blonde|Salon][getSlave($AS).eyebrowHColor = "blonde",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Blue-Violet|Salon][getSlave($AS).eyebrowHColor = "blue-violet",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Blue|Salon][getSlave($AS).eyebrowHColor = "blue",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Brown|Salon][getSlave($AS).eyebrowHColor = "brown",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Burgundy|Salon][getSlave($AS).eyebrowHColor = "burgundy",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Chestnut|Salon][getSlave($AS).eyebrowHColor = "chestnut",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Chocolate|Salon][getSlave($AS).eyebrowHColor = "chocolate brown",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Copper|Salon][getSlave($AS).eyebrowHColor = "copper",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Dark Blue|Salon][getSlave($AS).eyebrowHColor = "dark blue",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Dark Brown|Salon][getSlave($AS).eyebrowHColor = "dark brown",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Dark Orchid|Salon][getSlave($AS).eyebrowHColor = "dark orchid",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Deep Red|Salon][getSlave($AS).eyebrowHColor = "deep red",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Ginger|Salon][getSlave($AS).eyebrowHColor = "ginger",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Golden|Salon][getSlave($AS).eyebrowHColor = "golden",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Green-yellow|Salon][getSlave($AS).eyebrowHColor = "green-yellow",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Green|Salon][getSlave($AS).eyebrowHColor = "green",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Grey|Salon][getSlave($AS).eyebrowHColor = "grey",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Hazel|Salon][getSlave($AS).eyebrowHColor = "hazel",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Jet Black|Salon][getSlave($AS).eyebrowHColor = "jet black",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Neon Blue|Salon][getSlave($AS).eyebrowHColor = "neon blue",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Neon Green|Salon][getSlave($AS).eyebrowHColor = "neon green",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Neon Pink|Salon][getSlave($AS).eyebrowHColor = "neon pink",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Pink|Salon][getSlave($AS).eyebrowHColor = "pink",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Platinum Blonde|Salon][getSlave($AS).eyebrowHColor = "platinum blonde",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Purple|Salon][getSlave($AS).eyebrowHColor = "purple",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Red|Salon][getSlave($AS).eyebrowHColor = "red",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Sea Green|Salon][getSlave($AS).eyebrowHColor = "sea green",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Silver|Salon][getSlave($AS).eyebrowHColor = "silver",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Strawberry-Blonde|Salon][getSlave($AS).eyebrowHColor = "strawberry-blonde",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[White|Salon][getSlave($AS).eyebrowHColor = "white",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

		Style $his eyebrow hair:
			[[Natural|Salon][getSlave($AS).eyebrowHStyle = "natural",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Curved|Salon][getSlave($AS).eyebrowHStyle = "curved",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Elongated|Salon][getSlave($AS).eyebrowHStyle = "elongated",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[High-Arched|Salon][getSlave($AS).eyebrowHStyle = "high-arched",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Rounded|Salon][getSlave($AS).eyebrowHStyle = "rounded",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Shaved|Salon][getSlave($AS).eyebrowHStyle = "shaved",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Shortened|Salon][getSlave($AS).eyebrowHStyle = "shortened",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Slanted Inwards|Salon][getSlave($AS).eyebrowHStyle = "slanted inwards",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Slanted Outwards|Salon][getSlave($AS).eyebrowHStyle = "slanted outwards",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Straight|Salon][getSlave($AS).eyebrowHStyle = "straight",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

		Shape $his eyebrow hair:
			[[Natural|Salon][getSlave($AS).eyebrowFullness = "natural",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Bushy|Salon][getSlave($AS).eyebrowFullness = "bushy",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Thick|Salon][getSlave($AS).eyebrowFullness = "thick",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Tapered|Salon][getSlave($AS).eyebrowFullness = "tapered",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Threaded|Salon][getSlave($AS).eyebrowFullness = "threaded",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Thin|Salon][getSlave($AS).eyebrowFullness = "thin",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Pencil-Thin|Salon][getSlave($AS).eyebrowFullness = "pencil-thin",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

<<else>>

		$His eyebrows are completely hairless.

<</if>>

/* PUBIC HAIR */

<<set _pubertyAge = Math.min(getSlave($AS).pubertyAgeXX, getSlave($AS).pubertyAgeXY)>>
<<if getSlave($AS).pubicHStyle != "bald" && getSlave($AS).pubicHStyle != "hairless" && getSlave($AS).physicalAge >= _pubertyAge-1>>

		$His
		<<if getSlave($AS).physicalAge < _pubertyAge>>
			wispy pubic hair, which is just starting to grow in,
		<<elseif getSlave($AS).pubicHStyle == "in a strip">>
			pubic hair, which is shaved into a strip,
		<<else>>
			<<= getSlave($AS).pubicHStyle>> pubic hair
		<</if>>
		<<if getSlave($AS).pubicHStyle == "waxed">>
			would be <<= getSlave($AS).pubicHColor>> if present.
		<<else>>
			is <<= getSlave($AS).pubicHColor>>.
		<</if>>
		<<if getSlave($AS).pubicHColor != getSlave($AS).hColor>>
			[[Match the curtains?|Salon][getSlave($AS).pubicHColor = getSlave($AS).hColor,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		<</if>>

		Dye $his pubic hair:
			[[Auburn|Salon][getSlave($AS).pubicHColor = "auburn",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Black|Salon][getSlave($AS).pubicHColor = "black",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Blazing Red|Salon][getSlave($AS).pubicHColor = "blazing red",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Blonde|Salon][getSlave($AS).pubicHColor = "blonde",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Blue-Violet|Salon][getSlave($AS).pubicHColor = "blue-violet",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Blue|Salon][getSlave($AS).pubicHColor = "blue",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Brown|Salon][getSlave($AS).pubicHColor = "brown",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Burgundy|Salon][getSlave($AS).pubicHColor = "burgundy",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Chestnut|Salon][getSlave($AS).pubicHColor = "chestnut",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Chocolate|Salon][getSlave($AS).pubicHColor = "chocolate brown",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Copper|Salon][getSlave($AS).pubicHColor = "copper",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Dark Blue|Salon][getSlave($AS).pubicHColor = "dark blue",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Dark Brown|Salon][getSlave($AS).pubicHColor = "dark brown",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Dark Orchid|Salon][getSlave($AS).pubicHColor = "dark orchid",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Deep Red|Salon][getSlave($AS).pubicHColor = "deep red",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Ginger|Salon][getSlave($AS).pubicHColor = "ginger",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Golden|Salon][getSlave($AS).pubicHColor = "golden",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Green-yellow|Salon][getSlave($AS).pubicHColor = "green-yellow",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Green|Salon][getSlave($AS).pubicHColor = "green",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Grey|Salon][getSlave($AS).pubicHColor = "grey",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Hazel|Salon][getSlave($AS).pubicHColor = "hazel",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Jet Black|Salon][getSlave($AS).pubicHColor = "jet black",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Neon Blue|Salon][getSlave($AS).pubicHColor = "neon blue",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Neon Green|Salon][getSlave($AS).pubicHColor = "neon green",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Neon Pink|Salon][getSlave($AS).pubicHColor = "neon pink",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Pink|Salon][getSlave($AS).pubicHColor = "pink",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Platinum Blonde|Salon][getSlave($AS).pubicHColor = "platinum blonde",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Purple|Salon][getSlave($AS).pubicHColor = "purple",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Red|Salon][getSlave($AS).pubicHColor = "red",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Sea Green|Salon][getSlave($AS).pubicHColor = "sea green",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Silver|Salon][getSlave($AS).pubicHColor = "silver",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Strawberry-Blonde|Salon][getSlave($AS).pubicHColor = "strawberry-blonde",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[White|Salon][getSlave($AS).pubicHColor = "white",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

		Style $his pubic hair:
			[[Waxed|Salon][getSlave($AS).pubicHStyle = "waxed",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Landing strip|Salon][getSlave($AS).pubicHStyle = "in a strip",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Neat|Salon][getSlave($AS).pubicHStyle = "neat",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Bushy in the front|Salon][getSlave($AS).pubicHStyle = "bushy in the front and neat in the rear",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Bushy|Salon][getSlave($AS).pubicHStyle = "bushy",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Very Bushy|Salon][getSlave($AS).pubicHStyle = "very bushy",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

<<else>>

		$His groin is completely hairless.

<</if>>

/* UNDERARM HAIR */

<<if getSlave($AS).underArmHStyle != "bald" && getSlave($AS).underArmHStyle != "hairless" && getSlave($AS).physicalAge >= _pubertyAge-1>>

		$His
		<<if getSlave($AS).physicalAge < _pubertyAge>>
			wispy underarm hair
		<<else>>
			<<= getSlave($AS).underArmHStyle>> underarm hair
		<</if>>
		<<if getSlave($AS).underArmHStyle == "waxed">>
			would be <<= getSlave($AS).underArmHColor>> if present.
		<<else>>
			is <<= getSlave($AS).underArmHColor>>.
		<</if>>
		<<if getSlave($AS).underArmHColor != getSlave($AS).hColor>>
			[[Match the hair?|Salon][getSlave($AS).underArmHColor = getSlave($AS).hColor,cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
		<</if>>

		Dye $his armpit hair:
			[[Auburn|Salon][getSlave($AS).underArmHColor = "auburn",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Black|Salon][getSlave($AS).underArmHColor = "black",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Blazing Red|Salon][getSlave($AS).underArmHColor = "blazing red",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Blonde|Salon][getSlave($AS).underArmHColor = "blonde",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Blue-Violet|Salon][getSlave($AS).underArmHColor = "blue-violet",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Blue|Salon][getSlave($AS).underArmHColor = "blue",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Brown|Salon][getSlave($AS).underArmHColor = "brown",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Burgundy|Salon][getSlave($AS).underArmHColor = "burgundy",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Chestnut|Salon][getSlave($AS).underArmHColor = "chestnut",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Chocolate|Salon][getSlave($AS).underArmHColor = "chocolate brown",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Copper|Salon][getSlave($AS).underArmHColor = "copper",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Dark Blue|Salon][getSlave($AS).underArmHColor = "dark blue",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Dark Brown|Salon][getSlave($AS).underArmHColor = "dark brown",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Dark Orchid|Salon][getSlave($AS).underArmHColor = "dark orchid",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Deep Red|Salon][getSlave($AS).underArmHColor = "deep red",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Ginger|Salon][getSlave($AS).underArmHColor = "ginger",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Golden|Salon][getSlave($AS).underArmHColor = "golden",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Green-yellow|Salon][getSlave($AS).underArmHColor = "green-yellow",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Green|Salon][getSlave($AS).underArmHColor = "green",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Grey|Salon][getSlave($AS).underArmHColor = "grey",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Hazel|Salon][getSlave($AS).underArmHColor = "hazel",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Jet Black|Salon][getSlave($AS).underArmHColor = "jet black",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Neon Blue|Salon][getSlave($AS).underArmHColor = "neon blue",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Neon Green|Salon][getSlave($AS).underArmHColor = "neon green",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Neon Pink|Salon][getSlave($AS).underArmHColor = "neon pink",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Pink|Salon][getSlave($AS).underArmHColor = "pink",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Platinum Blonde|Salon][getSlave($AS).underArmHColor = "platinum blonde",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Purple|Salon][getSlave($AS).underArmHColor = "purple",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Red|Salon][getSlave($AS).underArmHColor = "red",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Sea Green|Salon][getSlave($AS).underArmHColor = "sea green",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Silver|Salon][getSlave($AS).underArmHColor = "silver",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Strawberry-Blonde|Salon][getSlave($AS).underArmHColor = "strawberry-blonde",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[White|Salon][getSlave($AS).underArmHColor = "white",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

		Style $his armpit hair:
			[[Waxed|Salon][getSlave($AS).underArmHStyle = "waxed",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Shaved|Salon][getSlave($AS).underArmHStyle = "shaved",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Neat|Salon][getSlave($AS).underArmHStyle = "neat",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]
			| [[Bushy|Salon][getSlave($AS).underArmHStyle = "bushy",cashX(forceNeg($modCost), "slaveMod", getSlave($AS))]]

<<else>>

		$His underarms are completely hairless.

<</if>>


code:
:: Scheduled Event

<<if $expired == 1>>
	<<set $activeSlave = getSlave($expiree), $expiree = 0>>
	<<= removeActiveSlave() >>
	<<set _expireSlave = $slaves.find((s) => s.indenture === 0)>>
	<<if def _expireSlave>>
		<<set $expiree = _expireSlave.ID>>
	<</if>>
<</if>>
<<set $expired = 0>>

<<if $retired == 1>>
	<<set $activeSlave = getSlave($retiree), $retiree = 0>>
	<<= removeActiveSlave() >>
	<<set _retireSlave = $slaves.find((s) => retirementReady(s))>>
	<<if def _retireSlave>>
		<<set $retiree = _retireSlave.ID>>
	<</if>>
<</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 $TFS.schoolUpgrade == 3 && $TFS.compromiseWeek == $week-1>>
	<<set $fcnn.push("...Ladies: Do you want dick so much that you want to HAVE a dick? If yes, join the Futanari Sisters today! Learn more at...")>>
<</if>>
<<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...")>>
	<<set $fcnn.push("...just ahead, an FCNN Special Report: Immortality and You — Breakthroughs in 'Bodyswapping' technology and what they mean for...")>>
	<<set $fcnn.push("...wildfires have now cost an estimated...")>>
	<<set $fcnn.push("...widespread demonstrations against the government's friendly relations with the Free Cities...")>>
	<<set $fcnn.push("...of the small island nation, declared that his homeland may be completely underwater by...")>>
	<<set $fcnn.push("...claimed the sanctions constituted as an act of war...")>>
	<<set $fcnn.push("...nuclear weapons development program, drawing harsh criticism from international observers...")>>
	<<set $fcnn.push("...simply don't have the money to adequately respond to a natural disaster of this...")>>
	<<set $fcnn.push("...representatives announced their withdrawal from the international organization...")>>
	<<set $fcnn.push("...special report on the depopulation and abandonment of rural areas worldwide, as natural...")>>
<<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...")>>
	<<set $fcnn.push("...released a statement today, explaining their refusal to intervene against the pillaging of several Free Cities in northern...")>>
	<<set $fcnn.push("...denies allegations of ordering last week's combined arms assault on the arcology known as...")>>
	<<set $fcnn.push("...Coming up, an FCNN Special Report: Ghost Cities — The truth about recent surge of depopulated metropolitan areas in...")>>
	<<set $fcnn.push("...was assassinated in his home in the nation's capital, alongside his entire...")>>
	<<set $fcnn.push("...forces opened fire on crowds of protesters, killing and wounding...")>>
	<<set $fcnn.push("...declared the insurgency officially defeated, despite reports of widespread violence...")>>
	<<set $fcnn.push("...suspended national elections until further notice, in a move that is seen as yet another authoritarian...")>>
<<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...")>>
	<<set $fcnn.push("...guerrilla fighting intensifies in escalating proxy war between 'Paternalist' and 'Degradationist' Free Cities in the region of...")>>
	<<set $fcnn.push("...Coming up, an FCNN Special Report about the unprecedented scale of slave insurrections across...")>>
	<<set $fcnn.push("...invasive plant growth epidemic contested by persistent droughts in eastern...")>>
	<<set $fcnn.push("...Daughters of Liberty claimed responsibility for the attack...")>>
	<<set $fcnn.push("...mass suicide of the cult members, who believed that current events were prophesied...")>>
	<<set $fcnn.push("...genocide is a strong term, but there's simply no other way to describe...")>>
<<elseif $week == 90>>
	<<set $fcnn.push("...have enslaved the entire legislature, their leader personally sexually assaulting...")>>
	<<set $fcnn.push("...confirmed that the arcologies were subject to a nuclear detonation, but...")>>
	<<set $fcnn.push("...conflict can now be said to encompass the entire continent...")>>
	<<set $fcnn.push("...government has effectively fallen, with much of the capital destroyed...")>>
	<<set $fcnn.push("...deadliest in the nation's history, was allegedly committed by the Daughters of Liberty...")>>
	<<set $fcnn.push("...famine so devastating that confirmed reports of cannibalism are now...")>>
	<<set $fcnn.push("...dozens upon dozens of mass graves in what were once city parks...")>>
	<<set $fcnn.push("...evidence of a planned slave uprising, executed all of their arcology's several thousand...")>>
<</if>>

<<if $secExpEnabled > 0>>
	<<if $SecExp.settings.battle.enabled > 0>>
		<<include "attackGenerator">>
	<</if>>
<</if>>

<<if $rivalOwner == -1>>
	<<goto "P rival initiation">>
<<elseif $slaveRebellion == 1 && $secExpEnabled > 0>>
	<<goto "rebellionOptions">>
<<elseif $citizenRebellion == 1 && $secExpEnabled > 0>>
	<<goto "rebellionOptions">>
<<elseif $attackThisWeek == 1 && $secExpEnabled > 0>>
	<<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 _wedding = 0>>
	<<if ($weddingPlanned > 0)>>
		<<set _wedding = 1>>
		<<goto "SE wedding">>
	<</if>>
	<<if _wedding == 0>>
		<<set $weddingPlanned = 0, $marrying = []>>
		<<run cashX(10000, "event")>>
		<<goto "Scheduled Event">>
	<</if>>
<<elseif $playerBred == 1 && ($PC.preg == 0 || $PC.preg == -1) && $PC.pregWeek == 0 && $PC.vagina >= 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 $FCTV.receiver > 0 && $FCTV.pcViewership.frequency != -1 && $FCTV.pcViewership.count == 0>>
	<<if $week > 50 && $FCTV.remote < 2>> <<goto "SE FCTV Remote">>
	<<else>> <<goto "SE FCTV Watch">>
	<</if>>
<<elseif ($RecruiterID != 0 && $recruiterEugenics == 0 && $recruiterProgress >= 13)>>
	<<goto "SE recruiter success">>
<<elseif $RecruiterID != 0 && $recruiterEugenics == 1 && $recruiterProgress >= (13 + (policies.countEugenicsSMRs() * 6))>>
	<<goto "SE recruiter success">>
<<elseif ($customSlaveOrdered == 1 && $customSlaveOrderedReorder != 1)>>
	<<goto "SE custom slave delivery">>
<<elseif ($JFC.order == 1 && $JFC.reorder != 1)>>
	<<goto "JobFulfillmentCenterDelivery">>
<<elseif ($huskSlaveOrdered == 1)>>
	<<goto "SE husk slave delivery">>
<<elseif $LurcherID != 0 && $policies.coursingAssociation == 1 && (Math.trunc($week/4) == ($week/4)) && $coursed == 0>>
	<<goto "SE coursing">>
<<elseif $policies.raidingMercenaries == 1 && ($week > ($raided + 6))>>
	<<goto "SE raiding">>
<<elseif ((($fighterIDs.length > 1) && ($pitBG == 0)) || (($fighterIDs.length > 0) && ($BodyguardID != 0) && ($pitBG == 1)) || (($pitAnimal > 0) && ($fighterIDs.length > 0)) || ($killChoice == 2)) && ($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 ($HA.schoolPresent == 1) && ($HA.schoolProsperity <= -10)>>
	<<goto "RES Failure">>
<<elseif ($TCR.schoolPresent == 1) && ($TCR.schoolProsperity <= -10)>>
	<<goto "RES Failure">>
<<elseif ($NUL.schoolPresent == 1) && ($NUL.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">>

/* Nicaea */
<<elseif ($nicaea.held != 1) && ($arcologies[0].FSChattelReligionist != "unset") && ($nicaea.announceable == 1) && ($nicaea.announced != 1)>>
	<<goto "SE nicaea announcement">>
<<elseif ($nicaea.held != 1) && ($arcologies[0].FSChattelReligionist != "unset") && ($nicaea.preparation == 1)>>
	<<if $nicaea.involvement != 0>>
		<<goto "SE nicaea preparation">>
	<<else>>
		<<set $nicaea.preparation = 0>>
		<<if $plot == 1>><<goto "Nonrandom Event">><<else>><<goto "Random Nonindividual Event">><</if>>
	<</if>>
<<elseif ($nicaea.held != 1) && ($arcologies[0].FSChattelReligionist != "unset") && ($nicaea.involvement >= 0)>>
	<<set $nicaea.focus = either("owners", "slaves")>>
	<<set $nicaea.assignment = either("please you", "serve the public", "whore")>>
	<<set $nicaea.achievement = either("devotion", "slaves", "trust")>>
	<<goto "SE nicaea council">>
<<else>>
	<<set $JFC.reorder = "unset">>
	<<run delete $customSlaveOrderedReorder>>
	<<goto "Nonrandom Event">>
<</if>>

repo_name: NovX/fc

license: mit


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

<<set _DL = App.Entity.facilities.schoolroom.employeesIDs().size, $nextButton = "Back to Main", $nextLink = "Main", $returnTo = "Schoolroom", $encyclopedia = "Schoolroom">>

<<if $schoolroomName != "the Schoolroom">>
	<<set $schoolroomNameCaps = $schoolroomName.replace("the ", "The ")>>
<</if>>

	$schoolroomNameCaps is well-equipped, with wallscreens 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 her <<= properMaster()>>.
		<<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 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.
		<<case "Intellectual Dependency">>
			reviewing various sexual positions, and the students are practicing with each other.
		<<case "Slave Professionalism">>
			reviewing a complex lesson on social cues and when to act on them to better shift things in <<= properTitle()>>'s favor.
		<<case "Petite Admiration">>
			exploring methods to pleasure a partner far taller than oneself.
		<<case "Statuesque Glorification">>
			reviewing the reasons why tall individuals are widely considered more attractive.
		<<default>>
			reviewing the often complex subject of how to address citizens other that one's owner.
	<</switch>>

	<<if _DL > 2>>
		$schoolroomNameCaps is busy with slaves, repeating their lessons out loud to drill the instruction home. A few students are maintaining uncomfortable positions in the corner as punishment for poor work.
	<<elseif _DL > 0>>
		$schoolroomNameCaps is sparsely populated, the few students repeating their lessons out loud to drill the instruction home. One slave is maintaining an uncomfortable position in the corner as punishment for poor work.
	<<elseif _S.Schoolteacher>>
		<<setLocalPronouns _S.Schoolteacher>>
		_S.Schoolteacher.slaveName is alone in $schoolroomName, and has nothing to do but work on $his lesson plans.
	<<else>>
		None of your slaves are learning in $schoolroomName.

			[[Decommission the schoolroom|Main][$schoolroom = 0, $schoolroomUpgradeSkills = 0, $schoolroomUpgradeLanguage = 0, $schoolroomUpgradeRemedial = 0, $schoolroomRemodelBimbo = 0, $schoolroomDecoration = "standard"]]

	<</if>>

	<<set _Tmult0 = Math.trunc($schoolroom*1000*$upgradeMultiplierArcology)>>
	$schoolroomNameCaps has room to house $schoolroom slaves while they learn. There <<if _DL == 1>>is<<else>>are<</if>> currently _DL slave<<if _DL != 1>>s<</if>> learning in $schoolroomName.

		[[Expand the schoolroom|Schoolroom][cashX(forceNeg(_Tmult0), "capEx"), $schoolroom += 5, $PC.skill.engineering += .1]]

			Costs <<print cashFormat(_Tmult0)>>

		<<if _DL > 0>>
			<<includeDOM removeFacilityWorkers("schoolroom", "rest", "take classes")>>
		<</if>>

	<<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][cashX(forceNeg(_Tmult1), "capEx"), $schoolroomUpgradeSkills = 1]]

				Costs <<print cashFormat(_Tmult1)>>

	<</if>>

	<<set _Tmult2 = Math.trunc(5000*$upgradeMultiplierArcology*$HackingSkillMultiplier)>>
	<<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][cashX(forceNeg(_Tmult2), "capEx"), $schoolroomUpgradeLanguage = 1, $PC.skill.hacking += 0.1]]

				Costs <<print cashFormat(_Tmult2)>>

	<</if>>

	<<if $schoolroomRemodelBimbo == 1>>
		<<set _Tmult3 = Math.trunc(7500*$upgradeMultiplierArcology*$HackingSkillMultiplier)>>

			$schoolroomNameCaps is designed with moronic slaves in mind and seeks to dumb down slaves by providing them a confusing, contradictory education that retards decision making skills and undoes existing schooling. [[Restore the curriculum to the standard|Schoolroom][cashX(forceNeg(_Tmult3), "capEx"), $schoolroomRemodelBimbo = 0]]

				Costs <<print cashFormat(_Tmult3)>>

			<<if $schoolroomUpgradeRemedial == 1>>
				$schoolroomNameCaps has been upgraded with advanced teaching tools to help even the smartest slave learn at an acceptable pace. Dumb slaves won't learn much faster as a result, but smarties will benefit a great deal.
			<<else>>
				$schoolroomNameCaps teaches woefully smart slaves using its modified methods. [[Purchase specialized materials to help smart slaves get on the right track|Schoolroom][cashX(forceNeg(_Tmult2), "capEx"), $schoolroomUpgradeRemedial = 1]]

					Costs <<print cashFormat(_Tmult2)>>

			<</if>>

	<<else>>

			<<if $arcologies[0].FSIntellectualDependency > 80>>
				<<set _Tmult3 = Math.trunc(7500*$upgradeMultiplierArcology*$HackingSkillMultiplier)>>
				$schoolroomNameCaps is designed with intelligent slaves in mind and seeks to smarten slaves by providing them with an education.

					[[Redesign the curriculum to undo pesky educations and retard slaves while benefiting the most simple of minds|Schoolroom][cashX(forceNeg(_Tmult3), "capEx"), $schoolroomRemodelBimbo = 1]]

						Costs <<print cashFormat(_Tmult3)>>

			<</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][cashX(forceNeg(_Tmult2), "capEx"), $schoolroomUpgradeRemedial = 1]]

						Costs <<print cashFormat(_Tmult2)>>

			<</if>>

	<</if>>

	<<includeDOM App.UI.SlaveList.stdFacilityPage(App.Entity.facilities.schoolroom, true)>>

	Rename $schoolroomName: <<textbox "$schoolroomName" $schoolroomName "Schoolroom">>

		Use a noun or similar short phrase

<<run App.UI.SlaveList.ScrollPosition.restore()>>


code:
:: Schoolroom Report [nobr]

/* This passage probably isn't really necessary but it helps organize the profiler output.
 * TODO: Once all the facility reports look like this, we should probably get rid of these intermediate passages. */
<<includeDOM App.EndWeek.schoolroomReport()>>


code:
:: Schoolteacher Select [nobr jump-to-safe jump-hidden jump-from-safe]

<<set $nextButton = "Back", $nextLink = "Schoolroom", $encyclopedia = "Schoolteacher">>
<<if _S.Schoolteacher>>
	<<setLocalPronouns _S.Schoolteacher>>
	<<= SlaveFullName(_S.Schoolteacher)>> is serving as your Schoolteacher.

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

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

[[None|Schoolroom][removeJob(_S.Schoolteacher, "be the Schoolteacher")]]

<<includeDOM App.UI.SlaveList.facilityManagerSelection(App.Entity.facilities.schoolroom, "Schoolroom")>>


code:
:: SE Birth [nobr]

/*
Refactoring this passage. Main idea for structure:

1. Making all checks about where and how slave give birth (health too).
2. Showing scene (widget with preparations)
3. Make calculation of birth process. All live babies will be added to slave property .curBabies as array. They will be in it as long as slave not give next birth. Enough time for any processing.
4. Showing scene of birth based on calculation (broodmother and normal is merged in one scene, just with variations).
5. Dealing with babies — they are in separate array, no need to mess with mother .pregType or .preg now.
6. Setting up postpartum
7. Dealing with mother critical states.

I need to break single passage to several widgets, as it's been overcomplicated monster with too many nested if's — true horror for me. :) At least for testing and bugfixing time, later it can be merged back, if needed for processing speed up.

*/
<<set $nextButton = "Continue">>
<<set $nextLink = "Scheduled Event">>

<<if $legendaryWombID != 0>>
	<<set $legendaryWombID = 0>>
<</if>>

<<for $i = 0; $i < $slaves.length; $i++>>
	<<if $slaves[$i].labor == 1>>
		<<if ndef $slaves[$i].counter.laborCount>>
			<<set $slaves[$i].counter.laborCount = 0>>
			<<if $slaves[$i].counter.birthsTotal > 0 && $slaves[$i].counter.laborCount == 0>>
				<<set $slaves[$i].counter.laborCount = $slaves[$i].counter.birthsTotal>> /*we do not have a way to know multiples birth count for backward compatibility code. :( */
			<</if>>
		<</if>>
		<<set $dispositionId = _.uniqueId('babyDisposition-')>>
		Birth report: @@.coral;<<= SlaveFullName($slaves[$i])>>@@

		<<seBirthPreCheck>>
		<<seBirthPreScene>>
		<<if $slaveDead != 1>>
			<<seBirthCalc>>
			<<seBirthMainScene>>
			<<seBirthBabies>>
			<<seBirthPostpartum>>
			<<set $slaves[$i].counter.laborCount++>>
			<<seBirthCritical>>
		<<else>>
			<<set $activeSlave = $slaves[$i]>>
			<<= removeActiveSlave() >>
			<<set $slaveDead = 0>>
		<</if>>

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

<<set $reservedChildren = FetusGlobalReserveCount("incubator")>>
<<set $reservedChildrenNursery = FetusGlobalReserveCount("nursery")>>

<<set $birthee = 0>>
<<set $birthed = 0>>


code:
:: SE coursing [nobr]

<<set $nextButton = "Continue", $nextLink = "Scheduled Event", $returnTo = "Scheduled Event", $coursed = 1, _seed = 0>>

<<set _activeLurcher = getSlave($LurcherID)>>
<<setLocalPronouns _activeLurcher>>

/* 000-250-006 */
<<if $seeImages == 1>>
	<<set _clothesTemp = _activeLurcher.clothes, _activeLurcher.clothes = "no clothing">>
	<<if $imageChoice == 1>>

<<= SlaveArt(_activeLurcher, 2, 0)>>

	<<else>>

<<= SlaveArt(_activeLurcher, 2, 0)>>

	<</if>>
	<<set _activeLurcher.clothes = _clothesTemp>>
<</if>>
/* 000-250-006 */

It's time to go coursing. You meet with fellow members of the Coursing Association while the automated maintenance drones clear the plaza and lay down the green, sharing a refined discussion of recent events over <<if $PC.refreshmentType == 0>>a $PC.refreshment<<elseif $PC.refreshmentType == 1>>glasses of $PC.refreshment<<elseif $PC.refreshmentType == 2>>plates of $PC.refreshment<<elseif $PC.refreshmentType == 3>>hits of $PC.refreshment<<elseif $PC.refreshmentType == 4>>shots of $PC.refreshment<<elseif $PC.refreshmentType == 5>>handfuls of $PC.refreshment<<elseif $PC.refreshmentType == 6>>tabs of $PC.refreshment<</if>>. Once the field is ready, the day's hares are led out and chained in a row along one side of the plaza, naked. You and the other members watch this process intently, since you won't get any more information on them than what you can learn by looking.

The rules have been explained to the hares: they're to be freed if they can reach the other side of the plaza without being caught and raped by the lurchers who will be released to chase them.

You lead your lurcher _activeLurcher.slaveName out on a leash, naked just like the hares.

<<if (_activeLurcher.dick > 0)>>
	<<if canPenetrate(_activeLurcher) && (_activeLurcher.energy > 60) && (_activeLurcher.devotion > 20)>>
		<<if (_activeLurcher.dick > 4)>>
			$He's sporting an enormous half-erection, which has already been heavily lubricated to prevent permanent damage to the hares' holes. As you bring $him up to the mark, $he grabs its base and begins to slap it against $his thigh, hard. The hares look around to see what the wet smacking noise is, and are understandably frightened; one of them begins to beg openly. Your fellow competitors @@.green;think this is hilarious.@@
			<<run repX(250, "event", _activeLurcher)>>
			<<set $phallus = "huge dick">>
		<<else>>
			$He's ready to do $his best. Since $he's concentrating on the immediate challenge of catching rather than the secondary challenge of raping, $he isn't hard yet, but $he's not indifferent to the prospect of getting $his dick wet. There's a bead of precum forming at $his tip.
			<<set $phallus = "dick">>
		<</if>>
	<<elseif _activeLurcher.tail == "sex">>
		Although $his dick isn't really up to performing a sexual assault today, $his spade-tipped pleasure tail is sweeping back and forth and dripping lube. It's an unusual instrument for a lurcher, and one that @@.green;fascinates@@ the watching crowd of spectators.
		<<run repX(250, "event", _activeLurcher)>>
		<<set $phallus = "tail">>
	<<elseif !canAchieveErection(_activeLurcher)>>
		There's no way $he's going to be able to achieve an erection, so $he's holding a lubricated dildo in one hand. This is technically permitted under the rules, but your fellow competitors and the crowd gathering to spectate @@.red;consider it poor form.@@
		<<run repX(-50, "event", _activeLurcher)>>
		<<set $phallus = "dildo">>
	<<elseif (_activeLurcher.energy <= 60) || (_activeLurcher.devotion <= 20)>>
		$He looks nervous, and obviously doesn't find the situation arousing. $He knows $he's to catch and then rape a slave, but may not be able to get hard enough to do the deed properly. Your fellow competitors and the crowd gathering to spectate @@.red;are unimpressed@@ by $his lack of spirit.
		<<run repX(-50, "event", _activeLurcher)>>
		<<set $phallus = "fingers">>
	<<else>>
		$His dick is not a fit instrument for sexual assault, so $he's holding a lubricated dildo in one hand. This is technically permitted under the rules, but your fellow competitors and the crowd gathering to spectate @@.red;consider it poor form.@@
		<<run repX(-50, "event", _activeLurcher)>>
		<<set $phallus = "dildo">>
	<</if>>
<<elseif (_activeLurcher.clit > 1) && (_activeLurcher.energy > 60) && (_activeLurcher.devotion > 20)>>
	$He's gently masturbating as you bring $him up to the mark, $his enormous clit becoming engorged and stiff. Your fellow competitors and the gathering crowd of spectators @@.green;are fascinated,@@ realizing that $he intends to attempt rape with it.
	<<run repX(250, "event", _activeLurcher)>>
	<<set $phallus = "clit">>
<<elseif _activeLurcher.tail == "sex">>
	$His spade-tipped pleasure tail is sweeping back and forth and dripping lube, as if $he's already seeking a target for it. It's an unusual instrument for a lurcher, and one that @@.green;fascinates@@ the watching crowd of spectators.
	<<run repX(250, "event", _activeLurcher)>>
	<<set $phallus = "tail">>
<<elseif $seeDicks != 0>>
	$He's holding a lubricated dildo in one hand, since $he's missing a natural phallus of $his own. This is technically permitted under the rules, but your fellow competitors and the crowd gathering to spectate @@.red;consider it poor form.@@
	<<run repX(-50, "event", _activeLurcher)>>
	<<set $phallus = "dildo">>
<<else>>
	$He's holding a lubricated dildo in one hand. As you bring $him up to the mark, $he begins to slap it against $his thigh out of nervousness and eagerness to begin. The hares look around to see what the wet smacking noise is, and are understandably frightened; one of them begins to cry openly.
	<<set $phallus = "dildo">>
<</if>>

<<if canSee(_activeLurcher)>>_activeLurcher.slaveName looks at you questioningly, wondering which of the hares $he should try to chase down and molest<<else>>_activeLurcher.slaveName looks at you questioningly, wondering which of the dinging bells $he should try to chase down and molest<</if>>.

<<set $hare1 = 0, $hare2 = 0, $hare3 = 0>>

<<set _possibleOrigins = []>>
<<if $seeDicks != 100>>
	<<set _possibleOrigins.push("housewife")>>
	<<if $seePreg != 0>>
		<<set _possibleOrigins.push("heavily pregnant")>>
	<</if>>
	<<set _possibleOrigins.push("virgin")>>
	<<set _possibleOrigins.push("disobedient young")>>
<</if>>
<<if $seeDicks != 0>>
	<<set _possibleOrigins.push("huge balled")>>
	<<set _possibleOrigins.push("feminized")>>
	<<set _possibleOrigins.push("disobedient young dickgirl")>>
<</if>>

<<for _sec = 0; _sec < 3; _sec++>>

<<set $hareSpeed = 10>>
<<set $origin = _possibleOrigins.pluck()>> /* select random origin and remove from list to avoid using same origin multiple times */
<<if $origin == "virgin">>
	<<set $activeSlaveOneTimeMaxAge = 20>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XX")>>
	<<run generateSalonModifications($activeSlave)>>
	<<set $activeSlave.anus = 1>>
	<<set $activeSlave.vagina = 0>>
	<<set $activeSlave.counter.anal += 1, $analTotal += 1>>
	<<if $activeSlave.pubertyXX > 0>>
		<<set $activeSlave.preg = -1>>
	<</if>>
	<<set $activeSlave.ovaries = 1>>
	<<set $activeSlave.skill.vaginal = 0>>
	<<set $activeSlave.skill.oral = 0>>
	<<set $activeSlave.skill.anal = 0>>
	<<set $activeSlave.skill.whoring = 0>>
	<<set $activeSlave.weight = random(-50,50)>>
<<elseif $origin == "heavily pregnant">>
	<<set $activeSlaveOneTimeMinAge = $fertilityAge>>
	<<set $activeSlaveOneTimeMaxAge = 20>>
	<<set $one_time_age_overrides_pedo_mode = 1>> /% Old enough to be pregnant. %/
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XX")>>
	<<set $activeSlave.anus = 1>>
	<<set $activeSlave.vagina = 1>>
	<<set $activeSlave.counter.vaginal += 1, $vaginalTotal += 1>>
	<<set $activeSlave.preg = random(30,40)>>
	<<set $activeSlave.pregKnown = 1, $activeSlave.pregType = 1, $activeSlave.pregWeek = $activeSlave.preg>>
	<<run SetBellySize($activeSlave)>>
	<<set $activeSlave.ovaries = 1>>
	<<set $activeSlave.skill.vaginal = 0>>
	<<set $activeSlave.skill.oral = 0>>
	<<set $activeSlave.skill.anal = 0>>
	<<set $activeSlave.skill.whoring = 0>>
	<<set $activeSlave.weight = random(-20,100)>>
	<<set $activeSlave.career = setup.youngCareers.random()>>
<<elseif $origin == "housewife">>
	<<set $activeSlaveOneTimeMinAge = 35>>
	<<set $activeSlaveOneTimeMaxAge = 39>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XX")>>
	<<set $activeSlave.boobs += 800>>
	<<set $activeSlave.boobsImplant += 800>>
	<<set $activeSlave.boobsImplantType = "normal">>
	<<set $activeSlave.butt += 1>>
	<<set $activeSlave.buttImplant += 1>>
	<<set $activeSlave.buttImplantType = "normal">>
	<<set $activeSlave.face = 55>>
	<<set $activeSlave.faceImplant += 20>>
	<<set $activeSlave.anus = 1>>
	<<set $activeSlave.vagina = 1>>
	<<set $activeSlave.counter.anal += 1, $analTotal += 1>>
	<<set $activeSlave.preg = -1>>
	<<set $activeSlave.ovaries = 1>>
	<<set $activeSlave.skill.vaginal = 35>>
	<<set $activeSlave.skill.oral = 100>>
	<<set $activeSlave.skill.anal = 15>>
	<<set $activeSlave.skill.whoring = 35>>
	<<set $activeSlave.career = either("a housewife", "a trophy wife")>>
	<<set $activeSlave.weight = random(-50,100)>>
<<elseif $origin == "disobedient young">>
	<<set $activeSlaveOneTimeMaxAge = 25>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XX")>>
	<<run generateSalonModifications($activeSlave)>>
	<<set $activeSlave.anus = 1>>
	<<set $activeSlave.vagina = 1>>
	<<set $activeSlave.counter.anal += 1, $analTotal += 1>>
	<<if $activeSlave.pubertyXX > 0>>
		<<set $activeSlave.preg = -1>>
	<</if>>
	<<set $activeSlave.ovaries = 1>>
	<<set $activeSlave.skill.vaginal = 15>>
	<<set $activeSlave.skill.oral = 15>>
	<<set $activeSlave.skill.anal = 15>>
	<<set $activeSlave.skill.whoring = 15>>
	<<set $activeSlave.sexualFlaw = either("hates anal", "hates oral", "hates penetration", "idealistic")>>
	<<set $activeSlave.behavioralFlaw = either("arrogant", "bitchy", "hates men")>>
	<<set $activeSlave.energy = 10>>
	<<set $activeSlave.fetish = "none">>
	<<set $activeSlave.muscles = random(20,50)>>
	<<set $activeSlave.weight = random(-20,20)>>
<<elseif $origin == "disobedient young dickgirl">>
	<<set $activeSlaveOneTimeMaxAge = 25>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XY")>>
	<<run generateSalonModifications($activeSlave)>>
	<<set $activeSlave.anus = 2>>
	<<set $activeSlave.counter.anal += 1, $analTotal += 1>>
	<<set $activeSlave.dick = random(2,4)>>
	<<set $activeSlave.balls = random(2,4)>>
	<<set $activeSlave.skill.oral = 0>>
	<<set $activeSlave.skill.anal = 0>>
	<<set $activeSlave.skill.whoring = 0>>
	<<set $activeSlave.sexualFlaw = either("hates oral", "hates anal", "hates penetration")>>
	<<set $activeSlave.behavioralFlaw = either("arrogant", "bitchy", "hates men")>>
	<<set $activeSlave.attrXY = 0>>
	<<set $activeSlave.attrXX = 70>>
	<<set $activeSlave.fetish = "none">>
	<<set $activeSlave.muscles = random(20,50)>>
	<<set $activeSlave.weight = random(-20,50)>>
<<elseif $origin == "huge balled">>
	<<set $activeSlaveOneTimeMaxAge = 25>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XY")>>
	<<run generateSalonModifications($activeSlave)>>
	<<set $activeSlave.anus = 1>>
	<<set $activeSlave.counter.anal += 1, $analTotal += 1>>
	<<set $activeSlave.balls = 5>>
	<<set $activeSlave.scrotum = 5>>
	<<set $activeSlave.dick = random(3,5)>>
	<<set $activeSlave.skill.oral = 0>>
	<<set $activeSlave.skill.anal = 0>>
	<<set $activeSlave.skill.whoring = 0>>
	<<set $activeSlave.weight = random(-50,100)>>
<<elseif $origin == "feminized">>
	<<set $activeSlaveOneTimeMaxAge = 25>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XY")>>
	<<run generateSalonModifications($activeSlave)>>
	<<set $activeSlave.boobs += 800>>
	<<set $activeSlave.boobsImplant += 800>>
	<<set $activeSlave.boobsImplantType = "fillable">>
	<<set $activeSlave.butt += 1>>
	<<set $activeSlave.buttImplant += 1>>
	<<set $activeSlave.buttImplantType = "normal">>
	<<set $activeSlave.face = Math.clamp($activeSlave.face+20,-100,100)>>
	<<set $activeSlave.faceImplant += 20>>
	<<set $activeSlave.anus = 3>>
	<<set $activeSlave.counter.anal += 1, $analTotal += 1>>
	<<set $activeSlave.balls = random(0,1)>>
	<<set $activeSlave.dick = random(1,2)>>
	<<set $activeSlave.skill.oral = 15>>
	<<set $activeSlave.skill.anal = 35>>
	<<set $activeSlave.skill.whoring = 15>>
	<<set $activeSlave.attrXY = 100>>
	<<set $activeSlave.attrXX = 0>>
	<<set $activeSlave.weight = random(-100,200)>>
<</if>>
<<setLocalPronouns $activeSlave 2>>
/* 000-250-006 */
<<if $seeImages && $seeReportImages>>

	<<= SlaveArt($activeSlave, 0, 0)>>

<</if>>
/* 000-250-006 */
<<if _sec == 0>>
	<<link "The first hare">>
		<<replace "#result">>
			<<set $activeSlave = clone($hare1), $origin = $origin1, $hareSpeed = $hareSpeed1>>
			<<include "SE coursing race">>
		<</replace>>
		<<replace "#art-frame">>
			<<set _clothesTemp = _activeLurcher.clothes, _activeLurcher.clothes = "no clothing">>
			<<if $activeSlave != 0>>
				<<set _clothesTemp2 = $activeSlave.clothes, $activeSlave.clothes = "no clothing">>
			<</if>>
			/* 000-250-006 */
			<<if $seeImages == 1>>

						<<= SlaveArt(_activeLurcher, 2, 0)>>

					<<if $activeSlave != 0>>

							<<= SlaveArt($activeSlave, 2, 0)>>

					<</if>>

			<</if>>
			/* 000-250-006 */
			<<set _activeLurcher.clothes = _clothesTemp>>
			<<if $activeSlave != 0>>
				<<set $activeSlave.clothes = _clothesTemp2>>
			<</if>>
			<<unset _activeLurcher>>
		<</replace>>
	<</link>>
<<elseif _sec == 1>>
	<<link "The second hare">>
		<<replace "#result">>
			<<set $activeSlave = clone($hare2), $origin = $origin2, $hareSpeed = $hareSpeed2>>
			<<set $hare2 = clone($hare1), $origin2 = $origin1, $hareSpeed2 = $hareSpeed1>>
			<<include "SE coursing race">>
		<</replace>>
		<<replace "#art-frame">>
			<<set _clothesTemp = _activeLurcher.clothes, _activeLurcher.clothes = "no clothing">>
			<<if $activeSlave != 0>>
				<<set _clothesTemp2 = $activeSlave.clothes, $activeSlave.clothes = "no clothing">>
			<</if>>
			/* 000-250-006 */
			<<if $seeImages == 1>>

						<<= SlaveArt(_activeLurcher, 2, 0)>>

					<<if $activeSlave != 0>>

							<<= SlaveArt($activeSlave, 2, 0)>>

					<</if>>

			<</if>>
			/* 000-250-006 */
			<<set _activeLurcher.clothes = _clothesTemp>>
			<<if $activeSlave != 0>>
				<<set $activeSlave.clothes = _clothesTemp2>>
			<</if>>
			<<unset _activeLurcher>>
		<</replace>>
	<</link>>
<<else>>
	<<link "The third and final hare">>
		<<replace "#result">>
			<<set $activeSlave = clone($hare3), $origin = $origin3, $hareSpeed = $hareSpeed3>>
			<<set $hare3 = clone($hare1), $origin3 = $origin1, $hareSpeed3 = $hareSpeed1>>
			<<include "SE coursing race">>
		<</replace>>
		<<replace "#art-frame">>
			<<set _clothesTemp = _activeLurcher.clothes, _activeLurcher.clothes = "no clothing">>
			<<if $activeSlave != 0>>
				<<set _clothesTemp2 = $activeSlave.clothes, $activeSlave.clothes = "no clothing">>
			<</if>>
			/* 000-250-006 */
			<<if $seeImages == 1>>

						<<= SlaveArt(_activeLurcher, 2, 0)>>

					<<if $activeSlave != 0>>

							<<= SlaveArt($activeSlave, 2, 0)>>

					<</if>>

			<</if>>
			/* 000-250-006 */
			<<set _activeLurcher.clothes = _clothesTemp>>
			<<if $activeSlave != 0>>
				<<set $activeSlave.clothes = _clothesTemp2>>
			<</if>>
			<<unset _activeLurcher>>
		<</replace>>
	<</link>>
<</if>>
<<if $origin == "virgin">>
	is an appealingly young $activeSlave.race _girl2, and has V symbols drawn over _his2 cunt and on _his2 lower back, in the interests of fairness. _He2's a @@.pink;double virgin.@@<<if !canSee(_activeLurcher)>> To accommodate your blind lurcher, a bell is fastened around _his2 neck.<</if>>
<<elseif $origin == "heavily pregnant">>
	is <<= addA($activeSlave.race)>> _girl2, young and healthy but @@.pink;heavily pregnant.@@ _He2's probably been selected to be a hare as a joke, or because someone hates _him2. <<if !canSee(_activeLurcher)>> To accommodate your blind lurcher, a bell is attached to _his2 popped navel.<</if>>
<<elseif $origin == "housewife">>
	is <<= addA($activeSlave.race)>> _woman2, no longer young, but attractive enough in a fake sort of way. _He2 has obviously been crying, and has probably been recently enslaved from a comfortable life, like that of a @@.pink;house<<= $wife>> or a trophy $wife.@@<<if !canSee(_activeLurcher)>> To accommodate your blind lurcher, a bell is fastened around _his2 neck.<</if>>
<<elseif $origin == "disobedient young">>
	is a fit young $activeSlave.race _girl2, and is far more watchful and alert than _his2 fellow hares. _He2 may be a @@.pink;disobedient slave@@ here because _he2 was difficult to train.<<if !canSee(_activeLurcher)>> To accommodate your blind lurcher, a bell is fastened around _his2 neck.<</if>>
<<elseif $origin == "disobedient young dickgirl">>
	is a strong young $activeSlave.race slave who retains _his2 cock and balls, and looks determined. Perhaps _he2's a @@.pink;resistant dickgirl@@ who's been difficult to turn into a good girl.<<if !canSee(_activeLurcher)>> To accommodate your blind lurcher, a bell is fastened around _his2 cock.<</if>>
<<elseif $origin == "huge balled">>
	is <<= addA($activeSlave.race)>> slave whose distinguishing characteristic is a dangling scrotum and a pair of @@.pink;huge balls.@@ This impediment bumps against _his2 thighs as _he2's made ready.<<if !canSee(_activeLurcher)>> To accommodate your blind lurcher, a bell is fastened around _his2 hefty testicles.<</if>>
<<elseif $origin == "feminized">>
	is <<= addA($activeSlave.race)>> bitch with a tiny dick who has been @@.pink;heavily feminized,@@ yet seems terrified and very new to slavery. _His2 fake tits and girly behavior must be from _his2 life before _he2 was a slave.<<if !canSee(_activeLurcher)>> To accommodate your blind lurcher, a bell is fastened around _his2 neck.<</if>>
<</if>>

<<set $activeSlave.origin = "Your lurcher " + _activeLurcher.slaveName + " caught $him coursing; $he was a " + $origin + " hare.">>
<<run setHealth($activeSlave, jsRandom(30,50))>>
<<set $activeSlave.devotion = random(-45,-25)>>
<<set $activeSlave.trust = random(-60,-75)>>
<<set $activeSlave.oldDevotion = $activeSlave.devotion>>

<<if $activeSlave.weight > 190>>
	_He2's practically all fat and no slave; _he2's half-expected to roll _his2 way to the finish like an overfed slutty bowling ball.
	<<set $hareSpeed -= 5>>
<<elseif $activeSlave.weight > 160>>
	_He2's a catastrophically fat slut of a slave, and may stand a better chance of getting away rolling than running.
	<<set $hareSpeed -= 3>>
<<elseif $activeSlave.weight > 95>>
	_He2's a ridiculously fat slut of a slave with plenty of flesh to grab on to; _his2 constant jiggling will be a sight to behold, however.
	<<set $hareSpeed -= 2>>
<<elseif $activeSlave.weight > 30>>
	_He2's chubby enough that _his2 weight will reduce _his2 speed.
	<<set $hareSpeed -= 1>>
<<elseif $activeSlave.weight < -95>>
	_He2's so skinny that it's not likely _he2's physically fit enough to be quick.
	<<set $hareSpeed -= 1>>
<</if>>
<<if $activeSlave.muscles > 50>>
	_He2's so heavily muscled that _he2's probably slower than _he2 would be if _he2 were merely fit.
	<<set $hareSpeed -= 1>>
<<elseif $activeSlave.muscles > 30>>
	_He2's quite toned, which will give _him2 an edge once _he2's up to speed.
	<<set $hareSpeed += 1>>
<<elseif $activeSlave.muscles <= 5>>
	_He2's soft, and _his2 legs show no sign of tone at all.
	<<set $hareSpeed -= 1>>
<</if>>
<<if $activeSlave.height >= 185>>
	_He2's tall enough that _his2 height will probably slow _him2 down.
	<<set $hareSpeed -= 1>>
<<elseif $activeSlave.height < 150>>
	_He2's short enough that _his2 short legs will probably slow _him2 down.
	<<set $hareSpeed -= 2>>
<</if>>
<<if $activeSlave.boobs >= 2000>>
	_He2 has absurd tits that will destroy any chance _he2 has of getting away.
	<<set $hareSpeed -= 1>>
<<elseif $activeSlave.boobs >= 800>>
	_He2 has huge boobs that will make it painful for _him2 to run hard.
	<<set $hareSpeed -= 1>>
<</if>>
<<if $activeSlave.butt >= 6>>
	_He2 has a monstrous bottom that won't help _his2 gait.
	<<set $hareSpeed -= 1>>
<</if>>
<<if $activeSlave.dick >= 5>>
	_His2 big cock is going to bounce around cruelly.
	<<set $hareSpeed -= 1>>
<</if>>
<<if ($activeSlave.balls >= 5) && ($activeSlave.scrotum > 0)>>
	_His2 balls are likely to hurt badly enough, running naked, to slow _him2 down.
	<<set $hareSpeed -= 1>>
<</if>>
<<if $activeSlave.belly >= 60000>>
	_He2's so massively pregnant it'll be lucky if _he2 even makes it anywhere.
	<<set $hareSpeed -= 10>>
<<elseif $activeSlave.belly >= 10000>>
	_He2 pregnant belly will probably stop _him2 from running at all.
	<<set $hareSpeed -= 5>>
<<elseif $activeSlave.belly >= 5000>>
	_He2's visibly pregnant and likely to be cautious and unsure about running.
	<<set $hareSpeed -= 3>>
<<elseif $activeSlave.belly >= 1500>>
	There is a slight roundness to _his2 middle, likely an early pregnancy that will distract _him2.
	<<set $hareSpeed -= 1>>
<</if>>
<<if $activeSlave.health.tired > 90>>
	_He2 is obviously tired and will likely be a quick catch.
	<<set $hareSpeed -= 5>>
<<elseif $activeSlave.health.tired > 60>>
	_He2 seems to be rather tired, which will slow _him2 out of the gate.
	<<set $hareSpeed -= 2>>
<<elseif $activeSlave.health.tired > 30>>
	_He2 seems a little tired, which will slow _his2 acceleration.
	<<set $hareSpeed -= 1>>
<</if>>

<<if _sec == 0>>
	<<set $hare1 = $activeSlave>>
	<<set $origin1 = $origin>>
	<<set $hareSpeed1 = $hareSpeed>>
<<elseif _sec == 1>>
	<<set $hare2 = $activeSlave>>
	<<set $origin2 = $origin>>
	<<set $hareSpeed2 = $hareSpeed>>
<<else>>
	<<set $hare3 = $activeSlave>>
	<<set $origin3 = $origin>>
	<<set $hareSpeed3 = $hareSpeed>>
<</if>>

<</for>>