diff --git a/src/pregmod/geneLab.tw b/src/pregmod/geneLab.tw
new file mode 100644
index 0000000000000000000000000000000000000000..62df1dce36729b39206d2fbafbd17b09bb1dd563
--- /dev/null
+++ b/src/pregmod/geneLab.tw
@@ -0,0 +1,10 @@
+:: Gene Lab [nobr]
+
+<<set $HackingSkillMultiplier = HSM()>>
+<<set $nextButton = "Back", $nextLink = "Manage Penthouse", $showEncyclopedia = 1, $encyclopedia = "The Pharmaceutical Fab.", _PCSkillCheck = Math.max($upgradeMultiplierMedicine, $HackingSkillMultiplier)>>
+
+<br>
+The Gene Lab
+<hr>
+
+//The gene lab is fully operational. It can identify genetic traits in slaves. It can be used to modify a slave's genome should you obtain the data necessary to adjust it.//
\ No newline at end of file
diff --git a/src/pregmod/implantManufactory.tw b/src/pregmod/implantManufactory.tw
new file mode 100644
index 0000000000000000000000000000000000000000..416858adfd0982a449e234f5002aa2b272f36e5b
--- /dev/null
+++ b/src/pregmod/implantManufactory.tw
@@ -0,0 +1,101 @@
+:: Implant Manufactory [nobr]
+
+<<set $HackingSkillMultiplier = HSM()>>
+<<set $nextButton = "Back", $nextLink = "Manage Penthouse", $showEncyclopedia = 1, $encyclopedia = "The Pharmaceutical Fab.", _PCSkillCheck = Math.max($upgradeMultiplierMedicine, $HackingSkillMultiplier)>>
+
+<br>
+The Implant Manufactory
+<hr>
+
+//The implant manufactory is running smoothly. It can cheaply produce advanced implants and has freed you from relying on outside sources for specialty implants. It can easily produce more complex implants should you obtain the schematics necessary to build them.//
+
+<br><br>
+Implant Production
+<hr>
+
+The manufactory is capable of producing customized fillable implants.
+
+<br>
+
+<<if ($meshImplants != 1) && ($rep <= 10000*_PCSkillCheck)>>
+ //You lack the reputation to access plans for supportive breast implants//
+<<elseif ($meshImplants != 1) && ($rep > 10000*_PCSkillCheck)>>
+ [[Purchase plans for supportive mesh breast implants|Implant Manufactory][$cash -= 40000*_PCSkillCheck, $meshImplants = 1]]
+ //Costs <<print cashFormat(40000*_PCSkillCheck)>>//
+ <br> //Will allow the construction of organic and supportive mesh breast implants.//
+ <br>
+<<elseif ($meshImplants > 0)>>
+ The manufactory is capable of producing supportive mesh breast implants.
+ <br>
+<</if>>
+
+<<if $UterineRestraintMesh == 1>>
+ The manufactory is capable of producing supportive mesh uterine implants.
+ <br>
+<</if>>
+
+<<if ($bellyImplants == 0) && ($rep <= 2000*_PCSkillCheck)>>
+ //You lack the reputation to access experimental fillable abdominal implants//
+ <br>
+<<elseif ($bellyImplants == 0) && ($rep > 2000*_PCSkillCheck)>>
+ [[Purchase schematics for fillable abdominal implants|Implant Manufactory][$cash -= 30000*_PCSkillCheck, $bellyImplants = 1]]
+ //Costs <<print cashFormat(30000*_PCSkillCheck)>>//
+ <br> //Will allow the construction of fillable abdominal implants for the autosurgery.//
+ <br>
+<<elseif ($bellyImplants > 0)>>
+ The manufactory is capable of crafting fillable abdominal implants.
+ <br>
+ <<if ($bellyImplants == 1) && ($cervixImplants != 1) && ($rep <= 6000*_PCSkillCheck)>> /* show only after belly implants already researched */
+ //You lack the reputation to access experimental cervix filter micropumps schematics for abdominal implants//
+ <br>
+ <<elseif ($bellyImplants == 1) && ($cervixImplants != 1) && ($rep >6000*_PCSkillCheck)>> /* nanotech like technology much more impressive and costly than simple implant */
+ [[Purchase schematics for cervix filter micropumps|Implant Manufactory][$cash -= 70000*_PCSkillCheck, $cervixImplants = 1]]
+ //Costs <<print cashFormat(70000*_PCSkillCheck)>>//
+ <br> //Will allow the construction of cervix filter micropumps for fillable abdominal implants using the autosurgery.//
+ <br>
+ <<elseif ($cervixImplants > 0)>>
+ The manufactory is capable of crafting cervix filter micropumps for fillable abdominal implants.
+ <br>
+ <</if>>
+<</if>>
+
+<br>
+Fertility Implants
+<hr>
+
+<<if $seeHyperPreg == 1 && $seeExtreme == 1 && $seePreg != 0>>
+ <<if ($permaPregImplant == 0) && ($rep <= 4000*_PCSkillCheck)>>
+ //You lack the reputation to access experimental pregnancy generator schematics//
+ <br>
+ <</if>>
+ <<if ($permaPregImplant == 0) && ($rep > 4000*_PCSkillCheck)>>
+ [[Purchase schematics for an experimental implantable pregnancy generator|Implant Manufactory][$cash -= 40000*_PCSkillCheck, $permaPregImplant = 1]]
+ //Costs <<print cashFormat(40000*_PCSkillCheck)>>//
+ <br> //Will allow the construction of implants that force perpetual pregnancy.//
+ <br>
+ <<elseif ($permaPregImplant > 0)>>
+ The manufactory is capable of crafting pregnancy generators.
+ <br>
+ <</if>>
+ <<if $PGHack == 1>>
+ The tools required to hack the firmware of basic pregnancy generator implants have been produced by the manufactory for use in the remote surgery.
+ <br>
+ <</if>>
+<</if>>
+
+<br>
+Fluid Production Implants
+<hr>
+
+<<if ($prostateImplants != 1) && ($rep <= 3000*_PCSkillCheck)>>
+ //You lack the reputation to access plans for prostate implants//
+ <br>
+<<elseif ($prostateImplants != 1) && ($rep > 3000*_PCSkillCheck)>>
+ [[Purchase plans for ejaculation enhancing prostate implants|Implant Manufactory][$cash -= 30000*_PCSkillCheck, $prostateImplants = 1]]
+ //Costs <<print cashFormat(30000*_PCSkillCheck)>>//
+ <br> //Will allow the construction of a prostate implant designed to stimulate fluid production for massive ejaculations. Beware of leaking and dehydration.//
+ <br>
+<<elseif ($prostateImplants > 0)>>
+ The manufactory is capable of producing ejaculation enhancing prostate implants.
+ <br>
+<</if>>
\ No newline at end of file
diff --git a/src/pregmod/organFarm.tw b/src/pregmod/organFarm.tw
new file mode 100644
index 0000000000000000000000000000000000000000..a02800325e7007a08fc2c475eb0395ee8ac05620
--- /dev/null
+++ b/src/pregmod/organFarm.tw
@@ -0,0 +1,208 @@
+:: Organ Farm [nobr]
+
+<<set $HackingSkillMultiplier = HSM()>>
+<<set $nextButton = "Back", $nextLink = "Manage Penthouse", $showEncyclopedia = 1, $encyclopedia = "The Pharmaceutical Fab.", _PCSkillCheck = Math.max($upgradeMultiplierMedicine, $HackingSkillMultiplier)>>
+
+<br>
+The Organ Farm
+<hr>
+
+<<if $organFarmUpgrade > 2>>
+ //The organ farm is running smoothly. It can rapidly grow tailored organs for implantation in slaves. It can easily produce altered variants should you obtain the data necessary to create them.//
+ <br>
+<<elseif $organFarmUpgrade > 1>>
+ //The organ farm is running smoothly. It can quickly grow tailored organs for implantation in slaves, though there will be side-effects. It can easily produce altered variants should you obtain the data necessary to create them.//
+ <br>
+<<elseif ($organFarmUpgrade > 0)>>
+ //The organ farm is running smoothly. It can grow tailored organs for implantation in slaves. It can easily produce altered variants should you obtain the data necessary to create them.//
+ <br>
+<</if>>
+
+<<if ($organFarmUpgrade < 3) && ($rep <= 10000*_PCSkillCheck)>>
+ //You lack the reputation to access experimental organ farm parts//
+ <br>
+<<elseif $dispensary == 0 && $organFarmUpgrade == 2>>
+ //An upgraded pharmaceutical fabricator is required by the perfected organ farm//
+ <br>
+<<elseif $dispensary == 0 && $organFarmUpgrade == 1>>
+ //A pharmaceutical fabricator is required to produce the chemicals for the accelerated organ farm//
+ <br>
+<<elseif $dispensaryUpgrade == 0 && $organFarmUpgrade == 2>>
+ //The pharmaceutical fabricator must upgraded in order to produce the drugs required by the perfected organ farm//
+ <br>
+<<elseif $organs.length > 0>>
+ //The organ farm cannot be upgraded while it is use//
+ <br>
+<<elseif ($organFarmUpgrade == 2) && ($rep > 10000*_PCSkillCheck)>>
+ [[Upgrade the organ farm to the cutting edge model|Organ Farm][$cash -= 150000*_PCSkillCheck, $organFarmUpgrade = 3]]
+ //Costs <<print cashFormat(150000*_PCSkillCheck)>>//
+ <br> //Will allow the organ farm to rapidly grow organs without risk to the implantee's health.//
+ <br>
+<<elseif ($organFarmUpgrade == 1) && ($rep > 10000*_PCSkillCheck)>>
+ [[Upgrade the organ farm with an experimental growth accelerator|Organ Farm][$cash -= 100000*_PCSkillCheck, $organFarmUpgrade = 2]]
+ //Costs <<print cashFormat(50000*_PCSkillCheck)>>//
+ <br> //Will allow the organ farm to quickly grow organs. Implanted organs may cause health issues.//
+ <br>
+<</if>>
+
+<br>
+Organ Production
+<hr>
+
+<<if $organs.length > 0>>
+ The following organs are being grown:
+ <<for $i = 0; $i < $organs.length; $i++>>
+ <<set $j = $slaveIndices[$organs[$i].ID]>>
+ <<if def $j>>
+ <br>
+ $slaves[$j].slaveName's $organs[$i].type,
+ <<if $organFarmUpgrade == 1>>
+ <<print $organs[$i].weeksToCompletion>>
+ <<elseif $organFarmUpgrade == 2>>
+ <<print Math.ceil($organs[$i].weeksToCompletion/2)>>
+ <<elseif $organFarmUpgrade == 3>>
+ <<print Math.ceil($organs[$i].weeksToCompletion/4)>>
+ <</if>> weeks from completion.
+ <<else>>
+ @@.red;Error: organID not found.@@
+ <</if>>
+ <</for>>
+ <br>
+<</if>>
+<<if $incubatorSlaves > 0>>
+ <<for $x = 0; $x < $incubatorOrgans.length; $x++>>
+ <<for _w = 0; _w < $incubatorSlaves; _w++>>
+ <<if $tanks[_w].ID == $incubatorOrgans[$x].ID>>
+ <br>
+ $tanks[_w].slaveName's $incubatorOrgans[$x].type,
+ <<if $incubatorOrgans[$x].weeksToCompletion <= 0>>
+ ready to be implanted as soon as she exits the incubator.
+ <<else>>
+ <<if $organFarmUpgrade == 1>>
+ <<print $incubatorOrgans[$x].weeksToCompletion>>
+ <<elseif $organFarmUpgrade == 2>>
+ <<print Math.ceil($incubatorOrgans[$x].weeksToCompletion/2)>>
+ <<elseif $organFarmUpgrade == 3>>
+ <<print Math.ceil($incubatorOrgans[$x].weeksToCompletion/4)>>
+ <</if>> weeks from completion.
+ <</if>>
+ <<break>>
+ <</if>>
+ <</for>>
+ <</for>>
+ <br>
+<</if>>
+/* TODO: potentially allow organs to be implanted into children in the nursery
+<<if $nurserySlaves > 0>>
+ <<for $x = 0; $x < $nurseryOrgans.length; $x++>>
+ <<for _w = 0; _w < $nurserySlaves; _w++>>
+ <<if $cribs[_w].ID == $nurseryOrgans[$x].ID>>
+ <br>
+ $cribs[_w].slaveName's $nurseryOrgans[$x].type,
+ <<if $nurseryOrgans[$x].weeksToCompletion <= 0>>
+ ready to be implanted as soon as she exits the nursery.
+ <<else>>
+ <<if $organFarmUpgrade == 1>>
+ <<print $nurseryOrgans[$x].weeksToCompletion>>
+ <<elseif $organFarmUpgrade == 2>>
+ <<print Math.ceil($nurseryOrgans[$x].weeksToCompletion/2)>>
+ <<elseif $organFarmUpgrade == 3>>
+ <<print Math.ceil($nurseryOrgans[$x].weeksToCompletion/4)>>
+ <</if>> weeks from completion.
+ <</if>>
+ <<break>>
+ <</if>>
+ <</for>>
+ <</for>>
+ <br>
+<</if>>
+*/
+
+<<if $completedOrgans.length > 0>>
+ <br>
+ Currently the following organs are completed and ready for implantation:
+ <<for $i = 0; $i < $completedOrgans.length; $i++>>
+ <<set $j = $slaveIndices[$completedOrgans[$i].ID]>>
+ <<if def $j>>
+ <br>$slaves[$j].slaveName's $completedOrgans[$i].type.
+ <<else>>
+ @@.red;Error: completedOrganID not found.@@
+ <</if>>
+ <</for>>
+ <br>
+<</if>>
+
+<<if $organFarmUpgrade > 0>>
+ <<if ($youngerOvaries != 1) && ($rep <= 10000*_PCSkillCheck)>>
+ //You lack the reputation to access designs for cloning fertile ovaries for menopausal slaves.//
+ <br>
+ <<elseif ($youngerOvaries != 1) && ($rep > 10000*_PCSkillCheck)>>
+ [[Purchase designs for cloning fertile ovaries for menopausal slaves|Organ Farm][$cash -= 30000*_PCSkillCheck, $youngerOvaries = 1]]
+ //Costs <<print cashFormat(30000*_PCSkillCheck)>>//
+ <br> //Will allow the growth of younger, fertile ovaries for menopausal slaves. Restored fertility will only last for a couple years at most.//
+ <br>
+ <<elseif ($youngerOvaries > 0)>>
+ The organ farm is capable of growing fertile ovaries for postmenopausal slaves.
+ <br>
+ <</if>>
+<</if>>
+/*
+<<if $seePreg != 0 && $seeBestiality != 0>>
+ <<if $farmyardLabUpgrades.animalOvaries > 0>>
+ <<if $animalOvaries < 1>>
+ //You lack the required designs for cloning animal ovaries for slaves.//
+ <br>
+ <<else>>
+ The organ farm is capable of growing animal ovaries for slaves.
+ <br>
+ <</if>>
+ <</if>>
+
+ <<if $farmyardLabUpgrades.animalTesticles > 0>>
+ <<if $animalTesticles < 1>>
+ //You lack the required designs for cloning animal testicles for slaves.//
+ <br>
+ <<else>>
+ The organ farm is capable of growing animal testicles for slaves.
+ <br>
+ <</if>>
+ <</if>>
+
+ <<if $farmyardLabUpgrades.animalMpreg > 0 && $arcologies[0].FSGenderRadicalistResearch == 1>>
+ <<if $animalMpreg < 1>>
+ //You lack the required designs for cloning animal anal wombs and ovaries for slaves.//
+ <br>
+ <<else>>
+ The organ farm is capable of growing animal anal wombs and ovaries for slaves.
+ <br>
+ <</if>>
+ <</if>>
+<</if>>
+*/
+
+<br>
+Future Societies Research
+<hr>
+
+<<if $seePreg != 0>>
+<<if $arcologies[0].FSGenderRadicalistDecoration == 100>>
+ <<if ($arcologies[0].FSGenderRadicalistResearch == 0)>>
+ <<if ($rep >= 10000*_PCSkillCheck)>>
+ [[Fund research into developing male pregnancy methods|Organ Farm][$cash -= 50000*_PCSkillCheck,$arcologies[0].FSGenderRadicalistResearch = 1]] //Costs <<print cashFormat(50000*_PCSkillCheck)>>. Will allow cloning and production of anal uteri and ovaries.//
+ <br>
+ <<else>>
+ // You lack the reputation to access the research necessary to develop anal uteri and ovaries. //
+ <br>
+ <</if>>
+ <<else>>
+ The organ farm has been upgraded with schematics for modified uteri and ovaries.
+ <br>
+ <</if>>
+<<elseif $arcologies[0].FSGenderRadicalistResearch == 1>>
+ The organ farm has been upgraded with schematics for modified uteri and ovaries.
+ <br>
+<<else>>
+ // Gender Radicalist focused research unavailable. //
+ <br>
+<</if>>
+<</if>>
\ No newline at end of file
diff --git a/src/pregmod/theBlackMarket.tw b/src/pregmod/theBlackMarket.tw
index 8e3f510e2a76aaa5e42ff76d8fa6c0ce94e583d0..909fdf74b4461039a9676151936db195369a4742 100644
--- a/src/pregmod/theBlackMarket.tw
+++ b/src/pregmod/theBlackMarket.tw
@@ -31,9 +31,7 @@ The main draw, however, is the prominent stage to the rear of the building where
Of all the wonders present, the thing that catches your eye the most is a shady looking stall with a somehow even shadier looking merchant; a merchant who is beckoning you to come over. "A prominent arcology owner like yourself wandering around in here can only be looking for one thing: New and exciting ways to spice up <<if $PC.title == 1>>his<<else>>her<</if>> slaves! I've got the hottest research and tech straight from the labs waiting for you to peruse and some of the 'hottest' tech straight out of the research labs if you catch my drift." He shuffles around behind the counter, pulling out a stack of papers.
<br>
-<<if $dispensary == 0>>
- <br>Even if you wanted to buy something, you lack the pharmaceutical fabricator to make use of it.
-<<else>>
+
<<if ndef $thisWeeksFSWares>>
<<set $thisWeeksFSWares = $merchantFSWares.randomMany(2)>>
<</if>>
@@ -83,10 +81,14 @@ Of all the wonders present, the thing that catches your eye the most is a shady
<</if>>
<<if $thisWeeksFSWares[_bm] == "AssetExpansionistResearch">>
<<if $arcologies[0].FSAssetExpansionistResearch == 0>>
- <<if $cash >= 50000>>
- [[Purchase formulas for extremely powerful growth drugs|The Black Market][$cash -= 50000, $arcologies[0].FSAssetExpansionistResearch = 1, _dump = $merchantFSWares.delete("AssetExpansionistResearch")]] //@@.yellowgreen;<<print cashFormat(50000)>>.@@//
+ <<if $dispensary == 1>>
+ <<if $cash >= 50000>>
+ [[Purchase formulas for extremely powerful growth drugs|The Black Market][$cash -= 50000, $arcologies[0].FSAssetExpansionistResearch = 1, _dump = $merchantFSWares.delete("AssetExpansionistResearch")]] //@@.yellowgreen;<<print cashFormat(50000)>>.@@//
+ <<else>>
+ You cannot afford the asking price of @@.red;<<print cashFormat(50000)>>@@ for extremely powerful growth drug formulas. "Why'd you even come here if you didn't have the credits to buy anything?"
+ <</if>>
<<else>>
- You cannot afford the asking price of @@.red;<<print cashFormat(50000)>>@@ for extremely powerful growth drug formulas. "Why'd you even come here if you didn't have the credits to buy anything?"
+ You lack the facilities needed to produce drugs of this complexity, so absurdly powerful implant growth drug formulas are currently unobtainable.
<</if>>
<<else>>
You already possess formulas for extremely powerful growth drugs.
@@ -95,10 +97,14 @@ Of all the wonders present, the thing that catches your eye the most is a shady
<</if>>
<<if $thisWeeksFSWares[_bm] == "SlimnessEnthusiastResearch">>
<<if $arcologies[0].FSSlimnessEnthusiastResearch == 0>>
- <<if $cash >= 75000>>
- [[Purchase formulas for growth reversing drugs|The Black Market][$cash -= 75000, $arcologies[0].FSSlimnessEnthusiastResearch = 1, _dump = $merchantFSWares.delete("SlimnessEnthusiastResearch")]] //@@.yellowgreen;<<print cashFormat(75000)>>.@@//
+ <<if $dispensary == 1>>
+ <<if $cash >= 75000>>
+ [[Purchase formulas for growth reversing drugs|The Black Market][$cash -= 75000, $arcologies[0].FSSlimnessEnthusiastResearch = 1, _dump = $merchantFSWares.delete("SlimnessEnthusiastResearch")]] //@@.yellowgreen;<<print cashFormat(75000)>>.@@//
+ <<else>>
+ You cannot afford the asking price of @@.red;<<print cashFormat(75000)>>@@ for growth reversing drug formulas. "<<if $PC.boobsBonus > 0>>Guess you'll be keeping those knockers for now, <<if $PC.title == 0>>Little-Miss-Top-Heavy<<else>>Mr. Busty<</if>><<else>>Guess you don't mind sore backs. Leads to less sore knees, from what I've heard<</if>>."
+ <</if>>
<<else>>
- You cannot afford the asking price of @@.red;<<print cashFormat(75000)>>@@ for growth reversing drug formulas. "<<if $PC.boobsBonus > 0>>Guess you'll be keeping those knockers for now, <<if $PC.title == 0>>Little-Miss-Top-Heavy<<else>>Mr. Busty<</if>><<else>>Guess you don't mind sore backs. Leads to less sore knees, from what I've heard<</if>>."
+ You lack the facilities needed to produce drugs of this complexity, so growth reversing drug formulas are currently unobtainable.
<</if>>
<<else>>
You already possess formulas for growth reversing drugs.
@@ -107,10 +113,14 @@ Of all the wonders present, the thing that catches your eye the most is a shady
<</if>>
<<if $thisWeeksFSWares[_bm] == "YouthPreferentialistResearch">>
<<if $arcologies[0].FSYouthPreferentialistResearch == 0>>
- <<if $cash >= 45000>>
- [[Purchase formulas for extremely effective anti-aging beauty creams|The Black Market][$cash -= 45000, $arcologies[0].FSYouthPreferentialistResearch = 1, _dump = $merchantFSWares.delete("YouthPreferentialistResearch")]] //@@.yellowgreen;<<print cashFormat(45000)>>.@@//
+ <<if $dispensary == 1>>
+ <<if $cash >= 45000>>
+ [[Purchase formulas for extremely effective anti-aging beauty creams|The Black Market][$cash -= 45000, $arcologies[0].FSYouthPreferentialistResearch = 1, _dump = $merchantFSWares.delete("YouthPreferentialistResearch")]] //@@.yellowgreen;<<print cashFormat(45000)>>.@@//
+ <<else>>
+ You cannot afford the asking price of @@.red;<<print cashFormat(45000)>>@@ for extremely effective anti-aging beauty creams. "<<if $PC.visualAge > 40>>Those wrinkles don't look that bad on you, so don't worry about not being able to afford this<<else>>Just tell them they look young, and, well, don't give them any mirrors. Probably should keep your money troubles from them, too<</if>>."
+ <</if>>
<<else>>
- You cannot afford the asking price of @@.red;<<print cashFormat(45000)>>@@ for extremely effective anti-aging beauty creams. "<<if $PC.visualAge > 40>>Those wrinkles don't look that bad on you, so don't worry about not being able to afford this<<else>>Just tell them they look young, and, well, don't give them any mirrors. Probably should keep your money troubles from them, too<</if>>."
+ You lack the facilities needed to produce drugs of this complexity, so extremely effective anti-aging beauty creams formulas are currently unobtainable.
<</if>>
<<else>>
You already possess formulas for extremely effective anti-aging beauty cream.
@@ -119,10 +129,14 @@ Of all the wonders present, the thing that catches your eye the most is a shady
<</if>>
<<if $thisWeeksFSWares[_bm] == "HedonisticDecadenceResearch">>
<<if $arcologies[0].FSHedonisticDecadenceResearch == 0>>
- <<if $cash >= 65000>>
- [[Purchase recipes for highly addictive solid slave food|The Black Market][$cash -= 65000, $arcologies[0].FSHedonisticDecadenceResearch = 1, _dump = $merchantFSWares.delete("HedonisticDecadenceResearch")]] //@@.yellowgreen;<<print cashFormat(65000)>>.@@//
+ <<if $dispensary == 1>>
+ <<if $cash >= 65000>>
+ [[Purchase recipes for highly addictive solid slave food|The Black Market][$cash -= 65000, $arcologies[0].FSHedonisticDecadenceResearch = 1, _dump = $merchantFSWares.delete("HedonisticDecadenceResearch")]] //@@.yellowgreen;<<print cashFormat(65000)>>.@@//
+ <<else>>
+ You cannot afford the asking price of @@.red;<<print cashFormat(65000)>>@@ for highly addictive solid slave food recipes. "I promise you'll not be able to recreate this at home, so if you want to give your begging slave the treat she deserves, buy now! Or, you know, come back with money."
+ <</if>>
<<else>>
- You cannot afford the asking price of @@.red;<<print cashFormat(65000)>>@@ for highly addictive solid slave food recipes. "I promise you'll not be able to recreate this at home, so if you want to give your begging slave the treat she deserves, buy now! Or, you know, come back with money."
+ You lack the facilities needed to produce drugs of this complexity, so highly addictive solid slave food recipes are currently unobtainable.
<</if>>
<<else>>
You already possess recipes for highly addictive solid slave food.
@@ -264,41 +278,45 @@ Of all the wonders present, the thing that catches your eye the most is a shady
<<if $thisWeeksIllegalWares[_bim] == "AnimalOrgans">>
<br>
<<if $animalOvaries == 0 || $animalTesticles == 0 || $animalMpreg == 0>>
- <<if $cash >= 25000>>
- <<if $animalOvaries == 0>>
- [[Purchase schematics for animal ovaries|FarmyardLab][$cash -= 25000, $animalOvaries = 1]]
- <br>//Costs <<print cashFormat(25000)>> and allows you to implant animal ovaries into slaves.//
- <br>
+ <<if $organFarmUpgrade > 0>>
+ <<if $cash >= 25000>>
+ <<if $animalOvaries == 0>>
+ [[Purchase schematics for animal ovaries|FarmyardLab][$cash -= 25000, $animalOvaries = 1]]
+ <br>//Costs <<print cashFormat(25000)>> and allows you to implant animal ovaries into slaves.//
+ <br>
+ <<else>>
+ You already possess schematics for implanting animal ovaries.
+ <</if>>
<<else>>
- You already possess schematics for implanting animal ovaries.
+ You cannot afford the asking price of @@.red;<<print cashFormat(25000)>>@@ for animal ovaries.
<</if>>
- <<else>>
- You cannot afford the asking price of @@.red;<<print cashFormat(25000)>>@@ for animal ovaries.
- <</if>>
- <<if $cash >= 25000>>
- <<if $animalTesticles == 0>>
- [[Purchase schematics for animal testicles|FarmyardLab][$cash -= 25000, $animalTesticles = 1]]
- <br>//Costs <<print cashFormat(25000)>> and allows you to implant animal testicles into slaves.//
- <br>
+ <<if $cash >= 25000>>
+ <<if $animalTesticles == 0>>
+ [[Purchase schematics for animal testicles|FarmyardLab][$cash -= 25000, $animalTesticles = 1]]
+ <br>//Costs <<print cashFormat(25000)>> and allows you to implant animal testicles into slaves.//
+ <br>
+ <<else>>
+ You already possess schematics for implanting animal testicles.
+ <</if>>
<<else>>
- You already possess schematics for implanting animal testicles.
+ You cannot afford the asking price of @@.red;<<print cashFormat(25000)>>@@ for animal testicles.
<</if>>
- <<else>>
- You cannot afford the asking price of @@.red;<<print cashFormat(25000)>>@@ for animal testicles.
- <</if>>
- <<if $cash >= 25000>>
- <<if $animalMpreg == 0>>
- [[Purchase schematics for animal anal wombs and ovaries|FarmyardLab][$cash -= 25000, $animalMpreg = 1]]
- <br>//Costs <<print cashFormat(25000)>> and allows you to implant animal anal wombs and ovaries into slaves.//
- <br>
+ <<if $cash >= 25000>>
+ <<if $animalMpreg == 0>>
+ [[Purchase schematics for animal anal wombs and ovaries|FarmyardLab][$cash -= 25000, $animalMpreg = 1]]
+ <br>//Costs <<print cashFormat(25000)>> and allows you to implant animal anal wombs and ovaries into slaves.//
+ <br>
+ <<else>>
+ You already possess schematics for implanting animal anal wombs and ovaries.
+ <</if>>
<<else>>
- You already possess schematics for implanting animal anal wombs and ovaries.
+ You cannot afford the asking price of @@.red;<<print cashFormat(25000)>>@@ for animal anal wombs and ovaries.
<</if>>
+ /* TODO: flesh this out some more */
+ "Got something real special this week. These are schematics for implanting non-human organs into humans. My supplier told me they came from some military expirements or something - maybe they were trying to make some kind of super soldier. Not my business, though."
<<else>>
- You cannot afford the asking price of @@.red;<<print cashFormat(25000)>>@@ for animal anal wombs and ovaries.
+ You lack the facilities required to grow organs.
<</if>>
- /* TODO: flesh this out some more */
- "Got something real special this week. These are schematics for implanting non-human organs into humans. My supplier told me they came from some military expirements or something - maybe they were trying to make some kind of super soldier. Not my business, though."
<<else>> /* if all schematics have already been purchased */
You already possess all of the schematics for implanting animal organs.
<<set _dump = $merchantIllegalWares.delete("AnimalOrgans")>>
@@ -309,4 +327,3 @@ Of all the wonders present, the thing that catches your eye the most is a shady
<<else>>
<br>You appear to already possess all the black market schematics he has to offer.
<</if>>
-<</if>>
diff --git a/src/uncategorized/dispensary.tw b/src/uncategorized/dispensary.tw
index 291920df0941a65ddaab8534da38b10c4195dacd..d5644716d148bfbf698cec429f9230b91cd69b48 100644
--- a/src/uncategorized/dispensary.tw
+++ b/src/uncategorized/dispensary.tw
@@ -26,173 +26,6 @@ The Dispensary
<</if>>
<</if>>
-<br>
-The Organ Farm
-<hr>
-<<if ($organFarmUpgrade < 3) && ($rep <= 10000*_PCSkillCheck)>>
- //You lack the reputation to access experimental organ farm parts//
- <br>
-<<elseif $dispensaryUpgrade == 0 && $organFarmUpgrade == 2>>
- //The fabricator must upgraded before it can be fitted with perfected organ farm parts//
- <br>
-<<elseif $organs.length > 0>>
- //The organ farm cannot be upgraded while it is use//
- <br>
-<<elseif ($organFarmUpgrade == 2) && ($rep > 10000*_PCSkillCheck)>>
- [[Upgrade the organ farm to the cutting edge model|Dispensary][$cash -= 150000*_PCSkillCheck, $organFarmUpgrade = 3]]
- //Costs <<print cashFormat(150000*_PCSkillCheck)>>//
- <br> //Will allow the organ farm to rapidly grow organs without risk to the implantee's health.//
- <br>
-<<elseif ($organFarmUpgrade == 1) && ($rep > 10000*_PCSkillCheck)>>
- [[Upgrade the organ farm with an experimental growth accelerator|Dispensary][$cash -= 50000*_PCSkillCheck, $organFarmUpgrade = 2]]
- //Costs <<print cashFormat(50000*_PCSkillCheck)>>//
- <br> //Will allow the organ farm to quickly grow organs. Implanted organs may cause health issues.//
- <br>
-<<elseif ($organFarmUpgrade == 0) && ($rep > 10000*_PCSkillCheck)>>
- [[Upgrade the fabricator with an experimental organ farm|Dispensary][$cash -= 50000*_PCSkillCheck, $organFarmUpgrade = 1]]
- //Costs <<print cashFormat(50000*_PCSkillCheck)>>//
- <br> //Will allow the fabrication of tailored organs using the autosurgery.//
- <br>
-<</if>>
-<<if $organFarmUpgrade > 2>>
- The fabricator is capable of rapidly growing organs.
- <br>
-<<elseif $organFarmUpgrade > 1>>
- The fabricator is capable of quickly growing organs, though not without side effects.
- <br>
-<<elseif ($organFarmUpgrade > 0)>>
- The fabricator is capable of growing organs.
- <br>
-<</if>>
-<<if $organs.length > 0>>
-It is currently working on the following organs:
- <<for $i = 0; $i < $organs.length; $i++>>
- <<set $j = $slaveIndices[$organs[$i].ID]>>
- <<if def $j>>
- <br>
- $slaves[$j].slaveName's $organs[$i].type,
- <<if $organFarmUpgrade == 1>>
- <<print $organs[$i].weeksToCompletion>>
- <<elseif $organFarmUpgrade == 2>>
- <<print Math.ceil($organs[$i].weeksToCompletion/2)>>
- <<elseif $organFarmUpgrade == 3>>
- <<print Math.ceil($organs[$i].weeksToCompletion/4)>>
- <</if>> weeks from completion.
- <<else>>
- @@.red;Error: organID not found.@@
- <</if>>
- <</for>>
- <br>
-<</if>>
-<<if $incubatorSlaves > 0>>
- <<for $x = 0; $x < $incubatorOrgans.length; $x++>>
- <<for _w = 0; _w < $incubatorSlaves; _w++>>
- <<if $tanks[_w].ID == $incubatorOrgans[$x].ID>>
- <br>
- $tanks[_w].slaveName's $incubatorOrgans[$x].type,
- <<if $incubatorOrgans[$x].weeksToCompletion <= 0>>
- ready to be implanted as soon as she exits the incubator.
- <<else>>
- <<if $organFarmUpgrade == 1>>
- <<print $incubatorOrgans[$x].weeksToCompletion>>
- <<elseif $organFarmUpgrade == 2>>
- <<print Math.ceil($incubatorOrgans[$x].weeksToCompletion/2)>>
- <<elseif $organFarmUpgrade == 3>>
- <<print Math.ceil($incubatorOrgans[$x].weeksToCompletion/4)>>
- <</if>> weeks from completion.
- <</if>>
- <<break>>
- <</if>>
- <</for>>
- <</for>>
- <br>
-<</if>>
-/* TODO: potentially allow organs to be implanted into children in the nursery
-<<if $nurserySlaves > 0>>
- <<for $x = 0; $x < $nurseryOrgans.length; $x++>>
- <<for _w = 0; _w < $nurserySlaves; _w++>>
- <<if $cribs[_w].ID == $nurseryOrgans[$x].ID>>
- <br>
- $cribs[_w].slaveName's $nurseryOrgans[$x].type,
- <<if $nurseryOrgans[$x].weeksToCompletion <= 0>>
- ready to be implanted as soon as she exits the nursery.
- <<else>>
- <<if $organFarmUpgrade == 1>>
- <<print $nurseryOrgans[$x].weeksToCompletion>>
- <<elseif $organFarmUpgrade == 2>>
- <<print Math.ceil($nurseryOrgans[$x].weeksToCompletion/2)>>
- <<elseif $organFarmUpgrade == 3>>
- <<print Math.ceil($nurseryOrgans[$x].weeksToCompletion/4)>>
- <</if>> weeks from completion.
- <</if>>
- <<break>>
- <</if>>
- <</for>>
- <</for>>
- <br>
-<</if>>
-*/
-<<if $completedOrgans.length > 0>>
- <br>
- Currently the following organs are completed and ready for implantation:
- <<for $i = 0; $i < $completedOrgans.length; $i++>>
- <<set $j = $slaveIndices[$completedOrgans[$i].ID]>>
- <<if def $j>>
- <br>$slaves[$j].slaveName's $completedOrgans[$i].type.
- <<else>>
- @@.red;Error: completedOrganID not found.@@
- <</if>>
- <</for>>
- <br>
-<</if>>
-
-<<if $organFarmUpgrade > 0>>
- <<if ($youngerOvaries != 1) && ($rep <= 10000*_PCSkillCheck)>>
- //You lack the reputation to access designs for cloning fertile ovaries for menopausal slaves.//
- <br>
- <<elseif ($youngerOvaries != 1) && ($rep > 10000*_PCSkillCheck)>>
- [[Purchase designs for cloning fertile ovaries for menopausal slaves|Dispensary][$cash -= 30000*_PCSkillCheck, $youngerOvaries = 1]]
- //Costs <<print cashFormat(30000*_PCSkillCheck)>>//
- <br> //Will allow the growth of younger, fertile ovaries for menopausal slaves. Restored fertility will only last for a couple years at most.//
- <br>
- <<elseif ($youngerOvaries > 0)>>
- The fabricator is capable of growing fertile ovaries for postmenopausal slaves.
- <br>
- <</if>>
-<</if>>
-/*
-<<if $seePreg != 0 && $seeBestiality != 0>>
- <<if $organFarmUpgrade > 0 && $farmyardLabUpgrades.animalOvaries > 0>>
- <<if $animalOvaries < 1>>
- //You lack the required designs for cloning animal ovaries for slaves.//
- <br>
- <<else>>
- The fabricator is capable of growing animal ovaries for slaves.
- <br>
- <</if>>
- <</if>>
-
- <<if $organFarmUpgrade > 0 && $farmyardLabUpgrades.animalTesticles > 0>>
- <<if $animalTesticles < 1>>
- //You lack the required designs for cloning animal testicles for slaves.//
- <br>
- <<else>>
- The fabricator is capable of growing animal testicles for slaves.
- <br>
- <</if>>
- <</if>>
-
- <<if $organFarmUpgrade > 0 && $farmyardLabUpgrades.animalMpreg > 0>>
- <<if $animalMpreg < 1>>
- //You lack the required designs for cloning animal anal wombs and ovaries for slaves.//
- <br>
- <<else>>
- The fabricator is capable of growing animal anal wombs and ovaries for slaves.
- <br>
- <</if>>
- <</if>>
-<</if>>
-*/
<br>
Hormones Upgrades
<hr>
@@ -418,7 +251,7 @@ Pharmacological Upgrades
<</if>>
<<if ($healthyDrugsUpgrade == 0)>>
- <<if (($organFarmUpgrade >= 1) && ($injectionUpgrade != 0) && ($curativeUpgrade == 1) && ($aphrodisiacUpgrade == 1))>>
+ <<if ($injectionUpgrade != 0) && ($curativeUpgrade == 1) && ($aphrodisiacUpgrade == 1)>>
<<if ($rep >= 15000*_PCSkillCheck)>>
[[Fund research into drug formulations without negative physical side effects|Dispensary][$cash -= 500000*_PCSkillCheck,$healthyDrugsUpgrade = 1]]
//Costs <<print cashFormat(500000*_PCSkillCheck)>>//
@@ -429,7 +262,7 @@ Pharmacological Upgrades
<br>
<</if>>
<<else>>
- // You must purchase all other upgrades before developing advanced drug formulations. //
+ // You must purchase all other major upgrades before developing advanced drug formulations. //
<br>
<</if>>
<<else>>
@@ -489,110 +322,6 @@ Fertility Focused Pharmacology
<</if>>
<</if>>
-<br>
-Implant Production
-<hr>
-<<if ($ImplantProductionUpgrade == 0) && ($rep <= 2000*_PCSkillCheck)>>
- //You lack the reputation to access advanced implant manufacturer parts//
- <br>
-<</if>>
-
-<<if ($ImplantProductionUpgrade == 0) && ($rep > 2000*_PCSkillCheck)>>
- [[Upgrade the fabricator with an advanced implant manufacturer|Dispensary][$cash -= 10000*_PCSkillCheck, $ImplantProductionUpgrade = 1]]
- //Costs <<print cashFormat(10000*_PCSkillCheck)>>//
- <br> //Will allow the fabrication of advanced implants using the autosurgery.//
- <br>
-<<elseif ($ImplantProductionUpgrade > 0)>>
- The fabricator is capable of crafting advanced implants.
- <br>
-<</if>>
-
-<<if $ImplantProductionUpgrade == 1 && $seeHyperPreg == 1 && $seeExtreme == 1 && $seePreg != 0>>
- <<if ($permaPregImplant == 0) && ($rep <= 4000*_PCSkillCheck)>>
- //You lack the reputation to access experimental pregnancy generator schematics//
- <br>
- <</if>>
- <<if ($permaPregImplant == 0) && ($rep > 4000*_PCSkillCheck)>>
- [[Purchase schematics for an experimental implantable pregnancy generator|Dispensary][$cash -= 40000*_PCSkillCheck, $permaPregImplant = 1]]
- //Costs <<print cashFormat(40000*_PCSkillCheck)>>//
- <br> //Will allow the fabrication of implants that force perpetual pregnancy.//
- <br>
- <<elseif ($permaPregImplant > 0)>>
- The fabricator is capable of crafting pregnancy generators.
- <br>
- <</if>>
- <<if $PGHack == 1>>
- The tools required to hack the firmware of basic pregnancy generator implants have been produced by the fabricator for use in the remote surgery.
- <br>
- <</if>>
-<</if>>
-
-<<if $ImplantProductionUpgrade == 1>>
- <<if ($bellyImplants == 0) && ($rep <= 2000*_PCSkillCheck)>>
- //You lack the reputation to access experimental fillable abdominal implants//
- <br>
- <</if>>
-
- <<if ($bellyImplants == 0) && ($rep > 2000*_PCSkillCheck)>>
- [[Purchase schematics for fillable abdominal implants|Dispensary][$cash -= 30000*_PCSkillCheck, $bellyImplants = 1]]
- //Costs <<print cashFormat(30000*_PCSkillCheck)>>//
- <br> //Will allow the fabrication of fillable abdominal implants using the autosurgery.//
- <br>
- <<elseif ($bellyImplants > 0)>>
- The fabricator is capable of crafting fillable abdominal implants.
- <br>
- <</if>>
-
- <<if ($bellyImplants == 1) && ($cervixImplants != 1) && ($rep <= 6000*_PCSkillCheck)>> /* show only after belly implants already researched */
- //You lack the reputation to access experimental cervix filter micropumps schematics for abdominal implants//
- <br>
- <</if>>
-
- <<if ($bellyImplants == 1) && ($cervixImplants != 1) && ($rep >6000*_PCSkillCheck)>> /* nanotech like technology much more impressive and costly than simple implant */
- [[Purchase schematics for cervix filter micropumps|Dispensary][$cash -= 70000*_PCSkillCheck, $cervixImplants = 1]]
- //Costs <<print cashFormat(70000*_PCSkillCheck)>>//
- <br> //Will allow the fabrication of cervix filter micropumps for fillable abdominal implants using the autosurgery.//
- <br>
- <<elseif ($cervixImplants > 0)>>
- The fabricator is capable of crafting cervix filter micropumps for fillable abdominal implants.
- <br>
- <</if>>
-
- <<if ($prostateImplants != 1) && ($rep <= 3000*_PCSkillCheck)>>
- //You lack the reputation to access plans for prostate implants//
- <br>
- <</if>>
- <<if ($prostateImplants != 1) && ($rep > 3000*_PCSkillCheck)>>
- [[Purchase plans for ejaculation enhancing prostate implants|Dispensary][$cash -= 30000*_PCSkillCheck, $prostateImplants = 1]]
- //Costs <<print cashFormat(30000*_PCSkillCheck)>>//
- <br> //Will allow the fabrication of a prostate implant designed to stimulate fluid production for massive ejaculations. Beware of leaking and dehydration.//
- <br>
- <<elseif ($prostateImplants > 0)>>
- The fabricator is capable of producing ejaculation enhancing prostate implants.
- <br>
- <</if>>
-
- <<if ($meshImplants != 1) && ($rep <= 10000*_PCSkillCheck)>>
- //You lack the reputation to access plans for supportive breast implants//
-
- <</if>>
- <<if ($meshImplants != 1) && ($rep > 10000*_PCSkillCheck)>>
- [[Purchase plans for supportive mesh breast implants|Dispensary][$cash -= 40000*_PCSkillCheck, $meshImplants = 1]]
- //Costs <<print cashFormat(40000*_PCSkillCheck)>>//
- <br> //Will allow the fabrication of organic and supportive mesh breast implants.//
- <br>
- <<elseif ($meshImplants > 0)>>
- The fabricator is capable of producing supportive mesh breast implants.
- <br>
- <</if>>
-
- <<if $UterineRestraintMesh == 1>>
- The fabricator is capable of producing supportive mesh uterine implants.
- <br>
- <</if>>
-
-<</if>>
-
<<if $geneticMappingUpgrade == 1>>
<br>
Gene Mods
@@ -619,29 +348,6 @@ Implant Production
Future Societies Research
<hr>
-<<if $seePreg != 0>>
-<<if $arcologies[0].FSGenderRadicalistDecoration == 100 && $organFarmUpgrade > 0>>
- <<if ($arcologies[0].FSGenderRadicalistResearch == 0)>>
- <<if ($rep >= 10000*_PCSkillCheck)>>
- [[Fund research into developing male pregnancy methods|Dispensary][$cash -= 50000*_PCSkillCheck,$arcologies[0].FSGenderRadicalistResearch = 1]] //Costs <<print cashFormat(50000*_PCSkillCheck)>>. Will allow cloning and production of anal uteri and ovaries.//
- <br>
- <<else>>
- // You lack the reputation to access the research necessary to develop anal uteri and ovaries. //
- <br>
- <</if>>
- <<else>>
- The organ farm has been upgraded with schematics for modified uteri and ovaries.
- <br>
- <</if>>
-<<elseif $arcologies[0].FSGenderRadicalistResearch == 1>>
- The organ farm has been upgraded with schematics for modified uteri and ovaries.
- <br>
-<<else>>
- // Gender Radicalist focused research unavailable. //
- <br>
-<</if>>
-<</if>>
-
<<if ($ImplantProductionUpgrade == 1) && ($arcologies[0].FSTransformationFetishistDecoration >= 100)>>
<<if ($arcologies[0].FSTransformationFetishistResearch == 0) && ($rep <= 5000*_PCSkillCheck)>>
//You lack the reputation to access experimental gigantic implants and elasticizing filler.//
diff --git a/src/uncategorized/managePenthouse.tw b/src/uncategorized/managePenthouse.tw
index 43bb2cc0de0dc149c28e4e3b87f02492d7878a1a..8c51df770d52613b852a624114d0ff688075cba0 100644
--- a/src/uncategorized/managePenthouse.tw
+++ b/src/uncategorized/managePenthouse.tw
@@ -297,30 +297,28 @@ __Penthouse Upgrades__
<br>
-<<if $surgeryUpgrade == 0>>
-<<if $rep > 10000>>
- [[Upgrade the remote surgery|Manage Penthouse][$cash -= Math.trunc(50000*$upgradeMultiplierArcology), $surgeryUpgrade = 1, $PC.engineering += 1]]
- //Costs <<print cashFormat(Math.trunc(50000*$upgradeMultiplierArcology))>>//
+<<if $ImplantProductionUpgrade == 0>>
+<<if $rep > 2000>>
+ [[Install an implant manufactory|Manage Penthouse][$cash -= Math.trunc(20000*$upgradeMultiplierArcology), $ImplantProductionUpgrade = 1, $PC.engineering += .1]]
+ //Costs <<print cashFormat(Math.trunc(20000*$upgradeMultiplierArcology))>>//
<<else>>
- //You lack the reputation to secure rare surgery upgrades//
+ //You lack the reputation to obtain cutting-edge implant fabrication technology//
<</if>>
<<else>>
- Your remote surgery has been heavily upgraded and customized.
+ There is a [[implant manufactory|Implant Manufactory]] attached to the surgery.
<</if>>
-<<if $seePreg == 1>>
- <br>
+<br>
- <<if $pregnancyMonitoringUpgrade == 0>>
- <<if $rep > 10000>>
- [[Upgrade the pregnancy monitoring systems|Manage Penthouse][$cash -= Math.trunc(30000*$upgradeMultiplierArcology), $pregnancyMonitoringUpgrade = 1, $PC.engineering += 1]]
- //Costs <<print cashFormat(Math.trunc(30000*$upgradeMultiplierArcology))>>//
- <<else>>
- //You lack the reputation to purchase improved pregnancy monitoring systems//
- <</if>>
- <<else>>
- Your pregnancy monitoring systems have been heavily upgraded.
- <</if>>
+<<if $organFarmUpgrade == 0>>
+<<if $rep > 10000>>
+ [[Install an experimental organ farm|Manage Penthouse][$cash -= Math.trunc(70000*$upgradeMultiplierArcology), $organFarmUpgrade = 1, $PC.engineering += .1]]
+ //Costs <<print cashFormat(Math.trunc(70000*$upgradeMultiplierArcology))>>//
+<<else>>
+ //You lack the reputation to obtain an experimental organ fabricator//
+<</if>>
+<<else>>
+ There is an [[organ farm|Organ Farm]] attached to the surgery.
<</if>>
<br>
@@ -338,7 +336,6 @@ __Penthouse Upgrades__
<br>
-
<<if $cyberMod == 0>>
<<switch $prostheticsUpgrade>>
<<case 1>>
@@ -368,3 +365,30 @@ __Penthouse Upgrades__
<</if>>
<</switch>>
<</if>>
+
+<br>
+
+<<if $surgeryUpgrade == 0>>
+<<if $rep > 10000>>
+ [[Upgrade the remote surgery|Manage Penthouse][$cash -= Math.trunc(50000*$upgradeMultiplierArcology), $surgeryUpgrade = 1, $PC.engineering += 1]]
+ //Costs <<print cashFormat(Math.trunc(50000*$upgradeMultiplierArcology))>>//
+<<else>>
+ //You lack the reputation to secure rare surgery upgrades//
+<</if>>
+<<else>>
+ Your remote surgery has been heavily upgraded and customized.
+<</if>>
+
+<<if $seePreg == 1>>
+ <br>
+ <<if $pregnancyMonitoringUpgrade == 0>>
+ <<if $rep > 10000>>
+ [[Upgrade the pregnancy monitoring systems|Manage Penthouse][$cash -= Math.trunc(30000*$upgradeMultiplierArcology), $pregnancyMonitoringUpgrade = 1, $PC.engineering += 1]]
+ //Costs <<print cashFormat(Math.trunc(30000*$upgradeMultiplierArcology))>>//
+ <<else>>
+ //You lack the reputation to purchase improved pregnancy monitoring systems//
+ <</if>>
+ <<else>>
+ Your pregnancy monitoring systems have been heavily upgraded.
+ <</if>>
+<</if>>