diff --git a/src/SecExp/attackReport.tw b/src/SecExp/attackReport.tw
index d1d8716a48c2224987d60c25bafa676b853d0c63..ab705ece147ffe147931b980d767b699dad92caa 100644
--- a/src/SecExp/attackReport.tw
+++ b/src/SecExp/attackReport.tw
@@ -742,7 +742,7 @@
 	<<elseif $attackType == "old world">>
 		<<set $rep += 150 * _majorBattleMod>>
 	<</if>>
-	<<set $cash -= $bribeCost>>
+	<<run cashX(forceNeg($bribeCost), "war")>>
 <</if>>
 <<if !isInt($lowerClass)>>
 	<<if isNaN($lowerClass)>>
diff --git a/src/SecExp/seeUnit.tw b/src/SecExp/seeUnit.tw
index 87ad9e17b3123ee9a23dd85b3f6731aafb1584c7..53aa62a667727882e46985a7107d98558192f641 100644
--- a/src/SecExp/seeUnit.tw
+++ b/src/SecExp/seeUnit.tw
@@ -108,7 +108,7 @@
 		<br>
 		<<link "Attach commissars to the unit" "seeUnit">>
 			<<set $militiaUnits[$targetIndex].commissars = 1>>
-			<<set $cash -= $equipUpgradeCost * $militiaUnits[$targetIndex].maxTroops + 1000>>
+			<<run cashX(forceNeg($equipUpgradeCost * $militiaUnits[$targetIndex].maxTroops + 1000), "specialForces")>>
 		<</link>>
 		Attach a small squad of commissars to the unit.
 		<br>//Costs <<print cashFormat(($equipUpgradeCost * $militiaUnits[$targetIndex].maxTroops) + 1000)>> and will slowly increase the loyalty of the unit.//
@@ -116,7 +116,7 @@
 		<br>
 		<<link "Intensive loyalty training" "seeUnit">>
 			<<set $militiaUnits[$targetIndex].commissars += 1>>
-			<<set $cash -= $equipUpgradeCost * $militiaUnits[$targetIndex].maxTroops + 1000>>
+			<<run cashX(forceNeg($equipUpgradeCost * $militiaUnits[$targetIndex].maxTroops + 1000), "specialForces")>>
 		<</link>>
 		Provide special training for the officers and the commissars of the unit.
 		<br>//Costs <<print cashFormat(($equipUpgradeCost * $militiaUnits[$targetIndex].maxTroops) + 1000)>> and will increase the loyalty of the unit faster.//
@@ -130,7 +130,7 @@
 			<br>
 			<<link "Provide enhanced cybernetic enhancements" "seeUnit">>
 				<<set $militiaUnits[$targetIndex].cyber += 1>>
-				<<set $cash -= $equipUpgradeCost * $militiaUnits[$targetIndex].maxTroops + 2000>>
+				<<run cashX(forceNeg($equipUpgradeCost * $militiaUnits[$targetIndex].maxTroops + 2000), "specialForces")>>
 			<</link>>
 			Will augment all soldiers of the unit with high tech cyber enhancements.
 			<br>//Costs <<print cashFormat(($equipUpgradeCost * $militiaUnits[$targetIndex].maxTroops) + 2000)>> and will increase attack, defense and base hp values of the unit.//
@@ -142,7 +142,7 @@
 		<br>
 		<<link "Attach trained medics to the unit" "seeUnit">>
 			<<set $militiaUnits[$targetIndex].medics = 1>>
-			<<set $cash -= $equipUpgradeCost * $militiaUnits[$targetIndex].maxTroops + 1000>>
+			<<run cashX(forceNeg($equipUpgradeCost * $militiaUnits[$targetIndex].maxTroops + 1000), "specialForces")>>
 		<</link>>
 		Attach a small squad of trained medics to the unit.
 		<br>//Costs <<print cashFormat(($equipUpgradeCost * $militiaUnits[$targetIndex].maxTroops) + 1000)>> and will decrease the number of casualties suffered during battle.//
@@ -259,7 +259,7 @@
 		<br>
 		<<link "Attach commissars to the unit" "seeUnit">>
 			<<set $slaveUnits[$targetIndex].commissars = 1>>
-			<<set $cash -= $equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops + 1000>>
+			<<run cashX(forceNeg($equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops + 1000), "specialForces")>>
 		<</link>>
 		Attach a small squad of commissars to the unit.
 		<br>//Costs <<print cashFormat(($equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops) + 1000)>> and will slowly increase the loyalty of the unit.//
@@ -267,7 +267,7 @@
 		<br>
 		<<link "Intensive loyalty training" "seeUnit">>
 			<<set $slaveUnits[$targetIndex].commissars += 1>>
-			<<set $cash -= $equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops + 1000>>
+			<<run cashX(forceNeg($equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops + 1000), "specialForces")>>
 		<</link>>
 		Provide special training for the officers and the commissars of the unit.
 		<br>//Costs <<print cashFormat(($equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops) + 1000)>> and will increase the loyalty of the unit faster.//
@@ -281,7 +281,7 @@
 			<br>
 			<<link "Provide enhanced cybernetic enhancements" "seeUnit">>
 				<<set $slaveUnits[$targetIndex].cyber += 1>>
-				<<set $cash -= $equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops + 2000>>
+				<<run cashX(forceNeg($equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops + 2000), "specialForces")>>
 			<</link>>
 			Will augment all soldiers of the unit with high tech cyber enhancements.
 			<br>//Costs <<print cashFormat(($equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops) + 2000)>> and will increase attack, defense and base hp values of the unit.//
@@ -293,7 +293,7 @@
 		<br>
 		<<link "Attach trained medics to the unit" "seeUnit">>
 			<<set $slaveUnits[$targetIndex].medics = 1>>
-			<<set $cash -= $equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops + 1000>>
+			<<run cashX(forceNeg($equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops + 1000), "specialForces")>>
 		<</link>>
 		Attach a small squad of trained medics to the unit.
 		<br>//Costs <<print cashFormat(($equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops) + 1000)>> and will decrease the number of casualties suffered during battle.//
@@ -305,7 +305,7 @@
 			<br>
 			<<link "Attach Special Force advisors" "seeUnit">>
 				<<set $slaveUnits[$targetIndex].SF = 1>>
-				<<set $cash -= ($equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops) + 5000>>
+				<<run cashX(forceNeg(($equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops) + 5000), "specialForces")>>
 			<</link>>
 			Attach $SF.Lower advisors to the unit.
 			<br>//Costs <<print cashFormat(($equipUpgradeCost * $slaveUnits[$targetIndex].maxTroops) + 5000)>> and will slightly increase the base stats of the unit.//
@@ -408,7 +408,7 @@
 		<br>
 		<<link "Attach commissars to the unit" "seeUnit">>
 			<<set $mercUnits[$targetIndex].commissars = 1>>
-			<<set $cash -= $equipUpgradeCost * $mercUnits[$targetIndex].maxTroops + 1000>>
+			<<run cashX(forceNeg($equipUpgradeCost * $mercUnits[$targetIndex].maxTroops + 1000), "specialForces")>>
 		<</link>>
 		Attach a small squad of commissars to the unit.
 		<br>//Costs <<print cashFormat(($equipUpgradeCost * $mercUnits[$targetIndex].maxTroops) + 1000)>> and will slowly increase the loyalty of the unit.//
@@ -416,7 +416,7 @@
 		<br>
 		<<link "Intensive loyalty training" "seeUnit">>
 			<<set $mercUnits[$targetIndex].commissars += 1>>
-			<<set $cash -= $equipUpgradeCost * $mercUnits[$targetIndex].maxTroops + 1000>>
+			<<run cashX(forceNeg($equipUpgradeCost * $mercUnits[$targetIndex].maxTroops + 1000), "specialForces")>>
 		<</link>>
 		Provide special training for the officers and the commissars of the unit.
 		<br>//Costs <<print cashFormat(($equipUpgradeCost * $mercUnits[$targetIndex].maxTroops) + 1000)>> and will increase the loyalty of the unit faster.//
@@ -430,7 +430,7 @@
 			<br>
 			<<link "Provide enhanced cybernetic enhancements" "seeUnit">>
 				<<set $mercUnits[$targetIndex].cyber += 1>>
-				<<set $cash -= $equipUpgradeCost * $mercUnits[$targetIndex].maxTroops + 2000>>
+				<<run cashX(forceNeg($equipUpgradeCost * $mercUnits[$targetIndex].maxTroops + 2000), "specialForces")>>
 			<</link>>Will augment all soldiers of the unit with high tech cyber enhancements.
 			<br>//Costs <<print cashFormat(($equipUpgradeCost * $mercUnits[$targetIndex].maxTroops) + 2000)>> and will increase attack, defense and base hp values of the unit.//
 		<<else>>
diff --git a/src/interaction/cyberConfig.tw b/src/interaction/cyberConfig.tw
index b46c9cb30332988f239c52025fa854a0a5f2cd65..296f3ba90ae383ba91f948a64081ea5d8c3496fc 100644
--- a/src/interaction/cyberConfig.tw
+++ b/src/interaction/cyberConfig.tw
@@ -32,52 +32,52 @@
 		Swap out $his lenses:
 		<br>
 		Iris Color:
-		[[Blue|cyberConfig][$activeSlave.eyeColor = "blue",$temp = 2,$cash -= $modCost]]
-		| [[Black|cyberConfig][$activeSlave.eyeColor = "black",$temp = 2,$cash -= $modCost]]
-		| [[Brown|cyberConfig][$activeSlave.eyeColor = "brown",$temp = 2,$cash -= $modCost]]
-		| [[Green|cyberConfig][$activeSlave.eyeColor = "green",$temp = 2,$cash -= $modCost]]
-		| [[Turquoise|cyberConfig][$activeSlave.eyeColor = "turquoise",$temp = 2,$cash -= $modCost]]
-		| [[Sky-Blue|cyberConfig][$activeSlave.eyeColor = "sky-blue",$temp = 2,$cash -= $modCost]]
-		| [[Hazel|cyberConfig][$activeSlave.eyeColor = "hazel",$temp = 2,$cash -= $modCost]]
-		| [[Pale-Grey|cyberConfig][$activeSlave.eyeColor = "pale-grey",$temp = 2,$cash -= $modCost]]
-		| [[White|cyberConfig][$activeSlave.eyeColor = "white",$temp = 2,$cash -= $modCost]]
-		| [[Pink|cyberConfig][$activeSlave.eyeColor = "pink",$temp = 2,$cash -= $modCost]]
-		| [[Amber|cyberConfig][$activeSlave.eyeColor = "amber",$temp = 2,$cash -= $modCost]]
-		| [[Red|cyberConfig][$activeSlave.eyeColor = "red",$temp = 2,$cash -= $modCost]]
-		| [[Yellow|cyberConfig][$activeSlave.eyeColor = "yellow",$temp = 2,$cash -= $modCost]]
-		| [[Orange|cyberConfig][$activeSlave.eyeColor = "orange",$temp = 2,$cash -= $modCost]]
+		[[Blue|cyberConfig][$activeSlave.eyeColor = "blue",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Black|cyberConfig][$activeSlave.eyeColor = "black",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Brown|cyberConfig][$activeSlave.eyeColor = "brown",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Green|cyberConfig][$activeSlave.eyeColor = "green",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Turquoise|cyberConfig][$activeSlave.eyeColor = "turquoise",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Sky-Blue|cyberConfig][$activeSlave.eyeColor = "sky-blue",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Hazel|cyberConfig][$activeSlave.eyeColor = "hazel",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Pale-Grey|cyberConfig][$activeSlave.eyeColor = "pale-grey",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[White|cyberConfig][$activeSlave.eyeColor = "white",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Pink|cyberConfig][$activeSlave.eyeColor = "pink",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Amber|cyberConfig][$activeSlave.eyeColor = "amber",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Red|cyberConfig][$activeSlave.eyeColor = "red",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Yellow|cyberConfig][$activeSlave.eyeColor = "yellow",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Orange|cyberConfig][$activeSlave.eyeColor = "orange",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 		<br>
 		Pupil Shape:
-		<br>[[Circular|cyberConfig][$activeSlave.pupil = "circular",$temp = 2,$cash -= $modCost]]
-		| [[Catlike|cyberConfig][$activeSlave.pupil = "catlike",$temp = 2,$cash -= $modCost]]
-		| [[Serpent-Like|cyberConfig][$activeSlave.pupil = "serpent-like",$temp = 2,$cash -= $modCost]]
-		| [[Devilish|cyberConfig][$activeSlave.pupil = "devilish",$temp = 2,$cash -= $modCost]]
-		| [[Demonic|cyberConfig][$activeSlave.pupil = "demonic",$temp = 2,$cash -= $modCost]]
-		| [[Hypnotic|cyberConfig][$activeSlave.pupil = "hypnotic",$temp = 2,$cash -= $modCost]]
-		| [[Heart-Shaped|cyberConfig][$activeSlave.pupil = "heart-shaped",$temp = 2,$cash -= $modCost]]
-		| [[Wide-Eyed|cyberConfig][$activeSlave.pupil = "wide-eyed",$temp = 2,$cash -= $modCost]]
-		| [[Almond-Shaped|cyberConfig][$activeSlave.pupil = "almond-shaped",$temp = 2,$cash -= $modCost]]
-		| [[Bright|cyberConfig][$activeSlave.pupil = "bright",$temp = 2,$cash -= $modCost]]
-		| [[Teary|cyberConfig][$activeSlave.pupil = "teary",$temp = 2,$cash -= $modCost]]
-		| [[Vacant|cyberConfig][$activeSlave.pupil = "vacant",$temp = 2,$cash -= $modCost]]
-		| [[Star-Shaped|cyberConfig][$activeSlave.pupil = "star-shaped",$temp = 2,$cash -= $modCost]]
-		| [[Goat-Like|cyberConfig][$activeSlave.pupil = "goat-like",$temp = 2,$cash -= $modCost]]
+		<br>[[Circular|cyberConfig][$activeSlave.pupil = "circular",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Catlike|cyberConfig][$activeSlave.pupil = "catlike",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Serpent-Like|cyberConfig][$activeSlave.pupil = "serpent-like",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Devilish|cyberConfig][$activeSlave.pupil = "devilish",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Demonic|cyberConfig][$activeSlave.pupil = "demonic",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Hypnotic|cyberConfig][$activeSlave.pupil = "hypnotic",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Heart-Shaped|cyberConfig][$activeSlave.pupil = "heart-shaped",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Wide-Eyed|cyberConfig][$activeSlave.pupil = "wide-eyed",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Almond-Shaped|cyberConfig][$activeSlave.pupil = "almond-shaped",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Bright|cyberConfig][$activeSlave.pupil = "bright",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Teary|cyberConfig][$activeSlave.pupil = "teary",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Vacant|cyberConfig][$activeSlave.pupil = "vacant",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Star-Shaped|cyberConfig][$activeSlave.pupil = "star-shaped",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Goat-Like|cyberConfig][$activeSlave.pupil = "goat-like",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 		<br>
 		Sclera Colors:
-		[[White|cyberConfig][$activeSlave.sclerae = "white",$temp = 2,$cash -= $modCost]]
-		| [[Blue|cyberConfig][$activeSlave.sclerae = "blue",$temp = 2,$cash -= $modCost]]
-		| [[Black|cyberConfig][$activeSlave.sclerae = "black",$temp = 2,$cash -= $modCost]]
-		| [[Brown|cyberConfig][$activeSlave.sclerae = "brown",$temp = 2,$cash -= $modCost]]
-		| [[Green|cyberConfig][$activeSlave.sclerae = "green",$temp = 2,$cash -= $modCost]]
-		| [[Turquoise|cyberConfig][$activeSlave.sclerae = "turquoise",$temp = 2,$cash -= $modCost]]
-		| [[Sky-Blue|cyberConfig][$activeSlave.sclerae = "sky-blue",$temp = 2,$cash -= $modCost]]
-		| [[Hazel|cyberConfig][$activeSlave.sclerae = "hazel",$temp = 2,$cash -= $modCost]]
-		| [[Pale-Grey|cyberConfig][$activeSlave.sclerae = "pale-grey",$temp = 2,$cash -= $modCost]]
-		| [[Pink|cyberConfig][$activeSlave.sclerae = "pink",$temp = 2,$cash -= $modCost]]
-		| [[Amber|cyberConfig][$activeSlave.sclerae = "amber",$temp = 2,$cash -= $modCost]]
-		| [[Red|cyberConfig][$activeSlave.sclerae = "red",$temp = 2,$cash -= $modCost]]
-		| [[Yellow|cyberConfig][$activeSlave.sclerae = "yellow",$temp = 2,$cash -= $modCost]]
-		| [[Orange|cyberConfig][$activeSlave.sclerae = "orange",$temp = 2,$cash -= $modCost]]
+		[[White|cyberConfig][$activeSlave.sclerae = "white",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Blue|cyberConfig][$activeSlave.sclerae = "blue",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Black|cyberConfig][$activeSlave.sclerae = "black",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Brown|cyberConfig][$activeSlave.sclerae = "brown",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Green|cyberConfig][$activeSlave.sclerae = "green",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Turquoise|cyberConfig][$activeSlave.sclerae = "turquoise",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Sky-Blue|cyberConfig][$activeSlave.sclerae = "sky-blue",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Hazel|cyberConfig][$activeSlave.sclerae = "hazel",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Pale-Grey|cyberConfig][$activeSlave.sclerae = "pale-grey",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Pink|cyberConfig][$activeSlave.sclerae = "pink",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Amber|cyberConfig][$activeSlave.sclerae = "amber",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Red|cyberConfig][$activeSlave.sclerae = "red",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Yellow|cyberConfig][$activeSlave.sclerae = "yellow",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Orange|cyberConfig][$activeSlave.sclerae = "orange",$temp = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<</if>>
 
 	<<if $activeSlave.earImplant == 1>><br><br>&nbsp;
diff --git a/src/js/economyJS.tw b/src/js/economyJS.tw
index 2bde6716221dc24fe55f508e6f4229c4196ec7c2..aeffab83ff3093c01019da209872528e28f1f849 100644
--- a/src/js/economyJS.tw
+++ b/src/js/economyJS.tw
@@ -963,12 +963,8 @@ window.cashX = function(cost, what, who) {
 
 					//record the slave, if available
 					if (who !== undefined){
-						if(what == "slaveTransfer"){
-							who.slaveCost = cost;
-						} else {
 							who.lastWeeksCashIncome += cost;
 							who.lifetimeCashIncome += cost;
-						}
 					}
 
 					//Spend the money
@@ -987,7 +983,11 @@ window.cashX = function(cost, what, who) {
 					
 					//record the slave, if available
 					if (who !== undefined){
-						who.lifetimeCashExpenses += cost;
+						if (what == "slaveTransfer"){
+							who.slaveCost += cost;
+						} else {
+							who.lifetimeCashExpenses += cost;
+						}
 					}
 
 					//Spend the money
diff --git a/src/npc/startingGirls/startingGirls.tw b/src/npc/startingGirls/startingGirls.tw
index bd5d924d57554e61a39d36ef91735687acd5aebd..2a39a27a10f407aaa641c16599fb3072ec2f86db 100644
--- a/src/npc/startingGirls/startingGirls.tw
+++ b/src/npc/startingGirls/startingGirls.tw
@@ -1511,7 +1511,7 @@ Her nationality is $activeSlave.nationality.
 		<<link "Add this slave">>
 			<<set $returnTo = "Commit Starting Girl", $createRelatedSlave = 0, $applyCareerBonus = 1, $careerBonusApplied = 0>>
 			<<StartingSlaveCost $activeSlave>>
-			<<set $cash -= $slaveCost>>
+			<<run cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave)>>
 			<<goto "RG AS Dump">>
 		<</link>>
 		//This will apply your @@.springgreen;career bonus@@ to her:
@@ -1542,7 +1542,7 @@ Her nationality is $activeSlave.nationality.
 		<<link "Add slave without career bonus">>
 			<<set $returnTo = "Commit Starting Girl", $createRelatedSlave = 0, $applyCareerBonus = 0, $careerBonusApplied = 0>>
 			<<StartingSlaveCost $activeSlave>>
-			<<set $cash -= $slaveCost>>
+			<<run cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave)>>
 			<<goto "RG AS Dump">>
 		<</link>>
 	<<else>>
@@ -1550,7 +1550,7 @@ Her nationality is $activeSlave.nationality.
 		<<link "Add this slave">>
 			<<set $returnTo = "Commit Starting Girl", $createRelatedSlave = 0, $applyCareerBonus = 0, $careerBonusApplied = 0>>
 			<<StartingSlaveCost $activeSlave>>
-			<<set $cash -= $slaveCost>>
+			<<run cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave)>>
 			<<goto "RG AS Dump">>
 		<</link>>
 		<br>
diff --git a/src/pregmod/JobFulfillmentCenter/JobFulfillmentCenterDelivery.tw b/src/pregmod/JobFulfillmentCenter/JobFulfillmentCenterDelivery.tw
index 4377b98d7e6e5fd18e87302802dc45c1004f253e..cb7fd11d08802997025bdc79bd89fac2e6913ded 100644
--- a/src/pregmod/JobFulfillmentCenter/JobFulfillmentCenterDelivery.tw
+++ b/src/pregmod/JobFulfillmentCenter/JobFulfillmentCenterDelivery.tw
@@ -17,7 +17,7 @@ A slave dealer has submitted a slave to satisfy your ''$Role'' order.
 <br><br><span id="result">
 <<if $cash >= $slaveCost>>
 	<<link "Accept the offered slave">>
-		<<set $cash -= $slaveCost>>
+		<<run cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave)>>
 		<<replace "#result">>
 			She has been very well trained by the dealer that offered her to you. She has also picked up on the fact that she was specially selected, and is a little hopeful that this means she may be treated well. She is now eagerly awaiting your instructions.
 			<<include "New Slave Intro">>
diff --git a/src/pregmod/artificialInsemination.tw b/src/pregmod/artificialInsemination.tw
index 64021a377c8042d213cfa3ded6751504feade0b2..4e628dc1f63b73ef42ec0b6b6d7c26dc10d89ee8 100644
--- a/src/pregmod/artificialInsemination.tw
+++ b/src/pregmod/artificialInsemination.tw
@@ -13,7 +13,7 @@ __Select an eligible slave to serve as the semen donatrix:__
 <<for _ai = 0; _ai < $slaves.length; _ai++>>
 	<<if $slaves[_ai].balls > 0 && $slaves[_ai].pubertyXY == 1 && canBreed($activeSlave, $slaves[_ai])>>
 		<<set _name = SlaveFullName($slaves[_ai])>>
-		<br><<print "[[_name|Surgery Degradation][$impregnatrix = $slaves[" + _ai + "], $cash -= $surgeryCost, $surgeryType = 'insemination']]">>
+		<br><<print "[[_name|Surgery Degradation][$impregnatrix = $slaves[" + _ai + "], cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = 'insemination']]">>
 		<<set _eligibility = 1>>
 	<</if>>
 <</for>>
@@ -29,7 +29,7 @@ __Select an eligible slave to serve as the semen donatrix:__
 	<br>
 	<<for _ai = 0; _ai < $tanks.length; _ai++>>
 		<<if $tanks[_ai].balls > 0 && $tanks[_ai].dick > 0 && canBreed($activeSlave, $tanks[_ai])>>
-			<br><<print "[[$tanks[_ai].slaveName|Surgery Degradation][$impregnatrix = $tanks[" + _ai + "], $cash -= $surgeryCost, $surgeryType = 'insemination']]">>
+			<br><<print "[[$tanks[_ai].slaveName|Surgery Degradation][$impregnatrix = $tanks[" + _ai + "], cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = 'insemination']]">>
 			<<set _eligibilityI = 1>>
 		<</if>>
 	<</for>>
@@ -40,9 +40,9 @@ __Select an eligible slave to serve as the semen donatrix:__
 
 <<if $PC.dick == 1>>
 	<br>
-	[[Use your own|Surgery Degradation][$impregnatrix = $PC, $cash -= $surgeryCost, $surgeryType = "insemination"]]
+	[[Use your own|Surgery Degradation][$impregnatrix = $PC, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "insemination"]]
 <<elseif $PC.storedCum > 0>>
 	<br>
-	[[Use a vial of your own|Surgery Degradation][$impregnatrix = $PC, $cash -= $surgeryCost, $surgeryType = "insemination", $PC.storedCum--]]
+	[[Use a vial of your own|Surgery Degradation][$impregnatrix = $PC, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "insemination", $PC.storedCum--]]
 	//You have enough sperm stored away to inseminate $PC.storedCum more slave<<if $PC.storedCum > 1>>s<</if>>.//
 <</if>>
\ No newline at end of file
diff --git a/src/pregmod/criminalMarkets.tw b/src/pregmod/criminalMarkets.tw
index ab81e868f44b7a288fb360c1813d65db05a1003d..9404a1c854a82977c83bef9adf21df8696e2ee6d 100644
--- a/src/pregmod/criminalMarkets.tw
+++ b/src/pregmod/criminalMarkets.tw
@@ -52,11 +52,11 @@ You board the transport to
 It will cost <<print cashFormat($slaveCost)>> to enslave $him.
 
 <<if $cash >= $slaveCost>>
-	<br>[["Enslave " + $him + " and check out other available prisoners"|Criminal Market][$cash -= $slaveCost, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
+	<br>[["Enslave " + $him + " and check out other available prisoners"|Criminal Market][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
 	<<if $newSlaves.length == 0>>
-		<br>[["Enslave " + $him|New Slave Intro][$cash -= $slaveCost,$nextButton = "Continue",$nextLink = "AS Dump",$returnTo = "Main"]]
+		<br>[["Enslave " + $him|New Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave),$nextButton = "Continue",$nextLink = "AS Dump",$returnTo = "Main"]]
 	<<else>>
-		<br>[["Enslave " + $him + " and finish your inspection"|Bulk Slave Intro][$cash -= $slaveCost, $newSlaves.push($activeSlave)]]
+		<br>[["Enslave " + $him + " and finish your inspection"|Bulk Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $newSlaves.push($activeSlave)]]
 	<</if>>
 <<else>>
 	//You lack the necessary funds to enslave this criminal.//
diff --git a/src/pregmod/eliteSlave.tw b/src/pregmod/eliteSlave.tw
index 27349e77b44ac14972d3be1917718f533fa166dd..887bfac23c35054c8643421c3f68c2976053c086 100644
--- a/src/pregmod/eliteSlave.tw
+++ b/src/pregmod/eliteSlave.tw
@@ -210,7 +210,7 @@ It will take <<print cashFormat($slaveCost)>> to win the auction.
 
 <br><br>
 <<if $cash >= $slaveCost>>
-	[[Place that bid|New Slave Intro][$cash -= $slaveCost,$nextButton = "Continue",$nextLink = "AS Dump",$returnTo = "Main"]]
+	[[Place that bid|New Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave),$nextButton = "Continue",$nextLink = "AS Dump",$returnTo = "Main"]]
 <<else>>
 	//You lack the necessary funds to place a winning bid.//
 <</if>>
diff --git a/src/pregmod/newChildIntro.tw b/src/pregmod/newChildIntro.tw
index 923359f9e8781d237a78f9eaffd99eed6c0c2293..22a7db119815afcfa3b2468f37626137eca93863 100644
--- a/src/pregmod/newChildIntro.tw
+++ b/src/pregmod/newChildIntro.tw
@@ -1102,7 +1102,7 @@ You beckon the curious girl to your hefty breasts, having noticed how hungrily $
 <<if $activeSlave.dick == 0 && $activeSlave.vagina > -1>>
 <br><<link "Give $him a smart clitoral piercing">>
 <<set $activeSlave.clitPiercing = 3>>
-	<<set $cash -= $SPcost>>
+	<<run cashX(forceNeg($SPcost), "slaveMod", $activeSlave)>>
 <<replace "#result">>
 	You take $him to the body modification studio, strap $him down, pierce $his clit, and insert what appears to be a large stainless steel barbell piercing. It actually contains a device that can vibrate to give $him sexual stimulation or create subtle pain to suppress pleasure. It is connected wirelessly to the arcology, which can be given instructions to encourage or discourage sexual pleasure in specific situations. You run a quick test. On the oral setting, as soon as $he kneels in front of your crotch, $he gasps as the stimulation starts. On the anal setting, $he whimpers when you run a finger across $his asshole.
 <</replace>>
@@ -1111,7 +1111,7 @@ You beckon the curious girl to your hefty breasts, having noticed how hungrily $
 <<elseif $activeSlave.dick > 0>>
 <br><<link "Give $him a smart frenulum piercing">>
 <<set $activeSlave.clitPiercing = 3>>
-	<<set $cash -= $SPcost>>
+	<<run cashX(forceNeg($SPcost), "slaveMod", $activeSlave)>>
 <<replace "#result">>
 	You take $him to the body modification studio, strap $him down, pierce $his frenulum, and insert what appears to be a large stainless steel barbell piercing. It actually contains a device that can vibrate to give $him sexual stimulation or create subtle pain to suppress pleasure. It is connected wirelessly to the arcology, which can be given instructions to encourage or discourage sexual pleasure in specific situations. You run a quick test. On the oral setting, as soon as $he kneels in front of your crotch, $he gasps as the stimulation starts. On the anal setting, $he whimpers and gets rock hard when you run a finger across $his asshole.
 <</replace>>
@@ -1241,7 +1241,7 @@ You beckon the curious girl to your hefty breasts, having noticed how hungrily $
 		<<set $activeSlave.trust += 20>>
 		<<set $activeSlave.boobs += 4000>>
 		<<set $activeSlave.boobsImplant += 4000>>
-		<<set $cash -= $surgeryCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $activeSlave.health -= 10>>
 		<<set $activeSlave.boobShape = "normal">>
 		<<replace "#result">>
@@ -1254,7 +1254,7 @@ You beckon the curious girl to your hefty breasts, having noticed how hungrily $
 		<<set $activeSlave.boobs += 7500>>
 		<<set $activeSlave.boobsImplant += 7500>>
 		<<set $activeSlave.boobsImplantType = 1>>
-		<<set $cash -= $surgeryCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $activeSlave.health -= 10>>
 		<<set $activeSlave.boobShape = "normal">>
 		<<replace "#result">>
@@ -1267,7 +1267,7 @@ You beckon the curious girl to your hefty breasts, having noticed how hungrily $
 		<<set $activeSlave.trust += 10>>
 		<<set $activeSlave.boobs += 1000>>
 		<<set $activeSlave.boobsImplant += 1000>>
-		<<set $cash -= $surgeryCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $activeSlave.health -= 10>>
 		<<set $activeSlave.boobShape = "normal">>
 		<<replace "#result">>
@@ -1280,7 +1280,7 @@ You beckon the curious girl to your hefty breasts, having noticed how hungrily $
 		<<set $activeSlave.boobs += 1500>>
 		<<set $activeSlave.boobsImplant += 1500>>
 		<<set $activeSlave.boobsImplantType = 1>>
-		<<set $cash -= $surgeryCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $activeSlave.health -= 10>>
 		<<set $activeSlave.boobShape = "normal">>
 		<<replace "#result">>
@@ -1309,7 +1309,7 @@ You beckon the curious girl to your hefty breasts, having noticed how hungrily $
 			<<set $activeSlave.devotion += 25>>
 			<<set $activeSlave.trust += 25>>
 			<<set $activeSlave.bellyImplant = 200000>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.health -= 50>>
 			<<run SetBellySize($activeSlave)>>
 			<<replace "#result">>
@@ -1321,7 +1321,7 @@ You beckon the curious girl to your hefty breasts, having noticed how hungrily $
 		<<set $activeSlave.devotion += 15>>
 		<<set $activeSlave.trust += 15>>
 		<<set $activeSlave.bellyImplant = 2000>>
-		<<set $cash -= $surgeryCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $activeSlave.health -= 10>>
 		<<run SetBellySize($activeSlave)>>
 		<<replace "#result">>
@@ -1392,7 +1392,7 @@ You beckon the curious girl to your hefty breasts, having noticed how hungrily $
 			<<set $activeSlave.trust += 15>>
 			<<set $activeSlave.hips += 1>>
 			<<set $activeSlave.hipsImplant = 1>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.health -= 40>>
 			<<replace "#result">>
 				You escort $him to the remote surgery, strap $him in, and put $him under. When $he awakes, $he can't keep $his hands off $his wide hips, especially since $he can't figure out how to roll over with them. $He's @@.hotpink;deliriously happy@@ that $he is ridiculously wide and @@.mediumaquamarine;wiggles $his door-jammers cheerfully@@ at you whenever $he gets the chance. Since the surgery was invasive, @@.red;$his health has been greatly affected.@@
@@ -1404,7 +1404,7 @@ You beckon the curious girl to your hefty breasts, having noticed how hungrily $
 			<<set $activeSlave.trust += 15>>
 			<<set $activeSlave.hips += 1>>
 			<<set $activeSlave.hipsImplant = 1>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.health -= 40>>
 			<<replace "#result">>
 				You escort $him to the remote surgery, strap $him in, and put $him under. When $he awakes, $he can't keep $his hands off $his wide hips. $He's @@.hotpink;deliriously happy@@ that $he is wider than ever and @@.mediumaquamarine;wiggles $his hips cheerfully@@ at you whenever $he gets the chance. Since the surgery was invasive, @@.red;$his health has been greatly affected.@@
@@ -1448,7 +1448,7 @@ You beckon the curious girl to your hefty breasts, having noticed how hungrily $
 		<<set $activeSlave.trust += 20>>
 		<<set $activeSlave.butt += 8>>
 		<<set $activeSlave.buttImplant += 8>>
-		<<set $cash -= $surgeryCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $activeSlave.health -= 10>>
 		<<replace "#result">>
 			You escort $him to the remote surgery, strap $him in, and put $him under. When $he awakes, $he can't keep $his hands off $his new ridiculous fake ass, not that $he has much choice, since it has $him pinned to the bed. $He's @@.hotpink;deliriously happy@@ that $he has $his own pair of giant butt cheeks ballooning from $his bottom and @@.mediumaquamarine;hopes@@ you have plans to make them even bigger, even though $he is already struggling to escape from under them. As with all surgery @@.red;$his health has been slightly affected.@@
@@ -1460,7 +1460,7 @@ You beckon the curious girl to your hefty breasts, having noticed how hungrily $
 		<<set $activeSlave.trust += 10>>
 		<<set $activeSlave.butt += 2>>
 		<<set $activeSlave.buttImplant += 2>>
-		<<set $cash -= $surgeryCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $activeSlave.health -= 10>>
 		<<replace "#result">>
 			You escort $him to the remote surgery, strap $him in, and put $him under. When $he awakes, $he can't keep $his hands off $his new fake bottom. $He's @@.hotpink;deliriously happy@@ that $he has $his own pair of big butt cheeks hanging from $his rear and @@.mediumaquamarine;hopes@@ you have plans to make them even bigger. As with all surgery @@.red;$his health has been slightly affected.@@
@@ -1472,7 +1472,7 @@ You beckon the curious girl to your hefty breasts, having noticed how hungrily $
 		<<set $activeSlave.butt += 3>>
 		<<set $activeSlave.buttImplant += 3>>
 		<<set $activeSlave.buttImplantType = 1>>
-		<<set $cash -= $surgeryCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $activeSlave.health -= 10>>
 		<<replace "#result">>
 			You escort $him to the remote surgery, strap $him in, and put $him under. When $he awakes, $he can't keep $his hands off $his new fake bottom. $He's @@.hotpink;deliriously happy@@ that $he has $his own pair of big butt cheeks hanging from $his rear and @@.mediumaquamarine;bounces them cheerfully@@ when $he hears they'll keep growing. As with all surgery @@.red;$his health has been slightly affected.@@
diff --git a/src/pregmod/organFarmOptions.tw b/src/pregmod/organFarmOptions.tw
index a7528c9b3c332f260811771df33a37fa5f280fe6..36297192aeb7e26bb893ff8c893d0212b8df2ea3 100644
--- a/src/pregmod/organFarmOptions.tw
+++ b/src/pregmod/organFarmOptions.tw
@@ -413,7 +413,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "penis"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -467,7 +467,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can replace $his existing testicles with a new pair.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "testicles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -506,7 +506,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can forgo standard procedure and implant testicles directly into $his abdomen.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "testicles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -536,7 +536,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "testicles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -601,7 +601,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can replace $his existing testicles with a new pair.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "pigTesticles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -640,7 +640,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can forgo standard procedure and implant testicles directly into $his abdomen.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "pigTesticles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -670,7 +670,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "pigTesticles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -732,7 +732,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can replace $his existing testicles with a new pair.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "dogTesticles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -771,7 +771,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can forgo standard procedure and implant testicles directly into $his abdomen.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "dogTesticles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -801,7 +801,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "dogTesticles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -864,7 +864,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can replace $his existing testicles with a new pair.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "horseTesticles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -903,7 +903,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can forgo standard procedure and implant testicles directly into $his abdomen.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "horseTesticles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -933,7 +933,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "horseTesticles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -995,7 +995,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can replace $his existing testicles with a new pair.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "cowTesticles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1034,7 +1034,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can forgo standard procedure and implant testicles directly into $his abdomen.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "cowTesticles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1064,7 +1064,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "cowTesticles"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1127,7 +1127,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Graft on" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "scrotum"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1166,7 +1166,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Graft on" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "foreskin"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1219,7 +1219,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can replace $his existing ovaries with a new pair.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "ovaries"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1271,7 +1271,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "ovaries"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1334,7 +1334,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can replace $his existing ovaries with a new pair.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "pigOvaries"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1386,7 +1386,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "pigOvaries"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1449,7 +1449,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can replace $his existing ovaries with a new pair.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "dogOvaries"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1501,7 +1501,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "dogOvaries"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1564,7 +1564,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can replace $his existing ovaries with a new pair.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "horseOvaries"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1616,7 +1616,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "horseOvaries"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1679,7 +1679,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 					<</link>>
 					<br>You can replace $his existing ovaries with a new pair.
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "cowOvaries"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1730,7 +1730,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "cowOvaries"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1792,7 +1792,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "freshOvaries"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1849,7 +1849,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "asexualReproOvaries"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1903,7 +1903,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "prostate"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1942,7 +1942,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<elseif $activeSlave.origEye == "implant">>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Remove ocular implants and implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "eyes"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -1972,7 +1972,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "eyes"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -2013,7 +2013,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<elseif $activeSlave.earImplant == 1>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Remove cochlear implants and implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "cochleae"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -2040,7 +2040,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "cochleae"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -2079,7 +2079,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "mpreg"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -2132,7 +2132,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "mpregPig"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -2185,7 +2185,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "mpregDog"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -2238,7 +2238,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "mpregHorse"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -2291,7 +2291,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "mpregCow"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -2343,7 +2343,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<elseif $activeSlave.electrolarynx == 1>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Remove electrolarynx and implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "voicebox"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
@@ -2376,7 +2376,7 @@ The fabricator is ready to grow an organ for $him. Extract tissue to begin growi
 				<<else>>
 					<br>&nbsp;&nbsp;&nbsp;&nbsp;
 					<<link "Implant" "Surgery Degradation">>
-						<<set $cash -= $surgeryCost>>
+						<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 						<<set _ofo = $completedOrgans.findIndex(function(s) { return $activeSlave.ID == s.ID && s.type == "voicebox"; })>>
 						<<if _ofo != -1>>
 							<<set $completedOrgans.deleteAt(_ofo)>>
diff --git a/src/pregmod/pRaped.tw b/src/pregmod/pRaped.tw
index c7f6b639c386f13d4add1868b3c6ff6b2ef10cda..8934289c8111b95b77f42e4ab0101f65939dbf28 100644
--- a/src/pregmod/pRaped.tw
+++ b/src/pregmod/pRaped.tw
@@ -150,7 +150,7 @@ Now the only question is what to do with the would-be rapist. You could toss the
 <span id="result">
 <<if $cash >= $contractCost>>
 	<br><<link "Enslave $him">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 			You complete the legalities and biometric scanning quickly and without fuss. The idiot will regret crossing you when $he wakes in the penthouse for basic slave induction.
 		<<include "New Slave Intro">>
@@ -169,7 +169,7 @@ Now the only question is what to do with the would-be rapist. You could toss the
 		<</if>>
 		<</if>>
 		<<if $activeSlave.publicCount>><<set $activeSlave.publicCount += 47>><<else>><<set $activeSlave.publicCount = 47>><</if>>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 			You declare $his holes fair game for the entire arcology. $He spends a torturous day in the stocks before being hauled in for enslavement, somewhat @@.red;the worse for wear@@ and @@.red;acting oddly@@ due to $his ordeal, bruises all over $his body, cum leaking from $his @@.lime;loosened@@ anus<<if $activeSlave.vagina > -1>> and @@.lime;fucked-out@@ pussy<</if>>. The public @@.green;enjoys the fun.@@
 		<<set $rep += 100>>
@@ -181,7 +181,7 @@ Now the only question is what to do with the would-be rapist. You could toss the
 	<br><<link "Enslave $him and sentence $him to a month in the arcade">>
 		<<= assignJob($activeSlave, "be confined in the arcade")>>
 		<<set $activeSlave.sentence = 4>>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 			You complete the legalities and biometric scanning quickly and cautiously. The idiot will be in for a surprise when $he awakes to find $he can't move and a dick is in $his ass.
 		<<run newSlave($activeSlave)>> /* skip New Slave Intro */
@@ -192,7 +192,7 @@ Now the only question is what to do with the would-be rapist. You could toss the
 	<<if $dairyRestraintsSetting > 1>>
 	<br><<link "Enslave $him and send $him straight to the industrial dairy">>
 		<<= assignJob($activeSlave, "work in the dairy")>>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 			You complete the legalities and biometric scanning quickly and cautiously. The idiot will wake up <<if $dairyStimulatorsSetting > 1>>in agony as $his anus takes the rectal hydration dildo<<else>>to find $his chest has begun swelling with milk<</if>>.
 		<<set $activeSlave.boobs += 300>>
@@ -204,7 +204,7 @@ Now the only question is what to do with the would-be rapist. You could toss the
 	<<if $farmyard > 0>>
 	<br><<link "Enslave $him and send $him straight to the farmyard">>
 		<<= assignJob($activeSlave, "work as a farmhand")>>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 			You complete the legalities and biometric scanning quickly and cautiously. /*TODO: finish writing this subsection */
 		<<run newSlave($activeSlave)>> /* skip New Slave Intro */
@@ -217,7 +217,7 @@ Now the only question is what to do with the would-be rapist. You could toss the
 		<<set $activeSlave.amp = 1>>
 		<<set $activeSlave.heels = 0>>
 		<<set $activeSlave.behavioralFlaw = "odd">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 			You want $him to suffer for what $he tried to pull on you. You make sure $he is fully awake as $he is strapped into the autosurgery. You take great pleasure in watching $him struggle as $his limbs are taken, one by one. Of course, @@.red;$his health is affected@@ and the horrible experience has left $him @@.red;acting oddly.@@ After $he has stabilized, it's off to the penthouse for basic slave induction. You'd like to see $him try and touch you again without arms and legs.
 		<</replace>>
@@ -228,7 +228,7 @@ Now the only question is what to do with the would-be rapist. You could toss the
 		<<set $activeSlave.devotion -= 25>>
 		<<set $activeSlave.trust -= 25>>
 		<<run newSlave($activeSlave)>>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 		You want $him to suffer for what $he tried to pull on you. You make sure $he is fully awake as $he is strapped into the autosurgery, taking the time to roughly fondle $his balls. You take great pleasure in watching $him struggle as $his testicles are removed. Once $he can stand again, it's off to the penthouse for basic slave induction.
 		<<include "New Slave Intro">>
diff --git a/src/pregmod/seFCTVshows.tw b/src/pregmod/seFCTVshows.tw
index 3031a0f25f7ef74fb6d57c6739e92ac2effdf8d8..e76e1c4fb73f2807eec263fae883b1bceca73c72 100644
--- a/src/pregmod/seFCTVshows.tw
+++ b/src/pregmod/seFCTVshows.tw
@@ -370,7 +370,7 @@ Tired after a long day, you tell <<if $Concubine != 0>>@@.pink;$Concubine.slaveN
 The offered price is <<print cashFormat($slaveCost)>>.
 
 <<if $cash >= $slaveCost>>
-	<br>[[Buy her slave contract|New Slave Intro][$cash -= $slaveCost, $nextLink = "Scheduled Event", $returnTo = "Scheduled Event"]]
+	<br>[[Buy her slave contract|New Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $nextLink = "Scheduled Event", $returnTo = "Scheduled Event"]]
 <<else>>
 	//@@.red;You lack the necessary funds to buy this slave.@@//
 <</if>>
diff --git a/src/pregmod/theCattleRanch.tw b/src/pregmod/theCattleRanch.tw
index c1dcfc794892af91cc32cfb8c961234eb9504748..df5d538c5b478c7c7b1785f6034658f9779c19ce 100644
--- a/src/pregmod/theCattleRanch.tw
+++ b/src/pregmod/theCattleRanch.tw
@@ -24,11 +24,11 @@
 
 <<setLocalPronouns $activeSlave>>
 <<if $cash >= $slaveCost>>
-	<br>[["Buy " + $him + " and check out other cows to order"|The Cattle Ranch][$cash -= $slaveCost, $TCR.schoolSale = 0, $TCR.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
+	<br>[["Buy " + $him + " and check out other cows to order"|The Cattle Ranch][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $TCR.schoolSale = 0, $TCR.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
 	<<if $newSlaves.length == 0>>
-		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cash -= $slaveCost, $TCR.schoolSale = 0, $TCR.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
+		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $TCR.schoolSale = 0, $TCR.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
 	<<else>>
-		<br>[["Buy " + $his + " and finish your order of cattle"|Bulk Slave Intro][$cash -= $slaveCost, $TCR.schoolSale = 0, $TCR.studentsBought += 1, $newSlaves.push($activeSlave)]]
+		<br>[["Buy " + $his + " and finish your order of cattle"|Bulk Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $TCR.schoolSale = 0, $TCR.studentsBought += 1, $newSlaves.push($activeSlave)]]
 	<</if>>
 <<else>>
 	//You lack the necessary funds to buy this slave.//
diff --git a/src/pregmod/theHippolytaAcademy.tw b/src/pregmod/theHippolytaAcademy.tw
index 1d32b662f8ff776d6a08d83c3bfeab0517d3e0f1..64e6a41fbdb10483706cc8f073d6de696678cebb 100644
--- a/src/pregmod/theHippolytaAcademy.tw
+++ b/src/pregmod/theHippolytaAcademy.tw
@@ -33,11 +33,11 @@ The Hippolyta Academy is one of the most famous slave bodyguarding schools in al
 
 <<setLocalPronouns $activeSlave>>
 <<if $cash >= $slaveCost>>
-	<br>[["Buy " + $him + " and check out other slaves to order"|The Hippolyta Academy][$cash -= $slaveCost, $HA.schoolSale = 0, $HA.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
+	<br>[["Buy " + $him + " and check out other slaves to order"|The Hippolyta Academy][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $HA.schoolSale = 0, $HA.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
 	<<if $newSlaves.length == 0>>
-		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cash -= $slaveCost, $HA.schoolSale = 0, $HA.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
+		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $HA.schoolSale = 0, $HA.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
 	<<else>>
-		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cash -= $slaveCost, $HA.schoolSale = 0, $HA.studentsBought += 1, $newSlaves.push($activeSlave)]]
+		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $HA.schoolSale = 0, $HA.studentsBought += 1, $newSlaves.push($activeSlave)]]
 	<</if>>
 <<else>>
 	//You lack the necessary funds to buy this slave.//
diff --git a/src/pregmod/wetwareCPUs.tw b/src/pregmod/wetwareCPUs.tw
index c07f9580516f7903fcc4b9b626947bd910bc6497..2ca8c4f05ed4384db6dcaa8f9b47356832285829 100644
--- a/src/pregmod/wetwareCPUs.tw
+++ b/src/pregmod/wetwareCPUs.tw
@@ -19,11 +19,11 @@
 
 <<setLocalPronouns $activeSlave>>
 <<if $cash >= $slaveCost>>
-	<br>[["Buy " + $him + " and check out other slaves to order"|Wetware CPUs][$cash -= $slaveCost, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
+	<br>[["Buy " + $him + " and check out other slaves to order"|Wetware CPUs][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
 	<<if $newSlaves.length == 0>>
-		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cash -= $slaveCost, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
+		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
 	<<else>>
-		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cash -= $slaveCost, $newSlaves.push($activeSlave)]]
+		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $newSlaves.push($activeSlave)]]
 	<</if>>
 <<else>>
 	//You lack the necessary funds to buy this slave.//
diff --git a/src/uncategorized/RESS.tw b/src/uncategorized/RESS.tw
index 65e641f439e893aeb869fc7b4a17450c7bccb15b..61f47b7cd681a57025bfc03df587101a7291cb09 100644
--- a/src/uncategorized/RESS.tw
+++ b/src/uncategorized/RESS.tw
@@ -4792,7 +4792,7 @@ brought in to you. This time <<EventNameLink $activeSlave>> has been sent to del
 				As you pull $his limp body to the remote surgery, you notice $he understands what $he has done and begs you to reconsider your decision; but your mind is set. $He tried to rape you, $he must be silenced. Restrained as $he is, the most $he can do is cry and beg. When $he awakens from surgery, $he realizes all you did was stop $him from talking; @@.mediumaquamarine;what stops $him from making another go at you?@@ Your other rebellious slaves see this a minor loss for a potentially huge gain and, if anything, @@.mediumaquamarine;become more defiant.@@
 				<<set $activeSlave.trust += 5, $activeSlave.devotion -= 15, $activeSlave.voice = 0>>
 				<<set $slaves.forEach(function(s) { if (s.devotion < -50) { s.trust += 10; } })>>
-				<<set $cash -= $surgeryCost>>
+				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 				<</replace>>
 			<</link>> //Will cost <<print cashFormat($surgeryCost)>>//
 			<br><<link "Castrate $him">>
@@ -4800,7 +4800,7 @@ brought in to you. This time <<EventNameLink $activeSlave>> has been sent to del
 				As you pull $his limp body to the remote surgery, you notice $he understands what $he has done and begs you to reconsider your decision; but your mind is set. $He had the balls to try and rape you, and now $he won't. Restrained as $he is, the most $he can do is cry and beg. Once $he comes to after the surgery, $he faces $his new life; @@.mediumorchid;$he'll never get hard again@@ and $he's @@.gold;the only one to blame@@ for $his @@.red;suffering.@@ Every other rebellious slave is @@.gold;mortified by the example.@@
 				<<set $activeSlave.trust -= 20, $activeSlave.devotion -= 10, $activeSlave.health -= 10>>
 				<<set $slaves.forEach(function(s) { if (s.devotion < -50) { s.trust -= 5; } })>>
-				<<set $cash -= $surgeryCost>>
+				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 				<</replace>> //Will cost <<print cashFormat($surgeryCost)>>//
 			<</link>>
 			<<if $activeSlave.vagina == -2>>
@@ -4892,7 +4892,7 @@ brought in to you. This time <<EventNameLink $activeSlave>> has been sent to del
 				As you pull $his limp body to the remote surgery, you notice $he understands what $he has done and begs you to reconsider your decision; but your mind is set. $He tried to rape you, $he must be silenced. Restrained as $he is, the most $he can do is cry and beg. When $he awakens from surgery, $he realizes all you did was stop $him from talking; @@.mediumaquamarine;what stops $him from making another go at you?@@ Your other rebellious slaves see this a minor loss for a potentially huge gain and, if anything, @@.mediumaquamarine;become more defiant.@@
 				<<set $activeSlave.trust += 5, $activeSlave.devotion -= 15, $activeSlave.voice = 0>>
 				<<set $slaves.forEach(function(s) { if (s.devotion < -50) { s.trust += 10; } })>>
-				<<set $cash -= $surgeryCost>>
+				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 				<</replace>>
 			<</link>> //Will cost <<print cashFormat($surgeryCost)>>//
 			<br><<link "Castrate $him">>
@@ -4900,7 +4900,7 @@ brought in to you. This time <<EventNameLink $activeSlave>> has been sent to del
 				As you pull $his limp body to the remote surgery, you notice $he understands what $he has done and begs you to reconsider your decision; but your mind is set. $He had the balls to try and rape you, and now $he won't. Restrained as $he is, the most $he can do is cry and beg. Once $he comes to after the surgery, $he faces $his new life; @@.mediumorchid;$he'll never get hard again@@ and $he's @@.gold;the only one to blame@@ for $his @@.red;suffering.@@ Every other rebellious slave is @@.gold;mortified by the example.@@
 				<<set $activeSlave.trust -= 20, $activeSlave.devotion -= 10, $activeSlave.health -= 10>>
 				<<set $slaves.forEach(function(s) { if (s.devotion < -50) { s.trust -= 5; } })>>
-				<<set $cash -= $surgeryCost>>
+				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 				<</replace>> //Will cost <<print cashFormat($surgeryCost)>>//
 			<</link>>
 			<<if $activeSlave.vagina == -2>>
@@ -4987,7 +4987,7 @@ brought in to you. This time <<EventNameLink $activeSlave>> has been sent to del
 				As you pull $his limp body to the remote surgery, you notice $he understands what $he has done and begs you to reconsider your decision; but your mind is set. $He tried to rape you, $he must be silenced. Restrained as $he is, the most $he can do is cry and beg. When $he awakens from surgery, $he realizes all you did was stop $him from talking; @@.mediumaquamarine;what stops $him from making another go at you?@@ Your other rebellious slaves see this a minor loss for a potentially huge gain and, if anything, @@.mediumaquamarine;become more defiant.@@
 				<<set $activeSlave.trust += 5, $activeSlave.devotion -= 15, $activeSlave.voice = 0>>
 				<<set $slaves.forEach(function(s) { if (s.devotion < -50) { s.trust += 10; } })>>
-				<<set $cash -= $surgeryCost>>
+				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 				<</replace>>
 			<</link>> //Will cost <<print cashFormat($surgeryCost)>>//
 			<br><<link "Castrate $him">>
@@ -4995,7 +4995,7 @@ brought in to you. This time <<EventNameLink $activeSlave>> has been sent to del
 				As you pull $his limp body to the remote surgery, you notice $he understands what $he has done and begs you to reconsider your decision; but your mind is set. $He had the balls to try and rape you, and now $he won't. Restrained as $he is, the most $he can do is cry and beg. Once $he comes to after the surgery, $he faces $his new life; @@.mediumorchid;$he'll never get hard again@@ and $he's @@.gold;the only one to blame@@ for $his @@.red;suffering.@@ Every other rebellious slave is @@.gold;mortified by the example.@@
 				<<set $activeSlave.trust -= 20, $activeSlave.devotion -= 10, $activeSlave.health -= 10>>
 				<<set $slaves.forEach(function(s) { if (s.devotion < -50) { s.trust -= 5; } })>>
-				<<set $cash -= $surgeryCost>>
+				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 				<</replace>> //Will cost <<print cashFormat($surgeryCost)>>//
 			<</link>>
 			<<if $activeSlave.vagina == -2>>
@@ -5057,7 +5057,7 @@ brought in to you. This time <<EventNameLink $activeSlave>> has been sent to del
 			As you pull $his limp body to the remote surgery, you notice $he understands what $he has done and begs you to reconsider your decision; but your mind is set. $He tried to rape you, $he must be silenced. Restrained as $he is, the most $he can do is cry and beg. When $he awakens from surgery, $he realizes all you did was stop $him from talking; @@.mediumaquamarine;what stops $him from making another go at you?@@ Your other rebellious slaves see this a minor loss for a potentially huge gain and, if anything, @@.mediumaquamarine;become more defiant.@@
 			<<set $activeSlave.trust += 5, $activeSlave.devotion -= 15, $activeSlave.voice = 0>>
 			<<set $slaves.forEach(function(s) { if (s.devotion < -50) { s.trust += 10; } })>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<</replace>>
 		<</link>> //Will cost <<print cashFormat($surgeryCost)>>//
 		<br><<link "Castrate $him">>
@@ -5065,7 +5065,7 @@ brought in to you. This time <<EventNameLink $activeSlave>> has been sent to del
 			As you pull $his limp body to the remote surgery, you notice $he understands what $he has done and begs you to reconsider your decision; but your mind is set. $He had the balls to try and rape you, and now $he won't. Restrained as $he is, the most $he can do is cry and beg. Once $he comes to after the surgery, $he faces $his new life; @@.mediumorchid;$he'll never get hard again@@ and $he's @@.gold;the only one to blame@@ for $his @@.red;suffering.@@ Every other rebellious slave is @@.gold;mortified by the example.@@
 			<<set $activeSlave.trust -= 20, $activeSlave.devotion -= 10, $activeSlave.health -= 10>>
 			<<set $slaves.forEach(function(s) { if (s.devotion < -50) { s.trust -= 5; } })>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<</replace>> //Will cost <<print cashFormat($surgeryCost)>>//
 		<</link>>
 		<<if $activeSlave.vagina == -2>>
@@ -17474,7 +17474,7 @@ You tell $him kindly that you understand, and that $he'll be trained to address
 		<<set $activeSlave.vagina++, $activeSlave.vaginalCount += 20, $vaginalTotal += 20, $activeSlave.publicCount += 20>>
 	<</if>>
 	<<= knockMeUp($activeSlave, 100, 2, -2, 1)>>
-	<<set $cash -= $surgeryCost>>
+	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 	<<set $activeSlave.health -= 20>>
 	<<if ($arcologies[0].FSSubjugationistRace == "white")>>
 		<<set $activeSlave.race = "white">>
@@ -18093,7 +18093,7 @@ You tell $him kindly that you understand, and that $he'll be trained to address
 	<<replace "#result">>
 		You announce that you're resolved to continue growing $his breasts, and since $he feels like a cow, plan to help $him fulfill $his image of $himself. $He's experienced enough to know not to question what that means, just to @@.gold;fear the intent behind it.@@ $He's right to worry, as you drag $him to the remote surgery for an impromptu lactation implant installation. When $he comes to, $he immediately realizes $his breasts are larger than ever. As $he brings a hand to each of the full mounds, a moan laced with relief and disdain escapes $his lips; along with a strong gush of milk from $his engorged breasts. $He has been taught a harsh lesson about questioning your will, a lesson $he will be reminded of every time $he has to empty $his ever swelling breasts of their excessive milk. As with all surgery @@.red;$his health has been slightly affected.@@
 		<<set $activeSlave.trust -= 5, $activeSlave.lactation = 2, $activeSlave.health -= 10>>
-		<<set $cash -= $surgeryCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 	<</replace>>
 <</link>>
 <</if>> //This option will cost <<print cashFormat($surgeryCost)>>//
@@ -18203,7 +18203,7 @@ You tell $him kindly that you understand, and that $he'll be trained to address
 	<<EventNameDelink $activeSlave>>
 	<<replace "#result">>
 		You schedule $him for the surgery. Like all invasive procedures, it @@.red;affects $his health,@@ but @@.lime;$he's effectively an anal virgin again.@@ $He @@.mediumaquamarine;trusts you a bit more@@ for granting $his request, and is eager for buttsex that's more interesting than having a hotdog thrown down $his hallway.
-		<<set $activeSlave.trust += 3, $activeSlave.health -= 10, $activeSlave.anus = 0, $cash -= $surgeryCost>>
+		<<set $activeSlave.trust += 3, $activeSlave.health -= 10, $activeSlave.anus = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<if $activeSlave.analSkill > 10>><<set $activeSlave.analSkill -= 10>><</if>>
 		<br><br>
 		<span id="result2">
diff --git a/src/uncategorized/bodyModification.tw b/src/uncategorized/bodyModification.tw
index c74ca3bf5a26fec90eafb21106d6bb2da3ca5796..1e70741d7a18a215f61c7d25cb9ac0f527107c13 100644
--- a/src/uncategorized/bodyModification.tw
+++ b/src/uncategorized/bodyModification.tw
@@ -389,55 +389,55 @@ Choose piercing style:
 //Lightly// pierce $his:
 
 <<link "Entire body">>
-	<<if $activeSlave.earPiercing != 1>><<set $activeSlave.earPiercing = 1>>				<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.nosePiercing != 1>><<set $activeSlave.nosePiercing = 1>>				<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.eyebrowPiercing != 1>><<set $activeSlave.eyebrowPiercing = 1>>		<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.lipsPiercing != 1>><<set $activeSlave.lipsPiercing = 1>>				<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.tonguePiercing != 1>><<set $activeSlave.tonguePiercing = 1>>			<<set $cash -= $modCost>><</if>>
+	<<if $activeSlave.earPiercing != 1>><<set $activeSlave.earPiercing = 1>>				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.nosePiercing != 1>><<set $activeSlave.nosePiercing = 1>>				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.eyebrowPiercing != 1>><<set $activeSlave.eyebrowPiercing = 1>>		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.lipsPiercing != 1>><<set $activeSlave.lipsPiercing = 1>>				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.tonguePiercing != 1>><<set $activeSlave.tonguePiercing = 1>>			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
 	<<if $activeSlave.nipples != "fuckable">>
-		<<if $activeSlave.nipplesPiercing != 1 && >><<set $activeSlave.nipplesPiercing = 1>><<set $cash -= $modCost>><</if>>
+		<<if $activeSlave.nipplesPiercing != 1 && >><<set $activeSlave.nipplesPiercing = 1>><<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
 	<</if>>
-	<<if $activeSlave.areolaePiercing != 1>><<set $activeSlave.areolaePiercing = 1>>		<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.corsetPiercing != 1>><<set $activeSlave.corsetPiercing = 1>>			<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.navelPiercing != 1>><<set $activeSlave.navelPiercing = 1>>			<<set $cash -= $modCost>><</if>>
+	<<if $activeSlave.areolaePiercing != 1>><<set $activeSlave.areolaePiercing = 1>>		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.corsetPiercing != 1>><<set $activeSlave.corsetPiercing = 1>>			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.navelPiercing != 1>><<set $activeSlave.navelPiercing = 1>>			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
 	<<if ($activeSlave.vagina != -1) || ($activeSlave.dick != 0)>>
-		<<if $activeSlave.clitPiercing != 1>><<set $activeSlave.clitPiercing = 1>>			<<set $cash -= $modCost>><</if>>
+		<<if $activeSlave.clitPiercing != 1>><<set $activeSlave.clitPiercing = 1>>			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
 	<</if>>
 	<<if ($activeSlave.vagina != -1)>>
-		<<if $activeSlave.vaginaPiercing != 1>><<set $activeSlave.vaginaPiercing = 1>>		<<set $cash -= $modCost>><</if>>
+		<<if $activeSlave.vaginaPiercing != 1>><<set $activeSlave.vaginaPiercing = 1>>		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
 	<</if>>
 	<<if ($activeSlave.dick > 0)>>
-		<<if $activeSlave.dickPiercing != 1>><<set $activeSlave.dickPiercing = 1>>			<<set $cash -= $modCost>><</if>>
+		<<if $activeSlave.dickPiercing != 1>><<set $activeSlave.dickPiercing = 1>>			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
 	<</if>>
-	<<if $activeSlave.anusPiercing != 1>><<set $activeSlave.anusPiercing = 1>>				<<set $cash -= $modCost>><</if>>
+	<<if $activeSlave.anusPiercing != 1>><<set $activeSlave.anusPiercing = 1>>				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
 	<<goto "Body Modification">>
 <</link>>
 
-<<if $activeSlave.earPiercing != 1>> 		| [[Ear|Body Modification][$activeSlave.earPiercing = 1, $cash -= $modCost]]<</if>>
-<<if $activeSlave.nosePiercing != 1>> 		| [[Nose|Body Modification][$activeSlave.nosePiercing = 1, $cash -= $modCost]]<</if>>
-<<if $activeSlave.eyebrowPiercing != 1>> 	| [[Eyebrow|Body Modification][$activeSlave.eyebrowPiercing = 1, $cash -= $modCost]]<</if>>
-<<if $activeSlave.lipsPiercing != 1>> 		| [[Lips|Body Modification][$activeSlave.lipsPiercing = 1, $cash -= $modCost]]<</if>>
-<<if $activeSlave.tonguePiercing != 1>> 	| [[Tongue|Body Modification][$activeSlave.tonguePiercing = 1, $cash -= $modCost]]<</if>>
+<<if $activeSlave.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, $cash -= $modCost]]<</if>>
+<<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, $cash -= $modCost]]<</if>>
-<<if $activeSlave.corsetPiercing != 1>> 	| [[Corset|Body Modification][$activeSlave.corsetPiercing = 1, $cash -= $modCost]]<</if>>
-<<if $activeSlave.navelPiercing != 1>> 		| [[Navel|Body Modification][$activeSlave.navelPiercing = 1, $cash -= $modCost]]<</if>>
+<<if $activeSlave.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, $cash -= $modCost]]<</if>>
+		<<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, $cash -= $modCost]]<</if>>
+		<<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>> | [[Vagina|Body Modification][$activeSlave.vaginaPiercing = 1, $cash -= $modCost]]<</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>> 	| [[Dick|Body Modification][$activeSlave.dickPiercing = 1, $cash -= $modCost]]<</if>>
+	<<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, $cash -= $modCost]]<</if>>
+<<if $activeSlave.anusPiercing != 1>> 		| [[Anus|Body Modification][$activeSlave.anusPiercing = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
 <</if>>
 
 <<if $piercingLevel == 2>>
@@ -445,55 +445,55 @@ Choose piercing style:
 ''Heavily'' pierce $his:
 
 <<link "Entire body">>
-	<<if $activeSlave.earPiercing != 2>><<set $activeSlave.earPiercing = 2>>			<<set $cash -= $modCost, $degradation += 1>><</if>>
-	<<if $activeSlave.nosePiercing != 2>><<set $activeSlave.nosePiercing = 2>>			<<set $cash -= $modCost, $degradation += 1>><</if>>
-	<<if $activeSlave.eyebrowPiercing != 2>><<set $activeSlave.eyebrowPiercing = 2>>	<<set $cash -= $modCost, $degradation += 1>><</if>>
-	<<if $activeSlave.lipsPiercing != 2>><<set $activeSlave.lipsPiercing = 2>>			<<set $cash -= $modCost, $degradation += 1>><</if>>
-	<<if $activeSlave.tonguePiercing != 2>><<set $activeSlave.tonguePiercing = 2>>		<<set $cash -= $modCost, $degradation += 1>><</if>>
+	<<if $activeSlave.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 $cash -= $modCost, $degradation += 1>><</if>>
+	<<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 $cash -= $modCost, $degradation += 1>><</if>>
-	<<if $activeSlave.corsetPiercing != 2>><<set $activeSlave.corsetPiercing = 2>>		<<set $cash -= $modCost, $degradation += 1>><</if>>
-	<<if $activeSlave.navelPiercing != 2>><<set $activeSlave.navelPiercing = 2>>		<<set $cash -= $modCost, $degradation += 1>><</if>>
+	<<if $activeSlave.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 $cash -= $modCost, $degradation += 1>><</if>>
+		<<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 $cash -= $modCost, $degradation += 1>><</if>>
+		<<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 $cash -= $modCost, $degradation += 1>><</if>>
+		<<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 $cash -= $modCost, $degradation += 1>><</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, $cash -= $modCost,$degradation += 1]]<</if>>
-<<if $activeSlave.nosePiercing != 2>> 		| [[Nose|Body Modification][$activeSlave.nosePiercing = 2, $cash -= $modCost,$degradation += 1]]<</if>>
-<<if $activeSlave.eyebrowPiercing != 2>> 	| [[Eyebrow|Body Modification][$activeSlave.eyebrowPiercing = 2, $cash -= $modCost,$degradation += 1]]<</if>>
-<<if $activeSlave.lipsPiercing != 2>> 		| [[Lips|Body Modification][$activeSlave.lipsPiercing = 2, $cash -= $modCost,$degradation += 1]]<</if>>
-<<if $activeSlave.tonguePiercing != 2>> 	| [[Tongue|Body Modification][$activeSlave.tonguePiercing = 2, $cash -= $modCost,$degradation += 1]]<</if>>
+<<if $activeSlave.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, $cash -= $modCost,$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>> 	| [[Areolae|Body Modification][$activeSlave.areolaePiercing = 2, $cash -= $modCost,$degradation += 1]]<</if>>
-<<if $activeSlave.corsetPiercing != 2>> 	| [[Corset|Body Modification][$activeSlave.corsetPiercing = 2, $cash -= $modCost,$degradation += 1]]<</if>>
-<<if $activeSlave.navelPiercing != 2>> 		| [[Navel|Body Modification][$activeSlave.navelPiercing = 2, $cash -= $modCost,$degradation += 1]]<</if>>
+<<if $activeSlave.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, $cash -= $modCost,$degradation += 1]]<</if>>
+		<<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, $cash -= $modCost,$degradation += 1]]<</if>>
+		<<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, $cash -= $modCost,$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>> 	| [[Dick|Body Modification][$activeSlave.dickPiercing = 2, $cash -= $modCost,$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>> 		| [[Anus|Body Modification][$activeSlave.anusPiercing = 2, $cash -= $modCost,$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>>
@@ -514,40 +514,40 @@ Remove piercings from:
 
 /* no dick/vagina checks in 'remove' so stealth piercings can be cleaned. Check only for piercings. */
 <<link "Everywhere">>
-	<<if $activeSlave.earPiercing > 0>><<set $activeSlave.earPiercing = 0>>			<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.nosePiercing > 0>><<set $activeSlave.nosePiercing = 0>>		<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.eyebrowPiercing > 0>><<set $activeSlave.eyebrowPiercing = 0>>	<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.lipsPiercing > 0>><<set $activeSlave.lipsPiercing = 0>>		<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.tonguePiercing > 0>><<set $activeSlave.tonguePiercing = 0>>	<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.nipplesPiercing > 0>><<set $activeSlave.nipplesPiercing = 0>>	<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.areolaePiercing > 0>><<set $activeSlave.areolaePiercing = 0>>	<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.corsetPiercing > 0>><<set $activeSlave.corsetPiercing = 0>>	<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.navelPiercing > 0>><<set $activeSlave.navelPiercing = 0>>		<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.clitPiercing > 0>><<set $activeSlave.clitPiercing = 0>>		<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.vaginaPiercing > 0>><<set $activeSlave.vaginaPiercing = 0>>	<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.dickPiercing > 0>><<set $activeSlave.dickPiercing = 0>>		<<set $cash -= $modCost>><</if>>
-	<<if $activeSlave.anusPiercing > 0>><<set $activeSlave.anusPiercing = 0>>		<<set $cash -= $modCost>><</if>>
+	<<if $activeSlave.earPiercing > 0>><<set $activeSlave.earPiercing = 0>>			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.nosePiercing > 0>><<set $activeSlave.nosePiercing = 0>>		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.eyebrowPiercing > 0>><<set $activeSlave.eyebrowPiercing = 0>>	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.lipsPiercing > 0>><<set $activeSlave.lipsPiercing = 0>>		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.tonguePiercing > 0>><<set $activeSlave.tonguePiercing = 0>>	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.nipplesPiercing > 0>><<set $activeSlave.nipplesPiercing = 0>>	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.areolaePiercing > 0>><<set $activeSlave.areolaePiercing = 0>>	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.corsetPiercing > 0>><<set $activeSlave.corsetPiercing = 0>>	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.navelPiercing > 0>><<set $activeSlave.navelPiercing = 0>>		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.clitPiercing > 0>><<set $activeSlave.clitPiercing = 0>>		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.vaginaPiercing > 0>><<set $activeSlave.vaginaPiercing = 0>>	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.dickPiercing > 0>><<set $activeSlave.dickPiercing = 0>>		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
+	<<if $activeSlave.anusPiercing > 0>><<set $activeSlave.anusPiercing = 0>>		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>><</if>>
 	<<goto "Body Modification">>
 
 <</link>>
 
-<<if $activeSlave.earPiercing > 0>> 		| [[Ear|Body Modification][$activeSlave.earPiercing = 0, $cash -= $modCost]]<</if>>
-<<if $activeSlave.nosePiercing > 0>> 		| [[Nose|Body Modification][$activeSlave.nosePiercing = 0, $cash -= $modCost]]<</if>>
-<<if $activeSlave.eyebrowPiercing > 0>> 	| [[Eyebrow|Body Modification][$activeSlave.eyebrowPiercing = 0, $cash -= $modCost]]<</if>>
-<<if $activeSlave.lipsPiercing > 0>> 		| [[Lips|Body Modification][$activeSlave.lipsPiercing = 0, $cash -= $modCost]]<</if>>
-<<if $activeSlave.tonguePiercing > 0>> 		| [[Tongue|Body Modification][$activeSlave.tonguePiercing = 0, $cash -= $modCost]]<</if>>
-<<if $activeSlave.nipplesPiercing > 0>> 	| [[Nipples|Body Modification][$activeSlave.nipplesPiercing = 0, $cash -= $modCost]]<</if>>
-<<if $activeSlave.areolaePiercing > 0>> 	| [[Areolae|Body Modification][$activeSlave.areolaePiercing = 0, $cash -= $modCost]]<</if>>
-<<if $activeSlave.corsetPiercing > 0>> 		| [[Corset|Body Modification][$activeSlave.corsetPiercing = 0, $cash -= $modCost]]<</if>>
-<<if $activeSlave.navelPiercing > 0>> 		| [[Navel|Body Modification][$activeSlave.navelPiercing = 0, $cash -= $modCost]]<</if>>
+<<if $activeSlave.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, $cash -= $modCost]]<</if>>
+	<<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, $cash -= $modCost]]<</if>>
+	<<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, $cash -= $modCost]]<</if>>
-<<if $activeSlave.dickPiercing > 0>> 		| [[Dick|Body Modification][$activeSlave.dickPiercing = 0, $cash -= $modCost]]<</if>>
-<<if $activeSlave.anusPiercing > 0>> 		| [[Anus|Body Modification][$activeSlave.anusPiercing = 0, $cash -= $modCost]]<</if>>
+<<if $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>
@@ -586,7 +586,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",$cash -= $modCost]]<<else>>| Bleach<</if>>
+	<<if $tattooChoice != "bleached">>| [[Bleach|Body Modification][$tattooChoice = "bleached",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<<else>>| Bleach<</if>>
 <</if>>
 
 <<if _hasTat == 1>>
@@ -610,26 +610,26 @@ Choose a tattoo style:
 		<<set _degradationTemp = 0>>
 		<<if $activeSlave.boobsTat != $tattooChoice>>
 			<<set $activeSlave.boobsTat = $tattooChoice>>
-			<<set $cash -= $modCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set _degradationTemp += 1>>
 		<</if>>
 
 		<<if $activeSlave.buttTat != $tattooChoice>>
 			<<set $activeSlave.buttTat = $tattooChoice>>
-			<<set $cash -= $modCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set _degradationTemp += 1>>
 		<</if>>
 
 		<<if $activeSlave.vaginaTat != $tattooChoice>>
 			<<set $activeSlave.vaginaTat = $tattooChoice>>
-			<<set $cash -= $modCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set _degradationTemp += 1>>
 		<</if>>
 
 		<<if $activeSlave.dick > 0>>
 		<<if $activeSlave.dickTat != $tattooChoice && $tattooChoice != "scenes">>
 			<<set $activeSlave.dickTat = $tattooChoice>>
-			<<set $cash -= $modCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set _degradationTemp += 1>>
 		<</if>>
 		<</if>>
@@ -640,48 +640,48 @@ Choose a tattoo style:
 			<<else>>
 				<<set $activeSlave.lipsTat = $tattooChoice>>
 			<</if>>
-			<<set $cash -= $modCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set _degradationTemp += 1>>
 		<</if>>
 
 		<<if ($tattooChoice == "Asian art" || $tattooChoice == "scenes") && $activeSlave.anusTat == "bleached">>
 			<<set $activeSlave.anusTat = "bleached">>
-			<<set $cash -= $modCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set _degradationTemp += 1>>
 		<<elseif $activeSlave.anusTat != $tattooChoice>>
 			<<set $activeSlave.anusTat = $tattooChoice>>
-			<<set $cash -= $modCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set _degradationTemp += 1>>
 		<</if>>
 
 		<<if $activeSlave.shouldersTat != $tattooChoice>>
 			<<set $activeSlave.shouldersTat = $tattooChoice>>
-			<<set $cash -= $modCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set _degradationTemp += 1>>
 		<</if>>
 
 		<<if $activeSlave.backTat != $tattooChoice>>
 			<<set $activeSlave.backTat = $tattooChoice>>
-			<<set $cash -= $modCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set _degradationTemp += 1>>
 		<</if>>
 
 		<<if $activeSlave.amp != 1>>
 		<<if $activeSlave.armsTat != $tattooChoice>>
 			<<set $activeSlave.armsTat = $tattooChoice>>
-			<<set $cash -= $modCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set _degradationTemp += 1>>
 		<</if>>
 		<<if $activeSlave.legsTat != $tattooChoice>>
 			<<set $activeSlave.legsTat = $tattooChoice>>
-			<<set $cash -= $modCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set _degradationTemp += 1>>
 		<</if>>
 		<</if>>
 
 		<<if $activeSlave.stampTat != $tattooChoice>>
 			<<set $activeSlave.stampTat = $tattooChoice>>
-			<<set $cash -= $modCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set _degradationTemp += 1>>
 		<</if>>
 
@@ -694,48 +694,48 @@ Choose a tattoo style:
 	<</if>>
 
 	<<if $tattooChoice == 0>>
-		<<if $activeSlave.shouldersTat != $tattooChoice>> | [[Shoulders|Body Modification][$activeSlave.shouldersTat = $tattooChoice,$cash -= $modCost]]<</if>>
-		<<if $activeSlave.lipsTat != $tattooChoice>> | [[Face|Body Modification][$activeSlave.lipsTat = $tattooChoice,$cash -= $modCost]]<</if>>
-		<<if $activeSlave.boobsTat != $tattooChoice>> | [[Boobs|Body Modification][$activeSlave.boobsTat = $tattooChoice,$cash -= $modCost]]<</if>>
+		<<if $activeSlave.shouldersTat != $tattooChoice>> | [[Shoulders|Body Modification][$activeSlave.shouldersTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+		<<if $activeSlave.lipsTat != $tattooChoice>> | [[Face|Body Modification][$activeSlave.lipsTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+		<<if $activeSlave.boobsTat != $tattooChoice>> | [[Boobs|Body Modification][$activeSlave.boobsTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
 		<<if $activeSlave.amp != 1>>
-			<<if $activeSlave.armsTat != $tattooChoice>> | [[Arms|Body Modification][$activeSlave.armsTat = $tattooChoice,$cash -= $modCost]]<</if>>
+			<<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,$cash -= $modCost]]<</if>>
-		<<if $activeSlave.stampTat != $tattooChoice>> | [[Lower back|Body Modification][$activeSlave.stampTat = $tattooChoice,$cash -= $modCost]]<</if>>
-		<<if $activeSlave.buttTat != $tattooChoice>> | [[Buttock|Body Modification][$activeSlave.buttTat = $tattooChoice,$cash -= $modCost]]<</if>>
-		<<if $activeSlave.vaginaTat != $tattooChoice>> | [[Vagina|Body Modification][$activeSlave.vaginaTat = $tattooChoice,$cash -= $modCost]]<</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,$cash -= $modCost]]<</if>>
+			<<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,$cash -= $modCost]]<</if>>
+		<<if $activeSlave.anusTat != $tattooChoice>> | [[Anus|Body Modification][$activeSlave.anusTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
 		<<if $activeSlave.amp != 1>>
-			<<if $activeSlave.legsTat != $tattooChoice>> | [[Legs|Body Modification][$activeSlave.legsTat = $tattooChoice,$cash -= $modCost]]<</if>>
+			<<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,$cash -= $modCost]]
+		[[Face|Body Modification][$activeSlave.lipsTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<<elseif $tattooChoice == "bleached">>
-		[[Asshole|Body Modification][$activeSlave.anusTat = $tattooChoice,$cash -= $modCost]]
+		[[Asshole|Body Modification][$activeSlave.anusTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<<else>>
-		<<if $activeSlave.shouldersTat != $tattooChoice>> | [[Shoulders|Body Modification][$activeSlave.shouldersTat = $tattooChoice,$cash -= $modCost]]<</if>>
+		<<if $activeSlave.shouldersTat != $tattooChoice>> | [[Shoulders|Body Modification][$activeSlave.shouldersTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
 		<<if $tattooChoice != "scenes">>
-			<<if $activeSlave.lipsTat != $tattooChoice>> | [[Face|Body Modification][$activeSlave.lipsTat = $tattooChoice,$cash -= $modCost]]<</if>>
+			<<if $activeSlave.lipsTat != $tattooChoice>> | [[Face|Body Modification][$activeSlave.lipsTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
 		<</if>>
-		<<if $activeSlave.boobsTat != $tattooChoice>> | [[Boobs|Body Modification][$activeSlave.boobsTat = $tattooChoice,$cash -= $modCost]]<</if>>
+		<<if $activeSlave.boobsTat != $tattooChoice>> | [[Boobs|Body Modification][$activeSlave.boobsTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
 		<<if $activeSlave.amp != 1>>
-			<<if $activeSlave.armsTat != $tattooChoice>> | [[Arms|Body Modification][$activeSlave.armsTat = $tattooChoice,$cash -= $modCost]]<</if>>
+			<<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,$cash -= $modCost]]<</if>>
-		<<if $activeSlave.stampTat != $tattooChoice>> | [[Lower back|Body Modification][$activeSlave.stampTat = $tattooChoice,$cash -= $modCost]]<</if>>
-		<<if $activeSlave.buttTat != $tattooChoice>> | [[Buttock|Body Modification][$activeSlave.buttTat = $tattooChoice,$cash -= $modCost]]<</if>>
-		<<if $activeSlave.vaginaTat != $tattooChoice>> | [[Vagina|Body Modification][$activeSlave.vaginaTat = $tattooChoice,$cash -= $modCost]]<</if>>
+		<<if $activeSlave.backTat != $tattooChoice>> | [[Upper back|Body Modification][$activeSlave.backTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+		<<if $activeSlave.stampTat != $tattooChoice>> | [[Lower back|Body Modification][$activeSlave.stampTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+		<<if $activeSlave.buttTat != $tattooChoice>> | [[Buttock|Body Modification][$activeSlave.buttTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+		<<if $activeSlave.vaginaTat != $tattooChoice>> | [[Vagina|Body Modification][$activeSlave.vaginaTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
 		<<if $activeSlave.dick > 0 && $tattooChoice != "scenes">>
-			<<if $activeSlave.dickTat != $tattooChoice>> | [[Dick|Body Modification][$activeSlave.dickTat = $tattooChoice,$cash -= $modCost]]<</if>>
+			<<if $activeSlave.dickTat != $tattooChoice>> | [[Dick|Body Modification][$activeSlave.dickTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
 		<</if>>
 		<<if ($tattooChoice != "Asian art") && ($tattooChoice != "scenes")>>
-			<<if $activeSlave.anusTat != $tattooChoice>> | [[Anus|Body Modification][$activeSlave.anusTat = $tattooChoice,$cash -= $modCost]]<</if>>
+			<<if $activeSlave.anusTat != $tattooChoice>> | [[Anus|Body Modification][$activeSlave.anusTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
 		<</if>>
 		<<if $activeSlave.amp != 1>>
-			<<if $activeSlave.legsTat != $tattooChoice>> | [[Legs|Body Modification][$activeSlave.legsTat = $tattooChoice,$cash -= $modCost]]<</if>>
+			<<if $activeSlave.legsTat != $tattooChoice>> | [[Legs|Body Modification][$activeSlave.legsTat = $tattooChoice,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
 		<</if>>
 	<</if>>
 <</if>>
@@ -749,12 +749,12 @@ Choose a tattoo style:
 	<</if>>
 	<<if $activeSlave.bellyTat == 0>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
-		[[Heart|Body Modification][$activeSlave.bellyTat = "a heart",$cash -= $modCost]]
-		| [[Star|Body Modification][$activeSlave.bellyTat = "a star",$cash -= $modCost]]
-		| [[Butterfly|Body Modification][$activeSlave.bellyTat = "a butterfly",$cash -= $modCost,$degradation += 1]]
+		[[Heart|Body Modification][$activeSlave.bellyTat = "a heart",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Star|Body Modification][$activeSlave.bellyTat = "a star",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Butterfly|Body Modification][$activeSlave.bellyTat = "a butterfly",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 1]]
 	<</if>>
 	<<if $activeSlave.bellyTat != 0>>
-		//[[Remove tattoos|Body Modification][$activeSlave.bellyTat = 0,$cash -= $modCost]]//
+		//[[Remove tattoos|Body Modification][$activeSlave.bellyTat = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]//
 	<</if>>
 <<elseif $activeSlave.bellyPreg >= 450000>>
 	$His middle is large and taut enough to be a suitable canvas for a navel focused tattoo, but $his brood is too active to permit the needle to do its work.
@@ -834,7 +834,7 @@ Custom Tats:
 	Change it here: <<textbox "$activeSlave.customTat" $activeSlave.customTat "Slave Interact">>
 <</if>>
 <<if $activeSlave.customTat != "">>
-	//[[Remove custom tattoo|Body Modification][$activeSlave.customTat = "",$cash -= $modCost]]//
+	//[[Remove custom tattoo|Body Modification][$activeSlave.customTat = "",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]//
 <</if>>
 
 
@@ -846,7 +846,7 @@ Custom Tats:
 Branding:
 <<if $activeSlave.brand != 0>>
 	<<brandDescription>>
-	[[Remove Brand|Body Modification][$brandApplied = 0, $activeSlave.brand = 0,$cash -= $modCost,$degradation -= 10]]
+	[[Remove Brand|Body Modification][$brandApplied = 0, $activeSlave.brand = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation -= 10]]
 <<else>>
 	$His skin is unmarked.
 <</if>>
@@ -955,14 +955,14 @@ Choose a site for branding:
 
 <br>&nbsp;&nbsp;&nbsp;&nbsp;
 <<if ($brandTarget == "neck" || $brandTarget == "chest" || $brandTarget == "belly" || $brandTarget == "pubic mound" || $brandTarget == "back" || $brandTarget == "lower back")>>
-	[[Brand|Body Modification][$brandApplied = 1,$activeSlave.brand = $brandDesign,$activeSlave.brandLocation = $brandTarget,$cash -= $modCost,$degradation += 10]] with $brandDesign on the $brandTarget.
+	[[Brand|Body Modification][$brandApplied = 1,$activeSlave.brand = $brandDesign,$activeSlave.brandLocation = $brandTarget,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$degradation += 10]] with $brandDesign on the $brandTarget.
 <<else>>
 	Brand $him now with ''$brandDesign'' on the
 	<<link "left">>
 		<<set $brandApplied = 1>>
 		<<set $activeSlave.brand = $brandDesign>>
 		<<set $activeSlave.brandLocation = ("left " + $brandTarget)>>
-		<<set $cash -= $modCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $degradation += 10>>
 		<<goto "Body Modification">>
 	<</link>>
@@ -971,7 +971,7 @@ Choose a site for branding:
 		<<set $brandApplied = 1>>
 		<<set $activeSlave.brand = $brandDesign>>
 		<<set $activeSlave.brandLocation = ("right " + $brandTarget)>>
-		<<set $cash -= $modCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $degradation += 10>>
 		<<goto "Body Modification">>
 	<</link>>
@@ -1006,7 +1006,7 @@ Choose a site for branding:
 		<<elseif $brandTarget == "foot">>
 			<<set $activeSlave.brandLocation = "feet">>
 		<</if>>
-		<<set $cash -= $modCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $degradation += 10>>
 		<<goto "Body Modification">>
 	<</link>>?
diff --git a/src/uncategorized/bulkSlaveGenerate.tw b/src/uncategorized/bulkSlaveGenerate.tw
index d5d08caff83412756760656d4087c1bea32a109b..7189440cfea66fe92dc690807b1a628b7c597c1c 100644
--- a/src/uncategorized/bulkSlaveGenerate.tw
+++ b/src/uncategorized/bulkSlaveGenerate.tw
@@ -117,7 +117,7 @@
 		<<set _i = $numSlaves>>
 		<<break>>
 	<<else>>
-		<<set $cash -= $slaveCost>>
+		<<run cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave)>>
 		<<set $newSlaves.push($activeSlave)>>
 		<<set $spent += $slaveCost>>
 	<</if>>
diff --git a/src/uncategorized/genericPlotEvents.tw b/src/uncategorized/genericPlotEvents.tw
index a789d5ccf951a2c05da93a7c9c9a33cda0e5b57e..8cfecb1e08bf8bd358542bb69f3978d509935671 100644
--- a/src/uncategorized/genericPlotEvents.tw
+++ b/src/uncategorized/genericPlotEvents.tw
@@ -1047,7 +1047,7 @@ A screen opposite your desk springs to life, <<if $assistant == 0>>showing your
 <<if $PStrip != 3>>
 	<<if $cash >= $contractCost>>
 	<<link "Enslave $him">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 		<<if $PStrip == 1>>
 			$He sobs with gratitude as the biometric scanners scrupulously record $his every particular as belonging not to a person but to a piece of human property. The medical scan discloses that $his aphrodisiac addiction is very new: $he will probably be able to kick the habit in short order if you decide to withhold further doses.
diff --git a/src/uncategorized/growthResearchInstitute.tw b/src/uncategorized/growthResearchInstitute.tw
index ddd3764868934c1ed1d87f2523a495f5cd934144..7d07b9231ad4a7b2c3c085cc18337af803df8b7f 100644
--- a/src/uncategorized/growthResearchInstitute.tw
+++ b/src/uncategorized/growthResearchInstitute.tw
@@ -25,11 +25,11 @@
 
 <<setLocalPronouns $activeSlave>>
 <<if $cash >= $slaveCost>>
-	<br>[["Buy " + $him + " and check out other slaves to order"|Growth Research Institute][$cash -= $slaveCost, $GRI.schoolSale = 0, $GRI.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
+	<br>[["Buy " + $him + " and check out other slaves to order"|Growth Research Institute][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $GRI.schoolSale = 0, $GRI.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
 	<<if $newSlaves.length == 0>>
-		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cash -= $slaveCost, $GRI.schoolSale = 0, $GRI.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
+		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $GRI.schoolSale = 0, $GRI.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
 	<<else>>
-		<br>[[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cash -= $slaveCost, $GRI.schoolSale = 0, $GRI.studentsBought += 1, $newSlaves.push($activeSlave)]]
+		<br>[[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $GRI.schoolSale = 0, $GRI.studentsBought += 1, $newSlaves.push($activeSlave)]]
 	<</if>>
 <<else>>
 	//You lack the necessary funds to buy this slave.//
diff --git a/src/uncategorized/hgApplication.tw b/src/uncategorized/hgApplication.tw
index fc4ed01e7d1a553c27689c496126b564801da580..4a491bf30dad8f05012444048c0032a1cf3e5a90 100644
--- a/src/uncategorized/hgApplication.tw
+++ b/src/uncategorized/hgApplication.tw
@@ -334,7 +334,7 @@ In spare moments $he teaches $activeSlave.slaveName how to prostitute _himself2.
 				<<set _piercingForbidden = 1, $activeSlave.earPiercing = 0>>
 			<<else>>
 				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave _girl2, so $he has the slave's ears pierced. A little feminine touch can make a big difference.
-				<<set $cash -= $modCost>>
+				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 				<<break>>
 			<</if>>
 		<</if>>
@@ -345,7 +345,7 @@ In spare moments $he teaches $activeSlave.slaveName how to prostitute _himself2.
 				<<set _piercingForbidden = 1, $activeSlave.nosePiercing = 0>>
 			<<else>>
 				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave _girl2, so $he gives the slave a cute little nose piercing. It should help $activeSlave.slaveName see _himself2 as a bit more feminine.
-				<<set $cash -= $modCost>>
+				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 				<<break>>
 			<</if>>
 		<</if>>
@@ -356,7 +356,7 @@ In spare moments $he teaches $activeSlave.slaveName how to prostitute _himself2.
 				<<set _piercingForbidden = 1, $activeSlave.eyebrowPiercing = 0>>
 			<<else>>
 				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave _girl2, so $he gives the slave a cute little eyebrow piercing. A slutty touch for a teenage _girl2 should help _him2 feel a little hungrier for cock.
-				<<set $cash -= $modCost>>
+				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 				<<break>>
 			<</if>>
 		<</if>>
@@ -367,7 +367,7 @@ In spare moments $he teaches $activeSlave.slaveName how to prostitute _himself2.
 				<<set _piercingForbidden = 1, $activeSlave.lipsPiercing = 0>>
 			<<else>>
 				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave _girl2, so $he has the slave's lower lip pierced. _His2 mouth is for pleasing penises now, so it'll help _him2 if it looks like it.
-				<<set $cash -= $modCost>>
+				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 				<<break>>
 			<</if>>
 		<</if>>
@@ -378,7 +378,7 @@ In spare moments $he teaches $activeSlave.slaveName how to prostitute _himself2.
 				<<set _piercingForbidden = 1, $activeSlave.navelPiercing = 0>>
 			<<else>>
 				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave _girl2, so $he has the slave's navel pierced. The prettier _his2 lower half looks, the less reluctant _he2 should feel to take it up the butt.
-				<<set $cash -= $modCost>>
+				<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 				<<break>>
 			<</if>>
 		<</if>>
diff --git a/src/uncategorized/householdLiquidator.tw b/src/uncategorized/householdLiquidator.tw
index 0c6f6a498c19bef99f23638511b9582d71a0285e..6719b40a81cc7c1f8e63cbd339392d7bbfeb583a 100644
--- a/src/uncategorized/householdLiquidator.tw
+++ b/src/uncategorized/householdLiquidator.tw
@@ -33,7 +33,7 @@ The price is <<print cashFormat($slaveCost*3)>>.
 <br><br>
 
 <<if $cash >= $slaveCost*3>>
-	[[Buy their slave contract|Siblings Workaround][$cash -= $slaveCost*3,$nextButton = "Continue",$nextLink = "Main"]]
+	[[Buy their slave contract|Siblings Workaround][$cashX(forceNeg($slaveCost*3), "slaveTransaction", $activeSlave),,$nextButton = "Continue",$nextLink = "Main"]]
 <<else>>
 	//You lack the necessary funds to buy these slaves.//
 <</if>>
@@ -79,7 +79,7 @@ The price is <<print cashFormat($slaveCost*3)>>.<<if $slavesSeen > $slaveMarketL
 <br><br>
 
 <<if $cash >= $slaveCost*3>>
-	[[Buy their slave contract|Mother Daughter Workaround][$cash -= $slaveCost*3,"Continue",$nextLink = "Main"]]
+	[[Buy their slave contract|Mother Daughter Workaround][$cashX(forceNeg($slaveCost*3), "slaveTransaction", $activeSlave),,"Continue",$nextLink = "Main"]]
 <<else>>
 	//You lack the necessary funds to buy these slaves.//
 <</if>>
@@ -121,7 +121,7 @@ The price is <<print cashFormat($slaveCost*4)>>.<<if $slavesSeen > $slaveMarketL
 <br><br>
 
 <<if $cash >= $slaveCost*4>>
-	[[Buy their slave contract|Twins Workaround][$cash -= $slaveCost*4,$nextButton = "Continue",$nextLink = "Main"]]
+	[[Buy their slave contract|Twins Workaround][$cashX(forceNeg($slaveCost*4), "slaveTransaction", $activeSlave),,$nextButton = "Continue",$nextLink = "Main"]]
 <<else>>
 	//You lack the necessary funds to buy these slaves.//
 <</if>>
diff --git a/src/uncategorized/incrementPiercings.tw b/src/uncategorized/incrementPiercings.tw
index 0fd7302b5df7325454e82ada52673e7b60e856b4..a0f7ac21f512d8768594a3d3fb69cd78c2fe4406 100644
--- a/src/uncategorized/incrementPiercings.tw
+++ b/src/uncategorized/incrementPiercings.tw
@@ -3,21 +3,21 @@
 <<if $activeSlave.nipples != "fuckable">>
 	<<if $activeSlave.nipplesPiercing < 2>>
 		<<set $activeSlave.nipplesPiercing += 1>>
-		<<set $cash -= $modCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $degradation += 1>>
 	<</if>>
 <</if>>
 
 <<if $activeSlave.clitPiercing < 2>>
 	<<set $activeSlave.clitPiercing += 1>>
-	<<set $cash -= $modCost>>
+	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 	<<set $degradation += 1>>
 <</if>>
 
 <<if $activeSlave.vagina != -1>>
 	<<if $activeSlave.vaginaPiercing < 2>>
 		<<set $activeSlave.vaginaPiercing += 1>>
-		<<set $cash -= $modCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $degradation += 1>>
 	<</if>>
 <</if>>
@@ -25,62 +25,62 @@
 <<if $activeSlave.dick > 0>>
 	<<if $activeSlave.dickPiercing < 2>>
 		<<set $activeSlave.dickPiercing += 1>>
-		<<set $cash -= $modCost>>
+		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 		<<set $degradation += 1>>
 	<</if>>
 <</if>>
 
 <<if $activeSlave.anusPiercing < 2>>
 	<<set $activeSlave.anusPiercing += 1>>
-	<<set $cash -= $modCost>>
+	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 	<<set $degradation += 1>>
 <</if>>
 
 <<if $activeSlave.lipsPiercing < 2>>
 	<<set $activeSlave.lipsPiercing += 1>>
-	<<set $cash -= $modCost>>
+	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 	<<set $degradation += 1>>
 <</if>>
 
 <<if $activeSlave.tonguePiercing < 2>>
 	<<set $activeSlave.tonguePiercing += 1>>
-	<<set $cash -= $modCost>>
+	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 	<<set $degradation += 1>>
 <</if>>
 
 <<if $activeSlave.earPiercing < 2>>
 	<<set $activeSlave.earPiercing += 1>>
-	<<set $cash -= $modCost>>
+	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 	<<set $degradation += 1>>
 <</if>>
 
 <<if $activeSlave.nosePiercing < 2>>
 	<<set $activeSlave.nosePiercing += 1>>
-	<<set $cash -= $modCost>>
+	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 	<<set $degradation += 1>>
 <</if>>
 
 <<if $activeSlave.eyebrowPiercing < 2>>
 	<<set $activeSlave.eyebrowPiercing += 1>>
-	<<set $cash -= $modCost>>
+	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 	<<set $degradation += 1>>
 <</if>>
 
 <<if $activeSlave.navelPiercing < 2>>
 	<<set $activeSlave.navelPiercing += 1>>
-	<<set $cash -= $modCost>>
+	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 	<<set $degradation += 1>>
 <</if>>
 
 <<if $activeSlave.areolaePiercing < 1>>
 	<<set $activeSlave.areolaePiercing += 1>>
-	<<set $cash -= $modCost>>
+	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 	<<set $degradation += 1>>
 <</if>>
 
 <<if $activeSlave.corsetPiercing < 1>>
 	<<set $activeSlave.corsetPiercing += 1>>
-	<<set $cash -= $modCost>>
+	<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 	<<set $degradation += 1>>
 <</if>>
 
diff --git a/src/uncategorized/jeSlaveDispute.tw b/src/uncategorized/jeSlaveDispute.tw
index 1aa991393bd4345cd0d1c7e0caa93ca28f37e521..30280a6436f75a921a0043eaea192695f4d4e999 100644
--- a/src/uncategorized/jeSlaveDispute.tw
+++ b/src/uncategorized/jeSlaveDispute.tw
@@ -239,7 +239,7 @@
 		<</replace>>
 	<</link>>
 	<br><<link "Offer to buy out the contract">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransaction")>>
 		<<replace "#result">>
 		You offer to simply buy out the contract, taking the slave for yourself, letting the slave trader out of her side of the deal, and providing for the daughter's medical care. The trader lets it be known amongst her peers that you will make things right no matter the cost to yourself, @@.green;increasing prosperity.@@ The story of the mother willing to be enslaved gets around quickly, @@.green;capturing the hearts@@ of more romantic citizens. The mother, meanwhile, presents herself for enslavement, @@.hotpink;very grateful@@ that you've saved her daughter's life.
 		<br><br>
@@ -275,7 +275,7 @@
 		<</replace>>
 	<</link>>
 	<br><<link "Compromise on the compensation and offer to buy out the deal">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransaction")>>
 		<<replace "#result">>
 		You offer to buy out the deal, paying the breeder and taking the slave yourself, and passing the child off to the buyer. The citizen gets what he wants and speaks @@.green;kindly@@ in public about how you helped smooth over a rather rough dispute. The breeder sends a @@.green;positive note@@ around the industry to the effect that slavers trading with your arcology can expect to be aided in times of need; though the loss of a star mother always stings.
 		<br><br>
@@ -307,7 +307,7 @@
 		<</replace>>
 	<</link>>
 	<br><<link "Offer to buy out the deal">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransaction")>>
 		<<replace "#result">>
 		You offer to simply buy out the deal, paying the trainer and taking the slave yourself, and letting the buyer out of the payment. The trainer, on the other hand, lets it be known that you support businessmen, who can trust you to ensure they don't come out second best, @@.green;increasing prosperity.@@ The buyer lets you know privately that he recently had a business deal go bad, so he's in a tough cash situation right now; he's so grateful for your assistance in this embarrassing situation that he talks @@.green;effusively@@ for days to anyone who will listen about your discreet administration of the arcology. The slave, meanwhile, arrives at your penthouse, @@.hotpink;rather hopeful@@ that she's going to a good master.
 		<br><br>
@@ -339,7 +339,7 @@
 		<</replace>>
 	<</link>>
 	<br><<link "Compromise on the compensation and offer to buy out the deal">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransaction")>>
 		<<replace "#result">>
 		You offer to buy out the deal, paying the school and taking the slave yourself, and compromising on the demanded compensation. The citizen was looking forward to using the slave in question for breeding stock; like many breeders he cares deeply about his stable and is mollified by the moderate payment, and speaks @@.green;kindly@@ in public about how you helped an innocent breeder protect his prize bloodlines. The school sends a @@.green;positive note@@ around the industry to the effect that schools trading with your arcology can expect to have excessive claims sensibly reduced.
 		<br><br>
@@ -371,7 +371,7 @@
 		<</replace>>
 	<</link>>
 	<br><<link "Buy out the contract and enslave her">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransaction")>>
 		<<replace "#result">>
 		You quietly contact the trader and suggest an alternative method of settling the dispute. He is surprised, but agrees readily, chuckling at how the "recalcitrant bitch" is going to be dealt with. To her horror, she finds that your near-total power over deals made in your arcology has been employed to saddle her with additional debts that, under her indentured servitude, she cannot hope to repay. It is then the work of ten minutes to demand payment, and when she cannot pay, demand her body for enslavement. The story of your cunning @@.green;impresses@@ the slave traders, but is @@.red;booed@@ by fairer-minded citizens.
 		<br><br>
@@ -403,7 +403,7 @@
 		<</replace>>
 	<</link>>
 	<br><<link "Offer to buy out the contract">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransaction")>>
 		<<replace "#result">>
 		You offer to simply buy out the contract, taking the slave for yourself. This lets the buyer out of buying her, and the slaveowner gets his money; but it soon becomes apparent that what both of them were really looking for is an opportunity to put one over on the other. Neither is pleased to be denied a petty victory, but they both have the sense to keep their mouths shut. The poor slave, meanwhile, appears in the penthouse entryway, @@.hotpink;hopeful@@ that she's been lucky enough to end up in a less abusive situation.
 		<br><br>
diff --git a/src/uncategorized/lecoleDesEnculees.tw b/src/uncategorized/lecoleDesEnculees.tw
index 88f7c33ab48363ba29a252a8dfc79b1af4866a92..c455ccaadab7b6451728db8283b8c74b628faa9c 100644
--- a/src/uncategorized/lecoleDesEnculees.tw
+++ b/src/uncategorized/lecoleDesEnculees.tw
@@ -24,11 +24,11 @@
 
 <<setLocalPronouns $activeSlave>>
 <<if $cash >= $slaveCost>>
-	<br>[["Buy " + $him + " and check out other slaves to order"|L'École des Enculées][$cash -= $slaveCost, $LDE.schoolSale = 0, $LDE.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
+	<br>[["Buy " + $him + " and check out other slaves to order"|L'École des Enculées][cashX(forceNeg($slaveCost), "slaveTransaction"), $LDE.schoolSale = 0, $LDE.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
 	<<if $newSlaves.length == 0>>
-		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cash -= $slaveCost, $LDE.schoolSale = 0, $LDE.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
+		<br>[["Buy " + $his + " slave contract"|New Slave Intro][cashX(forceNeg($slaveCost), "slaveTransaction"), $LDE.schoolSale = 0, $LDE.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
 	<<else>>
-		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cash -= $slaveCost, $LDE.schoolSale = 0, $LDE.studentsBought += 1, $newSlaves.push($activeSlave)]]
+		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][cashX(forceNeg($slaveCost), "slaveTransaction"), $LDE.schoolSale = 0, $LDE.studentsBought += 1, $newSlaves.push($activeSlave)]]
 	<</if>>
 <<else>>
 	//You lack the necessary funds to buy this slave.//
diff --git a/src/uncategorized/multiImplant.tw b/src/uncategorized/multiImplant.tw
index b7c932da40e7e77bebf19172ad1afe05ba8976c8..05427420b0c4924f0b255cf91519e768c2c0f9c4 100644
--- a/src/uncategorized/multiImplant.tw
+++ b/src/uncategorized/multiImplant.tw
@@ -116,7 +116,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* eyes */
 	<<if _slaveOrgans.eyes != 0>>
 		<<if ($activeSlave.eyes == -2) && $activeSlave.origEye != "implant">>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.eyes = 1>>
 			<<set $activeSlave.eyeColor = $activeSlave.origEye>>
 			/* no way to salvage original eye color */
@@ -128,7 +128,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 			<br><hr>
 			<<include "Surgery Degradation">>
 		<<elseif $activeSlave.origEye == "implant">>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $stockpile.ocularImplant++>>
 			<<set $activeSlave.eyes = 1>>
 			<<set _oldEyes = $genePool.find(function(s) { return s.ID = $activeSlave.ID; })>>
@@ -149,7 +149,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* cochleae */
 	<<if _slaveOrgans.cochleae != 0>>
 		<<if ($activeSlave.hears == -2) && $activeSlave.earImplant != 1>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.hears = 0>>
 			<<set $activeSlave.health -= 20>>
 			<<if $organFarmUpgrade == 2>>
@@ -159,7 +159,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 			<br><hr>
 			<<include "Surgery Degradation">>
 		<<elseif $activeSlave.earImplant == 1>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $stockpile.cochlearImplant++>>
 			<<set $activeSlave.hears = 0>>
 			<<set $activeSlave.health -= 20>>
@@ -177,7 +177,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* voice */
 	<<if _slaveOrgans.voicebox != 0>>
 		<<if ($activeSlave.voice == 0)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<if $activeSlave.ovaries == 1 && $activeSlave.hormoneBalance >= 200>>
 				<<set $activeSlave.voice = 3>>
 			<<elseif ($activeSlave.balls > 0) || ($activeSlave.hormoneBalance < -20)>>
@@ -202,7 +202,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* foreskin */
 	<<if _slaveOrgans.foreskin != 0>>
 		<<if ($activeSlave.foreskin == 0)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<if $activeSlave.dick > 0>>
 				<<set $activeSlave.foreskin = $activeSlave.dick>>
 			<<else>>
@@ -224,7 +224,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* prostate */
 	<<if _slaveOrgans.prostate != 0>>
 		<<if ($activeSlave.prostate == 0)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.prostate = 1>>
 			<<set $activeSlave.health -= 20>>
 			<<if $organFarmUpgrade == 2>>
@@ -242,7 +242,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* ovaries */
 	<<if _slaveOrgans.ovaries != 0>>
 		<<if ($activeSlave.ovaries == 0) && ($activeSlave.vagina >= 0) && ($activeSlave.mpreg == 0) && ($activeSlave.bellyImplant == -1)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.ovaries = 1>>
 			<<set $activeSlave.eggType = "human">>
 			<<set $activeSlave.preg = 0>>
@@ -285,7 +285,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* asexual reproduction modifiction */
 	<<if _slaveOrgans.asexualReproOvaries != 0>>
 		<<if ($activeSlave.mpreg == 1 || $activeSlave.ovaries == 1)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.eggType = "human">>
 			<<set $activeSlave.preg = 0>>
 			<<set $activeSlave.health -= 20>>
@@ -315,7 +315,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* pig ovaries */
 	<<if _slaveOrgans.pigOvaries != 0>>
 		<<if ($activeSlave.ovaries == 0) && ($activeSlave.vagina >= 0) && ($activeSlave.mpreg == 0) && ($activeSlave.bellyImplant == -1)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.ovaries = 1>>
 			<<set $activeSlave.eggType = "pig">>
 			<<set $activeSlave.preg = 0>>
@@ -358,7 +358,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* dog ovaries */
 	<<if _slaveOrgans.canineOvaries != 0>>
 		<<if ($activeSlave.ovaries == 0) && ($activeSlave.vagina >= 0) && ($activeSlave.mpreg == 0) && ($activeSlave.bellyImplant == -1)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.ovaries = 1>>
 			<<set $activeSlave.eggType = "dog">>
 			<<set $activeSlave.preg = 0>>
@@ -401,7 +401,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* horse ovaries */
 	<<if _slaveOrgans.horseOvaries != 0>>
 		<<if ($activeSlave.ovaries == 0) && ($activeSlave.vagina >= 0) && ($activeSlave.mpreg == 0) && ($activeSlave.bellyImplant == -1)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.ovaries = 1>>
 			<<set $activeSlave.eggType = "horse">>
 			<<set $activeSlave.preg = 0>>
@@ -444,7 +444,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* cow ovaries */
 	<<if _slaveOrgans.cowOvaries != 0>>
 		<<if ($activeSlave.ovaries == 0) && ($activeSlave.vagina >= 0) && ($activeSlave.mpreg == 0) && ($activeSlave.bellyImplant == -1)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.ovaries = 1>>
 			<<set $activeSlave.eggType = "cow">>
 			<<set $activeSlave.preg = 0>>
@@ -487,7 +487,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* male preg */
 	<<if _slaveOrgans.mpreg != 0>>
 		<<if ($activeSlave.ovaries == 0) && ($activeSlave.vagina < 0) && ($activeSlave.mpreg == 0) && ($activeSlave.bellyImplant == -1)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.mpreg = 1>>
 			<<set $activeSlave.eggType = "human">>
 			<<set $activeSlave.preg = 0>>
@@ -530,7 +530,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* male pig preg */
 	<<if _slaveOrgans.mpregPig != 0>>
 		<<if ($activeSlave.ovaries == 0) && ($activeSlave.vagina < 0) && ($activeSlave.mpreg == 0) && ($activeSlave.bellyImplant == -1)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.mpreg = 1>>
 			<<set $activeSlave.eggType = "pig">>
 			<<set $activeSlave.preg = 0>>
@@ -573,7 +573,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* male dog preg */
 	<<if _slaveOrgans.mpregCanine != 0>>
 		<<if ($activeSlave.ovaries == 0) && ($activeSlave.vagina < 0) && ($activeSlave.mpreg == 0) && ($activeSlave.bellyImplant == -1)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.mpreg = 1>>
 			<<set $activeSlave.eggType = "dog">>
 			<<set $activeSlave.preg = 0>>
@@ -616,7 +616,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* male horse preg */
 	<<if _slaveOrgans.mpregHorse != 0>>
 		<<if ($activeSlave.ovaries == 0) && ($activeSlave.vagina < 0) && ($activeSlave.mpreg == 0) && ($activeSlave.bellyImplant == -1)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.mpreg = 1>>
 			<<set $activeSlave.eggType = "horse">>
 			<<set $activeSlave.preg = 0>>
@@ -659,7 +659,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* male cow preg */
 	<<if _slaveOrgans.mpregCow != 0>>
 		<<if ($activeSlave.ovaries == 0) && ($activeSlave.vagina < 0) && ($activeSlave.mpreg == 0) && ($activeSlave.bellyImplant == -1)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.mpreg = 1>>
 			<<set $activeSlave.eggType = "cow">>
 			<<set $activeSlave.preg = 0>>
@@ -702,7 +702,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* ovary renewal */
 	<<if _slaveOrgans.freshOvaries != 0>>
 		<<if (($activeSlave.ovaries == 1) || ($activeSlave.mpreg == 1)) && ($activeSlave.bellyImplant == -1) && ($activeSlave.physicalAge < 60)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<if $activeSlave.ovaryAge >= 47>>
 				<<set $activeSlave.ovaryAge = 45>>
 			<<else>>
@@ -741,7 +741,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* penis */
 	<<if _slaveOrgans.penis != 0>>
 		<<if $activeSlave.dick == 0>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<if $activeSlave.prostate == 0>>
 				<<set $activeSlave.prostate = 1>>
 			<</if>>
@@ -760,7 +760,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* testicles */
 	<<if _slaveOrgans.testicles != 0>>
 		<<if ($activeSlave.dick >= 1) && ($activeSlave.balls == 0)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<if $activeSlave.prostate == 0>>
 				<<set $activeSlave.prostate = 1>>
 			<</if>>
@@ -798,7 +798,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* pig testicles */
 	<<if _slaveOrgans.pigTesticles != 0>>
 		<<if ($activeSlave.dick >= 1) && ($activeSlave.balls == 0)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.balls = 3>>
 			<<set $activeSlave.scrotum = 3>>
 			<<set $activeSlave.ballType = "pig">>
@@ -833,7 +833,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* dog testicles */
 	<<if _slaveOrgans.canineTesticles != 0>>
 		<<if ($activeSlave.dick >= 0) && ($activeSlave.balls == 0)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.balls = 2>>
 			<<set $activeSlave.ballType = "dog">>
 			<<set $activeSlave.scrotum = 2>>
@@ -869,7 +869,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* horse testicles */
 	<<if _slaveOrgans.horseTesticles != 0>>
 		<<if ($activeSlave.dick >= 1) && ($activeSlave.balls == 0)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.balls = 3>>
 			<<set $activeSlave.scrotum = 3>>
 			<<set $activeSlave.ballType = "horse">>
@@ -904,7 +904,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* cow testicles */
 	<<if _slaveOrgans.cowTesticles != 0>>
 		<<if ($activeSlave.dick >= 1) && ($activeSlave.balls == 0)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.balls = 3>>
 			<<set $activeSlave.scrotum = 3>>
 			<<set $activeSlave.ballType = "cow">>
@@ -939,7 +939,7 @@ You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized
 	/* scrotum */
 	<<if _slaveOrgans.scrotum != 0>>
 		<<if ($activeSlave.scrotum == 0) && ($activeSlave.balls >= 1)>>
-			<<set $cash -= $surgeryCost>>
+			<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 			<<set $activeSlave.scrotum = $activeSlave.balls>>
 			<<set $activeSlave.health -= 10>>
 			<<if $organFarmUpgrade == 2>>
diff --git a/src/uncategorized/newSlaveIntro.tw b/src/uncategorized/newSlaveIntro.tw
index 5293876d021ec7c277e55711c804ebc9310b7dc6..b813bc7d95643578cf08793375b26fe5d510ee60 100644
--- a/src/uncategorized/newSlaveIntro.tw
+++ b/src/uncategorized/newSlaveIntro.tw
@@ -1033,7 +1033,7 @@ The legalities completed, ''__@@.pink;<<= SlaveFullName($activeSlave)>>@@__'' <<
 
 <<if $activeSlave.dick == 0>>
 	| <<link "Give $him a smart clitoral piercing">>
-		<<set $cash -= $SPcost>>
+		<<run cashX(forceNeg($SPcost), "slaveMod", $activeSlave)>>
 		<<replace "#introResult">>
 			You take $him to the body modification studio, strap $him down, pierce $his clit, and insert what appears to be a large stainless steel barbell piercing. It actually contains a device that can vibrate to give $him sexual stimulation or create subtle pain to suppress pleasure. It is connected wirelessly to the arcology, which can be given instructions to encourage or discourage sexual pleasure in specific situations. You run a quick test. On the oral setting, as soon as $he kneels in front of your crotch, $he gasps as the stimulation starts. On the anal setting, $he whimpers when you run a finger across $his asshole.
 		<</replace>>
@@ -1042,7 +1042,7 @@ The legalities completed, ''__@@.pink;<<= SlaveFullName($activeSlave)>>@@__'' <<
 	//This option costs <<print cashFormat($SPcost)>>//
 <<else>>
 	| <<link "Give $him a smart frenulum piercing">>
-		<<set $cash -= $SPcost>>
+		<<run cashX(forceNeg($SPcost), "slaveMod", $activeSlave)>>
 		<<replace "#introResult">>
 			You take $him to the body modification studio, strap $him down, pierce $his frenulum, and insert what appears to be a large stainless steel barbell piercing. It actually contains a device that can vibrate to give $him sexual stimulation or create subtle pain to suppress pleasure. It is connected wirelessly to the arcology, which can be given instructions to encourage or discourage sexual pleasure in specific situations. You run a quick test. On the oral setting, as soon as $he kneels in front of your crotch, $he gasps as the stimulation starts. On the anal setting, $he whimpers and gets rock hard when you run a finger across $his asshole.
 		<</replace>>
diff --git a/src/uncategorized/prestigiousSlave.tw b/src/uncategorized/prestigiousSlave.tw
index 1cdd6e120a1ad79069fcecd85a2b45f276ad46aa..1cf819ae54b1a3411779ae71e973f2664338e221 100644
--- a/src/uncategorized/prestigiousSlave.tw
+++ b/src/uncategorized/prestigiousSlave.tw
@@ -916,7 +916,7 @@ You check to see if any especially prestigious slaves are on auction. <<if $pres
 
 <br>
 <<if $cash >= $slaveCost>>
-	[[Place that bid|New Slave Intro][$cash -= $slaveCost,$nextButton = "Continue",$nextLink = "AS Dump",$returnTo = "Main"]]
+	[[Place that bid|New Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave),$nextButton = "Continue",$nextLink = "AS Dump",$returnTo = "Main"]]
 <<else>>
 	//You lack the necessary funds to place a winning bid.//
 <</if>>
diff --git a/src/uncategorized/reBoomerang.tw b/src/uncategorized/reBoomerang.tw
index eac50cd9b6f22a8baec5a93d575abf5ee7c940f4..a4e695dc1be235f66bcc389219a4245edf0a8eb5 100644
--- a/src/uncategorized/reBoomerang.tw
+++ b/src/uncategorized/reBoomerang.tw
@@ -369,7 +369,7 @@ It isn't obvious how $he managed to escape, though no doubt you could review the
 <</link>>
 <<if $cash >= $contractCost>>
 <br><<link "Obfuscate $his appearance and re-enslave $him">>
-	<<set $cash -= $contractCost>>
+	<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 	<<if $familyTesting == 1>>
 		<<if $boomerangStats.PCpregSource > 0 && $PC.preg > 0 && $PC.pregSource == 0>>
 			<<set $PC.pregSource = $activeSlave.ID>>
diff --git a/src/uncategorized/reFSAcquisition.tw b/src/uncategorized/reFSAcquisition.tw
index 72e0ec6ec1cc4e2ea5d2bda144ec657e1b6e3c8b..70301817bf489706eadaed338cce0a2e1cb73345 100644
--- a/src/uncategorized/reFSAcquisition.tw
+++ b/src/uncategorized/reFSAcquisition.tw
@@ -1328,7 +1328,7 @@ The call comes in from an office, and you suppress the urge to check whether $as
 <span id="result">
 <<if $cash >= $contractCost>>
 <<link "Enslave $him">>
-	<<set $cash -= $contractCost>>
+	<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 	<<replace "#result">>
 	<<switch $FSAcquisitionEvents>>
 	<<case "Pastoralist">>
diff --git a/src/uncategorized/reMalefactor.tw b/src/uncategorized/reMalefactor.tw
index e37f9e6d44f18210de712efbf099cf58a6837ea3..cf61156e43d4289e0c0ad4fd6a1a9c393a44117c 100644
--- a/src/uncategorized/reMalefactor.tw
+++ b/src/uncategorized/reMalefactor.tw
@@ -354,7 +354,7 @@ $He is easily taken into custody and $his contraband confiscated once the jeerin
 <span id="result">
 <<if $cash >= $contractCost>>
 	<<link "Enslave $him">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 		<<switch $malefactor>>
 		<<case "addict">>
@@ -394,7 +394,7 @@ $He is easily taken into custody and $his contraband confiscated once the jeerin
 			<<set _fuckCount += _fuckCount/2>>
 		<</if>>
 		<<if $activeSlave.publicCount>><<set $activeSlave.publicCount += _fuckCount>><<else>><<set $activeSlave.publicCount = _fuckCount>><</if>>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 		<<switch $malefactor>>
 		<<case "addict">>
@@ -427,7 +427,7 @@ $He is easily taken into custody and $his contraband confiscated once the jeerin
 		<<= assignJob($activeSlave, "be confined in the arcade")>>
 		<<set $activeSlave.choosesOwnAssignment = 0>>
 		<<set $activeSlave.sentence = 4>>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 		<<switch $malefactor>>
 		<<case "addict">>
@@ -451,7 +451,7 @@ $He is easily taken into custody and $his contraband confiscated once the jeerin
 	<<if $dairyRestraintsSetting > 1>>
 	<br><<link "Enslave $him and send $him straight to the industrial dairy">>
 		<<= assignJob($activeSlave, "work in the dairy")>>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 		<<switch $malefactor>>
 		<<case "addict">>
@@ -484,7 +484,7 @@ $He is easily taken into custody and $his contraband confiscated once the jeerin
 		<<set $activeSlave.amp = 1>>
 		<<set $activeSlave.heels = 0>>
 		<<set $activeSlave.behavioralFlaw = "odd">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 		<<switch $malefactor>>
 		<<case "addict">>
@@ -516,7 +516,7 @@ $He is easily taken into custody and $his contraband confiscated once the jeerin
 		<<set $activeSlave.balls = 0>>
 		<<set $activeSlave.devotion -= 25>>
 		<<set $activeSlave.trust -= 25>>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 		Video feeds from your remote surgery are made public as the protesting criminal is strapped down and gelded. $He is so utterly broken by this turn of events that you complete the legalities and biometric scanning without fuss. The condemned sobs weakly throughout the process until you grow tired of the whining and apply punishment. Then it's off to the penthouse for basic slave induction. The public @@.green;approves of this harshness,@@ which increases your arcology's prosperity by @@.green;giving it a reputation for swift and terrible justice.@@
 		<<set $rep += 100>>
@@ -531,7 +531,7 @@ $He is easily taken into custody and $his contraband confiscated once the jeerin
 		<<set $activeSlave.devotion = 25>>
 		<<set $activeSlave.trust = 25>>
 		<<set $activeSlave.origin = "She was an orphan forced to live and steal on the streets until you adopted her.">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 			You sit down and talk to the exhausted $girl, handing $him a contract cleverly altered to resemble adoption papers. Once $he comprehends what $he is looking at, $he eagerly signs it. Only once $he has reached the penthouse and been introduced to the slave life does $he realize $he willingly signed away $his freedom. Though $he can't complain. A warm cot and plenty of food await, which to $him is a huge improvement over a slow death on the streets. The public
 			<<if $arcologies[0].FSPaternalist != "unset">>
diff --git a/src/uncategorized/reRecruit.tw b/src/uncategorized/reRecruit.tw
index a3931a077dcce893ad3c1a6e7ec1b20edb8bbc62..0b304fe8db99b1eac6092b3b5b565ff3083ed91c 100644
--- a/src/uncategorized/reRecruit.tw
+++ b/src/uncategorized/reRecruit.tw
@@ -2526,7 +2526,7 @@ He explains that one of his servant <<= $girl>>s was impregnated by his fool of
 <<if $recruit != "cleaning house">>
 	<<if $cash >= $contractCost>>
 	<<link "Enslave $him">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 		<<switch $recruit>>
 		<<case "held POW">>
@@ -2747,7 +2747,7 @@ He explains that one of his servant <<= $girl>>s was impregnated by his fool of
 	<</if>>
 <<else>>
 	<<link "Accept the offer">>
-		<<set $cash -= $contractCost>>
+		<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 			You agree to purchase the servants and wire the money. The next day, a rather expensive-looking VTOL comes and drops off a group of confused and terrified slaves fitted with maid outfits and a pair of shackles on each set of limbs.
 			<<run newSlave($activeSlave)>>
@@ -2774,7 +2774,7 @@ He explains that one of his servant <<= $girl>>s was impregnated by his fool of
 <</if>>
 <<if $recruit == "wandering homeless">>
 	<br><<link "A quick fuck couldn't hurt">>
-	<<set $cash -= 1>>
+	<<run cashX(forceNeg(-1), "personalBusiness")>>
 	<<replace "#result">>
 		You take $him up on $his offer,
 		<<if $PC.dick == 1>>
diff --git a/src/uncategorized/reRelativeRecruiter.tw b/src/uncategorized/reRelativeRecruiter.tw
index a9c4c4cb36e779fdbcf91831579faae3b56b2ef7..284ac2ab540823a30644663a0cf153689032cb79 100644
--- a/src/uncategorized/reRelativeRecruiter.tw
+++ b/src/uncategorized/reRelativeRecruiter.tw
@@ -627,7 +627,7 @@ You look up the _relationType. _He2 costs <<print cashFormat($slaveCost)>>, a ba
 <br><br>
 <span id="result">
 <<link "Buy _him2">>
-	<<set $cash -= $slaveCost>>
+	<<run cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave)>>
 	<<switch _relationType>>
 	<<case "daughter">>
 		<<if _tempMF == "father">>
@@ -1156,7 +1156,7 @@ You look up the $activeSlave.relation. _He2 costs <<print cashFormat($slaveCost)
 	/* update $slaves[$i] (eventSlave) before calling any widgets */
 	<<set $slaves[$i].relation = relationTargetWord($activeSlave)>>
 	<<set $slaves[$i].relationTarget = $activeSlave.ID>>
-	<<set $cash -= $slaveCost>>
+	<<run cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave)>>
 	<<set $desc = SlaveTitle($eventSlave)>>
 	You complete the legalities and biometric scanning quickly and without fuss. $activeSlave.slaveName arrives shortly. The two slaves remember each other only dimly - they parted a long time ago - but they embrace. The devoted $desc explains the situation and encourages $his $activeSlave.relation to be a good slave to you. $activeSlave.slaveName looks a little fearful but clearly realizes that _he2's lucky to be here.
 	<<include "New Slave Intro">>
diff --git a/src/uncategorized/reShelterInspection.tw b/src/uncategorized/reShelterInspection.tw
index 6e760164e9eb4275971c80781c8c46116d57442d..e7190413813d25397584ac8efc278d821ee4abce 100644
--- a/src/uncategorized/reShelterInspection.tw
+++ b/src/uncategorized/reShelterInspection.tw
@@ -101,7 +101,7 @@ Not waiting to be greeted, the inspector looks up at the nearest camera and dema
 
 <span id="result">
 <<link "Amusing. Enslave _him2">>
-	<<set $cash -= $contractCost>>
+	<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 	<<replace "#result">>
 	$assistantName ushers _him2 into your penthouse and keeps _him2 busy for the few minutes you need to circumvent the Shelter's various legal and contractual defenses to prevent slaveowners from doing exactly what you're doing. Fortunately, you're cleverer and richer than most, and you succeed. You have _him2 brought into your office, and you are pleased to see _him2. _He2's not young and _he2's not pretty, but _his2 suit cannot disguise _his2 big bottom, and _he2's using the tablet _he2 has clasped protectively against _his2 chest to conceal a huge pair of mature breasts. _He2 knows exactly what's happened, and fixes you with a gimlet stare. "In a couple of months," _he2 says with venom, "when you've filled me full of hormones and drugs and training, and I'm begging you to <<if $PC.dick == 1>>stick your tiny little dick up<<else>>fist<</if>> my asshole, remember this. It'll be conditioning and self-preservation and Stockholm Syndrome talking, not me. I think you're a <<if $PC.title == 1>>sad bastard<<else>>vile cunt<</if>>, and I always will."
 	<<set $shelterAbuse += 10>>
@@ -123,7 +123,7 @@ Not waiting to be greeted, the inspector looks up at the nearest camera and dema
 		<<= assignJob($activeSlave, "work in the dairy")>>
 		<<set $activeSlave.lactation = 1, $activeSlave.lactationDuration = 2>>
 		<<set $activeSlave.clothes = "no clothing">>
-		<<set $cash -= $contractCost/2>>
+		<<run cashX(forceNeg($contractCost/2), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 		_Inspectee.slaveName is attached to a milking machine, so it would be extremely unwise to let the inspector report on _Inspectee.slaveName's industrial fate in all its gorgeous productivity. So, you greet _him2 politely, and bring _him2 down to $dairyName to show _him2 _Inspectee.slaveName. The inspector has a single moment to stiffen in shock at the sight before _he2 stiffens involuntarily due to the security drone tasing _him2 unconscious. It takes a few credits here and there to circumvent the Shelter's various legal and contractual defenses to prevent slaveowners from doing exactly what you're doing, but you finish the day richer by one more big-boobed milk producer. You leave the inspector's drug dosage low to start, so _he2 can appreciate _his2 situation for a while. When the inspector awakes, _his2 visor is set to show an overhead view of _his2 bay in $dairyName. _He2 sees _his2 breasts, already larger than _he2 remembers, gently swaying with the pumping of the milkers.<<if $dairyFeedersSetting > 1>> _He2 sees the huge phallus occupying _his2 mouth, and feels nutrition sliding down _his2 throat.<</if>><<if $dairyPregSetting > 1>> _He2 sees _his2 vagina drooling as it's fucked in preparation for pregnancy.<</if>><<if $dairyPregSetting > 1>> _He2 sees a massive piston moving slowly back and forth beneath _his2 buttocks, and understands what the ache of impossible fullness in _his2 bottom is.<</if>> _His2 hands ball into fists.
 		<<set $shelterAbuse += 10>>
@@ -135,7 +135,7 @@ Not waiting to be greeted, the inspector looks up at the nearest camera and dema
 	<br><<link "The slave is little more than a hole in $arcadeName, and so will be the inspector">>
 		<<= assignJob($activeSlave, "be confined in the arcade")>>
 		<<set $activeSlave.clothes = "no clothing">>
-		<<set $cash -= $contractCost/2>>
+		<<run cashX(forceNeg($contractCost/2), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 		_Inspectee.slaveName is sealed in a box and currently in use, so it would be extremely unwise to let the inspector report on _Inspectee.slaveName's permanent position in the service industry. So, you greet _him2 politely, and bring _him2 down to $arcadeName to show _him2 _Inspectee.slaveName. The inspector has a single moment to stiffen in shock at the sight before _he2 stiffens involuntarily due to the security drone tasing _him2 unconscious. It takes a few credits here and there to circumvent the Shelter's various legal and contractual defenses to prevent slaveowners from doing exactly what you're doing, but you finish the day richer by three more fuckable holes. When the inspector awakes to a dick intruding _his2 body, the pitch blackness and sound proofing disorientates _him2.
 		<<if $arcadeUpgradeInjectors == 1>>
@@ -161,7 +161,7 @@ Not waiting to be greeted, the inspector looks up at the nearest camera and dema
 	<</link>>
 <<elseif _Inspectee.fuckdoll > 0>>
 	<br><<link "The slave is little more than a latex wrapped doll, and so will be the inspector">>
-		<<set $cash -= $contractCost/2>>
+		<<run cashX(forceNeg($contractCost/2), "slaveTransfer", $activeSlave)>>
 		<<replace "#result">>
 		You have _him2 ushered up to your office, and order _Inspectee.slaveName brought in. The inspector has a single moment to stiffen in shock at the sight before _he2 stiffens involuntarily due to the security drone tasing _him2 unconscious. It takes a few credits here and there to circumvent the Shelter's various legal and contractual defenses to prevent slaveowners from doing exactly what you're doing, but you finish the day richer by one more Fuckdoll. Odds are _he2 wants to be defiant, but the suit works perfectly and leaves _him2 no outlet to make _his2 thoughts known.
 		<<set $activeSlave.toyHole="all her holes", $activeSlave.pubicHStyle="waxed", $activeSlave.livingRules="spare", $activeSlave.speechRules="restrictive", $activeSlave.releaseRules="restrictive", $activeSlave.relationshipRules="restrictive", $activeSlave.fuckdoll=1, $activeSlave.choosesOwnClothes=0, $activeSlave.clothes="a Fuckdoll suit", $activeSlave.collar="none", $activeSlave.shoes="heels",$activeSlave.legAccessory="none", $activeSlave.vaginalAccessory="none", $activeSlave.dickAccessory="none", $activeSlave.buttplug="none", $activeSlave.attrKnown=1, $activeSlave.fetishKnown=1>>
diff --git a/src/uncategorized/recETS.tw b/src/uncategorized/recETS.tw
index d8338b1e4e21c3b7f6fa78805096e541c1a218ab..ef10166c049a43e34b73c07d6bd33b99cf4f5b1f 100644
--- a/src/uncategorized/recETS.tw
+++ b/src/uncategorized/recETS.tw
@@ -1614,7 +1614,7 @@ This call is coming from a public kiosk, which is usually an indication that the
 		<<set $activeSlave.oralCount += 1>>
 		<<set $oralTotal += 1>>
 	<<run newSlave($activeSlave)>>
-	<<set $cash -= $contractCost>>
+	<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 	<<replace "#result">>
 	Despite $himself, $he sobs with relief when you agree. $He offers to <<if $PC.dick == 1>>suck you off<<if $PC.vagina == 1>> and <</if>><</if>><<if $PC.vagina == 1>>eat you out<</if>> while you complete the necessary legalities, so you work away with a <<if $PC.dick == 1>>pair of motherly lips wrapped around your dick<<else>>motherly tongue pleasuring your clit<</if>> as $he pumps away eagerly under the desk. $He's definitely on aphrodisiacs. $He masturbates while $he sucks.
 	<</replace>>
@@ -1626,7 +1626,7 @@ This call is coming from a public kiosk, which is usually an indication that the
 	<<set $activeSlave.relation = 0>>
 	<<set $activeSlave.relationTarget = 0>>
 	<<run newSlave($activeSlave)>>
-	<<set $cash -= $contractCost>>
+	<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 	<<replace "#result">>
 	You press your thumb down on your desk interface and then tell $him to read the display, strip, and show you $his body. $He knits $his brow in confusion and begins to curse at you but reads anyway. Comprehension dawns on $him and $he stares you in the eye for a long moment — and then drops $his gaze. $He knows the Free Cities well enough to understand. $He stands and sadly strips off $his blouse and slacks. Following orders, $he rotates slowly for you. Then, $he bends over facing away from you and spreads $his buttocks to display $his holes. Unsurprisingly, $he's got a well-used pussy but has clearly never taken it up the ass. That will change.
 	<</replace>>
@@ -1642,7 +1642,7 @@ This call is coming from a public kiosk, which is usually an indication that the
 	<<set $activeSlave.rivalry = 0>>
 	<<set $activeSlave.rivalryTarget = 0>>
 	<<run newSlave($activeSlave)>>
-	<<set $cash -= $contractCost>>
+	<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 	<<replace "#result">>
 	The poor sissy isn't happy to become a slave, but $he's clearly relieved to be away from $his sister. The bitch isn't likely to have an easy time; the sale didn't clear _him2 from debt. $activeSlave.slaveName describes $his basic sexual experience, which includes a lot of sucking and anal whoring. Without further ado $he moves from practical sexual slavery at the hands of $his sister to actual sexual slavery.
 	<</replace>>
@@ -1654,7 +1654,7 @@ This call is coming from a public kiosk, which is usually an indication that the
 	<<set $activeSlave.relation = 0>>
 	<<set $activeSlave.relationTarget = 0>>
 	<<run newSlave($activeSlave)>>
-	<<set $cash -= $contractCost>>
+	<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 	<<replace "#result">>
 	You have the needy $girl immediately bought to your penthouse where you help $his laboring body into an available bed for inspection. $He asks where $his children were taken, to which you reply somewhere they can be raised properly. They'll be taken care of and won't have to grow up on the streets, plus they were sucking the life out of $him. $He's a little depressed at the news, but understands your reasons. You take the opportunity to give $him a good look over; $he is really dilated! Apart from that, between all the births and dicks, $his vagina is rather worn out, though $he seems to understand how to use it. $His anus has also seen use, but not nearly as much.
 	<</replace>>
@@ -1728,7 +1728,7 @@ This call is coming from a public kiosk, which is usually an indication that the
 
 <<case "identical herm pair" "identical pair" "matched pair">>
 <<link "Buy them both">>
-	<<set $cash -= $contractCost>>
+	<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 	<<replace #result>>
 	<<switch $RecETSevent>>
 	<<case "identical herm pair">>
@@ -1747,7 +1747,7 @@ This call is coming from a public kiosk, which is usually an indication that the
 <<case "incest brother brother" "incest brother sister" "incest father daughter" "incest father son" "incest mother daughter" "incest mother son" "incest sister sister" "incest twin brother" "incest twin sister" "incest twins mixed">>
 
 <<link "Buy them both">>
-	<<set $cash -= $contractCost>>
+	<<run cashX(forceNeg($contractCost), "slaveTransfer", $activeSlave)>>
 	<<replace #mainbody>>
 	<<switch $RecETSevent>>
 	<<case "incest brother brother">>
diff --git a/src/uncategorized/remoteSurgery.tw b/src/uncategorized/remoteSurgery.tw
index 05e8e27c2f002bc6f4fd90a38289d66f8fad21f0..81db0db0227d970263c4d4cd16b5a88a4878e624 100644
--- a/src/uncategorized/remoteSurgery.tw
+++ b/src/uncategorized/remoteSurgery.tw
@@ -80,27 +80,27 @@ $His $activeSlave.faceShape face is
 	<</if>>//
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 	<<if $activeSlave.faceShape != "normal">>
-		[[Make conventionally feminine|Surgery Degradation][$activeSlave.faceShape = "normal",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),$cash -= $surgeryCost,$activeSlave.health -= 10,$surgeryType = "face"]] |
+		[[Make conventionally feminine|Surgery Degradation][$activeSlave.faceShape = "normal",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 10,$surgeryType = "face"]] |
 	<</if>>
 	<<if $activeSlave.faceShape == "masculine">>
-		[[Soften to androgynous|Surgery Degradation][$activeSlave.faceShape = "androgynous",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),$cash -= $surgeryCost,$activeSlave.health -= 10,$surgeryType = "face"]] |
+		[[Soften to androgynous|Surgery Degradation][$activeSlave.faceShape = "androgynous",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 10,$surgeryType = "face"]] |
 	<<else>>
 		<<if $activeSlave.faceShape != "cute">>
-			[[Cute|Surgery Degradation][$activeSlave.faceShape = "cute",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),$cash -= $surgeryCost,$activeSlave.health -= 10,$surgeryType = "face"]] |
+			[[Cute|Surgery Degradation][$activeSlave.faceShape = "cute",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 10,$surgeryType = "face"]] |
 		<</if>>
 		<<if $activeSlave.faceShape != "exotic">>
-			[[Exotic|Surgery Degradation][$activeSlave.faceShape = "exotic",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),$cash -= $surgeryCost,$activeSlave.health -= 10,$surgeryType = "face"]] |
+			[[Exotic|Surgery Degradation][$activeSlave.faceShape = "exotic",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 10,$surgeryType = "face"]] |
 		<</if>>
 		<<if $activeSlave.faceShape != "sensual">>
-			[[Sensual|Surgery Degradation][$activeSlave.faceShape = "sensual",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),$cash -= $surgeryCost,$activeSlave.health -= 10,$surgeryType = "face"]] |
+			[[Sensual|Surgery Degradation][$activeSlave.faceShape = "sensual",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 10,$surgeryType = "face"]] |
 		<</if>>
 		<<if $activeSlave.faceShape != "androgynous">>
-			[[Androgynous|Surgery Degradation][$activeSlave.faceShape = "androgynous",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),$cash -= $surgeryCost,$activeSlave.health -= 10,$surgeryType = "face"]] |
+			[[Androgynous|Surgery Degradation][$activeSlave.faceShape = "androgynous",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 10,$surgeryType = "face"]] |
 		<<else>>
-			[[Masculine|Surgery Degradation][$activeSlave.faceShape = "masculine",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),$cash -= $surgeryCost,$activeSlave.health -= 10,$surgeryType = "face"]] |
+			[[Masculine|Surgery Degradation][$activeSlave.faceShape = "masculine",$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 10,$surgeryType = "face"]] |
 		<</if>>
 	<</if>>
-	[[Just improve attractiveness|Surgery Degradation][$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),$cash -= $surgeryCost,$activeSlave.health -= 10,$surgeryType = "face"]]
+	[[Just improve attractiveness|Surgery Degradation][$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 10,$surgeryType = "face"]]
 	<<if ($activeSlave.ageImplant > 1)>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		//$He's had a multiple facelifts and other cosmetic procedures in an effort to preserve $his youth.//
@@ -110,7 +110,7 @@ $His $activeSlave.faceShape face is
 	<<elseif ($activeSlave.physicalAge >= 25) && ($activeSlave.visualAge >= 25)>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		//$He's old enough that a face lift and other minor cosmetic procedures could make $him look younger.//
-		[[Age lift|Surgery Degradation][$activeSlave.ageImplant = 1,$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "age"]]
+		[[Age lift|Surgery Degradation][$activeSlave.ageImplant = 1,$activeSlave.faceImplant = Math.clamp($activeSlave.faceImplant+_artificiality,0,100),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "age"]]
 	<</if>>
 <</if>>
 
@@ -126,12 +126,12 @@ $His $activeSlave.faceShape face is
 	<<if $activeSlave.eyes == -1>>
 		eyes, but is nearsighted.
 		<<if ($activeSlave.origEye != "implant")>>
-			[[Correct eyesight|Surgery Degradation][$activeSlave.eyes = 1, $cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "eyeFix"]]
+			[[Correct eyesight|Surgery Degradation][$activeSlave.eyes = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "eyeFix"]]
 		<</if>>
 	<<elseif $activeSlave.eyes == 1>>
 		eyes and good vision.
 		<<if ($seeExtreme == 1) && ($activeSlave.origEye != "implant") && $activeSlave.indentureRestrictions < 1>>
-			[[Blur vision|Surgery Degradation][$activeSlave.eyes = -1, $cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "eyeBlur"]]
+			[[Blur vision|Surgery Degradation][$activeSlave.eyes = -1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "eyeBlur"]]
 		<</if>>
 	<</if>>
 <</if>>
@@ -140,17 +140,17 @@ $His $activeSlave.faceShape face is
 	<<if $activeSlave.indentureRestrictions < 1>>
 		<<if $activeSlave.origEye != "implant">>
 			<<if ($activeSlave.eyes > -2)>>
-				| [[Blind|Surgery Degradation][$activeSlave.eyes = -2,$activeSlave.eyeColor = "dulled " + $activeSlave.origEye,$activeSlave.eyeColor = $activeSlave.origEye,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "blind"]]
+				| [[Blind|Surgery Degradation][$activeSlave.eyes = -2,$activeSlave.eyeColor = "dulled " + $activeSlave.origEye,$activeSlave.eyeColor = $activeSlave.origEye,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "blind"]]
 			<</if>>
 			/*<<if ($activeSlave.eyes != -3)>>
 				<<if ($activeSlave.eyes >= -2)>> | <</if>>
-				| [[Remove eyes|Surgery Degradation][$activeSlave.eyeColor = "empty",$activeSlave.origEye = "none",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "remove eyes"]]
+				| [[Remove eyes|Surgery Degradation][$activeSlave.eyeColor = "empty",$activeSlave.origEye = "none",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "remove eyes"]]
 				<<if ($activeSlave.eyes != -2)>>//This will greatly restrict $him//<</if>>
 			<</if>>*/
 		<</if>>
 		<<if ($cyberMod == 1) && ($stockpile.ocularImplant > 0) && ($activeSlave.origEye != "implant")>>
 			<<if ($activeSlave.eyes != -3)>> <</if>>
-			| [["Give " + $him + " ocular implants"|Surgery Degradation][$activeSlave.origEye = "implant", $stockpile.ocularImplant--,$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "ocular implant"]]
+			| [["Give " + $him + " ocular implants"|Surgery Degradation][$activeSlave.origEye = "implant", $stockpile.ocularImplant--,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "ocular implant"]]
 		<</if>>
 	<</if>>
 <</if>>
@@ -167,12 +167,12 @@ $His $activeSlave.faceShape face is
 	<<if $activeSlave.hears == -1>>
 		ears, but is hearing impaired.
 		<<if ($activeSlave.earImplant != 1)>>
-			[[Correct hearing|Surgery Degradation][$activeSlave.hears = 0, $cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "earFix"]]
+			[[Correct hearing|Surgery Degradation][$activeSlave.hears = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "earFix"]]
 		<</if>>
 	<<elseif $activeSlave.hears == 0>>
 		ears and good hearing.
 		<<if ($seeExtreme == 1) && ($activeSlave.earImplant != 1) && $activeSlave.indentureRestrictions < 1>>
-			[[Muffle hearing|Surgery Degradation][$activeSlave.hears = -1, $cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "earMuffle"]]
+			[[Muffle hearing|Surgery Degradation][$activeSlave.hears = -1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "earMuffle"]]
 		<</if>>
 	<</if>>
 <</if>>
@@ -181,11 +181,11 @@ $His $activeSlave.faceShape face is
 	<<if $activeSlave.indentureRestrictions < 1>>
 		<<if $activeSlave.earImplant != 1>>
 			<<if ($activeSlave.hears > -2)>>
-				| [[Deafen|Surgery Degradation][$activeSlave.hears = -2,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "deafen"]]
+				| [[Deafen|Surgery Degradation][$activeSlave.hears = -2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "deafen"]]
 			<</if>>
 		<</if>>
 		<<if ($cyberMod == 1) && ($stockpile.cochlearImplant > 0) && ($activeSlave.earImplant != 1)>>
-			| [["Give " + $him + " cochlear implants"|Surgery Degradation][$activeSlave.earImplant = 1, $stockpile.cochlearImplant--,$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "cochlear implant"]]
+			| [["Give " + $him + " cochlear implants"|Surgery Degradation][$activeSlave.earImplant = 1, $stockpile.cochlearImplant--,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "cochlear implant"]]
 		<</if>>
 	<</if>>
 <</if>>
@@ -217,19 +217,19 @@ $He has
 	//$His indenture forbids elective surgery//
 <<elseif ($activeSlave.lips <= 75) || (($activeSlave.lips <= 95) && ($seeExtreme == 1))>>
 	<<if $activeSlave.lipsImplant > 0>>
-		[[Replace with the next size up|Surgery Degradation][$activeSlave.lipsImplant += 20,$activeSlave.lips += 20,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "lips"]] //This will reduce $his oral skills//
+		[[Replace with the next size up|Surgery Degradation][$activeSlave.lipsImplant += 20,$activeSlave.lips += 20,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "lips"]] //This will reduce $his oral skills//
 	<<else>>
-		[[Lip implants|Surgery Degradation][$activeSlave.lipsImplant = 20,$activeSlave.lips += 20,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "lips"]] //This will reduce $his oral skills//
+		[[Lip implants|Surgery Degradation][$activeSlave.lipsImplant = 20,$activeSlave.lips += 20,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "lips"]] //This will reduce $his oral skills//
 	<</if>>
 <</if>>
 <<if $activeSlave.lipsImplant != 0>>
 	<<if $activeSlave.indentureRestrictions < 2>>
-	| [[Remove lip implants|Surgery Degradation][$activeSlave.lips = ($activeSlave.lips-$activeSlave.lipsImplant),$activeSlave.lipsImplant = 0,$cash -= $surgeryCost, $surgeryType = "lips"]]
+	| [[Remove lip implants|Surgery Degradation][$activeSlave.lips = ($activeSlave.lips-$activeSlave.lipsImplant),$activeSlave.lipsImplant = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "lips"]]
 	<</if>>
 <</if>>
 <<if ($activeSlave.lips >= 10) && ($activeSlave.lipsImplant == 0)>>
 	<<if $activeSlave.indentureRestrictions < 2>>
-	| [[Reduce lips|Surgery Degradation][$activeSlave.lips -= 10,$cash -= $surgeryCost, $surgeryType = "lips"]]
+	| [[Reduce lips|Surgery Degradation][$activeSlave.lips -= 10,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "lips"]]
 	<</if>>
 <</if>>
 
@@ -237,53 +237,53 @@ $He has
 <<switch $activeSlave.teeth>>
 <<case "crooked">>
 	$He has crooked teeth.
-	[[Apply braces|Surgery Degradation][$activeSlave.teeth = "straightening braces",$cash -= $surgeryCost,$surgeryType = "braces"]]
+	[[Apply braces|Surgery Degradation][$activeSlave.teeth = "straightening braces",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$surgeryType = "braces"]]
 	<<if ($seeExtreme == 1) && ($activeSlave.indentureRestrictions < 1)>>
-	| [[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "sharp"]]
+	| [[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "sharp"]]
 	<</if>>
 <<case "gapped">>
 	$He has a noticeable gap in $his front teeth.
-	[[Apply braces|Surgery Degradation][$activeSlave.teeth = "straightening braces",$cash -= $surgeryCost,$surgeryType = "braces"]]
+	[[Apply braces|Surgery Degradation][$activeSlave.teeth = "straightening braces",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$surgeryType = "braces"]]
 	<<if ($seeExtreme == 1) && ($activeSlave.indentureRestrictions < 1)>>
-	| [[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "sharp"]]
+	| [[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "sharp"]]
 	<</if>>
 <<case "straightening braces">>
 	$His crooked teeth are in braces.
 	[[Remove braces|Remote Surgery][$activeSlave.teeth = "crooked",$surgeryType = "removeBraces"]]
 	<<if ($seeExtreme == 1) && ($activeSlave.indentureRestrictions < 1)>>
-	| [[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "sharp"]]
+	| [[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "sharp"]]
 	<</if>>
 <<case "cosmetic braces">>
 	$He has braces on $his straight teeth.
 	[[Remove braces|Remote Surgery][$activeSlave.teeth = "normal"]]
 	<<if ($seeExtreme == 1) && ($activeSlave.indentureRestrictions < 1)>>
-	| [[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "sharp"]]
+	| [[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "sharp"]]
 	<</if>>
 <<case "removable">>
 	$He has prosthetic teeth that can be removed for extreme oral sex.
 	<<if ($seeExtreme == 1) && ($activeSlave.indentureRestrictions < 1)>>
-	[[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "sharp"]] | [[Normal dental implants|Surgery Degradation][$activeSlave.teeth = "normal",$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "oral"]]
+	[[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "sharp"]] | [[Normal dental implants|Surgery Degradation][$activeSlave.teeth = "normal",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "oral"]]
 	<</if>>
 <<case "pointy">>
 	$His teeth have been replaced with sturdy, realistic implants that mimic the dentition of a predator.
 	<<if ($seeExtreme == 1) && ($activeSlave.indentureRestrictions < 1)>>
-	[[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Normal dental implants|Surgery Degradation][$activeSlave.teeth = "normal",$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "oral"]]
+	[[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Normal dental implants|Surgery Degradation][$activeSlave.teeth = "normal",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "oral"]]
 	<</if>>
 <<case "baby">>
 	$He has baby teeth.
 	<<if ($seeExtreme == 1) && ($activeSlave.indentureRestrictions < 1)>>
-	[[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "sharp"]] | [[Normal dental implants|Surgery Degradation][$activeSlave.teeth = "normal",$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "oral"]]
+	[[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "sharp"]] | [[Normal dental implants|Surgery Degradation][$activeSlave.teeth = "normal",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "oral"]]
 	<</if>>
 <<case "mixed">>
 	$He has a mix of baby and normal teeth.
 	<<if ($seeExtreme == 1) && ($activeSlave.indentureRestrictions < 1)>>
-	[[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "sharp"]] | [[Normal dental implants|Surgery Degradation][$activeSlave.teeth = "normal",$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "oral"]]
+	[[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "sharp"]] | [[Normal dental implants|Surgery Degradation][$activeSlave.teeth = "normal",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "oral"]]
 	<</if>>
 <<default>>
 	$He has normal, healthy teeth.
-	[[Unnecessary braces|Surgery Degradation][$activeSlave.teeth = "cosmetic braces",$cash -= $surgeryCost,$surgeryType = "braces"]]
+	[[Unnecessary braces|Surgery Degradation][$activeSlave.teeth = "cosmetic braces",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$surgeryType = "braces"]]
 	<<if ($seeExtreme == 1) && ($activeSlave.indentureRestrictions < 1)>>
-	| [[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "sharp"]]
+	| [[Replace them with removable prosthetics|Surgery Degradation][$activeSlave.teeth = "removable",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "teeth"]] | [[Replace them with sharp teeth|Surgery Degradation][$activeSlave.teeth = "pointy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "sharp"]]
 	<</if>>
 <</switch>>
 
@@ -309,30 +309,30 @@ $He has
 <<if ($activeSlave.indentureRestrictions < 1) && ($activeSlave.electrolarynx != 1)>>
 	<<if $activeSlave.voice != 0>>
 		<<if $activeSlave.voice < 3>>
-			[[Perform surgery to raise voice|Surgery Degradation][$activeSlave.voice += 1, $activeSlave.voiceImplant += 1, $cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "voice"]]
+			[[Perform surgery to raise voice|Surgery Degradation][$activeSlave.voice += 1, $activeSlave.voiceImplant += 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "voice"]]
 		<</if>>
 		<<if $activeSlave.voice == 2>>
 			|
 		<</if>>
 		<<if $activeSlave.voice > 1>>
-			[[Perform surgery to lower voice|Surgery Degradation][$activeSlave.voice -= 1, $activeSlave.voiceImplant -= 1, $cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "voice2"]]
+			[[Perform surgery to lower voice|Surgery Degradation][$activeSlave.voice -= 1, $activeSlave.voiceImplant -= 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "voice2"]]
 		<</if>>
 		<<if $seeExtreme == 1>>
-			| [[Remove vocal cords|Surgery Degradation][$activeSlave.voice = 0, $activeSlave.voiceImplant = 0, $cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "mute"]]
+			| [[Remove vocal cords|Surgery Degradation][$activeSlave.voice = 0, $activeSlave.voiceImplant = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "mute"]]
 		<</if>>
 	<<elseif $activeSlave.voice == 0 && $cyberMod == 1 && $stockpile.electrolarynx > 0>>
-		[["Give " + $him + " an electrolarynx"|Surgery Degradation][$activeSlave.electrolarynx = 1, $activeSlave.voice = 2, $stockpile.electrolarynx--, $cash -= $surgeryCost, $activeSlave.health -= 20, $surgeryType = "electrolarynx"]]
+		[["Give " + $him + " an electrolarynx"|Surgery Degradation][$activeSlave.electrolarynx = 1, $activeSlave.voice = 2, $stockpile.electrolarynx--, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20, $surgeryType = "electrolarynx"]]
 	<</if>>
 <</if>>
 
 <<if $activeSlave.scars > 0>>
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	$He has notable facial scarring.
-	[[Remove scars|Surgery Degradation][$activeSlave.scars = 0, $cash -= $surgeryCost, $activeSlave.health -= 5, $surgeryType = "scarRemov"]]
+	[[Remove scars|Surgery Degradation][$activeSlave.scars = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 5, $surgeryType = "scarRemov"]]
 <<elseif $activeSlave.scars == 0>>
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
-	$His face is unscarred. [[Give a menacing scar|Surgery Degradation][$activeSlave.scars = 5, $cash -= $surgeryCost, $activeSlave.health -= 5, $surgeryType = "scarFear"]] |
-	[[Give an exotic scar|Surgery Degradation][$activeSlave.scars = 6, $cash -= $surgeryCost, $activeSlave.health -= 5, $surgeryType = "scarExo"]]
+	$His face is unscarred. [[Give a menacing scar|Surgery Degradation][$activeSlave.scars = 5, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 5, $surgeryType = "scarFear"]] |
+	[[Give an exotic scar|Surgery Degradation][$activeSlave.scars = 6, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 5, $surgeryType = "scarExo"]]
 <</if>>
 
 <br><br>
@@ -384,63 +384,63 @@ Work on $his chest:
 <<elseif $activeSlave.breastMesh == 1>>
 	//$His supportive mesh implant blocks implantation//
 <<elseif $activeSlave.boobsImplant == 0>>
-	[[String implants|Surgery Degradation][$activeSlave.boobsImplant = 400, $activeSlave.boobsImplantType = 1,$activeSlave.boobs += 400,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "boobs"]] |
-	<<if $surgeryUpgrade == 1>>[[Large implants|Surgery Degradation][$activeSlave.boobsImplant = 600,$activeSlave.boobs += 600,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "boobs"]] |<</if>>
-	[[Standard implants|Surgery Degradation][$activeSlave.boobsImplant = 400,$activeSlave.boobs += 400,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "boobs"]] |
-	[[Small implants|Surgery Degradation][$activeSlave.boobsImplant = 200,$activeSlave.boobs += 200,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "boobs"]]
+	[[String implants|Surgery Degradation][$activeSlave.boobsImplant = 400, $activeSlave.boobsImplantType = 1,$activeSlave.boobs += 400,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "boobs"]] |
+	<<if $surgeryUpgrade == 1>>[[Large implants|Surgery Degradation][$activeSlave.boobsImplant = 600,$activeSlave.boobs += 600,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "boobs"]] |<</if>>
+	[[Standard implants|Surgery Degradation][$activeSlave.boobsImplant = 400,$activeSlave.boobs += 400,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "boobs"]] |
+	[[Small implants|Surgery Degradation][$activeSlave.boobsImplant = 200,$activeSlave.boobs += 200,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "boobs"]]
 <<elseif $activeSlave.boobsImplant > 10000 && $activeSlave.boobsImplantType != 1 && $ImplantProductionUpgrade == 1>>
-	[[Add inert filler|Surgery Degradation][$activeSlave.boobsImplant += 1000,$activeSlave.boobs += 1000,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "boobs"]]
+	[[Add inert filler|Surgery Degradation][$activeSlave.boobsImplant += 1000,$activeSlave.boobs += 1000,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "boobs"]]
 <<elseif $activeSlave.boobsImplant > 9800 && $activeSlave.boobsImplantType != 1 && $ImplantProductionUpgrade == 1>>
-	[[Hyper fillable implants|Surgery Degradation][$activeSlave.boobsImplant = 11000,$activeSlave.boobs += 800,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "boobs"]]
+	[[Hyper fillable implants|Surgery Degradation][$activeSlave.boobsImplant = 11000,$activeSlave.boobs += 800,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "boobs"]]
 <<elseif $activeSlave.boobsImplant > 2000 && $activeSlave.boobsImplantType != 1>>
-	[[Add inert filler|Surgery Degradation][$activeSlave.boobsImplant += 400,$activeSlave.boobs += 400,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "boobs"]]
+	[[Add inert filler|Surgery Degradation][$activeSlave.boobsImplant += 400,$activeSlave.boobs += 400,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "boobs"]]
 <<elseif $activeSlave.boobsImplant > 1800 && $activeSlave.boobsImplantType != 1>>
 	$His implants are filled to capacity.
 	<<if $ImplantProductionUpgrade == 1>>
-		[[Advanced fillable implants|Surgery Degradation][$activeSlave.boobsImplant = 2200,$activeSlave.boobs += 200,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "boobs"]]
+		[[Advanced fillable implants|Surgery Degradation][$activeSlave.boobsImplant = 2200,$activeSlave.boobs += 200,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "boobs"]]
 	<<else>>
-		[[Special order advanced fillable implants|Surgery Degradation][$activeSlave.boobsImplant = 2200,$activeSlave.boobs += 200,$cash -= $surgeryCost+10000, $activeSlave.health -= 10,$surgeryType = "boobs"]] //Will cost an additional <<= cashFormat(10000)>>//
+		[[Special order advanced fillable implants|Surgery Degradation][$activeSlave.boobsImplant = 2200,$activeSlave.boobs += 200,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)+10000, $activeSlave.health -= 10,$surgeryType = "boobs"]] //Will cost an additional <<= cashFormat(10000)>>//
 	<</if>>
 <<elseif $activeSlave.boobsImplant > 600 && $activeSlave.boobsImplantType != 1>>
-	[[Add inert filler|Surgery Degradation][$activeSlave.boobsImplant += 200,$activeSlave.boobs += 200,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "boobs"]]
+	[[Add inert filler|Surgery Degradation][$activeSlave.boobsImplant += 200,$activeSlave.boobs += 200,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "boobs"]]
 <<elseif $activeSlave.boobsImplant > 400 && $activeSlave.boobsImplantType != 1>>
-	[[Fillable implants|Surgery Degradation][$activeSlave.boobsImplant = 800,$activeSlave.boobs += 200,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "boobs"]]
+	[[Fillable implants|Surgery Degradation][$activeSlave.boobsImplant = 800,$activeSlave.boobs += 200,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "boobs"]]
 <<elseif $activeSlave.boobsImplant > 200 && $activeSlave.boobsImplantType != 1>>
-	[[Large implants|Surgery Degradation][$activeSlave.boobsImplant = 600,$activeSlave.boobs += 200,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "boobs"]]
+	[[Large implants|Surgery Degradation][$activeSlave.boobsImplant = 600,$activeSlave.boobs += 200,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "boobs"]]
 <<elseif $activeSlave.boobsImplant > 0 && $activeSlave.boobsImplantType != 1>>
-	[[Standard implants|Surgery Degradation][$activeSlave.boobsImplant = 400,$activeSlave.boobs += 200,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "boobs"]] | [[Large implants|Surgery Degradation][$activeSlave.boobsImplant = 600,$activeSlave.boobs += 400,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "boobs"]]
+	[[Standard implants|Surgery Degradation][$activeSlave.boobsImplant = 400,$activeSlave.boobs += 200,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "boobs"]] | [[Large implants|Surgery Degradation][$activeSlave.boobsImplant = 600,$activeSlave.boobs += 400,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "boobs"]]
 <</if>>
 <<if $activeSlave.boobsImplant != 0>>
 	<<if $activeSlave.boobsImplantType == 1 && $activeSlave.boobsImplant > 400>>
 		<<if $activeSlave.boobsImplant > 8000>>
-			| [[Drain 1000cc|Surgery Degradation][$activeSlave.boobs = ($activeSlave.boobs-1000),$activeSlave.boobsImplant = ($activeSlave.boobsImplant-1000), $activeSlave.health -= 5,$cash -= $surgeryCost, $surgeryType = "boobsLoss"]]
+			| [[Drain 1000cc|Surgery Degradation][$activeSlave.boobs = ($activeSlave.boobs-1000),$activeSlave.boobsImplant = ($activeSlave.boobsImplant-1000), $activeSlave.health -= 5,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "boobsLoss"]]
 		<<elseif $activeSlave.boobsImplant > 5000>>
-			| [[Drain 750cc|Surgery Degradation][$activeSlave.boobs = ($activeSlave.boobs-750),$activeSlave.boobsImplant = ($activeSlave.boobsImplant-750), $activeSlave.health -= 5,$cash -= $surgeryCost, $surgeryType = "boobsLoss"]]
+			| [[Drain 750cc|Surgery Degradation][$activeSlave.boobs = ($activeSlave.boobs-750),$activeSlave.boobsImplant = ($activeSlave.boobsImplant-750), $activeSlave.health -= 5,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "boobsLoss"]]
 		<<elseif $activeSlave.boobsImplant > 2000>>
-			| [[Drain 500cc|Surgery Degradation][$activeSlave.boobs = ($activeSlave.boobs-500),$activeSlave.boobsImplant = ($activeSlave.boobsImplant-500), $activeSlave.health -= 5,$cash -= $surgeryCost, $surgeryType = "boobsLoss"]]
+			| [[Drain 500cc|Surgery Degradation][$activeSlave.boobs = ($activeSlave.boobs-500),$activeSlave.boobsImplant = ($activeSlave.boobsImplant-500), $activeSlave.health -= 5,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "boobsLoss"]]
 		<<elseif $activeSlave.boobsImplant > 1000>>
-			| [[Drain 250cc|Surgery Degradation][$activeSlave.boobs = ($activeSlave.boobs-250),$activeSlave.boobsImplant = ($activeSlave.boobsImplant-250), $activeSlave.health -= 5,$cash -= $surgeryCost, $surgeryType = "boobsLoss"]]
+			| [[Drain 250cc|Surgery Degradation][$activeSlave.boobs = ($activeSlave.boobs-250),$activeSlave.boobsImplant = ($activeSlave.boobsImplant-250), $activeSlave.health -= 5,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "boobsLoss"]]
 		<<elseif $activeSlave.boobsImplant > 500>>
-			| [[Drain 100cc|Surgery Degradation][$activeSlave.boobs = ($activeSlave.boobs-100),$activeSlave.boobsImplant = ($activeSlave.boobsImplant-100), $activeSlave.health -= 5,$cash -= $surgeryCost, $surgeryType = "boobsLoss"]]
+			| [[Drain 100cc|Surgery Degradation][$activeSlave.boobs = ($activeSlave.boobs-100),$activeSlave.boobsImplant = ($activeSlave.boobsImplant-100), $activeSlave.health -= 5,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "boobsLoss"]]
 		<</if>>
 	<</if>>
-	| [[Remove breast implants|Surgery Degradation][$activeSlave.boobs = ($activeSlave.boobs-$activeSlave.boobsImplant),$activeSlave.boobsImplant = 0,$activeSlave.boobsImplantType = 0, $activeSlave.health -= 5,$cash -= $surgeryCost, $surgeryType = "boobsLoss"]]
+	| [[Remove breast implants|Surgery Degradation][$activeSlave.boobs = ($activeSlave.boobs-$activeSlave.boobsImplant),$activeSlave.boobsImplant = 0,$activeSlave.boobsImplantType = 0, $activeSlave.health -= 5,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "boobsLoss"]]
 <</if>>
 <<if ($activeSlave.boobs > 300) && ($activeSlave.boobsImplant == 0)>>
 	<<if $activeSlave.indentureRestrictions >= 2>>
 	<<else>>
-	| [[Reduce breasts|Surgery Degradation][$activeSlave.boobs -= 200, $activeSlave.health -= 5,$cash -= $surgeryCost, $surgeryType = "boobsLoss"]]
+	| [[Reduce breasts|Surgery Degradation][$activeSlave.boobs -= 200, $activeSlave.health -= 5,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "boobsLoss"]]
 	<</if>>
 <</if>>
 <<if ($activeSlave.boobs >= 7000) && ($activeSlave.boobsImplant == 0)>>
 	<<if $activeSlave.indentureRestrictions >= 2 || ($activeSlave.breedingMark == 1 && $propOutcome == 1)>>
 	<<else>>
-	| [[Mastectomy|Surgery Degradation][$activeSlave.boobs = 300, $activeSlave.breastMesh = 0, $activeSlave.health -= 30,$cash -= $surgeryCost, $surgeryType = "mastectomy+"]]
+	| [[Mastectomy|Surgery Degradation][$activeSlave.boobs = 300, $activeSlave.breastMesh = 0, $activeSlave.health -= 30,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "mastectomy+"]]
 	<</if>>
 <<elseif ($activeSlave.boobs >= 2000) && ($activeSlave.boobsImplant == 0)>>
 	<<if $activeSlave.indentureRestrictions >= 2 || ($activeSlave.breedingMark == 1 && $propOutcome == 1)>>
 	<<else>>
-	| [[Mastectomy|Surgery Degradation][$activeSlave.boobs = 300, $activeSlave.breastMesh = 0, $activeSlave.health -= 30,$cash -= $surgeryCost, $surgeryType = "mastectomy"]]
+	| [[Mastectomy|Surgery Degradation][$activeSlave.boobs = 300, $activeSlave.breastMesh = 0, $activeSlave.health -= 30,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "mastectomy"]]
 	<</if>>
 <</if>>
 
@@ -471,13 +471,13 @@ Work on $his chest:
 		//$His supportive mesh implant prevents reconstruction//
 	<<else>>
 		<<if ($activeSlave.boobShape == "saggy") || ($activeSlave.boobShape == "downward-facing")>>
-			[[Breast lift|Surgery Degradation][$activeSlave.boobShape = "normal", $activeSlave.health -= 20,$cash -= $surgeryCost, $surgeryType = "breastLift"]]<<if $activeSlave.preg > $activeSlave.pregData.normalBirth/1.42 || ($activeSlave.boobs >= 5000 && $activeSlave.boobs < 8000)>>//$His current state may result in $his breasts becoming saggy again//<</if>>
+			[[Breast lift|Surgery Degradation][$activeSlave.boobShape = "normal", $activeSlave.health -= 20,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "breastLift"]]<<if $activeSlave.preg > $activeSlave.pregData.normalBirth/1.42 || ($activeSlave.boobs >= 5000 && $activeSlave.boobs < 8000)>>//$His current state may result in $his breasts becoming saggy again//<</if>>
 		<<else>>
 			<<if ($activeSlave.boobShape == "normal")>>
-				[[Reshape them to be perkier|Surgery Degradation][$activeSlave.boobShape = "perky",$cash -= $surgeryCost,$activeSlave.health -= 10,$surgeryType = "breastReconstruction"]]
-				| [[Make them torpedo-shaped|Surgery Degradation][$activeSlave.boobShape = "torpedo-shaped",$cash -= $surgeryCost,$activeSlave.health -= 10,$surgeryType = "breastReconstruction"]]
+				[[Reshape them to be perkier|Surgery Degradation][$activeSlave.boobShape = "perky",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 10,$surgeryType = "breastReconstruction"]]
+				| [[Make them torpedo-shaped|Surgery Degradation][$activeSlave.boobShape = "torpedo-shaped",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 10,$surgeryType = "breastReconstruction"]]
 			<<else>>
-				[[Reshape them to be more normal|Surgery Degradation][$activeSlave.boobShape = "normal",$cash -= $surgeryCost,$activeSlave.health -= 10,$surgeryType = "breastReconstruction"]]
+				[[Reshape them to be more normal|Surgery Degradation][$activeSlave.boobShape = "normal",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 10,$surgeryType = "breastReconstruction"]]
 			<</if>>
 			<<if ($activeSlave.boobShape != "saggy") && ($activeSlave.boobShape != "downward-facing") && ($activeSlave.boobs >= 2000) && ($activeSlave.boobsImplant == 0) && ($meshImplants == 1) && ($surgeryUpgrade == 1)>>
 				| [[Implant a supportive mesh to preserve their shape|Surgery Degradation][$activeSlave.breastMesh = 1,$cash -= ($surgeryCost*($activeSlave.boobs/100)),$activeSlave.health -= 10,$surgeryType = "breastShapePreservation"]]
@@ -496,7 +496,7 @@ Work on $his chest:
 		//$His indenture forbids extreme body modification//
 	<<else>> /* split for possible dicknips later on, should lcd wish to attempt it again. */
 		<<if $activeSlave.nipples == "fuckable">>
-			[[Restore their shape and function|Surgery Degradation][$activeSlave.nipples = "huge",$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "areolae"]]
+			[[Restore their shape and function|Surgery Degradation][$activeSlave.nipples = "huge",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "areolae"]]
 		<<else>>
 			<<if $activeSlave.boobs-$activeSlave.boobsMilk < 500>>
 				//$His breasts are too small to support reshaping $his nipples to be penetratable//
@@ -505,7 +505,7 @@ Work on $his chest:
 			<<elseif $activeSlave.nipples != "huge">>
 				//$His nipples are too small to be made fuckable//
 			<<else>>
-				[[Reshape them to support being penetrated|Surgery Degradation][$activeSlave.nipples = "fuckable",$activeSlave.nipplesPiercing = 0,$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "nippleCunts"]]<<if $activeSlave.nipplesPiercing > 0>> //Will remove piercings.//<</if>>
+				[[Reshape them to support being penetrated|Surgery Degradation][$activeSlave.nipples = "fuckable",$activeSlave.nipplesPiercing = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "nippleCunts"]]<<if $activeSlave.nipplesPiercing > 0>> //Will remove piercings.//<</if>>
 			<</if>>
 		<</if>>
 	<</if>>
@@ -520,11 +520,11 @@ Work on $his chest:
 	$He has <<if $activeSlave.areolae == 2>>huge<<elseif $activeSlave.areolae == 3>>massive<</if>> areolae<<if $activeSlave.areolaeShape != "circle">>, which have been surgically altered to be $activeSlave.areolaeShape-shaped<</if>>.
 	<<if ($activeSlave.indentureRestrictions < 2) && ($activeSlave.areolaeShape == "circle")>>
 	They are big enough that they could be reshaped into a pattern. Graft skin to make $his areolae:
-		[[Heart-shaped|Surgery Degradation][$activeSlave.areolaeShape = "heart",$activeSlave.areolae -= 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "areolae"]]
-		| [[Star-shaped|Surgery Degradation][$activeSlave.areolaeShape = "star",$activeSlave.areolae -= 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "areolae"]] |
+		[[Heart-shaped|Surgery Degradation][$activeSlave.areolaeShape = "heart",$activeSlave.areolae -= 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "areolae"]]
+		| [[Star-shaped|Surgery Degradation][$activeSlave.areolaeShape = "star",$activeSlave.areolae -= 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "areolae"]] |
 	<</if>>
 	<<if $activeSlave.indentureRestrictions < 2>>
-		[[Reduce areolae|Surgery Degradation][$activeSlave.areolae -= 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "areolae"]]
+		[[Reduce areolae|Surgery Degradation][$activeSlave.areolae -= 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "areolae"]]
 	<</if>>
 <</if>>
 
@@ -538,11 +538,11 @@ Work on $his chest:
 <</if>>
 <<if $activeSlave.lactation < 2>>
 	<<if $activeSlave.indentureRestrictions < 2>>
-	[[Implant slow-release pro-lactation drugs|Surgery Degradation][$activeSlave.lactation = 2, $activeSlave.lactationDuration = 2, $activeSlave.induceLactation = 0, $activeSlave.boobs -= $activeSlave.boobsMilk, $activeSlave.boobsMilk = 0,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "lactation"]] //This may increase $his natural breast size//
+	[[Implant slow-release pro-lactation drugs|Surgery Degradation][$activeSlave.lactation = 2, $activeSlave.lactationDuration = 2, $activeSlave.induceLactation = 0, $activeSlave.boobs -= $activeSlave.boobsMilk, $activeSlave.boobsMilk = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "lactation"]] //This may increase $his natural breast size//
 	<</if>>
 <</if>>
 <<if $activeSlave.lactation > 1>>
-	| [[Remove lactation implant|Surgery Degradation][$activeSlave.lactation = 0, $activeSlave.lactationDuration = 0,$cash -= $surgeryCost, $surgeryType = "endlac"]]
+	| [[Remove lactation implant|Surgery Degradation][$activeSlave.lactation = 0, $activeSlave.lactationDuration = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "endlac"]]
 <</if>>
 
 <br><br>
@@ -555,14 +555,14 @@ Work on $his midriff:
 <<elseif $activeSlave.weight > 30>>
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	<<if $activeSlave.weight > 190>>
-		$He is extremely fat. [[Major liposuction|Surgery Degradation][$activeSlave.health -= 40, $cash -= $surgeryCost, $surgeryType = "liposuction"]]
+		$He is extremely fat. [[Major liposuction|Surgery Degradation][$activeSlave.health -= 40, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "liposuction"]]
 	<<elseif $activeSlave.weight > 130>>
-		$He is fat. [[Heavy liposuction|Surgery Degradation][$activeSlave.health -= 20, $cash -= $surgeryCost, $surgeryType = "liposuction"]]
+		$He is fat. [[Heavy liposuction|Surgery Degradation][$activeSlave.health -= 20, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "liposuction"]]
 	<<elseif $activeSlave.weight > 30>>
-		$He is overweight. [[Liposuction|Surgery Degradation][$activeSlave.health -= 10, $cash -= $surgeryCost, $surgeryType = "liposuction"]]
+		$He is overweight. [[Liposuction|Surgery Degradation][$activeSlave.health -= 10, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "liposuction"]]
 	<</if>>
 	<<if $surgeryUpgrade == 1>>
-		| [[Fat grafting|fat grafting workaround][$activeSlave.health -= 40, $cash -= $surgeryCost*2, $availabeFat = Math.round($activeSlave.weight/10), $boobFat = 0, $buttFat = 0, $surgeryType = "fat graft"]]
+		| [[Fat grafting|fat grafting workaround][$activeSlave.health -= 40, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)*2, $availabeFat = Math.round($activeSlave.weight/10), $boobFat = 0, $buttFat = 0, $surgeryType = "fat graft"]]
 	<</if>>
 <</if>>
 
@@ -579,12 +579,12 @@ $He has
 waist.
 <<if $activeSlave.waist >= -75>>
 	<<if $activeSlave.indentureRestrictions < 2>>
-	[[Liposuction|Surgery Degradation][$activeSlave.waist -= 20,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "lipo"]]
+	[[Liposuction|Surgery Degradation][$activeSlave.waist -= 20,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "lipo"]]
 	<</if>>
 <</if>>
 <<if ($activeSlave.waist >= -95) && ($activeSlave.waist < -75) && ($seeExtreme == 1)>>
 	<<if $activeSlave.indentureRestrictions < 1 && ($activeSlave.breedingMark != 1 || $propOutcome == 0)>>
-	[["Remove ribs to severely narrow " + $his + " waist"|Surgery Degradation][$activeSlave.waist = -100,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "ribs"]]
+	[["Remove ribs to severely narrow " + $his + " waist"|Surgery Degradation][$activeSlave.waist = -100,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "ribs"]]
 	<</if>>
 <</if>>
 
@@ -645,33 +645,33 @@ $He's
 <<elseif $activeSlave.bellyImplant > 130000 && $arcologies[0].FSTransformationFetishistResearch != 1>>
 	//$His abdominal implant is at its capacity//
 <<elseif $activeSlave.bellyImplant == -1 && ($activeSlave.ovaries == 1 || $activeSlave.mpreg == 1) && $bellyImplants == 1>>
-	[[Implant fillable abdominal implant|Surgery Degradation][$activeSlave.bellyImplant = 0,$activeSlave.preg = -2, $activeSlave.bellyPain += 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "bellyIn"]]
+	[[Implant fillable abdominal implant|Surgery Degradation][$activeSlave.bellyImplant = 0,$activeSlave.preg = -2, $activeSlave.bellyPain += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "bellyIn"]]
 <<elseif $activeSlave.bellyImplant == -1 && $bellyImplants == 1>>
-	[[Implant a fillable abdominal implant|Surgery Degradation][$activeSlave.bellyImplant = 0, $cash -= $surgeryCost, $activeSlave.bellyPain += 2, $activeSlave.health -= 50, $surgeryType = "bellyInMale"]]
+	[[Implant a fillable abdominal implant|Surgery Degradation][$activeSlave.bellyImplant = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.bellyPain += 2, $activeSlave.health -= 50, $surgeryType = "bellyInMale"]]
 <<elseif $activeSlave.bellyPain == 2>>
 	//$His body cannot handle more filler this week//
 <<elseif $activeSlave.bellyImplant > -1 && $activeSlave.bellyPain == 0>>
-	[[Add inert filler|Surgery Degradation][$activeSlave.bellyImplant += 200, $activeSlave.bellyPain += 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "bellyUp"]]
-	| [[Add a considerable amount of inert filler|Surgery Degradation][$activeSlave.bellyImplant += 500, $activeSlave.bellyPain += 1,$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "bellyUp"]]
+	[[Add inert filler|Surgery Degradation][$activeSlave.bellyImplant += 200, $activeSlave.bellyPain += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "bellyUp"]]
+	| [[Add a considerable amount of inert filler|Surgery Degradation][$activeSlave.bellyImplant += 500, $activeSlave.bellyPain += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "bellyUp"]]
 <<elseif $activeSlave.bellyImplant > -1 && $activeSlave.bellyPain == 1>>
-	[[Add more inert filler|Surgery Degradation][$activeSlave.bellyImplant += 200, $activeSlave.bellyPain += 1,$cash -= $surgeryCost, $activeSlave.health -= 30,$surgeryType = "bellyUp"]]
-	| [[Add a considerable amount of inert filler|Surgery Degradation][$activeSlave.bellyImplant += 500, $activeSlave.bellyPain += 1,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "bellyUp"]]<<if $activeSlave.health < 0>>//@@.red;This may cause severe health issues//<</if>>
+	[[Add more inert filler|Surgery Degradation][$activeSlave.bellyImplant += 200, $activeSlave.bellyPain += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 30,$surgeryType = "bellyUp"]]
+	| [[Add a considerable amount of inert filler|Surgery Degradation][$activeSlave.bellyImplant += 500, $activeSlave.bellyPain += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "bellyUp"]]<<if $activeSlave.health < 0>>//@@.red;This may cause severe health issues//<</if>>
 <</if>>
 <<if $activeSlave.bellyImplant > -1>>
-	| [[Drain implant|Surgery Degradation][$activeSlave.bellyImplant -= 200,$cash -= $surgeryCost, $activeSlave.health -= 5, $surgeryType = "bellyDown"]]
+	| [[Drain implant|Surgery Degradation][$activeSlave.bellyImplant -= 200,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 5, $surgeryType = "bellyDown"]]
 	<<if $activeSlave.bellyImplant >= 500>>
-		| [[Greatly drain implant|Surgery Degradation][$activeSlave.bellyImplant -= 500, $activeSlave.health -= 5,$cash -= $surgeryCost, $surgeryType = "bellyDown"]]
+		| [[Greatly drain implant|Surgery Degradation][$activeSlave.bellyImplant -= 500, $activeSlave.health -= 5,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "bellyDown"]]
 	<</if>>
 	<<if $activeSlave.indentureRestrictions < 2>>
-		| [[Remove implant|Surgery Degradation][$activeSlave.bellyImplant = -1, $activeSlave.cervixImplant = 0, $cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "bellyOut"]]
+		| [[Remove implant|Surgery Degradation][$activeSlave.bellyImplant = -1, $activeSlave.cervixImplant = 0, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "bellyOut"]]
 		<<if $activeSlave.cervixImplant != 1 && $activeSlave.cervixImplant != 3 && $cervixImplants >= 1 && $activeSlave.vagina > -1>> /* slave should have vagina */
 			<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-			[[Install cervix micropump filter|Surgery Degradation][$activeSlave.cervixImplant = ($activeSlave.cervixImplant==0?1:3), $activeSlave.health -= 5, $cash -= $surgeryCost, $surgeryType = "cervixPump"]]<br>
+			[[Install cervix micropump filter|Surgery Degradation][$activeSlave.cervixImplant = ($activeSlave.cervixImplant==0?1:3), $activeSlave.health -= 5, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "cervixPump"]]<br>
 			//Will allow $his belly implant to slowly swell as people cum in $his vagina//
 		<</if>>
 		<<if $activeSlave.cervixImplant != 2 && $activeSlave.cervixImplant != 3 && $cervixImplants == 2>>
 			<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-			[[Install rectal micropump filter|Surgery Degradation][$activeSlave.cervixImplant = ($activeSlave.cervixImplant==0?2:3), $activeSlave.health -= 20, $cash -= $surgeryCost, $surgeryType = "cervixPumpA"]]<br>
+			[[Install rectal micropump filter|Surgery Degradation][$activeSlave.cervixImplant = ($activeSlave.cervixImplant==0?2:3), $activeSlave.health -= 20, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "cervixPumpA"]]<br>
 			//Will allow $his belly implant to slowly swell as people cum in $his anus//
 		<</if>>
 	<</if>>
@@ -688,7 +688,7 @@ $He's
 	<<else>>
 		<<if $surgeryUpgrade == 1>>
 			<<if $UterineRestraintMesh == 1>>
-				[[Install reinforcing organic mesh|Surgery Degradation][$activeSlave.wombImplant = "restraint", $activeSlave.health -= 25, $cash -= $surgeryCost, $surgeryType = "womb"]]
+				[[Install reinforcing organic mesh|Surgery Degradation][$activeSlave.wombImplant = "restraint", $activeSlave.health -= 25, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "womb"]]
 			<</if>>
 		<</if>>
 	<</if>>
@@ -700,7 +700,7 @@ $He's
 	<<elseif $activeSlave.bellyImplant > 0 || $activeSlave.preg > 0>>
 		//$His womb is currently in use and unsafe to operate on//
 	<<else>>
-		[[Remove organic mesh|Surgery Degradation][$activeSlave.wombImplant = "none", $activeSlave.health -= 50, $cash -= $surgeryCost, $surgeryType = "womb"]]<<if $activeSlave.health < 0>>//@@.red;This may cause severe health issues//<</if>>
+		[[Remove organic mesh|Surgery Degradation][$activeSlave.wombImplant = "none", $activeSlave.health -= 50, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "womb"]]<<if $activeSlave.health < 0>>//@@.red;This may cause severe health issues//<</if>>
 	<</if>>
 <</if>>
 
@@ -710,7 +710,7 @@ $He's
 		$He has a sagging midriff, ruined from excessive pregnancy. It is currently filled out by $his swollen belly and cannot safely be worked on.
 	<<else>>
 		$He has a sagging midriff, ruined from excessive pregnancy.
-		[[Tummy tuck|Surgery Degradation][$activeSlave.bellySag = 0,$activeSlave.bellySagPreg = 0,$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "tummyTuck"]]
+		[[Tummy tuck|Surgery Degradation][$activeSlave.bellySag = 0,$activeSlave.bellySagPreg = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "tummyTuck"]]
 	<</if>>
 <<elseif $activeSlave.bellySag > 0>>
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
@@ -718,14 +718,14 @@ $He's
 		$He has a sagging midriff, ruined from excessive distention. It is currently filled out by $his swollen belly and cannot safely be worked on.
 	<<else>>
 		$He has a sagging midriff, ruined from excessive distention.
-		[[Tummy tuck|Surgery Degradation][$activeSlave.bellySag = 0,$activeSlave.bellySagPreg = 0,$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "tummyTuck"]]
+		[[Tummy tuck|Surgery Degradation][$activeSlave.bellySag = 0,$activeSlave.bellySagPreg = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "tummyTuck"]]
 	<</if>>
 <</if>>
 
 <<if ($activeSlave.cSec == 1)>>
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	$He has an unsightly c-section scar.
-	[[Remove Caesarean scar|Surgery Degradation][$activeSlave.cSec = 0,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "bellyscar"]]
+	[[Remove Caesarean scar|Surgery Degradation][$activeSlave.cSec = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "bellyscar"]]
 <</if>>
 
 <br><br>
@@ -764,35 +764,35 @@ $He's got a
 <<elseif $activeSlave.buttImplant > 7 && $arcologies[0].FSTransformationFetishistResearch != 1 && $activeSlave.buttImplantType != 1>>
 	//$His butt implants are filled to capacity//
 <<elseif $activeSlave.buttImplant == 0>>
-	[[Implants|Surgery Degradation][$activeSlave.buttImplant = 1,$activeSlave.butt += 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "butt"]]
-	| [[String implants|Surgery Degradation][$activeSlave.buttImplant = 1,$activeSlave.butt += 1,$activeSlave.buttImplantType = 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "butt"]]
+	[[Implants|Surgery Degradation][$activeSlave.buttImplant = 1,$activeSlave.butt += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "butt"]]
+	| [[String implants|Surgery Degradation][$activeSlave.buttImplant = 1,$activeSlave.butt += 1,$activeSlave.buttImplantType = 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "butt"]]
 <<elseif $activeSlave.buttImplant == 1 && $activeSlave.buttImplantType != 1>>
-	[[Bigger implants|Surgery Degradation][$activeSlave.buttImplant = 2,$activeSlave.butt += 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "butt"]]
+	[[Bigger implants|Surgery Degradation][$activeSlave.buttImplant = 2,$activeSlave.butt += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "butt"]]
 <<elseif $activeSlave.buttImplant == 2 && $activeSlave.buttImplantType != 1>>
-	[[Fillable implants|Surgery Degradation][$activeSlave.buttImplant = 3,$activeSlave.butt += 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "butt"]]
+	[[Fillable implants|Surgery Degradation][$activeSlave.buttImplant = 3,$activeSlave.butt += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "butt"]]
 <<elseif $activeSlave.buttImplant == 4 && $activeSlave.buttImplantType != 1>>
 	$His implants are filled to capacity.
 	<<if $ImplantProductionUpgrade == 1>>
-		[[Advanced fillable implants|Surgery Degradation][$activeSlave.buttImplant = 5,$activeSlave.butt += 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "butt"]]
+		[[Advanced fillable implants|Surgery Degradation][$activeSlave.buttImplant = 5,$activeSlave.butt += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "butt"]]
 	<<else>>
-		[[Special order advanced fillable implants|Surgery Degradation][$activeSlave.buttImplant = 5,$activeSlave.butt += 1,$cash -= $surgeryCost+10000, $activeSlave.health -= 10,$surgeryType = "butt"]] //Will cost an additional <<= cashFormat(10000)>>//
+		[[Special order advanced fillable implants|Surgery Degradation][$activeSlave.buttImplant = 5,$activeSlave.butt += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)+10000, $activeSlave.health -= 10,$surgeryType = "butt"]] //Will cost an additional <<= cashFormat(10000)>>//
 	<</if>>
 <<elseif $activeSlave.buttImplant == 8 && $activeSlave.buttImplantType != 1 && $ImplantProductionUpgrade == 1>>
-	[[Hyper fillable implants|Surgery Degradation][$activeSlave.buttImplant = 9,$activeSlave.butt += 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "butt"]]
+	[[Hyper fillable implants|Surgery Degradation][$activeSlave.buttImplant = 9,$activeSlave.butt += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "butt"]]
 <<elseif $activeSlave.buttImplant > 2 && $activeSlave.buttImplantType != 1>>
-	[[Add inert filler|Surgery Degradation][$activeSlave.buttImplant += 1,$activeSlave.butt += 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "butt"]]
+	[[Add inert filler|Surgery Degradation][$activeSlave.buttImplant += 1,$activeSlave.butt += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "butt"]]
 <</if>>
 <<if $activeSlave.buttImplant != 0>>
 	<<if $activeSlave.indentureRestrictions < 2>>
 		<<if $activeSlave.buttImplantType == 1 && $activeSlave.buttImplant > 1>>
-			| [[Drain implants|Surgery Degradation][$activeSlave.butt = ($activeSlave.butt-1),$activeSlave.buttImplant = ($activeSlave.buttImplant-1), $activeSlave.health -= 5,$cash -= $surgeryCost, $surgeryType = "buttLoss"]]
+			| [[Drain implants|Surgery Degradation][$activeSlave.butt = ($activeSlave.butt-1),$activeSlave.buttImplant = ($activeSlave.buttImplant-1), $activeSlave.health -= 5,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "buttLoss"]]
 		<</if>>
-		| [[Remove implants|Surgery Degradation][$activeSlave.butt = ($activeSlave.butt-$activeSlave.buttImplant),$activeSlave.buttImplant = 0, $activeSlave.health -= 10,$activeSlave.buttImplantType = 0,$cash -= $surgeryCost, $surgeryType = "buttLoss"]]
+		| [[Remove implants|Surgery Degradation][$activeSlave.butt = ($activeSlave.butt-$activeSlave.buttImplant),$activeSlave.buttImplant = 0, $activeSlave.health -= 10,$activeSlave.buttImplantType = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "buttLoss"]]
 	<</if>>
 <</if>>
 <<if ($activeSlave.butt > 1) && ($activeSlave.buttImplant == 0)>>
 	<<if $activeSlave.indentureRestrictions < 2>>
-		| [[Reduce ass|Surgery Degradation][$activeSlave.butt -= 1, $activeSlave.health -= 10,$cash -= $surgeryCost, $surgeryType = "buttLoss"]]
+		| [[Reduce ass|Surgery Degradation][$activeSlave.butt -= 1, $activeSlave.health -= 10,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "buttLoss"]]
 	<</if>>
 <</if>>
 
@@ -812,13 +812,13 @@ Work on $his sex:
 <</if>>
 <<if $activeSlave.labia > 0>>
 	<<if $activeSlave.indentureRestrictions < 2>>
-	[[Apply labiaplasty|Surgery Degradation][$activeSlave.labia = 0,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "labiaplasty"]]
+	[[Apply labiaplasty|Surgery Degradation][$activeSlave.labia = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "labiaplasty"]]
 	<</if>>
 <</if>>
 <<if ($activeSlave.labia < 3) && ($surgeryUpgrade == 1)>>
 	<<if $activeSlave.indentureRestrictions < 1>>
 	<<if $activeSlave.labia > 0>> | <</if>>
-		[[Increase labia|Surgery Degradation][$activeSlave.labia += 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "labiaplasty"]]
+		[[Increase labia|Surgery Degradation][$activeSlave.labia += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "labiaplasty"]]
 	<</if>>
 <</if>>
 <<if $activeSlave.dick == 0>>
@@ -835,19 +835,19 @@ Work on $his sex:
 	<</if>>
 	<<if $activeSlave.clit > 0>>
 		<<if $activeSlave.indentureRestrictions < 2>>
-		[[Apply clitoral reduction|Surgery Degradation][$activeSlave.clit = 0,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "clitoral reduction"]]
+		[[Apply clitoral reduction|Surgery Degradation][$activeSlave.clit = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "clitoral reduction"]]
 		<</if>>
 	<</if>>
 	<<if ($activeSlave.clit < 3) && ($surgeryUpgrade == 1)>>
 		<<if $activeSlave.indentureRestrictions < 1>>
 		<<if $activeSlave.clit > 0>> | <</if>>
-		[[Increase clit|Surgery Degradation][$activeSlave.clit += 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "clitoral enlargement"]]
+		[[Increase clit|Surgery Degradation][$activeSlave.clit += 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "clitoral enlargement"]]
 		<</if>>
 	<</if>>
 	<<if ($activeSlave.foreskin > 0) && $activeSlave.clit > 0>>
 		<<if $seeCircumcision == 1>>
 			<<if $activeSlave.indentureRestrictions < 2>>
-				| [[Remove clitoral hood|Surgery Degradation][$activeSlave.foreskin = 0,$cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "circumcision"]]
+				| [[Remove clitoral hood|Surgery Degradation][$activeSlave.foreskin = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "circumcision"]]
 			<</if>>
 		<</if>>
 	<</if>>
@@ -871,10 +871,10 @@ Work on $his sex:
 
 <<if ($activeSlave.preg > -2) && ($activeSlave.preg < 1) && ($activeSlave.ovaries != 0 || $activeSlave.mpreg != 0)>>
 	<<if $activeSlave.indentureRestrictions < 1 && ($activeSlave.breedingMark != 1 || $propOutcome == 0)>>
-	[[Sterilize|Surgery Degradation][$activeSlave.preg = -2,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "ster"]]
+	[[Sterilize|Surgery Degradation][$activeSlave.preg = -2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "ster"]]
 	<</if>>
 <<elseif ($activeSlave.preg < 1) && ($activeSlave.ovaries != 0 || $activeSlave.mpreg != 0) && ($activeSlave.preg != -3)>>
-	[[Restore fertility|Surgery Degradation][$activeSlave.preg = 0,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "fert"]]
+	[[Restore fertility|Surgery Degradation][$activeSlave.preg = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "fert"]]
 <</if>>
 
 <<if ($activeSlave.ovaries == 1 || $activeSlave.mpreg == 1)>>
@@ -889,21 +889,21 @@ Work on $his sex:
 		<<switch $activeSlave.ovaImplant>>
 		<<case "fertility">>
 			They have fertility implants attached to them.
-			[[Remove implants|Surgery Degradation][$activeSlave.ovaImplant = 0,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "ovaImplant removed"]]
+			[[Remove implants|Surgery Degradation][$activeSlave.ovaImplant = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "ovaImplant removed"]]
 		<<case "sympathy">>
 			They are linked via implants and ovulate in concert.
-			[[Remove implants|Surgery Degradation][$activeSlave.ovaImplant = 0,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "ovaImplant removed"]]
+			[[Remove implants|Surgery Degradation][$activeSlave.ovaImplant = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "ovaImplant removed"]]
 		<<case "asexual">>
 			One has been replaced with a sperm producing analog for self-fertilization.
 		<</switch>>
 	<<else>>
 		<<if $fertilityImplant == 1>>
 			<br>&nbsp;&nbsp;&nbsp;&nbsp;
-			[[Install fertility implants|Surgery Degradation][$activeSlave.ovaImplant = "fertility",$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "ovaImplant added"]]
+			[[Install fertility implants|Surgery Degradation][$activeSlave.ovaImplant = "fertility",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "ovaImplant added"]]
 		<</if>>
 		<<if $sympatheticOvaries == 1>>
 			<br>&nbsp;&nbsp;&nbsp;&nbsp;
-			[[Install sympathetic ovulation implants|Surgery Degradation][$activeSlave.ovaImplant = "sympathy",$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "ovaImplant added"]]
+			[[Install sympathetic ovulation implants|Surgery Degradation][$activeSlave.ovaImplant = "sympathy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "ovaImplant added"]]
 		<</if>>
 	<</if>>
 
@@ -913,14 +913,14 @@ Work on $his sex:
 			<<if $activeSlave.preg > 0>>
 				$His ovaries and womb cannot be removed while $he is pregnant.
 			<<else>>
-				[[Oophorectomy|Surgery Degradation][$activeSlave.ovaries = 0,$activeSlave.ovaImplant = 0,$activeSlave.wombImplant = "none",$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "ster"]]
+				[[Oophorectomy|Surgery Degradation][$activeSlave.ovaries = 0,$activeSlave.ovaImplant = 0,$activeSlave.wombImplant = "none",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "ster"]]
 			<</if>>
 		<</if>>
 		<<if $activeSlave.mpreg == 1>>
 			<<if $activeSlave.preg > 0>>
 				$His anal womb cannot be removed while $he is pregnant.
 			<<else>>
-				[[Remove anal reproductive organs|Surgery Degradation][$activeSlave.mpreg = 0,$activeSlave.ovaImplant = 0, $activeSlave.wombImplant = "none",$cash -= $surgeryCost, $activeSlave.health -= 30,$surgeryType = "mpreg removed"]]
+				[[Remove anal reproductive organs|Surgery Degradation][$activeSlave.mpreg = 0,$activeSlave.ovaImplant = 0, $activeSlave.wombImplant = "none",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 30,$surgeryType = "mpreg removed"]]
 			<</if>>
 		<</if>>
 	<</if>>
@@ -974,16 +974,16 @@ Work on $his sex:
 <<if ($activeSlave.vagina > 3)>>
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	$His vagina could benefit from surgical repair.
-	[[Repair pussy|Surgery Degradation][$activeSlave.vagina = 3,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "vagina"]] //This will reduce $his vaginal skills//
+	[[Repair pussy|Surgery Degradation][$activeSlave.vagina = 3,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "vagina"]] //This will reduce $his vaginal skills//
 <<elseif ($surgeryUpgrade == 1) && ($activeSlave.indentureRestrictions < 2)>>
 	<<if ($activeSlave.vagina > 1)>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		$His vaginal muscles could benefit from microsurgical rejuvenation.
-		[[Tighten pussy|Surgery Degradation][$activeSlave.vagina = 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "vagina"]] //This will reduce $his vaginal skills//
+		[[Tighten pussy|Surgery Degradation][$activeSlave.vagina = 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "vagina"]] //This will reduce $his vaginal skills//
 	<<elseif ($activeSlave.vagina > 0)>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		$His pussy is as tight as a virgin's, and $his hymen could be restored.
-		[[Restore virginity|Surgery Degradation][$activeSlave.vagina = 0,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "vagina"]] //This will reduce $his vaginal skills//
+		[[Restore virginity|Surgery Degradation][$activeSlave.vagina = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "vagina"]] //This will reduce $his vaginal skills//
 	<</if>>
 <</if>>
 
@@ -991,13 +991,13 @@ Work on $his sex:
 	<<if $activeSlave.indentureRestrictions < 1 && ($activeSlave.breedingMark != 1 || $propOutcome == 0)>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		Since $he has both a penis and a vagina, it's possible to remove $his pussy and leave $his sexually functional.
-		[[Remove pussy|Surgery Degradation][$activeSlave.vagina = -1,$activeSlave.ovaries = 0,$activeSlave.preg = -2,$activeSlave.pregSource = 0,$activeSlave.vaginalSkill = 0,$activeSlave.vaginalAccessory = "none",$cash -= $surgeryCost,$activeSlave.health -= 20,$surgeryType = "vaginaRemoval"]] <<if $activeSlave.ovaries == 1>>//This will remove $his ovaries as well//<</if>>
+		[[Remove pussy|Surgery Degradation][$activeSlave.vagina = -1,$activeSlave.ovaries = 0,$activeSlave.preg = -2,$activeSlave.pregSource = 0,$activeSlave.vaginalSkill = 0,$activeSlave.vaginalAccessory = "none",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 20,$surgeryType = "vaginaRemoval"]] <<if $activeSlave.ovaries == 1>>//This will remove $his ovaries as well//<</if>>
 	<</if>>
 <<elseif $activeSlave.vagina > -1>>
 	<<if $activeSlave.indentureRestrictions < 1 && ($activeSlave.breedingMark != 1 || $propOutcome == 0)>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		$His pussy can be removed at the cost of $his sexual functionality, leaving $him a null.
-		[[Remove pussy|Surgery Degradation][$activeSlave.vagina = -1,$activeSlave.ovaries = 0,$activeSlave.preg = -2,$activeSlave.pregSource = 0,$activeSlave.vaginalSkill = 0,$activeSlave.vaginalAccessory = "none",$cash -= $surgeryCost,$activeSlave.health -= 20,$surgeryType = "vaginaRemoval"]] <<if $activeSlave.ovaries == 1>>//This will remove $his ovaries as well//<</if>>
+		[[Remove pussy|Surgery Degradation][$activeSlave.vagina = -1,$activeSlave.ovaries = 0,$activeSlave.preg = -2,$activeSlave.pregSource = 0,$activeSlave.vaginalSkill = 0,$activeSlave.vaginalAccessory = "none",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 20,$surgeryType = "vaginaRemoval"]] <<if $activeSlave.ovaries == 1>>//This will remove $his ovaries as well//<</if>>
 	<</if>>
 <</if>>
 
@@ -1039,21 +1039,21 @@ Work on $his sex:
 
 <<if $activeSlave.indentureRestrictions < 1 && ($activeSlave.breedingMark != 1 || $propOutcome == 0)>>
 	<<if ($activeSlave.vagina == -1) && ($activeSlave.dick != 0)>>
-		[[Convert genitalia to female|Surgery Degradation][$activeSlave.dick = 0,$activeSlave.dickAccessory = "none",$activeSlave.dickTat = 0,$activeSlave.foreskin = 0,$activeSlave.scrotum = 0,$activeSlave.balls = 0,$activeSlave.ballType = "human",$activeSlave.vasectomy = 0,$activeSlave.vagina = 0,$activeSlave.preg = -2,$activeSlave.vaginalSkill = 0,$cash -= $surgeryCost, $activeSlave.health -= 40, $surgeryType = "mtf"]]
+		[[Convert genitalia to female|Surgery Degradation][$activeSlave.dick = 0,$activeSlave.dickAccessory = "none",$activeSlave.dickTat = 0,$activeSlave.foreskin = 0,$activeSlave.scrotum = 0,$activeSlave.balls = 0,$activeSlave.ballType = "human",$activeSlave.vasectomy = 0,$activeSlave.vagina = 0,$activeSlave.preg = -2,$activeSlave.vaginalSkill = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40, $surgeryType = "mtf"]]
 	<</if>>
 	<<if ($activeSlave.vagina == -1) && ($activeSlave.dick == 0) && ($surgeryUpgrade == 1)>>
-		| [[Create a vagina|Surgery Degradation][$activeSlave.vagina = 0,$activeSlave.vaginalSkill = 0,$cash -= $surgeryCost, $activeSlave.health -= 40, $surgeryType = "mtf"]]
+		| [[Create a vagina|Surgery Degradation][$activeSlave.vagina = 0,$activeSlave.vaginalSkill = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40, $surgeryType = "mtf"]]
 	<</if>>
 	<<if ($activeSlave.dick > 0) && ($seeExtreme == 1)>>
-		| [[Remove penis|Surgery Degradation][$activeSlave.dick = 0,$activeSlave.dickAccessory = "none",$activeSlave.dickTat = 0,$activeSlave.foreskin = 0,$activeSlave.vaginalSkill = 0,$cash -= $surgeryCost, $activeSlave.health -= 20, $surgeryType = "chop"]]
+		| [[Remove penis|Surgery Degradation][$activeSlave.dick = 0,$activeSlave.dickAccessory = "none",$activeSlave.dickTat = 0,$activeSlave.foreskin = 0,$activeSlave.vaginalSkill = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20, $surgeryType = "chop"]]
 	<</if>>
 	<<if ($activeSlave.foreskin > 0) && $activeSlave.dick > 0>>
 		<<if $activeSlave.indentureRestrictions < 2>>
 			<<if $seeCircumcision == 1>>
-				| [[Remove foreskin|Surgery Degradation][$activeSlave.foreskin = 0,$cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "circumcision"]]
+				| [[Remove foreskin|Surgery Degradation][$activeSlave.foreskin = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "circumcision"]]
 			<</if>>
 			<<if $activeSlave.foreskin - $activeSlave.dick > 0>>
-				| [[Remove excess foreskin|Surgery Degradation][$activeSlave.foreskin = $activeSlave.dick,$cash -= $surgeryCost, $activeSlave.health -= 5, $surgeryType = "foreskinTuck"]]
+				| [[Remove excess foreskin|Surgery Degradation][$activeSlave.foreskin = $activeSlave.dick,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 5, $surgeryType = "foreskinTuck"]]
 			<</if>>
 		<</if>>
 	<</if>>
@@ -1061,7 +1061,7 @@ Work on $his sex:
 
 <<if ($activeSlave.dick != 0) && ($activeSlave.vagina == -1) && ($surgeryUpgrade == 1)>>
 	<<if $activeSlave.indentureRestrictions < 1>>
-		| [[Create surgical hermaphrodite|Surgery Degradation][$activeSlave.vagina = 0,$activeSlave.vaginalSkill = 0,$cash -= $surgeryCost, $activeSlave.health -= 40, $surgeryType = "herm"]]
+		| [[Create surgical hermaphrodite|Surgery Degradation][$activeSlave.vagina = 0,$activeSlave.vaginalSkill = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40, $surgeryType = "herm"]]
 	<</if>>
 <</if>>
 
@@ -1078,12 +1078,12 @@ Work on $his sex:
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		<<if $activeSlave.indentureRestrictions < 2>>
 			<<if $activeSlave.scrotum - $activeSlave.balls > 0>>
-				[[Remove excess scrotal skin|Surgery Degradation][$activeSlave.scrotum = $activeSlave.balls,$cash -= $surgeryCost, $activeSlave.health -= 5, $surgeryType = "scrotalTuck"]]
+				[[Remove excess scrotal skin|Surgery Degradation][$activeSlave.scrotum = $activeSlave.balls,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 5, $surgeryType = "scrotalTuck"]]
 				<<if $activeSlave.indentureRestrictions < 1>> | <</if>>
 			<</if>>
 		<</if>>
 		<<if $activeSlave.indentureRestrictions < 1>>
-			[[Move them inside abdomen and remove scrotum|Surgery Degradation][$activeSlave.scrotum = 0,$cash -= $surgeryCost, $activeSlave.health -= 20, $surgeryType = "relocate"]]
+			[[Move them inside abdomen and remove scrotum|Surgery Degradation][$activeSlave.scrotum = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20, $surgeryType = "relocate"]]
 			//This will have a negative impact on cum production//
 		<</if>>
 	<<else>>
@@ -1097,29 +1097,29 @@ Work on $his sex:
 		<<if ($activeSlave.scrotum > 0)>>
 			|
 		<</if>>
-		[[Geld|Surgery Degradation][$activeSlave.balls = 0,$activeSlave.ballType = "human",$activeSlave.scrotum = 0,$activeSlave.vasectomy = 0,$cash -= $surgeryCost, $activeSlave.health -= 40, $surgeryType = "geld"]]
+		[[Geld|Surgery Degradation][$activeSlave.balls = 0,$activeSlave.ballType = "human",$activeSlave.scrotum = 0,$activeSlave.vasectomy = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40, $surgeryType = "geld"]]
 	<</if>>
 	<<if $activeSlave.ballType != "sterile">>
 		<<if ($activeSlave.scrotum > 0)>>
 			|
 		<</if>>
-		[[Chemically castrate|Surgery Degradation][$activeSlave.ballType = "sterile",$cash -= $surgeryCost, $surgeryType = "chem castrate"]]
+		[[Chemically castrate|Surgery Degradation][$activeSlave.ballType = "sterile",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $surgeryType = "chem castrate"]]
 	<</if>>
 	<<if ($activeSlave.vasectomy == 1)>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		$He has had a vasectomy and shoots blanks when $he cums<<if $activeSlave.pubertyXY == 0 || $activeSlave.ballType == "sterile">>, or would, if $he were potent<</if>>.
-		[[Reverse vasectomy|Surgery Degradation][$activeSlave.vasectomy = 0,$cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "vasectomy undo"]]
+		[[Reverse vasectomy|Surgery Degradation][$activeSlave.vasectomy = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "vasectomy undo"]]
 	<<else>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		<<if $activeSlave.ballType == "sterile">>
 			$He has non-functional testicles.
 			<<if $activeSlave.indentureRestrictions < 1>>
-				[[Clamp vas deferens|Surgery Degradation][$activeSlave.vasectomy = 1,$cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "vasectomy"]]
+				[[Clamp vas deferens|Surgery Degradation][$activeSlave.vasectomy = 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "vasectomy"]]
 			<</if>>
 		<<else>>
 			$He has working testicles<<if $activeSlave.pubertyXY == 0>>, though $he isn't potent<</if>>.
 			<<if $activeSlave.indentureRestrictions < 1>>
-				[[Clamp vas deferens to cull potency|Surgery Degradation][$activeSlave.vasectomy = 1,$cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "vasectomy"]]
+				[[Clamp vas deferens to cull potency|Surgery Degradation][$activeSlave.vasectomy = 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "vasectomy"]]
 			<</if>>
 		<</if>>
 	<</if>>
@@ -1131,11 +1131,11 @@ Work on $his sex:
 	<<if $activeSlave.prostate >= 2 && $prostateImplants == 1>>
 		<<if $activeSlave.prostate < 3>>
 			<<if $activeSlave.indentureRestrictions < 2>>
-			[[Implant prostate with an ejaculation boosting implant|Surgery Degradation][$activeSlave.prostate = 3,$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "ejaculation"]] //This will thin $his ejaculate but greatly increase its quantity//
+			[[Implant prostate with an ejaculation boosting implant|Surgery Degradation][$activeSlave.prostate = 3,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "ejaculation"]] //This will thin $his ejaculate but greatly increase its quantity//
 			<</if>>
 		<</if>>
 		<<if $activeSlave.prostate == 3>>
-			| [[Remove ejaculation implant|Surgery Degradation][$activeSlave.prostate = 2,$cash -= $surgeryCost, $activeSlave.health -= 10, $surgeryType = "endejac"]]
+			| [[Remove ejaculation implant|Surgery Degradation][$activeSlave.prostate = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10, $surgeryType = "endejac"]]
 		<<elseif $activeSlave.prostate == 2>>
 			| [[Remove drug implant|Surgery Degradation][$activeSlave.prostate=1,$cash-=$surgeryCost,$surgeryType="endprecum"]]
 		<</if>>
@@ -1151,7 +1151,7 @@ Work on $his sex:
 	<</if>>
 	<<if ($seeExtreme == 1)>>
 		<<if $activeSlave.indentureRestrictions < 1>>
-			| [[Remove prostate|Surgery Degradation][$activeSlave.prostate = 0,$cash -= $surgeryCost, $activeSlave.health -= 40, $surgeryType = "prostate"]]
+			| [[Remove prostate|Surgery Degradation][$activeSlave.prostate = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40, $surgeryType = "prostate"]]
 		<</if>>
 	<</if>>
 <</if>>
@@ -1175,16 +1175,16 @@ $He has
 <<if ($activeSlave.anus > 3)>>
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	$His anal sphincter could benefit from surgical repair.
-	[[Repair asshole|Surgery Degradation][$activeSlave.anus = 3,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "anus"]] //This will reduce $his anal skills//
+	[[Repair asshole|Surgery Degradation][$activeSlave.anus = 3,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "anus"]] //This will reduce $his anal skills//
 <<elseif ($surgeryUpgrade == 1) && ($activeSlave.indentureRestrictions < 2)>>
 	<<if ($activeSlave.anus > 1)>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		$His anal sphincter could benefit from microsurgical rejuvenation.
-		[[Tighten asshole|Surgery Degradation][$activeSlave.anus = 1,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "anus"]] //This will reduce $his anal skills//
+		[[Tighten asshole|Surgery Degradation][$activeSlave.anus = 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "anus"]] //This will reduce $his anal skills//
 	<<elseif ($activeSlave.anus > 0)>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		$His butthole is fairly narrow, but could be tightened to virgin status.
-		[[Restore anal virginity|Surgery Degradation][$activeSlave.anus = 0,$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "anus"]] //This will reduce $his anal skills//
+		[[Restore anal virginity|Surgery Degradation][$activeSlave.anus = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "anus"]] //This will reduce $his anal skills//
 	<</if>>
 <</if>>
 
@@ -1202,7 +1202,7 @@ $He has
 		<<if $arcologies[0].childhoodFertilityInducedNCSResearch == 1>>
 			<br>&nbsp;&nbsp;&nbsp;&nbsp;
 			<<if $activeSlave.geneMods.NCS == 0>>
-				[[Induced NCS Treatment|Surgery Degradation][$activeSlave.geneMods.NCS = 1,$cash -= $surgeryCost * 4, $activeSlave.health -= 80, $activeSlave.chem += 40,$surgeryType = "retrograde virus injection NCS"]] //This will induce @@.orange;NCS@@ in $his genetic code//
+				[[Induced NCS Treatment|Surgery Degradation][$activeSlave.geneMods.NCS = 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave) * 4, $activeSlave.health -= 80, $activeSlave.chem += 40,$surgeryType = "retrograde virus injection NCS"]] //This will induce @@.orange;NCS@@ in $his genetic code//
 			<<else>>
 				//$He already has Induced @@.orange;NCS@@//
 			<</if>>
@@ -1210,7 +1210,7 @@ $He has
 		<<if $RapidCellGrowthFormula == 1>>
 			<br>&nbsp;&nbsp;&nbsp;&nbsp;
 			<<if $activeSlave.geneMods.rapidCellGrowth == 0>>
-				[[Increased Elasticity Treatment|Surgery Degradation][$activeSlave.geneMods.rapidCellGrowth = 1,$cash -= $surgeryCost * 4, $activeSlave.health -= 40, $activeSlave.chem += 100,$surgeryType = "elasticity treatment"]] //This will alter $his genetic code to encourage $his body to stretch//
+				[[Increased Elasticity Treatment|Surgery Degradation][$activeSlave.geneMods.rapidCellGrowth = 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave) * 4, $activeSlave.health -= 40, $activeSlave.chem += 100,$surgeryType = "elasticity treatment"]] //This will alter $his genetic code to encourage $his body to stretch//
 			<<else>>
 				//$He already has received the plasticity increasing elasticity treatment//
 			<</if>>
@@ -1232,21 +1232,21 @@ Deal with $his hair:
 <br>&nbsp;&nbsp;&nbsp;&nbsp;
 <<if $activeSlave.bald == 0 && $activeSlave.hStyle != "bald">>
 	$He naturally grows $activeSlave.origHColor hair from $his head.
-	[["Surgically remove " + $his + " ability to grow hair"|Surgery Degradation][$cash -= $surgeryCost,$activeSlave.bald = 1,$surgeryType = "hair removal"]]
+	[["Surgically remove " + $his + " ability to grow hair"|Surgery Degradation][cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.bald = 1,$surgeryType = "hair removal"]]
 <<else>>
 	$He is no longer capable of growing hair on $his head.
 <</if>>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;
 <<if ($activeSlave.eyebrowStyle != "bald" && $activeSlave.eyebrowStyle != "hairless")>>
 	$He has $activeSlave.origHColor eyebrows.
-	[["Surgically remove " + $his + " ability to grow eyebrows"|Surgery Degradation][$cash -= $surgeryCost,$surgeryType = "eyebrow removal"]]
+	[["Surgically remove " + $his + " ability to grow eyebrows"|Surgery Degradation][cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$surgeryType = "eyebrow removal"]]
 <<else>>
 	$He is no longer capable of growing eyebrow hair.
 <</if>>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;
 <<if ($activeSlave.underArmHStyle != "bald" && $activeSlave.underArmHStyle != "hairless") || ($activeSlave.pubicHStyle != "bald" && $activeSlave.pubicHStyle != "hairless")>>
 	$He <<if $activeSlave.physicalAge >= 12>>naturally grows<<else>>will someday grow<</if>> $activeSlave.origHColor body hair.
-	[["Surgically remove " + $his + " ability to grow body hair"|Surgery Degradation][$cash -= $surgeryCost,$surgeryType = "body hair removal"]]
+	[["Surgically remove " + $his + " ability to grow body hair"|Surgery Degradation][cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$surgeryType = "body hair removal"]]
 <<else>>
 	$His $activeSlave.skin skin is silky smooth and hair free from $his neck to $his <<if $activeSlave.amp == 1>>hips<<else>>toes<</if>>.
 <</if>>
@@ -1258,40 +1258,40 @@ Alter $his race:
 <<if $activeSlave.indentureRestrictions < 1>>
 	$He is $activeSlave.race<<if $activeSlave.race != $activeSlave.origRace>>, but was originally $activeSlave.origRace<</if>>. Surgically alter $him to look more:
 	<<if $activeSlave.race != "white">>
-		[[White|Surgery Degradation][$activeSlave.race = "white",$activeSlave.skin = either("pale", "light", "fair"),$activeSlave.eyeColor = either("blue", "brown", "green"),$activeSlave.hColor = either("black", "blonde", "red", "brown"),$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "race"]] |
+		[[White|Surgery Degradation][$activeSlave.race = "white",$activeSlave.skin = either("pale", "light", "fair"),$activeSlave.eyeColor = either("blue", "brown", "green"),$activeSlave.hColor = either("black", "blonde", "red", "brown"),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "race"]] |
 	<</if>>
 	<<if $activeSlave.race != "latina">>
-		[[Latina|Surgery Degradation][$activeSlave.race = "latina",$activeSlave.skin = either("light olive", "brown", "dark brown", "tanned", "dark olive"),$activeSlave.hColor = either("black", "black", "brown", "brown"),$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "race"]] |
+		[[Latina|Surgery Degradation][$activeSlave.race = "latina",$activeSlave.skin = either("light olive", "brown", "dark brown", "tanned", "dark olive"),$activeSlave.hColor = either("black", "black", "brown", "brown"),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "race"]] |
 	<</if>>
 	<<if $activeSlave.race != "black">>
-		[[Black|Surgery Degradation][$activeSlave.race = "black",$activeSlave.skin = either("black", "dark brown", "brown"),$activeSlave.hColor = either("black", "black", "black", "brown"),$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "race"]] |
+		[[Black|Surgery Degradation][$activeSlave.race = "black",$activeSlave.skin = either("black", "dark brown", "brown"),$activeSlave.hColor = either("black", "black", "black", "brown"),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "race"]] |
 	<</if>>
 	<<if $activeSlave.race != "asian">>
-		[[Asian|Surgery Degradation][$activeSlave.race = "asian",$activeSlave.skin = either("light olive", "dark olive", "light"),$activeSlave.hColor = either("black"),$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "race"]] |
+		[[Asian|Surgery Degradation][$activeSlave.race = "asian",$activeSlave.skin = either("light olive", "dark olive", "light"),$activeSlave.hColor = either("black"),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "race"]] |
 	<</if>>
 	<<if $activeSlave.race != "middle eastern">>
-		[[Middle Eastern|Surgery Degradation][$activeSlave.race = "middle eastern",$activeSlave.skin = either("fair", "light olive", "tanned", "light"),$activeSlave.hColor = either("black"),$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "race"]] |
+		[[Middle Eastern|Surgery Degradation][$activeSlave.race = "middle eastern",$activeSlave.skin = either("fair", "light olive", "tanned", "light"),$activeSlave.hColor = either("black"),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "race"]] |
 	<</if>>
 	<<if $activeSlave.race != "indo-aryan">>
-		[[Indo-Aryan|Surgery Degradation][$activeSlave.race = "indo-aryan",$activeSlave.skin = either("dark", "light"),$activeSlave.hColor = either("black"),$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "race"]] |
+		[[Indo-Aryan|Surgery Degradation][$activeSlave.race = "indo-aryan",$activeSlave.skin = either("dark", "light"),$activeSlave.hColor = either("black"),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "race"]] |
 	<</if>>
 	<<if $activeSlave.race != "pacific islander">>
-		[[Pacific Islander|Surgery Degradation][$activeSlave.race = "pacific islander",$activeSlave.skin = either("dark", "light"),$activeSlave.hColor = either("black"),$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "race"]] |
+		[[Pacific Islander|Surgery Degradation][$activeSlave.race = "pacific islander",$activeSlave.skin = either("dark", "light"),$activeSlave.hColor = either("black"),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "race"]] |
 	<</if>>
 	<<if $activeSlave.race != "malay">>
-		[[Malay|Surgery Degradation][$activeSlave.race = "malay",$activeSlave.skin = either("dark", "light"),$activeSlave.hColor = either("black"),$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "race"]] |
+		[[Malay|Surgery Degradation][$activeSlave.race = "malay",$activeSlave.skin = either("dark", "light"),$activeSlave.hColor = either("black"),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "race"]] |
 	<</if>>
 	<<if $activeSlave.race != "amerindian">>
-		[[Amerindian|Surgery Degradation][$activeSlave.race = "amerindian",$activeSlave.skin = either("dark", "light"),$activeSlave.hColor = either("black"),$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "race"]] |
+		[[Amerindian|Surgery Degradation][$activeSlave.race = "amerindian",$activeSlave.skin = either("dark", "light"),$activeSlave.hColor = either("black"),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "race"]] |
 	<</if>>
 	<<if $activeSlave.race != "southern european">>
-		[[Southern European|Surgery Degradation][$activeSlave.race = "southern european",$activeSlave.skin = either("fair", "light olive", "tanned", "light"),$activeSlave.hColor = either("black"),$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "race"]] |
+		[[Southern European|Surgery Degradation][$activeSlave.race = "southern european",$activeSlave.skin = either("fair", "light olive", "tanned", "light"),$activeSlave.hColor = either("black"),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "race"]] |
 	<</if>>
 	<<if $activeSlave.race != "semitic">>
-		[[Semitic|Surgery Degradation][$activeSlave.race = "semitic",$activeSlave.skin = either("fair", "light olive", "tanned", "light"),$activeSlave.hColor = either("black"),$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "race"]] |
+		[[Semitic|Surgery Degradation][$activeSlave.race = "semitic",$activeSlave.skin = either("fair", "light olive", "tanned", "light"),$activeSlave.hColor = either("black"),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "race"]] |
 	<</if>>
 	<<if $activeSlave.race != "mixed race">>
-		[[Mixed Race|Surgery Degradation][$activeSlave.race = "mixed race",$activeSlave.skin = either("pale", "dark", "light"),$activeSlave.hColor = either("black", "black", "black", "black", "brown", "brown", "blonde", "red"),$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "race"]]
+		[[Mixed Race|Surgery Degradation][$activeSlave.race = "mixed race",$activeSlave.skin = either("pale", "dark", "light"),$activeSlave.hColor = either("black", "black", "black", "black", "brown", "brown", "blonde", "red"),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "race"]]
 	<</if>>
 <<else>>
 	//$His indenture forbids elective surgery//
@@ -1333,19 +1333,19 @@ Work on $him structurally:
 	<</if>>
 	<<if ($activeSlave.shouldersImplant == 0)>>
 		<<if $activeSlave.shoulders > -2 && $activeSlave.shoulders < 2>>
-			[[Restructure shoulders more broadly|Surgery Degradation][$activeSlave.shouldersImplant++,$activeSlave.shoulders++,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "shoulders"]] | [[Restructure shoulders more narrowly|Surgery Degradation][$activeSlave.shouldersImplant--,$activeSlave.shoulders--,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "shoulders"]]
+			[[Restructure shoulders more broadly|Surgery Degradation][$activeSlave.shouldersImplant++,$activeSlave.shoulders++,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "shoulders"]] | [[Restructure shoulders more narrowly|Surgery Degradation][$activeSlave.shouldersImplant--,$activeSlave.shoulders--,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "shoulders"]]
 		<<elseif $activeSlave.shoulders <= -1>>
-			[[Restructure shoulders more broadly|Surgery Degradation][$activeSlave.shouldersImplant++,$activeSlave.shoulders++,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "shoulders"]]
+			[[Restructure shoulders more broadly|Surgery Degradation][$activeSlave.shouldersImplant++,$activeSlave.shoulders++,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "shoulders"]]
 		<<elseif $activeSlave.shoulders >= 2>>
-			[[Restructure shoulders more narrowly|Surgery Degradation][$activeSlave.shouldersImplant--,$activeSlave.shoulders--,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "shoulders"]]
+			[[Restructure shoulders more narrowly|Surgery Degradation][$activeSlave.shouldersImplant--,$activeSlave.shoulders--,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "shoulders"]]
 		<</if>>
 	<<elseif $surgeryUpgrade == 1>>
 		<<if $activeSlave.shoulders > -2 && $activeSlave.shoulders < 2>>
-			[[Advanced shoulder broadening surgery|Surgery Degradation][$activeSlave.shouldersImplant++,$activeSlave.shoulders++,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "shoulders"]] | [[Advanced shoulder narrowing surgery|Surgery Degradation][$activeSlave.shouldersImplant--,$activeSlave.shoulders--,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "shoulders"]]
+			[[Advanced shoulder broadening surgery|Surgery Degradation][$activeSlave.shouldersImplant++,$activeSlave.shoulders++,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "shoulders"]] | [[Advanced shoulder narrowing surgery|Surgery Degradation][$activeSlave.shouldersImplant--,$activeSlave.shoulders--,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "shoulders"]]
 		<<elseif $activeSlave.shoulders <= -1>>
-			[[Advanced shoulder broadening surgery|Surgery Degradation][$activeSlave.shouldersImplant++,$activeSlave.shoulders++,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "shoulders"]]
+			[[Advanced shoulder broadening surgery|Surgery Degradation][$activeSlave.shouldersImplant++,$activeSlave.shoulders++,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "shoulders"]]
 		<<elseif $activeSlave.shoulders >= 2>>
-			[[Advanced shoulder narrowing surgery|Surgery Degradation][$activeSlave.shouldersImplant--,$activeSlave.shoulders--,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "shoulders"]]
+			[[Advanced shoulder narrowing surgery|Surgery Degradation][$activeSlave.shouldersImplant--,$activeSlave.shoulders--,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "shoulders"]]
 		<</if>>
 	<</if>>
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
@@ -1386,21 +1386,21 @@ Work on $him structurally:
 	<</if>>
 	<<if ($activeSlave.hipsImplant == 0)>>
 		<<if $activeSlave.hips > -2 && $activeSlave.hips < 3 && $surgeryUpgrade == 1>>
-			[[Broaden pelvis|Surgery Degradation][$activeSlave.hipsImplant++,$activeSlave.hips++,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "hips"]] | [[Narrow pelvis|Surgery Degradation][$activeSlave.hipsImplant--,$activeSlave.hips--,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "hips"]]
+			[[Broaden pelvis|Surgery Degradation][$activeSlave.hipsImplant++,$activeSlave.hips++,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "hips"]] | [[Narrow pelvis|Surgery Degradation][$activeSlave.hipsImplant--,$activeSlave.hips--,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "hips"]]
 		<<elseif $activeSlave.hips > -2 && $activeSlave.hips < 2>>
-			[[Broaden pelvis|Surgery Degradation][$activeSlave.hipsImplant++,$activeSlave.hips++,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "hips"]] | [[Narrow pelvis|Surgery Degradation][$activeSlave.hipsImplant--,$activeSlave.hips--,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "hips"]]
+			[[Broaden pelvis|Surgery Degradation][$activeSlave.hipsImplant++,$activeSlave.hips++,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "hips"]] | [[Narrow pelvis|Surgery Degradation][$activeSlave.hipsImplant--,$activeSlave.hips--,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "hips"]]
 		<<elseif $activeSlave.hips <= -1>>
-			[[Broaden pelvis|Surgery Degradation][$activeSlave.hipsImplant++,$activeSlave.hips++,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "hips"]]
+			[[Broaden pelvis|Surgery Degradation][$activeSlave.hipsImplant++,$activeSlave.hips++,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "hips"]]
 		<<elseif $activeSlave.hips >= 2>>
-			[[Narrow pelvis|Surgery Degradation][$activeSlave.hipsImplant--,$activeSlave.hips--,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "hips"]]
+			[[Narrow pelvis|Surgery Degradation][$activeSlave.hipsImplant--,$activeSlave.hips--,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "hips"]]
 		<</if>>
 	<<elseif $surgeryUpgrade == 1>>
 		<<if $activeSlave.hips > -2 && $activeSlave.hips < 3>>
-			[[Advanced pelvis broadening|Surgery Degradation][$activeSlave.hipsImplant++,$activeSlave.hips++,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "hips"]] | [[Advanced pelvis narrowing|Surgery Degradation][$activeSlave.hipsImplant--,$activeSlave.hips--,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "hips"]]
+			[[Advanced pelvis broadening|Surgery Degradation][$activeSlave.hipsImplant++,$activeSlave.hips++,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "hips"]] | [[Advanced pelvis narrowing|Surgery Degradation][$activeSlave.hipsImplant--,$activeSlave.hips--,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "hips"]]
 		<<elseif $activeSlave.hips <= -1>>
-			[[Advanced pelvis broadening|Surgery Degradation][$activeSlave.hipsImplant++,$activeSlave.hips++,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "hips"]]
+			[[Advanced pelvis broadening|Surgery Degradation][$activeSlave.hipsImplant++,$activeSlave.hips++,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "hips"]]
 		<<elseif $activeSlave.hips >= 3>>
-			[[Advanced pelvis narrowing|Surgery Degradation][$activeSlave.hipsImplant--,$activeSlave.hips--,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "hips"]]
+			[[Advanced pelvis narrowing|Surgery Degradation][$activeSlave.hipsImplant--,$activeSlave.hips--,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "hips"]]
 		<</if>>
 	<</if>>
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
@@ -1416,19 +1416,19 @@ Work on $him structurally:
 	<</if>>
 <<if ($activeSlave.heightImplant == 0)>>
 	<<if $activeSlave.indentureRestrictions < 1>>
-	[[Lengthen major bones|Surgery Degradation][$activeSlave.heightImplant = 1,$activeSlave.height += 10,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "height"]] | [[Shorten major bones|Surgery Degradation][$activeSlave.heightImplant = -1,$activeSlave.height -= 10,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "height"]]
+	[[Lengthen major bones|Surgery Degradation][$activeSlave.heightImplant = 1,$activeSlave.height += 10,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "height"]] | [[Shorten major bones|Surgery Degradation][$activeSlave.heightImplant = -1,$activeSlave.height -= 10,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "height"]]
 	<</if>>
 <<elseif ($activeSlave.height < (Height.mean($activeSlave)+15)) && ($activeSlave.height >= (Height.mean($activeSlave)-15)) && ($surgeryUpgrade == 1)>>
 	<<if $activeSlave.indentureRestrictions < 1>>
-	[[Advanced height gain surgery|Surgery Degradation][$activeSlave.heightImplant = 1,$activeSlave.height += 10,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "height"]] | [[Advanced height reduction surgery|Surgery Degradation][$activeSlave.heightImplant = -1,$activeSlave.height -= 10,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "height"]]
+	[[Advanced height gain surgery|Surgery Degradation][$activeSlave.heightImplant = 1,$activeSlave.height += 10,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "height"]] | [[Advanced height reduction surgery|Surgery Degradation][$activeSlave.heightImplant = -1,$activeSlave.height -= 10,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "height"]]
 	<</if>>
 <<elseif ($activeSlave.height < (Height.mean($activeSlave)+15)) && ($surgeryUpgrade == 1)>>
 	<<if $activeSlave.indentureRestrictions < 1>>
-	[[Advanced height gain surgery|Surgery Degradation][$activeSlave.heightImplant = 1,$activeSlave.height += 10,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "height"]]
+	[[Advanced height gain surgery|Surgery Degradation][$activeSlave.heightImplant = 1,$activeSlave.height += 10,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "height"]]
 	<</if>>
 <<elseif ($activeSlave.height >= (Height.mean($activeSlave)-15)) && ($surgeryUpgrade == 1)>>
 	<<if $activeSlave.indentureRestrictions < 1>>
-	[[Advanced height reduction surgery|Surgery Degradation][$activeSlave.heightImplant = -1,$activeSlave.height -= 10,$cash -= $surgeryCost, $activeSlave.health -= 40,$surgeryType = "height"]]
+	[[Advanced height reduction surgery|Surgery Degradation][$activeSlave.heightImplant = -1,$activeSlave.height -= 10,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$surgeryType = "height"]]
 	<</if>>
 <</if>>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;
@@ -1439,11 +1439,11 @@ Work on $him structurally:
 <</if>>
 <<if ($activeSlave.heels == 0) && ($seeExtreme == 1)>>
 	<<if $activeSlave.indentureRestrictions < 1>>
-	[[Shorten tendons|Surgery Degradation][$activeSlave.heels = 1,$activeSlave.shoes = "heels",$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "heels"]] //Prevents $him from walking in anything but very high heels//
+	[[Shorten tendons|Surgery Degradation][$activeSlave.heels = 1,$activeSlave.shoes = "heels",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "heels"]] //Prevents $him from walking in anything but very high heels//
 	<</if>>
 <</if>>
 <<if ($activeSlave.heels == 1)>>
-	[[Replace tendons|Surgery Degradation][$activeSlave.heels = 0,$activeSlave.shoes = "none",$cash -= $surgeryCost, $activeSlave.health -= 10,$surgeryType = "heelsRestoration"]]
+	[[Replace tendons|Surgery Degradation][$activeSlave.heels = 0,$activeSlave.shoes = "none",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 10,$surgeryType = "heelsRestoration"]]
 <</if>>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;
 <</if>>
@@ -1475,29 +1475,29 @@ Work on $him structurally:
 <<if $cyberMod == 0>>
 	<<if $activeSlave.amp == 0>>
 		<<if ($activeSlave.indentureRestrictions < 1) && ($seeExtreme == 1)>>
-			[[Remove arms and legs|Surgery Degradation][$activeSlave.amp = 1,$activeSlave.heels = 0,$activeSlave.shoes = "none",$activeSlave.legAccessory = "none",$activeSlave.heightImplant = 0,$activeSlave.legsTat = 0,$activeSlave.armsTat = 0,$cash -= $surgeryCost,$activeSlave.health -= 40,$activeSlave.nails = 0,$activeSlave.PLimb = 0,$surgeryType = "amp1"]] //This will greatly restrict $him//
+			[[Remove arms and legs|Surgery Degradation][$activeSlave.amp = 1,$activeSlave.heels = 0,$activeSlave.shoes = "none",$activeSlave.legAccessory = "none",$activeSlave.heightImplant = 0,$activeSlave.legsTat = 0,$activeSlave.armsTat = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 40,$activeSlave.nails = 0,$activeSlave.PLimb = 0,$surgeryType = "amp1"]] //This will greatly restrict $him//
 		<</if>>
 	<<elseif $activeSlave.PLimb != 1 && $activeSlave.amp == 1>>
 		<<if ($activeSlave.indentureRestrictions < 1) && ($seeExtreme == 1)>>
-			[[Implant prosthetic interface|Surgery Degradation][$activeSlave.PLimb = 1,$cash -= $surgeryCost,$activeSlave.health -= 20,$surgeryType = "prostheticInterface"]] //This will allow $him to use prosthetic limbs//
+			[[Implant prosthetic interface|Surgery Degradation][$activeSlave.PLimb = 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave),$activeSlave.health -= 20,$surgeryType = "prostheticInterface"]] //This will allow $him to use prosthetic limbs//
 		<</if>>
 	<</if>>
 <<else>>
 	<<if $activeSlave.amp == 0>>
 		<<if ($activeSlave.indentureRestrictions < 1) && ($seeExtreme == 1) && (($stockpile.basicPLimbInterface + $stockpile.advPLimbInterface) == 0)>>
-			[[Remove arms and legs|Surgery Degradation][$activeSlave.amp = 1,$activeSlave.heels = 0,$activeSlave.shoes = "none",$activeSlave.legAccessory = "none",$activeSlave.heightImplant = 0,$activeSlave.legsTat = 0,$activeSlave.armsTat = 0,$activeSlave.releaseRules = "restrictive",$cash -= $surgeryCost, $activeSlave.health -= 40,$activeSlave.nails = 0,$surgeryType = "amp"]] //This will greatly restrict $him//
+			[[Remove arms and legs|Surgery Degradation][$activeSlave.amp = 1,$activeSlave.heels = 0,$activeSlave.shoes = "none",$activeSlave.legAccessory = "none",$activeSlave.heightImplant = 0,$activeSlave.legsTat = 0,$activeSlave.armsTat = 0,$activeSlave.releaseRules = "restrictive",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$activeSlave.nails = 0,$surgeryType = "amp"]] //This will greatly restrict $him//
 		<<elseif ($activeSlave.indentureRestrictions < 1) && ($seeExtreme == 1)>>
-			[[Remove arms and legs|Surgery Degradation][$activeSlave.amp = 1,$activeSlave.heels = 0,$activeSlave.shoes = "none",$activeSlave.legAccessory = "none",$activeSlave.heightImplant = 0,$activeSlave.legsTat = 0,$activeSlave.armsTat = 0,$activeSlave.releaseRules = "restrictive",$cash -= $surgeryCost, $activeSlave.health -= 40,$activeSlave.nails = 0,$surgeryType = "amp1"]] //This will greatly restrict $him//
+			[[Remove arms and legs|Surgery Degradation][$activeSlave.amp = 1,$activeSlave.heels = 0,$activeSlave.shoes = "none",$activeSlave.legAccessory = "none",$activeSlave.heightImplant = 0,$activeSlave.legsTat = 0,$activeSlave.armsTat = 0,$activeSlave.releaseRules = "restrictive",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 40,$activeSlave.nails = 0,$surgeryType = "amp1"]] //This will greatly restrict $him//
 		<</if>>
 	<<elseif ($activeSlave.amp == 1) && ($activeSlave.PLimb == 0)>>
 		<<if ($stockpile.basicPLimbInterface > 0)>> |
-			[[Install basic prosthetic interface|Surgery Degradation][$activeSlave.PLimb = 1,$stockpile.basicPLimbInterface -= 1,$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "PLimb interface1"]]
+			[[Install basic prosthetic interface|Surgery Degradation][$activeSlave.PLimb = 1,$stockpile.basicPLimbInterface -= 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "PLimb interface1"]]
 		<</if>>
 		<<if $stockpile.advPLimbInterface > 0>> |
-			[[Install advanced prosthetic interface|Surgery Degradation][$activeSlave.PLimb = 2,$stockpile.advPLimbInterface -= 1,$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "PLimb interface2"]]
+			[[Install advanced prosthetic interface|Surgery Degradation][$activeSlave.PLimb = 2,$stockpile.advPLimbInterface -= 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "PLimb interface2"]]
 		<</if>>
 	<<elseif $activeSlave.amp == 1 && $activeSlave.PLimb == 1 && $stockpile.advPLimbInterface > 0>> |
-		[[Upgrade advanced prosthetic interface|Surgery Degradation][$activeSlave.PLimb = 2,$stockpile.advPLimbInterface -= 1,$cash -= $surgeryCost, $activeSlave.health -= 5,$surgeryType = "PLimb interface3"]]
+		[[Upgrade advanced prosthetic interface|Surgery Degradation][$activeSlave.PLimb = 2,$stockpile.advPLimbInterface -= 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 5,$surgeryType = "PLimb interface3"]]
 	<</if>>
 <</if>>
 
@@ -1730,7 +1730,7 @@ Work on $him structurally:
 	<</if>>
 	<<if $activeSlave.indentureRestrictions < 1 && ($activeSlave.breedingMark != 1 || $propOutcome == 0)>>
 	<<if $activeSlave.fetish != "mindbroken">>
-		[[Chemically lobotomize|Surgery Degradation][$activeSlave.fetish = "mindbroken",$activeSlave.fetishKnown = 1,$cash -= $surgeryCost, $activeSlave.health -= 20,$surgeryType = "mindbreak"]]
+		[[Chemically lobotomize|Surgery Degradation][$activeSlave.fetish = "mindbroken",$activeSlave.fetishKnown = 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $activeSlave.health -= 20,$surgeryType = "mindbreak"]]
 		//Warning: this is permanent and irreversible. It will destroy $his will and $his ability to remember anything but the simplest skills.//
 	<</if>>
 	<</if>>
diff --git a/src/uncategorized/salon.tw b/src/uncategorized/salon.tw
index f1acaab3be4fa5ce477b72d2890d3f37d28c6259..801b2d8b8f58ee1da386bdaf05e65315fca6cb2e 100644
--- a/src/uncategorized/salon.tw
+++ b/src/uncategorized/salon.tw
@@ -40,7 +40,7 @@
 	<</if>>
 	//Blurring options are annoying and impede performance on some assignments.//
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
-	Give $him: [[Cosmetic glasses|Salon][$activeSlave.eyewear = "glasses",$cash -= $modCost]]
+	Give $him: [[Cosmetic glasses|Salon][$activeSlave.eyewear = "glasses",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<br>
 <<elseif $activeSlave.eyes < -1>>
 	$He is blind, and
@@ -51,7 +51,7 @@
 	<</if>>
 	//Blurring options are annoying and impede performance on some assignments.//
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
-	Give $him: [[Cosmetic glasses|Salon][$activeSlave.eyewear = "glasses",$cash -= $modCost]]
+	Give $him: [[Cosmetic glasses|Salon][$activeSlave.eyewear = "glasses",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <<elseif $activeSlave.eyes > -1>>
 	$His vision is normal, and $he
 	<<if $activeSlave.eyewear == "none">>
@@ -61,9 +61,9 @@
 	<</if>>
 	//Blurring options are annoying and impede performance on some assignments.//
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
-	Give $him: [[Cosmetic glasses|Salon][$activeSlave.eyewear = "glasses",$cash -= $modCost]]
-	| [[Blurring glasses|Salon][$activeSlave.eyewear = "blurring glasses",$cash -= $modCost]]
-	| [[Blurring contacts|Salon][$activeSlave.eyewear = "blurring contacts",$cash -= $modCost]]
+	Give $him: [[Cosmetic glasses|Salon][$activeSlave.eyewear = "glasses",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Blurring glasses|Salon][$activeSlave.eyewear = "blurring glasses",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Blurring contacts|Salon][$activeSlave.eyewear = "blurring contacts",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <<else>>
 	$He is nearsighted, and $he
 	<<if $activeSlave.eyewear == "none">>
@@ -73,9 +73,9 @@
 	<</if>>
 	//Nearsightedness will impede performance on some assignments.//
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
-	Give $him: [[Cosmetic glasses|Salon][$activeSlave.eyewear = "glasses",$cash -= $modCost]]
-	| [[Corrective glasses|Salon][$activeSlave.eyewear = "corrective glasses",$cash -= $modCost]]
-	| [[Corrective contacts|Salon][$activeSlave.eyewear = "corrective contacts",$cash -= $modCost]]
+	Give $him: [[Cosmetic glasses|Salon][$activeSlave.eyewear = "glasses",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Corrective glasses|Salon][$activeSlave.eyewear = "corrective glasses",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Corrective contacts|Salon][$activeSlave.eyewear = "corrective contacts",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 <</if>>
 
@@ -150,7 +150,7 @@
 
 	<<if $artificialEyeColor != "">>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
-		[[Give|Salon][$activeSlave.eyeColor = ($artificialEyeColor),$activeSlave.pupil = ($artificialEyeShape),$activeSlave.sclerae = ($artificialEyeFill),$cash -= $modCost, $artificialEyeColor = "", $artificialEyeShape = "", $artificialEyeFill = ""]] $him $artificialEyeColor <<if $activeSlave.origEye == "none">>glass eyes<<else>>lenses<</if>><<if $artificialEyeShape != "" || $artificialEyeFill != "">> with <<if $artificialEyeShape != "" >>$artificialEyeShape pupils<</if>><<if $artificialEyeShape != "" && $artificialEyeFill != "">> and <</if>><<if $artificialEyeFill != "" >>$artificialEyeFill sclerae<</if>><</if>>? //This will be applied in addition to eyewear choices.//
+		[[Give|Salon][$activeSlave.eyeColor = ($artificialEyeColor),$activeSlave.pupil = ($artificialEyeShape),$activeSlave.sclerae = ($artificialEyeFill),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $artificialEyeColor = "", $artificialEyeShape = "", $artificialEyeFill = ""]] $him $artificialEyeColor <<if $activeSlave.origEye == "none">>glass eyes<<else>>lenses<</if>><<if $artificialEyeShape != "" || $artificialEyeFill != "">> with <<if $artificialEyeShape != "" >>$artificialEyeShape pupils<</if>><<if $artificialEyeShape != "" && $artificialEyeFill != "">> and <</if>><<if $artificialEyeFill != "" >>$artificialEyeFill sclerae<</if>><</if>>? //This will be applied in addition to eyewear choices.//
 	<</if>>
 
 <<else>>
@@ -171,9 +171,9 @@
 	<</if>>
 	//Muffling options are annoying and impede performance on some assignments.//
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
-	Give $him: [[Hearing aids|Salon][$activeSlave.earwear = "hearing aids",$cash -= $modCost]]
-	| [[Muffling ear plugs|Salon][$activeSlave.earwear = "muffling ear plugs",$cash -= $modCost]]
-	| [[Deafening ear plugs|Salon][$activeSlave.earwear = "deafening ear plugs",$cash -= $modCost]]
+	Give $him: [[Hearing aids|Salon][$activeSlave.earwear = "hearing aids",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Muffling ear plugs|Salon][$activeSlave.earwear = "muffling ear plugs",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Deafening ear plugs|Salon][$activeSlave.earwear = "deafening ear plugs",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<br>
 <<elseif $activeSlave.hears < -1>>
 	$He is deaf, and
@@ -184,9 +184,9 @@
 	<</if>>
 	//Muffling options are annoying and impede performance on some assignments.//
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
-	Give $him: [[Hearing aids|Salon][$activeSlave.earwear = "hearing aids",$cash -= $modCost]]
-	| [[Muffling ear plugs|Salon][$activeSlave.earwear = "muffling ear plugs",$cash -= $modCost]]
-	| [[Deafening ear plugs|Salon][$activeSlave.earwear = "deafening ear plugs",$cash -= $modCost]]
+	Give $him: [[Hearing aids|Salon][$activeSlave.earwear = "hearing aids",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Muffling ear plugs|Salon][$activeSlave.earwear = "muffling ear plugs",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Deafening ear plugs|Salon][$activeSlave.earwear = "deafening ear plugs",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <<elseif $activeSlave.hears > -1>>
 	$His hearing is normal, and $he
 	<<if $activeSlave.earwear == "none">>
@@ -196,9 +196,9 @@
 	<</if>>
 	//Muffling options are annoying and impede performance on some assignments.//
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
-	Give $him: [[Hearing aids|Salon][$activeSlave.earwear = "hearing aids",$cash -= $modCost]]
-	| [[Muffling ear plugs|Salon][$activeSlave.earwear = "muffling ear plugs",$cash -= $modCost]]
-	| [[Deafening ear plugs|Salon][$activeSlave.earwear = "deafening ear plugs",$cash -= $modCost]]
+	Give $him: [[Hearing aids|Salon][$activeSlave.earwear = "hearing aids",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Muffling ear plugs|Salon][$activeSlave.earwear = "muffling ear plugs",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Deafening ear plugs|Salon][$activeSlave.earwear = "deafening ear plugs",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <<else>>
 	$He is hearing impaired, and
 	<<if $activeSlave.earwear == "none">>
@@ -208,9 +208,9 @@
 	<</if>>
 	//Hearing impairment will impede performance on some assignments.//
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
-	Give $him: [[Hearing aids|Salon][$activeSlave.earwear = "hearing aids",$cash -= $modCost]]
-	| [[Muffling ear plugs|Salon][$activeSlave.earwear = "muffling ear plugs",$cash -= $modCost]]
-	| [[Deafening ear plugs|Salon][$activeSlave.earwear = "deafening ear plugs",$cash -= $modCost]]
+	Give $him: [[Hearing aids|Salon][$activeSlave.earwear = "hearing aids",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Muffling ear plugs|Salon][$activeSlave.earwear = "muffling ear plugs",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Deafening ear plugs|Salon][$activeSlave.earwear = "deafening ear plugs",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 <</if>>
 
@@ -279,29 +279,29 @@
 
 	<<if $primaryHairColor != 0>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
-		[["Dye " + $his + " hair"|Salon][$activeSlave.hColor = ($primaryHairColor + $secondaryHairColor),$cash -= $modCost, $primaryHairColor = 0, $secondaryHairColor = ""]] $primaryHairColor $secondaryHairColor now?
+		[["Dye " + $his + " hair"|Salon][$activeSlave.hColor = ($primaryHairColor + $secondaryHairColor),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $primaryHairColor = 0, $secondaryHairColor = ""]] $primaryHairColor $secondaryHairColor now?
 	<</if>>
 
 	<br><br>$His $activeSlave.hStyle hair is <<= lengthToEitherUnit($activeSlave.hLength)>> long. //General hairstyles will conform to hair length and clothing choices.//
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	<<if $activeSlave.hLength > 1>>
 		Style $his hair:
-		[[Afro|Salon][$activeSlave.hStyle = "afro",$cash -= $modCost]]
-		| [[Braided|Salon][$activeSlave.hStyle = "braided",$cash -= $modCost]]
-		| [[Cornrows|Salon][$activeSlave.hStyle = "cornrows",$cash -= $modCost]]
-		| [[Curled|Salon][$activeSlave.hStyle = "curled",$cash -= $modCost]]
-		| [[Dreadlocks|Salon][$activeSlave.hStyle = "dreadlocks",$cash -= $modCost]]
-		| [[Eary|Salon][$activeSlave.hStyle = "eary",$cash -= $modCost]]
-		| [[In a bun|Salon][$activeSlave.hStyle = "bun",$cash -= $modCost]]
-		| [[In a messy bun|Salon][$activeSlave.hStyle = "messy bun",$cash -= $modCost]]
-		| [[In a ponytail|Salon][$activeSlave.hStyle = "ponytail",$cash -= $modCost]]
-		| [[In tails|Salon][$activeSlave.hStyle = "tails",$cash -= $modCost]]
-		| [[Luxurious|Salon][$activeSlave.hStyle = "luxurious",$cash -= $modCost]]
-		| [[Messy|Salon][$activeSlave.hStyle = "messy",$cash -= $modCost]]
-		| [[Neat|Salon][$activeSlave.hStyle = "neat",$cash -= $modCost]]
-		| [[Permed|Salon][$activeSlave.hStyle = "permed",$cash -= $modCost]]
-		| [[Shaved sides|Salon][$activeSlave.hStyle = "strip",$cash -= $modCost]]
-		| [[Up|Salon][$activeSlave.hStyle = "up",$cash -= $modCost]]
+		[[Afro|Salon][$activeSlave.hStyle = "afro",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Braided|Salon][$activeSlave.hStyle = "braided",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Cornrows|Salon][$activeSlave.hStyle = "cornrows",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Curled|Salon][$activeSlave.hStyle = "curled",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Dreadlocks|Salon][$activeSlave.hStyle = "dreadlocks",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Eary|Salon][$activeSlave.hStyle = "eary",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[In a bun|Salon][$activeSlave.hStyle = "bun",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[In a messy bun|Salon][$activeSlave.hStyle = "messy bun",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[In a ponytail|Salon][$activeSlave.hStyle = "ponytail",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[In tails|Salon][$activeSlave.hStyle = "tails",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Luxurious|Salon][$activeSlave.hStyle = "luxurious",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Messy|Salon][$activeSlave.hStyle = "messy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Neat|Salon][$activeSlave.hStyle = "neat",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Permed|Salon][$activeSlave.hStyle = "permed",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Shaved sides|Salon][$activeSlave.hStyle = "strip",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Up|Salon][$activeSlave.hStyle = "up",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<<else>>
 		//$His hair is too short to style meaningfully//
 	<</if>>
@@ -309,32 +309,32 @@
 	<<if $activeSlave.hLength > 1>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		Cut and style $his hair:
-		[[Shaved|Salon][$activeSlave.hStyle = "shaved",$activeSlave.hLength = 0,$cash -= $modCost]]
-		| [[Trimmed short|Salon][$activeSlave.hStyle = "trimmed",$activeSlave.hLength = 10,$cash -= $modCost]]
-		| [[Buzzcut|Salon][$activeSlave.hStyle = "buzzcut",$activeSlave.hLength = 1,$cash -= $modCost]]
+		[[Shaved|Salon][$activeSlave.hStyle = "shaved",$activeSlave.hLength = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Trimmed short|Salon][$activeSlave.hStyle = "trimmed",$activeSlave.hLength = 10,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Buzzcut|Salon][$activeSlave.hStyle = "buzzcut",$activeSlave.hLength = 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<</if>>
 
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	Cut or lengthen $his hair:
 	<<if $activeSlave.hLength > 5>>
-		[[Very short|Salon][$activeSlave.hLength = 5,$cash -= $modCost]]
+		[[Very short|Salon][$activeSlave.hLength = 5,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<</if>>
 	<<if $activeSlave.hLength > 10>>
-		| [[Short|Salon][$activeSlave.hLength = 10,$cash -= $modCost]]
+		| [[Short|Salon][$activeSlave.hLength = 10,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<</if>>
 	<<if $activeSlave.hLength > 30>>
-		| [[Shoulder length|Salon][$activeSlave.hLength = 30,$cash -= $modCost]]
+		| [[Shoulder length|Salon][$activeSlave.hLength = 30,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<</if>>
 	<<if $activeSlave.hLength > 60>>
-		| [[Long|Salon][$activeSlave.hLength = 60,$cash -= $modCost]]
+		| [[Long|Salon][$activeSlave.hLength = 60,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<</if>>
 	<<if $activeSlave.hLength > 100>>
-		| [[Very long|Salon][$activeSlave.hLength = 100,$cash -= $modCost]]
+		| [[Very long|Salon][$activeSlave.hLength = 100,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<</if>>
 	<<if $activeSlave.hLength == 1>>
-		| [[Apply hair growth stimulating treatment|Salon][$activeSlave.hLength = 1,$cash -= $modCost]]
+		| [[Apply hair growth stimulating treatment|Salon][$activeSlave.hLength = 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<<elseif $activeSlave.hLength < 150>>
-		| [[Apply extensions|Salon][$activeSlave.hLength += 10,$cash -= $modCost]]
+		| [[Apply extensions|Salon][$activeSlave.hLength += 10,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<</if>>
 		/*		FIXME: get this to work
 		| Custom length: <<textbox "_newHLength" _oldHLength "Salon">>
@@ -358,7 +358,7 @@
 	<<else>>
 		$His current wig is $activeSlave.hColor.
 		<<if $activeSlave.hStyle != "bald">>
-			[[Remove wig|Salon][$activeSlave.hStyle = "bald",$activeSlave.hLength = 0,$cash -= $modCost]] or //choose a new one://
+			[[Remove wig|Salon][$activeSlave.hStyle = "bald",$activeSlave.hLength = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]] or //choose a new one://
 		<<else>>
 			//Choose a wig color://
 		<</if>>
@@ -415,7 +415,7 @@
 
 		<<if $primaryHairColor != 0>>
 			<br>&nbsp;&nbsp;&nbsp;&nbsp;
-			[[Change|Salon][$activeSlave.hColor = ($primaryHairColor + $secondaryHairColor),$cash -= $modCost, $primaryHairColor = 0, $secondaryHairColor = ""]] $his wig color to $primaryHairColor $secondaryHairColor
+			[[Change|Salon][$activeSlave.hColor = ($primaryHairColor + $secondaryHairColor),cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), $primaryHairColor = 0, $secondaryHairColor = ""]] $his wig color to $primaryHairColor $secondaryHairColor
 		<</if>>
 	<</if>>
 
@@ -429,12 +429,12 @@
 
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		Set wig length to:
-		<<if $activeSlave.hLength != 10>>[[lengthToEitherUnit(10)|Salon][$activeSlave.hLength = 10,$cash -= $modCost]]<</if>>
-		<<if $activeSlave.hLength != 30>>[[lengthToEitherUnit(30)|Salon][$activeSlave.hLength = 30,$cash -= $modCost]]<</if>>
-		<<if $activeSlave.hLength != 60>>[[lengthToEitherUnit(60)|Salon][$activeSlave.hLength = 60,$cash -= $modCost]]<</if>>
-		<<if $activeSlave.hLength != 90>>[[lengthToEitherUnit(90)|Salon][$activeSlave.hLength = 90,$cash -= $modCost]]<</if>>
-		<<if $activeSlave.hLength != 120>>[[lengthToEitherUnit(120)|Salon][$activeSlave.hLength = 120,$cash -= $modCost]]<</if>>
-		<<if $activeSlave.hLength != 150>>[[lengthToEitherUnit(150)|Salon][$activeSlave.hLength = 150,$cash -= $modCost]]<</if>>
+		<<if $activeSlave.hLength != 10>>[[lengthToEitherUnit(10)|Salon][$activeSlave.hLength = 10,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+		<<if $activeSlave.hLength != 30>>[[lengthToEitherUnit(30)|Salon][$activeSlave.hLength = 30,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+		<<if $activeSlave.hLength != 60>>[[lengthToEitherUnit(60)|Salon][$activeSlave.hLength = 60,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+		<<if $activeSlave.hLength != 90>>[[lengthToEitherUnit(90)|Salon][$activeSlave.hLength = 90,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+		<<if $activeSlave.hLength != 120>>[[lengthToEitherUnit(120)|Salon][$activeSlave.hLength = 120,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
+		<<if $activeSlave.hLength != 150>>[[lengthToEitherUnit(150)|Salon][$activeSlave.hLength = 150,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]<</if>>
 	<<else>>
 		$He is not wearing a wig.
 	<</if>>
@@ -444,22 +444,22 @@
 	<<else>>
 		Give $him a wig:
 	<</if>>
-	[[Afro|Salon][$activeSlave.hStyle = "afro",$cash -= $modCost]]
-	| [[Braided|Salon][$activeSlave.hStyle = "braided",$cash -= $modCost]]
-	| [[Cornrows|Salon][$activeSlave.hStyle = "cornrows",$cash -= $modCost]]
-	| [[Curled|Salon][$activeSlave.hStyle = "curled",$cash -= $modCost]]
-	| [[Dreadlocks|Salon][$activeSlave.hStyle = "dreadlocks",$cash -= $modCost]]
-	| [[Eary|Salon][$activeSlave.hStyle = "eary",$cash -= $modCost]]
-	| [[In a bun|Salon][$activeSlave.hStyle = "bun",$cash -= $modCost]]
-	| [[In a messy bun|Salon][$activeSlave.hStyle = "messy bun",$cash -= $modCost]]
-	| [[In a ponytail|Salon][$activeSlave.hStyle = "ponytail",$cash -= $modCost]]
-	| [[In tails|Salon][$activeSlave.hStyle = "tails",$cash -= $modCost]]
-	| [[Luxurious|Salon][$activeSlave.hStyle = "luxurious",$cash -= $modCost]]
-	| [[Messy|Salon][$activeSlave.hStyle = "messy",$cash -= $modCost]]
-	| [[Neat|Salon][$activeSlave.hStyle = "neat",$cash -= $modCost]]
-	| [[Permed|Salon][$activeSlave.hStyle = "permed",$cash -= $modCost]]
-	| [[Shaved sides|Salon][$activeSlave.hStyle = "strip",$cash -= $modCost]]
-	| [[Up|Salon][$activeSlave.hStyle = "up",$cash -= $modCost]]
+	[[Afro|Salon][$activeSlave.hStyle = "afro",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Braided|Salon][$activeSlave.hStyle = "braided",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Cornrows|Salon][$activeSlave.hStyle = "cornrows",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Curled|Salon][$activeSlave.hStyle = "curled",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Dreadlocks|Salon][$activeSlave.hStyle = "dreadlocks",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Eary|Salon][$activeSlave.hStyle = "eary",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[In a bun|Salon][$activeSlave.hStyle = "bun",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[In a messy bun|Salon][$activeSlave.hStyle = "messy bun",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[In a ponytail|Salon][$activeSlave.hStyle = "ponytail",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[In tails|Salon][$activeSlave.hStyle = "tails",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Luxurious|Salon][$activeSlave.hStyle = "luxurious",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Messy|Salon][$activeSlave.hStyle = "messy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Neat|Salon][$activeSlave.hStyle = "neat",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Permed|Salon][$activeSlave.hStyle = "permed",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Shaved sides|Salon][$activeSlave.hStyle = "strip",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+	| [[Up|Salon][$activeSlave.hStyle = "up",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <</if>>
 
 /* MAKEUP */
@@ -467,21 +467,21 @@
 <br><br>
 <<makeupDescription>>
 <<if $activeSlave.makeup > 0>>
-	[[Remove|Salon][$activeSlave.makeup = 0,$cash -= $modCost]]
+	[[Remove|Salon][$activeSlave.makeup = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <</if>>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;
 
 Apply makeup:
-[[Nice|Salon][$activeSlave.makeup = 1,$cash -= $modCost]]
-| [[Gorgeous|Salon][$activeSlave.makeup = 2,$cash -= $modCost]]
-| [[Slutty|Salon][$activeSlave.makeup = 4,$cash -= $modCost]]
-| [[Color-coordinate with hair|Salon][$activeSlave.makeup = 3,$cash -= $modCost]]
+[[Nice|Salon][$activeSlave.makeup = 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Gorgeous|Salon][$activeSlave.makeup = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Slutty|Salon][$activeSlave.makeup = 4,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Color-coordinate with hair|Salon][$activeSlave.makeup = 3,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-[[Neon|Salon][$activeSlave.makeup = 5,$cash -= $modCost]]
-| [[Neon, color-coordinate with hair|Salon][$activeSlave.makeup = 6,$cash -= $modCost]]
+[[Neon|Salon][$activeSlave.makeup = 5,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Neon, color-coordinate with hair|Salon][$activeSlave.makeup = 6,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-[[Metallic|Salon][$activeSlave.makeup = 7,$cash -= $modCost]]
-| [[Metallic, color-coordinate with hair|Salon][$activeSlave.makeup = 8,$cash -= $modCost]]
+[[Metallic|Salon][$activeSlave.makeup = 7,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Metallic, color-coordinate with hair|Salon][$activeSlave.makeup = 8,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 
 /* NAILS */
 
@@ -491,18 +491,18 @@ Apply makeup:
 <<if $activeSlave.amp != 1>>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;
 Treat nails:
-[[Clip|Salon][$activeSlave.nails = 0,$cash -= $modCost]]
-| [[Extend|Salon][$activeSlave.nails = 1,$cash -= $modCost]]
-| [[Sharp, claw-like|Salon][$activeSlave.nails = 3,$cash -= $modCost]]
-| [[Bright, glittery|Salon][$activeSlave.nails = 4,$cash -= $modCost]]
-| [[Streetwalker-style|Salon][$activeSlave.nails = 5,$cash -= $modCost]]
-| [[Color-coordinate with hair|Salon][$activeSlave.nails = 2,$cash -= $modCost]]
+[[Clip|Salon][$activeSlave.nails = 0,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Extend|Salon][$activeSlave.nails = 1,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Sharp, claw-like|Salon][$activeSlave.nails = 3,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Bright, glittery|Salon][$activeSlave.nails = 4,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Streetwalker-style|Salon][$activeSlave.nails = 5,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Color-coordinate with hair|Salon][$activeSlave.nails = 2,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-[[Neon|Salon][$activeSlave.nails = 6,$cash -= $modCost]]
-| [[Neon, color-coordinate with hair|Salon][$activeSlave.nails = 7,$cash -= $modCost]]
+[[Neon|Salon][$activeSlave.nails = 6,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Neon, color-coordinate with hair|Salon][$activeSlave.nails = 7,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-[[Metallic|Salon][$activeSlave.nails = 8,$cash -= $modCost]]
-| [[Metallic, color-coordinate with hair|Salon][$activeSlave.nails = 9,$cash -= $modCost]]
+[[Metallic|Salon][$activeSlave.nails = 8,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Metallic, color-coordinate with hair|Salon][$activeSlave.nails = 9,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <</if>>
 
 /* SKIN */
@@ -517,7 +517,7 @@ Treat nails:
 $His skin is $activeSlave.skin.
 
 <<if ($dyedSkin.indexOf($activeSlave.skin) != -1)>>
-	[[Remove coloring|Salon][$activeSlave.skin = $activeSlave.origSkin,$cash -= $modCost]]
+	[[Remove coloring|Salon][$activeSlave.skin = $activeSlave.origSkin,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <</if>>
 
 <<if ($dyedSkin.indexOf($activeSlave.skin) == -1)>>
@@ -526,35 +526,35 @@ $His skin is $activeSlave.skin.
 	<<set _needsSpacers = 0>>
 	<<if ($bleachableSkin.indexOf($activeSlave.skin) != -1)>>
 		<<if _needsSpacers == 1>> | <</if>>
-		[[Bleach|Salon][$activeSlave.skin = "pale",$cash -= $modCost]]
+		[[Bleach|Salon][$activeSlave.skin = "pale",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 		<<set _needsSpacers = 1>>
 	<</if>>
 	<<if ($lightenableSkin.indexOf($activeSlave.skin) != -1)>>
 		<<if _needsSpacers == 1>> | <</if>>
-		[[Lighten|Salon][$activeSlave.skin = "lightened",$cash -= $modCost]]
+		[[Lighten|Salon][$activeSlave.skin = "lightened",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 		<<set _needsSpacers = 1>>
 	<</if>>
 	<<if ($tannableSkin.indexOf($activeSlave.skin) != -1)>>
 		<<if _needsSpacers == 1>> | <</if>>
-		[[Tan|Salon][$activeSlave.skin = "tanned",$cash -= $modCost]]
+		[[Tan|Salon][$activeSlave.skin = "tanned",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 		<<set _needsSpacers = 1>>
 	<</if>>
 	<<if ($darkenableSkin.indexOf($activeSlave.skin) != -1)>>
 		<<if _needsSpacers == 1>> | <</if>>
-		[[Darken|Salon][$activeSlave.skin = "dark",$cash -= $modCost]]
+		[[Darken|Salon][$activeSlave.skin = "dark",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 		<<set _needsSpacers = 1>>
 	<</if>>
 <</if>>
 
 <br>&nbsp;&nbsp;&nbsp;&nbsp;
 Dye or paint:
-[[Blue|Salon][$activeSlave.skin = "dyed blue",$cash -= $modCost]]
-| [[Camouflage|Salon][$activeSlave.skin = "camouflage patterned",$cash -= $modCost]]
-| [[Gray|Salon][$activeSlave.skin = "dyed gray",$cash -= $modCost]]
-| [[Green|Salon][$activeSlave.skin = "dyed green",$cash -= $modCost]]
-| [[Pink|Salon][$activeSlave.skin = "dyed pink",$cash -= $modCost]]
-| [[Red|Salon][$activeSlave.skin = "dyed red",$cash -= $modCost]]
-| [[Tiger Stripes|Salon][$activeSlave.skin = "tiger striped",$cash -= $modCost]]
+[[Blue|Salon][$activeSlave.skin = "dyed blue",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Camouflage|Salon][$activeSlave.skin = "camouflage patterned",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Gray|Salon][$activeSlave.skin = "dyed gray",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Green|Salon][$activeSlave.skin = "dyed green",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Pink|Salon][$activeSlave.skin = "dyed pink",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Red|Salon][$activeSlave.skin = "dyed red",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+| [[Tiger Stripes|Salon][$activeSlave.skin = "tiger striped",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 
 /* MARKS */
 
@@ -568,7 +568,7 @@ Dye or paint:
 	<<else>>
 		qualifies as a beauty mark since $he's pretty, having no significant impact on $his beauty.
 	<</if>>
-	[[Remove it|Salon][$activeSlave.markings = "none",$cash -= $modCost]]
+	[[Remove it|Salon][$activeSlave.markings = "none",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <</if>>
 <<if ($activeSlave.markings == "birthmark")>>
 	<br><br>
@@ -578,7 +578,7 @@ Dye or paint:
 	<<else>>
 		detracts from $his attractiveness.
 	<</if>>
-	[[Bleach it|Salon][$activeSlave.markings = "none",$cash -= $modCost]]
+	[[Bleach it|Salon][$activeSlave.markings = "none",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <</if>>
 
 
@@ -593,67 +593,67 @@ Dye or paint:
 		are $activeSlave.eyebrowHColor.
 	<</if>>
 	<<if $activeSlave.eyebrowHColor != $activeSlave.hColor>>
-		[[Match the hair?|Salon][$activeSlave.eyebrowHColor = $activeSlave.hColor,$cash -= $modCost]]
+		[[Match the hair?|Salon][$activeSlave.eyebrowHColor = $activeSlave.hColor,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<</if>>
 
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	Dye $his eyebrow hair:
-		[[Auburn|Salon][$activeSlave.eyebrowHColor = "auburn",$cash -= $modCost]]
-		| [[Black|Salon][$activeSlave.eyebrowHColor = "black",$cash -= $modCost]]
-		| [[Blazing Red|Salon][$activeSlave.eyebrowHColor = "blazing red",$cash -= $modCost]]
-		| [[Blonde|Salon][$activeSlave.eyebrowHColor = "blonde",$cash -= $modCost]]
-		| [[Blue-Violet|Salon][$activeSlave.eyebrowHColor = "blue-violet",$cash -= $modCost]]
-		| [[Blue|Salon][$activeSlave.eyebrowHColor = "blue",$cash -= $modCost]]
-		| [[Brown|Salon][$activeSlave.eyebrowHColor = "brown",$cash -= $modCost]]
-		| [[Burgundy|Salon][$activeSlave.eyebrowHColor = "burgundy",$cash -= $modCost]]
-		| [[Chestnut|Salon][$activeSlave.eyebrowHColor = "chestnut",$cash -= $modCost]]
-		| [[Chocolate|Salon][$activeSlave.eyebrowHColor = "chocolate brown",$cash -= $modCost]]
-		| [[Copper|Salon][$activeSlave.eyebrowHColor = "copper",$cash -= $modCost]]
-		| [[Dark Blue|Salon][$activeSlave.eyebrowHColor = "dark blue",$cash -= $modCost]]
-		| [[Dark Brown|Salon][$activeSlave.eyebrowHColor = "dark brown",$cash -= $modCost]]
-		| [[Dark Orchid|Salon][$activeSlave.eyebrowHColor = "dark orchid",$cash -= $modCost]]
+		[[Auburn|Salon][$activeSlave.eyebrowHColor = "auburn",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Black|Salon][$activeSlave.eyebrowHColor = "black",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Blazing Red|Salon][$activeSlave.eyebrowHColor = "blazing red",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Blonde|Salon][$activeSlave.eyebrowHColor = "blonde",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Blue-Violet|Salon][$activeSlave.eyebrowHColor = "blue-violet",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Blue|Salon][$activeSlave.eyebrowHColor = "blue",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Brown|Salon][$activeSlave.eyebrowHColor = "brown",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Burgundy|Salon][$activeSlave.eyebrowHColor = "burgundy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Chestnut|Salon][$activeSlave.eyebrowHColor = "chestnut",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Chocolate|Salon][$activeSlave.eyebrowHColor = "chocolate brown",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Copper|Salon][$activeSlave.eyebrowHColor = "copper",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Dark Blue|Salon][$activeSlave.eyebrowHColor = "dark blue",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Dark Brown|Salon][$activeSlave.eyebrowHColor = "dark brown",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Dark Orchid|Salon][$activeSlave.eyebrowHColor = "dark orchid",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 		| [[Deep Red|Salon][$primaryHairColor = "deep red"]]
-		| [[Ginger|Salon][$activeSlave.eyebrowHColor = "ginger",$cash -= $modCost]]
-		| [[Golden|Salon][$activeSlave.eyebrowHColor = "golden",$cash -= $modCost]]
-		| [[Green-yellow|Salon][$activeSlave.eyebrowHColor = "green-yellow",$cash -= $modCost]]
-		| [[Green|Salon][$activeSlave.eyebrowHColor = "green",$cash -= $modCost]]
-		| [[Grey|Salon][$activeSlave.eyebrowHColor = "grey",$cash -= $modCost]]
-		| [[Hazel|Salon][$activeSlave.eyebrowHColor = "hazel",$cash -= $modCost]]
-		| [[Jet Black|Salon][$activeSlave.eyebrowHColor = "jet black",$cash -= $modCost]]
-		| [[Neon Blue|Salon][$activeSlave.eyebrowHColor = "neon blue",$cash -= $modCost]]
-		| [[Neon Green|Salon][$activeSlave.eyebrowHColor = "neon green",$cash -= $modCost]]
-		| [[Neon Pink|Salon][$activeSlave.eyebrowHColor = "neon pink",$cash -= $modCost]]
-		| [[Pink|Salon][$activeSlave.eyebrowHColor = "pink",$cash -= $modCost]]
-		| [[Platinum Blonde|Salon][$activeSlave.eyebrowHColor = "platinum blonde",$cash -= $modCost]]
-		| [[Purple|Salon][$activeSlave.eyebrowHColor = "purple",$cash -= $modCost]]
-		| [[Red|Salon][$activeSlave.eyebrowHColor = "red",$cash -= $modCost]]
-		| [[Sea Green|Salon][$activeSlave.eyebrowHColor = "sea green",$cash -= $modCost]]
-		| [[Silver|Salon][$activeSlave.eyebrowHColor = "silver",$cash -= $modCost]]
-		| [[Strawberry-Blonde|Salon][$activeSlave.eyebrowHColor = "strawberry-blonde",$cash -= $modCost]]
-		| [[White|Salon][$activeSlave.eyebrowHColor = "white",$cash -= $modCost]]
+		| [[Ginger|Salon][$activeSlave.eyebrowHColor = "ginger",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Golden|Salon][$activeSlave.eyebrowHColor = "golden",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Green-yellow|Salon][$activeSlave.eyebrowHColor = "green-yellow",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Green|Salon][$activeSlave.eyebrowHColor = "green",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Grey|Salon][$activeSlave.eyebrowHColor = "grey",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Hazel|Salon][$activeSlave.eyebrowHColor = "hazel",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Jet Black|Salon][$activeSlave.eyebrowHColor = "jet black",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Neon Blue|Salon][$activeSlave.eyebrowHColor = "neon blue",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Neon Green|Salon][$activeSlave.eyebrowHColor = "neon green",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Neon Pink|Salon][$activeSlave.eyebrowHColor = "neon pink",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Pink|Salon][$activeSlave.eyebrowHColor = "pink",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Platinum Blonde|Salon][$activeSlave.eyebrowHColor = "platinum blonde",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Purple|Salon][$activeSlave.eyebrowHColor = "purple",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Red|Salon][$activeSlave.eyebrowHColor = "red",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Sea Green|Salon][$activeSlave.eyebrowHColor = "sea green",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Silver|Salon][$activeSlave.eyebrowHColor = "silver",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Strawberry-Blonde|Salon][$activeSlave.eyebrowHColor = "strawberry-blonde",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[White|Salon][$activeSlave.eyebrowHColor = "white",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	Style $his eyebrow hair:
-		[[Natural|Salon][$activeSlave.eyebrowHStyle = "natural",$cash -= $modCost]]
-		| [[Curved|Salon][$activeSlave.eyebrowHStyle = "curved",$cash -= $modCost]]
-		| [[Elongated|Salon][$activeSlave.eyebrowHStyle = "elongated",$cash -= $modCost]]
-		| [[High-Arched|Salon][$activeSlave.eyebrowHStyle = "high-arched",$cash -= $modCost]]
-		| [[Rounded|Salon][$activeSlave.eyebrowHStyle = "rounded",$cash -= $modCost]]
-		| [[Shaved|Salon][$activeSlave.eyebrowHStyle = "shaved",$cash -= $modCost]]
-		| [[Shortened|Salon][$activeSlave.eyebrowHStyle = "shortened",$cash -= $modCost]]
-		| [[Slanted Inwards|Salon][$activeSlave.eyebrowHStyle = "slanted inwards",$cash -= $modCost]]
-		| [[Slanted Outwards|Salon][$activeSlave.eyebrowHStyle = "slanted outwards",$cash -= $modCost]]
-		| [[Straight|Salon][$activeSlave.eyebrowHStyle = "straight",$cash -= $modCost]]
+		[[Natural|Salon][$activeSlave.eyebrowHStyle = "natural",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Curved|Salon][$activeSlave.eyebrowHStyle = "curved",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Elongated|Salon][$activeSlave.eyebrowHStyle = "elongated",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[High-Arched|Salon][$activeSlave.eyebrowHStyle = "high-arched",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Rounded|Salon][$activeSlave.eyebrowHStyle = "rounded",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Shaved|Salon][$activeSlave.eyebrowHStyle = "shaved",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Shortened|Salon][$activeSlave.eyebrowHStyle = "shortened",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Slanted Inwards|Salon][$activeSlave.eyebrowHStyle = "slanted inwards",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Slanted Outwards|Salon][$activeSlave.eyebrowHStyle = "slanted outwards",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Straight|Salon][$activeSlave.eyebrowHStyle = "straight",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	Shape $his eyebrow hair:
-		[[Natural|Salon][$activeSlave.eyebrowFullness = "natural",$cash -= $modCost]]
-		| [[Bushy|Salon][$activeSlave.eyebrowFullness = "bushy",$cash -= $modCost]]
-		| [[Thick|Salon][$activeSlave.eyebrowFullness = "thick",$cash -= $modCost]]
-		| [[Tapered|Salon][$activeSlave.eyebrowFullness = "tapered",$cash -= $modCost]]
-		| [[Threaded|Salon][$activeSlave.eyebrowFullness = "threaded",$cash -= $modCost]]
-		| [[Thin|Salon][$activeSlave.eyebrowFullness = "thin",$cash -= $modCost]]
-		| [[Pencil-Thin|Salon][$activeSlave.eyebrowFullness = "pencil-thin",$cash -= $modCost]]
+		[[Natural|Salon][$activeSlave.eyebrowFullness = "natural",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Bushy|Salon][$activeSlave.eyebrowFullness = "bushy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Thick|Salon][$activeSlave.eyebrowFullness = "thick",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Tapered|Salon][$activeSlave.eyebrowFullness = "tapered",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Threaded|Salon][$activeSlave.eyebrowFullness = "threaded",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Thin|Salon][$activeSlave.eyebrowFullness = "thin",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Pencil-Thin|Salon][$activeSlave.eyebrowFullness = "pencil-thin",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 <<else>>
 	<br><br>$His eyebrows are completely hairless.
 <</if>>
@@ -674,53 +674,53 @@ Dye or paint:
 		is $activeSlave.pubicHColor.
 	<</if>>
 	<<if $activeSlave.pubicHColor != $activeSlave.hColor>>
-		[[Match the curtains?|Salon][$activeSlave.pubicHColor = $activeSlave.hColor,$cash -= $modCost]]
+		[[Match the curtains?|Salon][$activeSlave.pubicHColor = $activeSlave.hColor,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<</if>>
 
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	Dye $his pubic hair:
-		[[Auburn|Salon][$activeSlave.pubicHColor = "auburn",$cash -= $modCost]]
-		| [[Black|Salon][$activeSlave.pubicHColor = "black",$cash -= $modCost]]
-		| [[Blazing Red|Salon][$activeSlave.pubicHColor = "blazing red",$cash -= $modCost]]
-		| [[Blonde|Salon][$activeSlave.pubicHColor = "blonde",$cash -= $modCost]]
-		| [[Blue-Violet|Salon][$activeSlave.pubicHColor = "blue-violet",$cash -= $modCost]]
-		| [[Blue|Salon][$activeSlave.pubicHColor = "blue",$cash -= $modCost]]
-		| [[Brown|Salon][$activeSlave.pubicHColor = "brown",$cash -= $modCost]]
-		| [[Burgundy|Salon][$activeSlave.pubicHColor = "burgundy",$cash -= $modCost]]
-		| [[Chestnut|Salon][$activeSlave.pubicHColor = "chestnut",$cash -= $modCost]]
-		| [[Chocolate|Salon][$activeSlave.pubicHColor = "chocolate brown",$cash -= $modCost]]
-		| [[Copper|Salon][$activeSlave.pubicHColor = "copper",$cash -= $modCost]]
-		| [[Dark Blue|Salon][$activeSlave.pubicHColor = "dark blue",$cash -= $modCost]]
-		| [[Dark Brown|Salon][$activeSlave.pubicHColor = "dark brown",$cash -= $modCost]]
-		| [[Dark Orchid|Salon][$activeSlave.pubicHColor = "dark orchid",$cash -= $modCost]]
+		[[Auburn|Salon][$activeSlave.pubicHColor = "auburn",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Black|Salon][$activeSlave.pubicHColor = "black",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Blazing Red|Salon][$activeSlave.pubicHColor = "blazing red",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Blonde|Salon][$activeSlave.pubicHColor = "blonde",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Blue-Violet|Salon][$activeSlave.pubicHColor = "blue-violet",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Blue|Salon][$activeSlave.pubicHColor = "blue",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Brown|Salon][$activeSlave.pubicHColor = "brown",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Burgundy|Salon][$activeSlave.pubicHColor = "burgundy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Chestnut|Salon][$activeSlave.pubicHColor = "chestnut",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Chocolate|Salon][$activeSlave.pubicHColor = "chocolate brown",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Copper|Salon][$activeSlave.pubicHColor = "copper",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Dark Blue|Salon][$activeSlave.pubicHColor = "dark blue",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Dark Brown|Salon][$activeSlave.pubicHColor = "dark brown",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Dark Orchid|Salon][$activeSlave.pubicHColor = "dark orchid",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 		| [[Deep Red|Salon][$primaryHairColor = "deep red"]]
-		| [[Ginger|Salon][$activeSlave.pubicHColor = "ginger",$cash -= $modCost]]
-		| [[Golden|Salon][$activeSlave.pubicHColor = "golden",$cash -= $modCost]]
-		| [[Green-yellow|Salon][$activeSlave.pubicHColor = "green-yellow",$cash -= $modCost]]
-		| [[Green|Salon][$activeSlave.pubicHColor = "green",$cash -= $modCost]]
-		| [[Grey|Salon][$activeSlave.pubicHColor = "grey",$cash -= $modCost]]
-		| [[Hazel|Salon][$activeSlave.pubicHColor = "hazel",$cash -= $modCost]]
-		| [[Jet Black|Salon][$activeSlave.pubicHColor = "jet black",$cash -= $modCost]]
-		| [[Neon Blue|Salon][$activeSlave.pubicHColor = "neon blue",$cash -= $modCost]]
-		| [[Neon Green|Salon][$activeSlave.pubicHColor = "neon green",$cash -= $modCost]]
-		| [[Neon Pink|Salon][$activeSlave.pubicHColor = "neon pink",$cash -= $modCost]]
-		| [[Pink|Salon][$activeSlave.pubicHColor = "pink",$cash -= $modCost]]
-		| [[Platinum Blonde|Salon][$activeSlave.pubicHColor = "platinum blonde",$cash -= $modCost]]
-		| [[Purple|Salon][$activeSlave.pubicHColor = "purple",$cash -= $modCost]]
-		| [[Red|Salon][$activeSlave.pubicHColor = "red",$cash -= $modCost]]
-		| [[Sea Green|Salon][$activeSlave.pubicHColor = "sea green",$cash -= $modCost]]
-		| [[Silver|Salon][$activeSlave.pubicHColor = "silver",$cash -= $modCost]]
-		| [[Strawberry-Blonde|Salon][$activeSlave.pubicHColor = "strawberry-blonde",$cash -= $modCost]]
-		| [[White|Salon][$activeSlave.pubicHColor = "white",$cash -= $modCost]]
+		| [[Ginger|Salon][$activeSlave.pubicHColor = "ginger",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Golden|Salon][$activeSlave.pubicHColor = "golden",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Green-yellow|Salon][$activeSlave.pubicHColor = "green-yellow",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Green|Salon][$activeSlave.pubicHColor = "green",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Grey|Salon][$activeSlave.pubicHColor = "grey",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Hazel|Salon][$activeSlave.pubicHColor = "hazel",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Jet Black|Salon][$activeSlave.pubicHColor = "jet black",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Neon Blue|Salon][$activeSlave.pubicHColor = "neon blue",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Neon Green|Salon][$activeSlave.pubicHColor = "neon green",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Neon Pink|Salon][$activeSlave.pubicHColor = "neon pink",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Pink|Salon][$activeSlave.pubicHColor = "pink",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Platinum Blonde|Salon][$activeSlave.pubicHColor = "platinum blonde",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Purple|Salon][$activeSlave.pubicHColor = "purple",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Red|Salon][$activeSlave.pubicHColor = "red",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Sea Green|Salon][$activeSlave.pubicHColor = "sea green",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Silver|Salon][$activeSlave.pubicHColor = "silver",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Strawberry-Blonde|Salon][$activeSlave.pubicHColor = "strawberry-blonde",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[White|Salon][$activeSlave.pubicHColor = "white",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	Style $his pubic hair:
-		[[Waxed|Salon][$activeSlave.pubicHStyle = "waxed",$cash -= $modCost]]
-		| [[Landing strip|Salon][$activeSlave.pubicHStyle = "in a strip",$cash -= $modCost]]
-		| [[Neat|Salon][$activeSlave.pubicHStyle = "neat",$cash -= $modCost]]
-		| [[Bushy in the front|Salon][$activeSlave.pubicHStyle = "bushy in the front and neat in the rear",$cash -= $modCost]]
-		| [[Bushy|Salon][$activeSlave.pubicHStyle = "bushy",$cash -= $modCost]]
-		| [[Very Bushy|Salon][$activeSlave.pubicHStyle = "very bushy",$cash -= $modCost]]
+		[[Waxed|Salon][$activeSlave.pubicHStyle = "waxed",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Landing strip|Salon][$activeSlave.pubicHStyle = "in a strip",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Neat|Salon][$activeSlave.pubicHStyle = "neat",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Bushy in the front|Salon][$activeSlave.pubicHStyle = "bushy in the front and neat in the rear",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Bushy|Salon][$activeSlave.pubicHStyle = "bushy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Very Bushy|Salon][$activeSlave.pubicHStyle = "very bushy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 
 <<else>>
 	<br><br>$His groin is completely hairless.
@@ -737,51 +737,51 @@ Dye or paint:
 		is $activeSlave.underArmHColor.
 	<</if>>
 	<<if $activeSlave.underArmHColor != $activeSlave.hColor>>
-		[[Match the hair?|Salon][$activeSlave.underArmHColor = $activeSlave.hColor,$cash -= $modCost]]
+		[[Match the hair?|Salon][$activeSlave.underArmHColor = $activeSlave.hColor,cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 	<</if>>
 
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	Dye $his armpit hair:
-		[[Auburn|Salon][$activeSlave.underArmHColor = "auburn",$cash -= $modCost]]
-		| [[Black|Salon][$activeSlave.underArmHColor = "black",$cash -= $modCost]]
-		| [[Blazing Red|Salon][$activeSlave.underArmHColor = "blazing red",$cash -= $modCost]]
-		| [[Blonde|Salon][$activeSlave.underArmHColor = "blonde",$cash -= $modCost]]
-		| [[Blue-Violet|Salon][$activeSlave.underArmHColor = "blue-violet",$cash -= $modCost]]
-		| [[Blue|Salon][$activeSlave.underArmHColor = "blue",$cash -= $modCost]]
-		| [[Brown|Salon][$activeSlave.underArmHColor = "brown",$cash -= $modCost]]
-		| [[Burgundy|Salon][$activeSlave.underArmHColor = "burgundy",$cash -= $modCost]]
-		| [[Chestnut|Salon][$activeSlave.underArmHColor = "chestnut",$cash -= $modCost]]
-		| [[Chocolate|Salon][$activeSlave.underArmHColor = "chocolate brown",$cash -= $modCost]]
-		| [[Copper|Salon][$activeSlave.underArmHColor = "copper",$cash -= $modCost]]
-		| [[Dark Blue|Salon][$activeSlave.underArmHColor = "dark blue",$cash -= $modCost]]
-		| [[Dark Brown|Salon][$activeSlave.underArmHColor = "dark brown",$cash -= $modCost]]
-		| [[Dark Orchid|Salon][$activeSlave.underArmHColor = "dark orchid",$cash -= $modCost]]
+		[[Auburn|Salon][$activeSlave.underArmHColor = "auburn",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Black|Salon][$activeSlave.underArmHColor = "black",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Blazing Red|Salon][$activeSlave.underArmHColor = "blazing red",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Blonde|Salon][$activeSlave.underArmHColor = "blonde",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Blue-Violet|Salon][$activeSlave.underArmHColor = "blue-violet",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Blue|Salon][$activeSlave.underArmHColor = "blue",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Brown|Salon][$activeSlave.underArmHColor = "brown",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Burgundy|Salon][$activeSlave.underArmHColor = "burgundy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Chestnut|Salon][$activeSlave.underArmHColor = "chestnut",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Chocolate|Salon][$activeSlave.underArmHColor = "chocolate brown",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Copper|Salon][$activeSlave.underArmHColor = "copper",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Dark Blue|Salon][$activeSlave.underArmHColor = "dark blue",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Dark Brown|Salon][$activeSlave.underArmHColor = "dark brown",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Dark Orchid|Salon][$activeSlave.underArmHColor = "dark orchid",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 		| [[Deep Red|Salon][$primaryHairColor = "deep red"]]
-		| [[Ginger|Salon][$activeSlave.underArmHColor = "ginger",$cash -= $modCost]]
-		| [[Golden|Salon][$activeSlave.underArmHColor = "golden",$cash -= $modCost]]
-		| [[Green-yellow|Salon][$activeSlave.underArmHColor = "green-yellow",$cash -= $modCost]]
-		| [[Green|Salon][$activeSlave.underArmHColor = "green",$cash -= $modCost]]
-		| [[Grey|Salon][$activeSlave.underArmHColor = "grey",$cash -= $modCost]]
-		| [[Hazel|Salon][$activeSlave.underArmHColor = "hazel",$cash -= $modCost]]
-		| [[Jet Black|Salon][$activeSlave.underArmHColor = "jet black",$cash -= $modCost]]
-		| [[Neon Blue|Salon][$activeSlave.underArmHColor = "neon blue",$cash -= $modCost]]
-		| [[Neon Green|Salon][$activeSlave.underArmHColor = "neon green",$cash -= $modCost]]
-		| [[Neon Pink|Salon][$activeSlave.underArmHColor = "neon pink",$cash -= $modCost]]
-		| [[Pink|Salon][$activeSlave.underArmHColor = "pink",$cash -= $modCost]]
-		| [[Platinum Blonde|Salon][$activeSlave.underArmHColor = "platinum blonde",$cash -= $modCost]]
-		| [[Purple|Salon][$activeSlave.underArmHColor = "purple",$cash -= $modCost]]
-		| [[Red|Salon][$activeSlave.underArmHColor = "red",$cash -= $modCost]]
-		| [[Sea Green|Salon][$activeSlave.underArmHColor = "sea green",$cash -= $modCost]]
-		| [[Silver|Salon][$activeSlave.underArmHColor = "silver",$cash -= $modCost]]
-		| [[Strawberry-Blonde|Salon][$activeSlave.underArmHColor = "strawberry-blonde",$cash -= $modCost]]
-		| [[White|Salon][$activeSlave.underArmHColor = "white",$cash -= $modCost]]
+		| [[Ginger|Salon][$activeSlave.underArmHColor = "ginger",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Golden|Salon][$activeSlave.underArmHColor = "golden",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Green-yellow|Salon][$activeSlave.underArmHColor = "green-yellow",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Green|Salon][$activeSlave.underArmHColor = "green",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Grey|Salon][$activeSlave.underArmHColor = "grey",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Hazel|Salon][$activeSlave.underArmHColor = "hazel",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Jet Black|Salon][$activeSlave.underArmHColor = "jet black",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Neon Blue|Salon][$activeSlave.underArmHColor = "neon blue",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Neon Green|Salon][$activeSlave.underArmHColor = "neon green",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Neon Pink|Salon][$activeSlave.underArmHColor = "neon pink",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Pink|Salon][$activeSlave.underArmHColor = "pink",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Platinum Blonde|Salon][$activeSlave.underArmHColor = "platinum blonde",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Purple|Salon][$activeSlave.underArmHColor = "purple",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Red|Salon][$activeSlave.underArmHColor = "red",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Sea Green|Salon][$activeSlave.underArmHColor = "sea green",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Silver|Salon][$activeSlave.underArmHColor = "silver",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Strawberry-Blonde|Salon][$activeSlave.underArmHColor = "strawberry-blonde",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[White|Salon][$activeSlave.underArmHColor = "white",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;
 	Style $his armpit hair:
-		[[Waxed|Salon][$activeSlave.underArmHStyle = "waxed",$cash -= $modCost]]
-		| [[Shaved|Salon][$activeSlave.underArmHStyle = "shaved",$cash -= $modCost]]
-		| [[Neat|Salon][$activeSlave.underArmHStyle = "neat",$cash -= $modCost]]
-		| [[Bushy|Salon][$activeSlave.underArmHStyle = "bushy",$cash -= $modCost]]
+		[[Waxed|Salon][$activeSlave.underArmHStyle = "waxed",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Shaved|Salon][$activeSlave.underArmHStyle = "shaved",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Neat|Salon][$activeSlave.underArmHStyle = "neat",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
+		| [[Bushy|Salon][$activeSlave.underArmHStyle = "bushy",cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)]]
 
 <<else>>
 	<br><br>$His underarms are completely hairless.
diff --git a/src/uncategorized/seCustomSlaveDelivery.tw b/src/uncategorized/seCustomSlaveDelivery.tw
index b79ff54c1f10dd6b8c459065ea429d068fdd6849..799d85d07fcd9960d60990abc4d44e88177e1c53 100644
--- a/src/uncategorized/seCustomSlaveDelivery.tw
+++ b/src/uncategorized/seCustomSlaveDelivery.tw
@@ -225,7 +225,7 @@ $His price is <<print cashFormat($slaveCost)>>.
 <span id="result">
 <<if $cash >= $slaveCost>>
 	<<link "Accept the offered slave">>
-		<<set $cash -= $slaveCost>>
+		<<run cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave)>>
 		<<replace "#result">>
 			$He has been reasonably broken by the dealer that offered $him to you. $He has also picked up on the fact that $he was specially selected, and is a little hopeful that this means $he may be treated well. $He is now awaiting your instructions.
 			<<include "New Slave Intro">>
diff --git a/src/uncategorized/seExpiration.tw b/src/uncategorized/seExpiration.tw
index 96092a885197f13834a69b633ab272b85fdd1868..9596272a490d1470a6c1940cccb058a5e5b1b12b 100644
--- a/src/uncategorized/seExpiration.tw
+++ b/src/uncategorized/seExpiration.tw
@@ -111,7 +111,7 @@ $activeSlave.slaveName's indentured servitude is ending this week, meaning that
 		<<link "Offer $him a one year supplementary indenture">>
 			<<replace "#result">>
 				$He smiles almost shyly when you offer $him a one year supplementary indenture. The price is reasonable, but definitely favorable to you. $He accepts it anyway, and you transfer the money into an escrow account to be held for $him until $his new indenture is done. Your sex slave once again, $he awaits your pleasure without a hint of fear.
-				<<set $cash -= $slaveCost>>
+				<<run cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave)>>
 				<<set $lowerClass -= 1>>
 				<<set $expired = 0>><<set $expiree = 0>>
 				<<for $i = 0; $i < $slaves.length; $i++>>
@@ -142,7 +142,7 @@ at the moment of $his scheduled emancipation, $he seems willing to consider a sh
 	<<link "Offer $him a one year supplementary indenture">>
 		<<replace "#result">>
 			$He looks pensive when you offer $him a one year supplementary indenture. The price reflects the market, and is a reasonable compensation for a year of sexual slavery. $He accepts it after some consideration, and you transfer the money into an escrow account to be held for $him until $his new indenture is done. Your sex slave once again, $he awaits orders with complacency.
-			<<set $cash -= $slaveCost>>
+			<<run cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave)>>
 			<<set $lowerClass -= 1>>
 			<<set $expired = 0>><<set $expiree = 0>>
 			<<for $i = 0; $i < $slaves.length; $i++>>
diff --git a/src/uncategorized/seRecruiterSuccess.tw b/src/uncategorized/seRecruiterSuccess.tw
index bf642b1b78920808f2cd99a55f9bbc22f7795142..7411a622b220886313470b7c9ba5b6e7d361ee28 100644
--- a/src/uncategorized/seRecruiterSuccess.tw
+++ b/src/uncategorized/seRecruiterSuccess.tw
@@ -250,7 +250,7 @@ Your recruiter $Recruiter.slaveName has succeeded; $he's convinced a desperate o
 <span id="result">
 <<if $cash >= $contractCost>>
 <<link "Enslave _him2">>
-	<<run cashX(forceNeg($contractCost), "slaveCost", $slaves[$i])>>
+	<<run cashX(forceNeg($contractCost), "slaveTransfer", $slaves[$i])>>
 	<<replace "#result">>
 	<<include "New Slave Intro">>
 	<</replace>>
diff --git a/src/uncategorized/slaveInteract.tw b/src/uncategorized/slaveInteract.tw
index 69cc9539818abf9d676e36e48befe68e221c9fe8..d1b3dbab88ab6d9ebce86bc4b17619149e38cefe 100644
--- a/src/uncategorized/slaveInteract.tw
+++ b/src/uncategorized/slaveInteract.tw
@@ -1810,7 +1810,7 @@ __Financial__:
 	<<elseif $activeSlave.accent > 3>>
 		//$His lack of language and basic life skills is a red sign to most slave appraisers. $He must not act like a child to be sold without raising suspicion.// |
 	<<else>>
-		<<link "Sell $him" "Sell Slave">><<set $cash -= 500>><</link>> //Listing $him for sale will cost <<print cashFormat(500)>>// |
+		<<link "Sell $him" "Sell Slave">><<run cashX(forceNeg(-500), "slaveTransfer", $activeSlave)>><</link>> //Listing $him for sale will cost <<print cashFormat(500)>>// |
 		<<if ($seeAge != 0) && ($activeSlave.indenture < 1)>>
 			<<link "Retire $him" "SE retirement">><<set $retiree = $activeSlave.ID, $retired = 1>><</link>> |
 		<</if>>
diff --git a/src/uncategorized/slaveMarkets.tw b/src/uncategorized/slaveMarkets.tw
index e769202977a25c4cfd9c5aacbc8713b302ac6607..c1ccf6a13e81f047259473cbba3f5b9324805d80 100644
--- a/src/uncategorized/slaveMarkets.tw
+++ b/src/uncategorized/slaveMarkets.tw
@@ -196,11 +196,11 @@ The offered price is <<print cashFormat($slaveCost)>>.<<if $slavesSeen > $slaveM
 
 <<setLocalPronouns $activeSlave>>
 <<if $cash >= $slaveCost>>
-	<br>[["Buy " + $him + " and check out other slaves to order"|Slave Markets][$cash -= $slaveCost, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
+	<br>[["Buy " + $him + " and check out other slaves to order"|Slave Markets][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
 	<<if $newSlaves.length == 0>>
-		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cash -= $slaveCost,$nextButton = "Continue",$nextLink = "AS Dump",$returnTo = "Main"]]
+		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave),$nextButton = "Continue",$nextLink = "AS Dump",$returnTo = "Main"]]
 	<<else>>
-		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cash -= $slaveCost, $newSlaves.push($activeSlave)]]
+		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $newSlaves.push($activeSlave)]]
 	<</if>>
 <<else>>
 	//You lack the necessary funds to buy this slave.//
diff --git a/src/uncategorized/slaveShelter.tw b/src/uncategorized/slaveShelter.tw
index ec566ff3780d9697a4e40c428d8cc8501e2749e1..8aba223f34fc2e3b22ee2f61d4f044dfd0757376 100644
--- a/src/uncategorized/slaveShelter.tw
+++ b/src/uncategorized/slaveShelter.tw
@@ -387,7 +387,7 @@ The placement fee is <<print cashFormat($slaveCost)>>.
 <<if $cash >= $slaveCost>>
 	<<link "Buy $his slave contract">>
 		<<replace "#result">>
-			<<set $cash -= $slaveCost, $shelterSlaveBought = 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main">>
+			<<set $cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $shelterSlaveBought = 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main">>
 			<<include "New Slave Intro">>
 		<</replace>>
 	<</link>>
diff --git a/src/uncategorized/specialSlave.tw b/src/uncategorized/specialSlave.tw
index 414ca98d4dca37433683b67be599e026c0f503d6..4a13de717b5ee82e8504f4bd64056d6e285448d4 100644
--- a/src/uncategorized/specialSlave.tw
+++ b/src/uncategorized/specialSlave.tw
@@ -93,7 +93,7 @@
 
 	The offered price is <<print cashFormat($slaveCost)>>.
 
-	[["Buy " + $his + " slave contract"|New Slave Intro][$cash -= $slaveCost,$nextButton = "Continue",$nextLink = "AS Dump",$returnTo = "Main",$specialSlave = 1]]
+	[["Buy " + $his + " slave contract"|New Slave Intro][cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave),,$nextButton = "Continue",$nextLink = "AS Dump",$returnTo = "Main",$specialSlave = 1]]
 
 	<br><br>
 
diff --git a/src/uncategorized/stClaverPreparatory.tw b/src/uncategorized/stClaverPreparatory.tw
index bee475a6fcdb892516aaf9ca9887680c9c407b7c..140fd159c10e3708d81ab5a6ac6e6d33a299b68b 100644
--- a/src/uncategorized/stClaverPreparatory.tw
+++ b/src/uncategorized/stClaverPreparatory.tw
@@ -24,11 +24,11 @@
 
 <<setLocalPronouns $activeSlave>>
 <<if $cash >= $slaveCost>>
-	<br>[["Buy " + $him + " and check out other slaves to order"|St. Claver Preparatory][$cash -= $slaveCost, $SCP.schoolSale = 0, $SCP.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
+	<br>[["Buy " + $him + " and check out other slaves to order"|St. Claver Preparatory][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $SCP.schoolSale = 0, $SCP.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
 	<<if $newSlaves.length == 0>>
-		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cash -= $slaveCost, $SCP.schoolSale = 0, $SCP.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
+		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $SCP.schoolSale = 0, $SCP.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
 	<<else>>
-		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cash -= $slaveCost, $SCP.schoolSale = 0, $SCP.studentsBought += 1, $newSlaves.push($activeSlave)]]
+		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $SCP.schoolSale = 0, $SCP.studentsBought += 1, $newSlaves.push($activeSlave)]]
 	<</if>>
 <<else>>
 	//You lack the necessary funds to buy this slave.//
diff --git a/src/uncategorized/surgeryDegradation.tw b/src/uncategorized/surgeryDegradation.tw
index 39f11c2c5598afd8b5efca573c83b73703721298..498347e108e7b0d0caa0017fdca46fa520a93f65 100644
--- a/src/uncategorized/surgeryDegradation.tw
+++ b/src/uncategorized/surgeryDegradation.tw
@@ -103,7 +103,7 @@
 			<<set $activeSlave.trust -= 10, $activeSlave.devotion -= 5>>
 		<</if>>
 	<</if>>
-	<<set $activeSlave.boobs = 300, $activeSlave.breastMesh = 0, $activeSlave.health -= 30, $cash -= $surgeryCost>>
+	<<set $activeSlave.boobs = 300, $activeSlave.breastMesh = 0, $activeSlave.health -= 30, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
 
 <<else>>
 	<<switch $surgeryType>>
diff --git a/src/uncategorized/theFutanariSisters.tw b/src/uncategorized/theFutanariSisters.tw
index 7e1444389cbe4198dab5bc140216e15eaa276af3..07b8e4679e6fca4a97976ceaf1ab142d73e7ea0f 100644
--- a/src/uncategorized/theFutanariSisters.tw
+++ b/src/uncategorized/theFutanariSisters.tw
@@ -119,11 +119,11 @@ The price is <<print cashFormat($slaveCost)>>.<<if $slavesSeen > $slaveMarketLim
 
 <<setLocalPronouns $activeSlave>>
 <<if $cash >= $slaveCost>>
-	<br>[["Buy " + $him + " and check out other slaves to order"|The Futanari Sisters][$cash -= $slaveCost, $TFS.schoolSale = 0, $TFS.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
+	<br>[["Buy " + $him + " and check out other slaves to order"|The Futanari Sisters][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $TFS.schoolSale = 0, $TFS.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
 	<<if $newSlaves.length == 0>>
-		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cash -= $slaveCost, $TFS.schoolSale = 0, $TFS.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
+		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $TFS.schoolSale = 0, $TFS.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
 	<<else>>
-		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cash -= $slaveCost, $TFS.schoolSale = 0, $TFS.studentsBought += 1, $newSlaves.push($activeSlave)]]
+		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $TFS.schoolSale = 0, $TFS.studentsBought += 1, $newSlaves.push($activeSlave)]]
 	<</if>>
 <<else>>
 	//You lack the necessary funds to buy this slave.//
diff --git a/src/uncategorized/theGymnasiumAcademy.tw b/src/uncategorized/theGymnasiumAcademy.tw
index 5194021fe2773a115c9da7d16acf417bdb2dc570..6af965cc830b2fe96fc110b307ec9a595918660c 100644
--- a/src/uncategorized/theGymnasiumAcademy.tw
+++ b/src/uncategorized/theGymnasiumAcademy.tw
@@ -24,11 +24,11 @@
 
 <<setLocalPronouns $activeSlave>>
 <<if $cash >= $slaveCost>>
-	<br>[["Buy " + $him + " and check out other slaves to order"|The Gymnasium-Academy][$cash -= $slaveCost, $TGA.schoolSale = 0, $TGA.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
+	<br>[["Buy " + $him + " and check out other slaves to order"|The Gymnasium-Academy][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $TGA.schoolSale = 0, $TGA.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
 	<<if $newSlaves.length == 0>>
-		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cash -= $slaveCost, $TGA.schoolSale = 0, $TGA.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
+		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $TGA.schoolSale = 0, $TGA.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
 	<<else>>
-		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cash -= $slaveCost, $TGA.schoolSale = 0, $TGA.studentsBought += 1, $newSlaves.push($activeSlave)]]
+		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $TGA.schoolSale = 0, $TGA.studentsBought += 1, $newSlaves.push($activeSlave)]]
 	<</if>>
 <<else>>
 	//You lack the necessary funds to buy this slave.//
diff --git a/src/uncategorized/theSlavegirlSchool.tw b/src/uncategorized/theSlavegirlSchool.tw
index 50fef1f068e773d58c2b19ad43d7e5c907ee02d7..d356e2914f12f99493b80013b0b472b81f32ba35 100644
--- a/src/uncategorized/theSlavegirlSchool.tw
+++ b/src/uncategorized/theSlavegirlSchool.tw
@@ -24,11 +24,11 @@
 
 <<setLocalPronouns $activeSlave>>
 <<if $cash >= $slaveCost>>
-	<br>[["Buy " + $him + " and check out other slaves to order"|The Slavegirl School][$cash -= $slaveCost, $TSS.schoolSale = 0, $TSS.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
+	<br>[["Buy " + $him + " and check out other slaves to order"|The Slavegirl School][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $TSS.schoolSale = 0, $TSS.studentsBought += 1, $newSlaves.push($activeSlave), $introType = "multi", $slavesSeen+=1]]
 	<<if $newSlaves.length == 0>>
-		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cash -= $slaveCost, $TSS.schoolSale = 0, $TSS.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
+		<br>[["Buy " + $his + " slave contract"|New Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $TSS.schoolSale = 0, $TSS.studentsBought += 1, $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Main"]]
 	<<else>>
-		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cash -= $slaveCost, $TSS.schoolSale = 0, $TSS.studentsBought += 1, $newSlaves.push($activeSlave)]]
+		<br>[["Buy " + $him + " and finish your order of slaves"|Bulk Slave Intro][$cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave), $TSS.schoolSale = 0, $TSS.studentsBought += 1, $newSlaves.push($activeSlave)]]
 	<</if>>
 <<else>>
 	//You lack the necessary funds to buy this slave.//
diff --git a/src/utility/slaveCreationWidgets.tw b/src/utility/slaveCreationWidgets.tw
index 0c4616de86867c5802d7d4ca8d89a617b7bb7ecd..c90d1680a1dc3612ce433e9afd473f0b35d09e7a 100644
--- a/src/utility/slaveCreationWidgets.tw
+++ b/src/utility/slaveCreationWidgets.tw
@@ -729,7 +729,7 @@
 		<<link "Add this slave">>
 			<<set $returnTo = "Commit Starting Girl", $createRelatedSlave = 0, $applyCareerBonus = 1, $careerBonusApplied = 0>>
 			<<StartingSlaveCost $activeSlave>>
-			<<set $cash -= $slaveCost>>
+			<<run cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave)>>
 			<<goto "RG AS Dump">>
 		<</link>>
 		//This will apply your @@.springgreen;career bonus@@ to $him:
@@ -760,7 +760,7 @@
 		<<link "Add slave without career bonus">>
 			<<set $returnTo = "Commit Starting Girl", $createRelatedSlave = 0, $applyCareerBonus = 0, $careerBonusApplied = 0>>
 			<<StartingSlaveCost $activeSlave>>
-			<<set $cash -= $slaveCost>>
+			<<run cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave)>>
 			<<goto "RG AS Dump">>
 		<</link>>
 	<<else>>
@@ -768,7 +768,7 @@
 		<<link "Add slave">>
 			<<set $returnTo = "Commit Starting Girl", $createRelatedSlave = 0, $applyCareerBonus = 0, $careerBonusApplied = 0>>
 			<<StartingSlaveCost $activeSlave>>
-			<<set $cash -= $slaveCost>>
+			<<run cashX(forceNeg($slaveCost), "slaveTransaction", $activeSlave)>>
 			<<goto "RG AS Dump">>
 		<</link>>
 		<br>