code:
:: Neighbor Description [nobr]

<br>
''$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 your trustees.
<<case "an individual">>
	an individual, making its development vibrant but unpredictable.
<<case "your agent">>
	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 to 5>>
<<else>>
  <<set $economicUncertainty to 10>>
<</if>>
<<if $arcologies[$i].government != "your trustees">>
<<if $arcologies[$i].government != "your agent">>
Its leadership has control of approximately <<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 <<print Math.trunc(($arcologies[$i].minority*random(100-$economicUncertainty,100+$economicUncertainty))/100)>>% share<</if>>.
<</if>>
<</if>>
<<if $arcologies[$i].PCminority > 0>>You own $arcologies[$i].PCminority% of this arcology<</if>><<if ($arcologies[$i].government == "your trustees") || ($arcologies[$i].government == "your agent")>><<if $arcologies[$i].minority > $arcologies[$i].PCminority-10>>, a dangerously narrow margin over competition with a <<print Math.trunc(($arcologies[$i].minority*random(100-$economicUncertainty,100+$economicUncertainty))/100)>>% share<</if>><</if>>.
<<set $economicUncertainty -= 2*$assistantPower>>
The arcology has an estimated GSP of @@color:yellowgreen;¤<<print 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 to 0>>
<<set $seed to []>>
<<if $arcologies[$i].FSSubjugationist != "unset">>
	<<if $arcologies[$i].FSSubjugationist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSSubjugationist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "racial Subjugationism, and is ">>
	<<if $arcologies[$i].FSSubjugationist > 95>>
	<<set $desc to $desc + "the home of an advanced project to create a subservient race of ">>
	<<set $desc to $desc + $arcologies[$i].FSSubjugationistRace>>
	<<set $desc to $desc + " slaves.">>
	<<elseif $arcologies[$i].FSSubjugationist > 40>>
	<<set $desc to $desc + "working to refine ">>
	<<set $desc to $desc + $arcologies[$i].FSSubjugationistRace>>
	<<set $desc to $desc + " slavery.">>
	<<else>>
	<<set $desc to $desc + "an excellent dumping ground for low quality ">>
	<<set $desc to $desc + $arcologies[$i].FSSubjugationistRace>>
	<<set $desc to $desc + " slaves.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSSupremacist != "unset">>
	<<if $arcologies[$i].FSSubjugationist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSSubjugationist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "racial Supremacy, and is ">>
	<<if $arcologies[$i].FSSubjugationist > 95>>
	<<set $desc to $desc + "a global magnet for ">>
	<<set $desc to $desc + $arcologies[$i].FSSupremacistRace>>
	<<set $desc to $desc + " nationalists.">>
	<<elseif $arcologies[$i].FSSubjugationist > 40>>
	<<set $desc to $desc + "becoming increasingly free of ">>
	<<set $desc to $desc + $arcologies[$i].FSSupremacistRace>>
	<<set $desc to $desc + " slaves.">>
	<<else>>
	<<set $desc to $desc + "the site of a furious debate over existing ">>
	<<set $desc to $desc + $arcologies[$i].FSSupremacistRace>>
	<<set $desc to $desc + " slaves.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSRepopulationFocus != "unset">>
	<<if $arcologies[$i].FSRepopulationFocus > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSRepopulationFocus > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Repopulation, and is ">>
	<<if $arcologies[$i].FSRepopulationFocus > 95>>
	<<set $desc to $desc + "notorious for the size and number of pregnancies among its population.">>
	<<elseif $arcologies[$i].FSRepopulationFocus > 40>>
	<<set $desc to $desc + "known to be a good place to find slavegirls heavy with children.">>
	<<else>>
	<<set $desc to $desc + "actively importing fertile slave girls.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSRestart != "unset">>
	<<if $arcologies[$i].FSRestart > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSRestart > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Eugenics, and is ">>
	<<if $arcologies[$i].FSRestart > 95>>
	<<set $desc to $desc + "notorious for the number of powerful civilians inhabiting it.">>
	<<elseif $arcologies[$i].FSRestart > 40>>
	<<set $desc to $desc + "known to be a good place make connections.">>
	<<else>>
	<<set $desc to $desc + "actively importing sterilization supplies.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSGenderRadicalist != "unset">>
	<<if $arcologies[$i].FSGenderRadicalist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSGenderRadicalist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Gender Radicalism, and is ">>
	<<if $arcologies[$i].FSGenderRadicalist > 95>>
	<<set $desc to $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 to $desc + "known to be a good place to find slavegirls who cum when buttfucked.">>
	<<else>>
	<<set $desc to $desc + "actively importing a wider variety of slave girls.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSGenderFundamentalist != "unset">>
	<<if $arcologies[$i].FSGenderFundamentalist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSGenderFundamentalist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Gender Fundamentalism, and is ">>
	<<if $arcologies[$i].FSGenderFundamentalist > 95>>
	<<set $desc to $desc + "famous for its slave schools, crowded with a future generation of world class slaves.">>
	<<elseif $arcologies[$i].FSGenderFundamentalist > 40>>
	<<set $desc to $desc + "remarkable for its crowds of hugely pregnant slave women.">>
	<<else>>
	<<set $desc to $desc + "importing increasing numbers of fertile slaves.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSPaternalist != "unset">>
	<<if $arcologies[$i].FSPaternalist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSPaternalist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Paternalism, and is ">>
	<<if $arcologies[$i].FSPaternalist > 95>>
	<<set $desc to $desc + "the home of an educated, enlightened caste of slaves more productive than some arcologies' citizens.">>
	<<elseif $arcologies[$i].FSPaternalist > 40>>
	<<set $desc to $desc + "becoming known for its unusually cheerful atmosphere.">>
	<<else>>
	<<set $desc to $desc + "starting to demand abused slaves whose lives can be turned around.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSDegradationist != "unset">>
	<<if $arcologies[$i].FSDegradationist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSDegradationist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Degradationism, and is ">>
	<<if $arcologies[$i].FSDegradationist > 95>>
	<<set $desc to $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 to $desc + "becoming dreaded by slaves, since the few it exports are full of unbelievably awful stories.">>
	<<else>>
	<<set $desc to $desc + "importing a rapidly increasing number of slaves, for some reason.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSBodyPurist != "unset">>
	<<if $arcologies[$i].FSBodyPurist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSBodyPurist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Body Purism, and is ">>
	<<if $arcologies[$i].FSBodyPurist > 95>>
	<<set $desc to $desc + "a world leader in the drug industry due to its pharmaceutical research breakthroughs.">>
	<<elseif $arcologies[$i].FSBodyPurist > 40>>
	<<set $desc to $desc + "pouring an ever increasing amount of money into drug research.">>
	<<else>>
	<<set $desc to $desc + "setting up research programs to develop better slave drugs.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSTransformationFetishist != "unset">>
	<<if $arcologies[$i].FSTransformationFetishist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSTransformationFetishist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Transformation Fetishism, and is ">>
	<<if $arcologies[$i].FSTransformationFetishist > 95>>
	<<set $desc to $desc + "renowned as the source of some of the world's most unbelievable surgical transformations.">>
	<<elseif $arcologies[$i].FSTransformationFetishist > 40>>
	<<set $desc to $desc + "rapidly moving from mere breast expansion to more esoteric surgical fetishism.">>
	<<else>>
	<<set $desc to $desc + "receiving daily shipments of silicone and surgical necessities.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSYouthPreferentialist != "unset">>
	<<if $arcologies[$i].FSYouthPreferentialist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSYouthPreferentialist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Youth Preferentialism, and is ">>
	<<if $arcologies[$i].FSYouthPreferentialist > 95>>
	<<set $desc to $desc + "famous for the intense celebratory attention slaves receive there once reaching their majorities.">>
	<<elseif $arcologies[$i].FSYouthPreferentialist > 40>>
	<<set $desc to $desc + "moving virginity and the taking of virginity ever higher in the public estimation.">>
	<<else>>
	<<set $desc to $desc + "starting to get a reputation as an excellent place to get a good price for a virgin.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSMaturityPreferentialist != "unset">>
	<<if $arcologies[$i].FSMaturityPreferentialist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSMaturityPreferentialist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Maturity Preferentialism, and is ">>
	<<if $arcologies[$i].FSMaturityPreferentialist > 95>>
	<<set $desc to $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 to $desc + "striking for the variety of well-preserved beauties that can be seen there.">>
	<<else>>
	<<set $desc to $desc + "displaying an increasing demand for enslaved housewives and professional women.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSSlimnessEnthusiast != "unset">>
	<<if $arcologies[$i].FSSlimnessEnthusiast > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSSlimnessEnthusiast > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Slimness Enthusiasm, and is ">>
	<<if $arcologies[$i].FSSlimnessEnthusiast > 95>>
	<<set $desc to $desc + "very well known for the wonderful variety of nubile bodies that can be seen there.">>
	<<elseif $arcologies[$i].FSSlimnessEnthusiast > 40>>
	<<set $desc to $desc + "becoming known as an arcology that slims slaves down rather than turning them into piles of tits and ass.">>
	<<else>>
	<<set $desc to $desc + "starting to display unusual fashions regarding breasts and butts.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSAssetExpansionist != "unset">>
	<<if $arcologies[$i].FSAssetExpansionist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSAssetExpansionist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Asset Expansionism, and is ">>
	<<if $arcologies[$i].FSAssetExpansionist > 95>>
	<<set $desc to $desc + "widely considered an interior design masterpiece for its adaptations to slaves with fifty kilos of tits.">>
	<<elseif $arcologies[$i].FSAssetExpansionist > 40>>
	<<set $desc to $desc + "a popular tourist destination just for the view, which features some truly spectacular bare boobs.">>
	<<else>>
	<<set $desc to $desc + "demanding fatter slaves, since its citizens are learning they absorb growth hormones better.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSPastoralist != "unset">>
	<<if $arcologies[$i].FSPastoralist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSPastoralist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Pastoralist, and is ">>
	<<if $arcologies[$i].FSPastoralist > 95>>
	<<set $desc to $desc + "a world-renowned producer of cowgirl dairy products of all kinds.">>
	<<elseif $arcologies[$i].FSPastoralist > 40>>
	<<set $desc to $desc + "devoting more and more of its slaves to work as cowgirls, or to the service and upkeep of cowgirls.">>
	<<else>>
	<<set $desc to $desc + "displaying an increasing public appetite for dairy, and yet imports almost no true cow's milk.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSPhysicalIdealist != "unset">>
	<<if $arcologies[$i].FSPhysicalIdealist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSPhysicalIdealist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Physical Idealism, and is ">>
	<<if $arcologies[$i].FSPhysicalIdealist > 95>>
	<<set $desc to $desc + "a constant standout at international athletic competitions, where both its citizens and slaves do very well.">>
	<<elseif $arcologies[$i].FSPhysicalIdealist > 40>>
	<<set $desc to $desc + "quite a sight, since its citizens and slaves all lift. Constantly.">>
	<<else>>
	<<set $desc to $desc + "the site of a musclegirl fetish community.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSChattelReligionist != "unset">>
	<<if $arcologies[$i].FSChattelReligionist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSChattelReligionist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Chattel Religionism, and is ">>
	<<if $arcologies[$i].FSChattelReligionist > 95>>
	<<set $desc to $desc + "a significant force in the global development of Chattel Religionist dogma.">>
	<<elseif $arcologies[$i].FSChattelReligionist > 40>>
	<<set $desc to $desc + "a popular destination for devout old world citizens engaging in sex tourism.">>
	<<else>>
	<<set $desc to $desc + "in the throes of public dissention over its religious laws.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSRomanRevivalist != "unset">>
	<<if $arcologies[$i].FSRomanRevivalist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSRomanRevivalist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Roman Revivalism, and is ">>
	<<if $arcologies[$i].FSRomanRevivalist > 95>>
	<<set $desc to $desc + "hugely famous for its broadcasts of gladiatorial combat, popular even in the old world.">>
	<<elseif $arcologies[$i].FSRomanRevivalist > 40>>
	<<set $desc to $desc + "almost obnoxiously aspirational, with citizens competing to serve the state best.">>
	<<else>>
	<<set $desc to $desc + "working its way through sword and sandals fashion towards proper historicity.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSEgyptianRevivalist != "unset">>
	<<if $arcologies[$i].FSEgyptianRevivalist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSEgyptianRevivalist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Egyptian Revivalism, and is ">>
	<<if $arcologies[$i].FSEgyptianRevivalist > 95>>
	<<set $desc to $desc + "a world famous tourist destination for the traditional festival in its plaza, which never stops.">>
	<<elseif $arcologies[$i].FSEgyptianRevivalist > 40>>
	<<set $desc to $desc + "very much under renovation, as vast blocks of stone are imported around the clock.">>
	<<else>>
	<<set $desc to $desc + "struggling with the fashion implications of so much white linen everywhere.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSEdoRevivalist != "unset">>
	<<if $arcologies[$i].FSEdoRevivalist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSEdoRevivalist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Edo Revivalism, and is ">>
	<<if $arcologies[$i].FSEdoRevivalist > 95>>
	<<set $desc to $desc + "visibly trailing cherry blossoms, blown off its balconies by the wind.">>
	<<elseif $arcologies[$i].FSEdoRevivalist > 40>>
	<<set $desc to $desc + "becoming a notable cultural center, even in the old world.">>
	<<else>>
	<<set $desc to $desc + "the object of considerable debate among socially awkward teenagers worldwide.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSArabianRevivalist != "unset">>
	<<if $arcologies[$i].FSArabianRevivalist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSArabianRevivalist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Arabian Revivalism, and is ">>
	<<if $arcologies[$i].FSArabianRevivalist > 95>>
	<<set $desc to $desc + "a famous center of Arabian romanticism, since it has the wisdom not to be historically perfect.">>
	<<elseif $arcologies[$i].FSArabianRevivalist > 40>>
	<<set $desc to $desc + "working through which parts of Arabian romanticism to adopt and which to discard.">>
	<<else>>
	<<set $desc to $desc + "eagerly revelling in the most romantic parts of superficial Arabian romanticism.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>
<<if $arcologies[$i].FSChineseRevivalist != "unset">>
	<<if $arcologies[$i].FSChineseRevivalist > 80>>
	<<set $desc to "committed to ">>
	<<elseif $arcologies[$i].FSChineseRevivalist > 20>>
	<<set $desc to "pursuing ">>
	<<else>>
	<<set $desc to "just establishing ">>
	<</if>>
	<<set $desc to $desc + "Chinese Revivalism, and is ">>
	<<if $arcologies[$i].FSChineseRevivalist > 95>>
	<<set $desc to $desc + "now confidently mature about its possession of the Mandate of Heaven.">>
	<<elseif $arcologies[$i].FSChineseRevivalist > 40>>
	<<set $desc to $desc + "often aggressive about its status as the middle kingdom to the point that it betrays uncertainty.">>
	<<else>>
	<<set $desc to $desc + "moving towards a stage of refinement that will allow it to present itself properly.">>
	<</if>>
	<<set $seed.push($desc)>>
<</if>>

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


code:
:: Neighbor Interact [nobr]

<<set $nextLink to "Manage Arcology">>
<<set $nextButton to "Back">>

<<for $i to 0; $i < $arcologies.length; $i++>>
  <<if $arcologies[$i].direction == $activeArcology.direction>>
	<<set $arcologies[$i] = $activeArcology>><<break>>
  <</if>>
<</for>>

<<if $buyArcologyDirection != 0>>
<<for $i to 0; $i < $arcologies.length; $i++>>
  <<if $arcologies[$i].direction == $buyArcologyDirection>>
	<<set $cash -= 500*Math.trunc($arcologies[$i].prosperity*(1+($arcologies[$i].demandFactor/100)))>>
	<<set $cash -= 10000>>
	<<set $arcologies[$i].PCminority += 1>>
	<<set $arcologies[$i].demandFactor += 5>>
	<<break>>
  <</if>>
<</for>>
<</if>>
<<set $buyArcologyDirection = 0>>
<<if $sellArcologyDirection != 0>>
<<for $i to 0; $i < $arcologies.length; $i++>>
  <<if $arcologies[$i].direction == $sellArcologyDirection>>
	<<set $cash += 500*Math.trunc($arcologies[$i].prosperity*(1+($arcologies[$i].demandFactor/100)))>>
	<<set $arcologies[$i].PCminority -= 1>>
	<<set $arcologies[$i].demandFactor -= 2>>
	<<break>>
  <</if>>
<</for>>
<</if>>
<<set $sellArcologyDirection = 0>>

<<if $arcologies[0].embargoTarget == -1>>
	You are not engaged in economic warfare against a neighboring arcology.
<<else>>
	<<for $i to 0; $i < $arcologies.length; $i++>>
	<<if $arcologies[$i].direction is $arcologies[0].embargoTarget>>
	You have targeted ''$arcologies[$i].name'' for economic warfare.
	<<break>>
	<</if>>
	<</for>>

    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>>
<</if>>

<<if $arcologies[0].influenceTarget == -1>>
	You are not using your arcology's culture to attempt to influence neighboring arcologies' development.
<<else>>
	<<for $i to 0; $i < $arcologies.length; $i++>>
	<<if $arcologies[$i].direction is $arcologies[0].influenceTarget>>
	You have targeted ''$arcologies[$i].name'' for cultural influence.
	<<break>>
	<</if>>
	<</for>>
<</if>>

<<set $desc to []>>
<<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].FSPhysicalIdealist > 60>>
	<<set $desc.push("Physical Idealism")>>
<</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].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 to 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 $i to 0; $i < $arcologies.length; $i++>>
  <<if $arcologies[$i].direction == $activeArcology.direction>>
	<<include "Neighbor Description">>
  <</if>>
<</for>>

    [[Target for economic warfare|Neighbor Interact][$arcologies[0].embargoTarget to $activeArcology.direction]]
<<if $desc.length > 0>>
  | [[Set as influence target|Neighbor Interact][$arcologies[0].influenceTarget to $activeArcology.direction]]
<</if>>

    You own ''$activeArcology.PCminority%'' of $activeArcology.name.
<<set $seed to 500*Math.trunc($activeArcology.prosperity*(1+($activeArcology.demandFactor/100)))>>
A 1% interest in $activeArcology.name is worth ¤$seed and will require an transaction cost of ¤10000 to acquire.
<<if ($activeArcology.ownership + $activeArcology.PCminority + $activeArcology.minority < 100) && ($activeArcology.PCminority < 50)>>
	[[Buy|Neighbor Interact][$buyArcologyDirection to $activeArcology.direction]]
<</if>>
<<if ($activeArcology.ownership + $activeArcology.PCminority + $activeArcology.minority < 100) && ($activeArcology.PCminority > 0)>>
	|
<</if>>
<<if $activeArcology.PCminority > 0>>
	[[Sell|Neighbor Interact][$sellArcologyDirection to $activeArcology.direction]]
<</if>>

<<if ($activeArcology.government == "your trustees") || ($activeArcology.government == "your agent")>>
<<if $activeArcology.government == "your trustees">>

	[[Appoint an agent|Agent Select]]
<<else>>

	<<for $j to 0; $j < $leaders.length; $j++>>
	<<if $activeArcology.leaderID == $leaders[$j].ID>>
		Your agent @@color:pink;$leaders[$j].slaveName@@ is running this arcology. Her <<if $leaders[$j].intelligence >= 3>>brilliance<<else>>intelligence<</if>> and education are the most important qualities for her.
		<<if $leaders[$j].actualAge > 35>>
			As with the Head Girl position, her age and experience lend her leadership weight.
		<</if>>
		<<if $leaders[$j].career is "an arcology owner">>
			Her career as an arcology owner herself is, obviously, useful to her.
		<<elseif $HGCareers.contains($leaders[$j].career)>>
			Her career in leadership helps her.
		<</if>>
		<<if $leaders[$j].fetishStrength > 95>>
		<<if ($leaders[$j].fetish is "dom") || ($leaders[$j].fetish is "sadist")>>
			Her sexually dominant fetish helps her fill a leadership role.
		<<elseif ($leaders[$j].fetish is "submissive") || ($leaders[$j].fetish is "masochist")>>
			Unfortunately, she has an inappropriate fetish for a leader.
		<</if>>
		<</if>>
		<<if $leaders[$j].energy > 95>>
			Finally, her sexual depravity lets her fit into arcology society naturally.
		<</if>>
	<</if>>
	<</for>>
	[[Recall and reenslave her|Agent Retrieve]]
<</if>>
<<if $activeArcology.FSSubjugationist isnot "unset">>

<<link "Force Abandonment of Racial Subjugation">><<set $activeArcology.FSSubjugationist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSSupremacist isnot "unset">>

<<link "Force Abandonment of Racial Supremacy">><<set $activeArcology.FSSupremacist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSRepopulationFocus isnot "unset">>

<<link "Force Abandonment of Repopulationism">><<set $activeArcology.FSRepopulationFocus = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSRestart isnot "unset">>

<<link "Force Abandonment of Eugenics">><<set $activeArcology.FSRestart = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSGenderRadicalist isnot "unset">>

<<link "Force Abandonment of Gender Radicalism">><<set $activeArcology.FSGenderRadicalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSGenderFundamentalist isnot "unset">>

<<link "Force Abandonment of Gender Fundamentalism">><<set $activeArcology.FSGenderFundamentalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSPaternalist isnot "unset">>

<<link "Force Abandonment of Paternalism">><<set $activeArcology.FSPaternalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSDegradationist isnot "unset">>

<<link "Force Abandonment of Degradationism">><<set $activeArcology.FSDegradationist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSBodyPurist isnot "unset">>

<<link "Force Abandonment of Body Purism">><<set $activeArcology.FSBodyPurist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSTransformationFetishist isnot "unset">>

<<link "Force Abandonment of Transformation Fetishism">><<set $activeArcology.FSTransformationFetishist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSYouthPreferentialist isnot "unset">>

<<link "Force Abandonment of Youth Preferentialism">><<set $activeArcology.FSYouthPreferentialist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSMaturityPreferentialist isnot "unset">>

<<link "Force Abandonment of Maturity Preferentialism">><<set $activeArcology.FSMaturityPreferentialist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSSlimnessEnthusiast isnot "unset">>

<<link "Force Abandonment of Slimness Enthusiasm">><<set $activeArcology.FSSlimnessEnthusiast = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSAssetExpansionist isnot "unset">>

<<link "Force Abandonment of Asset Expansionism">><<set $activeArcology.FSAssetExpansionist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSPastoralist isnot "unset">>

<<link "Force Abandonment of Pastoralism">><<set $activeArcology.FSPastoralist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSPhysicalIdealist isnot "unset">>

<<link "Force Abandonment of Physical Idealism">><<set $activeArcology.FSPhysicalIdealist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSChattelReligionist isnot "unset">>

<<link "Force Abandonment of Chattel Religionism">><<set $activeArcology.FSChattelReligionist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSRomanRevivalist isnot "unset">>

<<link "Force Abandonment of Roman Revivalism">><<set $activeArcology.FSRomanRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSEgyptianRevivalist isnot "unset">>

<<link "Force Abandonment of Egyptian Revivalism">><<set $activeArcology.FSEgyptianRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSEdoRevivalist isnot "unset">>

<<link "Force Abandonment of Edo Revivalism">><<set $activeArcology.FSEdoRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSArabianRevivalist isnot "unset">>

<<link "Force Abandonment of Arabian Revivalism">><<set $activeArcology.FSArabianRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSChineseRevivalist isnot "unset">>

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

<<if $arcologies[0].embargoTarget != -1>>

  [[Cancel economic warfare|Neighbor Interact][$arcologies[0].embargoTarget to -1]]
<</if>>
<<if $arcologies[0].influenceTarget != -1>>

  [[Stop trying to influence neighboring arcologies|Neighbor Interact][$arcologies[0].influenceTarget to -1]]
<</if>>

repo_name: DankWolf/fc