diff --git a/src/js/futureSocietyJS.js b/src/js/futureSocietyJS.js
index a57f6f468fabe3694e31d297f5034e42524336e4..b2b53e07c8c565af96193c514485ab0b9b27a2cc 100644
--- a/src/js/futureSocietyJS.js
+++ b/src/js/futureSocietyJS.js
@@ -102,6 +102,7 @@ globalThis.FutureSocieties = (function() {
 		decay: decayFSes,
 		overflowToInfluence: overflowToInfluence,
 		remove: removeFS,
+		validAdoptions: validAdoptions,
 		DecorationCleanup: DecorationCleanup,
 		DecorationBonus: FSDecorationBonus,
 		Change: FSChange,
@@ -188,6 +189,38 @@ globalThis.FutureSocieties = (function() {
 		return false;
 	}
 
+	/** returns an array of all of the FSes that would be valid for this arcology to adopt right now
+	 * @param {number} arcID
+	 * @returns {string[]}
+	 */
+	function validAdoptions(arcID) {
+		const arcology = V.arcologies[arcID];
+		const societies = Array.from(arcID === 0 ? SocietyList : SocietyList.concat(NPCSocietyList));
+		const arcFSes = activeFSes(arcID);
+
+		// apply game rules
+		if (!V.seeIncest) {
+			societies.delete("FSIncestFetishist");
+		}
+		if (!V.seePreg) {
+			societies.delete("FSRepopulationFocus");
+		}
+
+		// FSes already adopted by the arcology are invalid
+		societies.deleteWith(fs => arcFSes.includes(fs));
+
+		// FSes that conflict with FSes adopted by the arcology are invalid
+		societies.deleteWith(fs1 => arcFSes.some(fs2 => conflictingFSes(fs1, fs2)));
+
+		// if the government is loyal to you, FSes that conflict with FSes adopted by the player are invalid
+		if (arcology.government === "your agent" || arcology.government === "your trustees") {
+			const playerFSes = activeFSes(0);
+			societies.deleteWith(fs1 => playerFSes.some(fs2 => conflictingFSes(fs1, fs2)));
+		}
+
+		return societies;
+	}
+
 	/** returns the set of shared FSes between two arcologies, and the set of conflicts between pairs of FSes between the arcologies
 	 * relatively expensive, try not to call frequently
 	 * call as FutureSocieties.diplomaticFSes(arc1ID, arc2ID)
diff --git a/src/uncategorized/neighborsFSAdoption.tw b/src/uncategorized/neighborsFSAdoption.tw
index 37763f7d44f66f5e0dac24d3a73d64154f295e36..bc9873ba232334c51bf58f5f39639bcdc3c3d77c 100644
--- a/src/uncategorized/neighborsFSAdoption.tw
+++ b/src/uncategorized/neighborsFSAdoption.tw
@@ -22,7 +22,9 @@ is prosperous enough that
 societal development.
 <<set _adopted = 0>>
 
-/* PRIME RIVALRY FS ADOPTION */
+<<set _validFSes = FutureSocieties.validAdoptions($i)>>
+
+/* PRIME RIVALRY FS ADOPTION - IGNORES VALIDITY */
 
 <<if $arcologies[$i].rival == 1>>
 <<if $arcologies[$i].government == "an individual">>
@@ -138,7 +140,7 @@ societal development.
 		<<if $arcologies[$i].FSNeoImperialist != "unset">><<set $arcologies[$i].FSNeoImperialist = "unset">><</if>>
 		$desc fascinated by ancient Aztec history, leading the arcology to @@.yellow;adopt Aztec Revivalism.@@
 		<<set $arcologies[$i].FSAztecRevivalist = 5>><<set _adopted = 1>>
-	<<case "Egyptian Revivalism">>
+	<<case "Neo-Imperialism" "Egyptian Revivalism">>
 		<<if $arcologies[$i].FSEgyptianRevivalist != "unset">><<set $arcologies[$i].FSEgyptianRevivalist = "unset">><</if>>
 		<<if $arcologies[$i].FSRomanRevivalist != "unset">><<set $arcologies[$i].FSRomanRevivalist = "unset">><</if>>
 		<<if $arcologies[$i].FSEdoRevivalist != "unset">><<set $arcologies[$i].FSEdoRevivalist = "unset">><</if>>
@@ -193,160 +195,156 @@ societal development.
 
 	<<set $desc = "Its owner is">>
 	<<if $arcologies[0].FSSubjugationist > random(5,60)>>
-		<<if ($arcologies[$i].FSSupremacist == "unset")>>
-			<<if ($arcologies[$i].FSSubjugationist == "unset")>>
-				$desc preoccupied by belief in the superiority of the $arcologies[0].FSSubjugationistRace race, leading the arcology to @@.yellow;adopt $arcologies[0].FSSubjugationistRace Supremacy.@@
-				<<set $arcologies[$i].FSSupremacist = 5>><<set _adopted = 1>>
-				<<set $arcologies[$i].FSSupremacistRace = $arcologies[0].FSSubjugationistRace>>
-			<</if>>
+		<<if _validFSes.includes("FSSupremacist") && ($arcologies[$i].FSSubjugationist == "unset") || ($arcologies[$i].FSSubjugationistRace !== $arcologies[0].FSSubjugationistRace)>>
+			$desc preoccupied by belief in the superiority of the $arcologies[0].FSSubjugationistRace race, leading the arcology to @@.yellow;adopt $arcologies[0].FSSubjugationistRace Supremacy.@@
+			<<set $arcologies[$i].FSSupremacist = 5>><<set _adopted = 1>>
+			<<set $arcologies[$i].FSSupremacistRace = $arcologies[0].FSSubjugationistRace>>
 		<</if>>
 	<</if>>
 	<<if $arcologies[0].FSSupremacist > random(5,60)>>
-		<<if ($arcologies[$i].FSSubjugationist == "unset")>>
-			<<if ($arcologies[$i].FSSupremacist == "unset")>>
-				$desc preoccupied by a racial animus towards $arcologies[0].FSSupremacistRace people, leading the arcology to @@.yellow;adopt $arcologies[0].FSSupremacistRace Subjugation.@@
-				<<set $arcologies[$i].FSSubjugationist = 5>><<set _adopted = 1>>
-				<<set $arcologies[$i].FSSubjugationistRace = $arcologies[0].FSSupremacistRace>>
-			<</if>>
+		<<if (_validFSes.includes("FSSubjugationist") && ($arcologies[$i].FSSupremacist == "unset") || ($arcologies[$i].FSSupremacistRace !== $arcologies[0].FSSupremacistRace)>>
+			$desc preoccupied by a racial animus towards $arcologies[0].FSSupremacistRace people, leading the arcology to @@.yellow;adopt $arcologies[0].FSSupremacistRace Subjugation.@@
+			<<set $arcologies[$i].FSSubjugationist = 5>><<set _adopted = 1>>
+			<<set $arcologies[$i].FSSubjugationistRace = $arcologies[0].FSSupremacistRace>>
 		<</if>>
 	<</if>>
 	<<if $arcologies[0].FSRestart > random(5,60)>>
-		<<if ($arcologies[$i].FSRestart == "unset") && ($arcologies[$i].FSRepopulationFocus == "unset") && ($seePreg == 1)>>
+		<<if _validFSes.includes("FSRepopulationFocus")>>
 			$desc obsessed with breeding a new society, leading the arcology to @@.yellow;adopt Repopulationism.@@
 			<<set $arcologies[$i].FSRepopulationFocus = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSRepopulationFocus > random(5,60)>>
-		<<if ($arcologies[$i].FSRestart == "unset") && ($arcologies[$i].FSRepopulationFocus == "unset")>>
+		<<if _validFSes.includes("FSRestart")>>
 			$desc obsessed with creating a new, better society, leading the arcology to @@.yellow;adopt Eugenics.@@
 			<<set $arcologies[$i].FSRestart = 5>><<set _adopted = 1>>
 		<</if>>
 	<</if>>
 	<<if $arcologies[0].FSGenderRadicalist > random(5,60)>>
-		<<if ($arcologies[$i].FSGenderRadicalist == "unset") && ($arcologies[$i].FSGenderFundamentalist == "unset")>>
+		<<if _validFSes.includes("FSGenderFundamentalist")>>
 			$desc enthusiastic about knocking slaves up, leading the arcology to @@.yellow;adopt Gender Fundamentalism.@@
 			<<set $arcologies[$i].FSGenderFundamentalist = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSGenderFundamentalist > random(5,60)>>
-		<<if ($arcologies[$i].FSGenderRadicalist == "unset") && ($arcologies[$i].FSGenderFundamentalist == "unset")>>
+		<<if _validFSes.includes("FSGenderRadicalist")>>
 			$desc enthusiastic about fucking slaves in the butt, leading the arcology to @@.yellow;adopt Gender Radicalism.@@
 			<<set $arcologies[$i].FSGenderRadicalist = 5>><<set _adopted = 1>>
 		<</if>>
 	<</if>>
 	<<if $arcologies[0].FSPaternalist > random(5,60)>>
-		<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
+		<<if _validFSes.includes("FSDegradationist")>>
 			$desc partial to screaming and struggling, leading the arcology to @@.yellow;adopt Degradationism.@@
 			<<set $arcologies[$i].FSDegradationist = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSDegradationist > random(5,60)>>
-		<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
+		<<if _validFSes.includes("FSPaternalist")>>
 			$desc devoted to their slaves' advancement, leading the arcology to @@.yellow;adopt Paternalism.@@
 			<<set $arcologies[$i].FSPaternalist = 5>><<set _adopted = 1>>
 		<</if>>
 	<</if>>
 	<<if $arcologies[0].FSIntellectualDependency > random(5,60)>>
-		<<if ($arcologies[$i].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
+		<<if _validFSes.includes("FSSlaveProfessionalism")>>
 			$desc obsessed with crafting the perfect slave, leading the arcology to @@.yellow;adopt Slave Professionalism.@@
 			<<set $arcologies[$i].FSSlaveProfessionalism = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSSlaveProfessionalism > random(5,60)>>
-		<<if ($arcologies[$i].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
+		<<if _validFSes.includes("FSIntellectualDependency")>>
 			$desc worried that they may one day be outsmarted by their chattel, leading the arcology to @@.yellow;adopt Intellectual Dependency.@@
 			<<set $arcologies[$i].FSIntellectualDependency = 5>><<set _adopted = 1>>
 		<</if>>
 	<</if>>
 	<<if $arcologies[0].FSBodyPurist > random(5,60)>>
-		<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
+		<<if _validFSes.includes("FSTransformationFetishist")>>
 			$desc fascinated with extreme surgery, leading the arcology to @@.yellow;adopt Transformation Fetishism.@@
 			<<set $arcologies[$i].FSTransformationFetishist = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSTransformationFetishist > random(5,60)>>
-		<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
+		<<if _validFSes.includes("FSBodyPurist")>>
 			$desc concerned by trends in their slaves' health, leading the arcology to @@.yellow;adopt Body Purism.@@
 			<<set $arcologies[$i].FSBodyPurist = 5>><<set _adopted = 1>>
 		<</if>>
 	<</if>>
 	<<if $arcologies[0].FSYouthPreferentialist > random(5,60)>>
-		<<if ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
+		<<if _validFSes.includes("FSMaturityPreferentialist")>>
 			$desc devoted to time in bed with their MILF slaves, leading the arcology to @@.yellow;adopt Maturity Preferentialism.@@
 			<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSMaturityPreferentialist > random(5,60)>>
-		<<if ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
+		<<if _validFSes.includes("FSYouthPreferentialist")>>
 			$desc devoted to fucking nubile young slaves, leading the arcology to @@.yellow;adopt Youth Preferentialism.@@
 			<<set $arcologies[$i].FSYouthPreferentialist = 5>><<set _adopted = 1>>
 		<</if>>
 	<</if>>
 	<<if $arcologies[0].FSPetiteAdmiration > random(5,60)>>
-		<<if ($arcologies[$i].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
-			$desc convinced that tall equals beauty, leading the arcology to @@.yellow;adopt Statuesque Glorification.@@
+		<<if _validFSes.includes("FSStatuesqueGlorification")>>
+			$desc convinced that tall equals beautiful, leading the arcology to @@.yellow;adopt Statuesque Glorification.@@
 			<<set $arcologies[$i].FSStatuesqueGlorification = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSStatuesqueGlorification > random(5,60)>>
-		<<if ($arcologies[$i].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
+		<<if _validFSes.includes("FSPetiteAdmiration")>>
 			$desc enamored by those shorter than them, leading the arcology to @@.yellow;adopt Petite Admiration.@@
 			<<set $arcologies[$i].FSPetiteAdmiration = 5>><<set _adopted = 1>>
 		<</if>>
 	<</if>>
 	<<if $arcologies[0].FSSlimnessEnthusiast > random(5,60)>>
-		<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
+		<<if _validFSes.includes("FSAssetExpansionist")>>
 			$desc loves boobs, the bigger, the better, leading the arcology to @@.yellow;adopt Asset Expansionism.@@
 			<<set $arcologies[$i].FSAssetExpansionist = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSAssetExpansionist > random(5,60)>>
-		<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
+		<<if _validFSes.includes("FSSlimnessEnthusiast")>>
 			$desc loves a slim slave with tight holes, leading the arcology to @@.yellow;adopt Slimness Enthusiasm.@@
 			<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<set _adopted = 1>>
 		<</if>>
 	<</if>>
 	<<if $arcologies[0].FSPastoralist > random(5,60)>>
-		<<if ($arcologies[$i].FSPastoralist == "unset")>>
+		<<if _validFSes.includes("FSPastoralist")>>
 			$desc addicted to breast milk straight from the nipple, leading the arcology to @@.yellow;adopt Pastoralism.@@
 			<<set $arcologies[$i].FSPastoralist = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSCummunism > random(5,60)>>
-		<<if ($arcologies[$i].FSCummunism == "unset") && ($arcologies[$i].FSPastoralist == "unset")>>
+		<<if _validFSes.includes("FSCummunism")>>
 			$desc obsessed with cum, leading the arcology to @@.yellow;adopt Cummunism.@@
 			<<set $arcologies[$i].FSCummunism = 5>><<set _adopted = 1>>
 		<</if>>
 	<</if>>
 	<<if $arcologies[0].FSPhysicalIdealist > random(5,60)>>
-		<<if ($arcologies[$i].FSPhysicalIdealist == "unset") && ($arcologies[$i].FSHedonisticDecadence == "unset")>>
+		<<if _validFSes.includes("FSPhysicalIdealist")>>
 			$desc pretty devoted to spending time in the gym, leading the arcology to @@.yellow;adopt Physical Idealism.@@
 			<<set $arcologies[$i].FSPhysicalIdealist = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSHedonisticDecadence > random(5,60)>>
-		<<if ($arcologies[$i].FSPhysicalIdealist == "unset") && ($arcologies[$i].FSHedonisticDecadence == "unset")>>
+		<<if _validFSes.includes("FSHedonisticDecadence")>>
 			$desc pretty devoted to indulging their every whim, leading the arcology to @@.yellow;adopt Decadent Hedonism.@@
 			<<set $arcologies[$i].FSHedonisticDecadence = 5>><<set _adopted = 1>>
 		<</if>>
 	<</if>>
 	<<if $arcologies[0].FSRomanRevivalist > random(5,60)>>
-		<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
+		<<if _validFSes.includes("FSAztecRevivalist")>>
 			$desc fascinated by ancient Aztec history, leading the arcology to @@.yellow;adopt Aztec Revivalism.@@
 			<<set $arcologies[$i].FSAztecRevivalist = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSAztecRevivalist > random(5,60)>>
-		<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
+		<<if _validFSes.includes("FSRomanRevivalist")>>
 			$desc fascinated by classical Roman history, leading the arcology to @@.yellow;adopt Roman Revivalism.@@
 			<<set $arcologies[$i].FSRomanRevivalist = 5>><<set _adopted = 1>>
 		<</if>>
-	<<elseif $arcologies[0].FSEgyptianRevivalist > random(5,60)>>
-		<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
+	<<elseif $arcologies[0].FSEgyptianRevivalist > random(5,60) || $arcologies[0].FSNeoImperialist > random(5, 60)>>
+		<<if _validFSes.includes("FSArabianRevivalist")>>
 			$desc fascinated by Arabian romanticism, leading the arcology to @@.yellow;adopt Arabian Revivalism.@@
 			<<set $arcologies[$i].FSArabianRevivalist = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSEdoRevivalist > random(5,60)>>
-		<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
+		<<if _validFSes.includes("FSChineseRevivalist")>>
 			$desc fascinated by the long tale of Chinese history, leading the arcology to @@.yellow;adopt Chinese Revivalism.@@
 			<<set $arcologies[$i].FSChineseRevivalist = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSArabianRevivalist > random(5,60)>>
-		<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
+		<<if _validFSes.includes("FSEgyptianRevivalist")>>
 			$desc fascinated by ancient Egyptian history, leading the arcology to @@.yellow;adopt Egyptian Revivalism.@@
 			<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set _adopted = 1>>
 		<</if>>
 	<<elseif $arcologies[0].FSChineseRevivalist > random(5,60)>>
-		<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
+		<<if _validFSes.includes("FSEdoRevivalist")>>
 			$desc fascinated by Japanese history, leading the arcology to @@.yellow;adopt Edo Revivalism.@@
 			<<set $arcologies[$i].FSEdoRevivalist = 5>><<set _adopted = 1>>
 		<</if>>
@@ -364,191 +362,134 @@ societal development.
 <<set _leader = App.currentAgent($i)>>
 <<setLocalPronouns _leader>>
 
-<<if ($arcologies[$i].FSRepopulationFocus == "unset")>>
-	<<if ($arcologies[$i].FSRestart == "unset")>>
-		<<if _leader.fetish == "pregnancy" && $seePreg == 1>>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Repopulationism,@@ since as a pregnancy fetishist, $he can't wait to see the female population's bellies swell with life.
-			<<set $arcologies[$i].FSRepopulationFocus = 5>><<break>>
-		<<elseif (_leader.preg < -1 || (_leader.ovaries == 0 && _leader.mpreg != 1)) && _leader.genes == "XX">>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Eugenics,@@ since if no-one can get pregnant, $he won't be alone.
-			<<set $arcologies[$i].FSRestart = 5>><<break>>
-		<</if>>
-	<</if>>
-<</if>>
-<<if ($arcologies[$i].FSGenderRadicalist == "unset")>>
-	<<if ($arcologies[$i].FSGenderFundamentalist == "unset")>>
-		<<if _leader.dick > 0>>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Gender Radicalism,@@ since $he's a walking, swinging argument for dickgirls.
-			<<set $arcologies[$i].FSGenderRadicalist = 5>><<break>>
-		<<elseif _leader.pregKnown == 1 || _leader.bellyPreg > 1500>>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Gender Fundamentalism,@@ since its citizens find leadership by a pregnant $woman fascinating.
-			<<set $arcologies[$i].FSGenderFundamentalist = 5>><<break>>
-		<</if>>
-	<</if>>
-<</if>>
-<<if ($arcologies[$i].FSPaternalist == "unset")>>
-	<<if ($arcologies[$i].FSDegradationist == "unset")>>
-		<<if _leader.behavioralQuirk == "advocate">>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Paternalism,@@ since as an advocate for slavery, $he believes in its benefits.
-			<<set $arcologies[$i].FSPaternalist = 5>><<break>>
-		<<elseif _leader.fetish == "sadist">>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Degradationism,@@ since as a sexual sadist, $he's excited by the idea of leading a society that applauds $his cruelest impulses.
-			<<set $arcologies[$i].FSDegradationist = 5>><<break>>
-		<</if>>
-	<</if>>
-<</if>>
-<<if ($arcologies[$i].FSIntellectualDependency == "unset")>>
-	<<if ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
-		<<if (_leader.intelligence+_leader.intelligenceImplant >= 120) && (_leader.skill.vagina+_leader.skill.oral+_leader.skill.anal+_leader.skill.whoring+_leader.skill.entertainment >= 400)>>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Slave Professionalism,@@ since $he wishes to produce slaves you can be proud of.
-			<<set $arcologies[$i].FSSlaveProfessionalism = 5>><<break>>
-		<<elseif (_leader.intelligence+_leader.intelligenceImplant >= 120) && (_leader.behavioralFlaw == "arrogant" || _leader.behavioralQuirk == "insecure")>>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Intellectual Dependency,@@ <<if _leader.behavioralQuirk == "insecure">>
-				since, due to $his own insecurities, needs to be frequently reassured that $he is smarter than the masses.
-			<<else>>
-				since $he absolutely needs to feel intellectually superior to $his chattel.
-			<</if>>
-			<<set $arcologies[$i].FSIntellectualDependency = 5>><<break>>
-		<</if>>
-	<</if>>
-<</if>>
-<<if ($arcologies[$i].FSBodyPurist == "unset")>>
-	<<if ($arcologies[$i].FSTransformationFetishist == "unset")>>
-		<<if _leader.chem > 50>>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Body Purism,@@ since $he knows what long term drug damage feels like, and doesn't want any slave to ever experience it again.
-			<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
-		<<elseif _leader.boobsImplant > 1000>>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Transformation Fetishism,@@ out of a perverse desire to subject all slaves to massive implants like $hers.
-			<<set $arcologies[$i].FSTransformationFetishist = 5>><<break>>
-		<</if>>
-	<</if>>
-<</if>>
-<<if ($arcologies[$i].FSYouthPreferentialist == "unset")>>
-	<<if ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
-		<<if _leader.actualAge <= 25>>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Youth Preferentialism,@@ to buttress acceptance of $his own young age.
-			<<set $arcologies[$i].FSYouthPreferentialist = 5>><<break>>
-		<<elseif _leader.actualAge > 35>>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Maturity Preferentialism,@@ since $he has a certain personal interest in promoting the idea that MILFs are sexy.
-			<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<break>>
-		<</if>>
-	<</if>>
-<</if>>
-<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
-	<<if ($arcologies[$i].FSAssetExpansionist == "unset")>>
-		<<if _leader.behavioralQuirk == "insecure">>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Slimness Enthusiasm,@@ since $his history of anorexia has deeply impacted $his idea of beauty.
-			<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<break>>
-		<<elseif _leader.fetish == "boobs">>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Asset Expansionism,@@ since $he's a breast expansion fetishist in addition to being a mere breast fetishist.
-			<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
-		<<elseif _leader.sexualQuirk == "size queen" && _leader.vagina > 3>>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Asset Expansionism,@@ since $he's a stickler for big dicks and seeks to find one large enough to push $him to $his very limit.
-			<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
-		<</if>>
-	<</if>>
-<</if>>
-<<if ($arcologies[$i].FSPastoralist == "unset")>>
-	<<if ($arcologies[$i].FSCummunism == "unset")>>
-		<<if _leader.fetish == "cumslut">> /* this will become the cum focused condition, being replaced with breast focus for milk */
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Cummunism,@@ since $he already loves sucking down huge loads of cum.
-			<<set $arcologies[$i].FSCummunism = 5>><<break>>
-		<<elseif _leader.fetish == "boobs">>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Pastoralism,@@ since $he loves boobs and adores suckling them.
-			<<set $arcologies[$i].FSPastoralist = 5>><<break>>
-		<</if>>
-	<</if>>
-<</if>>
-<<if ($arcologies[$i].FSHedonisticDecadence == "unset")>>
-	<<if ($arcologies[$i].FSPhysicalIdealist == "unset")>>
-		<<if _leader.behavioralFlaw == "gluttonous">>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Decadent Hedonism,@@ since $he already loves over-eating.
-			<<set $arcologies[$i].FSHedonisticDecadence = 5>><<break>>
-		<<elseif _leader.behavioralQuirk == "fitness">>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Physical Idealism,@@ since $he's a fitness fanatic $himself.
-			<<set $arcologies[$i].FSPhysicalIdealist = 5>><<break>>
-		<<elseif _leader.fetish != "none" && _leader.fetishStrength >= 100>>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Decadent Hedonism,@@ since $he seeks to satisfy $his powerful fetish.
-			<<set $arcologies[$i].FSHedonisticDecadence = 5>><<break>>
-		<</if>>
-	<</if>>
-<</if>>
-<<if ($arcologies[$i].FSPetiteAdmiration == "unset")>>
-	<<if ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
-		<<if _leader.height >= 200>>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Statuesque Glorification,@@ since $he is tired of being one of the tallest in arcology.
-			<<set $arcologies[$i].FSStatuesqueGlorification = 5>><<break>>
-		<<elseif _leader.height >= 170 && _leader.fetish == "dom">>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Petite Admiration,@@ since it is far easier to dominate someone much smaller than oneself.
-			<<set $arcologies[$i].FSPetiteAdmiration = 5>><<break>>
-		<</if>>
-	<</if>>
-<</if>>
-<<if ($arcologies[$i].FSIncestFetishist == "unset")>>
+<<if validAdoptions.includes("FSRepopulationFocus") && _leader.fetish == "pregnancy" && $seePreg == 1>>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Repopulationism,@@ since as a pregnancy fetishist, $he can't wait to see the female population's bellies swell with life.
+	<<set $arcologies[$i].FSRepopulationFocus = 5>><<break>>
+<<elseif validAdoptions.includes("FSRestart") && (_leader.preg < -1 || (_leader.ovaries == 0 && _leader.mpreg != 1)) && _leader.genes == "XX">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Eugenics,@@ since if no-one can get pregnant, $he won't be alone.
+	<<set $arcologies[$i].FSRestart = 5>><<break>>
+<</if>>
+<<if _validFSes.includes("FSGenderRadicalist") && _leader.dick > 0>>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Gender Radicalism,@@ since $he's a walking, swinging argument for dickgirls.
+	<<set $arcologies[$i].FSGenderRadicalist = 5>><<break>>
+<<elseif _validFSes.includes("FSGenderFundamentalist") &&_leader.pregKnown == 1 || _leader.bellyPreg > 1500>>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Gender Fundamentalism,@@ since its citizens find leadership by a pregnant $woman fascinating.
+	<<set $arcologies[$i].FSGenderFundamentalist = 5>><<break>>
+<</if>>
+<<if _validFSes.includes("FSPaternalist") && _leader.behavioralQuirk == "advocate">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Paternalism,@@ since as an advocate for slavery, $he believes in its benefits.
+	<<set $arcologies[$i].FSPaternalist = 5>><<break>>
+<<elseif _validFSes.includes("FSDegradationist") && _leader.fetish == "sadist">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Degradationism,@@ since as a sexual sadist, $he's excited by the idea of leading a society that applauds $his cruelest impulses.
+	<<set $arcologies[$i].FSDegradationist = 5>><<break>>
+<</if>>
+<<if _validFSes.includes("FSSlaveProfessionalism") && (_leader.intelligence+_leader.intelligenceImplant >= 120) && (_leader.skill.vagina+_leader.skill.oral+_leader.skill.anal+_leader.skill.whoring+_leader.skill.entertainment >= 400)>>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Slave Professionalism,@@ since $he wishes to produce slaves you can be proud of.
+	<<set $arcologies[$i].FSSlaveProfessionalism = 5>><<break>>
+<<elseif _validFSes.includes("FSIntellectualDependency") && (_leader.intelligence+_leader.intelligenceImplant >= 120) && (_leader.behavioralFlaw == "arrogant" || _leader.behavioralQuirk == "insecure")>>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Intellectual Dependency,@@
+	<<if _leader.behavioralQuirk == "insecure">>
+		since, due to $his own insecurities, needs to be frequently reassured that $he is smarter than the masses.
+	<<else>>
+		since $he absolutely needs to feel intellectually superior to $his chattel.
+	<</if>>
+	<<set $arcologies[$i].FSIntellectualDependency = 5>><<break>>
+<</if>>
+<<if _validFSes.includes("FSBodyPurist") && _leader.chem > 50>>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Body Purism,@@ since $he knows what long term drug damage feels like, and doesn't want any slave to ever experience it again.
+	<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
+<<elseif _validFSes.includes("FSTransformationFetishist") && _leader.boobsImplant > 1000>>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Transformation Fetishism,@@ out of a perverse desire to subject all slaves to massive implants like $hers.
+	<<set $arcologies[$i].FSTransformationFetishist = 5>><<break>>
+<</if>>
+<<if _validFSes.includes("FSYouthPreferentialist") && _leader.actualAge <= 25>>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Youth Preferentialism,@@ to buttress acceptance of $his own young age.
+	<<set $arcologies[$i].FSYouthPreferentialist = 5>><<break>>
+<<elseif _validFSes.includes("FSMaturityPreferentialist") && _leader.actualAge > 35>>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Maturity Preferentialism,@@ since $he has a certain personal interest in promoting the idea that MILFs are sexy.
+	<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<break>>
+<</if>>
+<<if _validFSes.includes("FSSlimnessEnthusiast") && _leader.behavioralQuirk == "insecure">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Slimness Enthusiasm,@@ since $his history of anorexia has deeply impacted $his idea of beauty.
+	<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<break>>
+<<elseif _validFSes.includes("FSAssetExpansionist") && _leader.fetish == "boobs">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Asset Expansionism,@@ since $he's a breast expansion fetishist in addition to being a mere breast fetishist.
+	<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
+<<elseif _validFSes.includes("FSAssetExpansionist") && _leader.sexualQuirk == "size queen" && _leader.vagina > 3>>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Asset Expansionism,@@ since $he's a stickler for big dicks and seeks to find one large enough to push $him to $his very limit.
+	<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
+<</if>>
+<<if _validFSes.includes("FSCummunism") && _leader.fetish == "cumslut">> /* this will become the cum focused condition, being replaced with breast focus for milk */
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Cummunism,@@ since $he already loves sucking down huge loads of cum.
+	<<set $arcologies[$i].FSCummunism = 5>><<break>>
+<<elseif _validFSes.includes("FSPastoralist") && _leader.fetish == "boobs">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Pastoralism,@@ since $he loves boobs and adores suckling them.
+	<<set $arcologies[$i].FSPastoralist = 5>><<break>>
+<</if>>
+<<if _validFSes.includes("FSHedonisticDecadence") && _leader.behavioralFlaw == "gluttonous">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Decadent Hedonism,@@ since $he already loves over-eating.
+	<<set $arcologies[$i].FSHedonisticDecadence = 5>><<break>>
+<<elseif _validFSes.includes("FSPhysicalIdealist") && _leader.behavioralQuirk == "fitness">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Physical Idealism,@@ since $he's a fitness fanatic $himself.
+	<<set $arcologies[$i].FSPhysicalIdealist = 5>><<break>>
+<<elseif _validFSes.includes("FSHedonisticDecadence") && _leader.fetish != "none" && _leader.fetishStrength >= 100>>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Decadent Hedonism,@@ since $he seeks to satisfy $his powerful fetish.
+	<<set $arcologies[$i].FSHedonisticDecadence = 5>><<break>>
+<</if>>
+<<if _validFSes.includes("FSStatuesqueGlorification") && _leader.height >= 200>>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Statuesque Glorification,@@ since $he is tired of being one of the tallest in arcology.
+	<<set $arcologies[$i].FSStatuesqueGlorification = 5>><<break>>
+<<elseif _validFSes.includes("FSPetiteAdmiration") && _leader.height >= 170 && _leader.fetish == "dom">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Petite Admiration,@@ since it is far easier to dominate someone much smaller than oneself.
+	<<set $arcologies[$i].FSPetiteAdmiration = 5>><<break>>
+<</if>>
+<<if _validFSes.includes("FSIncestFetishist")>>
 	<<set _lover = $slaves.find(function(s) { return s.ID == _leader.relationshipTarget && areRelated(s, _leader) && s.assignment == "live with your agent"; })>>
 	<<if (_leader.behavioralQuirk == "sinful" || _leader.sexualQuirk == "perverted") && def _lover && $seeIncest == 1>>
 		Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Incest Festishism,@@ to share the love and joy $he holds with $his <<print relativeTerm(_leader, _lover)>>.
 		<<set $arcologies[$i].FSIncestFetishist = 5>><<break>>
 	<</if>>
 <</if>>
-<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
-	<<if ($arcologies[$i].FSNull == "unset")>>
-		<<if _leader.behavioralQuirk == "devout">>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Chattel Religionism,@@ to share and spread $his deeply held beliefs about the holiness of sexual service.
-			<<set $arcologies[$i].FSChattelReligionist = 5>><<break>>
-		<<elseif _leader.behavioralQuirk == "sinful">>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Chattel Religionism,@@ since $he's excited by the prospect of getting away with horrible sins against old religions in public.
-			<<set $arcologies[$i].FSChattelReligionist = 5>><<break>>
-		<</if>>
-	<</if>>
+<<if _validFSes.includes("FSChattelReligionist") && _leader.behavioralQuirk == "devout">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Chattel Religionism,@@ to share and spread $his deeply held beliefs about the holiness of sexual service.
+	<<set $arcologies[$i].FSChattelReligionist = 5>><<break>>
+<<elseif _validFSes.includes("FSChattelReligionist") && _leader.behavioralQuirk == "sinful">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Chattel Religionism,@@ since $he's excited by the prospect of getting away with horrible sins against old religions in public.
+	<<set $arcologies[$i].FSChattelReligionist = 5>><<break>>
 <</if>>
-<<if ($arcologies[$i].FSRomanRevivalist == "unset")>>
-<<if ($arcologies[$i].FSAztecRevivalist == "unset")>>
-<<if ($arcologies[$i].FSEgyptianRevivalist == "unset")>>
-<<if ($arcologies[$i].FSEdoRevivalist == "unset")>>
-<<if ($arcologies[$i].FSArabianRevivalist == "unset")>>
-<<if ($arcologies[$i].FSChineseRevivalist == "unset")>>
-<<if ($arcologies[$i].FSNeoImperialist == "unset")>>
-	<<if (_leader.relationshipTarget != 0)>>
-		<<set _lover = getSlave(_leader.relationshipTarget)>>
-		<<if (def _lover) && areRelated(_leader, _lover)>>
-			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Egyptian Revivalism,@@ since $he's already part of a gloriously incestuous relationship.
-			<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<break>>
-		<</if>>
-	<<elseif _leader.nationality == "Chinese">>
-		Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Chinese Revivalism,@@ since $he's Chinese $himself and can claim high honor in such a society.
-		<<set $arcologies[$i].FSChineseRevivalist = 5>><<break>>
-	<<elseif _leader.nationality == "Japanese">>
-		Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Edo Revivalism,@@ since $he's Japanese $himself and can claim high honor in such a society.
-		<<set $arcologies[$i].FSEdoRevivalist = 5>><<break>>
-	<<elseif _leader.nationality == "Mexican">>
-		Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Aztec Revivalism,@@ since $he's Mexican $himself and can claim high honor in such a society.
-		<<set $arcologies[$i].FSAztecRevivalist = 5>><<break>>
-	<<elseif _leader.nationality == "German">>
-		Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Neo-Imperialism,@@ since $he's German $himself and can easily cement $his rule with Imperial directives in your name.
-		<<set $arcologies[$i].FSNeoImperialist = 5>><<break>>
-	<<elseif _leader.nationality == "French">>
-		Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Neo-Imperialism,@@ since $he's French $himself and can easily cement $his rule with Imperial directives in your name.
-		<<set $arcologies[$i].FSNeoImperialist = 5>><<break>>
-	<<elseif _leader.nationality == "Spanish">>
-		Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Neo-Imperialism,@@ since $he's Spanish $himself and can easily cement $his rule with Imperial directives in your name.
-		<<set $arcologies[$i].FSNeoImperialist = 5>><<break>>
-	<<elseif _leader.nationality == "English">>
-		Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Neo-Imperialism,@@ since $he's English $himself and can easily cement $his rule with Imperial directives in your name.
-		<<set $arcologies[$i].FSNeoImperialist = 5>><<break>>
-	<<elseif _leader.behavioralQuirk == "confident">>
-		Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Roman Revivalism,@@ since it appeals to $his confident, patrician nature.
-		<<set $arcologies[$i].FSRomanRevivalist = 5>><<break>>
-	<<elseif _leader.fetish == "dom">>
-		Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Arabian Revivalism,@@ since $he's sexually dominant and quite likes the idea of overseeing slave bazaars.
-		<<set $arcologies[$i].FSArabianRevivalist = 5>><<break>>
+<<if (_validFSes.includes("FSEgyptianRevivalist") && _leader.relationshipTarget != 0)>>
+	<<set _lover = getSlave(_leader.relationshipTarget)>>
+	<<if (def _lover) && areRelated(_leader, _lover)>>
+		Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Egyptian Revivalism,@@ since $he's already part of a gloriously incestuous relationship.
+		<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<break>>
 	<</if>>
-<</if>>
-<</if>>
-<</if>>
-<</if>>
-<</if>>
-<</if>>
+<<elseif _validFSes.includes("FSChineseRevivalist") && _leader.nationality == "Chinese">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Chinese Revivalism,@@ since $he's Chinese $himself and can claim high honor in such a society.
+	<<set $arcologies[$i].FSChineseRevivalist = 5>><<break>>
+<<elseif _validFSes.includes("FSEdoRevivalist") && _leader.nationality == "Japanese">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Edo Revivalism,@@ since $he's Japanese $himself and can claim high honor in such a society.
+	<<set $arcologies[$i].FSEdoRevivalist = 5>><<break>>
+<<elseif _validFSes.includes("FSAztecRevivalist") && _leader.nationality == "Mexican">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Aztec Revivalism,@@ since $he's Mexican $himself and can claim high honor in such a society.
+	<<set $arcologies[$i].FSAztecRevivalist = 5>><<break>>
+<<elseif _validFSes.includes("FSNeoImperialist") && _leader.nationality == "German">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Neo-Imperialism,@@ since $he's German $himself and can easily cement $his rule with Imperial directives in your name.
+	<<set $arcologies[$i].FSNeoImperialist = 5>><<break>>
+<<elseif _validFSes.includes("FSNeoImperialist") && _leader.nationality == "French">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Neo-Imperialism,@@ since $he's French $himself and can easily cement $his rule with Imperial directives in your name.
+	<<set $arcologies[$i].FSNeoImperialist = 5>><<break>>
+<<elseif _validFSes.includes("FSNeoImperialist") && _leader.nationality == "Spanish">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Neo-Imperialism,@@ since $he's Spanish $himself and can easily cement $his rule with Imperial directives in your name.
+	<<set $arcologies[$i].FSNeoImperialist = 5>><<break>>
+<<elseif _validFSes.includes("FSNeoImperialist") && _leader.nationality == "English">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Neo-Imperialism,@@ since $he's English $himself and can easily cement $his rule with Imperial directives in your name.
+	<<set $arcologies[$i].FSNeoImperialist = 5>><<break>>
+<<elseif _validFSes.includes("FSRomanRevivalist") && _leader.behavioralQuirk == "confident">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Roman Revivalism,@@ since it appeals to $his confident, patrician nature.
+	<<set $arcologies[$i].FSRomanRevivalist = 5>><<break>>
+<<elseif _validFSes.includes("FSArabianRevivalist") && _leader.fetish == "dom">>
+	Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Arabian Revivalism,@@ since $he's sexually dominant and quite likes the idea of overseeing slave bazaars.
+	<<set $arcologies[$i].FSArabianRevivalist = 5>><<break>>
 <</if>>
 
 <<set _adopted = 0>> /* did not break out of the for loop, so no FS was adopted */
@@ -562,10 +503,10 @@ societal development.
 <<set _adopted = 1>> /* breaking out of the for loop will preserve this */
 
 <<if $arcologies[$i].FSSubjugationist > random(50,200)>>
-	<<if ($arcologies[$i].FSDegradationist == "unset") && ($arcologies[$i].FSPaternalist == "unset")>>
+	<<if _validFSes.includes("FSDegradationist")>>
 		The arcology's racial Subjugationist culture @@.yellow;pushes it towards Degradationism.@@
 		<<set $arcologies[$i].FSDegradationist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
+	<<elseif (_validFSes.includes("FSAztecRevivalist") && _validFSes.includes("FSEgyptianRevivalist"))>>
 		<<if random(0,1) == 0>>
 			The arcology's racial Subjugationist culture @@.yellow;pushes it towards Egyptian Revivalism,@@ since the Ancient Egyptians are famous for keeping a race of slaves.
 			<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<break>>
@@ -576,16 +517,16 @@ societal development.
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSRestart > random(50,200)>>
-	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
+	<<if _validFSes.includes("FSNeoImperialist")>>
 			The arcology's elitist, eugenicist culture @@.yellow;pushes it towards Neo-Imperialism,@@ since the societal elite view themselves as the only appropriate rulers of their society.
 			<<set $arcologies[$i].FSNeoImperialist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSSupremacist > random(50,200)>>
-	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
+	<<if _validFSes.includes("FSPaternalist")>>
 		The arcology's racial Supremacist culture @@.yellow;pushes it towards Paternalism.@@
 		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset") && ($arcologies[$i].FSSupremacistRace == "asian")>>
+	<<elseif (_validFSes.includes("FSEdoRevivalist") && _validFSes.includes("FSChineseRevivalist") && ($arcologies[$i].FSSupremacistRace == "asian")>>
 		<<if random(0,1) == 0>>
 			The arcology's racial Supremacist culture @@.yellow;pushes it towards Edo Revivalism,@@ since the beauty and grace of the Japanese people are watchwords there.
 			<<set $arcologies[$i].FSEdoRevivalist = 5>><<break>>
@@ -596,170 +537,170 @@ societal development.
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSRepopulationFocus > random(50,200)>>
-	<<if ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
+	<<if _validFSes.includes("FSAssetExpansionist")>>
 		The arcology's Repopulationist culture @@.yellow;pushes it towards Asset Expansionism,@@ since big pregnant bellies go great with huge tits and asses.
 		<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSGenderFundamentalist == "unset") && ($arcologies[$i].FSGenderRadicalist == "unset")>>
+	<<elseif _validFSes.includes("FSGenderFundamentalist")>>
 		The arcology's Repopulationist culture @@.yellow;pushes it towards Gender Fundamentalism,@@ since traditional women make better mothers.
 		<<set $arcologies[$i].FSGenderFundamentalist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
+	<<elseif _validFSes.includes("FSPetiteAdmiration")>>
 		The arcology's Repopulationist culture @@.yellow;pushes it towards Petite Admiration,@@ since shorter women tend to have an easier time with childbirth.
 		<<set $arcologies[$i].FSPetiteAdmiration = 5>><<break>>
 	<</if>>
 <<elseif $arcologies[$i].FSRestart > random(50,200)>>
-	<<if ($arcologies[$i].FSDegradationist == "unset") && ($arcologies[$i].FSPaternalist == "unset")>>
+	<<if _validFSes.includes("FSDegradationist")>>
 		The arcology's elite focused culture @@.yellow;pushes it towards Degradationism,@@ since its lowest class deserves nothing but misery.
 		<<set $arcologies[$i].FSDegradationist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSSlaveProfessionalism == "unset") && ($arcologies[$i].FSIntellectualDependency == "unset")>>
+	<<elseif _validFSes.includes("FSSlaveProfessionalism")>>
 		The arcology's elite focused culture @@.yellow;pushes it towards Slave Professionalism,@@ since the highest class deserve nothing less than the best slaves.
 		<<set $arcologies[$i].FSSlaveProfessionalism = 5>><<break>>
-	<<elseif ($arcologies[$i].FSHedonisticDecadence == "unset") && ($arcologies[$i].FSPhysicalIdealist == "unset")>>
+	<<elseif _validFSes.includes("FSHedonisticDecadence")>>
 		The arcology's wide range of imports @@.yellow;pushes it towards Decadent Hedonism,@@ since it has access to so many undiscovered pleasures.
 		<<set $arcologies[$i].FSHedonisticDecadence = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSGenderRadicalist > random(50,200)>>
-	<<if ($arcologies[$i].FSTransformationFetishist == "unset") && ($arcologies[$i].FSBodyPurist == "unset")>>
+	<<if _validFSes.includes("FSTransformationFetishist")>>
 		The arcology's Gender Radicalist culture @@.yellow;pushes it towards Transformation Fetishism,@@ since surgery can turn a slave into anything.
 		<<set $arcologies[$i].FSTransformationFetishist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
+	<<elseif _validFSes.includes("FSSlimnessEnthusiast")>>
 		The arcology's Gender Radicalist culture @@.yellow;pushes it towards Slimness Enthusiasm,@@ since that's the kind of body many of its slaves have.
 		<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<break>>
-	<<elseif ($arcologies[$i].FSPastoralist == "unset") && ($arcologies[$i].FSCummunism == "unset")>>
+	<<elseif _validFSes.includes("FSCummunism")>>
 		The arcology's Gender Radicalist culture @@.yellow;pushes it towards Cummunism,@@ since many of its slaves are capable of giving cum.
 		<<set $arcologies[$i].FSCummunism = 5>><<break>>
 	<</if>>
 <<elseif $arcologies[$i].FSGenderFundamentalist > random(50,200)>>
-	<<if ($arcologies[$i].FSPastoralist == "unset") && ($arcologies[$i].FSCummunism == "unset")>>
+	<<if _validFSes.includes("FSPastoralist")>>
 		The arcology's Gender Fundamentalist culture @@.yellow;pushes it towards Pastoralism,@@ since its pregnant slaves are already giving milk.
 		<<set $arcologies[$i].FSPastoralist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
+	<<elseif _validFSes.includes("FSIntellectualDependency")>>
 		The arcology's Gender Fundamentalist culture @@.yellow;pushes it towards Intellectual Dependency,@@ since women don't need to think to serve men.
 		<<set $arcologies[$i].FSYouthPreferentialist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
+	<<elseif _validFSes.includes("FSYouthPreferentialist")>>
 		The arcology's Gender Fundamentalist culture @@.yellow;pushes it towards Youth Preferentialism,@@ since younger slaves are beautiful and fertile.
 		<<set $arcologies[$i].FSYouthPreferentialist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSPaternalist > random(50,200)>>
-	<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
+	<<if _validFSes.includes("FSChattelReligionist")>>
 		The arcology's Paternalist culture @@.yellow;pushes it towards Chattel Religionism,@@ since many of its slaves are already worshipful.
 		<<set $arcologies[$i].FSChattelReligionist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
+	<<elseif _validFSes.includes("FSBodyPurist")>>
 		The arcology's Paternalist culture @@.yellow;pushes it towards Body Purism,@@ since giving slaves dangerous drugs is hardly good for them.
 		<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
+	<<elseif _validFSes.includes("FSRomanRevivalist")>>
 		The arcology's Paternalist culture @@.yellow;pushes it towards Roman Revivalism,@@ since loyal service to the res publica bears similarity to their existing mores.
 		<<set $arcologies[$i].FSRomanRevivalist = 5>><<break>>
 	<</if>>
 <<elseif $arcologies[$i].FSDegradationist > random(50,200)>>
-	<<if ($arcologies[$i].FSTransformationFetishist == "unset") && ($arcologies[$i].FSBodyPurist == "unset")>>
+	<<if _validFSes.includes("FSTransformationFetishist")>>
 		The arcology's Degradationist culture @@.yellow;pushes it towards Transformation Fetishism,@@ the ultimate expression of power over slave bodies.
 		<<set $arcologies[$i].FSTransformationFetishist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSGenderRadicalist == "unset") && ($arcologies[$i].FSGenderFundamentalist == "unset")>>
+	<<elseif _validFSes.includes("FSGenderRadicalist")>>
 		The arcology's Degradationist culture @@.yellow;pushes it towards Gender Radicalism,@@ since the joy of forcing a gender role on a slave is already popular.
 		<<set $arcologies[$i].FSGenderRadicalist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSIntellectualDependency > random(50,200)>>
-	<<if ($arcologies[$i].FSTransformationFetishist == "unset") && ($arcologies[$i].FSBodyPurist == "unset")>>
+	<<if _validFSes.includes("FSTransformationFetishist")>>
 		The arcology's Intellectual Dependency culture @@.yellow;pushes it towards Transformation Fetishism,@@ to give its bimbos a body most fitting.
 		<<set $arcologies[$i].FSTransformationFetishist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
+	<<elseif _validFSes.includes("FSYouthPreferentialist")>>
 		The arcology's Intellectual Dependency culture @@.yellow;pushes it towards Youth Preferentialism,@@ since the young have more energy to party.
 		<<set $arcologies[$i].FSYouthPreferentialist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSHedonisticDecadence == "unset") && ($arcologies[$i].FSPhysicalIdealist == "unset")>>
+	<<elseif _validFSes.includes("FSHedonisticDecadence")>>
 		The arcology's Intellectual Dependency culture @@.yellow;pushes it towards Decadent Hedonism,@@ since base instinct already rules slaves' lives.
 		<<set $arcologies[$i].FSHedonisticDecadence = 5>><<break>>
-	<<elseif ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset")>>
+	<<elseif _validFSes.includes("FSRepopulationFocus")>>
 		The arcology's Intellectual Dependency culture @@.yellow;pushes it towards Repopulationism,@@ since there has been an epidemic of unplanned pregnancies among the slave population.
 		<<set $arcologies[$i].FSRepopulationFocus = 5>><<break>>
 	<</if>>
 <<elseif $arcologies[$i].FSSlaveProfessionalism > random(50,200)>>
-	<<if ($arcologies[$i].FSMaturityPreferentialist == "unset") && ($arcologies[$i].FSYouthPreferentialist == "unset")>>
+	<<if _validFSes.includes("FSMaturityPreferentialist")>>
 		The arcology's Slave Professionalism culture @@.yellow;pushes it towards Maturity Preferentialist,@@ since with age comes experience.
 		<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
+	<<elseif _validFSes.includes("FSPaternalist")>>
 		The arcology's Slave Professionalism culture @@.yellow;pushes it towards Paternalism,@@ since happy slaves are much more willing to be molded in to shape.
 		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSPhysicalIdealist == "unset") && ($arcologies[$i].FSHedonisticDecadence == "unset")>>
+	<<elseif _validFSes.includes("FSPhysicalIdealist")>>
 		The arcology's Slave Professionalism culture @@.yellow;pushes it towards Physical Idealism,@@ since a fitting body is required to house the perfect mind.
 		<<set $arcologies[$i].FSPhysicalIdealist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSChattelReligionist == "unset")>>
+	<<elseif _validFSes.includes("FSChattelReligionist")>>
 		The arcology's Slave Professionalism culture @@.yellow;pushes it towards Chattel Religionism,@@ since skilled service is already a part of a slave's daily life.
 		<<set $arcologies[$i].FSChattelReligionist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSBodyPurist > random(50,200)>>
-	<<if ($arcologies[$i].FSPhysicalIdealist == "unset") && ($arcologies[$i].FSHedonisticDecadence == "unset")>>
+	<<if _validFSes.includes("FSPhysicalIdealist")>>
 		The arcology's Body Purist culture @@.yellow;pushes it towards Physical Idealism,@@ since it already takes an intense interest in bodily perfection.
 		<<set $arcologies[$i].FSPhysicalIdealist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
+	<<elseif _validFSes.includes("FSPaternalist")>>
 		The arcology's Body Purist culture @@.yellow;pushes it towards Paternalism,@@ since it's become obvious that happiness is a necessary part of wellness.
 		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
 	<</if>>
 <<elseif $arcologies[$i].FSTransformationFetishist > random(50,200)>>
-	<<if ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
+	<<if _validFSes.includes("FSAssetExpansionist")>>
 		The arcology's Transformation Fetishist culture @@.yellow;pushes it towards Asset Expansionism,@@ since it's already overrun with massive tits and asses.
 		<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSDegradationist == "unset") && ($arcologies[$i].FSPaternalist == "unset")>>
+	<<elseif _validFSes.includes("FSDegradationist")>>
 		The arcology's Transformation Fetishist culture @@.yellow;pushes it towards Degradationism,@@ since it's already used to slaves whining about their latest surgeries.
 		<<set $arcologies[$i].FSDegradationist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSYouthPreferentialist > random(50,200)>>
-	<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
+	<<if _validFSes.includes("FSSlimnessEnthusiast")>>
 		The arcology's Youth Preferentialist culture @@.yellow;pushes it towards Slimness Enthusiasm,@@ since that's the kind of body many of its slaves have.
 		<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<break>>
-	<<elseif ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset")>>
+	<<elseif _validFSes.includes("FSRepopulationFocus")>>
 		The arcology's Youth Preferentialist culture @@.yellow;pushes it towards Repopulationism,@@ since many of its slaves are deliciously ripe for breeding.
 		<<set $arcologies[$i].FSRepopulationFocus = 5>><<break>>
 	<</if>>
 <<elseif $arcologies[$i].FSMaturityPreferentialist > random(50,200)>>
-	<<if ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
+	<<if _validFSes.includes("FSAssetExpansionist")>>
 		The arcology's Maturity Preferentialist culture @@.yellow;pushes it towards Asset Expansionism,@@ since that's the kind of body many of its slaves have.
 		<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
+	<<elseif _validFSes.includes("FSPaternalist")>>
 		The arcology's Maturity Preferentialist culture @@.yellow;pushes it towards Paternalism,@@ since its many older slaves have skills best applied by a happy $woman.
 		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSPetiteAdmiration > random(50,200)>>
-	<<if ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
+	<<if _validFSes.includes("FSAssetExpansionist")>>
 		The arcology's Petite Admiration culture @@.yellow;pushes it towards Asset Expansionist,@@ since a $girl with tits wider than $he is tall attracts quite some attention.
 		<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
+	<<elseif _validFSes.includes("FSPaternalist")>>
 		The arcology's Petite Admiration culture @@.yellow;pushes it towards Paternalism,@@ since such tiny <<= $girl>>s need extra special attention.
 		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
-	<<elseif $arcologies[$i].FSIncestFetishist == "unset" && $seeIncest == 1>>
+	<<elseif _validFSes.includes("FSIncestFetishist")>>
 		The arcology's Petite Admiration culture @@.yellow;pushes it towards Incest Fetishism,@@ since age play often goes hand-in-hand with size play.
 		<<set $arcologies[$i].FSIncestFetishist = 5>><<break>>
 	<</if>>
 <<elseif $arcologies[$i].FSStatuesqueGlorification > random(50,200)>>
-	<<if ($arcologies[$i].FSPhysicalIdealist == "unset") && ($arcologies[$i].FSHedonisticDecadence == "unset")>>
+	<<if _validFSes.includes("FSPhysicalIdealist")>>
 		The arcology's Statuesque Glorification culture @@.yellow;pushes it towards Physical Idealism,@@ since being ripped complements being tall.
 		<<set $arcologies[$i].FSPhysicalIdealist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
+	<<elseif _validFSes.includes("FSDegradationist")>>
 		The arcology's Statuesque Glorification culture @@.yellow;pushes it towards Degradationism,@@ since those that don't measure up deserve only suffering.
 		<<set $arcologies[$i].FSDegradationist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSSlimnessEnthusiast > random(50,200)>>
-	<<if ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
+	<<if _validFSes.includes("FSYouthPreferentialist")>>
 		The arcology's Slimness Enthusiast culture @@.yellow;pushes it towards Youth Preferentialism,@@ since younger slaves are often attractively slim.
 		<<set $arcologies[$i].FSYouthPreferentialist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
+	<<elseif _validFSes.includes("FSBodyPurist")>>
 		The arcology's Slimness Enthusiast culture @@.yellow;pushes it towards Body Purism,@@ since the last thing they want is prettily slender girls with health trouble.
 		<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
 	<</if>>
 <<elseif $arcologies[$i].FSAssetExpansionist > random(50,200)>>
-	<<if ($arcologies[$i].FSMaturityPreferentialist == "unset") && ($arcologies[$i].FSYouthPreferentialist == "unset")>>
+	<<if _validFSes.includes("FSMaturityPreferentialist")>>
 		The arcology's Asset Expansionist culture @@.yellow;pushes it towards Maturity Preferentialism,@@ since MILF slaves tend to come with nice big tits.
 		<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
+	<<elseif _validFSes.includes("FSBodyPurist")>>
 		The arcology's Asset Expansionist culture @@.yellow;pushes it towards Body Purism,@@ since slaves on curatives are slaves not on growth hormones.
 		<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
+	<<elseif _validFSes.includes("FSPetiteAdmiration") && _validFSes.includes("FSStatuesqueGlorification")>>
 		<<if random(0,1) == 1>>
 			The arcology's Asset Expansionist culture @@.yellow;pushes it towards Petite Admiration,@@ since the smaller a slave's body is, the bigger their breasts will look.
 			<<set $arcologies[$i].FSPetiteAdmiration = 5>><<break>>
@@ -770,119 +711,119 @@ societal development.
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSPastoralist > random(50,200)>>
-	<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
+	<<if _validFSes.includes("FSBodyPurist")>>
 		The arcology's Pastoralist culture @@.yellow;pushes it towards Body Purism,@@ since there have been concerns about milk purity.
 		<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
+	<<elseif _validFSes.includes("FSAssetExpansionist")>>
 		The arcology's Pastoralist culture @@.yellow;pushes it towards Asset Expansionism,@@ since they're convinced that there's no such thing as udders that are too big.
 		<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset")>>
+	<<elseif _validFSes.includes("FSRepopulationFocus")>>
 		The arcology's Pastoralist culture @@.yellow;pushes it towards Repopulationism,@@ since pregnancy stimulates milk flow.
 		<<set $arcologies[$i].FSRepopulationFocus = 5>><<break>>
 	<</if>>
 <<elseif $arcologies[$i].FSCummunism > random(50,200)>>
-	<<if ($arcologies[$i].FSPhysicalIdealist == "unset") && ($arcologies[$i].FSHedonisticDecadence == "unset")>>
+	<<if _validFSes.includes("FSPhysicalIdealist")>>
 		The arcology's Cummunist culture @@.yellow;pushes it towards Physical Idealism,@@ since big balls and huge loads go hand in hand with masculine muscles.
 		<<set $arcologies[$i].FSPhysicalIdealist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
+	<<elseif _validFSes.includes("FSAssetExpansionist")>>
 		The arcology's Cummunist culture @@.yellow;pushes it towards Asset Expansionism,@@ since they're convinced that there's no such thing as balls that are too big.
 		<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
+	<<elseif _validFSes.includes("FSBodyPurist")>>
 		The arcology's Cummunist culture @@.yellow;pushes it towards Body Purism,@@ since there have been concerns about cum purity.
 		<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSHedonisticDecadence > random(50,200)>>
-	<<if ($arcologies[$i].FSPastoralist == "unset") && ($arcologies[$i].FSCummunism == "unset")>>
+	<<if _validFSes.includes("FSPastoralist")>>
 		The arcology's Hedonistic culture @@.yellow;pushes it towards Pastoralism,@@ since nothing beats a nice glass of fresh squeezed milk with your cake.
 		<<set $arcologies[$i].FSPastoralist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
+	<<elseif _validFSes.includes("FSIntellectualDependency")>>
 		The arcology's Hedonistic culture @@.yellow;pushes it towards Intellectual Dependency,@@ since higher thought is unneeded when you have everything you want.
 		<<set $arcologies[$i].FSIntellectualDependency = 5>><<break>>
-	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
+	<<elseif _validFSes.includes("FSPaternalist")>>
 		The arcology's Hedonistic culture @@.yellow;pushes it towards Paternalism,@@ since happiness is infectious.
 		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
 	<</if>>
 <<elseif $arcologies[$i].FSPhysicalIdealist > random(50,200)>>
-	<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
+	<<if _validFSes.includes("FSBodyPurist")>>
 		The arcology's Physical Idealist culture @@.yellow;pushes it towards Body Purism,@@ since it's already used to treating slaves' bodies as temples.
 		<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
+	<<elseif _validFSes.includes("FSYouthPreferentialist")>>
 		The arcology's Physical Idealist culture @@.yellow;pushes it towards Youth Preferentialism,@@ since beauty and athletic prowess do tend to peak early.
 		<<set $arcologies[$i].FSYouthPreferentialist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSStatuesqueGlorification == "unset") && ($arcologies[$i].FSPetiteAdmiration == "unset")>>
+	<<elseif _validFSes.includes("FSStatuesqueGlorification")>>
 		The arcology's Physical Idealist culture @@.yellow;pushes it towards Statuesque Glorification,@@ to better emulate the titans of legend.
 		<<set $arcologies[$i].FSStatuesqueGlorification = 5>><<break>>
-	<<elseif ($arcologies[$i].FSCummunism == "unset") && ($arcologies[$i].FSPastoralist == "unset")>>
+	<<elseif _validFSes.includes("FSCummunism")>>
 		The arcology's Physical Idealist culture @@.yellow;pushes it towards Cummunism,@@ since muscular, testosterone filled slaves make admirable cumshots.
 		<<set $arcologies[$i].FSCummunism = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSIncestFetishist > random(50,200)>>
-	<<if ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset")>>
+	<<if _validFSes.includes("FSRepopulationFocus")>>
 		The arcology's Incest Fetishizing culture @@.yellow;pushes it towards Repopulationism,@@ in order to create many new future loving couples.
 		<<set $arcologies[$i].FSRepopulationFocus = 5>><<break>>
-	<<elseif ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
+	<<elseif _validFSes.includes("FSBodyPurist")>>
 		The arcology's Incest Fetishizing culture @@.yellow;pushes it towards Body Purism,@@ in order to keep its bloodlines pure.
 		<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
+	<<elseif _validFSes.includes("FSPaternalist")>>
 		The arcology's Incest Fetishizing culture @@.yellow;pushes it towards Paternalism,@@ as healthy slaves live longer allowing relationships to span generations.
 		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
+	<<elseif _validFSes.includes("FSEgyptianRevivalist")>>
 		The arcology's Incest Fetishizing culture @@.yellow;pushes it towards Egyptian Revivalism,@@ as they naturally seek even more incestuous fun.
 		<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSChattelReligionist > random(50,200)>>
-	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
+	<<if _validFSes.includes("FSPaternalist")>>
 		The arcology's Chattel Religionist culture @@.yellow;pushes it towards Paternalism,@@ since charitable care for slaves' welfare has become widespread.
 		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
-	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
+	<<elseif _validFSes.includes("FSArabianRevivalist")>>
 		The arcology's Chattel Religionist culture @@.yellow;pushes it towards Arabian Revivalism,@@ since such an intermingling of slavery and faith fascinates them.
 		<<set $arcologies[$i].FSArabianRevivalist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSRomanRevivalist > random(50,200)>>
-	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
+	<<if _validFSes.includes("FSPaternalist")>>
 		The arcology's Roman Revivalist culture @@.yellow;pushes it towards Paternalism,@@ since some Roman slaves were traditionally permitted limited rights.
 		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSNeoImperialist > random(50,200)>>
-	<<if ($arcologies[$i].FSRestart == "unset") && ($arcologies[$i].FSRepopulationFocus == "unset")>>
+	<<if _validFSes.includes("FSRestart")>>
 		The arcology's Neo-Imperialist culture @@.yellow;pushes it towards Eugenics,@@ since their hegemonic, noble culture naturally views itself as genetically superior to the unwashed masses.
 		<<set $arcologies[$i].FSRestart = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSAztecRevivalist > random(50,200)>>
-	<<if ($arcologies[$i].FSDegradationist == "unset") && ($arcologies[$i].FSPaternalist == "unset")>>
+	<<if _validFSes.includes("FSDegradationist")>>
 		The arcology's Aztec Revivalist culture @@.yellow;pushes it towards Degradation,@@ since most Aztec war slaves were tortured and sacrificed.
 		<<set $arcologies[$i].FSDegradationist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSEgyptianRevivalist > random(50,200)>>
-	<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
+	<<if _validFSes.includes("FSChattelReligionist")>>
 		The arcology's Egyptian Revivalist culture @@.yellow;pushes it towards Chattel Religionism,@@ since worship is already becoming an established part of its life.
 		<<set $arcologies[$i].FSChattelReligionist = 5>><<break>>
-	<<elseif $arcologies[$i].FSIncestFetishist == "unset" && $seeIncest == 1>>
+	<<elseif _validFSes.includes("FSIncestFetishist")>>
 		The arcology's Egyptian Revivalist culture @@.yellow;pushes it towards Incest Fetishism,@@ since more incest is only a good thing in its eyes.
 		<<set $arcologies[$i].FSIncestFetishist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSEdoRevivalist > random(50,200)>>
-	<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
+	<<if _validFSes.includes("FSSlimnessEnthusiast")>>
 		The arcology's Edo Revivalist culture @@.yellow;pushes it towards Slimness Enthusiasm,@@ since slim and elegant slaves are already fashionable there.
 		<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSArabianRevivalist > random(50,200)>>
-	<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
+	<<if _validFSes.includes("FSChattelReligionist")>>
 		The arcology's Arabian Revivalist culture @@.yellow;pushes it towards Chattel Religionism,@@ since the word of God is already a matter of daily significance there.
 		<<set $arcologies[$i].FSChattelReligionist = 5>><<break>>
 	<</if>>
 <</if>>
 <<if $arcologies[$i].FSChineseRevivalist > random(50,200)>>
-	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
+	<<if _validFSes.includes("FSPaternalist")>>
 		The arcology's Chinese Revivalist culture @@.yellow;pushes it towards Paternalism,@@ since traditional beliefs about duty and order have become accepted.
 		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
 	<</if>>
@@ -900,7 +841,7 @@ societal development.
 
 		<<set _influenceBonus = 0>>
 		<<if $arcologies[$i].direction == $arcologies[$j].influenceTarget>>
-			$arcologies[$j].name's directed cultural influence gives it some input $arcologies[$i].name's choice of direction.
+			$arcologies[$j].name's directed cultural influence gives it some input over $arcologies[$i].name's choice of direction.
 			<<set _influenceBonus = 20>>
 		<</if>>
 
@@ -913,189 +854,35 @@ societal development.
 			<<set _influenceBonus += _opinion+50>>
 		<</if>>
 
-		<<if ($arcologies[$i].FSSubjugationist == "unset")>>
-			<<if ($arcologies[$i].FSSupremacist == "unset") || ($arcologies[$i].FSSupremacistRace != $arcologies[$j].FSSubjugationistRace)>>
-				<<if $arcologies[$j].FSSubjugationist > random(0,200)-_influenceBonus>>
-					It @@.yellow;adopts $arcologies[$j].FSSubjugationistRace Subjugation@@ due to influence from its trading partner $arcologies[$j].name.
-					<<set $arcologies[$i].FSSubjugationist = 5>><<set _adopted = 1>>
-					<<set $arcologies[$i].FSSubjugationistRace = $arcologies[$j].FSSubjugationistRace>>
-					<<break>>
+		<<for _candidate range _validFSes>>
+			<<if _candidate === "FSSubjugationist">>
+				<<if ($arcologies[$i].FSSupremacist == "unset") || ($arcologies[$i].FSSupremacistRace != $arcologies[$j].FSSubjugationistRace)>>
+					<<if $arcologies[$j].FSSubjugationist > random(0,200)-_influenceBonus>>
+						It @@.yellow;adopts $arcologies[$j].FSSubjugationistRace Subjugation@@ due to influence from its trading partner $arcologies[$j].name.
+						<<set $arcologies[$i].FSSubjugationist = 5>><<set _adopted = 1>>
+						<<set $arcologies[$i].FSSubjugationistRace = $arcologies[$j].FSSubjugationistRace>>
+						<<break>>
+					<</if>>
 				<</if>>
-			<</if>>
-		<</if>>
-		<<if ($arcologies[$i].FSSupremacist == "unset")>>
-			<<if ($arcologies[$i].FSSubjugationist == "unset") || ($arcologies[$i].FSSubjugationistRace != $arcologies[$j].FSSupremacistRace)>>
-				<<if $arcologies[$j].FSSupremacist > random(0,200)-_influenceBonus>>
-					It @@.yellow;adopts $arcologies[$j].FSSupremacistRace Supremacy@@ due to influence from its trading partner $arcologies[$j].name.
-					<<set $arcologies[$i].FSSupremacist = 5>><<set _adopted = 1>>
-					<<set $arcologies[$i].FSSupremacistRace = $arcologies[$j].FSSupremacistRace>>
+			<<elseif _candidate === "FSSupremacist">>
+				<<if ($arcologies[$i].FSSubjugationist == "unset") || ($arcologies[$i].FSSubjugationistRace != $arcologies[$j].FSSupremacistRace)>>
+					<<if $arcologies[$j].FSSupremacist > random(0,200)-_influenceBonus>>
+						It @@.yellow;adopts $arcologies[$j].FSSupremacistRace Supremacy@@ due to influence from its trading partner $arcologies[$j].name.
+						<<set $arcologies[$i].FSSupremacist = 5>><<set _adopted = 1>>
+						<<set $arcologies[$i].FSSupremacistRace = $arcologies[$j].FSSupremacistRace>>
+						<<break>>
+					<</if>>
+				<</if>>
+			<<else>>
+				<<if $arcologies[$j][_candidate] > random(0,200)-_influenceBonus>>
+					It @@.yellow;adopts <<= FutureSocieties.displayName(_candidate)>>@@ due to influence from its trading partner $arcologies[$j].name.
+					<<set $arcologies[$i][_candidate] = 5>><<set _adopted = 1>>
 					<<break>>
 				<</if>>
 			<</if>>
-		<</if>>
-		<<if ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset") && ($seePreg == 1)>>
-			<<if $arcologies[$j].FSRepopulationFocus > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Repopulation@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSRepopulationFocus = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSRestart > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Eugenics@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSRestart = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-		<</if>>
-		<<if ($arcologies[$i].FSGenderRadicalist == "unset") && ($arcologies[$i].FSGenderFundamentalist == "unset")>>
-			<<if $arcologies[$j].FSGenderRadicalist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Gender Radicalism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSGenderRadicalist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSGenderFundamentalist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Gender Fundamentalism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSGenderFundamentalist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-		<</if>>
-		<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
-			<<if $arcologies[$j].FSPaternalist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Paternalism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSPaternalist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSDegradationist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Degradationism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSDegradationist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-		<</if>>
-		<<if ($arcologies[$i].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
-			<<if $arcologies[$j].FSIntellectualDependency > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Intellectual Dependency@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSIntellectualDependency = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSSlaveProfessionalism > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Slave Professionalism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSSlaveProfessionalism = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-		<</if>>
-		<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
-			<<if $arcologies[$j].FSBodyPurist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Body Purism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSBodyPurist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSTransformationFetishist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Transformation Fetishism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSTransformationFetishist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-		<</if>>
-		<<if ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
-			<<if $arcologies[$j].FSYouthPreferentialist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Youth Preferentialism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSYouthPreferentialist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSMaturityPreferentialist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Maturity Preferentialism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-		<</if>>
-		<<if ($arcologies[$i].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
-			<<if $arcologies[$j].FSPetiteAdmiration > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Petite Admiration@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSPetiteAdmiration = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSStatuesqueGlorification > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Statuesque Glorification@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSStatuesqueGlorification = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-		<</if>>
-		<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
-			<<if $arcologies[$j].FSSlimnessEnthusiast > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Slimness Enthusiasm@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSAssetExpansionist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Asset Expansionism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSAssetExpansionist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-		<</if>>
-		<<if ($arcologies[$i].FSPastoralist == "unset") && ($arcologies[$i].FSCummunism == "unset")>>
-			<<if $arcologies[$j].FSPastoralist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Pastoralism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSPastoralist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSCummunism > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Cummunism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSCummunism = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-		<</if>>
-		<<if ($arcologies[$i].FSHedonisticDecadence == "unset") && ($arcologies[$i].FSPhysicalIdealist == "unset")>>
-			<<if $arcologies[$j].FSHedonisticDecadence > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Decadent Hedonism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSHedonisticDecadence = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSPhysicalIdealist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Physical Idealism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSPhysicalIdealist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-		<</if>>
-		<<if ($arcologies[$i].FSChattelReligionist == "unset") && ($arcologies[$i].FSNull == "unset")>>
-			<<if $arcologies[$j].FSChattelReligionist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Chattel Religionism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSChattelReligionist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-		<</if>>
-		<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
-			<<if $arcologies[$j].FSRomanRevivalist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Roman Revivalism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSRomanRevivalist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSNeoImperialist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Neo-Imperialism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSNeoImperialist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSAztecRevivalist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Aztec Revivalism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSAztecRevivalist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSEgyptianRevivalist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Egyptian Revivalism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSEdoRevivalist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Edo Revivalism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSEdoRevivalist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSArabianRevivalist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Arabian Revivalism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSArabianRevivalist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
-			<<if $arcologies[$j].FSChineseRevivalist > random(0,200)-_influenceBonus>>
-				It @@.yellow;adopts Chinese Revivalism@@ due to influence from its trading partner $arcologies[$j].name.
-				<<set $arcologies[$i].FSChineseRevivalist = 5>><<set _adopted = 1>>
-				<<break>>
-			<</if>>
+		<</for>>
+		<<if _adopted == 1>>
+			<<break>>
 		<</if>>
 	<</if>>
 <</for>>
@@ -1121,170 +908,108 @@ societal development.
 <<default>>
 	<<set $desc = "Its citizens are">>
 <</switch>>
-<<switch random(1,31)>>
-<<case 1>>
+<<switch _validFSes.random()>>
+<<case "FSSubjugationist">>
 	<<set _subjugationRace = setup.filterRacesLowercase.random()>>
-	<<if ($arcologies[$i].FSSubjugationist == "unset")>>
-		<<if ($arcologies[$i].FSSupremacist == "unset") || (_subjugationRace != $arcologies[$i].FSSupremacistRace)>>
-			$desc preoccupied by a racial animus towards _subjugationRace people, leading the arcology to @@.yellow;adopt _subjugationRace Subjugation.@@
-			<<set $arcologies[$i].FSSubjugationist = 5>><<set _adopted = 1>>
-			<<set $arcologies[$i].FSSubjugationistRace = _subjugationRace>>
-		<</if>>
+	<<if ($arcologies[$i].FSSupremacist == "unset") || (_subjugationRace != $arcologies[$i].FSSupremacistRace)>>
+		$desc preoccupied by a racial animus towards _subjugationRace people, leading the arcology to @@.yellow;adopt _subjugationRace Subjugation.@@
+		<<set $arcologies[$i].FSSubjugationist = 5>><<set _adopted = 1>>
+		<<set $arcologies[$i].FSSubjugationistRace = _subjugationRace>>
 	<</if>>
-<<case 2>>
+<<case "FSSupremacist">>
 	<<set _supremacistRace = setup.filterRacesLowercase.random()>>
-	<<if ($arcologies[$i].FSSupremacist == "unset")>>
-		<<if ($arcologies[$i].FSSubjugationist == "unset") || (_supremacistRace != $arcologies[$i].FSSubjugationistRace)>>
-			$desc preoccupied by belief in the superiority of the _supremacistRace race, leading the arcology to @@.yellow;adopt _supremacistRace Supremacy.@@
-			<<set $arcologies[$i].FSSupremacist = 5>><<set _adopted = 1>>
-			<<set $arcologies[$i].FSSupremacistRace = _supremacistRace>>
-		<</if>>
-	<</if>>
-<<case 3>>
-	<<if ($arcologies[$i].FSGenderRadicalist == "unset") && ($arcologies[$i].FSGenderFundamentalist == "unset")>>
-		$desc enthusiastic about fucking slaves in the butt, leading the arcology to @@.yellow;adopt Gender Radicalism.@@
-		<<set $arcologies[$i].FSGenderRadicalist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 4>>
-	<<if ($arcologies[$i].FSGenderRadicalist == "unset") && ($arcologies[$i].FSGenderFundamentalist == "unset")>>
-		$desc enthusiastic about knocking slaves up, leading the arcology to @@.yellow;adopt Gender Fundamentalism.@@
-		<<set $arcologies[$i].FSGenderFundamentalist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 5>>
-	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
-		$desc devoted to their slaves' advancement, leading the arcology to @@.yellow;adopt Paternalism.@@
-		<<set $arcologies[$i].FSPaternalist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 6>>
-	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
-		$desc partial to screaming and struggling, leading the arcology to @@.yellow;adopt Degradationism.@@
-		<<set $arcologies[$i].FSDegradationist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 7>>
-	<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
-		$desc concerned by trends in their slaves' health, leading the arcology to @@.yellow;adopt Body Purism.@@
-		<<set $arcologies[$i].FSBodyPurist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 8>>
-	<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
-		$desc fascinated with extreme surgery, leading the arcology to @@.yellow;adopt Transformation Fetishism.@@
-		<<set $arcologies[$i].FSTransformationFetishist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 9>>
-	<<if ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
-		$desc devoted to fucking nubile young slaves, leading the arcology to @@.yellow;adopt Youth Preferentialism.@@
-		<<set $arcologies[$i].FSYouthPreferentialist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 10>>
-	<<if ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
-		$desc devoted to time in bed with their MILF slaves, leading the arcology to @@.yellow;adopt Maturity Preferentialism.@@
-		<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 11>>
-	<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
-		$desc partial to a slim slave with tight holes, leading the arcology to @@.yellow;adopt Slimness Enthusiasm.@@
-		<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 12>>
-	<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
-		$desc enthusiastic about boobs, the bigger, the better, leading the arcology to @@.yellow;adopt Asset Expansionism.@@
-		<<set $arcologies[$i].FSAssetExpansionist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 13>>
-	<<if ($arcologies[$i].FSPastoralist == "unset") && ($arcologies[$i].FSCummunism == "unset")>>
-		$desc addicted to breast milk straight from the nipple, leading the arcology to @@.yellow;adopt Pastoralism.@@
-		<<set $arcologies[$i].FSPastoralist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 14>>
-	<<if ($arcologies[$i].FSPhysicalIdealist == "unset") && ($arcologies[$i].FSHedonisticDecadence == "unset")>>
-		$desc pretty devoted to spending time in the gym, leading the arcology to @@.yellow;adopt Physical Idealism.@@
-		<<set $arcologies[$i].FSPhysicalIdealist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 15>>
-	<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
-		$desc devoutly religious, and interested in a reformation, leading the arcology to @@.yellow;adopt Chattel Religionism.@@
-		<<set $arcologies[$i].FSChattelReligionist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 16>>
-	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
-		$desc fascinated by classical Roman history, leading the arcology to @@.yellow;adopt Roman Revivalism.@@
-		<<set $arcologies[$i].FSRomanRevivalist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 17>>
-	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
-		$desc fascinated by ancient Aztec history, leading the arcology to @@.yellow;adopt Aztec Revivalism.@@
-		<<set $arcologies[$i].FSAztecRevivalist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 18>>
-	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
-		$desc fascinated by ancient Egyptian history, leading the arcology to @@.yellow;adopt Egyptian Revivalism.@@
-		<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 19>>
-	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
-		$desc fascinated by Japanese history, leading the arcology to @@.yellow;adopt Edo Revivalism.@@
-		<<set $arcologies[$i].FSEdoRevivalist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 20>>
-	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
-		$desc fascinated by Arabian romanticism, leading the arcology to @@.yellow;adopt Arabian Revivalism.@@
-		<<set $arcologies[$i].FSArabianRevivalist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 21>>
-	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
-		$desc fascinated by the long tale of Chinese history, leading the arcology to @@.yellow;adopt Chinese Revivalism.@@
-		<<set $arcologies[$i].FSChineseRevivalist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 22>>
-	<<if ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset") && ($seePreg == 1)>>
-		$desc concerned for the future, and partial to watching bellies swell, leading the arcology to @@.yellow;adopt Repopulation Efforts.@@
-		<<set $arcologies[$i].FSRepopulationFocus = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 23>>
-	<<if ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset")>>
-		$desc concerned for the future, and believing their elite could do a better job, leading the arcology to @@.yellow;adopt Eugenics.@@
-		<<set $arcologies[$i].FSRestart = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 24>>
-	<<if ($arcologies[$i].FSPhysicalIdealist == "unset") && ($arcologies[$i].FSHedonisticDecadence == "unset")>>
-		$desc obsessed with indulging their every desire, leading the arcology to @@.yellow;adopt Decadent Hedonism.@@
-		<<set $arcologies[$i].FSHedonisticDecadence = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 25>>
-	<<if ($arcologies[$i].FSCummunism == "unset") && ($arcologies[$i].FSPastoralist == "unset")>>
-		$desc obsessed with cum, leading the arcology to @@.yellow;adopt Cummunism.@@
-		<<set $arcologies[$i].FSCummunism = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 26>>
-	<<if ($arcologies[$i].FSIncestFetishist == "unset") && ($seeIncest == 1)>>
-		$desc obsessed with their relatives, leading the arcology to @@.yellow;adopt Incest Fetishism.@@
-		<<set $arcologies[$i].FSIncestFetishist = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 27>>
-	<<if ($arcologies[$i].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
-		$desc partial to airheaded horny bimbos, leading the arcology to @@.yellow;adopt Intellectual Dependency.@@
-		<<set $arcologies[$i].FSIntellectualDependency = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 28>>
-	<<if ($arcologies[$i].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
-		$desc obsessed with crafting the perfect slave, leading the arcology to @@.yellow;adopt Slave Professionalism.@@
-		<<set $arcologies[$i].FSSlaveProfessionalism = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 29>>
-	<<if ($arcologies[$i].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
-		$desc enamored by those shorter than them, leading the arcology to @@.yellow;adopt Petite Admiration.@@
-		<<set $arcologies[$i].FSPetiteAdmiration = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 30>>
-	<<if ($arcologies[$i].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
-		$desc convinced that tall equals beauty, leading the arcology to @@.yellow;adopt Statuesque Glorification.@@
-		<<set $arcologies[$i].FSStatuesqueGlorification = 5>><<set _adopted = 1>>
-	<</if>>
-<<case 31>>
-	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSNeoImperialist == "unset")>>
-		$desc fascinated by the long rule of ancient European monarchs, leading the arcology to @@.yellow;adopt Neo-Imperialism.@@
-		<<set $arcologies[$i].FSNeoImperialist = 5>><<set _adopted = 1>>
-	<</if>>
+	<<if ($arcologies[$i].FSSubjugationist == "unset") || (_supremacistRace != $arcologies[$i].FSSubjugationistRace)>>
+		$desc preoccupied by belief in the superiority of the _supremacistRace race, leading the arcology to @@.yellow;adopt _supremacistRace Supremacy.@@
+		<<set $arcologies[$i].FSSupremacist = 5>><<set _adopted = 1>>
+		<<set $arcologies[$i].FSSupremacistRace = _supremacistRace>>
+	<</if>>
+<<case "FSGenderRadicalist">>
+	$desc enthusiastic about fucking slaves in the butt, leading the arcology to @@.yellow;adopt Gender Radicalism.@@
+	<<set $arcologies[$i].FSGenderRadicalist = 5>><<set _adopted = 1>>
+<<case "FSGenderFundamentalist">>
+	$desc enthusiastic about knocking slaves up, leading the arcology to @@.yellow;adopt Gender Fundamentalism.@@
+	<<set $arcologies[$i].FSGenderFundamentalist = 5>><<set _adopted = 1>>
+<<case "FSPaternalist">>
+	$desc devoted to their slaves' advancement, leading the arcology to @@.yellow;adopt Paternalism.@@
+	<<set $arcologies[$i].FSPaternalist = 5>><<set _adopted = 1>>
+<<case "FSDegradationist">>
+	$desc partial to screaming and struggling, leading the arcology to @@.yellow;adopt Degradationism.@@
+	<<set $arcologies[$i].FSDegradationist = 5>><<set _adopted = 1>>
+<<case "FSBodyPurist">>
+	$desc concerned by trends in their slaves' health, leading the arcology to @@.yellow;adopt Body Purism.@@
+	<<set $arcologies[$i].FSBodyPurist = 5>><<set _adopted = 1>>
+<<case "FSTransformationFetishist">>
+	$desc fascinated with extreme surgery, leading the arcology to @@.yellow;adopt Transformation Fetishism.@@
+	<<set $arcologies[$i].FSTransformationFetishist = 5>><<set _adopted = 1>>
+<<case "FSYouthPreferentialist">>
+	$desc devoted to fucking nubile young slaves, leading the arcology to @@.yellow;adopt Youth Preferentialism.@@
+	<<set $arcologies[$i].FSYouthPreferentialist = 5>><<set _adopted = 1>>
+<<case "FSMaturityPreferentialist">>
+	$desc devoted to time in bed with their MILF slaves, leading the arcology to @@.yellow;adopt Maturity Preferentialism.@@
+	<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<set _adopted = 1>>
+<<case "FSSlimnessEnthusiast">>
+	$desc partial to a slim slave with tight holes, leading the arcology to @@.yellow;adopt Slimness Enthusiasm.@@
+	<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<set _adopted = 1>>
+<<case "FSAssetExpansionist">>
+	$desc enthusiastic about boobs, the bigger, the better, leading the arcology to @@.yellow;adopt Asset Expansionism.@@
+	<<set $arcologies[$i].FSAssetExpansionist = 5>><<set _adopted = 1>>
+<<case "FSPastoralist">>
+	$desc addicted to breast milk straight from the nipple, leading the arcology to @@.yellow;adopt Pastoralism.@@
+	<<set $arcologies[$i].FSPastoralist = 5>><<set _adopted = 1>>
+<<case "FSPhysicalIdealist">>
+	$desc pretty devoted to spending time in the gym, leading the arcology to @@.yellow;adopt Physical Idealism.@@
+	<<set $arcologies[$i].FSPhysicalIdealist = 5>><<set _adopted = 1>>
+<<case "FSChattelReligionist">>
+	$desc devoutly religious, and interested in a reformation, leading the arcology to @@.yellow;adopt Chattel Religionism.@@
+	<<set $arcologies[$i].FSChattelReligionist = 5>><<set _adopted = 1>>
+<<case "FSRomanRevivalist">>
+	$desc fascinated by classical Roman history, leading the arcology to @@.yellow;adopt Roman Revivalism.@@
+	<<set $arcologies[$i].FSRomanRevivalist = 5>><<set _adopted = 1>>
+<<case "FSAztecRevivalist">>
+	$desc fascinated by ancient Aztec history, leading the arcology to @@.yellow;adopt Aztec Revivalism.@@
+	<<set $arcologies[$i].FSAztecRevivalist = 5>><<set _adopted = 1>>
+<<case "FSEgyptianRevivalist">>
+	$desc fascinated by ancient Egyptian history, leading the arcology to @@.yellow;adopt Egyptian Revivalism.@@
+	<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set _adopted = 1>>
+<<case "FSEdoRevivalist">>
+	$desc fascinated by Japanese history, leading the arcology to @@.yellow;adopt Edo Revivalism.@@
+	<<set $arcologies[$i].FSEdoRevivalist = 5>><<set _adopted = 1>>
+<<case "FSArabianRevivalist">>
+	$desc fascinated by Arabian romanticism, leading the arcology to @@.yellow;adopt Arabian Revivalism.@@
+	<<set $arcologies[$i].FSArabianRevivalist = 5>><<set _adopted = 1>>
+<<case "FSChineseRevivalist">>
+	$desc fascinated by the long tale of Chinese history, leading the arcology to @@.yellow;adopt Chinese Revivalism.@@
+	<<set $arcologies[$i].FSChineseRevivalist = 5>><<set _adopted = 1>>
+<<case "FSRepopulationFocus">>
+	$desc concerned for the future, and partial to watching bellies swell, leading the arcology to @@.yellow;adopt Repopulation Efforts.@@
+	<<set $arcologies[$i].FSRepopulationFocus = 5>><<set _adopted = 1>>
+<<case "FSRestart">>
+	$desc concerned for the future, and believing their elite could do a better job, leading the arcology to @@.yellow;adopt Eugenics.@@
+	<<set $arcologies[$i].FSRestart = 5>><<set _adopted = 1>>
+<<case "FSHedonisticDecadence">>
+	$desc obsessed with indulging their every desire, leading the arcology to @@.yellow;adopt Decadent Hedonism.@@
+	<<set $arcologies[$i].FSHedonisticDecadence = 5>><<set _adopted = 1>>
+<<case "FSCummunism">>
+	$desc obsessed with cum, leading the arcology to @@.yellow;adopt Cummunism.@@
+	<<set $arcologies[$i].FSCummunism = 5>><<set _adopted = 1>>
+<<case "FSIncestFetishist">>
+	$desc obsessed with their relatives, leading the arcology to @@.yellow;adopt Incest Fetishism.@@
+	<<set $arcologies[$i].FSIncestFetishist = 5>><<set _adopted = 1>>
+<<case "FSIntellectualDependency">>
+	$desc partial to airheaded horny bimbos, leading the arcology to @@.yellow;adopt Intellectual Dependency.@@
+	<<set $arcologies[$i].FSIntellectualDependency = 5>><<set _adopted = 1>>
+<<case "FSSlaveProfessionalism">>
+	$desc obsessed with crafting the perfect slave, leading the arcology to @@.yellow;adopt Slave Professionalism.@@
+	<<set $arcologies[$i].FSSlaveProfessionalism = 5>><<set _adopted = 1>>
+<<case "FSPetiteAdmiration">>
+	$desc enamored by those shorter than them, leading the arcology to @@.yellow;adopt Petite Admiration.@@
+	<<set $arcologies[$i].FSPetiteAdmiration = 5>><<set _adopted = 1>>
+<<case "FSStatuesqueGlorification">>
+	$desc convinced that tall equals beauty, leading the arcology to @@.yellow;adopt Statuesque Glorification.@@
+	<<set $arcologies[$i].FSStatuesqueGlorification = 5>><<set _adopted = 1>>
+<<case "FSNeoImperialist">>
+	$desc fascinated by the long rule of ancient European monarchs, leading the arcology to @@.yellow;adopt Neo-Imperialism.@@
+	<<set $arcologies[$i].FSNeoImperialist = 5>><<set _adopted = 1>>
 <</switch>>
 <</if>>
 <</if>>