code:
:: Generate XY Slave [nobr]

<<BaseSlave>>
/% Defaults that differ from the old template %/
<<set WombInit($activeSlave)>>
<<set $activeSlave.genes = "XY", $activeSlave.hLength = 10, $activeSlave.prostate = 1, $activeSlave.canRecruit = 1>>

<<GenerateAge $activeSlave>>

<<if $activeSlave.ovaries == 1>>
	<<if $activeSlave.physicalAge >= $activeSlave.pubertyAgeXX>>
		<<set $activeSlave.pubertyXX = 1>>
	<<else>>
		<<set $activeSlave.pubertyXX = 0>>
	<</if>>
<<else>>
	<<set $activeSlave.pubertyXX = 0>>
<</if>>

<<set $activeSlave.ID = $IDNumber++>>
<<set $activeSlave.weekAcquired = $week>>

<<set $seed = random(1,100)>>
<<if $seed > 98>>
	<<set $activeSlave.intelligence = 3>>
<<elseif $seed > 85>>
	<<set $activeSlave.intelligence = 2>>
<<elseif $seed > 65>>
	<<set $activeSlave.intelligence = 1>>
<<elseif $seed > 35>>
	<<set $activeSlave.intelligence = 0>>
<<elseif $seed > 15>>
	<<set $activeSlave.intelligence = -1>>
<<elseif $seed > 5>>
	<<set $activeSlave.intelligence = -2>>
<<else>>
	<<set $activeSlave.intelligence = -3>>
<</if>>

<<if random(1,100) < 50+(20*$activeSlave.intelligence)>>
	<<set $activeSlave.intelligenceImplant = 1>>
<</if>>
<<if $AgePenalty == 1>>
	<<if ($activeSlave.actualAge < 16)>>
		<<set $activeSlave.career = setup.veryYoungCareers.random()>>
	<<elseif ($activeSlave.actualAge <= 24)>>
		<<set $activeSlave.career = setup.youngCareers.random()>>
	<<elseif ($activeSlave.intelligenceImplant == 1)>>
		<<set $activeSlave.career = setup.educatedCareers.random()>>
	<<else>>
		<<set $activeSlave.career = setup.uneducatedCareers.random()>>
	<</if>>
<<else>>
	<<if ($activeSlave.actualAge < 16)>>
		<<set $activeSlave.career = setup.veryYoungCareers.random()>>
	<<elseif ($activeSlave.intelligenceImplant == 1)>>
		<<set $activeSlave.career = setup.educatedCareers.random()>>
	<<elseif ($activeSlave.actualAge <= 24)>>
		<<set $activeSlave.career = setup.youngCareers.random()>>
	<<else>>
		<<set $activeSlave.career = setup.uneducatedCareers.random()>>
	<</if>>
<</if>>

<<set $activeSlave.vaginalSkill = 0>>
<<set $activeSlave.analSkill = random(0,15)>>
<<set $activeSlave.oralSkill = random(0,15)>>
<<set $activeSlave.entertainSkill = random(0,15)>>
<<set $activeSlave.whoreSkill = random(0,15)>>

<<set $activeSlave.energy = random(15,90)>>
<<RandomizeAttraction>>
<<set $activeSlave.fetishStrength = random(0,90)>>
<<set $activeSlave.fetish = either("none", "none", "none", "none", "none", "none", "none", "none", "none", "none", "none", "none", "none", "submissive", "cumslut", "humiliation", "buttslut", "buttslut", "boobs", "dom", "sadist", "masochist")>>

<<set $activeSlave.behavioralFlaw = either("none", "none", "none", "arrogant", "bitchy", "odd", "hates men", "hates men", "hates men", "hates women", "anorexic", "gluttonous", "devout", "liberated")>>
<<if ($activeSlave.behavioralFlaw == "devout")>>
	<<set $activeSlave.sexualFlaw = either("none", "repressed", "shamefast", "apathetic", "crude", "judgemental")>>
<<else>>
	<<set $activeSlave.sexualFlaw = either("none", "none", "none", "none", "hates oral", "hates anal", "hates anal", "repressed", "idealistic", "shamefast", "apathetic", "crude", "judgemental")>>
<</if>>
<<if ($activeSlave.behavioralFlaw == "none") && random(1,10) == 1>>
	<<set $activeSlave.behavioralQuirk = either("confident", "cutting", "funny", "adores women", "adores men", "fitness", "insecure", "sinful", "advocate")>>
<</if>>
<<if ($activeSlave.sexualFlaw == "none") && random(1,10) == 1>>
	<<set $activeSlave.sexualQuirk = either("gagfuck queen", "painal queen", "strugglefuck queen", "tease", "romantic", "perverted", "caring", "unflinching", "size queen")>>
<</if>>

<<set $activeSlave.health = random(-50,50)>>

<<set $activeSlave.devotion = random(-90,-60)>>
<<set $activeSlave.trust = random(-45,-25)>>

/% Begin height replacement section. %/
<<if ($activeSlave.physicalAge > random(0,100))>>
	<<set $activeSlave.eyes = -1>>
	<<if random(0,100) > 90>>
		<<set $activeSlave.eyes = -2>>
	<</if>>
<</if>>

/% Since we use nationality for height effects we need to initialize it now instead of later on like in vanilla Free Cities. %/
<<if $fixedRace == 0>>
	<<if $fixedNationality == 0>>
		<<set $activeSlave.nationality = hashChoice($nationalities)>>
	<<else>>
		<<set $activeSlave.nationality = $fixedNationality>>
		<<set $fixedNationality = 0>>
	<</if>>
	<<NationalityToRace $activeSlave>>
	/* Corporate slavegen with race selection */
	<<if passage() == "Corporate Market" && ($captureUpgradeRace != "unselected") && ($captureUpgradeRace != "none")>>
		<<if $captureUpgradeRace == "mixed race">>
			<<set $activeSlave.race = "mixed race">>
		<<else>>
			<<set _capUpgradeCheck = setup[$captureUpgradeRace.toLowerCase().replace(/[ -]/g, '')+'Nationalities']>>
			<<set _capUpgradeNationalities = []>>
			<<for _u = 0; _u < _capUpgradeCheck.length; _u++>>
				<<set _capNation = _capUpgradeCheck[_u]>>
				<<if _capNation in $nationalities>>
					<<set _capUpgradeNationalities.push(_capNation)>>
				<</if>>
			<</for>>
			<<if _capUpgradeNationalities.length > 0>>
				<<set $activeSlave.nationality = _capUpgradeNationalities.random(), $activeSlave.race = $captureUpgradeRace>>
			<<else>>
				<<set $activeSlave.nationality = _capUpgradeCheck.random(), $activeSlave.race = $captureUpgradeRace>>
			<</if>>
		<</if>>
		<<if $activeSlave.race != $captureUpgradeRace>>
			<<set $activeSlave.race = $captureUpgradeRace>>
		<</if>>
	<</if>>
	/* end Corporate slavegen with race selection */
<<else>>
	<<switch $fixedRace>>
	<<case "white">>
		<<set $activeSlave.nationality = setup.whiteNationalities.random()>>
	<<case "asian">>
		<<set $activeSlave.nationality = setup.asianNationalities.random()>>
	<<case "latina">>
		<<set $activeSlave.nationality = setup.latinaNationalities.random()>>
	<<case "black">>
		<<set $activeSlave.nationality = setup.blackNationalities.random()>>
	<<case "pacific islander">>
		<<set $activeSlave.nationality = setup.pacificislanderNationalities.random()>>
	<<case "southern european">>
		<<set $activeSlave.nationality = setup.southerneuropeanNationalities.random()>>
	<<case "amerindian">>
		<<set $activeSlave.nationality = setup.amerindianNationalities.random()>>
	<<case "semitic">>
		<<set $activeSlave.nationality = setup.semiticNationalities.random()>>
	<<case "middle eastern">>
		<<set $activeSlave.nationality = setup.middleeasternNationalities.random()>>
	<<case "indo-aryan">>
		<<set $activeSlave.nationality = setup.indoaryanNationalities.random()>>
	<<case "malay">>
		<<set $activeSlave.nationality = setup.malayNationalities.random()>>
	<<default>>
		<<set $activeSlave.nationality = hashChoice($nationalities)>>
	<</switch>>
	<<set $activeSlave.race = $fixedRace>>
	<<set $fixedRace = 0>>
<</if>>
<<NationalityToName $activeSlave>>
<<NationalityToAccent $activeSlave>>

<<set $activeSlave.height = Math.round(Height.random($activeSlave))>>
<<if $activeSlave.physicalAge <= 13>>
	<<if $activeSlave.height > Height.mean($activeSlave) * 170/172.5>>
		<<set $activeSlave.hips = either(-2, -1, -1, 0, 1)>>
		<<set $activeSlave.shoulders = either(-1, -1, 0, 0, 0, 1)>>
	<<else>>
		<<set $activeSlave.hips = either(-2, -2, -1, -1, 0)>>
		<<set $activeSlave.shoulders = either(-2, -1, -1, 0, 0, 1)>>
	<</if>>
<<else>>
	<<if $activeSlave.height >= Height.mean($activeSlave) * 170/172.5>>
		<<set $activeSlave.hips = either(-2, -1, -1, 0, 1)>>
		<<set $activeSlave.shoulders = either(-1, 0, 1, 1, 2, 2)>>
	<<else>>
		<<set $activeSlave.hips = either(-2, -2, -1, -1, 0)>>
		<<set $activeSlave.shoulders = either(-1, 0, 0, 1, 1, 2)>>
	<</if>>
<</if>>
/% End height replacement section. %/

<<set $activeSlave.weight = random(-100, 180)>>
<<if $activeSlave.physicalAge < 13>>
	<<set $activeSlave.waist = random(-15,25)>>
<<elseif ($activeSlave.weight < -30)>>
	<<set $activeSlave.waist = random(-45,45)>>
<<elseif ($activeSlave.weight <= 30)>>
	<<set $activeSlave.waist = random(-15,65)>>
<<elseif ($activeSlave.weight <= 160)>>
	<<set $activeSlave.waist = random(5,100)>>
<<else>>
	<<set $activeSlave.waist = random(50,100)>>
<</if>>

<<if ($activeSlave.intelligenceImplant == 1) && ($activeSlave.accent >= 3) && (3+$activeSlave.intelligence) > random(0,6)>>
	<<set $activeSlave.accent -= 1>>
<</if>>

<<set $seed = 4+$activeSlave.intelligence+$activeSlave.intelligenceImplant>>
<<if "American" == $activeSlave.nationality>>
	<<set $seed += 2>>
<<elseif ["Andorran", "Antiguan", "Argentinian", "Aruban", "Australian", "Austrian", "Bahamian", "Bahraini", "Barbadian", "Belarusian", "Belgian", "Bermudian", "Brazilian", "British", "Bruneian", "Bulgarian", "Canadian", "Catalan", "Chilean", "a Cook Islander", "Croatian", "Czech", "Cypriot", "Danish", "Dutch", "Emirati", "Estonian", "Finnish", "French", "German", "Greek", "Greenlandic", "Guamanian", "Hungarian", "Icelandic", "Irish", "Israeli", "Italian", "Japanese", "Kazakh", "Korean", "Kuwaiti", "Latvian", "a Liechtensteiner", "Lithuanian", "Luxembourgian", "Malaysian", "Maltese", "Mauritian", "Monégasque", "Montenegrin", "New Caledonian", "a New Zealander", "Niuean", "Norwegian", "Omani", "Palauan", "Panamanian", "Polish", "Portuguese", "Puerto Rican", "Qatari", "Romanian", "Russian", "Sammarinese", "Saudi", "Seychellois", "Singaporean", "Slovak", "Slovene", "Spanish", "Swedish", "Swiss", "Taiwanese", "Trinidadian", "Uruguayan", "Vatican"].includes($activeSlave.nationality)>>
<<else>>
	<<set $seed -= 2>>
<</if>>
<<if random(1,$seed) == 1>>
	<<set $activeSlave.teeth = "crooked">>
<</if>>

<<switch $activeSlave.race>>
<<case "black">>
	<<set $activeSlave.butt = either(1, 1, 2, 3)>>
	<<set $activeSlave.boobs = either(100, 200, 200, 300, 300, 400, 500)>>
	<<set $activeSlave.lips = random(5,30)>>
	<<set $activeSlave.skin = either("black", "dark brown", "brown")>>
	<<set $activeSlave.hColor = either("black", "black", "black", "brown")>>
	<<set $activeSlave.hStyle = either("neat", "crinkled")>>
<<case "white">>
	<<set $activeSlave.butt = either(1, 1, 2, 3)>>
	<<set $activeSlave.boobs = either(100, 200, 200, 300, 300, 400, 500)>>
	<<set $activeSlave.lips = random(5,25)>>
	<<if $activeSlave.nationality == "German">>
		<<set $activeSlave.skin = either("pale", "light", "fair")>>
		<<set $activeSlave.eyeColor = either("blue", "blue", "blue", "brown", "green")>>
		<<set $activeSlave.hColor = either("black", "blonde", "blonde", "blonde", "red", "brown")>>
	<<elseif $activeSlave.nationality == "Icelandic">>
		<<set $activeSlave.skin = either("pale", "pale", "light", "fair")>>
		<<set $activeSlave.eyeColor = either("blue", "blue", "blue", "brown", "green")>>
		<<set $activeSlave.hColor = either("black", "blonde", "blonde", "blonde", "red", "brown")>>
	<<elseif $activeSlave.nationality == "Irish">>
		<<set $activeSlave.skin = either("pale", "pale", "light", "fair")>>
		<<set $activeSlave.eyeColor = either("blue", "brown", "green", "green", "green")>>
		<<set $activeSlave.hColor = either("black", "blonde", "red", "red", "red", "brown")>>
	<<elseif $activeSlave.nationality == "Scottish">>
		<<set $activeSlave.skin = either("pale", "fair", "light", "fair")>>
		<<set $activeSlave.eyeColor = either("blue", "brown", "brown", "green", "green", "green")>>
		<<set $activeSlave.hColor = either("black", "black", "blonde", "red", "red", "red", "brown")>>
	<<else>>
		<<set $activeSlave.skin = either("pale", "light", "fair")>>
		<<set $activeSlave.eyeColor = either("blue", "brown", "green")>>
		<<set $activeSlave.hColor = either("black", "blonde", "red", "brown")>>
	<</if>>
	<<set $activeSlave.hStyle = "neat">>
<<case "latina">>
	<<set $activeSlave.butt = either(1, 1, 2, 3)>>
	<<set $activeSlave.boobs = either(100, 200, 200, 300, 300, 400, 500)>>
	<<set $activeSlave.lips = random(5,25)>>
	<<set $activeSlave.skin = either("light olive", "brown", "dark brown", "tanned", "dark olive")>>
	<<set $activeSlave.hColor = either("black", "black", "brown", "brown")>>
	<<set $activeSlave.hStyle = "neat">>
<<case "indo-aryan" "malay" "pacific islander" "amerindian">>
	<<set $activeSlave.butt = either(1, 1, 2, 3)>>
	<<set $activeSlave.boobs = either(100, 200, 200, 300, 300, 400, 500)>>
	<<set $activeSlave.lips = random(5,25)>>
	<<set $activeSlave.skin = either("dark", "light")>>
	<<set $activeSlave.hColor = either("black")>>
	<<set $activeSlave.hStyle = "neat">>
<<case "asian">>
	<<set $activeSlave.butt = either(1, 1, 2, 3)>>
	<<set $activeSlave.boobs = either(100, 200, 200, 300, 300, 400, 500)>>
	<<set $activeSlave.lips = random(5,25)>>
	<<set $activeSlave.skin = either("light olive", "dark olive", "light")>>
	<<set $activeSlave.hColor = either("black")>>
	<<set $activeSlave.hStyle = "neat">>
<<case "middle eastern" "semitic" "southern european">>
	<<set $activeSlave.butt = either(1, 1, 2, 3)>>
	<<set $activeSlave.boobs = either(100, 200, 200, 300, 300, 400, 500)>>
	<<set $activeSlave.lips = random(5,25)>>
	<<set $activeSlave.skin = either("fair", "light olive", "tanned", "light")>>
	<<set $activeSlave.hColor = either("black")>>
	<<set $activeSlave.hStyle = "neat">>
<<default>>
	<<set $activeSlave.butt = either(1, 1, 2, 3)>>
	<<set $activeSlave.boobs = either(100, 200, 200, 300, 300, 400, 500)>>
	<<set $activeSlave.lips = random(5,25)>>
	<<set $activeSlave.skin = either("pale", "dark", "light")>>
	<<set $activeSlave.hColor = either("black", "black", "black", "black", "brown", "brown", "blonde", "red")>>
	<<set $activeSlave.hStyle = "neat">>
<</switch>>
<<if $activeSlave.physicalAge > 55>>
	<<if random(1,100) > 40>>
		<<set $activeSlave.hStyle = "bald", $activeSlave.bald = 1>>
	<</if>>
<</if>>
<<if ($activeSlave.skin == "pale") || ($activeSlave.skin == "fair")>>
	<<if random(1,4) == 1>>
	<<set $activeSlave.markings = either("freckles", "freckles", "freckles", "heavily freckled", "beauty mark", "beauty mark", "birthmark", "birthmark")>>
	<</if>>
<<elseif random(1,8) == 1>>
	<<set $activeSlave.markings = either("beauty mark", "birthmark")>>
<</if>>

<<set $activeSlave.origEye = $activeSlave.eyeColor>>
<<set $activeSlave.origHColor = $activeSlave.hColor>>
<<set $activeSlave.origSkin = $activeSlave.skin>>
<<set $activeSlave.pubicHColor = $activeSlave.hColor>>
<<set $activeSlave.pubicHStyle = either("hairless", "bald", "bald", "waxed", "waxed", "waxed", "waxed", "waxed", "waxed", "in a strip", "in a strip", "in a strip", "neat", "neat", "neat", "neat", "neat", "neat", "bushy in the front and neat in the rear", "bushy in the front and neat in the rear", "bushy in the front and neat in the rear", "bushy", "bushy", "bushy", "bushy", "bushy", "bushy", "very bushy", "very bushy")>>
<<set $activeSlave.underArmHColor = $activeSlave.hColor>>
<<set $activeSlave.underArmHStyle = either("hairless", "bald", "bald", "waxed", "waxed", "waxed", "waxed", "shaved", "shaved", "shaved", "shaved", "shaved", "neat", "neat", "neat", "neat", "neat", "neat", "neat", "bushy", "bushy", "bushy", "bushy", "bushy")>>
<<if ($activeSlave.pubicHStyle == "hairless" || $activeSlave.underArmHStyle == "hairless") && random(1,100) > 40>>
	<<set $activeSlave.pubicHStyle = "hairless", $activeSlave.underArmHStyle = "hairless">>
<</if>>

<<if ($weightAffectsAssets != 0)>>
	<<if $activeSlave.weight < -10 && $activeSlave.butt > 1>>
		<<set $activeSlave.butt -= 1>>
	<<elseif $activeSlave.weight > 100 && $activeSlave.butt < 6>>
		<<set $activeSlave.butt += random(1,2)>>
	<<elseif $activeSlave.weight > 10 && $activeSlave.butt < 4>>
		<<set $activeSlave.butt += 1>>
	<</if>>

	<<if $activeSlave.weight < -10 && $activeSlave.boobs > 200>>
		<<set $activeSlave.boobs -= 100>>
	<<elseif $activeSlave.weight > 190 && $activeSlave.boobs < 3000>>
		<<set $activeSlave.boobs += (random(3,8)*100)>>
	<<elseif $activeSlave.weight > 160 && $activeSlave.boobs < 1500>>
		<<set $activeSlave.boobs += (random(2,6)*100)>>
	<<elseif $activeSlave.weight > 130 && $activeSlave.boobs < 1500>>
		<<set $activeSlave.boobs += (random(1,4)*100)>>
	<<elseif $activeSlave.weight > 95 && $activeSlave.boobs < 1200>>
		<<set $activeSlave.boobs += (random(1,3)*100)>>
	<<elseif $activeSlave.weight > 30 && $activeSlave.boobs < 1000>>
		<<set $activeSlave.boobs += 100>>
	<</if>>
<</if>>

<<set $seed = []>>
<<if $activeSlave.boobs > 250 && $activeSlave.boobs < 800>>
	<<set $seed.push("perky")>>
	<<set $seed.push("downward-facing")>>
<</if>>
<<if $activeSlave.boobs > 400 && $activeSlave.boobs < 1200>>
	<<set $seed.push("torpedo-shaped")>>
	<<set $seed.push("wide-set")>>
<</if>>
<<if $activeSlave.boobs > 800 && $activeSlave.physicalAge > random(10,50)>>
	<<set $seed.push("saggy")>>
<</if>>
<<if $seed.length == 1>>
	<<if random(1,2) != 1>>
	<<set $activeSlave.boobShape = $seed.random()>>
	<</if>>
<<elseif $seed.length > 1>>
	<<if random(1,3) != 1>>
	<<set $activeSlave.boobShape = $seed.random()>>
	<</if>>
<</if>>

<<if passage() != "Starting Girls">>
	<<set $activeSlave.earPiercing = either(0,0,0,1)>>
	<<set $activeSlave.nosePiercing = either(0,0,0,0,1)>>
	<<set $activeSlave.eyebrowPiercing = either(0,0,0,0,0,1)>>
	<<set $activeSlave.dickPiercing = either(0,0,0,0,0,1)>>
	<<set $activeSlave.lipsPiercing = either(0,0,0,0,0,1)>>
	<<set $activeSlave.navelPiercing = either(0,0,0,0,1)>>
	<<set $activeSlave.nipplesPiercing = either(0,0,0,0,1)>>
<</if>>

<<set $activeSlave.face = random(-70,20)>>
<<if random(0,2) == 1>><<set $activeSlave.face = random(-40,-10)>><</if>>
<<if $activeSlave.physicalAge > 40>>
	<<set $activeSlave.face -= random(0,20)>>
<<elseif $activeSlave.physicalAge > 35>>
	<<set $activeSlave.face -= random(0,10)>>
<<elseif $activeSlave.physicalAge <= 20>>
	<<set $activeSlave.face += random(0,20)>>
<<elseif $activeSlave.physicalAge <= 25>>
	<<set $activeSlave.face += random(0,10)>>
<</if>>
<<if $activeSlave.physicalAge >= 17>>
	<<set $activeSlave.faceShape = either("masculine", "masculine", "masculine", "androgynous")>>
<<elseif $activeSlave.physicalAge >= 15>>
	<<set $activeSlave.faceShape = either("masculine", "masculine", "masculine", "masculine", "masculine", "masculine", "masculine", "masculine", "androgynous", "sensual", "exotic", "normal")>>
<<elseif $activeSlave.physicalAge >= 13>>
	<<set $activeSlave.faceShape = either("masculine", "masculine", "masculine", "androgynous", "cute", "sensual", "exotic", "normal")>>
<<elseif $activeSlave.physicalAge >= 11>>
	<<set $activeSlave.faceShape = either("masculine", "androgynous", "cute", "sensual", "exotic", "normal", "normal")>>
<<else>>
	<<set $activeSlave.faceShape = either("androgynous", "androgynous", "cute", "cute", "sensual", "exotic", "normal", "normal")>>
<</if>>
<<switch $activeSlave.faceShape>>
<<case "sensual" "cute">>
	<<set $activeSlave.face += random(0,20)>>
<<case "exotic" "androgynous">>
	<<set $activeSlave.face += random(-10,10)>>
<<case "masculine">>
	<<set $activeSlave.face += random(-10,0)>>
<</switch>>

<<if $activeSlave.boobs < 250>>
	<<set $activeSlave.nipples = either("tiny", "tiny", "tiny", "tiny", "cute", "cute", "puffy", "partially inverted")>>
<<elseif $activeSlave.boobs < 500>>
	<<set $activeSlave.nipples = either("tiny", "cute", "cute", "cute", "puffy", "partially inverted")>>
<<elseif $activeSlave.boobs < 1000>>
	<<set $activeSlave.nipples = either("tiny", "cute", "cute", "cute", "puffy", "puffy", "partially inverted", "inverted")>>
<<else>>
	<<set $activeSlave.nipples = either("cute", "puffy", "partially inverted", "inverted", "huge")>>
<</if>>

<<set $activeSlave.vagina = -1>>
<<set $activeSlave.clit = 0>>
<<set $activeSlave.preg = 0>>

<<set $activeSlave.dick = either(1, 2, 2, 2, 3, 3, 3, 4, 4, 5)>>
<<if $seeExtreme == 1>>
	<<set $activeSlave.balls = either(0, 1, 2, 2, 2, 3, 3, 3, 4, 4, 5)>>
<<else>>
	<<set $activeSlave.balls = either(1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 5)>>
<</if>>
<<set $activeSlave.scrotum = $activeSlave.balls>>

<<if $activeSlave.balls > 0>>
	<<if $activeSlave.physicalAge >= $activeSlave.pubertyAgeXY>>
		<<set $activeSlave.pubertyXY = 1>>
	<<else>>
		<<set $activeSlave.pubertyXY = 0>>
	<</if>>
<<else>>
	<<set $activeSlave.pubertyXY = 0>>
<</if>>

/% Begin circumcision rate replacement section. %/
/% The default rate of 50% is wildly unrepresentative, and there is extreme regional variation. %/
/%
 What we want is the prevalence among newborns, since this game
 happens about 20 years in the future, but we'll use this lacking
 something better.
 https://pophealthmetrics.biomedcentral.com/articles/10.1186/s12963-016-0073-5
 Right now we mostly just break it down by country.
 It would be better to break it down by both country
 and race if statistics are available.
%/
<<if ($seeCircumcision == 0)>>
	<<set $activeSlave.foreskin = $activeSlave.dick + random(0,1)>>
<<else>>
	/% Temporarily use activeSlave.foreskin to store the chance of circumcision. %/
	<<switch $activeSlave.nationality>>
	<<case "Afghan" "Iranian" "Moroccan" "Palestinian" "Sahrawi" "Tunisian">>
		<<set $activeSlave.foreskin = 100>>
	<<case "Comorian" "Gabonese" "Iraqi" "Jordanian" "Kurdish" "Mauritanian" "Nigerian" "Tajik" "Turkish" "Yemeni">>
		<<set $activeSlave.foreskin = 99>>
	<<case "Algerian" "Azerbaijani" "Liberian" "Maldivian">>
		<<set $activeSlave.foreskin = 98>>
	<<case "Djiboutian" "Eritrean" "Ivorian" "Libyan" "Saudi" "Uzbek">>
		<<set $activeSlave.foreskin = 97>>
	<<case "Nigerien" "Pakistani" "Sierra Leonean" "Turkmen" "Zairian">>
		<<set $activeSlave.foreskin = 96>>
	<<case "a Cook Islander" "Egyptian" "Gambian" "Guamanian" "Malagasy" "Nauruan" "Ni-Vanuatu" "Niuean" "Palauan" "Samoan" "a Solomon Islander" "Togolese" "Tongan" "Tuvaluan">>
		<<set $activeSlave.foreskin = 95>>
	<<case "Cameroonian" "Senegalese" "Somali">>
		<<set $activeSlave.foreskin = 94>>
	<<case "Bangladeshi" "Beninese" "Bissau-Guinean" "Indonesian" "Syrian">>
		<<set $activeSlave.foreskin = 93>>
	<<case "Ethiopian" "Filipina" "Ghanan" "Israeli" "Kosovan">>
		<<set $activeSlave.foreskin = 92>>
	<<case "Kenyan" "Kyrgyz">>
		<<set $activeSlave.foreskin = 91>>
	<<case "Burkinabé" "Omani">>
		<<set $activeSlave.foreskin = 88>>
	<<case "Equatoguinean">>
		<<set $activeSlave.foreskin = 87>>
	<<case "Kuwaiti" "Malian">>
		<<set $activeSlave.foreskin = 86>>
	<<case "Guinean">>
		<<set $activeSlave.foreskin = 84>>
	<<case "Bahraini">>
		<<set $activeSlave.foreskin = 81>>
	<<case "French Polynesian">>
		<<set $activeSlave.foreskin = 78>>
	<<case "American" "Qatari">>
		<<set $activeSlave.foreskin = 77>>
	<<case "Emirati">>
		<<set $activeSlave.foreskin = 76>>
	<<case "Chadian">>
		<<set $activeSlave.foreskin = 74>>
	<<case "Tanzanian">>
		<<set $activeSlave.foreskin = 72>>
	<<case "Congolese">>
		<<set $activeSlave.foreskin = 70>>
	<<case "Central African">>
		<<set $activeSlave.foreskin = 63>>
	<<case "Burundian" "Malaysian">>
		<<set $activeSlave.foreskin = 61>>
	<<case "Lebanese">>
		<<set $activeSlave.foreskin = 60>>
	<<case "Angolan">>
		<<set $activeSlave.foreskin = 58>>
	<<case "Fijian" "Kazakh">>
		<<set $activeSlave.foreskin = 56>>
	<<case "Bruneian" "Korean" "Mosotho">>
		/% Population-weighted average of South Korea and North Korea. %/
		<<set $activeSlave.foreskin = 52>>
	<<case "New Caledonian">>
		<<set $activeSlave.foreskin = 50>>
	<<case "Albanian">>
		<<set $activeSlave.foreskin = 48>>
	<<case "Mozambican">>
		<<set $activeSlave.foreskin = 47>>
	<<case "South African">>
		<<set $activeSlave.foreskin = 45>>
	<<case "Dominican">>
		<<set $activeSlave.foreskin = 43>>
	<<case "Bosnian">>
		<<set $activeSlave.foreskin = 42>>
	<<case "Sudanese">>
		<<set $activeSlave.foreskin = 39>>
	<<case "Mexican">>
		<<set $activeSlave.foreskin = 38>>
	<<case "Macedonian">>
		<<set $activeSlave.foreskin = 34>>
	<<case "a New Zealander">>
		<<set $activeSlave.foreskin = 33>>
	<<case "Canadian">>
		<<set $activeSlave.foreskin = 32>>
	<<case "Scottish">>
		<<set $activeSlave.foreskin = 28>>
	<<case "Australian" "Ugandan">>
		<<set $activeSlave.foreskin = 27>>
	<<case "Namibian">>
		<<set $activeSlave.foreskin = 26>>
	<<case "South Sudanese">>
		<<set $activeSlave.foreskin = 24>>
	<<case "Belgian" "Cypriot" "Thai">>
		<<set $activeSlave.foreskin = 23>>
	<<case "Malawian">>
		<<set $activeSlave.foreskin = 22>>
	<<case "British">>
		<<set $activeSlave.foreskin = 21>>
	<<case "Puerto Rican">>
		<<set $activeSlave.foreskin = 20>>
	<<case "Montenegrin">>
		<<set $activeSlave.foreskin = 19>>
	<<case "Mauritian">>
		<<set $activeSlave.foreskin = 17>>
	<<case "Motswana" "Singaporean" "Surinamese">>
		<<set $activeSlave.foreskin = 15>>
	<<case "Chinese" "French" "Indian" "Jamaican">>
		<<set $activeSlave.foreskin = 14>>
	<<case "Bulgarian" "Rwandan" "Zambian">>
		<<set $activeSlave.foreskin = 13>>
	<<case "French Guianan" "Guyanese" "Russian">>
		<<set $activeSlave.foreskin = 12>>
	<<case "German">>
		<<set $activeSlave.foreskin = 11>>
	<<case "Belarusian" "Georgian" "Papua New Guinean">>
		<<set $activeSlave.foreskin = 10>>
	<<case "Japanese" "Zimbabwean">>
		<<set $activeSlave.foreskin = 9>>
	<<case "Slovene" "Sri Lankan" "Swazi" "Taiwanese">>
		<<set $activeSlave.foreskin = 8>>
	<<case "Catalan" "Haitian" "Spanish">>
		<<set $activeSlave.foreskin = 7>>
	<<case "Austrian" "Dutch" "East Timorese" "Swiss" "Trinidadian">>
		<<set $activeSlave.foreskin = 6>>
	<<case "Danish" "Greek" "a Liechtensteiner" "Swedish">>
		<<set $activeSlave.foreskin = 5>>
	<<case "Burmese" "Cambodian" "Mongolian" "Nepalese" "Peruvian" "Serbian">>
		<<set $activeSlave.foreskin = 4>>
	<<case "Argentinian" "Italian" "Norwegian">>
		<<set $activeSlave.foreskin = 3>>
	<<case "Luxembourgian" "Tibetan" "Ukrainian" "Vincentian">>
		<<set $activeSlave.foreskin = 2>>
	<<case "Andorran" "Barbadian" "Bermudian" "Bhutanese" "Brazilian" "Croatian" "Finnish" "Hungarian" "Irish" "Moldovan" "Monégasque" "Panamanian" "Portuguese" "Seychellois" "Uruguayan">>
			<<set $activeSlave.foreskin = 1>>
	<<case "Antiguan" "Armenian" "Bahamian" "Belizean" "Bolivian" "Cape Verdean" "Chilean" "Colombian" "Costa Rican" "Cuban" "Czech" "Dominiquais" "Ecuadorian" "Estonian" "Greenlandic" "Grenadian" "Guatemalan" "Honduran" "I-Kiribati" "Icelandic" "Kittitian" "Laotian" "Latvian" "Lithuanian" "Maltese" "Marshallese" "Micronesian" "Nicaraguan" "Paraguayan" "Polish" "Romanian" "Saint Lucian" "Salvadoran" "Sammarinese" "São Toméan" "Slovak" "Vatican" "Venezuelan" "Vietnamese">>
		<<set $activeSlave.foreskin = 0>>
	<<default>>
		/% Some overlooked country, or possibly stateless. Use global average. %/
		<<set $activeSlave.foreskin = 38>>
	<</switch>>
	/% Second pass for minorities in other countries. %/
	<<if ($activeSlave.race == "middle eastern") && ($activeSlave.foreskin < 76)>>
		<<set $activeSlave.foreskin = 76>>
	<</if>>
	<<if ($activeSlave.race == "semitic") && ($activeSlave.foreskin < 90)>>
		<<set $activeSlave.foreskin = 90>>
	<</if>>
	/% Chance activeSlave.foreskin back to the normal meaning. %/
	<<if (random(0,99) < $activeSlave.foreskin)>>
		<<set $activeSlave.foreskin = 0>>
	<<else>>
		<<set $activeSlave.foreskin = $activeSlave.dick + random(0,1)>>
	<</if>>
<</if>>
/% End circumcision rate replacement section. %/
<<if $activeSlave.balls == 0>>
	<<if random(0,1) == 1 && $activeSlave.faceShape == "masculine">>
		<<set $activeSlave.faceShape = either("androgynous", "cute")>>
	<</if>>
<<else>>
	<<set $activeSlave.scrotum = $activeSlave.balls + either(0, 0, 1)>>
<</if>>

<<if $activeSlave.balls > 2>>
	<<set $activeSlave.voice = 1>>
<<elseif $activeSlave.balls > 0>>
	<<set $activeSlave.voice = either(1, 1, 2)>>
<<else>>
	<<set $activeSlave.voice = either(1, 2, 2)>>
<</if>>

<<if $activeSlave.attrXY > 0>>
	<<set $activeSlave.anus = either(0, 1, 2)>>
<<else>>
	<<set $activeSlave.anus = either(0, 0, 0, 1, 1, 2)>>
<</if>>
<<set $activeSlave.analArea = $activeSlave.anus + either(0, 0, 0, 1)>>

<<if $activeSlave.anus == 0>>
	<<set $activeSlave.analSkill = 0>>
<<elseif random(1,4) == 1>>
	<<set $activeSlave.anusTat = "bleached">>
<</if>>

/%pedoshit%/
<<if $activeSlave.physicalAge <= 13>>
	<<set $activeSlave.dick = either(1, 1, 1, 1, 2, 2, 2, 3)>>
	<<set $activeSlave.balls = either(0, 0, 1, 1, 1, 2, 2, 2, 2, 3, 3)>>
	<<set $activeSlave.scrotum = $activeSlave.balls>>
	<<set $activeSlave.anus = either(0, 0, 0, 0, 0, 1)>>
<<elseif $activeSlave.physicalAge <= 15>>
	<<set $activeSlave.dick = either(1, 1, 1, 2, 2, 2, 3)>>
	<<set $activeSlave.balls = either(0, 1, 1, 1, 2, 2, 2, 2, 3, 3, 4)>>
	<<set $activeSlave.scrotum = $activeSlave.balls>>
	<<set $activeSlave.anus = either(0, 0, 0, 0, 1, 1, 1)>>
<<elseif $activeSlave.physicalAge <= 17>>
	<<set $activeSlave.dick = either(1, 1, 2, 2, 3, 3)>>
	<<set $activeSlave.balls = either(0, 1, 1, 2, 2, 2, 3, 3, 3, 4, 5)>>
	<<set $activeSlave.scrotum = $activeSlave.balls>>
	<<set $activeSlave.anus = either(0, 0, 0, 1, 1, 1)>>
<</if>>

<<if ($activeSlave.physicalAge <= 13)>>
	<<set $activeSlave.butt = either(1, 1, 1, 2, 2, 3, 3, 4)>>
<</if>>

<<if ($activeSlave.physicalAge <= 11)>>
	<<set $activeSlave.voice = either(2, 2, 2, 3, 3, 3, 3, 3, 3)>>
<<elseif ($activeSlave.physicalAge <= 13)>>
	<<set $activeSlave.voice = either(1, 1, 2, 2, 2, 2, 2, 3, 3)>>
<<elseif ($activeSlave.physicalAge <= 16)>>
	<<set $activeSlave.voice = either(1, 1, 1, 2, 2, 2, 2, 2, 3)>>
<</if>>

<<if $activeSlave.actualAge >= 18 && random(1,100) < 3>>
	<<set $activeSlave.vasectomy = 1>>
<</if>>

<<if $activeSlave.physicalAge <= 3>>
	<<set $activeSlave.pregAdaptation = 10>>
<<else>>
	<<set $activeSlave.pregAdaptation = 20>>
<</if>>

<<if $activeSlave.fuckdoll > 0>>
	<<set $activeSlave.pronoun = "it", $activeSlave.possessivePronoun = "its", $activeSlave.possessive = "its", $activeSlave.object = "it", $activeSlave.objectReflexive = "itself", $activeSlave.noun = "toy">>
<<elseif $activeSlave.dick > 0 && $activeSlave.vagina == -1 && $diversePronouns == 1>>
	<<set $activeSlave.pronoun = "he", $activeSlave.possessivePronoun = "his", $activeSlave.possessive = "his", $activeSlave.object = "him", $activeSlave.objectReflexive = "himself", $activeSlave.noun = "boy">>
<<else>>
	<<set $activeSlave.pronoun = "she", $activeSlave.possessivePronoun = "hers", $activeSlave.possessive = "her", $activeSlave.object = "her", $activeSlave.objectReflexive = "herself", $activeSlave.noun = "girl">>
<</if>>

<<if passage() == "Slave Markets" && $slaveMarket == "corporate">>
	<<if ($captureUpgradeRace != "unselected") && ($captureUpgradeRace != "none")>>
	<<if $activeSlave.race != $captureUpgradeRace>>
		<<set $activeSlave.race = $captureUpgradeRace>>
	<</if>>
	<</if>>
<</if>>


code:
:: Growth Research Institute [nobr]

<<set $nextButton = "Back", $nextLink = "Buy Slaves", $returnTo = "Buy Slaves", $showEncyclopedia = 1, $encyclopedia = "Slave Schools">>
/* Multi-Purchase Support */
<<if ndef $newSlaves>><<set $newSlaves = []>><</if>>
<<if $newSlaves.length > 0>>
	<<set $nextButton = "Continue", $nextLink = "Bulk Slave Intro", $slaveMarket = "GRI", $returnTo = "Main", $newSlaveIndex = 0>>
<</if>>

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

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

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

<<GenerateMarketSlave "GRI">>
<<slaveCost $activeSlave>>
<<if $GRI.schoolSale != 0>>
	<<set $slaveCost = Math.trunc($slaveCost*0.5)>>
<<elseif $GRI.schoolUpgrade != 0>>
	<<set $slaveCost = Math.trunc($slaveCost*0.8)>>
<</if>>
<<if $slavesSeen > $slaveMarketLimit>><<set $slaveCost += Math.trunc($slaveCost*(($slavesSeen-$slaveMarketLimit)*0.1))>><</if>>

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

<<if $cash >= $slaveCost>>

[[Buy her and check out other slaves to order|Growth Research Institute][$cash -= $slaveCost, $GRI.schoolSale = 0, $GRI.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
	<<if $newSlaves.length == 0>>

[[Buy her slave contract|New Slave Intro][$cash -= $slaveCost, $GRI.schoolSale = 0, $GRI.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
	<<else>>

[[Buy her and Finish your order of slaves|Bulk Slave Intro][$cash -= $slaveCost, $GRI.schoolSale = 0, $GRI.studentsBought += 1, $newSlaves.push($activeSlave)]]
	<</if>>
<<else>>
	//You lack the necessary funds to buy this slave.//
<</if>>

[[Decline to purchase her and check out another slave|Growth Research Institute][$slavesSeen += 1]]
<<if $newSlaves.length > 0>>

[[Finish your order of slaves|Bulk Slave Intro]]
<</if>>

<<set $saleDescription = 1>><<include "Long Slave Description">>

repo_name: NovX/fc


code:
:: Head Girl Suite [nobr]

<<set $nextButton = "Back to Main", $nextLink = "Main", $returnTo = "Head Girl Suite", $showEncyclopedia = 1, $encyclopedia = "Head Girl Suite", $HGSuiteSlaves = $HGSuiteiIDs.length, _SL = $slaves.length>>

<<if $HGSuiteName != "the Head Girl Suite">>
	<<set $HGSuiteNameCaps = $HGSuiteName.replace("the ", "The ")>>
<</if>>
<<headgirlSuiteAssignmentFilter>>
<<set _i = $slaves.findIndex(function(s) { return s.assignment == "live with your Head Girl"; })>>

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

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

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

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

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

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

<<if $HGSuiteSlaves > 0>>

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

<<if ($slaves.length > $HGSuiteSlaves) && ($HGSuiteSlaves < 1)>>

''Assign a slave to the Head Girl:''

	<<assignmentFilter>>

		<<resetAssignmentFilter>>
		<<set $Flag = 0>>
		<<include "Slave Summary">>

<</if>>

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


code:
:: HG Application [nobr]

<<if ndef $HGSeverity>>
	<<set $HGSeverity = 0>>
<</if>>
<<set _effectiveness = 15+$HeadGirl.actualAge+($HeadGirl.intelligence*10)-($HeadGirl.accent*5)+($HGSeverity*10)+($activeSlave.intelligence*10)-($activeSlave.accent*5)>>
<<if $AgePenalty == 0>>
	<<set _effectiveness += Math.max(0,(30-$HeadGirl.actualAge))>>
<</if>>
<<if $HeadGirl.sexualFlaw == "abusive" && $HGSeverity >= 0>>
	<<set _effectiveness += 10>>
<</if>>
<<set $activeSlave.tired = 1>>

    ''Your head girl __@@.pink;$HeadGirl.slaveName@@__'' notices that ''__@@.pink;$activeSlave.slaveName@@__''
<<switch $HGtraining>>
<<case "health">>
	is unwell.
<<case "obedience">>
	is disobedient.
<<case "paraphilia">>
	has a paraphilia.
<<case "flaw">>
	has an unpleasant flaw worth fixing.
<<case "soften">>
	has an unpleasant flaw that she can try to soften into a unique quirk.
<<case "oral skill">>
	isn't as orally skilled as she is.
<<case "anal skill">>
	isn't as skilled at taking anal as she is.
<<case "fuck skill">>
	isn't as skilled at vaginal intercourse as she is.
<<case "whore skill">>
	isn't as skilled at the fine art of sex for money as she is.
<<case "entertain skill">>
	isn't as skilled at entertainment as she is.
<</switch>>

<<if $HGtraining == "health">>

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

<<else>>

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

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

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

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

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

<<if $HGtraining == "obedience">>

<<set _effectiveness -= $activeSlave.intelligence*15>>
<<if _effectiveness <= 0>>
	$activeSlave.slaveName is smart enough to complicate things; she manages to outwit her this week and makes no progress.
<<else>>
	<<set $activeSlave.devotion += Math.ceil(_effectiveness/4)>>
	<<if $activeSlave.devotion < -50>>
		She helps watch and restrain the rebellious $activeSlave.slaveName, helping wear her down, @@.gold;breaking $activeSlave.slaveName's rebelliousness.@@
	<<elseif $activeSlave.devotion < -20>>
		She keeps $activeSlave.slaveName constantly aware of her slavery, @@.gold;breaking $activeSlave.slaveName's resistance.@@
	<<else>>
		She acts as another pair of eyes watching $activeSlave.slaveName and metes out punishments, @@.gold;improving $activeSlave.slaveName's servitude.@@
	<</if>>
<</if>>

<<elseif $HGtraining == "paraphilia">>

<<set _effectiveness -= $activeSlave.intelligence*15>>
<<set $activeSlave.training += _effectiveness>>
    $HeadGirl.slaveName does her best to get $activeSlave.slaveName past it with punishments and rewards,
<<if $activeSlave.training > 100>>
	and @@.green;resolves $activeSlave.slaveName's paraphilia.@@
	<<set $activeSlave.training = 0>>
	<<set $activeSlave.sexualFlaw = "none">>
<<else>>
		and makes partial progress.
<</if>>

<<elseif $HGtraining == "flaw">>

<<set _effectiveness -= $activeSlave.intelligence*15>>
<<set $activeSlave.training += _effectiveness>>
$HeadGirl.slaveName punishes $activeSlave.slaveName whenever she catches her indulging in her bad habits,
<<if $activeSlave.training > 100>>
	and @@.green;fixes $activeSlave.slaveName's flaw.@@
	<<set $activeSlave.training = 0>>
	<<if $activeSlave.behavioralFlaw != "none">>
		<<set $activeSlave.behavioralFlaw = "none">>
	<<elseif $activeSlave.sexualFlaw != "none">>
		<<set $activeSlave.sexualFlaw = "none">>
	<</if>>
<<else>>
		and makes partial progress.
<</if>>

<<elseif $HGtraining == "soften">>

<<set _effectiveness -= $activeSlave.intelligence*15>>
<<set $activeSlave.training += _effectiveness>>
She punishes $activeSlave.slaveName whenever she sees her breaking the rules yet does her best to retain what makes the slave special,
<<if $activeSlave.training > 150>>
	<<set $activeSlave.training = 0>>
	and successfully @@.green;softens $activeSlave.slaveName's flaw.@@
	<<if $activeSlave.behavioralFlaw != "none">>
		<<SoftenBehavioralFlaw $activeSlave>>
	<<elseif $activeSlave.sexualFlaw != "none">>
		<<SoftenSexualFlaw $activeSlave>>
	<</if>>
<<else>>
	and makes partial progress.
<</if>>

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

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

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

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

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

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

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

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

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

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

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

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

<<if $activeSlave.devotion >= -20>>
<<if $activeSlave.genes == "XY">>
<<if $activeSlave.attrXY <= 35>>
	<<set _piercingForbidden = 0>>
	<<for _i = 0; _i < 1; _i++>>
		<<if $activeSlave.earPiercing == 0>>
			<<set $activeSlave.earPiercing = 1>>
			<<RulesDeconfliction $activeSlave>>
			<<if $activeSlave.earPiercing != $slaveAfterRA.earPiercing>>
				<<set _piercingForbidden = 1, $activeSlave.earPiercing = 0>>
			<<else>>
				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave girl, so she has the slave's ears pierced. A little feminine touch can make a big difference.
				<<set $cash -= $modCost>>
				<<break>>
			<</if>>
		<</if>>
		<<if $activeSlave.nosePiercing == 0>>
			<<set $activeSlave.nosePiercing = 1>>
			<<RulesDeconfliction $activeSlave>>
			<<if $activeSlave.nosePiercing != $slaveAfterRA.nosePiercing>>
				<<set _piercingForbidden = 1, $activeSlave.nosePiercing = 0>>
			<<else>>
				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave girl, so she gives the slave a cute little nose piercing. It should help $activeSlave.slaveName see herself as a bit more feminine.
				<<set $cash -= $modCost>>
				<<break>>
			<</if>>
		<</if>>
		<<if $activeSlave.eyebrowPiercing == 0>>
			<<set $activeSlave.eyebrowPiercing = 1>>
			<<RulesDeconfliction $activeSlave>>
			<<if $activeSlave.eyebrowPiercing != $slaveAfterRA.eyebrowPiercing>>
				<<set _piercingForbidden = 1, $activeSlave.eyebrowPiercing = 0>>
			<<else>>
				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave girl, so she gives the slave a cute little eyebrow piercing. A slutty touch for a teenage girl should help her feel a little hungrier for cock.
				<<set $cash -= $modCost>>
				<<break>>
			<</if>>
		<</if>>
		<<if $activeSlave.lipsPiercing == 0>>
			<<set $activeSlave.lipsPiercing = 1>>
			<<RulesDeconfliction $activeSlave>>
			<<if $activeSlave.lipsPiercing != $slaveAfterRA.lipsPiercing>>
				<<set _piercingForbidden = 1, $activeSlave.lipsPiercing = 0>>
			<<else>>
				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave girl, so she has the slave's lower lip pierced. Her mouth is for pleasing penises now, so it'll help her if it looks like it.
				<<set $cash -= $modCost>>
				<<break>>
			<</if>>
		<</if>>
		<<if $activeSlave.navelPiercing == 0>>
			<<set $activeSlave.navelPiercing = 1>>
			<<RulesDeconfliction $activeSlave>>
			<<if $activeSlave.navelPiercing != $slaveAfterRA.navelPiercing>>
				<<set _piercingForbidden = 1, $activeSlave.navelPiercing = 0>>
			<<else>>
				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave girl, so she has the slave's navel pierced. The prettier her lower half looks, the less reluctant she should feel to take it up the butt.
				<<set $cash -= $modCost>>
				<<break>>
			<</if>>
		<</if>>
		<<break>>
	<</for>>
	<<if _piercingForbidden>>
		$HeadGirl.slaveName thinks some cute piercings might help $activeSlave.slaveName adjust to life as a slave girl, but she also knows you have rules applied to this slave that forbid it.
	<</if>>
<</if>>
<</if>>
<</if>>

<<set $slaves[$slaveIndices[$activeSlave.ID]] = $activeSlave>> /* save changes */


code:
:: HG Select [nobr]

<<set $nextButton = "Back to Main", $nextLink = "Main", $showEncyclopedia = 1, $encyclopedia = "Head Girl">>
<<showallAssignmentFilter>>

Head Girl Management

<<set _HGName = "Your Head Girl">>
<<if ($HeadGirl != 0)>>
	<<set $HeadGirl = getSlave($HeadGirl.ID)>>
	<<if $surnameOrder != 1>>
		<<switch $HeadGirl.nationality>>
		<<case "Cambodian" "Chinese" "Hungarian" "Japanese" "Korean" "Mongolian" "Taiwanese" "Vietnamese">>
			<<if $HeadGirl.slaveSurname>>
				<<set _HGName = $HeadGirl.slaveSurname + " " + $HeadGirl.slaveName>>
			<<else>>
				<<set _HGName = $HeadGirl.slaveName>>
			<</if>>
		<<default>>
			<<set _HGName = $HeadGirl.slaveName>>
			<<if $HeadGirl.slaveSurname>><<set _HGName += " " + $HeadGirl.slaveSurname>><</if>>
		<</switch>>
	<<else>>
		<<set _HGName = $HeadGirl.slaveName>>
		<<if $HeadGirl.slaveSurname>><<set _HGName += " " + $HeadGirl.slaveSurname>><</if>>
	<</if>>
	''__@@.pink;_HGName@@__'' is serving as your Head Girl<<if $arcologies[0].FSEgyptianRevivalistLaw == 1>> and Consort; it is her role to serve and comfort you at your side, in addition to performing normal head girl duties<</if>>.

<</if>>

__Slave training__

//_HGName will prioritize enabled items in the following order.//

<<if $headGirlTrainsHealth>><<checkbox "$headGirlTrainsHealth" 0 1 checked>><<else>><<checkbox "$headGirlTrainsHealth" 0 1>><</if>>
Health

<<if $headGirlTrainsFlaws>><<checkbox "$headGirlTrainsFlaws" 0 1 checked>><<else>><<checkbox "$headGirlTrainsFlaws" 0 1>><</if>>
Flaws
<<if $headGirlSoftensFlaws>><<checkbox "$headGirlSoftensFlaws" 0 1 checked>><<else>><<checkbox "$headGirlSoftensFlaws" 0 1>><</if>>
Soften

<<if $headGirlTrainsParaphilias>><<checkbox "$headGirlTrainsParaphilias" 0 1 checked>><<else>><<checkbox "$headGirlTrainsParaphilias" 0 1>><</if>>
Paraphilias

<<if $headGirlTrainsObedience>><<checkbox "$headGirlTrainsObedience" 0 1 checked>><<else>><<checkbox "$headGirlTrainsObedience" 0 1>><</if>>
Obedience

<<if $headGirlTrainsSkills>><<checkbox "$headGirlTrainsSkills" 0 1 checked>><<else>><<checkbox "$headGirlTrainsSkills" 0 1>><</if>>
Skills

__Training methods__

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

_HGName is
<<if $HGPiercings>>
	''allowed'' to use piercings as a tool to improve slaves' attitudes. [[Disallow|HG Select][$HGPiercings = 0]]
<<else>>
	''not allowed'' to use piercings as a tool to improve slaves' attitudes. [[Allow|HG Select][$HGPiercings = 1]]
<</if>>

__Behavior towards you__

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

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

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

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

''Appoint a head girl from among your devoted slaves:''

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

<<assignmentFilter>>

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


code:
:: HG Workaround [silently]

<<if $HeadGirl != 0>>
	<<removeJob $HeadGirl "be your Head Girl">>
<</if>>
<<if $i > -1>>
	<<assignJob $slaves[$i] "be your Head Girl">>
	<<set $HeadGirl = $slaves[$i]>>
<</if>>

<<set $HGTimeInGrade = 0>>

<<goto "Main">>


code:
:: Household Liquidator [nobr]

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

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

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

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

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

<<slaveCost $activeSlave>>

The price is <<print cashFormat($slaveCost*3)>>.

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

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

<<set $saleDescription = 1, $applyLaw = 1>><<include "Long Slave Description">>

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

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

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

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

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

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

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

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

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

<<else>>

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

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

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

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

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

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

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

<</if>>


code:
:: Increment Piercings

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

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

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

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

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

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

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

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

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

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

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

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

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

<<goto "Body Modification">>


code:
:: Industrial Dairy Assignment Scene [nobr]

<<set $nextButton = "Continue">>
<<set $nextLink = $returnTo>>

When $activeSlave.slaveName reports to the dairy, it's to the sight of an unoccupied milking machine waiting for her, its straps ready to immure her in what is to be her new home.

<<if $activeSlave.sexualFlaw == "self hating">> /* GETTING IN */

As she realizes her fate, a kind of peace comes over the self hating slut.
<<if !canTalk($activeSlave)>>
	She <<if ($activeSlave.amp != 1)>>mouths<<else>>gestures<</if>> her thanks dreamily.
<<else>>
	"Thank you, <<Master>>," she <<say>>s simply. "I de<<s>>erve thi<<s>>," she adds quietly, half to herself.
<</if>>
Then she falls silent and stares at the machine. Though she hates herself and looks forward to the release of being unable to do anything but get fucked, that doesn't mean she isn't afraid.
<<if ($activeSlave.amp != 1)>>
	<<if ($dairyStimulatorsSetting > 1)>>
		She gauges the size of the sodomizer with her hand, finding that it's wider than her fist, and then presses the fist against her own anus. Realizing what's about to happen, she gives a little shudder.
		<<if ($dairyPregSetting > 1) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
			She does the same with the dildo that will keep her pregnant and her pussy, and her lower lip starts to quiver.
		<</if>>
	<<else>>
		<<if ($dairyPregSetting > 1) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
			She gauges the size of the dildo that will keep her pregnant with her hand, finding that it's wider than her fist, and then presses the fist against her pussy. Realizing what's about to happen, she gives a little shudder.
		<</if>>
	<</if>>
	<<if ($dairyFeedersSetting > 1)>>
		Looking at the phallus that will feed her, she begins to cry softly.
	<</if>>
<</if>>

<<if ($activeSlave.amp != 1)>>
	She strips and climbs into the machine's embrace,
<<else>>
	Another slave helps her strip and lays her in the machine,
<</if>>
her tears pattering onto the uncaring metal. When she's in place, her shoulders slump as she gives up completely.
<<if !canTalk($activeSlave)>>
	She mouths 'Goodbye.'
<<elseif SlaveStatsChecker.checkForLisp($activeSlave)>>
	"'bye," she lisps.
<<else>>
	"'bye," she whispers.
<</if>>

<<elseif ($activeSlave.sexualFlaw == "breeder") && isFertile($activeSlave) && $activeSlave.mpreg != 1>>

As she realizes what's about to happen, she begins to cry openly. A curious mix of arousal, joy, and abject horror is obvious on her face, and she deals with the conflicting feelings by sobbing.
<<if !canTalk($activeSlave)>>
	She <<if ($activeSlave.amp != 1)>>mouths<<else>>gestures<</if>> her thanks shakily.
<<else>>
	"Th-thank you, <<Master>>," she <<say>>s through her tears. "I love you."
<</if>>
Then she falls silent and stares at the machine. She's probably imagined this a thousand times, but the prospect is still frightening.
<<if ($activeSlave.amp != 1)>>
	<<if ($dairyStimulatorsSetting > 1)>>
		She gauges the size of the sodomizer with her hand, finding that it's wider than her fist, and then presses the fist against her own anus. Realizing that her anus is about to be permanently gaped, she looks doubtful, but then visibly reassures herself. She'll need both her mouth and her ass to eat enough.
	<</if>>
	<<if ($dairyFeedersSetting > 1)>>
		Looking at the phallus that will feed her, she inserts a finger into its faux urethra, measuring how fast it can pour nutrition in her.
	<</if>>
	She strokes the dildo that will keep her pregnant like a lover, which, of course, it's about to be.
<</if>>

<<if ($activeSlave.amp != 1)>>
	She strips and climbs into the machine's embrace, shaking with nerves.
<<else>>
	Another slave helps her strip and lays her in the machine. She shakes with nerves.
<</if>>
<<if $activeSlave.pregKnown == 1>>
	She cranes around to look at her already-pregnant belly, and looks impatient.
	<<if !canTalk($activeSlave)>>
		She mouths 'hurry up, I need room.'
	<<else>>
		"Hurry up, I need the room," she whispers.
	<</if>>
<<else>>
	She cranes around to look at her belly, and looks impatient.
	<<if !canTalk($activeSlave)>>
		She mouths 'come on, I'm ready.'
	<<else>>
		"Come on, I'm ready," she whispers.
	<</if>>
<</if>>

<<elseif $activeSlave.devotion > 95>> /* GETTING IN */

As she realizes her fate, the worshipful slave squares her shoulders, steeling herself. "<<Master>>," she <<if !canTalk($activeSlave)>>signs<<else>><<say>>s<</if>>, "I will do my best to <<s>>erve you." She steps over to the machine.
She looks it over clinically, getting herself into the right mindset.
<<if ($activeSlave.amp != 1)>>
	<<if ($dairyStimulatorsSetting > 1)>>
	She gauges the size of the massive phallus that will soon penetrate her anus. It's broader than her fist. "I think I can take this. It'll be tough, but I'll need all the hydration I can get."
	<</if>>
	<<if ($dairyPregSetting > 1) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
	She considers the enormous dildo that will fill her with cum when she's fertile, and switch to ejaculating drugs when she conceives. "I'll be a mother to a whole generation of <<s>>lave<<s>>," she <<say>>s proudly, taking strength from it.
	<</if>>
	<<if ($dairyFeedersSetting > 1)>>
	She moves her hand to the dildo that will occupy her throat, feeding her. "I will need my mouth to take in as much food as I can," she <<if !canTalk($activeSlave)>>signs<<else>><<say>>s<</if>>. "I won't be able to talk. <<s>>o, I'll <<s>>ay it one la<<s>>t time, <<Master>>: I love you."
	<</if>>
<</if>>

<<if ($activeSlave.amp != 1)>>
	She strips and climbs into the machine's embrace.
<<else>>
	Another slave helps her strip and lays her in the machine.
<</if>>
She does not hesitate or glance back at you. You stand by as the straps automatically tighten, robbing her of the ability to move. "<<Master>>," she <<if !canTalk($activeSlave)>>signs<<else>><<say>>s quietly<</if>>, "I will try to be <<s>>trong enough to <<s>>tand up to thi<<s>>. But if I'm not, and I forget too much, plea<<s>>e leave me in here <<s>>o I can be u<<s>>eful."

<<elseif $activeSlave.devotion > 60>>

As she realizes her fate, the tears come quickly. "<<Master>>," she <<if !canTalk($activeSlave)>>signs<<else>><<say>>s quietly<</if>>, "i<<s>> thi<<s>> for me?" You nod, and she steps over to the machine. She lightly traces its gleaming metal, looking wistful.
<<if ($activeSlave.amp != 1)>>
	<<if ($dairyStimulatorsSetting > 1)>>
	She gently touches the head of the massive phallus that will soon penetrate her anus. It's broader than her fist. "M-my butthole i<<s>>n't going to be any good for anal after thi<<s>>."
	<</if>>
	<<if ($dairyPregSetting > 1) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
	She considers the enormous dildo that will fill her with cum when she's fertile, and switch to ejaculating drugs when she conceives. "I gue<<ss>> that thing won't have any trouble reaching my cervix."
	<</if>>
	<<if ($dairyFeedersSetting > 1)>>
	She moves her hand to the dildo that will occupy her throat, feeding her. "I-I won't be able to t-talk m-much," she <<if !canTalk($activeSlave)>>signs<<else>><<say>>s<</if>> sadly. "<<S>>-<<s>>o, I'll <<s>>ay it one la<<s>>t time, <<Master>>: I love you."
	<</if>>
<</if>>

<<if ($activeSlave.amp != 1)>>
	She strips and climbs into the machine's embrace.
<<else>>
	Another slave helps her strip and lays her in the machine.
<</if>>
"<<Master>>," she <<if !canTalk($activeSlave)>>signs<<else>>gasps out<</if>>, the tears coming fast now. "C-can you
<<if ($activeSlave.amp != 1)>>
	h-hold my h-hand while it a-activate<<s>>? Plea<<s>>e?" You take her hand as the straps automatically tighten, robbing her of the ability to move. She grips your hand tightly.
<<else>>
	<<S>>-<<s>>tay with me while it activate<<s>>? Plea<<s>>e?" You stand by as the straps automatically tighten, robbing her of the ability to move.
<</if>>

<<elseif $activeSlave.devotion > 20>>

She desperately tries to be brave and obey, but as her fate dawns on her, her courage and conditioning fail her.
<<if ($activeSlave.amp != 1)>>
	She tries to wriggle away from the machine, so
<<else>>
	She turns and tries to run, so
<</if>>
<<if ($Milkmaid == 0)>>
	you are
<<else>>
	$Milkmaid.slaveName is
<</if>>
obliged to
<<if ($activeSlave.amp != 1)>>
	subdue her and strap her,
<<else>>
	place her,
<</if>>
begging and sobbing, into the machine's embrace.
"Plea<<s>>e, <<Master>>!" she <<if !canTalk($activeSlave)>>signs<<else>>begs<</if>>. "Plea<<s>>e no!
<<if ($dairyStimulatorsSetting > 1)>>
	I-it'll fuck my b-butthole so wide I'll be u<<s>>ele<<ss>> for anal!
<</if>>
<<if ($dairyPregSetting > 2) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
	My w-womb c-c-can't take it! I'll b-bur<<s>>t! And m-my c-c-cunt will be ruined from the dildo and birthing!
<<elseif ($dairyPregSetting > 1) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
	M-my c-c-cunt will be <<s>>-<<s>>o <<s>>tretched from the dildo and birthing!
<</if>>
I'll d-do anything!"

<<else>>

She starts to weep as soon as she realizes her fate.
<<if $activeSlave.trust > -20>>
	She is afraid of you, but not afraid enough that she will not resist this.
<</if>>
<<if ($activeSlave.amp == 1)>>
	She tries to wriggle away from the machine, so
<<else>>
	She turns and tries to run, so
<</if>>
<<if ($Milkmaid == 0)>>
	you are
<<else>>
	$Milkmaid.slaveName is
<</if>>
obliged to
<<if ($activeSlave.amp != 1)>>
	subdue her and strap her,
<<else>>
	place her,
<</if>>
begging and sobbing, into the machine's embrace.

"Plea<<s>>e, <<Master>>!" she <<if !canTalk($activeSlave)>>signs<<else>>begs<</if>>. "Plea<<s>>e no!
<<if ($dairyStimulatorsSetting > 1)>>
	I-it'll fuck my b-butthole so loo<<s>>e I'll be u<<s>>ele<<ss>> for anal! I p-promi<<s>>e I'll be a good little bitch from now on!
<</if>>
<<if ($dairyPregSetting > 2) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
	My w-womb c-c-can't take that many babie<<s>>! I'll b-bur<<s>>t! M-my c-c-cunt can't t-take that dildo either! I d-don't want to g-get p-pregnant over and over...
<<elseif ($dairyPregSetting > 1) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
	M-my c-c-cunt can't t-take that dildo! I d-don't want to g-get p-pregnant over and over...
<</if>>
I'll d-do anything!"

<</if>> /* CLOSES DEVOTION */

<<if $activeSlave.lactation > 0>>
	A big soft cup attaches itself <<if $activeSlave.nipples == "fuckable">>over<<else>>to<</if>> each of her nipples.
	<<if ($activeSlave.nipples == "inverted")>>
		She gasps with pain as suction unceremoniously hauls her inverted nipples down into the cups.
	<</if>>
<</if>>
<<if $activeSlave.balls > 0>>
	<<if $activeSlave.dick > 0>>
		The first drugs hiss into her,
		<<if $activeSlave.dick > 8>>
			and her eyes roll back as much of her blood volume rushes into her dick, though it remains soft.
		<<elseif $activeSlave.dick > 6>>
			and she goes limp as much of her blood volume rushes to bring her to half mast.
		<<else>>
			bringing her to a full erection.
		<</if>>
		She gasps as the warm, wet receptacle surrounds her cock.
	<<else>>
		<<if $activeSlave.lactation > 0>>Another<<else>>A big soft<</if>> cup is placed against her little front cumhole.
	<</if>>
<</if>>
A visor lowers onto her face to keep her mind at least minimally stimulated. It will display garish hardcore pornography featuring
<<if ($dairyFeedersSetting > 1)>>
	throatfucking, cum swallowing,
<</if>>
<<if ($dairyPregSetting > 1) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
	bareback vaginal sex, pregnancy, childbirth,
<</if>>
<<if ($activeSlave.balls > 0)>>
	cumming cocks, anal stimulation,
<</if>>
<<if ($activeSlave.lactation > 0)>>
	breast expansion, women being milked,
<</if>>
and brutal sodomy.

<<if ($activeSlave.anus < 3) || (($activeSlave.vagina < 3) && ($activeSlave.vagina > -1))>>
	<<set $activeSlave.anus = 3>>
	<<if $activeSlave.vagina > -1>><<set $activeSlave.vagina = 3>><</if>>
	The machine detects that she requires the attention of the preparatory raper before it can penetrate her successfully, and holds her in place while the raper slides along its track in the ceiling. It comes to rest above the slave's defenseless body and extends its implements towards her. She can't see or hear it, but she senses that something's happening and shivers.
	<<if ($dairyPregSetting > 1) && ($dairyPregSetting > 1) && isFertile($activeSlave) && ($activeSlave.vagina < 3) && $activeSlave.mpreg != 1>>
		Her pussy is nowhere near ready to accept the passage of drugs and cum in and new slaves out. The new machine lubes her thoroughly and then <<if $activeSlave.vagina == 0>>takes her virginity<<else>>starts to fuck her<</if>> with a reasonably sized dildo.
	<</if>>
	<<if ($dairyStimulatorsSetting > 1) && ($activeSlave.anus < 3)>>
		She'll be drinking through her mouth almost constantly, but that won't be enough. She'll have to absorb hydration and nutrition from both ends to keep up with the outflow she'll produce. <<if ($dairyPregSetting > 1) && ($dairyPregSetting > 1) && isFertile($activeSlave) && ($activeSlave.vagina < 3) && $activeSlave.mpreg != 1>>It<<else>>The new machine<</if>> fills her ass with lube and then penetrates her <<if $activeSlave.anus == 0>>her virgin anus<<else>>her rectum<</if>> gently.
	<</if>>
	She's worked in gradually, but every time she's loosened just slightly, the now-inadequate dildo is replaced by a larger one, and eventually more than one.
	<<if ($dairyPregSetting > 1) && isFertile($activeSlave) && ($activeSlave.vagina < 3) && $activeSlave.mpreg != 1>>
		<<if ($dairyStimulatorsSetting > 1) && ($activeSlave.anus < 3)>>
			She goes from a dildo in the pussy and a dildo in the ass, through numerous interesting combinations of double penetration, until she's got two porn star sized dildos sliding in and out of her pussy and two more fucking her ass.
		<<else>>
			Her womanhood goes from a normal dildo to a big dildo to two dildos, and so on, until she's taking the equivalent of two porn star cocks.
		<</if>>
	<<else>>
		Her asshole goes from a normal dildo to a big dildo to two dildos, and so on, until she's taking the equivalent of two porn star cocks up the butt.
	<</if>>
	This is a long process, and though
	<<if $activeSlave.devotion > 95>>
		she started out getting off on it,
	<<elseif $activeSlave.devotion > 60>>
		she did her best to enjoy herself for a while,
	<<elseif $activeSlave.devotion > 20>>
		she tried to relax and make it easier on herself at the start,
	<<else>>
		she cried and tried to break loose for a while,
	<</if>>
	she's slumped against the machine from sheer exhaustion by the end.	Its work completed, the preparatory raper withdraws and lets the milking machine begin its work. It's only been a few hours since $activeSlave.slaveName's ordeal began, but now she's ready to begin giving back. The machine revives her with a hit of pharmaceuticals.

<</if>>

<<if ($dairyPregSetting > 1) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
	Her vagina goes first. She relaxes her loose cunt for the elephantine dildo, but despite her best efforts, it forces a gasp out of her as it slides in. It remains stationary for now, but $activeSlave.slaveName know it's just the beginning, and she already feels full to bursting.
	<<if $activeSlave.devotion > 95>>
		She takes more deep breaths, doing her best to remain calm.
	<<elseif $activeSlave.devotion > 60>>
		Terrified, she cries harder.
	<<elseif $activeSlave.devotion > 20>>
		Terrified, she cries harder.
	<<else>>
		Terrified, she starts to scream and cry.
	<</if>>
<<elseif ($dairyPregSetting > 0) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
	<<if $activeSlave.devotion > 95>>
		She moans with pleasure
	<<elseif $activeSlave.devotion > 60>>
		She gasps
	<<elseif $activeSlave.devotion > 20>>
		She moans with fear
	<<else>>
		She moans with anguish
	<</if>>
	as the machine inserts a warm, lubricated dildo into her vagina.
<</if>>
<<if ($dairyStimulatorsSetting > 1)>>
	Her anus is next. An auxiliary dildo the size of the largest human cocks goes first, assraping her so hard she'd probably be injured if she wasn't already very loose.
	<<if $activeSlave.devotion > 95>>
		She relaxes and does her best to enjoy herself, her cheeks flushing with arousal. Once her sphincter is well stretched, the machine withdraws the dildo, and before her anus can begin to close, the machine replaces it with the main instrument. Despite the preparation, it's so huge that she moans with fear she feels the head touch her buttocks. The moan becomes a long low groan as her butthole accommodates the enormous thing. When it's all the way in, the dildo begins to withdraw for its first stroke, and she <<if !canTalk($activeSlave)>>signs<<else>>whispers<</if>>, "<<Master>>, it's <<s>>-<<s>>o b-big." She relaxes and recollects herself, and then adds, "I can do thi<<s>>."
	<<elseif $activeSlave.devotion > 60>>
		She tries to <<if $activeSlave.analSkill > 10>>apply her anal training<<else>>relax<</if>>, but it fucks her butt so mercilessly that she eventually gives up and relaxes completely. This is what the machine was aiming for; it withdraws the dildo, and before her sphincter can close, it replaces it with the main instrument. Despite the preparation, it's so huge that she begins to scream in terror as she feels the head touch her buttocks. Her yelling becomes a drawn-out shriek as her butthole accommodates the enormous thing. When she finally runs out of breath and slumps within her restraints, the dildo begins to withdraw for its first stroke, and she <<if !canTalk($activeSlave)>>signs<<else>>whispers<</if>>, "<<Master>>, it's too b-big. It hu-hurt<<s>>."
	<<elseif $activeSlave.devotion > 20>>
		Crying, she tries to <<if $activeSlave.analSkill > 10>>apply her anal training<<else>>relax<</if>>, but it fucks her butt so mercilessly that she eventually gives up and relaxes completely. This is what the machine was aiming for; it withdraws the dildo, and before her sphincter can close, it replaces it with the main instrument. Despite the preparation, it's so huge that she begins to beg desperately as she feels the head touch her buttocks. Her whining becomes a drawn-out shriek as her butthole accommodates the enormous thing. When she finally runs out of breath and slumps within her restraints, the dildo begins to withdraw for its first stroke, and she is racked with sobs.
	<<else>>
		She obviously thinks this is what her butt will suffer, and doesn't like it. She's tragically wrong. When she finally relaxes, the machine withdraws the dildo, and before her sphincter can close, it replaces it with the main instrument. She screams with the horror of realization and begins to beg desperately as she feels its head touch her buttocks. Her cries become a drawn-out shriek as her butthole accommodates the enormous thing. When she finally runs out of breath and slumps within her restraints, the dildo begins to withdraw for its first stroke, and she is racked with weeping.
	<</if>>
	<<if ($dairyPregSetting > 1) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
		The dildo in her vagina begins to fuck her as well. Between her terribly broadened holes, her stretched perineum is barely visible at all.
	<</if>>
<<elseif ($dairyStimulatorsSetting > 0)>>
	<<if $activeSlave.devotion > 95>>
		She groans as the machine pushes a big dildo up her butt and begins to sodomize her powerfully.
	<<elseif $activeSlave.devotion > 60>>
		She sobs as the machine pushes a big dildo up her butt and begins to sodomize her powerfully.
	<<elseif $activeSlave.devotion > 20>>
		She sobs as the machine pushes a big dildo up her butt and begins to sodomize her powerfully.
	<<else>>
		She cries as the machine pushes a big dildo up her butt and begins to sodomize her powerfully.
	<</if>>
<</if>>
<<if ($dairyFeedersSetting > 1)>>
	<<if $activeSlave.devotion > 95>>
		A manipulator prods her jaw open and a phallus slides into her throat, working around for a while to find the optimal position for maximum penetration where she can still breathe through her nose. There is a hiss as the food begins rushing through the phallus and down her throat.
	<<elseif $activeSlave.devotion > 60>>
		She tries to say something, but she left it too late. A manipulator forces her jaw open and a phallus slides into her throat, working around for a while to find the optimal position for maximum penetration where she can still breathe through her nose. There is a hiss as the food begins rushing through the phallus and down her throat.
	<<elseif $activeSlave.devotion > 20>>
		Her crying is abruptly cut off as a manipulator forces her jaw open and a phallus slides into her throat, working around for a while to find the optimal position for maximum penetration where she can still breathe through her nose.
	<<else>>
		She cries hopelessly, "I'm n-never going t-to leave h-here, am I, M-" Her noise is abruptly cut off as a manipulator forces her jaw open and a phallus slides into her throat, working around for a while to find the optimal position for maximum penetration where she can still breathe through her nose.
	<</if>>
<<elseif ($dairyFeedersSetting > 0)>>
	<<if $activeSlave.devotion > 95>>
		The machine gives her a phallus to suck on.
	<<elseif $activeSlave.devotion > 60>>
		She tries to say something, but she left it too late. The machine gives her a phallus to suck on.
	<<elseif $activeSlave.devotion > 20>>
		Her crying is abruptly cut off as the machine gives her a phallus to suck on.
	<<else>>
		She cries hopelessly, "I'm n-never going t-to leave h-here, am I, M-" Her noise is abruptly cut off as the machine forces a phallus into her mouth.
	<</if>>
<</if>>

With its various applicators inserted and working, the machine begins to ejaculate necessary fluids into her body. You cannot see much direct evidence, but the inrush of fluids is clear from the draining reservoirs scattered around the machine.
<<if ($dairyStimulatorsSetting > 1)>>
	The gargantuan phallus fucking her butthole ejaculates industrial lubricant, hydration, nutrition, and medication, to be absorbed by her lower intestines.
<<elseif ($dairyStimulatorsSetting > 0)>>
	The phallus fucking her ass ejaculates hydration, nutrition, and medication, to be absorbed by her colon.
<</if>>
<<if ($dairyPregSetting > 1) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
	The dildo in her vagina ejaculates cum, fertility drugs, and medication designed to cause uncontrollable natural lubrication, so it will not damage her too severely.
<<elseif ($dairyPregSetting > 0) && isFertile($activeSlave) && $activeSlave.mpreg != 1>>
	The dildo in her vagina ejaculates cum and fertility drugs.
<</if>>
<<if ($dairyFeedersSetting > 0)>>
	There is a hiss as still more fluid containing hydration, nutrition, and medication begins rushing through the phallus in her mouth and down her throat.
<</if>>
Finally, multiple drug injectors attach themselves to her and begin to use hypersonic jets to drive pharmaceuticals into her without needles.
<<if $activeSlave.devotion > 95>>
	Her eyes fly wide as she hears and feels the number of injections. She knows these drugs are not without side effects, and she's being injected with a normal day's dose every minute. She musters her resolve and relaxes again, relying on her knowledge that you want her to accept this fate.
<<elseif $activeSlave.devotion > 60>>
	Her eyes fly wide and she stiffens with fear as she hears and feels the number of injections. She knows these drugs are not without side effects, and she's being injected with a normal day's dose every minute. She visibly tries to accept it, knowing that you want her to submit to this fate.
<<elseif $activeSlave.devotion > 20>>
	The tears streaming out of her eyes come faster as she hears and feels the number of injections. She knows these drugs are not without side effects, and she's being injected with a normal day's dose every minute.
<<else>>
	She begins to struggle desperately as she hears and feels the number of injections. She knows these drugs are not without side effects, and she's being injected with a normal day's dose every minute.
<</if>>

Fluids begin to come out of her. The drugs are strong, and despite everything she experiences an orgasm so powerful that it's clear why the straps that bind her are reinforced.
<<if $activeSlave.balls > 0>>
	<<if $activeSlave.dick > 0>>The anal dildo fucks her even harder<<else>>If she had a dick, it would be caressed by a nice warm receptacle, but she doesn't. The milker is forced to rape her ass without mercy to force her to cum<</if>>, and she tries to scream around the dildo in her mouth. <<if $activeSlave.scrotum > 0>>Her balls tighten as she<<else>>She<</if>> shoots rope after rope of semen into the machine.
<</if>>
<<if ($activeSlave.vagina > -1)>>
	She gives the machine a nice gush of femcum.
<</if>>
<<if ($activeSlave.lactation > 0)>>
	The cups sucking her nipples work away ceaselessly, her milk whitening the clear piping running into the machine.
<</if>>
The machine continues fucking her despite her climax.
<<if $activeSlave.devotion > 95>>
	Though it's difficult to tell, it's possible she's smiling around the dildo in her mouth. She may be such a well-broken sex slave that she can stand up to a life of nothing but drugs, milking, and an endless string of orgasms. To ease her acclimation to her new life, the drug cocktail is adjusted as her orgasm fades,
<<elseif $activeSlave.devotion > 60>>
	Despite her attempt to be brave, tears begin to leak out from behind her visor as she realizes that there will be no respite from the penetration. The drug cocktail is adjusted as her orgasm fades,
<<elseif $activeSlave.devotion > 20>>
	To ease her acclimation to her new life, the drug cocktail is adjusted as her orgasm fades,
<<else>>
	To allow her some rest despite her terror, the drug cocktail is adjusted as her orgasm fades,
<</if>>
to put her to sleep. She slumps against the machine as she drops off.
<<if ($activeSlave.amp != 1)>>Her painfully tight grip on your hand finally loosens<</if>>.
<<if ($dairyStimulatorsSetting > 1)>>
	Her anus has not yet stretched to take the necessary full power setting, so she is gently sodomized as she sleeps to get her sphincter used to its permanent occupier.
<</if>>
<<if ($activeSlave.belly < 1500)>>
	Her belly has already begun to distend from the mass of fluid ejaculated down her throat and into her stomach, <<if $activeSlave.ovaries == 1>>inside her womanhood and into her womb, and <</if>>up her butt and into her lower intestine.
<</if>>

Silence returns to the dairy.