From adb04fe21e289001cc128b44f237221ec44599c6 Mon Sep 17 00:00:00 2001
From: Pregmodder <pregmodder@gmail.com>
Date: Thu, 25 Jan 2018 12:02:13 -0500
Subject: [PATCH] Finished $seePreg work

---
 devNotes/VersionChangeLog-Premod+LoliMod.txt  | 13 ++-
 src/events/intro/introSummary.tw              | 14 ++-
 src/init/storyInit.tw                         |  1 +
 src/uncategorized/BackwardsCompatibility.tw   |  3 -
 src/uncategorized/REroyalblood.tw             | 84 ++++++++++--------
 src/uncategorized/hgSelect.tw                 |  2 +
 src/uncategorized/randomNonindividualEvent.tw | 85 +++++++++++--------
 src/uncategorized/reBoomerang.tw              |  2 +-
 src/uncategorized/reFullBed.tw                |  2 +
 src/uncategorized/reRelativeRecruiter.tw      | 12 +--
 src/uncategorized/recruiterSelect.tw          |  2 +-
 src/uncategorized/remoteSurgery.tw            |  2 +-
 src/uncategorized/saLiveWithHG.tw             | 68 ++++++++-------
 src/uncategorized/saLongTermEffects.tw        |  2 +
 src/uncategorized/seCoursing.tw               |  4 +-
 src/uncategorized/seRaiding.tw                | 22 ++---
 src/uncategorized/sellSlave.tw                | 10 ++-
 src/uncategorized/servantsQuarters.tw         |  2 +-
 src/uncategorized/slaveInteract.tw            | 29 ++++---
 src/uncategorized/slaveShelter.tw             |  7 +-
 src/uncategorized/tfsFarmUpgrade.tw           | 16 ++--
 src/uncategorized/universalRules.tw           |  2 +-
 src/utility/miscWidgets.tw                    | 76 +++++++++--------
 23 files changed, 265 insertions(+), 195 deletions(-)

diff --git a/devNotes/VersionChangeLog-Premod+LoliMod.txt b/devNotes/VersionChangeLog-Premod+LoliMod.txt
index f886520ac93..680dfce7f52 100644
--- a/devNotes/VersionChangeLog-Premod+LoliMod.txt
+++ b/devNotes/VersionChangeLog-Premod+LoliMod.txt
@@ -2,8 +2,17 @@
 
 0.10.7.0/1
 
-1/23/18
-	
+1/25/18
+
+	293
+	-added a see pregnancy toggle to game options
+	-crimeanon's secEx fixes
+
+1/24/18
+
+	292
+	-conitnued implementation of $seePreg
+
 	291
 	-partial implementation of $seePreg
 
diff --git a/src/events/intro/introSummary.tw b/src/events/intro/introSummary.tw
index ef6201f5f99..4bbab0f2806 100644
--- a/src/events/intro/introSummary.tw
+++ b/src/events/intro/introSummary.tw
@@ -337,9 +337,18 @@ of the slave girls will have dicks.
 Should you be able to surgically attach a penis to your female slaves and starting girls?
 <<if $makeDicks != 0>>[[No|Intro Summary][$makeDicks = 0]]<<else>>No<</if>>
 | <<if $makeDicks != 1>>[[Yes|Intro Summary][$makeDicks = 1]]<<else>>Yes<</if>>
+<</if>>
+
 <br>
+<<if $seePreg == 1>>
+	Pregnancy related content is ''enabled''.
+	[[Disable|Intro Summary][$seePreg = 0]]
+<<else>>
+	Most pregnancy related content is ''disabled''.
+	[[Enable|Intro Summary][$seePreg = 1]]
 <</if>>
 
+<br>
 <<if $seeHyperPreg == 1>>
 	Extreme pregnancy content like broodmothers is ''enabled''.
 	[[Disable|Intro Summary][$seeHyperPreg = 0]]
@@ -357,11 +366,8 @@ Should you be able to surgically attach a penis to your female slaves and starti
 	[[Enable|Intro Summary][$seeExtreme = 1]]
 <</if>>
 
-&nbsp;&nbsp;&nbsp;&nbsp;
-
-<br>
 <<if $seeDicks != 0>>
-&nbsp;&nbsp;&nbsp;&nbsp;
+<br>
 <<if $seeCircumcision == 1>>
 	Circumcision is ''enabled''.
 	[[Disable|Intro Summary][$seeCircumcision = 0]]
diff --git a/src/init/storyInit.tw b/src/init/storyInit.tw
index ed6a5887ecd..9d61598c6e3 100644
--- a/src/init/storyInit.tw
+++ b/src/init/storyInit.tw
@@ -254,6 +254,7 @@ You should have received a copy of the GNU General Public License along with thi
 <<set $useSummaryCache = true>>
 <<set $seeExtreme = 0>>
 <<set $seeHyperPreg = 0>>
+<<set $seePreg = 1>>
 <<set $seeCircumcision = 1>>
 <<set $seeAge = 1>>
 <<set $seeDicks = 25>>
diff --git a/src/uncategorized/BackwardsCompatibility.tw b/src/uncategorized/BackwardsCompatibility.tw
index 48b70303956..87e084cad46 100644
--- a/src/uncategorized/BackwardsCompatibility.tw
+++ b/src/uncategorized/BackwardsCompatibility.tw
@@ -443,9 +443,6 @@
 <<if ndef $seePreg>>
 	<<set $seePreg = 1>>
 <</if>>
-<<if $seePreg == 0>>
-	<<set $seePreg = 1>>
-<</if>>
 <<if ndef $retainCareer>>
 	<<set $retainCareer = 1>>
 <</if>>
diff --git a/src/uncategorized/REroyalblood.tw b/src/uncategorized/REroyalblood.tw
index 5218a31b542..93375421212 100644
--- a/src/uncategorized/REroyalblood.tw
+++ b/src/uncategorized/REroyalblood.tw
@@ -546,7 +546,7 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
 		<br><br>
 		The man seems somewhat surprised that you want to purchase the Queen, given the breadth and quality of his other merchandise available, but not unduly so. Soon enough negotiations begin and a short time later an equitable price is agreed upon. Your new peer even throws in a slight discount, in exchange for allowing him to use the Queen himself for the remainder of the night. 
 		<br><br>
-		When the Queen arrives at your penthouse, she seems almost relieved and almost basks in the opulence of her new surroundings. Yet, it seems likely that her relief has more to do with saving her from a lifetime of gang rape at the mercy of her former subjects, than it does the familiar luxury. She submits to biometric scanning obediently and without fuss, during which you discover to her surprise that she is pregnant. Since she hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice she cradles her ever so slightly rounded stomach protectively nonetheless.
+		When the Queen arrives at your penthouse, she seems almost relieved and almost basks in the opulence of her new surroundings. Yet, it seems likely that her relief has more to do with saving her from a lifetime of gang rape at the mercy of her former subjects, than it does the familiar luxury. She submits to biometric scanning obediently and without fuss<<if $seePreg != 0>>, during which you discover to her surprise that she is pregnant. Since she hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice she cradles her ever so slightly rounded stomach protectively nonetheless<</if>>.
 		<br><br>
 		<<set $cash -= 15000>>
 		<<set $activeSlaveOneTimeMinAge = ($fertilityAge+2)>>
@@ -571,11 +571,13 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
 		<<set $activeSlave.foreskin = 0>>
 		<<set $activeSlave.balls = 0>>
 		<<set $activeSlave.ovaries = 1>>
-		<<set $activeSlave.preg = 7>>
-		<<set $activeSlave.pregType = 1>>
-		<<set $activeSlave.pregWeek = 7>>
-		<<set $activeSlave.pregKnown = 1>>
-		<<SetBellySize $activeSlave>>
+		<<if $seePreg != 0>>
+			<<set $activeSlave.preg = 7>>
+			<<set $activeSlave.pregType = 1>>
+			<<set $activeSlave.pregWeek = 7>>
+			<<set $activeSlave.pregKnown = 1>>
+			<<SetBellySize $activeSlave>>
+		<</if>>
 		<<set $activeSlave.pubicHStyle = "waxed">>
 		<<set $activeSlave.shoulders = random(-1,1)>>
 		<<set $activeSlave.hips = 1>>
@@ -604,7 +606,7 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
 	<<replace "#result">>
 		Seizing a tablet, you quickly send a message to The Colonel. After dark, a flight of VTOLs land in the new arcology laden with troops. When they take off again they have the Queen aboard and make a direct course towards your waiting penthouse.
 		<br><br>
-		When the Queen arrives at your penthouse, she seems almost relieved and almost basks in the opulence of her new surroundings. Yet, it seems likely that her relief has more to do with saving her from a lifetime of gang rape at the mercy of her former subjects, than it does the familiar luxury. She submits to biometric scanning obediently and without fuss, during which you discover to her surprise that she is pregnant. Since she hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice she cradles her ever so slightly rounded stomach protectively nonetheless.
+		When the Queen arrives at your penthouse, she seems almost relieved and almost basks in the opulence of her new surroundings. Yet, it seems likely that her relief has more to do with saving her from a lifetime of gang rape at the mercy of her former subjects, than it does the familiar luxury. She submits to biometric scanning obediently and without fuss<<if $seePreg != 0>>, during which you discover to her surprise that she is pregnant. Since she hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice she cradles her ever so slightly rounded stomach protectively nonetheless<</if>>.
 		<br><br>
 		<<set $arcologies[0].prosperity -= 12>>
 		<<set $rep -= 12000>>
@@ -630,11 +632,13 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
 		<<set $activeSlave.foreskin = 0>>
 		<<set $activeSlave.balls = 0>>
 		<<set $activeSlave.ovaries = 1>>
-		<<set $activeSlave.preg = 7>>
-		<<set $activeSlave.pregType = 1>>
-		<<set $activeSlave.pregWeek = 7>>
-		<<set $activeSlave.pregKnown = 1>>
-		<<SetBellySize $activeSlave>>
+		<<if $seePreg != 0>>
+			<<set $activeSlave.preg = 7>>
+			<<set $activeSlave.pregType = 1>>
+			<<set $activeSlave.pregWeek = 7>>
+			<<set $activeSlave.pregKnown = 1>>
+			<<SetBellySize $activeSlave>>
+		<</if>>
 		<<set $activeSlave.pubicHStyle = "waxed">>
 		<<set $activeSlave.shoulders = random(-1,1)>>
 		<<set $activeSlave.hips = 1>>
@@ -661,7 +665,7 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
 		<<set $cash -= 500000>>
 		You take a tablet and transmit a communication request to the new arcology owner with your intent. Once his shock wears off, he readily accepts with little need for negotiation. Soon, a flight of VTOLs land in the new arcology laden with goods. When they take off again they have the princess and the Queen who is resigned to her fate, clad in chains then bound face to face in a forced embrace.
 		<br><br>
-		Eventually they both arrive in your penthouse. The princess is flushed with embarrassment in her compromising position, struggling to maintain a facade of poise and grace. The slightest trembling of her balled up fists, the minute tremors that mar her immaculate posture, her inability to meet your eyes with her own, all signs that she is still a scared girl despite all her royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to her in her new life in the penthouse, it does stand in stark contrast to her more common slave peers. The Queen, on the other hand, seems almost relieved and basks in the opulence of her new surroundings. Yet, it seems likely that her relief has more to do with saving her from a lifetime of gang rape at the mercy of her former subjects, than it does the familiar luxury. She submits to biometric scanning obediently and without fuss, during which you discover to her surprise that she is pregnant. Since she hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice she cradles her ever so slightly rounded stomach protectively nonetheless.
+		Eventually they both arrive in your penthouse. The princess is flushed with embarrassment in her compromising position, struggling to maintain a facade of poise and grace. The slightest trembling of her balled up fists, the minute tremors that mar her immaculate posture, her inability to meet your eyes with her own, all signs that she is still a scared girl despite all her royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to her in her new life in the penthouse, it does stand in stark contrast to her more common slave peers. The Queen, on the other hand, seems almost relieved and basks in the opulence of her new surroundings. Yet, it seems likely that her relief has more to do with saving her from a lifetime of gang rape at the mercy of her former subjects, than it does the familiar luxury. She submits to biometric scanning obediently and without fuss<<if $seePreg != 0>>, during which you discover to her surprise that she is pregnant. Since she hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice she cradles her ever so slightly rounded stomach protectively nonetheless<</if>>.
 		/* princess */
 		<<set $activeSlaveOneTimeMinAge = 16>>
 		<<set $activeSlaveOneTimeMaxAge = 19>>
@@ -726,11 +730,13 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
 		<<set $activeSlave.boobs = $activeSlave.boobs + random(3,10)*100>>
 		<<set $activeSlave.vagina = 2>>
 		<<set $activeSlave.scrotum = 0>>
-		<<set $activeSlave.preg = 7>>
-		<<set $activeSlave.pregType = 1>>
-		<<set $activeSlave.pregWeek = 7>>
-		<<set $activeSlave.pregKnown = 1>>
-		<<SetBellySize $activeSlave>>
+		<<if $seePreg != 0>>
+			<<set $activeSlave.preg = 7>>
+			<<set $activeSlave.pregType = 1>>
+			<<set $activeSlave.pregWeek = 7>>
+			<<set $activeSlave.pregKnown = 1>>
+			<<SetBellySize $activeSlave>>
+		<</if>>
 		<<set $activeSlave.pubicHStyle = "waxed">>
 		<<set $activeSlave.hips = 1>>
 		<<set $activeSlave.butt = random(1,4)>>
@@ -761,7 +767,7 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
 	<<replace "#result">>
 	Seizing a tablet, you quickly send a message to The Colonel. After dark, a flight of VTOLs land in the new arcology laden with troops. When they take off again they have the Princes and Queen aboard, making a direct course towards your waiting penthouse.
 		<br><br>
-		Eventually they both arrive in your penthouse. The princess is flushed with embarrassment in her compromising position, struggling to maintain a facade of poise and grace. The slightest trembling of her balled up fists, the minute tremors that mar her immaculate posture, her inability to meet your eyes with her own, all signs that she is still a scared girl despite all her royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to her in her new life in the penthouse, it does stand in stark contrast to her more common slave peers. The Queen, on the other hand, seems almost relieved and basks in the opulence of her new surroundings. Yet, it seems likely that her relief has more to do with saving her from a lifetime of gang rape at the mercy of her former subjects, than it does the familiar luxury. She submits to biometric scanning obediently and without fuss, during which you discover to her surprise that she is pregnant. Since she hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice she cradles her ever so slightly rounded stomach protectively nonetheless.
+		Eventually they both arrive in your penthouse. The princess is flushed with embarrassment in her compromising position, struggling to maintain a facade of poise and grace. The slightest trembling of her balled up fists, the minute tremors that mar her immaculate posture, her inability to meet your eyes with her own, all signs that she is still a scared girl despite all her royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to her in her new life in the penthouse, it does stand in stark contrast to her more common slave peers. The Queen, on the other hand, seems almost relieved and basks in the opulence of her new surroundings. Yet, it seems likely that her relief has more to do with saving her from a lifetime of gang rape at the mercy of her former subjects, than it does the familiar luxury. She submits to biometric scanning obediently and without fuss<<if $seePreg != 0>>, during which you discover to her surprise that she is pregnant. Since she hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice she cradles her ever so slightly rounded stomach protectively nonetheless<</if>>.
 		<<set $arcologies[0].prosperity -= 13>>
 		<<set $rep -= 13000>>
 		/* princess */
@@ -828,11 +834,13 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
 		<<set $activeSlave.boobs = $activeSlave.boobs + random(3,10)*100>>
 		<<set $activeSlave.vagina = 2>>
 		<<set $activeSlave.scrotum = 0>>
-		<<set $activeSlave.preg = 7>>
-		<<set $activeSlave.pregType = 1>>
-		<<set $activeSlave.pregWeek = 7>>
-		<<set $activeSlave.pregKnown = 1>>
-		<<SetBellySize $activeSlave>>
+		<<if $seePreg != 0>>
+			<<set $activeSlave.preg = 7>>
+			<<set $activeSlave.pregType = 1>>
+			<<set $activeSlave.pregWeek = 7>>
+			<<set $activeSlave.pregKnown = 1>>
+			<<SetBellySize $activeSlave>>
+		<</if>>
 		<<set $activeSlave.pubicHStyle = "waxed">>
 		<<set $activeSlave.hips = 1>>
 		<<set $activeSlave.butt = random(1,4)>>
@@ -862,7 +870,7 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
 		<<set $cash -= 2500000>>
 		You take a tablet and transmit a communication request to the new arcology owner with your intent. Once his shock wears off, he readily accepts with little need for negotiation. Soon, a flight of VTOLs land in the new arcology laden with goods. When they take off again they have the prince and princess, clad in chains and bound face to face in a forced embrace, the Queen, resigned to her fate and a gaggle of terrified court ladies.
 		<br><br>
-		Eventually they all arrive in your penthouse. The prince and princess are flushed with embarrassment in their compromising position. The former prince is beside himself with rage, but seems to be holding himself back for his little sister's sake, while she struggles to maintain a facade of poise and grace. The slightest trembling of her balled up fists, the minute tremors that mar her immaculate posture, her inability to meet your eyes with her own, all signs that she is still a scared girl despite all her royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to her in her new life in the penthouse, it does stand in stark contrast to her more common slave peers. However, the prince's submission to life as a slave is another question entirely. The Queen, on the other hand, seems almost relieved and basks in the opulence of her new surroundings. Yet, it seems likely that her relief has more to do with saving her from a lifetime of gang rape at the mercy of her former subjects, than it does the familiar luxury. She submits to biometric scanning obediently and without fuss, during which you discover to her surprise that she is pregnant. Since she hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice she cradles her ever so slightly rounded stomach protectively nonetheless. Lastly, the ladies seem comforted by the opulence of their new surroundings. Though they still retain much of their aristocratic arrogance, they each submit to biometric scanning with relative obedience. It seems likely that their obedience is borne out of a delusional rationalization that enslavement by one wealthy master is better than enslavement by the unwashed masses they once lorded over.
+		Eventually they all arrive in your penthouse. The prince and princess are flushed with embarrassment in their compromising position. The former prince is beside himself with rage, but seems to be holding himself back for his little sister's sake, while she struggles to maintain a facade of poise and grace. The slightest trembling of her balled up fists, the minute tremors that mar her immaculate posture, her inability to meet your eyes with her own, all signs that she is still a scared girl despite all her royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to her in her new life in the penthouse, it does stand in stark contrast to her more common slave peers. However, the prince's submission to life as a slave is another question entirely. The Queen, on the other hand, seems almost relieved and basks in the opulence of her new surroundings. Yet, it seems likely that her relief has more to do with saving her from a lifetime of gang rape at the mercy of her former subjects, than it does the familiar luxury. She submits to biometric scanning obediently and without fuss<<if $seePreg != 0>>, during which you discover to her surprise that she is pregnant. Since she hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice she cradles her ever so slightly rounded stomach protectively nonetheless<</if>>. Lastly, the ladies seem comforted by the opulence of their new surroundings. Though they still retain much of their aristocratic arrogance, they each submit to biometric scanning with relative obedience. It seems likely that their obedience is borne out of a delusional rationalization that enslavement by one wealthy master is better than enslavement by the unwashed masses they once lorded over.
 		/* princess */
 		<<set $activeSlaveOneTimeMinAge = 16>>
 		<<set $activeSlaveOneTimeMaxAge = 19>>
@@ -977,11 +985,13 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
 		<<set $activeSlave.balls = 0>>
 		<<set $activeSlave.scrotum = 0>>
 		<<set $activeSlave.ovaries = 1>>
-		<<set $activeSlave.preg = 7>>
-		<<set $activeSlave.pregType = 1>>
-		<<set $activeSlave.pregWeek = 7>>
-		<<set $activeSlave.pregKnown = 1>>
-		<<SetBellySize $activeSlave>>
+		<<if $seePreg != 0>>
+			<<set $activeSlave.preg = 7>>
+			<<set $activeSlave.pregType = 1>>
+			<<set $activeSlave.pregWeek = 7>>
+			<<set $activeSlave.pregKnown = 1>>
+			<<SetBellySize $activeSlave>>
+		<</if>>
 		<<set $activeSlave.pubicHStyle = "waxed">>
 		<<set $activeSlave.shoulders = random(-1,1)>>
 		<<set $activeSlave.hips = 1>>
@@ -1053,7 +1063,7 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
 		<<set _loot = random(10,300)*100>>
 		Seizing a tablet, you quickly send a message to The Colonel. After dark, a flight of VTOLs land in the new arcology laden with troops. When they take off again they have the prince and princess, clad in chains and bound face to face in a forced embrace, the Queen, resigned to her fate, a gaggle of terrified court ladies and as much loot as they could carry.
 		<br><br>
-		Eventually they all arrive in your penthouse. The prince and princess are flushed with embarrassment in their compromising position. The former prince is beside himself with rage, but seems to be holding himself back for his little sister's sake, while she struggles to maintain a facade of poise and grace. The slightest trembling of her balled up fists, the minute tremors that mar her immaculate posture, her inability to meet your eyes with her own, all signs that she is still a scared girl despite all her royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to her in her new life in the penthouse, it does stand in stark contrast to her more common slave peers. However, the prince's submission to life as a slave is another question entirely. The Queen, on the other hand, seems almost relieved and basks in the opulence of her new surroundings. Yet, it seems likely that her relief has more to do with saving her from a lifetime of gang rape at the mercy of her former subjects, than it does the familiar luxury. She submits to biometric scanning obediently and without fuss, during which you discover to her surprise that she is pregnant. Since she hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice she cradles her ever so slightly rounded stomach protectively nonetheless. Lastly, the ladies seem comforted by the opulence of their new surroundings. Though they still retain much of their aristocratic arrogance, they each submit to biometric scanning with relative obedience. It seems likely that their obedience is borne out of a delusional rationalization that enslavement by one wealthy master is better than enslavement by the unwashed masses they once lorded over. You also scored @@.yellowgreen;<<print cashFormat(_loot)>>@@ in valuables from the raid.
+		Eventually they all arrive in your penthouse. The prince and princess are flushed with embarrassment in their compromising position. The former prince is beside himself with rage, but seems to be holding himself back for his little sister's sake, while she struggles to maintain a facade of poise and grace. The slightest trembling of her balled up fists, the minute tremors that mar her immaculate posture, her inability to meet your eyes with her own, all signs that she is still a scared girl despite all her royal trappings. Nonetheless, though the princess's court training is unlikely to be very beneficial to her in her new life in the penthouse, it does stand in stark contrast to her more common slave peers. However, the prince's submission to life as a slave is another question entirely. The Queen, on the other hand, seems almost relieved and basks in the opulence of her new surroundings. Yet, it seems likely that her relief has more to do with saving her from a lifetime of gang rape at the mercy of her former subjects, than it does the familiar luxury. She submits to biometric scanning obediently and without fuss<<if $seePreg != 0>>, during which you discover to her surprise that she is pregnant. Since she hasn't begun to show yet, it's unclear whether the child is the former King's or the new arcology owner's. You don't have the means to discern the father of the child, but you notice she cradles her ever so slightly rounded stomach protectively nonetheless<</if>>. Lastly, the ladies seem comforted by the opulence of their new surroundings. Though they still retain much of their aristocratic arrogance, they each submit to biometric scanning with relative obedience. It seems likely that their obedience is borne out of a delusional rationalization that enslavement by one wealthy master is better than enslavement by the unwashed masses they once lorded over. You also scored @@.yellowgreen;<<print cashFormat(_loot)>>@@ in valuables from the raid.
 		<<set $arcologies[0].prosperity = 2>>
 		<<set $rep = 0>>
 		/* princess */
@@ -1170,11 +1180,13 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
 		<<set $activeSlave.balls = 0>>
 		<<set $activeSlave.scrotum = 0>>
 		<<set $activeSlave.ovaries = 1>>
-		<<set $activeSlave.preg = 7>>
-		<<set $activeSlave.pregType = 1>>
-		<<set $activeSlave.pregWeek = 7>>
-		<<set $activeSlave.pregKnown = 1>>
-		<<SetBellySize $activeSlave>>
+		<<if $seePreg != 0>>
+			<<set $activeSlave.preg = 7>>
+			<<set $activeSlave.pregType = 1>>
+			<<set $activeSlave.pregWeek = 7>>
+			<<set $activeSlave.pregKnown = 1>>
+			<<SetBellySize $activeSlave>>
+		<</if>>
 		<<set $activeSlave.pubicHStyle = "waxed">>
 		<<set $activeSlave.shoulders = random(-1,1)>>
 		<<set $activeSlave.hips = 1>>
diff --git a/src/uncategorized/hgSelect.tw b/src/uncategorized/hgSelect.tw
index 0016241ccec..cc6501bf794 100644
--- a/src/uncategorized/hgSelect.tw
+++ b/src/uncategorized/hgSelect.tw
@@ -73,6 +73,7 @@ _HGName
 	is allowed to be ''informal'': in private, she may call you <<if $PC.title == 1>>Sir<<else>>Ma'am<</if>>. [[Maintain complete formality|HG Select][$HGFormality = 1]]
 <</if>>
 
+<<if $seePreg != 0>>
 <<if $HeadGirl != 0>>
 <<if $universalRulesImpregnation == "HG">>
 	<br><br>_HGName is responsible for impregnating fertile slaves.
@@ -93,6 +94,7 @@ _HGName
 	<</if>>
 <</if>>
 <</if>>
+<</if>>
 
 <br><br>''Appoint a head girl from among your devoted slaves:''
 <br><br>[[None|HG Workaround][$i = -1]]
diff --git a/src/uncategorized/randomNonindividualEvent.tw b/src/uncategorized/randomNonindividualEvent.tw
index f0c8568ea00..7980d5ad57d 100644
--- a/src/uncategorized/randomNonindividualEvent.tw
+++ b/src/uncategorized/randomNonindividualEvent.tw
@@ -496,16 +496,22 @@
 <<set $recruit.push("desperate university milf")>>
 <<set $recruit.push("female debtor")>>
 <<set $recruit.push("desperate milf")>>
-<<if $arcologies[0].FSRestart == "unset">>
-	<<set $recruit.push("desperate preg")>>
-<</if>>
-<<if random(1,1000) < 5>>
-	<<set $recruit.push("wandering homeless")>>
-<</if>>
-<<if $PC.medicine >= 50>>
-	<<set $recruit.push("desperate birth")>>
+<<if $seePreg != 0>>
+	<<if $arcologies[0].FSRestart == "unset">>
+		<<set $recruit.push("desperate preg")>>
+	<</if>>
+	<<if random(1,1000) < 5>>
+		<<set $recruit.push("wandering homeless")>>
+	<</if>>
+	<<if $PC.medicine >= 50>>
+		<<set $recruit.push("desperate birth")>>
+	<</if>>
+	<<set $recruit.push("blind homeless")>>
+	<<set $recruit.push("farm cow")>>
+	<<if ($mercenaries >= 5)>>
+		<<set $recruit.push("female runaway")>>
+	<</if>>
 <</if>>
-<<set $recruit.push("blind homeless")>>
 <<set $recruit.push("female SD")>>
 <<set $recruit.push("female SD 2")>>
 <<set $recruit.push("female SE")>>
@@ -515,13 +521,9 @@
 <<set $recruit.push("racer winner")>>
 <<set $recruit.push("repo housekeeper")>>
 <<set $recruit.push("repo nanny")>>
-<<set $recruit.push("farm cow")>>
 <<set $recruit.push("farm virgin cow")>>
 <<set $recruit.push("orphan rebellious female")>>
 <<set $recruit.push("captured teen")>>
-<<if ($mercenaries >= 5)>>
-	<<set $recruit.push("female runaway")>>
-<</if>>
 <<if ($cash > 20000)>>
 	<<set $recruit.push("school sale")>>
 <</if>>
@@ -533,19 +535,22 @@
 <</if>>
 <<if $arcologyUpgrade.drones == 1>>
 	<<set $events.push("RE malefactor")>>
-	<<set $malefactor = ["liberator", "whore", "businesswoman", "addict", "anchorBaby"]>>
+	<<set $malefactor = ["liberator", "whore", "businesswoman", "addict"]>>
+	<<if $seePreg != 0>>
+		<<set $malefactor.push("anchorBaby")>>
+	<</if>>
 	<<if $seeDicks != 0>>
-	<<set $malefactor.push("rapist")>>
+		<<set $malefactor.push("rapist")>>
 	<</if>>
 	<<if $minimumSlaveAge <= 12>>
-	<<set $malefactor.push("orphanloli")>>
+		<<set $malefactor.push("orphanloli")>>
 	<</if>>
 	<<if $arcologies[0].FSPaternalist < 50>>
-	<<set $malefactor.push("escapee")>>
+		<<set $malefactor.push("escapee")>>
 	<</if>>
 	<<set $malefactor = $malefactor.random()>>
 	<<if ($rep/150) > random(1,100)>>
-	<<set $events.push("RE malefactor")>>
+		<<set $events.push("RE malefactor")>>
 	<</if>>
 <</if>>
 
@@ -564,7 +569,9 @@
 <<set $recruit.push("orphan femboy")>>
 <<if ($mercenaries >= 5)>>
 	<<set $recruit.push("DG runaway")>>
-	<<set $recruit.push("herm runaway")>>
+	<<if $seePreg != 0>>
+		<<set $recruit.push("herm runaway")>>
+	<</if>>
 <</if>>
 <<if ($cash > 20000)>>
 	<<set $recruit.push("school trap")>>
@@ -579,17 +586,19 @@
 	<<if ($rep/250) > random(1,100)>>
 		<<set $RecETSevent.push("matched pair")>>
 	<</if>>
-	<<if ($rep/250) > random(1,100) && $arcologies[0].FSRestart == "unset">>
-		<<set $RecETSevent.push("identical herm pair")>>
-	<</if>>
-	<<if ($rep/250) > random(1,100) && $arcologies[0].FSRestart == "unset">>
-		<<set $RecETSevent.push("incest mother son")>>
-	<</if>>
-	<<if ($rep/250) > random(1,100) && $arcologies[0].FSRestart == "unset">>
-		<<set $RecETSevent.push("incest father daughter")>>
-	<</if>>
-	<<if ($rep/250) > random(1,100)>>
-		<<set $RecETSevent.push("incest brother sister")>>
+	<<if $seePreg != 0>>
+		<<if ($rep/250) > random(1,100) && $arcologies[0].FSRestart == "unset">>
+			<<set $RecETSevent.push("identical herm pair")>>
+		<</if>>
+		<<if ($rep/250) > random(1,100) && $arcologies[0].FSRestart == "unset">>
+			<<set $RecETSevent.push("incest mother son")>>
+		<</if>>
+		<<if ($rep/250) > random(1,100) && $arcologies[0].FSRestart == "unset">>
+			<<set $RecETSevent.push("incest father daughter")>>
+		<</if>>
+		<<if ($rep/250) > random(1,100)>>
+			<<set $RecETSevent.push("incest brother sister")>>
+		<</if>>
 	<</if>>
 	<<if ($rep/250) > random(1,100)>>
 		<<set $RecETSevent.push("incest twins mixed")>>
@@ -644,7 +653,7 @@
 <<if ($rep/250) > random(1,100)>>
 	<<set $RecETSevent.push("addict mother daughter")>>
 <</if>>
-<<if $seeHyperPreg == 1 && $arcologies[0].FSRestart == "unset" && random(1,100) <= 5>>
+<<if $seeHyperPreg == 1 && $seePreg != 0 && $arcologies[0].FSRestart == "unset" && random(1,100) <= 5>>
 	<<set $RecETSevent.push("desperate broodmother")>>
 <</if>>
 <<if ($rep/250) > random(1,100)>>
@@ -724,10 +733,12 @@
 		<<set $FSAcquisitionEvents.push("Eugenics")>>
 		<<set $events.push("RE FS acquisition")>>
 	<</if>>
+	<<if $seePreg != 0>>
 	<<if $arcologies[0].FSGenderFundamentalist > random(1,100)>>
 		<<set $FSAcquisitionEvents.push("Gender Fundamentalist")>>
 		<<set $events.push("RE FS acquisition")>>
 	<</if>>
+	<</if>>
 	<<if $arcologies[0].FSPaternalist > random(1,100)>>
 		<<set $FSAcquisitionEvents.push("Paternalist")>>
 		<<set $events.push("RE FS acquisition")>>
@@ -760,10 +771,12 @@
 		<<set $FSAcquisitionEvents.push("Asset Expansionist")>>
 		<<set $events.push("RE FS acquisition")>>
 	<</if>>
+	<<if $seePreg != 0>>
 	<<if $arcologies[0].FSPastoralist > random(1,100)>>
 		<<set $FSAcquisitionEvents.push("Pastoralist")>>
 		<<set $events.push("RE FS acquisition")>>
 	<</if>>
+	<</if>>
 	<<if $arcologies[0].FSPhysicalIdealist > random(1,100)>>
 		<<set $FSAcquisitionEvents.push("Physical Idealist")>>
 		<<set $events.push("RE FS acquisition")>>
@@ -788,10 +801,12 @@
 		<<set $FSAcquisitionEvents.push("Gender Radicalist Two")>>
 		<<set $events.push("RE FS acquisition")>>
 	<</if>>
+	<<if $seePreg != 0>>
 	<<if $arcologies[0].FSGenderFundamentalist > random(1,100)>>
 		<<set $FSAcquisitionEvents.push("Gender Fundamentalist Two")>>
 		<<set $events.push("RE FS acquisition")>>
 	<</if>>
+	<</if>>
 	<<if $arcologies[0].FSPaternalist > random(1,100)>>
 		<<set $FSAcquisitionEvents.push("Paternalist Two")>>
 		<<set $events.push("RE FS acquisition")>>
@@ -1144,9 +1159,11 @@
 			<<set $events.push("RES Sale")>>
 			<<set $RESSale.push("SCP")>>
 		<</if>>
-		<<if $TCR.studentsBought == 0>>
-			<<set $events.push("RES Sale")>>
-			<<set $RESSale.push("TCR")>>
+		<<if $seePreg != 0>>
+			<<if $TCR.studentsBought == 0>>
+				<<set $events.push("RES Sale")>>
+				<<set $RESSale.push("TCR")>>
+			<</if>>
 		<</if>>
 		<<if $HA.studentsBought == 0>>
 			<<set $events.push("RES Sale")>>
diff --git a/src/uncategorized/reBoomerang.tw b/src/uncategorized/reBoomerang.tw
index fd5a077479c..6b5021aaaf4 100644
--- a/src/uncategorized/reBoomerang.tw
+++ b/src/uncategorized/reBoomerang.tw
@@ -72,7 +72,7 @@ brings up the relevant feeds. There's a naked body crumpled pathetically against
 	<<set $activeSlave.lactation = 2, $activeSlave.lactationAdaptation = 100>>
 	<<set $activeSlave.boobs = Math.clamp($activeSlave.boobs+2000+50*random(-20,20),0,10000)>>
 	<<set $activeSlave.boobShape = "saggy">>
-	<<if $activeSlave.ovaries>><<set $activeSlave.preg = random(5,_pregWeeks-1), $activeSlave.pregtype = random(2,4), $activeSlave.vagina = 4, $activeSlave.pregWeek = $activeSlave.preg, $activeSlave.pregKnown = 1>><<SetBellySize $activeSlave>><</if>>
+	<<if $seePreg != 0>><<if $activeSlave.ovaries>><<set $activeSlave.preg = random(5,_pregWeeks-1), $activeSlave.pregtype = random(2,4), $activeSlave.vagina = 4, $activeSlave.pregWeek = $activeSlave.preg, $activeSlave.pregKnown = 1>><<SetBellySize $activeSlave>><</if>><</if>>
 	<<if $activeSlave.balls>>
 		<<set $activeSlave.balls = Math.clamp($activeSlave.balls+random(1,2),0,10)>>
 		<<if $activeSlave.dick>><<set $activeSlave.dick = Math.clamp($activeSlave.dick+random(1,2),0,10)>><</if>>
diff --git a/src/uncategorized/reFullBed.tw b/src/uncategorized/reFullBed.tw
index 2e15c932643..1b95eac2fda 100644
--- a/src/uncategorized/reFullBed.tw
+++ b/src/uncategorized/reFullBed.tw
@@ -41,6 +41,7 @@ Today was an unusually relaxing day, and you aren't particularly tired.
 	<</replace>>
 <</link>>
 <</if>>
+<<if $seePreg != 0>>
 <<if canGetPregnant($slaves[_bedSlaveOne]) && canGetPregnant($slaves[_bedSlaveTwo]) && $PC.dick == 1 && $slaves[_bedSlaveOne].eggType == "human" && $slaves[_bedSlaveTwo].eggType == "human">>
 <br><<link "Tire yourself out with some babymaking">>
 	<<replace "#result">>
@@ -93,6 +94,7 @@ Today was an unusually relaxing day, and you aren't particularly tired.
 	<</replace>>
 <</link>>
 <</if>>
+<</if>>
 <br><<link "Pull up the sheets and wrestle">>
 	<<replace "#result">>
 		Without warning, you jerk the sheets all the way up and pin them at the head of the bed. They giggle as you seize first the one and then the other, groping and tickling. $slaves[_bedSlaveTwo].slaveName and $slaves[_bedSlaveOne].slaveName catch the spirit of fun, and rove around in the soft darkness under the sheets. You're <<if $PC.dick == 1>>rock hard<<if $PC.vagina == 1>> and <</if>><</if>><<if $PC.vagina == 1>>soaking wet<</if>> in no time, wrestling with two naked slaves, and begin to fuck the first one you can grab and hold. <<if ($slaves[_bedSlaveOne].amp != 1) && ($slaves[_bedSlaveTwo].amp != 1)>>When you <<if ($PC.dick == 0)>>finish with her<<else>>come inside her<</if>>, you release her and she slides out of bed to wash; by the time she gets back under the sheets, clean and fresh, you're on the point of filling the other.<<else>>When you <<if ($PC.dick == 0)>>finish with her<<else>>come inside her<</if>>, you carry her limbless, helpless body out of bed to wash her, and then return to the bed to fuck the other.<</if>> You switch off with the two of them, fucking them in turn, until everyone falls asleep in an exhausted pile. They have become @@.mediumaquamarine;still more trusting of you.@@
diff --git a/src/uncategorized/reRelativeRecruiter.tw b/src/uncategorized/reRelativeRecruiter.tw
index e4d614e66c4..2faccffa5c9 100644
--- a/src/uncategorized/reRelativeRecruiter.tw
+++ b/src/uncategorized/reRelativeRecruiter.tw
@@ -226,11 +226,13 @@ She waits anxiously for your decision.
 	<<set $activeSlave.anus = 1>>
 	<<set $activeSlave.vagina = 3>>
 	<<set $activeSlave.ovaries = 1>>
-	<<set $activeSlave.preg = random(5,39)>>
-	<<set $activeSlave.pregType = 1>>
-	<<set $activeSlave.pregKnown = 1>>
-	<<set $activeSlave.pregWeek = $activeSlave.preg>>
-	<<SetBellySize $activeSlave>>
+	<<if $seePreg != 0>>
+		<<set $activeSlave.preg = random(5,39)>>
+		<<set $activeSlave.pregType = 1>>
+		<<set $activeSlave.pregKnown = 1>>
+		<<set $activeSlave.pregWeek = $activeSlave.preg>>
+		<<SetBellySize $activeSlave>>
+	<</if>>
 	<<set $activeSlave.weight = random(30,135)>>
 	<<set $activeSlave.muscles = random(0,15)>>
 	<<set $activeSlave.oralSkill = 15>>
diff --git a/src/uncategorized/recruiterSelect.tw b/src/uncategorized/recruiterSelect.tw
index 22e96491266..398766ffde7 100644
--- a/src/uncategorized/recruiterSelect.tw
+++ b/src/uncategorized/recruiterSelect.tw
@@ -22,7 +22,7 @@
 <br>&nbsp;&nbsp;&nbsp;&nbsp;[[Desperate whores|Recruiter Select][$recruiterTarget = "desperate whores"]] //Likely to be skilled but unhealthy//
 <br>&nbsp;&nbsp;&nbsp;&nbsp;[[Young migrants|Recruiter Select][$recruiterTarget = "young migrants"]] //Young and inexperienced but unhealthy//
 <br>&nbsp;&nbsp;&nbsp;&nbsp;[[Recent Divorcees|Recruiter Select][$recruiterTarget = "recent divorcees"]] //Will be mature//
-<<if ($seeDicks != 100)>>
+<<if ($seeDicks != 100) && $seePreg != 0>>
 	<br>&nbsp;&nbsp;&nbsp;&nbsp;[[Expectant mothers|Recruiter Select][$recruiterTarget = "expectant mothers"]] //Will be pregnant, and likely unhealthy//
 <</if>>
 <<if ($seeDicks != 0)>>
diff --git a/src/uncategorized/remoteSurgery.tw b/src/uncategorized/remoteSurgery.tw
index 7f9f4417173..c898dacbfae 100644
--- a/src/uncategorized/remoteSurgery.tw
+++ b/src/uncategorized/remoteSurgery.tw
@@ -734,7 +734,7 @@ Work on her sex:
 	<</if>>
 <</if>>
 
-<<if $seeExtreme == 1 && $seeHyperPreg == 1 && $permaPregImplant == 1>>
+<<if $seeExtreme == 1 && $seeHyperPreg == 1 && $seePreg != 0 && $permaPregImplant == 1>>
 	<<if $activeSlave.assignment == "work in the dairy" && $dairyPregSetting > 0>>
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		$possessiveCap womb is already rented out for the production of calfs.
diff --git a/src/uncategorized/saLiveWithHG.tw b/src/uncategorized/saLiveWithHG.tw
index 0380ff94a0c..fdd653c4cc7 100644
--- a/src/uncategorized/saLiveWithHG.tw
+++ b/src/uncategorized/saLiveWithHG.tw
@@ -289,42 +289,44 @@
 	<</if>>
 <</if>>
 
-<<if ($HeadGirl.fetish == "pregnancy") && canImpreg($slaves[$i], $HeadGirl)>>
-	<<if $arcologies[0].FSRestart == "unset">>
-		$HeadGirl.slaveName promptly @@.lime;impregnates@@ 
-		<<if $HeadGirl.fetishKnown == 1>>
-			$slaves[$i].slaveName, to your Head Girl's considerable @@.hotpink;satisfaction.@@ $slaves[$i].slaveName spent the week regularly getting held down and ejaculated into anytime her superior had cum to spare.
-			<<set $HeadGirl.devotion += 4>>
-		<<else>>
-			$slaves[$i].slaveName. Her eagerness completely exposes her hidden @@.lightcoral;pregnancy kink.@@
-			<<set $HeadGirl.fetishKnown = 1>>
-		<</if>>
-		<<KnockMeUp $slaves[$i] 100 2 $HeadGirl.ID>>
-		<<if ($HeadGirl.fetishStrength > 70) && canImpreg($HeadGirl, $slaves[$i])>>
-			Unsurprisingly, she gives in to her own cravings and also takes $slaves[$i].slaveName's loads until she @@.lime;gets pregnant@@ too.
+<<if $seePreg != 0>>
+	<<if ($HeadGirl.fetish == "pregnancy") && canImpreg($slaves[$i], $HeadGirl)>>
+		<<if $arcologies[0].FSRestart == "unset">>
+			$HeadGirl.slaveName promptly @@.lime;impregnates@@ 
+			<<if $HeadGirl.fetishKnown == 1>>
+				$slaves[$i].slaveName, to your Head Girl's considerable @@.hotpink;satisfaction.@@ $slaves[$i].slaveName spent the week regularly getting held down and ejaculated into anytime her superior had cum to spare.
+				<<set $HeadGirl.devotion += 4>>
+			<<else>>
+				$slaves[$i].slaveName. Her eagerness completely exposes her hidden @@.lightcoral;pregnancy kink.@@
+				<<set $HeadGirl.fetishKnown = 1>>
+			<</if>>
+			<<KnockMeUp $slaves[$i] 100 2 $HeadGirl.ID>>
+			<<if ($HeadGirl.fetishStrength > 70) && canImpreg($HeadGirl, $slaves[$i])>>
+				Unsurprisingly, she gives in to her own cravings and also takes $slaves[$i].slaveName's loads until she @@.lime;gets pregnant@@ too.
+				<<KnockMeUp $HeadGirl 100 2 $slaves[$i].ID>>
+			<</if>>
+		<<elseif  $HeadGirl.fetishKnown == 1>>
+			$HeadGirl.slaveName knows better than to even consider knocking up $slaves[$i].slaveName.
+		<</if>>
+	<<elseif ($HeadGirl.fetish == "pregnancy") && canImpreg($HeadGirl, $slaves[$i])>>
+		<<if $arcologies[0].FSRestart == "unset" && ($HeadGirl.fetishStrength > 70)>>
+			$HeadGirl.slaveName promptly @@.lime;knocks herself up@@ with $slaves[$i].slaveName's 
+			<<if $HeadGirl.fetishKnown == 1>>
+				seed, to your Head Girl's considerable @@.hotpink;satisfaction.@@
+				<<set $HeadGirl.devotion += 4>>
+			<<else>>
+				seed. Her @@.hotpink;pride@@ over her new pregnancy and eagerness to get pregnant completely exposes her hidden, and powerful, @@.lightcoral;pregnancy fetish.@@
+				<<set $HeadGirl.fetishKnown = 1, $HeadGirl.devotion += 4>>
+			<</if>>
 			<<KnockMeUp $HeadGirl 100 2 $slaves[$i].ID>>
+		<<elseif  $HeadGirl.fetishKnown == 1>>
+			$HeadGirl.slaveName knows better than to even consider getting knocked up by $slaves[$i].slaveName.
 		<</if>>
-	<<elseif  $HeadGirl.fetishKnown == 1>>
-		$HeadGirl.slaveName knows better than to even consider knocking up $slaves[$i].slaveName.
-	<</if>>
-<<elseif ($HeadGirl.fetish == "pregnancy") && canImpreg($HeadGirl, $slaves[$i])>>
-	<<if $arcologies[0].FSRestart == "unset" && ($HeadGirl.fetishStrength > 70)>>
-		$HeadGirl.slaveName promptly @@.lime;knocks herself up@@ with $slaves[$i].slaveName's 
-		<<if $HeadGirl.fetishKnown == 1>>
-			seed, to your Head Girl's considerable @@.hotpink;satisfaction.@@
-			<<set $HeadGirl.devotion += 4>>
-		<<else>>
-			seed. Her @@.hotpink;pride@@ over her new pregnancy and eagerness to get pregnant completely exposes her hidden, and powerful, @@.lightcoral;pregnancy fetish.@@
-			<<set $HeadGirl.fetishKnown = 1, $HeadGirl.devotion += 4>>
-		<</if>>
-		<<KnockMeUp $HeadGirl 100 2 $slaves[$i].ID>>
-	<<elseif  $HeadGirl.fetishKnown == 1>>
-		$HeadGirl.slaveName knows better than to even consider getting knocked up by $slaves[$i].slaveName.
+	<<elseif $HeadGirl.fetish != "pregnancy" && $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 she prefers her girls not harboring someone else's child or loaded down with her own unwanted spawn.
+		<<set $slaves[$i].preg = 0, $slaves[$i].pregType = 0, $slaves[$i].pregSource = 0, $slaves[$i].pregWeek = 0, $slaves[$i].pregKnown = 0>>
+		<<SetBellySize $slaves[$i]>>
 	<</if>>
-<<elseif $HeadGirl.fetish != "pregnancy" && $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 she prefers her girls not harboring someone else's child or loaded down with her own unwanted spawn.
-	<<set $slaves[$i].preg = 0, $slaves[$i].pregType = 0, $slaves[$i].pregSource = 0, $slaves[$i].pregWeek = 0, $slaves[$i].pregKnown = 0>>
-	<<SetBellySize $slaves[$i]>>
 <</if>>
 
 <<if ($slaves[$i].devotion > 50)>>
diff --git a/src/uncategorized/saLongTermEffects.tw b/src/uncategorized/saLongTermEffects.tw
index cffcb72a4d5..c70212fae9f 100644
--- a/src/uncategorized/saLongTermEffects.tw
+++ b/src/uncategorized/saLongTermEffects.tw
@@ -4107,6 +4107,7 @@
 
 /* IS NOT PREGNANT */
 
+<<if $seePreg != 0>>
 <<if ($slaves[$i].fuckdoll == 0) && ($slaves[$i].preg == -1) && ($slaves[$i].devotion > 20) && ($slaves[$i].fetishStrength > 60) && ($slaves[$i].fetish == "pregnancy") && isFertile($slaves[$i])>>
 	<<if $slaves[$i].fetishKnown == 0>>
 		@@.mediumorchid;She's unhappy@@ that she's on contraceptives, revealing that she has a @@.lightcoral;deep desire to get pregnant.@@
@@ -4374,6 +4375,7 @@
 <<elseif $slaves[$i].preg > 0 && $slaves[$i].pregType == 0>>
 	<<SetPregType $slaves[$i]>>
 <</if>>
+<</if>> /* closes $seePreg */
 
 <<if $slaves[$i].bellyFluid >= 1500>> /* PREGMOD: NOT PREGNANT, YES INFLATION */
 
diff --git a/src/uncategorized/seCoursing.tw b/src/uncategorized/seCoursing.tw
index fa65336d8cf..b3e8fc6dce5 100644
--- a/src/uncategorized/seCoursing.tw
+++ b/src/uncategorized/seCoursing.tw
@@ -15,7 +15,9 @@ The rules have been explained to the hares: they're to be freed if they can reac
 <<set _possibleOrigins = []>>
 <<if $seeDicks != 100>>
 	<<set _possibleOrigins.push("housewife")>>
-	<<set _possibleOrigins.push("heavily pregnant")>>
+	<<if $seePreg != 0>>
+		<<set _possibleOrigins.push("heavily pregnant")>>
+	<</if>>
 	<<set _possibleOrigins.push("virgin")>>
 	<<set _possibleOrigins.push("disobedient young")>>
 <</if>>
diff --git a/src/uncategorized/seRaiding.tw b/src/uncategorized/seRaiding.tw
index c310f1d88ba..133e91a2758 100644
--- a/src/uncategorized/seRaiding.tw
+++ b/src/uncategorized/seRaiding.tw
@@ -80,7 +80,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
 	<<set $activeSlave.analCount += 1>>
 	<<set $analTotal += 1>>
 	<<set $activeSlave.ovaries = 1>>
-	<<if isFertile($activeSlave)>>
+	<<if isFertile($activeSlave) && $seePreg != 0>>
 		<<set $activeSlave.preg = either(-1, -1, -1, 0, 0, 0, 5, 10, 20, 30, 39)>>
 		<<if $activeSlave.preg > 0>>
 			<<SetPregType $activeSlave>>
@@ -115,7 +115,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
 	<<set $activeSlave.intelligenceImplant = 1>>
 	<<set $activeSlave.teeth = "normal">>
 	<<set $activeSlave.weight = random(-20,90)>>
-	<<if isFertile($activeSlave)>>
+	<<if isFertile($activeSlave) && $seePreg != 0>>
 		<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 5, 10, 20, 30, 39)>>
 		<<if $activeSlave.preg > 0>>
 			<<SetPregType $activeSlave>>
@@ -145,7 +145,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
 	<<set $activeSlave.intelligenceImplant = 1>>
 	<<set $activeSlave.teeth = "normal">>
 	<<set $activeSlave.weight = random(-60,40)>>
-	<<if isFertile($activeSlave)>>
+	<<if isFertile($activeSlave) && $seePreg != 0>>
 		<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 5, 10)>>
 		<<if $activeSlave.preg > 0>>
 			<<SetPregType $activeSlave>>
@@ -222,7 +222,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
 	<<set $activeSlave.teeth = "normal">>
 	<<set $activeSlave.weight = random(0,20)>>
 	<<set $activeSlave.muscles = 10>>
-	<<if isFertile($activeSlave)>>
+	<<if isFertile($activeSlave) && $seePreg != 0>>
 		<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 5, 5)>>
 		<<if $activeSlave.preg > 0>>
 			<<SetPregType $activeSlave>>
@@ -250,7 +250,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
 	<<set $activeSlave.intelligenceImplant = 1>>
 	<<set $activeSlave.teeth = "normal">>
 	<<set $activeSlave.weight = random(-40,40)>>
-	<<if isFertile($activeSlave)>>
+	<<if isFertile($activeSlave) && $seePreg != 0>>
 		<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 5, 10)>>
 		<<if $activeSlave.preg > 0>>
 			<<SetPregType $activeSlave>>
@@ -297,7 +297,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
 	<<set $activeSlave.behavioralFlaw = "liberated">>
 	<<set $activeSlave.sexualFlaw = "idealistic">>
 	<<set $activeSlave.weight = random(-40,40)>>
-	<<if isFertile($activeSlave)>>
+	<<if isFertile($activeSlave) && $seePreg != 0>>
 		<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 5, 10)>>
 		<<if $activeSlave.preg > 0>>
 			<<SetPregType $activeSlave>>
@@ -371,7 +371,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
 	<<set $activeSlave.intelligenceImplant = 0>>
 	<<set $activeSlave.weight = random(-10,90)>>
 	<<set $activeSlave.muscles = random(10,35)>>
-	<<if isFertile($activeSlave)>>
+	<<if isFertile($activeSlave) && $seePreg != 0>>
 		<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 5, 5)>>
 		<<if $activeSlave.preg > 0>>
 			<<SetPregType $activeSlave>>
@@ -400,7 +400,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
 	<<set $activeSlave.teeth = "normal">>
 	<<set $activeSlave.weight = random(-50,15)>>
 	<<if $activeSlave.vagina > 0>>
-		<<if isFertile($activeSlave)>>
+		<<if isFertile($activeSlave) && $seePreg != 0>>
 			<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 5, 10)>>
 			<<if $activeSlave.preg > 0>>
 				<<SetPregType $activeSlave>>
@@ -432,7 +432,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
 	<<set $activeSlave.intelligenceImplant = 1>>
 	<<set $activeSlave.teeth = "normal">>
 	<<set $activeSlave.weight = random(-10,60)>>
-	<<if isFertile($activeSlave)>>
+	<<if isFertile($activeSlave) && $seePreg != 0>>
 		<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 10, 20, 30, 39)>>
 		<<if $activeSlave.preg > 0>>
 			<<SetPregType $activeSlave>>
@@ -489,7 +489,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
 	<<set $activeSlave.intelligence = 2>>
 	<<set $activeSlave.intelligenceImplant = 1>>
 	<<set $activeSlave.weight = random(-50,60)>>
-	<<if isFertile($activeSlave)>>
+	<<if isFertile($activeSlave) && $seePreg != 0>>
 		<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 10, 20, 30, 39)>>
 		<<if $activeSlave.preg > 0>>
 			<<SetPregType $activeSlave>>
@@ -533,7 +533,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
 	<<set $activeSlave.intelligence = 1>>
 	<<set $activeSlave.intelligenceImplant = 1>>
 	<<set $activeSlave.weight = random(-50,140)>>
-	<<if isFertile($activeSlave)>>
+	<<if isFertile($activeSlave) && $seePreg != 0>>
 		<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 10, 20, 30, 39)>>
 		<<if $activeSlave.preg > 0>>
 			<<SetPregType $activeSlave>>
diff --git a/src/uncategorized/sellSlave.tw b/src/uncategorized/sellSlave.tw
index 589e67dfa1a..984cad80c2c 100644
--- a/src/uncategorized/sellSlave.tw
+++ b/src/uncategorized/sellSlave.tw
@@ -613,7 +613,7 @@ __Bids Received__
 	<<set $seed = 1>>
 <<elseif ($activeSlave.butt > 6) && (random(1,100) > 80)>>
 	<br>''<<print cashFormat($seed)>>'' from a citizen with an obvious butt expansion fetish.
-	<<set $seed to 1>>
+	<<set $seed = 1>>
 <<elseif ($activeSlave.face > 10) && (random(1,100) > 80)>>
 	<br>''<<print cashFormat($seed)>>'' from a citizen who can't keep his eyes off her pretty face.
 	<<set $seed = 1>>
@@ -653,7 +653,7 @@ __Bids Received__
 <</if>>
 <</if>>
 
-<<if isFertile($activeSlave)>>
+<<if isFertile($activeSlave) && $seePreg != 0>>
 
 <<if $slaveCost > 10000>>
 	<<if random(1,100) > 60>>
@@ -731,6 +731,7 @@ __Bids Received__
 
 <</if>>
 
+<<if $seePreg != 0>>
 <<if $seeHyperPreg == 1 && $seeExtreme == 1>>
 <<if $activeSlave.preg > 20>>
 <<if  $activeSlave.pregType >= 10>>
@@ -745,6 +746,7 @@ __Bids Received__
 <</if>>
 <</if>>
 <</if>>
+<</if>>
 
 <<if $activeSlave.nipples == "huge">>
 	<<if random(1,100) > 60>>
@@ -1049,6 +1051,7 @@ __Bids Received__
 <</if>>
 <</if>>
 
+<<if $seePreg != 0>>
 <<if $activeSlave.dick == 0>>
 <<if $activeSlave.muscles > 30>>
 <<if $activeSlave.devotion > 20>>
@@ -1065,6 +1068,7 @@ __Bids Received__
 <</if>>
 <</if>>
 <</if>>
+<</if>>
 
 <<if $activeSlave.devotion > 20>>
 <<if $activeSlave.fetish == "cumslut">>
@@ -1548,6 +1552,7 @@ __Bids Received__
 <</if>>
 <</if>>
 
+<<if $seePreg != 0>>
 <<if $arcologies[0].FSPaternalist == "unset">>
 <<if $slaveCost < 10000>>
 <<if $activeSlave.health > 40>>
@@ -1564,6 +1569,7 @@ __Bids Received__
 <</if>>
 <</if>>
 <</if>>
+<</if>>
 
 <<if $arcologies[0].FSDegradationist == "unset">>
 <<if $slaveCost > 20000>>
diff --git a/src/uncategorized/servantsQuarters.tw b/src/uncategorized/servantsQuarters.tw
index 86b9d9f55c2..9d795664cd0 100644
--- a/src/uncategorized/servantsQuarters.tw
+++ b/src/uncategorized/servantsQuarters.tw
@@ -94,7 +94,7 @@ $servantsQuartersNameCaps
 		<br>&nbsp;&nbsp;&nbsp;&nbsp;
 		<<if $stewardessImpregnates == 1>>
 			Keeping the maids pregnant is part of her job. [[Order her to stop impregnating|Servants' Quarters][$stewardessImpregnates = 0]]
-		<<else>>
+		<<elseif $seePreg != 0>>
 			She could be directed to keep the maids pregnant herself. [[Order her to impregnate|Servants' Quarters][$stewardessImpregnates = 1]]
 		<</if>>
 	<</if>>
diff --git a/src/uncategorized/slaveInteract.tw b/src/uncategorized/slaveInteract.tw
index 02a21169c42..7aa388db908 100644
--- a/src/uncategorized/slaveInteract.tw
+++ b/src/uncategorized/slaveInteract.tw
@@ -115,7 +115,7 @@
 		| <<link "Get a footjob">><<replace "#miniscene">><<include "FFeet">><br>&nbsp;&nbsp;&nbsp;&nbsp;<</replace>><</link>>
 	<</if>>
 	<span id = "impreg">
-	<<if (canGetPregnant($activeSlave)) && ($activeSlave.clothes != "a Fuckdoll suit")>>
+	<<if (canGetPregnant($activeSlave)) && ($activeSlave.clothes != "a Fuckdoll suit") && $seePreg != 0>>
 		<<if ($PC.dick != 0 && $activeSlave.eggType == "human")>>
 		| <<link "Impregnate her yourself">><<replace "#miniscene">><<include "FPCImpreg">><br>&nbsp;&nbsp;&nbsp;&nbsp;<</replace>><<SlaveInteractImpreg>><<SlaveInteractFertility>><</link>>
 		<</if>>
@@ -283,28 +283,29 @@
 		<</if>>
 	<</if>>
 	<<if ($activeSlave.relationship > 0)>>
+		<<set _si = $slaves.findIndex(function(s) { return s.ID == $activeSlave.relationshipTarget; })>>
 		<<for _i = 0; _i < _SL; _i++>>
 			<<if $slaves[_i].ID == $activeSlave.relationshipTarget>>
 				<<set $assayedSlave = $slaves[_i]>>
 				<<AssayedSlaveAvailable>>
 			<</if>>
 		<</for>>
-		<<if $assayedSlaveAvailable == 1>>
+		<<if isSlaveAvailable($slaves[_si])>>
 			<<if ($activeSlave.relationship == 1)>>
-			| <<link "Fuck her with her friend">><<replace "#miniscene">><<set $partner = "relationship">><<include "FRelation">><br>&nbsp;&nbsp;&nbsp;&nbsp;<</replace>><</link>>
+				| <<link "Fuck her with her friend">><<replace "#miniscene">><<set $partner = "relationship">><<include "FRelation">><br>&nbsp;&nbsp;&nbsp;&nbsp;<</replace>><</link>>
 			<<elseif ($activeSlave.relationship == 2)>>
-			| <<link "Fuck her with her best friend">><<replace "#miniscene">><<set $partner = "relationship">><<include "FRelation">><br>&nbsp;&nbsp;&nbsp;&nbsp;<</replace>><</link>>
+				| <<link "Fuck her with her best friend">><<replace "#miniscene">><<set $partner = "relationship">><<include "FRelation">><br>&nbsp;&nbsp;&nbsp;&nbsp;<</replace>><</link>>
 			<<elseif ($activeSlave.relationship == 3)>>
-			| <<link "Fuck her with her FWB">><<replace "#miniscene">><<set $partner = "relationship">><<include "FRelation">><br>&nbsp;&nbsp;&nbsp;&nbsp;<</replace>><</link>>
+				| <<link "Fuck her with her FWB">><<replace "#miniscene">><<set $partner = "relationship">><<include "FRelation">><br>&nbsp;&nbsp;&nbsp;&nbsp;<</replace>><</link>>
 			<<elseif ($activeSlave.relationship == 4)>>
-			| <<link "Fuck her with her lover">><<replace "#miniscene">><<set $partner = "relationship">><<include "FRelation">><br>&nbsp;&nbsp;&nbsp;&nbsp;<</replace>><</link>>
+				| <<link "Fuck her with her lover">><<replace "#miniscene">><<set $partner = "relationship">><<include "FRelation">><br>&nbsp;&nbsp;&nbsp;&nbsp;<</replace>><</link>>
 			<<else>>
-			| <<link "Fuck her with her slave wife">><<replace "#miniscene">><<set $partner = "relationship">><<include "FRelation">><br>&nbsp;&nbsp;&nbsp;&nbsp;<</replace>><</link>>
+				| <<link "Fuck her with her slave wife">><<replace "#miniscene">><<set $partner = "relationship">><<include "FRelation">><br>&nbsp;&nbsp;&nbsp;&nbsp;<</replace>><</link>>
 			<</if>>
 		<<else>>
-			| //$assayedSlave.slaveName is unavailable//
-			<<if $assayedSlave.assignment == "be your agent">>
-				[[Send her to live with your agent|Agent Company][$subSlave = $assayedSlave]]
+			| //$slaves[_si].slaveName is unavailable//
+			<<if $slaves[_si].assignment == "be your agent">>
+				[[Send her to live with your agent|Agent Company][$subSlave = $slaves[_si]]]
 			<</if>>
 		<</if>>
 	<</if>>
@@ -364,7 +365,7 @@
 	*/
 <</if>>
 
-<<if $universalRulesImpregnation == "HG">>
+<<if $universalRulesImpregnation == "HG" && $seePreg != 0>>
 	<br><br>
 	<<if $activeSlave.HGExclude == 0>>
 		Will be bred by the head girl when fertile. [[Exempt her|Slave Interact][$activeSlave.HGExclude = 1]]
@@ -715,7 +716,7 @@
 		| <<link "Cruel retirement counter">><<set $activeSlave.collar = "cruel retirement counter">><<replace "#collar">>$activeSlave.collar<</replace>><</link>>
 	<</if>>
 	| <<link "Uncomfortable leather">><<set $activeSlave.collar = "uncomfortable leather">><<replace "#collar">>$activeSlave.collar<</replace>><</link>>
-	<<if $activeSlave.preg > -1>>
+	<<if $activeSlave.preg > -1 && $seePreg != 0>>
 	| <<link "Pregnancy biometrics">><<set $activeSlave.collar = "preg biometrics">><<replace "#collar">>$activeSlave.collar<</replace>><</link>>
 	<</if>>
 	| <<link "Shock punishment">><<set $activeSlave.collar = "shock punishment">><<replace "#collar">>$activeSlave.collar<</replace>><</link>>
@@ -1074,7 +1075,7 @@ __Contraception__: <span id="fertility"><strong><<if $activeSlave.preg == -1>><<
 <</if>>
 <</if>>
 <</if>>
-<<if ($activeSlave.pregKnown == 1) && ($pregSpeedControl == 1) && ($activeSlave.breedingMark != 1) && ($activeSlave.indentureRestrictions < 1) && ($activeSlave.pregType < 50)>>
+<<if ($activeSlave.pregKnown == 1) && ($pregSpeedControl == 1) && ($activeSlave.breedingMark != 1) && ($activeSlave.indentureRestrictions < 1) && ($activeSlave.pregType < 50) && $seePreg != 0>>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;
 	__Pregnancy control__: <span id="pregControl"><<if $activeSlave.pregControl == "labor supressors">>Labor is suppressed<<elseif $activeSlave.pregControl == "slow gestation">>Slowed gestation<<elseif $activeSlave.pregControl == "speed up">>Faster gestation<<else>>Normal gestation<</if>></span>
 	<<if ($activeSlave.preg >= 38)>>
@@ -1297,7 +1298,9 @@ Hormones: <strong><span id="hormones">
 	| <<link "Sub">><<set $activeSlave.clitSetting = "submissive">><<replace "#setting">>$activeSlave.clitSetting<</replace>><</link>>
 	| <<link "Dom">><<set $activeSlave.clitSetting = "dom">><<replace "#setting">>$activeSlave.clitSetting<</replace>><</link>>
 	| <<link "Humiliation">><<set $activeSlave.clitSetting = "humiliation">><<replace "#setting">>$activeSlave.clitSetting<</replace>><</link>>
+	<<if $seePreg != 0>>
 	| <<link "Preg">><<set $activeSlave.clitSetting = "pregnancy">><<replace "#setting">>$activeSlave.clitSetting<</replace>><</link>>
+	<</if>>
 	| <<link "Pain">><<set $activeSlave.clitSetting = "masochist">><<replace "#setting">>$activeSlave.clitSetting<</replace>><</link>>
 	| <<link "Sadism">><<set $activeSlave.clitSetting = "sadist">><<replace "#setting">>$activeSlave.clitSetting<</replace>><</link>>
 	| <<link "Men">><<set $activeSlave.clitSetting = "men">><<replace "#setting">>$activeSlave.clitSetting<</replace>><</link>>
diff --git a/src/uncategorized/slaveShelter.tw b/src/uncategorized/slaveShelter.tw
index ab07c1b666e..75788104e47 100644
--- a/src/uncategorized/slaveShelter.tw
+++ b/src/uncategorized/slaveShelter.tw
@@ -26,7 +26,10 @@ You contact the Slave Shelter to review the profile of the slave the Shelter is
 	<<set _possibleOrigins.push("geldling", "dickpain")>>
 <</if>>
 <<if _num > $seeDicks>>
-	<<set _possibleOrigins.push("plugs", "breeder", "used whore", "reaction", "broken womb")>>
+	<<set _possibleOrigins.push("plugs", "used whore", "reaction")>>
+	<<if $seePreg != 0>>
+		<<set _possibleOrigins.push("breeder", "broken womb")>>
+	<</if>>
 <</if>>
 <<if $week > 80>>
 	<<set _possibleOrigins.push("degraded DoL")>>
@@ -180,7 +183,7 @@ You contact the Slave Shelter to review the profile of the slave the Shelter is
 	<<set $shelterSlave.stampTat = either("degradation", "rude words", 0)>>
 	<<set $shelterSlave.analSkill = random(10,25)>>
 	<<set $shelterSlave.anus = random(1,4)>>
-	<<if isFertile($shelterSlave)>>
+	<<if isFertile($shelterSlave) && $seePreg != 0>>
 		<<set $shelterSlave.preg = either(-3, -2, -2, -2, 0, 0, 2, 3, 4, 5)>>
 		<<if $shelterSlave.preg > 0>>
 			<<set $shelterSlave.pregSource = -2, $shelterSlave.pregKnown = 1>>
diff --git a/src/uncategorized/tfsFarmUpgrade.tw b/src/uncategorized/tfsFarmUpgrade.tw
index 0241b32e874..c986fdf75e6 100644
--- a/src/uncategorized/tfsFarmUpgrade.tw
+++ b/src/uncategorized/tfsFarmUpgrade.tw
@@ -34,13 +34,15 @@ whether we will use contraception after we are transformed." She shudders sudden
 		<<set $TFS.farmUpgrade = 1>>
 	<</replace>>
 <</link>>
-<br><<link "Permit them access, and encourage them to get pregnant">>
-	<<replace "#result">>
-		You signify your assent, telling the Sister that the organ farm will accept seed tissue from any of them for the purpose of fabricating ovaries. To your mild surprise, she responds with cutely inelegant crying. You add that you think the world needs more Futanari Sisters, especially ones as cute and sexy as you're confident her many daughters will be. At that, she breaks down completely, one of her hands going to rub her belly gently. It takes her a long time to manage to thank to properly, and she hurries to end the call before she can embarrass herself further.<<if $arcologies[0].FSRestartDecoration == 100>> The Societal Elite are @@.red;outraged@@ that you would not only allow such a breach of eugenics to occur, but encourage it.<</if>>
-		<<set $TFS.farmUpgrade = 2>>
-		<<set $failedElite += 275>>
-	<</replace>>
-<</link>>
+<<if $seePreg != 0>>
+	<br><<link "Permit them access, and encourage them to get pregnant">>
+		<<replace "#result">>
+			You signify your assent, telling the Sister that the organ farm will accept seed tissue from any of them for the purpose of fabricating ovaries. To your mild surprise, she responds with cutely inelegant crying. You add that you think the world needs more Futanari Sisters, especially ones as cute and sexy as you're confident her many daughters will be. At that, she breaks down completely, one of her hands going to rub her belly gently. It takes her a long time to manage to thank to properly, and she hurries to end the call before she can embarrass herself further.<<if $arcologies[0].FSRestartDecoration == 100>> The Societal Elite are @@.red;outraged@@ that you would not only allow such a breach of eugenics to occur, but encourage it.<</if>>
+			<<set $TFS.farmUpgrade = 2>>
+			<<set $failedElite += 275>>
+		<</replace>>
+	<</link>>
+<</if>>
 <br><<link "Decline">>
 	<<replace "#result">>
 		You decline. The Sister accepts your decision politely, but cannot hide her deep disappointment.
diff --git a/src/uncategorized/universalRules.tw b/src/uncategorized/universalRules.tw
index 522148c1887..ffa8e00a0d7 100644
--- a/src/uncategorized/universalRules.tw
+++ b/src/uncategorized/universalRules.tw
@@ -112,7 +112,7 @@ Future society names for new slaves are currently @@.cyan;APPLIED@@. [[Stop appl
 	<</if>>
 <<elseif $universalRulesImpregnation == "PC">>
 	Fertile slaves will be ''systematically impregnated by you.'' [[Cancel insemination regime|Universal Rules][$universalRulesImpregnation = "none"]]<<if $seeDicks != 0>> | [[Delegate insemination to your Head Girl|Universal Rules][$universalRulesImpregnation = "HG"]]<</if>>
-<<else>>
+<<elseif $seePreg != 0>>
 	Fertile slaves will ''not be systematically impregnated.'' <<if $PC.dick > 0>>[[Inseminate them yourself|Universal Rules][$universalRulesImpregnation = "PC"]]<</if>><<if ($PC.dick > 0) && ($seeDicks != 0)>> | <</if>><<if $seeDicks != 0>>[[Delegate insemination to your Head Girl|Universal Rules][$universalRulesImpregnation = "HG"]]<</if>>
 <</if>>
 
diff --git a/src/utility/miscWidgets.tw b/src/utility/miscWidgets.tw
index 5709b201369..aa3a38be066 100644
--- a/src/utility/miscWidgets.tw
+++ b/src/utility/miscWidgets.tw
@@ -566,7 +566,7 @@
 %/
 <<widget "SlaveInteractImpreg">>
 <<replace #impreg>>
-	<<if ((canGetPregnant($activeSlave)) && ($activeSlave.clothes != "a Fuckdoll suit"))>>
+	<<if (canGetPregnant($activeSlave)) && ($activeSlave.clothes != "a Fuckdoll suit") && $seePreg != 0>>
 		<<if ($PC.dick != 0 && $activeSlave.eggType == "human")>>
 		| <<link "Impregnate her yourself">><<replace "#miniscene">><<include "FPCImpreg">><br>&nbsp;&nbsp;&nbsp;&nbsp;<</replace>><<SlaveInteractImpreg>><<SlaveInteractFertility>><</link>>
 		<</if>>
@@ -2912,46 +2912,48 @@ This experience
  $args[4] is an override if defined - $args[3] must be defined in this case.
 */
 <<widget "KnockMeUp">>
-	<<if random(0,99) < $args[1]>>
-		<<if $args[0].mpreg === $args[2]>>
-			<<set $args[0].preg = 1>>
-			<<set $args[0].pregSource = $args[3] || 0>>
-			<<if $args[0].ID != -1>>
-				<<set $args[0].pregWeek = 1>>
-			<</if>>
-			<<SetPregType $args[0]>>
-			<<if $menstruation == 1>>
-			<<elseif ndef $args[4]>>
-				<<set $args[0].pregKnown = 1>>
-				<<if $args[0].ID == -1>>
-					/*@@.lime;You have gotten pregnant.@@*/
-				<<elseif $args[0].fuckdoll == 0>>
-					@@.lime;She has become pregnant.@@
+	<<if $seePreg != 0>>
+		<<if random(0,99) < $args[1]>>
+			<<if $args[0].mpreg === $args[2]>>
+				<<set $args[0].preg = 1>>
+				<<set $args[0].pregSource = $args[3] || 0>>
+				<<if $args[0].ID != -1>>
+					<<set $args[0].pregWeek = 1>>
+				<</if>>
+				<<SetPregType $args[0]>>
+				<<if $menstruation == 1>>
+				<<elseif ndef $args[4]>>
+					<<set $args[0].pregKnown = 1>>
+					<<if $args[0].ID == -1>>
+						/*@@.lime;You have gotten pregnant.@@*/
+					<<elseif $args[0].fuckdoll == 0>>
+						@@.lime;She has become pregnant.@@
+					<<else>>
+						@@.lime;It has become pregnant.@@
+					<</if>>
 				<<else>>
-					@@.lime;It has become pregnant.@@
+					<<set $args[0].pregKnown = 1>>
 				<</if>>
-			<<else>>
-				<<set $args[0].pregKnown = 1>>
-			<</if>>
-		<<elseif $args[2] == 2>>
-			<<set $args[0].preg = 1>>
-			<<set $args[0].pregSource = $args[3] || 0>>
-			<<if $args[0].ID != -1>>
-				<<set $args[0].pregWeek = 1>>
-			<</if>>
-			<<SetPregType $args[0]>>
-			<<if $menstruation == 1>>
-			<<elseif ndef $args[4]>>
-				<<set $args[0].pregKnown = 1>>
-				<<if $args[0].ID == -1>>
-					/*@@.lime;You have gotten pregnant.@@*/
-				<<elseif $args[0].fuckdoll == 0>>
-					@@.lime;She has become pregnant.@@
+			<<elseif $args[2] == 2>>
+				<<set $args[0].preg = 1>>
+				<<set $args[0].pregSource = $args[3] || 0>>
+				<<if $args[0].ID != -1>>
+					<<set $args[0].pregWeek = 1>>
+				<</if>>
+				<<SetPregType $args[0]>>
+				<<if $menstruation == 1>>
+				<<elseif ndef $args[4]>>
+					<<set $args[0].pregKnown = 1>>
+					<<if $args[0].ID == -1>>
+						/*@@.lime;You have gotten pregnant.@@*/
+					<<elseif $args[0].fuckdoll == 0>>
+						@@.lime;She has become pregnant.@@
+					<<else>>
+						@@.lime;It has become pregnant.@@
+					<</if>>
 				<<else>>
-					@@.lime;It has become pregnant.@@
+					<<set $args[0].pregKnown = 1>>
 				<</if>>
-			<<else>>
-				<<set $args[0].pregKnown = 1>>
 			<</if>>
 		<</if>>
 	<</if>>
-- 
GitLab