code:
:: Multiple Organ Implant [nobr]

You head down to your <<if $surgeryUpgrade == 1>>heavily upgraded and customized<</if>> remote surgery and start having the slaves with <<if ($completedOrgans.length > 0) && ($adjustProstheticsCompleted > 0)>>organs or prosthetics <<elseif ($completedOrgans.length > 1)>>organs <<elseif ($adjustProstheticsCompleted > 1)>>prosthetics <</if>>that are ready be sent down.

Implant Organs

<<set _F = App.Medicine.OrganFarm>>
<<for _i = 0; _i < $slaves.length; _i++>>
	<<set $activeSlave = $slaves[_i]>>
	<<set _sortedOrgans = _F.getSortedOrgans($activeSlave)>>
	<<if _sortedOrgans.length === 0>><<continue>><</if>>

$activeSlave.slaveName

	<<for _k = 0; _k < _sortedOrgans.length; _k++>>

<<print _F.Organs[_sortedOrgans[_k]].name>>

		<<set _actions = _F.Organs[_sortedOrgans[_k]].implantActions>>
		<<set _manual = false, _success = false, _break = false>>
		<<for _l = 0; _l < _actions.length; _l++>>
			<<if !_actions[_l].autoImplant>>
				<<if _actions[_l].canImplant($activeSlave)>>
					<<set _manual = true>>
				<</if>>
				<<continue>>
			<</if>>
			<<if !_actions[_l].canImplant($activeSlave)>>
				@@.red;ERROR: <<print _actions[_l].implantError($activeSlave)>>@@

			<<elseif $activeSlave.health.health - _actions[_l].healthImpact < -75>>
				Estimated health impact too high, skipping further surgeries.
				<<set _break = true>>
				<<break>>
			<<else>>
				<<run App.Medicine.OrganFarm.implant($activeSlave, _sortedOrgans[_k], _l)>>
				<<include "Surgery Degradation">>

				<<set _success = true>>
			<</if>>
		<</for>>
		<<if _break>><<break>><</if>>
		<<if !_success && _manual>>
			//Cannot implant <<print _F.Organs[_sortedOrgans[_k]].name.toLowerCase()>> automatically, try implanting manually in the remote surgery.//
		<</if>>
	<</for>>

	<<set $slaves[_i] = $activeSlave>>
<</for>>

Implant prosthetics

/* prosthetics */
<<for _i = 0; _i < $slaves.length; _i++>>
	<<set $activeSlave = $slaves[_i]>>

	/* count for estimating health impact */
	<<set _prostheticCount = $adjustProsthetics.filter(p => p.slaveID == $activeSlave.ID && p.workLeft <= 0).length>>

	/* since we already have count, skip slaves that don't need work */
	<<if _prostheticCount < 1>>
		<<continue>>
	<</if>>
	/*
	Ensures that a slave can never die during the execution of this passage.
	Calculation based on worst case, so when changing worst case change it here too.
	*/
	<<if $activeSlave.health.health - (_prostheticCount * 20) < -75>>

		@@.red;Estimated health impact too great; $activeSlave.slaveName skipped.@@
		<<continue>>
	<</if>>

	<<for _k = 0; _k < $adjustProsthetics.length; _k++>>
		<<set _p = $adjustProsthetics[_k]>>
		<<if _p.slaveID == $activeSlave.ID && _p.workLeft <= 0>>
			<<set $adjustProsthetics.splice(_k, 1), _k-->>
			<<set addProsthetic($activeSlave, _p.id)>>

			<<switch _p.id>>
			<<case "ocular">>
				<<if getBestVision($activeSlave) === 0>>
					<<run eyeSurgery($activeSlave, "both", "cybernetic"), cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave)>>
					<<set surgeryDamage($activeSlave, 20), $surgeryType = "ocular implant">>
					<<include "Surgery Degradation">>
				<<else>>
					//Since $he has working eyes the <<= setup.prosthetics.ocular.name>> will be put into storage.//
				<</if>>
			<<case "cochlear">>
				<<if $activeSlave.hears != 0>>
					<<set $activeSlave.earImplant = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), surgeryDamage($activeSlave, 20), $surgeryType = "cochlear implant">>
					<<include "Surgery Degradation">>
				<<else>>
					//Since $he has working ears the <<= setup.prosthetics.cochlear.name>> will be put into storage.//
				<</if>>
			<<case "electrolarynx">>
				<<if $activeSlave.voice <= 0>>
					<<set $activeSlave.electrolarynx = 1, $activeSlave.voice = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), surgeryDamage($activeSlave, 20), $surgeryType = "electrolarynx">>
					<<include "Surgery Degradation">>
				<<else>>
					//Since $he has a voice the <<= setup.prosthetics.electrolarynx.name>> will be put into storage.//
				<</if>>
			<<case "interfaceP1">>
				<<if hasAnyNaturalLimbs($activeSlave)>>
					//Since $he has at least one healthy limb the <<= setup.prosthetics.interfaceP1.name>> will be put into storage.//
				<<elseif $activeSlave.PLimb == 2>>
					//Since $he already has <<= addA(setup.prosthetics.interfaceP2.name)>> installed the <<= setup.prosthetics.interfaceP1.name>> will be put into storage.//
				<<else>>
					<<set $activeSlave.PLimb = 1, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), surgeryDamage($activeSlave, 20), $surgeryType = "PLimb interface1">>
					<<include "Surgery Degradation">>
				<</if>>
			<<case "interfaceP2">>
				<<if hasAllNaturalLimbs($activeSlave)>>
					//Since $he has no amputated limbs the <<= setup.prosthetics.interfaceP2.name>> will be put into storage.//
				<<elseif $activeSlave.PLimb == 1>>
					<<set $activeSlave.PLimb = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), surgeryDamage($activeSlave, 5), $surgeryType = "PLimb interface3">>
					<<include "Surgery Degradation">>
				<<else>>
					<<set $activeSlave.PLimb = 2, cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), surgeryDamage($activeSlave, 20), $surgeryType = "PLimb interface2">>
					<<include "Surgery Degradation">>
				<</if>>
			<<case "basicL" "sexL" "beautyL" "combatL" "cyberneticL">>
				<<if $activeSlave.fuckdoll != 0>>
					//Since a Fuckdoll can't use prosthetic limbs the <<= setup.prosthetics[_p.id].name>> will be put into storage.//
				<<elseif hasAllNaturalLimbs($activeSlave)>>
					//Since $he needs an amputated limb to attach prosthetics the <<= setup.prosthetics[_p.id].name>> will be put into storage.//
				<<elseif $activeSlave.PLimb == 0>>
					//Since $he must have a prosthetic interface installed to attach prosthetic limbs the <<= setup.prosthetics[_p.id].name>> will be put into storage.//
				<<else>>
					<<if _p.id == "basicL">>
						<<set _state = App.Desc.limbChange().currentLimbs($activeSlave), _change = upgradeLimbs($activeSlave, 2)>>
						<<if _change>>
							<<= App.Desc.limbChange().reaction($activeSlave, _state)>>
						<<else>>
							//Since $he already has more advanced prosthetic limbs attached the <<= setup.prosthetics.basicL.name>> will be put into storage.//
						<</if>>
					<<elseif _p.id == "sexL">>
						<<set _state = App.Desc.limbChange().currentLimbs($activeSlave), _change = upgradeLimbs($activeSlave, 3)>>
						<<if _change>>
							<<= App.Desc.limbChange().reaction($activeSlave, _state)>>
						<<else>>
							//Since $he already has advanced prosthetic limbs attached the <<= setup.prosthetics.sexL.name>> will be put into storage.//
						<</if>>
					<<elseif _p.id == "beautyL">>
						<<set _state = App.Desc.limbChange().currentLimbs($activeSlave), _change = upgradeLimbs($activeSlave, 4)>>
						<<if _change>>
							<<= App.Desc.limbChange().reaction($activeSlave, _state)>>
						<<else>>
							//Since $he already has advanced prosthetic limbs attached the <<= setup.prosthetics.beautyL.name>> will be put into storage.//
						<</if>>
					<<elseif _p.id == "combatL">>
						<<set _state = App.Desc.limbChange().currentLimbs($activeSlave), _change = upgradeLimbs($activeSlave, 5)>>
						<<if _change>>
							<<= App.Desc.limbChange().reaction($activeSlave, _state)>>
						<<else>>
							//Since $he already has advanced prosthetic limbs attached the <<= setup.prosthetics.combatL.name>> will be put into storage.//
						<</if>>
					<<else>>
						<<if $activeSlave.PLimb == 2>>
							<<set _state = App.Desc.limbChange().currentLimbs($activeSlave), _change = upgradeLimbs($activeSlave, 2)>>
							<<if _change>>
								<<= App.Desc.limbChange().reaction($activeSlave, _state)>>
							<</if>>
						<<else>>
							//Since $he must have <<= addA(setup.prosthetics.interfaceP2.name)>> installed to attach cybernetic limbs the <<= setup.prosthetics.cyberneticL.name>> will be put into storage.//
						<</if>>
					<</if>>
				<</if>>
			<<case "interfaceTail">>
				<<set $activeSlave.PTail = 1, $activeSlave.tail = "none", $activeSlave.tailColor = "none", cashX(forceNeg($surgeryCost), "slaveSurgery", $activeSlave), surgeryDamage($activeSlave, 10), $surgeryType = "tailInterface">>
				<<include "Surgery Degradation">>
			<<case "modT" "sexT" "combatT">>
				<<if $activeSlave.PTail == 0>>
					//Since $he must have <<= addA(setup.prosthetics.interfaceTail.name)>> installed to attach tails the <<= setup.prosthetics[_p.id].name>> will be put into storage.//
				<<elseif $activeSlave.tail != "none">>
					//Since $he currently has a tail attached the <<= setup.prosthetics[_p.id].name>> will be put into storage.//
				<<elseif _p.id == "modT">>
					//Since installing <<= addA(setup.prosthetics.modT.name)>> is complicated it can't be automated.//
					/*Reason: there are different designs player can choose from.*/
				<<elseif _p.id == "combatT">>
					<<set $prostheticsConfig = "attachTail", $activeSlave.tail = "combat", $activeSlave.tailColor = "jet black">>
					<<include "Prosthetics Configuration">>
				<<elseif _p.id == "sexT">>
					<<set $prostheticsConfig = "attachTail", $activeSlave.tail = "sex", $activeSlave.tailColor = "pink">>
					<<include "Prosthetics Configuration">>
				<</if>>
			<<default>>
				//Since there is no automated procedure to implant/attach <<= setup.prosthetics[_p.id].name>> it will be put into storage.//
			<</switch>>

		<</if>>
	<</for>>
	/* updates the interrogated slave */
	<<set $slaves[_i] = $activeSlave>>
<</for>> /* end of the $slaves loop */
<<set $adjustProstheticsCompleted = 0>>

/* This needs to be down here to over-ride any Surgery Degradation calls */
<<set $nextButton = "Continue">>
<<set $nextLink = "Main">>


code:
:: Neighbor Description [nobr]

'' $arcologies[$i].name'' is located to the $arcologies[$i].direction of your arcology. It is governed by
<<switch $arcologies[$i].government>>
<<case "elected officials">>
	elected officials, periodically paralyzing its development.
<<case "a committee">>
	a committee, hindering its development.
<<case "an oligarchy">>
	a small group of leading citizens, making its development very unpredictable.
<<case "your trustees">>
	a small group of leading citizens who are serving as @@.mediumseagreen;your trustees.@@
<<case "an individual">>
	@@.cyan;an individual,@@ making its development vibrant but unpredictable.
<<case "your agent">>
	@@.deeppink;your agent,@@ who is directing the arcology in your stead.
<<case "a corporation">>
	a corporation, making its development steady and unspectacular.
<<default>>
	direct democracy, making its development dangerously unstable.
<</switch>>
<<if $arcologies[$i].direction == 0>>
	<<set $economicUncertainty = 5>>
<<else>>
	<<set $economicUncertainty = 10>>
<</if>>
<<if $assistantPower > 1>>
	<<set $economicUncertainty = 0>>
<<elseif $assistantPower == 1>>
	<<set $economicUncertainty = Math.max(Math.trunc($economicUncertainty/2),0)>>
<</if>>
<<if $arcologies[$i].government != "your trustees">>
	<<if $arcologies[$i].government != "your agent">>
		Its leadership has control of approximately @@.orange;<<print Math.trunc(($arcologies[$i].ownership*random(100-$economicUncertainty,100+$economicUncertainty))/100)>>%@@ of the arcology<<if $arcologies[$i].minority > $arcologies[$i].ownership-10>>, a dangerously narrow margin over competition with a @@.tan;<<print Math.trunc(($arcologies[$i].minority*random(100-$economicUncertainty,100+$economicUncertainty))/100)>>%@@ share<</if>>.
	<</if>>
<</if>>
<<if $arcologies[$i].PCminority > 0>>You own @@.lime;$arcologies[$i].PCminority%@@ of this arcology<<if (($arcologies[$i].government == "your trustees") || ($arcologies[$i].government == "your agent")) && $arcologies[$i].minority > $arcologies[$i].PCminority-10>>, a dangerously narrow margin over competition with a @@.red;<<print Math.trunc(($arcologies[$i].minority*random(100-$economicUncertainty,100+$economicUncertainty))/100)>>%@@ share<</if>>.<</if>>
<<set $economicUncertainty -= Math.min(2*$assistantPower, $economicUncertainty)>>
The arcology has an estimated GSP of @@.yellowgreen;<<print cashFormat(Math.trunc((0.1*$arcologies[$i].prosperity*random(100-$economicUncertainty,100+$economicUncertainty))/100))>>m,@@
<<if Math.abs($arcologies[$i].prosperity - $averageProsperity) < 5>>
	average among
<<elseif $arcologies[$i].prosperity > $averageProsperity>>
	ahead of
<<else>>
	behind
<</if>>
its neighbors.

<<set $desc = 0>>
<<set _neighborDescription = []>>
<<if $arcologies[$i].FSSubjugationist != "unset">>
	<<if $arcologies[$i].FSSubjugationist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSSubjugationist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Racial Subjugationism,@@ and is ">>
	<<if $arcologies[$i].FSSubjugationist > 95>>
		<<set $desc = $desc + "the home of an advanced project to create a subservient race of ">>
		<<set $desc = $desc + $arcologies[$i].FSSubjugationistRace>>
		<<set $desc = $desc + " slaves.">>
	<<elseif $arcologies[$i].FSSubjugationist > 40>>
		<<set $desc = $desc + "working to refine ">>
		<<set $desc = $desc + $arcologies[$i].FSSubjugationistRace>>
		<<set $desc = $desc + " slavery.">>
	<<else>>
		<<set $desc = $desc + "an excellent dumping ground for low quality ">>
		<<set $desc = $desc + $arcologies[$i].FSSubjugationistRace>>
		<<set $desc = $desc + " slaves.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSSupremacist != "unset">>
	<<if $arcologies[$i].FSSubjugationist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSSubjugationist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Racial Supremacism,@@ and is ">>
	<<if $arcologies[$i].FSSubjugationist > 95>>
		<<set $desc = $desc + "a global magnet for ">>
		<<set $desc = $desc + $arcologies[$i].FSSupremacistRace>>
		<<set $desc = $desc + " nationalists.">>
	<<elseif $arcologies[$i].FSSubjugationist > 40>>
		<<set $desc = $desc + "becoming increasingly free of ">>
		<<set $desc = $desc + $arcologies[$i].FSSupremacistRace>>
		<<set $desc = $desc + " slaves.">>
	<<else>>
		<<set $desc = $desc + "the site of a furious debate over existing ">>
		<<set $desc = $desc + $arcologies[$i].FSSupremacistRace>>
		<<set $desc = $desc + " slaves.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSRepopulationFocus != "unset">>
	<<if $arcologies[$i].FSRepopulationFocus > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSRepopulationFocus > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Repopulation,@@ and is ">>
	<<if $arcologies[$i].FSRepopulationFocus > 95>>
		<<set $desc = $desc + "notorious for the size and number of pregnancies among its population.">>
	<<elseif $arcologies[$i].FSRepopulationFocus > 40>>
		<<set $desc = $desc + "known to be a good place to find slavegirls heavy with children.">>
	<<else>>
		<<set $desc = $desc + "actively importing fertile slave girls.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSRestart != "unset">>
	<<if $arcologies[$i].FSRestart > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSRestart > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Eugenics,@@ and is ">>
	<<if $arcologies[$i].FSRestart > 95>>
		<<set $desc = $desc + "notorious for the number of powerful civilians inhabiting it.">>
	<<elseif $arcologies[$i].FSRestart > 40>>
		<<set $desc = $desc + "known to be a good place make connections.">>
	<<else>>
		<<set $desc = $desc + "actively importing sterilization supplies.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSGenderRadicalist != "unset">>
	<<if $arcologies[$i].FSGenderRadicalist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSGenderRadicalist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Gender Radicalism,@@ and is ">>
	<<if $arcologies[$i].FSGenderRadicalist > 95>>
		<<set $desc = $desc + "notorious for the openness with which its citizens fuck its slavegirls in the ass until they cum.">>
	<<elseif $arcologies[$i].FSGenderRadicalist > 40>>
		<<set $desc = $desc + "known to be a good place to find slavegirls who cum when buttfucked.">>
	<<else>>
		<<set $desc = $desc + "actively importing a wider variety of slave girls.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSGenderFundamentalist != "unset">>
	<<if $arcologies[$i].FSGenderFundamentalist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSGenderFundamentalist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Gender Fundamentalism,@@ and is ">>
	<<if $arcologies[$i].FSGenderFundamentalist > 95>>
		<<set $desc = $desc + "famous for its slave schools, crowded with a future generation of world class slaves.">>
	<<elseif $arcologies[$i].FSGenderFundamentalist > 40>>
		<<set $desc = $desc + "remarkable for its crowds of hugely pregnant slave women.">>
	<<else>>
		<<set $desc = $desc + "importing increasing numbers of fertile slaves.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSPaternalist != "unset">>
	<<if $arcologies[$i].FSPaternalist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSPaternalist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Paternalism,@@ and is ">>
	<<if $arcologies[$i].FSPaternalist > 95>>
		<<set $desc = $desc + "the home of an educated, enlightened caste of slaves more productive than some arcologies' citizens.">>
	<<elseif $arcologies[$i].FSPaternalist > 40>>
		<<set $desc = $desc + "becoming known for its unusually cheerful atmosphere.">>
	<<else>>
		<<set $desc = $desc + "starting to demand abused slaves whose lives can be turned around.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSDegradationist != "unset">>
	<<if $arcologies[$i].FSDegradationist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSDegradationist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Degradationism,@@ and is ">>
	<<if $arcologies[$i].FSDegradationist > 95>>
		<<set $desc = $desc + "renowned and feared by slaves worldwide, as a place of blood and steel from which few ever leave.">>
	<<elseif $arcologies[$i].FSDegradationist > 40>>
		<<set $desc = $desc + "becoming dreaded by slaves, since the few it exports are full of unbelievably awful stories.">>
	<<else>>
		<<set $desc = $desc + "importing a rapidly increasing number of slaves, for some reason.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSIntellectualDependency != "unset">>
	<<if $arcologies[$i].FSIntellectualDependency > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSIntellectualDependency > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Intellectual Dependency,@@ and is ">>
	<<if $arcologies[$i].FSIntellectualDependency > 95>>
		<<set $desc = $desc + "both terrifying and alluring to slaves worldwide, as a place where none leave with any semblance of intelligence but always flaunt the enjoyment they've had.">>
	<<elseif $arcologies[$i].FSIntellectualDependency > 40>>
		<<set $desc = $desc + "becoming known for its unusually simple-minded chattel.">>
	<<else>>
		<<set $desc = $desc + "importanting large quantities of aphrodisiacs and psychosuppressants.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSSlaveProfessionalism != "unset">>
	<<if $arcologies[$i].FSSlaveProfessionalism > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSSlaveProfessionalism > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Slave Professionalism,@@ and is ">>
	<<if $arcologies[$i].FSSlaveProfessionalism > 95>>
		<<set $desc = $desc + "renowned as a source of some of the world's finest courtesans.">>
	<<elseif $arcologies[$i].FSSlaveProfessionalism > 40>>
		<<set $desc = $desc + "becoming revered as an intellectual paradise.">>
	<<else>>
		<<set $desc = $desc + "seeking out high-class slave trainers.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSBodyPurist != "unset">>
	<<if $arcologies[$i].FSBodyPurist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSBodyPurist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Body Purism,@@ and is ">>
	<<if $arcologies[$i].FSBodyPurist > 95>>
		<<set $desc = $desc + "a world leader in the drug industry due to its pharmaceutical research breakthroughs.">>
	<<elseif $arcologies[$i].FSBodyPurist > 40>>
		<<set $desc = $desc + "pouring an ever increasing amount of money into drug research.">>
	<<else>>
		<<set $desc = $desc + "setting up research programs to develop better slave drugs.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSTransformationFetishist != "unset">>
	<<if $arcologies[$i].FSTransformationFetishist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSTransformationFetishist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Transformation Fetishism,@@ and is ">>
	<<if $arcologies[$i].FSTransformationFetishist > 95>>
		<<set $desc = $desc + "renowned as the source of some of the world's most unbelievable surgical transformations.">>
	<<elseif $arcologies[$i].FSTransformationFetishist > 40>>
		<<set $desc = $desc + "rapidly moving from mere breast expansion to more esoteric surgical fetishism.">>
	<<else>>
		<<set $desc = $desc + "receiving daily shipments of silicone and surgical necessities.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSYouthPreferentialist != "unset">>
	<<if $arcologies[$i].FSYouthPreferentialist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSYouthPreferentialist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Youth Preferentialism,@@ and is ">>
	<<if $arcologies[$i].FSYouthPreferentialist > 95>>
		<<set $desc = $desc + "famous for the intense celebratory attention slaves receive there once reaching their majorities.">>
	<<elseif $arcologies[$i].FSYouthPreferentialist > 40>>
		<<set $desc = $desc + "moving virginity and the taking of virginity ever higher in the public estimation.">>
	<<else>>
		<<set $desc = $desc + "starting to get a reputation as an excellent place to get a good price for a virgin.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSMaturityPreferentialist != "unset">>
	<<if $arcologies[$i].FSMaturityPreferentialist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSMaturityPreferentialist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Maturity Preferentialism,@@ and is ">>
	<<if $arcologies[$i].FSMaturityPreferentialist > 95>>
		<<set $desc = $desc + "world famous among mature slaves, who see it as a paradise in which MILFs are the most valuable girls around.">>
	<<elseif $arcologies[$i].FSMaturityPreferentialist > 40>>
		<<set $desc = $desc + "striking for the variety of well-preserved beauties that can be seen there.">>
	<<else>>
		<<set $desc = $desc + "displaying an increasing demand for enslaved housewives and professional women.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSPetiteAdmiration != "unset">>
	<<if $arcologies[$i].FSPetiteAdmiration > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSPetiteAdmiration > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Petite Admiration,@@ and is ">>
	<<if $arcologies[$i].FSPetiteAdmiration > 95>>
		<<set $desc = $desc + "known as a place where even the shortest person can feel tall.">>
	<<elseif $arcologies[$i].FSPetiteAdmiration > 40>>
		<<set $desc = $desc + "investing large sums of money into petite clothing lines.">>
	<<else>>
		<<set $desc = $desc + "starting to accumulate an unusually large number of short slaves.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSStatuesqueGlorification != "unset">>
	<<if $arcologies[$i].FSStatuesqueGlorification > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSStatuesqueGlorification > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Statuesque Glorification,@@ and is ">>
	<<if $arcologies[$i].FSStatuesqueGlorification > 95>>
		<<set $desc = $desc + "world famous among tall slaves, who see it as a paradise in which they are valued above all.">>
	<<elseif $arcologies[$i].FSStatuesqueGlorification > 40>>
		<<set $desc = $desc + "going out of its way to import only the tallest of slaves.">>
	<<else>>
		<<set $desc = $desc + "starting to drive out its shorter citizenry.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSSlimnessEnthusiast != "unset">>
	<<if $arcologies[$i].FSSlimnessEnthusiast > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSSlimnessEnthusiast > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Slimness Enthusiasm,@@ and is ">>
	<<if $arcologies[$i].FSSlimnessEnthusiast > 95>>
		<<set $desc = $desc + "very well known for the wonderful variety of nubile bodies that can be seen there.">>
	<<elseif $arcologies[$i].FSSlimnessEnthusiast > 40>>
		<<set $desc = $desc + "becoming known as an arcology that slims slaves down rather than turning them into piles of tits and ass.">>
	<<else>>
		<<set $desc = $desc + "starting to display unusual fashions regarding breasts and butts.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSAssetExpansionist != "unset">>
	<<if $arcologies[$i].FSAssetExpansionist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSAssetExpansionist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Asset Expansionism,@@ and is ">>
	<<if $arcologies[$i].FSAssetExpansionist > 95>>
		<<set $desc = $desc + "widely considered an interior design masterpiece for its adaptations to slaves with fifty kilos of tits.">>
	<<elseif $arcologies[$i].FSAssetExpansionist > 40>>
		<<set $desc = $desc + "a popular tourist destination just for the view, which features some truly spectacular bare boobs.">>
	<<else>>
		<<set $desc = $desc + "demanding fatter slaves, since its citizens are learning they absorb growth hormones better.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSPastoralist != "unset">>
	<<if $arcologies[$i].FSPastoralist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSPastoralist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Pastoralist,@@ and is ">>
	<<if $arcologies[$i].FSPastoralist > 95>>
		<<set $desc = $desc + "a world-renowned producer of cowgirl dairy products of all kinds.">>
	<<elseif $arcologies[$i].FSPastoralist > 40>>
		<<set $desc = $desc + "devoting more and more of its slaves to work as cowgirls, or to the service and upkeep of cowgirls.">>
	<<else>>
		<<set $desc = $desc + "displaying an increasing public appetite for dairy, and yet imports almost no true cow's milk.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSCummunism != "unset">>
	<<if $arcologies[$i].FSCummunism > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSCummunism > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Cummunism,@@ and is ">>
	<<if $arcologies[$i].FSCummunism > 95>>
		<<set $desc = $desc + "a world-renowned producer of cum-based products of all kinds.">>
	<<elseif $arcologies[$i].FSCummunism > 40>>
		<<set $desc = $desc + "devoting more and more of its slaves to work as cumtanks, or to the service, upkeep and milking of ballgirls.">>
	<<else>>
		<<set $desc = $desc + "displaying an increasing public appetite for cum, and has begun importing more and more specialized milkers.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSPhysicalIdealist != "unset">>
	<<if $arcologies[$i].FSPhysicalIdealist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSPhysicalIdealist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Physical Idealism,@@ and is ">>
	<<if $arcologies[$i].FSPhysicalIdealist > 95>>
		<<set $desc = $desc + "a constant standout at international athletic competitions, where both its citizens and slaves do very well.">>
	<<elseif $arcologies[$i].FSPhysicalIdealist > 40>>
		<<set $desc = $desc + "quite a sight, since its citizens and slaves all lift. Constantly.">>
	<<else>>
		<<set $desc = $desc + "the site of a musclegirl fetish community.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSHedonisticDecadence != "unset">>
	<<if $arcologies[$i].FSHedonisticDecadence > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSHedonisticDecadence > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Hedonistic Decadence,@@ and is ">>
	<<if $arcologies[$i].FSHedonisticDecadence > 95>>
		<<set $desc = $desc + "very well known as a place where every imaginable desire and fantasy can be fulfilled.">>
	<<elseif $arcologies[$i].FSHedonisticDecadence > 40>>
		<<set $desc = $desc + "importing huge amounts of food and alcohol">>
	<<else>>
		<<set $desc = $desc + "the site of a large number of lazy individuals.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSIncestFetishist != "unset">>
	<<if $arcologies[$i].FSIncestFetishist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSIncestFetishist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Incest Fetishism,@@ and is ">>
	<<if $arcologies[$i].FSIncestFetishist > 95>>
		<<set $desc = $desc + "highly recommended as a place to stop by if you like threesomes with twins or familial gangbangs.">>
	<<elseif $arcologies[$i].FSIncestFetishist > 40>>
		<<set $desc = $desc + "attracting a substantial number of families.">>
	<<else>>
		<<set $desc = $desc + "devoting more and more of its resources into genealogy.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSChattelReligionist != "unset">>
	<<if $arcologies[$i].FSChattelReligionist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSChattelReligionist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Chattel Religionism,@@ and is ">>
	<<if $arcologies[$i].FSChattelReligionist > 95>>
		<<set $desc = $desc + "a significant force in the global development of Chattel Religionist dogma.">>
	<<elseif $arcologies[$i].FSChattelReligionist > 40>>
		<<set $desc = $desc + "a popular destination for devout old world citizens engaging in sex tourism.">>
	<<else>>
		<<set $desc = $desc + "in the throes of public dissention over its religious laws.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSRomanRevivalist != "unset">>
	<<if $arcologies[$i].FSRomanRevivalist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSRomanRevivalist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Roman Revivalism,@@ and is ">>
	<<if $arcologies[$i].FSRomanRevivalist > 95>>
		<<set $desc = $desc + "hugely famous for its broadcasts of gladiatorial combat, popular even in the old world.">>
	<<elseif $arcologies[$i].FSRomanRevivalist > 40>>
		<<set $desc = $desc + "almost obnoxiously aspirational, with citizens competing to serve the state best.">>
	<<else>>
		<<set $desc = $desc + "working its way through sword and sandals fashion towards proper historicity.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSAztecRevivalist != "unset">>
	<<if $arcologies[$i].FSAztecRevivalist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSAztecRevivalist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Aztec Revivalism,@@ and is ">>
	<<if $arcologies[$i].FSAztecRevivalist > 95>>
		<<set $desc = $desc + "world famous for its incredible architecture and highly qualified leading caste and military.">>
	<<elseif $arcologies[$i].FSAztecRevivalist > 40>>
		<<set $desc = $desc + "constructing great pyramids and statues with equally weighty costs.">>
	<<else>>
		<<set $desc = $desc + "struggling to embrace the amount of blood sacrifice and prayer involved.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSEgyptianRevivalist != "unset">>
	<<if $arcologies[$i].FSEgyptianRevivalist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSEgyptianRevivalist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Egyptian Revivalism,@@ and is ">>
	<<if $arcologies[$i].FSEgyptianRevivalist > 95>>
		<<set $desc = $desc + "a world famous tourist destination for the traditional festival in its plaza, which never stops.">>
	<<elseif $arcologies[$i].FSEgyptianRevivalist > 40>>
		<<set $desc = $desc + "very much under renovation, as vast blocks of stone are imported around the clock.">>
	<<else>>
		<<set $desc = $desc + "struggling with the fashion implications of so much white linen everywhere.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSEdoRevivalist != "unset">>
	<<if $arcologies[$i].FSEdoRevivalist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSEdoRevivalist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Edo Revivalism,@@ and is ">>
	<<if $arcologies[$i].FSEdoRevivalist > 95>>
		<<set $desc = $desc + "visibly trailing cherry blossoms, blown off its balconies by the wind.">>
	<<elseif $arcologies[$i].FSEdoRevivalist > 40>>
		<<set $desc = $desc + "becoming a notable cultural center, even in the old world.">>
	<<else>>
		<<set $desc = $desc + "the object of considerable debate among socially awkward teenagers worldwide.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSArabianRevivalist != "unset">>
	<<if $arcologies[$i].FSArabianRevivalist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSArabianRevivalist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
	<<set $desc = "just establishing ">>
		<</if>>
	<<set $desc = $desc + "@@.gold;Arabian Revivalism,@@ and is ">>
	<<if $arcologies[$i].FSArabianRevivalist > 95>>
		<<set $desc = $desc + "a famous center of Arabian romanticism, since it has the wisdom not to be historically perfect.">>
	<<elseif $arcologies[$i].FSArabianRevivalist > 40>>
		<<set $desc = $desc + "working through which parts of Arabian romanticism to adopt and which to discard.">>
	<<else>>
		<<set $desc = $desc + "eagerly reveling in the most romantic parts of superficial Arabian romanticism.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>
<<if $arcologies[$i].FSChineseRevivalist != "unset">>
	<<if $arcologies[$i].FSChineseRevivalist > 80>>
		<<set $desc = "committed to ">>
	<<elseif $arcologies[$i].FSChineseRevivalist > 20>>
		<<set $desc = "pursuing ">>
	<<else>>
		<<set $desc = "just establishing ">>
	<</if>>
	<<set $desc = $desc + "@@.gold;Chinese Revivalism,@@ and is ">>
	<<if $arcologies[$i].FSChineseRevivalist > 95>>
		<<set $desc = $desc + "now confidently mature about its possession of the Mandate of Heaven.">>
	<<elseif $arcologies[$i].FSChineseRevivalist > 40>>
		<<set $desc = $desc + "often aggressive about its status as the middle kingdom to the point that it betrays uncertainty.">>
	<<else>>
		<<set $desc = $desc + "moving towards a stage of refinement that will allow it to present itself properly.">>
	<</if>>
	<<set _neighborDescription.push($desc)>>
<</if>>

<<if _neighborDescription.length > 0>>
	<<if _neighborDescription.length > 2>>
		Its culture is complex. First, it is _neighborDescription[0]
		<<for $j = 1; $j < _neighborDescription.length; $j++>>
			<<if $j < _neighborDescription.length-1>>It is<<else>>Finally, the arcology is<</if>> _neighborDescription[$j]
		<</for>>
	<<elseif _neighborDescription.length == 2>>
		Its culture is developing along two lines. First, it is _neighborDescription[0] Second, it is _neighborDescription[1]
	<<else>>
		Its culture is diverging from the old world: it is _neighborDescription[0]
	<</if>>
<</if>>

repo_name: IchthysdeKilt/fc

license: mit


code:
:: Neighbor Interact [nobr]

<<if def $buyArcologyDirection>>
	<<run delete $buyArcologyDirection>>
<</if>>
<<if def $sellArcologyDirection>>
	<<run delete $sellArcologyDirection>>
<</if>>
<<if def $transaction>>
	<<run delete $transaction>>
<</if>>

<<set $averageProsperity = 0>>
<<set _neighboringArcologyCount = 0>>
<<for $i = 0; $i < $arcologies.length; $i++>>
	<<set $averageProsperity += $arcologies[$i].prosperity>>
	<<set _neighboringArcologyCount += 1>>
<</for>>
<<set $averageProsperity = $averageProsperity/_neighboringArcologyCount>>

<<if $cheatMode == 1>>
	[[Cheat Edit Neighboring Arcologies|MOD_Edit Neighbor Arcology Cheat]]

<</if>>

<<if $sideBarOptions.compact > 0>>
	<<set $nextLink = "Manage Arcology">>
<<else>>
	<<set $nextLink = "Main">>
<</if>>
<<set $nextButton = "Back">>
You have <<print $arcologies.length-1>> neighbors.

<<if $arcologies[0].embargoTarget == -1>>
	You are not engaged in economic warfare against a neighboring arcology.
<<else>>
	<<set _nei = $arcologies.findIndex(function(s) { return s.direction == $arcologies[0].embargoTarget; })>>
	You have targeted '' $arcologies[_nei].name'' for economic warfare.

    Its planned impacts will be
	<<if $arcologies[0].embargo == 3>>
		''widespread.'' [[Moderate|Neighbor Interact][$arcologies[0].embargo -= 1]]
	<<elseif $arcologies[0].embargo == 2>>
		''limited.'' [[Intensify|Neighbor Interact][$arcologies[0].embargo += 1]] | [[Moderate|Neighbor Interact][$arcologies[0].embargo -= 1]]
	<<else>>
		''nominal.'' [[Intensify|Neighbor Interact][$arcologies[0].embargo += 1]]
	<</if>>
	| [[Cancel|Neighbor Interact][$arcologies[0].embargoTarget = -1]]
<</if>>

<<if $arcologies[0].influenceTarget == -1>>
	You are not using your arcology's culture to attempt to influence neighboring arcologies' development.
<<else>>
	<<set _nei = $arcologies.findIndex(function(s) { return s.direction == $arcologies[0].influenceTarget; })>>
	You have targeted '' $arcologies[_nei].name'' for cultural influence.
	[[Stop|Neighbor Interact][$arcologies[0].influenceTarget = -1]]
<</if>>

<<if $PC.skill.hacking > 0>>

	<<if $arcologies[0].CyberEconomicTarget == -1>>
		You are not engaged in cyber warfare against a neighboring arcology.
	<<else>>
		<<set _nei = $arcologies.findIndex(function(s) { return s.direction == $arcologies[0].CyberEconomicTarget; })>>
		You have targeted ''$arcologies[_nei].name'' for cyber economic warfare.

    Its planned impacts will be
		<<if $arcologies[0].CyberEconomic == 3>>
			''widespread.'' [[Moderate|Neighbor Interact][$arcologies[0].CyberEconomic -= 1]]
		<<elseif $arcologies[0].CyberEconomic == 2>>
			''limited.'' [[Intensify|Neighbor Interact][$arcologies[0].CyberEconomic += 1]] | [[Moderate|Neighbor Interact][$arcologies[0].CyberEconomic -= 1]]
		<<else>>
			''nominal.'' [[Intensify|Neighbor Interact][$arcologies[0].CyberEconomic += 1]]
		<</if>>
		| [[Revert|Neighbor Interact][$arcologies[0].CyberEconomicTarget = -1]]
	<</if>>

	<<if $arcologies[0].CyberReputationTarget == -1>>
		You are not engaged in character assassination against a neighboring arcology.
	<<else>>
		<<set _nei = $arcologies.findIndex(function(s) { return s.direction == $arcologies[0].CyberReputationTarget; })>>
		You have targeted the leadership of ''$arcologies[_nei].name'' for character assassination.

    Its planned impacts will be
		<<if $arcologies[0].CyberReputation == 3>>
			''widespread.'' [[Moderate|Neighbor Interact][$arcologies[0].CyberReputation -= 1]]
		<<elseif $arcologies[0].CyberReputation == 2>>
			''limited.'' [[Intensify|Neighbor Interact][$arcologies[0].CyberReputation += 1]] | [[Moderate|Neighbor Interact][$arcologies[0].CyberReputation -= 1]]
		<<else>>
			''nominal.'' [[Intensify|Neighbor Interact][$arcologies[0].CyberReputation += 1]]
		<</if>>
		| [[Abort|Neighbor Interact][$arcologies[0].CyberReputationTarget = -1]]
	<</if>>
<</if>>

<<set $desc = []>>
<<if $arcologies[0].FSSubjugationist > 60>>
	<<set $desc.push("Racial Subjugation")>>
<</if>>
<<if $arcologies[0].FSSupremacist > 60>>
	<<set $desc.push("Racial Supremacy")>>
<</if>>
<<if $arcologies[0].FSRepopulationFocus > 60>>
	<<set $desc.push("Repopulation Focus")>>
<</if>>
<<if $arcologies[0].FSRestart > 60>>
	<<set $desc.push("Eugenics")>>
<</if>>
<<if $arcologies[0].FSGenderRadicalist > 60>>
	<<set $desc.push("Gender Radicalism")>>
<</if>>
<<if $arcologies[0].FSGenderFundamentalist > 60>>
	<<set $desc.push("Gender Fundamentalism")>>
<</if>>
<<if $arcologies[0].FSPaternalist > 60>>
	<<set $desc.push("Paternalism")>>
<</if>>
<<if $arcologies[0].FSDegradationist > 60>>
	<<set $desc.push("Degradationism")>>
<</if>>
<<if $arcologies[0].FSBodyPurist > 60>>
	<<set $desc.push("Body Purism")>>
<</if>>
<<if $arcologies[0].FSTransformationFetishist > 60>>
	<<set $desc.push("Transformation Fetishism")>>
<</if>>
<<if $arcologies[0].FSYouthPreferentialist > 60>>
	<<set $desc.push("Youth Preferentialism")>>
<</if>>
<<if $arcologies[0].FSMaturityPreferentialist > 60>>
	<<set $desc.push("Maturity Preferentialism")>>
<</if>>
<<if $arcologies[0].FSSlimnessEnthusiast > 60>>
	<<set $desc.push("Slimness Enthusiasm")>>
<</if>>
<<if $arcologies[0].FSAssetExpansionist > 60>>
	<<set $desc.push("Asset Expansionism")>>
<</if>>
<<if $arcologies[0].FSPastoralist > 60>>
	<<set $desc.push("Pastoralism")>>
<</if>>
<<if $arcologies[0].FSCummunism > 60>>
	<<set $desc.push("Cummunism")>>
<</if>>
<<if $arcologies[0].FSPhysicalIdealist > 60>>
	<<set $desc.push("Physical Idealism")>>
<</if>>
<<if $arcologies[0].FSHedonisticDecadence > 60>>
	<<set $desc.push("Hedonistic Decadence")>>
<</if>>
<<if $arcologies[0].FSIncestFetishist > 60>>
	<<set $desc.push("Incest Fetishism")>>
<</if>>
<<if $arcologies[0].FSIntellectualDependency > 60>>
	<<set $desc.push("Intellectual Dependency")>>
<</if>>
<<if $arcologies[0].FSSlaveProfessionalism > 60>>
	<<set $desc.push("Slave Professionalism")>>
<</if>>
<<if $arcologies[0].FSPetiteAdmiration > 60>>
	<<set $desc.push("Petite Admiration")>>
<</if>>
<<if $arcologies[0].FSStatuesqueGlorification > 60>>
	<<set $desc.push("Statuesque Glorification")>>
<</if>>
<<if $arcologies[0].FSChattelReligionist > 60>>
	<<set $desc.push("Chattel Religionism")>>
<</if>>
<<if $arcologies[0].FSRomanRevivalist > 60>>
	<<set $desc.push("Roman Revivalism")>>
<</if>>
<<if $arcologies[0].FSAztecRevivalist > 60>>
	<<set $desc.push("Aztec Revivalism")>>
<</if>>
<<if $arcologies[0].FSEgyptianRevivalist > 60>>
	<<set $desc.push("Egyptian Revivalism")>>
<</if>>
<<if $arcologies[0].FSEdoRevivalist > 60>>
	<<set $desc.push("Edo Revivalism")>>
<</if>>
<<if $arcologies[0].FSArabianRevivalist > 60>>
	<<set $desc.push("Arabian Revivalism")>>
<</if>>
<<if $arcologies[0].FSChineseRevivalist > 60>>
	<<set $desc.push("Chinese Revivalism")>>
<</if>>

<<if $desc.length == 0>>
	Your arcology's culture has not developed to the point where it can meaningfully influence other arcologies.
<<elseif $desc.length > 2>>
	Your arcology's mature culture is capable of exerting great cultural sway over other arcologies. It can readily project $desc[0],
	<<for $i = 1; $i < $desc.length; $i++>>
		<<if $i < $desc.length-1>>
			$desc[$i],
		<<else>>
			and $desc[$i].
		<</if>>
	<</for>>
<<elseif $desc.length == 2>>
	Your arcology's culture is capable of exerting some cultural sway over other arcologies. It can effectively project $desc[0] and $desc[1].
<<else>>
	Your arcology's culture is capable of starting to exert cultural sway over other arcologies. It can project $desc[0].
<</if>>

<<for _currentNeighbor = 1; _currentNeighbor < $arcologies.length; _currentNeighbor++>>
<<capture _currentNeighbor>>
	<<= App.currentAgent()>>
	<<set $arcologies[_currentNeighbor].prosperity = Math.clamp($arcologies[_currentNeighbor].prosperity, 1, 300)>>

You own $arcologies[_currentNeighbor].PCminority% of
	<<link "$arcologies[_currentNeighbor].name">>
	<<replace "#Security">> <<set $activeArcologyIdx = _currentNeighbor>>

[[Back to the main diplomacy page|Neighbor Interact]]
	<<set $i = _currentNeighbor>> <<include "Neighbor Description">>

		<<set _ownershipCost = 500*Math.trunc($arcologies[_currentNeighbor].prosperity*(1+($arcologies[_currentNeighbor].demandFactor/100)))>>

A 1% interest in this arcology is worth <<print cashFormat(_ownershipCost)>>.
		<<if ($arcologies[_currentNeighbor].ownership + $arcologies[_currentNeighbor].PCminority + $arcologies[_currentNeighbor].minority < 100)>>
			The transaction fee is <<print cashFormat(10000)>>.
		<</if>>
		<<if ($arcologies[_currentNeighbor].ownership + $arcologies[_currentNeighbor].PCminority + $arcologies[_currentNeighbor].minority < 100)>>

			<<link "Buy" "Neighbor Interact">>
				<<run cashX(forceNeg(_ownershipCost), "war")>>
				<<run cashX(-10000, "war")>>
				<<set $arcologies[_currentNeighbor].PCminority += 1>>
				<<set $arcologies[_currentNeighbor].demandFactor += 1*5>>
			<</link>>
			<<if ($arcologies[_currentNeighbor].ownership + $arcologies[_currentNeighbor].PCminority + $arcologies[_currentNeighbor].minority <= 90)>>
				<<if $cash > _ownershipCost*10>>
					| <<link "10%" "Neighbor Interact">>
						<<run cashX(forceNeg(_ownershipCost*10), "war")>>
						<<run cashX(-10000, "war")>>
						<<set $arcologies[_currentNeighbor].PCminority += 10>>
						<<set $arcologies[_currentNeighbor].demandFactor += 10*5>>
					<</link>>
					//Transaction costs will only be paid once.//
				<</if>>
			<</if>>
		<</if>>

		<<if $arcologies[_currentNeighbor].PCminority > 0>>

			<<link "Sell" "Neighbor Interact">>
				<<run cashX(_ownershipCost, "war")>>
				<<set $arcologies[_currentNeighbor].PCminority -= 1>>
				<<set $arcologies[_currentNeighbor].demandFactor -= 1*2>>
				<<if $arcologies[_currentNeighbor].government != "your agent" && $arcologies[_currentNeighbor].government != "your trustees" && $arcologies[_currentNeighbor].rival != 1>>
					<<if $arcologies[_currentNeighbor].ownership + $arcologies[_currentNeighbor].PCminority + $arcologies[_currentNeighbor].minority < 10>>
						<<set $arcologies[_currentNeighbor].ownership += 10>>
					<</if>>
				<</if>>
			<</link>>
			<<if $arcologies[_currentNeighbor].PCminority >= 10>>
				| <<link "10%" "Neighbor Interact">>
					<<run cashX((_ownershipCost*10), "war")>>
					<<set $arcologies[_currentNeighbor].PCminority -= 10>>
					<<set $arcologies[_currentNeighbor].demandFactor -= 10*2>>
					<<if $arcologies[_currentNeighbor].government != "your agent" && $arcologies[_currentNeighbor].government != "your trustees" && $arcologies[_currentNeighbor].rival != 1>>
						<<if $arcologies[_currentNeighbor].ownership + $arcologies[_currentNeighbor].PCminority + $arcologies[_currentNeighbor].minority < 10>>
							<<set $arcologies[_currentNeighbor].ownership += 10>>
						<</if>>
					<</if>>
			<</link>>
			<</if>>
		<</if>>

		<<if $arcologies[_currentNeighbor].direction !== $arcologies[0].embargoTarget>>

[[Target them for economic warfare|Neighbor Interact][$arcologies[0].embargoTarget = $arcologies[_currentNeighbor].direction]]
		<</if>>

		<<if $PC.skill.hacking > 0>>
			<<if $arcologies[_currentNeighbor].direction !== $arcologies[0].CyberEconomicTarget>>

[[Target them for cyber economic warfare|Neighbor Interact][$arcologies[0].CyberEconomicTarget = $arcologies[_currentNeighbor].direction]]
			<</if>>
			<<if $arcologies[_currentNeighbor].direction !== $arcologies[0].CyberReputationTarget>>

[[Target their leadership for character assassination|Neighbor Interact][$arcologies[0].CyberReputationTarget = $arcologies[_currentNeighbor].direction]]
			<</if>>
		<</if>>
		<<if $desc.length > 0>>
			<<if $arcologies[_currentNeighbor].direction !== $arcologies[0].influenceTarget>>

[[Set as influence target|Neighbor Interact][$arcologies[0].influenceTarget = $arcologies[_currentNeighbor].direction]]
			<</if>>
		<</if>>

	<<if $arcologies[_currentNeighbor].government == "your trustees" || $arcologies[_currentNeighbor].government == "your agent">>

		<<if $arcologies[_currentNeighbor].government == "your trustees">>
			[[Appoint an agent|Agent Select]] <<set $him = "them">>
		<<else>>
			<<setLocalPronouns _Agent>>
			Your agent @@.deeppink;<<= SlaveFullName(_Agent)>>@@ is running this arcology. [["Recall and reenslave " + $him|Agent Retrieve][]]
		<</if>>
		 | <<link "Instruct $him to rename the arcology">><<replace #rename>> | <<textbox "$arcologies[$activeArcologyIdx].name" $arcologies[$activeArcologyIdx].name>> [[Confirm name|Neighbor Interact]]<</replace>><</link>>
		<<if $arcologies[_currentNeighbor].government === "your agent">>

$His <<if _Agent.intelligence > 95>>brilliance<<else>>intelligence<</if>> and education are the most important qualities for $him.
			<<if _Agent.actualAge > 35>>
				As with the Head Girl position, $his age and experience lend $him leadership weight.
			<</if>>
			<<if _Agent.career == "an arcology owner">>
				$His career as an arcology owner $himself is, obviously, useful to $him.
			<<elseif setup.HGCareers.includes(_Agent.career)>>
				$His career in leadership helps $him.
			<</if>>
			<<if _Agent.fetishStrength > 95>>
				<<if (_Agent.fetish == "dom") || (_Agent.fetish == "sadist")>>
					$His sexually dominant fetish helps $him fill a leadership role.
				<<elseif (_Agent.fetish == "submissive") || (_Agent.fetish == "masochist")>>
					Unfortunately, $he has an inappropriate fetish for a leader.
				<<else>>
					$His sexual fetishes will influence how $he leads the arcology.
				<</if>>
			<</if>>
			<<if _Agent.energy > 95>>
				Finally, $his sexual depravity lets $him fit into arcology society naturally.
			<</if>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSSubjugationist != "unset">>

<<link "Force Abandonment of Racial Subjugation">><<set $arcologies[_currentNeighbor].FSSubjugationist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSSupremacist != "unset">>

<<link "Force Abandonment of Racial Supremacy">><<set $arcologies[_currentNeighbor].FSSupremacist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSRepopulationFocus != "unset">>

<<link "Force Abandonment of Repopulationism">><<set $arcologies[_currentNeighbor].FSRepopulationFocus = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSRestart != "unset">>

<<link "Force Abandonment of Eugenics">><<set $arcologies[_currentNeighbor].FSRestart = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSGenderRadicalist != "unset">>

<<link "Force Abandonment of Gender Radicalism">><<set $arcologies[_currentNeighbor].FSGenderRadicalist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSIntellectualDependency != "unset">>

<<link "Force Abandonment of Intellectual Dependency">><<set $arcologies[_currentNeighbor].FSIntellectualDependency = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSSlaveProfessionalism != "unset">>

<<link "Force Abandonment of Slave Professionalism">><<set $arcologies[_currentNeighbor].FSSlaveProfessionalism = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSGenderFundamentalist != "unset">>

<<link "Force Abandonment of Gender Fundamentalism">><<set $arcologies[_currentNeighbor].FSGenderFundamentalist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSPaternalist != "unset">>

<<link "Force Abandonment of Paternalism">><<set $arcologies[_currentNeighbor].FSPaternalist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSDegradationist != "unset">>

<<link "Force Abandonment of Degradationism">><<set $arcologies[_currentNeighbor].FSDegradationist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSBodyPurist != "unset">>

<<link "Force Abandonment of Body Purism">><<set $arcologies[_currentNeighbor].FSBodyPurist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSTransformationFetishist != "unset">>

<<link "Force Abandonment of Transformation Fetishism">><<set $arcologies[_currentNeighbor].FSTransformationFetishist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSYouthPreferentialist != "unset">>

<<link "Force Abandonment of Youth Preferentialism">><<set $arcologies[_currentNeighbor].FSYouthPreferentialist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSMaturityPreferentialist != "unset">>

<<link "Force Abandonment of Maturity Preferentialism">><<set $arcologies[_currentNeighbor].FSMaturityPreferentialist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSPetiteAdmiration != "unset">>

<<link "Force Abandonment of Petite Admiration">><<set $arcologies[_currentNeighbor].FSPetiteAdmiration = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSStatuesqueGlorification != "unset">>

<<link "Force Abandonment of Statuesque Glorification">><<set $arcologies[_currentNeighbor].FSStatuesqueGlorification = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSSlimnessEnthusiast != "unset">>

<<link "Force Abandonment of Slimness Enthusiasm">><<set $arcologies[_currentNeighbor].FSSlimnessEnthusiast = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSAssetExpansionist != "unset">>

<<link "Force Abandonment of Asset Expansionism">><<set $arcologies[_currentNeighbor].FSAssetExpansionist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSPastoralist != "unset">>

<<link "Force Abandonment of Pastoralism">><<set $arcologies[_currentNeighbor].FSPastoralist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSCummunism != "unset">>

<<link "Force Abandonment of Cummunism">><<set $arcologies[_currentNeighbor].FSCummunism = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSPhysicalIdealist != "unset">>

<<link "Force Abandonment of Physical Idealism">><<set $arcologies[_currentNeighbor].FSPhysicalIdealist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSHedonisticDecadence != "unset">>

<<link "Force Abandonment of Hedonistic Decadence">><<set $arcologies[_currentNeighbor].FSHedonisticDecadence = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSIncestFetishist != "unset">>

<<link "Force Abandonment of Incest Fetishism">><<set $arcologies[_currentNeighbor].FSIncestFetishist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSChattelReligionist != "unset">>

<<link "Force Abandonment of Chattel Religionism">><<set $arcologies[_currentNeighbor].FSChattelReligionist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSRomanRevivalist != "unset">>

<<link "Force Abandonment of Roman Revivalism">><<set $arcologies[_currentNeighbor].FSRomanRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSAztecRevivalist !== "unset">>

<<link "Force Abandonment of Aztec Revivalism">><<set $arcologies[_currentNeighbor].FSAztecRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSEgyptianRevivalist != "unset">>

<<link "Force Abandonment of Egyptian Revivalism">><<set $arcologies[_currentNeighbor].FSEgyptianRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSEdoRevivalist != "unset">>

<<link "Force Abandonment of Edo Revivalism">><<set $arcologies[_currentNeighbor].FSEdoRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSArabianRevivalist != "unset">>

<<link "Force Abandonment of Arabian Revivalism">><<set $arcologies[_currentNeighbor].FSArabianRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
		<<if $arcologies[_currentNeighbor].FSChineseRevivalist != "unset">>

<<link "Force Abandonment of Chinese Revivalism">><<set $arcologies[_currentNeighbor].FSChineseRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
		<</if>>
	<</if>>

	If $arcologies[_currentNeighbor].name has developed enough to begin exporting worthwhile goods, it may be of interest to acquire some.
	<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>
		Since it is under your control, it is no problem at all to request the transfer of goods to $arcologies[0].name.
	<<elseif $PC.skill.hacking >= 50>>
		It is within your skills to redirect an outgoing shipment to $arcologies[0].name for your retrieval.
	<<elseif $arcologies[_currentNeighbor].direction === $arcologies[0].embargoTarget>>
		Due to your active embargo, trade with $arcologies[_currentNeighbor].name is not possible.
	<<else>>
		<<set _opinion = arcologyOpinion($arcologies[_currentNeighbor], $arcologies[0])>>
		<<set _prices = _opinion*10>>
	<</if>>
	<<if $arcologies[_currentNeighbor].FSRomanRevivalist > 95>>
		<<if !isItemAccessible("a toga")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of togas" "Neighbor Interact">>
					<<set $clothesBoughtToga = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of togas" "Neighbor Interact">>
					<<set $clothesBoughtToga = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of togas" "Neighbor Interact">>
					<<set $clothesBoughtToga = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough togas.
		<</if>>
		<<set _exports = 1>>
	<<elseif $arcologies[_currentNeighbor].FSEdoRevivalist > 95>>
		<<if !isItemAccessible("a kimono")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of kimonos" "Neighbor Interact">>
					<<set $clothesBoughtKimono = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of kimonos" "Neighbor Interact">>
					<<set $clothesBoughtKimono = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of kimonos" "Neighbor Interact">>
					<<set $clothesBoughtKimono = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough kimonos.
		<</if>>
		<<set _exports = 1>>
	<<elseif $arcologies[_currentNeighbor].FSArabianRevivalist > 95>>
		<<if !isItemAccessible("harem gauze")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of silken harem garb" "Neighbor Interact">>
					<<set $clothesBoughtHarem = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of silken harem garb" "Neighbor Interact">>
					<<set $clothesBoughtHarem = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of silken harem garb" "Neighbor Interact">>
					<<set $clothesBoughtHarem = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough silk.
		<</if>>
		<<set _exports = 1>>
	<<elseif $arcologies[_currentNeighbor].FSAztecRevivalist > 95>>
		<<if !isItemAccessible("a huipil")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of huipils" "Neighbor Interact">>
					<<set $clothesBoughtHuipil = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of huipils" "Neighbor Interact">>
					<<set $clothesBoughtHuipil = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of huipils" "Neighbor Interact">>
					<<set $clothesBoughtHuipil = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough huipils.
		<</if>>
		<<set _exports = 1>>
	<<elseif $arcologies[_currentNeighbor].FSChineseRevivalist > 95>>
		<<if !isItemAccessible("a slutty qipao")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of qipaos" "Neighbor Interact">>
					<<set $clothesBoughtQipao = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of qipaos" "Neighbor Interact">>
					<<set $clothesBoughtQipao = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of qipaos" "Neighbor Interact">>
					<<set $clothesBoughtQipao = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough skimpy qipaos.
		<</if>>
		<<set _exports = 1>>
	<<elseif $arcologies[_currentNeighbor].FSEgyptianRevivalist > 95>>
		<<if !isItemAccessible("ancient Egyptian")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of Egyptian necklace replicas" "Neighbor Interact">>
					<<set $clothesBoughtEgypt = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of Egyptian necklace replicas" "Neighbor Interact">>
					<<set $clothesBoughtEgypt = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of Egyptian necklace replicas" "Neighbor Interact">>
					<<set $clothesBoughtEgypt = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough replicas of Egyptian necklaces.
		<</if>>
		<<set _exports = 1>>
	<</if>>
	<<if $arcologies[_currentNeighbor].FSPaternalist > 95>>
		<<if !isItemAccessible("conservative clothing")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of conservative clothing" "Neighbor Interact">>
					<<set $clothesBoughtConservative = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of conservative clothing" "Neighbor Interact">>
					<<set $clothesBoughtConservative = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of conservative clothing" "Neighbor Interact">>
					<<set $clothesBoughtConservative = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough modest clothing.
		<</if>>
		<<set _exports = 1>>
	<<elseif $arcologies[_currentNeighbor].FSDegradationist > 95>>
		<<if !isItemAccessible("chains")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of binding chains" "Neighbor Interact">>
					<<set $clothesBoughtChains = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of binding chains" "Neighbor Interact">>
					<<set $clothesBoughtChains = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of binding chains" "Neighbor Interact">>
					<<set $clothesBoughtChains = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough chains.
		<</if>>
		<<set _exports = 1>>
	<</if>>
	<<if $arcologies[_currentNeighbor].FSGenderFundamentalist > 95>>
		<<if !isItemAccessible("a bunny outfit")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of bunny suits" "Neighbor Interact">>
					<<set $clothesBoughtBunny = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of bunny suits" "Neighbor Interact">>
					<<set $clothesBoughtBunny = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of bunny suits" "Neighbor Interact">>
					<<set $clothesBoughtBunny = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough bunny suits and bowties.
		<</if>>
		<<set _exports = 1>>
	<</if>>
	<<if $arcologies[_currentNeighbor].FSIntellectualDependency > 95>>
		<<if !isItemAccessible("a bimbo outfit")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of outfits suitable for bimbos" "Neighbor Interact">>
					<<set $clothesBoughtBimbo = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of outfits suitable for bimbos" "Neighbor Interact">>
					<<set $clothesBoughtBimbo = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of outfits suitable for bimbos" "Neighbor Interact">>
					<<set $clothesBoughtBimbo = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough bimbo attire.
		<</if>>
		<<set _exports = 1>>
	<</if>>
	<<if $arcologies[_currentNeighbor].FSSlaveProfessionalism > 95>>
		<<if !isItemAccessible("a courtesan dress")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of courtesan dresses" "Neighbor Interact">>
					<<set $clothesBoughtCourtesan = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of courtesan dresses" "Neighbor Interact">>
					<<set $clothesBoughtCourtesan = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of courtesan dresses" "Neighbor Interact">>
					<<set $clothesBoughtCourtesan = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough courtesan dresses.
		<</if>>
		<<set _exports = 1>>
	<</if>>
	/*
	<<if $arcologies[_currentNeighbor].FSPetiteAdmiration > 95>>
		<<if !isItemAccessible("temp")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of petite-sized dresses" "Neighbor Interact">>
					<<set $clothesBoughtPetite = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of petite-sized dresses" "Neighbor Interact">>
					<<set $clothesBoughtPetite = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of petite-sized dresses" "Neighbor Interact">>
					<<set $clothesBoughtPetite = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough temp.
		<</if>>
		<<set _exports = 1>>
	<</if>>
	*/
	<<if $arcologies[_currentNeighbor].FSPhysicalIdealist > 95>>
		<<if !isItemAccessible("body oil")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of body oil" "Neighbor Interact">>
					<<set $clothesBoughtOil = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of body oil" "Neighbor Interact">>
					<<set $clothesBoughtOil = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of body oil" "Neighbor Interact">>
					<<set $clothesBoughtOil = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough body oil.
		<</if>>
		<<set _exports = 1>>
	<<elseif $arcologies[_currentNeighbor].FSHedonisticDecadence > 95>>
		<<if !isItemAccessible("stretch pants and a crop-top")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of stretch pants and crop-tops" "Neighbor Interact">>
					<<set $clothesBoughtLazyClothes = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of stretch pants and crop-tops" "Neighbor Interact">>
					<<set $clothesBoughtLazyClothes = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of stretch pants and crop-tops" "Neighbor Interact">>
					<<set $clothesBoughtLazyClothes = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough elastic waistbands and tight tops.
		<</if>>
		<<set _exports = 1>>
	<</if>>
	<<if $arcologies[_currentNeighbor].FSChattelReligionist > 95>>
		<<if !isItemAccessible("a chattel habit")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of chattel religionist habits" "Neighbor Interact">>
					<<set $clothesBoughtHabit = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of chattel religionist habits" "Neighbor Interact">>
					<<set $clothesBoughtHabit = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of chattel religionist habits" "Neighbor Interact">>
					<<set $clothesBoughtHabit = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough chattel religionist habits.
		<</if>>
		<<set _exports = 1>>
	<</if>>
	<<if $arcologies[_currentNeighbor].FSPastoralist > 95>>
		<<if !isItemAccessible("Western clothing")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of Western clothing" "Neighbor Interact">>
					<<set $clothesBoughtWestern = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of Western clothing" "Neighbor Interact">>
					<<set $clothesBoughtWestern = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of Western clothing" "Neighbor Interact">>
					<<set $clothesBoughtWestern = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough rancher outfits.
		<</if>>
		<<set _exports = 1>>
	<</if>>
	<<if $arcologies[_currentNeighbor].FSRepopulationFocus > 95>>
		<<if !isItemAccessible("a maternity dress")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of maternity clothing" "Neighbor Interact">>
					<<set $clothesBoughtMaternityDress = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of maternity clothing" "Neighbor Interact">>
					<<set $clothesBoughtMaternityDress = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of maternity clothing" "Neighbor Interact">>
					<<set $clothesBoughtMaternityDress = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough maternity dresses.
		<</if>>
		<<if !isItemAccessible("attractive lingerie for a pregnant woman")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of maternity lingerie" "Neighbor Interact">>
					<<set $clothesBoughtMaternityLingerie = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of maternity lingerie" "Neighbor Interact">>
					<<set $clothesBoughtMaternityLingerie = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of maternity lingerie" "Neighbor Interact">>
					<<set $clothesBoughtMaternityLingerie = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough lingerie suited for pregnant women.
		<</if>>
		<<if !isItemAccessible("a small empathy belly")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of empathy bellies" "Neighbor Interact">>
					<<set $clothesBoughtBelly = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of empathy bellies" "Neighbor Interact">>
					<<set $clothesBoughtBelly = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of empathy bellies" "Neighbor Interact">>
					<<set $clothesBoughtBelly = 1>>
					<<run cashX(forceNeg(Math.trunc((15000-(_prices*2))*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc(15000-(_prices*2)))>>//
			<</if>>
		<<else>>

You already have enough fake baby bumps.
		<</if>>
		<<set _exports = 1>>
	<</if>>
	<<if $arcologies[_currentNeighbor].FSStatuesqueGlorification > 95>>
		<<if !isItemAccessible("platform heels")>>
			<<if ($arcologies[_currentNeighbor].government == "your trustees") || ($arcologies[_currentNeighbor].government == "your agent")>>

<<link "Request a shipment of height boosting footwear" "Neighbor Interact">>
					<<set $shoesBoughtHeels = 1>>
				<</link>>
			<<elseif $PC.skill.hacking >= 50>>

<<link "Divert an outgoing shipment of height boosting footwear" "Neighbor Interact">>
					<<set $shoesBoughtHeels = 1>>
				<</link>>
			<<elseif $arcologies[_currentNeighbor].direction != $arcologies[0].embargoTarget>>

<<link "Purchase a shipment of height boosting footwear" "Neighbor Interact">>
					<<set $shoesBoughtHeels = 1>>
					<<run cashX(forceNeg(Math.trunc((7500-_prices)*$upgradeMultiplierTrade)), "capEx")>>
				<</link>> //Will cost <<print cashFormat(Math.trunc((7500-_prices)*$upgradeMultiplierTrade))>>//
			<</if>>
		<<else>>

You already have enough varieties of platform shoe.
		<</if>>
		<<set _exports = 1>>
	<</if>>
	<<if _exports != 1>>
		<<if $arcologies[_currentNeighbor].direction == $arcologies[0].embargoTarget>>
			Fortunately,
		<<else>>
			Unfortunately,
		<</if>>
		they have nothing of value.
	<</if>>

	<</replace>>
	<</link>>
	with an estimated GSP of @@.yellowgreen;<<print cashFormat(Math.trunc((0.1*$arcologies[_currentNeighbor].prosperity*random(100-$economicUncertainty,100+$economicUncertainty))/100))>>m@@ and is ran by
	<<if $arcologies[_currentNeighbor].government !== "your agent">>
		$arcologies[_currentNeighbor].government who own $arcologies[_currentNeighbor].ownership%.
	<<else>>
		your agent @@.deeppink;<<= SlaveFullName(_Agent)>>@@.
	<</if>>
<</capture>>
<</for>>