From bc58983366d038e36ce3a686f3778ff046a15f3e Mon Sep 17 00:00:00 2001
From: Pregmodder <pregmodder@gmail.com>
Date: Thu, 22 Feb 2018 19:39:12 -0500
Subject: [PATCH] more cases
---
src/pregmod/managePersonalAffairs.tw | 8 +--
src/uncategorized/REroyalblood.tw | 6 ++
src/uncategorized/genericPlotEvents.tw | 9 ++-
src/uncategorized/pRivalryActions.tw | 75 ++++++++++++++----------
src/uncategorized/pRivalryVictory.tw | 6 +-
src/uncategorized/reFSAcquisition.tw | 3 +
src/uncategorized/reRecruit.tw | 10 ++++
src/uncategorized/reRelativeRecruiter.tw | 2 +
src/uncategorized/resFailure.tw | 3 +
src/uncategorized/seCoursing.tw | 1 +
src/uncategorized/slaveShelter.tw | 1 +
src/utility/slaveCreationWidgets.tw | 16 +++++
12 files changed, 101 insertions(+), 39 deletions(-)
diff --git a/src/pregmod/managePersonalAffairs.tw b/src/pregmod/managePersonalAffairs.tw
index 1d97c06bba8..3dd539b8f9e 100644
--- a/src/pregmod/managePersonalAffairs.tw
+++ b/src/pregmod/managePersonalAffairs.tw
@@ -314,13 +314,13 @@ __Contraceptives and Fertility__
<span id="miniscene">
<<if $PC.preg < 6 && $PC.pregKnown == 1 && $PC.pregSource != -1>>
- Your period is late, so the first thing you do is test yourself for a potential pregnancy: @@.lime;you are pregnant.@@ <<link "Abort your child">><<replace "#miniscene">><<set $PC.preg = 0, $PC.pregType = 0, $PC.pregSource = 0, $PC.pregKnown = 0>><<print "You take a syringe filled with abortifacients and make your self comfortable. Injecting the vial through your belly into your womb, your close your eyes and wait for what is coming. Once you feel it is over, you clean yourself up and go on your way, child free.">><br> <</replace>><</link>>
+ Your period is late, so the first thing you do is test yourself for a potential pregnancy: @@.lime;you are pregnant.@@ <<link "Abort your child">><<replace "#miniscene">><<set $PC.preg = 0, $PC.pregType = 0, $PC.pregSource = 0, $PC.pregKnown = 0, $PC.pregWeek = 0>><<set wombFlush($PC)>><<print "You take a syringe filled with abortifacients and make your self comfortable. Injecting the vial through your belly into your womb, your close your eyes and wait for what is coming. Once you feel it is over, you clean yourself up and go on your way, child free.">><br> <</replace>><</link>>
<<elseif $PC.labor == 1>>
You are beginning to feel contractions, you'll be giving birth soon.
<<elseif $PC.preg >= 39>>
Your due date is looming, but your child doesn't seem to be interested in coming out just yet. [[Induce childbirth|Manage Personal Affairs][$PC.labor = 1]]
<<elseif $PC.pregKnown == 1 && $PC.pregSource != -1>>
- You're pregnant, something rather unbecoming for an arcology owner. <<link "Abort your child">><<replace "#miniscene">><<set $PC.preg = 0, $PC.pregWeek == -2, $PC.pregType = 0, $PC.pregSource = 0, $PC.belly = 0, $PC.pregKnown = 0>><<print "You take a syringe filled with abortifacients and make your self comfortable. Injecting the vial through your belly into your womb, your close your eyes and wait for what is coming. Once you feel it is over, you clean yourself up and go on your way, child free.">><br> <</replace>><</link>>
+ You're pregnant, something rather unbecoming for an arcology owner. <<link "Abort your child">><<replace "#miniscene">><<set $PC.preg = 0, $PC.pregWeek = -2, $PC.pregType = 0, $PC.pregSource = 0, $PC.belly = 0, $PC.pregKnown = 0>><<set wombFlush($PC)>><<print "You take a syringe filled with abortifacients and make your self comfortable. Injecting the vial through your belly into your womb, your close your eyes and wait for what is coming. Once you feel it is over, you clean yourself up and go on your way, child free.">><br> <</replace>><</link>>
<</if>>
</span>
@@ -382,7 +382,7 @@ In total, you have given birth to:
<<elseif $PC.preg > 1>>
You've missed your period. This could be bad.
<<elseif $PC.preg > 0 && $PC.pregSource != -1>>
- Your fertile pussy has been thoroughly seeded, there is a chance you are pregnant. [[Pop some morning after pills|Manage Personal Affairs][$PC.preg = 0, $PC.pregWeek == 0, $PC.pregKnown = 0, $PC.pregType = 0]]
+ Your fertile pussy has been thoroughly seeded, there is a chance you are pregnant. <<link "Pop some morning after pills">><<set $PC.preg = 0, $PC.pregWeek = 0, $PC.pregType = 0, $PC.pregSource = 0, $PC.pregKnown = 0>><<set wombFlush($PC)>><<goto "Manage Personal Affairs">><</link>>
<<elseif $PC.pregWeek < 0>>
You're still recovering from your recent pregnancy.
<<elseif $PC.preg == -2>>
@@ -427,7 +427,7 @@ In total, you have given birth to:
<br><br>
The tap connected to $dairyName is calling to you. Begging to let it fill you with cum again. If you wanted to try and go bigger, that is.
<br>[[Sounds fun!|FSelf]]
- <br>[[You only want to get pregnant.|Manage Personal Affairs][$PC.preg = 1, $PC.pregSource = 0]]
+ <br><<link "You only want to get pregnant.">><<set $PC.preg = 1, $PC.pregWeek = 1, $PC.pregSource = 0, $PC.pregKnown = 1>><<SetPregType $PC>><<set WombImpregnate($PC, $PC.pregType, 0, 1)>><<goto "Manage Personal Affairs">><</link>>
<</if>>
<</if>>
<<if $PC.vagina == 1 && $PC.dick == 1>>
diff --git a/src/uncategorized/REroyalblood.tw b/src/uncategorized/REroyalblood.tw
index 93375421212..2c74d2678f9 100644
--- a/src/uncategorized/REroyalblood.tw
+++ b/src/uncategorized/REroyalblood.tw
@@ -577,6 +577,7 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
<<set $activeSlave.pregWeek = 7>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<set $activeSlave.pubicHStyle = "waxed">>
<<set $activeSlave.shoulders = random(-1,1)>>
@@ -638,6 +639,7 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
<<set $activeSlave.pregWeek = 7>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<set $activeSlave.pubicHStyle = "waxed">>
<<set $activeSlave.shoulders = random(-1,1)>>
@@ -736,6 +738,7 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
<<set $activeSlave.pregWeek = 7>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<set $activeSlave.pubicHStyle = "waxed">>
<<set $activeSlave.hips = 1>>
@@ -840,6 +843,7 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
<<set $activeSlave.pregWeek = 7>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<set $activeSlave.pubicHStyle = "waxed">>
<<set $activeSlave.hips = 1>>
@@ -991,6 +995,7 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
<<set $activeSlave.pregWeek = 7>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<set $activeSlave.pubicHStyle = "waxed">>
<<set $activeSlave.shoulders = random(-1,1)>>
@@ -1186,6 +1191,7 @@ Time is short, but you are well placed to acquire some choice slaves. With an ad
<<set $activeSlave.pregWeek = 7>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<set $activeSlave.pubicHStyle = "waxed">>
<<set $activeSlave.shoulders = random(-1,1)>>
diff --git a/src/uncategorized/genericPlotEvents.tw b/src/uncategorized/genericPlotEvents.tw
index b6bd1f5c4e9..3320b033952 100644
--- a/src/uncategorized/genericPlotEvents.tw
+++ b/src/uncategorized/genericPlotEvents.tw
@@ -331,7 +331,7 @@ When the aircraft lands at your penthouse pad, the would-be escapees are still u
<<set $one_time_age_overrides_pedo_mode = 1>> /% Old enough to be pregnant. %/
<<include "Generate XX Slave">>
<<set $activeSlave.origin = "She was an expectant mother you enslaved when you evacuated her from a threatened old world hospital.">>
- <<set $activeSlave.career = "a housewife">>
+ <<set $activeSlave.career = "a housewife">>
<<set $activeSlave.devotion = random(-90,-75)>>
<<set $activeSlave.trust = -20>>
<<set $activeSlave.preg = random(28,40)>>
@@ -339,6 +339,7 @@ When the aircraft lands at your penthouse pad, the would-be escapees are still u
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<set $activeSlave.health = random(-10,10)>>
<<set $activeSlave.vagina = random(1,3)>>
<<set $activeSlave.boobs += 100*random(0,2)>>
@@ -553,10 +554,11 @@ A screen opposite your desk springs to life, <<if $assistant == 0>>showing your
<<for $i = 0; $i < $slaves.length; $i++>>
<<if ($slaves[$i].drugs == "breast injections") && canGetPregnant($slaves[$i])>>
<<set $slaves[$i].preg = 1>>
- <<set $slaves[$i].pregType = random(10,19)>>
+ <<set $slaves[$i].pregType = random(10,25)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = 1>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<elseif $slaves[$i].drugs == "breast injections">>
<<set $slaves[$i].lactation = 1>>
<<if $slaves[$i].hips < 1>>
@@ -574,10 +576,11 @@ A screen opposite your desk springs to life, <<if $assistant == 0>>showing your
<<set $slaves[$i].boobs += 300>>
<<elseif ($slaves[$i].drugs == "hyper breast injections") && canGetPregnant($slaves[$i])>>
<<set $slaves[$i].preg = 1>>
- <<set $slaves[$i].pregType = random(20,29)>>
+ <<set $slaves[$i].pregType = random(20,45)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = 1>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<elseif $slaves[$i].drugs == "hyper breast injections">>
<<set $slaves[$i].lactation = 1>>
<<if $slaves[$i].hips < 1>>
diff --git a/src/uncategorized/pRivalryActions.tw b/src/uncategorized/pRivalryActions.tw
index 4776931a088..a4f652f354d 100644
--- a/src/uncategorized/pRivalryActions.tw
+++ b/src/uncategorized/pRivalryActions.tw
@@ -60,6 +60,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = $rivalryDuration>>
<<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
<<set $hostage.vagina = 2>>
<<set $hostage.oralCount += 50>>
<<set $hostage.vaginalCount += 50>>
@@ -76,6 +77,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = $rivalryDuration>>
<<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
<<set $hostage.vagina = 2>>
<<set $hostage.oralCount += 50>>
<<set $hostage.vaginalCount += 50>>
@@ -282,6 +284,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = $rivalryDuration>>
<<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
<<set $hostage.oralCount += 50>>
<<set $hostage.vaginalCount += 50>>
<<set $hostage.analCount += 50>>
@@ -296,6 +299,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = $rivalryDuration>>
<<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
<<set $hostage.boobs += 100>>
<<set $hostage.oralCount += 50>>
<<set $hostage.vaginalCount += 50>>
@@ -552,6 +556,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = 12>>
<<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
<</if>>
<<if $hostage.vagina < 3>>
<<set $hostage.vagina = 3>>
@@ -587,6 +592,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = $rivalryDuration>>
<<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
<<set $hostage.vagina = 3>>
<<set $hostage.boobs += 100>>
<<set $hostage.lactation = 1>>
@@ -608,6 +614,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = $rivalryDuration>>
<<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
<<set $hostage.vagina = 3>>
<<set $hostage.boobs += 300>>
<<set $hostage.lactation = 1>>
@@ -860,6 +867,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = $hostage.preg>>
<<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
<</if>>
<<if $hostage.vagina < 4>>
<<set $hostage.vagina = 4>>
@@ -891,6 +899,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = $rivalryDuration>>
<<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
<<set $hostage.vagina = 4>>
<<set $hostage.boobs += 100>>
<<set $hostage.lactation = 1>>
@@ -909,6 +918,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = $rivalryDuration>>
<<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
<<set $hostage.vagina = 4>>
<<set $hostage.boobs += 400>>
<<set $hostage.lactation = 1>>
@@ -1100,6 +1110,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = $hostage.preg>>
<<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
<</if>>
<<set $hostage.oralCount += 50>>
<<set $hostage.vaginalCount += 50>>
@@ -1117,37 +1128,39 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
giving an interview. She gushes over how important it is for only the best of society to reproduce, and how it is an atrocity that some people bring so many wasted lives into being.
<<case "Eugenics">>
<<if $seeHyperPreg != 1>>
- <<set $hostage.preg = 1>>
- <<set $hostage.pregType = 8>>
- <<set $hostage.pregKnown = 1>>
- <<set $hostage.pregWeek = 1>>
- <<SetBellySize $hostage>>
- <<set $hostage.vagina = 5>>
- <<if $hostage.births < 1>>
- <<set $hostage.births = 1>>
- <<set $hostage.birthsTotal += 1>>
- <</if>>
- <<set $hostage.oralCount += 100>>
- <<set $hostage.vaginalCount += 100>>
- <<set $hostage.analCount += 100>>
- <<set $hostage.mammaryCount += 100>>
- <<set $activeSlave.bellySag = 2, $activeSlave.bellySagPreg = 2>>
+ <<set $hostage.preg = 1>>
+ <<set $hostage.pregType = 8>>
+ <<set $hostage.pregKnown = 1>>
+ <<set $hostage.pregWeek = 1>>
+ <<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
+ <<set $hostage.vagina = 5>>
+ <<if $hostage.births < 1>>
+ <<set $hostage.births = 1>>
+ <<set $hostage.birthsTotal += 1>>
+ <</if>>
+ <<set $hostage.oralCount += 100>>
+ <<set $hostage.vaginalCount += 100>>
+ <<set $hostage.analCount += 100>>
+ <<set $hostage.mammaryCount += 100>>
+ <<set $activeSlave.bellySag = 2, $activeSlave.bellySagPreg = 2>>
<<else>>
- <<set $hostage.preg = 1>>
- <<set $hostage.pregType = 40>>
- <<set $hostage.pregKnown = 1>>
- <<set $hostage.pregWeek = 1>>
- <<SetBellySize $hostage>>
- <<set $hostage.vagina = 5>>
- <<if $hostage.births < 50>>
- <<set $hostage.births = 20>>
- <<set $hostage.birthsTotal += 20>>
- <</if>>
- <<set $hostage.oralCount += 100>>
- <<set $hostage.vaginalCount += 100>>
- <<set $hostage.analCount += 100>>
- <<set $hostage.mammaryCount += 100>>
- <<set $activeSlave.bellySag = 5, $activeSlave.bellySagPreg = 5>>
+ <<set $hostage.preg = 1>>
+ <<set $hostage.pregType = 40>>
+ <<set $hostage.pregKnown = 1>>
+ <<set $hostage.pregWeek = 1>>
+ <<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
+ <<set $hostage.vagina = 5>>
+ <<if $hostage.births < 50>>
+ <<set $hostage.births = 20>>
+ <<set $hostage.birthsTotal += 20>>
+ <</if>>
+ <<set $hostage.oralCount += 100>>
+ <<set $hostage.vaginalCount += 100>>
+ <<set $hostage.analCount += 100>>
+ <<set $hostage.mammaryCount += 100>>
+ <<set $activeSlave.bellySag = 5, $activeSlave.bellySagPreg = 5>>
<</if>>
giving an interview. She gushes over how important it is for women to conceive and carry as many children as they can, as well as how terrible it is that some people strip away a woman's most important purpose. Before she can continue, her water breaks and she drops to the floor. You close the video in disgust of whats coming.
<<case "Gender Radicalism">>
@@ -1157,6 +1170,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = 8>>
<<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
giving an interview. She gushes over how great it feels knowing that someone is always watching out for her safety and health as a traditional woman, as well as how terrible it is that some people want to blur the lines between the genders.
<<case "Gender Fundamentalism">>
<<set $hostage.analCount += 10>>
@@ -1197,6 +1211,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = 14>>
<<SetBellySize $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, $hostage.preg)>>
and her owner at the altar during their wedding. It seems she couldn't wait, since her belly already shows signs of an early pregnancy.
<<case "Body Purism">>
<<set $hostage.boobs = 50000>>
diff --git a/src/uncategorized/pRivalryVictory.tw b/src/uncategorized/pRivalryVictory.tw
index db03712cdc5..6212699c362 100644
--- a/src/uncategorized/pRivalryVictory.tw
+++ b/src/uncategorized/pRivalryVictory.tw
@@ -369,18 +369,19 @@ For the first time, you receive a direct call from your rival. You pictured the
<<set $activeSlave.preg = 25>>
<<if $seeHyperPreg == 1>>
<<set $activeSlave.vagina = 10>>
- <<set $activeSlave.pregType = random(20,29)>>
+ <<set $activeSlave.pregType = random(20,35)>>
<<set $activeSlave.birthsTotal = random(120,180)>>
<<set $activeSlave.bellySag = 30, $activeSlave.bellySagPreg = 30>>
<<else>>
<<set $activeSlave.vagina = 5>>
- <<set $activeSlave.pregType = either(3,3,4,4,4,5)>>
+ <<set $activeSlave.pregType = either(3,3,4,4,4,5,5,6,6,7,7,8,8,8)>>
<<set $activeSlave.birthsTotal = random(18,27)>>
<<set $activeSlave.bellySag = 2, $activeSlave.bellySagPreg = 2>>
<</if>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.vaginalSkill = 100>>
<<set $activeSlave.oralSkill = 15>>
<<set $activeSlave.analSkill = 15>>
@@ -505,6 +506,7 @@ For the first time, you receive a direct call from your rival. You pictured the
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.vaginalSkill = 100>>
<<set $activeSlave.oralSkill = 100>>
<<set $activeSlave.analSkill = 100>>
diff --git a/src/uncategorized/reFSAcquisition.tw b/src/uncategorized/reFSAcquisition.tw
index 9f7c5d07882..ec6cc449fef 100644
--- a/src/uncategorized/reFSAcquisition.tw
+++ b/src/uncategorized/reFSAcquisition.tw
@@ -42,6 +42,7 @@
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+<<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<set $activeSlave.lactation = 1>>
<<set $activeSlave.vagina = 1>>
<<set $activeSlave.boobs += 200*random(2,5)>>
@@ -232,6 +233,7 @@
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+<<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<set $activeSlave.vagina = 1>>
<<slaveCost $activeSlave>>
<<set $slaveCost -= 1000>>
@@ -252,6 +254,7 @@
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+<<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<set $activeSlave.vagina = 1>>
<<set $activeSlave.pregTotal = random(1,3)>>
<<slaveCost $activeSlave>>
diff --git a/src/uncategorized/reRecruit.tw b/src/uncategorized/reRecruit.tw
index 8564a187f75..0e0667db171 100644
--- a/src/uncategorized/reRecruit.tw
+++ b/src/uncategorized/reRecruit.tw
@@ -173,6 +173,7 @@ One of the tenants in your arcology has not paid rent in some time. In the Free
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+<<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<set $activeSlave.fetish = "none">>
<<set $activeSlave.fetishKnown = 0>>
<<set $activeSlave.health = random(-40,-20)>>
@@ -202,6 +203,7 @@ A young woman comes to your penthouse for an interview. You accepted her request
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+<<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<set $activeSlave.eyes = -2>>
<<set $activeSlave.weight = -100>>
<<set $activeSlave.fetish = "none">>
@@ -823,6 +825,7 @@ After the fighting died down, they found a dickgirl inside the compound, harshly
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<set $activeSlave.dick = random(1,3)>>
<<set $activeSlave.balls = 0>>
@@ -875,6 +878,7 @@ After the fighting died down, they found a woman inside the compound, harshly us
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<set $activeSlave.weight = random(-80,20)>>
<<set $activeSlave.pubicHStyle = "waxed">>
@@ -1076,6 +1080,10 @@ As fate has it, the person calling is the owner of the local race-track, wanting
<<set $activeSlave.labia = 1>>
<<set $activeSlave.ovaries = 1>>
<<set $activeSlave.preg = 1>>
+<<set $activeSlave.pregWeek = 1>>
+<<set $activeSlave.pregType = 1>>
+<<set $activeSlave.pregKnown = 1>>
+<<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<set $activeSlave.pubicHStyle = "waxed">>
<<set $activeSlave.underArmHStyle = "waxed">>
<<set $activeSlave.height = random(180,200)>>
@@ -1260,6 +1268,7 @@ The current sale offer by the company was taken from a businesswoman's apartment
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+<<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<set $activeSlave.birthsTotal += 3>>
<<set $activeSlave.pubicHStyle = "waxed">>
<<set $activeSlave.underArmHStyle = "waxed">>
@@ -1697,6 +1706,7 @@ Your desk flags a video message as having potential. It's a desperate refugee fr
<<set $activeSlave.pregWeek = 30>>
<<set $activeSlave.pregKnown = 1>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
As you are heading back to your penthouse from overseeing a promising new store's opening, you noticed a feminine face peeking around a nearby corner. It quickly darts out of sight before a hand beckons you in. The alley isn't particularly out of sight, so no harm looking in. The girl is young, with silver hair, blue eyes, dark skin and<<if $activeSlave.preg > 0>>is enormously pregnant<<else>>a waifish build<</if>>; certainly an eye-catching display. She doesn't seem to speak much $language at all, and judging by her gesturing, is trying to ask you to purchase her.
diff --git a/src/uncategorized/reRelativeRecruiter.tw b/src/uncategorized/reRelativeRecruiter.tw
index 2faccffa5c9..e8eed19211d 100644
--- a/src/uncategorized/reRelativeRecruiter.tw
+++ b/src/uncategorized/reRelativeRecruiter.tw
@@ -127,6 +127,7 @@
<<set $activeSlave.pregType = 0>>
<<set $activeSlave.pregWeek = 0>>
<<set $activeSlave.pregKnown = 0>>
+ <<set WombFlush($activeSlave)>>
<<SetBellySize $activeSlave>>
$eventSlave.slaveName requests an interview with you. She's a devoted slave, and you grant it, and are happy you did when you see the troubled expression on her face. She explains<<if !canTalk($eventSlave)>> with desperate gestures<</if>> that
@@ -232,6 +233,7 @@ She waits anxiously for your decision.
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<set $activeSlave.weight = random(30,135)>>
<<set $activeSlave.muscles = random(0,15)>>
diff --git a/src/uncategorized/resFailure.tw b/src/uncategorized/resFailure.tw
index 0f054652772..95cebbbf28a 100644
--- a/src/uncategorized/resFailure.tw
+++ b/src/uncategorized/resFailure.tw
@@ -117,6 +117,7 @@
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<set $activeSlave.bellySag = 10>>
<<set $activeSlave.bellySagPreg = 10>>
<<set $activeSlave.hips = either(2, 2, 2, 2, 3)>>
@@ -579,6 +580,7 @@
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<</if>>
<<set $activeSlave.intelligenceImplant = 1>>
@@ -655,6 +657,7 @@
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<</if>>
<<set $activeSlave.intelligenceImplant = 1>>
diff --git a/src/uncategorized/seCoursing.tw b/src/uncategorized/seCoursing.tw
index b3e8fc6dce5..d116aee8836 100644
--- a/src/uncategorized/seCoursing.tw
+++ b/src/uncategorized/seCoursing.tw
@@ -68,6 +68,7 @@ The rules have been explained to the hares: they're to be freed if they can reac
<<set $activeSlave.preg = random(30,40)>>
<<set $activeSlave.pregKnown = 1, $activeSlave.pregType = 1, $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<set $activeSlave.ovaries = 1>>
<<set $activeSlave.vaginalSkill = 0>>
<<set $activeSlave.oralSkill = 0>>
diff --git a/src/uncategorized/slaveShelter.tw b/src/uncategorized/slaveShelter.tw
index 75788104e47..fa7a0e19d6f 100644
--- a/src/uncategorized/slaveShelter.tw
+++ b/src/uncategorized/slaveShelter.tw
@@ -188,6 +188,7 @@ You contact the Slave Shelter to review the profile of the slave the Shelter is
<<if $shelterSlave.preg > 0>>
<<set $shelterSlave.pregSource = -2, $shelterSlave.pregKnown = 1>>
<<SetPregType $shelterSlave>>
+ <<set WombImpregnate($shelterSlave, $shelterSlave.pregType, $shelterSlave.pregSource, $shelterSlave.preg)>>
<</if>>
<</if>>
<<if $shelterSlave.vagina > -1>>
diff --git a/src/utility/slaveCreationWidgets.tw b/src/utility/slaveCreationWidgets.tw
index 023b05c6395..996d77e54b1 100644
--- a/src/utility/slaveCreationWidgets.tw
+++ b/src/utility/slaveCreationWidgets.tw
@@ -2373,6 +2373,7 @@
<<set $activeSlave.pregType = random(3,8)>>
<</if>>
<</if>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<set $activeSlave.lactation = random(0,1)>>
<<elseif $arcologies[_market].FSRestart > 50>>
They have all been rendered unable to reproduce.
@@ -2428,7 +2429,9 @@
<<set $activeSlave.mpreg = 1>>
<<if isFertile($activeSlave)>>
<<set $activeSlave.preg = random(1,39)>>
+ <<SetPregType $activeSlave>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<</if>>
<<else>>
@@ -2459,7 +2462,9 @@
<<set $activeSlave.preg = 0>> /*removing contraception of default slave generation so isFertile can work right*/
<<if isFertile($activeSlave)>>
<<set $activeSlave.preg = random(1,40)>>
+ <<SetPregType $activeSlave>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<set $activeSlave.lactation = random(0,1)>>
<</if>>
<</if>>
@@ -2800,6 +2805,10 @@
<<set $activeSlave.health = random(-80,20)>>
<<if $activeSlave.vagina > 1 && isFertile($activeSlave)>>
<<set $activeSlave.preg = either(-2, -1, -1, -1, -1, -1, -1, -1, 1, 20, 40)>>
+ <<if $activeSlave.preg > 0>>
+ <<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
+ <</if>>
<<SetBellySize $activeSlave>>
<</if>>
@@ -2833,6 +2842,10 @@
<<if $activeSlave.vagina > -1>>
<<set $activeSlave.preg = either(-2, -1, -1, -1, -1, -1, -1, -1, 1, 1)>>
<<if $activeSlave.physicalAge < $activeSlave.pubertyAgeXX>><<set $activeSlave.preg = -1>><</if>>
+ <<if $activeSlave.preg > 0>>
+ <<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
+ <</if>>
<<SetBellySize $activeSlave>>
<<set $activeSlave.vaginalSkill = random(15,100)>>
<<set $activeSlave.vagina = random(1,3)>>
@@ -3346,6 +3359,7 @@
<<set $activeSlave.preg = random(10,40)>>
<<set $activeSlave.pregType = random(1,5)>>
<<SetBellySize $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<<set $activeSlave.bellySag = 2>>
<<set $activeSlave.bellySagPreg = 2>>
<<set $activeSlave.hips = either(1, 1, 1, 2, 2)>>
@@ -3516,6 +3530,7 @@
<<else>>
<<set $activeSlave.preg = random(1,40)>>
<</if>>
+ <<set WombImpregnate($activeSlave, 1, 0, $activeSlave.preg)>>
<</if>>
<</if>>
<<SetBellySize $activeSlave>>
@@ -3805,6 +3820,7 @@
<<case "Motherly Attendant">>
<<set $activeSlave.devotion = 90, $activeSlave.trust = 90, $activeSlave.health = random(80,95), $activeSlave.fetish = "submissive", $activeSlave.fetishStrength = 100, $activeSlave.face = random(60,90)>>
<<set $activeSlave.career = either("a counselor", "a dispatch officer", "a lifeguard", "a masseuse", "a psychologist", "a therapist"), $activeSlave.birthsTotal = random(1,3), $activeSlave.pregKnown = 1, $activeSlave.preg = random(20,35), $activeSlave.pregWeek = $activeSlave.preg>>
+ <<set WombImpregnate($activeSlave, 1, 0, $activeSlave.preg)>>
<<SetBellySize $activeSlave>>
<<set $activeSlave.actualAge = random(36,$retirementAge-3)>>
<<set $activeSlave.vagina = random(3,4)>>
--
GitLab