code:
:: Body Modification [nobr]

<<set $nextButton = "Continue">>
<<set $nextLink = "Body Modification Degradation">>
<<SlavePronouns $activeSlave>>

<<set $showEncyclopedia = 1>><<set $encyclopedia = "The Studio">>

<<set $brandApplied = 0>>

$activeSlave.slaveName is lying strapped down on the table in your body modification studio. $pronounCap is entirely at your mercy.

<<if ($activeSlave.nipplesPiercing + $activeSlave.lipsPiercing + $activeSlave.vaginaPiercing + $activeSlave.anusPiercing + $activeSlave.clitPiercing) < 10>>

	 [[Add piercings wherever possible|Increment Piercings]]
<</if>>

<<if $activeSlave.earPiercing == 0>>
	$possessiveCap ears have not been pierced.
<<elseif $activeSlave.earPiercing == 1>>
	$possessiveCap earlobes are conventionally pierced.
<<elseif $activeSlave.earPiercing == 2>>
	$possessiveCap ears are heavily pierced, with multiple lobe piercings and a row of helix piercings.
<</if>>
<<if $activeSlave.earPiercing == 0>>
	[[Pierce them|Body Modification][$activeSlave.earPiercing = 1,$cash -= $modCost]]
<<elseif $activeSlave.earPiercing == 1>>
	[[Pierce them heavily|Body Modification][$activeSlave.earPiercing = 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.earPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.earPiercing = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.nosePiercing == 0>>
	$possessiveCap nose has not been pierced.
<<elseif $activeSlave.nosePiercing == 1>>
	$pronounCap has a simple stud in $possessive nose.
<<elseif $activeSlave.nosePiercing == 2>>
	$pronounCap has nasal studs and a large septum ring.
<</if>>
<<if $activeSlave.nosePiercing == 0>>
	[[Pierce it|Body Modification][$activeSlave.nosePiercing = 1,$cash -= $modCost]]
<<elseif $activeSlave.nosePiercing == 1>>
	[[Pierce it heavily|Body Modification][$activeSlave.nosePiercing = 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.nosePiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.nosePiercing = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.eyebrowPiercing == 0>>
	$possessiveCap eyebrows have not been pierced.
<<elseif $activeSlave.eyebrowPiercing == 1>>
	$pronounCap has a simple stud in one eyebrow.
<<elseif $activeSlave.eyebrowPiercing == 2>>
	$pronounCap has multiple eyebrow rings.
<</if>>
<<if $activeSlave.eyebrowPiercing == 0>>
	[[Pierce them|Body Modification][$activeSlave.eyebrowPiercing = 1,$cash -= $modCost]]
<<elseif $activeSlave.eyebrowPiercing == 1>>
	[[Pierce them heavily|Body Modification][$activeSlave.eyebrowPiercing = 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.eyebrowPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.eyebrowPiercing = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.navelPiercing == 1>>
	$possessiveCap navel bears a simple stud.
<<elseif $activeSlave.navelPiercing == 2>>
	$possessiveCap navel is pierced with a ring, which has a short length of light chain dangling from it.
<<else>>
	$possessiveCap navel is unpierced.
<</if>>
<<if $activeSlave.navelPiercing < 1>>
	[[Pierce it|Body Modification][$activeSlave.navelPiercing = 1,$cash -= $modCost]]
<<elseif $activeSlave.navelPiercing == 1>>
	[[Pierce it heavily|Body Modification][$activeSlave.navelPiercing = 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.navelPiercing > 0>>
	//[[Remove piercing|Body Modification][$activeSlave.navelPiercing = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.corsetPiercing == 1>>
	$pronounCap has a corset piercing, a ladder of rings down either side of $possessive back.
<<else>>
	$possessiveCap back is unpierced.
<</if>>
<<if $activeSlave.corsetPiercing == 0>>
	[["Give " + $possessive + " corset piercings"|Body Modification][$activeSlave.corsetPiercing = 1,$degradation += 2,$cash -= $modCost]]
<<else>>
	//[[Remove corset piercings|Body Modification][$activeSlave.corsetPiercing = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.nipplesPiercing == 0>>
	$possessiveCap nipples are fresh and unpierced.
<<elseif $activeSlave.nipplesPiercing == 1>>
	$possessiveCap nipples bear a simple piercing.
<<elseif $activeSlave.nipplesPiercing == 2>>
	$possessiveCap nipples are heavily pierced with several rings and studs, and there is a chain between them.
<</if>>
<<if $activeSlave.nipplesPiercing == 0>>
	[[Pierce them|Body Modification][$activeSlave.nipplesPiercing = 1,$cash -= $modCost]]
<<elseif $activeSlave.nipplesPiercing == 1>>
	[[Pierce them heavily|Body Modification][$activeSlave.nipplesPiercing = 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.nipplesPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.nipplesPiercing = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.areolaePiercing == 1>>
	$pronounCap has a ring of stud piercings around the borders of each of $possessive areolae.
<<else>>
	The edges of $possessive areolae are unpierced.
<</if>>
<<if $activeSlave.areolaePiercing == 0>>
	[[Pierce them|Body Modification][$activeSlave.areolaePiercing = 1,$degradation += 1,$cash -= $modCost]]
<<else>>
	//[[Remove piercings|Body Modification][$activeSlave.areolaePiercing = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.lipsPiercing == 0>>
	$possessiveCap lips are unpierced.
<<elseif $activeSlave.lipsPiercing == 1>>
	$pronounCap has a simple lip piercing for a stud.
<<elseif $activeSlave.lipsPiercing == 2>>
	$possessiveCap lips are heavily pierced.
<</if>>
<<if $activeSlave.lipsPiercing == 0>>
	[[Pierce them|Body Modification][$activeSlave.lipsPiercing = 1,$cash -= $modCost]]
<<elseif $activeSlave.lipsPiercing == 1>>
	[[Pierce them heavily|Body Modification][$activeSlave.lipsPiercing = 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.lipsPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.lipsPiercing = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.tonguePiercing == 0>>
	$possessiveCap tongue is unpierced.
<<elseif $activeSlave.tonguePiercing == 1>>
	$pronounCap has a simple tongue stud.
<<elseif $activeSlave.tonguePiercing == 2>>
	$possessiveCap tongue is heavily pierced.
<</if>>
<<if $activeSlave.tonguePiercing == 0>>
	[[Pierce it|Body Modification][$activeSlave.tonguePiercing = 1,$cash -= $modCost]]
<<elseif $activeSlave.tonguePiercing == 1>>
	[[Pierce it heavily|Body Modification][$activeSlave.tonguePiercing = 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.tonguePiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.tonguePiercing = 0,$cash -= $modCost]]//
<</if>>

<<if ($activeSlave.clitPiercing == 0) && ($activeSlave.vagina != -1)>>
	$possessiveCap clit is unpierced.
<<elseif ($activeSlave.clitPiercing == 1) && ($activeSlave.vagina != -1)>>
	$pronounCap has a simple clitoral stud.
<<elseif ($activeSlave.clitPiercing == 2) && ($activeSlave.vagina != -1)>>
	$pronounCap has a big ring in $possessive clit.
<<elseif ($activeSlave.clitPiercing > 2) && ($activeSlave.vagina != -1)>>
	$pronounCap has a smart piercing in $possessive clit.
<<elseif ($activeSlave.clitPiercing == 0)>>
	$possessiveCap dickhead is unpierced.
<<elseif ($activeSlave.clitPiercing == 1)>>
	$pronounCap has a simple dickhead stud.
<<elseif ($activeSlave.clitPiercing == 2)>>
	$pronounCap has a big ring in $possessive dickhead.
<<elseif ($activeSlave.clitPiercing > 2)>>
	$pronounCap has a smart frenulum piercing.
<</if>>
<<if ($activeSlave.vagina != -1) || ($activeSlave.dick != 0)>>
<<if $activeSlave.clitPiercing == 0>>
	[[Pierce|Body Modification][$activeSlave.clitPiercing = 1,$cash -= $modCost]]
<<elseif $activeSlave.clitPiercing == 1>>
	[[Big piercing|Body Modification][$activeSlave.clitPiercing = 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.clitPiercing != 3>>
	 | [[Smart piercing|Body Modification][$activeSlave.clitPiercing = 3,$activeSlave.clitSetting = "all",$cash -=$SPcost,$degradation += 1]] //Costs ¤$SPcost, unlocks options to mold sexuality//
<</if>>
<</if>>
<<if $activeSlave.clitPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.clitPiercing = 0,$cash -= $modCost]]//
<</if>>

<<if ($activeSlave.vagina != -1)>>

<<if ($activeSlave.vaginaPiercing == 0)>>
	$possessiveCap pussylips are unpierced.
<<elseif ($activeSlave.vaginaPiercing == 1)>>
	$pronounCap has a simple row of studs down $possessive labia.
<<elseif ($activeSlave.vaginaPiercing == 2)>>
	$pronounCap has a row of big rings down $possessive labia.
<</if>>
<<if $activeSlave.vaginaPiercing == 0>>
	[["Pierce " + $possessive|Body Modification][$activeSlave.vaginaPiercing = 1,$cash -= $modCost]]
<<elseif $activeSlave.vaginaPiercing == 1>>
	[[Huge piercings|Body Modification][$activeSlave.vaginaPiercing = 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.vaginaPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.vaginaPiercing = 0,$cash -= $modCost]]//
<</if>>
<</if>>

<<if ($activeSlave.dick > 0)>>

<<if ($activeSlave.dickPiercing == 0)>>
	$possessiveCap shaft is unpierced.
<<elseif ($activeSlave.dickPiercing == 1)>>
	$pronounCap has a simple row of studs down $possessive cock.
<<elseif ($activeSlave.dickPiercing == 2)>>
	$pronounCap has a row of big rings down $possessive cock.
<</if>>
<<if ($activeSlave.balls != 0)>>
<<if ($activeSlave.dickPiercing == 1)>>
	$pronounCap has a couple of studs in $possessive ballsack.
<<elseif ($activeSlave.dickPiercing == 2)>>
	$pronounCap has a row of rings down the center of $possessive ballsack, all the way from the base of $possessive shaft = $possessive perineum.
<</if>>
<</if>>
<<if $activeSlave.dickPiercing == 0>>
	[[Pierce|Body Modification][$activeSlave.dickPiercing = 1,$cash -= $modCost]]
<<elseif $activeSlave.dickPiercing == 1>>
	[[Huge piercings|Body Modification][$activeSlave.dickPiercing = 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.dickPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.dickPiercing = 0,$cash -= $modCost]]//
<</if>>
<</if>>

<<if $activeSlave.anusPiercing == 0>>
	$possessiveCap perineum has not been pierced.
<<elseif ($activeSlave.anusPiercing == 1) && ($activeSlave.vagina < 0)>>
	$pronounCap has a simple piercing between the base of $possessive cock and $possessive asshole.
<<elseif $activeSlave.anusPiercing == 1>>
	$pronounCap has a simple piercing between $possessive pussy and $possessive asshole.
<<elseif ($activeSlave.anusPiercing == 2) && ($activeSlave.vagina < 0)>>
	$pronounCap has a big ring between between the base of $possessive cock and $possessive asshole and studs in a ring around $possessive anus.
<<elseif $activeSlave.anusPiercing == 2>>
	$pronounCap has a big ring between $possessive pussy and $possessive asshole and studs in a ring around $possessive anus.
<</if>>
<<if $activeSlave.anusPiercing == 0>>
	[[Pierce|Body Modification][$activeSlave.anusPiercing = 1,$cash -= $modCost]]
<<elseif $activeSlave.anusPiercing == 1>>
	[[Pierce rim|Body Modification][$activeSlave.anusPiercing = 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.anusPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.anusPiercing = 0,$cash -= $modCost]]//
<</if>>

Your preferred location for brands is the ''$brandTarget.''

<<if $activeSlave.amp == 0>>

[[Right thigh|Body Modification][$brandTarget = "right thigh"]]
| [[Left thigh|Body Modification][$brandTarget = "left thigh"]]
| [[Right calf|Body Modification][$brandTarget = "right calf"]]
| [[Left calf|Body Modification][$brandTarget = "left calf"]]
| [[Right ankle|Body Modification][$brandTarget = "right ankle"]]
| [[Left ankle|Body Modification][$brandTarget = "left ankle"]]
| [[Right foot|Body Modification][$brandTarget = "right foot"]]
| [[Left foot|Body Modification][$brandTarget = "left foot"]]
| [[Both thighs|Body Modification][$brandTarget = "thighs"]]
| [[Both calves|Body Modification][$brandTarget = "calves"]]
| [[Both ankles|Body Modification][$brandTarget = "ankles"]]
| [[Both feet|Body Modification][$brandTarget = "feet"]]
| [[Right upper arm|Body Modification][$brandTarget = "right upper arm"]]
| [[Left upper arm|Body Modification][$brandTarget = "left upper arm"]]
| [[Both upper arms|Body Modification][$brandTarget = "upper arms"]]
| [[Right lower arm|Body Modification][$brandTarget = "right lower arm"]]
| [[Left lower arm|Body Modification][$brandTarget = "left lower arm"]]
| [[Both lower arms|Body Modification][$brandTarget = "lower arms"]]
| [[Left wrist|Body Modification][$brandTarget = "left wrist"]]
| [[Right wrist|Body Modification][$brandTarget = "right wrist"]]
| [[Both wrists|Body Modification][$brandTarget = "wrists"]]
| [[Right hand|Body Modification][$brandTarget = "right hand"]]
| [[Left hand|Body Modification][$brandTarget = "left hand"]]
| [[Both hands|Body Modification][$brandTarget = "hands"]] |

<</if>>

[[Right buttock|Body Modification][$brandTarget = "right buttock"]]
| [[Left buttock|Body Modification][$brandTarget = "left buttock"]]
| [[Right shoulder|Body Modification][$brandTarget = "right shoulder"]]
| [[Left shoulder|Body Modification][$brandTarget = "left shoulder"]]
| [[Both shoulders|Body Modification][$brandTarget = "shoulders"]]
| [[Both buttocks|Body Modification][$brandTarget = "buttocks"]]
| [[Right breast|Body Modification][$brandTarget = "right breast"]]
| [[Left breast|Body Modification][$brandTarget = "left breast"]]
| [[Both breasts|Body Modification][$brandTarget = "breasts"]]
| [[Back|Body Modification][$brandTarget = "back"]]
| [[Chest|Body Modification][$brandTarget = "chest"]]
| [[Right cheek|Body Modification][$brandTarget = "right cheek"]]
| [[Left cheek|Body Modification][$brandTarget = "left cheek"]]
| [[Both cheeks|Body Modification][$brandTarget = "cheeks"]]
| [[Neck|Body Modification][$brandTarget = "neck"]]
| [[Right ear|Body Modification][$brandTarget = "right ear"]]
| [[Left ear|Body Modification][$brandTarget = "left ear"]]
| [[Both ears|Body Modification][$brandTarget = "ears"]]
| [[Belly|Body Modification][$brandTarget = "belly"]]
| [[Pubic Mound|Body Modification][$brandTarget = "pubic mound"]]

/* Branding expansion contributed by Anon1888 */

Your brand design is ''$brandDesign.''

[[Your slaving emblem|Body Modification][$brandDesign = "your personal symbol"]]
| [[Your initials|Body Modification][$brandDesign = "your initials"]]
| [[SLUT|Body Modification][$brandDesign = "SLUT"]]
| [[WHORE|Body Modification][$brandDesign = "WHORE"]]
| [[SLAVE|Body Modification][$brandDesign = "SLAVE"]]
| [[COW|Body Modification][$brandDesign = "COW"]]
| [[MEAT|Body Modification][$brandDesign = "MEAT"]]
| [[CUMDUMP|Body Modification][$brandDesign = "CUMDUMP"]]
| [[LOVER|Body Modification][$brandDesign = "LOVER"]]
| [[Pussy symbol|Body Modification][$brandDesign = "a pussy symbol"]]
| [[Anus symbol|Body Modification][$brandDesign = "an anus symbol"]]
| [[Penis symbol|Body Modification][$brandDesign = "a penis symbol"]]
| [[Lady|Body Modification][$brandDesign = "a lady silhouette"]]
| [[Princess|Body Modification][$brandDesign = "a princess silhouette"]]
| [[Queen|Body Modification][$brandDesign = "a queen silhouette"]]
| [[Angel|Body Modification][$brandDesign = "an angel silhouette"]]
| [[Devil|Body Modification][$brandDesign = "a devil silhouette"]]
<<if ($arcologies[0].FSSupremacist != "unset") && ($activeSlave.race != $arcologies[0].FSSupremacistRace)>>
| //FS// [[Racial Slur|Body Modification][$brandDesign = "a racial slur"]] <</if>>
<<if ($arcologies[0].FSSubjugationist != "unset") && ($activeSlave.race == $arcologies[0].FSSubjugationistRace)>>
| //FS// [[Racial Slur|Body Modification][$brandDesign = "a racial slur"]] <</if>>
<<if ($arcologies[0].FSRepopulationFocus != "unset")>>
| //FS// [[Birth Count|Body Modification][$brandDesign = "the number of children "+$object+" she has birthed"]] <</if>>
<<if ($arcologies[0].FSGenderRadicalist != "unset") || ($arcologies[0].FSGenderFundamentalist != "unset")>>
| //FS// [[Gender Symbol|Body Modification][$brandDesign = "a gender symbol"]] <</if>>
<<if ($arcologies[0].FSPaternalist != "unset")>>
| //FS// [[Personal Symbol|Body Modification][$brandDesign = $possessive+" own personal symbol"]] <</if>>
<<if ($arcologies[0].FSDegradationist != "unset")>>
| //FS// [[Chain Symbol|Body Modification][$brandDesign = "a chain symbol"]] <</if>>
<<if ($arcologies[0].FSBodyPurist != "unset")>>
| //FS// [[Vitruvian Man|Body Modification][$brandDesign = "a Vitruvian man"]] <</if>>
<<if ($arcologies[0].FSTransformationFetishist != "unset")>>
| //FS// [[Scalpel|Body Modification][$brandDesign = "a scalpel"]] <</if>>
<<if ($arcologies[0].FSYouthPreferentialist != "unset")>>
| //FS// [[Virginity Status|Body Modification][$brandDesign = $possessive+" virginity status"]] <</if>>
<<if ($arcologies[0].FSMaturityPreferentialist != "unset")>>
| //FS// [[Sexual Skill Info|Body Modification][$brandDesign = $possessive+" sexual skills"]] <</if>>
<<if ($arcologies[0].FSSlimnessEnthusiast != "unset")>>
| //FS// [[Breast Floor|Body Modification][$brandDesign = $possessive+" absolute minimum breast size"]] <</if>>
<<if ($arcologies[0].FSAssetExpansionist != "unset")>>
| //FS// [[Breast Ceiling|Body Modification][$brandDesign = $possessive+" absolute maximum breast size"]] <</if>>
<<if ($arcologies[0].FSPastoralist != "unset")>>
| //FS// [[Product Quality|Body Modification][$brandDesign = $possessive+" body product quality"]] <</if>>
<<if ($arcologies[0].FSPhysicalIdealist != "unset")>>
| //FS// [[Deadlift Info|Body Modification][$brandDesign = $possessive+" deadlift record"]] <</if>>
<<if ($arcologies[0].FSChattelReligionist != "unset")>>
| //FS// [[Religious Symbol|Body Modification][$brandDesign = "a religious symbol"]] <</if>>
<<if ($arcologies[0].FSRomanRevivalist != "unset")>>
| //FS// [[Republican Crest|Body Modification][$brandDesign = "the crest of your Republic"]] <</if>>
<<if ($arcologies[0].FSEgyptianRevivalist != "unset")>>
| //FS// [[Dynastic Sigil|Body Modification][$brandDesign = "the sigil of your Dynasty"]] <</if>>
<<if ($arcologies[0].FSEdoRevivalist != "unset")>>
| //FS// [[Mon|Body Modification][$brandDesign = "the Shogunate's mon"]] <</if>>
<<if ($arcologies[0].FSArabianRevivalist != "unset")>>
| //FS// [[Caliphate Symbol|Body Modification][$brandDesign = "a symbol of the Caliphate"]] <</if>>
<<if ($arcologies[0].FSChineseRevivalist != "unset")>>
| //FS// [[Imperial Seal|Body Modification][$brandDesign = "your Imperial Seal"]] <</if>>

Custom brand design: <<textbox "$brandDesign" $brandDesign "Body Modification">> //For best results, use a single word//

<<if $activeSlave.brand != 0>>
	$pronounCap has $activeSlave.brand branded into the flesh of $possessive $activeSlave.brandLocation. | [[Remove Brand|Body Modification][$brandApplied = 0, $activeSlave.brand = 0,$cash -= $modCost,$degradation -= 10]]
<<else>>
	[[Brand|Body Modification][$brandApplied = 1,$activeSlave.brand = $brandDesign,$activeSlave.brandLocation = $brandTarget,$cash -= $modCost,$degradation += 10]]
	//Branding will slightly reduce $possessive beauty but may slowly increase your reputation.//
<</if>>

<<if ($activeSlave.lipsTat == 0) && ($activeSlave.buttTat == 0) && ($activeSlave.vaginaTat == 0) && ($activeSlave.boobsTat == 0)>>
__Apply full-body tattoos:__

<<link "Tribal patterns">>

<<if $activeSlave.boobsTat == 0>>
	<<set $activeSlave.boobsTat = "tribal patterns">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.buttTat == 0>>
	<<set $activeSlave.buttTat = "tribal patterns">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.vaginaTat == 0>>
	<<set $activeSlave.vaginaTat = "tribal patterns">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.dick > 0>>
<<if $activeSlave.dickTat == 0>>
	<<set $activeSlave.dickTat = "tribal patterns">>
	<<set $cash -= $modCost>>
<</if>>
<</if>>

<<if $activeSlave.lipsTat == 0>>
	<<set $activeSlave.lipsTat = "tribal patterns">>
	<<set $cash -= $modCost>>
<</if>>

<<if ($activeSlave.anusTat == 0) || ($activeSlave.anusTat == "bleached")>>
	<<set $activeSlave.anusTat = "tribal patterns">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.shouldersTat == 0>>
	<<set $activeSlave.shouldersTat = "tribal patterns">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.backTat == 0>>
	<<set $activeSlave.backTat = "tribal patterns">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.amp != 1>>
<<if $activeSlave.armsTat == 0>>
	<<set $activeSlave.armsTat = "tribal patterns">>
	<<set $cash -= $modCost>>
<</if>>
<<if $activeSlave.legsTat == 0>>
	<<set $activeSlave.legsTat = "tribal patterns">>
	<<set $cash -= $modCost>>
<</if>>
<</if>>

<<if $activeSlave.stampTat == 0>>
	<<set $activeSlave.stampTat = "tribal patterns">>
	<<set $cash -= $modCost>>
<</if>>

<<goto "Body Modification">>
<</link>>
| <<link "Flowers">>

<<if $activeSlave.boobsTat == 0>>
	<<set $activeSlave.boobsTat = "flowers">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.buttTat == 0>>
	<<set $activeSlave.buttTat = "flowers">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.vaginaTat == 0>>
	<<set $activeSlave.vaginaTat = "flowers">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.dick > 0>>
<<if $activeSlave.dickTat == 0>>
	<<set $activeSlave.dickTat = "flowers">>
	<<set $cash -= $modCost>>
<</if>>
<</if>>

<<if $activeSlave.lipsTat == 0>>
	<<set $activeSlave.lipsTat = "flowers">>
	<<set $cash -= $modCost>>
<</if>>

<<if ($activeSlave.anusTat == 0) || ($activeSlave.anusTat == "bleached")>>
	<<set $activeSlave.anusTat = "flowers">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.shouldersTat == 0>>
	<<set $activeSlave.shouldersTat = "flowers">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.backTat == 0>>
	<<set $activeSlave.backTat = "flowers">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.amp != 1>>
<<if $activeSlave.armsTat == 0>>
	<<set $activeSlave.armsTat = "flowers">>
	<<set $cash -= $modCost>>
<</if>>
<<if $activeSlave.legsTat == 0>>
	<<set $activeSlave.legsTat = "flowers">>
	<<set $cash -= $modCost>>
<</if>>
<</if>>

<<if $activeSlave.stampTat == 0>>
	<<set $activeSlave.stampTat = "flowers">>
	<<set $cash -= $modCost>>
<</if>>

<<goto "Body Modification">>
<</link>>
| <<link "Scenes">>

<<if $activeSlave.boobsTat == 0>>
	<<set $activeSlave.boobsTat = "scenes">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.buttTat == 0>>
	<<set $activeSlave.buttTat = "scenes">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.vaginaTat == 0>>
	<<set $activeSlave.vaginaTat = "scenes">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.lipsTat == 0>>
	<<set $activeSlave.lipsTat = "permanent makeup">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if ($activeSlave.anusTat == 0)>>
	<<set $activeSlave.anusTat = "bleached">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.shouldersTat == 0>>
	<<set $activeSlave.shouldersTat = "scenes">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.backTat == 0>>
	<<set $activeSlave.backTat = "scenes">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.amp != 1>>
<<if $activeSlave.armsTat == 0>>
	<<set $activeSlave.armsTat = "scenes">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<<if $activeSlave.legsTat == 0>>
	<<set $activeSlave.legsTat = "scenes">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<</if>>

<<if $activeSlave.stampTat == 0>>
	<<set $activeSlave.stampTat = "scenes">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<goto "Body Modification">>
<</link>>
| <<link "Asian art">>

<<if $activeSlave.boobsTat == 0>>
	<<set $activeSlave.boobsTat = "Asian art">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.buttTat == 0>>
	<<set $activeSlave.buttTat = "Asian art">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.vaginaTat == 0>>
	<<set $activeSlave.vaginaTat = "Asian art">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.lipsTat == 0>>
	<<set $activeSlave.lipsTat = "permanent makeup">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if ($activeSlave.anusTat == 0)>>
	<<set $activeSlave.anusTat = "bleached">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.shouldersTat == 0>>
	<<set $activeSlave.shouldersTat = "Asian art">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.backTat == 0>>
	<<set $activeSlave.backTat = "Asian art">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.amp != 1>>
<<if $activeSlave.armsTat == 0>>
	<<set $activeSlave.armsTat = "Asian art">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<<if $activeSlave.legsTat == 0>>
	<<set $activeSlave.legsTat = "Asian art">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<</if>>

<<if $activeSlave.stampTat == 0>>
	<<set $activeSlave.stampTat = "Asian art">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<goto "Body Modification">>
<</link>>
| <<link "Degradation">>

<<if $activeSlave.boobsTat == 0>>
	<<set $activeSlave.boobsTat = "degradation">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.buttTat == 0>>
	<<set $activeSlave.buttTat = "degradation">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.vaginaTat == 0>>
	<<set $activeSlave.vaginaTat = "degradation">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

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

<<if $activeSlave.lipsTat == 0>>
	<<set $activeSlave.lipsTat = "degradation">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if ($activeSlave.anusTat == 0) || ($activeSlave.anusTat == "bleached")>>
	<<set $activeSlave.anusTat = "degradation">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.shouldersTat == 0>>
	<<set $activeSlave.shouldersTat = "degradation">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.backTat == 0>>
	<<set $activeSlave.backTat = "degradation">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.amp != 1>>
<<if $activeSlave.armsTat == 0>>
	<<set $activeSlave.armsTat = "degradation">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<<if $activeSlave.legsTat == 0>>
	<<set $activeSlave.legsTat = "degradation">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<</if>>

<<if $activeSlave.stampTat == 0>>
	<<set $activeSlave.stampTat = "degradation">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<goto "Body Modification">>
<</link>>
| <<link "Counting">>

<<if $activeSlave.boobsTat == 0>>
	<<set $activeSlave.boobsTat = "counting">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.buttTat == 0>>
	<<set $activeSlave.buttTat = "counting">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.vaginaTat == 0>>
	<<set $activeSlave.vaginaTat = "counting">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.dick > 0>>
<<if $activeSlave.dickTat == 0>>
	<<set $activeSlave.dickTat = "counting">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<</if>>

<<if $activeSlave.lipsTat == 0>>
	<<set $activeSlave.lipsTat = "counting">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if ($activeSlave.anusTat == 0) || ($activeSlave.anusTat == "bleached")>>
	<<set $activeSlave.anusTat = "counting">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.shouldersTat == 0>>
	<<set $activeSlave.shouldersTat = "counting">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.backTat == 0>>
	<<set $activeSlave.backTat = "counting">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.amp != 1>>
<<if $activeSlave.armsTat == 0>>
	<<set $activeSlave.armsTat = "counting">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<<if $activeSlave.legsTat == 0>>
	<<set $activeSlave.legsTat = "counting">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<</if>>

<<if $activeSlave.stampTat == 0>>
	<<set $activeSlave.stampTat = "counting">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<goto "Body Modification">>
<</link>>
| <<link "Advertisements">>

<<if $activeSlave.boobsTat == 0>>
	<<set $activeSlave.boobsTat = "advertisements">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.buttTat == 0>>
	<<set $activeSlave.buttTat = "advertisements">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.vaginaTat == 0>>
	<<set $activeSlave.vaginaTat = "advertisements">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.dick > 0>>
<<if $activeSlave.dickTat == 0>>
	<<set $activeSlave.dickTat = "advertisements">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<</if>>

<<if $activeSlave.lipsTat == 0>>
	<<set $activeSlave.lipsTat = "advertisements">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if ($activeSlave.anusTat == 0) || ($activeSlave.anusTat == "bleached")>>
	<<set $activeSlave.anusTat = "advertisements">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.shouldersTat == 0>>
	<<set $activeSlave.shouldersTat = "advertisements">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.backTat == 0>>
	<<set $activeSlave.backTat = "advertisements">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.amp != 1>>
<<if $activeSlave.armsTat == 0>>
	<<set $activeSlave.armsTat = "advertisements">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<<if $activeSlave.legsTat == 0>>
	<<set $activeSlave.legsTat = "advertisements">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<</if>>

<<if $activeSlave.stampTat == 0>>
	<<set $activeSlave.stampTat = "advertisements">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<goto "Body Modification">>
<</link>>
| <<link "Rude words">>

<<if $activeSlave.boobsTat == 0>>
	<<set $activeSlave.boobsTat = "rude words">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.buttTat == 0>>
	<<set $activeSlave.buttTat = "rude words">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.vaginaTat == 0>>
	<<set $activeSlave.vaginaTat = "rude words">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.dick > 0>>
<<if $activeSlave.dickTat == 0>>
	<<set $activeSlave.dickTat = "rude words">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<</if>>

<<if $activeSlave.lipsTat == 0>>
	<<set $activeSlave.lipsTat = "rude words">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if ($activeSlave.anusTat == 0) || ($activeSlave.anusTat == "bleached")>>
	<<set $activeSlave.anusTat = "rude words">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.shouldersTat == 0>>
	<<set $activeSlave.shouldersTat = "rude words">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.backTat == 0>>
	<<set $activeSlave.backTat = "rude words">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.amp != 1>>
<<if $activeSlave.armsTat == 0>>
	<<set $activeSlave.armsTat = "rude words">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<<if $activeSlave.legsTat == 0>>
	<<set $activeSlave.legsTat = "rude words">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<</if>>

<<if $activeSlave.stampTat == 0>>
	<<set $activeSlave.stampTat = "rude words">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<goto "Body Modification">>
<</link>>
| <<link "Cow patterns">>

	<<set $activeSlave.boobsTat = "bovine patterns">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>

	<<set $activeSlave.buttTat = "bovine patterns">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>

	<<set $activeSlave.vaginaTat = "bovine patterns">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>

<<if $activeSlave.dick > 0>>
	<<set $activeSlave.dickTat = "bovine patterns">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

	<<set $activeSlave.lipsTat = "bovine patterns">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>

	<<set $activeSlave.anusTat = "bovine patterns">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>

<<if $activeSlave.shouldersTat == 0>>
	<<set $activeSlave.shouldersTat = "bovine patterns">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.backTat == 0>>
	<<set $activeSlave.backTat = "bovine patterns">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<if $activeSlave.amp != 1>>
<<if $activeSlave.armsTat == 0>>
	<<set $activeSlave.armsTat = "bovine patterns">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<<if $activeSlave.legsTat == 0>>
	<<set $activeSlave.legsTat = "bovine patterns">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>
<</if>>

<<if $activeSlave.stampTat == 0>>
	<<set $activeSlave.stampTat = "bovine patterns">>
	<<set $cash -= $modCost>>
	<<set $degradation += 1>>
<</if>>

<<goto "Body Modification">>
<</link>>

<</if>>

<<if $activeSlave.boobsTat == 0>>
	$possessiveCap chest and breasts are not tattooed.
<<else>>
	$possessiveCap chest and breasts are tattooed with $activeSlave.boobsTat.
<</if>>
<<if $activeSlave.boobsTat == 0>>

	[[Tribal patterns|Body Modification][$activeSlave.boobsTat = "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.boobsTat = "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.boobsTat = "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.boobsTat = "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.boobsTat = "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.boobsTat = "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.boobsTat = "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.boobsTat = "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.boobsTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.boobsTat = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.buttTat == 0>>
	$possessiveCap buttocks are not tattooed.
<<else>>
	$possessiveCap buttocks are tattooed with $activeSlave.buttTat.
<</if>>
<<if $activeSlave.buttTat == 0>>

	[[Tribal patterns|Body Modification][$activeSlave.buttTat = "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.buttTat = "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.buttTat = "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.buttTat = "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.buttTat = "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.buttTat = "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.buttTat = "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.buttTat = "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.buttTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.buttTat = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.lipsTat == 0>>
	$pronounCap has no facial tattoos.
<<else>>
	$possessiveCap face is tattooed with $activeSlave.lipsTat.
<</if>>
<<if $activeSlave.lipsTat == 0>>

	[[Tribal patterns|Body Modification][$activeSlave.lipsTat = "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.lipsTat = "flowers",$cash -= $modCost]]
	 | [[Permanent makeup|Body Modification][$activeSlave.lipsTat = "permanent makeup",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.lipsTat = "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.lipsTat = "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.lipsTat = "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.lipsTat = "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.lipsTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.lipsTat = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.shouldersTat == 0>>
	$pronounCap has no shoulder tattoos.
<<else>>
	$possessiveCap shoulders are tattooed with $activeSlave.shouldersTat.
<</if>>
<<if $activeSlave.shouldersTat == 0>>

	[[Tribal patterns|Body Modification][$activeSlave.shouldersTat = "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.shouldersTat = "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.shouldersTat = "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.shouldersTat = "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.shouldersTat = "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.shouldersTat = "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.shouldersTat = "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.shouldersTat = "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.shouldersTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.shouldersTat = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.backTat == 0>>
	$pronounCap has no back tattoo.
<<else>>
	$possessiveCap back is tattooed with $activeSlave.backTat.
<</if>>
<<if $activeSlave.backTat == 0>>

	[[Tribal patterns|Body Modification][$activeSlave.backTat = "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.backTat = "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.backTat = "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.backTat = "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.backTat = "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.backTat = "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.backTat = "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.backTat = "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.backTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.backTat = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.amp != 1>>
<<if $activeSlave.armsTat == 0>>
	$pronounCap has no arm tattoos.
<<else>>
	$possessiveCap <<if $activeSlave.amp < 0>>prosthetic <</if>>arms are <<if $activeSlave.amp < 0>>indelibly marked<<else>>tattooed<</if>> with $activeSlave.armsTat.
<</if>>
<<if $activeSlave.armsTat == 0>>

	[[Tribal patterns|Body Modification][$activeSlave.armsTat = "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.armsTat = "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.armsTat = "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.armsTat = "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.armsTat = "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.armsTat = "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.armsTat = "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.armsTat = "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.armsTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.armsTat = 0,$cash -= $modCost]]//
<</if>>
<</if>>

<<if $activeSlave.amp != 1>>
<<if $activeSlave.legsTat == 0>>
	$pronounCap has no leg tattoos.
<<else>>
	$possessiveCap <<if $activeSlave.amp < 0>>prosthetic <</if>>legs are <<if $activeSlave.amp < 0>>indelibly marked<<else>>tattooed<</if>> with $activeSlave.legsTat.
<</if>>
<<if $activeSlave.legsTat == 0>>

	[[Tribal patterns|Body Modification][$activeSlave.legsTat = "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.legsTat = "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.legsTat = "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.legsTat = "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.legsTat = "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.legsTat = "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.legsTat = "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.legsTat = "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.legsTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.legsTat = 0,$cash -= $modCost]]//
<</if>>
<</if>>

<<if $activeSlave.stampTat == 0>>
	$pronounCap has no lower back tattoos.
<<else>>
	$possessiveCap lower back is tattooed with $activeSlave.stampTat.
<</if>>
<<if $activeSlave.stampTat == 0>>

	[[Tribal patterns|Body Modification][$activeSlave.stampTat = "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.stampTat = "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.stampTat = "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.stampTat = "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.stampTat = "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.stampTat = "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.stampTat = "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.stampTat = "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.stampTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.stampTat = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.preg > 30 && $activeSlave.pregType < 10>>
<<if $activeSlave.bellyTat == 0>>
	$pronounCap has no navel tattoos.
<<else>>
	$possessiveCap navel is tattooed with $activeSlave.bellyTat.
<</if>>
<<if $activeSlave.bellyTat == 0>>

	[[Heart|Body Modification][$activeSlave.stampTat = "a heart",$cash -= $modCost]]
	 | [[Star|Body Modification][$activeSlave.stampTat = "a star",$cash -= $modCost]]
	 | [[Butterfly|Body Modification][$activeSlave.stampTat = "a butterfly",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.bellyTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.bellyTat = 0,$cash -= $modCost]]//
<</if>>
<</if>>

<<if $activeSlave.vaginaTat == 0>>
	$possessiveCap abdomen and pubis have not been tattooed.
<<else>>
	$possessiveCap abdomen and pubis are tattooed with $activeSlave.vaginaTat.
<</if>>
<<if $activeSlave.vaginaTat == 0>>

	[[Tribal patterns|Body Modification][$activeSlave.vaginaTat = "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.vaginaTat = "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.vaginaTat = "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.vaginaTat = "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.vaginaTat = "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.vaginaTat = "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.vaginaTat = "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.vaginaTat = "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.vaginaTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.vaginaTat = 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.dick > 0>>

<<if $activeSlave.dickTat == 0>>
	$possessiveCap dick has not been tattooed.
<<else>>
	$possessiveCap dick is tattooed with $activeSlave.dickTat.
<</if>>
<<if $activeSlave.dickTat == 0>>

	[[Tribal patterns|Body Modification][$activeSlave.dickTat = "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.dickTat = "flowers",$cash -= $modCost]]
	 | [[Degradation|Body Modification][$activeSlave.dickTat = "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.dickTat = "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.dickTat = "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.dickTat = "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.dickTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.dickTat = 0,$cash -= $modCost]]//
<</if>>
<</if>>

<<if $activeSlave.anusTat == 0>>
	$possessiveCap anus is brown and unbleached.
<<elseif $activeSlave.anusTat == "bleached">>
	$possessiveCap anus is bleached and looks like a sexual organ.
<<else>>
	$possessiveCap anus is tattooed with $activeSlave.anusTat.
<</if>>
<<if $activeSlave.anusTat == 0>>
	[[Bleach it|Body Modification][$activeSlave.anusTat = "bleached",$cash -= $modCost]]
<<elseif $activeSlave.anusTat == "bleached">>

	[[Tribal pattern|Body Modification][$activeSlave.anusTat = "tribal patterns",$cash -= $modCost,$degradation += 1]]
	 | [[Flowers|Body Modification][$activeSlave.anusTat = "flowers",$cash -= $modCost]]
	 | [[Degradation|Body Modification][$activeSlave.anusTat = "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.anusTat = "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.anusTat = "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.anusTat = "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if ($activeSlave.anusTat != 0) && ($activeSlave.anusTat != "bleached")>>
	//[[Remove tattoo|Body Modification][$activeSlave.anusTat = "bleached",$cash -= $modCost]]//
<</if>>

<<if ($activeSlave.customTat == " ")>>
	Give $possessive a custom tattoo: <<textbox "$activeSlave.customTat" $activeSlave.customTat "Slave Interact">>
<<else>>
	$pronounCap has a custom tattoo: $activeSlave.customTat
	Change $possessive custom tattoo: <<textbox "$activeSlave.customTat" $activeSlave.customTat "Slave Interact">>

//For more than one tat, just use commas//
<</if>>
<<if $activeSlave.customTat != "">>
	//[[Remove custom tattoo|Body Modification][$activeSlave.customTat = "",$cash -= $modCost]]//
<</if>>


code:
:: Body Modification Degradation

<<if ($degradation == 0)>>
	<<goto "Slave Interact">>
<<else>>
	<<goto "Body Modification Reaction">>
<</if>>

repo_name: Editoranon/fc


code:
:: Body Modification Reaction

<<nobr>>

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

As you cast off her bindings<<if canSee($activeSlave)>> and <<if ($activeSlave.amp != 1)>>let her stand<<else>>prop her up<</if>>, she catches sight of herself in the floor length mirror at the foot of the body modification table<<else>>, <<if ($activeSlave.amp != 1)>>let her stand<<else>>prop her up<</if>>, she mind hangs on every detail of her new appearance that leaves your mouth<</if>>.

<<if ($brandApplied == 1)>>
	The smell of burnt flesh hangs in the air. Being branded @@.red;has hurt her health a little.@@
	<<set $brandApplied = 0>>
	<<set $activeSlave.health -= 10>>
<</if>>

<<if ($degradation > 10) && ($activeSlave.devotion <= 50) && ($activeSlave.trust < -50)>>
	She is appalled by the whorish spectacle you have made of her. She @@.gold;fears@@ you all the more for this but is so terrified of you it does not affect her submission.
	<<set $activeSlave.trust -= 10>>
<<elseif ($degradation > 10) && ($activeSlave.devotion <= 50)>>
	She is appalled by the whorish spectacle you have made of her. She @@.mediumorchid;hates@@ and @@.gold;fears@@ you for this.
	<<set $activeSlave.devotion -= 10>>
	<<set $activeSlave.trust -= 10>>
<<elseif ($degradation > 10)>>
	She is shocked by the whorish spectacle you have made of her. However, she is so submissive to your will that she @@.hotpink;accepts@@ that the slave <<if canSee($activeSlave)>>in the mirror<<else>>she pictures<</if>> is who she is now.
	<<set $activeSlave.devotion += 4>>
<<elseif ($degradation > 4) && ($activeSlave.devotion <= 20) && ($activeSlave.trust < -20)>>
	She is so afraid of you that she suppresses any reaction to the slutty modifications you have made to her body and @@.gold;fears@@ your power to do whatever you like to her.
	<<set $activeSlave.trust -= 5>>
<<elseif ($degradation > 4)>>
	She is surprised with the slutty modifications you have made to her body. However, she is so obedient that she @@.hotpink;accepts@@ your changes.
	<<set $activeSlave.devotion += 4>>
<<elseif ($degradation > 1) && ($activeSlave.devotion < -20) && ($activeSlave.trust < 20)>>
	She is @@.gold;afraid@@ that she has been permanently altered against her will, but is also scared of your reaction to any objection and suppresses her disgust.
	<<set $activeSlave.trust -= 5>>
<<elseif ($degradation > 1) && ($activeSlave.devotion < -20)>>
	She is @@.mediumorchid;angry@@ and @@.gold;afraid@@ that she has been permanently altered against her will.
	<<set $activeSlave.devotion -= 5>>
	<<set $activeSlave.trust -= 5>>
<<elseif ($degradation > 1)>>
	She is saddened to have been altered against her will. However, she realizes that she is a slave, so she @@.hotpink;accepts@@ your work.
	<<set $activeSlave.devotion += 4>>
<<else>>
	She shows no real reaction to your modifications.
<</if>>

<<set $degradation = 0>>

<</nobr>>\


code:
:: Bodyguard Workaround [silently]

<<if $Bodyguard != 0>>
	<<set _ID = $Bodyguard.ID, _SL = $slaves.length>>
	<<for _i = 0; _i < _SL; _i++>>
		<<if (_ID == $slaves[_i].ID)>><<break>><</if>>
	<</for>>
	<<set $slaves[_i].assignment = "rest", $slaves[_i].assignmentVisible = 1>>
<</if>>
<<if $i > -1>>
	<<set $slaves[$i].assignment = "guard you", $slaves[$i].assignmentVisible = 1, $slaves[$i].choosesOwnAssignment = 0, $slaves[$i].sentence = 0>>
	<<if $slaves[$i].choosesOwnClothes == 1>><<include "SA chooses own clothes">><</if>>
	<<set $Bodyguard = $slaves[$i]>>
<<else>>
	<<set $Bodyguard = 0>>
<</if>>

<<goto "Main">>


code:
:: Brothel [nobr]

<<set $nextButton = "Back to Main", $nextLink = "Main", $returnTo = "Brothel", $showEncyclopedia = 1, $encyclopedia = "Brothel", $brothelSlaves = $BrothiIDs.length>>

<<if $brothelName != "the Brothel">>
	<<set $brothelNameCaps = $brothelName.replace("the ", "The ")>>
<</if>>

$brothelNameCaps
<<switch $brothelDecoration>>
<<case "Roman Revivalist">>
	is decorated as a Roman whorehouse. Refreshments are served at a bar, and someone is playing pipes in the back.
<<case "Egyptian Revivalist">>
	is decorated as an ancient Egyptian fertility temple. Customers are bade relax on couches next to running water so that slaves may dance to entice them.
<<case "Edo Revivalist">>
	is furnished as an Edo period pleasure house, seedy by the standards of the time. Still, girls usually keep their clothes on until they lead patrons back behind the sliding paper screens, though this does not stop silhouettes of the activities within from being visible on them.
<<case "Arabian Revivalist">>
	is furnished as an Arabian fleshmarket, with the merchandise standing on little platforms, prices visible. Customers are permitted to fondle before making a decision and dragging a girl back behind a curtain.
<<case "Chinese Revivalist">>
	is furnished as an old Chinese pleasure house, with each girl set up in her own low room. They stand outside the doors, luring customers back one by one.
<<case "Chattel Religionist">>
	is decorated as a place of carnal worship. The air is scented by censers, and the slaves here maintain an air of holiness even when being sodomized in public.
<<case "Degradationist">>
	is decorated to look like a dungeon. The decor involves a lot of black leather and burnished steel, and the slaves on offer are mostly chained to beds and walls.
<<case "Repopulation Focus">>
	is clean and full of soft couches and chairs for its' pregnant whores to lounge upon while showing off their assets. Several of the rooms are prepped to allow a whore to give birth in front of an audience. A supply of freshly squeezed breast milk is available on tap.
<<case "Eugenics">>
	is decorated to look like a club. Loud music is playing, and the whores that aren't with customers are stripping and poledancing on a stage. Safe sex is greatly encouraged. The real action happens in several reserved rooms dedicated to society's best, since the loud music drowns out private conversations.
<<case "Asset Expansionist">>
	is decorated to look like a club. Loud music is playing, and the whores that aren't with customers are stripping and poledancing on a stage.
<<case "Transformation Fetishist">>
	is sterile and clean. Interactive screens on the walls list the whores and their modifications in clinical detail.
<<case "Gender Radicalist">>
	is decorated to look like an old world bordello. The rich decor includes erotic photography and pornographic statuary, depicting every possible combination of human sexual congress.
<<case "Gender Fundamentalist">>
	is decorated to look like an old world whorehouse. Screens on the walls are showing pornography starring the whores, with prices flashing after each sex act.
<<case "Physical Idealist">>
	is decorated to look like a club. Loud music is playing, and the whores that aren't with customers are stripping on a stage. There is a distinct smell of sweat, and there is as much emphasis on the strippers' muscles as their breasts.
<<case "Supremacist">>
	is decorated like an old world gentleman's club. The pictures on the wall depict degradation of every race on earth, except $arcologies[0].FSSupremacistRace people.
<<case "Subjugationist">>
	is decorated to celebrate the degradation of $arcologies[0].FSSubjugationistRace whores. The whores greet customers in stereotypical $arcologies[0].FSSubjugationistRace accents.
<<case "Paternalist">>
	is decorated to look like a trendy bar. Whores are encouraged to meet customers for a drink and get to know them a little before heading back into a private room.
<<case "Pastoralist">>
	is decorated to look like a dairy. Though it isn't one, there is an intense sexual focus on boobs and lactation, and all the whores have their sizes and productivity proudly posted.
<<case "Maturity Preferentialist">>
	is decorated to look like a refined bar. It has a row of sturdy backless barstools, perfect for a delectable selection of succulent MILFs to perch on.
<<case "Youth Preferentialist">>
	is decorated to look like a the sort of bar old world students visit on spring break. Vapid music is playing, and when whores aren't with customers, they dance and make out with each other to attract some.
<<case "Body Purist">>
	is decorated to look like an old world bordello. The rich decor includes erotic photography and pornographic statuary, depicting idealized human forms in the act of love.
<<case "Slimness Enthusiast">>
	is decorated to look like an old world bordello. The rich decor includes erotic photography and pornographic statuary, depicting slim, girlish figures playing, dancing, and loving.
<<default>>
	is utilitarian. There's a businesslike foyer with an area for the merchandise to stand. Customers make their selection (or selections) and then lead the whores back into little rooms.
<</switch>>

<<if $brothelAdsSpending > 0>>
	Screens outside the entrance are showing porn to advertise $brothelNameCaps.
	<<if $brothelAdsOld == 1>>
		The featured slave actresses are all MILFs.
	<<elseif $brothelAdsOld == -1>>
		The featured slave actresses are all nice and young.
	<<elseif $brothelAdsOld == -2>>
		The featured slave actresses are all teenagers.
	<<elseif $brothelAdsOld == -3>>
		The featured slave actresses are all lolis.
	<<else>>
		The featured slave actresses vary in age.
	<</if>>
	<<if $brothelAdsStacked == 1>>
		Lots of bouncing breasts and butts
	<<elseif $brothelAdsStacked == -1>>
		Lots of trim breasts and shapely butts
	<<else>>
		A variety of breast and butt sizes and shapes
	<</if>>
	are on display, and
	<<if $brothelAdsImplanted == 1>>
		most of these are augmented by implants.
	<<elseif $brothelAdsImplanted == -1>>
		they're all natural.
	<<else>>
		some are augmented by implants.
	<</if>>
	<<if $brothelAdsPreg == 1>>
		Most of slaves have firm, rounded bellies.
	<<elseif $brothelAdsPreg == -1>>
		Most of the slaves have firm, flat bellies.
	<<else>>
		Some of the slaves are pregnant.
	<</if>>
	<<if $brothelAdsModded == 1>>
		Everything is heavily pierced and tattooed.
	<<elseif $brothelAdsModded == -1>>
		Everything is free of tattoos and piercings.
	<<else>>
		Some of these assets are tattooed and pierced, and some aren't.
	<</if>>
	The slaves in the ads are
	<<if $brothelAdsXX == 1>>
		sucking dick and taking cock in their pussies and asses.
	<<elseif $brothelAdsXX == -1>>
		sucking cock and being assfucked while their dicks flop around.
	<<else>>
		sucking dick and taking anal, and the ones that have pussies are being fucked there, too.
	<</if>>
	The ads are shown on media across $arcologies[0].name.
	<<if ($brothelAdsXX == 1) && ($brothelAdsImplants == 1) && ($brothelAdsStacked == 1)>>
		As a result, $brothelName is known as the place to go if you want to rent a<<if ($brothelAdsPreg == 1)>>pregnant<</if>> bimbo's pussy.
	<<elseif ($brothelAdsXX == 1) && ($brothelAdsOld == 1)>>
		As a result, $brothelName is known as the place to go if you want to rent a<<if ($brothelAdsPreg == 1)>>pregnant<</if>> MILF's tits.
	<<elseif ($brothelAdsXX == 1) && ($brothelAdsOld == -3)>>
		As a result, $brothelName is known as the place to go if you want to rent<<if ($brothelAdsPreg == 1)>> a pregnant<<else>> an<</if>> oppai loli.
	<<elseif ($brothelAdsXX == 1) && ($brothelAdsPreg == 1)>>
		As a result, $brothelName is known as the place to go if you want to pound some pregnant pussy.
	<<elseif ($brothelAdsXX == -1) && ($brothelAdsStacked == 1)>>
		As a result, $brothelName is known as the place to go if you want to rent a shemale's asspussy.
	<<elseif ($brothelAdsXX == -1) && ($brothelAdsStacked == -1)>>
		As a result, $brothelName is known as the place to go if you want to rent a trap's tight ass.
	<</if>>
<</if>>

<<if $brothelSlaves > 2>>
	$brothelNameCaps is bustling with activity. Customers are coming and going and slave girls are displaying themselves. When a slave catches a customer's eye, he leads her back into a little cubicle.
<<elseif $brothelSlaves > 0>>
	$brothelNameCaps is working steadily. Customers are present and slave girls are on offer. When a slave catches a customer's eye, he leads her back into a little cubicle.
<<elseif $Madam != 0>>
	$Madam.slaveName is alone in $brothelName, and has nothing to do but keep the place clean and plan future sales efforts.
<<else>>
	$brothelNameCaps is empty and desolate. [[Decommission the brothel|Main][$brothel = 0, $brothelUpgradeDrugs = 0, $brothelDecoration = "standard"]]
<</if>>

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

It can support $brothel whores.
[[Expand the brothel|Brothel][$cash -= _Tmult0, $brothel += 5]] //Costs ¤_Tmult0 and will increase upkeep costs//

<<if $brothelUpgradeDrugs == 1>>
	It has been upgraded with aphrodisiac injection systems that monitor the whores and adjust dosage to keep them healthy but desperately horny and hopelessly addicted.
<<else>>
	<<set _Tmult1 = Math.trunc(10000*$upgradeMultiplierArcology)>>
	It is a standard brothel. [[Upgrade the brothel with aphrodisiac injection systems|Brothel][$cash -= _Tmult1, $brothelUpgradeDrugs = 1]] //Costs ¤_Tmult1 and will increase upkeep costs//
<</if>>

$brothelNameCaps is
<<if $brothelAdsSpending > 0>>
	the subject of an active ad campaign.
<<else>>
	not being advertised.
<</if>>
<<link "Manage brothel advertisements">><<set $nextLink = passage(), $nextButton = "Back">><<goto "Brothel Advertisement">><</link>>

<<BrothelStatistics 1>>

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

<<if $brothelSlaves > 0>>

''Bring a slave out of $brothelName:''
	<<set $Flag = 1>>
	<<include "Slave Summary">>
<</if>>

<<if $brothel <= $brothelSlaves>>

''$brothelNameCaps is full and cannot hold any more slaves''
<<elseif ($slaves.length > $brothelSlaves)>>

''Send a slave to $brothelName:''
	<<set $Flag to 0>>
	<<include "Slave Summary">>
<</if>>
<<unset $Flag>>

Rename $brothelName: <<textbox "$brothelName" $brothelName "Brothel">> //Use a noun or similar short phrase//


code:
:: Brothel Advertisement

<<nobr>>

<<if $arcologies[0].FSRomanRevivalistDecoration >= 60>>
	The brothel is decorated as a Roman whorehouse. Refreshments are served at a bar, and someone is playing pipes in the back.
<<elseif $arcologies[0].FSEgyptianRevivalistDecoration >= 60>>
	The brothel is decorated as an ancient Egyptian fertility temple. Customers are bade relax on couches next to running water so that slaves may dance to entice them.
<<elseif $arcologies[0].FSEdoRevivalistDecoration >= 60>>
	The brothel is furnished as an Edo period pleasure house, seedy by the standards of the time. Still, girls usually keep their clothes on until they lead patrons back behind the sliding paper screens, though this does not stop silhouettes of the activities within from being visible on them.
<<elseif $arcologies[0].FSArabianRevivalistDecoration >= 60>>
	The brothel is furnished as an Arabian slave market, with the merchandise standing on little platforms, prices visible. Customers are permitted to fondle before making a decision and dragging a girl back behind a curtain.
<<elseif $arcologies[0].FSChineseRevivalistDecoration >= 60>>
	The brothel is furnished as an old Chinese pleasure house, with each girl set up in her own low room. They stand outside the doors, luring customers back one by one.
<<elseif $arcologies[0].FSChattelReligionistDecoration >= 60>>
	The brothel is decorated as a place of worship. The air is scented by censers, and the slaves here maintain an air of holiness even when being sodomized in public.
<<elseif $arcologies[0].FSDegradationistDecoration >= 60>>
	The brothel is decorated to look like a dungeon. The decor involves a lot of black leather and burnished steel, and the slaves on offer are mostly chained to beds and walls.
<<elseif $arcologies[0].FSRepopulationFocusDecoration >= 60>>
  $brothelNameCaps is clean and full of soft couches and chairs for its' pregnant whores to lounge upon while showing off their assets. Several of the rooms are prepped to allow a whore to give birth in front of an audience. A supply of freshly squeezed breast milk is available on tap.
<<elseif $arcologies[0].FSRestartDecoration >= 60>>
	The brothel is decorated to look like a club. Loud music is playing, and the whores that aren't with customers are stripping and poledancing on a stage. Safe sex is greatly encouraged. The real action happens in several reserved rooms dedicated to society's best, since the loud music drowns out private conversations.
<<elseif $arcologies[0].FSAssetExpansionistDecoration >= 60>>
	The brothel is decorated to look like a club. Loud music is playing, and the whores that aren't with customers are stripping and poledancing on a stage.
<<elseif $arcologies[0].FSTransformationFetishistDecoration >= 60>>
	The brothel is sterile and clean. Interactive screens on the walls list the whores and their modifications in clinical detail.
<<elseif $arcologies[0].FSGenderRadicalistDecoration >= 60>>
	The brothel is decorated to look like an old world bordello. The rich decor includes erotic photography and pornographic statuary, depicting every possible combination of human sexual congress.
<<elseif $arcologies[0].FSGenderFundamentalistDecoration >= 60>>
	The brothel is decorated to look like an old world whorehouse. Screens on the walls are showing pornography starring the whores, with prices flashing after each sex act.
<<elseif $arcologies[0].FSPhysicalIdealistDecoration >= 60>>
	The brothel is decorated to look like a club. Loud music is playing, and the whores that aren't with customers are stripping on a stage. There is a distinct smell of sweat, and there is as much emphasis on the strippers' muscles as their breasts.
<<elseif $arcologies[0].FSSubjugationistDecoration >= 60>>
	The brothel is decorated to celebrate the degradation of $arcologies[0].FSSubjugationistRace whores. The whores greet customers in stereotypical $arcologies[0].FSSubjugationistRace accents.
<<elseif $arcologies[0].FSSupremacistDecoration >= 60>>
	The brothel is decorated like an old world gentleman's club. The pictures on the wall depict degradation of every race on earth, except $arcologies[0].FSSupremacistRace people.
<<elseif $arcologies[0].FSPaternalistDecoration >= 60>>
	The brothel is decorated to look like a normal bar. Whores are encouraged to meet customers for a drink and get to know them a little before heading back into a private room.
<<elseif $arcologies[0].FSBodyPuristDecoration >= 60>>
	The brothel is decorated to look like an old world bordello. The rich decor includes erotic photography and pornographic statuary, depicting idealized human forms in the act of love.
<<elseif $arcologies[0].FSSlimnessEnthusiastDecoration >= 60>>
	The brothel is decorated to look like an old world bordello. The rich decor includes erotic photography and pornographic statuary, depicting slim, girlish figures playing, dancing, and loving.
<<elseif $arcologies[0].FSPastoralistDecoration >= 60>>
	The brothel is decorated to look like a dairy. Though it isn't one, there is an intense sexual focus on boobs and lactation, and all the whores have their sizes proudly posted.
<</if>>

<<if $brothelAdsSpending > 0>>
	Screens outside the entrance are showing porn to advertise the brothel.
	<<if $brothelAdsOld == 1>>
	The featured slave actresses are all MILFs.
	<<elseif $brothelAdsOld == -1>>
	The featured slave actresses are all nice and young.
	<<elseif $brothelAdsOld == -2>>
	The featured slave actresses are all teenagers.
	<<elseif $brothelAdsOld == -3>>
	The featured slave actresses are all lolis.
	<<else>>
	The featured slave actresses vary in age.
	<</if>>
	<<if $brothelAdsStacked == 1>>
	Lots of bouncing breasts and butts
	<<elseif $brothelAdsStacked == -1>>
	Lots of trim breasts and shapely butts
	<<else>>
	A variety of breast and butt sizes and shapes
	<</if>>
	are on display, and
	<<if $brothelAdsImplanted == 1>>
	most of these are augmented by implants.
	<<elseif $brothelAdsImplanted == -1>>
	they're all natural.
	<<else>>
	some are augmented by implants.
	<</if>>
	<<if $brothelAdsPreg == 1>>
		Most of slaves have firm, rounded bellies.
	<<elseif $brothelAdsPreg == -1>>
		Most of the slaves have firm, flat bellies.
	<<else>>
		Some of the slaves are pregnant.
	<</if>>
	<<if $brothelAdsModded == 1>>
	Everything is heavily pierced and tattooed.
	<<elseif $brothelAdsModded == -1>>
	Everything is free of tattoos and piercings.
	<<else>>
	Some of these assets are tattooed and pierced, and some aren't.
	<</if>>
	The slaves in the ads are
	<<if $brothelAdsXX == 1>>
	sucking dick and taking cock in their pussies and asses.
	<<elseif $brothelAdsXX == -1>>
	sucking cock and being assfucked while their dicks flop around.
	<<else>>
	sucking dick and taking anal, and the ones that have pussies are being fucked there, too.
	<</if>>
<</if>>

<<if $brothelAdsSpending >= 5000>>
	Advertisements based on these scenes run constantly in media across the arcology, and there's an active merchandising campaign underway to promote your whores.
<<elseif $brothelAdsSpending >= 4000>>
	Advertisements based on these scenes run constantly in media across the arcology.
<<elseif $brothelAdsSpending >= 3000>>
	Advertisements based on these scenes are run in media across the arcology.
<<elseif $brothelAdsSpending >= 2000>>
	Advertisements based on these scenes run regularly in arcology media.
<<elseif $brothelAdsSpending >= 1000>>
	Advertisements based on these scenes run occasionally in arcology media.
<<else>>
	$arcologies[0].name has a robust internal media that could be used to bring customers into the brothel.
<</if>>

<</nobr>>

<<nobr>>

You are spending ¤$brothelAdsSpending each week to advertise the brothel.

<<if $brothelAdsSpending > 900>>
	<<link "Decrease">><<set $brothelAdsSpending -= 1000>><<goto "Brothel Advertisement">><</link>> |
<<else>>
	Decrease |
<</if>>
<<if $brothelAdsSpending < 5000>>
	<<link "Increase">><<set $brothelAdsSpending += 1000>><<goto "Brothel Advertisement">><</link>>
<<else>>
	Increase
<</if>>

<</nobr>>

__Design Brothel Ad Campaign__ //Will replace relevant variety bonuses//
<<nobr>>

Asset size:
<<if $brothelAdsStacked != 1>><<link "Stacked">><<set $brothelAdsStacked = 1>><<goto "Brothel Advertisement">><</link>> | <<else>>Stacked | <</if>>
<<if $brothelAdsStacked != -1>><<link "Slim">><<set $brothelAdsStacked = -1>><<goto "Brothel Advertisement">><</link>> | <<else>>Slim | <</if>>
<<if $brothelAdsStacked != 0>><<link "Variety">><<set $brothelAdsStacked = 0>><<goto "Brothel Advertisement">><</link>><<else>>Variety<</if>>

Asset origin:
<<if $brothelAdsImplanted != 1>><<link "Implants">><<set $brothelAdsImplanted = 1>><<goto "Brothel Advertisement">><</link>> | <<else>>Implants | <</if>>
<<if $brothelAdsImplanted != -1>><<link "All natural">><<set $brothelAdsImplanted = -1>><<goto "Brothel Advertisement">><</link>> | <<else>>All natural | <</if>>
<<if $brothelAdsImplanted != 0>><<link "Variety">><<set $brothelAdsImplanted = 0>><<goto "Brothel Advertisement">><</link>><<else>>Variety<</if>>

Body mods:
<<if $brothelAdsModded != 1>><<link "Modded">><<set $brothelAdsModded = 1>><<goto "Brothel Advertisement">><</link>> | <<else>>Modded | <</if>>
<<if $brothelAdsModded != -1>><<link "Unmodded">><<set $brothelAdsModded = -1>><<goto "Brothel Advertisement">><</link>> | <<else>>Unmodded | <</if>>
<<if $brothelAdsModded != 0>><<link "Variety">><<set $brothelAdsModded = 0>><<goto "Brothel Advertisement">><</link>><<else>>Variety<</if>>

Pregnancy:
<<if $brothelAdsPreg != 1>><<link "Gravid">><<set $brothelAdsPreg = 1>><<goto "Brothel Advertisement">><</link>> | <<else>>Gravid | <</if>>
<<if $brothelAdsPreg != -1>><<link "None">><<set $brothelAdsPreg = -1>><<goto "Brothel Advertisement">><</link>> | <<else>>None | <</if>>
<<if $brothelAdsPreg != 0>><<link "Variety">><<set $brothelAdsPreg = 0>><<goto "Brothel Advertisement">><</link>><<else>>Variety<</if>>

Age:
<<if $brothelAdsOld != 1>><<link "MILF">><<set $brothelAdsOld = 1>><<goto "Brothel Advertisement">><</link>> | <<else>>MILF | <</if>>
<<if $brothelAdsOld != -1>><<link "Young">><<set $brothelAdsOld = -1>><<goto "Brothel Advertisement">><</link>> | <<else>>Young | <</if>>
<<if $minimumSlaveAge < 18>>
<<if $brothelAdsOld != -2>><<link "Teen">><<set $brothelAdsOld = -2>><<goto "Brothel Advertisement">><</link>> | <<else>>Teen | <</if>>
<</if>>
<<if $minimumSlaveAge < 13>>
<<if $brothelAdsOld != -3>><<link "Loli">><<set $brothelAdsOld = -3>><<goto "Brothel Advertisement">><</link>> | <<else>>Loli | <</if>>
<</if>>
<<if $brothelAdsOld != 0>><<link "Variety">><<set $brothelAdsOld = 0>><<goto "Brothel Advertisement">><</link>> <<else>>Variety<</if>>

<<if $seeDicks != 0>>
	Genitalia:
	<<if $brothelAdsXX != 1>><<link "Pussies">><<set $brothelAdsXX = 1>><<goto "Brothel Advertisement">><</link>> | <<else>>Pussies | <</if>>
	<<if $brothelAdsXX != -1>><<link "Dicks">><<set $brothelAdsXX = -1>><<goto "Brothel Advertisement">><</link>> | <<else>>Dicks | <</if>>
	<<if $brothelAdsXX != 0>><<link "Variety">><<set $brothelAdsXX = 0>><<goto "Brothel Advertisement">><</link>> <<else>>Variety<</if>>

<</if>>

<</nobr>>


code:
:: Brothel Report [nobr]

<<set $implanted = 0, $legendaryWhoreID = 0, $madamCashBonus = 0, $modded = 0, $old = 0, $pure = 0, $slim = 0, $stacked = 0, $unmodded = 0, $XX = 0, $XY = 0, $young = 0, _FLsFetish = 0, _profits = 0, _SL = $slaves.length, _FLs = -1, _DL = $BrothiIDs.length, $brothelSlaves = _DL>>

<<set $legendaryWombID = 0, $pregYes to 0, $pregNo to 0>>

<<set $facility = $facility || {}, $facility.brothel = initFacilityStatistics($facility.brothel)>>

<<for _dI = 0; _dI < _DL; _dI++>>
<<set _i = $BrothiIDs[_dI].Index, _ID = $BrothiIDs[_dI].ID>>
<<if _ID != $slaves[_i].ID>>
	/% Slaves.ID and $BrothiIDs.ID's don't match-up so let's find her %/
	<<for _i = 0; _i < _SL; _i++>>
	<<if (_ID == $slaves[_i].ID)>>
		/% Correct the Index %/
		<<set $BrothiIDs[_dI].Index = _i>>
	<</if>>
	<</for>>
<</if>>
<</for>>
<<SlaveSort $BrothiIDs>>

<<if ($Madam != 0)>>
	<<for _FLs = 0; _FLs < _SL; _FLs++>>
	<<if ($slaves[_FLs].ID == $Madam.ID)>>
		<<break>>
	<</if>>
	<</for>>
	<<if ($slaves[_FLs].health < -80)>>
	<<set $slaves[_FLs].health += 20>>
	<<elseif $slaves[_FLs].health < -40>>
	<<set $slaves[_FLs].health += 15>>
	<<elseif $slaves[_FLs].health < 0>>
	<<set $slaves[_FLs].health += 10>>
	<<elseif $slaves[_FLs].health < 90>>
	<<set $slaves[_FLs].health += 7>>
	<</if>>
	<<if $slaves[_FLs].devotion <= 45>>
	<<set $slaves[_FLs].devotion += 5>>
	<</if>>
	<<if $slaves[_FLs].trust < 45>>
	<<set $slaves[_FLs].trust += 5>>
	<</if>>
	<<if $slaves[_FLs].fetishStrength <= 95>>
	<<if $slaves[_FLs].fetish != "dom">>
		<<fetishChangeChance $slaves[_FLs]>>
		<<if $fetishChangeChance > random(0,100)>>
			<<set _FLsFetish = 1, $slaves[_FLs].fetishKnown = 1, $slaves[_FLs].fetish = "dom">>
		<</if>>
	<<elseif $slaves[_FLs].fetishKnown == 0>>
		<<set _FLsFetish = 1, $slaves[_FLs].fetishKnown = 1>>
	<<else>>
		<<set _FLsFetish = 2, $slaves[_FLs].fetishStrength += 4>>
	<</if>>
	<</if>>
	<<set $Madam = $slaves[_FLs]>>
	/% Make sure we have registered living expenses as for any other slave %/
	<<run getSlaveStatisticData($Madam, $facility.brothel)>>
	    $Madam.slaveName is serving as the madam.
	<<if $Madam.relationship == -3>>
		As your wife, she does her best to attract attention to your brothel.
		<<set $madamCashBonus += 0.25>>
	<</if>>
	<<if (_FLsFetish == 1)>>
		She isn't above sampling the merchandise herself; before long it's obvious to her girls that she @@.lightcoral;really likes fucking them.@@
	<<elseif (_FLsFetish == 2)>>
		She's careful that all of the whores under her supervision are all warmed up and ready to get fucked every morning, and she @@.lightsalmon;becomes more dominant.@@
	<</if>>
	<<if ($Madam.whoreSkill <= 10)>>
		Though $Madam.slaveName does her best to manage the brothel, with her lack of skill she can do little.
	<<elseif ($Madam.whoreSkill <= 30)>>
		$Madam.slaveName's basic skills marginally @@.yellowgreen;improve@@ business at $brothelName.
		<<set $madamCashBonus += 0.05>>
	<<elseif ($Madam.whoreSkill <= 60)>>
		$Madam.slaveName's skills @@.yellowgreen;improve@@ business at $brothelName.
		<<set $madamCashBonus += 0.1>>
	<<elseif ($Madam.whoreSkill < 100)>>
		$Madam.slaveName's skills greatly @@.yellowgreen;improve@@ business at $brothelName.
		<<set $madamCashBonus += 0.15>>
	<<else>>
		$Madam.slaveName's mastery immensely @@.yellowgreen;improves@@ business at $brothelName.
		<<set $madamCashBonus += 0.20>>
	<</if>>
	<<if ($Madam.actualAge > 35)>>
		Her age and experience also contribute.
		<<set $madamCashBonus += 0.05>>
	<</if>>
	<<if $madamCareers.includes($Madam.career)>>
		She has experience from her life before she was a slave that helps her in the seedy business of selling other people's bodies for sex.
		<<set $madamCashBonus += 0.05>>
	<</if>>
	<<if ($Madam.intelligence > 0)>>
		She is a clever manager.
		<<set $madamCashBonus += 0.05*$Madam.intelligence>>
	<</if>>
	<<if ($Madam.dick > 2) && (canPenetrate($Madam))>>
		Her turgid dick helps her manage the bitches.
		<<set $madamCashBonus += 0.05>>
	<</if>>
<<if $brothelSlaves > 0>>
<<for _dI = 0; _dI < _DL; _dI++>>
	<<set _i = $BrothiIDs[_dI].Index>>
	<<if $familyTesting == 1>>
		<<if $slaves[_i].mother == $Madam.ID>>
			She pays special attention to her daughter, $slaves[_i].slaveName, making sure she is treated well and showing off her skills.
			<<set $slaves[_i].trust++, $madamCashBonus += 0.05>>
		<</if>>
		<<if $slaves[_i].father == $Madam.ID>>
			She pays special attention to her daughter, $slaves[_i].slaveName, making sure she is treated well and showing off her skills.
			<<set $slaves[_i].trust++, $madamCashBonus += 0.05>>
		<</if>>
		<<if $slaves[_i].ID == $Madam.father>>
			She pays special attention to her father, $slaves[_i].slaveName, making sure she is treated well and showing off her skills.
			<<set $slaves[_i].trust++, $madamCashBonus += 0.05>>
		<</if>>
		<<if $slaves[_i].ID == $Madam.mother>>
			She pays special attention to her mother, $slaves[_i].slaveName, making sure she is treated well and showing off her skills.
			<<set $slaves[_i].trust++, $madamCashBonus += 0.05>>
		<</if>>
		<<if areSisters($slaves[_i], $Madam) == 1>>
			She pays special attention to her twin sister, $slaves[_i].slaveName, making sure she is treated well and showing off her skills.
			<<set $slaves[_i].trust++, $madamCashBonus += 0.05>>
		<<elseif areSisters($slaves[_i], $Madam) == 2>>
			She pays special attention to her sister, $slaves[_i].slaveName, making sure she is treated well and showing off her skills.
			<<set $slaves[_i].trust++, $madamCashBonus += 0.05>>
		<<elseif areSisters($slaves[_i], $Madam) == 3>>
			She pays special attention to her half-sister, $slaves[_i].slaveName, making sure she is treated well and showing off her skills.
			<<set $slaves[_i].trust++, $madamCashBonus += 0.05>>
		<</if>>
	<<else>>
	<<if $Madam.relationTarget == $slaves[_i].ID>>
		She pays special attention to her $slaves[_i].relation, $slaves[_i].slaveName, making sure she is treated well and showing off her skills.
		<<set $slaves[_i].trust++, $madamCashBonus += 0.05>>
	<</if>>
	<</if>> /*closes extended family mode*/
	<<if $Madam.relationshipTarget == $slaves[_i].ID>>
		She dotes over her <<if $Madam.relationship == 1>>friend<<elseif $Madam.relationship == 2>>best friend<<elseif $Madam.relationship == 3>>friend with benefits<<elseif $Madam.relationship == 4>>lover<<elseif $Madam.relationship == 5>>slave wife<</if>>, $slaves[_i].slaveName, making sure she is safe, but unfortunately driving potential costumers away from her.
		<<set $slaves[_i].devotion++, $madamCashBonus -= 0.05>>
	<</if>>
	<<if $Madam.rivalryTarget == $slaves[_i].ID>>
		She forces her <<if $Madam.rivalry == 1>>growing rival<<elseif $Madam.rivalry == 2>>rival<<elseif $Madam.rivalry == 3>>bitter rival<</if>>, $slaves[_i].slaveName, to service all the men in the brothel.
		<<set $slaves[_i].devotion -= 2, $slaves[_i].trust -= 2>>
		<<if canDoVaginal($slaves[_i])>>
			<<set $slaves[_i].vaginalCount += 10, $vaginalTotal += 10>>
			<<if $slaves[_i].publicCount>><<set $slaves[_i].publicCount += 10>><<else>><<set $slaves[_i].publicCount = 10>><</if>>
		<</if>>
		<<if canDoAnal($slaves[_i])>>
			<<set $slaves[_i].analCount += 10, $analTotal += 10>>
			<<if $slaves[_i].publicCount>><<set $slaves[_i].publicCount += 10>><<else>><<set $slaves[_i].publicCount = 10>><</if>>
		<</if>>
		<<set $slaves[_i].oralCount += 10, $oralTotal += 10>>
		<<if $slaves[_i].publicCount>><<set $slaves[_i].publicCount += 10>><<else>><<set $slaves[_i].publicCount = 10>><</if>>
		<<if random(1,100) > 65>>
			<<set $slaves[_FLs].rivalry++, $Madam.rivalry++, $slaves[_i].rivalry++>>
		<</if>>
	<</if>>
	<<if $slaves[_i].prestigeDesc == "She is a famed Free Cities whore, and commands top prices.">>
		She makes sure to promote $slaves[_i].slaveName, the famed whore, in order to capitalize on her popularity.
		<<set $madamCashBonus += 0.15>>
	<</if>>
	<<if $slaves[_i].prestigeDesc == "She is a famed Free Cities slut, and can please anyone.">>
		She makes sure to promote $slaves[_i].slaveName, the famed entertainer, in order to capitalize on her popularity.
		<<set $madamCashBonus += 0.15>>
	<</if>>
	<<if $slaves[_i].prestigeDesc == "She is remembered for winning best in show as a dairy cow.">>
		She makes sure to massage $slaves[_i].slaveName's huge breasts to get the milk flowing before enticing clients to suckle and play with her.
		<<set $madamCashBonus += 0.10>>
	<</if>>
	<<if $slaves[_i].prestigeDesc == "She is remembered for winning best in show as a cockmilker.">>
		She shows off $slaves[_i].slaveName's copious loads by putting a condom over her dick and teasing her till she bursts it. The show draws multiple clients that want to play with her oversized junk and messy orgasms.
		<<set $madamCashBonus += 0.15>>
	<</if>>
	<<if $slaves[_i].prestigeDesc == "She is remembered for winning best in show as a breeder." && $slaves[$i].preg > 10>>
		She makes sure $slaves[_i].slaveName's growing pregnancy is well taken care of, even if it means driving away potential customers away when the mother-to-be needs a rest.
		<<set $madamCashBonus -= 0.05>>
	<</if>>
	<<if $slaves[_i].prestigeDesc == "She is remembered for winning best in show as a breeder.">>
		She makes sure to play off $slaves[_i].slaveName's fame and fertility by enticing potential customers to be the one to claim her womb by filling it with their child.
		<<set $madamCashBonus += 0.15>>
	<</if>>
<</for>>
<</if>>

<<set $oldCash = $cash, $i = _FLs>>
<<if ($brothelSlaves < 5)>>
<<set $slavesGettingHelp = 0>>
<<if $universalRulesFacilityWork == 1>>
	<<for _i = 0; _i < _SL; _i++>>
		<<if ($slaves[_i].assignment == "whore")>>
		<<set $slavesGettingHelp++>>
		<</if>>
	<</for>>
<</if>>
<<if ($brothelSlaves+$slavesGettingHelp < $brothel)>>
	<<if $showEWD != 0>>

    She <<include "SA whore">>
	<<else>>
		<<silently>><<include "SA whore">><</silently>>
	<</if>>
	<<set _seed = $cash-$oldCash, $cash += Math.trunc(0.5*_seed), _seed = Math.trunc(1.5*_seed), _profits += _seed>>

    Since she doesn't have enough whores to manage to keep her busy, she sees $beauty customers herself (<<print Math.trunc($beauty/7)>> a day), earning you @@.yellowgreen;¤_seed@@. She can charge more for her time, since many citizens find it erotic to fuck the Madam.
<</if>>
<</if>>
	<<if ($brothelSlaves > 0)>>
<</if>>
<</if>>

<<if ($brothelSlaves > 0)>>
	    <<if $brothelSlaves != 1>>''There are $brothelSlaves slave whores working out of $brothelName.''<<else>>''There is one slave whore working out of $brothelName.''<</if>>
<</if>>

<<if $Madam != 0>>
<<if $showEWD != 0>>

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

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

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

	<<if $slaves[_FLs].choosesOwnClothes == 1>>
	<<include "SA chooses own clothes">>
	<<if ($slaves[_FLs].devotion <= 20)>>
		<<set $slaves[_FLs].devotion -= 5>>
	<<else>>
		<<set $slaves[_FLs].devotion++>>
	<</if>>
	<</if>>
	<<include "SA diet">>
	<<include "SA long term effects">>
	<<include "SA drugs">>
	<<include "SA relationships">>
	<<include "SA rivalries">>

<<include "SA devotion">>
<<else>>
	<<silently>>
	<<if $slaves[_FLs].choosesOwnClothes == 1>>
	<<include "SA chooses own clothes">>
	<<if ($slaves[_FLs].devotion <= 20)>>
		<<set $slaves[_FLs].devotion -= 5>>
	<<else>>
		<<set $slaves[_FLs].devotion++>>
	<</if>>
	<</if>>
	<<include "SA diet">>
	<<include "SA long term effects">>
	<<include "SA drugs">>
	<<include "SA relationships">>
	<<include "SA rivalries">>
	<<include "SA devotion">>
	<</silently>>
<</if>>
<<set $Madam = $slaves[_FLs]>>
<</if>>

<<if ($brothelSlaves > 0)>>
	<<set _healthBonus = 0, _aphrod = 0>>
	<<if ($brothelUpgradeDrugs == 1)>>
		<<set _healthBonus += 3, _aphrod = 2>>
	<</if>>
	<<if ($brothelUpgradeHealth == 1)>>
		<<set _healthBonus += 10>>
	<</if>>
	<<set $oldCash = $cash>>
<<for _dI = 0; _dI < _DL; _dI++>>
	<<set _i = $BrothiIDs[_dI].Index, $i = _i>>
	<<if ($legendaryWombID == 0) && ($slaves[_i].amp != 1) && ($slaves[_i].preg > 30) && ($slaves[_i].pregType < 50) && ($slaves[_i].eggType == "human") && ($slaves[_i].births > 10) && ($slaves[_i].devotion > 50) && ($slaves[_i].prestige == 0)>>
	<<set $legendaryWombID = $slaves[_i].ID>>
	<</if>>
	<<if ($legendaryWhoreID == 0) && ($slaves[_i].whoreSkill >= 100) && ($slaves[_i].devotion > 50) && ($slaves[_i].prestige == 0)>>
	<<set $legendaryWhoreID = $slaves[_i].ID>>
	<</if>>
	<<set $slaves[_i].health += _healthBonus, $slaves[_i].aphrodisiacs = _aphrod>>
	<<if $showEWD != 0>>

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

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

		<</if>>
		/* 000-250-006 */
		''__@@.pink;$slaves[$i].slaveName@@__'' is working out of $brothelName.

    She <<include "SA whore">>

		<<if $slaves[$i].choosesOwnClothes == 1>>
		<<include "SA chooses own clothes">>
		<<if ($slaves[$i].devotion <= 20)>>
			<<set $slaves[$i].devotion -= 5>>
		<<else>>
			<<set $slaves[$i].devotion++>>
		<</if>>
		<</if>>
		<<include "SA diet">>
		<<include "SA long term effects">>
		<<include "SA drugs">>
		<<include "SA relationships">>
		<<include "SA rivalries">>

<<include "SA devotion">>
	<<else>>
		<<silently>>
		<<include "SA whore">>
		<<if $slaves[$i].choosesOwnClothes == 1>>
		<<include "SA chooses own clothes">>
		<<if ($slaves[$i].devotion <= 20)>>
			<<set $slaves[$i].devotion -= 5>>
		<<else>>
			<<set $slaves[$i].devotion++>>
		<</if>>
		<</if>>
		<<include "SA diet">>
		<<include "SA long term effects">>
		<<include "SA drugs">>
		<<include "SA relationships">>
		<<include "SA rivalries">>
		<<include "SA devotion">>
		<</silently>>
	<</if>>
	<<if $brothelAdsSpending != 0>>
	<<set _seed = 0>>
	<<if $brothelAdsStacked == 1>>
		<<if ($slaves[_i].butt > 4) && ($slaves[_i].boobs > 800)>>
		<<set _seed++>>
		<</if>>
	<<elseif $brothelAdsStacked == -1>>
		<<if ($slaves[_i].boobs < 500) && ($slaves[_i].butt < 3) && ($slaves[_i].weight <= 10) && ($slaves[_i].muscles <= 95)>>
		<<set _seed++>>
		<</if>>
	<</if>>
	<<set _PierceC = ($slaves[_i].lipsPiercing + $slaves[_i].nipplesPiercing + $slaves[_i].vaginaPiercing + $slaves[_i].clitPiercing + $slaves[_i].anusPiercing + $slaves[_i].earPiercing + $slaves[_i].eyebrowPiercing + $slaves[_i].nosePiercing + $slaves[_i].navelPiercing)>>
	<<if $brothelAdsModded == 1>>
		<<if (_PierceC > 8)>>
		<<if ($slaves[_i].lipsTat != 0) && ($slaves[_i].buttTat != 0) && ($slaves[_i].anusTat != 0) && ($slaves[_i].vaginaTat != 0) && ($slaves[_i].boobsTat != 0)>>
			<<set _seed++>>
		<</if>>
		<</if>>
	<<elseif $brothelAdsModded == -1>>
		<<if (_PierceC < 3)>>
		<<if ($slaves[_i].lipsTat == 0) && ($slaves[_i].buttTat == 0) && ($slaves[_i].vaginaTat == 0) && ($slaves[_i].boobsTat == 0)>>
			<<set _seed++>>
		<</if>>
		<</if>>
	<</if>>
	<<if $brothelAdsPreg == 1>>
		<<if ($slaves[$i].preg > 10) || ($slaves[$i].bellyImplant >= 4000)>>
			<<set _seed++>>
		<</if>>
	<<elseif $brothelAdsPreg == -1>>
		<<if ($slaves[$i].pregType < 10) && ($slaves[$i].preg < 1) && ($slaves[$i].weight < 30) && (!$fakeBellies.includes($bellyAccessory)) && ($slaves[$i].bellyImplant == 0) && ($slaves[$i].inflation == 0)>>
			<<set _seed++>>
		<</if>>
	<</if>>
	<<if $brothelAdsImplanted == 1>>
		<<if ($slaves[_i].boobsImplant > 0) && ($slaves[_i].buttImplant > 0) && ($slaves[_i].waist > 0) && ($slaves[_i].lipsImplant > 0) && ($slaves[$i].bellyImplant > 0)>>
			<<set _seed++>>
		<</if>>
	<<elseif $brothelAdsImplanted == -1>>
		<<if ($slaves[_i].boobsImplant == 0) && ($slaves[_i].buttImplant == 0) && ($slaves[_i].waist < 2) && ($slaves[_i].lipsImplant == 0) && ($slaves[_i].faceImplant < 2) &&  ($slaves[$i].bellyImplant == 0)>>
			<<set _seed++>>
		<</if>>
	<</if>>
	<<if $brothelAdsOld == 1>>
		<<if ($slaves[_i].physicalAge >= 30)>>
		<<set _seed++>>
		<</if>>
	<<elseif $brothelAdsOld == -1>>
		<<if ($slaves[_i].physicalAge < 30) && ($slaves[_i].physicalAge >= 18)>>
		<<set _seed++>>
		<</if>>
	<<elseif $brothelAdsOld == -2>>
		<<if ($slaves[_i].physicalAge <= 18) && ($slaves[_i].physicalAge >= 13)>>
		<<set $seed++>>
		<</if>>
	<<elseif $brothelAdsOld == -3>>
		<<if ($slaves[_i].physicalAge < 13)>>
		<<set $seed++>>
		<</if>>
	<</if>>
	<<if $brothelAdsXX == 1>>
		<<if ($slaves[_i].dick == 0)>>
		<<set _seed++>>
		<</if>>
	<<elseif $brothelAdsXX == -1>>
		<<if ($slaves[_i].dick > 0)>>
		<<set _seed++>>
		<</if>>
	<</if>>
	<<if _seed > 0>>
		<<set _adsIncome = _seed * random(50,60) * Math.trunc($brothelAdsSpending/1000)>>
		<<set $cash += _adsIncome , getSlaveStatisticData($slaves[_i], $facility.brothel).adsIncome += _adsIncome>>
	<<else>>
		<<set _adsIncome = random(50,60) * Math.trunc($brothelAdsSpending/1000)>>
		<<set $cash += _adsIncome, getSlaveStatisticData($slaves[_i], $facility.brothel).adsIncome += _adsIncome>>
	<</if>>
	<</if>>
	<<if ($slaves[_i].health < -80)>>
	<<set $slaves[_i].health += 20>>
	<<elseif $slaves[_i].health < -40>>
	<<set $slaves[_i].health += 15>>
	<<elseif $slaves[_i].health < 0>>
	<<set $slaves[_i].health += 10>>
	<<elseif $slaves[_i].health < 90>>
	<<set $slaves[_i].health += 7>>
	<</if>>
	<<if ($slaves[_i].devotion <= 20) && ($slaves[_i].trust > -20)>>
	<<set $slaves[_i].devotion -= 5, $slaves[_i].trust -= 5>>
	<<elseif ($slaves[_i].devotion < 45)>>
	<<set $slaves[_i].devotion += 4>>
	<<elseif ($slaves[_i].devotion >= 50)>>
	<<set $slaves[_i].devotion -= 4>>
	<</if>>
	<<if ($slaves[_i].trust < 30)>>
	<<set $slaves[_i].trust += 5>>
	<</if>>
	<<if $slaves[_i].energy > 40 && $slaves[_i].energy < 95>>
	<<set $slaves[_i].energy++>>
	<</if>>
<</for>>
	<<set _profits += $cash-$oldCash, $oldCash = $cash, _possibleBonuses = 0, _brothelBonuses = 0>>

	<<if $brothelAdsSpending != 0>>
		An ad campaign is supporting business there, and whores that match it make more ¤.
	<</if>>
	<<if ($arcologies[0].FSAssetExpansionist == "unset") && ($arcologies[0].FSSlimnessEnthusiast == "unset")>>
	<<if ($brothelAdsSpending == 0) || ($brothelAdsStacked == 0)>>
		<<set _possibleBonuses++>>
		<<if ($slim > 0) && ($stacked > 0) && (Math.abs($slim-$stacked) <= ($brothelSlaves/3))>>
		<<set _adsIncome = $brothelSlaves*random(20,30), $cash += _adsIncome, $facility.brothel.adsIncome += _adsIncome, _brothelBonuses++>>
		The brothel offers a @@.yellowgreen;wide@@ variety of slim and stacked slaves.
		<</if>>
	<</if>>
	<</if>>
	<<if ($arcologies[0].FSRepopulationFocus == "unset") && ($arcologies[0].FSRestart == "unset")>>
	<<if ($brothelAdsSpending == 0) || ($brothelAdsPreg == 0)>>
		<<set _possibleBonuses++>>
		<<if ($pregYes > 0) && ($pregNo > 0) && (Math.abs($pregYes-$pregNo) <= ($brothelSlaves/3))>>
		<<set _adsIncome = $brothelSlaves*random(20,30), $cash += _adsIncome, $facility.brothel.adsIncome += _adsIncome, _brothelBonuses++>>
		The brothel offers a @@.yellowgreen;wide@@ variety of slaves with big bellies and slaves with flat bellies.
		<</if>>
	<</if>>
	<</if>>
	<<if ($arcologies[0].FSDegradationist == "unset") && ($arcologies[0].FSBodyPurist == "unset")>>
	<<if ($brothelAdsSpending == 0) || ($brothelAdsModded == 0)>>
		<<set _possibleBonuses++>>
		<<if ($modded > 0) && ($unmodded > 0) && (Math.abs($modded-$unmodded) <= ($brothelSlaves/3))>>
		<<set _adsIncome = $brothelSlaves*random(20,30), $cash += _adsIncome, $facility.brothel.adsIncome += _adsIncome, _brothelBonuses++>>
		The brothel offers a @@.yellowgreen;both@@ heavily pierced and tattooed slaves and slaves with more natural bodies.
		<</if>>
	<</if>>
	<</if>>
	<<if ($arcologies[0].FSTransformationFetishist == "unset") && ($arcologies[0].FSBodyPurist == "unset")>>
	<<if ($brothelAdsSpending == 0) || ($brothelAdsImplanted == 0)>>
		<<set _possibleBonuses++>>
		<<if ($implanted > 0) && ($pure > 0) && (Math.abs($implanted-$pure) <= ($brothelSlaves/3))>>
		<<set _adsIncome = $brothelSlaves*random(20,30), $cash += _adsIncome, $facility.brothel.adsIncome += _adsIncome, _brothelBonuses++>>
		The brothel offers @@.yellowgreen;both@@ all-natural girls, and slaves whose beauty has been improved by surgical means.
		<</if>>
	<</if>>
	<</if>>
	<<if $seeDicks != 0>>
	<<if ($brothelAdsSpending == 0) || ($brothelAdsXX == 0)>>
		<<set _possibleBonuses++>>
		<<if ($XX > 0) && ($XY > 0) && (Math.abs($XX-$XY) <= ($brothelSlaves/3))>>
		<<set _adsIncome = $brothelSlaves*random(20,30), $cash += _adsIncome, $facility.brothel.adsIncome += _adsIncome, _brothelBonuses++>>
		The brothel offers a @@.yellowgreen;mix@@ of whores that can appeal to varied tastes in genitalia.
		<</if>>
	<</if>>
	<</if>>
	<<if ($arcologies[0].FSMaturityPreferentialist == "unset") && ($arcologies[0].FSYouthPreferentialist == "unset")>>
	<<if ($brothelAdsSpending == 0) || ($brothelAdsOld == 0)>>
		<<set _possibleBonuses++>>
		<<if ($young > 0) && ($old > 0) && (Math.abs($young-$old) <= ($brothelSlaves/3))>>
		<<set _adsIncome = $brothelSlaves*random(20,30), $cash += _adsIncome, $facility.brothel.adsIncome += _adsIncome, _brothelBonuses++>>
		The brothel offers girls @@.yellowgreen;both@@ young and mature.
		<</if>>
	<</if>>
	<</if>>

	<<if (_possibleBonuses > 0) && (_brothelBonuses >= _possibleBonuses)>>
		<<set _adsIncome = $brothelSlaves*random(40,60), $cash += _adsIncome, $facility.brothel.adsIncome += _adsIncome>>
		There is a ''@@.yellowgreen;perfect variety@@'' of slave whores working in the brothel.
	<</if>>

	<<set _profits += $cash-$oldCash>>

	<>
	$brothelNameCaps makes you @@.yellowgreen;¤_profits@@ this week.

	<<if $brothelDecoration != "standard">>
		$brothelNameCaps's customers enjoy @@.green;fucking whores in $brothelDecoration surroundings.@@
	<</if>>

	<<if $brothel <= $brothelSlaves>>
	<<set $brothelSpots = 0>>
	<<else>>
	<<set $brothelSpots = $brothel - $brothelSlaves>>
	<</if>>

	<<BrothelStatistics 0>>
<<else>>
	<<set $brothelSpots = $brothel>>
<</if>>
<<if $brothelSlaves || $Madam>>

<</if>>