diff --git a/src/uncategorized/saLiveWithHG.tw b/src/uncategorized/saLiveWithHG.tw
index 02c73dfecc759cf582919ae1fd29a69b8f2137d5..566ba58c518b9cf9a7cc9128010cc1a09289cf4c 100644
--- a/src/uncategorized/saLiveWithHG.tw
+++ b/src/uncategorized/saLiveWithHG.tw
@@ -11,6 +11,97 @@
 
 <<setLocalPronouns $HeadGirl 2>>
 
+/* run this up here so that it affects things better */
+<<if $arcologies[0].FSSlimnessEnthusiast != "unset">>
+	<<set $HGTastes = 1>>
+<<elseif $arcologies[0].FSRepopulationFocus != "unset">>
+	<<set $HGTastes = 4>>
+<<elseif $arcologies[0].FSBodyPurist != "unset">>
+	<<set $HGTastes = 1>>
+<<elseif $arcologies[0].FSDegradationist != "unset">>
+	<<set $HGTastes = 3>>
+<<elseif $arcologies[0].FSAssetExpansionist != "unset">>
+	<<set $HGTastes = 3>>
+<<elseif $arcologies[0].FSTransformationFetishist != "unset">>
+	<<set $HGTastes = 3>>
+<<else>>
+	<<set $HGTastes = 2>>
+<</if>>
+<<set _diet = $slaves[$i].diet>>
+<<if ($arcologies[0].FSRepopulationFocusPregPolicy == 1 || ($arcologies[0].FSRestart == "unset" && $HeadGirl.fetish == "pregnancy")) && canImpreg($slaves[$i], $HeadGirl) && ($dietFertility == 1)>>
+	<<if $slaves[$i].diet != "fertility">>
+		<<set $slaves[$i].diet = "fertility">>
+	<</if>>
+<<elseif ($slaves[$i].weight < 100 && $arcologies[0].FSHedonisticDecadence >= 20) || ($slaves[$i].weight < -10)>>
+	<<if $slaves[$i].diet != "fattening">>
+		<<set $slaves[$i].diet = "fattening">>
+	<</if>>
+<<elseif $slaves[$i].weight > 30 && $arcologies[0].FSHedonisticDecadence == "unset">>
+	<<if $slaves[$i].diet != "restricted">>
+		<<set $slaves[$i].diet = "restricted">>
+	<</if>>
+<<elseif (($slaves[$i].muscles <= 95 && (($arcologies[0].FSPhysicalIdealist > 0 && $arcologies[0].FSPhysicalIdealistLaw == 0) || (($HeadGirl.fetish == "submissive" || $HeadGirl.fetish == "masochist") && $HeadGirl.fetishKnown == 1))) || ($slaves[$i].muscles <= 45 && ($arcologies[0].FSPhysicalIdealist > 0 && $arcologies[0].FSPhysicalIdealistLaw == 1)) || $slaves[$i].muscles <= 5) && !isAmputee($slaves[$i])>>
+	<<if $slaves[$i].diet != "muscle building">>
+		<<set $slaves[$i].diet = "muscle building">>
+	<</if>>
+<<elseif $slaves[$i].balls > 0 && $HeadGirl.fetish == "cumslut" && $HeadGirl.fetishKnown == 1 && $cumProDiet == 1>>
+	<<if $slaves[$i].diet != "cum production">>
+		<<set $slaves[$i].diet = "cum production">>
+	<</if>>
+<<else>>
+	<<if $slaves[$i].diet != "healthy">>
+		<<set $slaves[$i].diet = "healthy">>
+	<</if>>
+<</if>>
+<<set _hormones = $slaves[$i].hormones>>
+<<if $HGSuiteHormones != 0 && $slaves[$i].hormones != 2>>
+	<<set $slaves[$i].hormones = 2>>
+<</if>>
+<<if $HGSuiteDrugs != 0>>
+	<<if ($slaves[$i].health.condition < 60)>>
+		<<set $slaves[$i].curatives = 2>>
+	<</if>>
+	<<if ($slaves[$i].lips <= 20)>>
+		<<set $slaves[$i].drugs = "lip injections">>
+	<<elseif $arcologies[0].FSSlaveProfessionalismResearch == 1 && $HGSuiteEquality != 0 && canImproveIntelligence($slaves[$i])>>
+		<<set $slaves[$i].drugs = "psychostimulants">>
+	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish == "buttslut") && $arcologies[0].FSAssetExpansionistResearch == 1 && $slaves[$i].butt < 18>>
+		<<set $slaves[$i].drugs = "hyper butt injections">>
+	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish == "buttslut") && $arcologies[0].FSAssetExpansionistResearch == 1 && $slaves[$i].butt < 8>>
+		<<set $slaves[$i].drugs = "butt injections">>
+	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish == "cumslut") && $arcologies[0].FSAssetExpansionistResearch == 1 && $slaves[$i].balls < 100 && $slaves[$i].balls > 0 && $slaves[$i].dick > 0>>
+		<<set $slaves[$i].drugs = "hyper testicle enhancement">>
+	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish == "cumslut") && $slaves[$i].balls < 10 && $slaves[$i].balls > 0 && $slaves[$i].dick > 0>>
+		<<set $slaves[$i].drugs = "testicle enhancement">>
+	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish == "masochist" || $HeadGirl.fetish == "submissive") && canImproveHeight($slaves[$i])>>
+		<<set $slaves[$i].drugs = "growth stimulants">>
+	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish == "boobs") && ($slaves[$i].boobs < 8000)>>
+		<<if $arcologies[0].FSAssetExpansionistResearch == 1>>
+			<<set $slaves[$i].drugs = "hyper breast injections">>
+		<<else>>
+			<<set $slaves[$i].drugs = "breast injections">>
+		<</if>>
+	<<elseif canImpreg($slaves[$i], $HeadGirl) && $arcologies[0].FSRestart == "unset" && ($HGTastes == 4 || $HeadGirl.fetish == "pregnancy" || $arcologies[0].FSRepopulationFocusPregPolicy == 1)>>
+		<<set $slaves[$i].drugs = "fertility drugs">>
+	<<elseif $HGTastes > 1>>
+		<<if ($slaves[$i].lips <= 70)>>
+			<<set $slaves[$i].drugs = "lip injections">>
+		<<elseif ($slaves[$i].butt < $slaves[$i].boobs/1000)>>
+			<<set $slaves[$i].drugs = "butt injections">>
+		<<else>>
+			<<set $slaves[$i].drugs = "breast injections">>
+		<</if>>
+	<<else>>
+		<<set $slaves[$i].drugs = "no drugs">>
+	<</if>>
+	<<if ($slaves[$i].health.condition < 100)>>
+		<<set $slaves[$i].curatives = 2>>
+	<</if>>
+<</if>>
+<<if $slaves[$i].rules.living != "luxurious">>
+	<<set $slaves[$i].rules.living = "luxurious">>
+<</if>>
+
 <<if $slaves[$i].devotion > 20>>
 	<<if $HGSlaveSuccess == 1>>
 		looks after your Head Girl <<= SlaveFullName($HeadGirl)>> domestically and sexually, freeing _him2 to devote more of _his2 time to looking after your other slaves.
@@ -337,11 +428,33 @@
 			$HeadGirl.slaveName knows better than to even consider getting knocked up by $slaves[$i].slaveName.
 		<</if>>
 	<<elseif $arcologies[0].FSRepopulationFocusPregPolicy == 1 && canImpreg($slaves[$i], $HeadGirl)>>
-		$HeadGirl.slaveName wastes no time in chasing the currents trend and hurries to @@.lime;impregnate@@ $slaves[$i].slaveName.
+		$HeadGirl.slaveName wastes no time in chasing the current trend and hurries to @@.lime;impregnate@@ $slaves[$i].slaveName.
 		<<= knockMeUp($slaves[$i], 100, 2, $HeadGirl.ID, 1)>>
-	<<elseif $HeadGirl.fetish != "pregnancy" && $arcologies[0].FSRepopulationFocusPregPolicy == 0 && $slaves[$i].pregKnown == 1 && $slaves[$i].preg < 30 && $arcologies[0].FSRepopulationFocus == "unset" && $HGSuiteDrugs == 1>>
-		$HeadGirl.slaveName promptly aborts the child growing in $slaves[$i].slaveName since _he2 prefers _his2 <<= $girl>>s not harboring someone else's child or loaded down with _his2 own unwanted spawn.
-		<<run TerminatePregnancy($slaves[$i])>>
+	<<elseif $slaves[$i].pregKnown == 1>>
+		<<if $slaves[$i].breedingMark == 1>>
+			Since $slaves[$i].slaveName is marked as a breeding slave, $HeadGirl.slaveName feels it is _his duty to keep $his pregnancy safe.
+		<<elseif $slaves[$i].pregSource == -1>>
+			Since $slaves[$i].slaveName is bearing your child<<if $slaves[$i].pregType > 1>>ren<</if>>, $HeadGirl.slaveName feels _he has been tasked with keeping $his pregnancy safe.
+		<<elseif $HeadGirl.fetish == "pregnancy">>
+			$HeadGirl.slaveName
+			<<if $HeadGirl.fetishKnown == 1>>
+				<<if $slaves[$i].bellyPreg > 500>>
+					enjoys the swell of $slaves[$i].slaveName's baby bump, giving _him plenty of reason to keep $his pregnancy.
+				<<else>>
+					keeps $slaves[$i].slaveName pregnant so that _he may savor $his growth.
+				<</if>>
+			<<else>>
+				pays an unusual amount of attention to $slaves[$i].slaveName's pregnancy.
+			<</if>>
+		<<elseif $arcologies[0].FSRepopulationFocusPregPolicy == 0 && $arcologies[0].FSRepopulationFocus == "unset" && $HGSuiteDrugs == 1>>
+			<<if $slaves[$i].preg > $slaves[$i].pregData.normalBirth-2 && $slaves[$i].preg > $slaves[$i].pregData.minLiveBirth && $slaves[$i].broodmother === 0 && $slaves[$i].labor === 0>>
+				$HeadGirl.slaveName has no interest in a slut stuffed full of unwanted spawn, so _he promptly doses slaves[$i].slaveName with labor inducing agents to get $him back in fucking shape.
+				<<set $slaves[$i].labor = 1, $slaves[$i].induce = 1, $birthee = 1>>
+			<<else>>
+				$HeadGirl.slaveName promptly aborts the child growing in $slaves[$i].slaveName since _he2 prefers _his2 <<= $girl>>s not harboring someone else's child or loaded down with _his2 own unwanted spawn.
+				<<run TerminatePregnancy($slaves[$i])>>
+			<</if>>
+		<</if>>
 	<</if>>
 <</if>>
 
@@ -795,19 +908,24 @@
 	<</if>>
 <</if>>
 
-<<if ($slaves[$i].weight < 100 && $arcologies[0].FSHedonisticDecadence >= 20) || ($slaves[$i].weight < -10)>>
+<<if ($arcologies[0].FSRepopulationFocusPregPolicy == 1 || ($arcologies[0].FSRestart == "unset" && $HeadGirl.fetish == "pregnancy")) && canImpreg($slaves[$i], $HeadGirl) && ($dietFertility == 1)>>
+	$HeadGirl.slaveName thinks $slaves[$i].slaveName could do with a bigger bump <<if $arcologies[0].FSRepopulationFocusPregPolicy>>since pregnant <<= $girl>>s are all the rage in your arcology <</if>>
+	<<if _diet != "fertility">>
+		and assigns $him a diet to promote ovulation.
+	<<else>>
+		and keeps $him on $his fertility diet.
+	<</if>>
+<<elseif ($slaves[$i].weight < 100 && $arcologies[0].FSHedonisticDecadence >= 20) || ($slaves[$i].weight < -10)>>
 	$HeadGirl.slaveName thinks $slaves[$i].slaveName could use a little extra weight <<if $arcologies[0].FSHedonisticDecadence >= 20>>since plump <<= $girl>>s are all the rage in your arcology <</if>>
-	<<if $slaves[$i].diet != "fattening">>
+	<<if _diet != "fattening">>
 		and assigns $him a diet to fatten $him up.
-		<<set $slaves[$i].diet = "fattening">>
 	<<else>>
 		and keeps $him on $his fattening diet.
 	<</if>>
 <<elseif $slaves[$i].weight > 30 && $arcologies[0].FSHedonisticDecadence == "unset">>
 	$HeadGirl.slaveName thinks $slaves[$i].slaveName is a little too porky
-	<<if $slaves[$i].diet != "restricted">>
+	<<if _diet != "restricted">>
 		and puts $him on a diet.
-		<<set $slaves[$i].diet = "restricted">>
 	<<else>>
 		and keeps $him on $his diet.
 	<</if>>
@@ -822,106 +940,68 @@
 	<<else>>
 		could use a bit of muscle
 	<</if>>
-	<<if $slaves[$i].diet != "muscle building">>
+	<<if _diet != "muscle building">>
 		and makes $him work out hard.
-		<<set $slaves[$i].diet = "muscle building">>
 	<<else>>
 		and keeps $him working out.
 	<</if>>
 <<elseif $slaves[$i].balls > 0 && $HeadGirl.fetish == "cumslut" && $HeadGirl.fetishKnown == 1 && $cumProDiet == 1>>
 	$HeadGirl.slaveName loves cum, so _he2
-	<<if $slaves[$i].diet != "cum production">>
+	<<if _diet != "cum production">>
 		puts
-		<<set $slaves[$i].diet = "cum production">>
 	<<else>>
 		keeps
 	<</if>>
 	$slaves[$i].slaveName on a diet designed to make $him cum harder and stronger.
 <<else>>
 	$HeadGirl.slaveName thinks $slaves[$i].slaveName is fine as is
-	<<if $slaves[$i].diet != "healthy">>
+	<<if _diet != "healthy">>
 		and puts $him on a normal diet.
-		<<set $slaves[$i].diet = "healthy">>
 	<<else>>
 		and keeps $him on $his healthy diet.
 	<</if>>
 <</if>>
 
-<<if $HGSuiteHormones != 0 && $slaves[$i].hormones != 2>>
+<<if $HGSuiteHormones != 0 && _hormones != 2>>
 	$HeadGirl.slaveName puts $slaves[$i].slaveName on intensive female hormones, since _he2 expects $him to act as the submissive, feminine partner.
-	<<set $slaves[$i].hormones = 2>>
-<</if>>
-
-<<if $arcologies[0].FSSlimnessEnthusiast != "unset">>
-	<<set $HGTastes = 1>>
-<<elseif $arcologies[0].FSRepopulationFocus != "unset">>
-	<<set $HGTastes = 4>>
-<<elseif $arcologies[0].FSBodyPurist != "unset">>
-	<<set $HGTastes = 1>>
-<<elseif $arcologies[0].FSDegradationist != "unset">>
-	<<set $HGTastes = 3>>
-<<elseif $arcologies[0].FSAssetExpansionist != "unset">>
-	<<set $HGTastes = 3>>
-<<elseif $arcologies[0].FSTransformationFetishist != "unset">>
-	<<set $HGTastes = 3>>
-<<else>>
-	<<set $HGTastes = 2>>
 <</if>>
 
 <<if $HGSuiteDrugs != 0>>
 	<<if ($slaves[$i].health.condition < 60)>>
 		$HeadGirl.slaveName gives $slaves[$i].slaveName curatives, since _he2 wants a shiningly healthy living partner.
-		<<set $slaves[$i].curatives = 2>>
 	<</if>>
 	<<if ($slaves[$i].lips <= 20)>>
 		$HeadGirl.slaveName gives $slaves[$i].slaveName lip injections, since _he2 wants to get oral from plump, luscious lips.
-		<<set $slaves[$i].drugs = "lip injections">>
+	<<elseif $arcologies[0].FSSlaveProfessionalismResearch == 1 && $HGSuiteEquality != 0 && canImproveIntelligence($slaves[$i])>>
+		$HeadGirl.slaveName gives $slaves[$i].slaveName psychostimulants, since $him being smarter will benefit them both when $he is in charge.
 	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish == "buttslut") && $arcologies[0].FSAssetExpansionistResearch == 1 && $slaves[$i].butt < 18>>
 		$HeadGirl.slaveName gives $slaves[$i].slaveName hyper ass injections, since _he2 never once thought it possible to fuck an ass as big as _he2 is.
-		<<set $slaves[$i].drugs = "hyper butt injections">>
 	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish == "buttslut") && $arcologies[0].FSAssetExpansionistResearch == 1 && $slaves[$i].butt < 8>>
 		$HeadGirl.slaveName gives $slaves[$i].slaveName ass injections, since _he2 likes comfortable padding as _he2 fucks a butt.
-		<<set $slaves[$i].drugs = "butt injections">>
 	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish == "cumslut") && $arcologies[0].FSAssetExpansionistResearch == 1 && $slaves[$i].balls < 100 && $slaves[$i].balls > 0 && $slaves[$i].dick > 0>>
 		$HeadGirl.slaveName gives $slaves[$i].slaveName hyper testicle injections, since _he2 wants to swim in a river of cum.
-		<<set $slaves[$i].drugs = "hyper testicle enhancement">>
 	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish == "cumslut") && $slaves[$i].balls < 10 && $slaves[$i].balls > 0 && $slaves[$i].dick > 0>>
 		$HeadGirl.slaveName gives $slaves[$i].slaveName testicle injections, since _he2 wants $slaves[$i].slaveName shooting bigger loads.
-		<<set $slaves[$i].drugs = "testicle enhancement">>
 	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish == "masochist" || $HeadGirl.fetish == "submissive") && canImproveHeight($slaves[$i])>>
 		$HeadGirl.slaveName has a subconscious need to be hurt by the biggest, strongest $girl possible, so $he gives $slaves[$i].slaveName injections of growth stimulants to make $him grow taller.
-		<<set $slaves[$i].drugs = "growth stimulants">>
 	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish == "boobs") && ($slaves[$i].boobs < 8000)>>
 		$HeadGirl.slaveName gives $slaves[$i].slaveName <<if $arcologies[0].FSAssetExpansionistResearch == 1>>hyper <</if>> tit injections, since as far as _he2's concerned there's no such thing as too much boob.
-		<<if $arcologies[0].FSAssetExpansionistResearch == 1>>
-			<<set $slaves[$i].drugs = "hyper breast injections">>
-		<<else>>
-			<<set $slaves[$i].drugs = "breast injections">>
-		<</if>>
 	<<elseif ($HGTastes == 4 || $HeadGirl.fetish == "pregnancy") && canImpreg($slaves[$i], $HeadGirl) && $arcologies[0].FSRestart == "unset">>
 		$HeadGirl.slaveName gives $slaves[$i].slaveName fertility enhancers, since _he2 wants to see $slaves[$i].slaveName heavy with child.
-		<<set $slaves[$i].drugs = "fertility drugs">>
 	<<elseif $arcologies[0].FSRepopulationFocusPregPolicy == 1 && canImpreg($slaves[$i], $HeadGirl)>>
 		$HeadGirl.slaveName gives $slaves[$i].slaveName fertility enhancers, since pregnancy is popular and _he2 wants $slaves[$i].slaveName to look hot.
-		<<set $slaves[$i].drugs = "fertility drugs">>
 	<<elseif $HGTastes > 1>>
 		<<if ($slaves[$i].lips <= 70)>>
 			$HeadGirl.slaveName gives $slaves[$i].slaveName lip injections, since _he2 thinks $slaves[$i].slaveName should have lips so big $he can barely speak.
-			<<set $slaves[$i].drugs = "lip injections">>
 		<<elseif ($slaves[$i].butt < $slaves[$i].boobs/1000)>>
 			$HeadGirl.slaveName gives $slaves[$i].slaveName ass injections, since _he2 loves curves and thinks $slaves[$i].slaveName's butt needs the most work.
-			<<set $slaves[$i].drugs = "butt injections">>
 		<<else>>
 			$HeadGirl.slaveName gives $slaves[$i].slaveName boob injections, since _he2 loves curves and thinks $slaves[$i].slaveName's tits need the most work.
-			<<set $slaves[$i].drugs = "breast injections">>
 		<</if>>
-	<<else>>
-		<<set $slaves[$i].drugs = "no drugs">>
 	<</if>>
 <<else>>
 	<<if ($slaves[$i].health.condition < 100)>>
 		$HeadGirl.slaveName gives $slaves[$i].slaveName curatives, since _his2 assistant could be healthier.
-		<<set $slaves[$i].curatives = 2>>
 	<</if>>
 <</if>>
 
@@ -1005,10 +1085,6 @@
 	<</if>>
 <</if>>
 
-<<if $slaves[$i].rules.living != "luxurious">>
-	<<set $slaves[$i].rules.living = "luxurious">>
-<</if>>
-
 <<if ($HeadGirl.relationshipTarget == $slaves[$i].ID)>>
 	<<set ($HeadGirl.relationship = $slaves[$i].relationship)>>
 <</if>>