From c4358aaa50d2fe1a13c16274352cf24c0daf3f1a Mon Sep 17 00:00:00 2001
From: pregmodfan <pregmodfan@cock.li>
Date: Fri, 16 Feb 2018 15:18:46 +0200
Subject: [PATCH] impregnation cases hooked up to womb system
---
src/pregmod/newChildIntro.tw | 1 +
src/pregmod/pInsemination.tw | 1 +
src/uncategorized/RESS.tw | 3 +++
src/uncategorized/dairyReport.tw | 1 +
src/uncategorized/newSlaveIntro.tw | 1 +
src/uncategorized/pHostageAcquisition.tw | 1 +
src/uncategorized/pRivalInitiation.tw | 1 +
src/uncategorized/pRivalryActions.tw | 1 +
src/uncategorized/saLongTermEffects.tw | 12 +++++++++++-
src/uncategorized/seRaiding.tw | 11 +++++++++++
src/uncategorized/seRecruiterSuccess.tw | 1 +
src/uncategorized/seWedding.tw | 14 ++++++++++++++
src/uncategorized/servantsQuartersReport.tw | 1 +
src/utility/miscWidgets.tw | 2 ++
14 files changed, 50 insertions(+), 1 deletion(-)
diff --git a/src/pregmod/newChildIntro.tw b/src/pregmod/newChildIntro.tw
index e0a8dccade1..0338240cbf2 100644
--- a/src/pregmod/newChildIntro.tw
+++ b/src/pregmod/newChildIntro.tw
@@ -645,6 +645,7 @@ You slowly strip down, gauging her reactions to your show, until you are fully n
<<set $activeSlave.pregSource = -1>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = 1>>
+<<set WombImpregnate($activeSlave, $activeSlave.pregType, -1, 1)>>
<<replace "#result">>
<<if $activeSlave.pregType > 0>>
You don't need to perform an exam to know that she is fertile; her nethers are swollen with need and her pussy dripping with desire<<if $activeSlave.pregType > 20>>, and her stomach is already slightly bloated with the number of fertile eggs within her womb<</if>>. She moans with pent-up lust as you deeply penetrate her and begin steadily thrusting. Her tight pussy hungrily massages your dick as you near your climax, prompting you to hilt yourself in her before seeding the deepest reaches of her pussy. She passed out in ecstasy, so you carry her bred body to the couch to recover. She should make the connection once her belly starts to rapidly swell with child.
diff --git a/src/pregmod/pInsemination.tw b/src/pregmod/pInsemination.tw
index 912dedd0de7..33956e7ad52 100644
--- a/src/pregmod/pInsemination.tw
+++ b/src/pregmod/pInsemination.tw
@@ -107,4 +107,5 @@
/* You're getting pregnant, period be damned */
<<set $PC.preg = 1, $PC.pregSource = -1, $PC.pregKnown = 1>>
<<SetPregType $PC>>
+<<set WombImpregnate($PC, $PC.pregType, -1, 1)>>
diff --git a/src/uncategorized/RESS.tw b/src/uncategorized/RESS.tw
index cdcbdfe6ce0..dec0f34b4db 100644
--- a/src/uncategorized/RESS.tw
+++ b/src/uncategorized/RESS.tw
@@ -3906,6 +3906,7 @@ May I plea<<s>>e try out <<s>>omething <<s>>kimpier today?"
She enjoys herself immensely, but she loses it again when she feels your seed in her, realizing that she will find herself swelling with your child over the coming months. She has become @@.hotpink;more submissive@@ to your will now that her very first egg has been fertilized by her <<Master>>.
<<set $activeSlave.devotion += 5, $activeSlave.preg = 1, $activeSlave.pregWeek = 1, $activeSlave.pregKnown = 1, $activeSlave.pregSource = -1>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, -1, 1)>>
<<VaginalVCheck>>
<</replace>>
<</link>><<if ($activeSlave.vagina == 0)>> //This option will take virginity//<</if>>
@@ -18040,6 +18041,7 @@ You tell her kindly that you understand, and that she'll be trained to address t
her youthful partners particularly enjoyed filling her with their potent seed. Unsurprisingly, at a routine check up later that week, $activeSlave.slaveName joyfully discovers that she was impregnated during her Frat House excursion. It seems that being bred by a bunch of horny college boys has eliminated her prior worries about the importance of age and also caused her to @@.lightcoral;fetishize impregnation.@@ @@.hotpink;She has become more submissive to you@@ for giving her the means to broaden her sexual horizons.
<<set $activeSlave.devotion += 4, $activeSlave.preg = 1, $activeSlave.pregWeek = 1, $activeSlave.pregKnown = 1>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, 1)>>
<<set $activeSlave.fetish = "pregnancy", $activeSlave.fetishKnown = 1, $activeSlave.fetishStrength = 5>>
<<if $activeSlave.mpreg == 1>>
<<AnalVCheck 10>>
@@ -18185,6 +18187,7 @@ You tell her kindly that you understand, and that she'll be trained to address t
her aged partners particularly enjoyed filling her with their still potent seed. Unsurprisingly, at a routine check up later that week, $activeSlave.slaveName joyfully discovers that she was impregnated during her excursion. It seems that being bred by a bunch of horny old men has eliminated her prior worries about the importance of age and also caused her to @@.lightcoral;fetishize impregnation.@@ @@.hotpink;She has become more submissive to you@@ for giving her the means to broaden her sexual horizons.
<<set $activeSlave.devotion += 4, $activeSlave.preg = 1, $activeSlave.pregWeek = 1, $activeSlave.pregKnown = 1>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, 1)>>
<<set $activeSlave.fetish = "pregnancy", $activeSlave.fetishKnown = 1, $activeSlave.fetishStrength = 5>>
<<if $activeSlave.mpreg == 1>>
<<AnalVCheck 10>>
diff --git a/src/uncategorized/dairyReport.tw b/src/uncategorized/dairyReport.tw
index a981ff8f3ae..d9f5bef2187 100644
--- a/src/uncategorized/dairyReport.tw
+++ b/src/uncategorized/dairyReport.tw
@@ -63,6 +63,7 @@
<<if (canImpreg($slaves[$i], $Milkmaid))>>
<<set $slaves[$i].preg = 1, $slaves[$i].pregSource = $Milkmaid.ID, $slaves[$i].pregKnown = 1, $slaves[$i].pregWeek = 1, _milkmaidImpregnated++, $slaves[$i].vaginalCount += 10, $vaginalTotal += 10>>
<<SetPregType $slaves[$i]>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $Milkmaid.ID, 1)>>
<</if>>
<</for>>
<<if _milkmaidImpregnated > 0>>
diff --git a/src/uncategorized/newSlaveIntro.tw b/src/uncategorized/newSlaveIntro.tw
index 509a88c8db1..287779eda12 100644
--- a/src/uncategorized/newSlaveIntro.tw
+++ b/src/uncategorized/newSlaveIntro.tw
@@ -1224,6 +1224,7 @@ The legalities completed, ''__@@.pink;<<SlaveFullName $activeSlave>>@@__'' <<if
<</replace>>
<<set $activeSlave.preg = 1>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, -1, 1)>>
<<set $activeSlave.pregWeek = 1>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregSource = -1>>
diff --git a/src/uncategorized/pHostageAcquisition.tw b/src/uncategorized/pHostageAcquisition.tw
index 6b3962f0b77..3e1398a98e9 100644
--- a/src/uncategorized/pHostageAcquisition.tw
+++ b/src/uncategorized/pHostageAcquisition.tw
@@ -52,6 +52,7 @@ Your hired mercenaries are en route now with your precious cargo.
<</if>>
<<case "Racial Supremacism">>
<<SetPregType $activeSlave>>
+ <<set WombInit($activeSlave)>>
<<if $rivalryDuration <= 5>>
Upon seeing you, $activeSlave.slaveName dives into your <<if $PC.boobs == 1>>ample bust<<else>>chest<</if>> sobbing "Thank you... Thank you...". You gently wrap your arms around her in a comforting embrace. She's nearly the same as you remember her, albeit acting slightly odd and covered in scars.
<<set $activeSlave.weight = 0>>
diff --git a/src/uncategorized/pRivalInitiation.tw b/src/uncategorized/pRivalInitiation.tw
index c7e52d5e31d..afdbb9bbee0 100644
--- a/src/uncategorized/pRivalInitiation.tw
+++ b/src/uncategorized/pRivalInitiation.tw
@@ -53,6 +53,7 @@ This is a special week, the week of your victory. <<EventNameLink $activeSlave>>
You announce that since $activeSlave.slaveName damaged the arcology, she will be taking a leading role in the reconstruction. She will be doing this by replacing one of the residents killed in the violence - by bearing a new slave, to be conceived collectively. The shame and @@.mediumorchid;horror@@ of her future as breeding stock comes home to her as she's restrained in a chair with her legs spread. Soon, the stream of fluids is running down her thoroughly-fucked pussy and over her virgin anus to pool on the floor beneath her. Modern medical imaging reveals her fertile ovum's last, losing battle against a legion of sperm in real time, and the images are projected on large screens.
<<set $rep += 500, $activeSlave.preg = 1, $activeSlave.pregSource = -2, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1, $activeSlave.devotion -= 15>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, -2, 1)>>
<<if $activeSlave.publicCount>><<set $activeSlave.publicCount += 47>><<else>><<set $activeSlave.publicCount = 47>><</if>>
<</replace>>
<</link>>
diff --git a/src/uncategorized/pRivalryActions.tw b/src/uncategorized/pRivalryActions.tw
index 691da25acfc..4776931a088 100644
--- a/src/uncategorized/pRivalryActions.tw
+++ b/src/uncategorized/pRivalryActions.tw
@@ -492,6 +492,7 @@ Your inter-arcology war with the arcology owner behind the Daughters of Liberty
take you off your birth control, won't be long after that."
<<set $hostage.preg = 1>>
<<SetPregType $hostage>>
+ <<set WombImpregnate($hostage, $hostage.pregType, 0, 1)>>
<<set $hostage.pregKnown = 1>>
<<set $hostage.pregWeek = 1>>
<<SetBellySize $hostage>>
diff --git a/src/uncategorized/saLongTermEffects.tw b/src/uncategorized/saLongTermEffects.tw
index b7fccf097a6..366b0152ee5 100644
--- a/src/uncategorized/saLongTermEffects.tw
+++ b/src/uncategorized/saLongTermEffects.tw
@@ -4115,7 +4115,7 @@
<</if>>
<</if>>
<</if>> /* closes .preg >= 10 */
- <<SetPregType $slaves[$i]>>
+ // <<SetPregType $slaves[$i]>> ????????? For WHAT is it here? .pregType is already set on impregnation time now... Legacy code? Or here should be SetBellySize?
<</if>> /* END PREG EFFECTS */
@@ -4263,6 +4263,7 @@
<<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]>>
+ <<set WombImpregnate($slaves[$i], $activeSlave.pregType, $HeadGirl.ID, 1)>>
<<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>>
@@ -4281,12 +4282,14 @@
<<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 WombImpregnate($slaves[$i], $slaves[$i].pregType, -1, 1)>>
<</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 WombImpregnate($slaves[$i], $slaves[$i].pregType, -1, 1)>>
<<else>> /% look for a random father among master suite slaves %/
<<set _msSlaves = $slaves.filter(function(s) { return s.assignment == "serve in the master suite"; })>>
@@ -4302,6 +4305,7 @@
/* 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 = _msSlaves[_m].ID, $slaves[$i].pregWeek = 1, $slaves[$i].pregKnown = 1>><<SetPregType $slaves[$i]>>
+ <<set WombImpregnate($slaves[$i], $slaves[$i].pregType, $slaves[$i].pregSource, 1)>>
<<break>>
<</if>>
<</for>>
@@ -4311,18 +4315,21 @@
<<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 WombImpregnate($slaves[$i], $slaves[$i].pregType, -1, 1)>>
<</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 WombImpregnate($slaves[$i], $slaves[$i].pregType, -2, 1)>>
<</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 WombImpregnate($slaves[$i], $slaves[$i].pregType, -2, 1)>>
<</if>>
<<default>> /* random impregnation chance on other assignments - consider relationships first */
@@ -4375,6 +4382,7 @@
<<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 WombImpregnate($slaves[$i], $slaves[$i].pregType, $slaves[$i].pregSource, 1)>>
<</if>>
<</if>> /* closes random chance and non-zero sex acts check */
<</switch>> /* closes assignment checks */
@@ -4385,9 +4393,11 @@
<<if $slaves[$i].preg < 1>>
<<if $slaves[$i].pregType != 0>>
<<set $slaves[$i].pregType = 0>>
+ <<set WombFlush($slaves[$i])>>
<</if>>
<<elseif $slaves[$i].preg > 0 && $slaves[$i].pregType == 0>>
<<SetPregType $slaves[$i]>>
+ <<set WombImpregnate($slaves[$i], $slaves[$i].pregType, $slaves[$i].pregSource, 1)>>
<</if>>
<</if>> /* closes $seePreg */
diff --git a/src/uncategorized/seRaiding.tw b/src/uncategorized/seRaiding.tw
index 133e91a2758..96c1b3cdcae 100644
--- a/src/uncategorized/seRaiding.tw
+++ b/src/uncategorized/seRaiding.tw
@@ -84,6 +84,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
<<set $activeSlave.preg = either(-1, -1, -1, 0, 0, 0, 5, 10, 20, 30, 39)>>
<<if $activeSlave.preg > 0>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
@@ -119,6 +120,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
<<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>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
@@ -149,6 +151,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 5, 10)>>
<<if $activeSlave.preg > 0>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
@@ -226,6 +229,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 5, 5)>>
<<if $activeSlave.preg > 0>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
@@ -254,6 +258,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 5, 10)>>
<<if $activeSlave.preg > 0>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
@@ -301,6 +306,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 5, 10)>>
<<if $activeSlave.preg > 0>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
@@ -375,6 +381,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 5, 5)>>
<<if $activeSlave.preg > 0>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
@@ -404,6 +411,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
<<set $activeSlave.preg = either(-1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 5, 10)>>
<<if $activeSlave.preg > 0>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
@@ -436,6 +444,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
<<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>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
@@ -493,6 +502,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
<<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>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
@@ -537,6 +547,7 @@ Worthy of consideration is that although the $mercenariesTitle will enslave the
<<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>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
diff --git a/src/uncategorized/seRecruiterSuccess.tw b/src/uncategorized/seRecruiterSuccess.tw
index dd97f0bdb13..419020ebf24 100644
--- a/src/uncategorized/seRecruiterSuccess.tw
+++ b/src/uncategorized/seRecruiterSuccess.tw
@@ -142,6 +142,7 @@ Your recruiter $Recruiter.slaveName has succeeded; she's convinced an old world
<<set $activeSlave.vagina = random(1,3)>>
<<set $activeSlave.preg = random(15,39)>>
<<SetPregType $activeSlave>>
+<<set WombImpregnate($activeSlave, $activeSlave.pregType, 0, $activeSlave.preg)>>
<<set $activeSlave.pregKnown = 1>>
<<set $activeSlave.pregWeek = $activeSlave.preg>>
<<SetBellySize $activeSlave>>
diff --git a/src/uncategorized/seWedding.tw b/src/uncategorized/seWedding.tw
index ddfadefffeb..fe71022465b 100644
--- a/src/uncategorized/seWedding.tw
+++ b/src/uncategorized/seWedding.tw
@@ -43,6 +43,7 @@
A pre-wedding checkup following an unusual bout of morning nausea reveals the bitch managed to get knocked up. There is no time before the ceremony to deal with it.
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<elseif canDoVaginal($activeSlave)>>
<<set _randomVag = random(30,60)>>
@@ -57,6 +58,7 @@
A pre-wedding checkup following an unusual bout of morning nausea reveals the bitch managed to get knocked up. There is no time before the ceremony to deal with it.
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<elseif canDoAnal($activeSlave)>>
<<set _randomAnal = random(30,60)>>
@@ -71,6 +73,7 @@
A pre-wedding checkup following an unusual bout of morning nausea reveals the bitch managed to get knocked up. There is no time before the ceremony to deal with it.
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<else>>
<<set _randomOral = random(60,100)>>
@@ -96,6 +99,7 @@
A pre-wedding checkup following an unusual bout of morning nausea reveals the bitch managed to get knocked up. There is no time before the ceremony to deal with it.
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1, $activeSlave.pregSource = $slaves[_m].ID, $slaves[_m].penetrativeCount += (_randomVag+_randomAnal), $penetrativeTotal += (_randomVag+_randomAnal)>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<elseif canDoVaginal($activeSlave)>>
<<set _randomVag = random(3,7)>>
@@ -109,6 +113,7 @@
A pre-wedding checkup following an unusual bout of morning nausea reveals the bitch managed to get knocked up. There is no time before the ceremony to deal with it.
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1, $activeSlave.pregSource = $slaves[_m].ID, $slaves[_m].penetrativeCount += (_randomVag), $penetrativeTotal += (_randomVag)>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<elseif canDoAnal($activeSlave)>>
<<set _randomAnal = random(1,4)>>
@@ -122,6 +127,7 @@
A pre-wedding checkup following an unusual bout of morning nausea reveals the bitch managed to get knocked up. There is no time before the ceremony to deal with it.
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1, $activeSlave.pregSource = $slaves[_m].ID, $slaves[_m].penetrativeCount += (_randomAnal), $penetrativeTotal += (_randomAnal)>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<else>>
<<set _randomOral = random(15,20)>>
@@ -147,6 +153,7 @@
A pre-wedding checkup following an unusual bout of morning nausea reveals the bitch managed to get knocked up. There is no time before the ceremony to deal with it.
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1, $activeSlave.pregSource = $slaves[_m].ID, $slaves[_m].penetrativeCount += (_randomVag+_randomAnal), $penetrativeTotal += (_randomVag+_randomAnal)>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<elseif canDoVaginal($activeSlave)>>
<<set _randomVag = random(3,7)>>
@@ -160,6 +167,7 @@
A pre-wedding checkup following an unusual bout of morning nausea reveals the bitch managed to get knocked up. There is no time before the ceremony to deal with it.
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1, $activeSlave.pregSource = $slaves[_m].ID, $slaves[_m].penetrativeCount += (_randomVag), $penetrativeTotal += (_randomVag)>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<elseif canDoAnal($activeSlave)>>
<<set _randomAnal = random(1,4)>>
@@ -173,6 +181,7 @@
A pre-wedding checkup following an unusual bout of morning nausea reveals the bitch managed to get knocked up. There is no time before the ceremony to deal with it.
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1, $activeSlave.pregSource = $slaves[_m].ID, $slaves[_m].penetrativeCount += (_randomAnal), $penetrativeTotal += (_randomAnal)>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<else>>
<<set _randomOral = random(15,20)>>
@@ -208,6 +217,7 @@
A pre-wedding checkup following an unusual bout of morning nausea reveals $activeSlave.slaveName managed to get knocked up. There is no time before the ceremony to deal with it and the distraught girl is in a panic for making you go through this.
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1, $activeSlave.pregSource = $slaves[_m].ID, $slaves[_m].penetrativeCount++, $penetrativeTotal++>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<elseif canDoAnal($activeSlave)>>
<<set $activeSlave.analCount += 1, $analTotal += 1>>
@@ -216,6 +226,7 @@
A pre-wedding checkup following an unusual bout of morning nausea reveals $activeSlave.slaveName managed to get knocked up. There is no time before the ceremony to deal with it and the distraught girl is in a panic for making you go through this.
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1, $activeSlave.pregSource = $slaves[_m].ID, $slaves[_m].penetrativeCount++, $penetrativeTotal++>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<else>>
<<set $activeSlave.oralCount += 1, $oralTotal += 1>>
@@ -230,6 +241,7 @@
A pre-wedding checkup following an unusual bout of morning nausea reveals $activeSlave.slaveName managed to get knocked up. There is no time before the ceremony to deal with it and the distraught girl is in a panic for making you go through this.
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1, $activeSlave.pregSource = $slaves[_m].ID, $slaves[_m].penetrativeCount++, $penetrativeTotal++>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<elseif canDoAnal($activeSlave)>>
<<set $activeSlave.analCount += 1, $analTotal += 1>>
@@ -238,6 +250,7 @@
A pre-wedding checkup following an unusual bout of morning nausea reveals $activeSlave.slaveName managed to get knocked up. There is no time before the ceremony to deal with it and the distraught girl is in a panic for making you go through this.
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1, $activeSlave.pregSource = $slaves[_m].ID, $slaves[_m].penetrativeCount++, $penetrativeTotal++>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, $activeSlave.pregSource, $activeSlave.preg)>>
<</if>>
<<else>>
<<set $activeSlave.oralCount += 1, $oralTotal += 1>>
@@ -377,6 +390,7 @@
<</if>>
<<set $activeSlave.preg = 1, $activeSlave.pregKnown = 1, $activeSlave.pregWeek = 1>>
<<SetPregType $activeSlave>>
+ <<set WombImpregnate($activeSlave, $activeSlave.pregType, -1, $activeSlave.preg)>>
<<set $activeSlave.pregSource = -1>>
<<if ($activeSlave.vagina == 0) || ($activeSlave.mpreg == 1 && $activeSlave.anus == 0)>>
Naturally, the ceremony @@.lime;took her virginity;@@
diff --git a/src/uncategorized/servantsQuartersReport.tw b/src/uncategorized/servantsQuartersReport.tw
index 2a3beac3e64..7b1bd4e6a0b 100644
--- a/src/uncategorized/servantsQuartersReport.tw
+++ b/src/uncategorized/servantsQuartersReport.tw
@@ -52,6 +52,7 @@
<<if (canImpreg($slaves[$i], $Stewardess))>>
<<KnockMeUp $slaves[$i] 100 2 $Stewardess.ID>>
<<set $slaves[$i].preg = 1, $slaves[$i].pregKnown = 1, $slaves[$i].pregWeek = 1, $slaves[$i].pregSource = $Stewardess.ID>><<SetPregType $slaves[$i]>>
+ <<set WombImpregnate($slaves[$i], $slaves[$i].pregType, $slaves[$i].pregSource, 1)>>
<<set $slaves[$i].vagina = Math.clamp($slaves[$i].vagina,1,10), _stewardessImpregnated++, $slaves[$i].vaginalCount += 10, $vaginalTotal += 10>>
<<set $slaves[$i].need = 0>>
<</if>>
diff --git a/src/utility/miscWidgets.tw b/src/utility/miscWidgets.tw
index 2a7eeca00cb..8887659f185 100644
--- a/src/utility/miscWidgets.tw
+++ b/src/utility/miscWidgets.tw
@@ -2344,6 +2344,7 @@ This experience
<<set $args[0].pregWeek = 1>>
<</if>>
<<SetPregType $args[0]>>
+ <<set WombImpregnate($args[0], $args[0].pregType, $args[0].pregSource, 1)>>
<<if $menstruation == 1>>
<<elseif ndef $args[4]>>
<<set $args[0].pregKnown = 1>>
@@ -2364,6 +2365,7 @@ This experience
<<set $args[0].pregWeek = 1>>
<</if>>
<<SetPregType $args[0]>>
+ <<set WombImpregnate($args[0], $args[0].pregType, $args[0].pregSource, 1)>>
<<if $menstruation == 1>>
<<elseif ndef $args[4]>>
<<set $args[0].pregKnown = 1>>
--
GitLab