Server_AdvanceTurn.lua

require('Utilities');

function Server_AdvanceTurn_Order(game, order, result, skipThisOrder, addNewOrder)
	--Check if we see a Build Fort event.  If we do, add it to a global list that we'll check in BuildForts() below.
	if (order.proxyType == 'GameOrderCustom' and startsWith(order.Payload, 'BuildFort_')) then  --look for the order that we inserted in Client_PresentMenuUI
		--Extract territory ID from the payload
		local terrID = tonumber(string.sub(order.Payload, 11));

		--Make sure the player controls this territory, and do nothing if they don't.
		if (game.ServerGame.LatestTurnStanding.Territories[terrID].OwnerPlayerID ~= order.PlayerID) then return; end;

		--Make sure this player has a fort to build, and do nothing if they don't have any.
		local playerData = Mod.PlayerGameData;
		if (playerData[order.PlayerID] == nil) then return; end;
		if (playerData[order.PlayerID].NumForts == nil) then return; end;
		if (playerData[order.PlayerID].NumForts <= 0) then return; end;

		--Deduct one fort from their total
		playerData[order.PlayerID].NumForts = playerData[order.PlayerID].NumForts - 1;
		Mod.PlayerGameData = playerData;

		--Build the fort. We could add it with addNewOrder right here, but that would result in forts being built mid-turn, but we want them built at the end of the turn.  So instead add them to a list here, and we'll call addNewOrder for each in Server_AdvanceTurn_End
		local pendingFort = {};
		pendingFort.PlayerID = order.PlayerID;
		pendingFort.Message = order.Message;
		pendingFort.TerritoryID = terrID;


		local priv = Mod.PrivateGameData;
		if (priv.PendingForts == nil) then priv.PendingForts = {}; end;
		table.insert(priv.PendingForts, pendingFort);
		Mod.PrivateGameData = priv;

		skipThisOrder(WL.ModOrderControl.SkipAndSupressSkippedMessage); --skip this order just to avoid clutter in the orders list, since our GameOrderEvent will serve as the message.
	end

	--Check if this is an attack against a territory with a fort.
	if (order.proxyType == 'GameOrderAttackTransfer' and result.IsAttack) then
		local structures = game.ServerGame.LatestTurnStanding.Territories[order.To].Structures;

		--If no fort here, abort.
		if (structures == nil) then return; end;
		if (structures[WL.StructureType.ArmyCamp] == nil) then return; end;
		if (structures[WL.StructureType.ArmyCamp] <= 0) then return; end;

		--Attack found against a fort!  Cancel any defenders that died, and remove the fort.
		result.DefendingArmiesKilled = WL.Armies.Create(0);

		structures[WL.StructureType.ArmyCamp] = structures[WL.StructureType.ArmyCamp] - 1;

		local terrMod = WL.TerritoryModification.Create(order.To);
		terrMod.SetStructuresOpt = structures;
		addNewOrder(WL.GameOrderEvent.Create(order.PlayerID, 'Destroyed a fort', {}, {terrMod}));
	end
end
function Server_AdvanceTurn_End(game, addNewOrder)
	BuildForts(game, addNewOrder);
	CheckAwardForts(game);
end

function BuildForts(game, addNewOrder)
	--Build any forts that we queued in up Server_AdvanceTurn_Order
	
	local priv = Mod.PrivateGameData;
	if (priv.PendingForts == nil) then return; end;


	for _,pendingFort in pairs(priv.PendingForts) do
		local structures = game.ServerGame.LatestTurnStanding.Territories[pendingFort.TerritoryID].Structures;

		if (structures == nil) then structures = {}; end;
		if (structures[WL.StructureType.ArmyCamp] == nil) then
			structures[WL.StructureType.ArmyCamp] = 1;
		else
			structures[WL.StructureType.ArmyCamp] = structures[WL.StructureType.ArmyCamp] + 1;
		end
	
		local terrMod = WL.TerritoryModification.Create(pendingFort.TerritoryID);
		terrMod.SetStructuresOpt = structures;
	
		addNewOrder(WL.GameOrderEvent.Create(pendingFort.PlayerID, pendingFort.Message, {}, {terrMod}));
	end

	priv.PendingForts = nil;
	Mod.PrivateGameData = priv;
end

function CheckAwardForts(game)
	--If it's the right turn to award forts, grant one to each player who's still alive in the game
	if ((game.Game.NumberOfTurns + 1) % Mod.Settings.TurnsToGetFort ~= 0) then return; end; --skip if we don't give forts on this turn

	local playerData = Mod.PlayerGameData;

	for _,gp in pairs(filter(game.Game.PlayingPlayers, function(gp) return not gp.IsAI; end)) do
		if (playerData[gp.ID] == nil) then
			playerData[gp.ID] = {};
		end

		if (playerData[gp.ID].NumForts == nil) then
			playerData[gp.ID].NumForts = 1;
		else
			playerData[gp.ID].NumForts = playerData[gp.ID].NumForts + 1;
		end
		
	end

	Mod.PlayerGameData = playerData;

end