Anon's RA fixes and I combined the two policies into one.

src/init/storyInit.tw

@@ -899,8 +899,7 @@ DairyRestraintsSetting($dairyRestraintsSetting)
 <<set $BasicWeightSMR = 0>>
 <<set $BasicIntelligenceSMR = 0>>
 <<set $QualityIntelligenceSMR = 0>>
-<<set $BasicTallSMR = 0>>
-<<set $BasicShortSMR = 0>>
+<<set $BasicHeightSMR = 0>>
 <<set $IntelligenceEugenicsSMR = 0>>
 <<set $HeightEugenicsSMR = 0>>
 <<set $FaceEugenicsSMR = 0>>

src/js/raSelectorJS.tw

@@ -28,20 +28,22 @@ window.growAdvSelector = function(slave, rule) {
 		return ret;
 	}
 
-	if ((rule.ballSize == "small" && slave.balls < 2 && slave.balls > 0) ||
-		(rule.ballSize == "big" && slave.balls < 4 && slave.balls > 0) ||
-		(rule.ballSize == "huge" && slave.balls < 6 && slave.balls > 0) ||
-		(rule.ballSize == "unlimited" && slave.balls < 9 && slave.balls > 0))	
+	if (slave.balls > 0 &&
+		((rule.ballSize == "small" && slave.balls < 2) ||
+		 (rule.ballSize == "big" && slave.balls < 4) ||
+		 (rule.ballSize == "huge" && slave.balls < 6) ||
+		 (rule.ballSize == "unlimited" && slave.balls < 9)))		
 	{ 
 		slave.drugs = "testicle enhancement"; 
 		ret = slave.slaveName + "'s balls aren't large enough, so she's been put on testicle enhancement.";
 		return ret;
 	}
 
-	if ((rule.penisSize == "small" && slave.dick < 2 && slave.dick > 0) ||
-		(rule.penisSize == "big" && slave.dick < 4 && slave.dick > 0) ||
-		(rule.penisSize == "huge" && slave.dick < 6 && slave.dick > 0) ||
-		(rule.penisSize == "unlimited" && slave.dick < 12 && slave.dick > 0))	
+	if (slave.dick > 0 &&
+		((rule.penisSize == "small" && slave.dick < 2) ||
+		 (rule.penisSize == "big" && slave.dick < 4) ||
+		 (rule.penisSize == "huge" && slave.dick < 6) ||
+		 (rule.penisSize == "unlimited" && slave.dick < 12)))
 	{ 
 		slave.drugs = "penis enhancement"; 
 		ret = slave.slaveName + "'s dick isn't large enough, so she's been put on penis enhancement.";

src/uncategorized/BackwardsCompatibility.tw

@@ -163,11 +163,16 @@
 <<if ndef $BasicWeightSMR>>
 	<<set $BasicWeightSMR = 0>>
 <</if>>
-<<if ndef $BasicTallSMR>>
-	<<set $BasicTallSMR = 0>>
+<<if def $BasicTallSMR>>
+	<<unset $BasicTallSMR>>
+	<<set $BasicHeightSMR = 1>>
 <</if>>
-<<if ndef $BasicShortSMR>>
-	<<set $BasicShortSMR = 0>>
+<<if def $BasicShortSMR>>
+	<<unset $BasicShortSMR>>
+	<<set $BasicHeightSMR = -1>>
+<</if>>
+<<if ndef $BasicHeightSMR>>
+	<<set $BasicHeightSMR = 0>>
 <</if>>
 <<if ndef $toysBoughtButtPlugTails>>
 	<<set $toysBoughtButtPlugTails = 0>>

src/uncategorized/lawCompliance.tw

@@ -347,7 +347,7 @@
 	<<set $activeSlave.trust -= 5>>
 <</if>>
 
-<<if $BasicTallSMR == 1>>
+<<if $BasicHeightSMR == 1>>
 	<<if $activeSlave.height < 170>>
 		<<if $activeSlave.height >= 160>>
 			Before she was put up for sale, she underwent height increasing surgery to fulfill your arcology's height SMR. She was @@.gold;horrified@@ by how drastically her body was altered just for a chance at sale.
@@ -361,7 +361,7 @@
 		While she was in the slave pens, she saw that short and even average sized slaves were commonly designated as menials and fuckdolls. Her tall stature gives her a promising future compared to her shorter peers, leaving her @@.mediumOrchid;inappropriately proud@@ of height.
 		<<set $activeSlave.devotion -= 10>>
 	<</if>>
-<<elseif $BasicShortSMR == 1>>
+<<elseif $BasicHeightSMR == -1>>
 	<<if $activeSlave.height >= 160>>
 		<<if $activeSlave.height <= 169>>
 			Before she was put up for sale, she underwent height reduction surgery to fulfill your arcology's height SMR. She was @@.gold;horrified@@ by how drastically her body was altered just for a chance at sale.

src/uncategorized/policies.tw

@@ -15,7 +15,7 @@
 ''__Active policies__''
 <br>//These policies are active within your arcology. Slave Market Regulations (SMRs) will affect slaves that come through the official slave markets in your arcology. The markets themselves will bear the cost of these regulations, but the minimum practicable slave prices may rise as a result.//
 
-<<if $BasicSMR + $HealthInspectionSMR + $EducationSMR + $IntelligenceEugenicsSMR + $HeightEugenicsSMR + $FaceEugenicsSMR + $HonestySMR + $FrigiditySMR + $BasicBeautySMR + $QualityBeautySMR + $BasicWeightSMR + $BasicIntelligenceSMR + $QualityIntelligenceSMR + $basicTallSMR + $BasicShortSMR > 0>>
+<<if ($BasicSMR + $HealthInspectionSMR + $EducationSMR + $IntelligenceEugenicsSMR + $HeightEugenicsSMR + $FaceEugenicsSMR + $HonestySMR + $FrigiditySMR + $BasicBeautySMR + $QualityBeautySMR + $BasicWeightSMR + $BasicIntelligenceSMR + $QualityIntelligenceSMR > 0) || ($BasicHeightSMR != 0)>>
 <br>__Slave Market Regulations__
 
 <<if $BasicSMR == 1>>
@@ -73,12 +73,12 @@
 	[[Repeal|Policies][$BasicWeightSMR = 0, $minimumSlaveCost -= 3000]]
 <</if>>
 
-<<if $BasicTallSMR == 1>>
+<<if $BasicHeightSMR == 1>>
 	<br>''Basic Height Standards:'' talls slaves are favored in the slave market, short slaves capable of meeting height standards via surgery must undergo it.
-	[[Repeal|Policies][$BasicTallSMR = 0, $minimumSlaveCost -= 5000]]
-<<elseif $BasicShortSMR == 1>>
+	[[Repeal|Policies][$BasicHeightSMR = 0, $minimumSlaveCost -= 5000]]
+<<elseif $BasicHeightSMR == -1>>
 	<br>''Basic Height Standards:'' short slaves are favored in the slave market, tall slaves capable of meeting height standards via surgery must undergo it.
-	[[Repeal|Policies][$BasicShortSMR = 0, $minimumSlaveCost -= 5000]]
+	[[Repeal|Policies][$BasicHeightSMR = 0, $minimumSlaveCost -= 5000]]
 <</if>>
 
 <<if $BasicIntelligenceSMR == 1>>
@@ -674,21 +674,14 @@
 <</if>>
 <</if>>
 
-<<if $BasicTallSMR == 0>>
-<<if $BasicShortSMR == 0>>
-	<br>''Basic Height Standards:'' tall slaves will be favored in the slave markets and those not quite tall enough will undergo height increasing surgery. This will not preclude the sale of short slaves, just the care of them.
-	[[Implement|Policies][$BasicTallSMR = 1, $cash -=5000, $rep -= 1000, $minimumSlaveCost += 5000]]
+<<if $BasicHeightSMR == 0>>
+	<br>''Basic Height Standards (Tall):'' tall slaves will be favored in the slave markets and those not quite tall enough will undergo height increasing surgery. This will not preclude the sale of short slaves, just the care of them.
+	[[Implement|Policies][$BasicHeightSMR = 1, $cash -=5000, $rep -= 1000, $minimumSlaveCost += 5000]]
+	<br>&nbsp;&nbsp;&nbsp;&nbsp;//This will raise the price of slaves.//
+	<br>''Basic Height Standards (Short):'' short slaves will be favored in the slave markets and those just above the cut off will undergo height increasing surgery. This will not preclude the sale of tall slaves, just the care of them.
+	[[Implement|Policies][$BasicHeightSMR = -1, $cash -=5000, $rep -= 1000, $minimumSlaveCost += 5000]]
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;//This will raise the price of slaves.
 <</if>>
-<</if>>
-
-<<if $BasicTallSMR == 0>>
-<<if $BasicShortSMR == 0>>
-	<br>''Basic Height Standards:'' short slaves will be favored in the slave markets and those just above the cut off will undergo height increasing surgery. This will not preclude the sale of tall slaves, just the care of them.
-	[[Implement|Policies][$BasicShortSMR = 1, $cash -=5000, $rep -= 1000, $minimumSlaveCost += 5000]]
-	<br>&nbsp;&nbsp;&nbsp;&nbsp;//This will raise the price of slaves.
-<</if>>
-<</if>>
 
 <<if $BasicIntelligenceSMR == 0>>
 <<if $QualityIntelligenceSMR == 0>>