code:
:: Slave Markets [nobr]

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

You visit the slave markets off the arcology plaza. It's always preferable to examine merchandise in person.

<<switch $slaveMarket>>
<<case "heap">>
	You're in the corner of the slave market occupied by "The Flesh Heap", a dumping ground, of sorts, for broken slaves. Be it brain death, drug overdose, coma, or anything else, this market is willing to buy and sell them. Most of the worthwhile slaves have already been picked clean by pharmaceutical companies for drug testing, and the rest are practically nothing more than vegetables, but a handful remain just conscious enough to be profitable with effort as slaves. One should go in expecting only the worst quality possible, though if anything catches your eye, it will be rather cheap to purchase.

	<<set _heap = random(1,4)>>
	<<if _heap == 1>>
		"Looking for a warm body to use as furniture? Perhaps as a decorative, living sculpture? We got what you want!"
	<<elseif _heap == 2>>
		"I guarantee they are all alive, maybe not healthy, but alive. Well, except that one; just ignore that one."
	<<elseif _heap == 3>>
		"We ask that you don't use this merchandise for organ harvesting; we have plenty of nonfunctional ones for that."
	<<else>>
		"If you are looking for a body to do unmentionable things to, you came to the right place! Though these in particular just barely fall under slave laws."
	<</if>>

<<case "wetware">>
	<<setNonlocalPronouns $seeDicks>>
	You're in the corner of the slave market occupied by scientists and programmers, pioneers in perfecting the skills of slaves by removing all external stimuli and subjecting them to an inhumane regimen of simulated sexual and career training. Although their bodies are ruined, these slaves are guaranteed to be intelligent, skilled and trained in a variety of jobs. If you're willing to perform extensive repairs<<if $bodyswapAnnounced>>, or have a spare body ready<</if>>, these slaves have high potential in almost any role in your arcology.

	<<set _wetware = random(1,4)>>
	<<if _wetware == 1>>
		Just past a scientist, you can see a <<if $seeExtreme == 1>>limbless <</if>>slave being extracted from a tank filled with fluid wearing a bizarre helmet. As the device is removed by a technician, the slave begins to panic as _heU is dragged from _hisU virtual life and realizes exactly what has happened to _hisU body.
	<<elseif _wetware == 2>>
		A scientist turns to you and remarks "I almost envy the hardware. They believe they're having a fulfilling career with a loving family and meaningful relationships for a lifetime. Honestly, if the mental imprinting process wasn't so destructive to the human body, I'd probably hop in myself!"
	<<elseif _wetware == 3>>
		Racks of ravaged bodies are laid across tables with plaques stating slave IQ, career, and sexual skill exam results.
	<<else>>
		Curious, you ask a technician why it's necessary for the merchandise to be so badly treated. He replies "Forcing stimulus on the hardware takes an enormous toll on their nervous and circulatory system. The nonfunctional components are disabled and removed as necessary to ensure optimal response to the imprinting process."
	<</if>>

<<case "kidnappers">>
	<<setNonlocalPronouns $seeDicks>>
	You're in the area of the slave market populated by slave kidnappers, though of course they prefer more polite titles. The slaves here are cheap, and they look it. They're almost all recent catches from bad parts of the old world, and most of them have seen considerable abuse between the moment of their capture and entering your arcology.
	<<if $arcologies[0].FSPaternalistSMR == 1>>
		Fortunately for them, such behavior is not permitted here. Though they remain frightened and angry, they are safe from rape, for now.
	<<else>>
		<<set _kidnappers = random(1,4)>>
		There's more merchandise out of sight in the holding areas. To go by what you can hear,
		<<if (_kidnappers == 1) && (random(1,100) <= $seeDicks)>>
			muffled insistence that the speaker is not a girl followed by struggling and then shrieks as a resistant dickgirl takes anal rape,
		<<elseif (_kidnappers == 2) && (random(0,99) >= $seeDicks)>>
			muffled begging followed by struggling and then crying as a new slave learns how it feels to have a slave's cunt,
		<<elseif (_kidnappers == 3)>>
			muffled gagging followed gasping and sobbing as a new slave tries to get _hisU breath back after oral rape,
		<<else>>
			the unmistakable slap of flesh on flesh,
		<</if>>
		at least one of the slavers is amusing himself<<if $arcologies[0].FSGenderFundamentalist == "unset">> (or herself)<</if>> back there.
	<</if>>

<<case "indentures">>
	<<setNonlocalPronouns $seeDicks>>
	You're in the area of the slave market that deals in indentured servants. The people sold here are slaves, but they are temporary slaves, and many of them have clauses in their indentures that prohibit some of the most severe practices. They exhibit a strange variety, with some looking more frightened than the most downtrodden slave and some looking almost cheerful.
	<<if $arcologies[0].FSPaternalistSMR == 1>>
		The generous protections for slaves in your arcology lend this last group extra confidence.
	<<else>>
		<<set _indentures = random(1,4)>>
		The area is crowded, and more indentured servants are packed together in the holding areas. To go by what you can hear,
		<<if (_indentures == 1) && (random(1,100) <= $seeDicks)>>
			the unmistakable mixed shrieks, sobs, and slaps of anal rape,
		<<elseif (_indentures == 2) && (random(0,99) >= $seeDicks)>>
			the characteristic crying and gasping of an unwilling _girlU giving up _hisU cunt,
		<<elseif (_indentures == 3)>>
			the gagging and expectoration of someone who has just gotten a mouthful of unwelcome cum,
		<<else>>
			disconsolate sobbing interrupted by a gasp as something is stuffed inside someone's mouth, and followed by muffled screams,
		<</if>>
		one of them is learning exactly what _hisU indenture allows.
	<</if>>

<<case "hunters">>
	<<setNonlocalPronouns $seeDicks>>
	You're in the area of the slave market populated by runaway slave catchers, a proud group. The slaves here know their way around Free Cities slavery already, and their eyes are watchful. Most of them probably harbor thoughts of another attempt at escape, though the slavers to their best to disabuse them of these notions.
	<<if $arcologies[0].FSPaternalistSMR == 1>>
		Their methods are somewhat limited, as the rules in your arcology preclude the more effective methods of punishment.
	<<else>>
		<<set _hunters = random(1,4)>>
		The slave catchers consider their catches fair game, though they usually confine their amusements to the holding areas out of sight. Not out of earshot, though; to go by what you can hear,
		<<if (_hunters == 1) && (random(1,100) <= $seeDicks)>>
			vehement insistence that the speaker is not a girl followed by a beating and then shrieks as a rebellious dickgirl takes anal rape,
		<<elseif (_hunters == 2) && (random(0,99) >= $seeDicks)>>
			vehement protestations followed by a beating and then crying as a slave's cunt takes _hisU punishment for _himU,
		<<elseif (_hunters == 3)>>
			struggling and gagging followed gasping and angry swearing as a rebellious slave tries to get _hisU breath back after oral rape,
		<<else>>
			struggling followed by the slap of flesh on flesh,
		<</if>>
		at least one of the runaway hunters is amusing himself<<if $arcologies[0].FSGenderFundamentalist == "unset">> (or herself)<</if>> back there.
	<</if>>

<<case "underage raiders">>
	You're in the seediest area of the slave market populated by the cradle robbers, a despised group of slavers known for raiding elementary schools, orphanages and even preschools. They specifically target those who have yet to experience their first period. The extreme risk of these raids makes the slavers here aggressive and confident,
	<<if $arcologies[0].FSPaternalistSMR == 1>>
		though they do obey the rules of your arcology that restrain them from abusing the slaves.
	<<else>>
		<<set _ur = random(1,4)>>
		though they restrain themselves from reducing the value of their captures by taking virginities. They do have their fun, though; to go by what you can hear from the holding area where they keep underage slaves who can be sold,
		<<if (_ur == 1) && (random(1,100) <= $seeDicks)>>
			a muffled but obviously sadistic description of feminization, and the desperate sobbing in response,
		<<elseif (_ur == 2) && (random(0,99) >= $seeDicks)>>
			a muffled but obviously sadistic description of breeding, and the desperate sobbing in response,
		<<elseif (_ur == 3)>>
			faint struggling and crying that suggests that someone is being thoroughly groped and pinched,
		<<else>>
			the lewd, lubricated noise of someone giving a reluctant handjob,
		<</if>>
		at least one of the raiders is amusing himself<<if $arcologies[0].FSGenderFundamentalist == "unset">> (or herself)<</if>> back there.
	<</if>>

<<case "raiders">>
	You're in the area of the slave market populated by girl raiders, that daredevil subset of slave kidnappers that specifically target old world schools, preparatory institutions, religious groups, and other sources of slaves that can soon be sold right after they reach their majorities. The extreme risk of these raids makes the slavers here aggressive and confident,
	<<if $arcologies[0].FSPaternalistSMR == 1>>
		though they do obey the rules of your arcology that restrain them from abusing the slaves.
	<<else>>
		<<set _raiders = random(1,4)>>
		though they restrain themselves from reducing the value of their captures by taking virginities. They do have their fun, though; to go by what you can hear from the holding area where they keep slaves of age who can be sold,
		<<if (_raiders == 1) && (random(1,100) <= $seeDicks)>>
			a muffled but obviously sadistic description of feminization, and the desperate sobbing in response,
		<<elseif (_raiders == 2) && (random(0,99) >= $seeDicks)>>
			a muffled but obviously sadistic description of breeding, and the desperate sobbing in response,
		<<elseif (_raiders == 3)>>
			faint struggling and crying that suggests that someone is being thoroughly groped and pinched,
		<<else>>
			the lewd, lubricated noise of someone giving a reluctant handjob,
		<</if>>
		at least one of the raiders is amusing himself<<if $arcologies[0].FSGenderFundamentalist == "unset">> (or herself)<</if>> back there.
	<</if>>

<<case "neighbor">>
	You're in the area of the slave market that specializes in slaves from within the Free City, viewing slaves from ''<<print "$arcologies[$numArcology].name">>''. Some were trained there, specifically for sale, while others are simply being sold.
	<<set _opinion = arcologyOpinion($arcologies[0], $arcologies[$numArcology])>>
	<<if _opinion != 0>>
		<<set _slaveCost -= Math.trunc(_slaveCost*$opinion*0.05)>>
		<<if _opinion > 2>>
			Your cultural ties with '' $arcologies[$numArcology].name'' helps keep the price reasonable.
		<<elseif _opinion < -2>>
			Your social misalignment with '' $arcologies[$numArcology].name'' drives up the price.
		<</if>>
	<</if>>

<<case "trainers">>
	<<setNonlocalPronouns $seeDicks>>
	You're in the area of the slave market populated by slave trainers, easily the wealthiest vendors. The slaves here have received obedience training and medical care, and many have had some basic sexual skills forced on them.
	<<if $arcologies[0].FSPaternalistSMR == 1>>
		Though the rules of your arcology protected them from the worst excesses of the training profession, many of the slaves on sale have the haunted look of people still coming to terms with the idea that they no longer have any bodily autonomy.
	<<else>>
		<<set _trainers = random(1,4)>>
		The trainers are a competitive bunch, and to go by what you can hear,
		<<if (_trainers == 1) && (random(1,100) <= $seeDicks)>>
			moaning interspersed with lewd, well-lubricated noises coming from both anal sex and vigorous masturbation,
		<<elseif (_trainers == 2) && (random(0,99) >= $seeDicks)>>
			moaning and the distinctive slap of feminine buttocks on thighs beneath them as a _girlU rides a dick,
		<<elseif (_trainers == 3)>>
			the lush, lewd sounds of diligent oral sex,
		<<else>>
			the call-and-response of a trainer and a slave running through a memorized obedience exercise,
		<</if>>
		at least one of them is applying some last-minute training to a slave in the holding pens nearby.
	<</if>>

<</switch>>

<<= generateMarketSlave($slaveMarket, ($numArcology || 1))>>

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

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

<<setLocalPronouns $activeSlave>>
<<buyingFromMarketControls>>

license: mit


code:
:: Slave Shelter [nobr]

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

<<if $shelterSlaveBought == 1>><<goto $returnTo>><</if>>

You contact the Slave Shelter to review the profile of the slave the Shelter is offering to a good <<if $PC.title == 1>>Master<<else>>Mistress<</if>> willing to pay the Shelter's nominal placement fee. The severe, tired-looking woman who answers your call hurries through the disclaimers. "All Shelter Slaves are provided as-is... the Shelter provides a single slave for placement each week... resale of Shelter slaves is contractually forbidden... we reserve the right to unannounced inspection of placed slaves... the Shelter follows up on reports of abuse or resale of its slaves..."

<<if ($shelterSlaveGeneratedWeek || 0) < $week>>
<<set $shelterSlaveGeneratedWeek = $week>>

<<set _possibleOrigins = []>>
<<set _possibleOrigins.push("broken")>>
<<if $seeExtreme == 1>>
	<<set _possibleOrigins.push("amputee", "blind", "deaf")>>
	<<if random(1,100) <= $seeDicks>>
		<<set _possibleOrigins.push("cannibal victim male")>>
	<<else>>
		<<set _possibleOrigins.push("cannibal victim female")>>
	<</if>>
<</if>>
<<if random(1,100) <= $seeDicks>>
	<<set _possibleOrigins.push("dickpain", "gelding")>>
<</if>>
<<if random(0,99) >= $seeDicks>>
	<<set _possibleOrigins.push("plugs", "reaction", "used whore")>>
	<<if $seePreg != 0>>
		<<set _possibleOrigins.push("breeder", "broken womb")>>
	<</if>>
<</if>>
<<if $week > 80>>
	<<set _possibleOrigins.push("degraded DoL")>>
<</if>>

<<set _origin = _possibleOrigins.random()>>

<<switch _origin>>
<<case "broken">>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave()>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "$He has never communicated anything about $his background, since $he arrived at the shelter with a broken mind.">>
	<<set $shelterSlave.career = "a slave">>
	<<set $shelterSlave.devotion = random(-25,-45)>>
	<<set $shelterSlave.trust = random(-25,-45)>>
	<<run setHealth($shelterSlave, jsRandom(-30,-10))>>
	<<set $shelterSlave.anus = 3>>
	<<set $shelterSlave.skill.oral = 0>>
	<<set $shelterSlave.skill.anal = 0>>
	<<set $shelterSlave.skill.whoring = 0>>
	<<set $shelterSlave.skill.entertainment = 0>>
	<<set $shelterSlave.skill.combat = 0>>
	<<set $shelterSlave.intelligence = -70>>
	<<set $shelterSlave.intelligenceImplant = 0>>
	<<set $shelterSlave.behavioralFlaw = "none">>
	<<set $shelterSlave.sexualFlaw = "none">>
	<<set $shelterSlave.fetish = "mindbroken">>
	<<set $shelterSlave.fetishStrength = 0>>
<<case "amputee">>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave()>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "It's not clear why $his previous owner cut $his arms and legs off.">>
	<<set $shelterSlave.career = "a slave">>
	<<run removeLimbs($shelterSlave, "all")>>
	<<set $shelterSlave.devotion = random(-100,-90)>>
	<<set $shelterSlave.trust = random(-100,-90)>>
	<<run setHealth($shelterSlave, jsRandom(-60,-40), normalRandInt(10, 3), normalRandInt(20, 3))>>
	<<set $shelterSlave.behavioralFlaw = either("hates men", "hates women", "odd")>>
	<<set $shelterSlave.sexualFlaw = either("apathetic", "hates anal", "hates oral", "hates penetration")>>
<<case "blind">>
	<<set $activeSlaveOneTimeMinAge = $minimumSlaveAge>>
	<<set $activeSlaveOneTimeMaxAge = 22>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave()>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "$His owner purposely blinded $him by dumping boiling water into $his eyes.">>
	<<set $shelterSlave.career = "a slave">>
	<<run eyeSurgery($shelterSlave, "both", "blind")>>
	<<run setEyeColor($shelterSlave, "milky white")>>
	<<set $shelterSlave.custom.desc = "$He has an obvious burn across $his eyes.">>
	<<set $shelterSlave.devotion = random(-100,-90)>>
	<<set $shelterSlave.trust = random(-100,-90)>>
	<<run setHealth($shelterSlave, jsRandom(-60,-40), normalRandInt(10, 3), normalRandInt(20, 3))>>
	<<set $shelterSlave.behavioralFlaw = "hates men">>
	<<set $shelterSlave.sexualFlaw = "hates oral">>
	<<set $shelterSlave.canRecruit = 0>>
	<<set $shelterSlave.override_Eye_Color = 1>>
<<case "deaf">>
	<<set $activeSlaveOneTimeMinAge = $minimumSlaveAge>>
	<<set $activeSlaveOneTimeMaxAge = 22>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave()>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "$His owner purposely deafened $him by piercing $his eardrums with knitting needles.">>
	<<set $shelterSlave.career = "a slave">>
	<<set $shelterSlave.hears = -2>>
	<<set $shelterSlave.devotion = random(-100,-90)>>
	<<set $shelterSlave.trust = random(-100,-90)>>
	<<run setHealth($shelterSlave, jsRandom(-60,-40), normalRandInt(10, 3), normalRandInt(20, 3))>>
	<<set $shelterSlave.behavioralFlaw = "hates men">>
	<<set $shelterSlave.sexualFlaw = "hates oral">>
	<<set $shelterSlave.canRecruit = 0>>
<<case "broken womb">>
	<<set $activeSlaveOneTimeMinAge = 6>>
	<<set $activeSlaveOneTimeMaxAge = 22>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XX")>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "$He was found unresponsive in the lower arcology with a gaping pussy and deflated belly. It is unclear what happened to $him.">>
	<<set $shelterSlave.career = "homeless">>
	<<set $shelterSlave.devotion = random(-25,-45)>>
	<<set $shelterSlave.trust = random(-25,-45)>>
	<<run setHealth($shelterSlave, jsRandom(-50,-30), normalRandInt(10, 3), normalRandInt(20, 3))>>
	<<set $shelterSlave.weight = -50>>
	<<set $shelterSlave.vagina = 9>>
	<<set $shelterSlave.bellySag = 20>>
	<<set $shelterSlave.skill.oral = 0>>
	<<set $shelterSlave.skill.anal = 0>>
	<<set $shelterSlave.skill.whoring = 0>>
	<<set $shelterSlave.skill.entertainment = 0>>
	<<set $shelterSlave.skill.combat = 0>>
	<<set $shelterSlave.intelligence = -70>>
	<<set $shelterSlave.intelligenceImplant = 0>>
	<<set $shelterSlave.behavioralFlaw = "none">>
	<<set $shelterSlave.sexualFlaw = "none">>
	<<set $shelterSlave.fetish = "mindbroken">>
	<<set $shelterSlave.fetishStrength = 0>>
<<case "cannibal victim male">>
	<<if $pedo_mode == 1>>
		<<set $activeSlaveOneTimeMinAge = 16>>
		<<set $one_time_age_overrides_pedo_mode = 1>>
	<<else>>
		<<set $activeSlaveOneTimeMinAge = 16>>
		<<set $activeSlaveOneTimeMaxAge = 42>>
	<</if>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XY")>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "$His previous owner forced $him to cut off $his dick and balls and cook them.">>
	<<set $shelterSlave.career = "a slave">>
	<<set $shelterSlave.devotion = random(-100,-80)>>
	<<set $shelterSlave.trust = random(-100,-90)>>
	<<run setHealth($shelterSlave, jsRandom(-60,-40), normalRandInt(10, 3), normalRandInt(20, 3))>>
	<<set $shelterSlave.dick = 0>>
	<<set $shelterSlave.foreskin = 0>>
	<<set $shelterSlave.balls = 0>>
	<<set $shelterSlave.scrotum = 0>>
	<<set $shelterSlave.behavioralFlaw = either("anorexic", "anorexic", "anorexic", "odd")>>
	<<set $shelterSlave.sexualFlaw = either("apathetic", "neglectful", "self hating")>>
	<<set $shelterSlave.fetish = either("masochist", "none", "none")>>
	<<set $shelterSlave.custom.desc = "The scars from $his crudely performed self-castration are still visible on $his lower groin.">>
<<case "cannibal victim female">>
	<<if $pedo_mode == 1>>
		<<set $activeSlaveOneTimeMinAge = 16>>
		<<set $one_time_age_overrides_pedo_mode = 1>>
	<<else>>
		<<set $activeSlaveOneTimeMinAge = 16>>
		<<set $activeSlaveOneTimeMaxAge = 42>>
	<</if>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XX")>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "$His previous owner forced $him to cut off $his breasts and cook them.">>
	<<set $shelterSlave.career = "a slave">>
	<<set $shelterSlave.devotion = random(-100,-80)>>
	<<set $shelterSlave.trust = random(-100,-90)>>
	<<run setHealth($shelterSlave, jsRandom(-60,-40), normalRandInt(10, 3), normalRandInt(20, 3))>>
	<<set $shelterSlave.boobs = 0>>
	<<set $shelterSlave.boobsImplant = 0>>
	<<set $shelterSlave.nipples = "tiny">>
	<<set $shelterSlave.behavioralFlaw = either("anorexic", "anorexic", "anorexic", "odd")>>
	<<set $shelterSlave.sexualFlaw = either("apathetic", "neglectful", "self hating")>>
	<<set $shelterSlave.fetish = either("masochist", "none", "none")>>
	<<set $shelterSlave.custom.desc = "$His chest is covered by an ugly mess of scar tissue.">>
<<case "degraded DoL">>
	<<set $activeSlaveOneTimeMinAge = 14>>
	<<set $one_time_age_overrides_pedo_mode = 1>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave()>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "$He is an enslaved Daughter of Liberty, caught some weeks after the failed coup. $His previous owner used $him as a punching bag and dart board, then when he was bored of $him tattooed obscenities all over $his body and threw $him away.">>
	<<set $shelterSlave.career = "a slave">>
	<<set $shelterSlave.devotion = random(-100,-90)>>
	<<set $shelterSlave.trust = random(-100,-90)>>
	<<run setHealth($shelterSlave, jsRandom(-60,-40), normalRandInt(10, 3), normalRandInt(20, 3))>>
	<<set $shelterSlave.slaveName = either("Cumbitch", "Cumbucket", "Cumdoll", "Cumgulper", "Fuckhole", "Fuckmeat", "Fuckpuppet", "Fuckslut", "Fucktoy", "Rapemeat", "Sluttypig", "Spunkbucket", "Spunkswallow", "Whorelips")>>
	<<set $shelterSlave.slaveSurname = 0>>
	<<set $shelterSlave.minorInjury = either("black eye", "bruise", "split lip", 0)>>
	<<set $shelterSlave.weight = random(-90,-30)>>
	<<set $shelterSlave.muscles = random(-75,0)>>
	<<set $shelterSlave.energy = random(0,30)>>
	<<set $shelterSlave.fetish = either("humiliation", "humiliation", "masochist", "none", "none", "submissive")>>
	<<set $shelterSlave.boobsTat = either("degradation", "rude words", "none")>>
	<<set $shelterSlave.buttTat = either("degradation", "rude words", 0)>>
	<<set $shelterSlave.lipsTat = either("degradation", "rude words", 0)>>
	<<set $shelterSlave.anusTat = either("degradation", "rude words", 0)>>
	<<set $shelterSlave.shouldersTat = either("degradation", "rude words", 0)>>
	<<set $shelterSlave.armsTat = either("degradation", "rude words", 0)>>
	<<set $shelterSlave.legsTat = either("degradation", "rude words", 0)>>
	<<set $shelterSlave.backTat = either("degradation", "rude words", 0)>>
	<<set $shelterSlave.stampTat = either("degradation", "rude words", 0)>>
	<<set $shelterSlave.skill.anal = random(10,25)>>
	<<set $shelterSlave.anus = random(1,4)>>
	<<if isFertile($shelterSlave) && $seePreg != 0>>
		<<set $shelterSlave.preg = either(-3, -2, -2, -2, 0, 0, 2, 3, 4, 5)>>
		<<if $shelterSlave.preg > 0>>
			<<set $shelterSlave.pregSource = -2, $shelterSlave.pregKnown = 1>>
			<<set $shelterSlave.pregType = setPregType($shelterSlave)>>
			<<set WombImpregnate($shelterSlave, $shelterSlave.pregType, $shelterSlave.pregSource, $shelterSlave.preg)>>
		<</if>>
	<</if>>
	<<if $shelterSlave.vagina > -1>>
		<<set $shelterSlave.vagina = random(1,4)>>
		<<set $shelterSlave.skill.vaginal = random(10,25)>>
		<<set $shelterSlave.vaginaTat = either("degradation", "rude words", 0)>>
	<</if>>
	<<if $shelterSlave.dick > 1>>
		<<set $shelterSlave.dickTat = either("degradation", "rude words", 0)>>
	<</if>>
<<case "gelding">>
	<<set $activeSlaveOneTimeMinAge = 20>>
	<<set $activeSlaveOneTimeMaxAge = 42>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XY")>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "$His previous owner gelded $him and used $him for anal abuse.">>
	<<set $shelterSlave.career = "a slave">>
	<<set $shelterSlave.devotion = random(-75,-60)>>
	<<set $shelterSlave.trust = random(-100,-75)>>
	<<run setHealth($shelterSlave, jsRandom(-50,-30))>>
	<<set $shelterSlave.face = random(-60,-20)>>
	<<set $shelterSlave.dick = random(1,2)>>
	<<set $shelterSlave.balls = 0>>
	<<set $shelterSlave.anus = 4>>
	<<set $shelterSlave.skill.oral = 0>>
	<<set $shelterSlave.skill.anal = 15>>
	<<set $shelterSlave.skill.whoring = 0>>
	<<set $shelterSlave.skill.entertainment = 0>>
	<<set $shelterSlave.skill.combat = 0>>
	<<set $shelterSlave.attrXY = random(40,60)>>
	<<set $shelterSlave.behavioralFlaw = either("anorexic", "gluttonous", "hates men", "odd")>>
	<<set $shelterSlave.sexualFlaw = either("apathetic", "hates anal")>>
<<case "dickpain">>
	<<set $activeSlaveOneTimeMinAge = 20>>
	<<set $activeSlaveOneTimeMaxAge = 42>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XY")>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "$His background is obscure, but seems to have involved terrible abuse of $his huge cock and balls.">>
	<<set $shelterSlave.career = "a slave">>
	<<set $shelterSlave.devotion = random(-75,-60)>>
	<<set $shelterSlave.trust = random(-100,-75)>>
	<<run setHealth($shelterSlave, jsRandom(-50,-30))>>
	<<set $shelterSlave.face = random(-60,-20)>>
	<<set $shelterSlave.dick = random(4,5)>>
	<<set $shelterSlave.balls = random(4,5)>>
	<<set $shelterSlave.anus = 0>>
	<<set $shelterSlave.skill.oral = 0>>
	<<set $shelterSlave.skill.anal = 0>>
	<<set $shelterSlave.skill.whoring = 0>>
	<<set $shelterSlave.skill.entertainment = 0>>
	<<set $shelterSlave.skill.combat = 0>>
	<<set $shelterSlave.energy = random(5,10)>>
	<<set $shelterSlave.attrXX = 0>>
	<<set $shelterSlave.behavioralFlaw = either("hates women", "odd")>>
	<<set $shelterSlave.sexualFlaw = either("apathetic")>>
<<case "plugs">>
	<<set $activeSlaveOneTimeMinAge = 20>>
	<<set $activeSlaveOneTimeMaxAge = 42>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XX")>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "$His holes were cruelly stretched by constant plug use.">>
	<<set $shelterSlave.career = "a slave">>
	<<set $shelterSlave.devotion = random(-75,-60)>>
	<<set $shelterSlave.trust = random(-100,-75)>>
	<<run setHealth($shelterSlave, jsRandom(-50,-30))>>
	<<set $shelterSlave.vagina = 4>>
	<<set $shelterSlave.anus = 4>>
	<<set $shelterSlave.skill.oral = 15>>
	<<set $shelterSlave.skill.anal = 15>>
	<<set $shelterSlave.skill.vaginal = 15>>
	<<set $shelterSlave.skill.whoring = 0>>
	<<set $shelterSlave.skill.entertainment = 0>>
	<<set $shelterSlave.skill.combat = 0>>
	<<set $shelterSlave.behavioralFlaw = either("anorexic", "gluttonous", "odd")>>
	<<set $shelterSlave.sexualFlaw = either("hates anal", "hates oral", "hates penetration")>>
<<case "breeder">>
	<<if $pedo_mode == 1>>
		<<set $activeSlaveOneTimeMinAge = ($fertilityAge + 6)>>
		<<set $one_time_age_overrides_pedo_mode = 1>> /% Old enough to have been pregnant many times. %/
	<<else>>
		<<set $activeSlaveOneTimeMinAge = 30>>
		<<set $activeSlaveOneTimeMaxAge = 42>>
	<</if>>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XX")>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "$His previous owner discarded $him after many pregnancies.">>
	<<set $shelterSlave.career = "a breeder">>
	<<set $shelterSlave.devotion = random(-75,-60)>>
	<<set $shelterSlave.trust = random(-100,-75)>>
	<<run setHealth($shelterSlave, jsRandom(-50,-30))>>
	<<set $shelterSlave.preg = -2>>
	<<set $shelterSlave.counter.birthsTotal = 13>>
	<<set $activeSlave.pregAdaptation = 60>>
	<<set $shelterSlave.bellySag = 10, $shelterSlave.bellySagPreg = 10>>
	<<set $shelterSlave.vagina = 3>>
	<<set $shelterSlave.skill.oral = 0>>
	<<set $shelterSlave.skill.anal = 0>>
	<<set $shelterSlave.skill.vaginal = 0>>
	<<set $shelterSlave.skill.whoring = 0>>
	<<set $shelterSlave.skill.entertainment = 0>>
	<<set $shelterSlave.skill.combat = 0>>
	<<set $shelterSlave.behavioralFlaw = either("gluttonous", "hates men", "odd")>>
	<<set $shelterSlave.sexualFlaw = either("apathetic", "hates penetration", "repressed")>>
<<case "used whore">>
	<<set $activeSlaveOneTimeMinAge = 32>>
	<<set $activeSlaveOneTimeMaxAge = 42>>
	<<set $one_time_age_overrides_pedo_mode = 1>> /% 20 years of brothel service. %/
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave("XX")>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "$He was worn out by twenty years of brothel service.">>
	<<set $shelterSlave.career = "a prostitute">>
	<<set $shelterSlave.devotion = random(-75,-60)>>
	<<set $shelterSlave.trust = random(-100,-75)>>
	<<run setHealth($shelterSlave, jsRandom(-60,-40), normalRandInt(10, 3))>>
	<<set $shelterSlave.face = random(-60,-20)>>
	<<set $shelterSlave.preg = -2>>
	<<set $shelterSlave.vagina = 4>>
	<<set $shelterSlave.anus = 4>>
	<<set $shelterSlave.skill.oral = 35>>
	<<set $shelterSlave.skill.anal = 35>>
	<<set $shelterSlave.skill.vaginal = 35>>
	<<set $shelterSlave.skill.whoring = 35>>
	<<set $shelterSlave.skill.entertainment = 15>>
	<<set $shelterSlave.skill.combat = 0>>
	<<set $shelterSlave.behavioralFlaw = either("anorexic", "gluttonous", "hates men", "odd")>>
	<<set $shelterSlave.sexualFlaw = either("apathetic", "hates anal", "hates oral", "hates penetration")>>
<<case "reaction">>
	<<set $oneTimeDisableDisability = 1>>
	<<set $activeSlave = GenerateNewSlave()>>
	<<set $shelterSlave = $activeSlave>>
	<<set $shelterSlave.origin = "$He was discarded after suffering a terrible reaction to growth hormone treatment.">>
	<<set $shelterSlave.career = "a slave">>
	<<set $shelterSlave.devotion = random(-75,-60)>>
	<<set $shelterSlave.trust = random(-100,-75)>>
	<<run setHealth($shelterSlave, jsRandom(-60,-40), normalRandInt(10, 3), normalRandInt(20, 3))>>
	<<set $shelterSlave.chem = 1000>>
	<<if ($shelterSlave.dick > 0) && (random(1,2) == 1)>>
		<<set $shelterSlave.dick = random(5,6)>>
	<</if>>
	<<if ($shelterSlave.balls > 0) && (random(1,2) == 1)>>
		<<set $shelterSlave.balls = random(5,10)>>
	<</if>>
	<<if (random(1,3) == 1)>>
		<<set $shelterSlave.boobs += 100*random(10,30)>>
	<</if>>
	<<if (random(1,3) == 1)>>
		<<set $shelterSlave.butt += random(3,5)>>
	<</if>>
	<<set $shelterSlave.behavioralFlaw = either("anorexic", "gluttonous", "odd")>>
	<<set $shelterSlave.sexualFlaw = either("apathetic", "hates anal", "hates oral", "hates penetration")>>
<</switch>>
<<set $shelterSlave.origin = "You got $him at the Slave Shelter. " + $shelterSlave.origin>>
<</if>>
<<set _slaveCost = 1000>>

<<setLocalPronouns $shelterSlave>>

The placement fee is <<print cashFormat(_slaveCost)>>.

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

<<print $shelterSlave.origin>>

<<if $cash >= _slaveCost>>
	<<link "Buy $his slave contract">>
		<<replace "#result">>
			<<set cashX(forceNeg(_slaveCost), "slaveTransfer", $activeSlave), $shelterSlaveBought = 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main">>
			<<include "New Slave Intro">>
		<</replace>>
	<</link>>
<<else>>
	//You lack the necessary funds to buy this slave.//
<</if>>