diff --git a/src/pregmod/sePlayerBirth.tw b/src/pregmod/sePlayerBirth.tw
index 4a40289c02fb13078b428fa189a274abd23c06b3..88c9be45a94934a03b1232fbb6a0bdfe16c97939 100644
--- a/src/pregmod/sePlayerBirth.tw
+++ b/src/pregmod/sePlayerBirth.tw
@@ -21,27 +21,32 @@ PC.pregSource documentation
<<else>>
<<set $badBirth = 10>>
<</if>>
+<<set $PC.curBabies = WombBirth($PC, 35)>>
+<<set _curBabies = $PC.curBabies>>
+<<set _stilBirth = $PC.womb.length>>
+<<set WombFlush($PC)>>
+/* difference in code below: _curBabies - count of live babies after birth, $PC.pregType = all babies in PC. I assume that dead fetuses do not count to reputation, etc, and PC manage to hide them. This mainly for future possibilities, or early birth trigger's. PC will not support partial birth - even she happens to be prenant at different stages at once, undeveloped babies will be dead as result. _stilBirth currently not used - it's just for future improvements.*/
-<<set $PC.preg = 0, $PC.pregKnown = 0, $PC.labor = 0, $PC.births += $PC.pregType>>
+<<set $PC.preg = 0, $PC.pregKnown = 0, $PC.labor = 0, $PC.births += _curBabies>>
<<if $PC.pregSource == 0>>
- <<set $PC.birthOther += $PC.pregType>>
+ <<set $PC.birthOther += _curBabies>>
<<elseif $PC.pregSource == -1>>
- <<set $PC.birthElite += $PC.pregType>>
+ <<set $PC.birthElite += _curBabies>>
<<elseif $PC.pregSource == -2>>
- <<set $PC.birthClient += $PC.pregType>>
+ <<set $PC.birthClient += _curBabies>>
<<elseif $PC.pregSource == -3>>
- <<set $PC.birthMaster += $PC.pregType>>
+ <<set $PC.birthMaster += _curBabies>>
<<elseif $PC.pregSource == -4>>
- <<set $PC.birthArcOwner += $PC.pregType>>
+ <<set $PC.birthArcOwner += _curBabies>>
<<elseif $PC.pregSource == -5>>
- <<set $PC.birthCitizen += $PC.pregType>>
+ <<set $PC.birthCitizen += _curBabies>>
<<elseif $PC.pregSource == -6>>
- <<set $PC.birthSelf += $PC.pregType>>
+ <<set $PC.birthSelf += _curBabies>>
<<else>>
- <<set $PC.birthDegenerate += $PC.pregType>>
+ <<set $PC.birthDegenerate += _curBabies>>
<<set _babyDaddy = $slaves.findIndex(function(s) { return s.ID == $slaves[$i].pregSource; })>>
<<if _babyDaddy != -1>>
- <<set $slaves[_babyDaddy].PCChildrenFathered += $PC.pregType>>
+ <<set $slaves[_babyDaddy].PCChildrenFathered += _curBabies>>
<</if>>
<</if>>
@@ -51,9 +56,9 @@ PC.pregSource documentation
<<if $PC.pregSource == -1>>
<<set $babyGender = Math.floor(Math.random()*100) < $seeDicks ? 2 : 1>>
- Since you are heavily pregnant with a child of the Societal Elite, you are quickly taken to the finest clinic the arcology has to offer. After a quick sedation, you awake to find your belly no longer round with child; that and a note stating your next breeding partner and a notice that <<print cashFormat(50000)>> has been added to your account. The Societal Elite are @@.green;very pleased@@ at their new addition to the ranks. You just wish you could have seen your <<if $PC.pregType == 1>>little <<if $babyGender == 1>>girl<<else>>boy<</if>> before they took <<if $babyGender == 1>>her<<else>>him<</if>><<else>>babies before they took them<</if>> away to be raised into a proper member of the future world.
+ Since you are heavily pregnant with a child of the Societal Elite, you are quickly taken to the finest clinic the arcology has to offer. After a quick sedation, you awake to find your belly no longer round with child; that and a note stating your next breeding partner and a notice that <<print cashFormat(50000)>> has been added to your account. The Societal Elite are @@.green;very pleased@@ at their new addition to the ranks. You just wish you could have seen your <<if _curBabies == 1>>little <<if $babyGender == 1>>girl<<else>>boy<</if>> before they took <<if $babyGender == 1>>her<<else>>him<</if>><<else>>babies before they took them<</if>> away to be raised into a proper member of the future world.
<<if $PC.ovaryAge >= 55 && $playerAging != 0>>
- You are getting too old to have children; you feel like <<if $PC.pregType > 1>>they<<else>>this<</if>> may be your last.
+ You are getting too old to have children; you feel like <<if _curBabies > 1>>they<<else>>this<</if>> may be your last.
<<set $PC.preg = -2>>
<</if>>
<<else>>
@@ -119,7 +124,7 @@ You arrange yourself to give birth, relaxing until your body urges you to begin
<br>
<br>
You awake some time later in the remote surgery, your stomach extremely sore; you quickly realize you're no longer round with child. As you try to rise, $Bodyguard.slaveName stops you; she hefts you into a bridal carry and takes you to a recovery room, before gently placing you into a warm bed, tucking you in, and hurrying out of the room. Before you can call out, she returns carrying
- <<switch $PC.pregType>>
+ <<switch _curBabies>>
<<case 1>>
@@.lime;your baby <<if $babyGender == 1>>girl<<else>>boy<</if>>@@
<<case 2>>
@@ -148,7 +153,7 @@ You arrange yourself to give birth, relaxing until your body urges you to begin
<br>
<br>
You awake some time later in a recovery room<<if _concubinePresent > 0>>, $Concubine.slaveName beside you<</if>>, your stomach extremely sore; a quick glance at the prominent scar tells you everything you need to know. Seeing you're awake, $HeadGirl.slaveName catches your attention. In her arms
- <<switch $PC.pregType>>
+ <<switch _curBabies>>
<<case 1>>
is @@.lime;your baby <<if $babyGender == 1>>girl<<else>>boy<</if>>@@, <<if $HeadGirl.lactation > 0>>happily nursing from her breast,<</if>>
<<case 2>>
@@ -172,7 +177,7 @@ You arrange yourself to give birth, relaxing until your body urges you to begin
<br>
<br>
You awake some time later in a recovery room, your stomach extremely sore; a quick glance at the prominent scar tells you everything you need to know. A content sigh comes from beside you; $Concubine.slaveName is snuggled next to you, snoozing with
- <<switch $PC.pregType>>
+ <<switch _curBabies>>
<<case 1>>
@@.lime;your baby <<if $babyGender == 1>>girl<<else>>boy<</if>>@@ in her arms.<<if $Concubine.lactation > 0>> Your child has managed to free one of $Concubine.slaveName's breasts and is eagerly suckling from her milky nipple.<</if>>
<<case 2>>
@@ -401,7 +406,7 @@ You arrange yourself to give birth, relaxing until your body urges you to begin
<<if _gaveBirth == 0>>
-<<if $PC.pregType == 1>>
+<<if _curBabies == 1>>
<<include "Generate Child">>
@@ -433,13 +438,13 @@ You arrange yourself to give birth, relaxing until your body urges you to begin
<<if $PC.reservedChildren > 0>>
You set <<if $babyGender == 1>>her<<else>>him<</if>> aside for incubation.
<<include "Incubator Workaround">>
- <<set $PC.reservedChildren-->>
<<set $reservedChildren-->>
+ <<set $PC.curBabies.shift()>>
+ <<set $PC.reservedChildren-- >>
<</if>>
<<else>>
-
- <<for _p = 0; _p < $PC.pregType; _p++>>
+ <<for _p = 0; _p < _curBabies; _p++>>
<<include "Generate Child">>
<<if $activeSlave.race == $PC.race>>
@@ -470,47 +475,52 @@ You arrange yourself to give birth, relaxing until your body urges you to begin
<<if $PC.reservedChildren > 0>>
You set <<if $babyGender == 1>>her<<else>>him<</if>> aside for incubation.
<<include "Incubator Workaround">>
- <<set $PC.reservedChildren-->>
<<set $reservedChildren-->>
+ <<set $PC.curBabies.shift()>>
+ <<set $PC.reservedChildren-- >>
<</if>>
<<set $babyGender = Math.floor(Math.random()*100) < $seeDicks ? 2 : 1>>
-
<</for>>
<</if>>
-<<if $PC.pregSource > 0>>
+<<if $PC.reservedChildren > 0 >> /*we need to discount reservation for stilbirth babies*/
+ <<set $reservedChildren -= $PC.reservedChildren>>
+ <<set $PC.reservedChildren = 0>>
+<</if>>
+
+<<if $PC.pregSource > 0 && curBabies > 0>>
<<set _pb = $slaves.findIndex(function(s) { return s.ID == $PC.pregSource; })>>
<<if _pb != -1>>
<<if $arcologies[0].FSRestartDecoration == 100>>
- Word spreads fast through your peers that you gave birth to <<if $PC.pregType > 1>>low class infants<<else>>a low class child<</if>> @@.red;utterly devastating your standing among the Elite.@@
+ Word spreads fast through your peers that you gave birth to <<if _curBabies > 1>>low class infants<<else>>a low class child<</if>> @@.red;utterly devastating your standing among the Elite.@@
<<set $failedElite += 200>>
<<elseif $arcologies[0].FSChattelReligionistLaw == 1>>
- Rumors spread that The Prophet gave birth to a slave's child<<if $PC.pregType > 1>>ren<</if>>.
+ Rumors spread that The Prophet gave birth to a slave's child<<if _curBabies > 1>>ren<</if>>.
<<if $arcologies[0].FSSupremacist != "unset">>
<<if $slaves[_pb].race != $arcologies[0].FSSupremacistRace>>
- Word is that your child<<if $PC.pregType > 1>>ren were<<else>> was<</if>> not $arcologies[0].FSSupremacistRace. As The Prophet saw fit to bear such a child, society views it as a sign to @@.red;reject $arcologies[0].FSSupremacistRace supremacy.@@
+ Word is that your child<<if _curBabies > 1>>ren were<<else>> was<</if>> not $arcologies[0].FSSupremacistRace. As The Prophet saw fit to bear such a child, society views it as a sign to @@.red;reject $arcologies[0].FSSupremacistRace supremacy.@@
<<set $arcologies[0].FSSupremacist -= 120>>
<</if>>
<</if>>
<<if $arcologies[0].FSSubjugationist != "unset">>
<<if $slaves[_pb].race == $arcologies[0].FSSubjugationistRace>>
- In addition, The Prophet's womb bore <<if $PC.pregType == 1>>a <</if>>$arcologies[0].FSSubjugationistRace child<<if $PC.pregType > 1>>ren<</if>>, surely a sign to end @@.red;reject $arcologies[0].FSSubjugationistRace subjugation.@@
+ In addition, The Prophet's womb bore <<if _curBabies == 1>>a <</if>>$arcologies[0].FSSubjugationistRace child<<if _curBabies > 1>>ren<</if>>, surely a sign to end @@.red;reject $arcologies[0].FSSubjugationistRace subjugation.@@
<<set $arcologies[0].FSSubjugationist -= 120>>
<</if>>
<</if>>
<<else>>
- Rumors spread that your child<<if $PC.pregType > 1>>ren were<<else>> was<</if>> fathered by a slave, @@.red;harming your lasting reputation.@@
+ Rumors spread that your child<<if _curBabies > 1>>ren were<<else>> was<</if>> fathered by a slave, @@.red;harming your lasting reputation.@@
<<set $PC.degeneracy += 20>>
<<if $arcologies[0].FSSupremacist != "unset">>
<<if $slaves[_pb].race != $arcologies[0].FSSupremacistRace>>
- Furthermore, word is that your child<<if $PC.pregType > 1>>ren were<<else>> was<</if>> not $arcologies[0].FSSupremacistRace, @@.red;further hurting your lasting reputation.@@
+ Furthermore, word is that your child<<if _curBabies > 1>>ren were<<else>> was<</if>> not $arcologies[0].FSSupremacistRace, @@.red;further hurting your lasting reputation.@@
<<set $PC.degeneracy += 10>>
<</if>>
<</if>>
<<if $arcologies[0].FSSubjugationist != "unset">>
<<if $slaves[_pb].race == $arcologies[0].FSSubjugationistRace>>
- In addition, there is a nasty rumor that you gave birth to <<if $PC.pregType == 1>>a <</if>>$arcologies[0].FSSubjugationistRace child<<if $PC.pregType > 1>>ren<</if>>, @@.red;devastating your lasting reputation.@@
+ In addition, there is a nasty rumor that you gave birth to <<if _curBabies == 1>>a <</if>>$arcologies[0].FSSubjugationistRace child<<if _curBabies > 1>>ren<</if>>, @@.red;devastating your lasting reputation.@@
<<set $PC.degeneracy += 50>>
<</if>>
<</if>>
@@ -518,14 +528,15 @@ You arrange yourself to give birth, relaxing until your body urges you to begin
<</if>>
<</if>>
-<<set $PC.pregType -= _pregTypeDecrecement>>
+/* -------------------- here curBabies is now will show only babies count remained after reserved ones is paced to incubator. Not all live birthed ones. /*
+<<set _curBabies = $PC.curBabies.length >>
-<<if $PC.pregType > 0>>
+<<if _curBabies > 0>>
<br><br>
- Now you are faced with a decision of what to do with your <<if _pregTypeDecrecement > 0>>remaining<<else>>new<</if>> child<<if $PC.pregType > 1>>ren<</if>>. You're far too busy to keep <<if $PC.pregType > 1>>them<<else>>it<</if>> yourself, but you could @@.orange;send them to a boarding school to be raised until they are of age to serve as your heir.@@ Other options include sending them to @@.orange;become a slave at a slave orphanage,@@ sending them to @@.orange;a citizen school,@@ to be brought up coequal with the arcology's other young people, or sending them to be @@.orange;raised privately,@@ with expert care and tutoring.
+ Now you are faced with a decision of what to do with your <<if _pregTypeDecrecement > 0>>remaining<<else>>new<</if>> child<<if _curBabies > 1>>ren<</if>>. You're far too busy to keep <<if _curBabies > 1>>them<<else>>it<</if>> yourself, but you could @@.orange;send them to a boarding school to be raised until they are of age to serve as your heir.@@ Other options include sending them to @@.orange;become a slave at a slave orphanage,@@ sending them to @@.orange;a citizen school,@@ to be brought up coequal with the arcology's other young people, or sending them to be @@.orange;raised privately,@@ with expert care and tutoring.
<<if $arcologies[0].FSRepopulationFocus > 40>>
Of course, there are also the @@.orange;breeding schools,@@ where your
- <<if $PC.pregType == 1>>
+ <<if _curBabies == 1>>
<<if $babyGender == 1>>
daughter will be taught the joys of motherhood up until she is around $fertilityAge years old, when she will be impregnated with her first child.
<<else>>
@@ -533,7 +544,7 @@ You arrange yourself to give birth, relaxing until your body urges you to begin
<</if>>
<<else>>
<<if $babyGender == 1>>
- daughters will be taught the joys of motherhood up until they are around $fertilityAge years old, when they will be impregnated for the first time.<<if $PC.pregType > 1>> They say multiples run in families, so your daughters should blossom into quite the fertile breeders.<</if>>
+ daughters will be taught the joys of motherhood up until they are around $fertilityAge years old, when they will be impregnated for the first time.<<if _curBabies > 1>> They say multiples run in families, so your daughters should blossom into quite the fertile breeders.<</if>>
<<else>>
sons will be taught it is their duty to fuck every slavegirl they sees without a baby bump pregnant.
<</if>>
@@ -546,13 +557,13 @@ You arrange yourself to give birth, relaxing until your body urges you to begin
<span id="choice">What will it be?
<br>
<<link "Boarding School">><<replace "#choice">><<print "You have decided to send them away to be raised in your stead.">><</replace>><</link>> |
- <<link "Slave Orphanage">><<replace "#choice">><<print "You have decided to send them to a slave orphanage to be raised to $minimumSlaveAge and sold. Perhaps you'll even see them again, though you are unlikely to recognize them if you do.">><</replace>><<set $slaveOrphanageTotal += $PC.pregType>><</link>> |
- <<link "Citizen School">><<replace "#choice">><<print "You have decided to send them to a citizen school to become a future citizen. Perhaps you'll even see them again, though you are unlikely to recognize them if you do.">><</replace>><<set $citizenOrphanageTotal += $PC.pregType>><</link>> |
- <<link "Privately Raised">><<replace "#choice">><<print "You have decided to send them to be privately raised. Perhaps you'll even see them again, though it's unlikely that there will be any connection between you. At least you'll know they've been properly reared.">><</replace>><<set $privateOrphanageTotal += $PC.pregType>><</link>>
+ <<link "Slave Orphanage">><<replace "#choice">><<print "You have decided to send them to a slave orphanage to be raised to $minimumSlaveAge and sold. Perhaps you'll even see them again, though you are unlikely to recognize them if you do.">><</replace>><<set $slaveOrphanageTotal += _curBabies>><</link>> |
+ <<link "Citizen School">><<replace "#choice">><<print "You have decided to send them to a citizen school to become a future citizen. Perhaps you'll even see them again, though you are unlikely to recognize them if you do.">><</replace>><<set $citizenOrphanageTotal += _curBabies>><</link>> |
+ <<link "Privately Raised">><<replace "#choice">><<print "You have decided to send them to be privately raised. Perhaps you'll even see them again, though it's unlikely that there will be any connection between you. At least you'll know they've been properly reared.">><</replace>><<set $privateOrphanageTotal += _curBabies>><</link>>
<<if $arcologies[0].FSRepopulationFocus > 40>>
- | <<link "Breeding School">><<replace "#choice">><<print "You have decided to send them to be raised into a proper breeder. Perhaps you'll even see them again, though it's unlikely you'll recognize them with their reproduction focused body.">><</replace>><<set $breederOrphanageTotal += $PC.pregType>><</link>>
+ | <<link "Breeding School">><<replace "#choice">><<print "You have decided to send them to be raised into a proper breeder. Perhaps you'll even see them again, though it's unlikely you'll recognize them with their reproduction focused body.">><</replace>><<set $breederOrphanageTotal += _curBabies>><</link>>
<</if>>
- <<if $Cash4Babies == 1>> | <<link "Auction Them">><<replace "#choice">><<print "You send the child to be sold at auction amongst other prestigious slaves. The winning bid for your offspring came in at @@.yellowgreen;<<print cashFormat(1000*$seed)>>.@@">><</replace>><<set $cash += 1000*$seed*$PC.pregType>><</link>><</if>>
+ <<if $Cash4Babies == 1>> | <<link "Auction Them">><<replace "#choice">><<print "You send the child to be sold at auction amongst other prestigious slaves. The winning bid for your offspring came in at @@.yellowgreen;<<print cashFormat(1000*$seed)>>.@@">><</replace>><<set $cash += 1000*$seed*_curBabies>><</link>><</if>>
</span>
<</if>>
@@ -565,7 +576,7 @@ You arrange yourself to give birth, relaxing until your body urges you to begin
<</if>> /*closes gaveBirth*/
<</if>> /*closes SE*/
-<<set $badBirth = 0, $PC.pregSource = 0, $PC.pregType = 0, $seed = 0, $babyGender = 0, $PC.belly = 2000>>
+<<set $badBirth = 0, $PC.pregSource = 0, $PC.pregType = 0, $seed = 0, $babyGender = 0, $PC.belly = 2000, WombFlush($PC)>>
<<if $PC.career == "servant">>
<<set $PC.pregWeek = -3>>
<<else>>