diff --git a/src/uncategorized/arcmgmt.tw b/src/uncategorized/arcmgmt.tw
index 4d74b8f8857a880d032a48ab2c2b85365c75beb7..4b927c4020536e12aefbbc709c392a87b73a3098 100644
--- a/src/uncategorized/arcmgmt.tw
+++ b/src/uncategorized/arcmgmt.tw
@@ -8,11 +8,6 @@ Populations depend on the 'demand' for them. People flock to the Free City when
 More elite citizens require their own slaves and will cause the population of slaves to increase as they move in. FS and policies will impact how many slaves they desire and how productive they are. The PC's menials also compete for labor within the arcology. Slaves can now 'expire', speed depends on FS and policies. Default lifespan for menials is an average of ~4 years. */
 
 <<set $oldACitizens = $ACitizens,
-_oldASlaves = $ASlaves, 
-_oldLowerClass = $lowerClass, /*debugging stuff, perhaps worth keeping if polished*/
-_oldMiddleClass = $middleClass,
-_oldUpperClass = $upperClass,
-_oldTopClass = $topClass,
 _FSScore = 0, /*FS progress for tourism*/
 _slaveDemandU = 1, /*Changes to upperclass slave demand*/
 _slaveDemandT = 1, /*Changes to topclass slave demand*/
@@ -576,7 +571,7 @@ $helots -= _expirationPC,
 $fuckdolls -= _expirationFD,
 $menialBioreactors -= _expirationBR>>
 <<if _expiration > 1>>
-	@@.red;<<print _expiration>> Slaves died@@ due to the tough working conditions in your arcology.
+	@@.red;<<print _expiration>> slaves died@@ due to the tough working conditions in your arcology.
 	<<if _expirationPC > 1>>
 		Of which @@.red;<<print _expirationPC>> were yours.@@
 	<<elseif _expirationPC > 0>>
@@ -657,31 +652,59 @@ $lowerClass -= _enslaved>>
 /*Demand for owning slaves*/
 _SCD = Math.trunc(($upperClass * ($slaveDemandU + _slaveDemandU)) + ($topClass * ($slaveDemandT + _slaveDemandT)))>>
 /*More slaves than there is work*/
-<<if $NPCSlaves > _LSCD / $slaveProductivity>>
-	<<set $menialDemandFactor -= $NPCSlaves - Math.trunc(_LSCD / ($slaveProductivity + _slaveProductivity)),
+<<if $NPCSlaves > (_LSCD / ($slaveProductivity + _slaveProductivity)) - $helots + _SCD>>
+	<<set _NPCSlavesSold = $NPCSlaves - Math.trunc(_LSCD / ($slaveProductivity + _slaveProductivity) - $helots + _SCD),
+	$menialDemandFactor -= _NPCSlavesSold,
 	$NPCSlaves = Math.trunc(_LSCD / ($slaveProductivity + _slaveProductivity))>>
+	<<if _NPCSlavesSold > 1>>
+		<br>@@.red;<<print _NPCSlavesSold>> slaves@@ were sold by your inhabitants. There was so little work that they failed to earn their keep.
+	<<elseif _NPCSlavesSold > 0>>
+		<br>@@.red;One slave was sold by your inhabitants. There was so little work that it failed to earn its keep.
+	<</if>>
 /*More slaves than they know what to do with*/
 <<elseif $NPCSlaves > _SCD * 1.6>>
-	<<set $menialDemandFactor -= $NPCSlaves - Math.trunc(_SCD * 1.6),
+	<<set _NPCSlavesSold = $NPCSlaves - Math.trunc(_SCD * 1.6),
+	$menialDemandFactor -= _NPCSlavesSold,
 	$NPCSlaves = Math.trunc(_SCD * 1.6)>>
+	<<if _NPCSlavesSold > 1>>
+		<br>@@.red;<<print _NPCSlavesSold>> slaves@@ were sold by your inhabitants. They've got more than enough of them already.
+	<<elseif _NPCSlavesSold > 0>>
+		<br>@@.red;One slave@@ was sold by your inhabitants. They've got more than enough of them already.
+	<</if>>
 /*Cutting back on slaves*/
 <<elseif $NPCSlaves > _SCD * 1.4>>
 	<<if $slaveCostFactor > 0.95>>
-		<<set $menialDemandFactor -= Math.trunc(($NPCSlaves - _SCD) * 0.4),
-		$NPCSlaves -= Math.trunc(($NPCSlaves - _SCD) * 0.4)>>
+		<<set _NPCSlavesSold = Math.trunc(($NPCSlaves - _SCD) * 0.4),
+		$menialDemandFactor -= _NPCSlavesSold,
+		$NPCSlaves -= _NPCSlavesSold>>
+		<<if _NPCSlavesSold > 1>>
+			<br>@@.red;<<print _NPCSlavesSold>> slaves were sold by your inhabitants. They've got more than enough of them already.
+		<<elseif _NPCSlavesSold > 0>>
+			<br>@@.red;One slave was sold by your inhabitants. They've got more than enough of them already.
+		</if>
 	<</if>>
 /*Selling excess slaves for profit*/
 <<elseif $NPCSlaves > _SCD * 1.2>>
 	<<if $slaveCostFactor > 1.1>>
-		<<set $menialDemandFactor -= Math.trunc(($NPCSlaves - _SCD) * 0.4),
-		$NPCSlaves -= Math.trunc(($NPCSlaves - _SCD) * 0.4)>>
+		<<set _NPCSlavesSold = Math.trunc(($NPCSlaves - _SCD) * 0.4),
+		$menialDemandFactor -= _NPCSlavesSold,
+		$NPCSlaves -= _NPCSlavesSold>>
+		<<if _NPCSlavesSold > 1>>
+			<br>@@.red;<<print _NPCSlavesSold>> slaves were sold by your inhabitants. They saw an opportunity for profit.
+		<<elseif _NPCSlavesSold > 0>>
+			<br>@@.red;One slave was sold by your inhabitants. They saw an opportunity for profit.
+		</if>		
 	<</if>>
 <</if>>
 /*Buying slaves because they are really cheap*/
 <<if $slaveCostFactor < 0.8>>
 	<<if $NPCSlaves < _SCD * 1.5>>
-		<<set $menialSupplyFactor -= Math.trunc(_SCD * 0.05),
-		$NPCSlaves += Math.trunc(_SCD * 0.05)>>
+		<<set _NPCSlavesBought = Math.trunc(_SCD * 0.05),
+		$menialSupplyFactor -= _NPCSlavesBought,
+		$NPCSlaves += _NPCSlavesBought>>
+		<<if _NPCSlavesBought > 1>>
+			<br>@@.green;<<print _NPCSlavesBought>> slaves were bought by your inhabitants. They were too cheap to pass up on.
+		<</if>> /*there's no way this ever ends up needing a 1 slave version*/
 	<</if>>
 <</if>>
 
@@ -696,7 +719,7 @@ _SCD = Math.trunc(($upperClass * ($slaveDemandU + _slaveDemandU)) + ($topClass *
 	<<set _LCImmigration = Math.trunc((_LCD - $lowerClass) * (0.3 * _terrain)) + 1,
 	$lowerClass += _LCImmigration>>
 	<<if _LCImmigration > 1>>
-		<br>@@.green;<<print _LCImmigration>> Lower class citizens@@ moved to your arcology.
+		<br>@@.green;<<print _LCImmigration>> lower class citizens@@ moved to your arcology.
 	<<elseif _LCImmigration > 0>>
 		<br>@@.green;One lower class citizen@@ moved to your arcology.
 	<</if>>
@@ -706,9 +729,9 @@ _SCD = Math.trunc(($upperClass * ($slaveDemandU + _slaveDemandU)) + ($topClass *
 	$lowerClass -= _LCEmigration,
 	_enslaved += _enslavedEmigrants>>
 	<<if _LCEmigration > 1>>
-		<br>@@.red;<<print _LCEmigration>> Lower class citizens@@ had no work and tried to leave your arcology.
+		<br>@@.red;<<print _LCEmigration>> lower class citizens@@ had no work and tried to leave your arcology.
 		<<if _enslavedEmigrants > 1>>
-			@@.green;<<print _enslavedEmigrants>> Of them were enslaved instead.@@
+			@@.green;<<print _enslavedEmigrants>> of them were enslaved instead.@@
 		<<elseif _enslavedEmigrants > 0>>
 			@@.green;One of them was enslaved instead.@@
 		<</if>>
@@ -728,15 +751,21 @@ _SCD = Math.trunc(($upperClass * ($slaveDemandU + _slaveDemandU)) + ($topClass *
 	$NPCSlaves += _enslavedNPC>>
 <</if>>
 <<if _enslaved > 1>>
-	<br>In total @@.green;<<print _enslaved>> Lower class citizens@@ were enslaved for failing to pay their debts.
-	<br> @@.green;You enslaved <<print _enslavedPC>>@@ of them while other debtholders in the arcology enslaved the remaining <<print _enslavedNPC>>.
+	<br>In total @@.green;<<print _enslaved>> lower class citizens@@ were enslaved for failing to pay their debts.
+	<br>@@.green;You enslaved <<print _enslavedPC>>@@ of them while other debtholders in the arcology enslaved the remaining <<print _enslavedNPC>>.
 <<elseif _enslaved > 0>>
 	<br>@@.green;As arcology owner you claimed the slave.@@
 <</if>>
 /*Need more slaves still*/
 <<if $NPCSlaves < _SCD>>
-	<<set $menialSupplyFactor -= Math.trunc((_SCD - $NPCSlaves) * 0.75) + 1,
-	$NPCSlaves += Math.trunc((_SCD - $NPCSlaves) * 0.75) + 1>>
+	<<set _NPCSlavesBought = Math.trunc((_SCD - $NPCSlaves) * 0.75) + 1,
+	$menialSupplyFactor - _NPCSlavesBought,
+	$NPCSlaves += _NPCSlavesBought>>
+	<<if _NPCSlavesBought > 1>>
+		<br>@@.green;<<print _NPCSlavesBought>> slaves@@ were bought by your inhabitants. They did not have enough of them to satisfy their needs.
+	<<elseif _NPCSlavesBought > 0>>
+		<br>@@.green;One slave@@ was bought by your inhabitants. They did not quite have enough of them to satisfy their needs.
+	<</if>>
 <</if>>
 
 /*Middle Class Citizens*/
@@ -747,7 +776,7 @@ _SCD = Math.trunc(($upperClass * ($slaveDemandU + _slaveDemandU)) + ($topClass *
 	<<set _MCImmigration = Math.trunc((_MCD - $middleClass) * (0.3 * _terrain)) + 1,
 	$middleClass += _MCImmigration>>
 	<<if _MCImmigration > 1>>
-		<br>@@.green;<<print _MCImmigration>> Middle class citizens@@ moved to your arcology.
+		<br>@@.green;<<print _MCImmigration>> middle class citizens@@ moved to your arcology.
 	<<elseif _MCImmigration > 0>>
 		<br>@@.green;One middle class citizen@@ moved to your arcology.
 	<</if>>
@@ -756,7 +785,7 @@ _SCD = Math.trunc(($upperClass * ($slaveDemandU + _slaveDemandU)) + ($topClass *
 	<<set _MCEmigration = Math.trunc(($middleClass - _MCD) * 0.6),
 	$middleClass -= _MCEmigration>>
 	<<if _MCEmigration > 1>>
-		<br>@@.red;<<print _MCEmigration>> Middle class citizens@@ left your arcology.
+		<br>@@.red;<<print _MCEmigration>> middle class citizens@@ left your arcology.
 	<<elseif _MCEmigration > 0>>
 		<br>@@.red;One middle class citizen@@ left your arcology.
 	<</if>>
@@ -770,7 +799,7 @@ _SCD = Math.trunc(($upperClass * ($slaveDemandU + _slaveDemandU)) + ($topClass *
 	<<set _UCImmigration = Math.trunc((_UCD - $upperClass) * (0.3 * _terrain)) + 1,
 	$upperClass += _UCImmigration>>
 	<<if _UCImmigration > 1>>
-		<br>@@.green;<<print _UCImmigration>> Upper class citizens@@ moved to your arcology.
+		<br>@@.green;<<print _UCImmigration>> upper class citizens@@ moved to your arcology.
 	<<elseif _UCImmigration > 0>>
 		<br>@@.green;One upper class citizen@@ moved to your arcology.
 	<</if>>
@@ -779,7 +808,7 @@ _SCD = Math.trunc(($upperClass * ($slaveDemandU + _slaveDemandU)) + ($topClass *
 	<<set _UCEmigration = Math.trunc(($upperClass - _UCD) * 0.6),
 	$upperClass -= _UCEmigration>>
 	<<if _UCEmigration > 1>>
-		<br>@@.red;<<print _UCEmigration>> Upper class citizens@@ left your arcology.
+		<br>@@.red;<<print _UCEmigration>> upper class citizens@@ left your arcology.
 	<<elseif _UCEmigration > 0>>
 		<br>@@.red;One upper class citizen@@ left your arcology.
 	<</if>>
@@ -795,7 +824,7 @@ _TCD = Math.trunc(($GDP / 15 + _topClass) * $rentEffectT * _topClassP + $TCBase)
 	<<set _TCImmigration = Math.trunc((_TCD - $topClass) * (0.3 * _terrain)) + 1,
 	$topClass += _TCImmigration>>
 	<<if _TCImmigration > 1>>
-		<br>@@.green;<<print _TCImmigration>> Millionaires@@ moved to your arcology. /*Fat Cat? One-Percenter?*/
+		<br>@@.green;<<print _TCImmigration>> millionaires@@ moved to your arcology. /*Fat Cat? One-Percenter?*/
 	<<elseif _TCImmigration > 0>>
 		<br>@@.green;One millionaire@@ moved to your arcology.
 	<</if>>
@@ -804,7 +833,7 @@ _TCD = Math.trunc(($GDP / 15 + _topClass) * $rentEffectT * _topClassP + $TCBase)
 	<<set _TCEmigration = Math.trunc(($topClass - _TCD) * 0.6) + 1,
 	$topClass -= _TCEmigration>>
 	<<if _TCEmigration > 1>>
-		<br>@@.red;<<print _TCEmigration>> Millionaires@@ left your arcology.
+		<br>@@.red;<<print _TCEmigration>> millionaires@@ left your arcology.
 	<<elseif _TCEmigration > 0>>
 		<br>@@.red;One millionaire@@ left your arcology.
 	<</if>>
@@ -935,13 +964,18 @@ This week, rents from $arcologies[0].name came to @@.yellowgreen;<<print cashFor
 <<set _earnings = 0>>
 You own
 <<if $helots > 0>>
-	<<set _earnings += $helots*10>>
-	<<if $Sweatshops > 0>>
-		<<if $Sweatshops*500 <= $helots>>
-			<<set _earnings += $Sweatshops*7000>>
-			<<set _earnings += ($helots-$Sweatshops*500)*10>>
-		<<else>>
-			<<set _earnings += $helots*10>>
+	<<if $helots > Math.trunc((_LSCD / ($slaveProductivity + _slaveProductivity) - _SCD)>>
+		<<set _earnings += Math.trunc((_LSCD / ($slaveProductivity + _slaveProductivity) - _SCD) * 10>>
+		<br>@@.red;more menial slaves than there was work@@, consider selling some. You own
+	<<else>>
+		<<set _earnings += $helots*10>>
+		<<if $Sweatshops > 0>>
+			<<if $Sweatshops*500 <= $helots>>
+				<<set _earnings += $Sweatshops*7000>>
+				<<set _earnings += ($helots-$Sweatshops*500)*10>>
+			<<else>>
+				<<set _earnings += $helots*10>>
+			<</if>>
 		<</if>>
 	<</if>>
 	<<if $helots > 1>> <<print commaNum($helots)>> menial slaves<<if ($menialBioreactors > 0) && ($fuckdolls == 0)>> and<<else>>,<</if>><<else>>one menial slave<<if ($menialBioreactors > 0) && ($fuckdolls == 0)>> and<<else>>,<</if>><</if>>