--found Wessex Cities
function FoundWessex()
if Game.GetElapsedGameTurns() == 0 then
-- Set up Wessex Player
for iPlayer=0, GameDefines.MAX_MAJOR_CIVS-1 do
local pWessex = Players[iPlayer]
if (GameInfo.Civilizations.CIVILIZATION_ENGLAND.ID == pWessex:GetCivilizationType()) then
pWessex:Found(31, 27) -- Winchester
pWessex:Found(29, 24)
--print (pWessex:GetName() ,"...is founding cities");
end
end
end
end
Events.SequenceGameInitComplete.Add(FoundWessex)
--Transfer cities to Winchester from Wessex
function FoundWessexWinchester()
local plotWinchester = Map.GetPlot(31, 27);
local Winchester = plotWinchester:GetPlotCity();
local pWinchester
if Game.GetElapsedGameTurns() == 0 then
for iPlayer=GameDefines.MAX_MAJOR_CIVS, GameDefines.MAX_CIV_PLAYERS-1, 1 do
local pWinchester = Players[iPlayer]
if pWinchester:IsEverAlive() and (GameInfo.MinorCivilizations.MINOR_CIV_WINCHESTER.ID == pWinchester:GetMinorCivType()) then
-- Enumerate cities
if Winchester ~= nil then
print("Transferring...", Winchester:GetName(), "from Wessex to" , pWinchester:GetName() )
pWinchester:AcquireCity(Winchester, false, true)
end
end
end
end
end
Events.SequenceGameInitComplete.Add(FoundWessexWinchester)