code:
:: Body Mod Rules Assistant Settings [nobr]

<<set $nextButton to "Back">>
<<set $nextLink to "Rules Assistant">>
<<set $showEncyclopedia to 1>><<set $encyclopedia to "Personal Assistant">>

//Please use the 'no default setting' option to identify areas I should not address.//

__Rule $r piercings__

Ear piercings: ''

<<if $currentRule.earPiercing is "no default setting">>No default setting.<<elseif $currentRule.earPiercing == 0>>None.<<elseif $currentRule.earPiercing == 1>>Light.
<<elseif $currentRule.earPiercing is 2>>Heavy.<</if>>''

<<link "No default setting">>
<<set $currentRule.earPiercing to "no default setting">>
<<RAChangeEarPiercings>>
<</link>>
|
<<link "None">>
<<set $currentRule.earPiercing to 0>>
<<RAChangeEarPiercings>>
<</link>>
|
<<link "Light">>
<<set $currentRule.earPiercing to 1>>
<<RAChangeEarPiercings>>
<</link>>
|
<<link "Heavy">>
<<set $currentRule.earPiercing to 2>>
<<RAChangeEarPiercings>>
<</link>>

Nasal piercings: ''

<<if $currentRule.nosePiercing is "no default setting">>No default setting.<<elseif $currentRule.nosePiercing == 0>>None.<<elseif $currentRule.nosePiercing == 1>>Light.
<<elseif $currentRule.nosePiercing is 2>>Heavy.<</if>>''

<<link "No default setting">>
<<set $currentRule.nosePiercing to "no default setting">>
<<RAChangeNosePiercings>>
<</link>>
|
<<link "None">>
<<set $currentRule.nosePiercing to 0>>
<<RAChangeNosePiercings>>
<</link>>
|
<<link "Light">>
<<set $currentRule.nosePiercing to 1>>
<<RAChangeNosePiercings>>
<</link>>
|
<<link "Heavy">>
<<set $currentRule.nosePiercing to 2>>
<<RAChangeNosePiercings>>
<</link>>

Eyebrow piercings: ''

<<if $currentRule.eyebrowPiercing is "no default setting">>No default setting.<<elseif $currentRule.eyebrowPiercing == 0>>None.<<elseif $currentRule.eyebrowPiercing == 1>>Light.
<<elseif $currentRule.eyebrowPiercing is 2>>Heavy.<</if>>''

<<link "No default setting">>
<<set $currentRule.eyebrowPiercing to "no default setting">>
<<RAChangeEyebrowPiercings>>
<</link>>
|
<<link "None">>
<<set $currentRule.eyebrowPiercing to 0>>
<<RAChangeEyebrowPiercings>>
<</link>>
|
<<link "Light">>
<<set $currentRule.eyebrowPiercing to 1>>
<<RAChangeEyebrowPiercings>>
<</link>>
|
<<link "Heavy">>
<<set $currentRule.eyebrowPiercing to 2>>
<<RAChangeEyebrowPiercings>>
<</link>>

Navel piercing: ''

<<if $currentRule.navelPiercing is "no default setting">>No default setting.<<elseif $currentRule.navelPiercing == 0>>None.<<elseif $currentRule.navelPiercing == 1>>Light.
<<elseif $currentRule.navelPiercing is 2>>Heavy.<</if>>''

<<link "No default setting">>
<<set $currentRule.navelPiercing to "no default setting">>
<<RAChangeNavelPiercings>>
<</link>>
|
<<link "None">>
<<set $currentRule.navelPiercing to 0>>
<<RAChangeNavelPiercings>>
<</link>>
|
<<link "Light">>
<<set $currentRule.navelPiercing to 1>>
<<RAChangeNavelPiercings>>
<</link>>
|
<<link "Heavy">>
<<set $currentRule.navelPiercing to 2>>
<<RAChangeNavelPiercings>>
<</link>>

Nipple piercings: ''

<<if $currentRule.nipplesPiercing is "no default setting">>No default setting.<<elseif $currentRule.nipplesPiercing == 0>>None.<<elseif $currentRule.nipplesPiercing == 1>>Light.
<<elseif $currentRule.nipplesPiercing is 2>>Heavy.<</if>>''

<<link "No default setting">>
<<set $currentRule.nipplesPiercing to "no default setting">>
<<RAChangeNipplePiercings>>
<</link>>
|
<<link "None">>
<<set $currentRule.nipplesPiercing to 0>>
<<RAChangeNipplePiercings>>
<</link>>
|
<<link "Light">>
<<set $currentRule.nipplesPiercing to 1>>
<<RAChangeNipplePiercings>>
<</link>>
|
<<link "Heavy">>
<<set $currentRule.nipplesPiercing to 2>>
<<RAChangeNipplePiercings>>
<</link>>

Areola studs: ''

<<if $currentRule.areolaePiercing is "no default setting">>No default setting.<<elseif $currentRule.areolaePiercing == 0>>None.<<elseif $currentRule.areolaePiercing == 1>>Studded.<</if>>''

<<link "No default setting">>
<<set $currentRule.areolaePiercing to "no default setting">>
<<RAChangeAreolaPiercings>>
<</link>>
|
<<link "None">>
<<set $currentRule.areolaePiercing to 0>>
<<RAChangeAreolaPiercings>>
<</link>>
|
<<link "Studded">>
<<set $currentRule.areolaePiercing to 1>>
<<RAChangeAreolaPiercings>>
<</link>>

Lip piercings: ''

<<if $currentRule.lipsPiercing is "no default setting">>No default setting.<<elseif $currentRule.lipsPiercing == 0>>None.<<elseif $currentRule.lipsPiercing == 1>>Light.
<<elseif $currentRule.lipsPiercing is 2>>Heavy.<</if>>''

<<link "No default setting">>
<<set $currentRule.lipsPiercing to "no default setting">>
<<RAChangeLipPiercings>>
<</link>>
|
<<link "None">>
<<set $currentRule.lipsPiercing to 0>>
<<RAChangeLipPiercings>>
<</link>>
|
<<link "Light">>
<<set $currentRule.lipsPiercing to 1>>
<<RAChangeLipPiercings>>
<</link>>
|
<<link "Heavy">>
<<set $currentRule.lipsPiercing to 2>>
<<RAChangeLipPiercings>>
<</link>>

Tongue piercing: ''

<<if $currentRule.tonguePiercing is "no default setting">>No default setting.<<elseif $currentRule.tonguePiercing == 0>>None.<<elseif $currentRule.tonguePiercing == 1>>Light.
<<elseif $currentRule.tonguePiercing is 2>>Heavy.<</if>>''

<<link "No default setting">>
<<set $currentRule.tonguePiercing to "no default setting">>
<<RAChangeTonguePiercings>>
<</link>>
|
<<link "None">>
<<set $currentRule.tonguePiercing to 0>>
<<RAChangeTonguePiercings>>
<</link>>
|
<<link "Light">>
<<set $currentRule.tonguePiercing to 1>>
<<RAChangeTonguePiercings>>
<</link>>
|
<<link "Heavy">>
<<set $currentRule.tonguePiercing to 2>>
<<RAChangeTonguePiercings>>
<</link>>

Clit piercing: ''

<<if $currentRule.clitPiercing is "no default setting">>No default setting.<<elseif $currentRule.clitPiercing == 0>>None.<<elseif $currentRule.clitPiercing == 1>>Light.
<<elseif $currentRule.clitPiercing is 2>>Heavy.
<<elseif $currentRule.clitPiercing is 3>>Smart.<</if>>''

<<link "No default setting">>
<<set $currentRule.clitPiercing to "no default setting">>
<<RAChangeClitPiercings>>
<</link>>
|
<<link "None">>
<<set $currentRule.clitPiercing to 0>>
<<RAChangeClitPiercings>>
<</link>>
|
<<link "Light">>
<<set $currentRule.clitPiercing to 1>>
<<RAChangeClitPiercings>>
<</link>>
|
<<link "Heavy">>
<<set $currentRule.clitPiercing to 2>>
<<RAChangeClitPiercings>>
<</link>>
|
<<link "Smart">>
<<set $currentRule.clitPiercing to 3>>
<<RAChangeClitPiercings>>
<</link>>  //Warning: expensive//

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

Pussylips piercings: ''

<<if $currentRule.vaginaPiercing is "no default setting">>No default setting.<<elseif $currentRule.vaginaPiercing == 0>>None.<<elseif $currentRule.vaginaPiercing == 1>>Light.
<<elseif $currentRule.vaginaPiercing is 2>>Heavy.<</if>>''

<<link "No default setting">>
<<set $currentRule.vaginaPiercing to "no default setting">>
<<RAChangeVaginaPiercings>>
<</link>>
|
<<link "None">>
<<set $currentRule.vaginaPiercing to 0>>
<<RAChangeVaginaPiercings>>
<</link>>
|
<<link "Light">>
<<set $currentRule.vaginaPiercing to 1>>
<<RAChangeVaginaPiercings>>
<</link>>
|
<<link "Heavy">>
<<set $currentRule.vaginaPiercing to 2>>
<<RAChangeVaginaPiercings>>
<</link>>
<</if>>

<<if ($seeDicks > 0)>>

Shaft piercings: ''

<<if $currentRule.dickPiercing is "no default setting">>No default setting.<<elseif $currentRule.dickPiercing == 0>>None.<<elseif $currentRule.dickPiercing == 1>>Light.
<<elseif $currentRule.dickPiercing is 2>>Heavy.<</if>>''

<<link "No default setting">>
<<set $currentRule.dickPiercing to "no default setting">>
<<RAChangeDickPiercings>>
<</link>>
|
<<link "None">>
<<set $currentRule.dickPiercing to 0>>
<<RAChangeDickPiercings>>
<</link>>
|
<<link "Light">>
<<set $currentRule.dickPiercing to 1>>
<<RAChangeDickPiercings>>
<</link>>
|
<<link "Heavy">>
<<set $currentRule.dickPiercing to 2>>
<<RAChangeDickPiercings>>
<</link>>
<</if>>

Perianal piercings: ''

<<if $currentRule.anusPiercing is "no default setting">>No default setting.<<elseif $currentRule.anusPiercing == 0>>None.<<elseif $currentRule.anusPiercing == 1>>Light.
<<elseif $currentRule.anusPiercing is 2>>Heavy.<</if>>''

<<link "No default setting">>
<<set $currentRule.anusPiercing to "no default setting">>
<<RAChangeAnusPiercings>>
<</link>>
|
<<link "None">>
<<set $currentRule.anusPiercing to 0>>
<<RAChangeAnusPiercings>>
<</link>>
|
<<link "Light">>
<<set $currentRule.anusPiercing to 1>>
<<RAChangeAnusPiercings>>
<</link>>
|
<<link "Heavy">>
<<set $currentRule.anusPiercing to 2>>
<<RAChangeAnusPiercings>>
<</link>>

Corset piercings: ''

<<if $currentRule.corsetPiercing is "no default setting">>No default setting.<<elseif $currentRule.corsetPiercing == 0>>None.<<elseif $currentRule.corsetPiercing == 1>>Applied.<</if>>''

<<link "No default setting">>
<<set $currentRule.corsetPiercing to "no default setting">>
<<RAChangeCorsetPiercings>>
<</link>>
|
<<link "None">>
<<set $currentRule.corsetPiercing to 0>>
<<RAChangeCorsetPiercings>>
<</link>>
|
<<link "Apply">>
<<set $currentRule.corsetPiercing to 1>>
<<RAChangeCorsetPiercings>>
<</link>>

__Rule $r branding__

Automatic branding is

<<if $currentRule.autoBrand == 1>>
  ''on.''
  <<link "Deactivate">>
<<set $currentRule.autoBrand to 0>>
<<RAChangeBranding>>
<</link>>
<<else>>
  ''off.''
  <<link "Activate">>
<<set $currentRule.autoBrand to 1>>
<<RAChangeBranding>>
<</link>>
<</if>>

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

<<link "Right buttock">>
<<set $brandTarget to "right buttock">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Right thigh">>
<<set $brandTarget to "right thigh">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Right calf">>
<<set $brandTarget to "right calf">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Right ankle">>
<<set $brandTarget to "right ankle">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Right foot">>
<<set $brandTarget to "right foot">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Left buttock">>
<<set $brandTarget to "left buttock">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Left thigh">>
<<set $brandTarget to "left thigh">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Left calf">>
<<set $brandTarget to "left calf">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Left ankle">>
<<set $brandTarget to "left ankle">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Left foot">>
<<set $brandTarget to "left foot">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Both buttocks">>
<<set $brandTarget to "buttocks">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Both thighs">>
<<set $brandTarget to "thighs">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Both calves">>
<<set $brandTarget to "calves">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Both ankles">>
<<set $brandTarget to "ankles">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Both feet">>
<<set $brandTarget to "feet">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Right breast">>
<<set $brandTarget to "right breast">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Right shoulder">>
<<set $brandTarget to "right shoulder">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Right upper arm">>
<<set $brandTarget to "right upper arm">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Right lower arm">>
<<set $brandTarget to "right lower arm">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Right wrist">>
<<set $brandTarget to "right wrist">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Right hand">>
<<set $brandTarget to "right hand">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Left breast">>
<<set $brandTarget to "left breast">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Left shoulder">>
<<set $brandTarget to "left shoulder">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Left upper arm">>
<<set $brandTarget to "left upper arm">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Left lower arm">>
<<set $brandTarget to "left lower arm">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Left wrist">>
<<set $brandTarget to "left wrist">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Left hand">>
<<set $brandTarget to "left hand">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Both breasts">>
<<set $brandTarget to "breasts">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Both shoulders">>
<<set $brandTarget to "shoulders">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Both upper arms">>
<<set $brandTarget to "upper arms">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Both lower arms">>
<<set $brandTarget to "lower left arms">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Both wrists">>
<<set $brandTarget to "wrists">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Both hands">>
<<set $brandTarget to "hands">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Back">>
<<set $brandTarget to "back">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Chest">>
<<set $brandTarget to "chest">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Right cheek">>
<<set $brandTarget to "right cheek">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Left cheek">>
<<set $brandTarget to "left cheek">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Both cheeks">>
<<set $brandTarget to "cheeks">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Neck">>
<<set $brandTarget to "neck">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Right ear">>
<<set $brandTarget to "right ear">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Left ear">>
<<set $brandTarget to "left ear">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Both ears">>
<<set $brandTarget to "ears">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Belly">>
<<set $brandTarget to "belly">>
<<RAChangeBrandTarget>>
<</link>>
|
<<link "Pubic Mound">>
<<set $brandTarget to "pubic mound">>
<<RAChangeBrandTarget>>
<</link>>

Your brand design is ''$brandDesign.''

<<link "Your slaving emblem">>
<<set $brandDesign to "your personal symbol">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "Your initials">>
<<set $brandDesign to "your initials">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "SLUT">>
<<set $brandDesign to "SLUT">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "WHORE">>
<<set $brandDesign to "WHORE">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "SLAVE">>
<<set $brandDesign to "SLAVE">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "COW">>
<<set $brandDesign to "COW">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "MEAT">>
<<set $brandDesign to "MEAT">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "CUMDUMP">>
<<set $brandDesign to "CUMDUMP">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "LOVER">>
<<set $brandDesign to "LOVER">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "Pussy symbol">>
<<set $brandDesign to "a pussy symbol">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "Anus symbol">>
<<set $brandDesign to "an anus symbol">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "Penis symbol">>
<<set $brandDesign to "a penis symbol">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "Lady">>
<<set $brandDesign to "a lady silhouette">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "Princess">>
<<set $brandDesign to "a princess silhouette">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "Queen">>
<<set $brandDesign to "a queen silhouette">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "Angel">>
<<set $brandDesign to "an angel silhouette">>
<<RAChangeBrandDesign>>
<</link>>
|
<<link "Devil">>
<<set $brandDesign to "a devil silhouette">>
<<RAChangeBrandDesign>>
<</link>>
<<if ($arcologies[0].FSSupremacist != "unset") && ($arcologies[0].FSSupremacistRace is "white") && ($activeSlave.race != $arcologies[0].FSSupremacistRace)>>
| //FS// <<link "Swastika">>
<<set $brandDesign to "a swastika">>
<<RAChangeBrandDesign>>
<</link>>
<<elseif ($arcologies[0].FSSupremacist != "unset") && ($activeSlave.race != $arcologies[0].FSSupremacistRace)>>
| //FS// <<link "Racial Slur">>
<<set $brandDesign to "a racial slur">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSSubjugationistRace is "semitic") && ($activeSlave.race is "semitic")>>
| //FS// <<link "Star of David">>
<<set $brandDesign to "a Star of David">>
<<RAChangeBrandDesign>>
<</link>>
<<elseif ($arcologies[0].FSSubjugationist != "unset") && ($activeSlave.race is $arcologies[0].FSSubjugationistRace)>>
| //FS// <<link "Racial Slur">>
<<set $brandDesign to "a racial slur">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSGenderRadicalist != "unset") || ($arcologies[0].FSGenderFundamentalist != "unset")>>
| //FS// <<link "Gender Symbol">>
<<set $brandDesign to "a gender symbol">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSPaternalist != "unset")>>
| //FS// <<link "Personal Symbol">>
<<set $brandDesign to "her own personal symbol">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSDegradationist != "unset")>>
| //FS// <<link "Chain Symbol">>
<<set $brandDesign to "a chain symbol">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSBodyPurist != "unset")>>
| //FS// <<link "Vitruvian Man">>
<<set $brandDesign to "a Vitruvian man">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSTransformationFetishist != "unset")>>
| //FS// <<link "Most Desired Implants">>
<<set $brandDesign to "a shortlist of desired implants">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSYouthPreferentialist != "unset")>>
| //FS// <<link "Virginity Status">>
<<set $brandDesign to "her virginity status">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSMaturityPreferentialist != "unset")>>
| //FS// <<link "Sexual Skill Info">>
<<set $brandDesign to "her sexual skills">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSSlimnessEnthusiast != "unset")>>
| //FS// <<link "Breast Ceiling">>
<<set $brandDesign to "her absolute maximum breast size">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSAssetExpansionist != "unset")>>
| //FS// <<link "Breast Floor">>
<<set $brandDesign to "her absolute minimum breast size">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSPastoralist != "unset")>>
| //FS// <<link "Product Quality">>
<<set $brandDesign to "her body product quality">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSPhysicalIdealist != "unset")>>
| //FS// <<link "Deadlift Info">>
<<set $brandDesign to "her deadlift record">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSChattelReligionist != "unset")>>
| //FS// <<link "Religious Symbol">>
<<set $brandDesign to "a religious symbol">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSRomanRevivalist != "unset")>>
| //FS// <<link "Republican Crest">>
<<set $brandDesign to "a small crest of your Republic">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSEgyptianRevivalist != "unset")>>
| //FS// <<link "Dynastic Sigil">>
<<set $brandDesign to "a small sigil of your Dynasty">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSEdoRevivalist != "unset")>>
| //FS// <<link "Mon">>
<<set $brandDesign to "a small image of the Shogunate's mon">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSArabianRevivalist != "unset")>>
| //FS// <<link "Caliphate Symbol">>
<<set $brandDesign to "a small symbol of the Caliphate">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>
<<if ($arcologies[0].FSChineseRevivalist != "unset")>>
| //FS// <<link "Imperial Seal">>
<<set $brandDesign to "a small image of your Imperial Seal">>
<<RAChangeBrandDesign>>
<</link>>  <</if>>

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

__Rule $r tattoos__

Chest tattoos: ''

<<if $currentRule.boobsTat == 0>>none<<else>>$currentRule.boobsTat<</if>>.

''

<<link "No default setting">>
<<set $currentRule.boobsTat to "no default setting">>
<<RAChangeChestTattoos>>
<</link>>
|
<<link "None">>
<<set $currentRule.boobsTat to 0>>
<<RAChangeChestTattoos>>
<</link>>
|
<<link "Tribal patterns">>
<<set $currentRule.boobsTat to "tribal patterns">>
<<RAChangeChestTattoos>>
<</link>>
|
<<link "Flowers">>
<<set $currentRule.boobsTat to "flowers">>
<<RAChangeChestTattoos>>
<</link>>
|
<<link "Scenes">>
<<set $currentRule.boobsTat to "scenes">>
<<RAChangeChestTattoos>>
<</link>>
|
<<link "Asian art">>
<<set $currentRule.boobsTat to "Asian art">>
<<RAChangeChestTattoos>>
<</link>>
|
<<link "Degradation">>
<<set $currentRule.boobsTat to "degradation">>
<<RAChangeChestTattoos>>
<</link>>
|
<<link "Counting">>
<<set $currentRule.boobsTat to "counting">>
<<RAChangeChestTattoos>>
<</link>>
|
<<link "Advertisements">>
<<set $currentRule.boobsTat to "advertisements">>
<<RAChangeChestTattoos>>
<</link>>
|
<<link "Rude words">>
<<set $currentRule.boobsTat to "rude words">>
<<RAChangeChestTattoos>>
<</link>>
|
<<link "Bovine patterns">>
<<set $currentRule.boobsTat to "bovine patterns">>
<<RAChangeChestTattoos>>
<</link>>

Buttock tattoos: ''

<<if $currentRule.buttTat == 0>>none<<else>>$currentRule.buttTat<</if>>.

''

<<link "No default setting">>
<<set $currentRule.buttTat to "no default setting">>
<<RAChangeButtTattoos>>
<</link>>
|
<<link "None">>
<<set $currentRule.buttTat to 0>>
<<RAChangeButtTattoos>>
<</link>>
|
<<link "Tribal patterns">>
<<set $currentRule.buttTat to "tribal patterns">>
<<RAChangeButtTattoos>>
<</link>>
|
<<link "Flowers">>
<<set $currentRule.buttTat to "flowers">>
<<RAChangeButtTattoos>>
<</link>>
|
<<link "Scenes">>
<<set $currentRule.buttTat to "scenes">>
<<RAChangeButtTattoos>>
<</link>>
|
<<link "Asian art">>
<<set $currentRule.buttTat to "Asian art">>
<<RAChangeButtTattoos>>
<</link>>
|
<<link "Degradation">>
<<set $currentRule.buttTat to "degradation">>
<<RAChangeButtTattoos>>
<</link>>
|
<<link "Counting">>
<<set $currentRule.buttTat to "counting">>
<<RAChangeButtTattoos>>
<</link>>
|
<<link "Advertisements">>
<<set $currentRule.buttTat to "advertisements">>
<<RAChangeButtTattoos>>
<</link>>
|
<<link "Rude words">>
<<set $currentRule.buttTat to "rude words">>
<<RAChangeButtTattoos>>
<</link>>
|
<<link "Bovine patterns">>
<<set $currentRule.buttTat to "bovine patterns">>
<<RAChangeButtTattoos>>
<</link>>

Facial tattoos: ''

<<if $currentRule.lipsTat == 0>>none<<else>>$currentRule.lipsTat<</if>>.

''

<<link "No default setting">>
<<set $currentRule.lipsTat to "no default setting">>
<<RAChangeFaceTattoos>>
<</link>>
|
<<link "None">>
<<set $currentRule.lipsTat to 0>>
<<RAChangeFaceTattoos>>
<</link>>
|
<<link "Tribal patterns">>
<<set $currentRule.lipsTat to "tribal patterns">>
<<RAChangeFaceTattoos>>
<</link>>
|
<<link "Flowers">>
<<set $currentRule.lipsTat to "flowers">>
<<RAChangeFaceTattoos>>
<</link>>
|
<<link "Permanent makeup">>
<<set $currentRule.lipsTat to "permanent makeup">>
<<RAChangeFaceTattoos>>
<</link>>
|
<<link "Asian art">>
<<set $currentRule.lipsTat to "Asian art">>
<<RAChangeFaceTattoos>>
<</link>>
|
<<link "Degradation">>
<<set $currentRule.lipsTat to "degradation">>
<<RAChangeFaceTattoos>>
<</link>>
|
<<link "Counting">>
<<set $currentRule.lipsTat to "counting">>
<<RAChangeFaceTattoos>>
<</link>>
|
<<link "Advertisements">>
<<set $currentRule.lipsTat to "advertisements">>
<<RAChangeFaceTattoos>>
<</link>>
|
<<link "Rude words">>
<<set $currentRule.lipsTat to "rude words">>
<<RAChangeFaceTattoos>>
<</link>>
|
<<link "Bovine patterns">>
<<set $currentRule.lipsTat to "bovine patterns">>
<<RAChangeFaceTattoos>>
<</link>>

Shoulder tattoos: ''

<<if $currentRule.shouldersTat == 0>>none<<else>>$currentRule.shouldersTat<</if>>.

''

<<link "No default setting">>
<<set $currentRule.shouldersTat to "no default setting">>
<<RAChangeShoulderTattoos>>
<</link>>
|
<<link "None">>
<<set $currentRule.shouldersTat to 0>>
<<RAChangeShoulderTattoos>>
<</link>>
|
<<link "Tribal patterns">>
<<set $currentRule.shouldersTat to "tribal patterns">>
<<RAChangeShoulderTattoos>>
<</link>>
|
<<link "Flowers">>
<<set $currentRule.shouldersTat to "flowers">>
<<RAChangeShoulderTattoos>>
<</link>>
|
<<link "Scenes">>
<<set $currentRule.shouldersTat to "scenes">>
<<RAChangeShoulderTattoos>>
<</link>>
|
<<link "Asian art">>
<<set $currentRule.shouldersTat to "Asian art">>
<<RAChangeShoulderTattoos>>
<</link>>
|
<<link "Degradation">>
<<set $currentRule.shouldersTat to "degradation">>
<<RAChangeShoulderTattoos>>
<</link>>
|
<<link "Counting">>
<<set $currentRule.shouldersTat to "counting">>
<<RAChangeShoulderTattoos>>
<</link>>
|
<<link "Advertisements">>
<<set $currentRule.shouldersTat to "advertisements">>
<<RAChangeShoulderTattoos>>
<</link>>
|
<<link "Rude words">>
<<set $currentRule.shouldersTat to "rude words">>
<<RAChangeShoulderTattoos>>
<</link>>

Arm tattoos: ''

<<if $currentRule.armsTat == 0>>none<<else>>$currentRule.armsTat<</if>>.

''

<<link "No default setting">>
<<set $currentRule.armsTat to "no default setting">>
<<RAChangeArmTattoos>>
<</link>>
|
<<link "None">>
<<set $currentRule.armsTat to 0>>
<<RAChangeArmTattoos>>
<</link>>
|
<<link "Tribal patterns">>
<<set $currentRule.armsTat to "tribal patterns">>
<<RAChangeArmTattoos>>
<</link>>
|
<<link "Flowers">>
<<set $currentRule.armsTat to "flowers">>
<<RAChangeArmTattoos>>
<</link>>
|
<<link "Scenes">>
<<set $currentRule.armsTat to "scenes">>
<<RAChangeArmTattoos>>
<</link>>
|
<<link "Asian art">>
<<set $currentRule.armsTat to "Asian art">>
<<RAChangeArmTattoos>>
<</link>>
|
<<link "Degradation">>
<<set $currentRule.armsTat to "degradation">>
<<RAChangeArmTattoos>>
<</link>>
|
<<link "Counting">>
<<set $currentRule.armsTat to "counting">>
<<RAChangeArmTattoos>>
<</link>>
|
<<link "Advertisements">>
<<set $currentRule.armsTat to "advertisements">>
<<RAChangeArmTattoos>>
<</link>>
|
<<link "Rude words">>
<<set $currentRule.armsTat to "rude words">>
<<RAChangeArmTattoos>>
<</link>>
|
<<link "Bovine patterns">>
<<set $currentRule.armsTat to "bovine patterns">>
<<RAChangeArmTattoos>>
<</link>>

Leg tattoos: ''

<<if $currentRule.legsTat == 0>>none<<else>>$currentRule.legsTat<</if>>.

''

<<link "No default setting">>
<<set $currentRule.legsTat to "no default setting">>
<<RAChangeLegTattoos>>
<</link>>
|
<<link "None">>
<<set $currentRule.legsTat to 0>>
<<RAChangeLegTattoos>>
<</link>>
|
<<link "Tribal patterns">>
<<set $currentRule.legsTat to "tribal patterns">>
<<RAChangeLegTattoos>>
<</link>>
|
<<link "Flowers">>
<<set $currentRule.legsTat to "flowers">>
<<RAChangeLegTattoos>>
<</link>>
|
<<link "Scenes">>
<<set $currentRule.legsTat to "scenes">>
<<RAChangeLegTattoos>>
<</link>>
|
<<link "Asian art">>
<<set $currentRule.legsTat to "Asian art">>
<<RAChangeLegTattoos>>
<</link>>
|
<<link "Degradation">>
<<set $currentRule.legsTat to "degradation">>
<<RAChangeLegTattoos>>
<</link>>
|
<<link "Counting">>
<<set $currentRule.legsTat to "counting">>
<<RAChangeLegTattoos>>
<</link>>
|
<<link "Advertisements">>
<<set $currentRule.legsTat to "advertisements">>
<<RAChangeLegTattoos>>
<</link>>
|
<<link "Rude words">>
<<set $currentRule.legsTat to "rude words">>
<<RAChangeLegTattoos>>
<</link>>
|
<<link "Bovine patterns">>
<<set $currentRule.legsTat to "bovine patterns">>
<<RAChangeLegTattoos>>
<</link>>

Upper back tattoo: ''

<<if $currentRule.backTat == 0>>none<<else>>$currentRule.backTat<</if>>.

''

<<link "No default setting">>
<<set $currentRule.backTat to "no default setting">>
<<RAChangeBackTattoos>>
<</link>>
|
<<link "None">>
<<set $currentRule.backTat to 0>>
<<RAChangeBackTattoos>>
<</link>>
|
<<link "Tribal patterns">>
<<set $currentRule.backTat to "tribal patterns">>
<<RAChangeBackTattoos>>
<</link>>
|
<<link "Flowers">>
<<set $currentRule.backTat to "flowers">>
<<RAChangeBackTattoos>>
<</link>>
|
<<link "Scenes">>
<<set $currentRule.backTat to "scenes">>
<<RAChangeBackTattoos>>
<</link>>
|
<<link "Asian art">>
<<set $currentRule.backTat to "Asian art">>
<<RAChangeBackTattoos>>
<</link>>
|
<<link "Degradation">>
<<set $currentRule.backTat to "degradation">>
<<RAChangeBackTattoos>>
<</link>>
|
<<link "Counting">>
<<set $currentRule.backTat to "counting">>
<<RAChangeBackTattoos>>
<</link>>
|
<<link "Advertisements">>
<<set $currentRule.backTat to "advertisements">>
<<RAChangeBackTattoos>>
<</link>>
|
<<link "Rude words">>
<<set $currentRule.backTat to "rude words">>
<<RAChangeBackTattoos>>
<</link>>
|
<<link "Bovine patterns">>
<<set $currentRule.backTat to "bovine patterns">>
<<RAChangeBackTattoos>>
<</link>>

Lower back tattoo: ''

<<if $currentRule.stampTat == 0>>none<<else>>$currentRule.stampTat<</if>>.

''

<<link "No default setting">>
<<set $currentRule.stampTat to "no default setting">>
<<RAChangeStampTattoos>>
<</link>>
|
<<link "None">>
<<set $currentRule.stampTat to 0>>
<<RAChangeStampTattoos>>
<</link>>
|
<<link "Tribal patterns">>
<<set $currentRule.stampTat to "tribal patterns">>
<<RAChangeStampTattoos>>
<</link>>
|
<<link "Flowers">>
<<set $currentRule.stampTat to "flowers">>
<<RAChangeStampTattoos>>
<</link>>
|
<<link "Scenes">>
<<set $currentRule.stampTat to "scenes">>
<<RAChangeStampTattoos>>
<</link>>
|
<<link "Asian art">>
<<set $currentRule.stampTat to "Asian art">>
<<RAChangeStampTattoos>>
<</link>>
|
<<link "Degradation">>
<<set $currentRule.stampTat to "degradation">>
<<RAChangeStampTattoos>>
<</link>>
|
<<link "Counting">>
<<set $currentRule.stampTat to "counting">>
<<RAChangeStampTattoos>>
<</link>>
|
<<link "Advertisements">>
<<set $currentRule.stampTat to "advertisements">>
<<RAChangeStampTattoos>>
<</link>>
|
<<link "Rude words">>
<<set $currentRule.stampTat to "rude words">>
<<RAChangeStampTattoos>>
<</link>>
|
<<link "Bovine patterns">>
<<set $currentRule.stampTat to "bovine patterns">>
<<RAChangeStampTattoos>>
<</link>>

Abdominal tattoo: ''

<<if $currentRule.vaginaTat == 0>>none<<else>>$currentRule.vaginaTat<</if>>.

''

<<link "No default setting">>
<<set $currentRule.vaginaTat to "no default setting">>
<<RAChangeVaginaTattoos>>
<</link>>
|
<<link "None">>
<<set $currentRule.vaginaTat to 0>>
<<RAChangeVaginaTattoos>>
<</link>>
|
<<link "Tribal patterns">>
<<set $currentRule.vaginaTat to "tribal patterns">>
<<RAChangeVaginaTattoos>>
<</link>>
|
<<link "Flowers">>
<<set $currentRule.vaginaTat to "flowers">>
<<RAChangeVaginaTattoos>>
<</link>>
|
<<link "Scenes">>
<<set $currentRule.vaginaTat to "scenes">>
<<RAChangeVaginaTattoos>>
<</link>>
|
<<link "Asian art">>
<<set $currentRule.vaginaTat to "Asian art">>
<<RAChangeVaginaTattoos>>
<</link>>
|
<<link "Degradation">>
<<set $currentRule.vaginaTat to "degradation">>
<<RAChangeVaginaTattoos>>
<</link>>
|
<<link "Counting">>
<<set $currentRule.vaginaTat to "counting">>
<<RAChangeVaginaTattoos>>
<</link>>
|
<<link "Advertisements">>
<<set $currentRule.vaginaTat to "advertisements">>
<<RAChangeVaginaTattoos>>
<</link>>
|
<<link "Rude words">>
<<set $currentRule.vaginaTat to "rude words">>
<<RAChangeVaginaTattoos>>
<</link>>
|
<<link "Bovine patterns">>
<<set $currentRule.vaginaTat to "bovine patterns">>
<<RAChangeVaginaTattoos>>
<</link>>

<<if $seeDicks > 0>>

Dick tattoo: ''

<<if $currentRule.dickTat == 0>>none<<else>>$currentRule.dickTat<</if>>.

''

<<link "No default setting">>
<<set $currentRule.dickTat to "no default setting">>
<<RAChangeDickTattoos>>
<</link>>
|
<<link "None">>
<<set $currentRule.dickTat to 0>>
<<RAChangeDickTattoos>>
<</link>>
|
<<link "Tribal patterns">>
<<set $currentRule.dickTat to "tribal patterns">>
<<RAChangeDickTattoos>>
<</link>>
|
<<link "Flowers">>
<<set $currentRule.dickTat to "flowers">>
<<RAChangeDickTattoos>>
<</link>>
|
<<link "Asian art">>
<<set $currentRule.dickTat to "Asian art">>
<<RAChangeDickTattoos>>
<</link>>
|
<<link "Degradation">>
<<set $currentRule.dickTat to "degradation">>
<<RAChangeDickTattoos>>
<</link>>
|
<<link "Counting">>
<<set $currentRule.dickTat to "counting">>
<<RAChangeDickTattoos>>
<</link>>
|
<<link "Advertisements">>
<<set $currentRule.dickTat to "advertisements">>
<<RAChangeDickTattoos>>
<</link>>
|
<<link "Rude words">>
<<set $currentRule.dickTat to "rude words">>
<<RAChangeDickTattoos>>
<</link>>
|
<<link "Bovine patterns">>
<<set $currentRule.dickTat to "bovine patterns">>
<<RAChangeDickTattoos>>
<</link>>
<</if>>

Anal tattoo or bleaching: ''

<<if $currentRule.anusTat == 0>>none<<else>>$currentRule.anusTat<</if>>.

''

<<link "No default setting">>
<<set $currentRule.anusTat to "no default setting">>
<<RAChangeAnusTattoos>>
<</link>>
|
<<link "None">>
<<set $currentRule.anusTat to 0>>
<<RAChangeAnusTattoos>>
<</link>>
|
<<link "Bleached">>
<<set $currentRule.anusTat to "bleached">>
<<RAChangeAnusTattoos>>
<</link>>
|
<<link "Tribal pattern">>
<<set $currentRule.anusTat to "tribal patterns">>
<<RAChangeAnusTattoos>>
<</link>>
|
<<link "Flowers">>
<<set $currentRule.anusTat to "flowers">>
<<RAChangeAnusTattoos>>
<</link>>
|
<<link "Degradation">>
<<set $currentRule.anusTat to "degradation">>
<<RAChangeAnusTattoos>>
<</link>>
|
<<link "Counting">>
<<set $currentRule.anusTat to "counting">>
<<RAChangeAnusTattoos>>
<</link>>
|
<<link "Advertisements">>
<<set $currentRule.anusTat to "advertisements">>
<<RAChangeAnusTattoos>>
<</link>>
|
<<link "Rude words">>
<<set $currentRule.anusTat to "rude words">>
<<RAChangeAnusTattoos>>
<</link>>
|
<<link "Bovine patterns">>
<<set $currentRule.anusTat to "bovine patterns">>
<<RAChangeAnusTattoos>>
<</link>>


code:
:: Body Modification [nobr]

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

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

<<set $brandApplied to 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 is 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 to 1,$cash -= $modCost]]
<<elseif $activeSlave.earPiercing == 1>>
	[[Pierce them heavily|Body Modification][$activeSlave.earPiercing to 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.earPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.earPiercing to 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 is 2>>
	$pronounCap has nasal studs and a large septum ring.
<</if>>
<<if $activeSlave.nosePiercing == 0>>
	[[Pierce it|Body Modification][$activeSlave.nosePiercing to 1,$cash -= $modCost]]
<<elseif $activeSlave.nosePiercing == 1>>
	[[Pierce it heavily|Body Modification][$activeSlave.nosePiercing to 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.nosePiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.nosePiercing to 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 is 2>>
	$pronounCap has multiple eyebrow rings.
<</if>>
<<if $activeSlave.eyebrowPiercing == 0>>
	[[Pierce them|Body Modification][$activeSlave.eyebrowPiercing to 1,$cash -= $modCost]]
<<elseif $activeSlave.eyebrowPiercing == 1>>
	[[Pierce them heavily|Body Modification][$activeSlave.eyebrowPiercing to 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.eyebrowPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.eyebrowPiercing to 0,$cash -= $modCost]]//
<</if>>

<<if $activeSlave.navelPiercing == 1>>
	$possessiveCap navel bears a simple stud.
<<elseif $activeSlave.navelPiercing is 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 to 1,$cash -= $modCost]]
<<elseif $activeSlave.navelPiercing == 1>>
	[[Pierce it heavily|Body Modification][$activeSlave.navelPiercing to 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.navelPiercing > 0>>
	//[[Remove piercing|Body Modification][$activeSlave.navelPiercing to 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 to 1,$degradation += 2,$cash -= $modCost]]
<<else>>
	//[[Remove corset piercings|Body Modification][$activeSlave.corsetPiercing to 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 is 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 to 1,$cash -= $modCost]]
<<elseif $activeSlave.nipplesPiercing == 1>>
	[[Pierce them heavily|Body Modification][$activeSlave.nipplesPiercing to 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.nipplesPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.nipplesPiercing to 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 to 1,$degradation += 1,$cash -= $modCost]]
<<else>>
	//[[Remove piercings|Body Modification][$activeSlave.areolaePiercing to 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 is 2>>
	$possessiveCap lips are heavily pierced.
<</if>>
<<if $activeSlave.lipsPiercing == 0>>
	[[Pierce them|Body Modification][$activeSlave.lipsPiercing to 1,$cash -= $modCost]]
<<elseif $activeSlave.lipsPiercing == 1>>
	[[Pierce them heavily|Body Modification][$activeSlave.lipsPiercing to 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.lipsPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.lipsPiercing to 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 is 2>>
	$possessiveCap tongue is heavily pierced.
<</if>>
<<if $activeSlave.tonguePiercing == 0>>
	[[Pierce it|Body Modification][$activeSlave.tonguePiercing to 1,$cash -= $modCost]]
<<elseif $activeSlave.tonguePiercing == 1>>
	[[Pierce it heavily|Body Modification][$activeSlave.tonguePiercing to 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.tonguePiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.tonguePiercing to 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 is 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 is 2)>>
	$pronounCap has a big ring in $possessive dickhead.
<<elseif ($activeSlave.clitPiercing > 2)>>
	$pronounCap has a smart frenulum piercing.
<</if>>
<<if $activeSlave.clitPiercing == 0>>
	[[Pierce|Body Modification][$activeSlave.clitPiercing to 1,$cash -= $modCost]]
<<elseif $activeSlave.clitPiercing == 1>>
	[[Big piercing|Body Modification][$activeSlave.clitPiercing to 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.clitPiercing != 3>>
	 | [[Smart piercing|Body Modification][$activeSlave.clitPiercing to 3,$activeSlave.clitSetting to "all",$cash -=$SPcost,$degradation += 1]] //Costs ¤$SPcost, unlocks options to mold sexuality//
<</if>>
<<if $activeSlave.clitPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.clitPiercing to 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 is 2)>>
	$pronounCap has a row of big rings down $possessive labia.
<</if>>
<<if $activeSlave.vaginaPiercing == 0>>
	[["Pierce " + $possessive|Body Modification][$activeSlave.vaginaPiercing to 1,$cash -= $modCost]]
<<elseif $activeSlave.vaginaPiercing == 1>>
	[[Huge piercings|Body Modification][$activeSlave.vaginaPiercing to 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.vaginaPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.vaginaPiercing to 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 is 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 is 2)>>
	$pronounCap has a row of rings down the center of $possessive ballsack, all the way from the base of $possessive shaft to $possessive perineum.
<</if>>
<</if>>
<<if $activeSlave.dickPiercing == 0>>
	[[Pierce|Body Modification][$activeSlave.dickPiercing to 1,$cash -= $modCost]]
<<elseif $activeSlave.dickPiercing == 1>>
	[[Huge piercings|Body Modification][$activeSlave.dickPiercing to 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.dickPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.dickPiercing to 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 is 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 is 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 to 1,$cash -= $modCost]]
<<elseif $activeSlave.anusPiercing == 1>>
	[[Pierce rim|Body Modification][$activeSlave.anusPiercing to 2,$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.anusPiercing > 0>>
	//[[Remove piercings|Body Modification][$activeSlave.anusPiercing to 0,$cash -= $modCost]]//
<</if>>

Your preferred location for brands is the ''$brandTarget.''
[[Right buttock|Body Modification][$brandTarget to "right buttock"]]
| [[Right thigh|Body Modification][$brandTarget to "right thigh"]]
| [[Right calf|Body Modification][$brandTarget to "right calf"]]
| [[Right ankle|Body Modification][$brandTarget to "right ankle"]]
| [[Right foot|Body Modification][$brandTarget to "right foot"]]
| [[Left buttock|Body Modification][$brandTarget to "left buttock"]]
| [[Left thigh|Body Modification][$brandTarget to "left thigh"]]
| [[Left calf|Body Modification][$brandTarget to "left calf"]]
| [[Left ankle|Body Modification][$brandTarget to "left ankle"]]
| [[Left foot|Body Modification][$brandTarget to "left foot"]]
| [[Both buttocks|Body Modification][$brandTarget to "buttocks"]]
| [[Both thighs|Body Modification][$brandTarget to "thighs"]]
| [[Both calves|Body Modification][$brandTarget to "calves"]]
| [[Both ankles|Body Modification][$brandTarget to "ankles"]]
| [[Both feet|Body Modification][$brandTarget to "feet"]]
| [[Right breast|Body Modification][$brandTarget to "right breast"]]
| [[Right shoulder|Body Modification][$brandTarget to "right shoulder"]]
| [[Right upper arm|Body Modification][$brandTarget to "right upper arm"]]
| [[Right lower arm|Body Modification][$brandTarget to "right lower arm"]]
| [[Right wrist|Body Modification][$brandTarget to "right wrist"]]
| [[Right hand|Body Modification][$brandTarget to "right hand"]]
| [[Left breast|Body Modification][$brandTarget to "left breast"]]
| [[Left shoulder|Body Modification][$brandTarget to "left shoulder"]]
| [[Left upper arm|Body Modification][$brandTarget to "left upper arm"]]
| [[Left lower arm|Body Modification][$brandTarget to "left lower arm"]]
| [[Left wrist|Body Modification][$brandTarget to "left wrist"]]
| [[Left hand|Body Modification][$brandTarget to "left hand"]]
| [[Both breasts|Body Modification][$brandTarget to "breasts"]]
| [[Both shoulders|Body Modification][$brandTarget to "shoulders"]]
| [[Both upper arms|Body Modification][$brandTarget to "upper arms"]]
| [[Both lower arms|Body Modification][$brandTarget to "lower arms"]]
| [[Both wrists|Body Modification][$brandTarget to "wrists"]]
| [[Both hands|Body Modification][$brandTarget to "hands"]]
| [[Back|Body Modification][$brandTarget to "back"]]
| [[Chest|Body Modification][$brandTarget to "chest"]]
| [[Right cheek|Body Modification][$brandTarget to "right cheek"]]
| [[Left cheek|Body Modification][$brandTarget to "left cheek"]]
| [[Both cheeks|Body Modification][$brandTarget to "cheeks"]]
| [[Neck|Body Modification][$brandTarget to "neck"]]
| [[Right ear|Body Modification][$brandTarget to "right ear"]]
| [[Left ear|Body Modification][$brandTarget to "left ear"]]
| [[Both ears|Body Modification][$brandTarget to "ears"]]
| [[Belly|Body Modification][$brandTarget to "belly"]]
| [[Pubic Mound|Body Modification][$brandTarget to "pubic mound"]]
/* Branding expansion contributed by Anon1888 */

Your brand design is ''$brandDesign.''

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<<if $activeSlave.stampTat == 0>>
	<<set $activeSlave.stampTat to "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 to "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.boobsTat to "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.boobsTat to "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.boobsTat to "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.boobsTat to "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.boobsTat to "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.boobsTat to "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.boobsTat to "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.boobsTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.boobsTat to 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 to "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.buttTat to "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.buttTat to "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.buttTat to "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.buttTat to "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.buttTat to "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.buttTat to "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.buttTat to "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.buttTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.buttTat to 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 to "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.lipsTat to "flowers",$cash -= $modCost]]
	 | [[Permanent makeup|Body Modification][$activeSlave.lipsTat to "permanent makeup",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.lipsTat to "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.lipsTat to "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.lipsTat to "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.lipsTat to "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.lipsTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.lipsTat to 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 to "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.shouldersTat to "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.shouldersTat to "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.shouldersTat to "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.shouldersTat to "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.shouldersTat to "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.shouldersTat to "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.shouldersTat to "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.shouldersTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.shouldersTat to 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 to "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.backTat to "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.backTat to "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.backTat to "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.backTat to "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.backTat to "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.backTat to "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.backTat to "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.backTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.backTat to 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 to "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.armsTat to "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.armsTat to "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.armsTat to "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.armsTat to "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.armsTat to "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.armsTat to "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.armsTat to "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.armsTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.armsTat to 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 to "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.legsTat to "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.legsTat to "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.legsTat to "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.legsTat to "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.legsTat to "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.legsTat to "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.legsTat to "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.legsTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.legsTat to 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 to "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.stampTat to "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.stampTat to "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.stampTat to "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.stampTat to "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.stampTat to "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.stampTat to "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.stampTat to "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.stampTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.stampTat to 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 to "a heart",$cash -= $modCost]]
	 | [[Star|Body Modification][$activeSlave.stampTat to "a star",$cash -= $modCost]]
	 | [[Butterfly|Body Modification][$activeSlave.stampTat to "a butterfly",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.bellyTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.bellyTat to 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 to "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.vaginaTat to "flowers",$cash -= $modCost]]
	 | [[Scenes|Body Modification][$activeSlave.vaginaTat to "scenes",$cash -= $modCost,$degradation += 1]]
	 | [[Asian art|Body Modification][$activeSlave.vaginaTat to "Asian art",$cash -= $modCost,$degradation += 1]]
	 | [[Degradation|Body Modification][$activeSlave.vaginaTat to "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.vaginaTat to "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.vaginaTat to "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.vaginaTat to "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.vaginaTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.vaginaTat to 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 to "tribal patterns",$cash -= $modCost]]
	 | [[Flowers|Body Modification][$activeSlave.dickTat to "flowers",$cash -= $modCost]]
	 | [[Degradation|Body Modification][$activeSlave.dickTat to "degradation",$cash -= $modCost,$degradation += 1]]
	 | [[Counting|Body Modification][$activeSlave.dickTat to "counting",$cash -= $modCost,$degradation += 1]]
	 | [[Advertisements|Body Modification][$activeSlave.dickTat to "advertisements",$cash -= $modCost,$degradation += 1]]
	 | [[Rude words|Body Modification][$activeSlave.dickTat to "rude words",$cash -= $modCost,$degradation += 1]]
<</if>>
<<if $activeSlave.dickTat != 0>>
	//[[Remove tattoos|Body Modification][$activeSlave.dickTat to 0,$cash -= $modCost]]//
<</if>>
<</if>>

<<if $activeSlave.anusTat == 0>>
	$possessiveCap anus is brown and unbleached.
<<elseif $activeSlave.anusTat is "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 to "bleached",$cash -= $modCost]]
<<elseif $activeSlave.anusTat is "bleached">>

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

<<if  ($activeSlave.customTat is " ")>>
	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 to "",$cash -= $modCost]]//
<</if>>

repo_name: brankirk/fc


code:
:: Body Modification Degradation

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


code:
:: Body Modification Reaction

<<nobr>>

<<set $nextButton to "Continue">>
<<set $nextLink to "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 @@color:red;has hurt her health a little.@@
	<<set $brandApplied to 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 @@color: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 @@color:mediumorchid;hates@@ and @@color: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 @@color: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 @@color: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 @@color:hotpink;accepts@@ your changes.
	<<set $activeSlave.devotion += 4>>
<<elseif ($degradation > 1) && ($activeSlave.devotion < -20) && ($activeSlave.trust < 20)>>
	She is @@color: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 @@color:mediumorchid;angry@@ and @@color: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 @@color:hotpink;accepts@@ your work.
	<<set $activeSlave.devotion += 4>>
<<else>>
	She shows no real reaction to your modifications.
<</if>>

<<set $degradation to 0>>

<</nobr>>\


code:
:: Bodyguard Workaround

<<for $i to 0; $i < $slaves.length; $i++>>
	<<if ($slaves[$i].assignment is "guard you") && ($slaves[$i].ID != $Bodyguard.ID)>>
		<<set $slaves[$i].assignment to "rest">>
		<<set $slaves[$i].assignmentVisible to 1>>
		<<break>>
	<</if>>
	<</for>>

	<<for $i to 0; $i < $slaves.length; $i++>>
	<<if $Bodyguard.ID == $slaves[$i].ID>>
		<<set $slaves[$i].assignment to "guard you">>
		<<set $slaves[$i].assignmentVisible to 1>>
		<<set $slaves[$i].choosesOwnAssignment to 0>>
		<<set $slaves[$i].sentence to 0>>
		<<break>>
	<</if>>
	<</for>>

<<goto "Main">>


code:
:: Brothel

<<nobr>>
<<set $nextButton to "Back to Main", $nextLink to "Main", $returnTo to "Brothel">>

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

<<set $brothelSlaves to 0>>
<<set $notBrothelSlaves to 0>>
<<for _i to 0;_i < $slaves.length;_i++>>
	<<if $slaves[_i].assignment is "work in the brothel">>
		<<set $brothelSlaves++>>
	<<else>>
		<<set $notBrothelSlaves++>>
	<</if>>
<</for>>

$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 is -1>>
		The featured slave actresses are all nice and young.
	<<elseif $brothelAdsOld is -2>>
		The featured slave actresses are all teenagers.
	<<elseif $brothelAdsOld is -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 is -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 is -1>>
		they're all natural.
	<<else>>
		some are augmented by implants.
	<</if>>
	<<if $brothelAdsPreg == 1>>
		Most of slaves have firm, rounded bellies.
	<<elseif $brothelAdsPreg is -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 is -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 is -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 is -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 is -1) && ($brothelAdsStacked is -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 to 0, $brothelUpgradeDrugs to 0, $brothelDecoration to "standard"]]
<</if>>

It can support $brothel whores.
[[Expand the brothel|Brothel][$cash -=  Math.trunc($brothel*1000*$upgradeMultiplierArcology), $brothel += 5]] //Costs ¤<<print Math.trunc($brothel*1000*$upgradeMultiplierArcology)>> 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>>
	It is a standard brothel. [[Upgrade the brothel with aphrodisiac injection systems|Brothel][$cash -=  Math.trunc(10000*$upgradeMultiplierArcology), $brothelUpgradeDrugs to 1]] //Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>> 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 to passage(), $nextButton to "Back">><<goto "Brothel Advertisement">><</link>>

<<BrothelStatistics 1>>

<<if $Madam != 0>>
	<<set $Flag to 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 to 1>>
	<<include "Slave Summary">>
<</if>>

<<if $notBrothelSlaves > 0>>

''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//
<</nobr>>