code:
:: RE boomerang [nobr]

<<set $nextButton = "Continue", $nextLink = "RIE Eligibility Check", $returnTo = "RIE Eligibility Check", $showEncyclopedia = 1, $encyclopedia = "Enslaving People">>

<<set $activeSlave = $boomerangSlave, _weeks = $boomerangWeeks, _pregWeeks = $boomerangWeeks, $boomerangWeeks = 0, _buyer = $boomerangBuyer, $boomerangBuyer = 0>>

<<run Enunciate($activeSlave)>>
<<run SetBellySize($activeSlave)>>
<<setLocalPronouns $activeSlave>>
<<setAssistantPronouns>>

Your work is interrupted by $assistantName with an alert from the entrance to the penthouse.
<<if $assistant>>
	"<<= properTitle()>>," _heA says, "you're going to want to see this." _HeA
<<else>>
	_HeA's got the incident flagged as not fitting into any of the usual categories of disturbance, and requests your attention. _HeA
<</if>>
brings up the relevant feeds. There's a naked body crumpled pathetically against one wall of the entryway, beneath the communications panel. It's <<= SlaveFullName($activeSlave)>>, whom you sold _weeks weeks ago. $He's looking up into one of the cameras plaintively.
"Plea<<s>>e take me back," $he whispers, not wanting to draw the attention of passersby, and knowing that $his faint words will be picked up and amplified for you.

<<set $activeSlave.collar = "none", $activeSlave.choosesOwnClothes = 0, $activeSlave.clothes = "no clothing", $activeSlave.buttplug = "none", $activeSlave.vaginalAccessory = "none", $activeSlave.dickAccessory = "none", $activeSlave.chastityAnus = 0, $activeSlave.chastityPenis = 0, $activeSlave.chastityVagina = 0>>
<<set $activeSlave.health = random(-40,-25)>>

/* ------------------ pregnancy setup start here----------------- */

<<set WombProgress($activeSlave, _pregWeeks, _pregWeeks)>> /* In all cases should be done */
<<set WombUpdatePregVars($activeSlave)>>
<<if $activeSlave.broodmother > 0>> /* Broodmother implant is assumed as removed.*/
	<<set $activeSlave.preg = -1, $activeSlave.counter.birthsTotal += WombBirthReady($activeSlave, 37), $activeSlave.pregType = 0, $activeSlave.pregSource = 0, $activeSlave.pregWeek = 0, $activeSlave.pregKnown = 0, $activeSlave.broodmother == 0, $activeSlave.broodmotherFetuses = 0>>
	<<set WombFlush($activeSlave)>>
<<elseif WombBirthReady($activeSlave, $activeSlave.pregData.normalBirth) > 0 >> /* normal birth case, partial birthers not supported*/
	<<set $activeSlave.preg = -1, $activeSlave.counter.birthsTotal += WombBirthReady($activeSlave, $activeSlave.pregData.normalBirth), $activeSlave.pregType = 0, $activeSlave.pregSource = 0, $activeSlave.pregWeek = 0, $activeSlave.pregKnown = 0>>
	<<set WombFlush($activeSlave)>>
<<else>>/* still pregnant slave */
	<<set $activeSlave.preg = WombMaxPreg($activeSlave)>> /*most ready fetus is a base*/
	<<set $activeSlave.pregWeek = WombMaxPreg($activeSlave)>> /*most ready fetus is a base*/
<</if>>
<<run SetBellySize($activeSlave)>> /*In any case it's useful to do.*/

/* old code, commented out.
<<if $activeSlave.broodmother > 0>>
	<<set $activeSlave.preg = -1, $activeSlave.counter.birthsTotal += $activeSlave.pregType, $activeSlave.pregType = 0, $activeSlave.pregSource = 0, $activeSlave.pregWeek = 0, $activeSlave.pregKnown = 0, $activeSlave.broodmother == 0>>
	<<run SetBellySize($activeSlave)>>
<</if>>
<<if $activeSlave.preg > 0>>
	<<set $activeSlave.preg += _weeks>>
	<<set $activeSlave.pregWeek += _weeks>>
	<<if $activeSlave.preg > $activeSlave.pregData.normalBirth>>
		<<set $activeSlave.preg = -1, $activeSlave.counter.birthsTotal += $activeSlave.pregType, $activeSlave.pregType = 0, $activeSlave.pregSource = 0, $activeSlave.pregWeek = 0, $activeSlave.pregKnown = 0>>
	<</if>>
	<<run SetBellySize($activeSlave)>>
<</if>>
*/

/* ------------------ pregnancy setup end here-----------------
	As no broodmother cases in code below, it's no need to setup every case of impregnation through new system. Backup mechanic will do it for normal pregnancies.
*/

<<if ($activeSlave.hStyle != "shaved" && $activeSlave.bald != 1)>>
	<<if ($activeSlave.hLength < 150)>>
		<<set $activeSlave.hLength += _weeks>>
	<</if>>
<</if>>
<<if $seeAge != 0>>
	<<for _weeks > 0>>
		<<set $activeSlave.birthWeek++>>
		<<if $activeSlave.birthWeek >= 52>>
			<<set $activeSlave.birthWeek = 0>>
			<<if $seeAge == 1>>
				<<set $activeSlave.physicalAge += 1, $activeSlave.actualAge += 1, $activeSlave.visualAge += 1>>
				<<set $activeSlave.ovaryAge += either(.8, .9, .9, 1, 1, 1, 1.1)>>
				<<if $activeSlave.physicalAge <= 18 && $loliGrow == 0>>
					<<PhysicalDevelopment $activeSlave>>
				<</if>>
			<</if>>
		<</if>>
		<<set _weeks-->>
	<</for>>
<</if>>

<<switch _buyer>>
<<case "buttbreaker">>
	"All my Ma<<s>>ter care<<s>> about i<<s>> raping my a<<ss>> until I <<s>>cream. I can't get u<<s>>ed to it. I'm loo<<s>>e and ruined, but he ju<<s>>t u<<s>>e<<s>> a dildo big enough to hurt me." $He's sitting over on one buttock, and shifts uncomfortably.
	<<set $activeSlave.anus = 4>>
	<<set $activeSlave.sexualFlaw = "hates anal">>
<<case "cow trainer" "D hucow" "D milky herm" "factory farm" "free range" "pastoralist arcology">>
	<<switch _buyer>>
	<<case "free range">>
		"The ni<<c>>e free range dairy you <<s>>old me to failed, and a horrible factory farm bought everyone. It'<<s>> horrible." The
	<<case "pastoralist arcology">>
		"After they fini<<sh>>ed <<sh>>owing me off, they ju<<s>>t hooked me up to a milking ma<<ch>>ine and forgot about me." You sold $him to a Pastoralist arcology as a prize heifer; it's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation. The
	<<case "D hucow">>
		"My new owner got bored of me a<<s>> a human cow, and he wa<<s>> in debt, <<s>>o he re<<s>>old me to a dairy. A horrible dairy." The
	<<case "cow trainer">>
		"On<<c>>e the trainer was <<s>>ati<<s>>fied with my tit<<s>>, he re<<s>>old me to a dairy. A horrible dairy." The
	<<case "D milky herm">>
		"I got re<<s>>old me to a dairy. A horrible dairy. They <<s>>aid I'm valuable becau<<s>>e I give two kind<<s>> of milk." The
	<<default>>
		You sold $him to a factory farm, and the
	<</switch>>
	effects of living there have changed $his body greatly. It's surprising $he managed to make it up here at all. "Plea<<s>>e," $he begs. "I d-don't want to <<s>>pend the r-re<<s>>t of my life being raped by a ma<<ch>>ine."
	<<if $activeSlave.amp == 0>>$He shifts uncomfortably on $his feet. The soles of the feet are a convenient place to beat a whore, since it's agonizingly painful, doesn't bruise badly, and won't inconvenience a slave that spends all $his time kneeling or lying down.<</if>>
	<<set $activeSlave.anus = 4>>
	<<set $activeSlave.lactation = 2, $activeSlave.lactationDuration = 2, $activeSlave.lactationAdaptation = 100>>
	<<set $activeSlave.boobs = Math.clamp($activeSlave.boobs+2000+50*random(-20,20),0,10000)>>
	<<set $activeSlave.boobShape = "saggy">>
	<<if $seePreg != 0>><<if $activeSlave.ovaries>><<set $activeSlave.preg = random(5,_pregWeeks-1), $activeSlave.pregType = random(2,4), $activeSlave.vagina = 4, $activeSlave.pregWeek = $activeSlave.preg, $activeSlave.pregKnown = 1, SetBellySize($activeSlave)>><</if>><</if>>
	<<if $activeSlave.balls>>
		<<set $activeSlave.balls = Math.clamp($activeSlave.balls+random(1,2),0,10)>>
		<<if $activeSlave.dick>><<set $activeSlave.dick = Math.clamp($activeSlave.dick+random(1,2),0,10)>><</if>>
	<</if>>
	<<set $activeSlave.intelligence = Math.clamp($activeSlave.intelligence-50,-100,100)>>
<<case "preg fetishist" "volume breeder">>
	<<switch _buyer>>
	<<case "preg fetishist">>
		"My ni<<c>>e Ma<<s>>ter had a d-debt. And he had to <<s>>ell me t-to a volume breeder. I wa<<s>> pregnant when I got there b-but they <<s>>-<<s>>tarted o-over." $He swallows.
	<<default>>
		$He tearfully describes life at a volume breeder like the one you sold $him to.
	<</switch>>
	"They ran an IV line into me and then put me in a cage with a male <<s>>lave who raped me for a week. Then they <<s>>witched me into a <<s>>maller cage and forgot about me. I can feel my belly <<s>>welling. It'<<s>> horrible."
	<<set $activeSlave.preg = _pregWeeks-1, $activeSlave.vagina = 4, $activeSlave.pregWeek = $activeSlave.preg, $activeSlave.pregKnown = 1>>
	<<if $seeHyperPreg == 1>>
		<<set $activeSlave.pregType = random(10,40)>>
	<<else>>
		<<set $activeSlave.pregType = 5>>
	<</if>>
	<<run SetBellySize($activeSlave)>>
<<case "porn studio">>
	"They're crazy. At fir<<s>>t it wa<<s>> all the <<s>>ame, ju<<s>>t make more <<s>>mut and reap the atten<<t>>ion, but <<s>>oon they <<s>>tarted wanting me to do more and more e<<x>>treme <<sh>>it." $He gags at the thought. "While they were running a train on me, I overheard them talking... <<S>>aying they wanted to end my career in an unforgettable e<<x>>perien<<c>>e, and given what they've been having me do, I ran." You suspected the porn studio you sold $him to would try to spice up $his content to attract more views, but you never bothered to think of how far they would take it.
	<<set $activeSlave.anus = 4>>
	<<if $activeSlave.vagina > -1 && $activeSlave.vagina < 4>>
		<<set $activeSlave.vagina = 4>>
	<</if>>
	<<set $activeSlave.counter.publicUse += 500>>
<<case "obsessed fan">>
	"It wa<<s>> really ni<<c>>e, at fir<<s>>t," $he sniffles, "and I'm a little <<s>>ad it had to end the way it d-did." You sold $him to a die-hard fan who offered up a rather large sum of money for ownership of $him. "He took out too big of a loan and when they came to collect, he let me loo<<s>>e and told me to run, run far away. I d-didn't know where el<<s>>e to g-go." $He breaks down in tears.
	<<if $seePreg != 0 && canGetPregnant($activeSlave)>>
		"In the <<sh>>ort time we <<s>>pent together, he left me a gift..." $He runs a hand across $his stomach. "While I wouldn't <<s>>ay I wa<<s>> in love with him, I feel like I have to keep them <<s>>afe for what he did. I can't even think of where I'd have ended up if they had taken me."
		<<if $activeSlave.mpreg == 1 && $activeSlave.anus == 0>>
			<<set $activeSlave.anus = 1>>
		<<elseif $activeSlave.ovaries == 1 && $activeSlave.vagina == 0>>
			<<set $activeSlave.vagina = 1>>
		<</if>>
		<<set $activeSlave.preg = random(5,_pregWeeks-1), $activeSlave.pregType = random(2,4), $activeSlave.pregWeek = $activeSlave.preg, $activeSlave.pregKnown = 1, $activeSlave.pregSource = -2, SetBellySize($activeSlave)>>
	<</if>>
<<case "pain fetishist">>
	"They whip me. A-actually," $he sniffles, "I'm glad when they whip me b-becau<<s>>e e-everything el<<s>>e they d-do is w-wor<<s>>e. The only break I get i-i<<s>> when I'm hurt bad and th-they have to f-fi<<x>> me." After all, you did sell $him into a life as a pain slave.
	<<set $activeSlave.behavioralFlaw = "odd", $activeSlave.sexualFlaw = "apathetic">>
	<<set $activeSlave.health = random(-85,-75)>>
<<case "sadism fetishist">>
	"I-it'<<s>> t-too much." $He shudders. You sold $him to a sadist who planned to use $him to abuse other slaves. "I c-can't d-do it anymore. I u<<s>>ed to fanta<<s>>i<<z>>e about d-doing h-horrible thing<<s>>, but, but, the <<s>>creaming." $He squeezes $his eyes shut. "If I don't do it I'll h-have it d-done t-to me."
	<<set $activeSlave.behavioralFlaw = "odd", $activeSlave.sexualFlaw = "apathetic">>
	<<set $activeSlave.fetish = "none", $activeSlave.fetishStrength = 0>>
<<case "dom fetishist">>
	"I," $he mutters, and then loses $his way. "I lo<<s>>t," $he grates out after a while. "I wa<<s>> <<s>>uppo<<s>>ed to be the Head Girl after you <<s>>old me. But a new girl came, and, and <<sh>>e'<<s>> the Head Girl now." $He looks down. "It should have been me."
	<<set $activeSlave.behavioralFlaw = "hates women">>
<<case "sub fetishist">>
	"I thought I'd be happy to be a <<s>>ub forever." You sold $him to a determined dom, extreme even by Free Cities standards. "But, but, I haven't, um, had a break <<s>>in<<c>>e I left. I never talk. I never, well, I never do anything. I ju<<s>>t obey." $He looks down. "I'm going in<<s>>ane."
	<<set $activeSlave.behavioralFlaw = "odd", $activeSlave.sexualFlaw = "apathetic">>
	<<set $activeSlave.fetish = "none", $activeSlave.fetishStrength = 0>>
<<case "supremacist arcology">>
	"It wa<<s>> horrible." You sold $him to a Supremacist arcology; it's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation. "The thing<<s>> they made me do to other girl<<s>> ju<<s>>t because of who they were." $He swallows. "I tried not to. And they puni<<sh>>ed me."
	<<set $activeSlave.behavioralFlaw = "odd", $activeSlave.sexualFlaw = "hates men">>
<<case "subjugationist arcology">>
	"They were breeding me with idiot<<s>>." You sold $him to a Subjugationist arcology; it's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation. "I d-don't want thi<<s>> pregnan<<c>>y."
	<<set $activeSlave.preg = _pregWeeks-1, $activeSlave.pregType = random(2,4), $activeSlave.pregWeek = $activeSlave.preg, $activeSlave.pregKnown = 1>>
	<<run SetBellySize($activeSlave)>>
<<case "gender radicalist arcology">>
	"They <<if $activeSlave.balls>> cut my ball<<s>> off and then<</if>> j-ju<<s>>t kind of t-turned me loo<<s>>e in the corridor<<s>>," $he moans. You sold $him to a Gender Radicalist arcology. "Naked, <<s>>o everyone could u<<s>>e my a<<ss>>. Plea<<s>>e, I don't want to be an entire arcology'<<s>> bitch."
	<<set $activeSlave.balls = 0>>
	<<if $activeSlave.dick>><<set $activeSlave.dick = Math.clamp($activeSlave.dick-random(1,2),0,10)>><</if>>
<<case "gender fundamentalist arcology">>
	"It wa<<s>> horrible." You sold $him to a Gender Fundamentalist arcology; it's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation. "I'm, I'm, not an idiot. At lea<<s>>t, not ju<<s>>t becau<<s>>e I'm a girl."
	<<set $activeSlave.behavioralFlaw = "odd", $activeSlave.sexualFlaw = "hates men">>
<<case "paternalist arcology">>
	"It wa<<s>> horrible." You sold $him to a Paternalist arcology, but $he explains the apparent contradiction. "The arcology got a new owner." $He shudders. "I gue<<ss>> the ni<<c>>e one wa<<s>> weak, and, and the new one i<<s>> changing thing<<s>>. There'<<s>> cage<<s>>, and <<s>>pike<<s>>, and whip<<s>>, and rape." It's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation.
	<<set $activeSlave.behavioralFlaw = "odd", $activeSlave.sexualFlaw = "hates men">>
<<case "degradationist arcology">>
	"It wa<<s>> horrible." You sold $him to a Degradationist arcology; it's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation.
	<<if $activeSlave.ovaries>>
		<<set $activeSlave.ovaries = 0, $activeSlave.preg = 0, WombFlush($activeSlave), $activeSlave.pregType = 0, $activeSlave.vagina = 4, $activeSlave.pregWeek = 0, $activeSlave.pregKnown = 0>>
		<<run SetBellySize($activeSlave)>>
		"They f-fi<<x>>ed me, t-to '<<s>>ave on maintenan<<c>>e of my cunt,'
	<<elseif $activeSlave.balls>>
		<<set $activeSlave.balls = 0, $activeSlave.anus = 4>>
		"They c-cut my b-ball<<s>> off, to 'keep me do<<c>>ile,'
	<<else>>
		<<set $activeSlave.anus = 4>>
		"They whipped me,
	<</if>>
	and then u<<s>>ed me to <<s>>ati<<s>>fy labor menial<<s>>. Ten an hour."
	<<set $activeSlave.behavioralFlaw = "odd", $activeSlave.sexualFlaw = "hates men">>
<<case "slimness enthusiast arcology">>
	"It wa<<s>> horrible." You sold $him to a pleasant Slimness Enthusiast arcology, but somehow $he's acquired grotesque implants. "The arcology got a new owner." $He shudders. "I gue<<ss>> the ni<<c>>e one wa<<s>> weak, and, and the new one i<<s>> changing thing<<s>>. <<Sh>>-<<sh>>e l-like<<s>> t-to ruin the <<s>>lim one<<s>>." It's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation.
	<<set $activeSlave.boobsImplant = 200*random(2,4), $activeSlave.boobs += $activeSlave.boobsImplant>>
	<<set $activeSlave.buttImplant = random(2,4), $activeSlave.butt = Math.clamp($activeSlave.butt+$activeSlave.buttImplant,0,10)>>
	<<set $activeSlave.lipsImplant = 10*random(1,3), $activeSlave.lips = Math.clamp($activeSlave.lips+$activeSlave.lipsImplant,0,100)>>
<<case "asset expansionist arcology">>
	"It wa<<s>> horrible." You sold $him to an Asset Expansionist arcology; it's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation.
	<<if $activeSlave.hips > 0>>
		<<set $activeSlave.butt = Math.clamp($activeSlave.butt+random(2,4),0,10)>>
		"They <<s>>aid, <<s>>in<<c>>e I've got broad hip<<s>>, I'd be a 'butt<<s>>lave'." The meaning is obvious; $his ass has grown unbelievably.
	<<else>>
		<<set $activeSlave.boobs = Math.clamp($activeSlave.boobs+50*random(20,40),0,10000)>>
		"They <<s>>aid they'd <<s>>tart with my boob<<s>>." It's true; they've grown unbelievably.
	<</if>>
	$He shivers. "The <<s>>ide effect<<s>> are terrible. I can't <<s>>leep. I can barely eat. They had to feed me with a tube."
	<<set $activeSlave.behavioralFlaw = "anorexic">>
<<case "transformation fetishist arcology">>
	"It wa<<s>> horrible." You sold $him to a Transformation Fetishist arcology; it's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation. "They were giving me new boob implant<<s>> every two week<<s>>. I ran away before another <<s>>et. I c-couldn't take any more <<s>>-<<s>>urgery."
	<<set $activeSlave.boobsImplant = 200*random(9,12), $activeSlave.boobs += $activeSlave.boobsImplant>>
<<case "physical idealist arcology">>
	"It wa<<s>> horrible." You sold $him to a Physical Idealist arcology; it's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation. "It should have been called a <<S>>teroid Enthu<<s>>ia<<s>>t arcology." $He shivers. "The <<s>>ide effect<<s>> are terrible. I can't <<s>>leep. I can barely eat. They had to feed me with a tube."
	<<set $activeSlave.muscles = 100, $activeSlave.weight = random(-85,-75)>>
	<<set $activeSlave.behavioralFlaw = "anorexic">>
<<case "chattel religionist arcology">>
	"It wa<<s>> horrible." You sold $him to a Chattel Religionist arcology; it's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation. "There were, um, cult<<s>> there, along with the Faith. They were going to devote me to <<s>>omething called <<Sh>>e Who Thir<<s>>t<<s>>. Nobody ever hear<<s>> of girl<<s>> after that."
	<<set $activeSlave.behavioralFlaw = "odd", $activeSlave.sexualFlaw = "crude", $activeSlave.behavioralQuirk = "devout">>
<<case "roman revivalist arcology">>
	"It wa<<s>> horrible." You sold $him to a Roman Revivalist arcology; it's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation. "I had to kill a girl," $he adds in a small voice. "In the arena." Then, even more quietly: "I had to kill, um, girl<<s>>. I, I can't. Couldn't. Not again."
	<<set $activeSlave.behavioralFlaw = "odd", $activeSlave.sexualFlaw = "crude", $activeSlave.skill.combat = 1>>
<<case "aztec revivalist arcology">>
	"It wa<<s>> horrible." You sold $him to an Aztec Revivalist arcology; it's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation. "They told me by blood would feed the <<S>>un." $He shudders. "I, they, um, do that to hundred<<s>> of girl<<s>>. I had to help."
	<<set $activeSlave.behavioralFlaw = "odd", $activeSlave.sexualFlaw = "apathetic">>
<<case "egyptian revivalist arcology">>
	"It wa<<s>> horrible." You sold $him to an Egyptian Revivalist arcology; it's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation. "My new owner wa<<s>> old, and he wa<<s>> really into <<s>>ome of the tomb <<s>>tuff. If he died, I'd have been buried with him."
<<case "body purist arcology">>
	"It wa<<s>> horrible." You sold $him to a pleasant Body Purist arcology, but somehow $he's acquired grotesque implants. "The arcology got a new owner." $He shudders. "I gue<<ss>> the ni<<c>>e one wa<<s>> weak, and, and the new one i<<s>> changing thing<<s>>. <<Sh>>-<<sh>>e l-like<<s>> t-to ruin the pure one<<s>>." It's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation.
	<<set $activeSlave.boobsImplant = 200*random(2,4), $activeSlave.boobs += $activeSlave.boobsImplant>>
	<<set $activeSlave.buttImplant = random(2,4), $activeSlave.butt = Math.clamp($activeSlave.butt+$activeSlave.buttImplant,0,10)>>
	<<set $activeSlave.lipsImplant = 10*random(1,3), $activeSlave.lips = Math.clamp($activeSlave.lips+$activeSlave.lipsImplant,0,100)>>
<<case "D milf staffing" "trainer staffing">>
	<<setNonlocalPronouns $seeDicks>>
	"I'm a good <<s>>lave trainer, ju<<s>>t like you <<s>>old me to be. Too good." $His eyes look hollow. "I can't get what I'm doing to the<<s>>e <<= _girlU>><<s>> out of my head. Every young _girlU I meet, I get to know _himU and under<<s>>tand _himU. And then I break _himU down and turn _himU into a brainle<<ss>> little fuckpuppet." $He swallows. "I can't. Not anymore."
	<<set $activeSlave.fetish = "dom", $activeSlave.fetishStrength = 100>>
	<<set $activeSlave.behavioralFlaw = "arrogant", $activeSlave.sexualFlaw = "crude">>
<<case "teaching trainer">>
	"I'm ju<<s>>t a mannequin now," $he <<say>>s hollowly. $His buyer planned to use $him as a teaching tool. "There'<<s>> nothing. No joy, no fun. Ju<<s>>t the <<s>>ame thing, over, and over. In<<s>>ide me."
	<<set $activeSlave.fetish = "submissive", $activeSlave.fetishStrength = 100>>
	<<set $activeSlave.behavioralFlaw = "hates penetration", $activeSlave.sexualFlaw = "apathetic">>
<<case "implanting trainer">>
	"I d-don't want to be c-cut again," $he <<say>>s hollowly. $His buyer planned to use $him as a surgical teaching tool. "E-every time I'm healed, they implant me again. B-bigger."
	<<set $activeSlave.boobsImplant = 200*random(8,12), $activeSlave.boobs += $activeSlave.boobsImplant>>
	<<set $activeSlave.buttImplant = random(2,4), $activeSlave.butt = Math.clamp($activeSlave.butt+$activeSlave.buttImplant,0,10)>>
	<<set $activeSlave.lipsImplant = 10*random(1,3), $activeSlave.lips = Math.clamp($activeSlave.lips+$activeSlave.lipsImplant,0,100)>>
<<case "purifying trainer">>
	"It w-wa<<s>>n't like I thought it would be," $he <<say>>s. "The trainer you <<s>>old me to took out my implant<<s>>. B-but then they <<s>>aid my boob<<s>> had to be rebuilt, only with drug<<s>> thi<<s>> time." $He shivers. "The <<s>>ide effect<<s>> are terrible. I can't <<s>>leep. I can barely eat. They had to feed me with a tube."
	<<set $activeSlave.boobs -= $activeSlave.boobsImplant, $activeSlave.boobsImplant = 0>>
	<<set $activeSlave.butt -= $activeSlave.buttImplant, $activeSlave.buttImplant = 0>>
	<<set $activeSlave.lips -= $activeSlave.lipsImplant, $activeSlave.lipsImplant = 0>>
	<<set $activeSlave.boobs = Math.clamp($activeSlave.boobs+50*random(20,40),0,10000)>>
<<case "D startled the witch">>
	You sold $him to a buyer interested in $him because of $his sharp teeth, among other things. "It wa<<s>> horrible," $he whispers. Then $he gags, dry heaves, and vomits slightly. $He wipes $his mouth with the back of $his hand, staring upward vacantly. "Horrible."
	<<set $activeSlave.behavioralFlaw = "odd", $activeSlave.sexualFlaw = "crude">>
<<case "slimming trainer">>
	"It'<<s>> horrible." You sold $him to a trainer who specializes in slimming slaves down, and if anything, they seem to have gone too far. $He's emaciated. "I'm h-hungry all the time, and when I'm not p-perfect, I d-don't get to eat at all."
	<<set $activeSlave.boobs = Math.clamp($activeSlave.boobs-50*random(5,10),0,10000)>>
	<<set $activeSlave.butt = Math.clamp($activeSlave.butt-random(1,2),0,10)>>
	<<set $activeSlave.waist = Math.clamp($activeSlave.waist-random(20,50),-100,100)>>
	<<set $activeSlave.weight = -100>>
<<case "broadening trainer" "D cannibal" "hedonistic decadence arcology">>
	<<switch _buyer>>
	<<case "D cannibal">>
		"M-my new owner i<<s>> going t-to do <<s>>omething horrible to me. H-he keep<<s>> me in a tiny cage and f-feed<<s>> me, and I have to <<s>>tay <<s>>till and eat or I'll <<s>>poil the meat." You did sell $him to a citizen widely rumored to be a cannibal. $He whispers, "I'm going to die."
	<<case "hedonistic decadence arcology">>
		You sold $him to a Hedonistic arcology; it's nothing short of incredible that $he managed to get back here. $He must have sold and traded $himself without hesitation. "It'<<s>> horrible." You sold $him to an arcology that loves fattening slaves up, and if anything, they seem to have gone too far too fast. $He's bloated, and $his stomach is distended. "T-they beat me if I ever <<s>>topped eating, and they fed my butt too. I'm gro<<ss>> and ugly. Even when they mounted me, they'd <<s>>till <<sh>>ove food down my throat."
	<<default>>
		"It'<<s>> horrible." You sold $him to a trainer who specializes in fattening slaves up, and if anything, they seem to have gone too far. $He's bloated, and $his stomach is distended. "T-they beat me if I ever <<s>>top eating, and they feed my butt too. I'm gro<<ss>> and ugly."
	<</switch>>
	<<set $activeSlave.boobs = Math.clamp($activeSlave.boobs+50*random(5,10),0,10000)>>
	<<set $activeSlave.butt = Math.clamp($activeSlave.butt+random(1,2),0,10)>>
	<<set $activeSlave.waist = Math.clamp($activeSlave.waist-random(20,50),-100,100)>>
	<<set $activeSlave.weight = Math.clamp($activeSlave.weight+random(50,100),-100,200)>>
<<case "clipping trainer">>
	"All I do i<<s>> <<s>>uck dick<<s>> and get fucked in the butt." You sold $him to a trainer who specializes in clipping and improving overly masculine slaves, and $he's definitely more feminine, if bitterly unhappy. "They're going to <<s>>ell me to a bitch brothel <<s>>oon, I know it. Plea<<s>>e, nobody'<<s>> even <<s>>aid anything to me other than '<<s>>uck my cock' or 'bend over bitch' in week<<s>>."
	<<set $activeSlave.boobsImplant = 200*random(2,4), $activeSlave.boobs += $activeSlave.boobsImplant>>
	<<set $activeSlave.buttImplant = random(1,2), $activeSlave.butt = Math.clamp($activeSlave.butt+$activeSlave.buttImplant,0,10)>>
	<<set $activeSlave.lipsImplant = 10*random(1,2), $activeSlave.lips = Math.clamp($activeSlave.lips+$activeSlave.lipsImplant,0,100)>>
	<<set $activeSlave.waist = Math.clamp($activeSlave.waist+random(20,50),-100,100)>>
	<<set $activeSlave.balls = 0, $activeSlave.scrotum = 0, $activeSlave.dick = Math.clamp($activeSlave.dick-random(1,2),0,10)>>
	<<set $activeSlave.behavioralFlaw = "hates men", $activeSlave.sexualFlaw = "hates anal">>
	<<if $activeSlave.faceShape == "masculine">><<set $activeSlave.faceShape = "androgynous">><</if>>
<<case "reassignment trainer">>
	"I m-mi<<ss>> my dick." You sold $him to a trainer who specializes in gender reassignment, and $he's definitely more feminine, if bitterly unhappy. "P-plea<<s>>e, even if you won't f-fi<<x>> me, plea<<s>>e take me back. I'll b-be a <<s>>e<<x>> <<s>>lave, I ju<<s>>t don't want to be a woman."
	<<set $activeSlave.boobsImplant = 200*random(2,4), $activeSlave.boobs += $activeSlave.boobsImplant>>
	<<set $activeSlave.buttImplant = random(1,2), $activeSlave.butt = Math.clamp($activeSlave.butt+$activeSlave.buttImplant,0,10)>>
	<<set $activeSlave.lipsImplant = 10*random(1,2), $activeSlave.lips = Math.clamp($activeSlave.lips+$activeSlave.lipsImplant,0,100)>>
	<<set $activeSlave.waist = Math.clamp($activeSlave.waist+random(20,50),-100,100)>>
	<<set $activeSlave.balls = 0, $activeSlave.scrotum = 0, $activeSlave.dick = 0, $activeSlave.vagina = 3>>
	<<set $activeSlave.behavioralFlaw = "hates men", $activeSlave.sexualFlaw = "hates penetration">>
	<<if $activeSlave.faceShape == "masculine">><<set $activeSlave.faceShape = "androgynous">><</if>>
<<case "arcade">>
	"Take me back, or kill me," $he <<say>>s. You sold $him to an arcade, and it's surprising $he managed to make it up here at all. "Plea<<s>>e," $he begs. "I will do literally anything. I c-can feel my<<s>>elf going c-cra<<z>>y. I'd rather die."
	<<set $activeSlave.anus = 4>>
	<<if $activeSlave.vagina != -1>><<set $activeSlave.vagina = 4>><</if>>
	<<set $activeSlave.intelligence = Math.clamp($activeSlave.intelligence-50,-100,100)>>
	<<set $activeSlave.behavioralFlaw = "odd", $activeSlave.sexualFlaw = "apathetic">>
<<case "harvester">>
	"I'm ju<<s>>t kept in a pen unle<<ss>> they're d-doing <<s>>urgery on me." It's not surprising; you did sell $him to an organ farm. What's unexpected is that $he's still alive. They must be removing the less essential parts gradually. "I'm going to die," $he <<say>>s hollowly. "Ne<<x>>t <<s>>urgery, I won't wake up."
	<<set $activeSlave.balls = 0, $activeSlave.ovaries = 0, $activeSlave.preg = -2, $activeSlave.pregType = 0, $activeSlave.pregWeek = 0, $activeSlave.pregKnown = 0>>
	<<run SetBellySize($activeSlave)>>
	<<set $activeSlave.behavioralFlaw = "hates men", $activeSlave.sexualFlaw = "crude">>
<<case "D butt bury">>
	"My kind butt loving Ma<<s>>ter had to <<s>>ell me, and the brothel who bought me u<<s>>e<<s>> my behind a<<s>> an adverti<<s>>ement." $He shifts uncomfortably. "I can barely feel my anu<<s>>."
	<<set $activeSlave.anus = 4>>
	<<set $activeSlave.behavioralFlaw = "hates men", $activeSlave.sexualFlaw = "hates anal">>
<<case "D shorty breeder">>
	"My kind Ma<<s>>ter had to <<s>>ell me, and the brothel who bought me got rid of hi<<s>>, um, they got rid of my pregnan<<c>>y, and now I'm ju<<s>>t a short <<s>>lut."
	<<set $activeSlave.behavioralFlaw = "hates men", $activeSlave.sexualFlaw = "crude">>
<<case "fuckdoll">>
	$His appearance is surprising; you sold $him to a dealer who planned to encase $him in a Fuckdoll suit and thereby transform $him into a living sex toy. Apparently they decided to extract a bit of fun out of $him first. "I've b-been chained up in their b-bathroom ever <<s>>in<<c>>e you <<s>>old me," $he <<say>>s hollowly. "They're g-getting bored of me."
	<<set $activeSlave.behavioralFlaw = "hates men", $activeSlave.sexualFlaw = "hates penetration">>
<<case "stuffer chef">>
	"They fini<<sh>>ed." $His appearance is not that surprising; you sold $him to a chef who enjoyed stuffing $his face till $he was bloated. Apparently he sold $him off after $he got too fat for his stuffings to show. "He <<s>>tretched my belly out <<s>>o much and when I got <<s>>o fat he couldn't <<s>>ee a differen<<c>>e with hi<<s>> fea<<s>>t<<s>>, he got rid of me." $He lowers $his arms, allowing $his grotesquely sagging belly to hang free. "I'm gro<<ss>>. I'm fat, <<s>>aggy, and gro<<ss>>."
	<<set $activeSlave.boobs = Math.clamp($activeSlave.boobs+50*random(5,10),0,10000)>>
	<<set $activeSlave.butt = Math.clamp($activeSlave.butt+random(1,2),0,10)>>
	<<set $activeSlave.waist = Math.clamp($activeSlave.waist-random(20,50),-100,100)>>
	<<set $activeSlave.weight = Math.clamp($activeSlave.weight+random(50,100),-100,200)>>
	<<set $activeSlave.bellySag = 80>>
	<<set $activeSlave.behavioralFlaw = "anorexic">>
<<case "concert hall">>
	You sold $him to a local concert venue to help relieve the stage crew's stress. "All of the roadie<<s>>, from out of town, from other arcologie<<s>>, treat like <<s>>ome <<s>>ort of punching bag, or, or like a <<s>>ide of meat. I ju<<s>>t can't go b-back there, anymore."
	<<if $activeSlave.vagina > -1>>
		<<set $activeSlave.vagina = 3>>
	<</if>>
	<<set $activeSlave.anus = 3>>
	<<if $seePreg != 0>><<if $activeSlave.ovaries>><<set $activeSlave.preg = random(5,_pregWeeks-1), $activeSlave.pregType = random(1,2), $activeSlave.pregSource = either(-2,0), $activeSlave.pregWeek = $activeSlave.preg, $activeSlave.pregKnown = 1, SetBellySize($activeSlave)>><</if>><</if>>
<<case "etiquette coach">>
	"The etiquette t-trainer I wa<<s>> <<s>>old to wa<<s>> an e<<x>>cellent teacher indeed," $he <<say>>s with a grimace, "H-however, I find that he had <<s>>ome rather old-f-fa<<sh>>ioned view<<s>> on educational method<<s>>, to be quite b-blunt." You look $him over; $he has numerous caning marks all over $his body, and appears to have been starved.
	<<set $activeSlave.weight = random(-80, -70)>>
	<<set $activeSlave.health = random(-70, -60)>>
	<<set $activeSlave.behavioralFlaw = "odd">>
	<<set $activeSlave.sexualFlaw = either("idealistic", "repressed", "self hating", "shamefast")>>
<<default>>
	<<switch _buyer>>
	<<case "housekeeper">>
		"My kind Ma<<s>>ter pa<<ss>>ed away, and hi<<s>> heir <<s>>old me
	<<case "nice brothel">>
		"The ni<<c>>e brothel you <<s>>old me to failed, and their girl<<s>> went
	<<case "virgin trader">>
		"After I couldn't pa<<ss>> a<<s>> a virgin any more, they <<s>>old me
	<<case "D virgin asspussy">>
		"My new owner loved my a<<ss>>pu<<ss>>y becau<<s>>e my front hole wa<<s>> virgin. B-but i-it got b-broken by a<<cc>>id-dent, I <<s>>wear, and then he <<s>>old me
	<<default>>
		"Plea<<s>>e. I've been re<<s>>old
	<</switch>>
	to a <<sh>>-<<sh>>itty brothel on the lower level<<s>>. It'<<s>> h-horrible there. I live in a tiny little room, and the only people I ever <<s>>ee ju<<s>>t fuck me and leave. N-nobody ever t-talk<<s>> to me. And they beat me."
	<<if $activeSlave.amp == 0>>$He shifts uncomfortably on $his feet. The soles of the feet are a convenient place to beat a whore, since it's agonizingly painful, doesn't bruise badly, and won't inconvenience a slave that spends all $his time kneeling or lying down.<</if>>
	<<set $activeSlave.anus = 3>>
	<<if $activeSlave.vagina > -1>><<set $activeSlave.vagina = 3>><</if>>
	<<set $activeSlave.sexualFlaw = either("hates anal", "hates oral", "hates penetration")>>
<</switch>>

<br><br>
It isn't obvious how $he managed to escape, though no doubt you could review the arcology surveillance logs and find out. For right now, though, the question is what to do with $him.
<<if $activeSlave.trust > 95>>
	"Plea<<s>>e," $he sobs, breaking down at last. "I th-thought I w-wa<<s>> a g-good $girl. T-take me b-back and I'll p-pretend I n-never left. I'll d-do anything you a<<s>>k. I'll worship the ground you walk on. Plea<<s>>e."
	<<set $activeSlave.devotion = 100>>
<<elseif $activeSlave.intelligence+$activeSlave.intelligenceImplant < -15>>
	"Plea<<s>>e," $he sobs, breaking down at last. "I d-don't know where el<<s>>e to go." That much you believe; $he's an idiot.
<<else>>
	"I know I'll be caught," $he sobs, breaking down at last. "I know you'd f-find me. <<S>>o I came here. Plea<<s>>e." $He's right about that much. This is literally the only chance $he has of getting away from $his current owners.
<</if>>

<<set $contractCost = 5000>>
<<set $slaveCost = slaveCost($activeSlave)>>
<<set $slaveCost -= $contractCost>>

<br><br>

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

<br><br>

<span id="result">
<<link "Return $him">>
	<<run repX(Math.trunc($slaveCost/2), "event", $activeSlave)>>
	<<replace "#result">>
		$activeSlave.slaveName keeps waiting, but the doors to the penthouse never open. When $his owners arrive a few minutes later to collect $him, $he cries harder, but does not resist. $His weeping has the peculiar ring of utter hopelessness as they restrain $him and drag $him off. A few minutes after that, you receive a businesslike note @@.green;expressing gratitude@@ for your assistance in this matter.
		<<set $boomerangStats = 0>>
	<</replace>>
<</link>>
<<if $cash >= $contractCost>>
<br><<link "Obfuscate $his appearance and re-enslave $him">>
	<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
	<<if $familyTesting == 1>>
		<<if $boomerangStats.PCpregSource > 0 && $PC.preg > 0 && $PC.pregSource == 0>>
			<<set $PC.pregSource = $activeSlave.ID>>
		<</if>>
		<<if $boomerangStats.PCmother > 0>>
			<<set $PC.mother = $activeSlave.ID>>
		<</if>>
		<<if $boomerangStats.PCfather > 0>>
			<<set $PC.father = $activeSlave.ID>>
		<</if>>
		<<for _reb = 0; _reb < $slaves.length; _reb++>>
			<<if $boomerangStats.boomerangMother.includes($slaves[_reb].ID)>>
				<<set $slaves[_reb].mother = $activeSlave.ID>>
			<</if>>
			<<if $boomerangStats.boomerangFather.includes($slaves[_reb].ID)>>
				<<set $slaves[_reb].father = $activeSlave.ID>>
			<</if>>
			<<if $boomerangStats.boomerangPregSources.includes($slaves[_reb].ID) && $slaves[_reb].preg > 0 && $slaves[_reb].pregSource == 0>>
				<<set $slaves[_reb].pregSource = $activeSlave.ID>>
			<</if>>
		<</for>>
		<<if $incubator > 0>>
			<<for _reb = 0; _reb < $tanks.length; _reb++>>
				<<if $boomerangStats.boomerangMotherTank.includes($tanks[_reb].ID)>>
					<<set $tanks[_reb].mother = $activeSlave.ID>>
				<</if>>
				<<if $boomerangStats.boomerangFatherTank.includes($tanks[_reb].ID)>>
					<<set $tanks[_reb].father = $activeSlave.ID>>
				<</if>>
			<</for>>
		<</if>>
		<<if $nursery > 0>>
			<<for _reb = 0; _reb < $cribs.length; _reb++>>
				<<if $boomerangStats.boomerangMotherTank.includes($cribs[_reb].ID)>>
					<<set $cribs[_reb].mother = $activeSlave.ID>>
				<</if>>
				<<if $boomerangStats.boomerangFatherTank.includes($cribs[_reb].ID)>>
					<<set $cribs[_reb].father = $activeSlave.ID>>
				<</if>>
			<</for>>
		<</if>>
	<<else>>
		<<if $boomerangStats.boomerangRelation > 0>>
			<<set _reb = $slaveIndices[$boomerangStats.boomerangRelation]>>
			<<if def _reb>>
				<<if $activeSlave.relation == "mother">>
					<<set $slaves[_reb].relation = "daughter">>
				<<elseif $activeSlave.relation == "daughter">>
					<<set $slaves[_reb].relation = "mother">>
				<<else>>
					<<set $slaves[_reb].relation = $activeSlave.relation>>
				<</if>>
				<<set $slaves[_reb].relationshipTarget = $activeSlave.ID>>
			<<else>>
				<<set $activeSlave.relation = 0, $activeSlave.relationTarget = 0>>
			<</if>>
		<</if>>
		<<if $boomerangStats.boomerangPregSources.length > 0>>
			<<for _reb = 0; _reb < $slaves.length; _reb++>>
				<<if $boomerangStats.boomerangPregSources.includes($slaves[_reb].ID) && $slaves[_reb].preg > 0 && $slaves[_reb].pregSource == 0>>
					<<set $slaves[_reb].pregSource = $activeSlave.ID>>
				<</if>>
			<</for>>
		<</if>>
	<</if>>
	<<if $boomerangStats.boomerangRelationship > 0>>
		<<set _reb = $slaveIndices[$boomerangStats.boomerangRelationship]>>
		<<if def _reb>>
			<<set $slaves[_reb].relationship = $activeSlave.relationship, $slaves[_reb].relationshipTarget = $activeSlave.ID>>
		<<else>>
			<<set $activeSlave.relationship = 0, $activeSlave.relationshipTarget = 0>>
		<</if>>
	<</if>>
	<<if $boomerangStats.boomerangRivalry > 0>>
		<<set _reb = $slaveIndices[$boomerangStats.boomerangRivalry]>>
		<<if def _reb>>
			<<set $slaves[_reb].rivalry = $activeSlave.rivalry, $slaves[_reb].rivalryTarget = $activeSlave.ID>>
		<<else>>
			<<set $activeSlave.rivalry = 0, $activeSlave.rivalryTarget = 0>>
		<</if>>
	<</if>>
	<<if $boomerangStats.boomerangBody > 0>>
		<<set _reb = $slaveIndices[$boomerangStats.boomerangBody]>>
		<<if def _reb>>
			<<set $slaves[_reb].origBodyOwnerID = $activeSlave.ID>>
		<</if>>
	<</if>>
	<<for _reb = 0; _reb < $slaves.length; _reb++>>
		<<run WombChangeID($slaves[_reb], $activeSlave.missingParentTag, $activeSlave.ID)>>
		<<run WombChangeGeneID($slaves[_reb], $activeSlave.missingParentTag, $activeSlave.ID)>>
	<</for>>
	<<set $boomerangStats = 0>>
	<<replace "#result">>
		The penthouse opens, and $activeSlave.slaveName stumbles inside, sobbing $his thanks. $He's immediately conducted to the autosurgery for some quick cosmetic surgery, while you and $assistantName do the necessary work to falsify the arcology records and conceal $his origins. Even so, it would probably be wise to keep $him off public assignments for a while. In no time at all, $he's standing in front of your desk like any other new slave. $He waits obediently, knowing that it's in $his best interests not to mention anything out of the ordinary.
	<<include "New Slave Intro">>
	<</replace>>
<</link>> //This will cost in <<print cashFormat($contractCost)>>.//
<br><<link "Sell $him immediately">>
	<<run cashX($slaveCost, "slaveTransfer")>>
	<<replace "#result">>
		The penthouse opens, and $activeSlave.slaveName stumbles inside, sobbing $his thanks. $He's immediately conducted to the autosurgery for some quick cosmetic surgery, while you and $assistantName do the necessary work to falsify the arcology records and conceal $his origins. Before $he's even out from under anesthesia, $he's bundled off into one of the hundreds of slave shipments that move between arcologies every day. This time $he'll be sold far enough away that no matter how much of an escape artist $he is, you won't be seeing any more of $him. $He can whine elsewhere.
		<<set $boomerangStats = 0>>
	<</replace>>
<</link>> //This will bring in <<print cashFormat($slaveCost)>>.//
<<else>>
	//You lack the necessary funds to enslave $him.//
<</if>>
</span>


code:
:: RE brothel function [nobr]

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

$brothelNameCaps is a reputable establishment in $arcologies[0].name, a veritable bedrock to sexual life in your arcology. As is befitting of its position, requests to rent out your brothel for one function or another come across your desk with some regularity. On this particular day, $assistantName has laid out a number of potential clients for your perusal. Given the importance of $brothelNameCaps in the arcology's sex trade, it would be unwise to indulge more than one of these requests at this time.

One request comes to you written on a letterhead featuring the logo of a fellow arcology owner. She describes her husband's preference for your hard working brothel whores, whom he patronizes on his regular business trips to your arcology. Such indulgences have been a distraction to her husband of late, and she has dispatched him to undertake a task in your arcology that simply cannot go poorly. With this in mind, she beseeches you to close down your brothel for a single day out of solidarity for a fellow arcology owner — and for the significant sum of <<print cashFormat(10000)>>.

Another of these bids for your brothel comes in the form of a curious video call. The video comes from an infamous lothario in your arcology, a seducer of powerful and prominent women citizens. Indeed, the recording was surreptitiously recorded in the bedroom of one such influential woman, with the Casanova describing his request in hushed tones while his wealthy host minces about unknowingly in the background. He explains that he is finally ready to hang up his coat and end his days of debauchery and copious casual sex, but that he would like to do so by engaging in a full day of indulgence at $brothelName.

The last of these requests comes in the form of a letter, stamped with the herald of a prominent arcology family. It seems the eldest son of the family, known to you largely as a spoiled child riding on the coattails of his parents, is about to reach the age of majority. At his behest, his parents have contacted you to reserve your brothel for a day so that their son may become a man in true Free Cities fashion — amongst a roil of writhing flesh and wanton debauchery.

<<link "Acquiesce to the arcology owner's request">>
	<<replace "#result">>
	Though you close down $brothelNameCaps for a day, it's far from a day off for your hard-working brothel girls. In the absence of the convenient center for the sale of sexual services that a brothel represents, you disperse them onto the streets to sell their bodies the old fashioned way. At the end of the day you receive a brief message of gratitude from your fellow arcology owner while your girls @@.hotpink;appreciate the opportunity to stretch their legs on the street@@ for a change of pace.
	<<for $i = 0; $i < $slaves.length; $i++>>
		<<if $slaves[$i].assignment == "work in the brothel">>
			<<set $slaves[$i].devotion += 4>>
		<</if>>
	<</for>>
	<<run cashX(10000, "event")>>

	<</replace>>
<</link>> //This will earn you <<print cashFormat(10000)>>//

<<link "Give this lady-killing rake a proper send off into retirement">>
	<<replace "#result">>
	Though a citizen he may be, this serial seducer may have more notches on his proverbial bedpost than even your oldest slaves. Though you are not present to view his mastery of the sexual craft first-hand, the dreamy fucked-out looks of exhaustion and gratified satisfaction painting every single one of your girls' faces at the end of the day speak volumes. Indeed, all of your brothel slaves with any room for improvement in their whoring skills @@.green;learn from his skillful coupling,@@ while even those with nothing to learn from him @@.hotpink;gain confidence@@ from the intensity of their sexual congress.
	<<for $i = 0; $i < $slaves.length; $i++>>
		<<if $slaves[$i].assignment == "work in the brothel">>
			<<if $slaves[$i].skill.whoring < 100>>
				<<set $slaves[$i].skill.whoring += 10>>
			<<else>>
				<<set $slaves[$i].devotion += 4>>
			<</if>>
			<<if canDoVaginal($slaves[$i]) && canDoAnal($slaves[$i])>>
				<<set $slaves[$i].counter.vaginal += 3>>
				<<set $vaginalTotal += 3>>
				<<set $slaves[$i].counter.anal += 3>>
				<<set $analTotal += 3>>
			<<elseif canDoAnal($slaves[$i])>>
				<<set $slaves[$i].counter.anal += 5>>
				<<set $analTotal += 5>>
			<<else>>
				<<set $slaves[$i].counter.oral += 10>>
				<<set $oralTotal += 10>>
			<</if>>
		<</if>>
	<</for>>
	<<run cashX(2000, "event")>>
	<</replace>>
<</link>> //This will earn you <<print cashFormat(2000)>>//

<<link "Welcome the boy into manhood in Free Cities fashion">>
	<<replace "#result">>
	Though he was but a boy yesterday, none can say that this newly made man entered his manhood with anything less than a sterling display of enthusiasm and virility, though he is somewhat lacking in general technique. Nevertheless, any man able to fuck his way through an entire brothel of sex slaves and back again is clearly capable of bearing the mantle of citizenry in $arcologies[0].name. The story of a boy entering manhood in such a spectacular manner spreads rapidly and reflects well in the court of @@.green;public opinion,@@ with many citizens recalling their own passage past the age of majority. However, a lifetime of indulgence and spoiling have rendered this new citizen unable to understand the concept of being refused — not that your slaves could refuse him, in any case. His rough treatment has left your poor slave whores @@.red;battered@@ by his brutally selfish lovemaking.
	<<for $i = 0; $i < $slaves.length; $i++>>
		<<if $slaves[$i].assignment == "work in the brothel">>
			<<set $slaves[$i].health -= 5>>
			<<if canDoVaginal($slaves[$i]) && canDoAnal($slaves[$i])>>
				<<set $slaves[$i].counter.vaginal += 1>>
				<<set $vaginalTotal += 1>>
				<<set $slaves[$i].counter.anal += 1>>
				<<set $analTotal += 1>>
			<<elseif canDoAnal($slaves[$i])>>
				<<set $slaves[$i].counter.anal += 2>>
				<<set $analTotal += 2>>
			<<else>>
				<<set $slaves[$i].counter.oral += 4>>
				<<set $oralTotal += 4>>
			<</if>>
		<</if>>
	<</for>>
	<<run cashX(1000, "event")>>
	<<run repX(2500, "event")>>
	<</replace>>
<</link>> //This will earn you <<print cashFormat(1000)>>//

repo_name: KelioSteel/fc


code:
:: RE busy arcade [nobr]

<<set _rebaIDs = []>>
<<for _reba = 0; _reba < $ArcadeiIDs.length; _reba++>>
	<<set _rebaIndex = $slaveIndices[$ArcadeiIDs[_reba]]>>
	<<if $slaves[_rebaIndex].amp != 1 && $slaves[_rebaIndex].fetish != "mindbroken" && $slaves[_rebaIndex].devotion < 45>>
		<<set _rebaIDs.push($slaves[_rebaIndex].ID)>>
	<</if>>
<</for>>
<<set $activeSlave = getSlave(_rebaIDs.random())>>

<<if (ndef $activeSlave)>>
	<<goto "RIE Eligibility Check">>
<<else>>

<<set $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "RIE Eligibility Check">>
<<setLocalPronouns $activeSlave>>
<<run Enunciate($activeSlave)>>

Slaves in your arcade are not immured in the facility permanently, since holding them in one position at all times would negatively impact their health. They are released to exercise, eat, bathe, and sleep, though for nothing else. You occasionally inspect them when they do so, to see that their harsh lives are not inappropriately difficult for them. One day when you are doing so, <<EventNameLink>> flings $himself on the ground in front of you the instant $he sees you.

Facing the ground, <<if !canTalk($activeSlave)>>$he gestures with shaking hands that $he cannot take any more. $He begs you abjectly to let $him out of the arcade and promises to be a perfect sex slave if you do.<<elseif SlaveStatsChecker.checkForLisp($activeSlave)>>$he lisps through tears, <<else>>$he sobs, <</if>>"<<Master>>, plea<<s>>e. I can't take any more of thi<<s>>. Plea<<s>>e let me out. I'll do anything, <<Master>>. I'll love you forever, <<Master>> — ju<<s>>t don't make me go back in<<s>>ide that wall."

<<link "Accept $his pledge">>
	<<EventNameDelink $activeSlave>>
	<<replace "#result">>
	When you accept, $activeSlave.slaveName looks up at you in incomprehension, expecting you to correct yourself or reveal that this is a cruel trick. When you do neither, $he scrabbles spastically to your feet, kisses them as $he cries, and then clings to your knees, sobbing. $He is so relieved by this reprieve that $he is now on the cusp of @@.hotpink;devotion to you,@@ and will obey out of near-paralytic fear of being sent back to the arcade.
	<<set $activeSlave.devotion = 45>>
	<<= removeJob($activeSlave, "be confined in the arcade")>>
	<</replace>>
<</link>>

<<link "Refuse">>
	<<EventNameDelink $activeSlave>>
	<<replace "#result">>
	$He did not really expect mercy, but $his sobs take on a distinctly dark tone of hopelessness at your refusal. As you personally immure $him in the arcade for another day of endless dick, you wonder whether $he'll damage $his throat with all the commotion $he's making. Several of the other arcade slaves glance dully over at the noise. Then, they look away.
	<</replace>>
<</link>>

<</if>>


code:
:: RE busy brothel [nobr]

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

$brothelNameCaps is well staffed, and does a busy trade in flesh 24 hours a day. With so many sex slaves in the Free Cities, brothels occupy a functional, nearly mechanical part of the sexual landscape. Free citizens and sometimes even favored slaves visit the brothel, select from the available merchandise, relieve their sexual needs, and leave. Affection, companionship, and emotional needs are available elsewhere.

Of course, $brothelName is the best establishment of its kind in the arcology. Citizens who patronize it can expect themselves to be very well looked after by skilled slaves. The quality of the merchandise, the efficiency with which it is delivered, and the cleanliness and reputation of the premises @@.green;reflect well on you,@@<<run repX(500, "event")>> so much so that you could leverage this bustling sexual commerce in many ways.

<<link "Surprise the hardworking whores with a day of rest">>
	<<replace "#result">>
	The problem with assembly-line sex is that it has a tendency to destroy any sense of intimacy or fun. So, you make some simple preparations and close the brothel for a day, hiring some freelancers to cover. All your slave whores are allowed to sleep late, and then spend the day with you playing games and enjoying light amusements. The girls are surprised by your generosity, but they have fun. Many of the games are sexually themed. One day of giggling and squealing can't completely reverse the transactionalization of sex for them, but they @@.hotpink;appreciate the effort.@@
	<<for $i = 0; $i < $BrothiIDs.length; $i++>>
		<<set $slaves[$slaveIndices[$BrothiIDs[$i]]].devotion += 4>>
		<<set $slaves[$slaveIndices[$BrothiIDs[$i]]].lastWeeksCashIncome += 250>>
		<<set $slaves[$slaveIndices[$BrothiIDs[$i]]].lifetimeCashIncome += 250>>
	<</for>>
	<<run cashX(-1000, "event")>>
	<</replace>>
<</link>> //This will cost <<print cashFormat(1000)>>//

<<link "Hire an expert hooker to give lessons">>
	<<replace "#result">>
	The citizen streetwalker has had her day. A few of the cleverest have avoided being driven into poverty, either by becoming madams or by finding a way to build a new career serving the slave brothel industry. One of these is touring the city, offering her long sexual experience in seminars for slave prostitutes. Her services are not cheap, but it rapidly becomes clear that they are worth it. She is a grey-haired but still elegant woman with deep crow's feet and a smoker's voice. She is not only a sexual master, but a hard-bitten and comprehensively experienced businesswoman. All of your brothel slaves with any room for improvement in their whoring skills @@.green;learn from her lessons,@@ while those who have nothing to learn @@.hotpink;gain confidence@@ from her praise.
	<<for $i = 0; $i < $BrothiIDs.length; $i++>>
		<<set $slaves[$slaveIndices[$BrothiIDs[$i]]].lastWeeksCashIncome += 250>>
		<<set $slaves[$slaveIndices[$BrothiIDs[$i]]].lifetimeCashIncome += 250>>
		<<if $slaves[$slaveIndices[$BrothiIDs[$i]]].skill.whoring < 100>>
			<<set $slaves[$i].skill.whoring += 10>>
		<<else>>
			<<set $slaves[$slaveIndices[$BrothiIDs[$i]]].devotion += 4>>
		<</if>>
	<</for>>
	<<run cashX(-2000, "event")>>
	<</replace>>
<</link>> //This will cost <<print cashFormat(2000)>>//

<<link "Eliminate prices for one morning to promote the brothel">>
	<<replace "#result">>
	The news that sex will be free at the brothel travels like wildfire. Security measures are necessary to control the throng that spends the entire day entering and leaving the brothel, though as the day goes on the crowds thin. By midmorning, all the holes on offer are so fucked out that only those who fetishize that sort of thing stick around. The brothel is a real seminal sewer by noon, and it smells like it. Nevertheless, free sex is a short route to @@.green;public approval,@@ though you do miss a morning's fees. The poor slave whores are @@.red;fairly battered@@ by so much wear and tear in so little time.
	<<for $i = 0; $i < $BrothiIDs.length; $i++>>
		<<set _rebb = $slaveIndices[$BrothiIDs[$i]]>>
		<<set $slaves[_rebb].health -= 10>>
		<<if canDoVaginal($slaves[_rebb])>>
			<<set $slaves[_rebb].counter.vaginal += 5>>
			<<set $vaginalTotal += 5>>
			<<if canDoAnal($slaves[_rebb])>>
				<<set $slaves[_rebb].counter.anal += 5>>
				<<set $analTotal += 5>>
			<</if>>
		<<elseif canDoAnal($slaves[_rebb])>>
			<<set $slaves[_rebb].counter.anal += 10>>
			<<set $analTotal += 10>>
		<</if>>
		<<set $slaves[_rebb].counter.oral += 10>>
		<<set $oralTotal += 10>>
	<</for>>
	<<run cashX(-2000, "event")>>
	<<run repX(1000, "event")>>
	<</replace>>
<</link>> //This will cost <<print cashFormat(2000)>>//


code:
:: RE busy club [nobr]

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

The original designers of the modern arcology did not realize how inseparable from slavery their work would become. The club at the social heart of $arcologies[0].name was not meant as a center of the more friendly kind of sexual slavery, but that is what it has become. Free whores of the highest quality work there, and they are accompanied by a flock of your slaves who have simple orders to dance, add cheer, and perform sexual favors wherever they can.

Offering slaves for free sex would become unmanageable if the club where your public servants work was open to the unwashed masses, but it is not. The arcology is already selective, and only good citizens can party, dance, and fuck the night away in $clubName. The upper classes @@.green;recognize your contributions@@<<run repX(500, "event")>> to arcology culture, which you could probably parlay into an even greater benefit.

<<link "Sponsor a special event in the club">>
	<<replace "#result">>
	The Free Cities are new, and so is their culture. There are new traditions, new expectations, and now, new holidays. One morning, the upper classes of the arcology are surprised and gratified to find that the club has been specially decorated, and all the club sluts are nude. The floor of the club is typically meant for dirty dancing and some light sex, not public penetrative intercourse. Not today; today is special. The festivities @@.green;greatly improve your renown;@@ you have set a high bar for what a wealthy arcology owner should do.
	<<run cashX(-2000, "event")>>
	<<run repX(2500, "event")>>
	<</replace>>
<</link>> //This will cost <<print cashFormat(2000)>>//

<<link "Host a business exposition">>
	<<replace "#result">>
	With the world economy in a perilous state, the Free Cities are one of the few remaining areas where innovation and new business opportunities still appear. The novel markets associated with the slave trade only reinforce this trend, offering a cornucopia of opportunities for the clear-eyed investor with liquid assets. Every other week there is news of a new fortune being made from smart investments in leather, in human growth hormones, or in psychoactive drugs. You host an exposition for slave services centered on the club, with your slaves serving as greeters who are eager to ensure that all the little wants of visiting notables are thoroughly satisfied. The optimistic outlook projected by this event @@.green;improves $arcologies[0].name's business prospects@@ and even @@.green;reflects well on you personally.@@
	<<run cashX(-5000, "event")>>
	<<set $arcologies[0].prosperity += 2>>
	<<run repX(2500, "event")>>
	<</replace>>
<</link>> //This will cost <<print cashFormat(5000)>>//


code:
:: RE busy dairy [nobr]

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

$dairyNameCaps is working away steadily. Its high-quality product @@.green;reflects well on you,@@<<run repX(500, "event")>> you muse one day as you inspect the premises. The gentle pneumatic sounds of the milkers and the whimpers of the cows being milked are a pleasant background for the thought.

Even with high doses of modern drugs, human cows simply do not produce a very high volume of milk. This isn't much of a business problem, since it just means that the product can be sold at a high price. However, some of the more grandiose ideas about how to use milk have had to wait until you have enough cows producing enough milk to make them possible.

<<link "Share a milk bath with the cows">>
	<<replace "#result">>
	Milk is a fashionable skin treatment in the Free Cities, and many of the cows fetishize their breasts and their milk. Many of them giggle with delight when you bring them all into a large spa room with a huge tub full of their fresh milk. A pittance will be lost from sales, but it's hard to think of such things when swimming and splashing in warm, nutty mother's milk with so many huge-breasted slaves, many of whom are milking themselves into the bath. Some of the older ones relax and luxuriate, gently milking themselves and masturbating or each other, according to taste. The younger cows prefer to rub themselves against you, taking turns being fucked. Regardless, they all @@.hotpink;appreciate such a special experience.@@
	<<for $i = 0; $i < $DairyiIDs.length; $i++>>
		<<set _rebd = $slaveIndices[$DairyiIDs[$i]]>>
		<<set $slaves[_rebd].devotion += 4>>
		<<if canDoVaginal($slaves[_rebd])>>
			<<set $slaves[_rebd].counter.vaginal += 1>>
			<<set $vaginalTotal += 1>>
		<<elseif canDoAnal($slaves[_rebd])>>
			<<set $slaves[_rebd].counter.anal += 1>>
			<<set $analTotal += 1>>
		<</if>>
		<<set $slaves[_rebd].counter.oral += 1>>
		<<set $oralTotal += 1>>
	<</for>>
	<<run cashX(-1000, "event")>>
	<</replace>>
<</link>> //This will cost <<print cashFormat(1000)>>//
<<if $club != 0>>

<<link "Add fresh milk to the club for a day to advertise">>
	<<replace "#result">>
	Sexual sights and sounds are all over the arcology. Nevertheless, passersby on the club are surprised to find one morning that a previously normal screen advertising your brand of milk has a luscious pair of breasts protruding through it at head height. The advertisement encourages anyone to try a free sample. The slaves constantly rotate, pressing fresh tits through the gap for public suckling. It is @@.green;generally agreed that your product is of the finest quality@@ and you even have enquiries about how it might be exported outside the arcology, should you manage to increase production.
	<<run cashX(-2000, "event")>>
	<<run repX(2500, "event")>>
	<</replace>>
<</link>> //This will cost <<print cashFormat(2000)>>//
<</if>>
<<if ($cumSlaves >= 5) && ($activeSlave.fetish != "cumslut")>>

<<link "Cum in, milk out">>
		<<replace "#result">>
		As a promotional gimmick, you announce with considerable fanfare a special, experimental brand of milk, available at the normal price for a short time only. The milk will be unique in that it will be from cows fed mostly on slaves' cum; the cockmilked slaves will in turn be given as much milk as possible to produce a 'pure slave product,' recursively. The sad realities of nutrition stop it from being much more than a marketing ploy, but it's certainly a @@.green;successful@@ attempt to spark discussion.
	<<run repX(5000, "event")>>
	<<run cashX(-1000, "event")>>
		<</replace>>
	<</link>> //This will cost <<print cashFormat(1000)>>//
<</if>>


code:
:: RE busy servants quarters [nobr]

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

Your penthouse is very well staffed with servants. The trend in modern buildings is to design around automatic cleaning systems. Dusting, mopping, and polishing are no longer really necessary when machines that do them more cheaply and thoroughly than any human are readily available. Keeping slaves to clean is an ostentation, and visitors to your quarters are often @@.green;surprised and gratified@@ to see a sex slave working away in the old way.
<<run repX(500, "event")>>

The busy servants' quarters are a reservoir of slaves that can be used for almost any whim that occurs to you.

<<link "Share the servants' quarters with your more favored slaves">>
	<<replace "#result">>

	The poor slaves in the servants' quarters are lower than almost any others, and they know it. Unfortunately for them, they're about to spend a long weekend knowing it unusually well. Sleeping time is usually nearly inviolate; you are the only person in the penthouse who is permitted to wake a sleeping slave for any but emergency reasons. Not now. You haunt the servants' quarters, using and abusing at will, and encourage your better slaves to follow your example. They quickly take the opportunity to be better than someone for once, and compete with each other in sexual harassment of the servants. They @@.hotpink;appreciate@@ having @@.mediumorchid;targets@@ for their frustrations.
	<<for $i = 0; $i < $slaves.length; $i++>>
		<<if $slaves[$i].assignment != "work as a servant">>
			<<set $slaves[$i].devotion += 4>>
			<<set $slaves[$i].counter.oral += 3>>
			<<set $oralTotal += 3>>
		<</if>>
		<<if $slaves[$i].assignment == "work as a servant">>
			<<set $slaves[$i].devotion -= 5>>
			<<if canDoVaginal($slaves[$i]) && $slaves[$i].vagina > 0>>
				<<set $slaves[$i].counter.vaginal += 1>>
				<<set $vaginalTotal += 1>>
			<<elseif canDoAnal($slaves[$i]) && $slaves[$i].anus > 0>>
				<<set $slaves[$i].counter.anal += 1>>
				<<set $analTotal += 1>>
			<</if>>
			<<set $slaves[$i].counter.oral += 5>>
			<<set $oralTotal += 5>>
		<</if>>
	<</for>>
	<</replace>>
<</link>>


code:
:: RE citizen hookup [nobr]

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

<<set _FS = []>>
<<if $arcologies[0].FSSubjugationist != "unset">>
	<<set _FS.push("Subjugationist")>>
<</if>>
<<if $arcologies[0].FSSupremacist != "unset">>
	<<set _FS.push("Supremacist")>>
<</if>>
<<if $arcologies[0].FSGenderRadicalist != "unset">>
	<<set _FS.push("Gender Radicalist")>>
<<elseif $arcologies[0].FSGenderFundamentalist != "unset">>
	<<set _FS.push("Gender Fundamentalist")>>
<</if>>
<<if $arcologies[0].FSRepopulationFocus != "unset">>
	<<set _FS.push("Repopulationist")>>
<<elseif $arcologies[0].FSRestart != "unset">>
	<<set _FS.push("Eugenics")>>
<</if>>
<<if $arcologies[0].FSPaternalist != "unset">>
	<<set _FS.push("Paternalist")>>
<<elseif $arcologies[0].FSDegradationist != "unset">>
	<<set _FS.push("Degradationist")>>
<</if>>
<<if $arcologies[0].FSBodyPurist != "unset">>
	<<set _FS.push("Body Purist")>>
<<elseif $arcologies[0].FSTransformationFetishist != "unset">>
	<<set _FS.push("Transformation Fetishist")>>
<</if>>
<<if $arcologies[0].FSYouthPreferentialist != "unset">>
	<<set _FS.push("Youth Preferentialist")>>
<<elseif $arcologies[0].FSMaturityPreferentialist != "unset">>
	<<set _FS.push("Maturity Preferentialist")>>
<</if>>
<<if $arcologies[0].FSSlimnessEnthusiast != "unset">>
	<<set _FS.push("Slimness Enthusiast")>>
<<elseif $arcologies[0].FSAssetExpansionist != "unset">>
	<<set _FS.push("Asset Expansionist")>>
<</if>>
<<if $arcologies[0].FSPastoralist != "unset">>
	<<set _FS.push("Pastoralist")>>
<</if>>
<<if $arcologies[0].FSPhysicalIdealist != "unset">>
	<<set _FS.push("Physical Idealist")>>
<<elseif $arcologies[0].FSHedonisticDecadence != "unset">>
	<<set _FS.push("Hedonistic")>>
<</if>>
<<if $arcologies[0].FSChattelReligionist != "unset">>
	<<set _FS.push("Chattel Religionist")>>
<</if>>
<<if $arcologies[0].FSRomanRevivalist != "unset">>
	<<set _FS.push("Roman Revivalist")>>
<<elseif $arcologies[0].FSAztecRevivalist != "unset">>
	<<set _FS.push("Aztec Revivalist")>>
<<elseif $arcologies[0].FSEgyptianRevivalist != "unset">>
	<<set _FS.push("Egyptian Revivalist")>>
<<elseif $arcologies[0].FSEdoRevivalist != "unset">>
	<<set _FS.push("Edo Revivalist")>>
<<elseif $arcologies[0].FSArabianRevivalist != "unset">>
	<<set _FS.push("Arabian Revivalist")>>
<<elseif $arcologies[0].FSChineseRevivalist != "unset">>
	<<set _FS.push("Chinese Revivalist")>>
<</if>>
<<if _FS.length > 0>>
	<<set _FS = _FS.random()>>
<<else>>
	<<set _FS = "none">>
<</if>>

At night, the best living areas in the arcology offer a constant mélange of selective entertainments. There's a perpetual social scrum of who is to be invited to what going on, and you occupy a preeminent place atop it, mostly aloof from the struggles of your citizens for recognition and influence. You're invited to almost everything, since everyone who lives here knows the value of being in favor with the owner of the arcology. Invitations to your parties, of course, are some of the most valuable social currency in the arcology and one of $assistantName's most important duties is to help you manage them without wasting your valuable time. It's not actually necessary for you to attend your own parties, since almost everyone will be glad to be seen in the entertainment area of the penthouse whether or not the propriet<<if $PC.title == 1>>or<<else>>ress<</if>> is actually present.

But tonight, you've put in an appearance. Your citizens are drinking your <<if $arcologies[0].FSPastoralist != "unset">>milk<<elseif $arcologies[0].FSRestart != "unset">>finest alcohol<<else>>alcohol<</if>> and eating your food, though of course they helped pay for it through their rent. They're performing a complex dance of social dominance, and it all radiates around you, with complex unspoken rules of collective approval governing which citizens cycle past you for a word, and for how long. During a low point in the ebb and flow,
<<switch _FS>>
<<case "Subjugationist" "Supremacist">>
	a pretty, racially pure young woman
<<case "Gender Radicalist">>
	a beautiful young futa
<<case "Gender Fundamentalist">>
	a good-looking young lady
<<case "Repopulationist">>
	<<if $arcologies[0].FSRepopulationFocusLaw == 1>>
		a heavily pregnant, young lady
	<<else>>
		a pretty, fertile young women with wide, child bearing hips
	<</if>>
<<case "Eugenics">>
	a stunningly gorgeous woman
<<case "Paternalist">>
	a pretty, cheerful young woman
<<case "Degradationist">>
	a confident girl
<<case "Body Purist">>
	a clean-looking young woman
<<case "Transformation Fetishist">>
	a nicely augmented girl
<<case "Youth Preferentialist">>
	<<if $minimumSlaveAge < 13>>
		an adorable little loli
	<<elseif $minimumSlaveAge < 18>>
		a pretty teenage girl
	<<else>>
		a nice looking girl
	<</if>>
<<case "Maturity Preferentialist">>
	an attractive, mature woman
<<case "Slimness Enthusiast">>
	a slim young thing
<<case "Asset Expansionist">>
	curvaceous young woman
<<case "Pastoralist">>
	a hot little lady
<<case "Physical Idealist">>
	a hot little amazon
<<case "Hedonistic">>
	a plump little cutey
<<case "Chattel Religionist">>
	a pretty, devout-looking young woman
<<case "Roman Revivalist">>
	a proper young Roman lady
<<case "Aztec Revivalist">>
	a natural Aztec beauty
<<case "Egyptian Revivalist">>
	a pretty, sun-kissed lady
<<case "Edo Revivalist">>
	a proper Edo lady
<<case "Arabian Revivalist">>
	a pretty Arabian princess
<<case "Chinese Revivalist">>
	a pretty Chinese lady
<<default>>
	a pretty young woman
<</switch>>
sidles up to you. She begins to introduce herself, but one of the advantages of your connection to the arcology is that you always know who everyone is, and you greet her by name, which people have never learned not to be impressed by. She gushes about some of your recent <<if _FS != "none">>_FS <</if>>actions, displaying an unusual grasp of what you've been planning. Despite her sincere interest, she's obviously got something else on her mind.

She's yours for the taking, if you want her, and if her praise and proximity weren't enough to make that clear, she manages to
<<switch _FS>>
<<case "Subjugationist" "Supremacist">>
	give you an excellent view straight down her ethnically superior cleavage, straining against the top of her fashionable dress.
<<case "Gender Radicalist">>
	simultaneously give you an excellent view straight down her cleavage, and bring the material of her sheer dress tight across her legs in a way that outlines her dick.
<<case "Gender Fundamentalist">>
	press her flirting as far she can decorously take it, batting her eyes at you coquettishly.
<<case "Repopulationist">>
	<<if $arcologies[0].FSRepopulationFocusLaw == 1>>
		lean back just far enough that her full term, triplets rounded middle splits the front of her overly tight dress.
	<<else>>
		press her hips up against your own, before leaning in and whispering "I'm ripe for breeding right now."
	<</if>>
<<case "Eugenics">>
	give you an excellent view straight down her perfect cleavage, straining against the top of her name-brand dress.
<<case "Paternalist">>
	brush her breasts against your arm, presuming on the egalitarian nature of your Paternalist society to flirt a little aggressively.
<<case "Degradationist">>
	raise one shoulder far enough that her breast on that side pulls its nipple just clear of her tight leather dress, revealing a spiked piercing.
<<case "Body Purist">>
	arch her back with such warm propinquity that her natural breasts almost spill out of her tight little dress, and actually reveal the upper edges of their areolae.
<<case "Transformation Fetishist">>
	pop her huge fake boobs entirely out of her tight little evening dress without even using her hands.
<<case "Youth Preferentialist">>
	perfectly balance her youthful, innocent appeal with the proper decorum between you and a citizen.
<<case "Maturity Preferentialist">>
	perfectly balance her matronly, sensual appeal with the proper decorum between you and a citizen.
<<case "Slimness Enthusiast">>
	turn from side to side as she flirts with you in a way that shows off the coquettish forum under her tight dress to great effect.
<<case "Asset Expansionist">>
	arch her back with such warm propinquity that her huge breasts spill out of her tight little dress, springing clear to offer themselves glorious and nude.
<<case "Pastoralist">>
	let you know that she's almost entirely milk-fed, while giving you quite an eyeful of her straining cleavage.
<<case "Physical Idealist">>
	get a pretty good flex going without being obvious about it, outlining her abs against the sheer midsection of her tight dress.
<<case "Hedonistic">>
	lean her chubby body back far enough to pop the buttons off her top and allow her ample breasts and armful of a belly to hang free.
<<case "Chattel Religionist">>
	assume just a hint of a Chattel Religionist devotional pose used to request penetration. It's heavy flirting, of a modern religious sort.
<<case "Roman Revivalist">>
	hint that her pudicitia, that is her purity, would be if anything enhanced by sexual commerce with someone as powerful as you.
<<case "Aztec Revivalist">>
	hint that her devotion, which is the most important thing, cannot be besmirched by tasting your divine power.
<<case "Egyptian Revivalist">>
	hint that she would like nothing better than to bask in the pharaonic light in the arcology, very close to its source, while loosening her linen dress a little.
<<case "Edo Revivalist">>
	allude to the refined pleasures, while assuming a slightly less dignified posture in her gorgeous kimono.
<<case "Arabian Revivalist">>
	reference young Scheherazade and mighty Shahryar in a way that suggests she's quite willing to play the former.
<<case "Chinese Revivalist">>
	allude to the divinity that resides with the powerful, implying that she'd very much like to come closer to it.
<<default>>
	flirt with you quite hard without crossing any lines between a citizen and an arcology owner.
<</switch>>
She's clearly attracted to you; even the most consummate actress would have difficulty fooling you, and her breath is a little quick, her pupils are a bit dilated, and she's blushing cutely. But she's no fool, either. A casual liaison with <<run PCTitle()>>$PCTitle would be a tremendous social boost for her.

<<link "Keep aloof without offending her">>
	<<replace "#result">>
	You thank her for her praise, weighting the words in just the right way to communicate that you consider her flirtations worthy compliments, and nothing more. She understands immediately, communicating acceptance and pleasure at her own daring with nothing more than a thankful look in your eyes. This is how you approach matters like this. You are the ruler of this place and it behooves you to maintain a balance atop all your citizens without showing any susceptibility to solicitation. A little incident like this has little effect on its own, but your habit of maintaining proper reserve creates a reputation for judiciousness that @@.green;businesspeople consider attractive for arcology investment.@@
	<<set $arcologies[0].prosperity += 3>>
	<</replace>>
<</link>>

<<link "To them that hath, it shall be given">>
	<<replace "#result">>
	You're not exactly starved for casual sex, but you've never thought there was any such thing as too much of a good thing. You place a <<if $PC.title == 1>>masculine<<else>>feminine<</if>> hand against the small of her back, feeling the warmth of her through the material of her evening wear. You hear a slight gasp from her as she realizes that her gambit has succeeded with more immediate effect than she expected. She shivers with anticipation as you steer her back through a side door, making a discreet exit towards your private suite.
	<<if $Concubine != 0 && $Concubine.intelligence+$Concubine.intelligenceImplant > 50>>
		$Concubine.slaveName is there, of course, and she instantly sees that her continued presence for a ménage à trois is wanted by both you and your guest.
	<</if>>
	Your guest restrains her eager praise now that you're in private, but her wide-eyed appreciation of your domain is compliment enough. Once in your suite, she strips, revealing
	<<switch _FS>>
	<<case "Subjugationist" "Supremacist">>
		her fresh, pure body.
	<<case "Gender Radicalist">>
		perky young breasts, a pretty pussy, and a stiff dick above it.
	<<case "Gender Fundamentalist">>
		perky young breasts and an elegantly coiffed strip of hair that perfectly highlights her demure pussy.
	<<case "Repopulationist">>
		<<if $arcologies[0].FSRepopulationFocusLaw == 1>>
			an inexperienced body undergoing its very first pregnancy. She's taken good care of herself; not a single stretch mark can be seen across her proportionally giant belly.
		<<else>>
			an inexperienced body, but one with potential for becoming quite fecund.
		<</if>>
	<<case "Eugenics">>
		a near flawless body; the only distinguishable mark on it: a small tattoo of a prestigious school.
	<<case "Paternalist">>
		a nice young body, with all the little attractions and flaws of a free girl's.
	<<case "Degradationist">>
		a taut body covered in dominant tattoos and spiky piercings.
	<<case "Body Purist">>
		a delectably curvaceous young body unmarred by any trace of surgical intervention.
	<<case "Transformation Fetishist">>
		a massive fake bubble butt to go with her fake boobs.
	<<case "Youth Preferentialist">>
		that her whole body looks fresh, untouched, and quite young.
	<<case "Maturity Preferentialist">>
		a big pair of motherly tits, generous hips, a broad ass, and total self confidence.
	<<case "Slimness Enthusiast">>
		perky little breasts, a smooth waist, trim hips, and a cute little ass.
	<<case "Asset Expansionist">>
		an inhumanly enormous ass to match her similarly improbable boobs.
	<<case "Pastoralist">>
		amply milk-fed assets.
	<<case "Physical Idealist">>
		the dimples that form on the sides of her cute buttocks when she flexes.
	<<case "Hedonistic">>
		well-fed and delightfully jiggly assets.
	<<case "Chattel Religionist">>
		a fresh and ready body, adorned here and there with sensual devotional jewelry.
	<<case "Roman Revivalist">>
		a graceful, milk-pale vision of classical beauty.
	<<case "Aztec Revivalist">>
		a strong, tight, bronze body.
	<<case "Egyptian Revivalist">>
		a perfect expanse of smooth, warm, tanned skin.
	<<case "Edo Revivalist">>
		a graceful form so perfectly pale that her face requires almost no whitening at all.
	<<case "Arabian Revivalist">>
		a nubile young body perfectly formed for a Sultan's bed.
	<<case "Chinese Revivalist">>
		a pretty young body that would not look out of place in an Imperial bed.
	<<default>>
		a hot young body.
	<</switch>>
	Citizens like her often appreciate a good hard fuck, since regular submission to a pounding from sex slaves would be a scandal. There's little opprobrium waiting for you if it's known you had her, though, and she's deliciously eager as you press her down onto the bed<<if $PC.dick == 0>> and pull on your usual harness<</if>>. She ruts herself hard back against you as you thrust into her, moaning, and after a short while she begs for it even harder, so you flip her over and mount her like a bitch, making her scream.
	<<if $Concubine != 0 && $Concubine.intelligence > 1>>
		<<setLocalPronouns $Concubine>>
		The view of your conquest's rutting back is nice, of course, but after enjoying it for a few moments you pull $Concubine.slaveName in and kiss your favorite deeply, playing with $him as you fuck.
	<</if>>
	When your guest is finally spent, she showers, dresses, and leaves discreetly, offering you a proper thank you. This is the kind of thing that @@.green;builds a lasting reputation@@ in the Free Cities.
	<<run repX(5000, "event")>>
	<<if _FS == "Repopulationist" && $PC.dick == 1 && $arcologies[0].FSRepopulationFocusLaw == 0 && (random(1,100) > 40)>>
		<<set $desc = "a tasteful morning-after message, with attached positive pregnancy test, from a pretty " + _FS + " citizen you bred">>
		<<set $trinkets.push($desc)>>
	<<elseif _FS != "none">>
		<<set $desc = "a tasteful morning-after message from a pretty " + _FS + " citizen">>
		<<set $trinkets.push($desc)>>
	<<else>>
		<<set $trinkets.push("a tasteful morning-after message from a pretty citizen")>>
	<</if>>
	<</replace>>
<</link>>
<<if _FS != "none">>

<<link "Emphasize her societal style with exhibitionism">>
	<<replace "#result">>
	You turn to face her straight on, and something about the look in your eye fills her with mixed apprehension and anticipation. You agree with her banter and praise her for being so forward-thinking, before transitioning to more direct praise of her style and then her body. You're speaking in a tone that cuts through the room, and by the time you kiss your willing conquest, there's not a person in the room who isn't paying attention. They all understand the message: this gathering is turning into something else, now. Those few who aren't willing to fuck in public withdraw, and everyone who didn't come with a sexual partner sends urgent messages to have appropriate slaves brought from their apartments. You make out with her for a while, letting everyone make arrangements, and then pull her clothes off, making sure her
	<<switch _FS>>
	<<case "Subjugationist" "Supremacist">>
		superior body
		<<if _FS == "Supremacist">>
			<<set $arcologies[0].FSSupremacist += 5>>
		<<else>>
			<<set $arcologies[0].FSSubjugationist += 5>>
		<</if>>
	<<case "Gender Radicalist">>
		tits and stiff dick
		<<set $arcologies[0].FSGenderRadicalist += 5>>
	<<case "Gender Fundamentalist">>
		femininity
		<<set $arcologies[0].FSGenderFundamentalist += 5>>
	<<case "Repopulationist">>
		<<if $arcologies[0].FSRepopulationFocusLaw == 1>>
			fecund body
		<<else>>
			ready-to-be-bred body
		<</if>>
		<<set $arcologies[0].FSRepopulationFocus += 5>>
	<<case "Eugenics">>
		perfect body
		<<set $arcologies[0].FSRestart += 5>>
	<<case "Paternalist">>
		appealing body
		<<set $arcologies[0].FSPaternalist += 5>>
	<<case "Degradationist">>
		dominant form
		<<set $arcologies[0].FSDegradationist += 5>>
	<<case "Body Purist">>
		natural body
		<<set $arcologies[0].FSBodyPurist += 5>>
	<<case "Transformation Fetishist">>
		fake butt
		<<set $arcologies[0].FSTransformationFetishist += 5>>
	<<case "Youth Preferentialist">>
		young body
		<<set $arcologies[0].FSYouthPreferentialist += 5>>
	<<case "Maturity Preferentialist">>
		mature body
		<<set $arcologies[0].FSMaturityPreferentialist += 5>>
	<<case "Slimness Enthusiast">>
		slender body
		<<set $arcologies[0].FSSlimnessEnthusiast += 5>>
	<<case "Asset Expansionist">>
		curvaceous form
		<<set $arcologies[0].FSAssetExpansionist += 5>>
	<<case "Pastoralist">>
		milk-fed assets
		<<set $arcologies[0].FSPastoralist += 5>>
	<<case "Physical Idealist">>
		muscular body
		<<set $arcologies[0].FSPhysicalIdealist += 5>>
	<<case "Hedonistic">>
		plump body
		<<set $arcologies[0].FSHedonisticDecadence += 5>>
	<<case "Chattel Religionist">>
		divine sexuality
		<<set $arcologies[0].FSChattelReligionist += 5>>
	<<case "Roman Revivalist">>
		elegant form
		<<set $arcologies[0].FSRomanRevivalist += 5>>
	<<case "Aztec Revivalist">>
		well-built form
		<<set $arcologies[0].FSAztecRevivalist += 5>>
	<<case "Egyptian Revivalist">>
		beautiful tanned body
		<<set $arcologies[0].FSEgyptianRevivalist += 5>>
	<<case "Arabian Revivalist" "Chinese Revivalist" "Edo Revivalist">>
		graceful form
		<<if _FS == "Edo Revivalist">>
			<<set $arcologies[0].FSEdoRevivalist += 5>>
		<<elseif _FS == "Arabian Revivalist">>
			<<set $arcologies[0].FSArabianRevivalist += 5>>
		<<else>>
			<<set $arcologies[0].FSChineseRevivalist += 5>>
		<</if>>
	<<default>>
		hot young body
	<</switch>>
	is obvious to everyone. The message is clear, and your guest of honor is the center of attention as you take her there in view of the arcology's leading citizens. Naturally, the story percolates, making it clear that there's nothing you won't do to @@.green;further acceptance of _FS principles.@@
	<</replace>>
<</link>>
<</if>>


code:
:: RE devotees [nobr]

<<set $nextButton = "Continue">>
<<set $nextLink = "RIE Eligibility Check">>
<<set _red1 = $slaveIndices[$devotedSlaves[0]]>>
<<set _red2 = $slaveIndices[$devotedSlaves[1]]>>
<<set _red3 = $slaveIndices[$devotedSlaves[2]]>>
<<set _red4 = $slaveIndices[$devotedSlaves[3]]>>

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

			<<SlaveArt $slaves[_red1] 2 0>>

			<<SlaveArt $slaves[_red2] 2 0>>

			<<SlaveArt $slaves[_red3] 2 0>>

			<<SlaveArt $slaves[_red4] 2 0>>

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

You have a mature, well-trained household of slaves. $slaves[_red1].slaveName, $slaves[_red2].slaveName, $slaves[_red3].slaveName, and $slaves[_red4].slaveName are all devoted to you. There are all manner of ways you could display this coterie of loyal sex slaves to show off your wealth and power.

<<link "See an operetta with four attendants">>
	<<replace "#result">>
	<<run PCTitle()>>
	You reserve a box at an upcoming operetta; classical Italian music is enjoying a renaissance these days. The doormen at the fashionable opera house promptly widen the velvet ropes so that you and your party may proceed unimpeded. Their quick thinking is necessary, since there are five of you walking sedately up the steps: you in the middle, impeccable in <<if $PC.title == 1>>gentleman's evening wear, complete with gloves and cane<<else>>a fine and noble lady's tuxedo<</if>>; and $slaves[_red1].slaveName, $slaves[_red2].slaveName, $slaves[_red3].slaveName, and $slaves[_red4].slaveName, all dressed in the gorgeous fashion of the seventeenth century, all plunging necklines, piled hair, and ruffled petticoats. The splendid master of ceremonies clears his throat and announces in a sonorous voice, "$PCTitle." The ostentation @@.green;turns every head and catches every eye.@@
	<<run repX(600, "event", $slaves[_red1])>>
	<<run repX(600, "event", $slaves[_red2])>>
	<<run repX(600, "event", $slaves[_red3])>>
	<<run repX(600, "event", $slaves[_red4])>>
	<</replace>>
<</link>>

<<link "Visit a casino in good company">>
	<<replace "#result">>
	The croupiers, bouncers and regulars down at the nearest casino hardly know what to think when you appear with a chit full of cash and twice as many partners as you have arms. You live the night big, starting at the poker table with so many tits and asses on display behind you that, @@.yellowgreen;baby, you make a killing.@@ $slaves[_red1].slaveName, $slaves[_red2].slaveName, $slaves[_red3].slaveName, and $slaves[_red4].slaveName quickly catch the rhythm of the place: slaves can get away with a little more in the smoky, whiskey soaked, money tinted atmosphere, and they @@.hotpink;enjoy themselves immensely.@@ They flirt, flash, giggle, kiss each other, and generally destroy the concentration of everyone within twenty <<if $showInches == 2>>yards<<else>>meters<</if>> — except you. Ring-a-ding-ding.
	<<set _cashX = random(30,100)*3>>
	<<set $slaves[_red1].devotion += 4>>
	<<run cashX(_cashX, "event", $slaves[_red1])>>
	<<set $slaves[_red2].devotion += 4>>
	<<run cashX(_cashX, "event", $slaves[_red2])>>
	<<set $slaves[_red3].devotion += 4>>
	<<run cashX(_cashX, "event", $slaves[_red3])>>
	<<set $slaves[_red4].devotion += 4>>
	<<run cashX(_cashX, "event", $slaves[_red4])>>
	<</replace>>
<</link>>


code:
:: RE FSEgyptianRevivalist acquisition [nobr]

/* Written and coded by Boney M */

<<set $nextButton = "Continue">>
<<set $nextLink = "RIE Eligibility Check">>
<<set $returnTo = "RIE Eligibility Check">>
<<set $showEncyclopedia = 1>><<set $encyclopedia = "Enslaving People">>

<<set $contractCost = 3000>>
<<set $oneTimeDisableDisability = 1>>
<<set $activeSlave = GenerateNewSlave()>>
<<set $activeSlave.origin = "She offered herself to you for enslavement hoping you would preserve her incestuous relationship with her sibling.">>
<<set $activeSlave.devotion = random(5,15)>>
<<set $activeSlave.trust = random(-15,-5)>>
<<set $activeSlave.actualAge = random(21,29)>>
<<set $activeSlave.visualAge = $activeSlave.actualAge>>
<<set $activeSlave.physicalAge = $activeSlave.actualAge>>
<<set $activeSlave.ovaryAge = $activeSlave.actualAge>>
<<set $activeSlave.health = random(-20,0)>>
<<set $slaveCost = slaveCost($activeSlave)>>
<<set $slaveCost -= 3000>>
<<if $familyTesting == 1>>
	<<set $activeSlave.mother = $missingParentID>>
	<<set $missingParentID-->>
	<<set $activeSlave.father = $missingParentID>>
	<<set $activeSlave.canRecruit = 0>>
	<<set $missingParentID-->>
<<else>>
	<<set $activeSlave.relation = "sister">>
	<<set $activeSlave.relationTarget = $activeSlave.ID + 1000>>
<</if>>
<<set $activeSlave.relationship = 4>>
<<set $activeSlave.relationshipTarget = $activeSlave.ID + 1000>>
<<if ($activeSlave.dick > 0) && ($activeSlave.balls == 0)>><<set $activeSlave.balls = random(1,5)>><</if>>

<<setAssistantPronouns>>

You receive so many messages, as a noted titan of the new Free Cities world, that $assistantName has to be quite draconian in culling them. _HeA lets only the most important through to you. One category of message that always gets through regardless of content, though, is requests for voluntary enslavement. As the new world takes shape, they've become less rare than they once were.

This call is coming from a public kiosk, which is usually an indication that the person on the other end is a transient individual who has decided to take slavery over homelessness. In this case, however, the story is more unusual — the callers seem stressed, but otherwise normal. They haltingly and quietly explain, with many nervous glances off-camera to ensure they are not overheard, that they are both siblings and lovers, and their attempts to keep the truth of the nature of their relationship from their friends, family, and society at large have failed. They had heard of $arcologies[0].name's reverence for incestuous relationships, and have managed to talk themselves into the questionable conclusion that their only chance to be together was for them to sell themselves to someone who would not just accept but encourage their incest — namely, you.

//Enslaving them will cost <<print cashFormat($contractCost)>>. Selling them immediately will bring in approximately <<print cashFormat($slaveCost*2)>>.//

<<include "Long Slave Description">>

<<if $cash >= $contractCost>>
	[[Enslave the pair|RE FSEgyptianRevivalist acquisition workaround][$sibling = $activeSlave]]/*Billing will happen past the link based on $contractCost*/
<<else>>
	//You lack the necessary funds to enslave them.//
<</if>>


code:
:: RE FSEgyptianRevivalist acquisition workaround

/* Written and coded by Boney M */
They arrive hand-in-hand and don't let go of each other until the end of the enslavement process, and even after they break their grip and undress at your instruction, their eyes never stray far from each other. With a closer look at them, their blood relation is as obvious as their infatuation with one another. No wonder they couldn't keep it a secret.

<<run newSlave($sibling)>>
<<run cashX(($contractCost/2), "slaveTransfer", $sibling)>>

<<set _secondSlave = clone($activeSlave)>>

<<run nationalityToName(_secondSlave)>>
<<if $activeSlave.slaveSurname>><<set _secondSlave.slaveSurname = $activeSlave.slaveSurname>><</if>>
<<set _secondSlave.birthSurname = $activeSlave.birthSurname>>

<<set _secondSlave.ID = $activeSlave.ID + 1000>>
<<set _secondSlave.devotion += random (-1, 1)>>
<<set _secondSlave.trust += random (-1, 1)>>
<<set _secondSlave.oldDevotion = $activeSlave.devotion>>
<<set _secondSlave.actualAge -= random (2,5)>>
<<set _secondSlave.visualAge = _secondSlave.actualAge>>
<<set _secondSlave.physicalAge = _secondSlave.actualAge>>
<<set _secondSlave.ovaryAge = _secondSlave.actualAge>>
<<set _secondSlave.birthWeek = random(0,51)>>
<<if $familyTesting == 0>>
	<<set _secondSlave.relation = "sister">>
	<<set _secondSlave.relationTarget = $activeSlave.ID>>
<</if>>
<<set _secondSlave.relationship = 4>>
<<set _secondSlave.relationshipTarget = $activeSlave.ID>>

<<set _secondSlave.hStyle = either("ass-length", "long", "shoulder-length", "short", "very short", "shaved bald")>>
<<if (_secondSlave.actualAge <= 22)>>
	<<set _secondSlave.career = setup.youngCareers.random()>>
<<elseif (_secondSlave.intelligenceImplant >= 15)>>
	<<set _secondSlave.career = setup.educatedCareers.random()>>
<<else>>
	<<set _secondSlave.career = setup.uneducatedCareers.random()>>
<</if>>

<<if (random(1,4) > 1) && (random(1,99) < $seeDicks)>>

<<if ($activeSlave.dick > 0) && ($activeSlave.vagina < 0)>>
	<<set _secondSlave.dick = 0>>
	<<set _secondSlave.foreskin = 0>>
	<<set _secondSlave.scrotum = 0>>
	<<set _secondSlave.balls = 0>>
	<<set _secondSlave.vagina = 1>>
	<<set _secondSlave.clit = either(0, 0, 0, 0, 0, 0, 1, 1, 2)>>
	<<set _secondSlave.labia = either(0, 0, 0, 1, 1, 1, 1, 2, 2, 3)>>
	<<set _secondSlave.preg = -1>>
	<<set _secondSlave.ovaries = 1>>
	<<set _secondSlave.face = Math.trunc(_secondSlave.face+20,-100,100)>>
	<<set _secondSlave.boobs += either(0, 100, 200, 300, 400)>>
	<<set _secondSlave.butt += either(0, 1, 1, 2)>>
	<<set _secondSlave.earPiercing = either(0,1)>>
	<<set _secondSlave.nosePiercing = either(0,0,0,1)>>
	<<set _secondSlave.eyebrowPiercing = either(0,0,0,0,0,1)>>
	<<set _secondSlave.clitPiercing = either(0,0,0,0,0,1)>>
	<<set _secondSlave.lipsPiercing = either(0,0,0,0,0,1)>>
	<<set _secondSlave.navelPiercing = either(0,0,0,1)>>
	<<set _secondSlave.nipplesPiercing = either(0,0,0,1)>>
<<elseif ($activeSlave.dick == 0) && ($activeSlave.vagina >= 0)>>
	<<set _secondSlave.dick = either(1, 2, 2, 2, 3, 3, 3, 4, 4, 5)>>
	<<set _secondSlave.balls = either(1, 2, 2, 2, 3, 3, 3, 4, 4, 5)>>
	<<set $activeSlave.vagina = 1>>
	<<set _secondSlave.vagina = -1>>
	<<set _secondSlave.clit = 0>>
	<<set _secondSlave.labia = 0>>
	<<set _secondSlave.preg = -2>>
	<<set _secondSlave.ovaries = 0>>

	<<set _secondSlave.face = Math.trunc(_secondSlave.face-20,-100,100)>>
	<<set _secondSlave.boobs -= either(0, 100, 200, 300, 400)>>
	<<set _secondSlave.butt -= either(0, 1, 1, 2)>>

	<<set _secondSlave.earPiercing = either(0,0,0,1)>>
	<<set _secondSlave.nosePiercing = either(0,0,0,0,1)>>
	<<set _secondSlave.eyebrowPiercing = either(0,0,0,0,0,1)>>
	<<set _secondSlave.dickPiercing = either(0,0,0,0,0,1)>>
	<<set _secondSlave.lipsPiercing = either(0,0,0,0,0,1)>>
	<<set _secondSlave.navelPiercing = either(0,0,0,0,1)>>
	<<set _secondSlave.nipplesPiercing = either(0,0,0,0,1)>>
<<elseif $activeSlave.dick > 0>>
	<<if random(1, 3) == 1>>
		<<set _secondSlave.anus = 1>>
	<<else>>
		<<set $activeSlave.anus = 1>>
	<</if>>
<</if>>

<<if _secondSlave.vagina == 0>>
	<<set _secondSlave.vagina = 1>>
<</if>>
<<if (_secondSlave.dick > 0) && (_secondSlave.balls == 0)>>
	<<set _secondSlave.balls = random(1,5)>>
<</if>>

<</if>>

<<run newSlave(_secondSlave)>>
<<run cashX(($contractCost/2), "slaveTransfer", _secondSlave)>>