//==================================================================================================

//  $Id: common.ai,v 1.68 2003/05/12 02:34:18 bfitch Exp $

//==================================================================================================

native DebugS               takes string str                            returns nothing

native DebugFI              takes string str, integer val               returns nothing

native DebugUnitID          takes string str, integer val               returns nothing

native DisplayText          takes integer p, string str                 returns nothing

native DisplayTextI         takes integer p, string str, integer val    returns nothing

native DisplayTextII        takes integer p, string str, integer v1, integer v2 returns nothing

native DisplayTextIII       takes integer p, string str, integer v1, integer v2, integer v3 returns nothing

native DoAiScriptDebug      takes nothing                               returns boolean

native GetAiPlayer          takes nothing                               returns integer

native GetHeroId            takes nothing                               returns integer

native GetHeroLevelAI       takes nothing                               returns integer

native GetUnitCount         takes integer unitid                        returns integer

native GetPlayerUnitTypeCount takes player p, integer unitid            returns integer

native GetUnitCountDone     takes integer unitid                        returns integer

native GetTownUnitCount     takes integer id, integer tn, boolean dn    returns integer

native GetUnitGoldCost      takes integer unitid                        returns integer

native GetUnitWoodCost      takes integer unitid                        returns integer

native GetUnitBuildTime     takes integer unitid                        returns integer

native GetMinesOwned        takes nothing                               returns integer

native GetGoldOwned         takes nothing                               returns integer

native TownWithMine         takes nothing                               returns integer

native TownHasMine          takes integer townid                        returns boolean

native TownHasHall          takes integer townid                        returns boolean

native GetUpgradeLevel      takes integer id                            returns integer

native GetUpgradeGoldCost   takes integer id                            returns integer

native GetUpgradeWoodCost   takes integer id                            returns integer

native GetNextExpansion     takes nothing                               returns integer

native GetMegaTarget        takes nothing                               returns unit

native GetBuilding          takes player p                              returns unit

native GetEnemyPower        takes nothing                               returns integer

native SetAllianceTarget    takes unit id                               returns nothing

native GetAllianceTarget    takes nothing                               returns unit

native SetProduce           takes integer qty, integer id, integer town returns boolean

native Unsummon             takes unit unitid                           returns nothing

native SetExpansion         takes unit peon, integer id                 returns boolean

native SetUpgrade           takes integer id                            returns boolean

native SetHeroLevels        takes code func                             returns nothing

native SetNewHeroes         takes boolean state                         returns nothing

native PurchaseZeppelin     takes nothing                               returns nothing

native MergeUnits           takes integer qty, integer a, integer b, integer make returns boolean

native ConvertUnits         takes integer qty, integer id               returns boolean

native SetCampaignAI        takes nothing                               returns nothing

native SetMeleeAI           takes nothing                               returns nothing

native SetTargetHeroes      takes boolean state                         returns nothing

native SetPeonsRepair       takes boolean state                         returns nothing

native SetRandomPaths       takes boolean state                         returns nothing

native SetDefendPlayer      takes boolean state                         returns nothing

native SetHeroesFlee        takes boolean state                         returns nothing

native SetHeroesBuyItems    takes boolean state                         returns nothing

native SetWatchMegaTargets  takes boolean state                         returns nothing

native SetIgnoreInjured     takes boolean state                         returns nothing

native SetHeroesTakeItems   takes boolean state                         returns nothing

native SetUnitsFlee         takes boolean state                         returns nothing

native SetGroupsFlee        takes boolean state                         returns nothing

native SetSlowChopping      takes boolean state                         returns nothing

native SetCaptainChanges    takes boolean allow                         returns nothing

native SetSmartArtillery    takes boolean state                         returns nothing

native SetReplacementCount  takes integer qty                           returns nothing

native GroupTimedLife       takes boolean allow                         returns nothing

native RemoveInjuries       takes nothing                               returns nothing

native RemoveSiege          takes nothing                               returns nothing

native InitAssault          takes nothing                               returns nothing

native AddAssault           takes integer qty, integer id               returns boolean

native AddDefenders         takes integer qty, integer id               returns boolean

native GetCreepCamp         takes integer min, integer max, boolean flyers_ok returns unit

native StartGetEnemyBase    takes nothing                               returns nothing

native WaitGetEnemyBase     takes nothing                               returns boolean

native GetEnemyBase         takes nothing                               returns unit

native GetExpansionFoe      takes nothing                               returns unit

native GetEnemyExpansion    takes nothing                               returns unit

native GetExpansionX        takes nothing                               returns integer

native GetExpansionY        takes nothing                               returns integer

native SetStagePoint        takes real x, real y                        returns nothing

native AttackMoveKill       takes unit target                           returns nothing

native AttackMoveXY         takes integer x, integer y                  returns nothing

native LoadZepWave          takes integer x, integer y                  returns nothing

native SuicidePlayer        takes player id, boolean check_full         returns boolean

native SuicidePlayerUnits   takes player id, boolean check_full         returns boolean

native CaptainInCombat      takes boolean attack_captain                returns boolean

native IsTowered            takes unit target                           returns boolean

native ClearHarvestAI       takes nothing                               returns nothing

native HarvestGold          takes integer town, integer peons           returns nothing

native HarvestWood          takes integer town, integer peons           returns nothing

native GetExpansionPeon     takes nothing                               returns unit

native StopGathering        takes nothing                               returns nothing

native AddGuardPost         takes integer id, real x, real y            returns nothing

native FillGuardPosts       takes nothing                               returns nothing

native ReturnGuardPosts     takes nothing                               returns nothing

native CreateCaptains       takes nothing                               returns nothing

native SetCaptainHome       takes integer which, real x, real y         returns nothing

native ResetCaptainLocs     takes nothing                               returns nothing

native ShiftTownSpot        takes real x, real y                        returns nothing

native TeleportCaptain      takes real x, real y                        returns nothing

native ClearCaptainTargets  takes nothing                               returns nothing

native CaptainAttack        takes real x, real y                        returns nothing

native CaptainVsUnits       takes player id                             returns nothing

native CaptainVsPlayer      takes player id                             returns nothing

native CaptainGoHome        takes nothing                               returns nothing

native CaptainIsHome        takes nothing                               returns boolean

native CaptainIsFull        takes nothing                               returns boolean

native CaptainIsEmpty       takes nothing                               returns boolean

native CaptainGroupSize     takes nothing                               returns integer

native CaptainReadiness     takes nothing                               returns integer

native CaptainRetreating    takes nothing                               returns boolean

native CaptainReadinessHP   takes nothing                               returns integer

native CaptainReadinessMa   takes nothing                               returns integer

native CaptainAtGoal        takes nothing                               returns boolean

native CreepsOnMap          takes nothing                               returns boolean

native SuicideUnit          takes integer count, integer unitid         returns nothing

native SuicideUnitEx        takes integer ct, integer uid, integer pid  returns nothing

native StartThread          takes code func                             returns nothing

native Sleep                takes real seconds                          returns nothing

native UnitAlive            takes unit id                               returns boolean

native UnitInvis            takes unit id                               returns boolean

native IgnoredUnits         takes integer unitid                        returns integer

native TownThreatened       takes nothing                               returns boolean

native DisablePathing       takes nothing                               returns nothing

native SetAmphibious        takes nothing                               returns nothing

native CommandsWaiting      takes nothing                               returns integer

native GetLastCommand       takes nothing                               returns integer

native GetLastData          takes nothing                               returns integer

native PopLastCommand       takes nothing                               returns nothing

native MeleeDifficulty      takes nothing                               returns integer

//============================================================================

//  Globals for all AI scripts

//============================================================================

globals

    //--------------------------------------------------------------------

    //  HUMANS

    //--------------------------------------------------------------------

    // human heroes

    constant integer ARCHMAGE           = 'Hamg'

    constant integer PALADIN            = 'Hpal'

    constant integer MTN_KING           = 'Hmkg'

    constant integer BLOOD_MAGE         = 'Hblm'

    // human hero abilities

    constant integer AVATAR             = 'AHav'

    constant integer BASH               = 'AHbh'

    constant integer THUNDER_BOLT       = 'AHtb'

    constant integer THUNDER_CLAP       = 'AHtc'

    constant integer DEVOTION_AURA      = 'AHad'

    constant integer DIVINE_SHIELD      = 'AHds'

    constant integer HOLY_BOLT          = 'AHhb'

    constant integer RESURRECTION       = 'AHre'

    constant integer BLIZZARD           = 'AHbz'

    constant integer BRILLIANCE_AURA    = 'AHab'

    constant integer MASS_TELEPORT      = 'AHmt'

    constant integer WATER_ELEMENTAL    = 'AHwe'

    constant integer BANISH             = 'AHbn'

    constant integer FLAME_STRIKE       = 'AHfs'

    constant integer SUMMON_PHOENIX     = 'AHpx'

    constant integer SIPHON_MANA        = 'AHdr'

    // special human heroes

    constant integer JAINA              = 'Hjai'

    constant integer MURADIN            = 'Hmbr'

    constant integer GARITHOS           = 'Hlgr'

    constant integer KAEL               = 'Hkal'

    // human units

    constant integer COPTER             = 'hgyr'

    constant integer GYRO               =  COPTER

    constant integer ELEMENTAL          = 'hwat'

    constant integer FOOTMAN            = 'hfoo'

    constant integer FOOTMEN            =  FOOTMAN

    constant integer GRYPHON            = 'hgry'

    constant integer KNIGHT             = 'hkni'

    constant integer MORTAR             = 'hmtm'

    constant integer PEASANT            = 'hpea'

    constant integer PRIEST             = 'hmpr'

    constant integer RIFLEMAN           = 'hrif'

    constant integer RIFLEMEN           =  RIFLEMAN

    constant integer TANK               = 'hmtt'

    constant integer STEAM_TANK         =  TANK

    constant integer ROCKET_TANK        = 'hrtt'

    constant integer MILITIA            = 'hmil'

    constant integer SPELL_BREAKER      = 'hspt'

    constant integer HUMAN_DRAGON_HAWK  = 'hdhw'

    // special human units

    constant integer BLOOD_PRIEST       = 'hbep'

    constant integer BLOOD_SORCERESS    = 'hbes'

    constant integer BLOOD_PEASANT      = 'nhew'

    // human buildings

    constant integer AVIARY             = 'hgra'

    constant integer BARRACKS           = 'hbar'

    constant integer BLACKSMITH         = 'hbla'

    constant integer CANNON_TOWER       = 'hctw'

    constant integer CASTLE             = 'hcas'

    constant integer CHURCH             = 'htws'

    constant integer MAGE_TOWER         =  CHURCH

    constant integer GUARD_TOWER        = 'hgtw'

    constant integer HOUSE              = 'hhou'

    constant integer HUMAN_ALTAR        = 'halt'

    constant integer KEEP               = 'hkee'

    constant integer LUMBER_MILL        = 'hlum'

    constant integer SANCTUM            = 'hars'

    constant integer ARCANE_SANCTUM     =  SANCTUM

    constant integer TOWN_HALL          = 'htow'

    constant integer WATCH_TOWER        = 'hwtw'

    constant integer WORKSHOP           = 'harm'

    constant integer ARCANE_VAULT       = 'hvlt'

    constant integer ARCANE_TOWER       = 'hatw'

    // human upgrades

    constant integer UPG_MELEE          = 'Rhme'

    constant integer UPG_RANGED         = 'Rhra'

    constant integer UPG_ARTILLERY      = 'Rhaa'

    constant integer UPG_ARMOR          = 'Rhar'

    constant integer UPG_GOLD           = 'Rhmi'

    constant integer UPG_MASONRY        = 'Rhac'

    constant integer UPG_SIGHT          = 'Rhss'

    constant integer UPG_DEFEND         = 'Rhde'

    constant integer UPG_BREEDING       = 'Rhan'

    constant integer UPG_PRAYING        = 'Rhpt'

    constant integer UPG_SORCERY        = 'Rhst'

    constant integer UPG_LEATHER        = 'Rhla'

    constant integer UPG_GUN_RANGE      = 'Rhri'

    constant integer UPG_WOOD           = 'Rhlh'

    constant integer UPG_SENTINEL       = 'Rhse'

    constant integer UPG_SCATTER        = 'Rhsr'

    constant integer UPG_BOMBS          = 'Rhgb'

    constant integer UPG_HAMMERS        = 'Rhhb'

    constant integer UPG_CONT_MAGIC     = 'Rhss'

    constant integer UPG_FRAGS          = 'Rhfs'

    constant integer UPG_TANK           = 'Rhrt'

    constant integer UPG_FLAK           = 'Rhfc'

    constant integer UPG_CLOUD          = 'Rhcd'

    //--------------------------------------------------------------------

    //  ORCS

    //--------------------------------------------------------------------

    // orc heroes

    constant integer BLADE_MASTER       = 'Obla'

    constant integer FAR_SEER           = 'Ofar'

    constant integer TAUREN_CHIEF       = 'Otch'

    constant integer SHADOW_HUNTER      = 'Oshd'

    // special orc heroes

    constant integer GROM               = 'Ogrh'

    constant integer THRALL             = 'Othr'

    // orc hero abilities

    constant integer CRITICAL_STRIKE    = 'AOcr'

    constant integer MIRROR_IMAGE       = 'AOmi'

    constant integer BLADE_STORM        = 'AOww'

    constant integer WIND_WALK          = 'AOwk'

    constant integer CHAIN_LIGHTNING    = 'AOcl'

    constant integer EARTHQUAKE         = 'AOeq'

    constant integer FAR_SIGHT          = 'AOfs'

    constant integer SPIRIT_WOLF        = 'AOsf'

    constant integer ENDURANE_AURA      = 'AOae'

    constant integer REINCARNATION      = 'AOre'

    constant integer SHOCKWAVE          = 'AOsh'

    constant integer WAR_STOMP          = 'AOws'

    constant integer HEALING_WAVE       = 'AOhw'

    constant integer HEX                = 'AOhx'

    constant integer SERPENT_WARD       = 'AOsw'

    constant integer VOODOO             = 'AOvd'

    // orc units

    constant integer GUARDIAN           = 'oang'

    constant integer CATAPULT           = 'ocat'

    constant integer WITCH_DOCTOR       = 'odoc'

    constant integer GRUNT              = 'ogru'

    constant integer HEAD_HUNTER        = 'ohun'

    constant integer BERSERKER          = 'otbk'

    constant integer KODO_BEAST         = 'okod'

    constant integer PEON               = 'opeo'

    constant integer RAIDER             = 'orai'

    constant integer SHAMAN             = 'oshm'

    constant integer TAUREN             = 'otau'

    constant integer WYVERN             = 'owyv'

    constant integer BATRIDER           = 'otbr'

    constant integer SPIRIT_WALKER      = 'ospw'

    constant integer SPIRIT_WALKER_M    = 'ospm'

    // orc buildings

    constant integer ORC_ALTAR          = 'oalt'

    constant integer ORC_BARRACKS       = 'obar'

    constant integer BESTIARY           = 'obea'

    constant integer FORGE              = 'ofor'

    constant integer FORTRESS           = 'ofrt'

    constant integer GREAT_HALL         = 'ogre'

    constant integer LODGE              = 'osld'

    constant integer STRONGHOLD         = 'ostr'

    constant integer BURROW             = 'otrb'

    constant integer TOTEM              = 'otto'

    constant integer ORC_WATCH_TOWER    = 'owtw'

    constant integer VOODOO_LOUNGE      = 'ovln'

    // orc upgrades

    constant integer UPG_ORC_MELEE      = 'Rome'

    constant integer UPG_ORC_RANGED     = 'Rora'

    constant integer UPG_ORC_ARTILLERY  = 'Roaa'

    constant integer UPG_ORC_ARMOR      = 'Roar'

    constant integer UPG_ORC_WAR_DRUMS  = 'Rwdm'

    constant integer UPG_ORC_PILLAGE    = 'Ropg'

    constant integer UPG_ORC_BERSERK    = 'Robs'

    constant integer UPG_ORC_PULVERIZE  = 'Rows'

    constant integer UPG_ORC_ENSNARE    = 'Roen'

    constant integer UPG_ORC_VENOM      = 'Rovs'

    constant integer UPG_ORC_DOCS       = 'Rowd'

    constant integer UPG_ORC_SHAMAN     = 'Rost'

    constant integer UPG_ORC_SPIKES     = 'Rosp'

    constant integer UPG_ORC_BURROWS    = 'Rorb'

    constant integer UPG_ORC_REGEN      = 'Rotr'

    constant integer UPG_ORC_FIRE       = 'Rolf'

    constant integer UPG_ORC_SWALKER    = 'Rowt'

    constant integer UPG_ORC_BERSERKER  = 'Robk'

    constant integer UPG_ORC_NAPTHA     = 'Robf'

    constant integer UPG_ORC_CHAOS      = 'Roch'

    // Warcraft 2 orc units

    constant integer OGRE_MAGI          = 'nomg'

    constant integer ORC_DRAGON         = 'nrwm'

    constant integer SAPPER             = 'ngsp'

    constant integer ZEPPLIN            = 'nzep'

    constant integer ZEPPELIN           =  ZEPPLIN

    constant integer W2_WARLOCK         = 'nw2w'

    constant integer PIG_FARM           = 'npgf'

    constant integer FOREST_TROLL       = 'nftr'

    constant integer DRAGON_ROOST       = 'ndrb'

    // special orc units

    constant integer CHAOS_GRUNT        = 'nchg'

    constant integer CHAOS_WARLOCK      = 'nchw'

    constant integer CHAOS_RAIDER       = 'nchr'

    constant integer CHAOS_PEON         = 'ncpn'

    constant integer CHAOS_KODO         = 'nckb'

    constant integer CHAOS_GROM         = 'Opgh'

    constant integer CHAOS_BLADEMASTER  = 'Nbbc'

    constant integer CHAOS_BURROW       = 'ocbw'

    //--------------------------------------------------------------------

    //  UNDEAD

    //--------------------------------------------------------------------

    // undead heroes

    constant integer DEATH_KNIGHT       = 'Udea'

    constant integer DREAD_LORD         = 'Udre'

    constant integer LICH               = 'Ulic'

    constant integer CRYPT_LORD         = 'Ucrl'

    // special undead heroes

    constant integer MALGANIS           = 'Umal'

    constant integer TICHONDRIUS        = 'Utic'

    constant integer PIT_LORD           = 'Npld'

    constant integer DETHEROC           = 'Udth'

    // undead hero abilities

    constant integer SLEEP              = 'AUsl'

    constant integer VAMP_AURA          = 'AUav'

    constant integer CARRION_SWARM      = 'AUcs'

    constant integer INFERNO            = 'AUin'

    constant integer DARK_RITUAL        = 'AUdr'

    constant integer DEATH_DECAY        = 'AUdd'

    constant integer FROST_ARMOR        = 'AUfu'

    constant integer FROST_NOVA         = 'AUfn'

    constant integer ANIM_DEAD          = 'AUan'

    constant integer DEATH_COIL         = 'AUdc'

    constant integer DEATH_PACT         = 'AUdp'

    constant integer UNHOLY_AURA        = 'AUau'

    constant integer CARRION_SCARAB     = 'AUcb'

    constant integer IMPALE             = 'AUim'

    constant integer LOCUST_SWARM       = 'AUls'

    constant integer THORNY_SHIELD      = 'AUts'

    // undead units

    constant integer ABOMINATION        = 'uabo'

    constant integer ACOLYTE            = 'uaco'

    constant integer BANSHEE            = 'uban'

    constant integer PIT_FIEND          = 'ucry'

    constant integer CRYPT_FIEND        =  PIT_FIEND

    constant integer FROST_WYRM         = 'ufro'

    constant integer GARGOYLE           = 'ugar'

    constant integer GARGOYLE_MORPH     = 'ugrm'

    constant integer GHOUL              = 'ugho'

    constant integer MEAT_WAGON         = 'umtw'

    constant integer NECRO              = 'unec'

    constant integer SKEL_WARRIOR       = 'uske'

    constant integer SHADE              = 'ushd'

    constant integer UNDEAD_BARGE       = 'uarb'

    constant integer OBSIDIAN_STATUE    = 'uobs'

    constant integer OBS_STATUE         =  OBSIDIAN_STATUE

    constant integer BLK_SPHINX         = 'ubsp'

    // undead buildings

    constant integer UNDEAD_MINE        = 'ugol'

    constant integer UNDEAD_ALTAR       = 'uaod'

    constant integer BONEYARD           = 'ubon'

    constant integer GARG_SPIRE         = 'ugsp'

    constant integer NECROPOLIS_1       = 'unpl'    // normal

    constant integer NECROPOLIS_2       = 'unp1'    // upgraded once

    constant integer NECROPOLIS_3       = 'unp2'    // full upgrade

    constant integer SAC_PIT            = 'usap'

    constant integer CRYPT              = 'usep'

    constant integer SLAUGHTERHOUSE     = 'uslh'

    constant integer DAMNED_TEMPLE      = 'utod'

    constant integer ZIGGURAT_1         = 'uzig'    // normal

    constant integer ZIGGURAT_2         = 'uzg1'    // upgraded

    constant integer ZIGGURAT_FROST     = 'uzg2'    // frost tower

    constant integer GRAVEYARD          = 'ugrv'

    constant integer TOMB_OF_RELICS     = 'utom'

    // undead upgrades

    constant integer UPG_UNHOLY_STR     = 'Rume'

    constant integer UPG_CR_ATTACK      = 'Rura'

    constant integer UPG_UNHOLY_ARMOR   = 'Ruar'

    constant integer UPG_CANNIBALIZE    = 'Ruac'

    constant integer UPG_GHOUL_FRENZY   = 'Rugf'

    constant integer UPG_FIEND_WEB      = 'Ruwb'

    constant integer UPG_ABOM           = 'Ruab'

    constant integer UPG_STONE_FORM     = 'Rusf'

    constant integer UPG_NECROS         = 'Rune'

    constant integer UPG_BANSHEE        = 'Ruba'

    constant integer UPG_MEAT_WAGON     = 'Rump'

    constant integer UPG_WYRM_BREATH    = 'Rufb'

    constant integer UPG_SKEL_LIFE      = 'Rusl'

    constant integer UPG_SKEL_MASTERY   = 'Rusm'

    constant integer UPG_EXHUME         = 'Ruex'

    constant integer UPG_SACRIFICE      = 'Rurs'

    constant integer UPG_ABOM_EXPL      = 'Ruax'

    constant integer UPG_CR_ARMOR       = 'Rucr'

    constant integer UPG_PLAGUE         = 'Rupc'

    constant integer UPG_BLK_SPHINX     = 'Rusp'

    constant integer UPG_BURROWING      = 'Rubu'

    //--------------------------------------------------------------------

    //  ELVES

    //--------------------------------------------------------------------

    // elf heroes

    constant integer DEMON_HUNTER       = 'Edem'

    constant integer DEMON_HUNTER_M     = 'Edmm'

    constant integer KEEPER             = 'Ekee'

    constant integer MOON_CHICK         = 'Emoo'

    constant integer MOON_BABE          =  MOON_CHICK

    constant integer MOON_HONEY         =  MOON_CHICK

    constant integer WARDEN             = 'Ewar'

    // special elf heroes

    constant integer SYLVANUS           = 'Hvwd'

    constant integer CENARIUS           = 'Ecen'

    constant integer ILLIDAN            = 'Eevi'

    constant integer ILLIDAN_DEMON      = 'Eevm'

    constant integer MAIEV              = 'Ewrd'

    // elf hero abilities

    constant integer FORCE_NATURE       = 'AEfn'

    constant integer ENT_ROOTS          = 'AEer'

    constant integer THORNS_AURA        = 'AEah'

    constant integer TRANQUILITY        = 'AEtq'

    constant integer EVASION            = 'AEev'

    constant integer IMMOLATION         = 'AEim'

    constant integer MANA_BURN          = 'AEmb'

    constant integer METAMORPHOSIS      = 'AEme'

    constant integer SEARING_ARROWS     = 'AHfa'

    constant integer SCOUT              = 'AEst'

    constant integer STARFALL           = 'AEsf'

    constant integer TRUESHOT           = 'AEar'

    constant integer BLINK              = 'AEbl'

    constant integer FAN_KNIVES         = 'AEfk'

    constant integer SHADOW_TOUCH       = 'AEsh'

    constant integer VENGEANCE          = 'AEsv'

    // elf units

    constant integer WISP               = 'ewsp'

    constant integer ARCHER             = 'earc'

    constant integer DRUID_TALON        = 'edot'

    constant integer DRUID_TALON_M      = 'edtm'

    constant integer BALLISTA           = 'ebal'

    constant integer DRUID_CLAW         = 'edoc'

    constant integer DRUID_CLAW_M       = 'edcm'

    constant integer DRYAD              = 'edry'

    constant integer HIPPO              = 'ehip'

    constant integer HIPPO_RIDER        = 'ehpr'

    constant integer HUNTRESS           = 'esen'

    constant integer CHIMAERA           = 'echm'

    constant integer ENT                = 'efon'

    constant integer MOUNTAIN_GIANT     = 'emtg'

    constant integer FAERIE_DRAGON      = 'efdr'

    // special elf units

    constant integer HIGH_ARCHER        = 'nhea'

    constant integer HIGH_FOOTMAN       = 'hcth'

    constant integer HIGH_FOOTMEN       =  HIGH_FOOTMAN

    constant integer HIGH_SWORDMAN      = 'hhes'

    constant integer DRAGON_HAWK        = 'nws1'

    constant integer CORRUPT_TREANT     = 'nenc'

    constant integer POISON_TREANT      = 'nenp'

    constant integer PLAGUE_TREANT      = 'nepl'

    constant integer SHANDRIS           = 'eshd'

    // elf buildings

    constant integer ANCIENT_LORE       = 'eaoe'

    constant integer ANCIENT_WAR        = 'eaom'

    constant integer ANCIENT_WIND       = 'eaow'

    constant integer TREE_AGES          = 'etoa'

    constant integer TREE_ETERNITY      = 'etoe'

    constant integer TREE_LIFE          = 'etol'

    constant integer ANCIENT_PROTECT    = 'etrp'

    constant integer ELF_ALTAR          = 'eate'

    constant integer BEAR_DEN           = 'edol'

    constant integer CHIMAERA_ROOST     = 'edos'

    constant integer HUNTERS_HALL       = 'edob'

    constant integer MOON_WELL          = 'emow'

    constant integer ELF_MINE           = 'egol'

    constant integer DEN_OF_WONDERS     = 'eden'

    // special elf buildings

    constant integer ELF_FARM           = 'nefm'

    constant integer ELF_GUARD_TOWER    = 'negt'

    constant integer HIGH_SKY           = 'negm'

    constant integer HIGH_EARTH         = 'negf'

    constant integer HIGH_TOWER         = 'negt'

    constant integer ELF_HIGH_BARRACKS  = 'nheb'

    constant integer CORRUPT_LIFE       = 'nctl'

    constant integer CORRUPT_AGES       = 'ncta'

    constant integer CORRUPT_ETERNITY   = 'ncte'

    constant integer CORRUPT_WELL       = 'ncmw'

    constant integer CORRUPT_PROTECTOR  = 'ncap'

    constant integer CORRUPT_WAR        = 'ncaw'

    // elf upgrades

    constant integer UPG_STR_MOON       = 'Resm'

    constant integer UPG_STR_WILD       = 'Resw'

    constant integer UPG_MOON_ARMOR     = 'Rema'

    constant integer UPG_HIDES          = 'Rerh'

    constant integer UPG_ULTRAVISION    = 'Reuv'

    constant integer UPG_BLESSING       = 'Renb'

    constant integer UPG_SCOUT          = 'Resc'

    constant integer UPG_GLAIVE         = 'Remg'

    constant integer UPG_BOWS           = 'Reib'

    constant integer UPG_MARKSMAN       = 'Remk'

    constant integer UPG_DRUID_TALON    = 'Redt'

    constant integer UPG_DRUID_CLAW     = 'Redc'

    constant integer UPG_ABOLISH        = 'Resi'

    constant integer UPG_CHIM_ACID      = 'Recb'

    constant integer UPG_HIPPO_TAME     = 'Reht'

    constant integer UPG_BOLT           = 'Repd'

    constant integer UPG_MARK_CLAW      = 'Reeb'

    constant integer UPG_MARK_TALON     = 'Reec'

    constant integer UPG_HARD_SKIN      = 'Rehs'

    constant integer UPG_RESIST_SKIN    = 'Rers'

    constant integer UPG_WELL_SPRING    = 'Rews'

    //--------------------------------------------------------------------

    // Neutral

    //--------------------------------------------------------------------

    constant integer DEMON_GATE         = 'ndmg'

    constant integer FELLHOUND          = 'nfel'

    constant integer INFERNAL           = 'ninf'

    constant integer DOOMGUARD          = 'nbal'

    constant integer SATYR              = 'nsty'

    constant integer TRICKSTER          = 'nsat'

    constant integer SHADOWDANCER       = 'nsts'

    constant integer SOULSTEALER        = 'nstl'

    constant integer HELLCALLER         = 'nsth'

    constant integer SKEL_ARCHER        = 'nska'

    constant integer SKEL_MARKSMAN      = 'nskm'

    constant integer SKEL_BURNING       = 'nskf'

    constant integer SKEL_GIANT         = 'nskg'

    constant integer FURBOLG            = 'nfrl'

    constant integer FURBOLG_TRACKER    = 'nfrb'

    constant integer FURBOLG_SHAMAN     = 'nfrs'

    constant integer FURBOLG_CHAMP      = 'nfrg'

    constant integer FURBOLG_ELDER      = 'nfre'

    //--------------------------------------------------------------------

    // NAGA

    //--------------------------------------------------------------------

    // naga heroes

    constant integer NAGA_SORCERESS     = 'Nngs'

    constant integer NAGA_VASHJ         = 'Hvsh'

    // naga units

    constant integer NAGA_DRAGON        = 'nsnp'        // old names

    constant integer NAGA_WITCH         = 'nnsw'

    constant integer NAGA_SERPENT       = 'nwgs'

    constant integer NAGA_HYDRA         = 'nhyc'

    constant integer NAGA_SLAVE         = 'nmpe'        // peon

    constant integer NAGA_SNAP_DRAGON   =  NAGA_DRAGON  // weak ranged

    constant integer NAGA_COUATL        =  NAGA_SERPENT // weak air

    constant integer NAGA_SIREN         =  NAGA_WITCH   // caster

    constant integer NAGA_MYRMIDON      = 'nmyr'        // knight

    constant integer NAGA_REAVER        = 'nnmg'        // footman

    constant integer NAGA_TURTLE        =  NAGA_HYDRA   // siege

    constant integer NAGA_ROYAL         = 'nnrg'        // royal guard

    // naga buildings

    constant integer NAGA_TEMPLE        = 'nntt'        // town hall

    constant integer NAGA_CORAL         = 'nnfm'        // farm

    constant integer NAGA_SHRINE        = 'nnsa'        // sirens & couatls

    constant integer NAGA_SPAWNING      = 'nnsg'        // myrm, snap dragon, hydra

    constant integer NAGA_GUARDIAN      = 'nntg'        // tower

    constant integer NAGA_ALTAR         = 'nnad'        // altar

    // naga upgrades

    constant integer UPG_NAGA_ARMOR     = 'Rnam'

    constant integer UPG_NAGA_ATTACK    = 'Rnat'

    constant integer UPG_NAGA_ABOLISH   = 'Rnsi'

    constant integer UPG_SIREN          = 'Rnsw'

    constant integer UPG_NAGA_ENSNARE   = 'Rnen'

    //--------------------------------------------------------------------

    constant integer M1                 =    60

    constant integer M2                 =  2*60

    constant integer M3                 =  3*60

    constant integer M4                 =  4*60

    constant integer M5                 =  5*60

    constant integer M6                 =  6*60

    constant integer M7                 =  7*60

    constant integer M8                 =  8*60

    constant integer M9                 =  9*60

    constant integer M10                = 10*60

    constant integer M11                = 11*60

    constant integer M12                = 12*60

    constant integer M13                = 13*60

    constant integer M14                = 14*60

    constant integer M15                = 15*60

    constant integer EASY               = 1

    constant integer NORMAL             = 2

    constant integer HARD               = 3

    constant integer INSANE             = 4 // not used

    constant integer MELEE_NEWBIE       = 1

    constant integer MELEE_NORMAL       = 2

    constant integer MELEE_INSANE       = 3

    constant integer ATTACK_CAPTAIN     = 1

    constant integer DEFENSE_CAPTAIN    = 2

    constant integer BOTH_CAPTAINS      = 3

    constant integer BUILD_UNIT         = 1

    constant integer BUILD_UPGRADE      = 2

    constant integer BUILD_EXPAND       = 3

    constant integer UPKEEP_TIER1       = 50

    constant integer UPKEEP_TIER2       = 80

    //--------------------------------------------------------------------

    player  ai_player

    integer sleep_seconds

    integer total_gold              = 0

    integer total_wood              = 0

    integer gold_buffer             = 0 // usually for potion money

    integer difficulty              = NORMAL

    integer exp_seen                = 0

    integer racial_farm             = 'hhou'

    integer hero_id                 = 'Hamg'

    integer hero_id2                = 'Hmkg'

    integer hero_id3                = 'Hpal'

    integer array skill

    integer array skills1

    integer array skills2

    integer array skills3

    integer max_hero_level          = 0

    integer array harass_qty

    integer array harass_max

    integer array harass_units

    integer harass_length           = 0

    integer array defense_qty

    integer array defense_units

    integer defense_length          = 0

    integer array build_qty

    integer array build_type

    integer array build_item

    integer array build_town

    integer build_length            = 0

    integer campaign_gold_peons     = 5

    integer campaign_wood_peons     = 3

    integer campaign_basics_speed   = 5

    integer min_creeps              = -1

    integer max_creeps              = -1

    boolean harvest_town1           = true

    boolean harvest_town2           = true

    boolean harvest_town3           = true

    boolean do_campaign_farms       = true

    boolean two_heroes              = false

    boolean allow_air_creeps        = false

    boolean take_exp                = false

    boolean allow_signal_abort      = false

    boolean ready_for_zeppelin      = true

    boolean get_zeppelin            = false

    boolean build_campaign_attackers = true

    boolean do_debug_cheats         = false

    boolean trace_on                = true

    boolean zep_next_wave           = false

    boolean form_group_timeouts     = true

endglobals

//============================================================================

function PlayerEx takes integer slot returns player

    return Player(slot-1)

endfunction

//============================================================================

function Trace takes string message returns nothing

    if trace_on then

        call DisplayText(GetAiPlayer(),message)

    endif

endfunction

//============================================================================

function TraceI takes string message, integer val returns nothing

    if trace_on then

        call DisplayTextI(GetAiPlayer(),message,val)

    endif

endfunction

//============================================================================

function TraceII takes string message, integer v1, integer v2 returns nothing

    if trace_on then

        call DisplayTextII(GetAiPlayer(),message,v1,v2)

    endif

endfunction

//============================================================================

function TraceIII takes string message, integer v1, integer v2, integer v3 returns nothing

    if trace_on then

        call DisplayTextIII(GetAiPlayer(),message,v1,v2,v3)

    endif

endfunction

//============================================================================

function InitAI takes nothing returns nothing

    set ai_player = Player(GetAiPlayer())

    set sleep_seconds = 0

    call StopGathering()

endfunction

//============================================================================

function StandardAI takes code heroes, code peons, code attacks returns nothing

    local boolean isNewbie = (MeleeDifficulty() == MELEE_NEWBIE)

    call InitAI()

    call SetMeleeAI()

    call SetDefendPlayer(true)

    call SetGroupsFlee(not isNewbie)

    call SetHeroesBuyItems(not isNewbie)

    call SetHeroesFlee(true)

    call SetHeroesTakeItems(true)

    call SetIgnoreInjured(true)

    call SetPeonsRepair(true)

    call SetSmartArtillery(not isNewbie)

    call SetTargetHeroes(not isNewbie)

    call SetUnitsFlee(not isNewbie)

    call SetWatchMegaTargets(true)

    call CreateCaptains()

    call SetHeroLevels(heroes)

    call Sleep(0.1)

    call StartThread(peons)

    call StartThread(attacks)

endfunction

//============================================================================

//  Utility Functions

//============================================================================

function Min takes integer A, integer B returns integer

    if A < B then

        return A

    else

        return B

    endif

endfunction

function Max takes integer A, integer B returns integer

    if A > B then

        return A

    else

        return B

    endif

endfunction

function SetZepNextWave takes nothing returns nothing

    set zep_next_wave = true

endfunction

function SuicideSleep takes integer seconds returns nothing

    set sleep_seconds = sleep_seconds - seconds

    loop

        exitwhen seconds <= 0

        exitwhen allow_signal_abort and CommandsWaiting() != 0

        if seconds >= 5 then

            call Sleep(5)

            set seconds = seconds - 5

        else

            call Sleep(seconds)

            set seconds = 0

        endif

    endloop

endfunction

//============================================================================

function WaitForSignal takes nothing returns integer

    local integer cmd

    local boolean display = false //xxx

    loop

        exitwhen CommandsWaiting() != 0

        //xxx

        call Trace("waiting for a signal to begin AI script...\n")

        set display = true

        call Sleep(2)

        exitwhen CommandsWaiting() != 0

        call Sleep(2)

        exitwhen CommandsWaiting() != 0

        call Sleep(2)

        exitwhen CommandsWaiting() != 0

        call Sleep(2)

        exitwhen CommandsWaiting() != 0

        call Sleep(2)

        //xxx

    endloop

    //xxx

    if display then

        call Trace("signal received, beginning AI script\n")

    endif

    //xxx

    set cmd = GetLastCommand()

    call PopLastCommand()

    return cmd

endfunction

//============================================================================

function SetWoodPeons takes integer count returns nothing

    set campaign_wood_peons = count

endfunction

//============================================================================

function SetGoldPeons takes integer count returns nothing

    set campaign_gold_peons = count

endfunction

//============================================================================

function SetHarvestLumber takes boolean harvest returns nothing

    if harvest then

        set campaign_wood_peons = 3

    else

        set campaign_wood_peons = 0

    endif

endfunction

//============================================================================

function SetFormGroupTimeouts takes boolean state returns nothing

    set form_group_timeouts = state

endfunction

//============================================================================

function DoCampaignFarms takes boolean state returns nothing

    set do_campaign_farms = state

endfunction

//============================================================================

function GetMinorCreep takes nothing returns unit

    return GetCreepCamp(0,9,false)

endfunction

//============================================================================

function GetMajorCreep takes nothing returns unit

    return GetCreepCamp(10,100,allow_air_creeps)

endfunction

//============================================================================

function GetGold takes nothing returns integer

    return GetPlayerState(ai_player,PLAYER_STATE_RESOURCE_GOLD)

endfunction

//============================================================================

function GetWood takes nothing returns integer

    return GetPlayerState(ai_player,PLAYER_STATE_RESOURCE_LUMBER)

endfunction

//============================================================================

function InitBuildArray takes nothing returns nothing

    set build_length = 0

endfunction

//============================================================================

function InitAssaultGroup takes nothing returns nothing

    set harass_length = 0

endfunction

//============================================================================

function InitDefenseGroup takes nothing returns nothing

    set defense_length = 0

endfunction

//============================================================================

function InitMeleeGroup takes nothing returns nothing

    call InitAssaultGroup()

    call RemoveInjuries()

    call RemoveSiege()

endfunction

//============================================================================

function PrepFullSuicide takes nothing returns nothing

    call InitAssaultGroup()

    call InitDefenseGroup()

    set campaign_gold_peons = 0

    set campaign_wood_peons = 0

endfunction

//============================================================================

function SetReplacements takes integer easy, integer med, integer hard returns nothing

    if difficulty == EASY then

        call SetReplacementCount(easy)

    elseif difficulty == NORMAL then

        call SetReplacementCount(med)

    else

        call SetReplacementCount(hard)

    endif

endfunction

//============================================================================

function StartTownBuilder takes code func returns nothing

    call StartThread(func)

endfunction

//============================================================================

function SetBuildAll takes integer t, integer qty, integer unitid, integer town returns nothing

    if qty > 0 then

        set build_qty[build_length] = qty

        set build_type[build_length] = t

        set build_item[build_length] = unitid

        set build_town[build_length] = town

        set build_length = build_length + 1

    endif

endfunction

//============================================================================

function SetBuildUnit takes integer qty, integer unitid returns nothing

    call SetBuildAll(BUILD_UNIT,qty,unitid,-1)

endfunction

//============================================================================

function SetBuildNext takes integer qty, integer unitid returns nothing

    local integer has = GetUnitCount(unitid)

    if has >= qty then

        return

    endif

    call SetBuildAll(BUILD_UNIT,GetUnitCountDone(unitid)+1,unitid,-1)

endfunction

//============================================================================

function SetBuildUnitEx takes integer easy, integer med, integer hard, integer unitid returns nothing