From a708cda035831e467751c2ab17e00f5ee3517417 Mon Sep 17 00:00:00 2001 From: Pregmodder <pregmodder@gmail.com> Date: Thu, 1 Jun 2017 06:34:37 -0400 Subject: [PATCH] Standardization of pregType setting. --- src/npc/fPCImpreg.tw | 37 +------------ src/npc/fSlaveImpregConsummate.tw | 38 ++------------ src/pregmod/fSlaveSlaveDickConsummate.tw | 1 + src/pregmod/fSlaveSlaveVagConsummate.tw | 1 + src/pregmod/newChildIntro.tw | 1 + src/uncategorized/RESS.tw | 46 ++++------------- src/uncategorized/newSlaveIntro.tw | 3 +- src/uncategorized/pRivalInitiation.tw | 1 + src/uncategorized/saLiveWithHG.tw | 16 +----- src/uncategorized/saLongTermEffects.tw | 66 +----------------------- src/uncategorized/seWedding.tw | 16 +----- src/utility/miscWidgets.tw | 40 ++++++++++++++ 12 files changed, 65 insertions(+), 201 deletions(-) diff --git a/src/npc/fPCImpreg.tw b/src/npc/fPCImpreg.tw index ec52d0df49e..f75a02cbd48 100644 --- a/src/npc/fPCImpreg.tw +++ b/src/npc/fPCImpreg.tw @@ -113,41 +113,8 @@ You call her over so you can You repeat this ritual throughout the week, ensuring that $activeSlave.slaveName is carrying your child. -<<if random(1,100) >= 1>> - <<set $activeSlave.preg = 1, $activeSlave.pregSource = -1>> - <<if ($activeSlave.drugs == "super fertility drugs")>> - <<if (($masterSuitePregnancyFertilitySupplements == 1) && (($activeSlave.assignment == "serve in the master suite") || ($activeSlave.ID == $Concubine.ID)))>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = random(20,29)>> - <<else>> - <<set $activeSlave.pregType = random(10,29)>> - <</if>> - <<else>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = random(10,29)>> - <<else>> - <<set $activeSlave.pregType = either(3, 4, 4, 4, 5, 5, 5, 10, 10, 20)>> - <</if>> - <</if>> - <<elseif ($activeSlave.drugs == "fertility drugs")>> - <<if (($masterSuitePregnancyFertilitySupplements == 1) && (($activeSlave.assignment == "serve in the master suite") || ($activeSlave.ID == $Concubine.ID)))>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = random(4,5)>> - <<else>> - <<set $activeSlave.pregType = either(2, 2, 3, 3, 3, 3, 4, 4, 5, 5)>> - <</if>> - <<else>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = random(2,5)>> - <<else>> - <<set $activeSlave.pregType = either(1, 1, 2, 2, 3, 3, 4, 4, 5, 5)>> - <</if>> - <</if>> - <<else>> - <<set $activeSlave.pregType = either(1, 1, 1, 1, 1, 1, 1, 1, 1, 2)>> - <</if>> -<</if>> - +<<set $activeSlave.preg = 1, $activeSlave.pregSource = -1>> +<<SetPregType $activeSlave>> <<if $arcologies[0].FSRestart != "unset">> <<if $activeSlave.breedingMark != 1>> diff --git a/src/npc/fSlaveImpregConsummate.tw b/src/npc/fSlaveImpregConsummate.tw index dda3b8aff1e..c9b229fd189 100644 --- a/src/npc/fSlaveImpregConsummate.tw +++ b/src/npc/fSlaveImpregConsummate.tw @@ -123,40 +123,10 @@ Next, you see to $activeSlave.slaveName. She happily obeys your orders, getting ready to serve <<if def $PC.customTitle>>her $PC.customTitle by making you<<elseif $PC.title != 0>>her Master by making him<<else>>her Mistress by making her<</if>> another slave. <</if>> -<<if random(1,100) >= 1>> - <<set $activeSlave.preg = 1, $activeSlave.pregSource = $impregnatrix.ID>> - <<if ($activeSlave.drugs == "super fertility drugs")>> - <<if (($masterSuitePregnancyFertilitySupplements == 1) && (($activeSlave.assignment == "serve in the master suite") || ($activeSlave.ID == $Concubine.ID)))>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = random(20,29)>> - <<else>> - <<set $activeSlave.pregType = random(10,29)>> - <</if>> - <<else>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = random(10,29)>> - <<else>> - <<set $activeSlave.pregType = either(3, 4, 4, 4, 5, 5, 5, 10, 10, 20)>> - <</if>> - <</if>> - <<elseif ($activeSlave.drugs == "fertility drugs")>> - <<if (($masterSuitePregnancyFertilitySupplements == 1) && (($activeSlave.assignment == "serve in the master suite") || ($activeSlave.ID == $Concubine.ID)))>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = random(4,5)>> - <<else>> - <<set $activeSlave.pregType = either(2, 2, 3, 3, 3, 3, 4, 4, 5, 5)>> - <</if>> - <<else>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = random(2,5)>> - <<else>> - <<set $activeSlave.pregType = either(1, 1, 2, 2, 3, 3, 4, 4, 5, 5)>> - <</if>> - <</if>> - <<else>> - <<set $activeSlave.pregType = either(1, 1, 1, 1, 1, 1, 1, 1, 1, 2)>> - <</if>> -<</if>> + +<<set $activeSlave.preg = 1, $activeSlave.pregSource = $impregnatrix.ID>> +<<SetPregType $activeSlave>> + <br><br> diff --git a/src/pregmod/fSlaveSlaveDickConsummate.tw b/src/pregmod/fSlaveSlaveDickConsummate.tw index 163291693a0..5fe0a2dccbd 100644 --- a/src/pregmod/fSlaveSlaveDickConsummate.tw +++ b/src/pregmod/fSlaveSlaveDickConsummate.tw @@ -224,6 +224,7 @@ Throughout the week, you keep $activeSlave.slaveName's dick intimate with $slave <<if canImpreg($slaverapistx, $activeSlave)>> <<if random(1,100) >= 75>> <<set $slaverapistx.preg = 1, $slaverapistx.pregSource = $activeSlave.ID>> + <<SetPregType $slaverapistx>> <</if>> <</if>> diff --git a/src/pregmod/fSlaveSlaveVagConsummate.tw b/src/pregmod/fSlaveSlaveVagConsummate.tw index 10f63bfee27..f80fe4fe529 100644 --- a/src/pregmod/fSlaveSlaveVagConsummate.tw +++ b/src/pregmod/fSlaveSlaveVagConsummate.tw @@ -263,6 +263,7 @@ Throughout the week, you keep $activeSlave.slaveName's pussy intimate with $slav <<if random(1,100) >= 75>> <<set $activeSlave.preg = 1>> <<set $activeSlave.pregSource = $slaverapistx.ID>> + <<SetPregType $activeSlave>> <</if>> <</if>> diff --git a/src/pregmod/newChildIntro.tw b/src/pregmod/newChildIntro.tw index 77bfcd596f8..70715816317 100644 --- a/src/pregmod/newChildIntro.tw +++ b/src/pregmod/newChildIntro.tw @@ -623,6 +623,7 @@ You slowly strip down, gauging her reactions to your show, until you are fully n You perform a careful medical examination to verify fertility, and then forcefully take the girl's virginity. Whenever you feel able, you drain your balls into her cunt, only allowing her to wander off when scans verify a fertilized ovum. She didn't properly understand the scans, so she just thought it was sex; she won't realize what happened for some months at least, and in the mean time, will think she is just getting fat. Though once her child starts kicking, she might make the connection between sex and pregnancy. <</if>> <<VaginalVCheck>> + <<SetPregType $activeSlave>> <<if $arcologies[0].FSRestart != "unset" && $activeSlave.breedingMark == 0>> The Societal Elite @@.red;disapprove@@ of this breach of eugenics. <<set $failedElite += 5>> diff --git a/src/uncategorized/RESS.tw b/src/uncategorized/RESS.tw index 4b6070ecf40..622d55bd6f0 100644 --- a/src/uncategorized/RESS.tw +++ b/src/uncategorized/RESS.tw @@ -4101,7 +4101,7 @@ You tell her kindly that you understand, and that she'll be trained to address t <<set $activeSlave.devotion += 4>> <<set $activeSlave.vaginalCount += 1>> <<set $vaginalTotal += 1>> - <<if random(1,100) > 50>><<set $activeSlave.preg = 1>><<set $activeSlave.pregType = 1>><<set $activeSlave.pregSource = -1>><</if>> + <<if random(1,100) > 50>><<set $activeSlave.preg = 1>><<set $activeSlave.pregType = 1>><<set $activeSlave.pregSource = -1>><<SetPregType $activeSlave>><</if>> <</replace>> <</link>> <br><<link "Use her ass but give her what she wants">> @@ -4113,7 +4113,7 @@ You tell her kindly that you understand, and that she'll be trained to address t <<set $analTotal += 1>> <<set $activeSlave.vaginalCount += 1>> <<set $vaginalTotal += 1>> - <<if random(1,100) > 50>><<set $activeSlave.preg = 1>><<set $activeSlave.pregType = 1>><<set $activeSlave.pregSource = -1>><</if>> + <<if random(1,100) > 50>><<set $activeSlave.preg = 1>><<set $activeSlave.pregType = 1>><<set $activeSlave.pregSource = -1>><<SetPregType $activeSlave>><</if>> <</replace>> <</link>> <br><<link "Sneak it into her ass instead">> @@ -4126,7 +4126,7 @@ You tell her kindly that you understand, and that she'll be trained to address t <</replace>> <</link>> <<if ($cumSlaves >= 5)>> - <br><<link "Use the Dairy cockmilk impregnate her">> + <br><<link "Use the Dairy cockmilk to impregnate her">> <<replace "#name">> $activeSlave.slaveName <</replace>> @@ -4135,7 +4135,7 @@ You tell her kindly that you understand, and that she'll be trained to address t <<set $activeSlave.devotion += 10>> <<set $activeSlave.vaginalCount += 1>> <<set $vaginalTotal += 1>> - <<if random(1,100) > 10>><<set $activeSlave.preg = 1>><<set $activeSlave.pregSource = -2>><</if>> + <<if random(1,100) > 10>><<set $activeSlave.preg = 1>><<set $activeSlave.pregSource = -2>><<SetPregType $activeSlave>><</if>> <</replace>> <</link>> <</if>> @@ -7326,39 +7326,8 @@ She's obviously @@.mediumaquamarine;becoming more comfortable@@ playing the part <<set $vaginalTotal += 1>> <<if canGetPregnant($activeSlave) && canBreed($activeSlave, $activeSlave)>> /* can't miss the opportunity to knock herself up */ <<if random(1,100) > 80>> - <<set $activeSlave.preg = 1>> - <<if ($activeSlave.drugs == "super fertility drugs")>> - <<if (($masterSuitePregnancyFertilitySupplements == 1) && (($activeSlave.assignment == "serve in the master suite") || ($activeSlave.ID is $Concubine.ID)))>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = 20>> - <<else>> - <<set $activeSlave.pregType = either(10, 10, 20)>> - <</if>> - <<else>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = random(10,29)>> - <<else>> - <<set $activeSlave.pregType = either(3, 4, 4, 4, 5, 5, 5, 10, 10, 20)>> - <</if>> - <</if>> - <<elseif ($activeSlave.drugs is "fertility drugs")>> - <<if (($masterSuitePregnancyFertilitySupplements == 1) && (($activeSlave.assignment == "serve in the master suite") || ($activeSlave.ID is $Concubine.ID)))>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = random(2,5)>> - <<else>> - <<set $activeSlave.pregType = either(1, 1, 2, 2, 3, 3, 4, 4, 5, 5)>> - <</if>> - <<else>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = random(2,5)>> - <<else>> - <<set $activeSlave.pregType = either(1, 1, 2, 2, 3, 3, 4, 4, 5, 5)>> - <</if>> - <</if>> - <<else>> - <<set $activeSlave.pregType = either(1, 1, 1, 1, 1, 1, 1, 1, 1, 2)>> - <</if>> - <<set $activeSlave.pregSource = $activeSlave.ID>> + <<set $activeSlave.preg = 1, $activeSlave.pregSource = $activeSlave.ID>> + <<SetPregType $activeSlave>> <</if>> <</if>> <<else>> @@ -8504,6 +8473,7 @@ By the time you've finished with her sensitive ass, it shines red, and she is cr <<set $activeSlave.trust -= 5>> <<set $activeSlave.devotion += 5>> <<set $activeSlave.preg = 1>> + <<SetPregType $activeSlave>> <<if $activeSlave.mpreg == 1>> <<AnalVCheck 10>> <<else>> @@ -9130,6 +9100,7 @@ As another long weeks draws to a close, <span id="name"><<print "[[$activeSlave. $activeSlave.slaveName returns to the penthouse naked, disheveled, and absolutely covered in a thick coating of drying cum. Despite her appearance, however, she is practically beaming with happiness. It seems young cock agrees with her, and by the state of her messy pussy 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 fetishize impregnation. @@.hotpink;She has become more submissive to you@@ for giving her the means to broaden her sexual horizons. <<set $activeSlave.devotion += 4>> <<set $activeSlave.preg = 1>> + <<SetPregType $activeSlave>> <<set $activeSlave.fetish = "pregnancy">> <<set $activeSlave.fetishKnown = 1>> <<set $activeSlave.fetishStrength = 5>> @@ -9172,6 +9143,7 @@ As another long weeks draws to a close, <span id="name"><<print "[[$activeSlave. $activeSlave.slaveName returns to the penthouse naked, disheveled, and absolutely covered in a thick coating of drying cum. Despite her appearance, however, she is practically beaming with happiness. It seems a good fucking from experienced older men agrees with her, and by the state of her messy pussy 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 fetishize impregnation. @@.hotpink;She has become more submissive to you@@ for giving her the means to broaden her sexual horizons. <<set $activeSlave.devotion += 4>> <<set $activeSlave.preg = 1>> + <<SetPregType $activeSlave>> <<set $activeSlave.fetish = "pregnancy">> <<set $activeSlave.fetishKnown = 1>> <<set $activeSlave.fetishStrength = 5>> diff --git a/src/uncategorized/newSlaveIntro.tw b/src/uncategorized/newSlaveIntro.tw index 81c5fc4e698..1b48a5b4803 100644 --- a/src/uncategorized/newSlaveIntro.tw +++ b/src/uncategorized/newSlaveIntro.tw @@ -804,7 +804,7 @@ The legalities completed, ''__@@.pink;$activeSlave.slaveName@@__'' <<if ($active <<set $activeSlave.devotion += 4>> <<set $activeSlave.trust += 4>> <<replace "#introResult">> - You gesture towards $recruiterMother.slaveName. She is <<if $recruiterMother.intelligence > 0>>bright enough<<elseif (($recruiterMother.vaginalSkill + $recruiterMother.analSkill + $recruiterMother.oralSkill) > 100)>>skilled enough<<else>>obedient enough<</if>> to understand you mean a demonstration is in order. $recruiterMother.slaveName starts things off with a <<if $recruiterMother.entertainSkill >= 100>>masterful<<elseif $recruiterMother.entertainSkill > 10>>skillful<<else>>passable<</if>> striptease, culminating in <<if ($recruiterMother.anus > 0) && ($recruiterMother.fetish != "cumslut")>>bending over<<else>>kneeling<</if>> in front of you. She eagerly moans as you enter her, begging for your seed<<if $recruiterMother.energy > 95>> like the slut she is.<<elseif $recruiterMother.whoreSkill > 30>> like the whore she is<<elseif ($recruiterMother.assignment == "serve in the master suite") || ($recruiterMother.assignment == "please you")>> like the fucktoy she is<</if>>. As you finish, she <<if $recruiterMother.fetish == "cumslut">>opens her mouth and savors your gift, thanking you once she's swallowed enough to be able to talk again.<<elseif ($recruiterMother.fetish == "buttslut") || ($recruiterMother.fetish == "submissive")>>collapses on the floor with her ass high in the air, thanking you for painting her hole white.<<else>>thanks you.<</if>> witnessing this display of servitude from her @@.hotpink;eases $activeSlave.slaveName into her new life,@@ and @@.mediumaquamarine;gives her hope@@ she can find a place here. + You gesture towards $recruiterMother.slaveName. She is <<if $recruiterMother.intelligence > 0>>bright enough<<elseif (($recruiterMother.vaginalSkill + $recruiterMother.analSkill + $recruiterMother.oralSkill) > 100)>>skilled enough<<else>>obedient enough<</if>> to understand you mean a demonstration is in order. $recruiterMother.slaveName starts things off with a <<if $recruiterMother.entertainSkill >= 100>>masterful<<elseif $recruiterMother.entertainSkill > 10>>skillful<<else>>passable<</if>> striptease, culminating in <<if ($recruiterMother.anus > 0) && ($recruiterMother.fetish != "cumslut")>>bending over<<else>>kneeling<</if>> in front of you. She eagerly moans as you enter her, begging for your seed<<if $recruiterMother.energy > 95>> like the slut she is.<<elseif $recruiterMother.whoreSkill > 30>> like the whore she is<<elseif ($recruiterMother.assignment == "serve in the master suite") || ($recruiterMother.assignment == "please you")>> like the fucktoy she is<</if>>. As you finish, she <<if $recruiterMother.fetish == "cumslut">>opens her mouth and savors your gift, thanking you once she's swallowed enough to be able to talk again.<<elseif ($recruiterMother.fetish == "buttslut") || ($recruiterMother.fetish == "submissive")>>collapses on the floor with her ass high in the air, thanking you for painting her hole white.<<else>>thanks you.<</if>> witnessing this display of servitude from her mother @@.hotpink;eases $activeSlave.slaveName into her new life,@@ and @@.mediumaquamarine;gives her hope@@ she can find a place here. <</replace>> <</link>> <br> @@ -916,6 +916,7 @@ The legalities completed, ''__@@.pink;$activeSlave.slaveName@@__'' <<if ($active <<replace "#introResult">> You perform a careful medical examination to verify fertility, and then restrain her in your office with her ass in the air. Whenever you feel able, you drain your balls into her <<if $activeSlave.mpreg == 1>>ass<<else>>cunt<</if>>, only releasing her for other duties when scans verify a fertilized ovum. She didn't properly understand the scans, so she just thought it was bound, forced sex; she won't realize what happened for some weeks at least. <<VaginalVCheck>> + <<SetPregType $activeSlave>> <<if $arcologies[0].FSRestart != "unset">> The Societal Elite @@.green;disapprove@@ of this breach of eugenics. <<set $failedElite += 5>> diff --git a/src/uncategorized/pRivalInitiation.tw b/src/uncategorized/pRivalInitiation.tw index 92a32de74c5..de9a456cbbd 100644 --- a/src/uncategorized/pRivalInitiation.tw +++ b/src/uncategorized/pRivalInitiation.tw @@ -50,6 +50,7 @@ This is a special week, the week of your victory. <span id="name"><<print "[[$ac <<replace "#result">> 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.devotion -= 15>> + <<SetPregType $activeSlave>> <<if $activeSlave.publicCount>><<set $activeSlave.publicCount += 47>><<else>><<set $activeSlave.publicCount = 47>><</if>> <</replace>> <</link>> diff --git a/src/uncategorized/saLiveWithHG.tw b/src/uncategorized/saLiveWithHG.tw index 7f1e45c5acc..4143d61263e 100644 --- a/src/uncategorized/saLiveWithHG.tw +++ b/src/uncategorized/saLiveWithHG.tw @@ -277,21 +277,7 @@ <<if $arcologies[0].FSRestart == "unset">> $HeadGirl.slaveName promptly @@.lime;impregnates@@ $slaves[$i].slaveName, to your Head Girl's considerable @@.hotpink;satisfaction.@@ <<set $slaves[$i].preg = 1, $slaves[$i].pregSource = $HeadGirl.ID, $HeadGirl.devotion += 4>> - <<if ($slaves[$i].drugs == "super fertility drugs")>> - <<if ($slaves[$i].hormones == 2)>> - <<set $slaves[$i].pregType = random(10,20)>> - <<else>> - <<set $slaves[$i].pregType = either(3, 4, 4, 4, 5, 5, 5, 10, 10, 20)>> - <</if>> - <<elseif ($slaves[$i].drugs == "fertility drugs")>> - <<if ($slaves[$i].hormones == 2)>> - <<set $slaves[$i].pregType = random(2,5)>> - <<else>> - <<set $slaves[$i].pregType = either(1, 1, 2, 2, 3, 3, 4, 4, 5, 5)>> - <</if>> - <<else>> - <<set $slaves[$i].pregType = either(1, 1, 1, 1, 1, 1, 1, 1, 1, 2)>> - <</if>> + <<SetPregType $slaves[$i]>> <<else>> $HeadGirl.slaveName knows better than to even consider knocking up $slaves[$i].slaveName. <</if>> diff --git a/src/uncategorized/saLongTermEffects.tw b/src/uncategorized/saLongTermEffects.tw index 0943edb8731..f93b07721b1 100644 --- a/src/uncategorized/saLongTermEffects.tw +++ b/src/uncategorized/saLongTermEffects.tw @@ -3478,39 +3478,7 @@ <</if>> <</if>> /* closes .preg >= 10 */ - <<if $slaves[$i].pregType == 0>> - <<if ($slaves[$i].drugs == "super fertility drugs")>> - <<if (($masterSuitePregnancyFertilitySupplements == 1) && (($slaves[$i].assignment == "serve in the master suite") || ($slaves[$i].assignment == "be your Concubine")))>> - <<if ($slaves[$i].hormones == 2)>> - <<set $slaves[$i].pregType = random(20,29)>> - <<else>> - <<set $slaves[$i].pregType = random(10,29)>> - <</if>> - <<else>> - <<if ($slaves[$i].hormones == 2)>> - <<set $slaves[$i].pregType = random(10,29)>> - <<else>> - <<set $slaves[$i].pregType = either(3, 4, 4, 4, 5, 5, 5, 10, 10, 20)>> - <</if>> - <</if>> - <<elseif ($slaves[$i].drugs == "fertility drugs")>> - <<if (($masterSuitePregnancyFertilitySupplements == 1) && (($slaves[$i].assignment == "serve in the master suite") || ($slaves[$i].assignment == "be your Concubine")))>> - <<if ($slaves[$i].hormones == 2)>> - <<set $slaves[$i].pregType = random(4,5)>> - <<else>> - <<set $slaves[$i].pregType = either(2, 2, 3, 3, 3, 3, 4, 4, 5, 5)>> - <</if>> - <<else>> - <<if ($slaves[$i].hormones == 2)>> - <<set $slaves[$i].pregType = random(2,5)>> - <<else>> - <<set $slaves[$i].pregType = either(1, 1, 2, 2, 3, 3, 4, 4, 5, 5)>> - <</if>> - <</if>> - <<else>> - <<set $slaves[$i].pregType = either(1, 1, 1, 1, 1, 1, 1, 1, 1, 2)>> - <</if>> - <</if>> + <<SetPregType $slaves[$i]>> <</if>> /* END PREG EFFECTS */ @@ -3758,37 +3726,7 @@ <<set $slaves[$i].pregType = 0>> <</if>> <<elseif $slaves[$i].preg > 0 && $slaves[$i].pregType == 0>> - <<if ($slaves[$i].drugs == "super fertility drugs")>> - <<if (($masterSuitePregnancyFertilitySupplements == 1) && (($slaves[$i].assignment == "serve in the master suite") || ($slaves[$i].assignment == "be your Concubine")))>> - <<if ($slaves[$i].hormones == 2)>> - <<set $slaves[$i].pregType = random(20,29)>> - <<else>> - <<set $slaves[$i].pregType = random(10,29)>> - <</if>> - <<else>> - <<if ($slaves[$i].hormones == 2)>> - <<set $slaves[$i].pregType = random(10,29)>> - <<else>> - <<set $slaves[$i].pregType = either(3, 4, 4, 4, 5, 5, 5, 10, 10, 20)>> - <</if>> - <</if>> - <<elseif ($slaves[$i].drugs == "fertility drugs")>> - <<if (($masterSuitePregnancyFertilitySupplements == 1) && (($slaves[$i].assignment == "serve in the master suite") || ($slaves[$i].assignment == "be your Concubine")))>> - <<if ($slaves[$i].hormones == 2)>> - <<set $slaves[$i].pregType = random(4,5)>> - <<else>> - <<set $slaves[$i].pregType = either(2, 2, 3, 3, 3, 3, 4, 4, 5, 5)>> - <</if>> - <<else>> - <<if ($slaves[$i].hormones == 2)>> - <<set $slaves[$i].pregType = random(2,5)>> - <<else>> - <<set $slaves[$i].pregType = either(1, 1, 2, 2, 3, 3, 4, 4, 5, 5)>> - <</if>> - <</if>> - <<else>> - <<set $slaves[$i].pregType = either(1, 1, 1, 1, 1, 1, 1, 1, 1, 2)>> - <</if>> + <<SetPregType $slaves[$i]>> <</if>> <<else>> /* PREGMOD: NOT PREGNANT, YES INFLATION */ diff --git a/src/uncategorized/seWedding.tw b/src/uncategorized/seWedding.tw index 152b5795ab6..8abb4379ac7 100644 --- a/src/uncategorized/seWedding.tw +++ b/src/uncategorized/seWedding.tw @@ -362,21 +362,7 @@ $activeSlave.slaveName isn’t particularly excited about what’s coming, but she’s fully prepared for it and accepted it as a fact of life. There are worse things one can be than the slave-wife of a wealthy arcology owner. You <<if $activeSlave.amp == 1>>gather her up and hold her in front of you, pulling her panties off as you do. Showing considerable dexterity, you maneuver your dick inside her while holding her against your <<if $PC.boobs == 1>>breasts<<else>>chest<</if>><<else>>take her hand and pull her to her feet while she shimmies out of her panties. She cocks her hips for you and you slide your cock inside her before taking her knees and drawing them up to hold her in midair, impaled on you<</if>>. Though her face is towards the crowd, her mind is concentrated on your hard cock, pumping in and out of her at an angle; to her, it is what it is. She gasps when your seed flows into her, orgasming shortly after to @@.green;applause from your guests.@@ You'll fuck her repeatedly over the next few days, ensuring impregnation. <</if>> <<set $activeSlave.preg = 1>> - <<if ($activeSlave.drugs == "super fertility drugs")>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = random(10,29)>> - <<else>> - <<set $activeSlave.pregType = either(3, 4, 4, 4, 5, 5, 5, 10, 15, 20)>> - <</if>> - <<elseif ($activeSlave.drugs == "fertility drugs")>> - <<if ($activeSlave.hormones == 2)>> - <<set $activeSlave.pregType = random(2,5)>> - <<else>> - <<set $activeSlave.pregType = either(1, 1, 2, 2, 3, 3, 4, 4, 5, 5)>> - <</if>> - <<else>> - <<set $activeSlave.pregType = either(1, 1, 1, 1, 1, 1, 1, 1, 1, 2)>> - <</if>> + <<SetPregType $activeSlave>> <<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/utility/miscWidgets.tw b/src/utility/miscWidgets.tw index d4655c2a392..7466171ffa7 100644 --- a/src/utility/miscWidgets.tw +++ b/src/utility/miscWidgets.tw @@ -2413,3 +2413,43 @@ Call as <<SlaveSort [$slaves]>> <</replace>> <</widget>> + +/* + Call as <<SetPregType>> + $args[0]: Slave. +*/ +<<widget "SetPregType">> + <<if $args[0].pregType == 0>> + <<if ($args[0].drugs == "super fertility drugs")>> + <<if (($masterSuitePregnancyFertilitySupplements == 1) && (($args[0].assignment == "serve in the master suite") || ($args[0].assignment == "be your Concubine")))>> + <<if ($args[0].hormones == 2)>> + <<set $args[0].pregType = random(20,29)>> + <<else>> + <<set $args[0].pregType = random(10,29)>> + <</if>> + <<else>> + <<if ($args[0].hormones == 2)>> + <<set $args[0].pregType = random(10,29)>> + <<else>> + <<set $args[0].pregType = either(3, 4, 4, 4, 5, 5, 5, 10, 10, 20)>> + <</if>> + <</if>> + <<elseif ($args[0].drugs == "fertility drugs")>> + <<if (($masterSuitePregnancyFertilitySupplements == 1) && (($args[0].assignment == "serve in the master suite") || ($args[0].assignment == "be your Concubine")))>> + <<if ($args[0].hormones == 2)>> + <<set $args[0].pregType = random(4,5)>> + <<else>> + <<set $args[0].pregType = either(2, 2, 3, 3, 3, 3, 4, 4, 5, 5)>> + <</if>> + <<else>> + <<if ($args[0].hormones == 2)>> + <<set $args[0].pregType = random(2,5)>> + <<else>> + <<set $args[0].pregType = either(1, 1, 2, 2, 3, 3, 4, 4, 5, 5)>> + <</if>> + <</if>> + <<else>> + <<set $args[0].pregType = either(1, 1, 1, 1, 1, 1, 1, 1, 1, 2)>> + <</if>> + <</if>> +<</widget>> \ No newline at end of file -- GitLab