From 4ee7cf503f7fcc1110ce67cfe90ce4ce1d547143 Mon Sep 17 00:00:00 2001
From: Svornost <11434-svornost@users.noreply.gitgud.io>
Date: Sat, 1 Feb 2020 22:24:13 -0800
Subject: [PATCH] Rework pierce/tattoo reactions
---
src/js/modification.js | 404 +++++++++++++++++-
src/uncategorized/bodyModification.tw | 540 ++++++------------------
src/uncategorized/incrementPiercings.tw | 87 ----
3 files changed, 525 insertions(+), 506 deletions(-)
delete mode 100644 src/uncategorized/incrementPiercings.tw
diff --git a/src/js/modification.js b/src/js/modification.js
index fb296a7a184..8395922af6a 100644
--- a/src/js/modification.js
+++ b/src/js/modification.js
@@ -5,7 +5,7 @@ App.Medicine.Modification = {};
* @param {App.Entity.SlaveState} slave
* @param {string} scar
* @param {string} design
- * @param {string} weight
+ * @param {number} weight
*/
App.Medicine.Modification.addScar = function(slave, scar, design, weight) {
/*
@@ -63,7 +63,7 @@ App.Medicine.Modification.removeScar = function(slave, scar, design) {
/**
* Slave is whipped over the entire body, and strains in manacles so much that the wrists and ankles scar if present.
* @param {App.Entity.SlaveState} slave
- * @param {string} weight
+ * @param {number} weight
*/
App.Medicine.Modification.addScourged = function(slave, weight) {
let scarArray = ["left breast", "right breast", "back", "lower back", "left buttock", "right buttock"];
@@ -159,3 +159,403 @@ App.Medicine.Modification.addBulkScars = function(slave, location, type, weight)
}
};
+/**
+ * Adds a piercing to a slave.
+ * @param {App.Entity.SlaveState} slave
+ * @param {string} location
+ * @param {number} weight
+ * @returns {string} slave reaction
+ */
+App.Medicine.Modification.setPiercing = function(slave, location, weight) {
+ cashX(forceNeg(V.modCost), "slaveMod", slave);
+
+ // reaction
+ const {He, he, His, his, him} = getPronouns(slave);
+ const delta = weight - slave[`${location}Piercing`];
+ let r = ` `;
+ if (location === "tongue") {
+ if (slave.fetishKnown && slave.fetish === "cumslut" && slave.fetishStrength > 10) {
+ r += `Since ${he}'s an oral whore, ${he}'s `;
+ if (delta > 0) {
+ if (weight > 1) {
+ r += `<span class="devotion inc">very happy</span> you took the time to personally pierce ${his} tongue so heavily. `;
+ } else {
+ r += `<span class="devotion inc">happy</span> to get a tongue piercing from you personally. `;
+ }
+ r += `After all, ${he}'s pretty sure it's a sign there will be plenty of ${V.PC.dick > 0 ? `dick for ${him} to suck` : `pussy for ${him} to eat`} in the future. `;
+ slave.devotion += 2 * delta;
+ } else if (slave.devotion <= 95) {
+ r += `<span class="devotion dec">saddened</span> you decided to take out ${his} tongue piercings. ${He}'s afraid this means something about ${his} future as a suck slut. `;
+ slave.devotion += 2 * delta;
+ } else {
+ r += `disapointed to lose ${his} tongue piercings, but accepts your will for ${his} body. `;
+ }
+ }
+ if (slave.sexualFlaw === "hates oral" && weight > 0) {
+ r += `${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. `;
+ }
+ } else if (location === "nipples" || location === "areolae") {
+ if (slave.fetishKnown && slave.fetish === "boobs" && slave.fetishStrength > 10) {
+ r += `Since ${he}'s fixated on ${his} boobs, ${he}'s `;
+ if (delta > 0) {
+ if (weight > 1) {
+ r += `<span class="devotion inc">very happy</span> you took the time to personally pierce them so heavily. `;
+ } else {
+ r += `<span class="devotion inc">happy</span> to get them pierced by you personally. `;
+ }
+ r += `As far as ${he}'s concerned, more attention on ${his} tits is always good. `;
+ slave.devotion += 2 * delta;
+ } else if (slave.devotion <= 95) {
+ r += `<span class="devotion dec">saddened</span> you decided to take out ${his} piercings. ${He} doesn't like anything that makes ${his} tits less distinctive. `;
+ slave.devotion += 2 * delta;
+ } else {
+ r += `disapointed to lose ${his} the piercings in ${his} ${location}, but accepts your will for ${his} body. `;
+ }
+ }
+ } else if (location === "corset") {
+ if (slave.fetishKnown && slave.fetish === "masochist" && slave.fetishStrength > 10) {
+ r += `Since ${he}'s a pain whore `;
+ if (delta > 0) {
+ r += `${he} <span class="devotion inc">got off</span> on you giving ${him} a corset piercing personally. ${He} loved the feeling of the metal entering ${his} flesh. `;
+ slave.devotion += 2 * delta;
+ } else if (slave.devotion <= 95) {
+ r += `<span class="devotion dec">saddened</span> you decided to take out ${his} corset piercings. ${He}'ll miss the constant slight discomfort they gave ${him}. `;
+ slave.devotion += 2 * delta;
+ } else {
+ r += `disapointed to lose ${his} corset piercings, but accepts your will for ${his} body. `;
+ }
+ }
+ } else if (location === "vagina") {
+ if (slave.fetishKnown && slave.fetish === "pregnancy" && slave.fetishStrength > 10) {
+ r += `Since ${he}'s a whore for impregnation, ${he}'s `;
+ if (delta > 0) {
+ if (weight > 1) {
+ r += `<span class="devotion inc">very happy</span> you took the time to personally pierce ${his} pussylips so heavily. `;
+ } else {
+ r += `<span class="devotion inc">happy</span> to get pussy piercings from you personally. `;
+ }
+ r += `Like most pregnancy fetishists, ${he}'s a little desperate for dick, and anything that points towards more bareback sex is appealing to ${him}. `;
+ slave.devotion += 2 * delta;
+ } else if (slave.devotion <= 95) {
+ r += `<span class="devotion dec">saddened</span> you decided to take out ${his} pussy piercings. 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. `;
+ slave.devotion += 2 * delta;
+ } else {
+ r += `disapointed to lose ${his} pussy piercings, but accepts your will for ${his} body. `;
+ }
+ }
+ if (slave.sexualFlaw === "hates penetration" && weight > 0) {
+ r += `${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. `;
+ }
+ } else if (location === "dick") {
+ if (slave.fetishKnown && slave.fetish === "pregnancy" && slave.fetishStrength > 10) {
+ r += `Since ${he}'s fixated on using ${his} cock to impregnate other slaves, ${he}'s `;
+ if (delta > 0) {
+ if (weight > 1) {
+ r += `<span class="devotion inc">very happy</span> you took the time to personally stick so much metal into ${his} dick`;
+ if (slave.scrotum > 0) {
+ r += ` and ballsack`;
+ }
+ r += `. `;
+ } else {
+ r += `<span class="devotion inc">happy</span> to get penis piercings from you personally. `;
+ }
+ r += `${He}'s extremely proud of ${his} newly decorated member. `;
+ slave.devotion += 2 * delta;
+ } else if (slave.devotion <= 95) {
+ r += `<span class="devotion dec">saddened</span> you decided to take out ${his} dick piercings. ${He} passionately loves using ${his} penis, and ${he}'s concerned you're planning to let ${him} do less of that. `;
+ slave.devotion += 2 * delta;
+ } else {
+ r += `disapointed to lose ${his} dick piercings, but accepts your will for ${his} body. `;
+ }
+ }
+ } else if (location === "anus") {
+ if (slave.fetishKnown && slave.fetish === "buttslut" && slave.fetishStrength > 10) {
+ r += `Since ${he}'s an anal slut, ${he}'s `;
+ if (delta > 0) {
+ if (weight > 1) {
+ r += `<span class="devotion inc">very happy</span> you took the time to personally pierce the entire area around ${his} whorish asspussy. `;
+ } else {
+ r += `<span class="devotion inc">happy</span> to get a piercing next to ${his} favorite hole from you personally. `;
+ }
+ r += `${He} can't wait to find out how the metal will feel against ${his} butthole when ${he} moves around. `;
+ slave.devotion += 2 * delta;
+ } else if (slave.devotion <= 95) {
+ r += `<span class="devotion dec">saddened</span> you decided to take out ${his} backdoor piercings. ${He} will miss the constant anal titillation, and ${he}'s worried this means you're becoming less interested in ${his} butthole. `;
+ slave.devotion += 2 * delta;
+ } else {
+ r += `disapointed to lose ${his} backdoor piercings, but accepts your will for ${his} body. `;
+ }
+ }
+ if (slave.sexualFlaw === "hates anal" && weight > 0) {
+ r += `${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 (slave.genes === "XY" && slave.attrXY <= 35 && ["ear", "lips", "nose", "eyebrow", "navel"].contains(location)) {
+ r += `${His} girly new `;
+ switch (location) {
+ case "ear":
+ r += `pierced ears should help ${him} a little with $his issues about ${his} self-image as a fuckable slave girl. `;
+ break;
+ case "lips":
+ r += `facial piercing, just below ${his} pretty mouth, should help ${him} get used to the idea of it being a warm, wet hole for cocks. `;
+ break;
+ case "nose":
+ r += `nose piercing should make ${his} reflection in the mirror seem just a bit more fuckably feminine to ${him}. `;
+ break;
+ case "navel":
+ r += `navel piercing should help ${him} see ${his} naked body in a submissively sexual way, especially as ${he} turns to hide it and present ${his} asspussy. `;
+ break;
+ case "eyebrow":
+ r += `facial piercing should help destroy ${his} vestiges of sexual identity outside of ${his} life as a hole for cocks. `;
+ break;
+ default:
+ r += `set of slutty facial piercings should help ${him} get used to the idea of being a girly slave meant to please dicks. `; /* impossible, but I'm leaving the text anyway */
+ }
+ if (slave.devotion < -20) {
+ r += `Unfortunately, that positive effect will have to wait until ${he}'s a little less resistant to the idea of being a sex slave. `;
+ }
+ }
+
+ slave[`${location}Piercing`] = weight;
+ return r;
+};
+
+/**
+ * Adds a tattoo to a slave.
+ * @param {App.Entity.SlaveState} slave
+ * @param {string} location
+ * @param {string|number} design (0 removes)
+ * @returns {string} slave reaction
+ */
+App.Medicine.Modification.setTattoo = function(slave, location, design) {
+ cashX(forceNeg(V.modCost), "slaveMod", slave);
+
+ // reaction
+ const {He, he, His, his, him} = getPronouns(slave);
+ Enunciate(slave); // TODO: it'd be nice to return a deconstructable object from Enunciate like we do from getPronouns...
+ const s = V.sEnunciate;
+ const ss = V.sEnunciate;
+ const x = V.xEnunciate;
+ const c = V.cEnunciate;
+ const Master = V.titleEnunciate;
+ const say = V.sayEnunciate;
+ let r = ` `;
+ if (location === "anus" && design !== 0) {
+ if (canSee(slave) && canTalk(slave)) {
+ const anus = (function(s) {
+ if (s.anus > 3) {
+ return "anal gape";
+ } else if (s.anus === 3) {
+ return "relaxed asspussy";
+ } else if (s.anus === 2) {
+ return "soft butthole";
+ } else {
+ return "tight butthole";
+ }
+ })(slave);
+
+ if (design === "bleached") {
+ r += `${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 {
+ r += `${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 (slave.butt > 5) {
+ r += `${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 (slave.fetishKnown && slave.fetish === "buttslut") {
+ switch (design) {
+ case "bleached":
+ r += `${He} giggles at ${his} crinkled fuckhole's clean, fuckable appearance, and starts squeezing ${his} sphincter muscles experimentally. "Thank you, ${Master}," ${he} gasps, flushing.`;
+ break;
+ case "flowers":
+ case "tribal patterns":
+ r += `${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."`;
+ break;
+ case "advertisements":
+ r += `${He} stares, ${his} mouth working as ${he} spells out `;
+ if (slave.vagina > -1) {
+ r += `'Fucktoy's Favorite Fuckhole.' ${He} smiles naughtily. "${Master}, it sure i${s}, `;
+ } else {
+ r += `'Spit First.' ${He} smiles naughtily. "${Master}, that work${s} for me. Lube'${s} good too. Or, um, dry'${s} fine too," `;
+ }
+ r += `${he} giggles.`;
+ break;
+ case "rude words":
+ r += `$He stares, $his mouth working as $he spells out `;
+ if ($activeSlave.vagina > -1) {
+ r += `'Fucktoy's Favorite Fuckhole.' ${He} smiles naughtily. "${Master}, it sure i${s}, `;
+ } else {
+ r += `'Sissy Slut's Sodomy Slit.' ${He} smiles naughtily. "${Master}, I love it when you fuck my lewd butt ${s}lit," `;
+ }
+ r += `${he} giggles.`;
+ break;
+ case "sacrilege":
+ r += `${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."`;
+ break;
+ case "sacrament":
+ r += `${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."`;
+ break;
+ case "degradation":
+ r += `${He} stares, ${his} mouth working as ${he} spells out '${WrittenMaster(slave)} Made Me An Anal Slut.' ${He} smiles naughtily. "Oh ${Master}, you did," ${he} ${say}s gratefully. "And I love you for it."`;
+ break;
+ case "counting":
+ r += `${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.`;
+ break;
+ case "bovine patterns":
+ r += `${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.`;
+ break;
+ case "possessive":
+ r += `${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."`;
+ break;
+ case "paternalist":
+ r += `${He} stares, ${his} mouth working as ${he} spells out '${WrittenMaster(slave)} 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!"`;
+ break;
+ default:
+ r += `${He} smiles, pleased at the attention ${his} ${anus} is getting.`;
+ }
+ } else if (slave.devotion > 50) {
+ switch (design) {
+ case "bleached":
+ r += `${He} gasps at how closely the crinkled skin around ${his} anal opening matches the rest of ${his} ${slave.skin} body. "Oh, it'${s} ${s}o beautiful! Thank you, ${Master}, thank you," ${he} exclaims lovingly.`;
+ break;
+ case "flowers":
+ case "tribal patterns":
+ r += `${He} gasps at the beautiful design. "It'${s} ${s}o pretty, ${Master}," $he ${say}s. "Thank you. I love you ${s}o much!"`;
+ break;
+ case "advertisements":
+ case "degradation":
+ case "paternalist":
+ case "possessive":
+ case "rude words":
+ case "sacrament":
+ case "sacrilege":
+ r += `${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."`;
+ break;
+ default:
+ r += `${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."`;
+ }
+ } else if (slave.sexualFlaw === "hates anal") {
+ r += `${He} stares, `;
+ switch (design) {
+ case "bleached":
+ r += `horrified, and then shudders convulsively, but can't look away. `;
+ break;
+ case "flowers":
+ case "tribal patterns":
+ r += `torn between fascination at the intricate design and horror at having ${his} anus permanently tattooed. `;
+ break;
+ case "advertisements":
+ case "degradation":
+ case "paternalist":
+ case "possessive":
+ case "rude words":
+ case "sacrament":
+ case "sacrilege":
+ r += `${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. `;
+ break;
+ default:
+ r += `lower lip quivering. `;
+ }
+ r += `${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."`;
+ } else if (slave.devotion > 20) {
+ r += `${He} stares, `;
+ switch (design) {
+ case "bleached":
+ r += `fascinated. $He doesn't seem sure what to make of this. `;
+ break;
+ case "flowers":
+ case "tribal patterns":
+ r += `torn between admiration at the intricate design and realization that ${his} anus has been permanently tattooed. `;
+ break;
+ case "advertisements":
+ case "degradation":
+ case "paternalist":
+ case "possessive":
+ case "rude words":
+ case "sacrament":
+ case "sacrilege":
+ r += `${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. `;
+ break;
+ default:
+ r += `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. `;
+ }
+ r += `"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.`;
+ } else if (slave.trust < -20) {
+ r += `${He} stares, `;
+ switch (design) {
+ case "bleached":
+ r += `trying to process the appearance of what must seem like an unnaturally clean-looking hole. `;
+ break;
+ case "flowers":
+ case "tribal patterns":
+ r += `struggling to process the fact that one of ${his} most intimate areas has been tattooed. Beautifully tattooed, but still." `;
+ break;
+ case "advertisements":
+ case "degradation":
+ case "paternalist":
+ case "possessive":
+ case "rude words":
+ case "sacrament":
+ case "sacrilege":
+ r += `${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. `;
+ break;
+ default:
+ r += `looking sad as the meaning of a permanent display of ${his} status as an anal slave sinks in. `;
+ }
+ r += `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 (design) {
+ case "bleached":
+ r += `${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.`;
+ break;
+ case "flowers":
+ case "tribal patterns":
+ r += `${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!"`;
+ break;
+ case "advertisements":
+ r += `${He} stares, ${his} mouth working as ${he} spells out `;
+ if ($activeSlave.vagina > -1) {
+ r += `'Second Pussy.' ${His} face darkens. "No it'${s} not," ${he} bursts out. "Anal is dirty."`;
+ } else {
+ r += `'Spit First.' ${His} face darkens. "Gro${ss}," ${he} bursts out. "Gro${ss} and wrong!"`;
+ }
+ break;
+ case "rude words":
+ r += `${He} stares, ${his} mouth working as ${he} spells out `;
+ if ($activeSlave.vagina > -1) {
+ r += `'Fucktoy's Favorite Fuckhole.' ${His} face darkens. "No it'${s} not," ${he} bursts out. "It'${s} my a${ss}!"`;
+ } else {
+ r += `'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 ${s}lit!" Those are debatable, but they can all change, of course.`;
+ }
+ break;
+ case "sacrament":
+ case "sacrilege":
+ r += `${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.`;
+ break;
+ case "degradation":
+ r += `${He} stares, ${his} mouth working as ${he} spells out '${WrittenMaster(slave)} Made Me An Anal Slut.' ${His} face darkens. "No I'm not," ${he} bursts out. That remains to be seen.`;
+ break;
+ case "counting":
+ r += `${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}."`;
+ break;
+ case "bovine patterns":
+ r += `${He} stares at ${his} new cow's anus. "Fucking gro${ss}," ${he} bursts out. "I'm not an animal." That remains to be seen.`;
+ break;
+ case "possessive":
+ r += `${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.`;
+ break;
+ case "paternalist":
+ r += `${He} stares, ${his} mouth working as ${he} spells out '${WrittenMaster(slave)} Helped Me Love Anal.' "I don't," ${he} bursts out. "It'${s} fucking gro${ss}."`;
+ break;
+ default:
+ r += `${He} stares, horrified that you have defaced ${his} body in this way.`;
+ }
+ }
+ }
+ }
+ // TODO: maybe some reactions for other kinds of tattoos would be nice too?
+
+ slave[`${location}Tat`] = design;
+ return r;
+};
diff --git a/src/uncategorized/bodyModification.tw b/src/uncategorized/bodyModification.tw
index d4e995c66be..0179e15edb2 100644
--- a/src/uncategorized/bodyModification.tw
+++ b/src/uncategorized/bodyModification.tw
@@ -12,7 +12,7 @@
<div style="padding-bottom:2em">
<<= SlaveFullName($activeSlave)>> is lying strapped down on the table in your body modification studio. $He is entirely at your mercy.
-<<if $brandApplied || $degradation || $scarApplied>>
+<<if $brandApplied || $degradation || $scarApplied || $modReaction>>
<<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>>
@@ -105,279 +105,14 @@
<<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>>
+ <<set $activeSlave.devotion += 2>>
<</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 $modReaction>>
+ <<print $modReaction>>
+ <<unset $modReaction>>
<</if>>
<</if>>
<</if>>
@@ -438,112 +173,114 @@ Choose piercing style:
//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>>
+ <<set $modReaction = "">>
+ <<if $activeSlave.earPiercing != 1>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "ear", 1)>><</if>>
+ <<if $activeSlave.nosePiercing != 1>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "nose", 1)>><</if>>
+ <<if $activeSlave.eyebrowPiercing != 1>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "eyebrow", 1)>><</if>>
+ <<if $activeSlave.lipsPiercing != 1>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "lips", 1)>><</if>>
+ <<if $activeSlave.tonguePiercing != 1>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "tongue", 1)>><</if>>
<<if $activeSlave.nipples != "fuckable">>
- <<if $activeSlave.nipplesPiercing != 1>><<set $activeSlave.nipplesPiercing = 1>><<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
+ <<if $activeSlave.nipplesPiercing != 1>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "nipples", 1)>><</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>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "areolae", 1)>><</if>>
+ <<if $activeSlave.corsetPiercing != 1>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "corset", 1)>><</if>>
+ <<if $activeSlave.navelPiercing != 1>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "navel", 1)>><</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.clitPiercing != 1>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "clit", 1)>><</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>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "vagina", 1)>><</if>>
<</if>>
<<if ($activeSlave.dick > 0)>>
- <<if $activeSlave.dickPiercing != 1>><<set $activeSlave.dickPiercing = 1>> <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
+ <<if $activeSlave.dickPiercing != 1>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "dick", 1)>><</if>>
<</if>>
- <<if $activeSlave.anusPiercing != 1>><<set $activeSlave.anusPiercing = 1>> <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
+ <<if $activeSlave.anusPiercing != 1>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "anus", 1)>><</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.earPiercing != 1>> | [[Ear|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "ear", 1)]]<</if>>
+ <<if $activeSlave.nosePiercing != 1>> | [[Nose|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "nose", 1)]]<</if>>
+ <<if $activeSlave.eyebrowPiercing != 1>> | [[Eyebrow|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "eyebrow", 1)]]<</if>>
+ <<if $activeSlave.lipsPiercing != 1>> | [[Lips|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "lips", 1)]]<</if>>
+ <<if $activeSlave.tonguePiercing != 1>> | [[Tongue|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "tongue", 1)]]<</if>>
<<if $activeSlave.nipples != "fuckable">>
- <<if $activeSlave.nipplesPiercing != 1>> | [[Nipples|Body Modification][$activeSlave.nipplesPiercing = 1, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
+ <<if $activeSlave.nipplesPiercing != 1>> | [[Nipples|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "nipples", 1)]]<</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.areolaePiercing != 1>> | [[Areolae|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "areolae", 1)]]<</if>>
+ <<if $activeSlave.corsetPiercing != 1>> | [[Corset|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "corset", 1)]]<</if>>
+ <<if $activeSlave.navelPiercing != 1>> | [[Navel|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "navel", 1)]]<</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>>
+ <<if $activeSlave.clitPiercing != 1>> | [[Clit|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "clit", 1)]]<</if>>
<<else>>
- <<if $activeSlave.clitPiercing != 1>> | [[Dickhead|Body Modification][$activeSlave.clitPiercing = 1, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
+ <<if $activeSlave.clitPiercing != 1>> | [[Dickhead|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "clit", 1)]]<</if>>
<</if>>
<</if>>
<<if ($activeSlave.vagina != -1)>>
- <<if $activeSlave.vaginaPiercing != 1>> | [[Vagina|Body Modification][$activeSlave.vaginaPiercing = 1, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
+ <<if $activeSlave.vaginaPiercing != 1>> | [[Vagina|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "vagina", 1)]]<</if>>
<</if>>
<<if ($activeSlave.dick > 0)>>
- <<if $activeSlave.dickPiercing != 1>> | [[Dick|Body Modification][$activeSlave.dickPiercing = 1, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
+ <<if $activeSlave.dickPiercing != 1>> | [[Dick|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "dick", 1)]]<</if>>
<</if>>
- <<if $activeSlave.anusPiercing != 1>> | [[Anus|Body Modification][$activeSlave.anusPiercing = 1, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
+ <<if $activeSlave.anusPiercing != 1>> | [[Anus|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "anus", 1)]]<</if>>
<<elseif $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>>
+ <<set $modReaction = "">>
+ <<if $activeSlave.earPiercing != 2>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "ear", 2), $degradation += 1>><</if>>
+ <<if $activeSlave.nosePiercing != 2>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "nose", 2), $degradation += 1>><</if>>
+ <<if $activeSlave.eyebrowPiercing != 2>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "eyebrow", 2), $degradation += 1>><</if>>
+ <<if $activeSlave.lipsPiercing != 2>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "lips", 2), $degradation += 1>><</if>>
+ <<if $activeSlave.tonguePiercing != 2>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "tongue", 2), $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 $activeSlave.nipplesPiercing != 2>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "nipples", 2), $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.areolaePiercing != 2>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "areolae", 2), $degradation += 1>><</if>>
+ <<if $activeSlave.corsetPiercing != 2>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "corset", 2), $degradation += 1>><</if>>
+ <<if $activeSlave.navelPiercing != 2>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "navel", 2), $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 $activeSlave.clitPiercing != 2>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "clit", 2), $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 $activeSlave.vaginaPiercing != 2>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "vagina", 2), $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 $activeSlave.dickPiercing != 2>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "dick", 2), $degradation += 1>><</if>>
<</if>>
- <<if $activeSlave.anusPiercing != 2>><<set $activeSlave.anusPiercing = 2>> <<set cashX(forceNeg($modCost), "slaveMod", $activeSlave), $degradation += 1>><</if>>
+ <<if $activeSlave.anusPiercing != 2>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "anus", 2), $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.earPiercing != 2>> | [[Ear|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "ear", 2),$degradation += 1]]<</if>>
+ <<if $activeSlave.nosePiercing != 2>> | [[Nose|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "nose", 2),$degradation += 1]]<</if>>
+ <<if $activeSlave.eyebrowPiercing != 2>> | [[Eyebrow|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "eyebrow", 2),$degradation += 1]]<</if>>
+ <<if $activeSlave.lipsPiercing != 2>> | [[Lips|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "lips", 2),$degradation += 1]]<</if>>
+ <<if $activeSlave.tonguePiercing != 2>> | [[Tongue|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "tongue", 2),$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 $activeSlave.nipplesPiercing != 2>> | [[Nipples|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "nipples", 2),$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.areolaePiercing != 2>> | [[Areolae|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "areolae", 2),$degradation += 1]]<</if>>
+ <<if $activeSlave.corsetPiercing != 2>> | [[Corset|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "corset", 2),$degradation += 1]]<</if>>
+ <<if $activeSlave.navelPiercing != 2>> | [[Navel|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "navel", 2),$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>>
+ <<if $activeSlave.clitPiercing != 2>> | [[Clit|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "clit", 2),$degradation += 1]]<</if>>
<<else>>
- <<if $activeSlave.clitPiercing != 2>> | [[Dickhead|Body Modification][$activeSlave.clitPiercing = 2, cashX(forceNeg($modCost), "slaveMod", $activeSlave),$degradation += 1]]<</if>>
+ <<if $activeSlave.clitPiercing != 2>> | [[Dickhead|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "clit", 2),$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 $activeSlave.vaginaPiercing != 2>> | [[Vagina|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "vagina", 2),$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 $activeSlave.dickPiercing != 2>> | [[Dick|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "dick", 2),$degradation += 1]]<</if>>
<</if>>
- <<if $activeSlave.anusPiercing != 2>> | [[Anus|Body Modification][$activeSlave.anusPiercing = 2, cashX(forceNeg($modCost), "slaveMod", $activeSlave),$degradation += 1]]<</if>>
+ <<if $activeSlave.anusPiercing != 2>> | [[Anus|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "anus", 2),$degradation += 1]]<</if>>
<<elseif $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//
+ Give $him a [[smart piercing?|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "clit", 3),$activeSlave.clitSetting = "all",$degradation += 1]] //Costs <<print cashFormat($SPcost)>>, unlocks options to mold sexuality//
<<else>>
$He already has a smart piercing!
<</if>>
@@ -553,40 +290,40 @@ Choose piercing style:
/* 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>>
+ <<set $modReaction = "">>
+ <<if $activeSlave.earPiercing > 0>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "ear", 0)>><</if>>
+ <<if $activeSlave.nosePiercing > 0>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "nose", 0)>><</if>>
+ <<if $activeSlave.eyebrowPiercing > 0>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "eyebrow", 0)>><</if>>
+ <<if $activeSlave.lipsPiercing > 0>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "lips", 0)>><</if>>
+ <<if $activeSlave.tonguePiercing > 0>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "tongue", 0)>><</if>>
+ <<if $activeSlave.nipplesPiercing > 0>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "nipples", 0)>><</if>>
+ <<if $activeSlave.areolaePiercing > 0>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "areolae", 0)>><</if>>
+ <<if $activeSlave.corsetPiercing > 0>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "corset", 0)>><</if>>
+ <<if $activeSlave.navelPiercing > 0>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "navel", 0)>><</if>>
+ <<if $activeSlave.clitPiercing > 0>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "clit", 0)>><</if>>
+ <<if $activeSlave.vaginaPiercing > 0>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "vagina", 0)>><</if>>
+ <<if $activeSlave.dickPiercing > 0>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "dick", 0)>><</if>>
+ <<if $activeSlave.anusPiercing > 0>><<set $modReaction += App.Medicine.Modification.setPiercing($activeSlave, "anus", 0)>><</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.earPiercing > 0>> | [[Ear|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "ear", 0)]]<</if>>
+ <<if $activeSlave.nosePiercing > 0>> | [[Nose|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "nose", 0)]]<</if>>
+ <<if $activeSlave.eyebrowPiercing > 0>> | [[Eyebrow|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "eyebrow", 0)]]<</if>>
+ <<if $activeSlave.lipsPiercing > 0>> | [[Lips|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "lips", 0)]]<</if>>
+ <<if $activeSlave.tonguePiercing > 0>> | [[Tongue|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "tongue", 0)]]<</if>>
+ <<if $activeSlave.nipplesPiercing > 0>> | [[Nipples|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "nipples", 0)]]<</if>>
+ <<if $activeSlave.areolaePiercing > 0>> | [[Areolae|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "areolae", 0)]]<</if>>
+ <<if $activeSlave.corsetPiercing > 0>> | [[Corset|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "corset", 0)]]<</if>>
+ <<if $activeSlave.navelPiercing > 0>> | [[Navel|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "navel", 0)]]<</if>>
<<if $activeSlave.vagina != -1>>
- <<if $activeSlave.clitPiercing > 0>> | [[Clit|Body Modification][$activeSlave.clitPiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
+ <<if $activeSlave.clitPiercing > 0>> | [[Clit|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "clit", 0)]]<</if>>
<<else>>
- <<if $activeSlave.clitPiercing > 0>> | [[Dickhead|Body Modification][$activeSlave.clitPiercing = 0, cashX(forceNeg($modCost), "slaveMod", $activeSlave)]]<</if>>
+ <<if $activeSlave.clitPiercing > 0>> | [[Dickhead|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "clit", 0)]]<</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 $activeSlave.vaginaPiercing > 0>> | [[Vagina|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "vagina", 0)]]<</if>>
+ <<if $activeSlave.dickPiercing > 0>> | [[Dick|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "dick", 0)]]<</if>>
+ <<if $activeSlave.anusPiercing > 0>> | [[Anus|Body Modification][$modReaction = App.Medicine.Modification.setPiercing($activeSlave, "anus", 0)]]<</if>>
<</if>>
</div>
</div> /* indent */
@@ -628,7 +365,7 @@ Choose a tattoo style:
<<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 $tattooChoice != "bleached">>| [[Bleach|Body Modification][$tattooChoice = "bleached"]]<<else>>| Bleach<</if>>
<</if>>
<<if _hasTat == 1>>
@@ -650,83 +387,70 @@ Choose a tattoo style:
<<if ($tattooChoice != "bleached") && ($tattooChoice != "permanent makeup")>>
<<link "Entire body">>
- <<set _degradationTemp = 0>>
+ <<set _degradationTemp = 0, $modReaction = "">>
<<if $activeSlave.boobsTat != $tattooChoice>>
- <<set $activeSlave.boobsTat = $tattooChoice>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
+ <<set $modReaction += App.Medicine.Modification.setTattoo($activeSlave, "boobs", $tattooChoice)>>
<<set _degradationTemp += 1>>
<</if>>
<<if $activeSlave.buttTat != $tattooChoice>>
- <<set $activeSlave.buttTat = $tattooChoice>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
+ <<set $modReaction += App.Medicine.Modification.setTattoo($activeSlave, "butt", $tattooChoice)>>
<<set _degradationTemp += 1>>
<</if>>
<<if $activeSlave.vaginaTat != $tattooChoice>>
- <<set $activeSlave.vaginaTat = $tattooChoice>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
+ <<set $modReaction += App.Medicine.Modification.setTattoo($activeSlave, "vagina", $tattooChoice)>>
<<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 $modReaction += App.Medicine.Modification.setTattoo($activeSlave, "dick", $tattooChoice)>>
<<set _degradationTemp += 1>>
<</if>>
<</if>>
<<if $activeSlave.lipsTat != $tattooChoice>>
<<if $tattooChoice == "scenes">>
- <<set $activeSlave.lipsTat = "permanent makeup">>
+ <<set $modReaction += App.Medicine.Modification.setTattoo($activeSlave, "lips", "permanent makeup")>>
<<else>>
- <<set $activeSlave.lipsTat = $tattooChoice>>
+ <<set $modReaction += App.Medicine.Modification.setTattoo($activeSlave, "lips", $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>>
+ /* leave existing bleached anus alone */
<<elseif $activeSlave.anusTat != $tattooChoice>>
- <<set $activeSlave.anusTat = $tattooChoice>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
+ <<set $modReaction += App.Medicine.Modification.setTattoo($activeSlave, "anus", $tattooChoice)>>
<<set _degradationTemp += 1>>
<</if>>
<<if $activeSlave.shouldersTat != $tattooChoice>>
- <<set $activeSlave.shouldersTat = $tattooChoice>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
+ <<set $modReaction += App.Medicine.Modification.setTattoo($activeSlave, "shoulders", $tattooChoice)>>
<<set _degradationTemp += 1>>
<</if>>
<<if $activeSlave.backTat != $tattooChoice>>
- <<set $activeSlave.backTat = $tattooChoice>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
+ <<set $modReaction += App.Medicine.Modification.setTattoo($activeSlave, "back", $tattooChoice)>>
<<set _degradationTemp += 1>>
<</if>>
<<if hasAnyNaturalArms($activeSlave)>>
<<if $activeSlave.armsTat != $tattooChoice>>
- <<set $activeSlave.armsTat = $tattooChoice>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
+ <<set $modReaction += App.Medicine.Modification.setTattoo($activeSlave, "arms", $tattooChoice)>>
<<set _degradationTemp += 1>>
<</if>>
<</if>>
<<if hasAnyNaturalLegs($activeSlave)>>
<<if $activeSlave.legsTat != $tattooChoice>>
- <<set $activeSlave.legsTat = $tattooChoice>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
+ <<set $modReaction += App.Medicine.Modification.setTattoo($activeSlave, "legs", $tattooChoice)>>
<<set _degradationTemp += 1>>
<</if>>
<</if>>
<<if $activeSlave.stampTat != $tattooChoice>>
- <<set $activeSlave.stampTat = $tattooChoice>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
+ <<set $modReaction += App.Medicine.Modification.setTattoo($activeSlave, "stamp", $tattooChoice)>>
<<set _degradationTemp += 1>>
<</if>>
@@ -738,49 +462,31 @@ Choose a tattoo style:
<</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 hasAnyNaturalArms($activeSlave)>>
- <<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 hasAnyNaturalLegs($activeSlave)>>
- <<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)]]
+ <<if $tattooChoice == "permanent makeup">>
+ [[Face|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "lips", $tattooChoice)]]
<<elseif $tattooChoice == "bleached">>
- [[Asshole|Body Modification][$activeSlave.anusTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+ [[Asshole|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "anus", $tattooChoice)]]
<<else>>
- <<if $activeSlave.shouldersTat != $tattooChoice>> | [[Shoulders|Body Modification][$activeSlave.shouldersTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+ <<if $activeSlave.shouldersTat != $tattooChoice>> | [[Shoulders|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "shoulders", $tattooChoice)]]<</if>>
<<if $tattooChoice != "scenes">>
- <<if $activeSlave.lipsTat != $tattooChoice>> | [[Face|Body Modification][$activeSlave.lipsTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+ <<if $activeSlave.lipsTat != $tattooChoice>> | [[Face|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "lips", $tattooChoice)]]<</if>>
<</if>>
- <<if $activeSlave.boobsTat != $tattooChoice>> | [[Boobs|Body Modification][$activeSlave.boobsTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+ <<if $activeSlave.boobsTat != $tattooChoice>> | [[Boobs|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "boobs", $tattooChoice)]]<</if>>
<<if hasAnyNaturalArms($activeSlave)>>
- <<if $activeSlave.armsTat != $tattooChoice>> | [[Arms|Body Modification][$activeSlave.armsTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+ <<if $activeSlave.armsTat != $tattooChoice>> | [[Arms|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "arms", $tattooChoice)]]<</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.backTat != $tattooChoice>> | [[Upper back|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "back", $tattooChoice)]]<</if>>
+ <<if $activeSlave.stampTat != $tattooChoice>> | [[Lower back|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "stamp", $tattooChoice)]]<</if>>
+ <<if $activeSlave.buttTat != $tattooChoice>> | [[Buttock|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "butt", $tattooChoice)]]<</if>>
+ <<if $activeSlave.vaginaTat != $tattooChoice>> | [[Vagina|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "vagina", $tattooChoice)]]<</if>>
<<if $activeSlave.dick > 0 && $tattooChoice != "scenes">>
- <<if $activeSlave.dickTat != $tattooChoice>> | [[Dick|Body Modification][$activeSlave.dickTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+ <<if $activeSlave.dickTat != $tattooChoice>> | [[Dick|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "dick", $tattooChoice)]]<</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 $activeSlave.anusTat != $tattooChoice>> | [[Anus|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "anus", $tattooChoice)]]<</if>>
<</if>>
<<if hasAnyNaturalLegs($activeSlave)>>
- <<if $activeSlave.legsTat != $tattooChoice>> | [[Legs|Body Modification][$activeSlave.legsTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+ <<if $activeSlave.legsTat != $tattooChoice>> | [[Legs|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "legs", $tattooChoice)]]<</if>>
<</if>>
<</if>>
<</if>>
@@ -795,13 +501,13 @@ Choose a tattoo style:
<</if>>
<<if $activeSlave.bellyTat == 0>>
<div>
- [[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]]
+ [[Heart|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "belly", "a heart")]]
+ | [[Star|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "belly", "a star")]]
+ | [[Butterfly|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "belly", "a butterfly")]]
</div>
<</if>>
<<if $activeSlave.bellyTat != 0>>
- //[[Remove tattoos|Body Modification][$activeSlave.bellyTat = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]//
+ //[[Remove tattoos|Body Modification][$modReaction = App.Medicine.Modification.setTattoo($activeSlave, "belly", 0)]]//
<</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.
diff --git a/src/uncategorized/incrementPiercings.tw b/src/uncategorized/incrementPiercings.tw
deleted file mode 100644
index 63cf9876d9d..00000000000
--- a/src/uncategorized/incrementPiercings.tw
+++ /dev/null
@@ -1,87 +0,0 @@
-:: Increment Piercings
-
-<<if $activeSlave.nipples != "fuckable">>
- <<if $activeSlave.nipplesPiercing < 2>>
- <<set $activeSlave.nipplesPiercing += 1>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
- <<set $degradation += 1>>
- <</if>>
-<</if>>
-
-<<if $activeSlave.clitPiercing < 2>>
- <<set $activeSlave.clitPiercing += 1>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
- <<set $degradation += 1>>
-<</if>>
-
-<<if $activeSlave.vagina != -1>>
- <<if $activeSlave.vaginaPiercing < 2>>
- <<set $activeSlave.vaginaPiercing += 1>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
- <<set $degradation += 1>>
- <</if>>
-<</if>>
-
-<<if $activeSlave.dick > 0>>
- <<if $activeSlave.dickPiercing < 2>>
- <<set $activeSlave.dickPiercing += 1>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
- <<set $degradation += 1>>
- <</if>>
-<</if>>
-
-<<if $activeSlave.anusPiercing < 2>>
- <<set $activeSlave.anusPiercing += 1>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
- <<set $degradation += 1>>
-<</if>>
-
-<<if $activeSlave.lipsPiercing < 2>>
- <<set $activeSlave.lipsPiercing += 1>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
- <<set $degradation += 1>>
-<</if>>
-
-<<if $activeSlave.tonguePiercing < 2>>
- <<set $activeSlave.tonguePiercing += 1>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
- <<set $degradation += 1>>
-<</if>>
-
-<<if $activeSlave.earPiercing < 2>>
- <<set $activeSlave.earPiercing += 1>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
- <<set $degradation += 1>>
-<</if>>
-
-<<if $activeSlave.nosePiercing < 2>>
- <<set $activeSlave.nosePiercing += 1>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
- <<set $degradation += 1>>
-<</if>>
-
-<<if $activeSlave.eyebrowPiercing < 2>>
- <<set $activeSlave.eyebrowPiercing += 1>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
- <<set $degradation += 1>>
-<</if>>
-
-<<if $activeSlave.navelPiercing < 2>>
- <<set $activeSlave.navelPiercing += 1>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
- <<set $degradation += 1>>
-<</if>>
-
-<<if $activeSlave.areolaePiercing < 1>>
- <<set $activeSlave.areolaePiercing += 1>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
- <<set $degradation += 1>>
-<</if>>
-
-<<if $activeSlave.corsetPiercing < 1>>
- <<set $activeSlave.corsetPiercing += 1>>
- <<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
- <<set $degradation += 1>>
-<</if>>
-
-<<goto "Body Modification">>
--
GitLab