path: root/play.js

"use strict"

// vim: set nowrap:
/* globals data, view, action_button, action_button_with_argument, confirm_action_button, send_action, params
*/

function toggle_pieces() {
	// Cycle between showing everything, only pieces, and nothing.
	let hidden_pieces = ui.pieces_element.classList.contains("hide")
	let hidden_markers = ui.markers_element.classList.contains("hide")
	if (hidden_pieces && hidden_markers) {
		ui.pieces_element.classList.remove("hide")
		ui.markers_element.classList.remove("hide")
	} else if (hidden_pieces) {
		ui.markers_element.classList.add("hide")
	} else {
		ui.pieces_element.classList.add("hide")
	}
}

function toggle_shift() {
	document.body.classList.toggle("shift")
}

const last_city = data.cities.name.length - 1

const ELIMINATED_TRAIN_X = 340
const ELIMINATED_TRAIN_Y = 160
const ELIMINATED_TRAIN_DX = 33
const ELIMINATED_GENERAL_X = 340
const ELIMINATED_GENERAL_Y = 110
const ELIMINATED_GENERAL_DX = 50

const HUSSAR_X = 2190
const HUSSAR_Y = 1630

const VICTORY_BOX_X = [ 115, 170, 235 ]
const VICTORY_BOX_Y = [ 235, 290, 345, 401 ]

/* DATA (SHARED) */

const deck_name = [ "red", "green", "blue", "yellow" ]
const suit_name = [ "\u2660", "\u2663", "\u2665", "\u2666", "R" ]
const suit_class = [ "spades", "clubs", "hearts", "diamonds", "reserve" ]
const suit_letter = [ "S", "C", "H", "D", "R" ]

const P_FRANCE = 0
const P_PRUSSIA = 1
const P_PRAGMATIC = 2
const P_AUSTRIA = 3
const P_BAVARIA = 4
const P_SAXONY = 5

const power_name = [ "France", "Prussia", "Pragmatic Army", "Austria", "Bavaria", "Saxony" ]
const power_class = [ "france", "prussia", "pragmatic", "austria", "bavaria", "saxony" ]

const F_EMPEROR_FRANCE = 1
const F_EMPEROR_AUSTRIA = 2
const F_ITALY_FRANCE = 4
const F_ITALY_AUSTRIA = 8
const F_SILESIA_ANNEXED = 16

const SPADES = 0
const CLUBS = 1
const HEARTS = 2
const DIAMONDS = 3
const RESERVE = 4

const IMPERIAL_ELECTION = 25

const ELIMINATED = data.cities.name.length

const all_powers = [ 0, 1, 2, 3, 4, 5 ]

const all_power_generals = [
	[ 0, 1, 2, 3, 4 ],
	[ 5, 6, 7, 8 ],
	[ 9, 10, 11 ],
	[ 12, 13, 14, 15, 16, 17 ],
	[ 18 ],
	[ 19 ],
]

const all_power_trains = [
	[ 20, 21 ],
	[ 22, 23 ],
	[ 24 ],
	[ 25, 26, 27 ],
	[ 28 ],
	[ 29 ],
]

const last_piece = 29

const all_hussars = [ 30, 31 ]

const piece_power = [
	P_FRANCE, P_FRANCE, P_FRANCE, P_FRANCE, P_FRANCE,
	P_PRUSSIA, P_PRUSSIA, P_PRUSSIA, P_PRUSSIA,
	P_PRAGMATIC, P_PRAGMATIC, P_PRAGMATIC,
	P_AUSTRIA, P_AUSTRIA, P_AUSTRIA, P_AUSTRIA, P_AUSTRIA, P_AUSTRIA,
	P_BAVARIA,
	P_SAXONY,
	P_FRANCE, P_FRANCE,
	P_PRUSSIA, P_PRUSSIA,
	P_PRAGMATIC,
	P_AUSTRIA, P_AUSTRIA, P_AUSTRIA,
	P_BAVARIA,
	P_SAXONY,
	P_AUSTRIA, P_AUSTRIA
]

const piece_rank = [
	1, 2, 3, 4, 5,
	1, 2, 3, 4,
	1, 2, 3,
	1, 2, 3, 4, 5, 6,
	1,
	1,
]

const piece_abbr = [
	"F1", "F2", "F3", "F4", "F5",
	"P1", "P2", "P3", "P4",
	"PA1", "PA2", "PA3",
	"A1", "A2", "A3", "A4", "A5", "A6",
	"B1",
	"S1",
]

const piece_name = [
	"Moritz",
	"Belle-Isle",
	"Broglie",
	"Maillebois",
	"Noailles",
	"Friedrich",
	"Schwerin",
	"Leopold",
	"Dessauer",
	"George II",
	"Cumberland",
	"Earl of Stair",
	"Karl",
	"Traun",
	"Khevenhüller",
	"Batthyány",
	"Neipperg",
	"Arenberg",
	"Törring",
	"Rutowski",
	"supply train", "supply train",
	"supply train", "supply train",
	"supply train",
	"supply train", "supply train", "supply train",
	"supply train",
	"supply train",
	"hussar", "hussar",
]

const piece_log_name = [
	"Moritz",
	"Belle-Isle",
	"Broglie",
	"Maillebois",
	"Noailles",
	"Friedrich",
	"Schwerin",
	"Leopold",
	"Dessauer",
	"George II",
	"Cumberland",
	"Earl of Stair",
	"Karl",
	"Traun",
	"Khevenhüller",
	"Batthyány",
	"Neipperg",
	"Arenberg",
	"Törring",
	"Rutowski",
	"French ST", "French ST",
	"Prussian ST", "Prussian ST",
	"Pragmatic Army ST",
	"Austrian ST", "Austrian ST", "Austrian ST",
	"Bavarian ST",
	"Saxon ST",
	"Hussars", "Hussars",
]

function to_deck(c) {
	return c >> 7
}

function to_suit(c) {
	return (c >> 4) & 7
}

function to_value(c) {
	if (to_suit(c) === RESERVE)
		return 8
	return c & 15
}

/* SHOW PATHS */

const svgNS = "http://www.w3.org/2000/svg"

var _show_path_pcs = []
var _show_path = []

function make_road(a, b, type) {
	let e = document.createElementNS(svgNS, "line")
	e.setAttribute("class", type)
	let x1 = data.cities.x[a]
	let y1 = data.cities.y[a]
	let x2 = data.cities.x[b]
	let y2 = data.cities.y[b]

	/*
	let v = Math.hypot(x2 - x1, y2 - y1)
	let dx = (x2 - x1) / v
	let dy = (y2 - y1) / v
	let r = 18
	x1 += r * dx
	y1 += r * dy
	x2 -= r * dx
	y2 -= r * dy
	*/

	e.setAttribute("x1", x1)
	e.setAttribute("y1", y1)
	e.setAttribute("x2", x2)
	e.setAttribute("y2", y2)
	e.setAttribute("visibility", "hidden")
	document.getElementById("roads").appendChild(e)

	if (!ui.roads[a]) ui.roads[a] = {}
	if (!ui.roads[b]) ui.roads[b] = {}
	ui.roads[a][b] = e
	ui.roads[b][a] = e
}

function on_focus_path_tip(ps, ss) {
	_show_path_pcs = ps
	for (let p of _show_path_pcs)
		on_focus_piece_tip(p)
	hide_move_path()
	_show_path = ss
	show_move_path(view.pos[ps[0]] !== ss[ss.length-1])
	ui.status.textContent = ss.map(s => data.cities.name[s]).join(" - ")
}

function on_blur_path_tip() {
	for (let p of _show_path_pcs)
		on_blur_piece_tip(p)
	hide_move_path()
	ui.status.textContent = ""
}

function show_move_path(tip_end) {
	if (_show_path && _show_path.length > 0) {
		for (let i = 0; i < _show_path.length; ++i)
			ui.cities[_show_path[i]].classList.add("move")
		if (tip_end)
			ui.cities[_show_path[_show_path.length-1]].classList.add("tip")
		for (let i = 1; i < _show_path.length; ++i) {
			let x = _show_path[i-1]
			let y = _show_path[i]
			ui.roads[x][y].setAttribute("visibility", "visible")
		}
	}
}

function hide_move_path() {
	if (_show_path && _show_path.length > 0) {
		for (let i = 0; i < _show_path.length; ++i)
			ui.cities[_show_path[i]].classList.remove("move")
		ui.cities[_show_path[_show_path.length-1]].classList.remove("tip")
		for (let i = 1; i < _show_path.length; ++i) {
			let x = _show_path[i-1]
			let y = _show_path[i]
			ui.roads[x][y].setAttribute("visibility", "hidden")
		}
		_show_path = null
	}
}

/* PANEL ORDER */

const panel_order = [ P_FRANCE, P_BAVARIA, P_PRUSSIA, P_SAXONY, P_PRAGMATIC, P_AUSTRIA, 6 ]
const panel_start = {
	"Observer": 0,
	"Louis XV": 0,
	"Frederick": 2,
	"Maria Theresa": 5,
}

function remember_position(e) {
	if (e.parentElement) {
		let rect = e.getBoundingClientRect()
		e.my_parent = e.parentElement
		e.my_x = rect.x
		e.my_y = rect.y
	} else {
		e.my_parent = null
		e.my_x = 0
		e.my_y = 0
	}
}

function animate_position(e) {
	if (e.parentElement) {
		if (e.my_parent) {
			let rect = e.getBoundingClientRect()
			let dx = e.my_x - rect.x
			let dy = e.my_y - rect.y
			if (dx !== 0 || dy !== 0) {
				e.animate(
					[
						{ transform: `translate(${dx}px, ${dy}px)`, },
						{ transform: "translate(0, 0)", },
					],
					{ duration: 333, easing: "ease" }
				)
			}
		}
	}
}

function sort_power_panel(animate) {
	let start = panel_start[params.role] | 0

	if (animate)
		for (let i = 0; i < 7; ++i)
			remember_position(ui.power_panel[i])

	ui.power_panel_list.replaceChildren()
	for (let i = 0; i < 7; ++i) {
		let p = panel_order[(i + start) % 7]
		ui.power_panel_list.appendChild(ui.power_panel[p])
	}

	if (view && view.actions)
		ui.power_panel_list.prepend(ui.power_panel[view.power])

	if (animate)
		for (let i = 0; i < 7; ++i)
			animate_position(ui.power_panel[i])
}

/* BUILD UI */

const ui = {
	prompt: document.getElementById("prompt"),
	status: document.getElementById("status"),
	header: document.querySelector("header"),
	spaces_element: document.getElementById("spaces"),
	pieces_element: document.getElementById("pieces"),
	markers_element: document.getElementById("markers"),
	political_display: document.getElementById("political_display"),
	discard: [
		document.getElementById("discard_1"),
		document.getElementById("discard_2"),
		document.getElementById("discard_3"),
		document.getElementById("discard_4"),
	],
	power_panel_list: document.getElementById("power_panel_list"),
	power_header: [
		document.getElementById("hand_france_header"),
		document.getElementById("hand_prussia_header"),
		document.getElementById("hand_pragmatic_header"),
		document.getElementById("hand_austria_header"),
		document.getElementById("hand_bavaria_header"),
		document.getElementById("hand_saxony_header"),
		document.getElementById("political_header"),
	],
	power_panel: [
		document.getElementById("hand_france_panel"),
		document.getElementById("hand_prussia_panel"),
		document.getElementById("hand_pragmatic_panel"),
		document.getElementById("hand_austria_panel"),
		document.getElementById("hand_bavaria_panel"),
		document.getElementById("hand_saxony_panel"),
		document.getElementById("political_panel"),
	],
	hand: [
		document.getElementById("hand_france"),
		document.getElementById("hand_prussia"),
		document.getElementById("hand_pragmatic"),
		document.getElementById("hand_austria"),
		document.getElementById("hand_bavaria"),
		document.getElementById("hand_saxony"),
	],
	cities: [],
	roads: [],
	action_register: [],
}

function register_action(target, action, id) {
	target.my_id = id
	target.my_action = action
	target.onmousedown = (evt) => on_click_action(evt, target)
	ui.action_register.push(target)
}

function on_click_action(evt, target) {
	if (evt.button === 0)
		if (send_action(target.my_action, target.my_id))
			evt.stopPropagation()
}

function process_actions() {
	for (let target of ui.action_register)
		target.classList.toggle("action", is_action(target.my_action, target.my_id))
}

function is_action(action, arg) {
	if (arg === undefined)
		return !!(view.actions && view.actions[action] === 1)
	return !!(view.actions && view.actions[action] && set_has(view.actions[action], arg))
}

function create_element(action, id, style) {
	let e = document.createElement("div")
	e.className = style
	register_action(e, action, id)
	return e
}

function create_piece(action, id, style) {
	let e = document.createElement("div")
	e.className = style
	register_action(e, action, id)
	e.onmouseenter = on_focus_piece
	e.onmouseleave = on_blur_piece
	return e
}

function create_marker(style) {
	let e = document.createElement("div")
	e.className = style
	return e
}

function make_tc_deck(n) {
	for (let suit = 0; suit <= 3; ++suit) {
		for (let value = 2; value <= 10; ++value) {
			let c = (n << 7) | (suit << 4) | value
			ui.tc[c] = create_element("card", c, "card tc deck_" + (n+1) + " " + suit_class[suit] + " " + suit_letter[suit] + value)
		}
	}
	for (let value = 2; value <= 3; ++value) {
		let c = (n << 7) | (4 << 4) | value
		ui.tc[c] = create_element("card", c, "card tc deck_" + (n+1) + " reserve R")
	}
}

function make_tc_deck_back(n) {
	let list = []
	for (let i = 0; i < 38; ++i) {
		let e = document.createElement("div")
		e.className = "card tc reverse " + n
		list.push(e)
	}
	return list
}

function make_tc_deck_pile(n) {
	let list = []
	for (let i = 0; i < 10; ++i) {
		let e = document.createElement("div")
		e.className = "card tc pile reverse " + n
		list.push(e)
	}
	return list
}

function make_tc_deck_hand(n) {
	let list = []
	for (let i = 0; i < 100; ++i) {
		let e = document.createElement("div")
		e.className = "card tc hand reverse " + n
		list.push(e)
	}
	return list
}

function make_political_card(fc) {
	let e = document.createElement("div")
	if (fc === 0)
		e.className = "card political reverse"
	else
		e.className = "card political c" + fc
	return e
}

function on_init() {
	ui.pieces = [
		create_piece("piece", 0, "piece cylinder france france_1"),
		create_piece("piece", 1, "piece cylinder france france_2"),
		create_piece("piece", 2, "piece cylinder france france_3"),
		create_piece("piece", 3, "piece cylinder france france_4"),
		create_piece("piece", 4, "piece cylinder france france_5"),

		create_piece("piece", 5, "piece cylinder prussia prussia_1"),
		create_piece("piece", 6, "piece cylinder prussia prussia_2"),
		create_piece("piece", 7, "piece cylinder prussia prussia_3"),
		create_piece("piece", 8, "piece cylinder prussia prussia_4"),
		create_piece("piece", 9, "piece cylinder pragmatic pragmatic_1"),
		create_piece("piece", 10, "piece cylinder pragmatic pragmatic_2"),
		create_piece("piece", 11, "piece cylinder pragmatic pragmatic_3"),

		create_piece("piece", 12, "piece cylinder austria austria_1"),
		create_piece("piece", 13, "piece cylinder austria austria_2"),
		create_piece("piece", 14, "piece cylinder austria austria_3"),
		create_piece("piece", 15, "piece cylinder austria austria_4"),
		create_piece("piece", 16, "piece cylinder austria austria_5"),
		create_piece("piece", 17, "piece cylinder austria austria_6"),

		create_piece("piece", 18, "piece cylinder bavaria bavaria_1"),
		create_piece("piece", 19, "piece cylinder saxony saxony_1"),

		create_piece("piece", 20, "piece cube france"),
		create_piece("piece", 21, "piece cube france"),

		create_piece("piece", 22, "piece cube prussia"),
		create_piece("piece", 23, "piece cube prussia"),
		create_piece("piece", 24, "piece cube pragmatic"),

		create_piece("piece", 25, "piece cube austria"),
		create_piece("piece", 26, "piece cube austria"),
		create_piece("piece", 27, "piece cube austria"),

		create_piece("piece", 28, "piece cube bavaria"),
		create_piece("piece", 29, "piece cube saxony"),

		create_piece("piece", 30, "piece disc austria"),
		create_piece("piece", 31, "piece disc austria"),
	]

	ui.troops = []
	for (let i = 0; i < 20; ++i)
		ui.troops[i] = create_marker("hide")
	for (let e of ui.troops)
		ui.pieces_element.appendChild(e)

	ui.victory = [ [], [], [], [] ]
	ui.retro = [ [], [], [], [] ]
	for (let pow of [ P_FRANCE, P_PRUSSIA, P_PRAGMATIC, P_AUSTRIA ]) {
		ui.victory[pow] = []
		ui.retro[pow] = []
		for (let i = 0; i < 100; ++i) {
			ui.victory[pow].push(create_conquest("marker victory_marker_" + power_class[pow]))
			ui.retro[pow].push(create_conquest("marker question_marker_" + power_class[pow]))
		}
	}

	ui.elector = [ [], [], [], [], [], [] ]
	for (let i = 0; i < 10; ++i) {
		ui.elector[P_FRANCE].push(create_conquest("marker elector_marker_france"))
		ui.elector[P_PRUSSIA].push(create_conquest("marker elector_marker_prussia"))
		ui.elector[P_SAXONY].push(create_conquest("marker elector_marker_saxony"))
		ui.elector[P_AUSTRIA].push(create_conquest("marker elector_marker_austria_pragmatic"))
	}

	ui.tc = []
	make_tc_deck(0)
	make_tc_deck(1)
	make_tc_deck(2)
	make_tc_deck(3)

	ui.tc_back = [
		make_tc_deck_back("deck_1"),
		make_tc_deck_back("deck_2"),
		make_tc_deck_back("deck_3"),
		make_tc_deck_back("deck_4"),
	]

	ui.tc_hand = [
		// TODO: or make_tc_deck_pile ???
		make_tc_deck_hand("deck_1"),
		make_tc_deck_hand("deck_1"),
		make_tc_deck_hand("deck_1"),
		make_tc_deck_hand("deck_1"),
		make_tc_deck_hand("deck_1"),
		make_tc_deck_hand("deck_1"),
	]

	ui.tc_discard = [
		make_tc_deck_pile("deck_1"),
		make_tc_deck_pile("deck_2"),
		make_tc_deck_pile("deck_3"),
		make_tc_deck_pile("deck_4"),
	]

	ui.combat = document.createElement("div")
	ui.combat.id = "combat"
	ui.combat.style.zIndex = 2000

	ui.tcbreak = document.createElement("div")
	ui.tcbreak.className = "draw-break"

	ui.turn = document.createElement("div")
	ui.turn.className = "marker turn_marker"

	ui.saxony = document.createElement("div")
	ui.saxony.className = "marker political_marker_saxony"
	ui.russia = document.createElement("div")
	ui.russia.className = "marker political_marker_russia"
	ui.italy = document.createElement("div")
	ui.italy.className = "marker political_marker_italy"

	ui.political = []
	for (let fc = 0; fc <= 18; ++fc)
		ui.political[fc] = make_political_card(fc)

	for (let a = 0; a <= last_city; ++a) {
		let e = (ui.cities[a] = document.createElement("div"))
		let x = data.cities.x[a]
		let y = data.cities.y[a]

		if (set_has(data.type.major_fortress, a)) {
			e.className = "space major_fortress"
			x -= 16 + 6 + 4
			y -= 16 + 6 + 4
		} else if (set_has(data.type.minor_fortress, a)) {
			e.className = "space minor_fortress"
			x -= 14 + 5 + 4
			y -= 14 + 5 + 4
		} else if (set_has(data.type.box, a)) {
			e.className = "space box"
			if (data.cities.name[a] === "England") {
				e.className = "space box england"
				x -= 24 + 4
				y -= 28 + 4
			} else {
				x -= 22 + 4
				y -= 22 + 4
			}
		} else {
			e.className = "space city"
			x -= 9 + 5 + 4
			y -= 9 + 5 + 4
		}

		if (set_has(data.country.Austria, a))
			e.classList.add("country_austria")
		if (set_has(data.country.France, a))
			e.classList.add("country_france")
		if (set_has(data.country.Prussia, a))
			e.classList.add("country_prussia")
		if (set_has(data.country.Netherlands, a))
			e.classList.add("country_netherlands")
		if (set_has(data.country.Silesia, a))
			e.classList.add("country_silesia")
		if (set_has(data.country.Saxony, a))
			e.classList.add("country_saxony")
		if (set_has(data.country.Bavaria, a))
			e.classList.add("country_bavaria")
		if (set_has(data.country.Poland, a))
			e.classList.add("country_poland")
		if (set_has(data.country.Empire, a))
			e.classList.add("country_empire")

		register_action(e, "space", a)

		e.onmouseenter = on_focus_city
		e.onmouseleave = on_blur_city

		//e.classList.add("hide")
		e.style.left = x + "px"
		e.style.top = y + "px"

		ui.spaces_element.appendChild(e)
	}

	for (let a = 0; a <= last_city; ++a) {
		for (let b of data.cities.main_roads[a])
			if (a < b)
				make_road(a, b, "road")
		for (let b of data.cities.roads[a])
			if (a < b)
				make_road(a, b, "road")
	}

	sort_power_panel(false)

	update_favicon()
}

on_init()

/* TOOLTIPS */

function on_click_city_tip(loc) {
	ui.cities[loc].scrollIntoView({ block: "center", inline: "center", behavior: "smooth" })
}

function on_focus_city_tip(s) {
	ui.cities[s].classList.add("tip")
}

function on_blur_city_tip(s) {
	ui.cities[s].classList.remove("tip")
}

function on_click_piece_tip(loc) {
	ui.pieces[loc].scrollIntoView({ block: "center", inline: "center", behavior: "smooth" })
}

function on_focus_piece_tip(s) {
	ui.pieces[s].classList.add("tip")
}

function on_blur_piece_tip(s) {
	ui.pieces[s].classList.remove("tip")
}

function on_focus_city(evt) {
	ui.status.textContent = data.cities.name[evt.target.my_id]
}

function on_blur_city() {
	ui.status.textContent = ""
}

function on_focus_piece(evt) {
	let p = evt.target.my_id
	if (p < 20 && view.troops[p] > 0)
		ui.status.textContent = piece_log_name[evt.target.my_id] + " (" + view.troops[p] + " troops)"
	else
		ui.status.textContent = piece_log_name[evt.target.my_id]
}

function on_blur_piece() {
	ui.status.textContent = ""
}

/* UPDATE UI */

function layout_general_offset(who, here) {
	let other = -1
	for (let p = 0; p < 20; ++p)
		if (view.pos[p] === here && who !== p)
			other = p
	if (other < 0)
		return 0
	if ((view.supreme & (1 << who)) || view.selected === who)
		return 1
	if ((view.supreme & (1 << other)) || view.selected === other)
		return 0
	if (piece_rank[who] < piece_rank[other])
		return 1
	return 0
}

function layout_general_offset_elim(g) {
	let n = 0
	let p = get_cylinder_power(g)
	for (let i of all_power_generals[p])
		if (i > g && view.pos[i] === ELIMINATED)
			++n
	return n
}

function layout_train_offset(g, s) {
	let n = 0
	for (let i = 20; i < g; ++i)
		if (view.pos[i] === s)
			++n
	return n
}

function get_cylinder_power(id) {
	for (let p of all_powers)
		if (set_has(all_power_generals[p], id))
			return p
	return -1
}

function layout_hussar(id, s) {
	let e = ui.pieces[id]
	let n = 0
	let x, y

	if (e.parentElement !== ui.pieces_element)
		ui.pieces_element.appendChild(e)

	if (s === ELIMINATED) {
		x = HUSSAR_X
		y = HUSSAR_Y
		n = id - 30
	} else {
		x = data.cities.x[s]
		y = data.cities.y[s]
	}

	e.style.left = (x - 21 + n * ELIMINATED_GENERAL_DX) + "px"
	e.style.top = (y - 29 + 7) + "px"
	e.classList.toggle("selected", set_has(view.selected, id))
}

function layout_general(id, s) {
	let x, y, n

	if (s === ELIMINATED) {
		n = layout_general_offset_elim(id)
		x = ELIMINATED_GENERAL_X + ELIMINATED_GENERAL_DX * get_cylinder_power(id)
		y = ELIMINATED_GENERAL_Y
	} else {
		n = layout_general_offset(id, s)
		x = data.cities.x[s]
		y = data.cities.y[s]
	}

	let selected = set_has(view.selected, id)

	let e = ui.pieces[id]
	if (e.parentElement !== ui.pieces_element)
		ui.pieces_element.appendChild(e)
	e.style.left = (x - 21) + "px"
	e.style.top = (y - 29 - 15 * n) + "px"
	e.style.zIndex = y + n
	e.classList.toggle("selected", selected)
	e.classList.toggle("oos", (view.oos & (1 <<id)) !== 0)

	e = ui.troops[id]
	if (e.parentElement !== ui.pieces_element)
		ui.pieces_element.appendChild(e)
	e.style.left = (x - 7) + "px"
	e.style.top = (y + 2 - 15 * n) + "px"
	e.style.zIndex = y + n + 1
	e.className = power_class[piece_power[id]] + " piece number n" + view.troops[id]
}

function layout_train(id, s) {
	let e = ui.pieces[id]
	let n = layout_train_offset(id, s)
	let x, y

	if (e.parentElement !== ui.pieces_element)
		ui.pieces_element.appendChild(e)

	if (s === ELIMINATED) {
		x = ELIMINATED_TRAIN_X
		y = ELIMINATED_TRAIN_Y
	} else {
		x = data.cities.x[s]
		y = data.cities.y[s]
	}

	e.style.left = (x - 14 + n * ELIMINATED_TRAIN_DX) + "px"
	e.style.top = (y - 21 - n * 0) + "px"
	e.classList.toggle("selected", set_has(view.selected, id))
}

function layout_combat_marker() {
	let x = (data.cities.x[view.attacker] + data.cities.x[view.defender]) >> 1
	let y = (data.cities.y[view.attacker] + data.cities.y[view.defender]) >> 1
	ui.combat.style.left = x - 20 + "px"
	ui.combat.style.top = y - 20 + "px"
}

function layout_turn_marker() {
	if (view.turn > 0) {
		let t = view.turn - 1
		let row = (t / 3) | 0
		let col = (t % 3)
		let x = 2267 + col * 45
		let y = 79 + row * 52
		ui.turn.style.left = x - 16 + "px"
		ui.turn.style.top = y - 16 + "px"
		ui.markers_element.appendChild(ui.turn)
	}
}

function create_conquest(style) {
	let e = document.createElement("div")
	e.className = style
	return e
}

const used_victory = [ 0, 0, 0, 0, 0, 0 ]
const used_elector = [ 0, 0, 0, 0, 0, 0 ]
const used_retro = [ 0, 0, 0, 0, 0, 0 ]

function layout_victory(s, pow) {
	let e = ui.victory[pow][used_victory[pow]++]
	let x = data.cities.x[s]
	let y = data.cities.y[s]
	e.style.left = (x - 16) + "px"
	e.style.top = (y - 16) + "px"
	ui.markers_element.appendChild(e)
}

function layout_victory_box(pow, col, row) {
	let e = ui.victory[pow][used_victory[pow]++]
	let x = VICTORY_BOX_X[row]
	let y = VICTORY_BOX_Y[col]
	e.style.left = (x - 16) + "px"
	e.style.top = (y - 16) + "px"
	ui.markers_element.appendChild(e)
}

function layout_political_marker(e, col, row) {
	let x = 190 + (col-1) * 69
	let y = 72 + row * 86 + 16
	e.style.left = (x - 16) + "px"
	e.style.top = (y - 16) + "px"
	ui.political_display.appendChild(e)
}

function layout_retro(s, pow) {
	let e = ui.retro[pow][used_retro[pow]++]
	let x = data.cities.x[s]
	let y = data.cities.y[s]
	e.style.left = (x - 16) + "px"
	e.style.top = (y - 16) + "px"
	ui.markers_element.appendChild(e)
}

function layout_victory_pool(pow, max, x, y) {
	let n = view.vp[pow]
	if (pow === P_PRUSSIA) {
		if (view.flags & F_SILESIA_ANNEXED) ++n
	}
	if (pow === P_FRANCE) {
		if (view.flags & F_ITALY_FRANCE) ++n
		if (view.flags & F_EMPEROR_FRANCE) ++n
	}
	if (pow === P_AUSTRIA) {
		if (view.flags & F_ITALY_AUSTRIA) ++n
		if (view.flags & F_EMPEROR_AUSTRIA) ++n
	}
	for (let i = 0; i < view.victory.length; i += 2)
		if (view.victory[i+1] === pow)
			++n
	for (let i = 0; i < max - n; ++i) {
		let e = ui.victory[pow][used_victory[pow]++]
		e.style.left = (x - 16 + (i%5) * 20) + "px"
		e.style.top = (y - 16 + (i/5|0) * 20) + "px"
		ui.markers_element.appendChild(e)
	}
}

function layout_elector(s, pow) {
	let e = ui.elector[pow][used_elector[pow]++]
	let x = data.cities.x[s]
	let y = data.cities.y[s]
	e.style.left = (x - 16) + "px"
	e.style.top = (y - 16) + "px"
	ui.markers_element.appendChild(e)
}

function update_favicon() {
	let favicon = document.querySelector('link[rel="icon"]')
	switch (params.role) {
	case "Louis XV": favicon.href = "favicon/louis.png"; break
	case "Frederick": favicon.href = "favicon/fritz.png"; break
	default:
	case "Maria Theresa": favicon.href = "favicon/maria.png"; break
	}
}

function cmp_tc(a, b) {
	let ax = (to_suit(a) << 7) + (to_value(a) << 3) + to_deck(a)
	let bx = (to_suit(b) << 7) + (to_value(b) << 3) + to_deck(b)
	return ax - bx
}

const colorize_S = '<span class="suit spades">\u2660</span>'
const colorize_C = '<span class="suit clubs">\u2663</span>'
const colorize_H = '<span class="suit hearts">\u2665</span>'
const colorize_D = '<span class="suit diamonds">\u2666</span>'
const colorize_R = '$1<span class="suit reserve">R</span>'

const colorize_1 = '<span class="value deck_1">$1</span>'
const colorize_2 = '<span class="value deck_2">$1</span>'
const colorize_3 = '<span class="value deck_3">$1</span>'
const colorize_4 = '<span class="value deck_4">$1</span>'

function colorize(text) {
	text = text.replace(/1\^(\d+)/g, colorize_1)
	text = text.replace(/2\^(\d+)/g, colorize_2)
	text = text.replace(/3\^(\d+)/g, colorize_3)
	text = text.replace(/4\^(\d+)/g, colorize_4)
	text = text.replace(/(\d+)R/g, colorize_R)
	text = text.replaceAll("\u2660", colorize_S)
	text = text.replaceAll("\u2663", colorize_C)
	text = text.replaceAll("\u2665", colorize_H)
	text = text.replaceAll("\u2666", colorize_D)
	return text
}

function on_prompt(text) {
	return colorize(text)
}

function on_update() {
	ui.header.classList.toggle("france", view.power === P_FRANCE)
	ui.header.classList.toggle("bavaria", view.power === P_BAVARIA)
	ui.header.classList.toggle("prussia", view.power === P_PRUSSIA)
	ui.header.classList.toggle("saxony", view.power === P_SAXONY)
	ui.header.classList.toggle("pragmatic", view.power === P_PRAGMATIC)
	ui.header.classList.toggle("austria", view.power === P_AUSTRIA)

	used_victory.fill(0)
	used_elector.fill(0)
	used_retro.fill(0)

	sort_power_panel(true)

	for (let p = 0; p < 20; ++p)
		layout_general(p, view.pos[p])
	for (let p = 20; p < 30; ++p)
		layout_train(p, view.pos[p])
	for (let p = 30; p < 32; ++p)
		layout_hussar(p, view.pos[p])

	let back = [ 0, 0, 0, 0 ]

	for (let pow of all_powers) {
		/*
		let banner = `${power_name[pow]} \u2014 ${view.pt[pow]} troops`
		let m_obj = count_total_objectives(pow)
		if (m_obj > 0) {
			let n_obj = count_captured_objectives(pow)
			if (pow === P_AUSTRIA && view.oo)
				m_obj += "*"
			banner += ` \u2014 ${n_obj} of ${m_obj} objectives`
		}
		ui.power_header[pow].textContent = banner
		*/

		ui.hand[pow].replaceChildren()
		if (typeof view.hand[pow] === "number") {
			for (let i = 0; i < view.hand[pow]; ++i)
				ui.hand[pow].appendChild(ui.tc_hand[pow][i])
		} else {
			view.hand[pow].sort(cmp_tc)
			for (let c of view.hand[pow]) {
				if ((c & 15) === 0)
					ui.hand[pow].appendChild(ui.tc_back[c>>7][back[c>>7]++])
				else
					ui.hand[pow].appendChild(ui.tc[c])
			}
		}
	}

	if (view.draw) {
		view.draw.sort(cmp_tc)
		if (view.hand[view.power].length > 0)
			ui.hand[view.power].appendChild(ui.tcbreak)
		for (let c of view.draw)
			ui.hand[view.power].appendChild(ui.tc[c])
	}

	ui.political_display.replaceChildren()
	layout_political_marker(ui.saxony, view.saxony, 0)
	layout_political_marker(ui.russia, view.russia, 1)
	layout_political_marker(ui.italy, view.italy, 2)

	for (let deck = 0; deck < 4; ++deck) {
		ui.discard[deck].replaceChildren()
		for (let i = 0; i < view.discard[deck]; ++i)
			ui.discard[deck].appendChild(ui.tc_discard[deck][i])
	}

	ui.markers_element.replaceChildren()

	for (let i = 0; i < view.victory.length; i += 2)
		layout_victory(view.victory[i], view.victory[i+1])
	for (let i = 0; i < view.elector.length; i += 2)
		layout_elector(view.elector[i], view.elector[i+1])
	for (let i = 0; i < view.retro.length; i += 2)
		layout_retro(view.retro[i], view.retro[i+1])

	layout_victory_pool(P_FRANCE, 11, 83, 1560)
	layout_victory_pool(P_AUSTRIA, 8, 2334, 1561)
	layout_victory_pool(P_PRUSSIA, 13, 1927, 76)
	layout_victory_pool(P_PRAGMATIC, 8, 797, 98)

	// battle vp
	if (view.vp[P_PRUSSIA] > 0) layout_victory_box(P_PRUSSIA, 0, 0)
	if (view.vp[P_PRUSSIA] > 1) layout_victory_box(P_PRUSSIA, 0, 1)
	if (view.vp[P_PRAGMATIC] > 0) layout_victory_box(P_PRAGMATIC, 1, 0)
	if (view.vp[P_PRAGMATIC] > 1) layout_victory_box(P_PRAGMATIC, 1, 1)
	if (view.vp[P_FRANCE] > 0) layout_victory_box(P_FRANCE, 2, 0)
	if (view.vp[P_FRANCE] > 1) layout_victory_box(P_FRANCE, 2, 1)
	if (view.vp[P_AUSTRIA] > 0) layout_victory_box(P_AUSTRIA, 3, 0)
	if (view.vp[P_AUSTRIA] > 1) layout_victory_box(P_AUSTRIA, 3, 1)

	if (view.flags & F_SILESIA_ANNEXED)
		layout_victory_box(P_PRUSSIA, 0, 2)

	let elector_france = 0
	let elector_pragmatic = 0
	for (let i = 0; i < 8; i += 2) {
		if (view.elector[i+1] === P_FRANCE)
			elector_france ++
		else
			elector_pragmatic ++
	}
	if (elector_france >= 3)
		layout_victory_box(P_FRANCE, 1, 2)
	if (elector_pragmatic >= 3)
		layout_victory_box(P_PRAGMATIC, 1, 2)

	if (view.flags & F_ITALY_FRANCE)
		layout_victory_box(P_FRANCE, 2, 2)
	if (view.flags & F_ITALY_AUSTRIA)
		layout_victory_box(P_AUSTRIA, 2, 2)

	if (view.flags & F_EMPEROR_FRANCE)
		layout_victory_box(P_FRANCE, 3, 2)
	if (view.flags & F_EMPEROR_AUSTRIA)
		layout_victory_box(P_AUSTRIA, 3, 2)

	layout_turn_marker()

	if (view.attacker !== undefined && view.defender !== undefined) {
		ui.markers_element.appendChild(ui.combat)
		layout_combat_marker()
	}

	for (let v = 16; v >= 0; --v)
		action_button_with_argument("value", v, v)

	for (let p = 0; p < 20; ++p)
		action_button_with_argument("supreme", p, power_name[piece_power[p]])

	for (let pow of all_powers)
		action_button_with_argument("power", pow, power_name[pow])

	action_button("re_enter", "Re-enter")
	action_button("force_march", "Force march")

	action_button("take", "Take")
	action_button("give", "Give")
	action_button("recruit", "Recruit")
	action_button("transfer", "Transfer")

	action_button("stop", "Stop")
	action_button("pass", "Pass")
	action_button("next", "Next")
	action_button("done", "Done")

	action_button("end_cards", "End card draw")
	action_button("end_setup", "End setup")
	action_button("end_recruit", "End recruit")
	action_button("end_movement", "End movement")
	action_button("end_combat", "End combat")
	action_button("end_supply", "End supply")
	action_button("end_turn", "End turn")

	confirm_action_button("confirm_end_movement", "End movement",
		"You have NOT moved ANY pieces!\nAre you sure you want to SKIP movement?")

	action_button("undo", "Undo")

	process_actions()
}

/* LOG */

function sub_piece(match, p1) {
	let x = p1 | 0
	let n = piece_log_name[x]
	let p = power_class[piece_power[x]]
	return `<span class="piece_tip ${p}" onclick="on_click_piece_tip(${x})" onmouseenter="on_focus_piece_tip(${x})" onmouseleave="on_blur_piece_tip(${x})">${n}</span>`
}

function sub_space(match, p1) {
	let x = p1 | 0
	let n = data.cities.name[x]
	return `<span class="city_tip" onclick="on_click_city_tip(${x})" onmouseenter="on_focus_city_tip(${x})" onmouseleave="on_blur_city_tip(${x})">${n}</span>`
}

function sub_path(pieces_and_spaces) {
	let ps = pieces_and_spaces[0].split(",")
	let ss = pieces_and_spaces[1].split(",")
	let x = ss[ss.length-1]
	let ps_name = ps.map(p => piece_log_name[p]).join(" and ")
	let ss_name = data.cities.name[x]
	return `<span onclick="on_click_city_tip(${x})" onmouseenter="on_focus_path_tip([${ps.join(",")}],[${ss.join(",")}])" onmouseleave="on_blur_path_tip()">${ps_name} to ${ss_name}.</span>`
}

function on_log(text) {
	let p = document.createElement("div")

	if (text.match(/^>>/)) {
		text = text.substring(2)
		p.className = "ii"
	}

	if (text.match(/^>/)) {
		text = text.substring(1)
		p.className = "i"
	}

	if (text.match(/^!/)) {
		text = "Combat"
		p.className = "combat"
	}

	text = text.replace(/&/g, "&amp;")
	text = text.replace(/</g, "&lt;")
	text = text.replace(/>/g, "&gt;")

	text = text.replaceAll(" 1 troops", " 1 troop")

	text = colorize(text)
	text = text.replace(/S(\d+)/g, sub_space)
	text = text.replace(/P(\d+)/g, sub_piece)

	if (text.startsWith("#")) {
		p.className = "h turn"
		text = text.substring(2)
	}
	else if (text.startsWith("=")) {
		p.className = "h " + power_class[text[1]]
		if (text.length === 2)
			text = power_name[text[1]]
		else
			text = text.substring(2)
	}
	else if (text.startsWith("@")) {
		p.className = "move_tip"
		text = sub_path(text.substring(1).split(";"))
	}

	p.innerHTML = text
	return p
}

/* COMMON LIBRARY */

function array_insert(array, index, item) {
	for (let i = array.length; i > index; --i)
		array[i] = array[i - 1]
	array[index] = item
}

function set_has(set, item) {
	if (set === item) return true
	if (set === undefined) return false
	if (set === null) return false
	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_add_all(set, other) {
	for (let item of other)
		set_add(set, item)
}