diff --git a/src/init/storyInit.tw b/src/init/storyInit.tw
index 854de3f5139abef60877251d975501734bf455d4..731fe4662838105e505f7aa7b0a680fe70104179 100644
--- a/src/init/storyInit.tw
+++ b/src/init/storyInit.tw
@@ -751,6 +751,7 @@ DairyRestraintsSetting($dairyRestraintsSetting)
<<set $cumProDiet = 0>>
<<set $curativeUpgrade = 0>>
<<set $aphrodisiacUpgrade = 0>>
+<<set $aphrodisiacUpgradeRefine = 0>>
<<set $healthyDrugsUpgrade = 0>>
<<set $superFertilityDrugs = 0>>
<<set $bellyImplants = 0>>
diff --git a/src/uncategorized/BackwardsCompatibility.tw b/src/uncategorized/BackwardsCompatibility.tw
index 0752ce48c7dd7411f726259cc3722594954b48f6..4a00a67095d92a403b54bd219482e1c76f1740c5 100644
--- a/src/uncategorized/BackwardsCompatibility.tw
+++ b/src/uncategorized/BackwardsCompatibility.tw
@@ -235,7 +235,7 @@
<<if ndef $arcologies>>
<<set $arcologies to []>>
-<<set $arcologies[0] to {name: "Arcology X-", direction: 0, government: 1, honeymoon: 0, prosperity: 50, FSSupremacist: "unset", FSSupremacistRace: 0, FSSubjugationist: "unset", FSSubjugationistRace: 0, FSGenderRadicalist: "unset", FSGenderFundamentalist: "unset", FSPaternalist: "unset", FSDegradationist: "unset", FSBodyPurist: "unset", FSTransformationFetishist: "unset", FSYouthPreferentialist: "unset", FSMaturityPreferentialist: "unset", FSSlimnessEnthusiast: "unset", FSAssetExpansionist: "unset", FSPastoralist: "unset", FSPhysicalIdealist: "unset", FSChattelReligionist: "unset", FSRomanRevivalist: "unset", FSEgyptianRevivalist: "unset", FSEdoRevivalist: "unset", FSArabianRevivalist: "unset", FSChineseRevivalist: "unset", FSNull: "unset", embargo: 1, embargoTarget: -1, influenceTarget: -1, influenceBonus: 0, rival: 0}>>
+<<set $arcologies[0] to {name: "Arcology X-", direction: 0, government: 1, honeymoon: 0, prosperity: 50, FSSupremacist: "unset", FSSupremacistRace: 0, FSSubjugationist: "unset", FSSubjugationistRace: 0, FSGenderRadicalist: "unset", FSGenderFundamentalist: "unset", FSPaternalist: "unset", FSDegradationist: "unset", FSBodyPurist: "unset", FSTransformationFetishist: "unset", FSYouthPreferentialist: "unset", FSMaturityPreferentialist: "unset", FSSlimnessEnthusiast: "unset", FSAssetExpansionist: "unset", FSPastoralist: "unset", FSPhysicalIdealist: "unset", FSChattelReligionist: "unset", FSRomanRevivalist: "unset", FSEgyptianRevivalist: "unset", FSEdoRevivalist: "unset", FSArabianRevivalist: "unset", FSChineseRevivalist: "unset", FSNull: "unset", FSRepopulationFocus: "unset", FSRestart = "unset", embargo: 1, embargoTarget: -1, influenceTarget: -1, influenceBonus: 0, rival: 0}>>
<</if>>
<<if def $arcologyName>>
diff --git a/src/uncategorized/dispensary.tw b/src/uncategorized/dispensary.tw
index 3c5a9d113f3eeacb25ddb587e1ff405a8fa44152..f1abae998b9b59737bffcd8dfc9a4dc45eeac54a 100644
--- a/src/uncategorized/dispensary.tw
+++ b/src/uncategorized/dispensary.tw
@@ -201,6 +201,16 @@ The hormone replacement therapies
<br><br>
+<<if ($aphrodisiacUpgradeRefine == 0) && ($rep > 6000*$upgradeMultiplierMedicine)>>
+ [[Purchase data on refined aphrodisiacs|Dispensary][$cash -= 20000*$upgradeMultiplierMedicine, $aphrodisiacUpgradeRefine = 1]]
+ //Costs ¤<<print 20000*$upgradeMultiplierMedicine>>//
+ <br> //Will prevent most physical side effects of aphrodisiacs. Once the formulas are changed they can not be changed back.//
+<<elseif ($aphrodisiacUpgradeRefine == 1)>>
+ The fabricator is producing refined aphrodisiacs with limited hormonal effects.
+<</if>>
+
+<br><br>
+
<<if ($aphrodisiacUpgrade == 0) && ($rep > 6000*$upgradeMultiplierMedicine)>>
[[Purchase data on aphrodisiac withdrawal treatment|Dispensary][$cash -= 10000*$upgradeMultiplierMedicine, $aphrodisiacUpgrade = 1]]
//Costs ¤<<print 10000*$upgradeMultiplierMedicine>>//
diff --git a/src/uncategorized/main.tw b/src/uncategorized/main.tw
index 48b090d7e0b45409f199fc886d461608d83a7d9d..dd12633da62e7291a36a0e85d24acf9b2f5388d9 100644
--- a/src/uncategorized/main.tw
+++ b/src/uncategorized/main.tw
@@ -17,6 +17,9 @@
<<if ndef $prostateImplants>>
<<set $prostateImplants = 0>>
<</if>>
+<<if ndef $aphrodisiacUpgradeRefine>>
+ <<set $aphrodisiacUpgradeRefine = 0>>
+<</if>>
<<set $currentRule = $defaultRules[0]>>
<<SlaveSort $slaves>>
diff --git a/src/uncategorized/saLongTermEffects.tw b/src/uncategorized/saLongTermEffects.tw
index e7bd4b10ecd89d16673e819cd9ff5923432f1034..c3093ef5f53ba49c9b7199d62d07fe05f1b999f1 100644
--- a/src/uncategorized/saLongTermEffects.tw
+++ b/src/uncategorized/saLongTermEffects.tw
@@ -2876,6 +2876,7 @@
<<if $slaves[$i].aphrodisiacs > random(0,2)>>
<<set _Effects = []>>
+ <<if $aphrodisiacUpgradeRefine != 1>>
<<if ($slaves[$i].dick > 1)>>
<<set _Effects.push("DickShrink")>>
<</if>>
@@ -2905,6 +2906,7 @@
<<elseif ($slaves[$i].faceShape == "androgynous")>>
<<set _Effects.push("FaceNormal")>>
<</if>>
+ <</if>>
<<if ($slaves[$i].devotion <= 20)>>
<<set _Effects.push("Devoted")>>
<</if>>