Typescript.

1 files changed, 0 insertions, 11937 deletions

diff --git a/rules.js b/rules.js
deleted file mode 100644
index 675f2b9..0000000
--- a/rules.js
+++ /dev/null
@@ -1,11937 +0,0 @@
-"use strict"
-
-// TODO: "approach" pause when about to move into intercept range?
-// TODO: log end victory conditions at scenario start
-// Check all push/clear_undo
-// TODO: check flank attack
-
-// TODO: clean up use of who/what/which/where -- explicit selected_lord, selected_vassal, etc?
-// TODO: remove unneccessary game.who = NOBODY etc
-// TODO: call end_influence_check earlier when possible?
-
-// TODO: verify all push_state uses
-
-let game = null
-let view = null
-let states = {}
-
-function check_london_protected() {
-// TODO IF HENRY/MARGARET ARE MUSTERED IT DOES NOT CHANGE FAVOUR
-// ONLY L17/L18 and Pillage will cancel that event
-//(it is annuled when london go to neutral
-	if (game.state === "pillage") {
-		return false
-	}
-	if (game.flags.london_for_york === 1 && game.where === LOC_LONDON) {
-		return true
-	}
-	else {
-		return false
-	}
-}
-
-// === CONSTANTS ===
-
-const data = require("./data.js")
-
-function find_card(name) {
-	let ix = data.cards.findIndex(x => x.name === name)
-	if (ix < 0)
-		throw "CANNOT FIND CARD: " + name
-	return ix
-}
-
-function find_lord(name) {
-	let ix = data.lords.findIndex(x => x.name === name)
-	if (ix < 0)
-		throw "CANNOT FIND LORD: " + name
-	return ix
-}
-
-function find_locale(name) {
-	let ix = data.locales.findIndex(x => x.name === name)
-	if (ix < 0)
-		throw "CANNOT FIND LOCALE: " + name
-	return ix
-}
-
-function find_vassal(name) {
-	let ix = data.vassals.findIndex(x => x.name === name)
-	if (ix < 0)
-		throw "CANNOT FIND VASSAL: " + name
-	return ix
-}
-
-const BOTH = "Both"
-const LANCASTER = "Lancaster"
-const YORK = "York"
-
-exports.roles = [ LANCASTER, YORK ]
-
-const NOBODY = -1
-const NOWHERE = -1
-const NOTHING = -1
-
-const CALENDAR = 100
-
-const VASSAL_READY = 29
-const VASSAL_CALENDAR = 30
-const VASSAL_OUT_OF_PLAY = 31
-
-const SUMMER = 0
-const SPRING = 1
-const WINTER = 2
-const AUTUMN = 3
-
-const SEASONS = [
-	null,
-	WINTER,
-	SPRING,
-	SUMMER,
-	AUTUMN,
-	WINTER,
-	WINTER,
-	SPRING,
-	SUMMER,
-	AUTUMN,
-	WINTER,
-	WINTER,
-	SPRING,
-	SUMMER,
-	AUTUMN,
-	WINTER,
-	null,
-]
-
-const INFLUENCE_TURNS = [ 1, 4, 6, 9, 11, 14 ]
-const GROW_TURNS = [ 4, 9, 14 ]
-const WASTE_TURNS = [ 5, 10 ]
-
-const HIT = [ "0", "\u2776", "\u2777", "\u2778", "\u2779", "\u277A", "\u277B" ]
-const MISS = [ "0", "\u2460", "\u2461", "\u2462", "\u2463", "\u2464", "\u2465" ]
-
-// unit types
-const RETINUE = 0
-const VASSAL = 1
-const MEN_AT_ARMS = 2
-const LONGBOWMEN = 3
-const MILITIA = 4
-const BURGUNDIANS = 5
-const MERCENARIES = 6
-
-const FORCE_TYPE_COUNT = 7
-const FORCE_TYPE_NAME = [ "Retinue", "Vassal", "Men-at-Arms", "Longbowmen", "Militia", "Burgundians", "Mercenary" ]
-const FORCE_PROTECTION = [ 4, 4, 3, 1, 1, 3, 3 ]
-
-// asset types
-const PROV = 0
-const COIN = 1
-const CART = 2
-const SHIP = 3
-
-const ASSET_TYPE_NAME = [ "Provender", "Coin", "Cart", "Ship" ]
-const ASSET_TYPE_COUNT = 4
-
-// battle array
-const A1 = 0 // attackers
-const A2 = 1
-const A3 = 2
-const D1 = 3 // defenders
-const D2 = 4
-const D3 = 5
-
-const lord_name = data.lords.map(lord => lord.name)
-
-const lord_count = data.lords.length
-const vassal_count = data.vassals.length
-
-const first_lord = 0
-const last_lord = lord_count - 1
-
-const first_locale = 0
-const last_locale = data.locales.length - 1
-
-const first_vassal = 0
-const last_vassal = vassal_count - 1
-
-const first_york_card = 0
-const last_york_card = 36
-const first_lancaster_card = 37
-const last_lancaster_card = 73
-
-function is_york_card(c) {
-	return c >= first_york_card && c <= last_york_card
-}
-
-function is_lancaster_card(c) {
-	return c >= first_lancaster_card && c <= last_lancaster_card
-}
-
-const first_york_lord = 0
-const last_york_lord = 13
-const first_lancaster_lord = 14
-const last_lancaster_lord = 27
-
-const YORK_LORD_MASK = 0x1fff
-const LANCASTER_LORD_MASK = YORK_LORD_MASK << 14
-
-function is_york_lord(lord) {
-	return lord >= first_york_lord && lord <= last_york_lord
-}
-
-function is_lancaster_lord(lord) {
-	return lord >= first_lancaster_lord && lord <= last_lancaster_lord
-}
-
-function is_marshal(lord) {
-	switch (lord) {
-		case LORD_MARGARET:
-			return true
-		case LORD_HENRY_VI:
-			return true
-		case LORD_HENRY_TUDOR:
-			return true
-		case LORD_EDWARD_IV:
-			return true
-		case LORD_GLOUCESTER_2:
-			return true
-		case LORD_RICHARD_III:
-			return true
-		case LORD_YORK:
-			return true
-		default:
-			return false
-	}
-}
-
-function is_lieutenant(lord) {
-	switch (lord) {
-		case LORD_WARWICK_L:
-			return true
-		case LORD_SOMERSET_1:
-			return true
-		case LORD_GLOUCESTER_1:
-			return true
-		case LORD_WARWICK_Y:
-			return true
-		default:
-			return false
-	}
-}
-
-function is_seaport(loc) {
-	return set_has(data.seaports, loc)
-}
-
-function is_stronghold(loc) {
-	return data.locales[loc].type !== "exile"
-}
-
-function is_exile(loc) {
-	return data.locales[loc].type === "exile"
-}
-
-function is_city(loc) {
-	return data.locales[loc].type === "city"
-}
-
-function is_town(loc) {
-	return data.locales[loc].type === "town"
-}
-
-function is_wales(loc) {
-	return data.locales[loc].region === "Wales"
-}
-
-function is_south(loc) {
-	return data.locales[loc].region === "South"
-}
-
-function is_north(loc) {
-	return data.locales[loc].region === "North"
-}
-
-function is_fortress(loc) {
-	return data.locales[loc].type === "fortress"
-}
-
-function is_sea(loc) {
-	return data.locales[loc].type === "sea"
-}
-
-function find_ports(here) {
-	if ((lord_has_capability(game.group, AOW_YORK_GREAT_SHIPS) || lord_has_capability(game.group, AOW_LANCASTER_GREAT_SHIPS)))
-		return data.all_ports
-	if (here === data.sea_1) return data.port_1
-	if (here === data.sea_2) return data.port_2
-	if (here === data.sea_3) return data.port_3
-	if (here === data.exile_1) return data.port_1
-	if (here === data.exile_2) return data.port_2
-	if (here === data.exile_3) return data.port_3
-	if (here === data.exile_4) return data.port_1
-	if (set_has(data.port_1, here)) return data.port_1
-	if (set_has(data.port_2, here)) return data.port_2
-	if (set_has(data.port_3, here)) return data.port_3
-	return null
-}
-
-function find_sail_locales(here) {
-	if (here === data.sea_1) return data.way_sea_1
-	if (here === data.sea_2) return data.way_sea_2
-	if (here === data.sea_3) return data.way_sea_3
-	if (here === data.exile_1) return data.way_exile_1
-	if (here === data.exile_2) return data.way_exile_2
-	if (here === data.exile_3) return data.way_exile_3
-	if (set_has(data.port_1, here)) return data.way_port_1
-	if (set_has(data.port_2, here)) return data.way_port_2
-	if (set_has(data.port_3, here)) return data.way_port_3
-	return null
-}
-
-function make_locale_list(pred) {
-	let list = []
-	for (let loc = first_locale; loc <= last_locale; ++loc)
-		if (pred(loc))
-			list.push(loc)
-	return list
-}
-
-const all_north_locales = make_locale_list(is_north)
-const all_south_locales = make_locale_list(is_south)
-const all_wales_locales = make_locale_list(is_wales)
-const all_city_locales = make_locale_list(is_city)
-const all_town_locales = make_locale_list(is_town)
-const all_fortress_locales = make_locale_list(is_fortress)
-
-const Y1 = find_card("Y1")
-const Y2 = find_card("Y2")
-const Y3 = find_card("Y3")
-const Y4 = find_card("Y4")
-const Y5 = find_card("Y5")
-const Y6 = find_card("Y6")
-const Y7 = find_card("Y7")
-const Y8 = find_card("Y8")
-const Y9 = find_card("Y9")
-const Y10 = find_card("Y10")
-const Y11 = find_card("Y11")
-const Y12 = find_card("Y12")
-const Y13 = find_card("Y13")
-const Y14 = find_card("Y14")
-const Y15 = find_card("Y15")
-const Y16 = find_card("Y16")
-const Y17 = find_card("Y17")
-const Y18 = find_card("Y18")
-const Y19 = find_card("Y19")
-const Y20 = find_card("Y20")
-const Y21 = find_card("Y21")
-const Y22 = find_card("Y22")
-const Y23 = find_card("Y23")
-const Y24 = find_card("Y24")
-const Y25 = find_card("Y25")
-const Y26 = find_card("Y26")
-const Y27 = find_card("Y27")
-const Y28 = find_card("Y28")
-const Y29 = find_card("Y29")
-const Y30 = find_card("Y30")
-const Y31 = find_card("Y31")
-const Y32 = find_card("Y32")
-const Y33 = find_card("Y33")
-const Y34 = find_card("Y34")
-const Y35 = find_card("Y35")
-const Y36 = find_card("Y36")
-const Y37 = find_card("Y37")
-
-const L1 = find_card("L1")
-const L2 = find_card("L2")
-const L3 = find_card("L3")
-const L4 = find_card("L4")
-const L5 = find_card("L5")
-const L6 = find_card("L6")
-const L7 = find_card("L7")
-const L8 = find_card("L8")
-const L9 = find_card("L9")
-const L10 = find_card("L10")
-const L11 = find_card("L11")
-const L12 = find_card("L12")
-const L13 = find_card("L13")
-const L14 = find_card("L14")
-const L15 = find_card("L15")
-const L16 = find_card("L16")
-const L17 = find_card("L17")
-const L18 = find_card("L18")
-const L19 = find_card("L19")
-const L20 = find_card("L20")
-const L21 = find_card("L21")
-const L22 = find_card("L22")
-const L23 = find_card("L23")
-const L24 = find_card("L24")
-const L25 = find_card("L25")
-const L26 = find_card("L26")
-const L27 = find_card("L27")
-const L28 = find_card("L28")
-const L29 = find_card("L29")
-const L30 = find_card("L30")
-const L31 = find_card("L31")
-const L32 = find_card("L32")
-const L33 = find_card("L33")
-const L34 = find_card("L34")
-const L35 = find_card("L35")
-const L36 = find_card("L36")
-const L37 = find_card("L37")
-
-const LORD_YORK = find_lord("York")
-const LORD_MARCH = find_lord("March")
-const LORD_EDWARD_IV = find_lord("Edward IV")
-const LORD_SALISBURY = find_lord("Salisbury")
-const LORD_RUTLAND = find_lord("Rutland")
-const LORD_PEMBROKE = find_lord("Pembroke")
-const LORD_DEVON = find_lord("Devon")
-const LORD_NORTHUMBERLAND_Y1 = find_lord("Northumberland Y1")
-const LORD_NORTHUMBERLAND_Y2 = find_lord("Northumberland Y2")
-const LORD_GLOUCESTER_1 = find_lord("Gloucester 1")
-const LORD_GLOUCESTER_2 = find_lord("Gloucester 2")
-const LORD_RICHARD_III = find_lord("Richard III")
-const LORD_NORFOLK = find_lord("Norfolk")
-const LORD_WARWICK_Y = find_lord("Warwick Y")
-
-const LORD_HENRY_VI = find_lord("Henry VI")
-const LORD_MARGARET = find_lord("Margaret")
-const LORD_SOMERSET_1 = find_lord("Somerset 1")
-const LORD_SOMERSET_2 = find_lord("Somerset 2")
-const LORD_EXETER_1 = find_lord("Exeter 1")
-const LORD_EXETER_2 = find_lord("Exeter 2")
-const LORD_BUCKINGHAM = find_lord("Buckingham")
-const LORD_CLARENCE = find_lord("Clarence")
-const LORD_NORTHUMBERLAND_L = find_lord("Northumberland L")
-
-const LORD_JASPER_TUDOR_1 = find_lord("Jasper Tudor 1")
-const LORD_JASPER_TUDOR_2 = find_lord("Jasper Tudor 2")
-const LORD_HENRY_TUDOR = find_lord("Henry Tudor")
-const LORD_OXFORD = find_lord("Oxford")
-const LORD_WARWICK_L = find_lord("Warwick L")
-
-const LOC_BAMBURGH = find_locale("Bamburgh")
-const LOC_NEWCASTLE = find_locale("Newcastle")
-const LOC_APPLEBY = find_locale("Appleby")
-const LOC_HEXHAM = find_locale("Hexham")
-const LOC_CARLISLE = find_locale("Carlisle")
-const LOC_HARLECH = find_locale("Harlech")
-const LOC_PEMBROKE = find_locale("Pembroke")
-const LOC_CARDIFF = find_locale("Cardiff")
-const LOC_HEREFORD = find_locale("Hereford")
-const LOC_LUDLOW = find_locale("Ludlow")
-const LOC_SHREWSBURY = find_locale("Shrewsbury")
-const LOC_SALISBURY = find_locale("Salisbury")
-const LOC_WINCHESTER = find_locale("Winchester")
-const LOC_GUILDFORD = find_locale("Guildford")
-const LOC_ARUNDEL = find_locale("Arundel")
-const LOC_SOUTHAMPTON = find_locale("Southampton")
-const LOC_ROCHESTER = find_locale("Rochester")
-const LOC_DOVER = find_locale("Dover")
-const LOC_CANTERBURY = find_locale("Canterbury")
-const LOC_HASTINGS = find_locale("Hastings")
-const LOC_DORCHESTER = find_locale("Dorchester")
-const LOC_EXETER = find_locale("Exeter")
-const LOC_PLYMOUTH = find_locale("Plymouth")
-const LOC_LAUNCESTON = find_locale("Launceston")
-const LOC_TRURO = find_locale("Truro")
-const LOC_WELLS = find_locale("Wells")
-const LOC_BRISTOL = find_locale("Bristol")
-const LOC_GLOUCESTER = find_locale("Gloucester")
-const LOC_OXFORD = find_locale("Oxford")
-const LOC_NEWBURY = find_locale("Newbury")
-const LOC_LONDON = find_locale("London")
-const LOC_ST_ALBANS = find_locale("St Albans")
-const LOC_BEDFORD = find_locale("Bedford")
-const LOC_CAMBRIDGE = find_locale("Cambridge")
-const LOC_BURY_ST_EDMUNDS = find_locale("Bury St Edmunds")
-const LOC_IPSWICH = find_locale("Ipswich")
-const LOC_NORWICH = find_locale("Norwich")
-const LOC_LYNN = find_locale("Lynn")
-const LOC_ELY = find_locale("Ely")
-const LOC_PETERBOROUGH = find_locale("Peterborough")
-const LOC_NORTHAMPTON = find_locale("Northampton")
-const LOC_COVENTRY = find_locale("Coventry")
-const LOC_LEICESTER = find_locale("Leicester")
-const LOC_LICHFIELD = find_locale("Lichfield")
-const LOC_DERBY = find_locale("Derby")
-const LOC_NOTTINGHAM = find_locale("Nottingham")
-const LOC_WORCESTER = find_locale("Worcester")
-const LOC_CHESTER = find_locale("Chester")
-const LOC_LANCASTER = find_locale("Lancaster")
-const LOC_LINCOLN = find_locale("Lincoln")
-const LOC_YORK = find_locale("York")
-const LOC_CALAIS = find_locale("Calais")
-const LOC_FRANCE = find_locale("France")
-const LOC_SCOTLAND = find_locale("Scotland")
-const LOC_IRELAND = find_locale("Ireland")
-const LOC_BURGUNDY = find_locale("Burgundy")
-const LOC_ENGLISH_CHANNEL = find_locale("English Channel")
-const LOC_IRISH_SEA = find_locale("Irish Sea")
-const LOC_NORTH_SEA = find_locale("North Sea")
-const LOC_SCARBOROUGH = find_locale("Scarborough")
-const LOC_RAVENSPUR = find_locale("Ravenspur")
-
-const VASSAL_BEAUMONT = find_vassal("Beaumont")
-const VASSAL_BONVILLE = find_vassal("Bonville")
-const VASSAL_DEVON = find_vassal("Devon")
-const VASSAL_DUDLEY = find_vassal("Dudley")
-const VASSAL_ESSEX = find_vassal("Essex")
-const VASSAL_FAUCONBERG = find_vassal("Fauconberg")
-const VASSAL_NORFOLK = find_vassal("Norfolk")
-const VASSAL_OXFORD = find_vassal("Oxford")
-const VASSAL_SHREWSBURY = find_vassal("Shrewsbury")
-const VASSAL_STANLEY = find_vassal("Stanley")
-const VASSAL_SUFFOLK = find_vassal("Suffolk")
-const VASSAL_WESTMORLAND = find_vassal("Westmoreland")
-const VASSAL_WORCESTER = find_vassal("Worcester")
-const VASSAL_CLIFFORD = find_vassal("Clifford")
-const VASSAL_EDWARD = find_vassal("Edward")
-const VASSAL_HASTINGS = find_vassal("Hastings")
-const VASSAL_MONTAGU = find_vassal("Montagu")
-const VASSAL_THOMAS_STANLEY = find_vassal("Thomas Stanley")
-const VASSAL_TROLLOPE = find_vassal("Trollope")
-
-const AOW_LANCASTER_CULVERINS_AND_FALCONETS = [L1 , L2]
-const AOW_LANCASTER_MUSTERD_MY_SOLDIERS = L3
-const AOW_LANCASTER_HERALDS = L4
-const AOW_LANCASTER_CHURCH_BLESSINGS = L5
-const AOW_LANCASTER_GREAT_SHIPS = L6 // TODO Resolve bug about not correctly targeting ports on other seats and further
-const AOW_LANCASTER_HARBINGERS = L7
-const AOW_LANCASTER_HAY_WAINS = L8
-const AOW_LANCASTER_QUARTERMASTERS = L9
-const AOW_LANCASTER_CHAMBERLAINS = L10
-const AOW_LANCASTER_IN_THE_NAME_OF_THE_KING = L11
-const AOW_LANCASTER_COMMISION_OF_ARRAY = L12
-const AOW_LANCASTER_EXPERT_COUNSELLORS = L13
-const AOW_LANCASTER_PERCYS_POWER = L14
-const AOW_LANCASTER_KINGS_PARLEY = L15
-const AOW_LANCASTER_NORTHMEN = L16
-const AOW_LANCASTER_MARGARET = L17
-const AOW_LANCASTER_COUNCIL_MEMBER = L18
-const AOW_LANCASTER_ANDREW_TROLLOPE = L19
-const AOW_LANCASTER_VETERAN_OF_FRENCH_WARS = L20
-const AOW_LANCASTER_MY_FATHERS_BLOOD = L21
-const AOW_LANCASTER_STAFFORD_ESTATES = L22
-const AOW_LANCASTER_MONTAGU = L23
-const AOW_LANCASTER_MARRIED_TO_A_NEVILLE = L24
-const AOW_LANCASTER_WELSH_LORD = L25
-const AOW_LANCASTER_EDWARD = L26
-const AOW_LANCASTER_BARDED_HORSE = L27
-const AOW_LANCASTER_LOYAL_SOMERSET = L28
-const AOW_LANCASTER_HIGH_ADMIRAL = L29
-const AOW_LANCASTER_MERCHANTS = L30
-const AOW_LANCASTER_YEOMEN_OF_THE_CROWN = L31
-const AOW_LANCASTER_TWO_ROSES = L32
-const AOW_LANCASTER_PHILIBERT_DE_CHANDEE = L33
-const AOW_LANCASTER_PIQUIERS = L34
-const AOW_LANCASTER_THOMAS_STANLEY = L35
-const AOW_LANCASTER_CHEVALIERS = L36
-const AOW_LANCASTER_MADAME_LA_GRANDE = L37
-
-const AOW_YORK_CULVERINS_AND_FALCONETS = [Y1, Y2]
-const AOW_YORK_MUSTERD_MY_SOLDIERS = Y3
-const AOW_YORK_WE_DONE_DEEDS_OF_CHARITY = Y4
-const AOW_YORK_THOMAS_BOURCHIER = Y5
-const AOW_YORK_GREAT_SHIPS = Y6
-const AOW_YORK_HARBINGERS = Y7
-const AOW_YORK_ENGLAND_IS_MY_HOME = Y8
-const AOW_YORK_BARRICADES = Y9
-const AOW_YORK_AGITATORS = Y10
-const AOW_YORK_YORKISTS_NEVER_WAIT = Y11
-const AOW_YORK_SOLDIERS_OF_FORTUNE = Y12
-const AOW_YORK_SCOURERS = Y13
-const AOW_YORK_BURGUNDIANS = [ Y14, Y23 ]
-const AOW_YORK_NAVAL_BLOCKADE = Y15 // TODO DEBUG pop_state() going into parley and not after province selection
-const AOW_YORK_BELOVED_WARWICK = Y16
-const AOW_YORK_ALICE_MONTAGU = Y17
-const AOW_YORK_IRISHMEN = Y18
-const AOW_YORK_WELSHMEN = Y19
-const AOW_YORK_YORKS_FAVOURED_SON = Y20
-const AOW_YORK_SOUTHERNERS = Y21
-const AOW_YORK_FAIR_ARBITER = Y22
-const AOW_YORK_HASTINGS = Y24
-const AOW_YORK_PEMBROKE = Y25
-const AOW_YORK_FALLEN_BROTHER = Y26
-const AOW_YORK_PERCYS_NORTH1 = Y27
-const AOW_YORK_FIRST_SON = Y28
-const AOW_YORK_STAFFORD_BRANCH = Y29
-const AOW_YORK_CAPTAIN = Y30
-const AOW_YORK_WOODWILLES = Y31
-const AOW_YORK_FINAL_CHARGE = Y32 // TODO AFTER ALL OTHER BATTLE PROMPTS TO SEE WHERE TO PLACE IT
-const AOW_YORK_BLOODY_THOU_ART = Y33
-const AOW_YORK_SO_WISE_SO_YOUNG = Y34
-const AOW_YORK_KINGDOM_UNITED = Y35
-const AOW_YORK_VANGUARD = Y36 // TODO AFTER ALL OTHER BATTLE PROMPTS TO SEE WHERE TO PLACE IT
-const AOW_YORK_PERCYS_NORTH2 = Y37
-
-const EVENT_LANCASTER_LEEWARD_BATTLE_LINE = L1
-const EVENT_LANCASTER_FLANK_ATTACK = L2
-const EVENT_LANCASTER_ESCAPE_SHIP = L3
-const EVENT_LANCASTER_BE_SENT_FOR = L4
-const EVENT_LANCASTER_SUSPICION = L5
-const EVENT_LANCASTER_SEAMANSHIP = L6
-const EVENT_LANCASTER_FOR_TRUST_NOT_HIM = L7
-const EVENT_LANCASTER_FORCED_MARCHES = L8
-const EVENT_LANCASTER_RISING_WAGES = L9
-const EVENT_LANCASTER_NEW_ACT_OF_PARLIAMENT = L10
-
-const EVENT_LANCASTER_BLOCKED_FORD = L11
-const EVENT_LANCASTER_RAVINE = L12
-const EVENT_LANCASTER_ASPIELLES = L13
-const EVENT_LANCASTER_SCOTS = L14
-const EVENT_LANCASTER_HENRY_PRESSURES_PARLIAMENT = L15
-const EVENT_LANCASTER_WARDEN_OF_THE_MARCHES = L16
-const EVENT_LANCASTER_MY_CROWN_IS_IN_MY_HEART = L17
-const EVENT_LANCASTER_PARLIAMENT_VOTES = L18
-const EVENT_LANCASTER_HENRYS_PROCLAMATION = L19
-const EVENT_LANCASTER_PARLIAMENTS_TRUCE = L20
-const EVENT_LANCASTER_FRENCH_FLEET = L21
-const EVENT_LANCASTER_FRENCH_TROOPS = L22
-const EVENT_LANCASTER_WARWICKS_PROPAGANDA = L23
-const EVENT_LANCASTER_WARWICKS_PROPAGANDA2 = L24
-const EVENT_LANCASTER_WELSH_REBELLION = L25
-const EVENT_LANCASTER_HENRY_RELEASED = L26
-const EVENT_LANCASTER_LUNIVERSELLE_ARAGNE = L27
-const EVENT_LANCASTER_REBEL_SUPPLY_DEPOT = L28
-const EVENT_LANCASTER_TO_WILFUL_DISOBEDIANCE = L29
-const EVENT_LANCASTER_FRENCH_WAR_LOANS = L30
-const EVENT_LANCASTER_ROBINS_REBELLION = L31
-const EVENT_LANCASTER_TUDOR_BANNERS = L32
-const EVENT_LANCASTER_SURPRISE_LANDING = L33
-const EVENT_LANCASTER_BUCKINGHAMS_PLOT = L34
-const EVENT_LANCASTER_MARGARET_BEAUFORT = L35
-const EVENT_LANCASTER_TALBOT_TO_THE_RESCUE = L36
-const EVENT_LANCASTER_THE_EARL_OF_RICHMOND = L37
-
-const EVENT_YORK_LEEWARD_BATTLE_LINE = Y1
-const EVENT_YORK_FLANK_ATTACK = Y2
-const EVENT_YORK_ESCAPE_SHIP = [Y3 , Y9]
-const EVENT_YORK_JACK_CADE = Y4
-const EVENT_YORK_SUSPICION = Y5
-const EVENT_YORK_SEAMANSHIP = Y6
-const EVENT_YORK_YORKISTS_BLOCK_PARLIAMENT = Y7
-const EVENT_YORK_EXILE_PACT = Y8
-const EVENT_YORK_TAX_COLLECTORS = Y10
-
-const EVENT_YORK_BLOCKED_FORD = Y11
-const EVENT_YORK_PARLIAMENTS_TRUCE = Y12
-const EVENT_YORK_ASPIELLES = Y13
-const EVENT_YORK_RICHARD_OF_YORK = Y14
-const EVENT_YORK_LONDON_FOR_YORK = Y15 // TODO PROTECTION AND UI
-const EVENT_YORK_THE_COMMONS = Y16
-const EVENT_YORK_SHEWOLF_OF_FRANCE = Y17
-const EVENT_YORK_SUCCESSION = Y18
-const EVENT_YORK_CALTROPS = Y19
-const EVENT_YORK_YORKIST_PARADE = Y20
-const EVENT_YORK_SIR_RICHARD_LEIGH = Y21
-const EVENT_YORK_LOYALTY_AND_TRUST = Y22
-const EVENT_YORK_CHARLES_THE_BOLD = Y23
-const EVENT_YORK_SUN_IN_SPLENDOUR = Y24
-const EVENT_YORK_OWAIN_GLYNDWR = Y25
-const EVENT_YORK_DUBIOUS_CLARENCE = Y26
-const EVENT_YORK_YORKIST_NORTH = Y27
-const EVENT_YORK_GLOUCESTER_AS_HEIR = Y28
-const EVENT_YORK_DORSET = Y29
-const EVENT_YORK_REGROUP = Y30 // TODO
-// Play in Battle at Battle Array step.
-// If played when Yorkist active they pay click on that event to make the lord recover his TROOPS (no vassals/retinue)
-// for recover per armour
-const EVENT_YORK_EARL_RIVERS = Y31
-const EVENT_YORK_THE_KINGS_NAME = Y32 // TODO IMPROVE PROMPTS/QOL
-const EVENT_YORK_EDWARD_V = Y33
-const EVENT_YORK_AN_HONEST_TALE_SPEEDS_BEST = Y34
-const EVENT_YORK_PRIVY_COUNCIL = Y35
-const EVENT_YORK_SWIFT_MANEUVER = Y36
-const EVENT_YORK_PATRICK_DE_LA_MOTE = Y37
-
-// === STATE: ACTIVE PLAYER ===
-
-var P1 = null
-var P2 = null
-
-var first_friendly_lord = 0
-var last_friendly_lord = 13
-var first_enemy_lord = 14
-var last_enemy_lord = 27
-
-function update_aliases() {
-	if (game.active === YORK) {
-		first_friendly_lord = 0
-		last_friendly_lord = 13
-		first_enemy_lord = 14
-		last_enemy_lord = 27
-	} else if (game.active === LANCASTER) {
-		first_friendly_lord = 14
-		last_friendly_lord = 27
-		first_enemy_lord = 0
-		last_enemy_lord = 13
-	} else {
-		first_friendly_lord = -1
-		last_friendly_lord = -1
-		first_enemy_lord = -1
-		last_enemy_lord = -1
-	}
-	if (game.rebel === YORK) {
-		P1 = YORK
-		P2 = LANCASTER
-	} else {
-		P1 = LANCASTER
-		P2 = YORK
-	}
-}
-
-function load_state(state) {
-	if (game !== state) {
-		game = state
-		update_aliases()
-	}
-}
-
-function set_active(new_active) {
-	if (game.active !== new_active) {
-		clear_undo()
-		game.active = new_active
-		update_aliases()
-	}
-}
-
-function set_active_enemy() {
-	if (game.active === YORK)
-		set_active(LANCASTER)
-	else
-		set_active(YORK)
-}
-
-function set_active_command() {
-	if (is_york_lord(game.command))
-		set_active(YORK)
-	else
-		set_active(LANCASTER)
-}
-
-// === STATE: TURN ===
-
-function current_turn() {
-	return game.turn >> 1
-}
-
-function current_season() {
-	return SEASONS[game.turn >> 1]
-}
-
-function is_campaign_phase() {
-	return (game.turn & 1) === 1
-}
-
-function is_levy_phase() {
-	return (game.turn & 1) === 0
-}
-
-function current_turn_name() {
-	return String(game.turn >> 1)
-}
-
-function max_plan_length() {
-	switch (current_season()) {
-		case SUMMER:
-			return 7
-		case SPRING:
-			return 6
-		case WINTER:
-			return 4
-		case AUTUMN:
-			return 6
-	}
-}
-
-// === STATE: CARDS ===
-
-function current_hand() {
-	if (game.active === YORK)
-		return game.hand_y
-	return game.hand_l
-}
-
-function is_friendly_card(c) {
-	if (game.active === YORK)
-		return is_york_card(c)
-	return is_lancaster_card(c)
-}
-
-function has_card_in_hand(c) {
-	if (game.active === YORK)
-		return set_has(game.hand_y, c)
-	return set_has(game.hand_l, c)
-}
-
-function could_play_card(c) {
-	if (!game.hidden) {
-		// TODO: check capabilities on lords revealed in battle if hidden
-		if (map_has_value(game.pieces.capabilities, c))
-			return false
-	}
-	if (set_has(game.events, c))
-		return false
-	if (is_york_card(c))
-		return game.hand_y.length > 0
-	if (is_lancaster_card(c))
-		return game.hand_l.length > 0
-	return true
-}
-
-function count_cards_in_plan(plan, lord) {
-	let n = 0
-	for (let c of plan)
-		if (c === lord)
-			++n
-	return n
-}
-
-function is_card_in_use(c) {
-	if (set_has(game.hand_y, c))
-		return true
-	if (set_has(game.hand_l, c))
-		return true
-	if (set_has(game.events, c))
-		return true
-	if (map_has_value(game.pieces.capabilities, c))
-		return true
-	return false
-}
-
-function list_deck() {
-	let deck = []
-	let first_card = game.active === YORK ? first_york_card : first_lancaster_card
-	let last_card = game.active === YORK ? last_york_card : last_lancaster_card
-	for (let c = first_card; c <= last_card; ++c)
-		if (!is_card_in_use(c) && is_card_in_scenario(c))
-			deck.push(c)
-	return deck
-}
-
-function draw_card(deck) {
-	clear_undo()
-	let i = random(deck.length)
-	let c = deck[i]
-	set_delete(deck, c)
-	return c
-}
-
-function draw_two_cards() {
-	let deck = list_deck()
-	return [ draw_card(deck), draw_card(deck) ]
-}
-
-function discard_events(when) {
-	for (let i = 0; i < game.events.length; ) {
-		let c = game.events[i]
-		if (data.cards[c].when === when)
-			array_remove(game.events, i)
-		else
-			++i
-	}
-}
-
-function discard_extra_levy_events() {
-	for (let i = 0; i < game.events.length; ) {
-		let c = game.events[i]
-		if (c === Y20)
-			array_remove(game.events, i)
-		else
-			++i
-	}
-}
-
-function discard_friendly_events(when) {
-	for (let i = 0; i < game.events.length; ) {
-		let c = game.events[i]
-		if (is_friendly_card(c) && data.cards[c].when === when)
-			array_remove(game.events, i)
-		else
-			++i
-	}
-}
-
-function is_event_in_play(c) {
-	return set_has(game.events, c)
-}
-
-// === STATE: LORD ===
-
-function get_lord_locale(lord) {
-	return map_get(game.pieces.locale, lord, NOWHERE)
-}
-
-function set_lord_locale(lord, locale) {
-	if (locale === NOWHERE)
-		map_delete(game.pieces.locale, lord)
-	else
-		map_set(game.pieces.locale, lord, locale)
-}
-
-function get_lord_calendar(lord) {
-	if (is_lord_on_calendar(lord))
-		return get_lord_locale(lord) - CALENDAR
-	return 0
-}
-
-function set_lord_calendar(lord, turn) {
-	if (turn < 1)
-		turn = 1
-	if (turn > 16)
-		turn = 16
-	set_lord_locale(lord, CALENDAR + turn)
-}
-
-function set_lord_in_exile(lord) {
-	game.pieces.in_exile = pack1_set(game.pieces.in_exile, lord, 1)
-}
-
-function get_lord_in_exile(lord) {
-	return pack1_get(game.pieces.in_exile, lord)
-}
-
-function remove_lord_from_exile(lord) {
-	game.pieces.in_exile = pack1_set(game.pieces.in_exile, lord, 0)
-}
-
-function get_lord_capability(lord, n) {
-	return map2_get(game.pieces.capabilities, lord, n, NOTHING)
-}
-
-function set_lord_capability(lord, n, x) {
-	if (x === NOTHING)
-		map2_delete(game.pieces.capabilities, lord, n)
-	else
-		map2_set(game.pieces.capabilities, lord, n, x)
-}
-
-function get_lord_assets(lord, n) {
-	return map_get_pack4(game.pieces.assets, lord, n)
-}
-
-function set_lord_assets(lord, n, x) {
-	if (x < 0)
-		x = 0
-	if (x > 15)
-		x = 15
-	map_set_pack4(game.pieces.assets, lord, n, x)
-}
-
-function add_lord_assets(lord, n, x) {
-	set_lord_assets(lord, n, get_lord_assets(lord, n) + x)
-}
-
-function drop_prov(lord) {
-	add_lord_assets(lord, PROV, -1)
-}
-
-function drop_cart(lord) {
-	add_lord_assets(lord, CART, -1)
-}
-
-function get_lord_forces(lord, n) {
-	return map_get_pack4(game.pieces.forces, lord, n)
-}
-
-function set_lord_forces(lord, n, x) {
-	if (x < 0)
-		x = 0
-	if (x > 15)
-		x = 15
-	map_set_pack4(game.pieces.forces, lord, n, x)
-}
-
-function add_lord_forces(lord, n, x) {
-	set_lord_forces(lord, n, get_lord_forces(lord, n) + x)
-}
-
-function get_lord_routed_forces(lord, n) {
-	return map_get_pack4(game.pieces.routed, lord, n)
-}
-
-function set_lord_routed_forces(lord, n, x) {
-	if (x < 0)
-		x = 0
-	if (x > 15)
-		x = 15
-	map_set_pack4(game.pieces.routed, lord, n, x)
-}
-
-function add_lord_routed_forces(lord, n, x) {
-	set_lord_routed_forces(lord, n, get_lord_routed_forces(lord, n) + x)
-}
-
-function get_lord_moved(lord) {
-	return map_get(game.pieces.moved, lord, 0)
-}
-
-function set_lord_moved(lord, x) {
-	map_set(game.pieces.moved, lord, x)
-}
-
-function clear_lords_moved() {
-	map_clear(game.pieces.moved)
-}
-
-function set_lord_fought(lord) {
-	set_lord_moved(lord, 1)
-	// TODO: is this needed?
-	game.battle.fought = pack1_set(game.battle.fought, lord, 1)
-}
-
-function set_lord_unfed(lord, n) {
-	// reuse "moved" flag for hunger
-	set_lord_moved(lord, n)
-}
-
-function is_lord_unfed(lord) {
-	// reuse "moved" flag for hunger
-	return get_lord_moved(lord)
-}
-
-function feed_lord(lord) {
-	// reuse "moved" flag for hunger
-	let n = get_lord_moved(lord) - 1
-	set_lord_moved(lord, n)
-	if (n === 0)
-		log(`Fed L${lord}.`)
-}
-
-function pay_lord(lord) {
-	// reuse "moved" flag for pay
-	let n = get_lord_moved(lord) - 1
-	set_lord_moved(lord, n)
-}
-
-function is_lord_on_map(lord) {
-	let loc = get_lord_locale(lord)
-	return loc !== NOWHERE && loc < CALENDAR
-}
-
-function is_lord_in_play(lord) {
-	return get_lord_locale(lord) !== NOWHERE
-}
-
-function is_lord_on_calendar(lord) {
-	let loc = get_lord_locale(lord)
-	return loc >= CALENDAR
-}
-
-function is_lord_ready(lord) {
-	let loc = get_lord_locale(lord)
-	return loc >= CALENDAR && loc <= CALENDAR + (game.turn >> 1)
-}
-
-function is_friendly_lord(lord) {
-	return lord >= first_friendly_lord && lord <= last_friendly_lord
-}
-
-function is_enemy_lord(lord) {
-	return lord >= first_enemy_lord && lord <= last_enemy_lord
-}
-
-function count_lord_all_forces(lord) {
-	return (
-		get_lord_forces(lord, BURGUNDIANS) +
-		get_lord_forces(lord, MERCENARIES) +
-		get_lord_forces(lord, MEN_AT_ARMS) +
-		get_lord_forces(lord, MILITIA) +
-		get_lord_forces(lord, LONGBOWMEN)
-	)
-}
-
-function count_lord_ships(lord) {
-	return get_lord_assets(lord, SHIP)
-}
-
-function count_lord_transport(lord) {
-	return get_lord_assets(lord, CART)
-}
-
-function lord_has_unrouted_units(lord) {
-	for (let x = 0; x < FORCE_TYPE_COUNT; ++x)
-		if (get_lord_forces(lord, x) > 0)
-			return true
-	let result = false
-	for_each_vassal_with_lord(lord, v => {
-		if (!set_has(game.battle.routed_vassals, v))
-			result = true
-	})
-	return result
-}
-
-function find_lord_with_capability_card(c) {
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord)
-		if (lord_has_capability_card(lord, c))
-			return lord
-	return NOBODY
-}
-
-function get_force_name(lord, n, x) {
-	if (n === RETINUE)
-		return `${lord_name[lord]}'s Retinue`
-	if (n === VASSAL)
-		return `Vassal ${data.vassals[x].name}`
-	return FORCE_TYPE_NAME[n]
-}
-
-// === STATE: LORD (SHARED) ===
-
-function get_shared_assets(loc, what) {
-	let m = 0
-	let n = 0
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-		if (get_lord_locale(lord) === loc)
-			n += get_lord_assets(lord, what)
-		if (game.state === "supply_source" && lord_has_capability(lord, AOW_LANCASTER_HAY_WAINS) && what === CART) {
-			m = get_lord_assets(lord, CART)
-			n += m
-		}
-		if (game.state === "supply_source" && (lord_has_capability(lord, AOW_YORK_GREAT_SHIPS) || lord_has_capability(lord, AOW_YORK_GREAT_SHIPS)) && what === SHIP) {
-			m = get_lord_assets(lord, SHIP)
-			n += m
-		}
-	}
-	return n
-}
-
-function count_group_assets(type, group = game.group) {
-	let n = 0
-	for (let lord of group) {
-		n += get_lord_assets(lord, type)
-		if (type === CART) {
-			if (game.state === "command" || game.state === "march_laden")
-				if (lord_has_capability(lord, AOW_LANCASTER_HAY_WAINS))
-					n += get_lord_assets(lord, CART)
-		}
-	}
-	return n
-}
-
-function count_group_ships() {
-	let n = 0
-	for (let lord of game.group) {
-		n += count_lord_ships(lord)
-		if (lord_has_capability(lord, AOW_YORK_GREAT_SHIPS) || lord_has_capability(lord, AOW_LANCASTER_GREAT_SHIPS))
-			n += count_lord_ships(lord)
-	}
-	return n
-}
-
-function count_group_transport(group = game.group) {
-	let n = 0
-	for (let lord of group)
-		n += count_lord_transport(lord)
-	return n
-}
-
-function count_group_lords() {
-	return game.group.length
-}
-
-// === STATE: VASSAL ===
-
-function set_vassal_lord_and_service(vassal, lord, service) {
-	game.pieces.vassals[vassal] = lord + (service << 5)
-}
-
-function get_vassal_lord(vassal) {
-	return game.pieces.vassals[vassal] & 31
-}
-
-function get_vassal_service(vassal) {
-	return game.pieces.vassals[vassal] >> 5
-}
-
-function setup_vassals(excludes = []) {
-	for (let x = first_vassal; x <= last_vassal; x++) {
-		if (!excludes.includes(x) && data.vassals[x].capability === undefined) {
-			set_vassal_lord_and_service(x, VASSAL_READY, 0)
-		}
-	}
-}
-
-function is_vassal_ready(x) {
-	return get_vassal_lord(x) === VASSAL_READY
-}
-
-function is_vassal_mustered_with(x, lord) {
-	return get_vassal_lord(x) === lord
-}
-
-function is_vassal_mustered_with_friendly_lord(x) {
-	return is_friendly_lord(get_vassal_lord(x))
-}
-
-function is_vassal_mustered_with_york_lord(x) {
-	return is_york_lord(get_vassal_lord(x))
-}
-
-function for_each_vassal_with_lord(lord, f) {
-	for (let x = first_vassal; x <= last_vassal; x++)
-		if (is_vassal_mustered_with(x, lord))
-			f(x)
-}
-
-function count_vassals_with_lord(lord) {
-	let n = 0
-	for (let x = first_vassal; x <= last_vassal; x++)
-		if (is_vassal_mustered_with(x, lord))
-			++n
-	return n
-}
-
-function muster_vassal(vassal, lord) {
-	if (data.vassals[vassal].service !== 0) {
-		let service = current_turn() + data.vassals[vassal].service
-		if (lord_has_capability(lord, AOW_YORK_ALICE_MONTAGU))
-			service += 1
-		set_vassal_lord_and_service(vassal, lord, service)
-	} else {
-		set_vassal_lord_and_service(vassal, lord, 0)
-	}
-}
-
-function disband_vassal(vassal) {
-	if (data.vassals[vassal].service > 0) {
-		let new_turn = current_turn() + (6 - data.vassals[vassal].service)
-		set_vassal_lord_and_service(vassal, VASSAL_CALENDAR, new_turn)
-		log(`Disbanded V${vassal} to turn ${current_turn() + (6 - data.vassals[vassal].service)}.`)
-	} else {
-		// TODO: special vassals with no service marker!?
-		set_vassal_lord_and_service(vassal, VASSAL_OUT_OF_PLAY, 0)
-		log(`Disbanded V${vassal}.`)
-	}
-	if (vassal === VASSAL_HASTINGS) {
-		discard_card_capability(AOW_YORK_HASTINGS)
-		logi(`Hastings Discarded`)
-	}
-}
-
-function pay_vassal(vassal) {
-	if (current_turn() < 15)
-		set_vassal_lord_and_service(vassal, get_vassal_lord(vassal), current_turn() + 1)
-}
-
-function rout_vassal(_lord, vassal) {
-	set_add(game.battle.routed_vassals, vassal)
-}
-
-// === STATE: LOCALE ===
-
-function is_favour_friendly(loc) {
-	if (game.active === YORK)
-		return has_favoury_marker(loc)
-	else
-		return has_favourl_marker(loc)
-}
-
-function is_favour_enemy(loc, side) {
-	if (side === LANCASTER)
-		return has_favoury_marker(loc)
-	else
-		return has_favourl_marker(loc)
-}
-
-function has_favourl_marker(loc) {
-	return set_has(game.pieces.favourl, loc)
-}
-
-function add_favourl_marker(loc) {
-	set_add(game.pieces.favourl, loc)
-}
-
-function remove_favourl_marker(loc) {
-	set_delete(game.pieces.favourl, loc)
-}
-
-function has_favoury_marker(loc) {
-	return set_has(game.pieces.favoury, loc)
-}
-
-function add_favoury_marker(loc) {
-	set_add(game.pieces.favoury, loc)
-}
-
-function remove_favoury_marker(loc) {
-	set_delete(game.pieces.favoury, loc)
-}
-
-function shift_favour_away(loc) {
-	if (game.active === YORK)
-		shift_favour_toward_lancaster(loc)
-	else
-		shift_favour_toward_york(loc)
-}
-
-function shift_favour_toward(loc) {
-	if (game.active === YORK)
-		shift_favour_toward_york(loc)
-	else
-		shift_favour_toward_lancaster(loc)
-}
-
-function shift_favour_toward_york(loc) {
-	if (has_favourl_marker(loc))
-		remove_favourl_marker(loc)
-	else
-		add_favoury_marker(loc)
-}
-
-function shift_favour_toward_lancaster(loc) {
-	if (has_favoury_marker(loc))
-		remove_favoury_marker(loc)
-	else
-		add_favourl_marker(loc)
-}
-
-function set_favour_enemy(loc) {
-	if (game.active === YORK) {
-		remove_favoury_marker(loc)
-		add_favourl_marker(loc)
-	} else {
-		remove_favourl_marker(loc)
-		add_favoury_marker(loc)
-	}
-}
-
-function has_exhausted_marker(loc) {
-	return set_has(game.pieces.exhausted, loc)
-}
-
-function add_exhausted_marker(loc) {
-	set_add(game.pieces.exhausted, loc)
-}
-
-function has_depleted_marker(loc) {
-	return set_has(game.pieces.depleted, loc)
-}
-
-function add_depleted_marker(loc) {
-	set_add(game.pieces.depleted, loc)
-}
-
-function remove_depleted_marker(loc) {
-	set_delete(game.pieces.depleted, loc)
-}
-
-function remove_exhausted_marker(loc) {
-	set_delete(game.pieces.exhausted, loc)
-}
-
-function refresh_locale(locale) {
-	if (has_depleted_marker(locale)) {
-		remove_depleted_marker(locale)
-	}
-	if (has_exhausted_marker(locale)) {
-		remove_exhausted_marker(locale)
-		add_depleted_marker(locale)
-	}
-}
-
-function deplete_locale(loc) {
-	if (has_depleted_marker(loc)) {
-		remove_depleted_marker(loc)
-		add_exhausted_marker(loc)
-	} else {
-		add_depleted_marker(loc)
-	}
-}
-
-function is_neutral_locale(loc) {
-	return !has_favourl_marker(loc) && !has_favoury_marker(loc)
-}
-
-function has_favour_in_locale(side, loc) {
-	if (side === YORK)
-		return has_favoury_marker(loc)
-	else
-		return has_favourl_marker(loc)
-}
-
-function is_friendly_locale(loc) {
-	if (loc !== NOWHERE && loc < CALENDAR) {
-		if (has_enemy_lord(loc))
-			return false
-		if (is_favour_friendly(loc))
-			return true
-	}
-	return false
-}
-
-function is_adjacent_friendly_port_english_channel(loc) {
-	for (let next of data.locales[loc].adjacent) {
-		if (is_friendly_locale(next) && data.port_2.includes(next))
-			return true
-	}
-}
-
-// === STATE: LORD & LOCALE ===
-
-function is_lord_at_friendly_locale(lord) {
-	return is_friendly_locale(get_lord_locale(lord))
-}
-
-function is_lord_in_wales(lord) {
-	return is_wales(get_lord_locale(lord))
-}
-
-function is_lord_in_south(lord) {
-	return is_south(get_lord_locale(lord))
-}
-
-function is_lord_in_north(lord) {
-	return is_north(get_lord_locale(lord))
-}
-
-function has_friendly_lord(loc) {
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord)
-		if (get_lord_locale(lord) === loc)
-			return true
-	return false
-}
-
-function has_enemy_lord(loc) {
-	for (let lord = first_enemy_lord; lord <= last_enemy_lord; ++lord)
-		if (get_lord_locale(lord) === loc)
-			return true
-	return false
-}
-
-function has_unbesieged_enemy_lord(loc) {
-	for (let lord = first_enemy_lord; lord <= last_enemy_lord; ++lord)
-		if (get_lord_locale(lord) === loc)
-			return true
-	return false
-}
-
-function is_lord_in_or_adjacent_to_north(lord) {
-	let here = get_lord_locale(lord)
-	if (is_north(here))
-		return true
-	for (let loc of data.locales[here].adjacent)
-		if (is_north(loc))
-			return true
-	return false
-}
-
-function is_lord_in_or_adjacent_to_south(lord) {
-	let here = get_lord_locale(lord)
-	if (is_south(here))
-		return true
-	for (let loc of data.locales[here].adjacent)
-		if (is_south(loc))
-			return true
-	return false
-}
-
-function is_lord_in_or_adjacent_to_wales(lord) {
-	let here = get_lord_locale(lord)
-	if (is_wales(here))
-		return true
-	for (let loc of data.locales[here].adjacent)
-		if (is_wales(loc))
-			return true
-	return false
-}
-
-// Captain capability (lieutenant/marshall only if no other)
-function other_marshal_or_lieutenant(loc) {
-	let here = loc
-	let n = 0
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord)
-		if (lord !== game.command) {
-			if (get_lord_locale(lord) === here && (is_marshal(lord) || is_lieutenant(lord)))
-				n += 1
-		}
-	if (n === 0)
-		return false
-	else
-		return true
-}
-
-function has_adjacent_enemy(loc) {
-	for (let next of data.locales[loc].adjacent)
-		if (has_unbesieged_enemy_lord(next))
-			return true
-	return false
-}
-
-function has_adjacent_friendly(loc) {
-	for (let next of data.locales[loc].adjacent)
-		if (has_friendly_lord(next))
-			return true
-	return false
-}
-
-// === 1.4 INFLUENCE ===
-
-function reduce_influence(amt) {
-	if (game.active === YORK)
-		reduce_york_influence(amt)
-	else
-		reduce_lancaster_influence(amt)
-}
-
-function reduce_york_influence(amt) {
-	game.influence += amt
-}
-
-function increase_york_influence(amt) {
-	game.influence -= amt
-}
-
-function reduce_lancaster_influence(amt) {
-	game.influence -= amt
-}
-
-function increase_lancaster_influence(amt) {
-	game.influence += amt
-}
-
-// Bonus score but still maxed at 5
-function influence_capabilities(lord, score) {
-	let here = get_lord_locale(game.group)
-	if (game.active === YORK && is_event_in_play(EVENT_YORK_YORKIST_PARADE))
-		score += 2
-	if (game.active === YORK && is_event_in_play(EVENT_YORK_PRIVY_COUNCIL))
-		score += 1
-	if (game.state === "parley" && ((is_event_in_play(EVENT_YORK_RICHARD_OF_YORK) && game.active === YORK) || lord_has_capability(game.group, AOW_LANCASTER_IN_THE_NAME_OF_THE_KING)))
-		score += 1
-	if (get_lord_locale(LORD_MARGARET) === here && lord_has_capability(game.group, AOW_LANCASTER_LOYAL_SOMERSET))
-		score += 1
-	if (lord_has_capability(lord, AOW_YORK_YORKS_FAVOURED_SON))
-		score += 1
-	if (
-		get_lord_locale(LORD_WARWICK_L) === here &&
-		lord_has_capability(game.group, AOW_LANCASTER_MARRIED_TO_A_NEVILLE) &&
-		is_friendly_locale(here)
-	)
-		score += 2
-	if (has_favoury_marker(here) && lord_has_capability(lord, AOW_YORK_FAIR_ARBITER))
-		score += 1
-	if (lord_has_capability(lord, AOW_YORK_FALLEN_BROTHER) && !is_lord_in_play(LORD_CLARENCE))
-		score += 2
-
-	return score
-}
-
-// Cards that allows automatic success
-function automatic_success(lord, score) {
-
-	if (lord_has_capability(lord, AOW_LANCASTER_TWO_ROSES))
-		score = 6
-	if (game.active === LANCASTER
-		&& is_event_in_play(EVENT_LANCASTER_THE_EARL_OF_RICHMOND)
-		&& game.state === "levy_muster_vassal")
-		score = 6
-	if (game.active === LANCASTER
-		&& game.flags.parliament_votes === 1
-		&& game.state === "parley")
-		score = 6
-	if (game.active === YORK
-		&& game.flags.jack_cade > 0
-		&& game.state === "parley")
-		score = 6
-	if (game.active === YORK
-		&& game.flags.succession === 1
-		&& game.state === "parley")
-		score = 6
-	if (is_campaign_phase()
-		&& game.command === LORD_DEVON
-		&& get_lord_locale(LORD_DEVON) === LOC_EXETER
-		&& is_event_in_play(EVENT_YORK_DORSET)
-		&& game.state === "parley")
-		score = 6
-
-	return score
-}
-
-// Initiate influence check with cards influencing the cost overriding all others
-// (even automatic at no cost)
-function init_influence_check(lord) {
-	game.check = []
-	game.check.push({ cost: 1, modifier: 0, source: "base" })
-	game.check.push({ cost: 0, modifier: data.lords[lord].influence, source: "lord" })
-	if (game.active === LANCASTER
-		&& is_event_in_play(EVENT_YORK_AN_HONEST_TALE_SPEEDS_BEST)
-		&& game.state === "parley"){
-		game.check.push({ cost: 1, modifier: 0, source:"An Honest tale speeds best"})
-	}
-	if (game.active === LANCASTER
-		&& is_event_in_play(EVENT_LANCASTER_PARLIAMENT_VOTES)
-		&& game.flags.parliament_votes === 1
-		&& game.state === "parley") {
-		game.check.push({ cost: -1, modifier: 0, source:"Parliament Votes"})
-	}
-	if (game.active === YORK
-		&& is_event_in_play(EVENT_YORK_SUCCESSION)
-		&& game.flags.succession === 1
-		&& game.state === "parley") {
-		game.check.push({ cost: -1, modifier: 0, source:"Succession"})
-	}
-}
-
-function end_influence_check() {
-	game.check = 0
-}
-
-function count_influence_score() {
-	let score = game.check.reduce((p, c) => p + c.modifier, 0)
-
-	let lord = 0
-	if (is_levy_phase())
-		lord = game.who
-	if (is_campaign_phase())
-		lord = game.command
-
-	if (score > 5)
-		score = 5
-	if (score < 1)
-		score = 1
-
-	score = automatic_success(lord, score)
-
-	return score
-}
-
-function count_influence_cost() {
-	if (game.state === "parley") {
-		if (is_campaign_phase()) {
-			if (game.command === LORD_DEVON && get_lord_locale(LORD_DEVON) === LOC_EXETER && is_event_in_play(EVENT_YORK_DORSET))
-				return 0
-		}
-		if (is_levy_phase()) {
-			if (game.flags.jack_cade > 0)
-				return 0
-		}
-	}
-	return game.check.reduce((p, c) => p + c.cost, 0)
-}
-
-function do_influence_check() {
-	reduce_influence(count_influence_cost())
-	let rating = count_influence_score()
-	let roll = roll_die()
-	let success
-
-	if (roll === 1 || rating === 6)
-		success = true
-	else if (roll === 6)
-		success = false
-	else
-		success = roll <= rating
-
-	// TODO: print log message here instead of returning object
-	return { success: success, rating: rating, roll: roll }
-}
-
-function add_influence_check_modifier_1() {
-	game.check.push({ cost: 1, modifier: 1, source: "add" })
-}
-
-function add_influence_check_modifier_2() {
-	game.check.push({ cost: 3, modifier: 2, source: "add" })
-}
-
-function add_influence_check_distance(distance) {
-	let idx = game.check.findIndex(i => i.source === "distance")
-
-	if (idx !== NOTHING)
-		game.check.splice(idx, 1)
-
-	game.check.push({ cost: distance, modifier: 0, source: "distance" })
-}
-
-function prompt_influence_check() {
-	if (!game.check.some(c => c.source === "add")) {
-		view.actions.spend1 = 1
-		view.actions.spend3 = 1
-	}
-	if (game.where !== NOWHERE)
-		gen_action_locale(game.where)
-	view.actions.check = 1
-
-	view.prompt += `Cost: ${count_influence_cost()} - Range (${range(count_influence_score())})`
-}
-
-// === 2.0 SETUP ===
-
-function goto_setup_lords() {
-	// setup will be used in some scenarios
-	end_setup_lords()
-}
-
-states.setup_lords = {
-	inactive: "Set up Lords",
-	prompt() {
-		view.prompt = "Set up your Lords."
-		let done = true
-		if (done) {
-			view.prompt += " All done."
-			view.actions.end_setup = 1
-		}
-	},
-	end_setup() {
-		end_setup_lords()
-	},
-}
-
-function end_setup_lords() {
-	clear_lords_moved()
-	set_active_enemy()
-	if (game.active === P1) {
-		log_h1("Levy " + current_turn_name())
-		goto_levy_arts_of_war_first()
-	}
-}
-
-// === 3.1 LEVY: ARTS OF WAR (FIRST TURN) ===
-
-function discard_card_capability(c) {
-	log(`${game.active} discarded C${c}.`)
-}
-
-function discard_card_event(c) {
-	log(`${game.active} discarded E${c}.`)
-}
-
-function goto_levy_arts_of_war_first() {
-	if (game.active === YORK)
-		log_h2("York Arts of War")
-	else
-		log_h2("Lancaster Arts of War")
-	game.state = "levy_arts_of_war_first"
-	game.what = draw_two_cards()
-}
-
-function resume_levy_arts_of_war_first() {
-	if (game.what.length === 0)
-		end_levy_arts_of_war_first()
-}
-
-states.levy_arts_of_war_first = {
-	inactive: "Arts of War",
-	prompt() {
-		let c = game.what[0]
-		view.arts_of_war = game.what
-		view.what = c
-		let discard = true
-		for (let lord of data.cards[c].lords) {
-			if (is_lord_on_map(lord) && !lord_already_has_capability(lord, c)) {
-				gen_action_lord(lord)
-				discard = false
-			}
-		}
-		if (discard) {
-			view.prompt = `Arts of War: Discard ${data.cards[c].capability}.`
-			view.actions.discard = 1
-		} else {
-			view.prompt = `Arts of War: Assign ${data.cards[c].capability} to a Lord.`
-		}
-	},
-	lord(lord) {
-		push_undo()
-		let c = game.what.shift()
-		log(`${game.active} deployed Capability.`)
-		add_lord_capability(lord, c)
-		capability_muster_effects(lord, c)
-		resume_levy_arts_of_war_first()
-	},
-	discard() {
-		push_undo()
-		let c = game.what.shift()
-		discard_card_capability(c)
-		resume_levy_arts_of_war_first()
-	},
-}
-
-function end_levy_arts_of_war_first() {
-	game.what = NOTHING
-	set_active_enemy()
-	if (game.active === P2)
-		goto_levy_arts_of_war_first()
-	else
-		goto_levy_muster()
-}
-
-// === 3.1 LEVY: ARTS OF WAR ===
-
-function goto_levy_arts_of_war() {
-	if (game.active === YORK)
-		log_h2("York Arts of War")
-	else
-		log_h2("Lancaster Arts of War")
-	game.what = draw_two_cards()
-	resume_levy_arts_of_war()
-}
-
-function resume_levy_arts_of_war() {
-	game.state = "levy_arts_of_war"
-	if (game.what.length === 0)
-		end_levy_arts_of_war()
-}
-
-states.levy_arts_of_war = {
-	inactive: "Arts of War",
-	prompt() {
-		let c = game.what[0]
-		view.arts_of_war = [ c ]
-		view.what = c
-		switch (data.cards[c].when) {
-			case "this_levy":
-			case "this_campaign":
-			case "now":
-				view.prompt = `Arts of War: Play ${data.cards[c].event}.`
-				view.actions.play = 1
-				break
-			case "hold":
-				view.prompt = `Arts of War: Hold ${data.cards[c].event}.`
-				view.actions.hold = 1
-				break
-			case "never":
-				view.prompt = `Arts of War: Discard ${data.cards[c].event}.`
-				view.actions.discard = 1
-				break
-		}
-	},
-	play() {
-		let c = game.what.shift()
-		log(`${game.active} played E${c}.`)
-		goto_immediate_event(c)
-	},
-	hold() {
-		let c = game.what.shift()
-		log(`${game.active} Held Event.`)
-		if (game.active === YORK)
-			set_add(game.hand_y, c)
-		else
-			set_add(game.hand_l, c)
-		resume_levy_arts_of_war()
-	},
-	discard() {
-		let c = game.what.shift()
-		discard_card_event(c)
-		resume_levy_arts_of_war()
-	},
-}
-
-function end_levy_arts_of_war() {
-	game.what = NOTHING
-	set_active_enemy()
-	if (game.active === P2)
-		goto_levy_arts_of_war()
-	else
-		goto_pay()
-}
-
-// === 3.2 LEVY: PAY ===
-
-function reset_unpaid_lords() {
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; lord++) {
-		if (is_lord_unfed(lord)) {
-			set_lord_unfed(lord, Math.ceil(count_lord_all_forces(lord) / 6))
-		}
-	}
-}
-
-function goto_pay() {
-	log_br()
-	let n = 0
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-		let here = get_lord_locale(lord)
-		if (is_lord_on_map(lord) &&
-			!is_lord_on_calendar(lord) &&
-			lord_has_capability(lord, AOW_LANCASTER_MADAME_LA_GRANDE) &&
-			(((is_friendly_locale(here)) && data.port_2.includes(here)) ||
-			is_adjacent_friendly_port_english_channel(here))) {
-			add_lord_assets(lord, COIN, 1)
-		}
-		if (
-			game.active === LANCASTER &&
-			is_lord_on_map(lord) &&
-			lord_has_capability(LORD_NORTHUMBERLAND_L, AOW_LANCASTER_PERCYS_POWER) &&
-			is_lord_in_north(LORD_NORTHUMBERLAND_L) &&
-			is_lord_in_north(lord)
-		) {
-			set_lord_unfed(lord, 0)
-		} else {
-			n = Math.ceil(count_lord_all_forces(lord) / 6)
-			set_lord_unfed(lord, n)
-		}
-	}
-	game.state = "pay"
-}
-
-states.pay = {
-	inactive: "Pay",
-	prompt() {
-		view.prompt = "Pay: You must Pay your Lord's Troops"
-		let done = true
-
-		// Pay from own mat
-		if (done) {
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-				if (is_lord_unfed(lord)) {
-					if (get_lord_assets(lord, COIN) > 0) {
-						gen_action_coin(lord)
-						done = false
-					}
-				}
-			}
-		}
-
-		// Sharing
-		if (done) {
-			view.prompt = "Pay: You must Pay Lords with Shared Coin."
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-				if (is_lord_unfed(lord) && can_pay_from_shared(lord)) {
-					gen_action_lord(lord)
-					done = false
-				}
-			}
-		}
-
-		// Pillage
-		if (done) {
-			view.prompt = "Pay: You must Pillage and/or Disband."
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-				if (is_lord_unfed(lord)) {
-					view.actions.pillage = 1
-					done = false
-				}
-			}
-		}
-
-		// All done!
-		if (done) {
-			view.prompt = "Pay: All done."
-			view.actions.end_pay = 1
-		}
-	},
-	coin(lord) {
-		push_undo()
-		add_lord_assets(lord, COIN, -1)
-		pay_lord(lord)
-	},
-	lord(lord) {
-		push_undo()
-		game.who = lord
-		game.state = "pay_lord_shared"
-	},
-	pillage() {
-		push_undo()
-		reset_unpaid_lords()
-		goto_pillage_coin()
-	},
-	end_pay() {
-		end_pay()
-	},
-	card: action_held_event,
-}
-
-states.pay_lord_shared = {
-	inactive: "Pay",
-	prompt() {
-		view.prompt = `Pay: You must Feed ${lord_name[game.who]} with Shared Coin.`
-		let loc = get_lord_locale(game.who)
-		for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-			if (get_lord_locale(lord) === loc) {
-				if (get_lord_assets(lord, COIN) > 0)
-					gen_action_coin(lord)
-			}
-		}
-	},
-	coin(lord) {
-		push_undo()
-		add_lord_assets(lord, COIN, -1)
-		pay_lord(game.who)
-		resume_pay_lord_shared()
-	},
-}
-
-function resume_pay_lord_shared() {
-	if (!is_lord_unfed(game.who) || !can_pay_from_shared(game.who)) {
-		game.who = NOBODY
-		game.state = "pay"
-	}
-}
-
-function end_pay() {
-	game.who = NOBODY
-	set_active_enemy()
-	if (game.active === P2) {
-		goto_pay()
-	} else
-		goto_pay_lords()
-}
-
-// === 3.2.1 PAY TROOPS (PILLAGE) ===
-
-function goto_pillage_food() {
-	push_state("pillage")
-	game.what = PROV
-}
-
-function goto_pillage_coin() {
-	push_state("pillage")
-	game.what = COIN
-}
-
-function can_pillage(loc) {
-	return !is_exile(loc) && !has_exhausted_marker(loc)
-}
-
-states.pillage = {
-	inactive: "Pillage",
-	prompt() {
-		view.prompt = `Pillage: Pillage the locales where your ${game.what === PROV ? "unfed" : "unpaid"} lords are.`
-
-		let done = true
-		for (let x = first_friendly_lord; x <= last_friendly_lord; x++) {
-			if (is_lord_on_map(x) && is_lord_unfed(x) && can_pillage(get_lord_locale(x))) {
-				gen_action_locale(get_lord_locale(x))
-				done = false
-			}
-		}
-
-		if (done) {
-			view.prompt = `Pillage: Unable to Pillage, you must disband your ${game.what === PROV ? "unfed" : "unpaid"} lords.`
-			for (let x = first_friendly_lord; x <= last_friendly_lord; x++) {
-				if (is_lord_on_map(x) && is_lord_unfed(x)) {
-					gen_action_lord(x)
-					done = false
-				}
-			}
-		}
-
-		if (done) {
-			view.prompt = `Pillage: Done.`
-			view.actions.done = 1
-		}
-	},
-	locale(loc) {
-		game.where = loc
-		game.state = "pillage_locale"
-	},
-	lord(lord) {
-		disband_influence_penalty(lord)
-		disband_lord(lord)
-	},
-	done() {
-		pop_state()
-	},
-}
-
-states.pillage_locale = {
-	inactive: "Pillage",
-	prompt() {
-		view.prompt = `Pillage: Choose Lord to Pillage ${data.locales[game.where].name}.`
-
-		for (let x = first_friendly_lord; x <= last_friendly_lord; x++) {
-			if (get_lord_locale(x) === game.where && is_lord_unfed(x)) {
-				gen_action_lord(x)
-			}
-		}
-	},
-	lord(lord) {
-		// Pillage
-		// Same values as Taxing.
-		let num = get_tax_amount(game.where, lord)
-		add_lord_assets(lord, COIN, num)
-		add_lord_assets(lord, PROV, num)
-		reduce_influence(4 * num)
-
-		add_exhausted_marker(game.where)
-		set_favour_enemy(game.where)
-		for (let next of data.locales[game.where].adjacent)
-			shift_favour_away(next)
-
-		game.state = "pillage"
-		game.where = NOWHERE
-	},
-}
-
-// === 3.2.2 PAY LORDS ===
-
-function has_friendly_lord_who_must_pay_troops() {
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord)
-		if (is_lord_unfed(lord))
-			return true
-	return false
-}
-
-function goto_pay_lords() {
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; lord++) {
-		if (is_lord_on_map(lord))
-			set_lord_unfed(lord, 1)
-	}
-
-	if (has_friendly_lord_who_must_pay_troops()) {
-		game.count = 0
-		game.who = NOBODY
-		game.state = "pay_lords"
-	} else {
-		end_pay_lords()
-	}
-}
-
-function end_pay_lords() {
-	set_active_enemy()
-
-	if (game.active === P2)
-		goto_pay_lords()
-	else
-		goto_pay_vassals()
-}
-
-states.pay_lords = {
-	inactive: "Pay Lords",
-	prompt() {
-		view.prompt = "Pay Lords in Influence or Disband them."
-		prompt_held_event()
-		if (game.who === NOBODY) {
-			let done = true
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; lord++) {
-				if (is_lord_on_map(lord) && is_lord_unfed(lord)) {
-					gen_action_lord(lord)
-					done = false
-				}
-			}
-			if (!done)
-				view.actions.pay_all = 1
-			if (done)
-				view.actions.done = 1
-		} else {
-			view.actions.disband = 1
-			view.actions.pay = 1
-		}
-	},
-	lord(lord) {
-		push_undo()
-		game.who = lord
-	},
-	disband() {
-		disband_lord(game.who)
-		game.who = NOBODY
-	},
-	pay() {
-		reduce_influence(is_exile(get_lord_locale(game.who)) ? 2 : 1)
-		set_lord_moved(game.who, 0)
-		game.who = NOBODY
-	},
-	pay_all() {
-		push_undo()
-		for (let lord = first_friendly_lord; lord <= last_friendly_lord; lord++) {
-			if (is_lord_on_map(lord) && is_lord_unfed(lord)) {
-				reduce_influence(is_exile(get_lord_locale(lord)) ? 2 : 1)
-				set_lord_moved(lord, 0)
-			}
-		}
-	},
-	card: action_held_event,
-	done() {
-		end_pay_lords()
-	},
-}
-
-// === 3.2.3 PAY VASSALS ===
-
-function goto_pay_vassals() {
-	let vassal_to_pay = false
-
-	for (let v = first_vassal; v <= last_vassal; v++) {
-		if (
-			is_vassal_mustered_with_friendly_lord(v) &&
-			get_vassal_service(v) === current_turn()
-		) {
-			vassal_to_pay = true
-		}
-	}
-	if (vassal_to_pay) {
-		game.state = "pay_vassals"
-		game.what = NOBODY
-	} else {
-		end_pay_vassals()
-	}
-}
-
-function end_pay_vassals() {
-	set_active_enemy()
-
-	if (game.active === P1) {
-		goto_muster_exiles()
-	} else {
-		goto_pay_vassals()
-	}
-}
-
-states.pay_vassals = {
-	inactive: "Pay Vassals",
-	prompt() {
-		let done = true
-		view.prompt = "You may pay or disband vassals in the next calendar box."
-		if (game.what === NOBODY) {
-			for (let v = first_vassal; v <= last_vassal; v++) {
-				if (
-					is_vassal_mustered_with_friendly_lord(v) &&
-					get_vassal_service(v) === current_turn()
-				) {
-					gen_action_vassal(v)
-					done = false
-				}
-			}
-
-			if (done) {
-				view.actions.done = 1
-			}
-			if (!done)
-				view.actions.pay_all = 1
-		} else {
-			view.actions.pay = 1
-			view.actions.disband = 1
-		}
-	},
-	vassal(v) {
-		push_undo()
-		game.what = v
-	},
-	pay() {
-		push_undo()
-		pay_vassal(game.what)
-		reduce_influence(1)
-		game.what = NOBODY
-	},
-	pay_all() {
-		push_undo()
-		for (let v = first_vassal; v <= last_vassal; v++) {
-			if (is_vassal_mustered_with_friendly_lord(v)
-			&& get_vassal_service(v) === current_turn()) {
-				pay_vassal(v)
-				reduce_influence(1)
-				game.what = NOBODY
-			}
-		}
-	},
-	disband() {
-		push_undo()
-		disband_vassal(game.what)
-		game.what = NOBODY
-	},
-	done() {
-		end_pay_vassals()
-	},
-}
-
-// === 3.2.4 DISBAND ===
-
-function disband_lord(lord, permanently = false) {
-	let turn = current_turn()
-	let extra = 6
-
-	if (permanently) {
-		log(`Removed L${lord}.`)
-		set_lord_locale(lord, NOWHERE)
-	} else if (lord_has_capability(lord, AOW_YORK_ENGLAND_IS_MY_HOME)) {
-		set_lord_calendar(lord, turn + (extra - data.lords[lord].influence))
-		log(`Disbanded L${lord} to turn ${current_turn() + 1}.`)
-	}
-	else	{
-		set_lord_calendar(lord, turn + (extra - data.lords[lord].influence))
-		log(`Disbanded L${lord} to turn ${get_lord_calendar(lord)}.`)
-	}
-
-	discard_lord_capability_n(lord, 0)
-	discard_lord_capability_n(lord, 1)
-
-	for (let x = 0; x < ASSET_TYPE_COUNT; ++x)
-		set_lord_assets(lord, x, 0)
-
-	for (let x = 0; x < FORCE_TYPE_COUNT; ++x) {
-		set_lord_forces(lord, x, 0)
-		if (get_lord_routed_forces(lord, x) > 0) {
-			set_lord_routed_forces(lord, x, 0)
-		}
-	}
-
-	set_lord_moved(lord, 0)
-
-	for_each_vassal_with_lord(lord, v => {
-		disband_vassal(v)
-	})
-}
-
-// === 3.3.1 MUSTER EXILES ===
-
-function goto_muster_exiles() {
-	for (let x = first_friendly_lord; x <= last_friendly_lord; x++) {
-		if ((get_lord_locale(x) === current_turn() + CALENDAR && get_lord_in_exile(x))
-		|| (is_lancaster_lord(x) && is_lord_on_calendar((get_lord_locale(x)) && get_lord_in_exile(x) && is_event_in_play(EVENT_LANCASTER_BE_SENT_FOR)))) {
-			game.state = "muster_exiles"
-			return
-		}
-	}
-	end_muster_exiles()
-}
-
-function end_muster_exiles() {
-	set_active_enemy()
-
-	if (game.active === P1) {
-		if (!check_disband_victory()) {
-			goto_ready_vassals()
-		}
-	} else {
-		goto_muster_exiles()
-	}
-}
-
-states.muster_exiles = {
-	inactive: "Muster Exiles",
-	prompt() {
-		view.prompt = "Muster Exiled Lords."
-		let done = true
-
-		if (game.who === NOBODY) {
-			for (let x = first_friendly_lord; x <= last_friendly_lord; x++) {
-				if ((get_lord_locale(x) === current_turn() + CALENDAR && get_lord_in_exile(x))
-				|| (is_lancaster_lord(x) && is_lord_on_calendar((get_lord_locale(x)) && get_lord_in_exile(x) && is_event_in_play(EVENT_LANCASTER_BE_SENT_FOR)))) {
-					gen_action_lord(x)
-					done = false
-				}
-			}
-		} else {
-			for (let loc of data.exile_boxes)
-				if (has_favour_in_locale(game.active, loc))
-					gen_action_locale(loc)
-		}
-
-		if (done) {
-			view.actions.done = true
-		}
-	},
-	lord(lord) {
-		game.who = lord
-	},
-	locale(loc) {
-		muster_lord_in_exile(game.who, loc)
-		game.who = NOBODY
-	},
-	done() {
-		end_muster_exiles()
-	},
-}
-
-function muster_lord_in_exile(lord, exile_box) {
-	remove_lord_from_exile(lord)
-	muster_lord(lord, exile_box)
-}
-
-// === 3.3.2 READY VASSALS ===
-
-function goto_ready_vassals() {
-	for (let vassal = first_vassal; vassal <= last_vassal; vassal++) {
-		if (get_vassal_service(vassal) === current_turn()) {
-			set_vassal_lord_and_service(vassal, VASSAL_READY, 0)
-		}
-	}
-
-	goto_levy_muster()
-}
-
-// === 3.4 MUSTER ===
-
-function reset_flags_for_muster() {
-	// to avoid some flags affecting campaign
-	game.flags.jack_cade = 0
-	game.flags.parliament_votes = 0
-}
-
-function goto_levy_muster() {
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-		clear_lords_moved()
-		// additionnal free specific actions
-		if (lord_has_capability(lord, AOW_LANCASTER_THOMAS_STANLEY))
-			game.flags.free_levy = 1
-		if (is_event_in_play(EVENT_LANCASTER_MY_CROWN_IS_IN_MY_HEART))
-			game.flags.free_parley_henry = 2
-		if (is_event_in_play(EVENT_YORK_GLOUCESTER_AS_HEIR))
-			game.flags.free_parley_gloucester = 3
-		if (is_event_in_play(EVENT_YORK_LOYALTY_AND_TRUST))
-			game.flags.loyalty_and_trust = 1
-	}
-	if (game.active === YORK)
-		log_h2("York Muster")
-	else
-		log_h2("Lancaster Muster")
-
-	game.state = "levy_muster"
-}
-
-function end_levy_muster() {
-	clear_lords_moved()
-	set_active_enemy()
-	if (game.active === P2)
-		goto_levy_muster()
-	else
-		goto_levy_discard_events()
-}
-
-function can_lord_muster(lord) {
-	// already mustered (except free levy)! TODO : re-check parley henry if ships are levied and at exile
-	if (get_lord_moved(lord)
-	&& (game.flags.free_levy !== 1 || lord !== LORD_HENRY_TUDOR)
-	&& (game.flags.free_parley_henry === 0 || lord !== LORD_HENRY_VI || (lord === LORD_HENRY_VI && !can_action_parley_levy()))
-	&& (game.flags.free_parley_gloucester === 0 || (lord !== LORD_GLOUCESTER_1 || lord !== LORD_GLOUCESTER_2)))
-		return false
-
-	// must be on map
-	if (is_lord_on_map(lord)) {
-		// can use lordship
-		if (is_lord_at_friendly_locale(lord))
-			return true
-		// can only parley
-		if (can_parley_at(get_lord_locale(lord)))
-			return true
-	}
-	return false
-}
-
-function has_locale_to_muster(lord) {
-	// Can muster at own seat without enemy lord.
-	if (!has_enemy_lord(data.lords[lord].seat))
-		return true
-
-	// Else, can muster at any friendly seat (of a friendly lord who is also in play)
-	for (let other = first_friendly_lord; other <= last_friendly_lord; other++)
-		if (is_lord_in_play(other) && is_friendly_locale(data.lords[other].seat))
-			return true
-
-	// Tough luck!
-	return false
-}
-
-states.levy_muster = {
-	inactive: "Muster",
-	prompt() {
-		view.prompt = "Levy: Muster with your Lords."
-
-		prompt_held_event()
-		let done = true
-		for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-			if (can_lord_muster(lord)) {
-				gen_action_lord(lord)
-				done = false // ???
-			}
-		}
-		if (done) {
-			view.prompt += ""
-			view.actions.end_muster = 1
-		}
-	},
-	lord(lord) {
-		push_undo()
-		log(`Mustered with L${lord}.`)
-		push_state("levy_muster_lord")
-		game.who = lord
-		game.count = data.lords[lord].lordship
-		reset_flags_for_muster()
-		lordship_effects(lord)
-	},
-	end_muster() {
-		end_levy_muster()
-	},
-
-	card: action_held_event,
-}
-
-function resume_levy_muster_lord() {
-	game.state = "levy_muster_lord"
-	--game.count
-
-	// muster over only if the lord has not spend their free levy actions
-	if (game.count === 0 && game.flags.jack_cade === 0 && game.flags.free_levy === 0 && can_add_troops(game.who, get_lord_locale(game.who))) {
-		set_lord_moved(game.who, 1)
-		pop_state()
-	}
-}
-
-states.levy_muster_lord = {
-	inactive: "Muster",
-	prompt() {
-		if (game.count === 1)
-			view.prompt = `Levy: ${lord_name[game.who]} has ${game.count} action.`
-		else
-			view.prompt = `Levy: ${lord_name[game.who]} has ${game.count} actions.`
-
-		let here = get_lord_locale(game.who)
-
-		if (is_friendly_locale(here)) {
-			if (game.count > 0) {
-				// Roll to muster Ready Lord at Seat
-				for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-					if (is_lord_ready(lord) && has_locale_to_muster(lord))
-						gen_action_lord(lord)
-				}
-
-				// Muster Ready Vassal Forces
-				for (let vassal = first_vassal; vassal <= last_vassal; vassal++)
-					if (eligible_vassal(vassal))
-						gen_action_vassal(vassal)
-
-				// Add Transport
-				if (is_seaport(here) && get_lord_assets(game.who, SHIP) < 2)
-					view.actions.take_ship = 1
-
-				if (can_add_transport(game.who, CART))
-					view.actions.take_cart = 1
-
-				if (can_add_troops(game.who, here))
-					view.actions.levy_troops = 1
-
-				// Add Capability
-				if (can_add_lord_capability(game.who))
-					view.actions.capability = 1
-
-				if (can_action_parley_levy())
-					view.actions.parley = 1
-
-				if (can_add_troops_beloved_warwick(game.who, here))
-					view.actions.levy_beloved_warwick = 1
-
-				if (can_add_troops_irishmen(game.who, here))
-					view.actions.levy_irishmen = 1
-
-				if (can_add_troops_sof(game.who, here))
-					view.actions.soldiers_of_fortune = 1
-
-				if (can_add_troops_coa(game.who, here))
-					view.actions.commission_of_array = 1
-			}
-
-			if (game.count === 0 && lord_has_capability(game.who, AOW_LANCASTER_THOMAS_STANLEY) && can_add_troops(game.who, here)) {
-				view.actions.levy_troops = 1
-			}
-			// Rising wages event
-			if (is_event_in_play(EVENT_LANCASTER_RISING_WAGES) && !can_pay_from_shared(game.who)) {
-				view.actions.levy_troops = 0
-			}
-			if (game.count === 0 && game.flags.free_parley_henry > 0 && game.who === LORD_HENRY_VI) {
-				view.actions.parley = 1
-			}
-			if (game.count === 0 && game.flags.free_parley_gloucester > 0 && (game.who === LORD_GLOUCESTER_2 || game.who === LORD_GLOUCESTER_1)) {
-				view.actions.parley = 1
-			}
-			if (game.count === 0 && game.flags.jack_cade > 0) {
-				view.actions.parley = 1
-			}
-
-		} else {
-			// Can only Parley if locale is not friendly.
-			if (game.count > 0) {
-				if (can_action_parley_levy())
-					view.actions.parley = 1
-			}
-		}
-
-		if (is_event_in_play(EVENT_YORK_LOYALTY_AND_TRUST) && game.flags.loyalty_and_trust) {
-			view.actions.loyalty_and_trust = 1
-		}
-
-		view.actions.done = 1
-	},
-
-	lord(other) {
-		push_undo()
-		goto_levy_muster_lord_attempt(other)
-	},
-
-	vassal(vassal) {
-		push_undo()
-		game.which = vassal
-		goto_levy_muster_vassal(vassal)
-	},
-
-	take_ship() {
-		push_undo()
-		if (check_naval_blockade("levy ship", get_lord_locale(game.who))) {
-			roll_naval_blockade()
-		}
-		else {
-			push_the_kings_name()
-			add_lord_assets(game.who, SHIP, 1)
-			goto_the_kings_name("Levy Ship")
-		}
-	},
-
-	take_cart() {
-		push_undo()
-		push_the_kings_name()
-		add_lord_assets(game.who, CART, 2)
-		goto_the_kings_name("Levy Cart")
-	},
-
-	levy_troops() {
-		push_undo()
-		push_the_kings_name()
-
-		if (is_event_in_play(EVENT_LANCASTER_RISING_WAGES) && game.active === YORK) {
-			goto_rising_wages()
-			return
-		}
-
-		do_levy_troops()
-	},
-
-	levy_beloved_warwick() {
-		push_undo()
-		push_the_kings_name()
-		add_lord_forces(game.who, MILITIA, 5)
-		goto_the_kings_name("Beloved Warwick")
-	},
-
-	levy_irishmen() {
-		push_undo()
-		push_the_kings_name()
-		add_lord_forces(game.who, MILITIA, 5)
-		goto_the_kings_name("Irishmen")
-	},
-
-	soldiers_of_fortune() {
-		push_undo()
-		push_the_kings_name()
-		set_lord_unfed(game.who, 1)
-		push_state("soldiers_of_fortune")
-	},
-
-	commission_of_array() {
-		push_undo()
-		push_the_kings_name()
-		game.state = "commission_of_array"
-	},
-
-	capability() {
-		push_undo()
-		push_the_kings_name()
-		game.state = "muster_capability"
-	},
-
-	parley() {
-		push_undo()
-		push_the_kings_name()
-		goto_parley()
-	},
-
-	loyalty_and_trust() {
-		push_undo()
-		game.count += 3
-		game.flags.loyalty_and_trust = 0
-	},
-
-	done() {
-		set_lord_moved(game.who, 1)
-		pop_state()
-	},
-}
-
-// Check if the levy troops is at vassal seat
-function chamberlains_eligible_levy(locale) {
-	for (let vassal = first_vassal; vassal <= last_vassal; ++vassal)
-		if (is_vassal_mustered_with(vassal, game.who) && lord_has_capability(game.who, AOW_LANCASTER_CHAMBERLAINS)) {
-			if (locale === data.vassals[vassal].seat)
-				return true
-		}
-}
-
-function do_levy_troops() {
-	let here = get_lord_locale(game.who)
-	if (
-		!lord_has_capability(game.who, AOW_LANCASTER_QUARTERMASTERS) &&
-		!lord_has_capability(game.who, AOW_YORK_WOODWILLES) &&
-		!chamberlains_eligible_levy(here)
-	)
-		deplete_locale(here)
-
-	let here_type = data.locales[here].type
-	switch (here_type) {
-		case "calais":
-			add_lord_forces(game.who, MEN_AT_ARMS, 2)
-			add_lord_forces(game.who, LONGBOWMEN, 1)
-			break
-		case "london":
-			add_lord_forces(game.who, MEN_AT_ARMS, 1)
-			add_lord_forces(game.who, LONGBOWMEN, 1)
-			add_lord_forces(game.who, MILITIA, 1)
-			break
-		case "harlech":
-			add_lord_forces(game.who, MEN_AT_ARMS, 1)
-			add_lord_forces(game.who, LONGBOWMEN, 2)
-			break
-		case "city":
-			add_lord_forces(game.who, LONGBOWMEN, 1)
-			add_lord_forces(game.who, MILITIA, 1)
-			break
-		case "town":
-			add_lord_forces(game.who, MILITIA, 2)
-			break
-		case "fortress":
-			add_lord_forces(game.who, MEN_AT_ARMS, 1)
-			add_lord_forces(game.who, MILITIA, 1)
-			break
-	}
-	if (game.flags.free_levy === 1) {
-		++game.count
-		game.flags.free_levy = 0
-	}
-
-	if (is_event_in_play(EVENT_YORK_THE_COMMONS) && is_york_lord(game.who)) {
-		goto_the_commons()
-	} else {
-		goto_the_kings_name("Levy Troops")
-	}
-}
-
-// === 3.4.2 LEVY LORD ===
-
-function goto_levy_muster_lord_attempt(lord) {
-	game.what = lord
-	push_state("levy_muster_lord_attempt")
-	init_influence_check(game.who)
-}
-
-states.levy_muster_lord_attempt = {
-	inactive: "Levy Lord",
-	prompt() {
-		view.prompt = `Levy Lord ${lord_name[game.what]}. `
-
-		prompt_influence_check()
-	},
-	spend1: add_influence_check_modifier_1,
-	spend3: add_influence_check_modifier_2,
-	check() {
-		let results = do_influence_check()
-		end_influence_check()
-
-		log(`Attempt to levy L${game.what} ${results.success ? "Successful" : "Failed"}: (${range(results.rating)}) ${results.success ? HIT[results.roll] : MISS[results.roll]}`)
-
-		if (results.success) {
-			game.who = game.what
-			pop_state()
-			push_state("muster_lord_at_seat")
-		}
-		else {
-			pop_state()
-			resume_levy_muster_lord()
-		}
-	},
-}
-
-states.muster_lord_at_seat = {
-	inactive: "Muster",
-	prompt() {
-		view.prompt = `Muster: Select Locale for ${lord_name[game.who]}.`
-		let found = false
-		let seat = data.lords[game.who].seat
-		if (!has_enemy_lord(seat)) {
-			gen_action_locale(seat)
-			found = true
-		}
-
-		if (!found) {
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; lord++) {
-				if ((is_lord_on_map(lord) || is_lord_on_calendar(lord)) && is_friendly_locale(data.lords[lord].seat)) {
-					gen_action_locale(data.lords[lord].seat)
-				}
-			}
-		}
-	},
-	locale(loc) {
-		push_undo()
-
-		set_lord_moved(game.who, 1)
-		muster_lord(game.who, loc)
-		if (game.active === YORK) {
-			add_favoury_marker(loc)
-			remove_favourl_marker(loc)
-		} else {
-			add_favourl_marker(loc)
-			remove_favoury_marker(loc)
-		}
-
-		pop_state()
-		goto_the_kings_name("Levy Lord")
-	},
-}
-
-// === 3.4.3 LEVY VASSAL ===
-
-function eligible_vassal(vassal) {
-	if (!is_vassal_ready(vassal)) {
-		return false
-	}
-	if (
-		!is_favour_friendly(data.vassals[vassal].seat) &&
-		(game.who !== LORD_HENRY_TUDOR || !is_event_in_play(EVENT_LANCASTER_MARGARET_BEAUFORT))
-	) {
-		return false
-	}
-	if (!is_favour_friendly(data.vassals[vassal].seat))
-		return false
-	if (
-		game.active === LANCASTER &&
-		is_event_in_play(EVENT_YORK_YORKISTS_BLOCK_PARLIAMENT) &&
-		!(is_event_in_play(EVENT_LANCASTER_MARGARET_BEAUFORT) && !is_event_in_play(EVENT_LANCASTER_THE_EARL_OF_RICHMOND))
-	) {
-		return false
-	}
-	return true
-}
-
-function goto_levy_muster_vassal(vassal) {
-	game.where = NOWHERE
-	let influence_cost = 0
-	if (game.active === YORK && is_event_in_play(EVENT_LANCASTER_BUCKINGHAMS_PLOT))
-		influence_cost += 2
-
-	push_state("levy_muster_vassal")
-	init_influence_check(game.who)
-	game.check.push({
-		cost: influence_cost,
-		modifier: data.vassals[vassal].influence * (game.active === LANCASTER ? -1 : 1),
-		source: "vassal",
-	})
-}
-
-states.levy_muster_vassal = {
-	inactive: "Levy Vassal",
-	prompt() {
-		view.prompt = `Levy Vassal ${data.vassals[game.which].name}. `
-		prompt_influence_check()
-	},
-	spend1: add_influence_check_modifier_1,
-	spend3: add_influence_check_modifier_2,
-	check() {
-		let results = do_influence_check()
-		end_influence_check()
-
-		if (lord_has_capability(game.who, AOW_LANCASTER_TWO_ROSES)) {
-			log(`Automatic Success. C${AOW_LANCASTER_TWO_ROSES}.`)
-		}
-		else if (game.active === LANCASTER && is_event_in_play(EVENT_LANCASTER_THE_EARL_OF_RICHMOND) && game.state === "levy_muster_vassal") {
-			log(`Automatic Success. C${EVENT_LANCASTER_THE_EARL_OF_RICHMOND}.`)
-		}
-		else {
-			log(`Attempt to levy V${game.which} ${results.success ? "Successful" : "Failed"}: (${range(results.rating)}) ${results.success ? HIT[results.roll] : MISS[results.roll]}`)
-		}
-
-		if (results.success) {
-			muster_vassal(game.which, game.who)
-			pop_state()
-			goto_the_kings_name("Levy Vassal")
-		} else {
-			pop_state()
-			resume_levy_muster_lord()
-		}
-	},
-}
-
-// === 3.4.4 LEVY TROOPS ===
-
-function can_add_troops(_lordwho, locale) {
-	if (!has_exhausted_marker(locale) && !is_exile(locale))
-		return true
-	return false
-}
-
-function can_add_troops_coa(lordwho, locale) {
-	for (let next of data.locales[locale].adjacent) {
-		if (is_friendly_locale(next) && lord_has_capability(lordwho, AOW_LANCASTER_COMMISION_OF_ARRAY) && (!has_exhausted_marker(locale) && !is_exile(locale)))
-			return true
-	}
-	return false
-}
-
-function can_add_troops_beloved_warwick(lordwho, locale) {
-	return (
-		lord_has_capability(lordwho, AOW_YORK_BELOVED_WARWICK) &&
-		!has_exhausted_marker(locale) &&
-		!is_exile(locale)
-	)
-}
-
-function can_add_troops_irishmen(lordwho, locale) {
-	return (
-		lord_has_capability(lordwho, AOW_YORK_IRISHMEN) &&
-		!has_exhausted_marker(locale) &&
-		(locale === LOC_IRELAND || data.port_3.includes(locale))
-	)
-}
-
-function can_add_troops_sof(lordwho, locale) {
-	if (
-		lord_has_capability(lordwho, AOW_YORK_SOLDIERS_OF_FORTUNE) &&
-		!has_exhausted_marker(locale) &&
-		!is_exile(locale) &&
-		get_shared_assets(locale, COIN) > 0
-	) {
-		let number = 6
-		for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord)
-			number -= get_lord_forces(lord, MERCENARIES)
-		if (number >= 1)
-			return true
-	}
-	return false
-}
-
-// === 3.4.5 LEVY TRANSPORT
-
-function can_add_transport(who, what) {
-	return get_lord_assets(who, what) < 100
-}
-
-// === 3.4.6 LEVY CAPABILITY ===
-
-function lord_has_capability_card(lord, c) {
-	if (get_lord_capability(lord, 0) === c)
-		return true
-	if (get_lord_capability(lord, 1) === c)
-		return true
-	return false
-}
-
-function lord_has_capability(lord, card_or_list) {
-	if (Array.isArray(card_or_list)) {
-		for (let card of card_or_list)
-			if (lord_has_capability_card(lord, card))
-				return true
-		return false
-	}
-	return lord_has_capability_card(lord, card_or_list)
-}
-
-function lord_already_has_capability(lord, c) {
-	// compare capabilities by name...
-	let name = data.cards[c].capability
-	let c1 = get_lord_capability(lord, 0)
-	if (c1 >= 0 && data.cards[c1].capability === name)
-		return true
-	let c2 = get_lord_capability(lord, 1)
-	if (c2 >= 0 && data.cards[c2].capability === name)
-		return true
-	return false
-}
-
-function can_add_lord_capability(lord) {
-	if (get_lord_capability(lord, 0) < 0)
-		return true
-	if (get_lord_capability(lord, 1) < 0)
-		return true
-	return false
-}
-
-function forbidden_levy_capabilities(c) {
-	// Some capabilities override the forbidden levy vassals
-	if (lord_has_capability(game.who, AOW_LANCASTER_TWO_ROSES)) {
-		if (c === AOW_LANCASTER_THOMAS_STANLEY || AOW_LANCASTER_MY_FATHERS_BLOOD) {
-			return true
-		}
-	}
-	// Forbids levy vassals, even through capabilities
-	if (is_event_in_play(EVENT_YORK_YORKISTS_BLOCK_PARLIAMENT)) {
-		if (c === AOW_LANCASTER_THOMAS_STANLEY
-			|| c === AOW_LANCASTER_EDWARD
-			|| c === AOW_LANCASTER_MONTAGU
-			|| c === AOW_LANCASTER_MY_FATHERS_BLOOD
-			|| c === AOW_LANCASTER_ANDREW_TROLLOPE) {
-			return false
-		}
-	}
-	return true
-}
-
-function add_lord_capability(lord, c) {
-	if (get_lord_capability(lord, 0) < 0)
-		return set_lord_capability(lord, 0, c)
-	if (get_lord_capability(lord, 1) < 0)
-		return set_lord_capability(lord, 1, c)
-	throw new Error("no empty capability slots!")
-}
-
-function discard_lord_capability_n(lord, n) {
-	set_lord_capability(lord, n, NOTHING)
-}
-
-function discard_lord_capability(lord, c) {
-	if (get_lord_capability(lord, 0) === c)
-		return set_lord_capability(lord, 0, NOTHING)
-	if (get_lord_capability(lord, 1) === c)
-		return set_lord_capability(lord, 1, NOTHING)
-	throw new Error("capability not found")
-}
-
-states.muster_capability = {
-	inactive: "Muster",
-	prompt() {
-		let deck = list_deck()
-		view.prompt = `Muster: Select a new Capability for ${lord_name[game.who]}.`
-		view.arts_of_war = deck
-		for (let c of deck) {
-			if (!data.cards[c].lords || set_has(data.cards[c].lords, game.who)) {
-				if (!lord_already_has_capability(game.who, c) && forbidden_levy_capabilities(c))
-					gen_action_card(c)
-			}
-		}
-	},
-	card(c) {
-		add_lord_capability(game.who, c)
-		capability_muster_effects(game.who, c)
-		goto_the_kings_name("Capability C${c}")
-	},
-}
-
-// === 3.4 MUSTER - DISCARD EVENTS ===
-
-function goto_levy_discard_events() {
-	// Discard "This Levy" events from play.
-	discard_events("this_levy")
-	discard_extra_levy_events()
-	goto_campaign_plan()
-}
-
-// === 4.1 CAMPAIGN: PLAN ===
-
-function goto_campaign_plan() {
-	game.turn++
-
-	log_h1("Campaign " + current_turn_name())
-
-	set_active(BOTH)
-	game.state = "campaign_plan"
-	game.plan_y = []
-	game.plan_l = []
-}
-
-states.campaign_plan = {
-	inactive: "Plan",
-	prompt(current) {
-		let plan = current === YORK ? game.plan_y : game.plan_l
-		let first = current === YORK ? first_york_lord : first_lancaster_lord
-		let last = current === YORK ? last_york_lord : last_lancaster_lord
-		view.plan = plan
-		view.actions.plan = []
-
-		if (plan.length === max_plan_length())
-			view.prompt = "Plan: All done."
-		else
-			view.prompt = "Plan: Build a Plan."
-
-		if (plan.length < max_plan_length()) {
-			view.actions.end_plan = 0
-			if (count_cards_in_plan(plan, NOBODY) < 7)
-				gen_action_plan(NOBODY)
-
-			for (let lord = first; lord <= last; ++lord) {
-				if (is_lord_on_map(lord) && count_cards_in_plan(plan, lord) < 3)
-					gen_action_plan(lord)
-			}
-
-		} else {
-			view.actions.end_plan = 1
-		}
-
-		if (plan.length > 0)
-			view.actions.undo = 1
-		else
-			view.actions.undo = 0
-	},
-	plan(lord, current) {
-		if (current === YORK)
-			game.plan_y.push(lord)
-		else
-			game.plan_l.push(lord)
-	},
-	undo(_, current) {
-		if (current === YORK) {
-			game.plan_y.pop()
-		} else {
-			game.plan_l.pop()
-		}
-	},
-	end_plan(_, current) {
-		if (game.active === BOTH) {
-			if (current === YORK)
-				set_active(LANCASTER)
-			else
-				set_active(YORK)
-		} else {
-			end_campaign_plan()
-		}
-	},
-}
-
-function end_campaign_plan() {
-	set_active(P1)
-	goto_command_activation()
-}
-
-// === 4.2 CAMPAIGN: COMMAND ===
-
-// First action vs actions that take full command card
-function is_first_action() {
-	return game.flags.first_action
-}
-
-// If march on a highway, set the flag so the lord can go through
-// a second highway at no cost
-function is_first_march_highway() {
-	if (game.flags.first_march_highway === 1)
-		return true
-	else
-		return false
-}
-
-function goto_command_activation() {
-	if (game.plan_y.length === 0 && game.plan_l.length === 0) {
-		game.command = NOBODY
-		goto_end_campaign()
-		return
-	}
-
-	if (check_campaign_victory())
-		return
-
-	if (game.plan_l.length > game.plan_y.length) {
-		set_active(LANCASTER)
-		game.command = game.plan_l.shift()
-	} else if (game.plan_l.length < game.plan_y.length) {
-		set_active(YORK)
-		game.command = game.plan_y.shift()
-	} else {
-		set_active(P1)
-		if (P1 === LANCASTER)
-			game.command = game.plan_l.shift()
-		else
-			game.command = game.plan_y.shift()
-	}
-
-	if (game.command === NOBODY) {
-		log_h2("Pass")
-		goto_command_activation()
-	} else if (!is_lord_on_map(game.command)) {
-		log_h2(`L${game.command} - Pass`)
-		goto_command_activation()
-	} else {
-		log_h2(`L${game.command} at %${get_lord_locale(game.command)}`)
-		goto_command()
-	}
-}
-
-function goto_command() {
-	game.actions = data.lords[game.command].command
-	if (lord_has_capability(game.command, AOW_YORK_THOMAS_BOURCHIER) && is_city(get_lord_locale(game.command)))
-		game.actions += 1
-	if (lord_has_capability(game.command, AOW_YORK_YORKS_FAVOURED_SON))
-		game.actions += 1
-	if (lord_has_capability(game.command, AOW_YORK_HASTINGS))
-		game.actions += 1
-
-	game.group = [ game.command ]
-
-	game.flags.surprise_landing = 0
-	game.flags.first_action = 1
-	game.flags.first_march_highway = 0
-	game.flags.march_to_port = 0
-	game.flags.sail_to_port = 0
-
-	resume_command()
-}
-
-function resume_command() {
-	game.state = "command"
-}
-
-// Spending an action reset some flags
-function spend_action(cost) {
-	game.flags.surprise_landing = 0
-	game.flags.first_action = 0
-	game.flags.first_march_highway = 0
-	game.actions -= cost
-}
-
-function spend_march_action(cost) {
-	game.flags.surprise_landing = 0
-	game.flags.first_action = 0
-	game.flags.first_march_highway = 0
-	game.actions -= cost
-}
-
-function spend_all_actions() {
-	game.flags.surprise_landing = 0
-	game.flags.first_action = 0
-	game.flags.first_march_highway = 0
-	game.actions = 0
-}
-
-function end_command() {
-	log_br()
-
-	game.group = 0
-	game.flags.first_action = 0
-	game.flags.first_march_highway = 0
-	game.flags.famine = 0
-
-	// NOTE: Feed currently acting side first for expedience.
-	set_active_command()
-	goto_feed()
-}
-
-states.command = {
-	inactive: "Command",
-	prompt() {
-		if (game.actions === 0)
-			view.prompt = `Command: ${lord_name[game.command]} has no more actions.`
-		else if (game.actions === 1)
-			view.prompt = `Command: ${lord_name[game.command]} has ${game.actions} action.`
-		else
-			view.prompt = `Command: ${lord_name[game.command]} has ${game.actions} actions.`
-
-		view.group = game.group
-
-		let here = get_lord_locale(game.command)
-
-		prompt_held_event()
-
-		// 4.3.2 Marshals MAY take other lords
-		if (
-			is_marshal(game.command) ||
-			(lord_has_capability(game.command, AOW_YORK_CAPTAIN) && !other_marshal_or_lieutenant(here))
-		) {
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord)
-				if (lord !== game.command)
-					if (get_lord_locale(lord) === here)
-						gen_action_lord(lord)
-		}
-
-		// Lieutenant may not take marshall
-		if (is_lieutenant(game.command)) {
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord)
-				if (lord !== game.command)
-					if (get_lord_locale(lord) === here && !is_marshal(lord)) {
-						gen_action_lord(lord)
-					}
-		}
-
-		if (game.actions > 0)
-			view.actions.pass = 1
-		else
-			view.actions.end_command = 1
-
-		prompt_march()
-
-		if (can_action_supply())
-			view.actions.supply = 1
-		if (can_action_forage())
-			view.actions.forage = 1
-		if (can_action_tax())
-			view.actions.tax = 1
-		if (can_action_sail())
-			view.actions.sail = 1
-		if (can_action_parley_command())
-			view.actions.parley = 1
-		if (can_action_heralds())
-			view.actions.heralds = 1
-		if (can_action_merchants())
-			view.actions.merchants = 1
-		if (can_action_agitators())
-			view.actions.agitators = 1
-
-		if (is_york_lord(game.command))
-			if (can_action_exile_pact())
-				view.actions.exile_pact = 1
-	},
-
-	pass() {
-		push_undo()
-		log("Passed.")
-		spend_all_actions()
-	},
-
-	end_command() {
-		push_undo()
-		end_command()
-	},
-
-	forage: goto_forage,
-	supply: goto_supply,
-	tax: goto_tax,
-	sail: goto_sail,
-	heralds: goto_heralds,
-	merchants: goto_merchants,
-	agitators: goto_agitators,
-	exile_pact: goto_exile_pact,
-
-	locale: goto_march,
-
-	lord(lord) {
-		set_toggle(game.group, lord)
-	},
-
-	card: action_held_event,
-
-	parley() {
-		push_undo()
-		goto_parley()
-	},
-}
-
-// === 4.5 ACTION: SUPPLY (SEARCH) ===
-
-function can_supply_at(loc, ships) {
-	// if theoretically possible to supply (does not check carts or ships)
-	if (is_stronghold(loc) && is_friendly_locale(loc)) {
-		if (ships > 0 && is_seaport(loc))
-			return true
-		if (!has_exhausted_marker(loc))
-			return true
-	}
-	return false
-}
-
-function search_supply_by_way(result, start, carts, ships) {
-	search_dist.fill(0)
-	search_seen.fill(0)
-	search_seen[start] = 1
-
-	let queue = [ start ]
-	while (queue.length > 0) {
-		let here = queue.shift()
-		let dist = search_dist[here]
-
-		if (can_supply_at(here, ships)) {
-			if (result)
-				map_set(result, here, dist)
-			else
-				return true
-		}
-
-		if (is_friendly_locale(here)) {
-			let next_dist = dist + 1
-			if (next_dist <= carts) {
-				for (let next of data.locales[here].adjacent) {
-					if (!search_seen[next]) {
-						search_seen[next] = 1
-						search_dist[next] = next_dist
-						queue.push(next)
-					}
-				}
-			}
-		}
-	}
-
-	if (result)
-		return result
-	return false
-}
-
-function search_supply_by_sea(result, here) {
-	// Search via sea from Exile box.
-	if (is_friendly_locale(here)) {
-		for (let next of find_ports(here)) {
-			if (can_supply_at(next, 1)) {
-				if (result)
-					map_set(result, next, 0)
-				else
-					return true
-			}
-		}
-	}
-	if (result)
-		return result
-	return false
-}
-
-function search_supply(result) {
-	let here = get_lord_locale(game.command)
-	let carts = get_shared_assets(here, CART)
-	let ships = get_shared_assets(here, SHIP)
-	if (ships > 0 && is_exile(here))
-		result = search_supply_by_sea(result, here)
-	result = search_supply_by_way(result, here, carts, ships)
-	return result
-}
-
-// === 4.5 ACTION: SUPPLY ===
-
-function command_has_harbingers() {
-	return (
-		lord_has_capability(game.command, AOW_LANCASTER_HARBINGERS) ||
-		lord_has_capability(game.command, AOW_YORK_HARBINGERS)
-	)
-}
-
-function chamberlains_eligible_supply(source) {
-	for (let vassal = first_vassal; vassal <= last_vassal; ++vassal)
-		if (
-			is_vassal_mustered_with(vassal, game.command) &&
-			lord_has_capability(game.command, AOW_LANCASTER_CHAMBERLAINS)
-		) {
-			if (source === data.vassals[vassal].seat)
-				return true
-		}
-}
-
-function lord_has_stafford_branch(loc, lord) {
-	if (lord_has_capability(lord, AOW_YORK_STAFFORD_BRANCH)) {
-		return (
-			loc === LOC_EXETER ||
-			loc === LOC_LAUNCESTON ||
-			loc === LOC_PLYMOUTH ||
-			loc === LOC_WELLS ||
-			loc === LOC_DORCHESTER
-		)
-	}
-	return false
-}
-
-function init_supply() {
-	game.supply = search_supply([])
-}
-
-function can_action_supply() {
-	if (game.actions < 1)
-		return false
-	return search_supply(false)
-}
-
-function goto_supply() {
-	push_undo()
-	log(`Supplied`)
-	game.state = "supply_source"
-	init_supply()
-}
-
-function modify_supply(loc, supply) {
-	let here = get_lord_locale(game.command)
-	let carts = get_shared_assets(here, CART)
-
-	// Must carry supply over land with one cart per provender per way
-	let distance = map_get(game.supply, loc, 0)
-	if (distance > 0)
-		supply = Math.min(supply, Math.floor(carts / distance))
-
-	// Harbingers event doubles supply received
-	if (command_has_harbingers())
-		supply = supply * 2
-
-	return supply
-}
-
-function get_port_supply_amount(loc) {
-	if (is_seaport(loc)) {
-		let here = get_lord_locale(game.command)
-		let ships = get_shared_assets(here, SHIP)
-		return modify_supply(loc, ships)
-	}
-	return 0
-}
-
-function get_stronghold_supply_amount(loc) {
-	if (!has_exhausted_marker(loc)) {
-		let supply
-
-		if (loc === LOC_LONDON || loc === LOC_CALAIS)
-			supply = 3
-		else if (is_city(loc))
-			supply = 2
-		else
-			supply = 1
-
-		if (lord_has_stafford_branch(loc, game.command))
-			supply += 1
-
-		return modify_supply(loc, supply)
-	}
-	return 0
-}
-
-states.supply_source = {
-	inactive: "Supply",
-	prompt() {
-		view.prompt = "Supply: Select Supply Source."
-
-		let here = get_lord_locale(game.command)
-		let carts = get_shared_assets(here, CART)
-		let ships = get_shared_assets(here, SHIP)
-
-		if (carts > 0)
-			view.prompt += ` ${carts} Cart.`
-		if (ships > 0)
-			view.prompt += ` ${ships} Ship.`
-
-		for (let i = 0; i < game.supply.length; i += 2)
-			gen_action_locale(game.supply[i])
-	},
-	locale(loc) {
-		push_undo()
-
-		let port_supply = get_port_supply_amount(loc)
-		let stronghold_supply = get_stronghold_supply_amount(loc)
-
-		if (stronghold_supply > 0 && port_supply === 0) {
-			use_stronghold_supply(loc, stronghold_supply)
-			return
-		}
-
-		if (port_supply > 0 && stronghold_supply === 0) {
-			use_port_supply(loc, port_supply)
-			return
-		}
-
-		game.where = loc
-		game.state = "select_supply_type"
-	},
-}
-
-function quartermasters_eligible_supply(source) {
-	for (let vassal = first_vassal; vassal <= last_vassal; ++vassal)
-		if (
-			is_vassal_mustered_with(vassal, game.command) &&
-			lord_has_capability(game.command, AOW_LANCASTER_CHAMBERLAINS)
-		) {
-			if (source === data.vassals[vassal].seat)
-				return true
-		}
-}
-
-function use_stronghold_supply(source, amount) {
-	logi(`${amount} from Stronghold at %${source}`)
-	add_lord_assets(game.command, PROV, amount)
-	if (chamberlains_eligible_supply(source)) {
-		end_supply()
-	}
-	else {
-		deplete_locale(source)
-		end_supply()
-	}
-}
-
-function use_port_supply(source, amount) {
-	logi(`${amount} from Port at %${source}`)
-	add_lord_assets(game.command, PROV, amount)
-	end_supply()
-}
-
-function end_supply() {
-	spend_action(1)
-	resume_command()
-	game.supply = 0
-	game.where = NOWHERE
-}
-
-states.select_supply_type = {
-	inactive: "Supply",
-	prompt() {
-		let port = get_port_supply_amount(game.where)
-		let stronghold = get_stronghold_supply_amount(game.where)
-
-		view.prompt = `Supply: ${stronghold} from Stronghold or ${port} from Port?`
-		view.actions.stronghold = 1
-		view.actions.port = 1
-	},
-	stronghold() {
-		use_stronghold_supply(game.where, get_stronghold_supply_amount(game.where))
-	},
-	port() {
-		if (check_naval_blockade("supply", game.where)) {
-			roll_naval_blockade()
-		}
-		else {
-			use_port_supply(game.where, get_port_supply_amount(game.where))
-		}
-	},
-}
-
-// === 4.6.1 ACTION: SAIL ===
-
-function has_enough_available_ships_for_army() {
-	let ships = count_group_ships()
-	let army = count_lord_all_forces(game.group)
-	let needed_ships = army / 6
-	return needed_ships <= ships
-}
-
-function is_seamanship_in_play() {
-	if (game.active === LANCASTER && is_event_in_play(EVENT_LANCASTER_SEAMANSHIP))
-		return true
-	if (game.active === YORK && is_event_in_play(EVENT_YORK_SEAMANSHIP))
-		return true
-	return false
-}
-
-function can_sail_to(to) {
-	if (is_wales_forbidden(to))
-		return false
-	if (has_enemy_lord(to)) {
-		if (is_truce_in_effect())
-			return false
-		if (!lord_has_capability(game.command, AOW_LANCASTER_HIGH_ADMIRAL))
-			return false
-	}
-	return true
-}
-
-function can_action_sail() {
-	// Must use whole action except if seamanship in play
-
-	if (is_lancaster_lord(game.command)) {
-		if (!is_first_action() && !is_event_in_play(EVENT_LANCASTER_SEAMANSHIP))
-			return false
-	}
-
-	if (is_york_lord(game.command)) {
-		if ((is_event_in_play(EVENT_LANCASTER_FRENCH_FLEET) || !is_first_action() && !is_event_in_play(EVENT_YORK_SEAMANSHIP)))
-			return false
-	}
-
-	if (game.actions === 0)
-		return false
-
-	// at a seaport
-	let here = get_lord_locale(game.command)
-	if (!is_seaport(here))
-		return false
-
-	// with enough ships to carry all the army
-	if (!has_enough_available_ships_for_army())
-		return false
-
-	// and a valid destination
-	for (let to of find_sail_locales(here)) {
-		if (to === here)
-			continue
-		if (can_sail_to(to))
-			return true
-	}
-
-	return false
-}
-
-function goto_sail() {
-	push_undo()
-	game.state = "sail"
-}
-
-states.sail = {
-	inactive: "Sail",
-	prompt() {
-		view.group = game.group
-
-		let here = get_lord_locale(game.command)
-		let ships = count_group_ships()
-		let prov = count_group_assets(PROV)
-		let cart = count_group_assets(CART)
-
-		let overflow_prov = (prov / 2 - ships) * 2
-		let overflow_cart = (cart / 2 - ships) * 2
-
-		if (overflow_prov <= 0 && overflow_cart <= 0) {
-			view.prompt = `Sail: Select a destination Port.`
-			for (let to of find_sail_locales(here)) {
-				if (to === here)
-					continue
-				if (can_sail_to(to))
-					gen_action_locale(to)
-			}
-		} else if (overflow_cart > 0) {
-			view.prompt = `Sailing with ${ships} Ships. Please discard ${overflow_cart} Cart`
-			if (cart > 0) {
-				for (let lord of game.group) {
-					if (get_lord_assets(lord, CART) > 0)
-						gen_action_cart(lord)
-				}
-			}
-		} else if (overflow_prov > 0) {
-			view.prompt = `Sailing with ${ships} Ships. Please discard ${overflow_prov} Provender`
-			if (prov > 0) {
-				for (let lord of game.group) {
-					if (get_lord_assets(lord, PROV) > 0)
-						gen_action_prov(lord)
-				}
-			}
-		} else {
-			view.prompt = "ERROR"
-		}
-	},
-	prov: drop_prov,
-	cart: drop_cart,
-	locale(to) {
-		if (check_naval_blockade("sail", get_lord_locale(game.command)) || check_naval_blockade("sail", to)) {
-			roll_naval_blockade()
-			game.where = to
-		}
-		else {
-			do_sail(to)
-		}
-	},
-}
-
-function do_sail(to) {
-	log(`Sailed to %${to}${format_group_move()}.`)
-
-	game.flags.march_to_port = 0
-	if (is_seaport(to))
-		game.flags.sail_to_port = 1
-	else
-		game.flags.sail_to_port = 0
-
-	for (let lord of game.group) {
-		set_lord_locale(lord, to)
-		set_lord_moved(lord, 1)
-		levy_burgundians(lord)
-	}
-
-	if (is_seamanship_in_play())
-		spend_action(1)
-	else
-		spend_all_actions()
-
-	// you can go to unbesieged enemy lord with norfolk capability
-	if (has_unbesieged_enemy_lord(to))
-		goto_confirm_approach_sail()
-	else {
-		resume_command()
-	}
-}
-
-function goto_confirm_approach_sail() {
-	game.state = "confirm_approach_sail"
-}
-
-states.confirm_approach_sail = {
-	inactive: "Sail",
-	prompt() {
-		view.prompt = `Sail: Confirm Approach to enemy Lord.`
-		view.group = game.group
-		view.actions.approach = 1
-	},
-	approach() {
-		push_undo()
-		goto_battle()
-	},
-}
-
-// === 4.6.2 ACTION: FORAGE ===
-
-function can_action_forage() {
-	if (game.actions < 1)
-		return false
-	let here = get_lord_locale(game.command)
-	if (has_exhausted_marker(here) || is_sea(here))
-		return false
-	return true
-}
-
-function goto_forage() {
-	push_undo()
-	let here = get_lord_locale(game.command)
-	if (!has_adjacent_enemy(here) && is_neutral_locale(here)) {
-		let die = roll_die()
-		if (die <= 4) {
-			add_lord_assets(game.command, PROV, 1)
-			log(`${HIT[die]}, Foraged at %${here}`)
-			deplete_locale(here)
-		} else {
-			log(`${MISS[die]}, Forage Failure`)
-		}
-	} else if (has_adjacent_enemy(here) || is_favour_enemy(here, game.active)) {
-		let die = roll_die()
-		if (die <= 3) {
-			add_lord_assets(game.command, PROV, 1)
-			log(`${HIT[die]}, Foraged at %${here}`)
-			deplete_locale(here)
-		} else {
-			log(`${MISS[die]}, Forage Failure`)
-		}
-	} else {
-		add_lord_assets(game.command, PROV, 1)
-		log(`Foraged at %${here}`)
-		deplete_locale(here)
-	}
-	if (lord_has_capability(game.command, AOW_YORK_SCOURERS)) {
-		add_lord_assets(game.command, PROV, 1)
-		log(`1 Extra Provender (Scourers)`)
-	}
-
-	spend_action(1)
-	resume_command()
-}
-
-// === 4.6.3 ACTION: TAX ===
-
-function can_tax_at(here, lord) {
-	if (is_friendly_locale(here) && !has_exhausted_marker(here)) {
-		// London, Calais, and Harlech
-		if (here === LOC_LONDON || here === LOC_CALAIS || here === LOC_HARLECH)
-			return true
-
-		// Own seat
-		if (here === data.lords[lord].seat)
-			return true
-
-		// vassal seats
-		for (let vassal = first_vassal; vassal <= last_vassal; ++vassal)
-			if (is_vassal_mustered_with(vassal, lord))
-				if (here === data.vassals[vassal].seat)
-					return true
-	}
-	return false
-}
-
-// adjacent friendly locales to an eligible stronghold (can_tax_at)
-function search_tax(result, start, lord) {
-	let ships = get_shared_assets(start, SHIP)
-
-	search_seen.fill(0)
-	search_seen[start] = 1
-
-	let queue = [ start ]
-	while (queue.length > 0) {
-		let here = queue.shift()
-
-		if (can_tax_at(here, lord)) {
-			if (result)
-				set_add(result, here)
-			else
-				return true
-		}
-
-		if (is_friendly_locale(here)) {
-			for (let next of data.locales[here].adjacent) {
-				if (!search_seen[next]) {
-					search_seen[next] = 1
-					queue.push(next)
-				}
-			}
-			if (ships > 0 && is_seaport(here)) {
-				for (let next of find_ports(here)) {
-					if (!search_seen[next]) {
-						search_seen[next] = 1
-						queue.push(next)
-					}
-				}
-			}
-		}
-	}
-	if (result)
-		return result
-	else
-		return false
-}
-
-function can_action_tax() {
-	if (game.actions < 1)
-		return false
-	let here = get_lord_locale(game.command)
-	if (can_tax_at(here, game.command))
-		return true
-	return search_tax(false, here, game.command)
-}
-
-function goto_tax() {
-	push_undo()
-	game.state = "tax"
-	game.where = NOWHERE
-	init_influence_check(game.command)
-}
-
-function end_tax() {
-	game.where = NOWHERE
-	spend_action(1)
-	resume_command()
-}
-
-function get_tax_amount(loc, lord) {
-	let tax
-
-	if (loc === LOC_LONDON || loc === LOC_CALAIS)
-		tax = 3
-	else if (is_city(loc))
-		tax = 2
-	else
-		tax = 1
-
-	if (lord_has_stafford_branch(loc, lord)) {
-		log(`C${AOW_YORK_STAFFORD_BRANCH}.`)
-		tax += 1
-	}
-
-	if (lord_has_capability(lord, AOW_YORK_SO_WISE_SO_YOUNG)) {
-		log(`C${AOW_YORK_SO_WISE_SO_YOUNG}.`)
-		tax += 1
-	}
-
-	if (
-		lord === LORD_DEVON && (
-			loc === LOC_EXETER ||
-			loc === LOC_LAUNCESTON ||
-			loc === LOC_PLYMOUTH ||
-			loc === LOC_WELLS ||
-			loc === LOC_DORCHESTER
-		)
-	) {
-		// TODO: log which ability
-		tax += 1
-	}
-
-	return tax
-}
-
-states.tax = {
-	inactive: "Tax",
-	prompt() {
-		view.prompt = "Tax: Select the location to tax."
-		if (game.where === NOWHERE) {
-			for (let loc of search_tax([], get_lord_locale(game.command), game.command))
-				gen_action_locale(loc)
-		} else {
-			view.prompt = `Tax: Attempting to tax ${data.locales[game.where].name}. `
-			prompt_influence_check()
-		}
-	},
-	locale(loc) {
-		game.where = loc
-		if (loc === data.lords[game.command].seat) {
-			// Auto succeed without influence check at Lords seat.
-			deplete_locale(game.where)
-
-			log(`Taxed automatically successful at %${game.where}.`)
-			add_lord_assets(game.command, COIN, get_tax_amount(game.where, game.command))
-			end_tax()
-		}
-	},
-	spend1: add_influence_check_modifier_1,
-	spend3: add_influence_check_modifier_2,
-	check() {
-		let results = do_influence_check()
-		logi(`Tax : ${results.success ? "Successful" : "Failed"}: (${range(results.rating)}) ${results.success ? HIT[results.roll] : MISS[results.roll]}`)
-
-		if (results.success) {
-			deplete_locale(game.where)
-
-			log(`Taxed %${game.where}.`)
-			add_lord_assets(game.command, COIN, get_tax_amount(game.where, game.command))
-		} else {
-			log(`Tax of %${game.where} failed.`)
-		}
-		end_tax()
-	},
-}
-
-// === 4.6.4 ACTION: PARLEY ===
-
-// TODO : FIX Parley through strongholds overseas
-function can_parley_at(loc) {
-	return !is_exile(loc) && !is_friendly_locale(loc) && !has_enemy_lord(loc) && !is_sea(loc)
-}
-
-var search_seen = new Array(last_locale + 1)
-var search_dist = new Array(last_locale + 1)
-
-function search_parley(result, start) {
-	let ships = get_shared_assets(start, SHIP)
-
-	search_dist.fill(0)
-	search_seen.fill(0)
-	search_seen[start] = 1
-
-	let queue = [ start ]
-	while (queue.length > 0) {
-		let here = queue.shift()
-		let dist = search_dist[here]
-		let next_dist = dist + 1
-
-		if (can_parley_at(here)) {
-			if (result)
-				map_set(result, here, dist)
-			else
-				return true
-		}
-
-		if (is_friendly_locale(here)) {
-			for (let next of data.locales[here].adjacent) {
-				if (!search_seen[next]) {
-					search_seen[next] = 1
-					search_dist[next] = next_dist
-					queue.push(next)
-				}
-			}
-			if (ships > 0 && is_seaport(here)) {
-				for (let next of find_ports(here)) {
-					if (!search_seen[next]) {
-						search_seen[next] = 1
-						search_dist[next] = next_dist
-						queue.push(next)
-					}
-				}
-			}
-		}
-	}
-
-	if (result)
-		return result
-	else
-		return false
-}
-
-function can_action_parley_command() {
-	if (game.actions <= 0)
-		return false
-
-	if (is_lord_at_sea(game.command))
-		return false
-
-	if (!is_first_action() && game.active === YORK && is_event_in_play(EVENT_LANCASTER_NEW_ACT_OF_PARLIAMENT))
-		return false
-
-	let here = get_lord_locale(game.command)
-
-	if (can_parley_at(here))
-		return true
-
-	for (let next of data.locales[here].adjacent)
-		if (can_parley_at(next))
-			return true
-
-	if (is_seaport(here) && get_shared_assets(here, SHIP) > 0)
-		for (let next of find_ports(here))
-			if (can_parley_at(next))
-				return true
-
-	return false
-}
-
-function list_parley_command() {
-	let result = []
-
-	let here = get_lord_locale(game.command)
-	if (can_parley_at(here))
-		map_set(result, here, 0)
-
-	if (is_friendly_locale(here)) {
-		for (let next of data.locales[here].adjacent)
-			if (can_parley_at(next))
-				map_set(result, next, 1)
-
-		if (is_seaport(here) && get_shared_assets(here, SHIP) > 0)
-			for (let next of find_ports(here))
-				if (can_parley_at(next))
-					map_set(result, next, 1)
-	}
-
-	return result
-}
-
-function can_action_parley_levy() {
-	if (game.count <= 0
-		&& (game.who !== LORD_HENRY_VI || game.flags.free_parley_henry === 0)
-		&& ((game.who !== LORD_GLOUCESTER_1 && game.who !== LORD_GLOUCESTER_2) || game.flags.free_parley_gloucester === 0)
-		&& (!game.flags.jack_cade))
-		return true
-	let here = get_lord_locale(game.who)
-	if (can_parley_at(here))
-		return true
-	return search_parley(false, here)
-}
-
-function list_parley_levy() {
-	let here = get_lord_locale(game.who)
-	return search_parley([], here)
-}
-
-function goto_parley() {
-	push_state("parley")
-
-	if (is_levy_phase()) {
-		init_influence_check(game.who)
-		game.parley = list_parley_levy()
-	} else {
-		init_influence_check(game.command)
-		game.parley = list_parley_command()
-
-		// Campaign phase, and current location is no cost (except some events), and always successful.
-		if (game.parley.length === 2 && get_lord_locale(game.command) === game.parley[0]) {
-			log(`Parley at ${data.locales[get_lord_locale(game.command)]}`)
-			shift_favour_toward(game.parley[0])
-			if (is_lancaster_card(game.command) && is_event_in_play(EVENT_YORK_AN_HONEST_TALE_SPEEDS_BEST)) {
-				reduce_lancaster_influence(1)
-			}
-			end_parley(true)
-			return
-		}
-	}
-
-	if (game.parley.length === 2) {
-		game.where = game.parley[0]
-		add_influence_check_distance(game.parley[1])
-	} else {
-		game.where = NOWHERE
-	}
-}
-
-function end_parley(success) {
-	pop_state()
-	game.flags.naval_blockade = 0
-	game.where = NOWHERE
-	game.parley = NOTHING
-	if (game.flags.free_parley_henry > 0 && game.who === LORD_HENRY_VI) {
-		--game.flags.free_parley_henry
-		++game.count
-	}
-	if (game.flags.free_parley_gloucester > 0 && (game.who === LORD_GLOUCESTER_1 || game.who === LORD_GLOUCESTER_2)) {
-		--game.flags.free_parley_gloucester
-		++game.count
-	}
-	if (game.flags.jack_cade > 0) {
-		--game.flags.jack_cade
-		++game.count
-	}
-	end_influence_check()
-
-	if (is_campaign_phase()) {
-		if (game.active === YORK && is_event_in_play(EVENT_LANCASTER_NEW_ACT_OF_PARLIAMENT))
-			spend_all_actions()
-		else
-			spend_action(1)
-		resume_command()
-	} else {
-		if (success)
-			goto_the_kings_name("Parley")
-		else
-			resume_levy_muster_lord()
-	}
-}
-
-states.parley = {
-	inactive: "Parley",
-	prompt() {
-		view.prompt = "Parley: Choose a Locale to Parley."
-		if (game.where === NOTHING) {
-			for (let i = 0; i < game.parley.length; i += 2)
-				gen_action_locale(game.parley[i])
-		} else {
-			view.prompt = "Parley: "
-			prompt_influence_check()
-		}
-	},
-	locale(loc) {
-		push_undo()
-		game.where = loc
-		add_influence_check_distance(map_get(game.parley, loc, 0))
-		if (is_levy_phase() && check_naval_blockade("levy parley", loc)) {
-			roll_naval_blockade()
-		}
-		if (is_campaign_phase() && check_naval_blockade("campaign parley", loc))
-			roll_naval_blockade()
-	},
-	spend1: add_influence_check_modifier_1,
-	spend3: add_influence_check_modifier_2,
-	check() {
-		let results = do_influence_check()
-
-		if (game.flags.parliament_votes === 1) {
-			log(`Parley at ${data.locales[game.where].name}. Automatic Success.`)
-			logevent(EVENT_LANCASTER_PARLIAMENT_VOTES)
-			game.flags.parliament_votes = 0
-		}
-		else if (game.flags.jack_cade > 0) {
-			log(`Parley at ${data.locales[game.where].name}. Automatic Success.`)
-			logevent(EVENT_YORK_JACK_CADE)
-		}
-		else if (game.flags.succession === 1) {
-			log(`Parley at ${data.locales[game.where].name}. Automatic Success.`)
-			logevent(EVENT_YORK_SUCCESSION)
-			game.flags.succession = 0
-		}
-		else if (is_campaign_phase()
-		&& game.command === LORD_DEVON
-		&& get_lord_locale(LORD_DEVON) === LOC_EXETER
-		&& is_event_in_play(EVENT_YORK_DORSET)
-		&& game.state === "parley") {
-			log(`Parley at ${data.locales[game.where].name}. Automatic Success. C${EVENT_YORK_DORSET}.`)
-		}
-		else
-			log(`Attempt to Parley at %${game.where} ${results.success ? "Successful" : "Failed"}: (${range(results.rating)}) ${results.success ? HIT[results.roll] : MISS[results.roll]}`)
-		if (results.success) {
-			shift_favour_toward(game.where)
-			end_parley(true)
-		} else {
-			end_parley(false)
-		}
-	},
-}
-
-// === 4.3 ACTION: MARCH ===
-
-function get_way_type(from, to) {
-	return map_get(data.ways[from], to, undefined)
-}
-
-function format_group_move() {
-	if (game.group.length > 1) {
-		let list = []
-		for (let lord of game.group)
-			if (lord !== game.command)
-				list.push("L" + lord)
-		return " with " + list.join(" and ")
-	}
-	return ""
-}
-
-// Wales forbidden to the lancastrians for march, sail, intercept
-function is_wales_forbidden(loc) {
-	if (game.active === LANCASTER && is_event_in_play(EVENT_YORK_OWAIN_GLYNDWR) && is_wales(loc))
-		return true
-	return false
-}
-
-function is_wales_forbidden_to_enemy(loc) {
-	if (game.active !== LANCASTER && is_event_in_play(EVENT_YORK_OWAIN_GLYNDWR) && is_wales(loc))
-		return true
-	return false
-}
-
-function can_march_to(to) {
-	if (is_wales_forbidden(to))
-		return false
-	if (is_truce_in_effect() && has_enemy_lord(to))
-		return false
-	return true
-}
-
-function prompt_march() {
-	let from = get_lord_locale(game.command)
-
-	if (is_first_action()) {
-		for (let to of data.locales[from].paths) {
-			if (can_march_to(to))
-				gen_action_locale(to)
-		}
-	}
-	if (game.actions > 0 || game.flags.surprise_landing === 2) {
-		for (let to of data.locales[from].roads) {
-			if (can_march_to(to))
-				gen_action_locale(to)
-
-		}
-		for (let to of data.locales[from].highways) {
-			if (can_march_to(to))
-				gen_action_locale(to)
-		}
-	} else if ((game.actions === 0 && is_first_march_highway()) || game.flags.surprise_landing === 2) {
-		for (let to of data.locales[from].highways) {
-			if (can_march_to(to))
-				gen_action_locale(to)
-		}
-	}
-	if (
-		(lord_has_capability(game.command, AOW_YORK_YORKISTS_NEVER_WAIT) || (is_event_in_play(EVENT_LANCASTER_FORCED_MARCHES) && game.active === LANCASTER)) &&
-		game.actions === 0 &&
-		is_first_march_highway() &&
-		count_group_lords() === 1
-	) {
-		for (let to of data.locales[from].roads) {
-			if (can_march_to(to))
-				gen_action_locale(to)
-		}
-	}
-}
-
-function goto_march(to) {
-	push_undo()
-	let from = get_lord_locale(game.command)
-	game.march = { from, to, avoid: -1 }
-	march_with_group_1()
-}
-
-function march_with_group_1() {
-	let transport = count_group_assets(CART)
-	let prov = count_group_assets(PROV)
-	if (prov > transport)
-		game.state = "march_laden"
-	else
-		march_with_group_2()
-}
-
-// No laden but re-used to discard extra provender
-states.march_laden = {
-	inactive: "March",
-	prompt() {
-		let to = game.march.to
-		let transport = count_group_assets(CART)
-		let prov = count_group_assets(PROV)
-
-		view.group = game.group
-		view.prompt = `March: Unladen. `
-
-		if (prov > transport) {
-			let overflow_prov = prov - transport
-			view.prompt += `Please discard ${overflow_prov} Provender`
-			for (let lord of game.group) {
-				if (prov > transport) {
-					if (get_lord_assets(lord, PROV) > 0) {
-						gen_action_prov(lord)
-					}
-				}
-			}
-		} else {
-			view.actions.march = 1
-			gen_action_locale(to)
-		}
-	},
-	prov: drop_prov,
-	march: march_with_group_2,
-	locale: march_with_group_2,
-	laden_march: march_with_group_2,
-}
-
-function march_with_group_2() {
-	let from = game.march.from
-	let to = game.march.to
-	let type = get_way_type(from, to)
-	let alone = count_group_lords() === 1
-
-	switch (type) {
-		case "highway":
-			if (is_first_march_highway() || game.flags.surprise_landing === 2) {
-				spend_march_action(0)
-			} else {
-				spend_march_action(1)
-				game.flags.first_march_highway = 1
-			}
-			break
-
-		case "road":
-			if ((alone && is_first_march_highway()) || game.flags.surprise_landing === 2) {
-				spend_march_action(0)
-			} else {
-				spend_march_action(1)
-				if (alone && (lord_has_capability(game.command, AOW_YORK_YORKISTS_NEVER_WAIT) || (is_event_in_play(EVENT_LANCASTER_FORCED_MARCHES) && game.active === LANCASTER)))
-					game.flags.first_march_highway = 1
-			}
-			break
-
-		case "path":
-			spend_all_actions()
-			break
-	}
-
-	log(`Marched to %${to}${format_group_move()}.`)
-
-	for (let lord of game.group) {
-		set_lord_locale(lord, to)
-		// Note: We flag the lords moved and levy burgundians after king's parley and parliament's truce have resolved.
-		// See end_kings_parley.
-	}
-
-	goto_intercept()
-}
-
-function end_march() {
-	// Disbanded in battle!
-	if (!is_lord_on_map(game.command)) {
-		game.where = NOWHERE
-		game.march = 0
-		spend_all_actions()
-		resume_command()
-		return
-	}
-
-	let here = get_lord_locale(game.command)
-	if (is_seaport(here))
-		game.flags.march_to_port = 1
-	else
-		game.flags.march_to_port = 0
-	game.flags.sail_to_port = 0
-
-	game.march = 0
-	resume_command()
-}
-
-// === 4.3.4 INTERCEPT ===
-
-function can_intercept_to(to) {
-	// TODO: forbid lancaster intercept into york moving to york, and vice versa
-	if (is_truce_in_effect())
-		return false
-	if (is_wales_forbidden_to_enemy(to))
-		return false
-	return true
-}
-
-function goto_intercept() {
-	let here = get_lord_locale(game.command)
-	if (can_intercept_to(here)) {
-		for (let next of data.locales[here].not_paths) {
-			if (has_enemy_lord(next)) {
-				game.state = "intercept"
-				set_active_enemy()
-				game.intercept_group = []
-				game.who = NOBODY
-				return
-			}
-		}
-	}
-	end_intercept()
-}
-
-function end_intercept() {
-	game.intercept_group = 0
-	game.who = NOBODY
-	goto_kings_parley()
-}
-
-function can_play_held_event_intercept(c) {
-	switch (c) {
-		case EVENT_LANCASTER_FLANK_ATTACK:
-			return can_play_flank_attack()
-		case EVENT_YORK_FLANK_ATTACK:
-			return can_play_flank_attack()
-	}
-	return false
-}
-
-function prompt_held_event_intercept() {
-	for (let c of current_hand())
-		if (can_play_held_event_intercept(c))
-			gen_action_card(c)
-}
-
-states.intercept = {
-	inactive: "Intercept",
-	prompt() {
-		view.prompt = `Choose lord to intercept moving lords?`
-		let to = get_lord_locale(game.command)
-
-		prompt_held_event_intercept()
-
-		if (game.who === NOBODY) {
-			for (let next of data.locales[to].not_paths)
-				for_each_friendly_lord_in_locale(next, gen_action_lord)
-		} else {
-			gen_action_lord(game.who)
-			if (is_marshal(game.who) || is_lieutenant(game.who)) {
-				for_each_friendly_lord_in_locale(get_lord_locale(game.who), lord => {
-					if (!is_marshal(lord))
-						gen_action_lord(lord)
-				})
-			}
-			view.actions.intercept = 1
-		}
-
-		view.actions.pass = 1
-		view.group = game.intercept_group
-	},
-	lord(lord) {
-		if (game.who === NOBODY) {
-			game.who = lord
-			set_toggle(game.intercept_group, lord)
-		} else if (lord === game.who) {
-			game.who = NOBODY
-			game.intercept_group = []
-		} else {
-			set_toggle(game.intercept_group, lord)
-		}
-	},
-	card(c) {
-		push_undo()
-		play_held_event(c)
-	},
-	pass() {
-		set_active_enemy()
-		end_intercept()
-	},
-	intercept() {
-		let valour = data.lords[game.who].valour
-		let success = false
-		if (is_event_in_play(EVENT_LANCASTER_FLANK_ATTACK || is_event_in_play(EVENT_YORK_FLANK_ATTACK))) {
-			success = true
-			// FIXME: swap_battle_attacker = 1 ???
-		}
-		else {
-			let roll = roll_die()
-			success = roll <= valour
-			log(`Intercept ${success ? "Succeeded." : "Failed."} (${range(valour)}): ${success ? HIT[roll] : MISS[roll]}`)
-		}
-		if (success) {
-			goto_intercept_march()
-		} else {
-			set_active_enemy()
-			end_intercept()
-		}
-	},
-}
-
-function goto_intercept_march() {
-	if (count_group_transport(game.intercept_group) >= count_group_assets(PROV, game.intercept_group)) {
-		do_intercept_march()
-	} else {
-		game.state = "intercept_march"
-	}
-}
-
-function do_intercept_march() {
-	for (let lord of game.intercept_group) {
-		set_lord_locale(lord, get_lord_locale(game.command))
-		set_lord_moved(lord, 1)
-		levy_burgundians(lord)
-	}
-	end_intercept_march()
-}
-
-function end_intercept_march() {
-	// back to originally marching lord
-	set_active_enemy()
-	end_intercept()
-}
-
-states.intercept_march = {
-	inactive: "Intercept",
-	prompt() {
-		let to = game.march.to
-		let transport = count_group_transport(game.intercept_group)
-		let prov = count_group_assets(PROV, game.intercept_group)
-
-		view.group = game.intercept_group
-
-		view.prompt = `Intercept: Unladen.`
-
-		if (prov > transport) {
-			view.prompt = `Intercept: Hindered with ${prov} Provender, and ${transport} Transport.`
-			for (let lord of game.intercept_group) {
-				if (get_lord_assets(lord, PROV) > 0) {
-					view.prompt += " Discard Provender."
-					gen_action_prov(lord)
-				}
-			}
-		} else {
-			view.actions.intercept = 1
-			gen_action_locale(to)
-		}
-	},
-	prov: drop_prov,
-	intercept: do_intercept_march,
-	locale: do_intercept_march,
-}
-
-function for_each_friendly_lord_in_locale(loc, f) {
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; lord++)
-		if (get_lord_locale(lord) === loc)
-			f(lord)
-}
-
-// === MARCH EVENT: FLANK ATTACK ===
-
-function can_play_flank_attack() {
-	return game.state === "intercept" && game.who !== NOBODY && !is_truce_in_effect()
-}
-
-// === MARCH EVENT: KING'S PARLEY ===
-
-function goto_kings_parley() {
-	// If Henry VI in space, with King's Parley capability
-	// TODO: ... unless he intercepted York lords already present ?
-	// TODO: ... or remove possibility for above case.
-	if (game.active === YORK) {
-		if (get_lord_locale(LORD_HENRY_VI) === game.march.to) {
-			if (lord_has_capability(LORD_HENRY_VI, AOW_LANCASTER_KINGS_PARLEY)) {
-				set_active_enemy()
-				game.state = "kings_parley"
-				return
-			}
-		}
-	}
-	end_kings_parley()
-}
-
-states.kings_parley = {
-	inactive: "King's Parley?",
-	prompt() {
-		view.prompt = "You may discard King's Parley to cancel Yorkist approach."
-		gen_action_card(AOW_LANCASTER_KINGS_PARLEY)
-		view.actions.pass = 1
-	},
-	card(_) {
-		push_undo()
-		discard_lord_capability(LORD_HENRY_VI, AOW_LANCASTER_KINGS_PARLEY)
-
-		// Cancel approach!
-		for (let lord of game.group)
-			set_lord_locale(lord, game.march.from)
-
-		set_active_enemy()
-		end_march()
-	},
-	pass() {
-		set_active_enemy()
-		end_kings_parley()
-	},
-}
-
-function end_kings_parley() {
-	goto_parliaments_truce()
-}
-
-// === MARCH EVENT: PARLIAMENT'S TRUCE ===
-
-function can_play_parliaments_truce() {
-	return game.state === "campaign"
-}
-
-function is_truce_in_effect() {
-	return (
-		is_event_in_play(EVENT_YORK_PARLIAMENTS_TRUCE) ||
-		is_event_in_play(EVENT_LANCASTER_PARLIAMENTS_TRUCE)
-	)
-}
-
-function goto_parliaments_truce() {
-	// The non-active player can cancel approach with parliament's truce
-
-	// We don't allow the active player to cancel an intercept -- if they want to cancel
-	// an interception, they should have played the event before marching.
-
-	let here = get_lord_locale(game.command)
-	if (
-		has_enemy_lord(here) && (
-			(game.active === YORK && could_play_card(EVENT_LANCASTER_PARLIAMENTS_TRUCE)) ||
-			(game.active === LANCASTER && could_play_card(EVENT_YORK_PARLIAMENTS_TRUCE))
-		)
-	) {
-		set_active_enemy()
-		game.state = "parliaments_truce"
-		return
-	}
-
-	end_parliaments_truce()
-}
-
-states.parliaments_truce = {
-	inactive: "Parliament's Truce?",
-	prompt() {
-		view.prompt = "You may play Parliament's Truce to cancel approach."
-		if (game.active === YORK)
-			gen_action_card_if_held(EVENT_YORK_PARLIAMENTS_TRUCE)
-		else
-			gen_action_card_if_held(EVENT_LANCASTER_PARLIAMENTS_TRUCE)
-		view.actions.pass = 1
-	},
-	card(c) {
-		play_held_event(c)
-
-		// Cancel approach!
-		for (let lord of game.group)
-			set_lord_locale(lord, game.march.from)
-
-		set_active_enemy()
-		end_march()
-	},
-	pass() {
-		set_active_enemy()
-		end_parliaments_truce()
-	},
-}
-
-function end_parliaments_truce() {
-
-	// Note: we flag the lords moved and levy burgundians after king's parley and parliament's truce have resolved
-	for (let lord of game.group) {
-		set_lord_moved(lord, 1)
-		levy_burgundians(lord)
-	}
-
-	goto_blocked_ford()
-}
-
-// === MARCH EVENT: BLOCKED FORD ===
-
-function goto_blocked_ford() {
-	let here = get_lord_locale(game.command)
-
-	// The marching lord can now play blocked ford to prevent enemy going into exile.
-	if (
-		has_enemy_lord(here) && (
-			(game.active === YORK && could_play_card(EVENT_YORK_BLOCKED_FORD)) ||
-			(game.active === LANCASTER && could_play_card(EVENT_LANCASTER_BLOCKED_FORD))
-		)
-	) {
-		game.state = "blocked_ford"
-		return
-	}
-
-	goto_choose_exile()
-}
-
-states.blocked_ford = {
-	inactive: "Blocked Ford?",
-	prompt() {
-		view.prompt = "You may play Blocked Ford."
-
-		if (game.active === YORK)
-			gen_action_card_if_held(EVENT_YORK_BLOCKED_FORD)
-		else
-			gen_action_card_if_held(EVENT_LANCASTER_BLOCKED_FORD)
-
-		view.actions.pass = 1
-	},
-	card(c) {
-		play_held_event(c)
-		game.where = get_lord_locale(game.command)
-		goto_battle()
-	},
-	pass() {
-		goto_choose_exile()
-	},
-}
-
-// === 4.3.5 APPROACH - CHOOSE EXILE ===
-
-function goto_choose_exile() {
-	let here = get_lord_locale(game.command)
-	if (has_enemy_lord(here)) {
-		spend_all_actions() // end command upon any approach
-		game.where = here
-		game.state = "choose_exile"
-		set_active_enemy()
-	} else {
-		end_march()
-	}
-}
-
-function end_choose_exile() {
-	if (has_friendly_lord(get_lord_locale(game.command))) {
-		// still some lords not exiled to fight.
-		set_active_enemy()
-		goto_battle()
-	} else {
-		// no one left, goto finish marching.
-		set_active_enemy()
-		end_march()
-	}
-}
-
-states.choose_exile = {
-	inactive: "Exiles",
-	prompt() {
-		view.prompt = "Select Lords to go into Exile."
-		for_each_friendly_lord_in_locale(get_lord_locale(game.command), lord => {
-			gen_action_lord(lord)
-		})
-		view.actions.done = 1
-	},
-	lord(lord) {
-		push_undo()
-		// TODO: give up assets as if spoils?
-		exile_lord(lord)
-	},
-	done() {
-		end_choose_exile()
-	},
-}
-
-function exile_lord(lord) {
-	if (lord_has_capability(lord, AOW_YORK_ENGLAND_IS_MY_HOME)) {
-		disband_lord(lord, false)
-		set_lord_calendar(lord, current_turn() + 1)
-	} else {
-		set_lord_in_exile(lord)
-		disband_lord(lord, false)
-	}
-}
-
-// === 4.3.5 APPROACH - SPOILS AFTER CHOOSING EXILE ===
-
-// TODO: spoils after choosing exile
-
-function has_any_spoils() {
-	return game.spoils && game.spoils[PROV] + game.spoils[COIN] + game.spoils[CART] + game.spoils[SHIP] > 0
-}
-
-function get_spoils(type) {
-	if (game.spoils)
-		return game.spoils[type]
-	return 0
-}
-
-function add_spoils(type, n) {
-	if (!game.spoils)
-		game.spoils = [ 0, 0, 0, 0, 0, 0, 0 ]
-	game.spoils[type] += n
-}
-
-function list_spoils() {
-	let list = []
-	for (let type = 0; type < 7; ++type) {
-		let n = get_spoils(type)
-		if (n > 0)
-			list.push(`${n} ${ASSET_TYPE_NAME[type]}`)
-	}
-	if (list.length > 0)
-		return list.join(", ")
-	return "nothing"
-}
-
-function prompt_spoils() {
-	if (get_spoils(PROV) > 0)
-		view.actions.take_prov = 1
-	if (get_spoils(CART) > 0)
-		view.actions.take_cart = 1
-}
-
-function take_spoils(type) {
-	add_lord_assets(game.who, type, 1)
-	add_spoils(type, -1)
-	if (!has_any_spoils())
-		game.who = NOBODY
-}
-
-// === 4.4 BATTLE ===
-
-function get_lord_array_position(lord) {
-	for (let p = 0; p < 12; ++p)
-		if (game.battle.array[p] === lord)
-			return p
-	return -1
-}
-
-function set_active_attacker() {
-	set_active(game.battle.attacker)
-}
-
-function set_active_defender() {
-	if (game.battle.attacker === P1)
-		set_active(P2)
-	else
-		set_active(P1)
-}
-
-function ravine_check(lord,pos) {
-	// TODO: if no lord in pos and no ravine? -- if (lord !== NOBODY)
-	if (game.battle.array[pos] === lord)
-		return true
-	return false
-}
-
-function filled(pos) {
-	if (game.battle.array[pos] !== NOBODY && !ravine_check(game.battle.ravine, pos)) {
-		return true
-	}
-	return false
-}
-
-const battle_strike_positions = [ D1, D2, D3, A1, A2, A3 ]
-
-const battle_steps = [
-	{ name: "Archery", hits: count_archery_hits },
-	{ name: "Melee", hits: count_melee_hits },
-]
-
-function count_archery_hits(lord) {
-	let hits = 0
-	hits += get_lord_forces(lord, LONGBOWMEN) << 2
-	hits += get_lord_forces(lord, BURGUNDIANS) << 2
-	hits += get_lord_forces(lord, MILITIA)
-	hits += get_lord_forces(lord, MERCENARIES)
-
-	if (is_leeward_battle_line_in_play(lord)) {
-		// TODO: rounding?
-		return hits/2
-	}
-
-	return hits
-}
-
-function count_melee_hits(lord) {
-	let hits = 0
-	hits += /*retinue*/ 3 << 1
-	//hits += count_vassals_with_lord(lord) << 2
-	if (lord_has_capability(lord, AOW_LANCASTER_CHEVALIERS))
-		hits += get_lord_forces(lord, MEN_AT_ARMS) << 2
-	else
-		hits += get_lord_forces(lord, MEN_AT_ARMS) << 1
-	hits += get_lord_forces(lord, MILITIA)
-	hits += get_lord_forces(lord, MERCENARIES)
-	hits += get_lord_forces(lord, BURGUNDIANS) << 1
-
-	if (lord === game.battle.caltrops) {
-		hits += 2
-	}
-
-	return hits
-}
-
-function count_lord_hits(lord) {
-	return battle_steps[game.battle.step].hits(lord)
-}
-
-function format_strike_step() {
-	return battle_steps[game.battle.step].name
-}
-
-function format_hits() {
-	if (game.battle.ahits > 0) {
-		return `${game.battle.ahits} Hit${game.battle.ahits > 1 ? "s" : ""}`
-	} else if (game.battle.dhits > 0) {
-		return `${game.battle.dhits} Hit${game.battle.dhits > 1 ? "s" : ""}`
-	}
-}
-
-function is_battle_over() {
-	set_active_attacker()
-	if (has_no_unrouted_forces())
-		return true
-	set_active_defender()
-	if (has_no_unrouted_forces())
-		return true
-	return false
-}
-
-function has_no_unrouted_forces() {
-	// All unrouted lords are either in battle array or in reserves
-	for (let p = 0; p < 6; ++p)
-		if (is_friendly_lord(game.battle.array[p]))
-			return false
-	for (let lord of game.battle.reserves)
-		if (is_friendly_lord(lord))
-			return false
-	return true
-}
-
-function is_attacker() {
-	return game.active === game.battle.attacker
-}
-
-function is_defender() {
-	return game.active !== game.battle.attacker
-}
-
-function is_archery_step() {
-	return game.battle.step === 0
-}
-
-function is_melee_step() {
-	return game.battle.step === 1
-}
-
-function has_strike(pos) {
-	return game.battle.ah[pos] > 0
-}
-
-
-// Capabilities adding troops at start of the battle
-function add_battle_capability_troops() {
-	let here = get_lord_locale(game.command)
-
-	for (let lord = first_york_lord; lord <= last_lancaster_lord; ++lord) {
-		if (lord_has_capability(lord, AOW_YORK_MUSTERD_MY_SOLDIERS) && has_favoury_marker(here)) {
-			add_lord_forces(lord, MEN_AT_ARMS, 2)
-			add_lord_forces(lord, LONGBOWMEN, 1)
-		}
-		if (lord_has_capability(lord, AOW_LANCASTER_MUSTERD_MY_SOLDIERS) && has_favourl_marker(here)) {
-			add_lord_forces(lord, MEN_AT_ARMS, 2)
-			add_lord_forces(lord, LONGBOWMEN, 1)
-		}
-		if (lord_has_capability(lord, AOW_LANCASTER_WELSH_LORD) && is_wales(here)) {
-			add_lord_forces(lord, LONGBOWMEN, 2)
-		}
-		if (lord_has_capability(lord, AOW_YORK_PEMBROKE) && is_wales(here)) {
-			add_lord_forces(lord, LONGBOWMEN, 2)
-		}
-		if (lord_has_capability(lord, AOW_YORK_PERCYS_NORTH1) && is_north(here)) {
-			add_lord_forces(lord, MILITIA, 4)
-		}
-		if (lord_has_capability(lord, AOW_YORK_PERCYS_NORTH2) && can_supply_at(LOC_CARLISLE, 0)) {
-			add_lord_forces(lord, MILITIA, 4)
-		}
-		if (lord_has_capability(lord, AOW_YORK_KINGDOM_UNITED) && (is_north(here) || is_south(here) || is_wales(here))) {
-			add_lord_forces(lord, MILITIA, 3)
-		}
-
-		// TODO: check this condition
-		if (
-			is_lord_on_map(lord) &&
-			!is_lord_on_calendar(lord) &&
-			lord_has_capability(lord, AOW_LANCASTER_PHILIBERT_DE_CHANDEE) &&
-			((is_friendly_locale(here) && data.port_2.includes(here)) || is_adjacent_friendly_port_english_channel(here))
-		) {
-			add_lord_forces(lord, MEN_AT_ARMS, 2)
-		}
-	}
-}
-
-//... And removing them at the end of the battle
-function remove_battle_capability_troops() {
-	let here = get_lord_locale(game.command)
-
-	for (let lord = first_york_lord; lord <= last_lancaster_lord; ++lord) {
-		if (lord_has_capability(lord, AOW_YORK_MUSTERD_MY_SOLDIERS) && has_favoury_marker(here)) {
-			add_lord_forces(lord, MEN_AT_ARMS, -2)
-			add_lord_forces(lord, LONGBOWMEN, -1)
-		}
-		if (lord_has_capability(lord, AOW_LANCASTER_MUSTERD_MY_SOLDIERS) && has_favourl_marker(here)) {
-			add_lord_forces(lord, MEN_AT_ARMS, -2)
-			add_lord_forces(lord, LONGBOWMEN, -1)
-		}
-		if (lord_has_capability(lord, AOW_LANCASTER_WELSH_LORD) && is_wales(here)) {
-			add_lord_forces(lord, LONGBOWMEN, -2)
-		}
-		if (lord_has_capability(lord, AOW_YORK_PEMBROKE) && is_wales(here)) {
-			add_lord_forces(lord, LONGBOWMEN, -2)
-		}
-		if (lord_has_capability(lord, AOW_YORK_PERCYS_NORTH1) && is_north(here)) {
-			add_lord_forces(lord, MILITIA, -4)
-		}
-		if (lord_has_capability(lord, AOW_YORK_PERCYS_NORTH2) && can_supply_at(LOC_CARLISLE, 0)) {
-			add_lord_forces(lord, MILITIA, -4)
-		}
-		if (lord_has_capability(lord, AOW_YORK_KINGDOM_UNITED) && (is_north(here) || is_south(here) || is_wales(here))) {
-			add_lord_forces(lord, MILITIA, -3)
-		}
-
-		// TODO: check this condition
-		if (is_lord_on_map(lord) && lord_has_capability(lord, AOW_LANCASTER_PHILIBERT_DE_CHANDEE)) {
-			add_lord_forces(lord, MEN_AT_ARMS, -2)
-		}
-	}
-}
-
-function goto_battle() {
-	let here = get_lord_locale(game.command)
-
-	log_h3(`Battle at %${here}`)
-
-	game.battle = {
-		where: game.where,
-		round: 1,
-		step: 0,
-		relief: 0,
-		attacker: game.active,
-		ambush: 0,
-		loser: 0,
-		fought: 0, // flag all lords who participated
-		array: [
-			-1, -1, -1,
-			-1, -1, -1,
-		],
-		valour: Array(lord_count).fill(0),
-		routed_vassals: [],
-		engagements: [],
-		reserves: [],
-		retreated: 0,
-		fled: [],
-		routed: [],
-		target: NOBODY,
-		strikers: 0,
-		a_hits: 0,
-		d_hits: 0,
-		fc: -1,
-	}
-
-	// Troops by capability
-
-	add_battle_capability_troops()
-
-	// All attacking lords to reserve
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-		if (get_lord_locale(lord) === here) {
-			set_lord_fought(lord)
-			set_add(game.battle.reserves, lord)
-			if (
-				lord_has_capability(lord, AOW_LANCASTER_EXPERT_COUNSELLORS) ||
-				lord_has_capability(lord, AOW_LANCASTER_VETERAN_OF_FRENCH_WARS)
-			)
-				game.battle.valour[lord] = data.lords[lord].valour + 2
-			else if (
-				lord_has_capability(
-					lord,
-					AOW_LANCASTER_ANDREW_TROLLOPE || lord_has_capability(lord, AOW_LANCASTER_MY_FATHERS_BLOOD)
-				) ||
-				lord_has_capability(lord, AOW_LANCASTER_EDWARD) ||
-				(lord_has_capability(lord, AOW_LANCASTER_LOYAL_SOMERSET) && get_lord_locale(LORD_MARGARET) === here)
-			)
-				game.battle.valour[lord] = data.lords[lord].valour + 1
-			else
-				game.battle.valour[lord] = data.lords[lord].valour
-		}
-	}
-
-	// All defending lords to reserve
-	for (let lord = first_enemy_lord; lord <= last_enemy_lord; ++lord) {
-		if (get_lord_locale(lord) === here) {
-			set_lord_fought(lord)
-			set_add(game.battle.reserves, lord)
-			if (
-				lord_has_capability(lord, AOW_LANCASTER_EXPERT_COUNSELLORS) ||
-				lord_has_capability(lord, AOW_LANCASTER_VETERAN_OF_FRENCH_WARS)
-			)
-				game.battle.valour[lord] = data.lords[lord].valour + 2
-			else if (
-				lord_has_capability(
-					lord,
-					AOW_LANCASTER_ANDREW_TROLLOPE || lord_has_capability(lord, AOW_LANCASTER_MY_FATHERS_BLOOD)
-				) ||
-				lord_has_capability(lord, AOW_LANCASTER_EDWARD) ||
-				(lord_has_capability(lord, AOW_LANCASTER_LOYAL_SOMERSET) && get_lord_locale(LORD_MARGARET) === here)
-			)
-				game.battle.valour[lord] = data.lords[lord].valour + 1
-			else
-				game.battle.valour[lord] = data.lords[lord].valour
-		}
-	}
-
-	goto_array_defender()
-}
-
-// === 4.4.1 BATTLE ARRAY ===
-
-// 0) Defender decides to stand for Battle, not Exile
-// 1) Defender decides how he wants to array his lords
-// 2) Defender positions front D
-// 3) Attacker positions front A.
-// 4) Defender plays event
-// 5) ATtacker plays event
-
-function has_friendly_reserves() {
-	for (let lord of game.battle.reserves)
-		if (is_friendly_lord(lord))
-			return true
-	return false
-}
-
-function count_friendly_reserves() {
-	let n = 0
-	for (let lord of game.battle.reserves)
-		if (is_friendly_lord(lord))
-			++n
-	return n
-}
-
-function pop_first_reserve() {
-	for (let lord of game.battle.reserves) {
-		if (is_friendly_lord(lord)) {
-			set_delete(game.battle.reserves, lord)
-			return lord
-		}
-	}
-	return NOBODY
-}
-
-function prompt_array_place_opposed(X1, X2, X3, Y1, Y3) {
-	let array = game.battle.array
-	if (array[X2] === NOBODY) {
-		gen_action_array(X2)
-	} else if (array[Y1] !== NOBODY && array[Y3] === NOBODY && array[X1] === NOBODY) {
-		gen_action_array(X1)
-	} else if (array[Y1] === NOBODY && array[Y3] !== NOBODY && array[X3] === NOBODY) {
-		gen_action_array(X3)
-	} else {
-		if (array[X1] === NOBODY)
-			gen_action_array(X1)
-		if (array[X3] === NOBODY)
-			gen_action_array(X3)
-	}
-}
-
-function action_array_place(pos) {
-	push_undo_without_who()
-	game.battle.array[pos] = game.who
-	set_delete(game.battle.reserves, game.who)
-	game.who = NOBODY
-}
-
-function goto_array_attacker() {
-	set_active_attacker()
-	game.state = "array_attacker"
-	game.who = NOBODY
-	let n = count_friendly_reserves()
-	if (n === 1) {
-		game.battle.array[A2] = pop_first_reserve()
-		end_array_attacker()
-	}
-	if (n === 0)
-		end_array_attacker()
-}
-
-function goto_array_defender() {
-	set_active_defender()
-	game.state = "array_defender"
-	game.who = NOBODY
-	let n = count_friendly_reserves()
-	if (n === 1) {
-		game.battle.array[D2] = pop_first_reserve()
-		end_array_defender()
-	}
-	if (n === 0)
-		end_array_defender()
-}
-
-function end_array_attacker() {
-	goto_defender_events()
-}
-
-function end_array_defender() {
-	goto_array_attacker()
-}
-
-states.array_attacker = {
-	inactive: "Array Attacking Lords",
-	prompt() {
-		view.prompt = "Battle Array: Position your Attacking Lords."
-		let array = game.battle.array
-		let done = true
-		if (array[A1] === NOBODY || array[A2] === NOBODY || array[A3] === NOBODY) {
-			for (let lord of game.battle.reserves) {
-				if (lord !== game.who && is_friendly_lord(lord)) {
-					gen_action_lord(lord)
-					done = false
-				}
-			}
-		}
-		if (game.who === NOBODY && done)
-			view.actions.end_array = 1
-		if (game.who !== NOBODY) {
-			prompt_array_place_opposed(A1, A2, A3, D1, D3)
-		}
-	},
-	array: action_array_place,
-	lord: action_select_lord,
-	end_array: end_array_attacker,
-}
-
-states.array_defender = {
-	inactive: "Array Defending Lords",
-	prompt() {
-		view.prompt = "Battle Array: Position your Defending Lords."
-		let array = game.battle.array
-		let done = true
-		if (array[D1] === NOBODY || array[D2] === NOBODY || array[D3] === NOBODY) {
-			for (let lord of game.battle.reserves) {
-				if (lord !== game.who && is_friendly_lord(lord)) {
-					gen_action_lord(lord)
-					done = false
-				}
-			}
-		}
-		if (done && game.who === NOBODY)
-			view.actions.end_array = 1
-		if (game.who !== NOBODY) {
-			if (array[D2] === NOBODY) {
-				gen_action_array(D2)
-			} else {
-				if (array[D1] === NOBODY)
-					gen_action_array(D1)
-				if (array[D3] === NOBODY)
-					gen_action_array(D3)
-			}
-		}
-	},
-	array: action_array_place,
-	lord: action_select_lord,
-	end_array: end_array_defender,
-}
-
-// === 4.4.1 BATTLE ARRAY: EVENTS ===
-
-function goto_defender_events() {
-	set_active_defender()
-	log_br()
-	if (can_play_battle_events())
-		game.state = "defender_events"
-	else
-		end_defender_events()
-}
-
-function end_defender_events() {
-	goto_attacker_events()
-}
-
-function goto_attacker_events() {
-	set_active_attacker()
-	log_br()
-	if (can_play_battle_events())
-		game.state = "attacker_events"
-	else
-		end_attacker_events()
-}
-
-function end_attacker_events() {
-	goto_battle_rounds()
-}
-
-function resume_battle_events() {
-	game.what = -1
-	if (is_attacker())
-		goto_attacker_events()
-	else
-		goto_defender_events()
-}
-
-states.defender_events = {
-	inactive: "Defender Events",
-	prompt() {
-		view.prompt = "Defender may play Events."
-		prompt_battle_events()
-
-		// defender only events
-	},
-	card: action_battle_events,
-	done() {
-		end_defender_events()
-	},
-}
-
-states.attacker_events = {
-	inactive: "Attacker Events",
-	prompt() {
-		view.prompt = "Attacker may play Events."
-		prompt_battle_events()
-	},
-	card: action_battle_events,
-	done() {
-		end_attacker_events()
-	},
-}
-
-function can_play_battle_events() {
-	if (game.active === LANCASTER) {
-		if (could_play_card(EVENT_LANCASTER_LEEWARD_BATTLE_LINE))
-			return true
-		if (could_play_card(EVENT_LANCASTER_SUSPICION))
-			return true
-		if (could_play_card(EVENT_LANCASTER_FOR_TRUST_NOT_HIM))
-			return true
-		if (could_play_card(EVENT_LANCASTER_RAVINE))
-			return true
-	}
-	if (game.active === YORK) {
-		if (could_play_card(EVENT_YORK_LEEWARD_BATTLE_LINE))
-			return true
-		if (could_play_card(EVENT_YORK_SUSPICION))
-			return true
-		if (could_play_card(EVENT_YORK_CALTROPS))
-			return true
-		if (could_play_card(EVENT_YORK_REGROUP))
-			return true
-		if (could_play_card(EVENT_YORK_SWIFT_MANEUVER))
-			return true
-		if (could_play_card(EVENT_YORK_PATRICK_DE_LA_MOTE))
-			return true
-	}
-	return false
-}
-
-function prompt_battle_events() {
-	// both attacker and defender events
-	if (game.active === LANCASTER) {
-		gen_action_card_if_held(EVENT_LANCASTER_LEEWARD_BATTLE_LINE)
-		if (can_play_suspicion())
-			gen_action_card_if_held(EVENT_LANCASTER_SUSPICION)
-		if (can_play_for_trust_not_him())
-			gen_action_card_if_held(EVENT_LANCASTER_FOR_TRUST_NOT_HIM)
-		gen_action_card_if_held(EVENT_LANCASTER_RAVINE)
-	}
-	if (game.active === YORK) {
-		gen_action_card_if_held(EVENT_YORK_LEEWARD_BATTLE_LINE)
-		if (can_play_suspicion())
-			gen_action_card_if_held(EVENT_YORK_SUSPICION)
-		gen_action_card_if_held(EVENT_YORK_CALTROPS)
-		gen_action_card_if_held(EVENT_YORK_REGROUP)
-		gen_action_card_if_held(EVENT_YORK_SWIFT_MANEUVER)
-		gen_action_card_if_held(EVENT_YORK_PATRICK_DE_LA_MOTE)
-	}
-	view.actions.done = 1
-}
-
-function action_battle_events(c) {
-	game.what = c
-	set_delete(current_hand(), c)
-	set_add(game.events, c)
-	switch (c) {
-		case EVENT_LANCASTER_LEEWARD_BATTLE_LINE:
-			// nothing to do
-			break
-		case EVENT_LANCASTER_SUSPICION:
-			game.state = "suspicion"
-			break
-		case EVENT_LANCASTER_FOR_TRUST_NOT_HIM:
-			game.state = "for_trust_not_him"
-			break
-		case EVENT_LANCASTER_RAVINE:
-			game.state = "ravine"
-			break
-		case EVENT_YORK_LEEWARD_BATTLE_LINE:
-			// nothing to do
-			break
-		case EVENT_YORK_SUSPICION:
-			game.state = "suspicion"
-			break
-		case EVENT_YORK_CALTROPS:
-			game.state = "caltrops"
-			break
-		case EVENT_YORK_REGROUP:
-			// nothing to do
-			break
-		case EVENT_YORK_SWIFT_MANEUVER:
-			// nothing to do
-			break
-	}
-}
-
-// === BATTLE EVENT: RAVINE ===
-
-states.ravine = {
-	inactive: "Ravine",
-	prompt() {
-		view.prompt = "Ravine: Select an enemy lord to ignore that Lord round 1"
-		for (let lord of game.battle.array) {
-			if (is_enemy_lord(lord)) {
-				gen_action_lord(lord)
-			}
-		}
-		for (let lord of game.battle.reserves) {
-			if (is_enemy_lord(lord)) {
-				gen_action_lord(lord)
-			}
-		}
-	},
-	lord(lord) {
-		push_undo()
-		game.battle.ravine = lord
-		resume_battle_events()
-		logi(`${data.lords[lord].name} ignored for Engage and Strike Round 1`)
-		logevent(EVENT_LANCASTER_RAVINE)
-	},
-}
-
-// === BATTLE EVENT: REGROUP ===
-
-function is_regroup_in_play() {
-	if (game.active === YORK)
-		return is_event_in_play(EVENT_YORK_REGROUP)
-	return false
-}
-
-// TODO
-
-// === BATTLE EVENT: CALTROPS ===
-
-function is_caltrops_in_play() {
-	if (game.active === YORK)
-		return is_event_in_play(EVENT_YORK_CALTROPS)
-}
-
-states.caltrops = {
-	inactive: "Caltrops",
-	prompt() {
-		view.prompt = "Caltrops: Select a friendly lord to Add +2 Hits each Melee phase to his engagement"
-		for (let lord of game.battle.array) {
-			if (is_friendly_lord(lord)) {
-				gen_action_lord(lord)
-			}
-		}
-	},
-	lord(lord) {
-		push_undo()
-		game.battle.caltrops = lord
-		resume_battle_events()
-		logi(`2 Hits added to ${data.lords[lord].name} each Melee round`)
-		logevent(EVENT_YORK_CALTROPS)
-	},
-}
-
-// === BATTLE EVENT: SUSPICION ===
-
-function can_play_suspicion() {
-	// TODO: account for influence_capabilities
-	if (highest_friendly_influence() >= lowest_enemy_influence()) {
-		return true
-	}
-	return false
-}
-
-function lowest_enemy_influence() {
-	let score = 10
-	for (let lord = first_enemy_lord; lord <= last_enemy_lord; ++lord) {
-		if (get_lord_locale(lord) === get_lord_locale(game.command)) {
-			if (data.lords[lord].influence < score) {
-				score = data.lords[lord].influence
-			}
-		}
-	}
-	return score
-}
-
-function highest_friendly_influence() {
-	let score = 0
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-		if (get_lord_locale(lord) === get_lord_locale(game.command)) {
-			if (data.lords[lord].influence > score) {
-				score = data.lords[lord].influence
-			}
-		}
-	}
-}
-
-states.suspicion = {
-	inactive: "Suspicion",
-	prompt() {
-		view.prompt = "Suspicion: Check one of your lords to influence check"
-		for (let lord of game.battle.array) {
-			if (is_friendly_lord(lord)) {
-				gen_action_lord(lord)
-			}
-		}
-		for (let lord of game.battle.reserves) {
-			if (is_friendly_lord(lord)) {
-				gen_action_lord(lord)
-			}
-		}
-	},
-	lord(lord) {
-		game.who = lord
-		push_undo()
-		push_state("suspicion_enemy_lord")
-	},
-}
-
-states.suspicion_enemy_lord = {
-	inactive: "Suspicion",
-	prompt() {
-		view.prompt = "Suspicion: Select one enemy lord to influence check"
-		for (let lord of game.battle.array) {
-			if (is_enemy_lord(lord)) {
-				if (suspicion_lord_score(game.who, data.lords[game.who].influence) > data.lords[lord].influence) {
-					gen_action_lord(lord)
-				}
-			}
-		}
-	},
-	lord(lord) {
-		push_undo()
-		push_state("influence_check_suspicion")
-		init_influence_check(game.who)
-		game.who = lord
-	},
-}
-
-function suspicion_lord_score(lord, score) {
-	influence_capabilities(lord, score)
-	return score
-}
-
-states.influence_check_suspicion = {
-	inactive: `Influence check`,
-	prompt() {
-		view.prompt = `Influence check : Success disbands enemy lord `
-		prompt_influence_check()
-	},
-	spend1: add_influence_check_modifier_1,
-	spend3: add_influence_check_modifier_2,
-	check() {
-		let lord = game.who
-		let results = do_influence_check()
-		logi(`Attempt to disband ${data.lords[lord].name} ${results.success ? "Successful" : "Failed"}: (${range(results.rating)}) ${results.success ? HIT[results.roll] : MISS[results.roll]}`)
-		if (results.success) {
-			log(`${data.lords[lord].name} disbanded`)
-			for (let x = 0; x < 6; x++) {
-				if (game.battle.array[x] === lord) {
-					game.battle.array[x] = NOBODY
-					break
-				}
-				else if (set_has(game.battle.reserves, lord)) {
-					array_remove(game.battle.reserves, lord)
-				}
-			}
-			disband_lord(lord)
-			game.who = NOBODY
-			end_influence_check()
-			resume_battle_events()
-		} else {
-			log(`${data.lords[lord].name} stays`)
-			game.who = NOBODY
-			end_influence_check()
-			resume_battle_events()
-		}
-	},
-}
-
-// === BATTLE EVENT: FOR TRUST NOT HIM ===
-
-function can_play_for_trust_not_him() {
-	for (let vassal = first_vassal; vassal <= last_vassal; vassal++) {
-		if (is_vassal_mustered_with_york_lord(vassal) && get_lord_locale(get_vassal_lord(vassal)) === get_lord_locale(game.command)) {
-			// Hastings & Salisbury with Alice Montagu capability are immune.
-			if ((get_vassal_lord(vassal) !== LORD_SALISBURY || !lord_has_capability(LORD_SALISBURY, AOW_YORK_ALICE_MONTAGU)) && vassal !== VASSAL_HASTINGS) {
-				return true
-			}
-		}
-	}
-	return false
-}
-
-states.for_trust_not_him = {
-	inactive: "For trust not him \u2014 Select Lord",
-	prompt() {
-		let done = true
-		game.where = NOWHERE
-		view.prompt = "Select a friendly lord"
-		for (let lord = first_lancaster_lord; lord <= last_lancaster_lord; lord++) {
-			if (is_lancaster_lord(lord) && get_lord_locale(lord) === game.battle.where) {
-				done = false
-				gen_action_lord(lord)
-			}
-		}
-		if (done) {
-			view.actions.done = 1
-		}
-	},
-	lord(lord) {
-		push_undo()
-		game.who = lord
-		game.state = "for_trust_not_him_vassal"
-	},
-}
-
-states.for_trust_not_him_vassal = {
-	inactive: "For trust not him \u2014 Select Vassal",
-	prompt() {
-		view.prompt = "Select an enemy Vassal"
-		for (let vassal = first_vassal; vassal <= last_vassal; vassal++) {
-			if (is_vassal_mustered_with_york_lord(vassal) && get_lord_locale(get_vassal_lord(vassal)) === get_lord_locale(game.command)) {
-				// Hastings & Salisbury with Alice Montagu capability are immune.
-				if ((get_vassal_lord(vassal) !== LORD_SALISBURY || !lord_has_capability(LORD_SALISBURY, AOW_YORK_ALICE_MONTAGU)) && vassal !== VASSAL_HASTINGS) {
-					gen_action_vassal(vassal)
-				}
-			}
-		}
-	},
-	vassal(v) {
-		push_undo()
-		game.which = v
-		goto_influence_check_for_trust_not_him()
-	},
-}
-
-function goto_influence_check_for_trust_not_him() {
-	init_influence_check(game.who)
-	game.check.push({
-		cost: 0,
-		modifier: data.vassals[game.which].influence * (game.active === LANCASTER ? -1 : 1),
-		source: "vassal",
-	})
-	game.state = "for_trust_not_him_bribe"
-}
-
-states.for_trust_not_him_bribe = {
-	inactive: `Influence check`,
-	prompt() {
-		view.prompt = `Influence check : Success bribes ${data.vassals[game.which].name} `
-		prompt_influence_check()
-	},
-	spend1: add_influence_check_modifier_1,
-	spend3: add_influence_check_modifier_2,
-	check() {
-		let results = do_influence_check()
-		if (game.who === LORD_HENRY_TUDOR && lord_has_capability(LORD_HENRY_TUDOR, AOW_LANCASTER_TWO_ROSES)) {
-			logi(`Automatic success C${AOW_LANCASTER_TWO_ROSES}`)
-		}
-		else {
-			logi(`Attempt to bribe ${data.vassals[game.which].name} ${results.success ? "Successful" : "Failed"}: (${range(results.rating)}) ${results.success ? HIT[results.roll] : MISS[results.roll]}`)
-		}
-		if (results.success) {
-			muster_vassal(game.which, game.who)
-			end_influence_check()
-			end_for_trust_not_him()
-		} else {
-			end_influence_check()
-			end_for_trust_not_him()
-		}
-	},
-}
-
-function end_for_trust_not_him() {
-	game.who = NOBODY
-	game.which = NOTHING
-	resume_battle_events()
-}
-
-// === BATTLE EVENT: LEEWARD BATTLE LINE ===
-
-function is_leeward_battle_line_in_play(lord) {
-	if (is_archery_step()) {
-		if (is_event_in_play(EVENT_LANCASTER_LEEWARD_BATTLE_LINE)
-		&& !is_event_in_play(EVENT_YORK_LEEWARD_BATTLE_LINE)
-		&& is_york_lord(lord)) {
-			logevent(EVENT_LANCASTER_LEEWARD_BATTLE_LINE)
-			return true
-		}
-		if (is_event_in_play(EVENT_YORK_LEEWARD_BATTLE_LINE)
-		&& !is_event_in_play(EVENT_LANCASTER_LEEWARD_BATTLE_LINE)
-		&& is_lancaster_lord(lord)) {
-			logevent(EVENT_YORK_LEEWARD_BATTLE_LINE)
-			return true
-		}
-	}
-	return false
-}
-
-// === BATTLE EVENT: CULVERINS AND FALCONETS ===
-
-function goto_culverins() {
-	let can_play = false
-	for (let lord of game.battle.array) {
-		if (is_lancaster_lord(lord) && lord_has_capability(lord, AOW_LANCASTER_CULVERINS_AND_FALCONETS))
-			can_play = true
-		if (is_york_lord(lord) && lord_has_capability(lord, AOW_YORK_CULVERINS_AND_FALCONETS))
-			can_play = true
-	}
-	if (can_play) {
-		set_active_defender()
-		game.state = "culverins_and_falconets"
-		game.who = NOBODY
-	}
-	else {
-		goto_engagement_total_hits()
-	}
-}
-
-function artillery_hits(ahits) {
-	if (is_attacker()) {
-		game.battle.attacker_artillery = ahits*2
-	}
-	if (is_defender()) {
-		game.battle.defender_artillery = ahits*2
-	}
-}
-
-states.culverins_and_falconets = {
-	inactive: "Culverins and Falconets",
-	prompt() {
-		let done = true
-		view.prompt = `Use Culverin and Falconets ?`
-		for (let lord of game.battle.array) {
-			if (lord !== NOBODY) {
-				if (is_friendly_lord(lord) && (lord_has_capability(lord, AOW_YORK_CULVERINS_AND_FALCONETS))) {
-					gen_action_card(AOW_YORK_CULVERINS_AND_FALCONETS)
-					done = false
-				}
-				if (is_friendly_lord(lord) && (lord_has_capability(lord, AOW_LANCASTER_CULVERINS_AND_FALCONETS))) {
-					gen_action_card(AOW_LANCASTER_CULVERINS_AND_FALCONETS)
-					done = false
-				}
-			}
-		}
-		if (done) {
-			view.prompt = "Culverins and Falconets : Done"
-		}
-		view.actions.done = 1
-	},
-	card(c) {
-		let die = roll_die()
-		let lord = find_lord_with_capability_card(c)
-		if (is_event_in_play(EVENT_YORK_PATRICK_DE_LA_MOTE) && game.active === YORK) {
-			let die2 = roll_die()
-			die += die2
-		}
-		logi(`${data.lords[lord].name} Artillery does ${die} hits`)
-		artillery_hits(die)
-		discard_lord_capability(lord, c)
-	},
-	done() {
-		if (is_defender()) {
-			set_active_enemy()
-		}
-		else {
-			goto_engagement_total_hits()
-		}
-	}
-}
-
-// === BATTLE EVENT: SWIFT MANEUVER ===
-
-function is_swift_maneuver_in_play() {
-	return is_event_in_play(EVENT_YORK_SWIFT_MANEUVER)
-}
-
-states.swift_maneuver = {
-	inactive: "Swift Maneuver",
-	prompt() {
-		view.prompt = "Swift Maneuver: You may end the round now"
-		view.actions.end_battle_round = 1
-		view.actions.pass = 1
-	},
-	end_battle_round() {
-		logevent(`${EVENT_YORK_SWIFT_MANEUVER}`)
-		log("Ended Action Round.")
-		set_active_enemy()
-		goto_end_battle_round()
-	},
-	pass() {
-		logevent(`${EVENT_YORK_SWIFT_MANEUVER}`)
-		log("Passed.")
-		set_active_enemy()
-		finish_action_assign_hits(game.who)
-	},
-}
-
-// === 4.4.2 BATTLE ROUNDS ===
-
-function goto_battle_rounds() {
-	set_active_defender()
-	log_h4(`Battle Round ${game.battle.round}`)
-	goto_flee()
-}
-
-// === 4.4.2 BATTLE ROUNDS: FLEE ===
-
-function goto_flee() {
-	game.state = "flee_battle"
-}
-
-function end_flee() {
-	if (has_no_unrouted_forces()) {
-		end_battle_round()
-		return
-	}
-	set_active_enemy()
-
-	if (game.active !== game.battle.attacker) {
-		goto_reposition_battle()
-	} else {
-		goto_flee()
-	}
-}
-
-states.flee_battle = {
-	inactive: "Flee",
-	prompt() {
-		view.prompt = "Battle: Select Lords to Flee from the Field?"
-		for (let p = 0; p < 6; ++p) {
-			if (is_friendly_lord(game.battle.array[p])) {
-				gen_action_lord(game.battle.array[p])
-			}
-		}
-		view.actions.done = 1
-	},
-	done() {
-		end_flee()
-	},
-	lord(lord) {
-		push_undo()
-		log(`${lord_name[lord]} Fled the battle of %${game.battle.where}.`)
-		set_add(game.battle.fled, lord)
-		if (set_has(game.battle.reserves, lord)) {
-			array_remove(game.battle.reserves, lord)
-		} else {
-			for (let x = 0; x < 6; x++) {
-				if (game.battle.array[x] === lord) {
-					game.battle.array[x] = NOBODY
-					break
-				}
-			}
-		}
-	},
-}
-
-// === 4.4.2 BATTLE ROUNDS: REPOSITION ===
-
-function slide_array(from, to) {
-	game.battle.array[to] = game.battle.array[from]
-	game.battle.array[from] = NOBODY
-}
-
-function goto_reposition_battle() {
-	let array = game.battle.array
-
-	// If all D routed.
-	if (array[D1] === NOBODY && array[D2] === NOBODY && array[D3] === NOBODY) {
-		log("No Defenders Remain.")
-	}
-
-	// If all A routed.
-	if (array[A1] === NOBODY && array[A2] === NOBODY && array[A3] === NOBODY) {
-		log("No Attackers Remain.")
-	}
-
-	set_active_defender()
-	goto_reposition_advance()
-}
-
-function goto_reposition_advance() {
-	if (can_reposition_advance())
-		game.state = "reposition_advance"
-	else
-		end_reposition_advance()
-}
-
-function end_reposition_advance() {
-	game.who = NOBODY
-	set_active_enemy()
-	if (is_attacker())
-		goto_reposition_advance()
-	else
-		goto_reposition_center()
-}
-
-function goto_reposition_center() {
-	if (can_reposition_center())
-		game.state = "reposition_center"
-	else
-		end_reposition_center()
-}
-
-function end_reposition_center() {
-	game.who = NOBODY
-	set_active_enemy()
-	if (is_attacker())
-		goto_reposition_center()
-	else
-		goto_first_engagement()
-}
-
-function can_reposition_advance() {
-	if (has_friendly_reserves()) {
-		let array = game.battle.array
-		if (is_attacker()) {
-			if (array[A1] === NOBODY || array[A2] === NOBODY || array[A3] === NOBODY)
-				return true
-		} else {
-			if (array[D1] === NOBODY || array[D2] === NOBODY || array[D3] === NOBODY)
-				return true
-		}
-	}
-	return false
-}
-
-states.reposition_advance = {
-	inactive: "Reposition",
-	prompt() {
-		view.prompt = "Reposition: Advance from Reserve."
-		let array = game.battle.array
-
-		for (let lord of game.battle.reserves)
-			if (is_friendly_lord(lord) && lord !== game.who)
-				gen_action_lord(lord)
-
-		if (game.who !== NOBODY) {
-			if (is_attacker()) {
-				if (array[A1] === NOBODY)
-					gen_action_array(A1)
-				if (array[A2] === NOBODY)
-					gen_action_array(A2)
-				if (array[A3] === NOBODY)
-					gen_action_array(A3)
-			} else {
-				if (array[D1] === NOBODY)
-					gen_action_array(D1)
-				if (array[D2] === NOBODY)
-					gen_action_array(D2)
-				if (array[D3] === NOBODY)
-					gen_action_array(D3)
-			}
-		}
-	},
-	lord(lord) {
-		game.who = lord
-	},
-	array(pos) {
-		set_delete(game.battle.reserves, game.who)
-		game.battle.array[pos] = game.who
-		game.who = NOBODY
-		goto_reposition_advance()
-	},
-}
-
-function can_reposition_center() {
-	let array = game.battle.array
-	if (is_attacker()) {
-		if (array[A2] === NOBODY && (array[A1] !== NOBODY || array[A3] !== NOBODY))
-			return true
-	} else {
-		if (array[D2] === NOBODY && (array[D1] !== NOBODY || array[D3] !== NOBODY))
-			return true
-	}
-	return false
-}
-
-states.reposition_center = {
-	inactive: "Reposition",
-	prompt() {
-		view.prompt = "Reposition: Slide to Center."
-		let array = game.battle.array
-
-		if (is_attacker()) {
-			if (array[A2] === NOBODY) {
-				if (array[A1] !== NOBODY)
-					gen_action_lord(game.battle.array[A1])
-				if (array[A3] !== NOBODY)
-					gen_action_lord(game.battle.array[A3])
-			}
-		} else {
-			if (array[D2] === NOBODY) {
-				if (array[D1] !== NOBODY)
-					gen_action_lord(game.battle.array[D1])
-				if (array[D3] !== NOBODY)
-					gen_action_lord(game.battle.array[D3])
-			}
-		}
-
-		if (game.who !== NOBODY) {
-			let from = get_lord_array_position(game.who)
-			if (from === A1 || from === A3)
-				gen_action_array(A2)
-			if (from === D1 || from === D3)
-				gen_action_array(D2)
-		}
-	},
-	lord(lord) {
-		game.who = lord
-	},
-	array(pos) {
-		let from = get_lord_array_position(game.who)
-		slide_array(from, pos)
-		game.who = NOBODY
-		goto_reposition_center()
-	},
-}
-
-
-// === 4.4.2 BATTLE ROUNDS: ENGAGE / STRIKE ===
-
-function determine_engagements() {
-	let center = [ A2, D2 ]
-	let engagements = [
-		[ A1, D1 ],
-		[ A3, D3 ],
-	]
-	let results = []
-
-	for (let x = 0; x < engagements.length; x++) {
-		let e = engagements[x]
-		if (filled(e[0]) && filled(e[1])) {
-			results.push(e)
-		} else if (filled(e[0])) {
-			set_add(center, e[0])
-		} else if (filled(e[1])) {
-			set_add(center, e[1])
-		}
-	}
-	results.unshift(center)
-	return results
-}
-
-function goto_first_engagement() {
-	game.battle.step = 0
-	game.battle.engagements = determine_engagements()
-	goto_engagement()
-}
-
-function goto_next_step() {
-	let end = 2
-	game.battle.step++
-	if (game.battle.step >= end)
-		end_engagement()
-	else
-		goto_engagement()
-}
-
-function goto_engagement() {
-	if (is_battle_over()) {
-		end_battle_round()
-		return
-	}
-
-	log_h5(battle_steps[game.battle.step].name)
-
-	// Generate hits
-	game.battle.ah = [ 0, 0, 0, 0, 0, 0 ]
-
-	for (let pos of battle_strike_positions) {
-		let lord = game.battle.array[pos]
-		if (lord !== NOBODY) {
-			let hits = count_lord_hits(lord)
-
-			game.battle.ah[pos] = hits
-		}
-	}
-
-	resume_engagement()
-}
-
-function find_engagement_index(pos) {
-	return game.battle.engagements.findIndex(e => e.includes(pos))
-}
-
-function end_engagement() {
-	game.battle.engagements.shift()
-
-	if (game.battle.engagements.length > 0) {
-		game.battle.step = 0
-		goto_engagement()
-	} else {
-		goto_end_battle_round()
-	}
-}
-
-states.select_engagement = {
-	inactive: "Select Engagment",
-	prompt() {
-		view.prompt = `Select the next engagement to resolve.`
-		for (let pos of battle_strike_positions) {
-			if (has_strike(pos)) {
-				let lord = game.battle.array[pos]
-				if (is_friendly_lord(lord))
-					gen_action_lord(lord)
-			}
-		}
-	},
-	lord(lord) {
-		let idx = find_engagement_index(get_lord_array_position(lord))
-		let eng = game.battle.engagements[idx]
-		array_remove(game.battle.engagements, idx)
-		game.battle.engagements.unshift(eng)
-		set_active_defender()
-		if (game.battle.round === 1 && is_archery_step()) {
-			goto_culverins()
-		}
-		else {
-			goto_engagement_total_hits()
-		}
-	},
-}
-
-function resume_engagement() {
-	if (game.battle.engagements.length === 1 || is_melee_step()) {
-		if (game.battle.round === 1 && is_archery_step()) {
-			goto_culverins()
-		}
-		else {
-			goto_engagement_total_hits()
-		}
-		// only one engagement, so no choices on order
-	} else {
-		set_active_attacker()
-		game.state = "select_engagement"
-	}
-}
-
-// === 4.4.2 BATTLE ROUNDS: TOTAL HITS (ROUND UP) ===
-
-// for each battle step:
-// 	generate strikes for each lord
-// 	while strikes remain:
-// 		create list of strike groups (choose left/right both rows)
-// 		select strike group
-// 		create target group (choose if sally)
-// 		total strikes and roll for walls
-// 		while hits remain:
-// 			assign hit to unit in target group
-// 			if lord routs:
-// 				forget choice of left/right strike group in current row
-// 				create new target group (choose if left/right/sally)
-
-function goto_engagement_total_hits() {
-	let ahits = 0
-	let dhits = 0
-
-	for (let pos of game.battle.engagements[0]) {
-		if (pos === A1 || pos === A2 || pos === A3) {
-			ahits += game.battle.ah[pos]
-			if (game.battle.attacker_artillery > 0) {
-				ahits += game.battle.attacker_artillery
-			}
-		}
-		else {
-			dhits += game.battle.ah[pos]
-			if (game.battle.defender_artillery > 0) {
-				dhits += game.battle.defender_artillery
-			}
-		}
-	}
-	if (ahits & 1)
-		ahits = (ahits >> 1) + 1
-	else
-		ahits = ahits >> 1
-
-	if (dhits & 1)
-		dhits = (dhits >> 1) + 1
-	else
-		dhits = dhits >> 1
-
-	game.battle.ahits = ahits
-	game.battle.dhits = dhits
-
-	log_br()
-	log_hits(game.battle.ahits, "Hit")
-	game.battle.target = NOBODY
-	goto_defender_assign_hits()
-}
-
-function continue_engagement() {
-	for (let pos of battle_strike_positions) {
-		let lord = game.battle.array[pos]
-		if (lord !== NOBODY)
-			if (will_lord_rout(lord))
-				rout_lord(lord)
-	}
-
-	end_assign_hits()
-}
-
-function log_hits(total, name) {
-	if (total === 1)
-		logi(`${total} ${name}`)
-	else if (total > 1)
-		logi(`${total} ${name}s`)
-	else
-		logi(`No ${name}s`)
-}
-
-// === 4.4.2 BATTLE ROUNDS: APPLY HITS / PROTECTION / ROLL BY HIT / ROUT ===
-
-function goto_defender_assign_hits() {
-	set_active_defender()
-	if (game.battle.ahits === 0)
-		return end_defender_assign_hits()
-
-	if (no_remaining_targets())
-		return end_defender_assign_hits()
-
-	goto_assign_hits()
-}
-
-function goto_assign_hits() {
-	game.state = "assign_hits"
-	if (game.battle.target === NOBODY) {
-		let targets = []
-		for (let pos of game.battle.engagements[0]) {
-			let lord = game.battle.array[pos]
-			if (is_friendly_lord(lord)) {
-				targets.push(pos)
-			}
-		}
-		game.battle.target = targets
-	}
-}
-
-function end_defender_assign_hits() {
-	log_hits(game.battle.dhits, "Hit")
-	game.battle.target = NOBODY
-	goto_attacker_assign_hits()
-}
-
-function no_remaining_targets() {
-	for (let pos of game.battle.engagements[0]) {
-		let lord = game.battle.array[pos]
-		if (is_friendly_lord(lord))
-			if (lord_has_unrouted_units(lord))
-				return false
-	}
-	return true
-}
-
-function goto_attacker_assign_hits() {
-	set_active_attacker()
-	if (game.battle.dhits === 0)
-		return end_attacker_assign_hits()
-
-	if (no_remaining_targets())
-		return end_attacker_assign_hits()
-
-	goto_assign_hits()
-}
-
-function end_attacker_assign_hits() {
-	continue_engagement()
-}
-
-function end_assign_hits() {
-	for (let pos of game.battle.engagements[0]) {
-		game.battle.ah[pos] = 0
-	}
-	game.battle.target = NOBODY
-	game.battle.ahits = 0
-	game.battle.dhits = 0
-
-	goto_next_step()
-}
-
-function for_each_target(fn) {
-	for (let target of game.battle.target) {
-		fn(game.battle.array[target])
-	}
-}
-
-function prompt_hit_forces() {
-	for_each_target(lord => {
-		if (get_lord_forces(lord, RETINUE) > 0)
-			gen_action_retinue(lord)
-		if (get_lord_forces(lord, BURGUNDIANS) > 0)
-			gen_action_burgundians(lord)
-		if (get_lord_forces(lord, MERCENARIES) > 0)
-			gen_action_mercenaries(lord)
-		if (get_lord_forces(lord, LONGBOWMEN) > 0)
-			gen_action_longbowmen(lord)
-		if (get_lord_forces(lord, MEN_AT_ARMS) > 0)
-			gen_action_men_at_arms(lord)
-		if (get_lord_forces(lord, MILITIA) > 0)
-			gen_action_militia(lord)
-
-		for_each_vassal_with_lord(lord, v => {
-			if (!set_has(game.battle.routed_vassals, v))
-				gen_action_vassal(v)
-		})
-	})
-}
-
-states.assign_hits = {
-	get inactive() {
-		return format_strike_step() + " \u2014 Assign " + format_hits()
-	},
-	prompt() {
-		view.prompt = `${format_strike_step()}: Assign ${format_hits()} to units.`
-
-		prompt_hit_forces()
-	},
-	retinue(lord) {
-		if ((lord === LORD_MARGARET) && (lord_has_capability(lord, AOW_LANCASTER_YEOMEN_OF_THE_CROWN)) && get_lord_forces(lord, MEN_AT_ARMS) > 0)
-			action_assign_hits(lord, MEN_AT_ARMS)
-		else
-			action_assign_hits(lord, RETINUE)
-	},
-	burgundians(lord) {
-		action_assign_hits(lord, BURGUNDIANS)
-	},
-	mercenaries(lord) {
-		action_assign_hits(lord, MERCENARIES)
-	},
-	longbowmen(lord) {
-		action_assign_hits(lord, LONGBOWMEN)
-	},
-	men_at_arms(lord) {
-		action_assign_hits(lord, MEN_AT_ARMS)
-	},
-	militia(lord) {
-		action_assign_hits(lord, MILITIA)
-	},
-	vassal(vassal) {
-		let lord = get_vassal_lord(vassal)
-		action_assign_hits(lord, VASSAL, vassal)
-	},
-}
-
-function rout_lord(lord) {
-	log(`L${lord} Routed.`)
-
-	let pos = get_lord_array_position(lord)
-
-	// Remove from battle array
-	game.battle.array[pos] = NOBODY
-	set_add(game.battle.routed, lord)
-}
-
-function lord_has_unrouted_troops(lord) {
-	// Don't check here for Retinue or Vassals.
-	for (let x = 2; x < FORCE_TYPE_COUNT; x++) {
-		if (get_lord_forces(lord, x) > 0)
-			return true
-	}
-	return false
-}
-
-function lord_has_routed_troops(lord) {
-	// Don't check here for Retinue or Vassals.
-	for (let x = 2; x < FORCE_TYPE_COUNT; x++) {
-		if (get_lord_routed_forces(lord, x) > 0)
-			return true
-	}
-	return false
-}
-
-function will_lord_rout(lord) {
-	if (get_lord_routed_forces(lord, RETINUE) > 0)
-		return true
-	if (!lord_has_unrouted_troops(lord))
-		return true
-	return false
-}
-
-function rout_unit(lord, type, special) {
-	if (type === VASSAL) {
-		rout_vassal(lord, special)
-	} else {
-		add_lord_forces(lord, type, -1)
-		add_lord_routed_forces(lord, type, 1)
-	}
-}
-
-function assign_hit_roll(what, prot, extra) {
-	let die = roll_die()
-	if (die <= prot) {
-		logi(`${what} ${range(prot)}: ${MISS[die]}${extra}`)
-		return false
-	} else {
-		logi(`${what} ${range(prot)}: ${HIT[die]}${extra}`)
-		return true
-	}
-}
-
-function get_lord_remaining_valour(lord) {
-	return game.battle.valour[lord]
-}
-
-function spend_valour(lord) {
-	game.battle.valour[lord] = game.battle.valour[lord] - 1
-}
-
-function check_protection_capabilities(protection) {
-	if (game.what === MEN_AT_ARMS || game.what === MILITIA) {
-		if (lord_has_capability(game.who, AOW_LANCASTER_PIQUIERS) &&
-		(get_lord_routed_forces(game.who, MILITIA) + get_lord_routed_forces(game.who, MEN_AT_ARMS) < 3)) {
-			protection = 4
-		}
-	}
-
-	if (game.what === MEN_AT_ARMS) {
-		if (lord_has_capability(game.who, AOW_LANCASTER_CHURCH_BLESSINGS)) {
-			protection += 1
-		}
-	}
-	if (game.what === RETINUE) {
-		if (lord_has_capability(game.who, AOW_LANCASTER_MONTAGU))
-			protection += 1
-	}
-	if ((game.what === RETINUE || game.what === VASSAL) && is_archery_step()) {
-		if (lord_has_capability(game.who, AOW_LANCASTER_BARDED_HORSE))
-			protection -= 1
-	}
-	if ((game.what === RETINUE || game.what === VASSAL) && is_melee_step()) {
-		if (lord_has_capability(game.who, AOW_LANCASTER_BARDED_HORSE))
-			protection += 1
-	}
-
-	if (game.what === MEN_AT_ARMS) {
-		if (lord_has_capability(game.who, AOW_YORK_BARRICADES) && has_favoury_marker(game.battle.where))
-			protection += 1
-	}
-	if (game.what === MEN_AT_ARMS) {
-		if (lord_has_capability(game.who, AOW_LANCASTER_CHEVALIERS) && is_archery_step()) {
-			protection -= 1
-		}
-	}
-	if (game.what === MILITIA || game.what === LONGBOWMEN) {
-		if (lord_has_capability(game.who, AOW_YORK_BARRICADES) && has_favoury_marker(game.battle.where))
-			protection += 1
-	}
-	return protection
-}
-
-function action_assign_hits(lord, type, special) {
-	if (game.who !== lord) {
-		game.who = lord
-		log(`L${lord}`)
-	}
-	let protection = check_protection_capabilities(FORCE_PROTECTION[type])
-	let extra = ""
-
-	if (assign_hit_roll(get_force_name(lord, type, special), protection, extra)) {
-		if (get_lord_remaining_valour(lord) > 0) {
-			game.state = "spend_valour"
-			game.what = type
-			if (game.what === VASSAL)
-				game.where = special
-		} else {
-			rout_unit(lord, type, special)
-
-			// Swift Maneuver event
-			if (is_swift_maneuver_in_play() && type === RETINUE) {
-				set_active_enemy()
-				game.state = "swift_maneuver"
-				return
-			}
-
-			finish_action_assign_hits(lord)
-		}
-	} else {
-		finish_action_assign_hits(lord)
-	}
-}
-
-function finish_action_assign_hits(lord) {
-	if (game.battle.ahits)
-		game.battle.ahits--
-	else
-		game.battle.dhits--
-
-	if (!lord_has_unrouted_units(lord)) {
-		game.battle.target = NOBODY
-	}
-
-	if (game.active === game.battle.attacker)
-		goto_attacker_assign_hits()
-	else
-		goto_defender_assign_hits()
-}
-
-states.spend_valour = {
-	inactive: "Spend Valour",
-	prompt() {
-		view.prompt = `Spend Valour: Reroll Hit on ${get_force_name(game.who, game.what, game.where)}?`
-		gen_action("valour", game.who)
-		view.actions.pass = 1
-	},
-	pass() {
-		rout_unit(game.who, game.what, game.where)
-		finish_action_assign_hits(game.who)
-	},
-	valour() {
-		let protection = check_protection_capabilities(FORCE_PROTECTION[game.what])
-
-		spend_valour(game.who)
-		log(`Reroll:`)
-		if (assign_hit_roll(get_force_name(game.who, game.what, game.where), protection, "")) {
-			rout_unit(game.who, game.what, game.where)
-			finish_action_assign_hits(game.who)
-		} else {
-			finish_action_assign_hits(game.who)
-		}
-	},
-}
-
-// === 4.4.2 BATTLE ROUNDS: NEW ROUND ===
-
-function goto_end_battle_round() {
-	end_battle_round()
-}
-
-function end_battle_round() {
-	game.battle.ravine = NOBODY
-	let attacker_loser = null
-	set_active_attacker()
-	if (has_no_unrouted_forces()) {
-		attacker_loser = game.active
-	}
-
-	let defender_loser = null
-	set_active_defender()
-	if (has_no_unrouted_forces()) {
-		defender_loser = game.active
-	}
-
-	if (attacker_loser !== null || defender_loser !== null) {
-		if (attacker_loser === null)
-			game.battle.loser = defender_loser
-		else if (defender_loser === null)
-			game.battle.loser = attacker_loser
-		else
-			game.battle.loser = BOTH
-
-		end_battle()
-		return
-	}
-
-	game.battle.round++
-
-	game.battle.ambush = 0
-
-	// TODO: goto_battle_rounds() instead?
-	set_active_defender()
-	goto_flee()
-}
-
-// === 4.4.3 ENDING THE BATTLE ===
-
-// Ending the Battle - optimized from rules as written
-//   Loser retreat / withdraw / remove
-//   Loser losses
-//   Loser service
-//   Victor losses
-//   Victor spoils
-
-function set_active_loser() {
-	set_active(game.battle.loser)
-}
-
-function set_active_victor() {
-	if (game.battle.loser === YORK)
-		set_active(LANCASTER)
-	else
-		set_active(YORK)
-}
-
-function end_battle() {
-	if (game.battle.loser === BOTH)
-		log_h4(`Both Sides Lost`)
-	else
-		log_h4(`${game.battle.loser} Lost`)
-
-	game.battle.array = 0
-	game.battle.caltrops = -1
-	goto_battle_influence()
-}
-
-function has_defeated_lords() {
-	for (let lord of game.battle.fled)
-		if (is_friendly_lord(lord))
-			return true
-	for (let lord of game.battle.routed)
-		if (is_friendly_lord(lord))
-			return true
-	return false
-}
-
-// === 4.4.3 ENDING THE BATTLE: INFLUENCE ===
-
-function goto_battle_influence() {
-	if (game.battle.loser !== BOTH) {
-		set_active_loser()
-
-		let influence = 0
-		for (let lord of game.battle.fled)
-			if (is_friendly_lord(lord))
-				influence += data.lords[lord].influence + count_vassals_with_lord(lord)
-		for (let lord of game.battle.routed)
-			if (is_friendly_lord(lord))
-				influence += data.lords[lord].influence + count_vassals_with_lord(lord)
-
-		reduce_influence(influence)
-		goto_battle_spoils()
-	} else {
-		goto_death_or_disband()
-	}
-}
-
-// === 4.4.3 ENDING THE BATTLE: LOSSES ===
-
-function has_battle_losses() {
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord)
-		if (lord_has_routed_troops(lord))
-			return true
-	return false
-}
-
-function goto_battle_losses_victor() {
-	set_active_victor()
-	game.who = NOBODY
-	if (has_battle_losses())
-		log_h4(`${game.active} Losses`)
-	resume_battle_losses()
-}
-
-function resume_battle_losses() {
-	game.state = "battle_losses"
-	if (!has_battle_losses())
-		goto_death_or_disband()
-}
-
-function action_losses(lord, type) {
-	let protection = FORCE_PROTECTION[type]
-
-	if (game.who !== lord) {
-		log(`L${lord}`)
-		game.who = lord
-	}
-
-	let die = roll_die()
-	if (die <= protection) {
-		logi(`${get_force_name(lord, type)} ${range(protection)}: ${MISS[die]}`)
-		add_lord_routed_forces(lord, type, -1)
-		add_lord_forces(lord, type, 1)
-	} else {
-		logi(`${get_force_name(lord, type)} ${range(protection)}: ${HIT[die]}`)
-		add_lord_routed_forces(lord, type, -1)
-	}
-
-	resume_battle_losses()
-}
-
-states.battle_losses = {
-	inactive: "Losses",
-	prompt() {
-		let done = true
-		view.prompt = "Losses: Determine the fate of your Routed units."
-		for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-			if (is_lord_on_map(lord) && lord_has_routed_troops(lord)) {
-				if (get_lord_routed_forces(lord, MERCENARIES) > 0)
-					gen_action_routed_mercenaries(lord)
-				if (get_lord_routed_forces(lord, LONGBOWMEN) > 0)
-					gen_action_routed_longbowmen(lord)
-				if (get_lord_routed_forces(lord, BURGUNDIANS) > 0)
-					gen_action_routed_burgundians(lord)
-				if (get_lord_routed_forces(lord, MEN_AT_ARMS) > 0)
-					gen_action_routed_men_at_arms(lord)
-				if (get_lord_routed_forces(lord, MILITIA) > 0)
-					gen_action_routed_militia(lord)
-				done = false
-			}
-		}
-		if (done) {
-			view.actions.done = 1
-		}
-	},
-	routed_mercenaries(lord) {
-		action_losses(lord, MERCENARIES)
-	},
-	routed_longbowmen(lord) {
-		action_losses(lord, LONGBOWMEN)
-	},
-	routed_burgundians(lord) {
-		action_losses(lord, BURGUNDIANS)
-	},
-	routed_men_at_arms(lord) {
-		action_losses(lord, MEN_AT_ARMS)
-	},
-	routed_militia(lord) {
-		action_losses(lord, MILITIA)
-	},
-	done() {
-		goto_death_or_disband()
-	},
-}
-
-// === 4.4.3 ENDING THE BATTLE: SPOILS ===
-
-function log_spoils() {
-	if (game.spoils[PROV] > 0)
-		logi(game.spoils[PROV] + " Provender")
-	if (game.spoils[CART] > 0)
-		logi(game.spoils[CART] + " Cart")
-}
-
-function calculate_spoils() {
-	let n_prov = 0
-	let n_cart = 0
-
-	if (has_favour_in_locale(game.battle.loser, game.battle.where))
-		return
-
-	for (let lord of game.battle.fled) {
-		if (is_enemy_lord(lord)) {
-			n_prov += get_lord_assets(lord, PROV)
-			n_cart += get_lord_assets(lord, CART)
-		}
-	}
-
-	for (let lord of game.battle.routed) {
-		if (is_enemy_lord(lord)) {
-			n_prov += get_lord_assets(lord, PROV)
-			n_cart += get_lord_assets(lord, CART)
-		}
-	}
-
-	if (is_neutral_locale(game.battle.where)) {
-		n_prov = Math.ceil(n_prov / 2)
-		n_cart = Math.ceil(n_cart / 2)
-	}
-
-	add_spoils(PROV, n_prov)
-	add_spoils(CART, n_cart)
-}
-
-function find_lone_victor() {
-	let found = NOBODY
-	for (let pos of battle_strike_positions) {
-		let lord = game.battle.array[pos]
-		if (is_friendly_lord(lord)) {
-			if (found !== NOBODY)
-				return NOBODY
-			found = lord
-		}
-	}
-	return found
-}
-
-function goto_battle_spoils() {
-	set_active_victor()
-	// determine Battle Spoils
-	calculate_spoils()
-	if (has_any_spoils() && has_friendly_lord(game.battle.where)) {
-		log_h4("Spoils")
-		log_spoils()
-		game.state = "battle_spoils"
-		game.who = find_lone_victor()
-	} else {
-		end_battle_spoils()
-	}
-}
-
-function end_battle_spoils() {
-	game.who = NOBODY
-	game.spoils = 0
-
-	goto_battle_losses_victor()
-}
-
-states.battle_spoils = {
-	inactive: "Spoils",
-	prompt() {
-		if (has_any_spoils()) {
-			view.prompt = "Spoils: Divide " + list_spoils() + "."
-			let here = game.battle.where
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord)
-				if (get_lord_locale(lord) === here)
-					prompt_select_lord(lord)
-			if (game.who !== NOBODY)
-				prompt_spoils()
-		} else {
-			view.prompt = "Spoils: All done."
-			view.actions.end_spoils = 1
-		}
-	},
-	lord: action_select_lord,
-
-	take_prov() {
-		push_undo_without_who()
-		take_spoils(PROV)
-	},
-
-	take_cart() {
-		push_undo_without_who()
-		take_spoils(CART)
-	},
-
-	end_spoils() {
-		end_battle_spoils()
-	},
-}
-
-// === 4.4.3 ENDING THE BATTLE: DEATH CHECK AND DISBAND ===
-
-function goto_death_or_disband() {
-	remove_battle_capability_troops()
-	if (has_defeated_lords()) {
-		if (game.battle.loser === LANCASTER && lord_has_capability(LORD_RICHARD_III, AOW_YORK_BLOODY_THOU_ART) && get_lord_locale(LORD_RICHARD_III) === game.battle.where) {
-			game.flags.bloody = 1
-		}
-		game.state = "death_check"
-	}
-	else
-		end_death_or_disband()
-}
-
-function end_death_or_disband() {
-	set_active_enemy()
-	if (has_defeated_lords()) {
-		goto_death_or_disband()
-	} else {
-		goto_battle_aftermath()
-	}
-}
-
-function prompt_held_event_death_check() {
-	// both attacker and defender events
-	if (game.active === LANCASTER) {
-		if (can_play_escape_ship())
-			gen_action_card_if_held(EVENT_LANCASTER_ESCAPE_SHIP)
-		if (can_play_warden_of_the_marches())
-			gen_action_card_if_held(EVENT_LANCASTER_WARDEN_OF_THE_MARCHES)
-		if (can_play_talbot_to_the_rescue())
-			gen_action_card_if_held(EVENT_LANCASTER_TALBOT_TO_THE_RESCUE)
-	}
-	if (game.active === YORK) {
-		if (can_play_escape_ship())
-			gen_action_card_if_held(EVENT_YORK_ESCAPE_SHIP)
-	}
-}
-
-states.death_check = {
-	inactive: "Death or Disband",
-	prompt() {
-		view.prompt = `Death or Disband: Select lords to roll for Death or Disband.`
-
-		prompt_held_event_death_check()
-
-		let done = true
-		for (let lord of game.battle.fled) {
-			if (is_friendly_lord(lord)) {
-				gen_action_lord(lord)
-				done = false
-			}
-		}
-		for (let lord of game.battle.routed) {
-			if (is_friendly_lord(lord)) {
-				gen_action_lord(lord)
-				done = false
-			}
-		}
-		if (game.flags.warden_of_the_marches && game.active === LANCASTER) {
-			done = true
-		}
-		if (done) {
-			view.actions.done = 1
-		}
-	},
-	lord(lord) {
-		let threshold = 2
-		let modifier = 0
-
-		// CAPABILITY: BLOODY THOU ART, BLOODY WILL BE THE END
-		if (is_lancaster_lord(lord) && game.flags.bloody === 1) {
-			logcap(AOW_YORK_BLOODY_THOU_ART)
-			disband_lord(lord, true)
-			set_delete(game.battle.fled, lord)
-			set_delete(game.battle.routed, lord)
-		}
-		else {
-			let roll = roll_die()
-			if (set_has(game.battle.fled, lord))
-				modifier = -2
-
-			let success = threshold >= roll + modifier
-			log(`Lord ${lord_name[lord]} ${success ? "Survived" : "Died"}: (${range(2)}) ${success ? HIT[roll] : MISS[roll]} ${modifier < 0 ? "(-2 Fled)" : ""}`)
-			disband_lord(lord, !success)
-			set_delete(game.battle.fled, lord)
-			set_delete(game.battle.routed, lord)
-		}
-	},
-	done() {
-		end_death_or_disband()
-	},
-	card: action_held_event,
-}
-
-// === DEATH CHECK EVENT: ESCAPE SHIP ===
-
-function can_play_escape_ship() {
-	return can_escape_at(game.battle.where)
-}
-
-function can_escape_at(here) {
-	if (game.active === YORK && has_favoury_marker(here) && is_seaport(here))
-		return true
-	if (game.active === LANCASTER && has_favourl_marker(here) && is_seaport(here))
-		return true
-	if (search_escape_route(here))
-		return true
-	return false
-}
-
-function search_escape_route(start) {
-	search_seen.fill(0)
-	search_seen[start] = 1
-	let queue = [start]
-
-	while (queue.length > 0) {
-		let here = queue.shift()
-
-		// Check if the current locale is a seaport
-		if (is_seaport(here)) {
-			return true
-		}
-
-		if (is_friendly_locale(here)) {
-			for (let next of data.locales[here].adjacent) {
-				if (!search_seen[next]) {
-					search_seen[next] = 1
-					queue.push(next)
-				}
-			}
-		}
-	}
-	return false
-}
-
-function goto_play_escape_ship() {
-	game.state = "escape_ship"
-	game.who = NOBODY
-}
-
-states.escape_ship = {
-	inactive: `Escape ship`,
-	prompt() {
-		view.prompt = "Escape Ship: Your lords go to Exile."
-		view.actions.escape_ship = 1
-	},
-	escape_ship() {
-		push_undo()
-		for (let lord of game.battle.fled) {
-			log(`${lord_name[lord]} went to exile.`)
-			exile_lord(lord)
-			set_delete(game.battle.fled, lord)
-		}
-		for (let lord of game.battle.routed) {
-			log(`${lord_name[lord]} went to exile.`)
-			exile_lord(lord)
-			set_delete(game.battle.routed, lord)
-		}
-		game.state = "death_check"
-	},
-}
-
-// === DEATH CHECK EVENT: TALBOT TO THE RESCUE ===
-
-function can_play_talbot_to_the_rescue() {
-	return true
-}
-
-function goto_play_talbot_to_the_rescue() {
-	throw "TODO"
-}
-
-// === DEATH CHECK EVENT: WARDEN OF THE MARCHES ===
-
-function can_play_warden_of_the_marches() {
-	// TOOD : Maybe a bug with blocked ford/exile ?
-	let can_play = false
-	for (let loc = first_locale; loc <= last_locale; loc++) {
-		if (is_friendly_locale(loc) && is_north(loc) && loc !== game.battle.where) {
-			can_play = true
-		}
-	}
-	if (!can_play) {
-		return false
-	}
-	// if blocked ford then flee
-	if (is_north(game.where))
-		return true
-	// if battle
-	if (is_north(game.battle.where))
-		return true
-	return false
-}
-
-function goto_play_warden_of_the_marches() {
-	push_undo()
-	game.state = "warden_of_the_marches"
-}
-
-states.warden_of_the_marches = {
-	inactive: "Warden of the Marches",
-	prompt() {
-		let done = true
-		view.prompt = "Warden of the Marches: Select a friendly locale in the North to move routed lords there"
-		for (let loc = first_locale; loc <= last_locale; loc++) {
-			if (is_friendly_locale(loc) && is_north(loc) && loc !== game.battle.where) {
-				done = false
-				gen_action_locale(loc)
-			}
-		}
-		if (done) {
-			view.actions.done = 1
-		}
-	},
-	locale(loc) {
-		push_undo()
-		for (let lord = first_lancaster_lord; lord <= last_lancaster_lord; lord++) {
-			if (get_lord_locale(lord) === game.battle.where) {
-				set_lord_locale(lord, loc)
-				if (!lord_has_unrouted_troops(lord)) {
-					disband_lord(lord, false)
-				}
-				else {
-					set_lord_forces(lord, RETINUE, 1)
-				}
-				for (let x = 0; x < FORCE_TYPE_COUNT; ++x) {
-					set_lord_forces(lord, x, 0)
-					if (get_lord_routed_forces(lord, x) > 0) {
-						set_lord_routed_forces(lord, x, 0)
-					}
-				}
-				for_each_vassal_with_lord(lord, v => {
-					if (set_has(game.battle.routed_vassals, v)) {
-						array_remove(game.battle.routed_vassals, v)
-						disband_vassal(v)
-					}
-				})
-			}
-		}
-		logi(`Moved to ${data.locales[loc].name}`)
-		end_warden_of_the_marches()
-	},
-	done() {
-		end_warden_of_the_marches()
-	},
-}
-
-function end_warden_of_the_marches() {
-	game.flags.warden_of_the_marches = 1
-	game.who = NOBODY
-	game.state = "death_check"
-}
-
-// === 4.4.4 ENDING THE BATTLE: AFTERMATH ===
-
-function goto_battle_aftermath() {
-	set_active(game.battle.attacker)
-	game.where = NOWHERE
-
-	// Routed Vassals get disbanded
-	for (let lord = first_lord; lord <= last_lord; lord++) {
-		if (is_lord_on_map(lord)) {
-			for_each_vassal_with_lord(lord, v => {
-				if (set_has(game.battle.routed_vassals, v)) {
-					array_remove(game.battle.routed_vassals, v)
-					disband_vassal(v)
-				}
-			})
-		}
-	}
-
-	// Events
-	discard_events("hold")
-
-	// Recovery
-	spend_all_actions()
-	game.where = NOWHERE
-	game.battle = 0
-	game.flags.bloody = 0
-	end_march()
-}
-
-// === 4.7 FEED ===
-
-function can_feed_from_shared(lord) {
-	let loc = get_lord_locale(lord)
-	return get_shared_assets(loc, PROV) > 0
-}
-
-function can_pay_from_shared(lord) {
-	let loc = get_lord_locale(lord)
-	return get_shared_assets(loc, COIN) > 0
-}
-
-function has_friendly_lord_who_must_feed() {
-	if (is_campaign_phase() && game.flags.supply_depot === 1 && game.active === LANCASTER) {
-		game.flags.supply_depot = 0
-		logi(`No feed ${EVENT_LANCASTER_REBEL_SUPPLY_DEPOT}`)
-		return false
-	}
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord)
-		if (is_lord_unfed(lord))
-			return true
-	return false
-}
-
-function set_lord_feed_requirements() {
-	// Count how much food each lord needs
-	let n = 0
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-		if (get_lord_moved(lord)) {
-			n = Math.ceil(count_lord_all_forces(lord) / 6)
-			set_lord_unfed(lord, n)
-		} else
-			set_lord_unfed(lord, 0)
-	}
-}
-
-function goto_feed() {
-	log_br()
-	set_lord_feed_requirements()
-	if (has_friendly_lord_who_must_feed()) {
-		push_state("feed")
-	} else {
-		// TODO: clean up transitions for End Command -> Feed and Disembark -> Feed
-		if (game.state !== "disembark")
-			goto_remove_markers()
-	}
-}
-
-states.feed = {
-	inactive: "Feed",
-	prompt() {
-		view.prompt = "Feed: You must Feed Lords who Moved or Fought."
-
-		let done = true
-		// Feed from own mat
-		if (done) {
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-				if (is_lord_unfed(lord)) {
-					if (get_lord_assets(lord, PROV) > 0) {
-						gen_action_prov(lord)
-						done = false
-					}
-				}
-			}
-		}
-
-		// Sharing
-		if (done) {
-			view.prompt = "Feed: You must Feed Lords with Shared Loot or Provender."
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-				if (is_lord_unfed(lord) && can_feed_from_shared(lord)) {
-					gen_action_lord(lord)
-					done = false
-				}
-			}
-		}
-
-		// Unfed
-		if (done) {
-			view.prompt = `Feed: You must pillage to feed your troops.`
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-				if (is_lord_unfed(lord)) {
-					view.actions.pillage = 1
-					done = false
-				}
-			}
-		}
-
-		// All done!
-		if (done) {
-			view.prompt = "Feed: All done."
-			view.actions.end_feed = 1
-		}
-	},
-	prov(lord) {
-		push_undo()
-		add_lord_assets(lord, PROV, -1)
-		feed_lord(lord)
-	},
-	lord(lord) {
-		push_undo()
-		game.who = lord
-		game.state = "feed_lord_shared"
-	},
-	pillage() {
-		push_undo()
-		set_lord_feed_requirements()
-		goto_pillage_food()
-	},
-	end_feed() {
-		push_undo()
-		end_feed()
-	},
-	card: action_held_event,
-}
-
-function resume_feed_lord_shared() {
-	if (!is_lord_unfed(game.who) || !can_feed_from_shared(game.who)) {
-		game.who = NOBODY
-		game.state = "feed"
-	}
-}
-
-states.feed_lord_shared = {
-	inactive: "Feed",
-	prompt() {
-		view.prompt = `Feed: You must Feed ${lord_name[game.who]} with Shared Loot or Provender.`
-		let loc = get_lord_locale(game.who)
-		for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-			if (get_lord_locale(lord) === loc) {
-				if (get_lord_assets(lord, PROV) > 0)
-					gen_action_prov(lord)
-			}
-		}
-	},
-	prov(lord) {
-		push_undo()
-		add_lord_assets(lord, PROV, -1)
-		feed_lord(game.who)
-		resume_feed_lord_shared()
-	},
-}
-
-function end_feed() {
-	pop_state()
-	game.where = NOWHERE
-	// TODO: clean up transitions for End Command -> Feed and Disembark -> Feed
-	if (game.state !== "disembark")
-		goto_remove_markers()
-}
-
-// === 4.7 FEED: REMOVE MARKERS ===
-
-function goto_remove_markers() {
-	clear_lords_moved()
-	goto_command_activation()
-}
-
-// === 4.8 END CAMPAIGN ===
-
-function goto_end_campaign() {
-	log_h1("End Campaign")
-	set_active(P1)
-	goto_tides_of_war()
-}
-
-// === 4.8.1 END CAMPAIGN: TIDES OF WAR ===
-
-function tides_calc() {
-	log_h3(`Tides of War`)
-	let town = 0
-	let cities = 0
-	let fortress = 0
-	let domy = 0
-	let doml = 0
-	let domnl = 0
-	let domny = 0
-	let domsl = 0
-	let domsy = 0
-	let domwl = 0
-	let domwy = 0
-	let prenl = 0
-	let preny = 0
-	let presl = 0
-	let presy = 0
-	let prewl = 0
-	let prewy = 0
-	let prel = 0
-	let prey = 0
-
-	// DOMINATION CALC
-
-	for (let x of all_north_locales) {
-		if (has_favourl_marker(x)) {
-			domnl += 1
-		}
-		if (has_favoury_marker(x)) {
-			domny += 1
-		}
-	}
-
-	for (let x of all_south_locales) {
-		if (has_favourl_marker(x)) {
-			domsl += 1
-		}
-		if (has_favoury_marker(x)) {
-			domsy += 1
-		}
-	}
-
-	for (let x of all_wales_locales) {
-		if (has_favourl_marker(x)) {
-			domwl += 1
-		}
-		if (has_favoury_marker(x)) {
-			domwy += 1
-		}
-	}
-
-	// SPECIAL LOCALES
-
-	if (has_favourl_marker(LOC_LONDON)) {
-		log(`London control 2 Influence for Lancaster`)
-		doml += 2
-	}
-	if (has_favoury_marker(LOC_LONDON)) {
-		log(`London control 2 Influence for York`)
-		domy += 2
-	}
-
-	if (has_favourl_marker(LOC_CALAIS)) {
-		log(`Calais control 2 Influence for Lancastrians`)
-		doml += 2
-	}
-	if (has_favoury_marker(LOC_CALAIS)) {
-		log(`Calais control 2 Influence for York`)
-		domy += 2
-	}
-
-	if (has_favourl_marker(LOC_HARLECH)) {
-		log(`Harlech control 1 Influence for Lancaster`)
-		doml += 1
-	}
-	if (has_favoury_marker(LOC_HARLECH)) {
-		log(`Harlech control 1 Influence for York`)
-		domy += 1
-	}
-
-	for (let x of all_city_locales) {
-		if (has_favourl_marker(x)) {
-			cities -= 1
-		}
-		if (has_favoury_marker(x)) {
-			cities += 1
-		}
-	}
-
-	for (let x of all_town_locales) {
-		if (has_favourl_marker(x)) {
-			town -= 1
-		}
-		if (has_favoury_marker(x)) {
-			town += 1
-		}
-	}
-
-	for (let x of all_fortress_locales) {
-		if (has_favourl_marker(x)) {
-			fortress -= 1
-		}
-		if (has_favoury_marker(x)) {
-			fortress += 1
-		}
-	}
-
-	// DOMINATION CAPS
-
-	// NORTH
-
-	if (domnl === 6) {
-		log(`North Domination 2 Influence for Lancaster`)
-		doml += 2
-	} else if (domnl >= 3 && lord_has_capability(LORD_NORTHUMBERLAND_L, AOW_LANCASTER_NORTHMEN)) {
-		log(`North Domination 2 Influence for Lancaster`)
-		doml += 2
-	}
-
-	if (domny === 6) {
-		log(`North Domination 2 Influence for York`)
-		domy += 2
-	}
-
-	// SOUTH
-
-	if (domsl === 9) {
-		log(`South Domination 2 Influence for Lancaster`)
-		doml += 2
-	}
-
-	if (domsy === 9) {
-		log(`South Domination 2 Influence for York`)
-		domy += 2
-	} else if (
-		domsy >= 5 &&
-		(lord_has_capability(LORD_MARCH, AOW_YORK_SOUTHERNERS) ||
-			lord_has_capability(LORD_RUTLAND, AOW_YORK_SOUTHERNERS) ||
-			lord_has_capability(LORD_YORK, AOW_YORK_SOUTHERNERS))
-	) {
-		log(`South Domination 2 Influence for York`)
-		domy += 2
-	}
-
-	// WALES
-
-	if (domwl === 5) {
-		log(`Wales Domination 2 Influence for Lancaster`)
-		doml += 2
-	}
-
-	if (domwy === 5) {
-		log(`Wales Domination 2 Influence for York`)
-		domy += 2
-	} else if (
-		domwy >= 3 &&
-		(lord_has_capability(LORD_MARCH, AOW_YORK_WELSHMEN) || lord_has_capability(LORD_YORK, AOW_YORK_WELSHMEN))
-	) {
-		log(`Wales Domination 2 Influence for York`)
-		domy += 2
-	}
-
-	// LOCALES TUG OF WAR
-
-	if (cities >= 1) {
-		log(`Most Cities 2 Influence for York`)
-		domy += 2
-	}
-	if (fortress >= 1) {
-		log(`Most Fortresses 1 Influence for York`)
-		domy += 1
-	}
-	if (town >= 1) {
-		log(`Most Towns 1 Influence for York`)
-		domy += 1
-	}
-
-	if (cities <= -1) {
-		log(`Most Cities 2 Influence for Lancaster`)
-		doml += 2
-	}
-	if (fortress <= -1) {
-		log(`Most Fortresses 1 Influence for Lancaster`)
-		doml += 1
-	}
-	if (town <= -1) {
-		log(`Most Towns 1 Influence for Lancaster`)
-		doml += 1
-	}
-
-	// LORD PRESENCE
-	for (let lord = first_lancaster_lord; lord <= last_lancaster_lord; ++lord) {
-		if (is_lord_on_map(lord)) {
-			if (is_lord_in_north(lord)) {
-				prenl = 1
-			}
-			if (is_lord_in_south(lord)) {
-				presl = 1
-			}
-			if (is_lord_in_wales(lord)) {
-				prewl = 1
-			}
-		}
-	}
-	for (let lord = first_york_lord; lord <= last_york_lord; ++lord) {
-		if (is_lord_on_map(lord)) {
-			if (is_lord_in_north(lord)) {
-				preny = 1
-			}
-			if (is_lord_in_south(lord)) {
-				presy = 1
-			}
-			if (is_lord_in_wales(lord)) {
-				prewy = 1
-			}
-		}
-	}
-	prel = prenl + presl + prewl
-	prey = preny + presy + prewy
-
-	log("Presence in Areas : " + prel + " for Lancaster")
-	log("Presence in Areas : " + prey + " for Yorkists")
-
-	domy += preny + presy + prewy
-	doml += prenl + presl + prewl
-
-	// CAPS EFFECT
-
-	if (
-		lord_has_capability(LORD_HENRY_VI, AOW_LANCASTER_MARGARET) &&
-		get_lord_locale(LORD_HENRY_VI) !== LOC_LONDON &&
-		is_lord_on_map(LORD_HENRY_VI)
-	) {
-		log(`Capability: Margaret 2 Influence for Lancaster`)
-		doml += 2
-	}
-
-	if (
-		lord_has_capability(LORD_EXETER_1, AOW_LANCASTER_COUNCIL_MEMBER) ||
-		lord_has_capability(LORD_EXETER_2, AOW_LANCASTER_COUNCIL_MEMBER) ||
-		lord_has_capability(LORD_SOMERSET_2, AOW_LANCASTER_COUNCIL_MEMBER) ||
-		lord_has_capability(LORD_SOMERSET_1, AOW_LANCASTER_COUNCIL_MEMBER) ||
-		lord_has_capability(LORD_BUCKINGHAM, AOW_LANCASTER_COUNCIL_MEMBER)
-	) {
-		log(`Capability: Council Member 1 Influence for Lancaster`)
-		doml += 1
-	}
-
-	if (lord_has_capability(LORD_EDWARD_IV, AOW_YORK_FIRST_SON)) {
-		log(`Capability: First Son 1 Influence for York`)
-		domy += 1
-	}
-
-	if (set_has(INFLUENCE_TURNS, current_turn())) {
-		for (let y = first_york_lord; y <= last_york_lord; y++) {
-			if (is_lord_on_map(y)) {
-				domy += data.lords[y].influence
-				log(`Gain Lords Influence : Yorkists gain ${data.lords[y].influence} for ${data.lords[y].name}`)
-			}
-		}
-
-		for (let l = first_lancaster_lord; l <= last_lancaster_lord; l++) {
-			if (is_lord_on_map(l)) {
-				doml += data.lords[l].influence
-				log(`Gain Lords Influence : Lancastrians gain ${data.lords[l].influence} for ${data.lords[l].name}`)
-			}
-		}
-	}
-
-	log(`Total ` + domy + ` Influence for York`)
-	log(`Total ` + doml + ` Influence for Lancaster`)
-
-	game.influence += doml
-	game.influence -= domy
-}
-
-function goto_tides_of_war() {
-	if (lord_has_capability(LORD_BUCKINGHAM, AOW_LANCASTER_STAFFORD_ESTATES)) {
-		add_lord_assets(LORD_BUCKINGHAM, COIN, 1)
-		add_lord_assets(LORD_BUCKINGHAM, PROV, 1)
-	}
-	tides_calc()
-	if (eligible_charity()) {
-		goto_we_done_deeds_of_charity()
-	}
-	else
-		goto_disembark()
-}
-
-// === 4.8.2 END CAMPAIGN: DISEMBARK ===
-
-function has_lords_at_sea() {
-	for (let x = first_friendly_lord; x <= last_friendly_lord; x++) {
-		if (is_lord_at_sea(x))
-			return true
-	}
-	return false
-}
-
-function is_lord_at_sea(lord) {
-	let here = get_lord_locale(lord)
-	return here === LOC_NORTH_SEA || here === LOC_IRISH_SEA || here === LOC_ENGLISH_CHANNEL
-}
-
-function goto_disembark() {
-	if (has_lords_at_sea()) {
-		game.state = "disembark"
-	} else {
-		end_disembark()
-	}
-}
-
-function end_disembark() {
-	game.who = NOBODY
-	set_active_enemy()
-	if (has_lords_at_sea())
-		goto_disembark()
-	else {
-		set_active(P1)
-		goto_victory_check()
-	}
-}
-
-function do_disembark() {
-	let roll = roll_die()
-	let success = roll >= 5
-
-	log(`Disembark: (>4) ${success ? HIT[roll] : MISS[roll]}`)
-
-	return success
-}
-
-function has_safe_ports(sea) {
-	for (let loc of find_ports(sea))
-		if (!has_enemy_lord(loc))
-			return true
-	return false
-}
-
-states.disembark = {
-	inactive: "Disembark",
-	prompt() {
-		view.prompt = "Disembark your lords at sea."
-		let done = true
-		if (game.who === NOBODY) {
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; lord++) {
-				if (is_lord_at_sea(lord)) {
-					gen_action_lord(lord)
-					done = false
-				}
-			}
-		} else {
-			let sea = get_lord_locale(game.who)
-			for (let loc of find_ports(sea))
-				if (!has_enemy_lord(loc))
-					gen_action_locale(loc)
-		}
-		if (done) {
-			view.actions.done = 1
-		}
-	},
-	lord(lord) {
-		if (do_disembark()) {
-			if (has_safe_ports(get_lord_locale(lord))) {
-				game.who = lord
-			} else {
-				no_safe_disembark(lord)
-			}
-		} else {
-			shipwreck(lord)
-		}
-	},
-	locale(loc) {
-		successful_disembark(game.who, loc)
-	},
-	done() {
-		end_disembark()
-	},
-}
-
-function successful_disembark(lord, loc) {
-	set_lord_locale(lord, loc)
-	set_lord_moved(lord, 1)
-	levy_burgundians(lord)
-	game.who = NOBODY
-	goto_feed()
-}
-
-function shipwreck(lord) {
-	disband_influence_penalty(lord)
-	disband_lord(lord, true)
-}
-
-function no_safe_disembark(lord) {
-	disband_lord(lord)
-}
-
-function disband_influence_penalty(lord) {
-	let influence = data.lords[lord].influence
-
-	for (let v = first_vassal; v <= last_vassal; v++) {
-		if (is_vassal_mustered_with(v, lord)) {
-			influence += 1
-		}
-	}
-
-	if (game.active === LANCASTER)
-		game.ip -= influence
-	else
-		game.ip += influence
-}
-
-function goto_advance_campaign() {
-	game.turn++
-
-	log_h1("Levy " + current_turn_name())
-	goto_levy_arts_of_war()
-}
-
-// === 4.8.3 END CAMPAIGN: VICTORY CHECK ===
-
-function goto_victory_check() {
-	if (!(check_scenario_end_victory() || check_campaign_victory() || check_threshold_victory())) {
-		if (set_has(GROW_TURNS, current_turn())) {
-			do_grow()
-		} else if (set_has(WASTE_TURNS, current_turn())) {
-			do_waste()
-		} else {
-			goto_reset()
-		}
-	}
-}
-
-// === 4.8.4 END CAMPAIGN: GROW ===
-
-function do_grow() {
-	log("Grow:")
-	logi("Changing all Depleted locales to Normal.")
-	logi("Changing all Exhausted locales to Depleted.")
-
-	for (let x = first_locale; x <= last_locale; x++) {
-		refresh_locale(x)
-	}
-	goto_reset()
-}
-
-// === 4.8.5 END CAMPAIGN: WASTE ===
-
-function do_waste() {
-	log("Waste:")
-	logi("Removing half of all lords provinder, carts, and ships.")
-	logi("Resetting Lords Coin and Troops to initial values.")
-	for (let x = first_lord; x <= last_lord; x++) {
-		if (is_lord_on_map(x)) {
-			do_lord_waste(x)
-		}
-	}
-
-	goto_reset()
-}
-
-function do_lord_waste(lord) {
-	remove_half(lord, PROV)
-	remove_half(lord, CART)
-	remove_half(lord, SHIP)
-	set_lord_assets(lord, COIN, data.lords[lord].assets.coin)
-	muster_lord_forces(lord)
-}
-
-function remove_half(lord, type) {
-	set_lord_assets(lord, type, Math.ceil(get_lord_assets(lord, type) / 2))
-}
-
-// === 4.8.6 END CAMPAIGN: RESET (DISCARD ARTS OF WAR) ===
-
-function goto_reset() {
-	game.state = "reset"
-
-	// Discard "This Campaign" events from play.
-	discard_friendly_events("this_campaign")
-}
-
-states.reset = {
-	inactive: "Reset",
-	prompt() {
-		view.prompt = "Reset: You may discard any held Arts of War cards desired."
-		if (game.active === YORK) {
-			for (let c = first_york_card; c <= last_york_card; ++c) {
-				if (set_has(game.hand_y, c)) {
-					gen_action_card(c)
-				}
-			}
-		}
-		if (game.active === LANCASTER) {
-			for (let c = first_lancaster_card; c <= last_lancaster_card; ++c) {
-				if (set_has(game.hand_l, c)) {
-					gen_action_card(c)
-				}
-			}
-		}
-		view.actions.end_discard = 1
-	},
-	card(c) {
-		push_undo()
-		if (set_has(game.hand_y, c)) {
-			log("Discarded Held card.")
-			set_delete(game.hand_y, c)
-		} else if (set_has(game.hand_l, c)) {
-			log("Discarded Held card.")
-			set_delete(game.hand_l, c)
-		}
-	},
-	end_discard() {
-		end_reset()
-	},
-}
-
-function end_reset() {
-	set_active_enemy()
-	if (game.active === P2)
-		goto_reset()
-	else
-		goto_advance_campaign()
-}
-
-// === 5.1 CAMPAIGN VICTORY ===
-
-function check_campaign_victory_york(inc_exiles = false) {
-	for (let lord = first_lancaster_lord; lord <= last_lancaster_lord; ++lord)
-		if (
-			is_lord_on_map(lord) ||
-			(inc_exiles && get_lord_locale(lord) === CALENDAR + current_turn() + 1 && get_lord_in_exile(lord))
-		)
-			return false
-	return true
-}
-
-function check_campaign_victory_lancaster(inc_exiles = false) {
-	for (let lord = first_york_lord; lord <= last_york_lord; ++lord)
-		if (
-			is_lord_on_map(lord) ||
-			(inc_exiles && get_lord_locale(lord) === CALENDAR + current_turn() + 1 && get_lord_in_exile(lord))
-		)
-			return false
-	return true
-}
-
-function check_campaign_victory() {
-	let york_v = check_campaign_victory_york(true)
-	let lancaster_v = check_campaign_victory_lancaster(true)
-
-	if (york_v && lancaster_v) {
-		goto_game_over("Draw", "The game ended in a draw.")
-		return true
-	} else if (york_v) {
-		goto_game_over(YORK, `${YORK} won a Campaign Victory!`)
-		return true
-	} else if (lancaster_v) {
-		goto_game_over(LANCASTER, `${LANCASTER} won a Campaign Victory!`)
-		return true
-	}
-
-	return false
-}
-
-function check_disband_victory() {
-	let york_v = check_campaign_victory_york()
-	let lancaster_v = check_campaign_victory_lancaster()
-
-	if (york_v && lancaster_v) {
-		goto_game_over("Draw", "The game ended in a draw.")
-		return true
-	} else if (york_v) {
-		goto_game_over(YORK, `${YORK} won a Campaign Victory!`)
-		return true
-	} else if (lancaster_v) {
-		goto_game_over(LANCASTER, `${LANCASTER} won a Campaign Victory!`)
-		return true
-	}
-
-	return false
-}
-
-// === 5.2 THRESHOLD VICTORY ===
-
-function check_threshold_victory() {
-	// This needs to change to account for graduated victory thresholds in some scenarios.
-
-	if (Math.abs(game.ip) > game.victory_check) {
-		if (game.ip > 0)
-			goto_game_over(LANCASTER, `${LANCASTER} won with ${game.ip} Influence.`)
-		else
-			goto_game_over(YORK, `${YORK} won with ${Math.abs(game.ip)} Influence.`)
-
-		return true
-	}
-
-	return false
-}
-
-// === 5.3 SCENARIO END VICTORY ===
-
-function check_scenario_end_victory() {
-	if (current_turn() === scenario_last_turn[game.scenario]) {
-		// Scenario End Victory
-
-		if (game.ip === 0)
-			goto_game_over("Draw", "The game ended in a draw.")
-		else if (game.ip > 0)
-			goto_game_over(LANCASTER, `${LANCASTER} won with ${game.ip} Influence.`)
-		else
-			goto_game_over(YORK, `${YORK} won with ${Math.abs(game.ip)} Influence.`)
-
-		return true
-	}
-	return false
-}
-
-// === 6.0 SCENARIOS ===
-
-exports.scenarios = [
-	"Ia. Henry VI",
-	"Ib. Towton",
-	"Ic. Somerset's Return",
-	"II. Warwicks' Rebellion",
-	"III. My Kingdom for a Horse",
-// TODO	"I-III. Wars of the Roses",
-]
-
-const scenario_last_turn = {
-	"Ia. Henry VI": 15,
-	"Ib. Towton": 2,
-	"Ic. Somerset's Return": 8,
-	"II. Warwicks' Rebellion": 15,
-	"III. My Kingdom for a Horse": 15,
-	"I-III. Wars of the Roses": 15,
-}
-
-function is_card_in_scenario(_c) {
-	// TODO: Cards setup
-	return true
-}
-
-function muster_lord_forces(lord) {
-	let info = data.lords[lord]
-	set_lord_forces(lord, RETINUE, info.forces.retinue | 0)
-	set_lord_forces(lord, MEN_AT_ARMS, info.forces.men_at_arms | 0)
-	set_lord_forces(lord, LONGBOWMEN, info.forces.longbowmen | 0)
-	set_lord_forces(lord, MILITIA, info.forces.militia | 0)
-}
-
-function muster_lord(lord, locale) {
-	let info = data.lords[lord]
-
-	set_lord_locale(lord, locale)
-
-	set_lord_assets(lord, PROV, info.assets.prov | 0)
-	set_lord_assets(lord, COIN, info.assets.coin | 0)
-
-	set_lord_assets(lord, CART, info.assets.cart | 0)
-	set_lord_assets(lord, SHIP, info.ships | 0)
-
-	muster_lord_forces(lord)
-}
-
-exports.setup = function (seed, scenario, options) {
-	game = {
-		seed,
-		scenario,
-		hidden: options.hidden ? 1 : 0,
-
-		log: [],
-		undo: [],
-
-		active: null,
-		rebel: null,
-		state: "setup_lords",
-		stack: [],
-		victory_check: 0,
-		influence: 0,
-
-		hand_y: [],
-		hand_l: [],
-		plan_y: [],
-		plan_l: [],
-
-		turn: 0,
-		events: [], // this levy/this campaign cards
-
-		pieces: {
-			// per lord data
-			locale: [],
-			assets: [],
-			forces: [],
-			routed: [],
-			capabilities: [], // TODO map card -> lord instead of lord+slot -> card
-			moved: [],
-			in_exile: 0,
-
-			// per vassal data
-			vassals: Array(vassal_count).fill(VASSAL_OUT_OF_PLAY),
-
-			// per locale data
-			depleted: [],
-			exhausted: [],
-			favourl: [],
-			favoury: [],
-		},
-
-		flags: {
-			first_action: 0,
-			first_march_highway: 0,
-			free_levy: 0,
-			free_parley_henry:0,
-			free_parley_gloucester:0,
-			burgundians:0,
-			bloody:0,
-			london_for_york:0,
-			surprise_landing:0,
-			sail_to_port: 0,
-			march_to_port: 0,
-			parliament_votes:0,
-			succession:0,
-			jack_cade:0,
-			commons_militia:0,
-			swap_battle_attacker:0,
-			supply_depot:0,
-			loyalty_and_trust:0,
-			warden_of_the_marches:0,
-			naval_blockade:0
-		},
-
-		command: NOBODY,
-		actions: 0,
-		group: 0,
-		intercept_group: 0,
-		who: NOBODY,
-		where: NOWHERE,
-		what: NOTHING,
-		which: NOTHING,
-		count: 0,
-		event_data: 0,
-
-		supply: 0,
-		march: 0,
-		battle: 0,
-		spoils: 0,
-		parley: 0,
-	}
-
-	log_h1(scenario)
-
-	switch (scenario) {
-		default:
-		case "Ia. Henry VI":
-			setup_Ia()
-			break
-		case "Ib. Towton":
-			setup_Ib()
-			break
-		case "Ic. Somerset's Return":
-			setup_Ic()
-			break
-		case "II. Warwicks' Rebellion":
-			setup_II()
-			break
-		case "III. My Kingdom for a Horse":
-			setup_III()
-			break
-		case "I-III. Wars of the Roses":
-			setup_ItoIII()
-			break
-	}
-
-	update_aliases()
-
-	goto_setup_lords()
-
-	return game
-}
-
-function setup_Ia() {
-	game.turn = 1 << 1
-
-	game.rebel = YORK
-	game.active = YORK
-	game.victory_check = 40
-	game.influence = 0
-	muster_lord(LORD_YORK, LOC_ELY)
-	muster_lord(LORD_MARCH, LOC_LUDLOW)
-	muster_lord(LORD_HENRY_VI, LOC_LONDON)
-	muster_lord(LORD_SOMERSET_1, LOC_LONDON)
-
-	set_lord_calendar(LORD_NORTHUMBERLAND_L, 2)
-	set_lord_calendar(LORD_EXETER_1, 3)
-	set_lord_calendar(LORD_BUCKINGHAM, 5)
-	set_lord_calendar(LORD_SALISBURY, 2)
-	set_lord_calendar(LORD_WARWICK_Y, 3)
-	set_lord_calendar(LORD_RUTLAND, 5)
-
-	add_favourl_marker(LOC_LONDON)
-	add_favourl_marker(LOC_WELLS)
-	add_favourl_marker(LOC_SCOTLAND)
-	add_favourl_marker(LOC_FRANCE)
-
-	add_favoury_marker(LOC_ELY)
-	add_favoury_marker(LOC_LUDLOW)
-	add_favoury_marker(LOC_BURGUNDY)
-	add_favoury_marker(LOC_IRELAND)
-
-	setup_vassals()
-}
-
-function setup_Ib() {
-	game.turn = 1 << 1
-
-	game.rebel = YORK
-	game.active = YORK
-	game.victory_check = 45
-	game.influence = 0
-	muster_lord(LORD_NORFOLK, LOC_LONDON)
-	muster_lord(LORD_WARWICK_Y, LOC_LONDON)
-	muster_lord(LORD_MARCH, LOC_LUDLOW)
-	muster_lord(LORD_EXETER_1, LOC_NEWCASTLE)
-	muster_lord(LORD_SOMERSET_1, LOC_NEWCASTLE)
-	muster_lord(LORD_NORTHUMBERLAND_L, LOC_CARLISLE)
-
-	add_favourl_marker(LOC_ST_ALBANS)
-	add_favourl_marker(LOC_SCARBOROUGH)
-	add_favourl_marker(LOC_NEWCASTLE)
-	add_favourl_marker(LOC_BAMBURGH)
-	add_favourl_marker(LOC_HEXHAM)
-	add_favourl_marker(LOC_APPLEBY)
-	add_favourl_marker(LOC_CARLISLE)
-	add_favourl_marker(LOC_SCOTLAND)
-	add_favourl_marker(LOC_FRANCE)
-
-	add_favoury_marker(LOC_LONDON)
-	add_favoury_marker(LOC_CALAIS)
-	add_favoury_marker(LOC_GLOUCESTER)
-	add_favoury_marker(LOC_HEREFORD)
-	add_favoury_marker(LOC_OXFORD)
-	add_favoury_marker(LOC_SALISBURY)
-	add_favoury_marker(LOC_WINCHESTER)
-	add_favoury_marker(LOC_GUILDFORD)
-	add_favoury_marker(LOC_ARUNDEL)
-	add_favoury_marker(LOC_HASTINGS)
-	add_favoury_marker(LOC_DOVER)
-	add_favoury_marker(LOC_ROCHESTER)
-	add_favoury_marker(LOC_CANTERBURY)
-	add_favoury_marker(LOC_SOUTHAMPTON)
-	add_favoury_marker(LOC_BURGUNDY)
-	add_favoury_marker(LOC_IRELAND)
-
-	setup_vassals([ VASSAL_FAUCONBERG, VASSAL_NORFOLK ])
-	muster_vassal(VASSAL_FAUCONBERG, LORD_MARCH)
-}
-
-function setup_Ic() {
-	game.turn = 5 << 1
-
-	game.rebel = YORK
-	game.active = YORK
-	game.victory_check = 40
-	game.influence = 6
-	muster_lord(LORD_WARWICK_Y, LOC_LONDON)
-	muster_lord(LORD_MARCH, LOC_LONDON)
-	muster_lord(LORD_SOMERSET_1, LOC_BAMBURGH)
-
-	set_lord_calendar(LORD_HENRY_VI, 5)
-
-	add_favourl_marker(LOC_SCARBOROUGH)
-	add_favourl_marker(LOC_NEWCASTLE)
-	add_favourl_marker(LOC_BAMBURGH)
-	add_favourl_marker(LOC_HEXHAM)
-	add_favourl_marker(LOC_APPLEBY)
-	add_favourl_marker(LOC_CARLISLE)
-	add_favourl_marker(LOC_HARLECH)
-	add_favourl_marker(LOC_PEMBROKE)
-	add_favourl_marker(LOC_CARDIFF)
-	add_favourl_marker(LOC_CHESTER)
-	add_favourl_marker(LOC_LANCASTER)
-	add_favourl_marker(LOC_SCOTLAND)
-	add_favourl_marker(LOC_FRANCE)
-
-	add_favoury_marker(LOC_LONDON)
-	add_favoury_marker(LOC_CALAIS)
-	add_favoury_marker(LOC_LUDLOW)
-	add_favoury_marker(LOC_HEREFORD)
-	add_favoury_marker(LOC_SALISBURY)
-	add_favoury_marker(LOC_WINCHESTER)
-	add_favoury_marker(LOC_GUILDFORD)
-	add_favoury_marker(LOC_ARUNDEL)
-	add_favoury_marker(LOC_HASTINGS)
-	add_favoury_marker(LOC_DOVER)
-	add_favoury_marker(LOC_ROCHESTER)
-	add_favoury_marker(LOC_CANTERBURY)
-	add_favoury_marker(LOC_SOUTHAMPTON)
-	add_favoury_marker(LOC_BURGUNDY)
-	add_favoury_marker(LOC_IRELAND)
-
-	setup_vassals()
-}
-
-function setup_II() {
-	game.turn = 1 << 1
-
-	game.rebel = LANCASTER
-	game.active = LANCASTER
-	game.victory_check = 40
-	game.influence = 0
-	muster_lord(LORD_EDWARD_IV, LOC_LONDON)
-	muster_lord(LORD_PEMBROKE, LOC_PEMBROKE)
-	muster_lord(LORD_WARWICK_L, LOC_CALAIS)
-	muster_lord(LORD_CLARENCE, LOC_YORK)
-	muster_lord(LORD_JASPER_TUDOR_1, LOC_HARLECH)
-
-	set_lord_calendar(LORD_DEVON, 1)
-	set_lord_calendar(LORD_GLOUCESTER_1, 9)
-	set_lord_calendar(LORD_NORTHUMBERLAND_Y1, 9)
-	set_lord_calendar(LORD_MARGARET, 9)
-	set_lord_in_exile(LORD_MARGARET)
-	set_lord_calendar(LORD_SOMERSET_2, 9)
-	set_lord_in_exile(LORD_SOMERSET_2)
-	set_lord_calendar(LORD_OXFORD, 9)
-	set_lord_in_exile(LORD_OXFORD)
-	set_lord_calendar(LORD_EXETER_2, 9)
-	set_lord_in_exile(LORD_EXETER_2)
-
-	add_favourl_marker(LOC_CALAIS)
-	add_favourl_marker(LOC_YORK)
-	add_favourl_marker(LOC_HARLECH)
-	add_favourl_marker(LOC_COVENTRY)
-	add_favourl_marker(LOC_WELLS)
-	add_favourl_marker(LOC_FRANCE)
-
-	add_favoury_marker(LOC_LONDON)
-	add_favoury_marker(LOC_ELY)
-	add_favoury_marker(LOC_LUDLOW)
-	add_favoury_marker(LOC_CARLISLE)
-	add_favoury_marker(LOC_PEMBROKE)
-	add_favoury_marker(LOC_EXETER)
-	add_favoury_marker(LOC_BURGUNDY)
-
-	setup_vassals([ VASSAL_DEVON, VASSAL_OXFORD ])
-
-	// TODO: Add Foreign Haven rule
-	// TODO: Add Skaky Allies rules
-}
-
-function setup_III() {
-	game.turn = 1 << 1
-
-	game.rebel = LANCASTER
-	game.active = LANCASTER
-	game.victory_check = 40
-	game.influence = 0
-	muster_lord(LORD_RICHARD_III, LOC_LONDON)
-	muster_lord(LORD_NORTHUMBERLAND_Y2, LOC_CARLISLE)
-	muster_lord(LORD_NORFOLK, LOC_ARUNDEL)
-	muster_lord(LORD_HENRY_TUDOR, LOC_FRANCE)
-	muster_lord(LORD_JASPER_TUDOR_2, LOC_FRANCE)
-	muster_lord(LORD_OXFORD, LOC_FRANCE)
-
-	add_favourl_marker(LOC_FRANCE)
-	add_favourl_marker(LOC_OXFORD)
-	add_favourl_marker(LOC_HARLECH)
-	add_favourl_marker(LOC_PEMBROKE)
-
-	add_favoury_marker(LOC_BURGUNDY)
-	add_favoury_marker(LOC_LONDON)
-	add_favoury_marker(LOC_CALAIS)
-	add_favoury_marker(LOC_CARLISLE)
-	add_favoury_marker(LOC_ARUNDEL)
-	add_favoury_marker(LOC_YORK)
-	add_favoury_marker(LOC_GLOUCESTER)
-
-	setup_vassals([ VASSAL_OXFORD, VASSAL_NORFOLK ])
-}
-
-function setup_ItoIII() {
-	game.turn = 1 << 1
-
-	game.rebel = YORK
-	game.active = YORK
-	game.victory_check = 45
-	game.influence = 0
-	muster_lord(LORD_YORK, LOC_ELY)
-	muster_lord(LORD_MARCH, LOC_LUDLOW)
-	muster_lord(LORD_HENRY_VI, LOC_LONDON)
-	muster_lord(LORD_SOMERSET_1, LOC_WELLS)
-
-	set_lord_calendar(LORD_NORTHUMBERLAND_L, 1)
-	set_lord_calendar(LORD_EXETER_1, 3)
-	set_lord_calendar(LORD_BUCKINGHAM, 5)
-	set_lord_calendar(LORD_SALISBURY, 2)
-	set_lord_calendar(LORD_WARWICK_Y, 3)
-	set_lord_calendar(LORD_RUTLAND, 5)
-
-	add_favourl_marker(LOC_LONDON)
-	add_favourl_marker(LOC_WELLS)
-	add_favourl_marker(LOC_SCOTLAND)
-	add_favourl_marker(LOC_FRANCE)
-
-	add_favoury_marker(LOC_ELY)
-	add_favoury_marker(LOC_LUDLOW)
-	add_favoury_marker(LOC_BURGUNDY)
-	add_favoury_marker(LOC_IRELAND)
-
-	setup_vassals()
-}
-
-// === 6.0 CAMPAIGN ===
-/*
-
-function should_remove_Y28_event_card() {
-	return game.scenario !== "I-III. Wars of the Roses"
-}
-
-function has_Y28_happened() {
-	//TODO: Scenario IIY and IIL when Y28 happens.
-	return false
-}
-
-function add_card_scenario(c) {
-	// TODO: Add card in scenario
-}
-
-function remove_card_scenario(c) {
-	//TODO: Remove card in scenario
-}
-
-function setup_II_Y() {
-	game.turn = 1 << 1
-	game.scenario = "IIY. The Kingmaker"
-	game.rebel = LANCASTER
-	game.active = LANCASTER
-	game.victory_check = 45
-	game.influence = 0
-
-	for (let lord = first_lord; lord <= last_lord; lord++) {
-		if (is_lord_in_play(lord)) {
-			disband_lord(lord, false)
-		}
-	}
-	for (let loc = first_locale; loc <= last_locale; loc++) {
-		remove_exhausted_marker(loc)
-		remove_depleted_marker(loc)
-		remove_favourl_marker(loc)
-		remove_favoury_marker(loc)
-	}
-	discard_events("this_levy")
-	discard_events("hold")
-	discard_events("this_campaign")
-
-	// Setup
-	// Yorkist setup
-	// TODO: Add cards Y1-Y13, Y25, Y26, Y27, Y29, Y30
-
-	if (is_lord_in_play(LORD_RUTLAND) && main_york_heir !== LORD_RUTLAND) {
-		muster_lord(LORD_RUTLAND, LOC_CANTERBURY)
-		add_favoury_marker(LOC_CANTERBURY)
-	}
-
-	set_lord_calendar(LORD_DEVON, 1)
-	set_lord_calendar(LORD_GLOUCESTER_1, 9)
-	set_lord_calendar(LORD_NORTHUMBERLAND_Y1, 9)
-
-	if (main_york_heir === LORD_YORK) {
-		muster_lord(LORD_YORK, LOC_CANTERBURY)
-		add_favoury_marker(LOC_LONDON)
-		if (is_lord_in_play(LORD_MARCH)) {
-			muster_lord(LORD_MARCH, LOC_LUDLOW)
-		}
-		// TODO: Add cards Y14, Y18, Y19, Y20
-	}
-
-	if (main_york_heir === LORD_MARCH) {
-		muster_lord(LORD_EDWARD_IV, LOC_LONDON)
-		// Removed because he can't appear in scenario III
-		disband_lord(LORD_MARCH, true)
-		// TODO: Add cards Y23, Y24, Y28, Y31
-	}
-
-	if (main_york_heir === LORD_RUTLAND) {
-		muster_lord(LORD_RUTLAND, LOC_LONDON)
-		// TODO: Add cards Y20, Y21, Y28, Y35
-	}
-
-	// If < 2 heirs, muster Pembroke
-	if ((main_york_heir === LORD_RUTLAND || main_york_heir === LORD_GLOUCESTER_1)
-	|| (main_york_heir === LORD_EDWARD_IV && !is_lord_in_play(LORD_RUTLAND))) {
-		muster_lord(LORD_PEMBROKE, LOC_PEMBROKE)
-	}
-
-	// Lancaster setup
-	// TODO: Add cards L1-L3, L5-L13, L23, L24, L25, L29, L30, L36
-
-	if (main_lancaster_heir === LORD_HENRY_VI) {
-		set_lord_calendar(LORD_HENRY_VI, 9)
-		set_lord_in_exile(LORD_HENRY_VI)
-		// TODO: Add L17, L18, L20, L21
-	}
-	if (main_lancaster_heir === LORD_MARGARET) {
-		set_lord_calendar(LORD_MARGARET, 9)
-		set_lord_in_exile(LORD_MARGARET)
-
-		// TODO: Add L27, L28, L31 + L26 Special rule
-	}
-	if (main_lancaster_heir === LORD_SOMERSET_1 || main_lancaster_heir === LORD_SOMERSET_2) {
-		// TODO: Add cards L20, L21, L27
-	}
-
-	if (is_lord_in_play(LORD_SOMERSET_1)) {
-		set_lord_calendar(LORD_SOMERSET_1, 9)
-		set_lord_in_exile(LORD_SOMERSET_1)
-	}
-	else if (is_lord_in_play(LORD_SOMERSET_2)) {
-		set_lord_calendar(LORD_SOMERSET_2, 9)
-		set_lord_in_exile(LORD_SOMERSET_2)
-	}
-
-	muster_lord(LORD_WARWICK_L, LOC_CALAIS)
-	muster_lord(LORD_CLARENCE, LOC_YORK)
-	muster_lord(LORD_JASPER_TUDOR_1, LOC_HARLECH)
-	set_lord_calendar(LORD_OXFORD, 9)
-	set_lord_in_exile(LORD_OXFORD)
-	set_lord_calendar(LORD_EXETER_2, 9)
-	set_lord_in_exile(LORD_EXETER_2)
-
-	add_favourl_marker(LOC_CALAIS)
-	add_favourl_marker(LOC_YORK)
-	add_favourl_marker(LOC_HARLECH)
-	add_favourl_marker(LOC_COVENTRY)
-	add_favourl_marker(LOC_WELLS)
-
-	add_favoury_marker(LOC_LONDON)
-	add_favoury_marker(LOC_ELY)
-	add_favoury_marker(LOC_LUDLOW)
-	add_favoury_marker(LOC_CARLISLE)
-	add_favoury_marker(LOC_PEMBROKE)
-	add_favoury_marker(LOC_EXETER)
-
-	// Exile box setup
-	add_favourl_marker(LOC_FRANCE)
-	add_favoury_marker(LOC_BURGUNDY)
-
-	setup_vassals([ VASSAL_DEVON, VASSAL_OXFORD ])
-
-	// TODO: Add Foreign Haven rule
-	// TODO: Add Skaky Allies rules
-	// TODO: Natural causes rule
-
-}
-
-function setup_II_L() {
-	game.turn = 1 << 1
-	game.scenario = "IIL. Lancastrian Legitimacy Fades"
-	game.rebel = YORK
-	game.active = YORK
-	game.victory_check = 40
-	game.influence = 0
-
-	for (let lord = first_lord; lord <= last_lord; lord++) {
-		if (is_lord_in_play(lord)) {
-			disband_lord(lord, false)
-		}
-	}
-	for (let loc = first_locale; loc <= last_locale; loc++) {
-		remove_exhausted_marker(loc)
-		remove_depleted_marker(loc)
-		remove_favourl_marker(loc)
-		remove_favoury_marker(loc)
-	}
-	discard_events("this_levy")
-	discard_events("hold")
-	discard_events("this_campaign")
-
-	// Setup
-	// Lancaster setup
-	// TODO: Add cards L1-L3, L5-L13, L18, L19, L20, L21, L25, L29, L34
-
-	if (main_lancaster_heir === LORD_HENRY_VI) {
-		muster_lord(LORD_HENRY_VI, LOC_LONDON)
-		// TODO: Add L15, L17
-		if (is_lord_in_play(LORD_SOMERSET_1)) {
-			muster_lord(LORD_SOMERSET_1, LOC_WELLS)
-		}
-		if (is_lord_in_play(LORD_SOMERSET_2)) {
-			muster_lord(LORD_SOMERSET_2, LOC_WELLS)
-		}
-	}
-
-	if (main_lancaster_heir === LORD_MARGARET) {
-		set_lord_calendar(LORD_MARGARET, 1)
-		// TODO: Add L27, L31 + L26 Special rule
-		if (is_lord_in_play(LORD_SOMERSET_1)) {
-			muster_lord(LORD_SOMERSET_1, LOC_WELLS)
-		}
-		if (is_lord_in_play(LORD_SOMERSET_2)) {
-			muster_lord(LORD_SOMERSET_2, LOC_WELLS)
-		}
-	}
-	if (main_lancaster_heir === LORD_SOMERSET_1 || main_lancaster_heir === LORD_SOMERSET_2) {
-		// TODO: Add cards L16, L27
-		muster_lord(LORD_SOMERSET_1, LOC_LONDON)
-		if (main_lancaster_heir === LORD_SOMERSET_2) {
-			// Somerset 2 cylinder replaced by Somerset 1 cylinder
-			disband_lord(LORD_SOMERSET_2, true)
-		}
-	}
-
-	// Yorkist setup
-	// TODO: Add cards Y1-Y13, Y15, Y16, Y17, Y22, Y28, Y29, Y31, Y34
-
-	if (main_york_heir === LORD_YORK) {
-		set_lord_calendar(LORD_YORK, 7)
-		set_lord_in_exile(LORD_YORK)
-		// TODO: Add cards Y14, Y20
-	}
-
-	if (main_york_heir === LORD_MARCH) {
-		set_lord_calendar(LORD_MARCH, 7)
-		set_lord_in_exile(LORD_MARCH)
-		// TODO: Add cards Y20, 21
-	}
-
-	if (main_york_heir === LORD_RUTLAND) {
-		set_lord_calendar(LORD_MARCH, 7)
-		// TODO: Add cards Y20, Y21
-	}
-
-	if (main_york_heir === LORD_GLOUCESTER_1) {
-		// TODO: Add cards Y25, Y30
-	}
-
-	if (is_lord_in_play(LORD_MARCH) && main_york_heir !== LORD_MARCH) {
-		set_lord_calendar(LORD_MARCH, 7)
-		set_lord_in_exile(LORD_MARCH)
-	}
-
-	if (is_lord_in_play(LORD_RUTLAND) && main_york_heir !== LORD_RUTLAND) {
-		set_lord_calendar(LORD_RUTLAND, 7)
-		set_lord_in_exile(LORD_RUTLAND)
-	}
-	if (is_lord_in_play(LORD_GLOUCESTER_1) && main_york_heir !== LORD_GLOUCESTER_1) {
-		set_lord_calendar(LORD_GLOUCESTER_1, 7)
-		set_lord_in_exile(LORD_GLOUCESTER_1)
-	}
-
-	muster_lord(LORD_WARWICK_Y, LOC_CALAIS)
-	muster_lord(LORD_SALISBURY, LOC_YORK)
-	muster_lord(LORD_PEMBROKE, LOC_PEMBROKE)
-	muster_lord(LORD_JASPER_TUDOR_1, LOC_HARLECH)
-	set_lord_calendar(LORD_DEVON, 1)
-	set_lord_calendar(LORD_OXFORD, 2)
-	set_lord_calendar(LORD_EXETER_2, 2)
-	set_lord_calendar(LORD_NORTHUMBERLAND_L, 8)
-
-	add_favourl_marker(LOC_LONDON)
-	add_favourl_marker(LOC_HARLECH)
-	add_favourl_marker(LOC_OXFORD)
-	add_favourl_marker(LOC_WELLS)
-	add_favourl_marker(LOC_EXETER)
-	add_favourl_marker(LOC_CARLISLE)
-
-	add_favoury_marker(LOC_CALAIS)
-	add_favoury_marker(LOC_YORK)
-	add_favoury_marker(LOC_ELY)
-	add_favoury_marker(LOC_LUDLOW)
-	add_favoury_marker(LOC_PEMBROKE)
-
-	// Exile box setup
-	add_favourl_marker(LOC_FRANCE)
-	add_favoury_marker(LOC_BURGUNDY)
-
-	setup_vassals([ VASSAL_DEVON, VASSAL_OXFORD ])
-
-	// TODO: Add Foreign Haven rule
-	// TODO: Add Shaky Allies rules
-	// TODO: Natural causes rule
-
-}
-
-function setup_III_Y() {
-	game.turn = 1 << 1
-	game.scenario = "IIIY. New Rivals"
-	game.rebel = LANCASTER
-	game.active = LANCASTER
-	game.victory_check = 45
-	game.influence = 0
-
-	if (!is_lord_in_play(LORD_YORK)) {
-		game.influence += 8
-	}
-	if (!is_lord_in_play(LORD_MARCH) && !is_lord_in_play(LORD_EDWARD_IV)) {
-		game.influence += 8
-	}
-	if (!is_lord_in_play(LORD_RUTLAND)) {
-		game.influence += 8
-	}
-	if (!is_lord_in_play(LORD_GLOUCESTER_1) && !is_lord_in_play(LORD_GLOUCESTER_2) && !is_lord_in_play(LORD_RICHARD_III)) {
-		game.influence += 8
-	}
-	if (!is_lord_in_play(LORD_HENRY_VI)) {
-		game.influence -= 8
-	}
-	if (!is_lord_in_play(LORD_HENRY_VI) && !is_lord_in_play(LORD_MARGARET)) {
-		game.influence -= 8
-	}
-	if (!is_lord_in_play(LORD_SOMERSET_1)) {
-		game.influence -= 8
-	}
-	if (!is_lord_in_play(LORD_SOMERSET_1) && !is_lord_in_play(LORD_SOMERSET_2)) {
-		game.influence -= 8
-	}
-
-	for (let lord = first_lord; lord <= last_lord; lord++) {
-		if (is_lord_in_play(lord)) {
-			disband_lord(lord, false)
-		}
-	}
-	for (let loc = first_locale; loc <= last_locale; loc++) {
-		remove_exhausted_marker(loc)
-		remove_depleted_marker(loc)
-		remove_favourl_marker(loc)
-		remove_favoury_marker(loc)
-	}
-	discard_events("this_levy")
-	discard_events("hold")
-	discard_events("this_campaign")
-
-	// Yorkist Setup
-	// TODO: Add Y1-Y13, Y36
-
-	if (has_Y28_happened()) {
-		if (is_lord_in_play(LORD_RUTLAND) && (is_lord_in_play(LORD_GLOUCESTER_1) || is_lord_in_play(LORD_GLOUCESTER_2) || is_lord_in_play(LORD_RICHARD_III))) {
-			// If Gloucester (any) and Rutland, Rutland dies
-			disband_lord(LORD_RUTLAND, true)
-		}
-	}
-
-	if (main_york_heir === LORD_RUTLAND && (!is_lord_in_play(LORD_GLOUCESTER_1) && !is_lord_in_play(LORD_GLOUCESTER_2))) {
-		// If Rutland is lone heir, Rutland dies
-		disband_lord(LORD_RUTLAND, true)
-		//Warwick becomes king
-		muster_lord(LORD_WARWICK_Y, LOC_LONDON)
-		add_favoury_marker(LOC_LONDON)
-		muster_lord(LORD_SALISBURY, LOC_YORK)
-		add_favoury_marker(LOC_YORK)
-
-		// TODO: Add Y16, Y17, Y22
-	}
-
-	// If only 1 is alive
-	if (main_york_heir === LORD_YORK && !is_lord_in_play(LORD_MARCH) && !is_lord_in_play(LORD_RUTLAND) && !is_lord_in_play(LORD_GLOUCESTER_1)) {
-		muster_lord(LORD_NORTHUMBERLAND_Y2, LOC_CARLISLE)
-		add_favoury_marker(LOC_CARLISLE)
-
-		// TODO: Add Y37
-	}
-	if ((main_york_heir === LORD_MARCH || main_york_heir === LORD_EDWARD_IV) && !is_lord_in_play(LORD_RUTLAND) && !is_lord_in_play(LORD_GLOUCESTER_1)) {
-		muster_lord(LORD_NORTHUMBERLAND_Y2, LOC_CARLISLE)
-		add_favoury_marker(LOC_CARLISLE)
-		// TODO: Add Y37
-	}
-	if (main_york_heir === LORD_GLOUCESTER_1 || main_york_heir === LORD_RICHARD_III) {
-		muster_lord(LORD_NORTHUMBERLAND_Y2, LOC_CARLISLE)
-		add_favoury_marker(LOC_CARLISLE)
-		// TODO: Add Y37
-	}
-	muster_lord(LORD_NORFOLK, LOC_ARUNDEL)
-	add_favoury_marker(LOC_ARUNDEL)
-
-	if (main_york_heir === LORD_YORK) {
-		// TODO: Add Y14, Y21
-		if (is_lord_in_play(LORD_MARCH)) {
-			muster_lord(LORD_MARCH, LOC_LUDLOW)
-			add_favoury_marker(LOC_LUDLOW)
-			// Add Y20
-			// Only 2 heirs can stay
-			disband_lord(LORD_RUTLAND, true)
-			disband_lord(LORD_GLOUCESTER_1, true)
-		}
-		if (!is_lord_in_play(LORD_MARCH) && is_lord_in_play(LORD_RUTLAND)) {
-			muster_lord(LORD_RUTLAND, LOC_CANTERBURY)
-			add_favoury_marker(LOC_CANTERBURY)
-			// TODO: Add Y20
-		}
-		if (is_lord_in_play(LORD_GLOUCESTER_1)) {
-			muster_lord(LORD_GLOUCESTER_1, LOC_GLOUCESTER)
-			add_favoury_marker(LOC_GLOUCESTER)
-			// TODO: Y34
-		}
-	}
-	if (main_york_heir === LORD_MARCH || main_york_heir === LORD_EDWARD_IV) {
-		muster_lord(LORD_EDWARD_IV, LOC_LONDON)
-		add_favoury_marker(LOC_LONDON)
-
-		// If Edward IV is on the map, remove March
-		disband_lord(LORD_MARCH, true)
-		// TODO: Add Y23, Y24
-		if (is_lord_in_play(LORD_RUTLAND)) {
-			muster_lord(LORD_RUTLAND, LOC_CANTERBURY)
-			add_favoury_marker(LOC_CANTERBURY)
-			// TODO: Add Y31
-		}
-		if (is_lord_in_play(LORD_GLOUCESTER_1)) {
-			muster_lord(LORD_GLOUCESTER_1, LOC_GLOUCESTER)
-			add_favoury_marker(LOC_GLOUCESTER)
-			// TODO: Add Y28, Y34
-		}
-
-	}
-	if (main_york_heir === LORD_RUTLAND) {
-		muster_lord(LORD_RUTLAND, LOC_LONDON)
-		add_favoury_marker(LOC_LONDON)
-		// TODO: Add Y20, Y21
-		if (is_lord_in_play(LORD_GLOUCESTER_1)) {
-			muster_lord(LORD_GLOUCESTER_2, LOC_LONDON)
-			// If Rutland is King, golden gloucester 2 arrives and gloucester 1 is gone
-			disband_lord(LORD_GLOUCESTER_1, true)
-			// TODO: Add Y34
-		}
-	}
-	if (main_york_heir === LORD_GLOUCESTER_1) {
-		muster_lord(LORD_RICHARD_III, LOC_LONDON)
-		add_favoury_marker(LOC_LONDON)
-		// if Richard III is here, both gloucester are gone
-		disband_lord(LORD_GLOUCESTER_1, true)
-		disband_lord(LORD_GLOUCESTER_2, true)
-		// TODO: Add Y32, Y33
-	}
-
-	// Lancaster setup
-	// TODO: Add L1-L13, L34, L35, L36, L37
-
-	if (main_lancaster_heir === LORD_HENRY_VI || main_lancaster_heir === LORD_MARGARET) {
-		muster_lord(LORD_MARGARET, LOC_FRANCE)
-		// TODO: Add L27, L31 + L26 Edward
-		// Only one heir
-		disband_lord(LORD_HENRY_VI, true)
-		disband_lord(LORD_SOMERSET_1, true)
-		disband_lord(LORD_SOMERSET_2, true)
-	}
-	// If Margaret not here and Edward IV not king
-	if (!is_lord_on_map(LORD_MARGARET) && main_york_heir !== LORD_EDWARD_IV) {
-		muster_lord(LORD_HENRY_TUDOR, LOC_FRANCE)
-		// TODO: Add L32, L35
-		disband_lord(LORD_SOMERSET_1, true)
-		disband_lord(LORD_SOMERSET_2, true)
-	}
-	if (!is_lord_on_map(LORD_MARGARET) && !is_lord_on_map(LORD_HENRY_TUDOR)) {
-		muster_lord(LORD_WARWICK_L, LOC_CALAIS)
-		add_favourl_marker(LOC_CALAIS)
-		// TODO: Add L23, L30
-	}
-
-	if (is_lord_on_map(LORD_MARGARET) || is_lord_on_map(LORD_HENRY_TUDOR)) {
-		muster_lord(LORD_OXFORD, LOC_FRANCE)
-		add_favourl_marker(LOC_OXFORD)
-		muster_lord(LORD_JASPER_TUDOR_2, LOC_FRANCE)
-		add_favoury_marker(LOC_PEMBROKE)
-	}
-	else if (is_lord_on_map(LORD_WARWICK_L)) {
-		muster_lord(LORD_OXFORD, LOC_CALAIS)
-		add_favourl_marker(LOC_OXFORD)
-		muster_lord(LORD_JASPER_TUDOR_2, LOC_CALAIS)
-		add_favoury_marker(LOC_PEMBROKE)
-	}
-	else {
-		throw Error("Error Lancastrian setup III.Y")
-	}
-
-	// Exile box setup
-	add_favourl_marker(LOC_FRANCE)
-	add_favoury_marker(LOC_BURGUNDY)
-
-	setup_vassals([ VASSAL_OXFORD, VASSAL_NORFOLK ])
-}
-
-function setup_III_L() {
-	game.turn = 1 << 1
-	game.scenario = "IIIL. Yorkists Last Stand"
-	game.rebel = YORK
-	game.active = YORK
-	game.victory_check = 45
-	game.influence = 0
-
-	if (!is_lord_in_play(LORD_YORK)) {
-		game.influence += 8
-	}
-	if (!is_lord_in_play(LORD_MARCH) && !is_lord_in_play(LORD_EDWARD_IV)) {
-		game.influence += 8
-	}
-	if (!is_lord_in_play(LORD_RUTLAND)) {
-		game.influence += 8
-	}
-	if (!is_lord_in_play(LORD_GLOUCESTER_1) && !is_lord_in_play(LORD_GLOUCESTER_2) && !is_lord_in_play(LORD_RICHARD_III)) {
-		game.influence += 8
-	}
-	if (!is_lord_in_play(LORD_HENRY_VI)) {
-		game.influence -= 8
-	}
-	if (!is_lord_in_play(LORD_HENRY_VI) && !is_lord_in_play(LORD_MARGARET)) {
-		game.influence -= 8
-	}
-	if (!is_lord_in_play(LORD_SOMERSET_1)) {
-		game.influence -= 8
-	}
-	if (!is_lord_in_play(LORD_SOMERSET_1) && !is_lord_in_play(LORD_SOMERSET_2)) {
-		game.influence -= 8
-	}
-
-	for (let lord = first_lord; lord <= last_lord; lord++) {
-		if (is_lord_in_play(lord)) {
-			disband_lord(lord, false)
-		}
-	}
-	for (let loc = first_locale; loc <= last_locale; loc++) {
-		remove_exhausted_marker(loc)
-		remove_depleted_marker(loc)
-		remove_favourl_marker(loc)
-		remove_favoury_marker(loc)
-	}
-	discard_events("this_levy")
-	discard_events("hold")
-	discard_events("this_campaign")
-
-	// Lancaster Setup
-	// TODO: Add L1-L13, L25, L34, L36
-
-	if (main_lancaster_heir === LORD_HENRY_VI) {
-		muster_lord(LORD_HENRY_VI, LOC_LONDON)
-		// TOOD: Add L15, L17
-	}
-	if (main_lancaster_heir === LORD_MARGARET) {
-		muster_lord(LORD_MARGARET, LOC_LONDON)
-		// TODO: Add L27, L31
-	}
-	if (main_lancaster_heir === LORD_SOMERSET_1) {
-		muster_lord(LORD_SOMERSET_1, LOC_LONDON)
-		add_favourl_marker(LOC_WELLS)
-		// TODO: Add L18, L20, L27
-	}
-	// Should never happen but as a failsafe
-	if (main_lancaster_heir === LORD_SOMERSET_2) {
-		muster_lord(LORD_SOMERSET_1, LOC_LONDON)
-		add_favourl_marker(LOC_WELLS)
-		disband_lord(LORD_SOMERSET_2, true)
-		// TODO: Add L18, L20, L27
-	}
-	muster_lord(LORD_OXFORD, LOC_OXFORD)
-	muster_lord(LORD_JASPER_TUDOR_2, LOC_PEMBROKE)
-	add_favourl_marker(LOC_OXFORD)
-	add_favourl_marker(LOC_PEMBROKE)
-	add_favourl_marker(LOC_LONDON)
-
-	// York Setup
-	// TOOD: Add Y1-Y13, Y36
-
-	if (has_Y28_happened()) {
-		if (is_lord_in_play(LORD_GLOUCESTER_1) || is_lord_in_play(LORD_GLOUCESTER_2) || is_lord_in_play(LORD_RICHARD_III)) {
-			// If Gloucester (any), all other yorkist heir dies
-			disband_lord(LORD_YORK, true)
-			disband_lord(LORD_RUTLAND, true)
-			disband_lord(LORD_MARCH, true)
-			disband_lord(LORD_EDWARD_IV, true)
-			disband_lord(LORD_GLOUCESTER_1, true)
-			disband_lord(LORD_RICHARD_III, true)
-			muster_lord(LORD_GLOUCESTER_2, LOC_BURGUNDY)
-			// TODO: Add Y35
-		}
-	}
-
-	if (main_york_heir === LORD_YORK) {
-		muster_lord(LORD_YORK, LOC_BURGUNDY)
-		add_favoury_marker(LOC_ELY)
-		// TODO: Add Y14, Y18
-		if (is_lord_in_play(LORD_MARCH)) {
-			// Only next highest heir alive
-			disband_lord(LORD_RUTLAND, true)
-			disband_lord(LORD_GLOUCESTER_1, true)
-			disband_lord(LORD_GLOUCESTER_2, true)
-			muster_lord(LORD_MARCH, LOC_BURGUNDY)
-			add_favoury_marker(LOC_LUDLOW)
-			//TODO: Add Y20
-		}
-		else if (!is_lord_in_play(LORD_MARCH) && is_lord_in_play(LORD_RUTLAND)) {
-			// Only next highest heir alive
-			disband_lord(LORD_GLOUCESTER_1, true)
-			disband_lord(LORD_GLOUCESTER_2, true)
-			muster_lord(LORD_RUTLAND, LOC_BURGUNDY)
-			add_favoury_marker(LOC_CANTERBURY)
-			//TODO: Add Y20
-		}
-		else if (!is_lord_in_play(LORD_MARCH) && !is_lord_in_play(LORD_RUTLAND) && (is_lord_in_play(LORD_GLOUCESTER_1) || is_lord_in_play(LORD_GLOUCESTER_2))) {
-			// Final Scenario, and no succession rule
-			disband_lord(LORD_GLOUCESTER_2, true)
-			muster_lord(LORD_GLOUCESTER_1, LOC_BURGUNDY)
-			add_favoury_marker(LOC_GLOUCESTER)
-			// TODO: Add Y4
-		}
-		else {
-			// If York alone
-			muster_lord(LORD_SALISBURY, LOC_BURGUNDY)
-			add_favoury_marker(LOC_YORK)
-			//TODO: Add Y17, Y22
-		}
-	}
-	if (main_york_heir === LORD_MARCH || main_york_heir === LORD_RUTLAND) {
-		// If March or Rutland is highest heir, Warwick takes the lead
-		disband_lord(LORD_MARCH, true)
-		disband_lord(LORD_RUTLAND, true)
-		muster_lord(LORD_WARWICK_Y, LOC_CALAIS)
-		add_favoury_marker(LOC_CALAIS)
-		//TODO: Add Y16
-	}
-
-	if (main_york_heir === LORD_WARWICK_Y) {
-		muster_lord(LORD_NORFOLK, LOC_CALAIS)
-		muster_lord(LORD_SALISBURY, LOC_CALAIS)
-		add_favoury_marker(LOC_CALAIS)
-		//TODO: Add Y17, Y22
-	}
-	else (
-		muster_lord(LORD_NORFOLK, LOC_BURGUNDY)
-	)
-
-	if (main_york_heir === LORD_GLOUCESTER_1) {
-		disband_lord(LORD_GLOUCESTER_1, true)
-		muster_lord(LORD_GLOUCESTER_2, LOC_BURGUNDY)
-		muster_lord(LORD_SALISBURY, LOC_BURGUNDY)
-		//TODO: Add Y17, Y22
-	}
-
-	add_favoury_marker(LOC_ARUNDEL)
-
-	// Exile box setup
-	add_favourl_marker(LOC_FRANCE)
-	add_favoury_marker(LOC_BURGUNDY)
-
-	setup_vassals([ VASSAL_OXFORD, VASSAL_NORFOLK ])
-}
-
-// FULL SCENARIO HEIR
-function get_main_york_heir() {
-	if (is_lord_in_play(LORD_YORK))
-		return LORD_YORK
-	if (!is_lord_in_play(LORD_YORK) && is_lord_in_play(LORD_MARCH))
-		return LORD_MARCH
-	if (!is_lord_in_play(LORD_YORK) && !is_lord_in_play(LORD_MARCH) && is_lord_in_play(LORD_EDWARD_IV))
-		return LORD_EDWARD_IV
-	if (!is_lord_in_play(LORD_YORK) && !is_lord_in_play(LORD_MARCH) && !is_lord_in_play(LORD_EDWARD_IV) && is_lord_in_play(LORD_RUTLAND))
-		return LORD_RUTLAND
-	if (!is_lord_in_play(LORD_YORK) && !is_lord_in_play(LORD_MARCH) && !is_lord_in_play(LORD_EDWARD_IV) && !is_lord_in_play(LORD_RUTLAND) && (is_lord_in_play(LORD_GLOUCESTER_1) || is_lord_in_play(LORD_GLOUCESTER_2) || is_lord_in_play(LORD_RICHARD_III)))
-		return LORD_GLOUCESTER_1
-	if (!is_lord_in_play(LORD_YORK) && !is_lord_in_play(LORD_MARCH) && !is_lord_in_play(LORD_EDWARD_IV) && !is_lord_in_play(LORD_RUTLAND) && !is_lord_in_play(LORD_GLOUCESTER_1) && !is_lord_in_play(LORD_GLOUCESTER_2) && !is_lord_in_play(LORD_RICHARD_III))
-		return LORD_WARWICK_Y
-}
-
-function get_main_lancaster_heir() {
-	if (is_lord_in_play(LORD_HENRY_VI))
-		return LORD_HENRY_VI
-	if (!is_lord_in_play(LORD_HENRY_VI) && is_lord_in_play(LORD_MARGARET))
-		return LORD_MARGARET
-	if (!is_lord_in_play(LORD_HENRY_VI) && !is_lord_in_play(LORD_MARGARET) && is_lord_in_play(LORD_SOMERSET_1))
-		return LORD_SOMERSET_1
-	if (!is_lord_in_play(LORD_HENRY_VI) && !is_lord_in_play(LORD_MARGARET) && !is_lord_in_play(LORD_SOMERSET_1) && is_lord_in_play(LORD_SOMERSET_2))
-		return LORD_SOMERSET_2
-	if (!is_lord_in_play(LORD_HENRY_VI) && !is_lord_in_play(LORD_MARGARET) && !is_lord_in_play(LORD_SOMERSET_1) && !is_lord_in_play(LORD_SOMERSET_2) && is_lord_in_play(LORD_HENRY_TUDOR))
-		return LORD_HENRY_TUDOR
-	if (!is_lord_in_play(LORD_HENRY_VI) && !is_lord_in_play(LORD_MARGARET) && !is_lord_in_play(LORD_SOMERSET_1) && !is_lord_in_play(LORD_SOMERSET_2) && !is_lord_in_play(LORD_HENRY_TUDOR) && is_lord_in_play(LORD_WARWICK_L))
-		return LORD_WARWICK_L
-}
-
-*/
-
-// === CAPABILITY: MUSTER EFFECTS ===
-
-// When a lord levies a capability, its muster vassal applies instantly.
-function capability_muster_effects(lord, c) {
-	if (c === AOW_LANCASTER_MONTAGU)
-		muster_vassal(VASSAL_MONTAGU, lord)
-
-	if (c === AOW_LANCASTER_MY_FATHERS_BLOOD)
-		muster_vassal(VASSAL_CLIFFORD, lord)
-
-	if (c === AOW_LANCASTER_ANDREW_TROLLOPE)
-		muster_vassal(VASSAL_TROLLOPE, lord)
-
-	if (c === AOW_LANCASTER_EDWARD)
-		muster_vassal(VASSAL_EDWARD, lord)
-
-	if (c === AOW_LANCASTER_THOMAS_STANLEY) {
-		muster_vassal(VASSAL_THOMAS_STANLEY, lord)
-		game.flags.free_levy = 1
-	}
-
-	if (c === AOW_YORK_HASTINGS) {
-		add_lord_forces(lord, MEN_AT_ARMS, 2)
-		muster_vassal(VASSAL_HASTINGS, lord)
-	}
-
-	if (c === AOW_YORK_FAIR_ARBITER && is_friendly_locale(get_lord_locale(LORD_SALISBURY))) {
-		game.count += 1
-	}
-	if (c === AOW_YORK_FALLEN_BROTHER && !is_lord_in_play(LORD_CLARENCE)) {
-		game.count += 1
-	}
-
-	if (c === AOW_YORK_BURGUNDIANS) {
-		if (is_seaport(get_lord_locale(lord) && !is_exile(get_lord_locale(lord)))) {
-			add_lord_forces(lord, BURGUNDIANS, 2)
-			logi(AOW_YORK_BURGUNDIANS)
-			game.flags.burgundians = 1
-		}
-		else {
-			game.flags.burgundians = 0
-		}
-	}
-}
-
-// === CAPABILITY: LORDSHIP EFFECTS ===
-
-// When a lord levies a capability, its +Lordship effects apply instantly.
-function lordship_effects(lord) {
-	if (is_friendly_locale(get_lord_locale(lord)) && lord_has_capability(lord, AOW_YORK_FAIR_ARBITER))
-		game.count += 1
-	if (lord_has_capability(lord, AOW_YORK_FALLEN_BROTHER) && !is_lord_in_play(LORD_CLARENCE))
-		game.count += 1
-	if (is_event_in_play(EVENT_YORK_EDWARD_V) && (lord === LORD_GLOUCESTER_1 || lord === LORD_GLOUCESTER_2))
-		game.count += 3
-	if (is_lancaster_lord(lord) && is_event_in_play(EVENT_LANCASTER_PARLIAMENT_VOTES)) {
-		game.flags.parliament_votes = 1
-	}
-	if (is_york_lord(lord) && is_jack_cade_eligible(lord)) {
-		game.flags.jack_cade = 2
-	}
-	if (is_york_lord(lord) && is_event_in_play(EVENT_YORK_SUCCESSION)) {
-		game.flags.succession = 1
-	}
-}
-
-// === CAPABILITY: SOLDIERS OF FORTUNE ===
-
-states.soldiers_of_fortune = {
-	inactive: "Levy Troops",
-	prompt() {
-		view.prompt = `Pay 1 Coin for Mercenaries ${lord_name[game.who]}.`
-		let done = true
-		if (done) {
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-				if (is_lord_unfed(lord) && can_pay_from_shared(lord)) {
-					if (get_lord_assets(lord, COIN) > 0) {
-						gen_action_coin(lord)
-						done = false
-					}
-				}
-			}
-		}
-		// Done
-		if (done) {
-			view.prompt = "Soldiers of fortune: Done."
-			view.actions.end_sof = 1
-		}
-	},
-	coin(lord) {
-		push_undo()
-		let here = get_lord_locale(game.who)
-		let here_type = data.locales[here].type
-		let number = get_lord_forces(game.who, MERCENARIES)
-		let merc = 0
-		if (!lord_has_capability(game.who, AOW_YORK_WOODWILLES))
-			deplete_locale(here)
-
-		switch (here_type) {
-			case "calais":
-				add_lord_forces(game.who, MEN_AT_ARMS, 2)
-				add_lord_forces(game.who, LONGBOWMEN, 1)
-				break
-			case "london":
-				add_lord_forces(game.who, MEN_AT_ARMS, 1)
-				add_lord_forces(game.who, LONGBOWMEN, 1)
-				add_lord_forces(game.who, MILITIA, 1)
-				break
-			case "harlech":
-				add_lord_forces(game.who, MEN_AT_ARMS, 1)
-				add_lord_forces(game.who, LONGBOWMEN, 2)
-				break
-			case "city":
-				add_lord_forces(game.who, LONGBOWMEN, 1)
-				add_lord_forces(game.who, MILITIA, 1)
-				break
-			case "town":
-				add_lord_forces(game.who, MILITIA, 2)
-				break
-			case "fortress":
-				add_lord_forces(game.who, MEN_AT_ARMS, 1)
-				add_lord_forces(game.who, MILITIA, 1)
-				break
-		}
-		if (game.flags.free_levy === 1) {
-			++game.count
-			game.flags.free_levy = 0
-		}
-		if (number === 5)
-			merc = 1
-		else
-			merc = 2
-		add_lord_assets(lord, COIN, -1)
-		add_lord_forces(game.who, MERCENARIES, merc)
-		set_lord_unfed(game.who, 0)
-	},
-	end_sof() {
-		end_soldiers_of_fortune()
-	},
-	card: action_held_event,
-}
-
-function end_soldiers_of_fortune() {
-	goto_the_kings_name("Soldiers of Fortune")
-}
-
-// === CAPABILITY: COMMISSION OF ARRAY ===
-
-states.commission_of_array = {
-	inactive: "Levy Troops",
-	prompt() {
-		view.prompt = `Lord troops adjacent to ${lord_name[game.who]}.`
-		let done = true
-		let here = get_lord_locale(game.who)
-		if (done) {
-			for (let next of data.locales[here].adjacent) {
-				if (is_friendly_locale(next) && lord_has_capability(game.who, AOW_LANCASTER_COMMISION_OF_ARRAY) && (!has_exhausted_marker(next) && !is_exile(next))) {
-					done = false
-					gen_action_locale(next)
-				}
-			}
-		}
-		// Done
-		if (done) {
-			view.prompt = "Commission of Array: Done."
-			view.actions.end_coa = 1
-		}
-	},
-	locale(loc) {
-		push_undo()
-		let loc_type = data.locales[loc].type
-		deplete_locale(loc)
-
-		switch (loc_type) {
-			case "calais":
-				add_lord_forces(game.who, MEN_AT_ARMS, 2)
-				add_lord_forces(game.who, LONGBOWMEN, 1)
-				break
-			case "london":
-				add_lord_forces(game.who, MEN_AT_ARMS, 1)
-				add_lord_forces(game.who, LONGBOWMEN, 1)
-				add_lord_forces(game.who, MILITIA, 1)
-				break
-			case "harlech":
-				add_lord_forces(game.who, MEN_AT_ARMS, 1)
-				add_lord_forces(game.who, LONGBOWMEN, 2)
-				break
-			case "city":
-				add_lord_forces(game.who, LONGBOWMEN, 1)
-				add_lord_forces(game.who, MILITIA, 1)
-				break
-			case "town":
-				add_lord_forces(game.who, MILITIA, 2)
-				break
-			case "fortress":
-				add_lord_forces(game.who, MEN_AT_ARMS, 1)
-				add_lord_forces(game.who, MILITIA, 1)
-				break
-		}
-		if (game.flags.free_levy === 1) {
-			++game.count
-			game.flags.free_levy = 0
-		}
-		end_commission_of_array()
-	},
-	card: action_held_event,
-}
-
-function end_commission_of_array() {
-	goto_the_kings_name("Commission of Array")
-}
-
-// === CAPABILITY: WE DONE DEEDS OF CHARITY ===
-
-function eligible_charity() {
-	let lord = find_lord_with_capability_card(AOW_YORK_WE_DONE_DEEDS_OF_CHARITY)
-	if (lord !== NOBODY && get_shared_assets(lord, PROV) > 0)
-		return true
-	return false
-}
-
-function goto_we_done_deeds_of_charity() {
-	set_active(YORK)
-	game.state = "we_done_deeds_of_charity"
-	game.count = 2
-}
-
-states.we_done_deeds_of_charity = {
-	inactive: "We done needs of charity",
-	prompt() {
-		view.prompt = "We done deeds of charity: Pay up to two Provender for +1 Influence point each."
-		let lord = find_lord_with_capability_card(AOW_YORK_WE_DONE_DEEDS_OF_CHARITY)
-		let here = get_lord_locale(lord)
-		if (game.count > 0) {
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-				if (get_lord_locale(lord) === here && (get_lord_assets(lord, PROV) > 0)) {
-					gen_action_prov(lord)
-				}
-			}
-		}
-		view.actions.done = 1
-	},
-	prov(lord) {
-		push_undo()
-		increase_york_influence(1)
-		add_lord_assets(lord, PROV, -1)
-		game.count--
-	},
-	done() {
-		clear_undo()
-		logi(`${AOW_YORK_WE_DONE_DEEDS_OF_CHARITY}`)
-		log("York paid " + game.count + " provender to add " + game.count + " Influence Points")
-		game.count = 0
-
-		// TODO: who should be active?
-		goto_disembark()
-	},
-}
-
-// === CAPABILITY: MERCHANTS ===
-
-function can_action_merchants() {
-	let loc = get_lord_locale(game.command)
-	if (game.actions <= 0)
-		return false
-
-	if (lord_has_capability(game.command, AOW_LANCASTER_MERCHANTS) && count_deplete(loc) > 0)
-		return true
-	else
-		return false
-}
-
-function goto_merchants() {
-	game.count = count_deplete(get_lord_locale(game.command))
-	game.state = "merchants"
-	init_influence_check(game.command)
-}
-
-states.merchants = {
-	inactive: "Merchants",
-	prompt() {
-		view.prompt = "Merchants: Succeed an influence check to remove Depleted markers"
-		prompt_influence_check()
-	},
-	spend1: add_influence_check_modifier_1,
-	spend3: add_influence_check_modifier_2,
-	check() {
-		let results = do_influence_check()
-		log(`Attempt to C${AOW_LANCASTER_MERCHANTS} with %${game.command} ${results.success ? "Successful" : "Failed"}: (${range(results.rating)}) ${results.success ? HIT[results.roll] : MISS[results.roll]}`)
-		if (results.success) {
-			merchants_success()
-		} else {
-			end_merchants_attempt()
-		}
-	}
-}
-function merchants_success() {
-	game.state = "merchants_success"
-}
-
-states.merchants_success = {
-	inactive: "Merchants Success",
-	prompt() {
-		view.prompt = `Remove Depleted/Exhausted markers`
-		deplete_merchants()
-		if (game.count === 0) {
-			view.actions.done = 1
-		}
-	},
-	locale(loc) {
-		push_undo()
-		remove_depleted_marker(loc)
-		remove_exhausted_marker(loc)
-		--game.count
-		if (game.count === 0) {
-			end_merchants_attempt()
-		}
-	},
-	done(){
-		end_merchants_attempt()
-	}
-}
-
-function end_merchants_attempt() {
-	spend_action(1)
-	game.count = 0
-	push_undo()
-	end_influence_check()
-	resume_command()
-}
-
-function deplete_merchants() {
-	let here = get_lord_locale(game.command)
-	for (let next of data.locales[here].adjacent) {
-		if (has_exhausted_marker(next) || has_depleted_marker(next))
-			gen_action_locale(next)
-	}
-	if (has_exhausted_marker(here) || has_depleted_marker(here))
-		gen_action_locale(here)
-}
-
-function count_deplete(loc) {
-	let n = 0
-	for (let next of data.locales[loc].adjacent) {
-		if (has_exhausted_marker(next) || has_depleted_marker(next)) {
-			++n
-		}
-	}
-	if (has_exhausted_marker(loc) || has_depleted_marker(loc)) {
-		++n
-	}
-	if (n > 1)
-		n = 2
-	return n
-}
-
-// === CAPABILITY: BURGUNDIANS ===
-
-function levy_burgundians(lord) {
-	if (is_seaport(get_lord_locale(lord)) && !is_exile(get_lord_locale(lord)) && lord_has_capability(lord, AOW_YORK_BURGUNDIANS) && game.flags.burgundians === 0) {
-		add_lord_forces(lord, BURGUNDIANS, 2)
-		logi(AOW_YORK_BURGUNDIANS)
-		game.flags.burgundians = 1
-	}
-}
-
-// === CAPABILITY: NAVAL BLOCKADE ===
-
-function parley_through_sea(start, locale) {
-	// Only entered in levy
-	let ships = get_shared_assets(start, SHIP)
-
-	if (ships === 0) {
-		game.flags.naval_blockade = -1
-	}
-
-	search_dist.fill(0)
-	search_seen.fill(0)
-	search_seen[start] = 1
-
-	let queue = [ start ]
-	while (queue.length > 0) {
-		let here = queue.shift()
-		let dist = search_dist[here]
-		let next_dist = dist + 1
-
-		if (is_friendly_locale(here)) {
-			for (let next of data.locales[here].adjacent) {
-				if (!search_seen[next]) {
-					search_seen[next] = 1
-					search_dist[next] = next_dist
-					queue.push(next)
-					if (next === locale) {
-						game.flags.naval_blockade = -1
-					}
-				}
-			}
-		}
-	}
-	queue = [ start ]
-	while (queue.length > 0) {
-		let here = queue.shift()
-		let dist = search_dist[here]
-		let next_dist = dist + 1
-
-		if (is_friendly_locale(here)) {
-			if (ships > 0 && is_seaport(here)) {
-				for (let next of find_ports(here)) {
-					if (!search_seen[next]) {
-						search_seen[next] = 1
-						search_dist[next] = next_dist
-						queue.push(next)
-						if (next === locale && game.flags.naval_blockade !== -1) {
-							game.flags.naval_blockade = 1
-						}
-					}
-				}
-			}
-		}
-	}
-}
-
-function check_naval_blockade(action, locale) {
-	let ports = [data.port_1, data.port_2, data.port_3]
-	game.what = action
-
-	if (!lord_has_capability(LORD_WARWICK_Y, AOW_YORK_NAVAL_BLOCKADE) || !is_seaport(get_lord_locale(LORD_WARWICK_Y)) || is_exile(get_lord_locale(LORD_WARWICK_Y))) {
-		return false
-	}
-
-	if (action === "levy parley") {
-		parley_through_sea(get_lord_locale(game.who), locale)
-		if (game.flags.naval_blockade !== 1) {
-			return false
-		}
-	}
-
-	if (action === "campaign parley" && data.locales[locale].adjacent.includes(get_lord_locale(game.command))) {
-		return false
-	}
-
-	for (let port of ports) {
-		if (set_has(port, get_lord_locale(LORD_WARWICK_Y)) && set_has(port, locale)) {
-			return true
-		}
-	}
-}
-
-function roll_naval_blockade() {
-	push_state("naval_blockade")
-}
-
-// Parley, and Tax
-states.naval_blockade = {
-	inactive: "Naval Blockade",
-	prompt() {
-		view.prompt = `Naval Blockade : Warwick block this action except on a 1-2`
-		view.actions.roll = 1
-	},
-	roll() {
-		let threshold = 2
-		let roll = roll_die()
-		let success = threshold >= roll
-		log(`Attempt to counter Naval Blockade ${success ? "Failed" : "Successful"}: (1-2) ${success ? HIT[roll] : MISS[roll]}`)
-		if (success) {
-			logi(`Successfully overran C${AOW_YORK_NAVAL_BLOCKADE}`)
-			if (game.what === "levy parley") {
-				game.flags.naval_blockade = -1
-			}
-			if (game.what === "campaign parley") {
-				game.flags.naval_blockade = -1
-			}
-			if (game.what === "levy ship") {
-				push_the_kings_name()
-				add_lord_assets(game.who, SHIP, 1)
-				goto_the_kings_name("Levy Ship")
-			}
-			if (game.what === "supply") {
-				use_port_supply(game.where, get_port_supply_amount(game.where))
-			}
-			if (game.what === "sail") {
-				do_sail(game.where)
-			}
-		}
-		else {
-			logi(`Failed C${AOW_YORK_NAVAL_BLOCKADE}`)
-			if (game.what === "levy parley") {
-				pop_state()
-			}
-			if (game.what === "campaign parley") {
-				pop_state()
-			}
-		}
-		if (game.what === "levy parley") {
-			pop_state()
-			resume_levy_muster_lord()
-		}
-		if (game.what === "campaign parley") {
-			pop_state()
-			--game.count
-			resume_command()
-		}
-		if (game.what === "levy ship") {
-			pop_state()
-			resume_levy_muster_lord()
-		}
-		if (game.what === "supply" && !success) {
-			end_supply()
-		}
-		if (game.what === "sail" && !success) {
-			resume_command()
-		}
-		game.what = NOTHING
-	},
-}
-
-// === CAPABILITY: AGITATORS ===
-
-function can_action_agitators() {
-	let here = get_lord_locale(game.command)
-	if (game.actions <= 0)
-		return false
-	if (lord_has_capability(game.command, AOW_YORK_AGITATORS)) {
-		for (let next of data.locales[here].adjacent) {
-			if (!has_exhausted_marker(next) && !is_friendly_locale(next))
-				return true
-		}
-	}
-	else
-		return false
-}
-
-function goto_agitators() {
-	game.count = count_deplete(get_lord_locale(game.command))
-	game.state = "agitators"
-}
-
-states.agitators = {
-	inactive: "Agitators",
-	prompt() {
-		view.prompt = "Agitators: Add a depleted marker or flip to exhausted adjacent"
-		deplete_agitators()
-	},
-	locale(loc) {
-		push_undo()
-		if (has_depleted_marker(loc)) {
-			add_exhausted_marker(loc)
-		}
-		else {
-			add_depleted_marker(loc)
-		}
-		end_agitators()
-	},
-}
-
-function deplete_agitators() {
-	let here = get_lord_locale(game.command)
-	for (let next of data.locales[here].adjacent) {
-		if (!has_exhausted_marker(next) && !is_friendly_locale(next))
-			gen_action_locale(next)
-	}
-}
-
-function end_agitators() {
-	spend_action(1)
-	push_undo()
-	resume_command()
-}
-
-// === CAPABILITY: HERALDS ===
-
-function can_action_heralds() {
-	if (game.actions <= 0)
-		return false
-
-	if (!is_first_action())
-		return false
-	// at a seaport
-	let here = get_lord_locale(game.command)
-	if (!is_seaport(here))
-		return false
-
-	if (!lord_has_capability(game.command, AOW_LANCASTER_HERALDS))
-		return false
-
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-		if (is_lord_on_calendar(lord))
-			return true
-	}
-	return false
-}
-
-function goto_heralds() {
-	game.state = "heralds"
-}
-
-states.heralds = {
-	inactive: "Heralds",
-	prompt() {
-		view.prompt = "Heralds: Choose a Lord on calendar to shift him to next turn box"
-		for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-			if (is_lord_on_calendar(lord))
-				gen_action_lord(lord)
-		}
-	},
-	lord(other) {
-		goto_heralds_attempt(other)
-	},
-}
-
-function goto_heralds_attempt(lord) {
-	game.what = lord
-	game.state = "heralds_attempt"
-	init_influence_check(game.command)
-}
-
-states.heralds_attempt = {
-	inactive: "Heralds Attempt",
-	prompt() {
-		view.prompt = `Attempt to shift ${lord_name[game.what]} to next Turn Box. `
-		prompt_influence_check()
-	},
-	spend1: add_influence_check_modifier_1,
-	spend3: add_influence_check_modifier_2,
-	check() {
-		let results = do_influence_check()
-		log(`Attempt to shift L${game.what} ${results.success ? "Successful" : "Failed"}: (${range(results.rating)}) ${results.success ? HIT[results.roll] : MISS[results.roll]}`)
-
-		if (results.success) {
-			game.who = game.what
-			set_lord_calendar(game.who, current_turn() + 1)
-		}
-
-		end_heralds_attempt()
-	},
-}
-
-function end_heralds_attempt() {
-	end_influence_check()
-	spend_all_actions()
-	resume_command()
-}
-
-// === EVENTS: IMMEDIATE ===
-
-function goto_immediate_event(c) {
-	switch (c) {
-		// This Levy / Campaign
-		case EVENT_LANCASTER_BE_SENT_FOR:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_LANCASTER_SEAMANSHIP:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_LANCASTER_FORCED_MARCHES:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_LANCASTER_RISING_WAGES:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_LANCASTER_NEW_ACT_OF_PARLIAMENT:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_LANCASTER_MY_CROWN_IS_IN_MY_HEART:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_LANCASTER_PARLIAMENT_VOTES:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_LANCASTER_FRENCH_FLEET:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_LANCASTER_BUCKINGHAMS_PLOT:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_LANCASTER_MARGARET_BEAUFORT:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_LANCASTER_THE_EARL_OF_RICHMOND:
-			set_add(game.events, c)
-			return end_immediate_event()
-
-		case EVENT_YORK_JACK_CADE:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_SEAMANSHIP:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_YORKISTS_BLOCK_PARLIAMENT:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_EXILE_PACT:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_RICHARD_OF_YORK:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_THE_COMMONS:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_SUCCESSION:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_LOYALTY_AND_TRUST:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_OWAIN_GLYNDWR:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_GLOUCESTER_AS_HEIR:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_DORSET:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_THE_KINGS_NAME:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_EDWARD_V:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_AN_HONEST_TALE_SPEEDS_BEST:
-			set_add(game.events, c)
-			return end_immediate_event()
-		case EVENT_YORK_PRIVY_COUNCIL:
-			set_add(game.events, c)
-			return end_immediate_event()
-
-		// Immediate effect
-		// Discard - Immediate Events
-		case EVENT_LANCASTER_SCOTS:
-			return goto_lancaster_event_scots()
-		case EVENT_LANCASTER_HENRY_PRESSURES_PARLIAMENT:
-			return goto_lancaster_event_henry_pressures_parliament()
-		case EVENT_LANCASTER_HENRYS_PROCLAMATION:
-			return goto_lancaster_event_henrys_proclamation()
-		case EVENT_LANCASTER_FRENCH_TROOPS:
-			return goto_lancaster_event_french_troops()
-		case EVENT_LANCASTER_WARWICKS_PROPAGANDA:
-			return goto_warwicks_propaganda()
-		case EVENT_LANCASTER_WARWICKS_PROPAGANDA2:
-			return goto_warwicks_propaganda()
-		case EVENT_LANCASTER_WELSH_REBELLION:
-			return goto_lancaster_event_welsh_rebellion()
-		case EVENT_LANCASTER_HENRY_RELEASED:
-			return goto_lancaster_event_henry_released()
-		case EVENT_LANCASTER_LUNIVERSELLE_ARAGNE:
-			return goto_lancaster_event_luniverselle_aragne()
-		case EVENT_LANCASTER_TO_WILFUL_DISOBEDIANCE:
-			return goto_lancaster_event_to_wilful_disobediance()
-		case EVENT_LANCASTER_FRENCH_WAR_LOANS:
-			return goto_lancaster_event_french_war_loans()
-		case EVENT_LANCASTER_ROBINS_REBELLION:
-			return goto_lancaster_event_robins_rebellion()
-		case EVENT_LANCASTER_TUDOR_BANNERS:
-			return goto_lancaster_event_tudor_banners()
-		case EVENT_YORK_TAX_COLLECTORS:
-			return goto_york_event_tax_collectors()
-		case EVENT_YORK_LONDON_FOR_YORK:
-			return goto_york_event_london_for_york()
-		case EVENT_YORK_SHEWOLF_OF_FRANCE:
-			return goto_york_event_shewolf_of_france()
-		case EVENT_YORK_SIR_RICHARD_LEIGH:
-			return goto_york_event_sir_richard_leigh()
-		case EVENT_YORK_CHARLES_THE_BOLD:
-			return goto_york_event_charles_the_bold()
-		case EVENT_YORK_DUBIOUS_CLARENCE:
-			return goto_dubious_clarence()
-		case EVENT_YORK_YORKIST_NORTH:
-			return goto_york_event_yorkist_north()
-		case EVENT_YORK_EARL_RIVERS:
-			return goto_york_event_earl_rivers()
-		default:
-			log("NOT IMPLEMENTED")
-			return end_immediate_event()
-	}
-}
-
-function end_immediate_event() {
-	resume_levy_arts_of_war()
-}
-
-// === EVENT: LANCASTER SCOTS ===
-
-function goto_lancaster_event_scots() {
-	game.state = "scots"
-	game.count = []
-	game.who = NOBODY
-}
-
-function end_lancaster_event_scots() {
-	game.count = 0
-	game.who = NOBODY
-	end_immediate_event()
-}
-
-states.scots = {
-	inactive: "Scots",
-	prompt() {
-		view.prompt = "Scots: You may add 1 Men-at-Arms and 1 Militia to each Lord."
-		for (let lord = first_lancaster_lord; lord <= last_lancaster_lord; lord++) {
-			if (is_lord_on_map(lord) && map_get(game.count, lord, 0) < 3) {
-				gen_action_lord(lord)
-			}
-		}
-
-		if (game.who !== NOBODY) {
-			let troops = map_get(game.count, game.who, 0)
-			if ((troops & 1) === 0)
-				view.actions.add_militia = 1
-			if ((troops & 2) === 0)
-				view.actions.add_men_at_arms = 1
-		}
-		view.actions.done = 1
-	},
-	done() {
-		end_lancaster_event_scots()
-	},
-	add_militia() {
-		add_lord_forces(game.who, MILITIA, 1)
-		let troops = map_get(game.count, game.who, 0)
-		map_set(game.count, game.who, troops + 1)
-		if (troops !== 0)
-			game.who = NOBODY
-	},
-	add_men_at_arms() {
-		add_lord_forces(game.who, MEN_AT_ARMS, 1)
-		let troops = map_get(game.count, game.who, 0)
-		map_set(game.count, game.who, troops + 2)
-		if (troops !== 0)
-			game.who = NOBODY
-	},
-	lord(lord) {
-		push_undo()
-		game.who = lord
-	},
-}
-
-// === EVENT: LANCASTER HENRY PRESSURES PARLIAMENT ===
-
-function goto_lancaster_event_henry_pressures_parliament() {
-	let count = 0
-	for (let vassal = first_vassal; vassal <= last_vassal; vassal++) {
-		if (is_vassal_mustered_with_york_lord(vassal)) {
-			count++
-		}
-	}
-
-	if (count > 0) {
-		logi(`Removed ${count} York influence.`)
-		reduce_york_influence(count)
-	}
-
-	end_immediate_event()
-}
-
-// === EVENT: LANCASTER HENRY'S PROCLAMATION ===
-
-function goto_lancaster_event_henrys_proclamation() {
-	for (let vassal = first_vassal; vassal <= last_vassal; vassal++) {
-		if (is_vassal_mustered_with_york_lord(vassal)) {
-			set_vassal_lord_and_service(vassal, get_vassal_lord(vassal), current_turn())
-			logi(`Vassal ${data.vassals[vassal].name} moved to current turn`)
-
-		}
-	}
-	end_immediate_event()
-}
-
-// === EVENT: LANCASTER FRENCH TROOPS ===
-
-function goto_lancaster_event_french_troops() {
-	let can_play = false
-	for (let lord = first_friendly_lord; lord <= last_friendly_lord; lord++) {
-		if (is_lord_on_map(lord) && data.seaports.includes(get_lord_locale(lord))) {
-			can_play = true
-		}
-	}
-	if (can_play) {
-		game.state = "french_troops"
-		game.who = NOBODY
-		game.count = 0
-	} else {
-		end_immediate_event()
-	}
-}
-
-function end_lancaster_event_french_troops() {
-	game.who = NOBODY
-	game.count = 0
-	end_immediate_event()
-}
-
-states.french_troops = {
-	inactive: "French Troops",
-	prompt() {
-
-		view.prompt = `Add 2 Men at Arms and 2 Militia to a Lord at a port.`
-		if (game.who === NOBODY) {
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; lord++) {
-				if (is_lord_on_map(lord) && is_seaport(get_lord_locale(lord))) {
-					gen_action_lord(lord)
-				}
-			}
-		} else {
-			view.prompt = `Add ${2-pack2_get(game.count, 0)} Men at Arms and ${2-pack2_get(game.count, 1)} Militia to ${lord_name[game.who]}.`
-			if (pack2_get(game.count, 0) < 2)
-				view.actions.add_men_at_arms = 1
-			if (pack2_get(game.count, 1) < 2)
-				view.actions.add_militia = 1
-		}
-
-		view.actions.done = 1
-	},
-	add_men_at_arms() {
-		push_undo()
-		add_lord_forces(game.who, MEN_AT_ARMS, 1)
-		let c = pack2_get(game.count, 0)
-		game.count = pack2_set(game.count, 0, c+1)
-	},
-	add_militia() {
-		push_undo()
-		add_lord_forces(game.who, MILITIA, 1)
-		let c = pack2_get(game.count, 1)
-		game.count = pack2_set(game.count, 1, c+1)
-	},
-	lord(lord) {
-		push_undo()
-		game.who = lord
-	},
-	done() {
-		end_lancaster_event_french_troops()
-	}
-}
-
-// === EVENT: WARWICKS PROPAGANDA ===
-
-function add_propaganda_target(loc) {
-	set_add(game.event_data, loc)
-}
-
-function remove_propaganda_target(loc) {
-	set_delete(game.event_data, loc)
-}
-
-function is_propaganda_target(loc) {
-	return set_has(game.event_data, loc)
-}
-
-function goto_warwicks_propaganda() {
-	let can_play = false
-	for (let loc = first_locale; loc <= last_locale; ++loc) {
-		if (has_favoury_marker(loc)) {
-			can_play = true
-		}
-	}
-
-	if (can_play) {
-		game.state = "warwicks_propaganda"
-		game.event_data = []
-		game.where = NOWHERE
-		game.count = 0
-	} else {
-		end_immediate_event()
-	}
-}
-
-states.warwicks_propaganda = {
-	inactive: "Warwick's Propaganda",
-	prompt() {
-		view.prompt = `Select up to ${3-game.count} Yorkists Locales.`
-		for (let loc = first_locale; loc <= last_locale; loc++) {
-			if (game.count < 3 && has_favoury_marker(loc) && !is_exile(loc) && !is_propaganda_target(loc)) {
-				gen_action_locale(loc)
-			}
-		}
-		view.actions.done = 1
-	},
-	locale(loc) {
-		push_undo()
-		add_propaganda_target(loc)
-		game.count++
-	},
-	done() {
-		goto_yorkist_choice()
-	}
-}
-
-function goto_yorkist_choice() {
-	game.where = NOBODY
-	set_active_enemy()
-	game.state = "warwicks_propaganda_yorkist_choice"
-}
-
-states.warwicks_propaganda_yorkist_choice = {
-	inactive: "Yorkists to choose to Pay or Remove favour",
-	prompt() {
-		view.prompt = `For each Stronghold, Pay 2 influence or Remove favour.`
-		let done = true
-		if (game.where === NOBODY) {
-			for (let loc = first_locale; loc <= last_locale; loc++) {
-				if (is_propaganda_target(loc)) {
-					gen_action_locale(loc)
-					done = false
-				}
-			}
-			if (done) {
-				view.actions.done = 1
-			}
-		} else {
-			view.actions.remove_favour = 1
-			view.actions.pay = 1
-		}
-	},
-	locale(loc) {
-		game.where = loc
-	},
-	remove_favour() {
-		push_undo()
-		remove_favoury_marker(game.where)
-		remove_propaganda_target(game.where)
-		logi(`Removed favour in ${game.where}`)
-		game.where = NOBODY
-	},
-	pay() {
-		push_undo()
-		reduce_influence(2)
-		logi(`Paid 2 to keep ${game.where}`)
-		remove_propaganda_target(game.where)
-		game.where = NOWHERE
-	},
-	done() {
-		end_warwicks_propaganda()
-	},
-}
-
-function end_warwicks_propaganda() {
-	game.event_data = 0
-	game.where = NOWHERE
-	game.count = 0
-	set_active_enemy()
-	end_immediate_event()
-}
-
-// === EVENT: WELSH REBELLION ===
-
-function goto_lancaster_event_welsh_rebellion() {
-	let can_remove_troops = false
-	let can_remove_favour = false
-	for (let lord = first_york_lord; lord <= last_york_lord; ++lord) {
-		if (is_lord_on_map(lord) && is_lord_in_wales(lord)) {
-			set_lord_moved(lord, 1)
-			can_remove_troops = true
-		}
-	}
-	for (let loc = first_locale; loc <= last_locale; loc++) {
-		if (is_wales(loc) && has_favoury_marker(loc))
-			can_remove_favour = true
-	}
-
-	if (can_remove_troops) {
-		game.state = "welsh_rebellion_remove_troops"
-		game.who = NOBODY
-		game.count = 0
-	}
-	else if (can_remove_favour) {
-		game.state = "welsh_rebellion_remove_favour"
-		game.who = NOBODY
-		game.count = 0
-	}
-	else {
-		end_immediate_event()
-	}
-}
-
-states.welsh_rebellion_remove_troops = {
-	inactive: "Welsh Rebellion \u2014 Remove troops",
-	prompt() {
-		view.prompt = `Remove 2 Troops from each enemy Lord in Wales.`
-		let done = true
-		if (game.who === NOBODY) {
-			for (let lord = first_enemy_lord; lord <= last_enemy_lord; lord++) {
-				if (is_lord_on_map(lord) && is_lord_in_wales(lord) && get_lord_moved(lord)) {
-					gen_action_lord(lord)
-					done = false
-				}
-			}
-			if (done) {
-				view.actions.done = 1
-			}
-		}
-		else {
-			view.prompt = `Remove ${game.count} Troops from ${data.lords[game.who].name}.`
-			if (get_lord_forces(game.who, BURGUNDIANS) > 0)
-				gen_action_burgundians(game.who)
-			if (get_lord_forces(game.who, MERCENARIES) > 0)
-				gen_action_mercenaries(game.who)
-			if (get_lord_forces(game.who, LONGBOWMEN) > 0)
-				gen_action_longbowmen(game.who)
-			if (get_lord_forces(game.who, MEN_AT_ARMS) > 0)
-				gen_action_men_at_arms(game.who)
-			if (get_lord_forces(game.who, MILITIA) > 0)
-				gen_action_militia(game.who)
-		}
-	},
-	lord(lord) {
-		push_undo()
-		set_lord_moved(lord, 0)
-		game.who = lord
-		game.count = 2
-	},
-	burgundians(lord) {
-		add_lord_forces(lord, BURGUNDIANS, -1)
-		if (--game.count === 0 || !lord_has_unrouted_units(lord))
-			game.who = NOBODY
-	},
-	mercenaries(lord) {
-		add_lord_forces(lord, MERCENARIES, -1)
-		if (--game.count === 0 || !lord_has_unrouted_units(lord))
-			game.who = NOBODY
-	},
-	longbowmen(lord) {
-		add_lord_forces(lord, LONGBOWMEN, -1)
-		if (--game.count === 0 || !lord_has_unrouted_units(lord))
-			game.who = NOBODY
-	},
-	men_at_arms(lord) {
-		add_lord_forces(lord, MEN_AT_ARMS, -1)
-		if (--game.count === 0 || !lord_has_unrouted_units(lord))
-			game.who = NOBODY
-	},
-	militia(lord) {
-		add_lord_forces(lord, MILITIA, -1)
-		if (--game.count === 0 || !lord_has_unrouted_units(lord))
-			game.who = NOBODY
-	},
-	done() {
-		end_welsh_rebellion_remove_troops()
-	},
-}
-
-function end_welsh_rebellion_remove_troops() {
-	for (let lord = first_york_lord; lord <= last_york_lord; ++lord) {
-		if (is_lord_on_map(lord) && is_lord_in_wales(lord) && !lord_has_unrouted_units(lord))
-			disband_lord(lord, false)
-	}
-	game.count = 0
-	game.who = NOBODY
-	end_immediate_event()
-}
-
-states.welsh_rebellion_remove_favour = {
-	inactive: "Welsh Rebellion \u2014 Remove Favour",
-	prompt() {
-		view.prompt = `Select up to ${2-game.count} Locales in Wales.`
-		for (let loc = first_locale; loc <= last_locale; loc++) {
-			if (game.count < 2 && is_wales(loc) && has_favoury_marker(loc)) {
-				gen_action_locale(loc)
-			}
-		}
-		view.actions.done = 1
-	},
-	locale(loc) {
-		push_undo()
-		remove_favoury_marker(loc)
-		logi(`Removed favour at ${data.locales[loc].name}`)
-		game.count++
-	},
-	done() {
-		end_immediate_event()
-	},
-}
-
-// === EVENT: HENRY RELEASED ===
-
-function goto_lancaster_event_henry_released() {
-	if (has_favourl_marker(LOC_LONDON)) {
-		logi(`Henry Released : 5 Influence for Lancaster`)
-		increase_lancaster_influence(5)
-	}
-	end_immediate_event()
-}
-
-// === EVENT: L'UNIVERSELLE ARAGNE ===
-
-function goto_lancaster_event_luniverselle_aragne() {
-	let can_play = false
-	for (let vassal = first_vassal; vassal <= last_vassal; vassal++) {
-		if (is_vassal_mustered_with_york_lord(vassal)) {
-			can_play = true
-		}
-	}
-	if (can_play) {
-		game.state = "aragne_1"
-		game.event_data = []
-	} else {
-		logi("No Effect")
-		end_immediate_event()
-	}
-}
-
-states.aragne_1 = {
-	inactive: "L'universelle Aragne",
-	prompt() {
-		view.prompt = "Select up to 2 Vassals"
-		if (game.event_data.length < 2) {
-			for (let v = first_vassal; v <= last_vassal; v++) {
-				if (!set_has(game.event_data, v) && is_vassal_mustered_with_york_lord(v)) {
-					gen_action_vassal(v)
-				}
-			}
-		}
-		view.actions.done = 1
-	},
-	vassal(v) {
-		push_undo()
-		set_add(game.event_data, v)
-		logi(`Vassal ${data.vassals[v].name} selected`)
-	},
-	done() {
-		push_undo()
-		goto_yorkist_aragne()
-	},
-}
-
-function goto_yorkist_aragne() {
-	set_active_enemy()
-	game.state = "aragne_2"
-}
-
-states.aragne_2 = {
-	inactive: "Influence checks",
-	prompt() {
-		view.prompt = `For Each vassal, influence check : failure disbands it`
-		let done = true
-		for (let v of game.event_data) {
-			gen_action_vassal(v)
-			done = false
-		}
-		if (done)
-			view.actions.done = 1
-	},
-	vassal(other) {
-		push_undo()
-		game.who = other
-		init_influence_check(get_vassal_lord(other))
-		game.check.push({
-			cost: 0,
-			modifier: data.vassals[other].influence * (game.active === LANCASTER ? -1 : 1),
-			source: "vassal",
-		})
-		game.state = "aragne_3"
-	},
-	done() {
-		end_universelle_aragne()
-	},
-}
-
-states.aragne_3 = {
-	inactive: `Influence check`,
-	prompt() {
-		view.prompt = `Influence check : Failure disbands ${data.vassals[game.who].name}`
-		prompt_influence_check()
-	},
-	spend1: add_influence_check_modifier_1,
-	spend3: add_influence_check_modifier_2,
-	check() {
-		let results = do_influence_check()
-		logi(`Attempt to save ${data.vassals[game.who].name} ${results.success ? "Successful" : "Failed"}: (${range(results.rating)}) ${results.success ? HIT[results.roll] : MISS[results.roll]}`)
-
-		if (!results.success) {
-			disband_vassal(game.who)
-		}
-
-		end_influence_check()
-
-		set_delete(game.event_data, game.who)
-		game.who = NOBODY
-		game.state = "aragne_2"
-	},
-}
-
-function end_universelle_aragne() {
-	game.who = NOBODY
-	game.event_data = 0
-	end_immediate_event()
-}
-
-// === EVENT: TO WILFUL DISOBEDIANCE ===
-
-function goto_lancaster_event_to_wilful_disobediance() {
-	let can_play = false
-	for (let loc = first_locale; loc <= last_locale; loc++){
-		if (has_favoury_marker(loc) && !has_enemy_lord(loc) && !has_adjacent_enemy(loc) && (has_friendly_lord(loc) || has_adjacent_friendly(loc))) {
-			can_play = true
-		}
-	}
-	if (can_play) {
-		game.state = "wilful_disobediance"
-		game.who = NOBODY
-		game.count = 0
-	} else {
-		end_immediate_event()
-		logi(`No Effect`)
-	}
-
-}
-states.wilful_disobediance = {
-	inactive: "to wilful disobediance",
-	prompt() {
-		view.prompt = `Select up to ${2-game.count} Yorkists Locales.`
-		for (let loc = first_locale; loc <= last_locale; loc++) {
-			if (
-				game.count < 2 &&
-				has_favoury_marker(loc) &&
-				!has_enemy_lord(loc) &&
-				!has_adjacent_enemy(loc) &&
-				(has_friendly_lord(loc) || has_adjacent_friendly(loc))
-			) {
-				gen_action_locale(loc)
-			}
-		}
-		view.actions.done = 1
-	},
-	locale(loc) {
-		push_undo()
-		remove_favoury_marker(loc)
-		game.count++
-		logi(`Favour removed at ${loc}`)
-	},
-	done() {
-		logi(`No Effect`)
-		end_immediate_event()
-	}
-}
-
-// === EVENT: FRENCH WAR LOANS ===
-
-function goto_lancaster_event_french_war_loans() {
-	for (let lord = first_lancaster_lord; lord <= last_lancaster_lord; ++lord) {
-		if (is_lord_on_map(lord) && !is_lord_on_calendar(lord)) {
-			add_lord_assets(lord, PROV, 1)
-			add_lord_assets(lord, COIN, 1)
-			logi(`1 Coin and 1 Provender added to ${data.lords[lord].name}`)
-		}
-	}
-	end_immediate_event()
-}
-
-// === EVENT: ROBINS REBELLION ===
-
-function goto_lancaster_event_robins_rebellion() {
-	let can_play = false
-	for (let loc = first_locale; loc <= last_locale; loc++) {
-		if (is_north(loc) && !has_favourl_marker(loc)) {
-			can_play = true
-		}
-	}
-	if (can_play) {
-		game.state = "robins_rebellion"
-		game.who = NOBODY
-		game.count = 0
-	} else {
-		logi(`No Effect`)
-		end_immediate_event()
-	}
-}
-
-states.robins_rebellion = {
-	inactive: "Robin's Rebellion",
-	prompt() {
-		view.prompt = `Select up to ${3-game.count} Locales in North.`
-		for (let loc = first_locale; loc <= last_locale; loc++) {
-			if (game.count < 3 && is_north(loc) && !has_favourl_marker(loc)) {
-				gen_action_locale(loc)
-			}
-		}
-		view.actions.done = 1
-	},
-	locale(loc) {
-		push_undo()
-		shift_favour_toward(loc)
-		logi(`Placed/Removed favour at ${data.locales[loc].name}`)
-		game.count++
-	},
-	done() {
-		end_immediate_event()
-	}
-}
-
-// === EVENT: TUDOR BANNERS ===
-
-function tudor_banner_eligible() {
-	if (is_lord_on_map(LORD_HENRY_TUDOR) && !is_lord_on_calendar(LORD_HENRY_TUDOR)) {
-		for (let next of data.locales[get_lord_locale(LORD_HENRY_TUDOR)].adjacent) {
-			if (can_parley_at(next))
-				return true
-		}
-	}
-	return false
-}
-
-function goto_lancaster_event_tudor_banners() {
-	if (tudor_banner_eligible()) {
-		game.state = "tudor_banners"
-		game.who = NOBODY
-	} else {
-		logi(`No Effect`)
-		end_immediate_event()
-	}
-}
-
-states.tudor_banners = {
-	inactive: "Tudor banners",
-	prompt() {
-		view.prompt = `Select locales adjacent to Henry to make them Lancastrian`
-		let done = true
-		for (let next of data.locales[get_lord_locale(LORD_HENRY_TUDOR)].adjacent) {
-			if (!has_enemy_lord(next) && !has_favourl_marker(next)) {
-				gen_action_locale(next)
-				done = false
-			}
-		}
-		if (done)
-			view.actions.done = 1
-	},
-	locale(loc) {
-		push_undo()
-		remove_favoury_marker(loc)
-		add_favourl_marker(loc)
-		logi(`Placed Lancastrian favour at ${data.locales[loc].name}`)
-	},
-	done() {
-		end_immediate_event()
-	}
-}
-
-// === EVENT: TAX COLLECTORS ===
-
-function goto_york_event_tax_collectors() {
-	game.state = "tax_collectors"
-}
-
-function can_tax_collectors(lord) {
-	let here = get_lord_locale(lord)
-	if (can_tax_at(here, lord))
-		return true
-	return !!search_tax(false, here, lord)
-}
-
-states.tax_collectors = {
-	inactive: "Tax Collectors",
-	prompt() {
-		view.prompt = "Tax Collectors : You may tax for Double coin with each lord"
-		for (let lord = first_york_lord; lord <= last_york_lord; ++lord) {
-			if (!get_lord_moved(lord) && can_tax_collectors(lord))
-				gen_action_lord(lord)
-		}
-		view.actions.done = 1
-	},
-	lord(lord) {
-		push_undo()
-		set_lord_moved(lord, 0)
-		game.where = NOWHERE
-		game.who = lord
-		game.state = "tax_collectors_lord"
-		init_influence_check(lord)
-	},
-	done() {
-		end_tax_collectors()
-	},
-}
-
-states.tax_collectors_lord = {
-	inactive: "Tax Collectors",
-	prompt() {
-		view.prompt = "Tax: Select the location to tax for double."
-		if (game.where === NOWHERE) {
-			for (let loc of search_tax([], get_lord_locale(game.who), game.who))
-				gen_action_locale(loc)
-		} else {
-			view.prompt = `Tax: Attempting to tax ${data.locales[game.where].name}. `
-			prompt_influence_check()
-		}
-	},
-	locale(loc) {
-		game.where = loc
-		if (loc === data.lords[game.who].seat) {
-			// Auto succeed without influence check at Lords seat.
-			deplete_locale(game.where)
-
-			log(`Taxed %${game.where}.`)
-			add_lord_assets(game.who, COIN, get_tax_amount(game.where, game.who) * 2)
-			end_tax_collectors_lord()
-		}
-	},
-	spend1: add_influence_check_modifier_1,
-	spend3: add_influence_check_modifier_2,
-	check() {
-		let results = do_influence_check()
-		logi(`Tax : ${results.success ? "Successful" : "Failed"}: (${range(results.rating)}) ${results.success ? HIT[results.roll] : MISS[results.roll]}`)
-
-		if (results.success) {
-			deplete_locale(game.where)
-			log(`Taxed %${game.where}.`)
-			add_lord_assets(game.who, COIN, get_tax_amount(game.where, game.who) * 2)
-		} else {
-			log(`Tax of %${game.where} failed.`)
-
-		}
-		end_tax_collectors_lord()
-	},
-}
-
-function end_tax_collectors_lord() {
-	game.who = NOBODY
-	game.state = "tax_collectors"
-}
-
-function end_tax_collectors() {
-	game.where = NOWHERE
-	game.who = NOBODY
-	game.count = 0
-	end_immediate_event()
-}
-
-// === EVENT: LONDON FOR YORK ===
-
-function goto_york_event_london_for_york() {
-	let can_play = false
-	if (has_favoury_marker(LOC_LONDON)) {
-		can_play = true
-	}
-	if (can_play) {
-		game.who = NOBODY
-		game.state = "london_for_york"
-	} else {
-		logi(`No Effect`)
-		end_immediate_event()
-	}
-}
-
-states.london_for_york = {
-	inactive: "London For York",
-	prompt() {
-		view.prompt = `Select London to add a second favour marker`
-		gen_action_locale(LOC_LONDON)
-	},
-	locale(loc) {
-		push_undo()
-		game.flags.london_for_york = 1
-		logi(`Second marker placed at ${data.locales[loc].name}`)
-		logi(`Immune to Lancastrian parley unless aided by event`)
-		end_immediate_event()
-	},
-}
-
-// === EVENT: SHE-WOLF OF FRANCE ===
-
-function goto_york_event_shewolf_of_france() {
-	let can_play = false
-	for (let v = first_vassal; v <= last_vassal; v++) {
-		if (is_vassal_mustered_with_friendly_lord(v)) {
-			can_play = true
-		}
-	}
-	if (can_play) {
-		game.state = "she_wolf"
-		game.event_data = []
-		game.who = NOBODY
-	} else {
-		logi(`No Effect`)
-		end_immediate_event()
-	}
-}
-
-states.she_wolf = {
-	inactive: "She-Wolf of France",
-	prompt() {
-		view.prompt = "Shift each Yorkist Vassal's Calendar marker 1 box right."
-		let done = true
-		for (let v = first_vassal; v <= last_vassal; v++) {
-			if (!set_has(game.event_data, v) && is_vassal_mustered_with_friendly_lord(v)) {
-				gen_action_vassal(v)
-				done = false
-			}
-		}
-		if (done)
-			view.actions.done = 1
-	},
-	vassal(v) {
-		push_undo()
-		if (current_turn() < 16)
-			set_vassal_lord_and_service(v, get_vassal_lord(v), get_vassal_service(v) + 1)
-		set_add(game.event_data, v)
-		logi(`Vassal ${data.vassals[v].name} shifted one calendar box`)
-	},
-	done() {
-		game.event_data = 0
-		end_immediate_event()
-	},
-}
-
-// === EVENT: RICHARD LEIGH ===
-
-function goto_york_event_sir_richard_leigh() {
-	let can_play = false
-	if (!has_favoury_marker(LOC_LONDON)) {
-		can_play = true
-	}
-	if (can_play) {
-		game.state = "richard_leigh"
-		game.who = LOC_LONDON
-		game.count = 0
-	} else {
-		logi(`No Effect`)
-		end_immediate_event()
-	}
-}
-
-states.richard_leigh = {
-	inactive: "Richard Leigh",
-	prompt() {
-		view.prompt = `Select London, shift it once in your favour`
-		if (game.who === LOC_LONDON && !has_favoury_marker(LOC_LONDON)) {
-			gen_action_locale(LOC_LONDON)
-		} else {
-			view.actions.done = 1
-		}
-	},
-	locale(loc) {
-		push_undo()
-		shift_favour_toward(loc)
-		logi(`London shifted once in your favour`)
-		game.who = NOBODY
-	},
-	done() {
-		end_immediate_event()
-	}
-}
-
-// === EVENT: CHARLES THE BOLD ===
-
-function goto_york_event_charles_the_bold() {
-	for (let lord = first_york_lord; lord <= last_york_lord; ++lord) {
-		if (is_lord_on_map(lord) && !is_lord_on_calendar(lord)) {
-			add_lord_assets(lord, PROV, 1)
-			add_lord_assets(lord, COIN, 1)
-			logi(`1 Coin and 1 Provender added to ${data.lords[lord].name}`)
-		}
-	}
-	end_immediate_event()
-}
-
-// === EVENT: DUBIOUS CLARENCE ===
-
-function goto_dubious_clarence() {
-	let can_play = false
-	if ((is_lord_on_map(LORD_EDWARD_IV) && !is_lord_on_calendar(LORD_EDWARD_IV))
-	&& is_lord_on_map(LORD_CLARENCE) && !is_lord_on_calendar(LORD_CLARENCE))
-		can_play = true
-
-	if (can_play) {
-		game.state = "dubious_clarence"
-		game.who = LORD_EDWARD_IV
-		init_influence_check(LORD_EDWARD_IV)
-	} else {
-		logi(`No Effect`)
-		end_immediate_event()
-	}
-}
-
-states.dubious_clarence = {
-	inactive: "Dubious Clarence",
-	prompt() {
-		view.prompt = `You may Influence check with Edward to disband Clarence `
-		prompt_influence_check()
-	},
-	spend1: add_influence_check_modifier_1,
-	spend3: add_influence_check_modifier_2,
-	check() {
-		let results = do_influence_check()
-		log(`Attempt to disband Clarence ${results.success ? "Successful" : "Failed"}: (${range(results.rating)}) ${results.success ? HIT[results.roll] : MISS[results.roll]}`)
-
-		if (results.success) {
-			disband_lord(LORD_CLARENCE, false)
-			end_immediate_event()
-		} else {
-			end_immediate_event()
-		}
-	},
-}
-
-// === EVENT: YORKIST NORTH ===
-
-function goto_york_event_yorkist_north() {
-	let influence_gained = 0
-	for (let lord = first_york_lord; lord <= last_york_lord; ++lord) {
-		if (is_lord_on_map(lord) && !is_lord_on_calendar(lord) && is_lord_in_north(lord))
-			influence_gained++
-	}
-	for (let loc = first_locale; loc <= last_locale; loc++) {
-		if (loc !== NOWHERE && loc < CALENDAR && has_favoury_marker(loc) && is_north(loc)) {
-			influence_gained++
-		}
-	}
-	logi(`Yorkist North : ${influence_gained} Influence for Yorkists`)
-	increase_york_influence(influence_gained)
-	end_immediate_event()
-}
-
-// === EVENT: EARL RIVERS ===
-
-function goto_york_event_earl_rivers() {
-	game.state = "earl_rivers"
-	game.count = []
-	game.who = NOBODY
-}
-
-function end_york_event_earl_rivers() {
-	game.count = 0
-	game.who = NOBODY
-	end_immediate_event()
-}
-
-states.earl_rivers = {
-	inactive: "Earl Rivers",
-	prompt() {
-		view.prompt = "Earl Rivers: Add up to 2 Militia to each lord"
-		view.actions.done = 1
-		for (let lord = first_york_lord; lord <= last_york_lord; lord++) {
-			if (is_lord_on_map(lord) && map_get(game.count, lord, 0) < 3) {
-				gen_action_lord(lord)
-			}
-		}
-
-		if (game.who !== NOBODY) {
-			let troops = map_get(game.count, game.who, 0)
-			if ((troops & 1) === 0)
-				view.actions.add_militia = 1
-		}
-		if (game.who !== NOBODY) {
-			let troops = map_get(game.count, game.who, 0)
-			if ((troops & 1) === 0)
-				view.actions.add_militia2 = 1
-		}
-	},
-	done() {
-		end_york_event_earl_rivers()
-	},
-	add_militia() {
-		push_undo()
-		add_lord_forces(game.who, MILITIA, 1)
-		let troops = map_get(game.count, game.who, 0)
-		map_set(game.count, game.who, troops + 1)
-		if (troops > 1)
-			game.who = NOBODY
-	},
-	add_militia2() {
-		push_undo()
-		add_lord_forces(game.who, MILITIA, 2)
-		let troops = map_get(game.count, game.who, 0)
-		map_set(game.count, game.who, troops + 1)
-		if (troops > 1)
-			game.who = NOBODY
-	},
-	lord(lord) {
-		push_undo()
-		game.who = lord
-	}
-}
-
-// === EVENT (AS LEVY EFFECT): THE KINGS NAME ===
-
-function eligible_kings_name() {
-	if (
-		(!is_lord_on_calendar(LORD_GLOUCESTER_1) && is_lord_on_map(LORD_GLOUCESTER_1)) ||
-		(!is_lord_on_calendar(LORD_GLOUCESTER_2) && is_lord_on_map(LORD_GLOUCESTER_2))
-	) {
-		if (is_event_in_play(EVENT_YORK_THE_KINGS_NAME) && game.active === LANCASTER)
-			return true
-	}
-	return false
-}
-
-function push_the_kings_name() {
-	if (eligible_kings_name())
-		save_state_for_the_kings_name()
-}
-
-function goto_the_kings_name(action) {
-	if (eligible_kings_name()) {
-		// TODO: pause for confirmation before changing control?
-		game.what = action
-		set_active_enemy()
-		game.state = "the_kings_name"
-	} else {
-		resume_levy_muster_lord()
-	}
-}
-
-states.the_kings_name = {
-	inactive: "The King's Name",
-	prompt() {
-		view.prompt = `The King's Name: You pay may 1 Influence to cancel last ${game.what} action.`
-		view.actions.pass = 1
-		view.actions.pay = 1
-	},
-	pay() {
-		restore_state_for_the_kings_name()
-		log(`${game.what} action cancelled.`)
-		logevent(`${EVENT_YORK_THE_KINGS_NAME}`)
-		reduce_york_influence(1)
-		resume_levy_muster_lord()
-	},
-	pass() {
-		delete_state_for_the_kings_name()
-		set_active_enemy()
-		resume_levy_muster_lord()
-	}
-}
-
-// === EVENT (AS LEVY EFFECT): RISING WAGES ===
-
-function goto_rising_wages() {
-	game.state = "rising_wages"
-}
-
-states.rising_wages = {
-	inactive: "Rising Wages",
-	prompt() {
-		let here = get_lord_locale(game.who)
-		view.prompt = "Rising Wages: Pay 1 extra coin to levy troops"
-		for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-			let loc = get_lord_locale(lord)
-			if (here === loc && (get_lord_assets(lord, COIN) > 0)) {
-				gen_action_coin(lord)
-			}
-		}
-	},
-	coin(lord) {
-		push_undo()
-		add_lord_assets(lord, COIN, -1)
-		logi(`${EVENT_LANCASTER_RISING_WAGES}`)
-		log("York paid 1 Coin to Levy troops")
-
-		do_levy_troops()
-	},
-}
-
-// === EVENT (AS LEVY EFFECT): THE COMMONS ===
-
-// each Levy Troops action ends with coming here
-
-function goto_the_commons() {
-	game.state = "the_commons"
-	game.flags.commons_militia = 2
-}
-
-states.the_commons = {
-	inactive: "The Commons",
-	prompt() {
-		view.prompt = `Add up to ${game.flags.commons_militia} Militias.`
-		if (game.flags.commons_militia > 0)
-			view.actions.add_militia = 1
-		view.actions.done = 1
-	},
-	add_militia() {
-		push_undo()
-		add_lord_forces(game.who, MILITIA, 1)
-		if (--game.flags.commons_militia === 0)
-			end_the_commons()
-	},
-	done() {
-		push_undo()
-		end_the_commons()
-	}
-}
-
-function end_the_commons() {
-	game.flags.commons_militia = 0
-	goto_the_kings_name("Levy Troops")
-}
-
-// === EVENT (AS LEVY EFFECT): JACK CADE ===
-
-function is_york_dominating_north() {
-	let dom = 0
-	for (let loc of all_north_locales) {
-		if (has_favoury_marker(loc)) {
-			dom++
-		}
-	}
-	if (dom > 5)
-		return true
-	return false
-}
-
-function is_york_dominating_south() {
-	let dom = 0
-	for (let loc of all_south_locales) {
-		if (has_favoury_marker(loc)) {
-			dom++
-		}
-	}
-	if (dom > 9)
-		return true
-	if (dom > 4
-		&& (lord_has_capability(LORD_MARCH, AOW_YORK_SOUTHERNERS)
-		|| lord_has_capability(LORD_RUTLAND, AOW_YORK_SOUTHERNERS)
-		|| lord_has_capability(LORD_YORK, AOW_YORK_SOUTHERNERS)))
-		return true
-	return false
-}
-
-function is_york_dominating_wales() {
-	let dom = 0
-	for (let loc of all_wales_locales) {
-		if (has_favoury_marker(loc)) {
-			dom++
-		}
-	}
-	if (dom > 5)
-		return true
-	if (dom > 2
-		&& (lord_has_capability(LORD_MARCH, AOW_YORK_WELSHMEN)
-		|| lord_has_capability(LORD_YORK, AOW_YORK_WELSHMEN)))
-		return true
-	return false
-}
-
-function is_jack_cade_eligible(lord) {
-	if (!is_event_in_play(EVENT_YORK_JACK_CADE))
-		return false
-	if (is_lord_in_or_adjacent_to_south(lord) && is_york_dominating_south())
-		return true
-	if (is_lord_in_or_adjacent_to_north(lord) && is_york_dominating_north())
-		return true
-	if (is_lord_in_or_adjacent_to_wales(lord) && is_york_dominating_wales())
-		return true
-	return false
-}
-
-// === EVENT (AS ACTION): EXILE PACT ===
-
-function can_action_exile_pact() {
-	return game.actions > 0 && is_event_in_play(EVENT_YORK_EXILE_PACT)
-}
-
-function goto_exile_pact() {
-	push_undo()
-	game.state = "exile_pact"
-}
-
-states.exile_pact = {
-	inactive: "Exile Pact",
-	prompt() {
-		view.prompt = "Exile Pact: Place your cylinder in a Friendly Exile box."
-		for (let loc of data.exile_boxes) {
-			if (has_favour_in_locale(game.active, loc))
-				gen_action_locale(loc)
-		}
-	},
-	locale(loc) {
-		push_undo()
-		set_lord_locale(game.command, loc)
-		end_exile_pact()
-	}
-}
-
-function end_exile_pact() {
-	spend_action(1)
-	push_undo()
-	resume_command()
-}
-
-// === EVENTS: HELD ===
-
-function play_held_event(c) {
-	log(`Played E${c}.`)
-	if (c >= first_york_card && c <= last_york_card)
-		set_delete(game.hand_y, c)
-	else
-		set_delete(game.hand_l, c)
-
-	/* Hold events with This Levy/Campaign */
-	if (
-		c === EVENT_YORK_YORKIST_PARADE ||
-		c === EVENT_YORK_PARLIAMENTS_TRUCE ||
-		c === EVENT_LANCASTER_PARLIAMENTS_TRUCE
-	) {
-		set_add(game.events, c)
-	}
-}
-
-function prompt_held_event() {
-	for (let c of current_hand())
-		if (can_play_held_event(c))
-			gen_action_card(c)
-}
-
-function can_play_held_event(c) {
-	switch (c) {
-		case EVENT_LANCASTER_ASPIELLES:
-			return can_play_l_aspielles()
-		// TODO: move into states.command ?
-		case EVENT_LANCASTER_REBEL_SUPPLY_DEPOT:
-			return can_play_rebel_supply_depot()
-		// TODO: move into states.command ?
-		case EVENT_LANCASTER_SURPRISE_LANDING:
-			return can_play_surprise_landing()
-		case EVENT_LANCASTER_PARLIAMENTS_TRUCE:
-			return can_play_parliaments_truce()
-		case EVENT_YORK_PARLIAMENTS_TRUCE:
-			return can_play_parliaments_truce()
-		case EVENT_YORK_ASPIELLES:
-			return can_play_y_aspielles()
-		case EVENT_YORK_YORKIST_PARADE:
-			return can_play_yorkist_parade()
-		case EVENT_YORK_SUN_IN_SPLENDOUR:
-			return can_play_sun_in_splendour()
-	}
-	return false
-}
-
-function action_held_event(c) {
-	push_undo()
-	play_held_event(c)
-	game.what = c
-	goto_held_event(c)
-}
-
-function goto_held_event(c) {
-	switch (c) {
-		// Play upon Death Check
-		// TODO: move into states.death_check
-		case EVENT_YORK_ESCAPE_SHIP:
-		case EVENT_LANCASTER_ESCAPE_SHIP:
-			goto_play_escape_ship()
-			break
-		case EVENT_LANCASTER_TALBOT_TO_THE_RESCUE:
-			goto_play_talbot_to_the_rescue()
-			break
-		case EVENT_LANCASTER_WARDEN_OF_THE_MARCHES:
-			goto_play_warden_of_the_marches()
-			break
-
-		// Play in Levy
-		// TODO: move into states.levy
-		case EVENT_YORK_SUN_IN_SPLENDOUR:
-			goto_play_sun_in_splendour()
-			break
-
-		// Play in Levy (for passive effect)
-		case EVENT_YORK_YORKIST_PARADE:
-			// no effect
-			break
-
-		// Play any time
-		case EVENT_YORK_ASPIELLES:
-		case EVENT_LANCASTER_ASPIELLES:
-			goto_play_aspielles()
-			break
-
-		// Play after march/sail to seaport
-		// TODO: move into states.command ?
-		case EVENT_LANCASTER_REBEL_SUPPLY_DEPOT:
-			goto_play_rebel_supply_depot()
-			break
-
-		// Play after sail to seaport
-		// TODO: move into states.command ?
-		case EVENT_LANCASTER_SURPRISE_LANDING:
-			goto_play_surprise_landing()
-			break
-	}
-}
-
-// === HELD EVENT (LEVY): YORKIST PARADE ===
-
-function can_play_yorkist_parade() {
-	if (is_levy_phase()) {
-		if (is_favour_friendly(LOC_LONDON) && (get_lord_locale(LORD_WARWICK_Y) === LOC_LONDON || get_lord_locale(LORD_YORK) === LOC_LONDON))
-			return true
-	}
-	return false
-}
-
-// === HELD EVENT (LEVY): SUN IN SPLENDOUR ===
-
-function can_play_sun_in_splendour() {
-	if (is_levy_phase())
-		return is_lord_on_calendar(LORD_EDWARD_IV)
-	return false
-}
-
-function goto_play_sun_in_splendour() {
-	push_state("sun_in_splendour")
-}
-
-states.sun_in_splendour = {
-	inactive: "Sun in Splendour",
-	prompt() {
-		view.prompt = "Sun in Splendour: Muster Edward IV in any friendly locale with no enemy lord"
-		// ... TODO: or a scenario-designated Yorkist Exile box
-		for (let loc = first_locale; loc <= last_locale; loc++)
-			if (is_friendly_locale(loc))
-				gen_action_locale(loc)
-	},
-	locale(loc) {
-		push_undo()
-		muster_lord(LORD_EDWARD_IV, loc)
-		// TODO: remove_lord_from_exile(LORD_EDWARD_IV) ?
-		// TODO: muster to exile box ?
-		logi(`Mustered Edward IV at ${data.locales[loc].name}`)
-
-		pop_state()
-		game.what = NOTHING
-	},
-}
-
-// === HELD EVENT: ASPIELLES ===
-
-function can_play_l_aspielles() {
-	return game.hand_y.length > 0 || game.hidden
-}
-
-function can_play_y_aspielles() {
-	return game.hand_l.length > 0 || game.hidden
-}
-
-function goto_play_aspielles() {
-	push_state("aspielles")
-	game.who = NOBODY
-	if (game.active === YORK)
-		log("Lancaster hand shown to the York player")
-	if (game.active === LANCASTER)
-		log("York hand shown to the Lancaster player")
-}
-
-states.aspielles = {
-	inactive: "Aspielles",
-	prompt() {
-		view.prompt = "Aspielles: You may see enemy held cards"
-		if (game.hidden) {
-			view.prompt += " and an enemy lord to see his mat"
-			if (game.who === NOBODY) {
-				for (let lord = first_enemy_lord; lord <= last_enemy_lord; ++lord)
-					gen_action_lord(lord)
-			} else {
-				view.reveal |= (1 << game.who)
-				view.actions.done = 1
-			}
-		} else {
-			view.actions.done = 1
-		}
-		if (game.active === YORK)
-			view.hand = game.hand_l
-		if (game.active === LANCASTER)
-			view.hand = game.hand_y
-	},
-	lord(lord) {
-		log(`${lord_name[lord]} Spied`)
-		game.who = lord
-	},
-	done() {
-		pop_state()
-		game.what = NOTHING
-	},
-}
-
-// === HELD EVENT: REBEL SUPPLY DEPOT ===
-
-function can_play_rebel_supply_depot() {
-	if (game.flags.sail_to_port || game.flags.march_to_port)
-		return true
-	return false
-}
-
-function goto_play_rebel_supply_depot() {
-	game.flags.supply_depot = 1
-	add_spoils(PROV, 4)
-	push_state("rebel_supply_depot")
-}
-
-states.rebel_supply_depot = {
-	inactive: "Rebel Supply depot",
-	prompt() {
-		if (has_any_spoils()) {
-			view.prompt = "Rebel Supply Depot: Divide " + list_spoils() + "."
-			let here = get_lord_locale(game.command)
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord) {
-				if (get_lord_locale(lord) === here)
-					prompt_select_lord(lord)
-				if (game.who !== NOBODY)
-					prompt_spoils()
-			}
-		} else {
-			view.prompt = "Rebel Supply Depot: All done."
-			view.actions.end_spoils = 1
-		}
-	},
-	lord: action_select_lord,
-	take_prov() {
-		push_undo_without_who()
-		take_spoils(PROV)
-	},
-	end_spoils() {
-		push_undo_without_who()
-		end_rebel_supply_depot()
-	},
-}
-
-function end_rebel_supply_depot() {
-	pop_state()
-	game.what = NOTHING
-	game.spoils = 0
-}
-
-// === HELD EVENT: SURPRISE LANDING ===
-
-function can_play_surprise_landing() {
-	let here = get_lord_locale(game.command)
-	if (game.flags.sail_to_port) {
-		if (here !== LOC_CALAIS && here !== LOC_PEMBROKE && here !== LOC_HARLECH && here !== LOC_LANCASTER)
-			return true
-	}
-	return false
-}
-
-function goto_play_surprise_landing() {
-	game.state = "surprise_landing"
-	game.flags.surprise_landing = 2
-	game.who = NOBODY
-}
-
-states.surprise_landing = {
-	inactive: "Surprise Landing",
-	prompt() {
-		view.prompt = "Surprise Landing : You may march once (no path)."
-		prompt_held_event()
-
-		view.group = game.group
-		let here = get_lord_locale(game.command)
-		// 4.3.2 Marshals MAY take other lords
-		if (
-			is_marshal(game.command) ||
-			(lord_has_capability(game.command, AOW_YORK_CAPTAIN) && !other_marshal_or_lieutenant(here))
-		) {
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord)
-				if (lord !== game.command)
-					if (get_lord_locale(lord) === here)
-						gen_action_lord(lord)
-		}
-
-		// Lieutenant may not take marshall
-		if (is_lieutenant(game.command)) {
-			for (let lord = first_friendly_lord; lord <= last_friendly_lord; ++lord)
-				if (lord !== game.command)
-					if (get_lord_locale(lord) === here && !is_marshal(lord)) {
-						gen_action_lord(lord)
-					}
-		}
-
-		prompt_march()
-	},
-	lord(lord) {
-		set_toggle(game.group, lord)
-	},
-	locale: goto_march,
-	card: action_held_event,
-}
-
-// === LOGGING ===
-
-function range(x) {
-	switch (x) {
-		case 0: return "0"
-		case 1: return "1"
-		case 2: return "1-2"
-		case 3: return "1-3"
-		case 4: return "1-4"
-		case 5: return "1-5"
-		case 6: return "Automatic success"
-	}
-}
-
-function log_br() {
-	if (game.log.length > 0 && game.log[game.log.length - 1] !== "")
-		game.log.push("")
-}
-
-function log(msg) {
-	game.log.push(msg)
-}
-
-function logevent(cap) {
-	game.log.push(`E${cap}.`)
-}
-
-function logcap(cap) {
-	game.log.push(`C${cap}.`)
-}
-
-function logi(msg) {
-	game.log.push(">" + msg)
-}
-
-function log_h1(msg) {
-	log_br()
-	log(".h1 " + msg)
-	log_br()
-}
-
-function log_h2(msg) {
-	log_br()
-	if (game.active === YORK)
-		log(".h2t " + msg)
-	else
-		log(".h2r " + msg)
-	log_br()
-}
-
-function log_h3(msg) {
-	log_br()
-	if (game.active === YORK)
-		log(".h3t " + msg)
-	else
-		log(".h3r " + msg)
-	log_br()
-}
-
-function log_h4(msg) {
-	log_br()
-	log(".h4 " + msg)
-}
-
-function log_h5(msg) {
-	log_br()
-	log(".h5 " + msg)
-}
-
-// === VIEW & ACTION ===
-
-exports.view = function (state, current) {
-	load_state(state)
-
-	view = {
-		prompt: null,
-		actions: null,
-		log: game.log,
-		reveal: 0,
-
-		end: scenario_last_turn[game.scenario],
-		turn: game.turn,
-		victory_check: game.victory_check,
-		influence: game.influence,
-
-		events: game.events,
-		pieces: game.pieces,
-		battle: game.battle,
-
-		held_y: game.hand_y.length,
-		held_l: game.hand_l.length,
-
-		command: game.command,
-		hand: null,
-		plan: null,
-	}
-
-	if (!game.hidden)
-		view.reveal = -1
-
-	if (current === YORK) {
-		view.hand = game.hand_y
-		view.plan = game.plan_y
-		if (game.hidden)
-			view.reveal |= YORK_LORD_MASK
-	}
-	if (current === LANCASTER) {
-		view.hand = game.hand_l
-		view.plan = game.plan_l
-		if (game.hidden)
-			view.reveal |= LANCASTER_LORD_MASK
-	}
-
-	if (game.battle) {
-		if (game.battle.array) {
-			for (let lord of game.battle.array)
-				if (lord !== NOBODY)
-					view.reveal |= 1 << lord
-		}
-		for (let lord of game.battle.reserves)
-			view.reveal |= 1 << lord
-	}
-
-	if (game.state === "game_over") {
-		view.prompt = game.victory
-	} else if (current === "Observer" || (game.active !== current && game.active !== BOTH)) {
-		let inactive = states[game.state].inactive || game.state
-		view.prompt = `Waiting for ${game.active} \u2014 ${inactive}.`
-	} else {
-		view.actions = {}
-		view.who = game.who
-		if (states[game.state])
-			states[game.state].prompt(current)
-		else
-			view.prompt = "Unknown state: " + game.state
-		if (view.actions.undo === undefined) {
-			if (game.undo && game.undo.length > 0)
-				view.actions.undo = 1
-			else
-				view.actions.undo = 0
-		}
-	}
-	return view
-}
-
-exports.action = function (state, current, action, arg) {
-	load_state(state)
-	// Object.seal(game) // XXX: don't allow adding properties
-	let S = states[game.state]
-	if (S && action in S) {
-		S[action](arg, current)
-	} else {
-		if (action === "undo" && game.undo && game.undo.length > 0)
-			pop_undo()
-		else
-			throw new Error("Invalid action: " + action)
-	}
-	return game
-}
-
-function gen_action(action, argument) {
-	if (!(action in view.actions))
-		view.actions[action] = []
-	set_add(view.actions[action], argument)
-}
-
-function gen_action_card_if_held(c) {
-	if (has_card_in_hand(c))
-		gen_action_card(c)
-}
-
-function prompt_select_lord(lord) {
-	if (lord !== game.who)
-		gen_action_lord(lord)
-}
-
-function action_select_lord(lord) {
-	if (game.who === lord)
-		game.who = NOBODY
-	else
-		game.who = lord
-}
-
-function gen_action_locale(locale) {
-	gen_action("locale", locale)
-}
-
-function gen_action_lord(lord) {
-	gen_action("lord", lord)
-}
-
-function gen_action_array(pos) {
-	gen_action("array", pos)
-}
-
-function gen_action_vassal(vassal) {
-	gen_action("vassal", vassal)
-}
-
-function gen_action_card(card_or_list) {
-	if (Array.isArray(card_or_list))
-		for (let c of card_or_list)
-			gen_action("card", c)
-	else
-		gen_action("card", card_or_list)
-}
-
-function gen_action_plan(lord) {
-	gen_action("plan", lord)
-}
-
-function gen_action_prov(lord) {
-	gen_action("prov", lord)
-}
-
-function gen_action_coin(lord) {
-	gen_action("coin", lord)
-}
-
-function gen_action_cart(lord) {
-	gen_action("cart", lord)
-}
-
-function gen_action_mercenaries(lord) {
-	gen_action("mercenaries", lord)
-}
-
-function gen_action_burgundians(lord) {
-	gen_action("burgundians", lord)
-}
-
-function gen_action_longbowmen(lord) {
-	gen_action("longbowmen", lord)
-}
-
-function gen_action_retinue(lord) {
-	gen_action("retinue", lord)
-}
-
-function gen_action_men_at_arms(lord) {
-	gen_action("men_at_arms", lord)
-}
-
-function gen_action_militia(lord) {
-	gen_action("militia", lord)
-}
-
-function gen_action_routed_mercenaries(lord) {
-	gen_action("routed_mercenaries", lord)
-}
-
-function gen_action_routed_longbowmen(lord) {
-	gen_action("routed_longbowmen", lord)
-}
-
-function gen_action_routed_burgundians(lord) {
-	gen_action("routed_burgundians", lord)
-}
-
-function gen_action_routed_men_at_arms(lord) {
-	gen_action("routed_men_at_arms", lord)
-}
-
-function gen_action_routed_militia(lord) {
-	gen_action("routed_militia", lord)
-}
-
-// === GAME OVER ===
-
-function goto_game_over(result, victory) {
-	game.state = "game_over"
-	game.active = "None"
-	game.result = result
-	game.victory = victory
-	log_h1("Game Over")
-	log(game.victory)
-	return true
-}
-
-states.game_over = {
-	get inactive() {
-		return game.victory
-	},
-	prompt() {
-		view.prompt = game.victory
-	},
-}
-
-// === UTILITY FUNCTIONS ===
-
-function push_state(next) {
-	if (!states[next])
-		throw Error("No such state: " + next)
-	game.stack.push([ game.state, game.who, game.count ])
-	game.state = next
-}
-
-function pop_state() {
-	[ game.state, game.who, game.count ] = game.stack.pop()
-}
-
-function save_state_for_the_kings_name() {
-	let copy = {}
-	for (let k in game) {
-		let v = game[k]
-		if (k === "undo")
-			v = undefined
-		else if (k === "log")
-			v = undefined
-		else if (typeof v === "object" && v !== null)
-			v = object_copy(v)
-		copy[k] = v
-	}
-	game.event_data = copy
-}
-
-function restore_state_for_the_kings_name() {
-	let save_log = game.log
-	let save_influence = game.influence
-	game = game.event_data
-	game.undo = []
-	game.log = save_log
-	game.influence = save_influence
-	game.event_data = 0
-}
-
-function delete_state_for_the_kings_name() {
-	game.event_data = 0
-}
-
-function clear_undo() {
-	if (game.undo.length > 0)
-		game.undo = []
-}
-
-function push_undo_without_who() {
-	let save_who = game.who
-	game.who = NOBODY
-	push_undo()
-	game.who = save_who
-}
-
-function push_undo() {
-	let copy = {}
-	for (let k in game) {
-		let v = game[k]
-		if (k === "undo")
-			continue
-		else if (k === "log")
-			v = v.length
-		else if (typeof v === "object" && v !== null)
-			v = object_copy(v)
-		copy[k] = v
-	}
-	game.undo.push(copy)
-}
-
-function pop_undo() {
-	let save_log = game.log
-	let save_undo = game.undo
-	game = save_undo.pop()
-	save_log.length = game.log
-	game.log = save_log
-	game.undo = save_undo
-}
-
-function roll_die() {
-	clear_undo()
-	return random(6) + 1
-}
-
-function random(range) {
-	// An MLCG using integer arithmetic with doubles.
-	// https://www.ams.org/journals/mcom/1999-68-225/S0025-5718-99-00996-5/S0025-5718-99-00996-5.pdf
-	// m = 2**35 − 31
-	return (game.seed = (game.seed * 200105) % 34359738337) % range
-}
-
-// Fast deep copy for objects without cycles
-function object_copy(original) {
-	if (Array.isArray(original)) {
-		let n = original.length
-		let copy = new Array(n)
-		for (let i = 0; i < n; ++i) {
-			let v = original[i]
-			if (typeof v === "object" && v !== null)
-				copy[i] = object_copy(v)
-			else
-				copy[i] = v
-		}
-		return copy
-	} else {
-		let copy = {}
-		for (let i in original) {
-			let v = original[i]
-			if (typeof v === "object" && v !== null)
-				copy[i] = object_copy(v)
-			else
-				copy[i] = v
-		}
-		return copy
-	}
-}
-
-// Packed array of small numbers in one word
-
-function pack1_get(word, n) {
-	return (word >>> n) & 1
-}
-
-function pack2_get(word, n) {
-	n = n << 1
-	return (word >>> n) & 3
-}
-
-function pack4_get(word, n) {
-	n = n << 2
-	return (word >>> n) & 15
-}
-
-function pack1_set(word, n, x) {
-	return (word & ~(1 << n)) | (x << n)
-}
-
-function pack2_set(word, n, x) {
-	n = n << 1
-	return (word & ~(3 << n)) | (x << n)
-}
-
-function pack4_set(word, n, x) {
-	n = n << 2
-	return (word & ~(15 << n)) | (x << n)
-}
-
-// Array remove and insert (faster than splice)
-
-function array_remove_item(array, item) {
-	let n = array.length
-	for (let i = 0; i < n; ++i)
-		if (array[i] === item)
-			return array_remove(array, i)
-}
-
-function array_remove(array, index) {
-	let n = array.length
-	for (let i = index + 1; i < n; ++i)
-		array[i - 1] = array[i]
-	array.length = n - 1
-}
-
-function array_insert(array, index, item) {
-	for (let i = array.length; i > index; --i)
-		array[i] = array[i - 1]
-	array[index] = item
-}
-
-function array_remove_pair(array, index) {
-	let n = array.length
-	for (let i = index + 2; i < n; ++i)
-		array[i - 2] = array[i]
-	array.length = n - 2
-}
-
-function array_insert_pair(array, index, key, value) {
-	for (let i = array.length; i > index; i -= 2) {
-		array[i] = array[i - 2]
-		array[i + 1] = array[i - 1]
-	}
-	array[index] = key
-	array[index + 1] = value
-}
-
-// Set as plain sorted array
-
-function set_has(set, item) {
-	let a = 0
-	let b = set.length - 1
-	while (a <= b) {
-		let m = (a + b) >> 1
-		let x = set[m]
-		if (item < x)
-			b = m - 1
-		else if (item > x)
-			a = m + 1
-		else
-			return true
-	}
-	return false
-}
-
-function set_add(set, item) {
-	let a = 0
-	let b = set.length - 1
-	while (a <= b) {
-		let m = (a + b) >> 1
-		let x = set[m]
-		if (item < x)
-			b = m - 1
-		else if (item > x)
-			a = m + 1
-		else
-			return
-	}
-	array_insert(set, a, item)
-}
-
-function set_delete(set, item) {
-	let a = 0
-	let b = set.length - 1
-	while (a <= b) {
-		let m = (a + b) >> 1
-		let x = set[m]
-		if (item < x)
-			b = m - 1
-		else if (item > x)
-			a = m + 1
-		else {
-			array_remove(set, m)
-			return
-		}
-	}
-}
-
-function set_toggle(set, item) {
-	let a = 0
-	let b = set.length - 1
-	while (a <= b) {
-		let m = (a + b) >> 1
-		let x = set[m]
-		if (item < x)
-			b = m - 1
-		else if (item > x)
-			a = m + 1
-		else {
-			array_remove(set, m)
-			return
-		}
-	}
-	array_insert(set, a, item)
-}
-
-// Map as plain sorted array of key/value pairs
-
-function map_get_pack4(map, lord, k) {
-	return pack4_get(map_get(map, lord, 0), k)
-}
-
-function map_set_pack4(map, lord, k, v) {
-	let val = pack4_set(map_get(map, lord, 0), k, v)
-	if (val === 0)
-		map_delete(map, lord)
-	else
-		map_set(map, lord, val)
-}
-
-function map2_get(map, x, y, v) {
-	return map_get(map, (x << 1) + y, v)
-}
-
-function map2_set(map, x, y, v) {
-	return map_set(map, (x << 1) + y, v)
-}
-
-function map2_delete(map, x, y) {
-	return map_delete(map, (x << 1) + y)
-}
-
-function map_has_value(map, value) {
-	for (let i = 1; i < map.length; i += 2)
-		if (map[i] === value)
-			return true
-	return false
-}
-
-function map_clear(map) {
-	map.length = 0
-}
-
-function map_has(map, key) {
-	let a = 0
-	let b = (map.length >> 1) - 1
-	while (a <= b) {
-		let m = (a + b) >> 1
-		let x = map[m << 1]
-		if (key < x)
-			b = m - 1
-		else if (key > x)
-			a = m + 1
-		else
-			return true
-	}
-	return false
-}
-
-function map_get(map, key, missing) {
-	let a = 0
-	let b = (map.length >> 1) - 1
-	while (a <= b) {
-		let m = (a + b) >> 1
-		let x = map[m << 1]
-		if (key < x)
-			b = m - 1
-		else if (key > x)
-			a = m + 1
-		else
-			return map[(m << 1) + 1]
-	}
-	return missing
-}
-
-function map_set(map, key, value) {
-	let a = 0
-	let b = (map.length >> 1) - 1
-	while (a <= b) {
-		let m = (a + b) >> 1
-		let x = map[m << 1]
-		if (key < x)
-			b = m - 1
-		else if (key > x)
-			a = m + 1
-		else {
-			map[(m << 1) + 1] = value
-			return
-		}
-	}
-	array_insert_pair(map, a << 1, key, value)
-}
-
-function map_delete(map, item) {
-	let a = 0
-	let b = (map.length >> 1) - 1
-	while (a <= b) {
-		let m = (a + b) >> 1
-		let x = map[m << 1]
-		if (item < x)
-			b = m - 1
-		else if (item > x)
-			a = m + 1
-		else {
-			array_remove_pair(map, m << 1)
-			return
-		}
-	}
-}
-
-// === FUZZING ASSERTS ===
-
-const mutually_exclusive_lords = [
-	[LORD_EXETER_1, LORD_EXETER_2],
-	[LORD_SOMERSET_1, LORD_SOMERSET_2],
-	[LORD_JASPER_TUDOR_1, LORD_JASPER_TUDOR_2],
-	[LORD_MARCH, LORD_EDWARD_IV],
-	[LORD_GLOUCESTER_1, LORD_GLOUCESTER_2, LORD_RICHARD_III],
-	[LORD_NORTHUMBERLAND_Y1, LORD_NORTHUMBERLAND_Y2, LORD_NORTHUMBERLAND_L],
-	[LORD_WARWICK_Y, LORD_WARWICK_L],
-	[LORD_YORK, LORD_EDWARD_IV, LORD_RICHARD_III],
-	[LORD_HENRY_VI, LORD_MARGARET],
-	[LORD_MARGARET, LORD_HENRY_TUDOR],
-	[LORD_HENRY_VI, LORD_HENRY_TUDOR],
-]
-
-function assert_mutually_exclusive_lords() {
-	for (const lords of mutually_exclusive_lords) {
-		if (lords.filter(is_lord_in_play).length > 1) {
-			const lord_names = lords.map(l => lord_name[l])
-			throw Error(`ASSERT: Mutually exclusive Lords [${lord_names}] can't be all in play.`)
-		}
-	}
-}
-
-function assert_all_lords_have_troops_or_retinue() {
-	for (let lord = first_york_lord; lord <= last_lancaster_lord; ++lord) {
-		if (is_lord_on_map(lord) && !count_lord_all_forces(lord) && !get_lord_forces(lord, RETINUE))
-			throw Error(`ASSERT: Lord "${lord_name[lord]}" without troops or retinue.`)
-	}
-}
-
-function assert_all_lords_on_land() {
-	for (let lord = first_york_lord; lord <= last_lancaster_lord; ++lord) {
-		if (is_lord_at_sea(lord))
-			throw Error(`ASSERT: Lord "${lord_name[lord]}" at sea during Levy phase.`)
-	}
-}
-
-function assert_all_lords_without_routed_troops() {
-	for (let lord = first_york_lord; lord <= last_lancaster_lord; ++lord) {
-		if (lord_has_routed_troops(lord))
-			throw Error(`ASSERT: Lord "${lord_name[lord]}" has routed troops during Levy phase.`)
-	}
-}
-
-exports.assert_state = function (state) {
-	load_state(state)
-
-	// assert_mutually_exclusive_lords()
-	if (game.state === "feed")
-		assert_all_lords_have_troops_or_retinue()
-
-	if (is_levy_phase()) {
-		assert_all_lords_on_land()
-		assert_all_lords_without_routed_troops()
-	}
-}
-
-let log_sanity = []
-exports.fuzz_log = function (fuzz_info) {
-	console.log(`${fuzz_info.state.state} - ${fuzz_info.actions} - - ${fuzz_info.args} [${fuzz_info.chosen_action}, ${fuzz_info.chosen_arg}]`)
-
-	log_sanity.push(fuzz_info.state.state)
-	if (log_sanity.length > 200) {
-		log_sanity = log_sanity.slice(1)
-
-		if (false)
-			if (log_sanity.every(l => l === fuzz_info.state.state)) {
-				console.log(`STATE`, fuzz_info.state)
-				console.log(`VIEW`, fuzz_info.view)
-				throw new Error("Too many times in the same state.")
-			}
-	}
-}
-
-if (false)
-	exports.fuzz_crash = function (state, view) {
-		for (let x = 0; x < log_sanity.length; x++) {
-			console.log(log_sanity[x])
-		}
-	}