code:
:: Body Modification [nobr]

<<set $nextButton = "Continue", $nextLink = "Slave Interact">>
<<ClearSummaryCache $activeSlave>>
<<SlavePronouns $activeSlave>>
<<Enunciate $activeSlave>>

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

Body Modification Studio

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

<<if $brandApplied || $degradation>>
	<<if canSee($activeSlave)>>There's a mirror on the ceiling, so $pronoun can see her<<else>>$pronounCap can't see, so you're careful to describe $possessive<</if>> new appearance.
	<<if $brandApplied>>
		The smell of burnt flesh hangs in the air. Being branded @@.red;has hurt $possessive health a little.@@
		<<set $activeSlave.health -= 10>>
		<<unset $brandApplied>>
	<</if>>
	<<if $degradation > 1>>
		<<if $degradation > 5>>
			<<if $activeSlave.devotion <= 50 && $activeSlave.trust < -50>>
				$pronounCap is appalled by the whorish spectacle you have made of $object. $pronounCap @@.gold;fears@@ you all the more for this but is so terrified of you it does not affect $possessive submission.
				<<set $activeSlave.trust -= 10>>
			<<elseif $activeSlave.devotion <= 50>>
				$pronounCap is appalled by the whorish spectacle you have made of $object. $pronounCap @@.mediumorchid;hates@@ and @@.gold;fears@@ you for this.
				<<set $activeSlave.devotion -= 10, $activeSlave.trust -= 10>>
			<<else>>
				$pronounCap is shocked by the whorish spectacle you have made of $object. However, $pronoun is so submissive to your will that $pronoun @@.hotpink;accepts@@ that the slave <<if canSee($activeSlave)>>in the mirror<<else>>$pronoun pictures<</if>> is who $pronoun is now.
				<<set $activeSlave.devotion += 4>>
			<</if>>

		<<else>>
			<<if $activeSlave.devotion < -20 && $activeSlave.trust < 20>>
				$pronounCap is @@.gold;afraid@@ that $pronoun has been permanently altered against $possessive will, but is also scared of your reaction to any objection and suppresses $possessive disgust.
				<<set $activeSlave.trust -= 5>>
			<<elseif $activeSlave.devotion < -20>>
				$pronounCap is @@.mediumorchid;angry@@ and @@.gold;afraid@@ that $pronoun has been permanently altered against $possessive will.
				<<set $activeSlave.devotion -= 5, $activeSlave.trust -= 5>>
			<<else>>
				$pronounCap is saddened to have been altered against $possessive will. However, $pronoun realizes that $pronoun is a slave, so $pronoun @@.hotpink;accepts@@ your work.
				<<set $activeSlave.devotion += 4>>
			<</if>>
		<</if>>
		<<set $degradation = 0>>
	<</if>>
	<<for $j = 0; $j < $slaves.length; $j++>><<if $activeSlave.ID == $slaves[$j].ID>><<set _slaveBeforeSession = $slaves[$j]>><<break>><</if>><</for>>
	<<if $activeSlave.tonguePiercing != _slaveBeforeSession.tonguePiercing>>
		<<if $activeSlave.fetishKnown>>
			<<if $activeSlave.fetishStrength > 10>>
			<<if $activeSlave.fetish == "cumslut">>
				Since $pronoun's an oral whore, $pronoun's
				<<if $activeSlave.tonguePiercing > _slaveBeforeSession.tonguePiercing>>
					<<if $activeSlave.tonguePiercing > 1>>@@.hotpink;very happy@@ you took the time to personally pierce $possessive tongue so heavily<<else>>@@.hotpink;happy@@ to get a tongue piercing from you personally<</if>>. After all, $pronoun's pretty sure it's a sign there will be plenty of <<if $PC.dick>>dick for $object to suck<<else>>pussy for $object to eat<</if>> in the future.
					<<set $activeSlave.devotion += ($activeSlave.tonguePiercing-_slaveBeforeSession.tonguePiercing)*2>>
				<<elseif $activeSlave.devotion <= 95>>
					@@.mediumorchid;saddened@@ you decided to take out $possessive tongue piercings yourself. $pronounCap's afraid this means something about $possessive future as a suck slut.
					<<set $activeSlave.devotion += ($activeSlave.tonguePiercing-_slaveBeforeSession.tonguePiercing)*2>>
				<</if>>
			<</if>>
			<</if>>
			<<if $activeSlave.sexualFlaw == "hates oral">>
				$pronounCap has trouble thinking of her mouth as a warm, wet, playful hole, so her new piercings will be theraputic. Having something to suck on at all times should force her past her hangups.
			<</if>>
		<</if>>
	<</if>>
	<<if $activeSlave.nipplesPiercing+$activeSlave.areolaePiercing != _slaveBeforeSession.nipplesPiercing+_slaveBeforeSession.areolaePiercing>>
		<<if $activeSlave.fetishKnown>>
		<<if $activeSlave.fetishStrength > 10>>
		<<if $activeSlave.fetish == "boobs">>
			Since $pronoun's fixated on $possessive boobs, $pronoun's
			<<if $activeSlave.nipplesPiercing+$activeSlave.areolaePiercing > _slaveBeforeSession.nipplesPiercing+_slaveBeforeSession.areolaePiercing>>
				<<if $activeSlave.nipplesPiercing+$activeSlave.areolaePiercing > 2>>@@.hotpink;very happy@@ you took the time to personally pierce them so heavily<<else>>@@.hotpink;happy@@ to get nipple piercings from you personally<</if>>. As far as $pronoun's concerned, more attention on $possessive tits is always good.
				<<set $activeSlave.devotion += ($activeSlave.nipplesPiercing+$activeSlave.areolaePiercing-_slaveBeforeSession.nipplesPiercing-_slaveBeforeSession.areolaePiercing)*2>>
			<<elseif $activeSlave.devotion <= 95>>
				@@.mediumorchid;saddened@@ you decided to take out $possessive nipple piercings yourself. $pronounCap doesn't like anything that makes $possessive tits less distinctive.
				<<set $activeSlave.devotion += ($activeSlave.tonguePiercing-_slaveBeforeSession.tonguePiercing)*2>>
			<</if>>
		<</if>>
		<</if>>
		<</if>>
	<</if>>
	<<if $activeSlave.corsetPiercing != _slaveBeforeSession.corsetPiercing>>
		<<if $activeSlave.fetishKnown>>
		<<if $activeSlave.fetishStrength > 10>>
		<<if $activeSlave.fetish == "masochist">>
			Since $pronoun's a pain whore,
			<<if $activeSlave.corsetPiercing > _slaveBeforeSession.corsetPiercing>>
				$pronoun @@.hotpink;got off on@@ you giving $possessive a corset piercing personally. $pronounCap loved the feeling of the metal entering $possessive flesh.
				<<set $activeSlave.devotion += ($activeSlave.corsetPiercing-_slaveBeforeSession.corsetPiercing)*2>>
			<<elseif $activeSlave.devotion <= 95>>
				 $pronoun's @@.mediumorchid;saddened@@ you decided to take out $possessive corset piercings yourself. $pronounCap'll miss the constant slight discomfort they gave $object.
				<<set $activeSlave.devotion += ($activeSlave.corsetPiercing-_slaveBeforeSession.corsetPiercing)*2>>
			<</if>>
		<</if>>
		<</if>>
		<</if>>
	<</if>>
	<<if $activeSlave.vaginaPiercing != _slaveBeforeSession.vaginaPiercing>>
		<<if $activeSlave.fetishKnown>>
			<<if $activeSlave.fetishStrength > 10>>
			<<if $activeSlave.fetish == "pregnancy">>
				Since $pronoun's a whore for impregnation, $pronoun's
				<<if $activeSlave.vaginaPiercing > _slaveBeforeSession.vaginaPiercing>>
					<<if $activeSlave.vaginaPiercing > 1>>@@.hotpink;very happy@@ you took the time to personally pierce $possessive pussylips so heavily<<else>>@@.hotpink;happy@@ to get pussy piercings from you personally<</if>>. Like most pregnancy fetishists, $pronoun's a little desperate for dick, and anything that points towards more bareback sex is appealing to $object.
					<<set $activeSlave.devotion += ($activeSlave.vaginaPiercing-_slaveBeforeSession.vaginaPiercing)*2>>
				<<elseif $activeSlave.devotion <= 95>>
					@@.mediumorchid;saddened@@ you decided to take out $possessive pussy piercings yourself. Like most pregnancy fetishists, $pronoun's a little desperate for dick, and $pronoun's afraid of anything that points towards less attention focused on $possessive cunt.
					<<set $activeSlave.devotion += ($activeSlave.vaginaPiercing-_slaveBeforeSession.vaginaPiercing)*2>>
				<</if>>
			<</if>>
			<</if>>
			<<if $activeSlave.sexualFlaw == "hates penetration">>
				$pronounCap has trouble thinking of her vagina as a fuckhole rather than something special to protect and cherish, so her new piercings will be theraputic. The constant, inescapable stimulation of her labia should force her past her hangups.
			<</if>>
		<</if>>
	<</if>>
	<<if $activeSlave.dickPiercing != _slaveBeforeSession.dickPiercing>>
		<<if $activeSlave.fetishKnown>>
		<<if $activeSlave.fetishStrength > 10>>
		<<if $activeSlave.fetish == "pregnancy">>
			Since $pronoun's fixated on using $possessive cock to impregnate other slaves, $pronoun's
			<<if $activeSlave.dickPiercing > _slaveBeforeSession.dickPiercing>>
				<<if $activeSlave.dickPiercing > 1>>@@.hotpink;very happy@@ you took the time to personally stick so much metal into $possessive dick<<if $activeSlave.scrotum>> and ballsack<</if>><<else>>@@.hotpink;happy@@ to get penis piercings from you personally<</if>>. $pronounCap's extremely proud of $possessive newly decorated member.
				<<set $activeSlave.devotion += ($activeSlave.dickPiercing-_slaveBeforeSession.dickPiercing)*2>>
			<<elseif $activeSlave.devotion <= 95>>
				@@.mediumorchid;saddened@@ you decided to take out $possessive dick<<if $activeSlave.scrotum>> and ballsack<</if>> piercings yourself. $pronounCap passionately loves using $possessive penis, and $pronoun's concerned you're planning to let $object do less of that.
				<<set $activeSlave.devotion += ($activeSlave.dickPiercing-_slaveBeforeSession.dickPiercing)*2>>
			<</if>>
		<</if>>
		<</if>>
		<</if>>
	<</if>>
	<<if $activeSlave.anusPiercing != _slaveBeforeSession.anusPiercing>>
		<<if $activeSlave.fetishKnown>>
			<<if $activeSlave.fetishStrength > 10>>
			<<if $activeSlave.fetish == "cumslut">>
				Since $pronoun's an anal slut, $pronoun's
				<<if $activeSlave.anusPiercing > _slaveBeforeSession.anusPiercing>>
					<<if $activeSlave.anusPiercing > 1>>@@.hotpink;very happy@@ you took the time to personally pierce the entire area around $possessive whorish asspussy<<else>>@@.hotpink;happy@@ to get a piercing next to $possessive favorite hole from you personally<</if>>. $pronounCap can't wait to find out how the metal will feel against $possessive butthole when $prounoun moves around.
					<<set $activeSlave.devotion += ($activeSlave.anusPiercing-_slaveBeforeSession.anusPiercing)*2>>
				<<elseif $activeSlave.devotion <= 95>>
					@@.mediumorchid;saddened@@ you decided to take out $possessive backdoor piercings yourself. $pronounCap will miss the constant anal titillation, and $pronoun's worried this means you're becoming less interested in her butthole.
					<<set $activeSlave.devotion += ($activeSlave.anusPiercing-_slaveBeforeSession.anusPiercing)*2>>
				<</if>>
			<</if>>
			<</if>>
			<<if $activeSlave.sexualFlaw == "hates anal">>
				$pronounCap has trouble thinking of her asshole as a sexy, fuckable hole, so her new piercings will be theraputic. The constant tickling back there should force her past her hangups.
			<</if>>
		<</if>>
	<</if>>
	<<if $activeSlave.genes == "XY">>
	<<if $activeSlave.attrXY <= 35>>
	<<if $activeSlave.earPiercing+$activeSlave.nosePiercing+$activeSlave.eyebrowPiercing+$activeSlave.lipsPiercing+$activeSlave.navelPiercing > _slaveBeforeSession.earPiercing+_slaveBeforeSession.nosePiercing+_slaveBeforeSession.eyebrowPiercing+_slaveBeforeSession.lipsPiercing+_slaveBeforeSession.navelPiercing>>
		$possessiveCap girly new
		<<if $activeSlave.nosePiercing == 1 && _slaveBeforeSession.nosePiercing == 0>>
			pierced ears should help $object a little with $possessive issues about $possessive self-image as a fuckable slave girl.
		<<elseif $activeSlave.nosePiercing == 1 && _slaveBeforeSession.nosePiercing == 0>>
			nose piercing should make $possessive reflection in the mirror seem just a bit more fuckably feminine to $object.
		<<elseif $activeSlave.eyebrowPiercing == 1 && _slaveBeforeSession.eyebrowPiercing == 0>>
			facial piercing should help destroy $possessive vestiges of sexual identity outside of her life as a hole for cocks.
		<<elseif $activeSlave.lipsPiercing == 1 && _slaveBeforeSession.lipsPiercing == 0>>
			facial piercing, just below $possessive pretty mouth, should help $object get used to the idea of it being a warm, wet hole for cocks.
		<<elseif $activeSlave.navelPiercing == 1 && _slaveBeforeSession.navelPiercing == 0>>
			navel piercing should help $possessive see $possessive naked body in a submissively sexual way, especially as $object turns to hide it and present $possessive asspussy.
		<<else>>
			new set of slutty facial piercings should help $object get used to the idea of being a girly slave meant to please dicks.
		<</if>>
		<<if $activeSlave.devotion < -20>>Unfortunately, that positive effect will have to wait until $prounoun's a little less resistant to the idea of being a sex slave.<</if>>
	<</if>>
	<</if>>
	<</if>>
	<<if $activeSlave.anusTat != _slaveBeforeSession.anusPiercing>>
	<<if canSee($activeSlave)>>
	<<if canTalk($activeSlave)>>
		<<if $activeSlave.anus > 3>>
			<<set _anus = "anal gape">>
		<<elseif $activeSlave.anus == 3>>
			<<set _anus = "relaxed asspussy">>
		<<elseif $activeSlave.anus == 2>>
			<<set _anus = "soft butthole">>
		<<else>>
			<<set _anus = "tight butthole">>
		<</if>>
		<<if $activeSlave.anusTat == "bleached">>
			She knew she was getting her ass bleached, of course. The stinging sensation was hard to miss. Even so, she cranes her neck around as soon as possible to look at her _anus in the mirror.
		<<else>>
			$pronounCap knew she was getting her asshole tattooed, of course. She cranes her neck around as soon as possible to look at her _anus in the mirror.
			<<if $activeSlave.butt > 5>>Her huge buttocks are still held apart by the spreaders used to give the tattooing actuators access to her most inimate area, giving her a good view.<</if>>
		<</if>>
		<<if $activeSlave.fetishKnown && $activeSlave.fetish == "buttslut">>
			<<switch $activeSlave.anusTat>>
			<<case "bleached">>
				She giggles at her crinkled fuckhole's clean, fuckable appearance, and starts squeezing her sphincter muscles experimentally. "Thank you, <<Master>>," she gasps, flushing.
			<<case "flowers" "tribal patterns">>
				She gasps at the beautiful design and then suddenly bursts into tears. "T-thank you, <<Master>>," she blubbers. "I'm <<s>>-<<s>>uch an anal whore."
			<<case "advertisements">>
				She stares, her mouth working as she spells out
				<<if ($activeSlave.vagina > -1)>>
					'Second Pussy.' She smiles naughtily. "<<Master>>, it'<<s>> my //favorite// pu<<ss>>y,"
				<<else>>
					'Spit First.' She smiles naughtily. "<<Master>>, that work<<s>> for me. Lube'<<s>> good too. Or, um, dry'<<s>> fine too,"
				<</if>>
				she giggles.
			<<case "rude words">>
				She stares, her mouth working as she spells out
				<<if ($activeSlave.vagina > -1)>>
					'Fucktoy's Favorite Fuckhole.' She smiles naughtily. "<<Master>>, it sure i<<s>>,"
				<<else>>
					'Sissy Slut's Sodomy Slit.' She smiles naughtily. "<<Master>>, I love it when you fuck my lewd butt <<s>>lit,"
				<</if>>
				she giggles.
			<<case "sacrilege">>
				She stares, her mouth working as she reads the ring of Aramaic blasphemy around her hole. Getting it, she smiles naughtily. "<<Master>>, I'm a horrible little butthole <<s>>uccubu<<s>>. Plea<<s>>e, <<Master>>, feed me. I need cum in my a<<ss>> to <<s>>urvive."
			<<case "sacrament">>
				She stares, her mouth working as she reads the ring of Aramaic around her hole. Getting it, she smiles beatifically. "<<Master>>, I alway<<s>> new butt<<s>>ex was a <<s>>acrament."
			<<case "degradation">>
				She stares, her mouth working as she spells out '<<if $PC.title == 1>>Master<<else>>Mistress<</if>> Made Me An Anal Slut.' She smiles naughtily. "Oh <<Master>>, you did," she <<say>>s gratefully. "And I love you for it."
			<<case "counting">>
				She stares, realizing that the markings denote how many times she's been sodomized. "<<Master>>, thank you, and, and, I hope I'll have to come back in here a lot," she <<say>>s. "Um, becau<<s>>e I have to have that updated. Because I'm being fucked in the butt a lot," she adds, wanting to be completely clear.
			<<case "bovine patterns">>
				She stares at her new cow's anus. Finally, she focuses on the upsides of being permanently transformed like this. "<<Master>>, I hope thi<<s>> mean<<s>> I'll have to be fed up the butt a lot," she <<say>>s, referencing the milking systems' anal feeders.
			<<case "possessive">>
				She stares, realizing that the ring of numbers around $possessive anus give the date she was enslaved by you. "Be<<s>t place for that date, <<Master>>," she <<say>>s. "Being a butt <<s>>lut i<<s>> my life now."
			<<case "paternalist">>
				She stares, her mouth working as she spells out '<<if $PC.title == 1>>Master<<else>>Mistress<</if>> Helped Me Love Anal.' "Oh <<Master>>, you did," she coos. "You did! Thank you <<s>>o much for helping me become the anal <<s>>lut I wa<<s>> alway<<s>> meant to be!"
			<</switch>>
		<<elseif $activeSlave.devotion > 50>>
			<<switch $activeSlave.anusTat>>
			<<case "bleached">>
				She gasps at how closely the crinkled skin around her anal opening matches the rest of her $activeSlave.skin body. "Oh, it'<<s>> <<s>>o beautiful! Thank you, <<Master>>, thank you," she exclaims lovingly.
			<<case "flowers" "tribal patterns">>
				She gasps at the beautiful design. "It'<<s>> <<s>>o pretty, <<Master>>," she <<say>>s. "Thank you. I love you <<s>>o much!"
			<<case "advertisements" "rude words" "sacrilege" "sacrament" "degradation" "possessive" "paternalist">>
				She stares, her mouth working as she spells out the words tattooed in a ring around her asshole. "Thank you, <<Master>>," she <<say>>s devotedly. "I love you and I'll <<s>>erve you with my butthole a<<s>> be<<s>>t I can."
			<<default>>
				She smiles, pleased at the mark of your attention to her body. "Thank you, <<Master>>," she <<say>>s devotedly. "I love you and I'll <<s>>erve you with my butthole a<<s>> be<<s>>t I can."
			<</switch>>
		<<elseif $activeSlave.sexualFlaw == "hates anal">>
			She stares,
			<<switch $activeSlave.anusTat>>
			<<case "bleached">>
				horrified, and then shudders convulsively, but can't look away.
			<<case "flowers" "tribal patterns">>
				torn between fascination at the intricate design and horror at having her anus permanently tattooed.
			<<case "advertisements" "rude words" "sacrilege" "sacrament" "degradation" "possessive" "paternalist">>
				her mouth working as she spells out the words tattooed in a ring around her asshole. She starts to cry as their meaning sinks in.
			<<default>>
				lower lip quivering.
			<</switch>>
			She hates being assraped, and knows that this means there's lots of it in store for her. "<<Master>>, p-plea<<s>>e," she moans halfheartedly. "I d-don't like being b-butt f-fucked."
		<<elseif $activeSlave.devotion > 20>>
			She stares,
			<<switch $activeSlave.anusTat>>
			<<case "bleached">>
				fascinated. She doesn't seem sure what to make of this.
			<<case "flowers" "tribal patterns">>
				torn between admiration of the pretty design and realization that her anus has been permanently tattooed.
			<<case "advertisements" "rude words" "sacrilege" "sacrament" "degradation" "possessive" "paternalist">>
				her mouth working as she spells out the words tattooed in a ring around her asshole. She shudders a little as they sink in and she internalizes what they say about her and her asshole.
			<<default>>
				realizing that her anus has been permanently tattooed. It's yet another proof that she's permanently a sex slave, and her anus is for fucking.
			<</switch>>
			"Thank you, <<Master>>," she <<say>>s, taking refuge in propriety. "Um, d-doe<<s>> thi<<s>> mean I'm going to be more of a, um, b-butt<<s>>lut?" she asks hesitantly, not sounding very enthusiastic.
		<<elseif $activeSlave.trust < -20>>
			She stares,
			<<switch $activeSlave.anusTat>>
			<<case "bleached">>
				trying to process the appearance of what must seem like an unnaturally clean-looking hole.
			<<case "flowers" "tribal patterns">>
				struggling to process the fact that one of her most intimate areas has been tattooed. Beautifully tattooed, but still.
			<<case "advertisements" "rude words" "sacrilege" "sacrament" "degradation" "possessive" "paternalist">>
				her mouth working as she spells out the words tattooed in a ring around her asshole. She shudders as she does her best to conceal her feelings about such a permanent display of her status as an anal slave.
			<<default>>
				looking sad as the meaning of a permanent display of her status as an anal slave sinks in.
			<</switch>>
			After a short pause she remembers her duties and stammers, "T-thank you, <<Master>>." After a while longer she turns her head away, clearly not wanting to dwell on how her anus is obviously being beautified to attract sexual attention.
		<<else>>
			<<switch $activeSlave.anusTat>>
			<<case "bleached">>
				Her face darkens as she sees her crinkled fuckhole's clean, fuckable appearance. "Don't you dare fucking a<<ss>>rape me," she bursts out.
			<<case "flowers" "tribal patterns">>
				She's momentarily surprised by the pretty design, but then her face darkens. "That'<<s>> permanent!" she bursts out. "My a<<ss>>hole i<<s>> going to look like that forever!"
			<<case "advertisements">>
				She stares, her mouth working as she spells out
				<<if ($activeSlave.vagina > -1)>>
					'Second Pussy.' Her face darkens. "No it'<<s>> not," she bursts out. "Anal is dirty."
				<<else>>
					'Spit First.' Her face darkens. "Gro<<ss>>," she bursts out. "Gro<<ss>> and wrong!"
				<</if>>
			<<case "rude words">>
				She stares, her mouth working as she spells out
				<<if ($activeSlave.vagina > -1)>>
					'Fucktoy's Favorite Fuckhole.' Her face darkens. "No it'<<s>> not," she bursts out. "It'<<s>> my a<<ss>>!"
				<<else>>
					'Sissy Slut's Sodomy Slit.' Her face darkens. "No it'<<s>> not," she bursts out. "I'm not a <<s>>i<<ss>>y! Or a <<s>>lut! And it'<<s>> not a slit!" Those are debatable, but they can all change, of course.
				<</if>>
			<<case "sacrilege" "sacrament">>
				She stares, her mouth working as she reads the ring of Aramaic  around her hole. She doesn't understand it, but she's not happy about having stuff permanently inscribed around her ass.
			<<case "degradation">>
				She stares, her mouth working as she spells out '<<if $PC.title == 1>>Master<<else>>Mistress<</if>> Made Me An Anal Slut.' Her face darkens. "No I'm not," she bursts out. That remains to be seen.
			<<case "counting">>
				She stares, realizing that the markings denote how many times she's been sodomized. Her face darkens. "I <<s>>ee there'<<s>> room for more," she bursts out. "Fucking gro<<ss>>."
			<<case "bovine patterns">>
				She stares at her new cow's anus. "Fucking gro<<ss>>," she bursts out. "I'm not an animal." That remains to be seen.
			<<case "possessive">>
				She stares, realizing that the ring of numbers around $possessive anus give the date she was enslaved by you. Her face darkens. "Wor<<s>>t day of my life," she bursts out.
			<<case "paternalist">>
				She stares, her mouth working as she spells out '<<if $PC.title == 1>>Master<<else>>Mistress<</if>> Helped Me Love Anal.' "I don't," she bursts out. "It'<<s>> fucking gro<<ss>>."
			<</switch>>
		<</if>>
	<</if>>
	<</if>>
	<</if>>
<</if>>

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

<<SlaveArt $activeSlave 3 0>>

<<else>>

<<SlaveArt $activeSlave 3 0>>

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

/* PIERCINGS */

<<set _piercingCount =($activeSlave.earPiercing + $activeSlave.nosePiercing + $activeSlave.eyebrowPiercing + $activeSlave.lipsPiercing + $activeSlave.tonguePiercing + $activeSlave.nipplesPiercing + $activeSlave.areolaePiercing + $activeSlave.corsetPiercing + $activeSlave.navelPiercing + $activeSlave.clitPiercing + $activeSlave.vaginaPiercing + $activeSlave.dickPiercing + $activeSlave.anusPiercing)>>

/*DESCRIPTIONS */

Piercings:

<<if _piercingCount == 0>>
	Her smooth $activeSlave.skin skin is completely unpierced.
<</if>>

<<if $activeSlave.earPiercing > 0 >>
    <<earPiercingDescription>><</if>>
<<if $activeSlave.nosePiercing > 0 >>
    <<nosePiercingDescription>><</if>>
<<if $activeSlave.eyebrowPiercing > 0 >>
    <<eyebrowPiercingDescription>><</if>>
<<if $activeSlave.lipsPiercing > 0 >>
    <<lipsPiercingDescription>><</if>>
<<if $activeSlave.tonguePiercing > 0 >>
    <<tonguePiercingDescription>><</if>>
<<if $activeSlave.nipplesPiercing > 0 >>
    <<nipplesPiercingDescription>><</if>>
<<if $activeSlave.areolaePiercing > 0 >>
    <<areolaePiercingDescription>><</if>>
<<if $activeSlave.navelPiercing > 0 >>
    <<navelPiercingDescription>><</if>>
<<if $activeSlave.corsetPiercing > 0 >>
    <<CorsetPiercingDescription>><</if>>
<<if $activeSlave.clitPiercing > 0 >>
    <<clitPiercingDescription>><</if>>
<<if $activeSlave.vaginaPiercing > 0 >>
    <<vaginaPiercingDescription>><</if>>
<<if $activeSlave.dickPiercing > 0 >>
    <<dickPiercingDescription>><</if>>
<<if $activeSlave.anusPiercing > 0 >>
    <<anusPiercingDescription>><</if>>

<<chastityPiercingDescription>>

/*<<earPiercingDescription>>
<<nosePiercingDescription>>
<<eyebrowPiercingDescription>>
<<lipsPiercingDescription>>
<<tonguePiercingDescription>>
<<nipplesPiercingDescription>>
<<areolaePiercingDescription>>
<<navelPiercingDescription>>
<<CorsetPiercingDescription>>
<<clitPiercingDescription>>
<<vaginaPiercingDescription>>
<<dickPiercingDescription>>
<<anusPiercingDescription>>
<<chastityPiercingDescription>>*/

/* Apply piercings */

Choose piercing style:
<<if $piercingLevel != 1>>[[Light|Body Modification][$piercingLevel = 1]]<<else>>Light<</if>>
<<if $piercingLevel != 2>>| [[Heavy|Body Modification][$piercingLevel = 2]]<<else>>| Heavy<</if>>
<<if $piercingLevel != 3>>| [[Smart|Body Modification][$piercingLevel = 3]]<<else>>| Smart<</if>>
<<if $piercingLevel != 0>>| [[Remove|Body Modification][$piercingLevel = 0]]<<else>>| Remove<</if>>

<<if $piercingLevel == 1>>

//Lightly// pierce $possessive:

<<link "Entire body">>
	<<if $activeSlave.earPiercing != 1>><<set $activeSlave.earPiercing = 1>>			<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.nosePiercing != 1>><<set $activeSlave.nosePiercing = 1>>			<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.eyebrowPiercing != 1>><<set $activeSlave.eyebrowPiercing = 1>>	<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.lipsPiercing != 1>><<set $activeSlave.lipsPiercing = 1>>			<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.tonguePiercing != 1>><<set $activeSlave.tonguePiercing = 1>>		<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.nipplesPiercing != 1>><<set $activeSlave.nipplesPiercing = 1>>	<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.areolaePiercing != 1>><<set $activeSlave.areolaePiercing = 1>>	<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.corsetPiercing != 1>><<set $activeSlave.corsetPiercing = 1>>		<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.navelPiercing != 1>><<set $activeSlave.navelPiercing = 1>>		<<set $cash -= $modCost>><</if>>
	<<if ($activeSlave.vagina != -1)  || ($activeSlave.dick != 0)>>
		<<if $activeSlave.clitPiercing != 1>><<set $activeSlave.clitPiercing = 1>>		<<set $cash -= $modCost>><</if>>
	<</if>>
	<<if ($activeSlave.vagina != -1)>>
		<<if $activeSlave.vaginaPiercing != 1>><<set $activeSlave.vaginaPiercing = 1>>	<<set $cash -= $modCost>><</if>>
	<</if>>
	<<if ($activeSlave.dick > 0)>>
		<<if $activeSlave.dickPiercing != 1>><<set $activeSlave.dickPiercing = 1>>		<<set $cash -= $modCost>><</if>>
	<</if>>
	<<if $activeSlave.anusPiercing != 1>><<set $activeSlave.anusPiercing = 1>>			<<set $cash -= $modCost>><</if>>
	<<goto "Body Modification">>
<</link>>

<<if $activeSlave.earPiercing != 1>> 		| [[Ear|Body Modification][$activeSlave.earPiercing = 1,			$cash -= $modCost]]<</if>>
<<if $activeSlave.nosePiercing != 1>> 		| [[Nose|Body Modification][$activeSlave.nosePiercing = 1,			$cash -= $modCost]]<</if>>
<<if $activeSlave.eyebrowPiercing != 1>> 	| [[Eyebrow|Body Modification][$activeSlave.eyebrowPiercing = 1,	$cash -= $modCost]]<</if>>
<<if $activeSlave.lipsPiercing != 1>> 		| [[Lips|Body Modification][$activeSlave.lipsPiercing = 1,			$cash -= $modCost]]<</if>>
<<if $activeSlave.tonguePiercing != 1>> 	| [[Tongue|Body Modification][$activeSlave.tonguePiercing = 1,		$cash -= $modCost]]<</if>>
<<if $activeSlave.nipplesPiercing != 1>> 	| [[Nipples|Body Modification][$activeSlave.nipplesPiercing = 1,	$cash -= $modCost]]<</if>>
<<if $activeSlave.areolaePiercing != 1>> 	| [[Areolae|Body Modification][$activeSlave.areolaePiercing = 1,	$cash -= $modCost]]<</if>>
<<if $activeSlave.corsetPiercing != 1>> 	| [[Corset|Body Modification][$activeSlave.corsetPiercing = 1,		$cash -= $modCost]]<</if>>
<<if $activeSlave.navelPiercing != 1>> 		| [[Navel|Body Modification][$activeSlave.navelPiercing = 1,		$cash -= $modCost]]<</if>>
<<if ($activeSlave.vagina != -1) || ($activeSlave.dick != 0)>>
	<<if $activeSlave.vagina != -1>>
		<<if $activeSlave.clitPiercing != 1>> 	| [[Clit|Body Modification][$activeSlave.clitPiercing = 1,		$cash -= $modCost]]<</if>>
	<<else>>
		<<if $activeSlave.clitPiercing != 1>> 	| [[Dickhead|Body Modification][$activeSlave.clitPiercing = 1,	$cash -= $modCost]]<</if>>
	<</if>>
<</if>>
<<if ($activeSlave.vagina != -1)>>
	<<if $activeSlave.vaginaPiercing != 1>> | [[Vagina|Body Modification][$activeSlave.vaginaPiercing = 1,		$cash -= $modCost]]<</if>>
<</if>>
<<if ($activeSlave.dick > 0)>>
	<<if $activeSlave.dickPiercing != 1>> 	| [[Dick|Body Modification][$activeSlave.dickPiercing = 1,			$cash -= $modCost]]<</if>>
<</if>>
<<if $activeSlave.anusPiercing != 1>> 		| [[Anus|Body Modification][$activeSlave.anusPiercing = 1,			$cash -= $modCost]]<</if>>
<</if>>

<<if $piercingLevel == 2>>

''Heavily'' pierce $possessive:

<<link "Entire body">>
	<<if $activeSlave.earPiercing != 2>><<set $activeSlave.earPiercing = 2>>			<<set $cash -= $modCost, $degradation += 1>><</if>>
	<<if $activeSlave.nosePiercing != 2>><<set $activeSlave.nosePiercing = 2>>			<<set $cash -= $modCost, $degradation += 1>><</if>>
	<<if $activeSlave.eyebrowPiercing != 2>><<set $activeSlave.eyebrowPiercing = 2>>	<<set $cash -= $modCost, $degradation += 1>><</if>>
	<<if $activeSlave.lipsPiercing != 2>><<set $activeSlave.lipsPiercing = 2>>			<<set $cash -= $modCost, $degradation += 1>><</if>>
	<<if $activeSlave.tonguePiercing != 2>><<set $activeSlave.tonguePiercing = 2>>		<<set $cash -= $modCost, $degradation += 1>><</if>>
	<<if $activeSlave.nipplesPiercing != 2>><<set $activeSlave.nipplesPiercing = 2>>	<<set $cash -= $modCost, $degradation += 1>><</if>>
	<<if $activeSlave.areolaePiercing != 2>><<set $activeSlave.areolaePiercing = 2>>	<<set $cash -= $modCost, $degradation += 1>><</if>>
	<<if $activeSlave.corsetPiercing != 2>><<set $activeSlave.corsetPiercing = 2>>		<<set $cash -= $modCost, $degradation += 1>><</if>>
	<<if $activeSlave.navelPiercing != 2>><<set $activeSlave.navelPiercing = 2>>		<<set $cash -= $modCost, $degradation += 1>><</if>>
	<<if ($activeSlave.vagina != -1) || ($activeSlave.dick != 0)>>
		<<if $activeSlave.clitPiercing != 2>><<set $activeSlave.clitPiercing = 2>>		<<set $cash -= $modCost, $degradation += 1>><</if>>
	<</if>>
	<<if ($activeSlave.vagina != -1)>>
		<<if $activeSlave.vaginaPiercing != 2>><<set $activeSlave.vaginaPiercing = 2>>	<<set $cash -= $modCost, $degradation += 1>><</if>>
	<</if>>
	<<if ($activeSlave.dick > 0)>>
		<<if $activeSlave.dickPiercing != 2>><<set $activeSlave.dickPiercing = 2>>		<<set $cash -= $modCost, $degradation += 1>><</if>>
	<</if>>
	<<if $activeSlave.anusPiercing != 2>><<set $activeSlave.anusPiercing = 2>>			<<set $cash -= $modCost, $degradation += 1>><</if>>
	<<goto "Body Modification">>
<</link>>

<<if $activeSlave.earPiercing != 2>> 		| [[Ear|Body Modification][$activeSlave.earPiercing = 2,			$cash -= $modCost,$degradation += 1]]<</if>>
<<if $activeSlave.nosePiercing != 2>> 		| [[Nose|Body Modification][$activeSlave.nosePiercing = 2,			$cash -= $modCost,$degradation += 1]]<</if>>
<<if $activeSlave.eyebrowPiercing != 2>> 	| [[Eyebrow|Body Modification][$activeSlave.eyebrowPiercing = 2,	$cash -= $modCost,$degradation += 1]]<</if>>
<<if $activeSlave.lipsPiercing != 2>> 		| [[Lips|Body Modification][$activeSlave.lipsPiercing = 2,			$cash -= $modCost,$degradation += 1]]<</if>>
<<if $activeSlave.tonguePiercing != 2>> 	| [[Tongue|Body Modification][$activeSlave.tonguePiercing = 2,		$cash -= $modCost,$degradation += 1]]<</if>>
<<if $activeSlave.nipplesPiercing != 2>> 	| [[Nipples|Body Modification][$activeSlave.nipplesPiercing = 2,	$cash -= $modCost,$degradation += 1]]<</if>>
<<if $activeSlave.areolaePiercing != 2>> 	| [[Areolae|Body Modification][$activeSlave.areolaePiercing = 2,	$cash -= $modCost,$degradation += 1]]<</if>>
<<if $activeSlave.corsetPiercing != 2>> 	| [[Corset|Body Modification][$activeSlave.corsetPiercing = 2,		$cash -= $modCost,$degradation += 1]]<</if>>
<<if $activeSlave.navelPiercing != 2>> 		| [[Navel|Body Modification][$activeSlave.navelPiercing = 2,		$cash -= $modCost,$degradation += 1]]<</if>>
<<if ($activeSlave.vagina != -1) || ($activeSlave.dick != 0)>>
	<<if $activeSlave.vagina != -1>>
		<<if $activeSlave.clitPiercing != 2>> | [[Clit|Body Modification][$activeSlave.clitPiercing = 2,		$cash -= $modCost,$degradation += 1]]<</if>>
	<<else>>
		<<if $activeSlave.clitPiercing != 2>> | [[Dickhead|Body Modification][$activeSlave.clitPiercing = 2,	$cash -= $modCost,$degradation += 1]]<</if>>
	<</if>>
<</if>>
<<if ($activeSlave.vagina != -1)>>
	<<if $activeSlave.vaginaPiercing != 2>> | [[Vagina|Body Modification][$activeSlave.vaginaPiercing = 2,		$cash -= $modCost,$degradation += 1]]<</if>>
<</if>>
<<if ($activeSlave.dick > 0)>>
	<<if $activeSlave.dickPiercing != 2>> 	| [[Dick|Body Modification][$activeSlave.dickPiercing = 2,			$cash -= $modCost,$degradation += 1]]<</if>>
<</if>>
<<if $activeSlave.anusPiercing != 2>> 		| [[Anus|Body Modification][$activeSlave.anusPiercing = 2,			$cash -= $modCost,$degradation += 1]]<</if>>
<</if>>

<<if $piercingLevel == 3>>
<<if ($activeSlave.vagina != -1) || ($activeSlave.dick != 0)>>
	<<if $activeSlave.clitPiercing != 3>>

		Give $object a [[smart piercing?|Body Modification][$activeSlave.clitPiercing = 3,$activeSlave.clitSetting = "all",$cash -=$SPcost,$degradation += 1]] //Costs ¤$SPcost, unlocks options to mold sexuality//
	<<else>>

		$pronounCap already has a smart piercing!
	<</if>>
<</if>>
<</if>>

<<if $piercingLevel == 0>>

Remove piercings from:

/* no dick/vagina checks in 'remove' so stealth piercings can be cleaned. Check only for piercings.  */
<<link "Everywhere">>
	<<if $activeSlave.earPiercing > 0>><<set $activeSlave.earPiercing = 0>>			<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.nosePiercing > 0>><<set $activeSlave.nosePiercing = 0>>		<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.eyebrowPiercing > 0>><<set $activeSlave.eyebrowPiercing = 0>>	<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.lipsPiercing > 0>><<set $activeSlave.lipsPiercing = 0>>		<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.tonguePiercing > 0>><<set $activeSlave.tonguePiercing = 0>>	<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.nipplesPiercing > 0>><<set $activeSlave.nipplesPiercing = 0>>	<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.areolaePiercing > 0>><<set $activeSlave.areolaePiercing = 0>>	<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.corsetPiercing > 0>><<set $activeSlave.corsetPiercing = 0>>	<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.navelPiercing > 0>><<set $activeSlave.navelPiercing = 0>>		<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.clitPiercing > 0>><<set $activeSlave.clitPiercing = 0>>		<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.vaginaPiercing > 0>><<set $activeSlave.vaginaPiercing = 0>>	<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.dickPiercing > 0>><<set $activeSlave.dickPiercing = 0>>		<<set $cash -= $modCost>><</if>>
	<<if $activeSlave.anusPiercing > 0>><<set $activeSlave.anusPiercing = 0>>		<<set $cash -= $modCost>><</if>>
	<<goto "Body Modification">>

<</link>>

<<if $activeSlave.earPiercing > 0>> 		| [[Ear|Body Modification][$activeSlave.earPiercing = 0,			$cash -= $modCost]]<</if>>
<<if $activeSlave.nosePiercing > 0>> 		| [[Nose|Body Modification][$activeSlave.nosePiercing = 0,			$cash -= $modCost]]<</if>>
<<if $activeSlave.eyebrowPiercing > 0>> 	| [[Eyebrow|Body Modification][$activeSlave.eyebrowPiercing = 0,	$cash -= $modCost]]<</if>>
<<if $activeSlave.lipsPiercing > 0>> 		| [[Lips|Body Modification][$activeSlave.lipsPiercing = 0,			$cash -= $modCost]]<</if>>
<<if $activeSlave.tonguePiercing > 0>> 		| [[Tongue|Body Modification][$activeSlave.tonguePiercing = 0,		$cash -= $modCost]]<</if>>
<<if $activeSlave.nipplesPiercing > 0>> 	| [[Nipples|Body Modification][$activeSlave.nipplesPiercing = 0,	$cash -= $modCost]]<</if>>
<<if $activeSlave.areolaePiercing > 0>> 	| [[Areolae|Body Modification][$activeSlave.areolaePiercing = 0,	$cash -= $modCost]]<</if>>
<<if $activeSlave.corsetPiercing > 0>> 		| [[Corset|Body Modification][$activeSlave.corsetPiercing = 0,		$cash -= $modCost]]<</if>>
<<if $activeSlave.navelPiercing > 0>> 		| [[Navel|Body Modification][$activeSlave.navelPiercing = 0,		$cash -= $modCost]]<</if>>
<<if $activeSlave.vagina != -1>>
	<<if $activeSlave.clitPiercing > 0>> 	| [[Clit|Body Modification][$activeSlave.clitPiercing = 0,			$cash -= $modCost]]<</if>>
<<else>>
	<<if $activeSlave.clitPiercing > 0>> 	| [[Dickhead|Body Modification][$activeSlave.clitPiercing = 0,		$cash -= $modCost]]<</if>>
<</if>>
<<if $activeSlave.vaginaPiercing > 0>> 		| [[Vagina|Body Modification][$activeSlave.vaginaPiercing = 0,		$cash -= $modCost]]<</if>>
<<if $activeSlave.dickPiercing > 0>> 		| [[Dick|Body Modification][$activeSlave.dickPiercing = 0,			$cash -= $modCost]]<</if>>
<<if $activeSlave.anusPiercing > 0>> 		| [[Anus|Body Modification][$activeSlave.anusPiercing = 0,			$cash -= $modCost]]<</if>>
<</if>>

/* TATTOOS */

Tattoos:
<<if $activeSlave.shouldersTat	 != 0>>
    <<shouldersTatDescription>><<set _hasTat = 1>><</if>>
<<if $activeSlave.lipsTat	 != 0>>
    <<lipsTatDescription>><<set _hasTat = 1>><</if>>
<<if $activeSlave.boobsTat	 != 0>>
    <<boobsTatDescription>><<set _hasTat = 1>><</if>>
<<if $activeSlave.armsTat	 != 0>>
    <<armsTatDescription>><<set _hasTat = 1>><</if>>
<<if $activeSlave.backTat	 != 0>>
    <<backTatDescription>><<set _hasTat = 1>><</if>>
<<if $activeSlave.stampTat	 != 0>>
    <<stampTatDescription>><<set _hasTat = 1>><</if>>
<<if $activeSlave.buttTat	 != 0>>
    <<buttTatDescription>><<set _hasTat = 1>><</if>>
<<if $activeSlave.vaginaTat	 != 0>>
    <<vaginaTatDescription>><<set _hasTat = 1>><</if>>
<<if $activeSlave.dickTat	 != 0>>
    <<dickTatDescription>><<set _hasTat = 1>><</if>>
<<if $activeSlave.anusTat	 != 0>>
    <<anusTatDescription>><<set _hasTat = 1>><</if>>
<<if $activeSlave.legsTat	 != 0>>
    <<legsTatDescription>><<set _hasTat = 1>><</if>>

Choose a tattoo style:
/* If/else is here so a "highlighted" option is never a link. */
<<if $tattooChoice != "tribal patterns">>[[Tribal patterns|Body Modification][$tattooChoice = "tribal patterns"]]<<else>>Tribal patterns<</if>>
<<if $tattooChoice != "flowers">> | [[Flowers|Body Modification][$tattooChoice = "flowers"]]<<else>>| Flowers<</if>>
<<if $tattooChoice != "counting">> | [[Counting|Body Modification][$tattooChoice = "counting"]]<<else>>| Counting<</if>>
<<if $tattooChoice != "advertisements">> | [[Advertisements|Body Modification][$tattooChoice = "advertisements"]]<<else>>| Advertisements<</if>>
<<if $tattooChoice != "rude words">> | [[Rude words|Body Modification][$tattooChoice = "rude words"]]<<else>>| Rude words<</if>>
<<if $tattooChoice != "degradation">> | [[Degradation|Body Modification][$tattooChoice = "degradation"]]<<else>>| Degradation<</if>>
<<if $tattooChoice != "Asian art">> | [[Asian art|Body Modification][$tattooChoice = "Asian art"]] <<else>>| Asian art<</if>>
<<if $tattooChoice != "scenes">> | [[Scenes|Body Modification][$tattooChoice = "scenes"]]<<else>>| Scenes<</if>>
<<if $tattooChoice != "bovine patterns">> | [[Bovine|Body Modification][$tattooChoice = "bovine patterns"]]<<else>>| Bovine<</if>>
<<if $tattooChoice != "permanent makeup">> | [[Permanent makeup|Body Modification][$tattooChoice = "permanent makeup"]]<<else>>| Permanent makeup<</if>>
<<if $tattooChoice != "sacrilege">> | [[Sacrilege|Body Modification][$tattooChoice = "sacrilege"]]<<else>>| Sacrilege<</if>>
<<if $tattooChoice != "sacrament">> | [[Sacrament|Body Modification][$tattooChoice = "sacrament"]]<<else>>| Sacrament<</if>>
<<if $tattooChoice != "possessive">> | [[Possessive|Body Modification][$tattooChoice = "possessive"]]<<else>>| Possessive<</if>>
<<if $tattooChoice != "paternalist">> | [[Paternalist|Body Modification][$tattooChoice = "paternalist"]]<<else>>| Paternalist<</if>>

<<if $activeSlave.anusTat == 0>>
	<<if $tattooChoice != "bleached">>| [[Bleach|Body Modification][$tattooChoice = "bleached",$cash -= $modCost]]<<else>>| Bleach<</if>>
<</if>>

<<if _hasTat == 1>>
	<<if $tattooChoice != "0">> | //[[Remove a tattoo|Body Modification][$tattooChoice = 0]]//<<else>>| Remove a tattoo<</if>>
<</if>>

<<if $tattooChoice != "">>

	<<if $tattooChoice == 0>>
		Clean the ink off of $object:
	<<elseif $tattooChoice == "counting">>
		Add tallies of $possessive sexual exploits to $object:
	<<elseif $tattooChoice == "bleached">>
		Bleach $possessive:
	<<else>>
		Add $tattooChoice to $possessive:
	<</if>>
<</if>>

<<if ($tattooChoice != "bleached") && ($tattooChoice != "permanent makeup")>>
<<link "Entire body">>

/* Tribal patterns */
<<if $tattooChoice == "tribal patterns">>

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

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

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

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

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

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

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

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

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

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

/* flowers */
<<elseif $tattooChoice == "flowers">>

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

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

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

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

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

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

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

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

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

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

<<elseif $tattooChoice == "counting">>

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

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

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

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

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

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

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

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

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

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

<<elseif $tattooChoice == "advertisements">>

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

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

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

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

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

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

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

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

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

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

<<elseif $tattooChoice == "rude words">>

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

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

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

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

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

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

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

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

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

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

<<elseif $tattooChoice == "degradation">>

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

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

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

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

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

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

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

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

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

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

<<elseif $tattooChoice == "bovine patterns">>

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

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

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

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

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

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

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

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

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

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

<<elseif $tattooChoice == "Asian art">>

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

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

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

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

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

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

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

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

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

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

<<elseif $tattooChoice == "scenes">>

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

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

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

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

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

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

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

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

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

<<elseif $tattooChoice == "possessive">>

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

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

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

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

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

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

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

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

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

<<elseif $tattooChoice == "sacrilege">>

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

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

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

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

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

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

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

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

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

<<elseif $tattooChoice == "sacrament">>

<<if $activeSlave.boobsTat != "sacrament">>
	<<set $activeSlave.boobsTat = "sacrament">>
	<<set $cash -= $modCost>>
<</if>>

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

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

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

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

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

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

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

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

<<elseif $tattooChoice == "paternalist">>

<<if $activeSlave.boobsTat != "paternalist">>
	<<set $activeSlave.boobsTat = "paternalist">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.buttTat != "paternalist">>
	<<set $activeSlave.buttTat = "paternalist">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.vaginaTat != "paternalist">>
	<<set $activeSlave.vaginaTat = "paternalist">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.lipsTat != "paternalist">>
	<<set $activeSlave.lipsTat = "paternalist">>
	<<set $cash -= $modCost>>
<</if>>

<<if ($activeSlave.anusTat != "paternalist")>>
	<<set $activeSlave.anusTat = "paternalist">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.shouldersTat != "paternalist">>
	<<set $activeSlave.shouldersTat = "paternalist">>
	<<set $cash -= $modCost>>
<</if>>

<<if $activeSlave.backTat != "paternalist">>
	<<set $activeSlave.backTat = "paternalist">>
	<<set $cash -= $modCost>>
<</if>>

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

<<if $activeSlave.stampTat != "paternalist">>
	<<set $activeSlave.stampTat = "paternalist">>
	<<set $cash -= $modCost>>
<</if>>

<<elseif $tattooChoice == 0>>

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

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

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

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

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

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

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

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

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

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

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

<<if $tattooChoice == 0>>
		<<if $activeSlave.shouldersTat != $tattooChoice>> | [[Shoulders|Body Modification][$activeSlave.shouldersTat = $tattooChoice,$cash -= $modCost]]<</if>>
		<<if $activeSlave.lipsTat != $tattooChoice>> | [[Face|Body Modification][$activeSlave.lipsTat = $tattooChoice,$cash -= $modCost]]<</if>>
		<<if $activeSlave.boobsTat != $tattooChoice>> | [[Boobs|Body Modification][$activeSlave.boobsTat = $tattooChoice,$cash -= $modCost]]<</if>>
		<<if $activeSlave.amp == 0>>
			<<if $activeSlave.armsTat != $tattooChoice>> | [[Arms|Body Modification][$activeSlave.armsTat = $tattooChoice,$cash -= $modCost]]<</if>>
		<</if>>
		<<if $activeSlave.backTat != $tattooChoice>> | [[Upper back|Body Modification][$activeSlave.backTat = $tattooChoice,$cash -= $modCost]]<</if>>
		<<if $activeSlave.stampTat != $tattooChoice>> | [[Lower back|Body Modification][$activeSlave.stampTat = $tattooChoice,$cash -= $modCost]]<</if>>
		<<if $activeSlave.buttTat != $tattooChoice>> | [[Buttock|Body Modification][$activeSlave.buttTat = $tattooChoice,$cash -= $modCost]]<</if>>
		<<if ($activeSlave.vagina != -1)>>
			<<if $activeSlave.vaginaTat != $tattooChoice>> | [[Vagina|Body Modification][$activeSlave.vaginaTat = $tattooChoice,$cash -= $modCost]]<</if>>
		<</if>>
		<<if $activeSlave.dickTat != $tattooChoice>> | [[Dick|Body Modification][$activeSlave.dickTat = $tattooChoice,$cash -= $modCost]]<</if>>
		<<if $activeSlave.anusTat != $tattooChoice>> | [[Anus|Body Modification][$activeSlave.anusTat = $tattooChoice,$cash -= $modCost]]<</if>>
		<<if $activeSlave.amp == 0>>
			<<if $activeSlave.legsTat != $tattooChoice>> | [[Legs|Body Modification][$activeSlave.legsTat = $tattooChoice,$cash -= $modCost]]<</if>>
		<</if>>
<<elseif $tattooChoice == "permanent makeup">>
	[[Face|Body Modification][$activeSlave.lipsTat = $tattooChoice,$cash -= $modCost]]
<<elseif $tattooChoice == "bleached">>
	[[Asshole|Body Modification][$activeSlave.anusTat = $tattooChoice,$cash -= $modCost]]
<<else>>
	<<if $activeSlave.shouldersTat != $tattooChoice>> | [[Shoulders|Body Modification][$activeSlave.shouldersTat = $tattooChoice,$cash -= $modCost]]<</if>>
	<<if $activeSlave.lipsTat != $tattooChoice>> | [[Face|Body Modification][$activeSlave.lipsTat = $tattooChoice,$cash -= $modCost]]<</if>>
	<<if $activeSlave.boobsTat != $tattooChoice>> | [[Boobs|Body Modification][$activeSlave.boobsTat = $tattooChoice,$cash -= $modCost]]<</if>>
	<<if $activeSlave.amp == 0>>
		<<if $activeSlave.armsTat != $tattooChoice>> | [[Arms|Body Modification][$activeSlave.armsTat = $tattooChoice,$cash -= $modCost]]<</if>>
	<</if>>
	<<if $activeSlave.backTat != $tattooChoice>> | [[Upper back|Body Modification][$activeSlave.backTat = $tattooChoice,$cash -= $modCost]]<</if>>
	<<if $activeSlave.stampTat != $tattooChoice>> | [[Lower back|Body Modification][$activeSlave.stampTat = $tattooChoice,$cash -= $modCost]]<</if>>
	<<if $activeSlave.buttTat != $tattooChoice>> | [[Buttock|Body Modification][$activeSlave.buttTat = $tattooChoice,$cash -= $modCost]]<</if>>
	<<if ($activeSlave.vagina != -1)>>
		<<if $activeSlave.vaginaTat != $tattooChoice>> | [[Vagina|Body Modification][$activeSlave.vaginaTat = $tattooChoice,$cash -= $modCost]]<</if>>
	<</if>>
	<<if $tattooChoice != "scenes">>
		<<if $activeSlave.dickTat != $tattooChoice>> | [[Dick|Body Modification][$activeSlave.dickTat = $tattooChoice,$cash -= $modCost]]<</if>>
	<</if>>
	<<if ($tattooChoice != "Asian art") && ($tattooChoice != "scenes")>>
		<<if $activeSlave.anusTat != $tattooChoice>> | [[Anus|Body Modification][$activeSlave.anusTat = $tattooChoice,$cash -= $modCost]]<</if>>
	<</if>>
	<<if $activeSlave.amp == 0>>
		<<if $activeSlave.legsTat != $tattooChoice>> | [[Legs|Body Modification][$activeSlave.legsTat = $tattooChoice,$cash -= $modCost]]<</if>>
	<</if>>
<</if>>

<<if (($activeSlave.belly >= 10000 && ($activeSlave.preg < 30 || $activeSlave.pregType < 10)) || $activeSlave.bellyImplant >= 8000) && $activeSlave.bellyFluid < 5000>>
	<<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.bellyTat = "a heart",$cash -= $modCost]]
		 | [[Star|Body Modification][$activeSlave.bellyTat = "a star",$cash -= $modCost]]
		 | [[Butterfly|Body Modification][$activeSlave.bellyTat = "a butterfly",$cash -= $modCost,$degradation += 1]]
	<</if>>
	<<if $activeSlave.bellyTat != 0>>
		//[[Remove tattoos|Body Modification][$activeSlave.bellyTat = 0,$cash -= $modCost]]//
	<</if>>
<<elseif $activeSlave.preg > 30 && $activeSlave.pregType >= 10>>
	$possessiveCap middle is large and taut enough to be a suitable canvas for a navel focused tattoo, but $possessive brood is too active to permit the needle to do its work.
<<elseif $activeSlave.bellyFluid >= 10000>>
	$possessiveCap middle is large and taut enough to be a suitable canvas for a navel focused tattoo, but the pressure applied to $possessive stomach will likely force $object to release her contents.
<<else>>
	$possessiveCap middle isn't large enough to be a suitable canvas for a navel focused tattoo.
<</if>>

Custom Tats:

    //Use complete sentances, make a description of it//

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

	Give $possessive a custom face tattoo: <<textbox "$activeSlave.lipsTat" $activeSlave.lipsTat "Slave Interact">>
<</if>>

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

	Give $possessive a custom shoulder tattoo: <<textbox "$activeSlave.shouldersTat" $activeSlave.shouldersTat "Slave Interact">>
<</if>>

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

	Give $possessive a custom arm tattoo: <<textbox "$activeSlave.armsTat" $activeSlave.armsTat "Slave Interact">>
<</if>>

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

	Give $possessive a custom tit tattoo: <<textbox "$activeSlave.boobsTat" $activeSlave.boobsTat "Slave Interact">>
<</if>>

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

	Give $possessive a custom back tattoo: <<textbox "$activeSlave.backTat" $activeSlave.backTat "Slave Interact">>
<</if>>

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

	Give $possessive a custom tramp stamp (lower back tattoo): <<textbox "$activeSlave.stampTat" $activeSlave.stampTat "Slave Interact">>
<</if>>

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

	Give $possessive a custom butt tattoo (lower back tattoo): <<textbox "$activeSlave.buttTat" $activeSlave.buttTat "Slave Interact">>
<</if>>

<<if $activeSlave.dickTat == 0 && $activeSlave.dick != -1>>

	Give $possessive a custom pubic tattoo: <<textbox "$activeSlave.dickTat" $activeSlave.dickTat "Slave Interact">>
<</if>>

<<if $activeSlave.vaginaTat == 0 && $activeSlave.vagina != -1>>

	Give $possessive a custom pubic tattoo: <<textbox "$activeSlave.vaginaTat" $activeSlave.vaginaTat "Slave Interact">>
<</if>>

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

	Give $possessive a custom anus tattoo (lower back tattoo): <<textbox "$activeSlave.anusTat" $activeSlave.anusTat "Slave Interact">>
<</if>>

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

	Give $possessive a custom leg tattoo: <<textbox "$activeSlave.legsTat" $activeSlave.legsTat "Slave Interact">>
<</if>>

<<if ($activeSlave.customTat == "")>>
	Give $possessive a custom tattoo: <<textbox "$activeSlave.customTat" $activeSlave.customTat "Slave Interact">>
<<else>>
	$pronounCap <<if _hasTat == 1>>also<</if>> has a custom tattoo: $activeSlave.customTat
	Change it here: <<textbox "$activeSlave.customTat" $activeSlave.customTat "Slave Interact">>
<</if>>
<<if $activeSlave.customTat != "">>
	//[[Remove custom tattoo|Body Modification][$activeSlave.customTat = "",$cash -= $modCost]]//
<</if>>

/* Branding */

Branding:
<<if $activeSlave.brand != 0>>
	<<brandDescription>>
	[[Remove Brand|Body Modification][$brandApplied = 0, $activeSlave.brand = 0,$cash -= $modCost,$degradation -= 10]]
<<else>>
	Her skin is unmarked.
<</if>>

Use ''$brandDesign'' or choose another brand:
[[Your slaving emblem|Body Modification][$brandDesign = "your personal symbol"]]
| [[Your initials|Body Modification][$brandDesign = "your initials"]]

[[SLUT|Body Modification][$brandDesign = "SLUT"]]
| [[WHORE|Body Modification][$brandDesign = "WHORE"]]
| [[SLAVE|Body Modification][$brandDesign = "SLAVE"]]
| [[COW|Body Modification][$brandDesign = "COW"]]
| [[MEAT|Body Modification][$brandDesign = "MEAT"]]
| [[CUMDUMP|Body Modification][$brandDesign = "CUMDUMP"]]
| [[LOVER|Body Modification][$brandDesign = "LOVER"]]

[[Pussy symbol|Body Modification][$brandDesign = "a pussy symbol"]]
| [[Anus symbol|Body Modification][$brandDesign = "an anus symbol"]]
| [[Penis symbol|Body Modification][$brandDesign = "a penis symbol"]]

[[Lady|Body Modification][$brandDesign = "a lady silhouette"]]
| [[Princess|Body Modification][$brandDesign = "a princess silhouette"]]
| [[Queen|Body Modification][$brandDesign = "a queen silhouette"]]
| [[Angel|Body Modification][$brandDesign = "an angel silhouette"]]
| [[Devil|Body Modification][$brandDesign = "a devil silhouette"]]
<<if ($arcologies[0].FSSupremacist != "unset") && ($activeSlave.race != $arcologies[0].FSSupremacistRace)>>
| //FS// [[Racial Slur|Body Modification][$brandDesign = "a racial slur"]] <</if>>
<<if ($arcologies[0].FSSubjugationist != "unset") && ($activeSlave.race == $arcologies[0].FSSubjugationistRace)>>
| //FS// [[Racial Slur|Body Modification][$brandDesign = "a racial slur"]] <</if>>
<<if ($arcologies[0].FSRepopulationFocus != "unset")>>
| //FS// [[Birth Count|Body Modification][$brandDesign = "the number of children "+$pronoun+" has birthed"]] <</if>>
<<if ($arcologies[0].FSGenderRadicalist != "unset") || ($arcologies[0].FSGenderFundamentalist != "unset")>>
| //FS// [[Gender Symbol|Body Modification][$brandDesign = "a gender symbol"]] <</if>>
<<if ($arcologies[0].FSPaternalist != "unset")>>
| //FS// [[Personal Symbol|Body Modification][$brandDesign = $possessive+" own personal symbol"]] <</if>>
<<if ($arcologies[0].FSDegradationist != "unset")>>
| //FS// [[Chain Symbol|Body Modification][$brandDesign = "a chain symbol"]] <</if>>
<<if ($arcologies[0].FSBodyPurist != "unset")>>
| //FS// [[Vitruvian Man|Body Modification][$brandDesign = "a Vitruvian man"]] <</if>>
<<if ($arcologies[0].FSTransformationFetishist != "unset")>>
| //FS// [[Scalpel|Body Modification][$brandDesign = "a scalpel"]] <</if>>
<<if ($arcologies[0].FSYouthPreferentialist != "unset")>>
| //FS// [[Virginity Status|Body Modification][$brandDesign = $possessive+" virginity status"]] <</if>>
<<if ($arcologies[0].FSMaturityPreferentialist != "unset")>>
| //FS// [[Sexual Skill Info|Body Modification][$brandDesign = $possessive+" sexual skills"]] <</if>>
<<if ($arcologies[0].FSSlimnessEnthusiast != "unset")>>
| //FS// [[Breast Floor|Body Modification][$brandDesign = $possessive+" absolute minimum breast size"]] <</if>>
<<if ($arcologies[0].FSAssetExpansionist != "unset")>>
| //FS// [[Breast Ceiling|Body Modification][$brandDesign = $possessive+" absolute maximum breast size"]] <</if>>
<<if ($arcologies[0].FSHedonisticDecadence != "unset")>>
| //FS// [[Weight Record|Body Modification][$brandDesign = $possessive+" highest weigh-in"]] <</if>>
<<if ($arcologies[0].FSHedonisticDecadence != "unset") && $PC.refreshmentType == 2>>
| //FS// [[Favorite Food|Body Modification][$brandDesign = "a big helping of "+$PC.refreshment]] <</if>>
<<if ($arcologies[0].FSPastoralist != "unset")>>
| //FS// [[Product Quality|Body Modification][$brandDesign = $possessive+" body product quality"]] <</if>>
<<if ($arcologies[0].FSPhysicalIdealist != "unset")>>
| //FS// [[Deadlift Info|Body Modification][$brandDesign = $possessive+" deadlift record"]] <</if>>
<<if ($arcologies[0].FSChattelReligionist != "unset")>>
| //FS// [[Religious Symbol|Body Modification][$brandDesign = "a religious symbol"]] <</if>>
<<if ($arcologies[0].FSRomanRevivalist != "unset")>>
| //FS// [[Republican Crest|Body Modification][$brandDesign = "the crest of your Republic"]] <</if>>
<<if ($arcologies[0].FSAztecRevivalist != "unset")>>
| //FS// [[Seven Serpents|Body Modification][$brandDesign = "the symbol of the Aztec gods"]] <</if>>
<<if ($arcologies[0].FSEgyptianRevivalist != "unset")>>
| //FS// [[Dynastic Sigil|Body Modification][$brandDesign = "the sigil of your Dynasty"]] <</if>>
<<if ($arcologies[0].FSEdoRevivalist != "unset")>>
| //FS// [[Mon|Body Modification][$brandDesign = "the Shogunate's mon"]] <</if>>
<<if ($arcologies[0].FSArabianRevivalist != "unset")>>
| //FS// [[Caliphate Symbol|Body Modification][$brandDesign = "a symbol of the Caliphate"]] <</if>>
<<if ($arcologies[0].FSChineseRevivalist != "unset")>>
| //FS// [[Imperial Seal|Body Modification][$brandDesign = "your Imperial Seal"]] <</if>>

Or design your own: <<textbox "$brandDesign" $brandDesign "Body Modification">> //For best results, use a single word//

Choose a site for branding:
[[Ears|Body Modification][$brandTarget = "ear"]]
| [[Cheeks|Body Modification][$brandTarget = "cheek"]]
| [[Shoulders|Body Modification][$brandTarget = "shoulder"]]
| [[Breasts|Body Modification][$brandTarget = "breast"]]
<<if $activeSlave.amp == 0>>
	| [[Arm, upper|Body Modification][$brandTarget = "upper arm"]]
	| [[Arm, lower|Body Modification][$brandTarget = "lower arm"]]
	| [[Wrist|Body Modification][$brandTarget = "wrist"]]
	| [[Hand|Body Modification][$brandTarget = "hand"]]
<</if>>
| [[Buttocks|Body Modification][$brandTarget = "buttock"]]
<<if $activeSlave.amp == 0>>
	| [[Thigh|Body Modification][$brandTarget = "thigh"]]
	| [[Calf|Body Modification][$brandTarget = "calve"]]
	| [[Ankle|Body Modification][$brandTarget = "ankle"]]
	| [[Feet|Body Modification][$brandTarget = "foot"]]
<</if>>
| [[Neck|Body Modification][$brandTarget = "neck"]]
| [[Chest|Body Modification][$brandTarget = "chest"]]
| [[Belly|Body Modification][$brandTarget = "belly"]]
| [[Pubic Mound|Body Modification][$brandTarget = "pubic mound"]]
| [[Back|Body Modification][$brandTarget = "back"]]

/* Branding expansion contributed by Anon1888 */

<<if ($brandTarget == "neck" || $brandTarget == "chest" || $brandTarget == "belly" || $brandTarget == "pubic mound" || $brandTarget == "back")>>
	[[Brand|Body Modification][$brandApplied = 1,$activeSlave.brand = $brandDesign,$activeSlave.brandLocation = $brandTarget,$cash -= $modCost,$degradation += 10]]  with $brandDesign on the $brandTarget.
<<else>>
	Brand $object now with ''$brandDesign'' on the
	<<link "left">>
		<<set $brandApplied = 1>>
		<<set $activeSlave.brand = $brandDesign>>
		<<set $activeSlave.brandLocation = ("left " + $brandTarget)>>
		<<set $cash -= $modCost>>
		<<set $degradation += 10>>
		<<goto "Body Modification">>
	<</link>>
	 $brandTarget, the
	<<link "right">>
		<<set $brandApplied = 1>>
		<<set $activeSlave.brand = $brandDesign>>
		<<set $activeSlave.brandLocation = ("right " +  $brandTarget)>>
		<<set $cash -= $modCost>>
		<<set $degradation += 10>>
		<<goto "Body Modification">>
	<</link>>  $brandTarget, or
	<<link "both">>
		<<set $brandApplied = 1>>
		<<set $activeSlave.brand = $brandDesign>>
		<<if $brandTarget == "ear">>
			<<set $activeSlave.brandLocation = "ears">>
		<<elseif $brandTarget == "cheek">>
			<<set $activeSlave.brandLocation = "cheeks">>
		<<elseif $brandTarget == "shoulder">>
			<<set $activeSlave.brandLocation = "shoulders">>
		<<elseif $brandTarget == "breast">>
			<<set $activeSlave.brandLocation = "breasts">>
		<<elseif $brandTarget == "upper arm">>
			<<set $activeSlave.brandLocation = "upper arms">>
		<<elseif $brandTarget == "lower arm">>
			<<set $activeSlave.brandLocation = "lower arms">>
		<<elseif $brandTarget == "wrist">>
			<<set $activeSlave.brandLocation = "wrists">>
		<<elseif $brandTarget == "hand">>
			<<set $activeSlave.brandLocation = "hands">>
		<<elseif $brandTarget == "buttock">>
			<<set $activeSlave.brandLocation = "buttocks">>
		<<elseif $brandTarget == "thigh">>
			<<set $activeSlave.brandLocation = "thighs">>
		<<elseif $brandTarget == "calve">>
			<<set $activeSlave.brandLocation = "calves">>
		<<elseif $brandTarget == "ankle">>
			<<set $activeSlave.brandLocation = "ankles">>
		<<elseif $brandTarget == "foot">>
			<<set $activeSlave.brandLocation = "feet">>
		<</if>>
		<<set $cash -= $modCost>>
		<<set $degradation += 10>>
		<<goto "Body Modification">>
	<</link>>?
<</if>>
//Branding will slightly reduce $possessive beauty but may slowly increase your reputation.//

repo_name: Drosil/fc

license: mit


code:
:: Body Modification Degradation

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


code:
:: Body Modification Reaction

<<nobr>>

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

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

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

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

<<set $degradation = 0>>

<</nobr>>\


code:
:: Bodyguard Workaround [silently]

<<if $Bodyguard != 0>>
	<<removeJob $Bodyguard "guard you">>
<</if>>
<<if $i > -1>>
	<<assignJob $slaves[$i] "guard you">>
	<<set $Bodyguard = $slaves[$i]>>
<</if>>

<<goto "Main">>


code:
:: Brothel [nobr]

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

<<if $brothelName != "the Brothel">>
	<<set $brothelNameCaps = $brothelName.replace("the ", "The ")>>
<</if>>
<<brothelAssignmentFilter>>
$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 "Aztec Revivalist">>
	is decorated as an Aztec ode to fertility and nature. Clients may sacrifice a bit of blood to honor the goddess of Filth or to partake in a fertility ritual before joining the girl of their choosing.
<<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.
<<case "Hedonistic">>
	is comfortable and full of soft couches and chairs for its' overweight whores to lounge upon between clients <<if $arcologies[0].HedonisticDecadenceResearch == 1>>and enjoy a plate of snacks<<else>>and enjoy a big cup of slave food<</if>>. The smells of fresh baked goods are pumped into the facility to mask the smell of sweat. It's not unusual for a client to fuck a whore right on her chosen couch, since the effort of moving is often too much.
<<default>>
	is utilitarian. There's a businesslike foyer with an area for the merchandise to stand. Customers make their selection (or selections) and then lead the whores back into little rooms.
<</switch>>

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

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

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

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

<<if $brothelUpgradeDrugs == 1>>
    It has been upgraded with aphrodisiac injection systems that monitor the whores and adjust dosage to keep them healthy but desperately horny and hopelessly addicted. The systems are currently applying a moderate dosage of aphrodisiac. [[Increase the aphrodisiac dosage|Brothel][$brothelUpgradeDrugs = 2]] | [[Disable the aphrodisiac injection systems|Brothel][$brothelUpgradeDrugs = 0.1]] //Will reduce upkeep costs if disabled, and raise them if increased//
<<elseif $brothelUpgradeDrugs == 2>>
    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. The systems are currently applying an extreme dosage of aphrodisiac. [[Decrease the aphrodisiac dosage|Brothel][$brothelUpgradeDrugs = 1]] | [[Disable the aphrodisiac injection systems|Brothel][$brothelUpgradeDrugs = 0.1]] //Will reduce upkeep costs//
<<elseif $brothelUpgradeDrugs == 0.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. The systems are currently disabled. [[Enable them|Brothel][$brothelUpgradeDrugs = 1]] //Will increase upkeep costs//
<<else>>
	<<set _Tmult1 = Math.trunc(10000*$upgradeMultiplierArcology)>>
	It is a standard brothel. [[Upgrade the brothel with aphrodisiac injection systems|Brothel][$cash -= _Tmult1, $brothelUpgradeDrugs = 0.1]] //Costs ¤_Tmult1 and will increase upkeep costs//
<</if>>

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

<<BrothelStatistics 1>>

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

<<if ($brothel <= $brothelSlaves)>>
	''$brothelNameCaps is full and cannot hold any more slaves''
<<elseif ($slaves.length > $brothelSlaves)>>
	<<link "''Send a slave to $brothelName''">>
		<<replace #ComingGoing>>
			<<resetAssignmentFilter>>
			<<set $Flag to 0>>
			<<include "Slave Summary">>
		<</replace>>
	<</link>>
<</if>>

<<if $brothelSlaves > 0>>
	| <<link "''Bring a slave out of $brothelName''">>
		<<replace #ComingGoing>>
			<<brothelAssignmentFilter>>
			<<set $Flag = 1>>
			<<include "Slave Summary">>
			<<resetAssignmentFilter>>
		<</replace>>
	<</link>>
<<else>>

//$brothelNameCaps is empty for the moment.
//
<</if>>

<<assignmentFilter >>

	<<brothelAssignmentFilter>>
	<<set $Flag = 1>>
	<<include "Slave Summary">>
	<<resetAssignmentFilter>>

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