local iDiplomatCount = 0
local iCurrentCount = 0
function CheckForDiplomats(iPlayer)
local pPlayer = Players[iPlayer]
iDiplomatCount = 0
iCurrentCount = 0
for k, v in pairs(pPlayer:GetEspionageSpies()) do
iCurrentCount = iDiplomatCount
if v.IsDiplomat then
iDiplomatCount = iCurrentCount + 1
end
end
AddDelegates(pPlayer)
end
function AddDelegates(thePlayer)
if (thePlayer:IsAlive()) then
if (thePlayer:GetCivilizationType() == GameInfoTypes.CIVILIZATION_SWISS) then
if thePlayer:GetCapitalCity() then
pCapital = thePlayer:GetCapitalCity()
if iDiplomatCount == 0 then
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_01"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_02"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_03"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_04"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_05"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_06"], 0)
elseif iDiplomatCount == 1 then
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_02"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_03"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_04"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_05"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_06"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_01"], 1)
elseif iDiplomatCount == 2 then
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_01"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_03"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_04"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_05"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_06"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_02"], 1)
elseif iDiplomatCount == 3 then
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_01"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_02"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_04"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_05"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_06"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_03"], 1)
elseif iDiplomatCount == 4 then
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_01"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_02"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_03"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_05"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_06"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_04"], 1)
elseif iDiplomatCount == 5 then
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_01"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_02"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_03"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_04"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_06"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_05"], 1)
elseif iDiplomatCount == 6 then
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_01"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_02"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_03"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_04"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_05"], 0)
pCapital:SetNumRealBuilding(GameInfoTypes["BUILDING_SWISS_DELEGATE_06"], 1)
end
end
end
end
end
GameEvents.PlayerDoTurn.Add(CheckForDiplomats)