code:
:: Attendant Select [nobr]

<<set $nextButton = "Back", $nextLink = "Spa", $showEncyclopedia = 1, $encyclopedia = "Attendant">>
<<showallAssignmentFilter>>
<<if ($Attendant != 0)>>
	<<set $Attendant = getSlave($Attendant.ID)>>
	<<setLocalPronouns $Attendant>>
	''__@@.pink;<<= SlaveFullName($Attendant)>>@@__'' is serving as your Attendant.

$He will help pamper and counsel your slaves.
<<else>>
	You have not selected an Attendant.
<</if>>

''Appoint an Attendant from your devoted slaves:''

[[None|Attendant Workaround][$i = -1]]

<<assignmentFilter>>

	<<showallAssignmentFilter>>
	<<include "Slave Summary">>
	<<resetAssignmentFilter>>

repo_name: valleytwo/fc


code:
:: Attendant Workaround [silently]

<<if $Attendant != 0>>
	<<= removeJob($Attendant, "be the Attendant")>>
<</if>>
<<if $i > -1>>
	<<= assignJob($slaves[$i], "be the Attendant")>>
	<<set $slaves[$i].livingRules = "luxurious">>
	<<set $Attendant = $slaves[$i]>>
<</if>>

<<goto "Spa">>


code:
:: Barracks [nobr]

<<set $nextButton = "Back", $nextLink = "Main">>

The mercenaries you retain to protect $arcologies[0].name are housed in this sector of the arcology, which is fitted out as a modern military facility. It's much less expensive to house them here than to let them live at free quarters in the living areas of the arcology. They live somewhat apart from the society they protect, down here, but
<<if $personalArms > 0 && $invasionVictory > 0>>
	you're always welcome here. You're their employer, but what's more important to them is that you also fought alongside them in victorious battle.
<<else>>
	they don't resent an unannounced visit from their employer.
<</if>>
As you enter the main bay of the armory, lined with modern arms and armor and a few muscular, scarred men and women looking after their gear or suiting up to stand post, you're greeted respectfully, with<<if $personalArms > 0 && $invasionVictory > 0>> jaunty salutes and<</if>> formal "<<= properTitle()>>"s<<if $personalArms > 0 && $invasionVictory > 0>>, but also with smiles and nods<</if>>.
<<if $mercenaries >= 3>>
	Though few of the mercenaries are visible,
	<<if $mercenaries >= 5>>
		the bay is huge. There's enough equipment for a full company here.
	<<else>>
		there's enough equipment for a full platoon here.
	<</if>>
<</if>>

<<if $mercenariesTitle != "mercenaries">>
	They've taken to their role as $mercenariesTitle.
	<<switch $mercenariesTitle>>
	<<case "Knights">>
		Every set of gear has some kind of chivalric device on it, and the heavier sets of powered armor are accented with a lot of burnished steel.
	<<case "Evocati">>
		The heavier sets of powered armor have Roman standards mounted on their backs, and officers' helmets are distinguished by horsehair crests.
	<<case "Shorn Ones">>
		The bigger sets of power armor are adorned with multiple ornaments and painted with symbols of the gods and victory.
	<<case "Imperial Guards">>
		Their prototype armor is equipped with the latest weapons and their Imperial Chinese war banner strikes fear into the foes.
	<<case "Medjay">>
		The gear is accented with bronze and animal skins. Some of the heavier armored helmets even have faceplates styled after Pharaonic death masks.
	<<case "Samurai">>
		The gear is functional, but it has a distinctive Sengoku style to it. A ceramic wakizashi is an almost universal tertiary weapon.
	<<case "Janissaries">>
		They consider themselves a caste apart, and keep to themselves, priding themselves on relentless training and perpetual readiness.
	<<case "Knights Templar">>
		All the armor includes a modernized version of a white surcoat emblazoned with the symbol of the new faith.
	<<case "Immortals">>
		The lighting in the bay has been lowered, and the gear is styled to be menacing. There's a sense of leashed danger here.
	<<case "Vast Legions">>
		Their bulky, heavily armored prototype armor strikes terror into foes and causes the earth to shake when they walk.
	<<case "Surgical Corps">>
		Their prototype armor is equipped with the latest medical equipment.
	<<case "Inglorious Bitches">>
		Their garish neon pink prototype armor shines brightly.
	<<case "Thousand Sons">>
		Their prototype armor is designed to preserve a sample of the wearer's genetic material in the event of death.
	<<case "Guardians of the Unborn">>
		Their gear is designed to be accommodating to pregnant women and even includes a special kit in case a baby needs delivering and they're the only ones around.
	<<case "Shadowed Hand">>
		Their armor prominently displays the symbol of the Societal Elite and is designed to make it perfectly clear that they mean business.
	<<case "Asgardians">>
		Their armor has been modified to allow the wearers' muscular arms to remain visible, and the heavier armor seems to be equipped with capes.
	<<case "Tasters">>
		Their armor has been modified to handle all sorts of waistlines. They contain numerous pockets and containers; it's not unusual to see a merc offering someone a needed pick-me-up.
	<<case "Knights of the Blood">>
		Their gear is adorned with the badges and ensigns of racialist societies, and posters from the same sources are visible on the walls.
	<<case "Knights of the Purge">>
		Their prototype armor is equipped with the latest weapons.
	<<case "Wardens">>
		Their gear is designed to take their foes alive and relatively unharmed, though lethal force can be applied if need be.
	<<case "Purifiers">>
		Their prototype armor is equipped with a cleansing flamethrower. In addition to striking fear into their foes it also cooks a mean steak.
	<<case "Abstemious">>
		Their sleek prototype armor is equipped with advanced restraining weapons.
	<<case "Rangers">>
		Their gear has a heavy Western influence; everyone carries heavy revolvers everywhere, and the armor sports rope lariats for lassoing 'cattle.'
	<</switch>>
<</if>>
There are doors to magazines, armories, and training areas to all sides, and muffled gunfire can be heard from the latter.

You head up a deck, to the staff area, and up one more, to look into the living area. It's comfortable and very well-kept, since they have a large number of slaves here to look after them. Relaxing mercenaries are scattered around the common areas, and most are enjoying a slave or two.
<<if $FSAnnounced>>
	They're obviously adopting the customs of $arcologies[0].name.
	<<set _vignette = 0>>
	<<if $arcologies[0].FSSubjugationist != "unset">>
		A mercenary is fingering a $arcologies[0].FSSubjugationistRace girl's <<if $seeDicks != 100>>pussy<<else>>anus<</if>>. She's wincing a little; she must be new here.
		<<set _vignette++>>
	<</if>>
	<<if $arcologies[0].FSSupremacist != "unset">>
		<<if _vignette>>Another<<else>>A<</if>> mercenary, a woman, is being seen to by a multicultural bunch of subhumans of different races. She has one eating her out while two more are rubbing her feet.
		<<set _vignette++>>
	<</if>>
	<<if $arcologies[0].FSGenderRadicalist != "unset">>
		<<if _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary, who's rather obviously earned enough money to pay for the surgeries and drugs to turn herself into an imposing futanari, is pounding a dickgirl slave.
		<<set _vignette++>>
	<<elseif $arcologies[0].FSGenderFundamentalist != "unset">>
		<<if _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is fucking a slave
			<<if $arcologies[0].FSRestart != "unset">>
				lotus style. His hands are greedily following her womanly curves as they bang.
			<<else>>
				doggy style. He's massaging her rounded belly as she enjoys her first foray into motherhood.
			<</if>>
		<<set _vignette++>>
	<</if>>
	<<if $arcologies[0].FSPaternalist != "unset">>
		<<if _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is making out with a pretty slave. An old romantic movie is playing on a wallscreen in front of them, forgotten.
		<<set _vignette++>>
	<<elseif $arcologies[0].FSDegradationist != "unset">>
		<<if _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is using a slave as a footrest as he relaxes. She has a huge dildo up her ass, and whenever she moves, he uses a foot to shove it farther inside her.
		<<set _vignette++>>
	<</if>>
	<<if $arcologies[0].FSBodyPurist != "unset">>
		<<if _vignette >= $FSCreditCount>>Finally, a<<elseif _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is idly playing with a slave's natural breasts as he watches a wallscreen. He's being gentle and she doesn't seem to mind.
		<<set _vignette++>>
	<<elseif $arcologies[0].FSTransformationFetishist != "unset">>
		<<if _vignette >= $FSCreditCount>>Finally, a<<elseif _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is fucking a bimbo slave doggy style. Her fake tits are so huge that the motion is making them slap together under her.
		<<set _vignette++>>
	<</if>>
	<<if $arcologies[0].FSYouthPreferentialist != "unset">>
		<<if _vignette >= $FSCreditCount>>Finally, a<<elseif _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is getting a blowjob from a young slave. He's playing with her <<if $seeDicks != 100>>fresh pussy<<else>>tight little anus<</if>> as she sucks his dick.
		<<set _vignette++>>
	<<elseif $arcologies[0].FSMaturityPreferentialist != "unset">>
		<<if _vignette >= $FSCreditCount>>Finally, a<<elseif _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is getting a massage from a mature slave. She's wearing a towel, but he sneaks a hand back and steals it, freeing her heavy breasts.
		<<set _vignette++>>
	<</if>>
	<<if $arcologies[0].FSSlimnessEnthusiast != "unset">>
		<<if _vignette >= $FSCreditCount>>Finally, a<<elseif _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is getting a lap dance from a lithe slave. She's moving her cute butt lower and lower, getting ready to impale herself on his raging erection.
		<<set _vignette++>>
	<<elseif $arcologies[0].FSAssetExpansionist != "unset">>
		<<if _vignette >= $FSCreditCount>>Finally, a<<elseif _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is almost hidden by a slave he's got in his lap. He has his head buried between her monstrous breasts, and it's not clear how he's breathing.
		<<set _vignette++>>
	<</if>>
	<<if $arcologies[0].FSPastoralist != "unset">>
		<<if _vignette >= $FSCreditCount>>Finally, a<<elseif _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is drinking a slave's milk, straight from the nipple, while idly massaging her other breast, bringing out a thin stream of milk.
		<<set _vignette++>>
	<</if>>
	<<if $arcologies[0].FSPhysicalIdealist != "unset">>
		<<if _vignette >= $FSCreditCount>>Finally, a<<elseif _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is doing push-ups with a well-endowed slave sitting on his back to add weight. She's counting his reps for him.
		<<set _vignette++>>
	<<elseif $arcologies[0].FSHedonisticDecadence != "unset">>
		<<if _vignette >= $FSCreditCount>>Finally, a<<elseif _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is doing squats with a rather portly slave sitting on his shoulders to add weight. She pops a cookie into his mouth with each completed set.
		<<set _vignette++>>
	<</if>>
	<<if $arcologies[0].FSChattelReligionist != "unset">>
		<<if _vignette >= $FSCreditCount>>Finally, a<<elseif _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is mounting a praying slave from behind. It doesn't distract her; her quiet devotions become more fervent as he fucks her.
		<<set _vignette++>>
	<</if>>
	<<if $arcologies[0].FSRepopulationFocus != "unset">>
		<<if _vignette >= $FSCreditCount>>Finally, a<<elseif _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is being ridden by an enormously pregnant slave. He's massaging her taut belly as she uses her hands to support her sore boobs.
		<<set _vignette++>>
	<<elseif $arcologies[0].FSRestart != "unset">>
		<<if _vignette >= $FSCreditCount>>Finally, a<<elseif _vignette >= 3>>Yet another<<elseif _vignette >= 2>>A third<<elseif _vignette>>Another<<else>>A<</if>> mercenary is being serviced by a slave with a visibly smooth crotch. He has a dildo rammed in her ass and moves it along with her sucking.
		<<set _vignette++>>
	<</if>>
	<<if $arcologies[0].FSRomanRevivalist != "unset">>
	<<elseif $arcologies[0].FSAztecRevivalist != "unset">>
	<<elseif $arcologies[0].FSEgyptianRevivalist != "unset">>
	<<elseif $arcologies[0].FSEdoRevivalist != "unset">>
	<<elseif $arcologies[0].FSArabianRevivalist != "unset">>
	<<elseif $arcologies[0].FSChineseRevivalist != "unset">>
	<</if>>
<</if>>

<<if $mercenariesHelpCorp > 0>>

	As you leave, a squad moves thunderously into the bay, fresh from a slave raid on behalf of your corporation. Most of their captures have been dropped off with the corporate receivers, but they've been given a pretty girl who isn't a good training prospect for the corporate brand, a common reward. The squad looks after their weapons and armor first, an inviolable rule, and as they do, they leave their naked slave standing in the middle of the bay, ignored. She isn't even bound, but she's standing nude and alone amongst modern mercenaries, so she knows that resistance is futile. So she does the only thing left available to her: try to cover herself with her hands and cry.
<</if>>

<<link "Decommission the armory and return this sector to manufacturing">>
	<<set $barracks = 0>>
	<<for _i = 0; _i < $sectors.length; _i++>>
		<<if $sectors[_i].type == "Barracks">><<set $sectors[_i].type = "Manufacturing">><<break>><</if>>
	<</for>>
	<<goto "Main">>
<</link>>


code:
:: BG Select [nobr]

<<set $nextButton = "Back to Main", $nextLink = "Main", $showEncyclopedia = 1, $encyclopedia = "Bodyguard">>
<<showallAssignmentFilter>>
<<if ($Bodyguard != 0)>>
	<<set $Bodyguard = getSlave($Bodyguard.ID)>>
	<<setLocalPronouns $Bodyguard>>
	''__@@.pink;<<= SlaveFullName($Bodyguard)>>@@__'' is serving as your bodyguard.

$He will remain close to you at all times and guard your person.
<<else>>
	You have not selected a bodyguard.
<</if>>

''Appoint a bodyguard from your devoted slaves:''

[[None|Bodyguard Workaround][$i = -1]]

<<assignmentFilter>>

	<<showallAssignmentFilter>>
	<<include "Slave Summary">>
	<<resetAssignmentFilter>>


code:
:: Body Modification [nobr]

<<set $nextButton = "Continue", $nextLink = "Slave Interact">>
<<run clearSummaryCache($activeSlave)>>
<<setLocalPronouns $activeSlave>>
<<run 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. $He is entirely at your mercy.

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

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

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

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

<<if $piercingLevel == 2>>

	''Heavily'' pierce $his:

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

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

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

			Give $him a [[smart piercing?|Body Modification][$activeSlave.clitPiercing = 3,$activeSlave.clitSetting = "all",cashX(forceNeg($SPcost), "slaveMod", $activeSlave),$degradation += 1]] //Costs <<print cashFormat($SPcost)>>, unlocks options to mold sexuality//
		<<else>>

			$He 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>>			<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
		<<if $activeSlave.nosePiercing > 0>><<set $activeSlave.nosePiercing = 0>>		<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
		<<if $activeSlave.eyebrowPiercing > 0>><<set $activeSlave.eyebrowPiercing = 0>>	<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
		<<if $activeSlave.lipsPiercing > 0>><<set $activeSlave.lipsPiercing = 0>>		<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
		<<if $activeSlave.tonguePiercing > 0>><<set $activeSlave.tonguePiercing = 0>>	<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
		<<if $activeSlave.nipplesPiercing > 0>><<set $activeSlave.nipplesPiercing = 0>>	<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
		<<if $activeSlave.areolaePiercing > 0>><<set $activeSlave.areolaePiercing = 0>>	<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
		<<if $activeSlave.corsetPiercing > 0>><<set $activeSlave.corsetPiercing = 0>>	<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
		<<if $activeSlave.navelPiercing > 0>><<set $activeSlave.navelPiercing = 0>>		<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
		<<if $activeSlave.clitPiercing > 0>><<set $activeSlave.clitPiercing = 0>>		<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
		<<if $activeSlave.vaginaPiercing > 0>><<set $activeSlave.vaginaPiercing = 0>>	<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
		<<if $activeSlave.dickPiercing > 0>><<set $activeSlave.dickPiercing = 0>>		<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
		<<if $activeSlave.anusPiercing > 0>><<set $activeSlave.anusPiercing = 0>>		<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
		<<goto "Body Modification">>

	<</link>>

	<<if $activeSlave.earPiercing > 0>>		| [[Ear|Body Modification][$activeSlave.earPiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
	<<if $activeSlave.nosePiercing > 0>>		| [[Nose|Body Modification][$activeSlave.nosePiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
	<<if $activeSlave.eyebrowPiercing > 0>>	| [[Eyebrow|Body Modification][$activeSlave.eyebrowPiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
	<<if $activeSlave.lipsPiercing > 0>>		| [[Lips|Body Modification][$activeSlave.lipsPiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
	<<if $activeSlave.tonguePiercing > 0>>		| [[Tongue|Body Modification][$activeSlave.tonguePiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
	<<if $activeSlave.nipplesPiercing > 0>>	| [[Nipples|Body Modification][$activeSlave.nipplesPiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
	<<if $activeSlave.areolaePiercing > 0>>	| [[Areolae|Body Modification][$activeSlave.areolaePiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
	<<if $activeSlave.corsetPiercing > 0>>		| [[Corset|Body Modification][$activeSlave.corsetPiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
	<<if $activeSlave.navelPiercing > 0>>		| [[Navel|Body Modification][$activeSlave.navelPiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
	<<if $activeSlave.vagina != -1>>
		<<if $activeSlave.clitPiercing > 0>>	| [[Clit|Body Modification][$activeSlave.clitPiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
	<<else>>
		<<if $activeSlave.clitPiercing > 0>>	| [[Dickhead|Body Modification][$activeSlave.clitPiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
	<</if>>
	<<if $activeSlave.vaginaPiercing > 0>>		| [[Vagina|Body Modification][$activeSlave.vaginaPiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
	<<if $activeSlave.dickPiercing > 0>>		| [[Dick|Body Modification][$activeSlave.dickPiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
	<<if $activeSlave.anusPiercing > 0>>		| [[Anus|Body Modification][$activeSlave.anusPiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</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 && $activeSlave.amp != 1>>
    <<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 && $activeSlave.dick > 0>>
    <<dickTatDescription>><<set _hasTat = 1>><</if>>
<<if $activeSlave.anusTat != 0>>
    <<anusTatDescription>><<set _hasTat = 1>><</if>>
<<if $activeSlave.legsTat != 0 && $activeSlave.amp != 1>>
    <<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",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<<else>>| Bleach<</if>>
<</if>>

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

<<if def $tattooChoice>>

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

	<<if ($tattooChoice != "bleached") && ($tattooChoice != "permanent makeup")>>
		<<link "Entire body">>
			<<set _degradationTemp = 0>>
			<<if $activeSlave.boobsTat != $tattooChoice>>
				<<set $activeSlave.boobsTat = $tattooChoice>>
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<set _degradationTemp += 1>>
			<</if>>

			<<if $activeSlave.buttTat != $tattooChoice>>
				<<set $activeSlave.buttTat = $tattooChoice>>
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<set _degradationTemp += 1>>
			<</if>>

			<<if $activeSlave.vaginaTat != $tattooChoice>>
				<<set $activeSlave.vaginaTat = $tattooChoice>>
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<set _degradationTemp += 1>>
			<</if>>

			<<if $activeSlave.dick > 0>>
			<<if $activeSlave.dickTat != $tattooChoice && $tattooChoice != "scenes">>
				<<set $activeSlave.dickTat = $tattooChoice>>
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<set _degradationTemp += 1>>
			<</if>>
			<</if>>

			<<if $activeSlave.lipsTat != $tattooChoice>>
				<<if $tattooChoice == "scenes">>
					<<set $activeSlave.lipsTat = "permanent makeup">>
				<<else>>
					<<set $activeSlave.lipsTat = $tattooChoice>>
				<</if>>
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<set _degradationTemp += 1>>
			<</if>>

			<<if ($tattooChoice == "Asian art" || $tattooChoice == "scenes") && $activeSlave.anusTat == "bleached">>
				<<set $activeSlave.anusTat = "bleached">>
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<set _degradationTemp += 1>>
			<<elseif $activeSlave.anusTat != $tattooChoice>>
				<<set $activeSlave.anusTat = $tattooChoice>>
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<set _degradationTemp += 1>>
			<</if>>

			<<if $activeSlave.shouldersTat != $tattooChoice>>
				<<set $activeSlave.shouldersTat = $tattooChoice>>
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<set _degradationTemp += 1>>
			<</if>>

			<<if $activeSlave.backTat != $tattooChoice>>
				<<set $activeSlave.backTat = $tattooChoice>>
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<set _degradationTemp += 1>>
			<</if>>

			<<if $activeSlave.amp != 1>>
				<<if $activeSlave.armsTat != $tattooChoice>>
					<<set $activeSlave.armsTat = $tattooChoice>>
					<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
					<<set _degradationTemp += 1>>
				<</if>>
				<<if $activeSlave.legsTat != $tattooChoice>>
					<<set $activeSlave.legsTat = $tattooChoice>>
					<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
					<<set _degradationTemp += 1>>
				<</if>>
			<</if>>

			<<if $activeSlave.stampTat != $tattooChoice>>
				<<set $activeSlave.stampTat = $tattooChoice>>
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<set _degradationTemp += 1>>
			<</if>>

			<<if !["flowers", "paternalist", "tribal patterns", 0].includes($tattooChoice)>>
				<<set $degradation += _degradationTemp>>
			<</if>>

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

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

<<if $activeSlave.belly >= 10000 && $activeSlave.bellyPreg < 450000 && $activeSlave.bellyFluid < 5000>>
	<<if $activeSlave.bellyTat == 0>>
		$He has no navel tattoos.
	<<else>>
		$His navel is tattooed with $activeSlave.bellyTat.
	<</if>>
	<<if $activeSlave.bellyTat == 0>>

		[[Heart|Body Modification][$activeSlave.bellyTat = "a heart",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
		| [[Star|Body Modification][$activeSlave.bellyTat = "a star",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
		| [[Butterfly|Body Modification][$activeSlave.bellyTat = "a butterfly",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]
	<</if>>
	<<if $activeSlave.bellyTat != 0>>
		//[[Remove tattoos|Body Modification][$activeSlave.bellyTat = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]//
	<</if>>
<<elseif $activeSlave.bellyPreg >= 450000>>
	$His middle is large and taut enough to be a suitable canvas for a navel focused tattoo, but $his brood is too active to permit the needle to do its work.
<<elseif $activeSlave.bellyFluid >= 10000>>
	$His middle is large and taut enough to be a suitable canvas for a navel focused tattoo, but the pressure applied to $his stomach will likely force $him to release its contents.
<<else>>
	$His middle isn't large enough to be a suitable canvas for a navel focused tattoo.
<</if>>

<<if $activeSlave.abortionTat > 0>>
	<<if $activeSlave.abortionTat > 1>>
		$He has a series of num($activeSlave.abortionTat) crossed out baby-shaped tattoos<<if $activeSlave.pregKnown == 1>>, and one uncrossed one,<</if>> adorning $his stomach.
	<<else>>
		$He has a single crossed out baby-shaped tattoo<<if $activeSlave.pregKnown == 1>>, and one uncrossed one,<</if>> adorning $his stomach.
	<</if>>
	//[[Remove tattoos|Body Modification][$activeSlave.abortionTat = -1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]//
<<elseif $activeSlave.abortionTat == 0>>
	<<if $activeSlave.pregKnown == 1>>
		$He has a single baby-shaped temporary tattoo adorning $his stomach.
		//[[Remove it|Body Modification][$activeSlave.abortionTat = -1]]//
	<<else>>
		$He is scheduled to receive a tattoo each time $he gets an abortion or miscarries.
		//[[Cancel|Body Modification][$activeSlave.abortionTat = -1]]//
	<</if>>
<<else>>
	Have $him receive a tattoo for each abortion or miscarriage $he has.
	//[[Begin keeping track|Body Modification][$activeSlave.abortionTat = 0]]//
<</if>>

Custom Tats:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<<if ($activeSlave.custom.tattoo == "")>>
	Give $him a custom tattoo: <<textbox "$activeSlave.custom.tattoo" $activeSlave.custom.tattoo "Slave Interact">>
<<else>>
	$He <<if _hasTat == 1>>also<</if>> has a custom tattoo: $activeSlave.custom.tattoo
	Change it here: <<textbox "$activeSlave.custom.tattoo" $activeSlave.custom.tattoo "Slave Interact">>
<</if>>
<<if $activeSlave.custom.tattoo != "">>
	//[[Remove custom tattoo|Body Modification][$activeSlave.custom.tattoo = "",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]//
<</if>>

/* Branding */

Branding:
<<if $activeSlave.brand != 0>>
	<<= App.Desc.brand($activeSlave)>>
	[[Remove Brand|Body Modification][$brandApplied = 0, $activeSlave.brand = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation -= 10]]
<<else>>
	$His 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 "+$he+" 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 = $his+" 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 = $his+" virginity status"]] <</if>>
<<if ($arcologies[0].FSMaturityPreferentialist != "unset")>>
| //FS// [[Sexual Skill Info|Body Modification][$brandDesign = $his+" sexual skills"]] <</if>>
<<if ($arcologies[0].FSSlimnessEnthusiast != "unset")>>
| //FS// [[Breast Floor|Body Modification][$brandDesign = $his+" absolute minimum breast size"]] <</if>>
<<if ($arcologies[0].FSAssetExpansionist != "unset")>>
| //FS// [[Breast Ceiling|Body Modification][$brandDesign = $his+" absolute maximum breast size"]] <</if>>
<<if ($arcologies[0].FSHedonisticDecadence != "unset")>>
| //FS// [[Weight Record|Body Modification][$brandDesign = $his+" 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 = $his+" body product quality"]] <</if>>
<<if ($arcologies[0].FSPhysicalIdealist != "unset")>>
| //FS// [[Deadlift Info|Body Modification][$brandDesign = $his+" 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:
<<if $activeSlave.earShape != "none">>[[Ears|Body Modification][$brandTarget = "ear"]]<</if>>
| [[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"]]
| [[Lower Back|Body Modification][$brandTarget = "lower back"]]

/* Branding expansion contributed by Anon1888 */

<<if ($brandTarget == "neck" || $brandTarget == "chest" || $brandTarget == "belly" || $brandTarget == "pubic mound" || $brandTarget == "back" || $brandTarget == "lower back")>>
	[[Brand|Body Modification][$brandApplied = 1,$activeSlave.brand = $brandDesign,$activeSlave.brandLocation = $brandTarget,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 10]] with $brandDesign on the $brandTarget.
<<else>>
	Brand $him now with ''$brandDesign'' on the
	<<link "left">>
		<<set $brandApplied = 1>>
		<<set $activeSlave.brand = $brandDesign>>
		<<set $activeSlave.brandLocation = ("left " + $brandTarget)>>
		<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
		<<set $degradation += 10>>
		<<goto "Body Modification">>
	<</link>>
	$brandTarget, the
	<<link "right">>
		<<set $brandApplied = 1>>
		<<set $activeSlave.brand = $brandDesign>>
		<<set $activeSlave.brandLocation = ("right " + $brandTarget)>>
		<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
		<<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>>
		<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
		<<set $degradation += 10>>
		<<goto "Body Modification">>
	<</link>>?
<</if>>
//Branding will slightly reduce $his beauty but may slowly increase your reputation.//

<<if $activeSlave.breedingMark == 1 && $propOutcome == 0>>

	$He has an intricate tattoo on $his lower belly that suggests $he was made to be bred. [[Remove it|Body Modification][$activeSlave.breedingMark = 0]]
<</if>>


code:
:: Body Modification Degradation

<<if ($degradation == 0)>>
	<<goto "Slave Interact">>
<<elseif $degradation > 0 && $activeSlave.fetish != "mindbroken" && $activeSlave.fuckdoll == 0>>
	<<goto "Body Modification Reaction">>
<</if>>


code:
:: Body Modification Reaction [nobr]

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

As you cast off $his bindings<<if canSee($activeSlave)>> and <<if ($activeSlave.amp != 1)>>let $him stand<<else>>prop $him up<</if>>, $he catches sight of $himself in the floor length mirror at the foot of the body modification table<<else>>, and <<if ($activeSlave.amp != 1)>>let $him stand<<else>>prop $him up<</if>>, you vividly describe $his new appearance. $His 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 $his health a little.@@
	<<set $brandApplied = 0>>
	<<set $activeSlave.health -= 10>>
<</if>>
<<if $activeSlave.fetish != "mindbroken" && $activeSlave.fuckdoll == 0>>
	<<if $degradation > 10>>
		<<if $activeSlave.devotion < -20 && $activeSlave.trust > 20>>
			$He is appalled by the whorish spectacle you have made of $him. $He @@.mediumorchid;lothes@@ you all the more for this, but $his resolve is @@.gold;whittled down@@ by your power over $him.
			<<set $activeSlave.devotion -= 10, $activeSlave.trust -= 10>>
		<<elseif $activeSlave.devotion <= 50 && $activeSlave.trust < -50>>
			$He is appalled by the whorish spectacle you have made of $him. $He @@.gold;fears@@ you all the more for this but is so terrified of you it does not affect $his submission.
			<<set $activeSlave.trust -= 10>>
		<<elseif $activeSlave.devotion <= 50>>
			$He is appalled by the whorish spectacle you have made of $him. $He @@.mediumorchid;hates@@ and @@.gold;fears@@ you for this.
			<<set $activeSlave.devotion -= 10, $activeSlave.trust -= 10>>
		<<elseif $activeSlave.devotion <= 90>>
			$He is shocked by the whorish spectacle you have made of $him. However, $he is @@.hotpink;so submissive to your will@@ that $he accepts that the slave <<if canSee($activeSlave)>>in the mirror<<else>>$he pictures<</if>> is who $he is now.
			<<set $activeSlave.devotion += 3>>
		<<else>>
			$He fully understands that $his body belongs to you and that it is yours to modify as you see fit, the slave <<if canSee($activeSlave)>>in the mirror<<else>>$he pictures<</if>> is still somewhat shocking to $him. Like a good slave<<= $girl>> though, $he can't wait to show off your changes.
		<</if>>
	<<elseif $degradation > 4>>
		<<if $activeSlave.devotion < -20 && $activeSlave.trust > 20>>
			$He is disgusted by the slutty modifications you have made to $his body. $He @@.mediumorchid;hates@@ for it, but begins to @@.gold;fear@@ the power you hold over $him.
			<<set $activeSlave.devotion -= 5, $activeSlave.trust -= 5>>
		<<elseif $activeSlave.devotion <= 20 && $activeSlave.trust < -20>>
			$He is so afraid of you that $he suppresses any reaction to the slutty modifications you have made to $his body and @@.gold;fears@@ your power to do whatever you like to $him.
			<<set $activeSlave.trust -= 5>>
		<<elseif $activeSlave.devotion < 50>>
			$He is surprised with the slutty modifications you have made to $his body. However, $he is so obedient that $he @@.hotpink;accepts your changes.@@
			<<set $activeSlave.devotion += 2>>
		<<else>>
			$He is surprised with the slutty modifications you have made to $his body but thrilled that you'd put so much into a slave like $him.
		<</if>>
	<<elseif $degradation > 1>>
		<<if $activeSlave.devotion < -20 && $activeSlave.trust > 20>>
			While $he hates being permanently altered by you, $he @@.orangered;refuses to give you any reaction.@@
			<<set $activeSlave.trust += 1>>
		<<elseif $activeSlave.devotion < -20 && $activeSlave.trust < 20>>
			$He is @@.gold;afraid@@ that $he has been permanently altered against $his will, but is also scared of your reaction to any objection and suppresses $his disgust.
			<<set $activeSlave.trust -= 5>>
		<<elseif $activeSlave.devotion < -20>>
			$He is @@.mediumorchid;angry@@ and @@.gold;afraid@@ that $he has been permanently altered against $his will.
			<<set $activeSlave.devotion -= 5, $activeSlave.trust -= 5>>
		<<elseif $activeSlave.devotion < 0>>
			$He is saddened to have been altered against $his will, but @@.hotpink;begins to understand@@ that it is not $his decision.
			<<set $activeSlave.devotion += 1>>
		<<elseif $activeSlave.devotion < 20>>
			$He is saddened to have been altered against $his will. However, $he realizes that $he is a slave, so $he accepts your work.
		<<else>>
			$He fully understands that $his body belongs to you and that it is yours to modify as you see fit.
		<</if>>
	<<else>>
		$He shows no real <<if $activeSlave.devotion < -20 && $activeSlave.trust > 20>>interest in<<else>>reaction to<</if>> your modifications.
	<</if>>
<</if>>
<<set $degradation = 0>>


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">>