diff --git a/src/uncategorized/bodyModification.tw b/src/uncategorized/bodyModification.tw index 1657019c159371749fa4933b1ed670bed65a26b4..f1d23864cb8129fc3b51d49d27037e4a5a28115b 100644 --- a/src/uncategorized/bodyModification.tw +++ b/src/uncategorized/bodyModification.tw @@ -64,7 +64,7 @@ <</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 hangups. + $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>> @@ -78,65 +78,62 @@ <<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.tonguePiercing-_slaveBeforeSession.tonguePiercing)*2>> + <<set $activeSlave.devotion += ($activeSlave.nipplesPiercing+$activeSlave.areolaePiercing-_slaveBeforeSession.nipplesPiercing-_slaveBeforeSession.areolaePiercing)*2>> <</if>> <</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.tonguePiercing-_slaveBeforeSession.tonguePiercing)*2>> + <<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>> - <<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 $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>> - <<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 $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.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 $activeSlave.anusPiercing != _slaveBeforeSession.anusPiercing>> <<if $activeSlave.fetishKnown>> @@ -145,16 +142,16 @@ 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>> + <<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 $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 hangups. - <</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">> @@ -177,170 +174,146 @@ <<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 $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. Because 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 place 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" "rude words" "sacrilege" "sacrament" "degradation" "possessive" "paternalist">> - $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" "rude words" "sacrilege" "sacrament" "degradation" "possessive" "paternalist">> - $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" "rude words" "sacrilege" "sacrament" "degradation" "possessive" "paternalist">> - $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" "rude words" "sacrilege" "sacrament" "degradation" "possessive" "paternalist">> - $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 "sacrilege" "sacrament">> - $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 $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>> @@ -412,169 +385,169 @@ Choose piercing style: <<if $piercingLevel == 1>> -<br> -//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>> + <br> + //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($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.nosePiercing != 1>> | [[Nose|Body Modification][$activeSlave.nosePiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.eyebrowPiercing != 1>> | [[Eyebrow|Body Modification][$activeSlave.eyebrowPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.lipsPiercing != 1>> | [[Lips|Body Modification][$activeSlave.lipsPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.tonguePiercing != 1>> | [[Tongue|Body Modification][$activeSlave.tonguePiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> <<if $activeSlave.nipples != "fuckable">> - <<if $activeSlave.nipplesPiercing != 1 && >><<set $activeSlave.nipplesPiercing = 1>><<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>> + <<if $activeSlave.nipplesPiercing != 1>> | [[Nipples|Body Modification][$activeSlave.nipplesPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $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.areolaePiercing != 1>> | [[Areolae|Body Modification][$activeSlave.areolaePiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.corsetPiercing != 1>> | [[Corset|Body Modification][$activeSlave.corsetPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.navelPiercing != 1>> | [[Navel|Body Modification][$activeSlave.navelPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $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 $activeSlave.vagina != -1>> + <<if $activeSlave.clitPiercing != 1>> | [[Clit|Body Modification][$activeSlave.clitPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<else>> + <<if $activeSlave.clitPiercing != 1>> | [[Dickhead|Body Modification][$activeSlave.clitPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <</if>> <</if>> <<if ($activeSlave.vagina != -1)>> - <<if $activeSlave.vaginaPiercing != 1>><<set $activeSlave.vaginaPiercing = 1>> <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>> + <<if $activeSlave.vaginaPiercing != 1>> | [[Vagina|Body Modification][$activeSlave.vaginaPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $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($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.nosePiercing != 1>> | [[Nose|Body Modification][$activeSlave.nosePiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.eyebrowPiercing != 1>> | [[Eyebrow|Body Modification][$activeSlave.eyebrowPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.lipsPiercing != 1>> | [[Lips|Body Modification][$activeSlave.lipsPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.tonguePiercing != 1>> | [[Tongue|Body Modification][$activeSlave.tonguePiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.nipples != "fuckable">> -<<if $activeSlave.nipplesPiercing != 1>> | [[Nipples|Body Modification][$activeSlave.nipplesPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<</if>> -<<if $activeSlave.areolaePiercing != 1>> | [[Areolae|Body Modification][$activeSlave.areolaePiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.corsetPiercing != 1>> | [[Corset|Body Modification][$activeSlave.corsetPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.navelPiercing != 1>> | [[Navel|Body Modification][$activeSlave.navelPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $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($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> - <<else>> - <<if $activeSlave.clitPiercing != 1>> | [[Dickhead|Body Modification][$activeSlave.clitPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.dickPiercing != 1>> | [[Dick|Body Modification][$activeSlave.dickPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> <</if>> -<</if>> -<<if ($activeSlave.vagina != -1)>> - <<if $activeSlave.vaginaPiercing != 1>> | [[Vagina|Body Modification][$activeSlave.vaginaPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<</if>> -<<if ($activeSlave.dick > 0)>> - <<if $activeSlave.dickPiercing != 1>> | [[Dick|Body Modification][$activeSlave.dickPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<</if>> -<<if $activeSlave.anusPiercing != 1>> | [[Anus|Body Modification][$activeSlave.anusPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.anusPiercing != 1>> | [[Anus|Body Modification][$activeSlave.anusPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> <</if>> <<if $piercingLevel == 2>> -<br> -''Heavily'' pierce $his: - -<<link "Entire body">> - <<if $activeSlave.earPiercing != 2>><<set $activeSlave.earPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> - <<if $activeSlave.nosePiercing != 2>><<set $activeSlave.nosePiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> - <<if $activeSlave.eyebrowPiercing != 2>><<set $activeSlave.eyebrowPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> - <<if $activeSlave.lipsPiercing != 2>><<set $activeSlave.lipsPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> - <<if $activeSlave.tonguePiercing != 2>><<set $activeSlave.tonguePiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <br> + ''Heavily'' pierce $his: + + <<link "Entire body">> + <<if $activeSlave.earPiercing != 2>><<set $activeSlave.earPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<if $activeSlave.nosePiercing != 2>><<set $activeSlave.nosePiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<if $activeSlave.eyebrowPiercing != 2>><<set $activeSlave.eyebrowPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<if $activeSlave.lipsPiercing != 2>><<set $activeSlave.lipsPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<if $activeSlave.tonguePiercing != 2>><<set $activeSlave.tonguePiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<if $activeSlave.nipples != "fuckable">> + <<if $activeSlave.nipplesPiercing != 2>><<set $activeSlave.nipplesPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <</if>> + <<if $activeSlave.areolaePiercing != 2>><<set $activeSlave.areolaePiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<if $activeSlave.corsetPiercing != 2>><<set $activeSlave.corsetPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<if $activeSlave.navelPiercing != 2>><<set $activeSlave.navelPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<if ($activeSlave.vagina != -1) || ($activeSlave.dick != 0)>> + <<if $activeSlave.clitPiercing != 2>><<set $activeSlave.clitPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <</if>> + <<if ($activeSlave.vagina != -1)>> + <<if $activeSlave.vaginaPiercing != 2>><<set $activeSlave.vaginaPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <</if>> + <<if ($activeSlave.dick > 0)>> + <<if $activeSlave.dickPiercing != 2>><<set $activeSlave.dickPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <</if>> + <<if $activeSlave.anusPiercing != 2>><<set $activeSlave.anusPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<goto "Body Modification">> + <</link>> + + <<if $activeSlave.earPiercing != 2>> | [[Ear|Body Modification][$activeSlave.earPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> + <<if $activeSlave.nosePiercing != 2>> | [[Nose|Body Modification][$activeSlave.nosePiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> + <<if $activeSlave.eyebrowPiercing != 2>> | [[Eyebrow|Body Modification][$activeSlave.eyebrowPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> + <<if $activeSlave.lipsPiercing != 2>> | [[Lips|Body Modification][$activeSlave.lipsPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> + <<if $activeSlave.tonguePiercing != 2>> | [[Tongue|Body Modification][$activeSlave.tonguePiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> <<if $activeSlave.nipples != "fuckable">> - <<if $activeSlave.nipplesPiercing != 2>><<set $activeSlave.nipplesPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<if $activeSlave.nipplesPiercing != 2>> | [[Nipples|Body Modification][$activeSlave.nipplesPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> <</if>> - <<if $activeSlave.areolaePiercing != 2>><<set $activeSlave.areolaePiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> - <<if $activeSlave.corsetPiercing != 2>><<set $activeSlave.corsetPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> - <<if $activeSlave.navelPiercing != 2>><<set $activeSlave.navelPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<if $activeSlave.areolaePiercing != 2>> | [[Areolae|Body Modification][$activeSlave.areolaePiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> + <<if $activeSlave.corsetPiercing != 2>> | [[Corset|Body Modification][$activeSlave.corsetPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> + <<if $activeSlave.navelPiercing != 2>> | [[Navel|Body Modification][$activeSlave.navelPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> <<if ($activeSlave.vagina != -1) || ($activeSlave.dick != 0)>> - <<if $activeSlave.clitPiercing != 2>><<set $activeSlave.clitPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<if $activeSlave.vagina != -1>> + <<if $activeSlave.clitPiercing != 2>> | [[Clit|Body Modification][$activeSlave.clitPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> + <<else>> + <<if $activeSlave.clitPiercing != 2>> | [[Dickhead|Body Modification][$activeSlave.clitPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> + <</if>> <</if>> <<if ($activeSlave.vagina != -1)>> - <<if $activeSlave.vaginaPiercing != 2>><<set $activeSlave.vaginaPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<if $activeSlave.vaginaPiercing != 2>> | [[Vagina|Body Modification][$activeSlave.vaginaPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> <</if>> <<if ($activeSlave.dick > 0)>> - <<if $activeSlave.dickPiercing != 2>><<set $activeSlave.dickPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> + <<if $activeSlave.dickPiercing != 2>> | [[Dick|Body Modification][$activeSlave.dickPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> <</if>> - <<if $activeSlave.anusPiercing != 2>><<set $activeSlave.anusPiercing = 2>> <<set cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $degradation += 1>><</if>> - <<goto "Body Modification">> -<</link>> - -<<if $activeSlave.earPiercing != 2>> | [[Ear|Body Modification][$activeSlave.earPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> -<<if $activeSlave.nosePiercing != 2>> | [[Nose|Body Modification][$activeSlave.nosePiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> -<<if $activeSlave.eyebrowPiercing != 2>> | [[Eyebrow|Body Modification][$activeSlave.eyebrowPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> -<<if $activeSlave.lipsPiercing != 2>> | [[Lips|Body Modification][$activeSlave.lipsPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> -<<if $activeSlave.tonguePiercing != 2>> | [[Tongue|Body Modification][$activeSlave.tonguePiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> -<<if $activeSlave.nipples != "fuckable">> -<<if $activeSlave.nipplesPiercing != 2>> | [[Nipples|Body Modification][$activeSlave.nipplesPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> -<</if>> -<<if $activeSlave.areolaePiercing != 2>> | [[Areolae|Body Modification][$activeSlave.areolaePiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> -<<if $activeSlave.corsetPiercing != 2>> | [[Corset|Body Modification][$activeSlave.corsetPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> -<<if $activeSlave.navelPiercing != 2>> | [[Navel|Body Modification][$activeSlave.navelPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $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($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> - <<else>> - <<if $activeSlave.clitPiercing != 2>> | [[Dickhead|Body Modification][$activeSlave.clitPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> - <</if>> -<</if>> -<<if ($activeSlave.vagina != -1)>> - <<if $activeSlave.vaginaPiercing != 2>> | [[Vagina|Body Modification][$activeSlave.vaginaPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> -<</if>> -<<if ($activeSlave.dick > 0)>> - <<if $activeSlave.dickPiercing != 2>> | [[Dick|Body Modification][$activeSlave.dickPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> -<</if>> -<<if $activeSlave.anusPiercing != 2>> | [[Anus|Body Modification][$activeSlave.anusPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> + <<if $activeSlave.anusPiercing != 2>> | [[Anus|Body Modification][$activeSlave.anusPiercing = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]<</if>> <</if>> <<if $piercingLevel == 3>> -<<if ($activeSlave.vagina != -1) || ($activeSlave.dick != 0)>> - <<if $activeSlave.clitPiercing != 3>> - <br> - 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>> - <br> - $He already has a smart piercing! + <<if ($activeSlave.vagina != -1) || ($activeSlave.dick != 0)>> + <<if $activeSlave.clitPiercing != 3>> + <br> + 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>> + <br> + $He already has a smart piercing! + <</if>> <</if>> <</if>> -<</if>> <<if $piercingLevel == 0>> -<br> -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($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.nosePiercing > 0>> | [[Nose|Body Modification][$activeSlave.nosePiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.eyebrowPiercing > 0>> | [[Eyebrow|Body Modification][$activeSlave.eyebrowPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.lipsPiercing > 0>> | [[Lips|Body Modification][$activeSlave.lipsPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.tonguePiercing > 0>> | [[Tongue|Body Modification][$activeSlave.tonguePiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.nipplesPiercing > 0>> | [[Nipples|Body Modification][$activeSlave.nipplesPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.areolaePiercing > 0>> | [[Areolae|Body Modification][$activeSlave.areolaePiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.corsetPiercing > 0>> | [[Corset|Body Modification][$activeSlave.corsetPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.navelPiercing > 0>> | [[Navel|Body Modification][$activeSlave.navelPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.vagina != -1>> - <<if $activeSlave.clitPiercing > 0>> | [[Clit|Body Modification][$activeSlave.clitPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<else>> - <<if $activeSlave.clitPiercing > 0>> | [[Dickhead|Body Modification][$activeSlave.clitPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<</if>> -<<if $activeSlave.vaginaPiercing > 0>> | [[Vagina|Body Modification][$activeSlave.vaginaPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.dickPiercing > 0>> | [[Dick|Body Modification][$activeSlave.dickPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> -<<if $activeSlave.anusPiercing > 0>> | [[Anus|Body Modification][$activeSlave.anusPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <br> + 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($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.nosePiercing > 0>> | [[Nose|Body Modification][$activeSlave.nosePiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.eyebrowPiercing > 0>> | [[Eyebrow|Body Modification][$activeSlave.eyebrowPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.lipsPiercing > 0>> | [[Lips|Body Modification][$activeSlave.lipsPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.tonguePiercing > 0>> | [[Tongue|Body Modification][$activeSlave.tonguePiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.nipplesPiercing > 0>> | [[Nipples|Body Modification][$activeSlave.nipplesPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.areolaePiercing > 0>> | [[Areolae|Body Modification][$activeSlave.areolaePiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.corsetPiercing > 0>> | [[Corset|Body Modification][$activeSlave.corsetPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.navelPiercing > 0>> | [[Navel|Body Modification][$activeSlave.navelPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.vagina != -1>> + <<if $activeSlave.clitPiercing > 0>> | [[Clit|Body Modification][$activeSlave.clitPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<else>> + <<if $activeSlave.clitPiercing > 0>> | [[Dickhead|Body Modification][$activeSlave.clitPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <</if>> + <<if $activeSlave.vaginaPiercing > 0>> | [[Vagina|Body Modification][$activeSlave.vaginaPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.dickPiercing > 0>> | [[Dick|Body Modification][$activeSlave.dickPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> + <<if $activeSlave.anusPiercing > 0>> | [[Anus|Body Modification][$activeSlave.anusPiercing = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>> <</if>> <br><br> @@ -596,7 +569,7 @@ Tattoos: <br> Choose a tattoo style: -/* If/else is here so a "highlighted" option is never a link. */ +/* 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>> @@ -633,91 +606,91 @@ Choose a tattoo style: <</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>> + <<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.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.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.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 $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>> - <<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 ($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.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.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.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 $activeSlave.stampTat != $tattooChoice>> + <<set $activeSlave.stampTat = $tattooChoice>> + <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>> + <<set _degradationTemp += 1>> + <</if>> - <<if !["tribal patterns", "flowers", "paternalist", 0].includes($tattooChoice)>> - <<set $degradation += _degradationTemp>> - <</if>> + <<if !["tribal patterns", "flowers", "paternalist", 0].includes($tattooChoice)>> + <<set $degradation += _degradationTemp>> + <</if>> - <<goto "Body Modification">> - <</link>> + <<goto "Body Modification">> + <</link>> <</if>> <<if $tattooChoice == 0>>