Uighur_Caesar's Civilizations

local activePlayerID = Game.GetActivePlayer()
local activePlayer = Players[activePlayerID]
local civilisationID = GameInfoTypes.CIVILIZATION_CAESAR_NORTHERN_IRELAND
local isCivActive = IsCivilisationActive(civilisationID)
local isCivActivePlayer = activePlayer:GetCivilizationType() == civilisationID

local iPromotion = GameInfoTypes.PROMOTION_LIGHT_CRUISER

function IsCivilisationActive(civilisationID)
	for iSlot = 0, GameDefines.MAX_MAJOR_CIVS-1, 1 do
		local slotStatus = PreGame.GetSlotStatus(iSlot)
		if (slotStatus == SlotStatus["SS_TAKEN"] or slotStatus == SlotStatus["SS_COMPUTER"]) then
			if PreGame.GetCivilization(iSlot) == civilisationID then
				return true
			end
		end
	end

	return false
end

function CaesarLightCruiserCode(iPlayer)
	local pPlayer = Players[iPlayer]
	
	for pUnit in pPlayer:Units() do
		if pUnit:IsHasPromotion(iPromotion) then
			
			--Movement Transfer
			local iMovement = pUnit:GetMoves()
			local pPlot = pUnit:GetPlot()
			local iNumUnits = pPlot:GetNumUnits()
			for iVal = 0,(iNumUnits - 1) do
				local pUnit = pPlot:GetUnit(iVal)
				if (pUnit:IsEmbarked()) and (pUnit:GetMoves() < iMovement) then
					pUnit:SetMoves(iMovement)
				end
			end
		end
	end
end
GameEvents.PlayerDoTurn.Add(CaesarLightCruiserCode)

local buildingCaesarNavalDockyard = GameInfoTypes["BUILDING_CAESAR_NAVAL_DOCKYARD"]
local unitPromotionCaesarNavalDockyard = GameInfoTypes["PROMOTION_CAESAR_NAVAL_DOCKYARD"] 

function Caesar_NavalDockyard(playerID)
	if pPlayer:IsAlive() then
		for city in pPlayer:Cities() do
			local cityPlot = city:Plot()
			local navalGarrison = false
			for unitID = 0, cityPlot:GetNumUnits() - 1, 1 do
				if (cityPlot and cityPlot:GetUnit(unitID):IsHasPromotion(unitPromotionCaesarNavalDockyard)) then
					navalGarrison = true
					break
				end
			end

			if navalGarrison then
				if (not city:IsHasBuilding(buildingCaesarNavalDockyard)) then
					city:SetNumRealBuilding(buildingCaesarNavalDockyard, 1)
				end
			else
				if city:IsHasBuilding(buildingCaesarNavalDockyard) then
					city:SetNumRealBuilding(buildingCaesarNavalDockyard, 0)
				end
			end
		end
	end
end
GameEvents.PlayerDoTurn.Add(Caesar_NavalDockyard)

local unitTriremeID = GameInfoTypes["UNIT_TRIREME"]
local unitGalleassID = GameInfoTypes["UNIT_GALLEASS"]
local unitCaravelID = GameInfoTypes["UNIT_CARAVEL"]
local unitFrigateID = GameInfoTypes["UNIT_FRIGATE"]
local unitPrivateerID = GameInfoTypes["UNIT_PRIVATEER"]
local unitIroncladID = GameInfoTypes["UNIT_IRONCLAD"]
local unitLightCruiserID = GameInfoTypes["UNIT_LIGHT_CRUISER"]
local unitBattleshipID = GameInfoTypes["UNIT_BATTLESHIP"]
local unitCarrierID = GameInfoTypes["UNIT_CARRIER"]
local unitSubmarineID = GameInfoTypes["UNIT_SUBMARINE"]
local unitMissileCruiserID = GameInfoTypes["UNIT_MISSILE_CRUISER"]
local unitNuclearSubmarineID = GameInfoTypes["UNIT_NUCLEAR_SUBMARINE"]
local unitWorkBoatID = GameInfoTypes["UNIT_WORK_BOAT"]
local unitCargoShipID = GameInfoTypes["UNIT_CARGO_SHIP"]
local yieldProductionID = GameInfoTypes["YIELD_PRODUCTION"]

function CaesarNavalGoldConstruction(playerID)
	local player = Players[playerID]
	if (player:IsAlive() and player:GetCivilizationType() == civilisationID) then
		for city in player:Cities() do
			if city:GetProductionUnit() == unitTriremeID or unitGalleassID or unitCaravelID or unitFrigateID or unitPrivateerID or unitIroncladID or unitLightCruiserID or unitBattleshipID or unitCarrierID or unitSubmarineID or unitMissileCruiserID or unitNuclearSubmarineID or unitWorkBoatID or unitCargoShipID then
				local GoldFromShips = city:GetBaseYieldRate(yieldProductionID)
				player:ChangeGold(GoldFromShips)
				if player:IsHuman() then
					Events.AddPopupTextEvent(HexToWorld(ToHexFromGrid(Vector2(city:GetX(), city:GetY()))), Locale.ConvertTextKey("[COLOR_POSITIVE_TEXT]+{1_Num}[ENDCOLOR] [ICON_GOLD]", goldenAgePoints))
				end
			end
		end
	end
end

if isCivActive then
	GameEvents.PlayerDoTurn.Add(CaesarNavalGoldConstruction)
end