From 52f7d4379436be8c6dd3cee5fdf5aee7b90c1776 Mon Sep 17 00:00:00 2001
From: Jones <Jones>
Date: Sun, 27 Jan 2019 18:34:43 +0100
Subject: [PATCH] Better body purist fix

---
 src/pregmod/manageCorporation.tw          | 7 ++++++-
 src/uncategorized/neighborsDevelopment.tw | 2 +-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/pregmod/manageCorporation.tw b/src/pregmod/manageCorporation.tw
index b9210e52994..61be792df67 100644
--- a/src/pregmod/manageCorporation.tw
+++ b/src/pregmod/manageCorporation.tw
@@ -1438,7 +1438,7 @@ __Slave specialization__
 			<br>Slaves are given [[No Education|Manage Corporation][$corpSpecEducation == 0, $corpSpecToken -= 1, $corpSpecTimer = 2]] | [[Basic Education|Manage Corporation][$corpSpecEducation = 1, $corpSpecToken -= 1, $corpSpecTimer = 2]]
 		<</if>>
 		<<if ndef $corpSpecImplants && $corpDivSurgery > 0>> /*This used to be $surgicalUpgradeImplants, it is the surgery specialization*/
-			<br>Slave implants are [[Applied|Manage Corporation][$corpSpecImplants = 1, $corpSpecToken -= 1, $corpSpecTimer = 2]]
+			<br>Slave implants are [[Applied|Manage Corporation][$corpSpecImplants = 1, $corpSpecToken -= 1, $corpSpecTimer = 2]] | [[Not Applied|Manage Corporation][$corpSpecImplants = 0, $corpSpecTimer = 2]]
 		<</if>>
 		<<if ndef $corpSpecGenitalia && $corpDivSurgery > 100>> /*This used to be $surgicalUpgradeGenitalia, it is the surgery specialization*/
 			<br>Slaves get their genitalia reconfigured [[Add Pussy|Manage Corporation][$corpSpecPussy = 1, $corpSpecGenitalia = 1, $corpSpecToken -= 1, $corpSpecTimer = 2]] | [[Remove Pussy|Manage Corporation][$corpSpecPussy = -1, $corpSpecGenitalia = 1, $corpSpecToken -= 1, $corpSpecTimer = 2]] | [[Add Dick|Manage Corporation][$corpSpecDick = 1, $corpSpecGenitalia = 1, $corpSpecToken -= 1, $corpSpecTimer = 2]] | [[Remove Dick|Manage Corporation][$corpSpecDick = -1, $corpSpecGenitalia = 1, $corpSpecToken -= 1, $corpSpecTimer = 2]] | [[Add Balls|Manage Corporation][$corpSpecBalls = 1, $corpSpecGenitalia = 1, $corpSpecToken -= 1, $corpSpecTimer = 2]] | [[Remove Balls|Manage Corporation][$corpSpecBalls = -1, $corpSpecGenitalia = 1, $corpSpecToken -= 1, $corpSpecTimer = 2]]
@@ -1960,6 +1960,11 @@ __Slave specialization__
 		<<if $corpSpecTimer == 0>>
 			[[Tasteful Implants|Manage Corporation][$corpSpecImplants = 1, $corpSpecToken += 1, $corpSpecTimer = 2]] | <<link "No Focus">><<unset $corpSpecImplants>><<set $corpSpecToken += 2, $corpSpecTimer = 2>><<goto "Manage Corporation">><</link>>
 		<</if>>
+	<<elseif $corpSpecImplants == 0>>
+		<br>The corporation keeps their slaves entirely implant free.
+		<<if $corpSpecTimer == 0 && $corpSpecToken > 0>>
+			[[Tasteful Implants|Manage Corporation][$corpSpecImplants = 1, $corpSpecToken -= 1, $corpSpecTimer = 2]] | <<link "No Focus">><<unset $corpSpecImplants>><<set $corpSpecTimer = 2>><<goto "Manage Corporation">><</link>>
+		<</if>>
 	<</if>>
 	<<if ndef $corpSpecPussy && ndef $corpSpecDick && ndef $corpSpecBalls && $corpSpecGenitalia == 1>>
 		<<set ndef $corpSpecGenitalia,
diff --git a/src/uncategorized/neighborsDevelopment.tw b/src/uncategorized/neighborsDevelopment.tw
index 0a0cfd046a2..1ca6964a9ef 100644
--- a/src/uncategorized/neighborsDevelopment.tw
+++ b/src/uncategorized/neighborsDevelopment.tw
@@ -1107,7 +1107,7 @@ has an estimated GSP of @@.yellowgreen;<<print cashFormat(Math.trunc((0.1*$arcol
 	<</if>>
 	<<if $arcologies[$i].FSBodyPurist != "unset">>
 	<<if $corpIncorporated == 1>>
-	<<if ndef $corpSpecImplants && $arcologies[0].FSBodyPurist > 0>>
+	<<if $corpSpecImplants == 0>>
 	<<if $corpSpecAmputee != 1>>
 		It's a @@.lightgreen;good market@@ for your corporation's implant-free slaves, improving sales and helping social progress.
 		<<set $arcologies[$i].FSBodyPurist += 1>>
-- 
GitLab