Bodypurist neighbor effect fix

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 def $corpSpecImplants>>
+	<<if ndef $corpSpecImplants && $arcologies[0].FSBodyPurist > 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>>