-----------------------------------------------------------------------Combat Units & Population---------------------------------------
function CombatUnitTrainedCity(iPlayer, iCity, iUnit, bGold, bFaith)
local pPlayer = Players[iPlayer]
local pUnit = pPlayer:GetUnitByID(iUnit)
local pCity = pPlayer:GetCityByID(iCity)
local CityPop = pCity:GetPopulation()
local NewCityPop = CityPop
if pUnit ~= nil then
if pUnit:GetUnitType()== GameInfoTypes.UNIT_SPARTAN300 or
GameInfoTypes.UNIT_NUMIDIAN or
GameInfoTypes.UNIT_ELITE_RIDER or
GameInfoTypes.UNIT_ZHENGHE_FLEET or
GameInfoTypes.UNIT_DANISH_SKI_INFANTRY or
GameInfoTypes.UNIT_PROTOTYPE_SUBMARINE or
GameInfoTypes.UNIT_LAND_IRONCLAD or
GameInfoTypes.UNIT_RUSSIAN_COSSACK or
GameInfoTypes.UNIT_SUPER_TANK or
GameInfoTypes.UNIT_ELITE_BATTLECRUISER or
GameInfoTypes.UNIT_SUPER_BATTLESHIP or
GameInfoTypes.UNIT_UNDERWATER_CARRIER or
GameInfoTypes.UNIT_TASKFORCE_141 or
GameInfoTypes.UNIT_MECH or
GameInfoTypes.UNIT_WARRIOR or
GameInfoTypes.UNIT_MILITIA_ANCIENT or
GameInfoTypes.UNIT_AMERICAN_MINUTEMAN or
GameInfoTypes.UNIT_IROQUOIAN_MOHAWKWARRIOR or
GameInfoTypes.UNIT_CONSCRIPTMAN or
GameInfoTypes.UNIT_MILITIA_MODERN or
GameInfoTypes.UNIT_NATIONAL_GUARD or
GameInfoTypes.UNIT_JAPANESE_SAMURAI or
GameInfoTypes.UNIT_FRENCH_MUSKETEER or
GameInfoTypes.UNIT_WWI_PARATROOPER or
GameInfoTypes.UNIT_MARINE or
GameInfoTypes.UNIT_PARATROOPER or
GameInfoTypes.UNIT_EGYPT_UNIT777 or
GameInfoTypes.UNIT_XCOM_SQUAD or
GameInfoTypes.UNIT_AZTEC_JAGUAR or
GameInfoTypes.UNIT_POLYNESIAN_MAORI_WARRIOR or
GameInfoTypes.UNIT_SWORDSMAN or
GameInfoTypes.UNIT_ROMAN_LEGION or
GameInfoTypes.UNIT_LONGSWORDSMAN or
GameInfoTypes.UNIT_KRIS_SWORDSMAN or
GameInfoTypes.UNIT_DANISH_BERSERKER or
GameInfoTypes.UNIT_MUSKETMAN or
GameInfoTypes.UNIT_MOTORISED_INFANTRY or
GameInfoTypes.UNIT_IROQUOIAN_MUSKETEER or
GameInfoTypes.UNIT_RIFLEMAN or
GameInfoTypes.UNIT_SWEDISH_CAROLEAN or
GameInfoTypes.UNIT_CELT_BLACKWATCH or
GameInfoTypes.UNIT_GREAT_WAR_INFANTRY or
GameInfoTypes.UNIT_ETHIOPIAN_MEHAL_SEFARI or
GameInfoTypes.UNIT_INFANTRY or
GameInfoTypes.UNIT_BRAZILIAN_PRACINHA or
GameInfoTypes.UNIT_MECHANIZED_INFANTRY or
GameInfoTypes.UNIT_SPEARMAN or
GameInfoTypes.UNIT_PERSIAN_IMMORTAL or
GameInfoTypes.UNIT_GREEK_HOPLITE or
GameInfoTypes.UNIT_CELT_PICTISH_WARRIOR or
GameInfoTypes.UNIT_PIKEMAN or
GameInfoTypes.UNIT_SPANISH_TERCIO or
GameInfoTypes.UNIT_ZULU_IMPI or
GameInfoTypes.UNIT_HORSEMAN or
GameInfoTypes.UNIT_CARTHAGINIAN_FOREST_ELEPHANT or
GameInfoTypes.UNIT_GREEK_COMPANIONCAVALRY or
GameInfoTypes.UNIT_BYZANTINE_CATAPHRACT or
GameInfoTypes.UNIT_KNIGHT or
GameInfoTypes.UNIT_SONGHAI_MUSLIMCAVALRY or
GameInfoTypes.UNIT_OTTOMAN_SIPAHI or
GameInfoTypes.UNIT_PERSIAN_CATAPHRACT or
GameInfoTypes.UNIT_LANCER or
GameInfoTypes.UNIT_SWEDISH_HAKKAPELIITTA or
GameInfoTypes.UNIT_POLISH_WINGED_HUSSAR or
GameInfoTypes.UNIT_SIAMESE_WARELEPHANT or
GameInfoTypes.UNIT_WWI_TANK or
GameInfoTypes.UNIT_TANK or
GameInfoTypes.UNIT_GERMAN_PANZER or
GameInfoTypes.UNIT_MAIN_BATTLE_TANK or
GameInfoTypes.UNIT_RUSSIAN_T80 or
GameInfoTypes.UNIT_ZULU_OLIFANT or
GameInfoTypes.UNIT_MODERN_ARMOR or
GameInfoTypes.UNIT_CHINESE_TYPE99 or
GameInfoTypes.UNIT_PERSIAN_ZULFIQAR or
GameInfoTypes.UNIT_CHARIOT_ARCHER or
GameInfoTypes.UNIT_EGYPTIAN_WARCHARIOT or
GameInfoTypes.UNIT_HUN_HORSE_ARCHER or
GameInfoTypes.UNIT_MEDIEVAL_CHARIOT or
GameInfoTypes.UNIT_MONGOLIAN_KESHIK or
GameInfoTypes.UNIT_ARABIAN_CAMELARCHER or
GameInfoTypes.UNIT_INDIAN_WARELEPHANT or
GameInfoTypes.UNIT_BOMBARD or
GameInfoTypes.UNIT_AZTEC_EAGLE or
GameInfoTypes.UNIT_CAVALRY or
GameInfoTypes.UNIT_AUSTRIAN_HUSSAR or
GameInfoTypes.UNIT_BERBER_CAVALRY or
GameInfoTypes.UNIT_SHOSHONE_COMANCHE_RIDERS or
GameInfoTypes.UNIT_CRUISER_TANK or
GameInfoTypes.UNIT_ENGLISH_CROMWELL_TANK or
GameInfoTypes.UNIT_HUN_BATTERING_RAM or
GameInfoTypes.UNIT_ASSYRIAN_SIEGE_TOWER or
GameInfoTypes.UNIT_NAVAL_MILITIA or
GameInfoTypes.UNIT_CORVETTE or
GameInfoTypes.UNIT_LITTORAL_COMBAT_SHIP or
GameInfoTypes.UNIT_DANISH_ABSALON or
GameInfoTypes.UNIT_TRIREME or
GameInfoTypes.UNIT_CARTHAGINIAN_QUINQUEREME or
GameInfoTypes.UNIT_GALLEASS or
GameInfoTypes.UNIT_DANISH_DRAGONSHIP or
GameInfoTypes.UNIT_FRIGATE or
GameInfoTypes.UNIT_OTTOMAN_PRIVATEER or
GameInfoTypes.UNIT_SPANISH_ARMADA or
GameInfoTypes.UNIT_IRONCLAD or
GameInfoTypes.UNIT_DESTROYER or
GameInfoTypes.UNIT_JAPANESE_DESTROYER or
GameInfoTypes.UNIT_MODERN_DESTROYER or
GameInfoTypes.UNIT_KOREAN_SEJONG_CLASS or
GameInfoTypes.UNIT_BYZANTINE_DROMON or
GameInfoTypes.UNIT_SLOOP_OF_WAR or
GameInfoTypes.UNIT_DUTCH_SEA_BEGGAR or
GameInfoTypes.UNIT_LIGHT_IRONCLAD or
GameInfoTypes.UNIT_SUBMARINE or
GameInfoTypes.UNIT_GERMAN_UBOAT or
GameInfoTypes.UNIT_NUCLEAR_SUBMARINE or
GameInfoTypes.UNIT_VENETIAN_GALLEASS or
GameInfoTypes.UNIT_KOREAN_TURTLE_SHIP or
GameInfoTypes.UNIT_SHIP_OF_THE_LINE or
GameInfoTypes.UNIT_ENGLISH_SHIPOFTHELINE or
GameInfoTypes.UNIT_SONGHAI_EXPEDITION_FLEET or
GameInfoTypes.UNIT_PROTECTED_CRUISER or
GameInfoTypes.UNIT_HEAVY_CRUISER or
GameInfoTypes.UNIT_GREEK_ARMORED_CRUISER or
GameInfoTypes.UNIT_MISSILE_CRUISER or
GameInfoTypes.UNIT_KIROV_BATTLECRUISER or
GameInfoTypes.UNIT_FRANCE_MISTRAL or
GameInfoTypes.UNIT_FRANCE_EUROCOPTER_TIGER or
GameInfoTypes.UNIT_DREADNOUGHT or
GameInfoTypes.UNIT_ROMAN_REUMBERTO or
GameInfoTypes.UNIT_BATTLESHIP or
GameInfoTypes.UNIT_JAPANESE_BATTLESHIP or
GameInfoTypes.UNIT_FUTURE_BATTLESHIP or
GameInfoTypes.UNIT_CARRIER or
GameInfoTypes.UNIT_NUCLEAR_CARRIER or
GameInfoTypes.UNIT_AMERICAN_NIMITZ or
GameInfoTypes.UNIT_SUPER_CARRIER or
GameInfoTypes.UNIT_CARAVEL or
GameInfoTypes.UNIT_PORTUGUESE_NAU or
GameInfoTypes.UNIT_SSBN then
NewCityPop = CityPop - 1
pCity:SetPopulation(NewCityPop, true)----Set Real Population
----Notifications
local text = Locale.ConvertTextKey("TXT_KEY_SP_NOTIFICATION_SETTLER_TRAINED_CITY", pUnit:GetName(), pCity:GetName())
local heading = Locale.ConvertTextKey("TXT_KEY_SP_NOTIFICATION_SETTLER_TRAINED_CITY_SHORT", pUnit:GetName(), pCity:GetName())
pPlayer:AddNotification(NotificationTypes.NOTIFICATION_STARVING, text, heading, pUnit:GetX(), pUnit:GetY())
end
end
end
GameEvents.CityTrained.Add(CombatUnitTrainedCity)