:: 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>>
	<br>&nbsp;&nbsp;&nbsp;&nbsp;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>>

<br>

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

<br>

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

<br>
<<for $i to 0; $i < $arcologies.length; $i++>>
  <<if $arcologies[$i].direction == $activeArcology.direction>>
	<<include "Neighbor Description">>
  <</if>>
<</for>>

<br>&nbsp;&nbsp;&nbsp;&nbsp;[[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>>
<br>&nbsp;&nbsp;&nbsp;&nbsp;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>>
<br>
<<if ($activeArcology.government == "your trustees") || ($activeArcology.government == "your agent")>>
<<if $activeArcology.government == "your trustees">>
	<br>
	[[Appoint an agent|Agent Select]]
<<else>>
	<br>
	<<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">>
	<br><<link "Force Abandonment of Racial Subjugation">><<set $activeArcology.FSSubjugationist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSSupremacist isnot "unset">>
	<br><<link "Force Abandonment of Racial Supremacy">><<set $activeArcology.FSSupremacist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSRepopulationFocus isnot "unset">>
	<br><<link "Force Abandonment of Repopulationism">><<set $activeArcology.FSRepopulationFocus = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSRestart isnot "unset">>
	<br><<link "Force Abandonment of Eugenics">><<set $activeArcology.FSRestart = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSGenderRadicalist isnot "unset">>
	<br><<link "Force Abandonment of Gender Radicalism">><<set $activeArcology.FSGenderRadicalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSGenderFundamentalist isnot "unset">>
	<br><<link "Force Abandonment of Gender Fundamentalism">><<set $activeArcology.FSGenderFundamentalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSPaternalist isnot "unset">>
	<br><<link "Force Abandonment of Paternalism">><<set $activeArcology.FSPaternalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSDegradationist isnot "unset">>
	<br><<link "Force Abandonment of Degradationism">><<set $activeArcology.FSDegradationist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSBodyPurist isnot "unset">>
	<br><<link "Force Abandonment of Body Purism">><<set $activeArcology.FSBodyPurist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSTransformationFetishist isnot "unset">>
	<br><<link "Force Abandonment of Transformation Fetishism">><<set $activeArcology.FSTransformationFetishist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSYouthPreferentialist isnot "unset">>
	<br><<link "Force Abandonment of Youth Preferentialism">><<set $activeArcology.FSYouthPreferentialist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSMaturityPreferentialist isnot "unset">>
	<br><<link "Force Abandonment of Maturity Preferentialism">><<set $activeArcology.FSMaturityPreferentialist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSSlimnessEnthusiast isnot "unset">>
	<br><<link "Force Abandonment of Slimness Enthusiasm">><<set $activeArcology.FSSlimnessEnthusiast = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSAssetExpansionist isnot "unset">>
	<br><<link "Force Abandonment of Asset Expansionism">><<set $activeArcology.FSAssetExpansionist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSPastoralist isnot "unset">>
	<br><<link "Force Abandonment of Pastoralism">><<set $activeArcology.FSPastoralist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSPhysicalIdealist isnot "unset">>
	<br><<link "Force Abandonment of Physical Idealism">><<set $activeArcology.FSPhysicalIdealist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSChattelReligionist isnot "unset">>
	<br><<link "Force Abandonment of Chattel Religionism">><<set $activeArcology.FSChattelReligionist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSRomanRevivalist isnot "unset">>
	<br><<link "Force Abandonment of Roman Revivalism">><<set $activeArcology.FSRomanRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSEgyptianRevivalist isnot "unset">>
	<br><<link "Force Abandonment of Egyptian Revivalism">><<set $activeArcology.FSEgyptianRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSEdoRevivalist isnot "unset">>
	<br><<link "Force Abandonment of Edo Revivalism">><<set $activeArcology.FSEdoRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSArabianRevivalist isnot "unset">>
	<br><<link "Force Abandonment of Arabian Revivalism">><<set $activeArcology.FSArabianRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<<if $activeArcology.FSChineseRevivalist isnot "unset">>
	<br><<link "Force Abandonment of Chinese Revivalism">><<set $activeArcology.FSChineseRevivalist = "unset">><<goto "Neighbor Interact">><</link>>
<</if>>
<</if>>
	
<<if $arcologies[0].embargoTarget != -1>>
  <br>
  [[Cancel economic warfare|Neighbor Interact][$arcologies[0].embargoTarget to -1]]
<</if>>
<<if $arcologies[0].influenceTarget != -1>>
  <br>
  [[Stop trying to influence neighboring arcologies|Neighbor Interact][$arcologies[0].influenceTarget to -1]]
<</if>>

src/uncategorized/neighborInteract.tw