From a4d05260eb1e12fae4058b889ce3f4cbcd8785f5 Mon Sep 17 00:00:00 2001
From: Pregmodder <pregmodder@gmail.com>
Date: Fri, 1 Sep 2017 22:57:21 -0400
Subject: [PATCH] fixes and overhaulings

---
 src/uncategorized/saDevotion.tw        |   9 +-
 src/uncategorized/saDrugs.tw           |  64 ++++++-----
 src/uncategorized/saLongTermEffects.tw |  20 ++--
 src/uncategorized/saRelationships.tw   | 146 ++++++++++++-------------
 4 files changed, 120 insertions(+), 119 deletions(-)

diff --git a/src/uncategorized/saDevotion.tw b/src/uncategorized/saDevotion.tw
index 294c6d32143..f20d690c30b 100644
--- a/src/uncategorized/saDevotion.tw
+++ b/src/uncategorized/saDevotion.tw
@@ -190,9 +190,12 @@
 	<<set $slaves[$i].trust += 1>>
 <</if>>
 <<if ($arcologies[0].FSRestart != "unset")>>
-	<<if $slaves[$i].preg > 5 && $slaves[$i].devotion < 20>>
-	Being pregnant in a society that loathes slave breeding fills her with @@.gold;fear@@ for herself and her unborn child. 
-	<<set $slaves[$i].trust -= 10>>
+	<<if $slaves[$i].bellyPreg >= 1500 && $slaves[$i].devotion < 20>>
+		Being visibly pregnant in a society that loathes slave breeding fills her with @@.gold;fear@@ for herself and her unborn child. 
+		<<set $slaves[$i].trust -= 10>>
+	<<elseif $slaves[$i].pregKnown == 1 && $slaves[$i].devotion < 20>>
+		Being pregnant in a society that loathes slave breeding fills her with @@.gold;worry@@ that you'll harm her or her unborn child. 
+		<<set $slaves[$i].trust -= 5>>
 	<</if>>
 <</if>>
 <<if $arcologies[0].FSChattelReligionistCreed == 1>>
diff --git a/src/uncategorized/saDrugs.tw b/src/uncategorized/saDrugs.tw
index f87292bf1eb..c8f45c83df0 100644
--- a/src/uncategorized/saDrugs.tw
+++ b/src/uncategorized/saDrugs.tw
@@ -511,8 +511,11 @@
 
 
 <<case "super fertility drugs">>
-	<<if ($slaves[$i].preg > 5)>>
+	<<if $slaves[$i].pregKnown == 1>>
 		$pronounCap's already pregnant, so the fertility drugs $pronoun's on do $possessive no good. 
+	<<elseif ($slaves[$i].preg > 1)>>
+		Despite being on intense fertility drugs, $pronoun shows no signs of increased fertility. Cursory tests reveal that @@.lime;$pronoun has a bun already in the oven.@@
+		<<set $slaves[$i].pregKnown = 1>>
 	<<elseif ($slaves[$i].vagina == -1) && ($slaves[$i].mpreg != 1)>>
 		<<if ($slaves[$i].lactation == 0)>>
 			Unfortunately, it's impossible to fuck $possessive asshole pregnant, limiting the potential impact of the fertility drugs $pronoun's on to $possessive boobs.
@@ -530,50 +533,45 @@
 	<<else>>
 		$pronounCap's on super fertility drugs, so $pronoun is more likely to conceive, and will have multiple pregnancy.
 	<</if>>
-	<<if ($slaves[$i].lactation == 0)>>
-		<<if random(0,50) < $slaves[$i].health>>
-			The hormonal changes produced by the fertility drugs have the side effect of @@.lime;inducing lactation,@@ indistinguishable from natural lactation.
-			<<set $slaves[$i].lactation = 1>>
-		<</if>>
+	<<if $slaves[$i].lactation == 0 && random(0,50) < $slaves[$i].health>>
+		The hormonal changes produced by the fertility drugs have the side effect of @@.lime;inducing lactation,@@ indistinguishable from natural lactation.
+		<<set $slaves[$i].lactation = 1>>
 	<</if>>
-	<<if ($slaves[$i].attrXY < 100)>>
-		<<if random(0,10) < $slaves[$i].health>>
-			The hormonal changes produced by the fertility drugs cause $possessive to begin @@.green;finding men more attractive@@.
-			<<set $slaves[$i].attrXY += random(5,10)>>
-		<</if>>
+	<<if $slaves[$i].attrXY < 100 && random(0,10) < $slaves[$i].health>>
+		The hormonal changes produced by the fertility drugs cause $possessive to begin @@.green;finding men more attractive@@.
+		<<set $slaves[$i].attrXY += random(5,10)>>
 	<</if>>
-	<<if ($slaves[$i].energy < 85)>>
-		<<if random(0,10) < $slaves[$i].health>>
-			The hormonal changes produced by the fertility drugs cause $possessive to @@.green;begin craving sex more@@.
-			<<set $slaves[$i].energy += 2>>
-		<</if>>
+	<<if $slaves[$i].energy < 85 && random(0,10) < $slaves[$i].health>>
+		The hormonal changes produced by the fertility drugs cause $possessive to @@.green;begin craving sex more@@.
+		<<set $slaves[$i].energy += 2>>
 	<</if>>
 
 <<case "fertility drugs">>
-	<<if ($slaves[$i].preg > 5)>>
-	$pronounCap's already pregnant, so the fertility drugs $pronoun's on do $object no good.
+	<<if $slaves[$i].pregKnown == 1>>
+		$pronounCap's already pregnant, so the fertility drugs $pronoun's on do $possessive no good. 
+	<<elseif ($slaves[$i].preg > 1)>>
+		Despite being on intense fertility drugs, $pronoun shows no signs of increased fertility. Cursory tests reveal that @@.lime;$pronoun has a bun already in the oven.@@
+		<<set $slaves[$i].pregKnown = 1>>
 	<<elseif ($slaves[$i].vagina == -1) && ($slaves[$i].mpreg != 1)>>
-	<<if ($slaves[$i].lactation == 0)>>
-		Unfortunately, it's impossible to fuck $possessive asshole pregnant, limiting the potential impact of the fertility drugs $pronoun's on to $possessive boobs.
-	<<else>>
-		The fertility drugs $pronoun's on are pointless, since $pronoun's already lactating and it's impossible to impregnate $possessive butthole. That's no reason not to try, of course.
-	<</if>>
+		<<if ($slaves[$i].lactation == 0)>>
+			Unfortunately, it's impossible to fuck $possessive asshole pregnant, limiting the potential impact of the fertility drugs $pronoun's on to $possessive boobs.
+		<<else>>
+			The fertility drugs $pronoun's on are pointless, since $pronoun's already lactating and it's impossible to impregnate $possessive butthole. That's no reason not to try, of course.
+		<</if>>
 	<<elseif ($slaves[$i].preg < -1)>>
-	$pronounCap's sterile, so the fertility drugs $pronoun's on do $object no good.
+		$pronounCap's sterile, so the fertility drugs $pronoun's on do $object no good.
 	<<elseif ($slaves[$i].ovaries == 0) && ($slaves[$i].mpreg != 1)>>
-	$pronounCap's barren, so the fertility drugs $pronoun's on do $object no good.
+		$pronounCap's barren, so the fertility drugs $pronoun's on do $object no good.
 	<<elseif ($slaves[$i].pubertyXX == 0) && (($slaves[$i].ovaries == 1) || ($slaves[$i].mpreg == 1))>>
-	$pronounCap's prepubescent, so the fertility drugs $pronoun's on do $object no good.
+		$pronounCap's prepubescent, so the fertility drugs $pronoun's on do $object no good.
 	<<elseif ($slaves[$i].preg == -1)>>
-	$pronounCap's on contraceptives, so the fertility drugs $pronoun's on do $object no good.
+		$pronounCap's on contraceptives, so the fertility drugs $pronoun's on do $object no good.
 	<<else>>
-	$pronounCap's on fertility drugs, so $pronoun is more likely to conceive, and may experience multiple pregnancy.
-	<</if>>
-	<<if ($slaves[$i].lactation == 0)>>
-	<<if random(0,100) < $slaves[$i].health>>
-	The hormonal changes produced by the fertility drugs have the side effect of @@.lime;inducing lactation,@@ indistinguishable from natural lactation.
-	<<set $slaves[$i].lactation = 1>>
+		$pronounCap's on fertility drugs, so $pronoun is more likely to conceive, and may experience multiple pregnancy.
 	<</if>>
+	<<if $slaves[$i].lactation == 0 && random(0,100) < $slaves[$i].health>>
+		The hormonal changes produced by the fertility drugs have the side effect of @@.lime;inducing lactation,@@ indistinguishable from natural lactation.
+		<<set $slaves[$i].lactation = 1>>
 	<</if>>
 	
 <<case "appetite suppressors">>
diff --git a/src/uncategorized/saLongTermEffects.tw b/src/uncategorized/saLongTermEffects.tw
index 194440b05d6..8a5f7576da8 100644
--- a/src/uncategorized/saLongTermEffects.tw
+++ b/src/uncategorized/saLongTermEffects.tw
@@ -3589,7 +3589,7 @@
 
 /* PREGNANCY AND FERTILITY */
 
-<<if ($slaves[$i].pregKnown == 1)>> /*EFFECTS OF PREGNANCY*/
+<<if ($slaves[$i].preg > 0)>> /*EFFECTS OF PREGNANCY*/
 
 	<<if $slaves[$i].preg == 4>>
 		<<if $slaves[$i].pregSource == -1>>
@@ -3929,7 +3929,7 @@
 		<</if>>
 	<</if>>
 
-	<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = -1, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<setPregType $slaves[$i]>>
+	<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = -1, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<SetPregType $slaves[$i]>>
 	<<set $activeSlave = $slaves[$i]>><<if $slaves[$i].mpreg == 1>><<AnalVCheck 10>><<else>><<VaginalVCheck 10>><</if>><<set $slaves[$i] = $activeSlave>>
 
 <<elseif (($slaves[$i].vagina <= 0) || (($slaves[$i].anus <= 0) && ($slaves[$i].mpreg > 0)))>>
@@ -4021,7 +4021,7 @@
 		<</if>> /* closes not fuckdoll not mindbroken */
 
 		<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = $HeadGirl.ID, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1, $HGCum -= 1, $HeadGirl.penetrativeCount += 10, $penetrativeTotal += 10>>
-		<<setPregType $slaves[$i]>>
+		<<SetPregType $slaves[$i]>>
 		<<set $activeSlave = $slaves[$i]>><<if $slaves[$i].mpreg == 1>><<AnalVCheck 10>><<else>><<VaginalVCheck 10>><</if>><<set $slaves[$i] to $activeSlave>>
 		<<for $j = 0; $j < $slaves.length; $j++>>
 			<<if $HeadGirl.ID == $slaves[$j].ID>>
@@ -4039,13 +4039,13 @@
 	<<case "be your Concubine">>
 		<<if ($PC.dick == 1) && ($slaves[$i].fuckdoll == 0) && ($slaves[$i].fetish != "mindbroken") && ($slaves[$i].eggType == "human")>>
 			As your concubine, she takes care to only share her fertile <<if $slaves[$i].mpreg == 1>>ass<<else>>pussy<</if>> with you. Her efforts paid off; @@.lime;she has become pregnant with your child@@.
-			<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = -1, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<setPregType $slaves[$i]>>
+			<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = -1, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<SetPregType $slaves[$i]>>
 		<</if>>
 
 	<<case "serve in the master suite">>
 		<<if ($PC.dick == 1) && ($slaves[$i].eggType == "human") && (($slaves[$i].toyHole == "all her holes" && $slaves[$i].mpreg != 1 && $slaves[$i].vagina > 0) || ($slaves[$i].toyHole == "all her holes" && $slaves[$i].mpreg == 1 && $slaves[$i].anus > 0) || ($slaves[$i].toyHole == "pussy" && $slaves[$i].mpreg != 1) || ($slaves[$i].mpreg == 1 && $slaves[$i].toyHole == "ass"))>>
 			You frequently avail yourself to her fertile <<if $slaves[$i].mpreg == 1>>ass<<else>>pussy<</if>>. It's no surprise when @@.lime;she ends up pregnant with your child@@.
-			<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = -1, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<setPregType $slaves[$i]>>
+			<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = -1, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<SetPregType $slaves[$i]>>
 
 		<<else>> /% look for a random father among master suite slaves %/
 			<<for _m = 0; _m < $MastSiIDs.length; _m++>>
@@ -4058,7 +4058,7 @@
 					<</if>>
 					/* found eligible father */
 					After all the unprotected sex $pronoun had this week, it's really no surprise when @@.lime;$pronoun ends up pregnant@@.
-					<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = $MastSiIDs[_m].ID, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<setPregType $slaves[$i]>>
+					<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = $MastSiIDs[_m].ID, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<SetPregType $slaves[$i]>>
 					<<break>>
 				<</if>>
 			<</for>>
@@ -4067,19 +4067,19 @@
 	<<case "please you">>
 		<<if ($PC.dick == 1) && ($slaves[$i].eggType == "human") && (($slaves[$i].toyHole == "all her holes" && $slaves[$i].mpreg != 1 && $slaves[$i].vagina > 0) || ($slaves[$i].toyHole == "all her holes" && $slaves[$i].mpreg == 1 && $slaves[$i].anus > 0) || ($slaves[$i].toyHole == "pussy" && $slaves[$i].mpreg != 1) || ($slaves[$i].mpreg == 1 && $slaves[$i].toyHole == "ass"))>>
 			You frequently avail yourself to her fertile <<if $slaves[$i].mpreg == 1>>ass<<else>>pussy<</if>>. It's no surprise when @@.lime;she ends up pregnant with your child@@.
-			<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = -1, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<setPregType $slaves[$i]>>
+			<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = -1, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<SetPregType $slaves[$i]>>
 		<</if>>
 	
 	<<case "work in the brothel" "serve in the club" "whore" "serve the public">>
 		<<if ($slaves[$i].eggType == "human")>>
 			Due to all the citizens cumming in $possessive fertile <<if $slaves[$i].mpreg == 1>>ass<<else>>pussy<</if>>, @@.lime;$pronoun has become pregnant@@.
-			<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = -2, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<setPregType $slaves[$i]>>
+			<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = -2, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<SetPregType $slaves[$i]>>
 		<</if>>
 
 	<<case "work a glory hole" "be confined in the arcade">>
 		<<if ($slaves[$i].eggType == "human")>>
 			Due to all the customers cumming in $possessive fertile, restrained <<if $slaves[$i].mpreg == 1>>ass<<else>>pussy<</if>>, @@.lime;$pronoun has become pregnant@@.
-			<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = -2, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<setPregType $slaves[$i]>>
+			<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = -2, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<SetPregType $slaves[$i]>>
 		<</if>>
 
 	<<default>> /* random impregnation chance on other assignments - consider relationships first */
@@ -4125,7 +4125,7 @@
 			<</if>>
 			<<if $slaves[$i].pregSource != 0>>
 				A quick scan after a bout of morning nausea reveals that @@.lime;$pronoun has become pregnant@@.
-				<<set $slaves[$i].preg = 1, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<setPregType $slaves[$i]>>>>
+				<<set $slaves[$i].preg = 1, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<SetPregType $slaves[$i]>>>>
 			<</if>>
 		<</if>> /* closes random chance and non-zero sex acts check */
 	<</switch>> /* closes assignment checks */
diff --git a/src/uncategorized/saRelationships.tw b/src/uncategorized/saRelationships.tw
index c6344326e8f..562ccfdb3cd 100644
--- a/src/uncategorized/saRelationships.tw
+++ b/src/uncategorized/saRelationships.tw
@@ -276,21 +276,21 @@
 						<<set _SlaveI.devotion -= 4>>
 						<<set _SlaveI.trust -= 4>>
 					<</if>>
-					<<if _SlaveI.preg > 0>>
+					<<if _SlaveI.pregKnown == 1>>
 						<<if _SlaveI.pregSource == -1>>
-							<<if _SlaveI.sexualQuirk is "perverted">>
+							<<if _SlaveI.sexualQuirk == "perverted">>
 								She's even @@.hotpink;aroused@@ by the constant awareness that her mother is the parent of the daughter<<if _SlaveI.pregType > 1>>s<</if>> she's carrying.
 								<<set _SlaveI.devotion += 1>>
-							<<elseif _SlaveI.behavioralQuirk is "sinful">>
+							<<elseif _SlaveI.behavioralQuirk == "sinful">>
 								Her feelings about carrying her mother's child<<if _SlaveI.pregType > 1>>ren<</if>> are @@.hotpink;secretly less mixed,@@ though.
 								<<set _SlaveI.devotion += 1>>
 							<<elseif _SlaveI.devotion > 95>>
 								She occasionally remembers that she's carrying her mother's child<<if _SlaveI.pregType > 1>>ren<</if>>, but does her best to accept it by not thinking about it.
 							<<elseif _SlaveI.devotion > 50>>
-								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her mother's, though she tries her best not to think about it.
+								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her mother's, though she tries her best not to think about it.
 								<<set _SlaveI.devotion -= 1>>
 							<<elseif _SlaveI.devotion > 20>>
-								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her mother's that she often wakes up crying about it.
+								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her mother's that she often wakes up crying about it.
 								<<set _SlaveI.devotion -= 2>>
 							<<else>>
 								She's @@.mediumorchid;passionately hateful@@ of you for making her carry an incestuous pregnancy.
@@ -302,7 +302,7 @@
 						Society @@.green;strongly approves@@ of your incestuous relationship, which advances the Egyptian revivalist ideal of slave incest.
 						<<set $repGain += 2*$FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel)>>
 						<<set $arcologies[0].FSEgyptianRevivalist += 0.1*$FSSingleSlaveRep>>
-						<<if _SlaveI.preg > 0>>
+						<<if _SlaveI.bellyPreg >= 1500>>
 							<<if _SlaveI.pregSource == $relation.ID>>
 								@@.green;The effect is greatly enhanced@@ by _SlaveI.slaveName's pureblooded pregnancy.
 								<<set $repGain += $FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel), $arcologies[0].FSEgyptianRevivalist += 0.05*$FSSingleSlaveRep*$pornFameBonus>>
@@ -311,13 +311,13 @@
 					<</if>>
 				<<elseif _SlaveI.father == -1>>
 					She
-					<<if _SlaveI.sexualQuirk is "perverted">>
+					<<if _SlaveI.sexualQuirk == "perverted">>
 						is such a pervert that she @@.hotpink;enjoys@@ carrying on an incestuous relationship with her own father.
 						<<set _SlaveI.devotion += 1>>
 					<<elseif _SlaveI.devotion > 95>>
 						is so inured to the perversities of slavery that she @@.hotpink;enjoys@@ carrying on an incestuous relationship with her own father.
 						<<set _SlaveI.devotion += 1>>
-					<<elseif _SlaveI.behavioralQuirk is "sinful">>
+					<<elseif _SlaveI.behavioralQuirk == "sinful">>
 						is torn between sinful delight and deep disgust that she's carrying on an incestuous relationship with her own father.
 					<<elseif _SlaveI.devotion > 75>>
 						is so devoted to you that she accepts carrying on an incestuous relationship with her own father.
@@ -333,21 +333,21 @@
 						<<set _SlaveI.devotion -= 4>>
 						<<set _SlaveI.trust -= 4>>
 					<</if>>
-					<<if _SlaveI.preg > 0>>
+					<<if _SlaveI.pregKnown == 1>>
 						<<if _SlaveI.pregSource == -1>>
-							<<if _SlaveI.sexualQuirk is "perverted">>
+							<<if _SlaveI.sexualQuirk == "perverted">>
 								She's even @@.hotpink;aroused@@ by the constant awareness that her father is the parent of the daughter<<if _SlaveI.pregType > 1>>s<</if>> she's carrying.
 								<<set _SlaveI.devotion += 1>>
-							<<elseif _SlaveI.behavioralQuirk is "sinful">>
+							<<elseif _SlaveI.behavioralQuirk == "sinful">>
 								Her feelings about carrying her father's child<<if _SlaveI.pregType > 1>>ren<</if>> are @@.hotpink;secretly less mixed,@@ though.
 								<<set _SlaveI.devotion += 1>>
 							<<elseif _SlaveI.devotion > 95>>
 								She occasionally remembers that she's carrying her father's child<<if _SlaveI.pregType > 1>>ren<</if>>, but does her best to accept it by not thinking about it.
 							<<elseif _SlaveI.devotion > 50>>
-								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her father's, though she tries her best not to think about it.
+								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her father's, though she tries her best not to think about it.
 								<<set _SlaveI.devotion -= 1>>
 							<<elseif _SlaveI.devotion > 20>>
-								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her father's that she often wakes up crying about it.
+								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her father's that she often wakes up crying about it.
 								<<set _SlaveI.devotion -= 2>>
 							<<else>>
 								She's @@.mediumorchid;passionately hateful@@ of you for making her carry an incestuous pregnancy.
@@ -359,7 +359,7 @@
 						Society @@.green;strongly approves@@ of your incestuous relationship, which advances the Egyptian revivalist ideal of slave incest.
 						<<set $repGain += 2*$FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel)>>
 						<<set $arcologies[0].FSEgyptianRevivalist += 0.1*$FSSingleSlaveRep>>
-						<<if _SlaveI.preg > 0>>
+						<<if _SlaveI.bellyPreg >= 1500>>
 							<<if _SlaveI.pregSource == $relation.ID>>
 								@@.green;The effect is greatly enhanced@@ by _SlaveI.slaveName's pureblooded pregnancy.
 								<<set $repGain += $FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel), $arcologies[0].FSEgyptianRevivalist += 0.05*$FSSingleSlaveRep*$pornFameBonus>>
@@ -368,13 +368,13 @@
 					<</if>>
 				<<elseif $PC.mother == _SlaveI.ID || $PC.father == _SlaveI.ID>>
 					She
-					<<if _SlaveI.sexualQuirk is "perverted">>
+					<<if _SlaveI.sexualQuirk == "perverted">>
 						is such a pervert that she @@.hotpink;enjoys@@ carrying on an incestuous relationship with her own <<if $PC.title == 1>>son<<else>>daughter<</if>>.
 						<<set _SlaveI.devotion += 1>>
 					<<elseif _SlaveI.devotion > 95>>
 						is so inured to the perversities of slavery that she @@.hotpink;enjoys@@ carrying on an incestuous relationship with her own <<if $PC.title == 1>>son<<else>>daughter<</if>>.
 						<<set _SlaveI.devotion += 1>>
-					<<elseif _SlaveI.behavioralQuirk is "sinful">>
+					<<elseif _SlaveI.behavioralQuirk == "sinful">>
 						is torn between sinful delight and deep disgust that she's carrying on an incestuous relationship with her own <<if $PC.title == 1>>son<<else>>daughter<</if>>.
 					<<elseif _SlaveI.devotion > 75>>
 						is so devoted to you that she accepts carrying on an incestuous relationship with her own <<if $PC.title == 1>>son<<else>>daughter<</if>>.
@@ -390,21 +390,21 @@
 						<<set _SlaveI.devotion -= 4>>
 						<<set _SlaveI.trust -= 4>>
 					<</if>>
-					<<if _SlaveI.preg > 0>>
+					<<if _SlaveI.pregKnown == 1>>
 						<<if _SlaveI.pregSource == -1>>
-							<<if _SlaveI.sexualQuirk is "perverted">>
+							<<if _SlaveI.sexualQuirk == "perverted">>
 								She's even @@.hotpink;aroused@@ by the constant awareness that her <<if $PC.title == 1>>son<<else>>daughter<</if>> is the parent of the daughter<<if _SlaveI.pregType > 1>>s<</if>> she's carrying.
 								<<set _SlaveI.devotion += 1>>
-							<<elseif _SlaveI.behavioralQuirk is "sinful">>
+							<<elseif _SlaveI.behavioralQuirk == "sinful">>
 								Her feelings about carrying her <<if $PC.title == 1>>son<<else>>daughter<</if>>'s child<<if _SlaveI.pregType > 1>>ren<</if>> are @@.hotpink;secretly less mixed,@@ though.
 								<<set _SlaveI.devotion += 1>>
 							<<elseif _SlaveI.devotion > 95>>
 								She occasionally remembers that she's carrying her <<if $PC.title == 1>>son<<else>>daughter<</if>>'s child<<if _SlaveI.pregType > 1>>ren<</if>>, but does her best to accept it by not thinking about it.
 							<<elseif _SlaveI.devotion > 50>>
-								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her <<if $PC.title == 1>>son<<else>>daughter<</if>>'s, though she tries her best not to think about it.
+								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her <<if $PC.title == 1>>son<<else>>daughter<</if>>'s, though she tries her best not to think about it.
 								<<set _SlaveI.devotion -= 1>>
 							<<elseif _SlaveI.devotion > 20>>
-								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her <<if $PC.title == 1>>son<<else>>daughter<</if>>'s that she often wakes up crying about it.
+								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her <<if $PC.title == 1>>son<<else>>daughter<</if>>'s that she often wakes up crying about it.
 								<<set _SlaveI.devotion -= 2>>
 							<<else>>
 								She's @@.mediumorchid;passionately hateful@@ of you for making her carry an incestuous pregnancy.
@@ -416,7 +416,7 @@
 						Society @@.green;strongly approves@@ of your incestuous relationship, which advances the Egyptian revivalist ideal of slave incest.
 						<<set $repGain += 2*$FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel)>>
 						<<set $arcologies[0].FSEgyptianRevivalist += 0.1*$FSSingleSlaveRep>>
-						<<if _SlaveI.preg > 0>>
+						<<if _SlaveI.bellyPreg >= 1500>>
 							<<if _SlaveI.pregSource == $relation.ID>>
 								@@.green;The effect is greatly enhanced@@ by _SlaveI.slaveName's pureblooded pregnancy.
 								<<set $repGain += $FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel), $arcologies[0].FSEgyptianRevivalist += 0.05*$FSSingleSlaveRep*$pornFameBonus>>
@@ -441,13 +441,13 @@
 						<</if>>
 					<</if>>
 					She
-					<<if _SlaveI.sexualQuirk is "perverted">>
+					<<if _SlaveI.sexualQuirk == "perverted">>
 						is such a pervert that she @@.hotpink;enjoys@@ carrying on an incestuous relationship with her own _PCrelative.
 						<<set _SlaveI.devotion += 1>>
 					<<elseif _SlaveI.devotion > 95>>
 						is so inured to the perversities of slavery that she @@.hotpink;enjoys@@ carrying on an incestuous relationship with her own _PCrelative.
 						<<set _SlaveI.devotion += 1>>
-					<<elseif _SlaveI.behavioralQuirk is "sinful">>
+					<<elseif _SlaveI.behavioralQuirk == "sinful">>
 						is torn between sinful delight and deep disgust that she's carrying on an incestuous relationship with her own _PCrelative.
 					<<elseif _SlaveI.devotion > 75>>
 						is so devoted to you that she accepts carrying on an incestuous relationship with her own _PCrelative
@@ -463,21 +463,21 @@
 						<<set _SlaveI.devotion -= 4>>
 						<<set _SlaveI.trust -= 4>>
 					<</if>>
-					<<if _SlaveI.preg > 0>>
+					<<if _SlaveI.pregKnown == 1>>
 						<<if _SlaveI.pregSource == -1>>
-							<<if _SlaveI.sexualQuirk is "perverted">>
+							<<if _SlaveI.sexualQuirk == "perverted">>
 								She's even @@.hotpink;aroused@@ by the constant awareness that her _PCrelative is the parent of the daughter<<if _SlaveI.pregType > 1>>s<</if>> she's carrying.
 								<<set _SlaveI.devotion += 1>>
-							<<elseif _SlaveI.behavioralQuirk is "sinful">>
+							<<elseif _SlaveI.behavioralQuirk == "sinful">>
 								Her feelings about carrying her <<print _PCrelative>>'s child<<if _SlaveI.pregType > 1>>ren<</if>> are @@.hotpink;secretly less mixed,@@ though.
 								<<set _SlaveI.devotion += 1>>
 							<<elseif _SlaveI.devotion > 95>>
 								She occasionally remembers that she's carrying her <<print _PCrelative>>'s child<<if _SlaveI.pregType > 1>>ren<</if>>, but does her best to accept it by not thinking about it.
 							<<elseif _SlaveI.devotion > 50>>
-								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her <<print _PCrelative>>'s, though she tries her best not to think about it.
+								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her <<print _PCrelative>>'s, though she tries her best not to think about it.
 								<<set _SlaveI.devotion -= 1>>
 							<<elseif _SlaveI.devotion > 20>>
-								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her <<print _PCrelative>>'s that she often wakes up crying about it.
+								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her <<print _PCrelative>>'s that she often wakes up crying about it.
 								<<set _SlaveI.devotion -= 2>>
 							<<else>>
 								She's @@.mediumorchid;passionately hateful@@ of you for making her carry an incestuous pregnancy.
@@ -489,7 +489,7 @@
 						Society @@.green;strongly approves@@ of your incestuous relationship, which advances the Egyptian revivalist ideal of slave incest.
 						<<set $repGain += 2*$FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel)>>
 						<<set $arcologies[0].FSEgyptianRevivalist += 0.1*$FSSingleSlaveRep>>
-						<<if _SlaveI.preg > 0>>
+						<<if _SlaveI.bellyPreg >= 1500>>
 							<<if _SlaveI.pregSource == $relation.ID>>
 								@@.green;The effect is greatly enhanced@@ by _SlaveI.slaveName's pureblooded pregnancy.
 								<<set $repGain += $FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel), $arcologies[0].FSEgyptianRevivalist += 0.05*$FSSingleSlaveRep*$pornFameBonus>>
@@ -541,7 +541,7 @@
 						<<set _SlaveI.devotion -= 4>>
 						<<set _SlaveI.trust -= 4>>
 					<</if>>
-					<<if _SlaveI.preg > 0>>
+					<<if _SlaveI.pregKnown == 1>>
 						<<if _SlaveI.pregSource == -1>>
 							<<if _SlaveI.sexualQuirk == "perverted">>
 								She's even @@.hotpink;aroused@@ by the constant awareness that her mother is the parent of the daughter<<if _SlaveI.pregType > 1>>s<</if>> she's carrying.
@@ -552,7 +552,7 @@
 							<<elseif _SlaveI.devotion > 95>>
 								She occasionally remembers that she's carrying her mother's child<<if _SlaveI.pregType > 1>>ren<</if>>, but does her best to accept it by not thinking about it.
 							<<elseif _SlaveI.devotion > 50>>
-								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her mother's, though she tries her best not to think about it.
+								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her mother's, though she tries her best not to think about it.
 								<<set _SlaveI.devotion -= 1>>
 							<<elseif _SlaveI.devotion > 20>>
 								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her mother's that she often wakes up crying about it.
@@ -567,7 +567,7 @@
 						Society @@.green;strongly approves@@ of your incestuous relationship, which advances the Egyptian revivalist ideal of slave incest.
 						<<set $repGain += 2*$FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel)>>
 						<<set $arcologies[0].FSEgyptianRevivalist += 0.1*$FSSingleSlaveRep>>
-						<<if _SlaveI.preg > 0>>
+						<<if _SlaveI.bellyPreg >= 1500>>
 							<<if _SlaveI.pregSource == $relation.ID>>
 								@@.green;The effect is greatly enhanced@@ by _SlaveI.slaveName's pureblooded pregnancy.
 								<<set $repGain += $FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel), $arcologies[0].FSEgyptianRevivalist += 0.05*$FSSingleSlaveRep*$pornFameBonus>>
@@ -576,13 +576,13 @@
 					<</if>>
 				<<elseif _SlaveI.father == -1 && _SlaveI.fetish != "mindbroken">>
 					She
-					<<if _SlaveI.sexualQuirk is "perverted">>
+					<<if _SlaveI.sexualQuirk == "perverted">>
 						is such a pervert that she @@.hotpink;enjoys@@ carrying on an incestuous relationship with her own father.
 						<<set _SlaveI.devotion += 1>>
 					<<elseif _SlaveI.devotion > 95>>
 						is so inured to the perversities of slavery that she @@.hotpink;enjoys@@ carrying on an incestuous relationship with her own father.
 						<<set _SlaveI.devotion += 1>>
-					<<elseif _SlaveI.behavioralQuirk is "sinful">>
+					<<elseif _SlaveI.behavioralQuirk == "sinful">>
 						is torn between sinful delight and deep disgust that she's carrying on an incestuous relationship with her own father.
 					<<elseif _SlaveI.devotion > 75>>
 						is so devoted to you that she accepts carrying on an incestuous relationship with her own mother.
@@ -598,21 +598,21 @@
 						<<set _SlaveI.devotion -= 4>>
 						<<set _SlaveI.trust -= 4>>
 					<</if>>
-					<<if _SlaveI.preg > 0>>
+					<<if _SlaveI.pregKnown == 1>>
 						<<if _SlaveI.pregSource == -1>>
-							<<if _SlaveI.sexualQuirk is "perverted">>
+							<<if _SlaveI.sexualQuirk == "perverted">>
 								She's even @@.hotpink;aroused@@ by the constant awareness that her father is the parent of the daughter<<if _SlaveI.pregType > 1>>s<</if>> she's carrying.
 								<<set _SlaveI.devotion += 1>>
-							<<elseif _SlaveI.behavioralQuirk is "sinful">>
+							<<elseif _SlaveI.behavioralQuirk == "sinful">>
 								Her feelings about carrying her father's child<<if _SlaveI.pregType > 1>>ren<</if>> are @@.hotpink;secretly less mixed,@@ though.
 								<<set _SlaveI.devotion += 1>>
 							<<elseif _SlaveI.devotion > 95>>
 								She occasionally remembers that she's carrying her father's child<<if _SlaveI.pregType > 1>>ren<</if>>, but does her best to accept it by not thinking about it.
 							<<elseif _SlaveI.devotion > 50>>
-								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her father's, though she tries her best not to think about it.
+								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her father's, though she tries her best not to think about it.
 								<<set _SlaveI.devotion -= 1>>
 							<<elseif _SlaveI.devotion > 20>>
-								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her father's that she often wakes up crying about it.
+								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her father's that she often wakes up crying about it.
 								<<set _SlaveI.devotion -= 2>>
 							<<else>>
 								She's @@.mediumorchid;passionately hateful@@ of you for making her carry an incestuous pregnancy.
@@ -624,7 +624,7 @@
 						Society @@.green;strongly approves@@ of your incestuous relationship, which advances the Egyptian revivalist ideal of slave incest.
 						<<set $repGain += 2*$FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel)>>
 						<<set $arcologies[0].FSEgyptianRevivalist += 0.1*$FSSingleSlaveRep>>
-						<<if _SlaveI.preg > 0>>
+						<<if _SlaveI.bellyPreg >= 1500>>
 							<<if _SlaveI.pregSource == $relation.ID>>
 								@@.green;The effect is greatly enhanced@@ by _SlaveI.slaveName's pureblooded pregnancy.
 								<<set $repGain += $FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel), $arcologies[0].FSEgyptianRevivalist += 0.05*$FSSingleSlaveRep*$pornFameBonus>>
@@ -633,13 +633,13 @@
 					<</if>>
 				<<elseif ($PC.mother == _SlaveI.ID || $PC.father == _SlaveI.ID) && _SlaveI.fetish != "mindbroken">>
 					She
-					<<if _SlaveI.sexualQuirk is "perverted">>
+					<<if _SlaveI.sexualQuirk == "perverted">>
 						is such a pervert that she @@.hotpink;enjoys@@ carrying on an incestuous relationship with her own <<if $PC.title == 1>>son<<else>>daughter<</if>>.
 						<<set _SlaveI.devotion += 1>>
 					<<elseif _SlaveI.devotion > 95>>
 						is so inured to the perversities of slavery that she @@.hotpink;enjoys@@ carrying on an incestuous relationship with her own <<if $PC.title == 1>>son<<else>>daughter<</if>>.
 						<<set _SlaveI.devotion += 1>>
-					<<elseif _SlaveI.behavioralQuirk is "sinful">>
+					<<elseif _SlaveI.behavioralQuirk == "sinful">>
 						is torn between sinful delight and deep disgust that she's carrying on an incestuous relationship with her own <<if $PC.title == 1>>son<<else>>daughter<</if>>.
 					<<elseif _SlaveI.devotion > 75>>
 						is so devoted to you that she accepts carrying on an incestuous relationship with her own <<if $PC.title == 1>>son<<else>>daughter<</if>>.
@@ -655,21 +655,21 @@
 						<<set _SlaveI.devotion -= 4>>
 						<<set _SlaveI.trust -= 4>>
 					<</if>>
-					<<if _SlaveI.preg > 0>>
+					<<if _SlaveI.pregKnown == 1>>
 						<<if _SlaveI.pregSource == -1>>
-							<<if _SlaveI.sexualQuirk is "perverted">>
+							<<if _SlaveI.sexualQuirk == "perverted">>
 								She's even @@.hotpink;aroused@@ by the constant awareness that her <<if $PC.title == 1>>son<<else>>daughter<</if>> is the parent of the daughter<<if _SlaveI.pregType > 1>>s<</if>> she's carrying.
 								<<set _SlaveI.devotion += 1>>
-							<<elseif _SlaveI.behavioralQuirk is "sinful">>
+							<<elseif _SlaveI.behavioralQuirk == "sinful">>
 								Her feelings about carrying her <<if $PC.title == 1>>son<<else>>daughter<</if>>'s child<<if _SlaveI.pregType > 1>>ren<</if>> are @@.hotpink;secretly less mixed,@@ though.
 								<<set _SlaveI.devotion += 1>>
 							<<elseif _SlaveI.devotion > 95>>
 								She occasionally remembers that she's carrying her <<if $PC.title == 1>>son<<else>>daughter<</if>>'s child<<if _SlaveI.pregType > 1>>ren<</if>>, but does her best to accept it by not thinking about it.
 							<<elseif _SlaveI.devotion > 50>>
-								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her <<if $PC.title == 1>>son<<else>>daughter<</if>>'s, though she tries her best not to think about it.
+								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her <<if $PC.title == 1>>son<<else>>daughter<</if>>'s, though she tries her best not to think about it.
 								<<set _SlaveI.devotion -= 1>>
 							<<elseif _SlaveI.devotion > 20>>
-								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her <<if $PC.title == 1>>son<<else>>daughter<</if>>'s that she often wakes up crying about it.
+								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her <<if $PC.title == 1>>son<<else>>daughter<</if>>'s that she often wakes up crying about it.
 								<<set _SlaveI.devotion -= 2>>
 							<<else>>
 								She's @@.mediumorchid;passionately hateful@@ of you for making her carry an incestuous pregnancy.
@@ -681,7 +681,7 @@
 						Society @@.green;strongly approves@@ of your incestuous relationship, which advances the Egyptian revivalist ideal of slave incest.
 						<<set $repGain += 2*$FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel)>>
 						<<set $arcologies[0].FSEgyptianRevivalist += 0.1*$FSSingleSlaveRep>>
-						<<if _SlaveI.preg > 0>>
+						<<if _SlaveI.bellyPreg >= 1500>>
 							<<if _SlaveI.pregSource == $relation.ID>>
 								@@.green;The effect is greatly enhanced@@ by _SlaveI.slaveName's pureblooded pregnancy.
 								<<set $repGain += $FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel), $arcologies[0].FSEgyptianRevivalist += 0.05*$FSSingleSlaveRep*$pornFameBonus>>
@@ -728,7 +728,7 @@
 						<<set _SlaveI.devotion -= 4>>
 						<<set _SlaveI.trust -= 4>>
 					<</if>>
-					<<if _SlaveI.preg > 0>>
+					<<if _SlaveI.pregKnown == 1>>
 						<<if _SlaveI.pregSource == -1>>
 							<<if _SlaveI.sexualQuirk == "perverted">>
 								She's even @@.hotpink;aroused@@ by the constant awareness that her _PCrelative is the parent of the daughter<<if _SlaveI.pregType > 1>>s<</if>> she's carrying.
@@ -739,10 +739,10 @@
 							<<elseif _SlaveI.devotion > 95>>
 								She occasionally remembers that she's carrying her <<print _PCrelative>>'s child<<if _SlaveI.pregType > 1>>ren<</if>>, but does her best to accept it by not thinking about it.
 							<<elseif _SlaveI.devotion > 50>>
-								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her <<print _PCrelative>>'s, though she tries her best not to think about it.
+								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her <<print _PCrelative>>'s, though she tries her best not to think about it.
 								<<set _SlaveI.devotion -= 1>>
 							<<elseif _SlaveI.devotion > 20>>
-								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies<<else>>y<</if>> she's carrying is her <<print _PCrelative>>'s that she often wakes up crying about it.
+								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her <<print _PCrelative>>'s that she often wakes up crying about it.
 								<<set _SlaveI.devotion -= 2>>
 							<<else>>
 								She's @@.mediumorchid;passionately hateful@@ of you for making her carry an incestuous pregnancy.
@@ -754,7 +754,7 @@
 						Society @@.green;strongly approves@@ of your incestuous relationship, which advances the Egyptian revivalist ideal of slave incest.
 						<<set $repGain += 2*$FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel)>>
 						<<set $arcologies[0].FSEgyptianRevivalist += 0.1*$FSSingleSlaveRep>>
-						<<if _SlaveI.preg > 0>>
+						<<if _SlaveI.bellyPreg >= 1500>>
 							<<if _SlaveI.pregSource == $relation.ID>>
 								@@.green;The effect is greatly enhanced@@ by _SlaveI.slaveName's pureblooded pregnancy.
 								<<set $repGain += $FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel), $arcologies[0].FSEgyptianRevivalist += 0.05*$FSSingleSlaveRep*$pornFameBonus>>
@@ -1011,11 +1011,11 @@
 					<<set _SlaveI.relationship++, _SlaveJ.relationship = _SlaveI.relationship>>
 				<<elseif mutualChildren(_SlaveI, _SlaveJ, $slaves) > 0 && (random(1, 100) < (50+(10*mutualChildren(_SlaveI, _SlaveJ, $slaves))+$seed))>>
 					Between their children and common sexual flings, they begin seeing each other as a traditional couple. Their relationship becomes @@.lightgreen;strongly emotional@@ as well as physical.
-					<<if _SlaveI.pregSource == _SlaveJ.ID && _SlaveJ.pregSource == _SlaveI.ID>>
+					<<if _SlaveI.pregSource == _SlaveJ.ID && _SlaveJ.pregSource == _SlaveI.ID && _SlaveI.pregKnown == 1 && _SlaveJ.pregKnown == 1>>
 						Not very surprising, since they both have the others child growing in their womb.
-					<<elseif _SlaveI.pregSource == _SlaveJ.ID>>
+					<<elseif _SlaveI.pregSource == _SlaveJ.ID && _SlaveI.pregKnown == 1>>
 						Not very surprising, since _SlaveI.slaveName is carrying another of _SlaveJ.slaveName's children.
-					<<elseif _SlaveJ.pregSource == _SlaveI.ID>>
+					<<elseif _SlaveJ.pregSource == _SlaveI.ID && _SlaveJ.pregKnown == 1>>
 						Not very surprising, since _SlaveJ.slaveName is carrying another of _SlaveI.slaveName's children.
 					<</if>>
 					<<set _SlaveI.relationship++, _SlaveJ.relationship = _SlaveI.relationship>>
@@ -1137,27 +1137,27 @@
 						<<set _SlaveI.devotion -= 4>>
 						<<set _SlaveI.trust -= 4>>
 					<</if>>
-					<<if _SlaveI.preg > 0>>
+					<<if _SlaveI.pregKnown == 1>>
 						<<if _SlaveI.pregSource == $relation.ID>>
 							<<if _SlaveI.origin == "She offered herself to you for enslavement hoping you would preserve her incestuous relationship with her sibling.">>
-								She's @@.hotpink;overjoyed@@ to be carrying her sister's child.
+								She's @@.hotpink;overjoyed@@ to be carrying her sister's child<<if _SlaveI.pregType > 1>>ren<</if>>.
 								<<set _SlaveI.devotion += 2>>
 							<<elseif  _SlaveI.origin == "She offered to become your slave to protect her incestuous relationship.">>
-								She's @@.hotpink;overjoyed@@ to be carrying her <<print $relationType>>'s child.
+								She's @@.hotpink;overjoyed@@ to be carrying her <<print $relationType>>'s child<<if _SlaveI.pregType > 1>>ren<</if>>.
 								<<set _SlaveI.devotion += 2>>
 							<<elseif _SlaveI.sexualQuirk == "perverted">>
-								She's even @@.hotpink;aroused@@ by the constant awareness that her $relationType is the parent of the daughter she's carrying.
+								She's even @@.hotpink;aroused@@ by the constant awareness that her $relationType is the parent of the daughter<<if _SlaveI.pregType > 1>>s<</if>> she's carrying.
 								<<set _SlaveI.devotion += 1>>
 							<<elseif _SlaveI.behavioralQuirk == "sinful">>
-								Her feelings about carrying her <<print $relationType>>'s child are @@.hotpink;secretly less mixed,@@ though.
+								Her feelings about carrying her <<print $relationType>>'s child<<if _SlaveI.pregType > 1>>ren<</if>> are @@.hotpink;secretly less mixed,@@ though.
 								<<set _SlaveI.devotion += 1>>
 							<<elseif _SlaveI.devotion > 95>>
-								She occasionally remembers that she's carrying her <<print $relationType>>'s child, but does her best to accept it by not thinking about it.
+								She occasionally remembers that she's carrying her <<print $relationType>>'s child<<if _SlaveI.pregType > 1>>ren<</if>>, but does her best to accept it by not thinking about it.
 							<<elseif _SlaveI.devotion > 50>>
-								She's @@.mediumorchid;disgusted@@ that the baby she's carrying is her <<print $relationType>>'s, though she tries her best not to think about it.
+								She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her <<print $relationType>>'s, though she tries her best not to think about it.
 								<<set _SlaveI.devotion -= 1>>
 							<<elseif _SlaveI.devotion > 20>>
-								She's so @@.mediumorchid;disgusted@@ that the baby she's carrying is her <<print $relationType>>'s that she often wakes up crying about it.
+								She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her <<print $relationType>>'s that she often wakes up crying about it.
 								<<set _SlaveI.devotion -= 2>>
 							<<else>>
 								She's @@.mediumorchid;passionately hateful@@ of you for making her carry an incestuous pregnancy.
@@ -1169,7 +1169,7 @@
 						Society @@.green;strongly approves@@ of their incestuous relationship, which advances the Egyptian revivalist ideal of slave incest.
 						<<set $repGain += 2*$FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel)>>
 						<<set $arcologies[0].FSEgyptianRevivalist += 0.1*$FSSingleSlaveRep>>
-						<<if _SlaveI.preg > 0>>
+						<<if _SlaveI.bellyPreg >= 1500>>
 							<<if _SlaveI.pregSource == $relation.ID>>
 								@@.green;The effect is greatly enhanced@@ by _SlaveI.slaveName's pureblooded pregnancy.
 								<<set $repGain += $FSSingleSlaveRep*($arcologies[0].FSEgyptianRevivalist/$FSLockinLevel), $arcologies[0].FSEgyptianRevivalist += 0.05*$FSSingleSlaveRep*$pornFameBonus>>
@@ -1206,23 +1206,23 @@
 					@@.mediumorchid;revolted@@ and @@.gold;scared@@ that she's carrying on an incestuous relationship with her own <<print relationTargetWord(_SlaveI)>>.
 					<<set _SlaveI.devotion -= 4, _SlaveI.trust -= 4>>
 				<</if>>
-				<<if (_SlaveI.preg > 0) && (_SlaveI.pregSource == _SlaveI.relationTarget)>>
+				<<if (_SlaveI.pregKnown == 1) && (_SlaveI.pregSource == _SlaveI.relationTarget)>>
 					<<if _SlaveI.origin == "She offered herself to you for enslavement hoping you would preserve her incestuous relationship with her sibling.">>
-						She's @@.hotpink;overjoyed@@ to be carrying her sister's child.
+						She's @@.hotpink;overjoyed@@ to be carrying her sister's child<<if _SlaveI.pregType > 1>>ren<</if>>.
 						<<set _SlaveI.devotion += 2>>
 					<<elseif _SlaveI.sexualQuirk == "perverted">>
-						She's even @@.hotpink;aroused@@ by the constant awareness that her <<print relationTargetWord(_SlaveI)>> is the parent of the daughter she's carrying.
+						She's even @@.hotpink;aroused@@ by the constant awareness that her <<print relationTargetWord(_SlaveI)>> is the parent of the daughter<<if _SlaveI.pregType > 1>>s<</if>> she's carrying.
 						<<set _SlaveI.devotion++>>
 					<<elseif _SlaveI.behavioralQuirk == "sinful">>
-						Her feelings about carrying her <<print relationTargetWord(_SlaveI)>>'s child are @@.hotpink;secretly less mixed,@@ though.
+						Her feelings about carrying her <<print relationTargetWord(_SlaveI)>>'s child<<if _SlaveI.pregType > 1>>ren<</if>> are @@.hotpink;secretly less mixed,@@ though.
 						<<set _SlaveI.devotion++>>
 					<<elseif _SlaveI.devotion > 95>>
-						She occasionally remembers that she's carrying her <<print relationTargetWord(_SlaveI)>>'s child, but does her best to accept it by not thinking about it.
+						She occasionally remembers that she's carrying her <<print relationTargetWord(_SlaveI)>>'s child<<if _SlaveI.pregType > 1>>ren<</if>>, but does her best to accept it by not thinking about it.
 					<<elseif _SlaveI.devotion > 50>>
-						She's @@.mediumorchid;disgusted@@ that the baby she's carrying is her <<print relationTargetWord(_SlaveI)>>'s, though she tries her best not to think about it.
+						She's @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her <<print relationTargetWord(_SlaveI)>>'s, though she tries her best not to think about it.
 						<<set _SlaveI.devotion-->>
 					<<elseif _SlaveI.devotion > 20>>
-						She's so @@.mediumorchid;disgusted@@ that the baby she's carrying is her <<print relationTargetWord(_SlaveI)>>'s that she often wakes up crying about it.
+						She's so @@.mediumorchid;disgusted@@ that the bab<<if _SlaveI.pregType > 1>>ies she's carrying are<<else>>y she's carrying is<</if>> her <<print relationTargetWord(_SlaveI)>>'s that she often wakes up crying about it.
 						<<set _SlaveI.devotion -= 2>>
 					<<else>>
 						She's @@.mediumorchid;passionately hateful@@ of you for making her carry an incestuous pregnancy.
@@ -1232,7 +1232,7 @@
 				<<if $arcologies[0].FSEgyptianRevivalist != "unset">>
 					Society @@.green;strongly approves@@ of their incestuous relationship, which advances the Egyptian revivalist ideal of slave incest.
 					<<set $repGain += 2 * $FSSingleSlaveRep * ($arcologies[0].FSEgyptianRevivalist / $FSLockinLevel), $arcologies[0].FSEgyptianRevivalist += 0.1 * $FSSingleSlaveRep>>
-					<<if (_SlaveI.preg > 0) && (_SlaveI.pregSource == _SlaveI.relationTarget)>>
+					<<if (_SlaveI.bellyPreg >= 1500) && (_SlaveI.pregSource == _SlaveI.relationTarget)>>
 						@@.green;The effect is greatly enhanced@@ by _SlaveI.slaveName's pureblooded pregnancy.
 						<<set $repGain += $FSSingleSlaveRep * ($arcologies[0].FSEgyptianRevivalist / $FSLockinLevel), $arcologies[0].FSEgyptianRevivalist += 0.05 * $FSSingleSlaveRep * $pornFameBonus>>
 					<</if>>
-- 
GitLab