- Joined
- Mar 16, 2008
- Messages
- 955
EDIT SOLVED: computer player was trying to expand to an island, crashing game. i fixed by making island goldmines not have "gold mine" ability then give them that ability during the game, so players can use but AI players won't detect those goldmines.
UPDATE: it did crash on another test but i also changed some other things in the script. really confused how it ran that long without crashing... still trying to get to the bottom this...
I've tried so many things, adding so many conditions, checking if any impossible orders are given, turning off all AI related triggers, flattening all terrain and removing doodads. I'm just not sure what else to try at this point.
I would say there's a techtree violation somewhere in the build priorities however this script has successfully ran for over 3 hours, completing its build priority list. Most of the time it crashes after 2 hours. Sometimes it crashes in as little as 40 minutes, one time in 4 minutes. Some games the AIs kill eachother after a few hours, ending the game before it can crash.
If anyone could even give me a a theory on what might cause the crash, something I could try to test to rule out, I'd be grateful. Because I've ran out of ideas to test. At this point I'm just reading over the script and I don't see anything wrong.
UPDATE: it did crash on another test but i also changed some other things in the script. really confused how it ran that long without crashing... still trying to get to the bottom this...
I've tried so many things, adding so many conditions, checking if any impossible orders are given, turning off all AI related triggers, flattening all terrain and removing doodads. I'm just not sure what else to try at this point.
I would say there's a techtree violation somewhere in the build priorities however this script has successfully ran for over 3 hours, completing its build priority list. Most of the time it crashes after 2 hours. Sometimes it crashes in as little as 40 minutes, one time in 4 minutes. Some games the AIs kill eachother after a few hours, ending the game before it can crash.
If anyone could even give me a a theory on what might cause the crash, something I could try to test to rule out, I'd be grateful. Because I've ran out of ideas to test. At this point I'm just reading over the script and I don't see anything wrong.
JASS:
//===========================================================================
//
// King AI
//
//===========================================================================
//***************************************************************************
//*
//* Global Variables
//*
//***************************************************************************
globals
integer Tier = 0
integer attackWave = 0
integer nextDelay = 0
integer awGold = 0
integer awWood = 0
/// Conditions
boolean gCond_Need_Town_Hall = false
boolean gCond_Needs_Garrison = false
boolean gCond_Needs_Stable = false
boolean gCond_Needs_Farm = false
boolean gCond_Need_Guard_Tower = false
boolean gCond_Need_Research_Center = false
boolean gCond_Need_LM = false
boolean gCond_Need_BS = false
boolean gCond_Need_Market = false
boolean gCond_Need_WizTower = false
/// Units
/// King Heroes
constant integer SOVEREIGN = 'H01L'
constant integer MONARCH = 'HC18'
constant integer MAJESTY = 'H03I'
/// Prince Heroes
/// constant integer PALADIN = 'Hpal'
constant integer MAGE = 'H01G'
constant integer WARRIOR = 'H03J'
/// King Hero Abilities
constant integer ROYAL_BANISH = 'A006'
constant integer KING_AURA = 'A00K'
constant integer KING_COURT = 'A00C'
/// constant integer THUNDER_CLAP = 'AHtc' /// Sovereign only / "Royal Revenge"
constant integer ROYAL_SHOCKWAVE = 'A06G' /// Monarch only
constant integer ROYAL_BLIZZARD = 'A06H' /// Majesty only
constant integer ROYAL_SUMMON = 'A01H' /// based on blizzard spell so ais tend to use improperly
/// Prince Hero Abilities
/// constant integer HOLY_BOLT = 'AHhb' /// Holy Light / "Royal Blessing"
/// constant integer BLINK = 'AEbl' /// Royal Mage only
/// constant integer DIVINE_SHIELD = 'AHds' /// Royal Pally only
/// constant integer DEVOTION_AURA = 'AHad'
constant integer BLESSED_FIELD = 'A077' /// Royal Pally only
/// constant integer MASS_TELEPORT = 'AHmt' /// Royal Mage only
constant integer ATTRIBUTE_BONUS = 'Aamk'
constant integer FERAL_IMPACT = 'A01U' /// Royal Warrior only
constant integer CRIT_STRIKE = 'A06K' /// Royal Warrior only
constant integer ROYAL_AVATAR = 'A06I' /// Royal Warrior only
constant integer ROYAL_BLADESTORM = 'A06J' /// Royal Warrior only
/// Buildings
constant integer TOME_LIBRARY = 'nC03'
constant integer KING_VAULT = 'nC02'
constant integer ROYAL_ALTAR = 'h01N'
constant integer FRUIT_STAND = 'nfrt'
constant integer MERC_CAMP = 'nmer'
constant integer ANTICAMP_TOWER = 'nC51'
/// constant integer CASTLE = 'hcas'
/// constant integer TOWN_HALL = 'htow'
/// constant integer LUMBER_MILL = 'hlum'
/// constant integer BLACKSMITH = 'hbla'
constant integer ROYAL_BARRACKS = 'h02P'
constant integer FARM_1 = 'h003'
constant integer FARM_2 = 'h005'
constant integer FARM_3 = 'h006'
constant integer FARM_4 = 'h007'
constant integer FARM_5 = 'h00S'
/// constant integer BARRACKS = 'hbar' /// "Stables" (tier 1)
constant integer STABLES_2 = 'h00A'
constant integer STABLES_3 = 'h00B'
constant integer STABLES_4 = 'h00K'
constant integer GARRISON_1 = 'h00F'
constant integer GARRISON_2 = 'h00G'
constant integer GARRISON_3 = 'h00H'
constant integer ROYAL_FACTORY = 'h01F'
constant integer RESEARCH_CENTER_1 = 'h01H'
constant integer RESEARCH_CENTER_2 = 'h02Q'
constant integer FOUNTAIN = 'n020'
constant integer ROYAL_SHIPYARD = 'h01S'
constant integer STONEMASON_TOWER = 'h02Y'
constant integer ROYAL_WORKSHOP = 'h02Z'
constant integer FARM_COTTAGE = 'h034'
/// constant integer SANCTUM = 'hars' /// "Tower of Wizardry"
constant integer TOWER_WIZARDRY_2_BUILT = 'h031'
constant integer TOWER_WIZARDRY_2_UPGRADE = 'h03H'
constant integer ROYAL_CHURCH = 'h01A'
/// constant integer ARCANE_VAULT = 'hvlt' /// "Royal Market" (tier 1)
constant integer ROYAL_MARKET_2 = 'h01K'
constant integer BASIC_TOWER = 'h00R'
/// constant integer GUARD_TOWER = 'hgtw' /// Tier 1 Guard Tower
constant integer GUARD_TOWER_3 = 'h00P'
/// constant integer CANNON_TOWER = 'hctw' /// "Cannon Tower" (tier 1)
constant integer CANNON_TOWER_2 = 'h033'
/// constant integer ARCANE_TOWER = 'hatw' /// "Arcane Tower" (tier 1)
constant integer ARCANE_TOWER_2 = 'h018'
constant integer ARCANE_TOWER_3 = 'h02V'
constant integer TOWER_COLD_1 = 'ndt1'
constant integer TOWER_COLD_2 = 'ndt2'
constant integer TOWER_COLD_3 = 'n01H'
constant integer TOWER_COLD_4 = 'n01I'
constant integer TOWER_FLAME_1 = 'nft1'
constant integer TOWER_FLAME_2 = 'nft2'
constant integer TOWER_FLAME_3 = 'n029'
constant integer TOWER_FLAME_4 = 'n02A'
constant integer TOWER_FLAME_5 = 'n02B'
constant integer TOWER_FLAME_6 = 'n02C'
constant integer TOWER_ROYAL_1 = 'hC17'
constant integer TOWER_ROYAL_2 = 'h000'
constant integer TOWER_ROYAL_3 = 'h001'
constant integer TOWER_ROYAL_4 = 'h00C'
constant integer TOWER_ROYAL_SKY = 'n00D'
/// Units
/// constant integer PEASANT = 'hpea'
constant integer ROYAL_ENGINEER = 'n004'
constant integer ROYAL_ENGINEER_2 = 'n01L'
/// constant integer FOOTMAN = 'hfoo' /// "Crusader"
/// constant integer KNIGHT = 'hkni' /// "Royal Knight" (tier 1)
/// constant integer MORTAR = 'hmtm' /// "Royal Cannon"
/// constant integer PRIEST = 'hmpr'
/// constant integer SORCERESS = 'hsor' /// "Anime Witch"
/// constant integer HIGH_FOOTMAN = 'hcth' /// "Field Captain"
/// constant integer HIGH_ARCHER = 'nhea' /// "Archer"
/// constant integer PRIEST = 'hmpr'
constant integer CHAPLAIN = 'nchp'
constant integer HYDROMANCER = 'nhym'
constant integer PACK_HORSE = 'hrdh'
constant integer CRUSADER_DOTA = 'h01I'
constant integer SQUIRE = 'h00J'
constant integer ROGUE = 'h00Z'
constant integer NINJA = 'h02W'
constant integer EXEMPLAR = 'h00M'
constant integer JUSTICAR = 'h00I'
constant integer QUESTIONER = 'h01Q'
constant integer GENERAL = 'h004'
/// constant integer KNIGHT = 'hkni' /// "Royal Knight" (tier 1)
constant integer ROYAL_KNIGHT_DOTA = 'h01J'
constant integer ROYAL_KNIGHT_2 = 'h008'
constant integer ROYAL_KNIGHT_3 = 'h009'
constant integer ROYAL_KNIGHT_4 = 'h00L'
constant integer OUTRIDER = 'h03O'
constant integer OUTRIDER_ROYAL = 'h01O'
constant integer BIG_BERTHA_DOTA = 'h01U'
constant integer BIG_BERTHA = 'h035'
constant integer BISHOP = 'h02R'
constant integer ROYAL_PRIEST = 'hC41'
constant integer WIZARD = 'h01D'
constant integer WIZARD_DOTA = 'h01T'
constant integer WIZARD_CHAOS = 'h032'
constant integer ROYAL_MAGUS = 'h02X'
constant integer DOZER = 'h030'
constant integer ARCHER_DOTA = 'n00E'
constant integer SPEAR_MERC = 'n00A'
constant integer LANCER = 'n00H'
constant integer SPEAR_MAN = 'n009'
constant integer ROYAL_SPEAR = 'n00J'
constant integer ROYAL_ZEP = 'n00B'
/// Upgrades
/// constant integer UPG_MELEE = 'Rhme'
/// constant integer UPG_ARMOR = 'Rhar'
/// constant integer UPG_MASONRY = 'Rhac'
/// constant integer UPG_WOOD = 'Rhlh'
/// constant integer UPG_SENTINEL = 'Rhse' /// "Magic Sentry"
/// constant integer UPG_SORCERY = 'Rhst'
/// constant integer UPG_PRAYING = 'Rhpt' /// "Priest Training"
/// constant integer UPG_BREEDING = 'Rhan' /// "Animal War Training"
constant integer UPG_ROGUE = 'R001'
constant integer UPG_MAGIC_DAMAGE = 'R008'
constant integer UPG_DOTA_ARCHER = 'R003'
constant integer UPG_DOTA_CANNON = 'R006'
constant integer UPG_DOTA_WIZARD = 'R005'
constant integer UPG_DOTA_KNIGHT = 'R002'
/// constant integer UPG_LEATHER = 'Rhla' /// "Gyrations"
/// constant integer UPG_RANGED = 'Rhra'
endglobals
//***************************************************************************
//*
//* Utility Functions
//*
//***************************************************************************
//===========================================================================
function CheckLastCommand takes boolean pop returns integer
local integer cmd = GetLastCommand()
if (pop) then
call PopLastCommand( )
endif
return cmd
endfunction
//===========================================================================
function CheckLastCommandData takes boolean pop returns integer
local integer data = GetLastData()
if (pop) then
call PopLastCommand( )
endif
return data
endfunction
//===========================================================================
function TotalFoodProduced takes nothing returns integer
return GetPlayerState(ai_player,PLAYER_STATE_RESOURCE_FOOD_CAP)
endfunction
//===========================================================================
function ExpansionNeeded takes nothing returns boolean
return take_exp
endfunction
//===========================================================================
function BuildExpansion takes integer hallID, integer mineID returns nothing
if (HallsCompleted(hallID)) then
call SetBuildExpa( TownCount(hallID) + 1, mineID )
endif
endfunction
//===========================================================================
function CurrentAttackWave takes nothing returns integer
return attackWave
endfunction
//===========================================================================
function ResetAttackUnits takes nothing returns nothing
set awGold = 0
set awWood = 0
call InitAssaultGroup( )
endfunction
//===========================================================================
function AddAttackUnit takes integer minQty, integer maxQty, integer unitID returns nothing
// Track attacking gold workers
if (unitID == 'hpea') then
set awGold = awGold + minQty
endif
// Track attacking wood workers
if (unitID == 'hpea') then
set awWood = awWood + minQty
endif
call SetAssaultGroup( minQty, maxQty, unitID )
endfunction
//***************************************************************************
//*
//* Basic Options
//*
//***************************************************************************
//===========================================================================
function InitOptions takes nothing returns nothing
call SetMeleeAI( )
call SetDefendPlayer( true )
call SetRandomPaths( true )
call SetTargetHeroes( true )
call SetPeonsRepair( true )
call SetHeroesFlee( true )
call SetHeroesBuyItems( true )
call SetUnitsFlee( true )
call SetGroupsFlee( true )
call SetWatchMegaTargets( true )
call SetIgnoreInjured( true )
call SetHeroesTakeItems( true )
call SetSlowChopping( false )
call SetCaptainChanges( true )
call SetSmartArtillery( true )
endfunction
//***************************************************************************
//*
//* Conditions
//*
//***************************************************************************
//===========================================================================
// Updates the values of all preset conditions
//===========================================================================
function UpdateConditions takes nothing returns nothing
set gCond_Need_Town_Hall = ( ( GetUnitCount( TOWN_HALL ) ) < 3 )
set gCond_Need_LM = ( ( GetUnitCount( LUMBER_MILL ) ) < 1 )
set gCond_Need_BS = ( ( GetUnitCount( BLACKSMITH ) ) < 2 )
set gCond_Need_Market = ( (GetUnitCount( ARCANE_VAULT ) ) < 1 )
set gCond_Need_WizTower = ( (GetUnitCount( SANCTUM ) + (GetUnitCount( TOWER_WIZARDRY_2_UPGRADE ) ) < 1 ) )
set gCond_Needs_Garrison = ( ( GetUnitCount( GARRISON_1 ) + ( GetUnitCount( GARRISON_2 ) + GetUnitCount( GARRISON_3 ) ) ) == 0 )
set gCond_Needs_Stable = ( ( ( GetUnitCount( BARRACKS ) + GetUnitCount( STABLES_2 ) ) + ( GetUnitCount( STABLES_3 ) + GetUnitCount( STABLES_4 ) ) ) == 0 )
set gCond_Needs_Farm = ( ( ( ( GetUnitCount( FARM_1 ) + GetUnitCount( FARM_2 ) ) + GetUnitCount( FARM_3 ) ) + ( GetUnitCount( FARM_4 ) + GetUnitCount( FARM_5 ) ) ) < 6 )
set gCond_Need_Guard_Tower = ( ( GetUnitCount( BASIC_TOWER ) + GetUnitCount( GUARD_TOWER ) ) < 2 )
set gCond_Need_Research_Center = ( ( GetUnitCount( RESEARCH_CENTER_1 ) + GetUnitCount( RESEARCH_CENTER_2 ) ) == 0 )
endfunction
//***************************************************************************
//*
//* Heroes
//*
//***************************************************************************
//===========================================================================
// Stores hero ID and skills
//===========================================================================
function SetHero takes integer order, integer heroid returns nothing
if (order == 1) then
set hero_id = heroid
if (heroid == SOVEREIGN) then
set skills1[ 1] = KING_AURA /// 1
set skills1[ 2] = THUNDER_CLAP /// 1
set skills1[ 3] = KING_COURT /// 1
set skills1[ 4] = ROYAL_BANISH /// 1
set skills1[ 5] = KING_AURA /// 2
set skills1[ 6] = THUNDER_CLAP /// 2
set skills1[ 7] = KING_COURT /// 2
set skills1[ 8] = ROYAL_BANISH /// 2
set skills1[ 9] = KING_AURA /// 3
set skills1[10] = THUNDER_CLAP /// 3
set skills1[11] = KING_COURT /// 3
set skills1[12] = KING_AURA /// 4
set skills1[13] = KING_COURT /// 4
set skills1[14] = ROYAL_BANISH /// 3
elseif (heroid == MONARCH) then
set skills1[ 1] = KING_AURA /// 1
set skills1[ 2] = ROYAL_SHOCKWAVE /// 1
set skills1[ 3] = KING_COURT /// 1
set skills1[ 4] = ROYAL_BANISH /// 1
set skills1[ 5] = KING_AURA /// 2
set skills1[ 6] = ROYAL_SHOCKWAVE /// 2
set skills1[ 7] = KING_COURT /// 2
set skills1[ 8] = ROYAL_BANISH /// 2
set skills1[ 9] = KING_AURA /// 3
set skills1[10] = ROYAL_SHOCKWAVE /// 3
set skills1[11] = KING_COURT /// 3
set skills1[12] = KING_AURA /// 4
set skills1[13] = KING_COURT /// 4
set skills1[14] = ROYAL_BANISH /// 3
elseif (heroid == MAJESTY) then
set skills1[ 1] = KING_AURA /// 1
set skills1[ 2] = ROYAL_BLIZZARD /// 1
set skills1[ 3] = KING_COURT /// 1
set skills1[ 4] = ROYAL_BANISH /// 1
set skills1[ 5] = KING_AURA /// 2
set skills1[ 6] = ROYAL_BLIZZARD /// 2
set skills1[ 7] = KING_COURT /// 2
set skills1[ 8] = ROYAL_BANISH /// 2
set skills1[ 9] = KING_AURA /// 3
set skills1[10] = ROYAL_BLIZZARD /// 3
set skills1[11] = KING_COURT /// 3
set skills1[12] = KING_AURA /// 4
set skills1[13] = KING_COURT /// 4
set skills1[14] = ROYAL_BANISH /// 3
elseif (heroid == MAGE) then
set skills1[ 1] = DEVOTION_AURA
set skills1[ 2] = HOLY_BOLT
set skills1[ 3] = BLINK
set skills1[ 4] = DEVOTION_AURA
set skills1[ 5] = HOLY_BOLT
set skills1[ 6] = MASS_TELEPORT
set skills1[ 7] = DEVOTION_AURA
set skills1[ 8] = HOLY_BOLT
set skills1[ 9] = BLINK
set skills1[10] = BLINK
set skills1[11] = ATTRIBUTE_BONUS
set skills1[12] = ATTRIBUTE_BONUS
set skills1[13] = ATTRIBUTE_BONUS
set skills1[14] = ATTRIBUTE_BONUS
set skills1[15] = ATTRIBUTE_BONUS
elseif (heroid == PALADIN) then
set skills1[ 1] = DEVOTION_AURA
set skills1[ 2] = HOLY_BOLT
set skills1[ 3] = DIVINE_SHIELD
set skills1[ 4] = DEVOTION_AURA
set skills1[ 5] = HOLY_BOLT
set skills1[ 6] = DIVINE_SHIELD
set skills1[ 7] = DEVOTION_AURA
set skills1[ 8] = HOLY_BOLT
set skills1[ 9] = DIVINE_SHIELD
set skills1[10] = BLESSED_FIELD
set skills1[11] = ATTRIBUTE_BONUS
set skills1[12] = ATTRIBUTE_BONUS
set skills1[13] = ATTRIBUTE_BONUS
set skills1[14] = ATTRIBUTE_BONUS
set skills1[15] = ATTRIBUTE_BONUS
set skills1[16] = BLESSED_FIELD
elseif (heroid == WARRIOR) then
set skills1[ 1] = DEVOTION_AURA
set skills1[ 2] = ROYAL_BLADESTORM
set skills1[ 3] = CRIT_STRIKE
set skills1[ 4] = DEVOTION_AURA
set skills1[ 5] = ROYAL_BLADESTORM
set skills1[ 6] = CRIT_STRIKE
set skills1[ 7] = DEVOTION_AURA
set skills1[ 8] = ROYAL_BLADESTORM
set skills1[ 9] = CRIT_STRIKE
set skills1[10] = ROYAL_AVATAR
endif
elseif (order == 2) then
set hero_id2 = heroid
if (heroid == SOVEREIGN) then
set skills2[ 1] = KING_AURA /// 1
set skills2[ 2] = THUNDER_CLAP /// 1
set skills2[ 3] = KING_COURT /// 1
set skills2[ 4] = ROYAL_BANISH /// 1
set skills2[ 5] = KING_AURA /// 2
set skills2[ 6] = THUNDER_CLAP /// 2
set skills2[ 7] = KING_COURT /// 2
set skills2[ 8] = ROYAL_BANISH /// 2
set skills2[ 9] = KING_AURA /// 3
set skills2[10] = THUNDER_CLAP /// 3
set skills2[11] = KING_COURT /// 3
set skills2[12] = KING_AURA /// 4
set skills2[13] = KING_COURT /// 4
set skills2[14] = ROYAL_BANISH /// 3
elseif (heroid == MONARCH) then
set skills2[ 1] = KING_AURA /// 1
set skills2[ 2] = ROYAL_SHOCKWAVE /// 1
set skills2[ 3] = KING_COURT /// 1
set skills2[ 4] = ROYAL_BANISH /// 1
set skills2[ 5] = KING_AURA /// 2
set skills2[ 6] = ROYAL_SHOCKWAVE /// 2
set skills2[ 7] = KING_COURT /// 2
set skills2[ 8] = ROYAL_BANISH /// 2
set skills2[ 9] = KING_AURA /// 3
set skills2[10] = ROYAL_SHOCKWAVE /// 3
set skills2[11] = KING_COURT /// 3
set skills2[12] = KING_AURA /// 4
set skills2[13] = KING_COURT /// 4
set skills2[14] = ROYAL_BANISH /// 3
elseif (heroid == MAJESTY) then
set skills2[ 1] = KING_AURA /// 1
set skills2[ 2] = ROYAL_BLIZZARD /// 1
set skills2[ 3] = KING_COURT /// 1
set skills2[ 4] = ROYAL_BANISH /// 1
set skills2[ 5] = KING_AURA /// 2
set skills2[ 6] = ROYAL_BLIZZARD /// 2
set skills2[ 7] = KING_COURT /// 2
set skills2[ 8] = ROYAL_BANISH /// 2
set skills2[ 9] = KING_AURA /// 3
set skills2[10] = ROYAL_BLIZZARD /// 3
set skills2[11] = KING_COURT /// 3
set skills2[12] = KING_AURA /// 4
set skills2[13] = KING_COURT /// 4
set skills2[14] = ROYAL_BANISH /// 3
elseif (heroid == MAGE) then
set skills2[ 1] = DEVOTION_AURA
set skills2[ 2] = HOLY_BOLT
set skills2[ 3] = BLINK
set skills2[ 4] = DEVOTION_AURA
set skills2[ 5] = HOLY_BOLT
set skills2[ 6] = MASS_TELEPORT
set skills2[ 7] = DEVOTION_AURA
set skills2[ 8] = HOLY_BOLT
set skills2[ 9] = BLINK
set skills2[10] = BLINK
set skills2[11] = ATTRIBUTE_BONUS
set skills2[12] = ATTRIBUTE_BONUS
set skills2[13] = ATTRIBUTE_BONUS
set skills2[14] = ATTRIBUTE_BONUS
set skills2[15] = ATTRIBUTE_BONUS
elseif (heroid == PALADIN) then
set skills2[ 1] = DEVOTION_AURA
set skills2[ 2] = HOLY_BOLT
set skills2[ 3] = DIVINE_SHIELD
set skills2[ 4] = DEVOTION_AURA
set skills2[ 5] = HOLY_BOLT
set skills2[ 6] = DIVINE_SHIELD
set skills2[ 7] = DEVOTION_AURA
set skills2[ 8] = HOLY_BOLT
set skills2[ 9] = DIVINE_SHIELD
set skills2[10] = BLESSED_FIELD
set skills2[11] = ATTRIBUTE_BONUS
set skills2[12] = ATTRIBUTE_BONUS
set skills2[13] = ATTRIBUTE_BONUS
set skills2[14] = ATTRIBUTE_BONUS
set skills2[15] = ATTRIBUTE_BONUS
set skills2[16] = BLESSED_FIELD
elseif (heroid == WARRIOR) then
set skills2[ 1] = DEVOTION_AURA
set skills2[ 2] = ROYAL_BLADESTORM
set skills2[ 3] = CRIT_STRIKE
set skills2[ 4] = DEVOTION_AURA
set skills2[ 5] = ROYAL_BLADESTORM
set skills2[ 6] = CRIT_STRIKE
set skills2[ 7] = DEVOTION_AURA
set skills2[ 8] = ROYAL_BLADESTORM
set skills2[ 9] = CRIT_STRIKE
set skills2[10] = ROYAL_AVATAR
set skills2[20] = ROYAL_AVATAR
endif
endif
endfunction
//===========================================================================
// Selects hero IDs for three possible heroes
//===========================================================================
function SelectHeroes takes nothing returns nothing
local integer roll = GetRandomInt(1,9)
if (roll == 1) then
call SetHero( 1, MAGE )
call SetHero( 2, SOVEREIGN )
elseif (roll == 2) then
call SetHero( 1, PALADIN )
call SetHero( 2, SOVEREIGN )
elseif (roll == 3) then
call SetHero( 1, WARRIOR )
call SetHero( 2, SOVEREIGN )
elseif (roll == 4) then
call SetHero( 1, MAGE )
call SetHero( 2, MONARCH )
elseif (roll == 5) then
call SetHero( 1, PALADIN )
call SetHero( 2, MONARCH )
elseif (roll == 6) then
call SetHero( 1, WARRIOR )
call SetHero( 2, MONARCH )
elseif (roll == 7) then
call SetHero( 1, MAGE )
call SetHero( 2, MAJESTY )
elseif (roll == 8) then
call SetHero( 1, PALADIN )
call SetHero( 2, MAJESTY )
elseif (roll == 9) then
call SetHero( 1, WARRIOR )
call SetHero( 2, MAJESTY )
endif
endfunction
//===========================================================================
// Returns the hero skill for the given hero and level
//===========================================================================
function ChooseHeroSkill takes nothing returns integer
local integer curHero = GetHeroId()
local integer level = GetHeroLevelAI()
if (level > max_hero_level) then
set max_hero_level = level
endif
if (curHero == hero_id) then
return skills1[level]
elseif (curHero == hero_id2) then
return skills2[level]
endif
return 0
endfunction
//***************************************************************************
//*
//* Building and Harvesting
//*
//***************************************************************************
function BuildPriorities takes nothing returns nothing
local integer mine = TownWithMine()
call SetBuildAll( BUILD_UNIT, 1, hero_id, -1 )
call SetBuildAll( BUILD_UNIT, 1, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 1, hero_id2, -1 )
call SetBuildAll( BUILD_UNIT, 2, PEASANT, -1 )
if gCond_Need_Town_Hall then
call BuildExpansion (TOWN_HALL, TOWN_HALL)
endif
call SetBuildAll( BUILD_UNIT, 3, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 4, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 5, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 6, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 7, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 8, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 9, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 10, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 11, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 12, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 13, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 14, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 15, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 16, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 17, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 18, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 19, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 20, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 21, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 1, FARM_1, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_BARRACKS, -1 )
/// Build Lumbermill
if gCond_Need_LM then
if (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, LUMBER_MILL, 1 )
elseif(( TownHasHall( 2 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, LUMBER_MILL, 2 )
else
call SetBuildAll( BUILD_UNIT, 1, LUMBER_MILL, -1 )
endif
endif
/// end Build Lumbermill
/// Build Blacksmith
if gCond_Need_BS then
if (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, BLACKSMITH, 1 )
elseif (( TownHasHall( 2 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, BLACKSMITH, 2 )
else
call SetBuildAll( BUILD_UNIT, 1, BLACKSMITH, -1 )
endif
endif
/// end Build Blacksmith
/// Build Market
if gCond_Need_Market then
if (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, ARCANE_VAULT, 1 )
elseif (( TownHasHall( 2 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, ARCANE_VAULT, 2 )
else
call SetBuildAll( BUILD_UNIT, 1, ARCANE_VAULT, -1 )
endif
endif
/// end Build Market
if (gCond_Need_Guard_Tower) then
call SetBuildAll( BUILD_UNIT, 1, BASIC_TOWER, -1 )
call SetBuildAll( BUILD_UNIT, 2, BASIC_TOWER, -1 )
endif
call SetBuildAll( BUILD_UNIT, 1, GUARD_TOWER, -1 )
call SetBuildAll( BUILD_UNIT, 2, GUARD_TOWER, -1 )
/// Build Stables checking at expansion one first
if (gCond_Needs_Stable) then
if (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, BARRACKS, 2 )
elseif (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, BARRACKS, 1 )
else
call SetBuildAll( BUILD_UNIT, 1, BARRACKS, -1 )
endif
endif
/// end build stables
if (gCond_Needs_Garrison) then
call SetBuildAll( BUILD_UNIT, 1, GARRISON_1, -1 )
endif
/// Build Wizard Tower
if gCond_Need_WizTower then
if (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, SANCTUM, 1 )
elseif (( TownHasHall( 2 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, SANCTUM, 2 )
else
call SetBuildAll( BUILD_UNIT, 1, SANCTUM, -1 )
endif
endif
///end build Wizard Tower
call SetBuildAll( BUILD_UNIT, 1, ROYAL_CHURCH, -1 )
call SetBuildAll( BUILD_UNIT, 1, HIGH_ARCHER, -1 )
call SetBuildAll( BUILD_UNIT, 2, HIGH_ARCHER, -1 )
call SetBuildAll( BUILD_UNIT, 3, HIGH_ARCHER, -1 )
call SetBuildAll( BUILD_UNIT, 4, HIGH_ARCHER, -1 )
call SetBuildAll( BUILD_UNIT, 1, FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 2, FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 3, FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 4, FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 5, FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 6, FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 1, MORTAR, -1 )
call SetBuildAll( BUILD_UNIT, 1, CHAPLAIN, -1 )
call SetBuildAll( BUILD_UNIT, 1, SORCERESS, -1 )
call SetBuildAll( BUILD_UNIT, 1, HYDROMANCER, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_MELEE, -1 )
if (( GetUnitCount( BLACKSMITH ) < 2 )) then
call SetBuildAll( BUILD_UNIT, 2, BLACKSMITH, -1 )
endif
call SetBuildAll( BUILD_UPGRADE, 1, UPG_ARMOR, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_SENTINEL, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_PRAYING, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_SORCERY, -1 )
call SetBuildAll( BUILD_UNIT, 1, FARM_2, -1 )
call SetBuildAll( BUILD_UNIT, 1, FARM_3, -1 )
call SetBuildAll( BUILD_UNIT, 1, FARM_4, -1 )
if (( ( GetUnitCount( STABLES_3 ) + GetUnitCount( STABLES_4 ) ) == 0 )) then
call SetBuildAll( BUILD_UNIT, 1, STABLES_2, -1 )
endif
if (( GetUnitCount( STABLES_4 ) == 0 )) then
call SetBuildAll( BUILD_UNIT, 1, STABLES_3, -1 )
endif
call SetBuildAll( BUILD_UNIT, 1, STABLES_4, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 2, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 3, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 4, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_ARMOR, -1 )
if (( GetUnitCount( GARRISON_3 ) == 0 )) then
call SetBuildAll( BUILD_UNIT, 1, GARRISON_2, -1 )
endif
call SetBuildAll( BUILD_UNIT, 1, GARRISON_3, -1 )
call SetBuildAll( BUILD_UNIT, 1, HIGH_FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 1, SPEAR_MAN, -1 )
call SetBuildAll( BUILD_UNIT, 2, SPEAR_MAN, -1 )
call SetBuildAll( BUILD_UNIT, 1, QUESTIONER, -1 )
call SetBuildAll( BUILD_UNIT, 1, WIZARD, -1 )
call SetBuildAll( BUILD_UNIT, 1, PRIEST, -1 )
call SetBuildAll( BUILD_UNIT, 1, EXEMPLAR, -1 )
call SetBuildAll( BUILD_UNIT, 1, JUSTICAR, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_SPEAR, -1 )
call SetBuildAll( BUILD_UNIT, 1, GENERAL, -1 )
if (( GetUpgradeLevel( UPG_ROGUE ) == 1 )) then
call SetBuildAll( BUILD_UNIT, 1, ROGUE, -1 )
endif
call SetBuildAll( BUILD_UNIT, 1, ROYAL_PRIEST, -1 )
call SetBuildAll( BUILD_UPGRADE, 3, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 3, UPG_ARMOR, -1 )
if (( GetUnitCount( FARM_5 ) == 0 )) then
call SetBuildAll( BUILD_UNIT, 1, FARM_5, -1 )
endif
call SetBuildAll( BUILD_UNIT, 1, ROYAL_ENGINEER, -1 )
/// Build towers and fountain at first expansion
if (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, FOUNTAIN, 1 )
call SetBuildAll( BUILD_UNIT, 1, TOWER_COLD_1, 1 )
call SetBuildAll( BUILD_UNIT, 1, TOWER_FLAME_1, 1 )
endif
/// end build towers and fountain at first expansion
/// Build towers and fountain at second expansion
if (( TownHasHall( 2 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, FOUNTAIN, 2 )
call SetBuildAll( BUILD_UNIT, 1, TOWER_COLD_1, 2 )
call SetBuildAll( BUILD_UNIT, 1, TOWER_FLAME_1, 2 )
endif
/// end build towers and fountain at second expansion
call SetBuildAll( BUILD_UNIT, 1, TOWER_ROYAL_1, -1 )
call SetBuildAll( BUILD_UNIT, 1, TOWER_ROYAL_SKY, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_FACTORY, -1 )
if (gCond_Need_Research_Center) then
call SetBuildAll( BUILD_UNIT, 1, RESEARCH_CENTER_1, -1 )
endif
call SetBuildAll( BUILD_UPGRADE, 1, UPG_LEATHER, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_DOTA_ARCHER, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_DOTA_CANNON, -1 )
call SetBuildAll( BUILD_UNIT, 1, RESEARCH_CENTER_2, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_DOTA_WIZARD, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_DOTA_KNIGHT, -1 )
if (( ( GetUpgradeLevel( UPG_LEATHER ) + GetUpgradeLevel( UPG_ROGUE ) ) == 2 )) then
call SetBuildAll( BUILD_UNIT, 1, NINJA, -1 )
endif
call SetBuildAll( BUILD_UNIT, 1, ROYAL_MARKET_2, -1 )
call SetBuildAll( BUILD_UNIT, 1, STONEMASON_TOWER, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_MASONRY, -1 )
call SetBuildAll( BUILD_UPGRADE, 4, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 4, UPG_ARMOR, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_MASONRY, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_PRAYING, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_SORCERY, -1 )
call SetBuildAll( BUILD_UPGRADE, 5, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 5, UPG_ARMOR, -1 )
call SetBuildAll( BUILD_UNIT, 1, TOWER_WIZARDRY_2_UPGRADE, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_ENGINEER_2, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_WORKSHOP, -1 )
call SetBuildAll( BUILD_UNIT, 1, FARM_COTTAGE, -1 )
call SetBuildAll( BUILD_UNIT, 2, FARM_COTTAGE, -1 )
call SetBuildAll( BUILD_UNIT, 3, FARM_COTTAGE, -1 )
call SetBuildAll( BUILD_UNIT, 4, FARM_COTTAGE, -1 )
call SetBuildAll( BUILD_UNIT, 5, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 6, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 7, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 8, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 1, WIZARD_CHAOS, -1 )
call SetBuildAll( BUILD_UNIT, 2, WIZARD_CHAOS, -1 )
call SetBuildAll( BUILD_UNIT, 3, WIZARD_CHAOS, -1 )
call SetBuildAll( BUILD_UNIT, 4, WIZARD_CHAOS, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_MAGUS, -1 )
call SetBuildAll( BUILD_UNIT, 2, ROYAL_MAGUS, -1 )
call SetBuildAll( BUILD_UNIT, 3, ROYAL_MAGUS, -1 )
call SetBuildAll( BUILD_UNIT, 4, ROYAL_MAGUS, -1 )
call SetBuildAll( BUILD_UPGRADE, 6, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 7, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 8, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 9, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 10, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 3, UPG_MASONRY, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_RANGED, -1 )
call SetBuildAll( BUILD_UPGRADE, 11, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 12, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 13, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 14, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 15, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 4, UPG_MASONRY, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_RANGED, -1 )
call SetBuildAll( BUILD_UPGRADE, 16, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 17, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 18, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 19, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 20, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 3, UPG_RANGED, -1 )
call SetBuildAll( BUILD_UNIT, 1, DOZER, -1 )
call SetBuildAll( BUILD_UNIT, 2, DOZER, -1 )
call SetBuildAll( BUILD_UNIT, 3, DOZER, -1 )
call SetBuildAll( BUILD_UNIT, 4, DOZER, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_MAGIC_DAMAGE, -1 )
call SetBuildAll( BUILD_UPGRADE, 5, UPG_MASONRY, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_MAGIC_DAMAGE, -1 )
call SetBuildAll( BUILD_UPGRADE, 3, UPG_MAGIC_DAMAGE, -1 )
call SetBuildAll( BUILD_UNIT, 9, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 10, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 11, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 12, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 13, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 14, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 15, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 16, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 17, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 18, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 18, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 19, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 20, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 21, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 2, QUESTIONER, -1 )
call SetBuildAll( BUILD_UNIT, 2, WIZARD, -1 )
call SetBuildAll( BUILD_UNIT, 2, ROYAL_PRIEST, -1 )
call SetBuildAll( BUILD_UNIT, 2, EXEMPLAR, -1 )
call SetBuildAll( BUILD_UNIT, 2, JUSTICAR, -1 )
call SetBuildAll( BUILD_UNIT, 2, ROYAL_SPEAR, -1 )
call SetBuildAll( BUILD_UNIT, 2, GENERAL, -1 )
endfunction
//===========================================================================
// Specifies harvesting priorities for workers
//===========================================================================
function HarvestPriorities takes nothing returns nothing
local integer mine = TownWithMine()
local integer allGold = GetUnitCountDone(PEASANT)
local integer allWood = GetUnitCountDone(PEASANT)
local integer numWorkers
set numWorkers = 4
call HarvestGold( 0, numWorkers )
set numWorkers = 4
call HarvestGold( 1, numWorkers )
set numWorkers = 4
call HarvestGold( 2, numWorkers )
set numWorkers = 3
call HarvestGold( 3, numWorkers )
set numWorkers = 12
call HarvestWood( mine, numWorkers )
endfunction
//===========================================================================
// Determines all building and harvesting assignments for workers
//===========================================================================
function WorkerAssignment takes nothing returns nothing
loop
call UpdateConditions( )
// Harvesting
call ClearHarvestAI( )
call HarvestPriorities( )
// Building
call InitBuildArray( )
call BuildPriorities( )
call Sleep( 2 )
endloop
endfunction
//***************************************************************************
//*
//* Attacking
//*
//***************************************************************************
//===========================================================================
// Returns true if the minimum forces for an attack exist
//===========================================================================
function HaveMinimumAttackers takes nothing returns boolean
local integer count
// Check for attack wave limit
if (attackWave > 21) then
return false
endif
// First Hero Only
if (GetUnitCountDone(hero_id) < 1) then
return false
endif
return true
endfunction
//===========================================================================
// Assigns units to attack based on the given attack group
//===========================================================================
function PrepareAttackGroup takes integer groupID returns nothing
local integer all
// Attack Group #1: All Units
if (groupID == 1) then
set all = GetUnitCountDone( hero_id )
call SetAssaultGroup( all, all, hero_id )
if (( GetUpgradeLevel( UPG_LEATHER ) == 1 )) then
set all = GetUnitCountDone( hero_id2 )
call SetAssaultGroup( all, all, hero_id2 )
endif
set all = GetUnitCountDone( FOOTMAN )
call SetAssaultGroup( all, all, FOOTMAN )
set all = GetUnitCountDone( HIGH_ARCHER )
call SetAssaultGroup( all, all, HIGH_ARCHER )
set all = GetUnitCountDone( MORTAR )
call SetAssaultGroup( all, all, MORTAR )
set all = GetUnitCountDone( CHAPLAIN )
call SetAssaultGroup( all, all, CHAPLAIN )
set all = GetUnitCountDone( HIGH_FOOTMAN )
call SetAssaultGroup( all, all, HIGH_FOOTMAN )
set all = GetUnitCountDone( SPEAR_MAN )
call SetAssaultGroup( all, all, SPEAR_MAN )
set all = GetUnitCountDone( QUESTIONER )
call SetAssaultGroup( all, all, QUESTIONER )
set all = GetUnitCountDone( SORCERESS )
call SetAssaultGroup( all, all, SORCERESS )
set all = GetUnitCountDone( WIZARD )
call SetAssaultGroup( all, all, WIZARD )
set all = GetUnitCountDone( HYDROMANCER )
call SetAssaultGroup( all, all, HYDROMANCER )
set all = GetUnitCountDone( PRIEST )
call SetAssaultGroup( all, all, PRIEST )
set all = GetUnitCountDone( EXEMPLAR )
call SetAssaultGroup( all, all, EXEMPLAR )
set all = GetUnitCountDone( JUSTICAR )
call SetAssaultGroup( all, all, JUSTICAR )
set all = GetUnitCountDone( ROYAL_SPEAR )
call SetAssaultGroup( all, all, ROYAL_SPEAR )
set all = GetUnitCountDone( GENERAL )
call SetAssaultGroup( all, all, GENERAL )
set all = GetUnitCountDone( ROGUE )
call SetAssaultGroup( all, all, ROGUE )
set all = GetUnitCountDone( ROYAL_PRIEST )
call SetAssaultGroup( all, all, ROYAL_PRIEST )
set all = GetUnitCountDone( BISHOP )
call SetAssaultGroup( all, all, BISHOP )
set all = GetUnitCountDone( NINJA )
call SetAssaultGroup( all, all, NINJA )
set all = GetUnitCountDone( WIZARD_CHAOS )
call SetAssaultGroup( all, all, WIZARD_CHAOS )
set all = GetUnitCountDone( ROYAL_MAGUS )
call SetAssaultGroup( all, all, ROYAL_MAGUS )
set all = GetUnitCountDone( KNIGHT )
call SetAssaultGroup( all, all, KNIGHT )
set all = GetUnitCountDone( ROYAL_KNIGHT_2 )
call SetAssaultGroup( all, all, ROYAL_KNIGHT_2 )
set all = GetUnitCountDone( ROYAL_KNIGHT_3 )
call SetAssaultGroup( all, all, ROYAL_KNIGHT_3 )
set all = GetUnitCountDone( ROYAL_KNIGHT_4 )
call SetAssaultGroup( all, all, ROYAL_KNIGHT_4 )
set all = GetUnitCountDone( BIG_BERTHA )
call SetAssaultGroup( all, all, BIG_BERTHA )
set all = GetUnitCountDone( DOZER )
call SetAssaultGroup( all, all, DOZER )
endif
endfunction
//===========================================================================
// Prepares an attack group based on the current attack wave
//===========================================================================
function PrepareForces takes nothing returns nothing
call PrepareAttackGroup( 1 )
endfunction
//===========================================================================
// Sleep delays for each attack wave
//===========================================================================
function AttackWaveDelay takes integer inWave returns nothing
if (inWave < nextDelay) then
return
endif
if (inWave == 0) then
call Sleep( 90 )
elseif (inWave == 1) then
call Sleep( 70 )
elseif ((inWave == 2) and (Tier == 1)) then
call Sleep( 45 )
elseif ((inWave == 2) and (Tier == 2)) then
call Sleep( 120 )
elseif ((inWave == 2) and (Tier == 3)) then
call Sleep( 180 )
endif
set nextDelay = inWave + 1
endfunction
//===========================================================================
// Advances attack wave counter
//===========================================================================
function AttackWaveUpdate takes nothing returns nothing
call AttackWaveDelay( attackWave )
set attackWave = attackWave + 1
if (attackWave > 2) then
set attackWave = 2
set nextDelay = attackWave + 1
endif
endfunction
//===========================================================================
// Basic attack functionality
//===========================================================================
function AttackTarget takes unit target, boolean addAlliance returns nothing
if (target == null) then
return
endif
if (addAlliance) then
call SetAllianceTarget( target )
endif
call FormGroup( 3, true )
call AttackMoveKillA( target )
if (not addAlliance) then
call SetAllianceTarget( null )
endif
endfunction
//===========================================================================
// Initiates an attack based on target priorities
//===========================================================================
function LaunchAttack takes nothing returns nothing
local unit target = null
local boolean setAlly = true
// Don't launch any attack while town is threatened
if (TownThreatened()) then
call Sleep( 2 )
return
endif
// Target Priority #1
if (Tier < 3) then
if (target == null) then
set target = GetCreepCamp( 0, 9, false )
endif
endif
// Target Priority #2
if (target == null) then
set target = GetEnemyExpansion()
if (target == null) then
call StartGetEnemyBase( )
loop
exitwhen (not WaitGetEnemyBase())
call SuicideSleep( 1 )
endloop
set target = GetEnemyBase()
endif
endif
// Attack the target and increment attack wave
if (target != null) then
call AttackTarget( target, setAlly )
call AttackWaveUpdate( )
else
// If no target was found, sleep a bit before trying again
call Sleep( 20 )
endif
endfunction
//===========================================================================
// Determines all attacking assignments
//===========================================================================
function AttackAssignment takes nothing returns nothing
call StaggerSleep( 0, 2 )
if (attackWave == 1) then
call AttackWaveDelay( 0 )
endif
loop
loop
call UpdateConditions( )
exitwhen (HaveMinimumAttackers() and not CaptainRetreating())
call Sleep( 2 )
endloop
call RemoveInjuries( )
call ResetAttackUnits( )
call PrepareForces( )
call LaunchAttack( )
endloop
endfunction
//***************************************************************************
//*
//* Misc.
//*
//***************************************************************************
//===========================================================================
// AI Command Function
//===========================================================================
function TierCondition takes nothing returns nothing
if CommandsWaiting() > 0 then
set Tier = GetLastCommand()
call PopLastCommand()
call InitBuildArray()
endif
endfunction
function ConditionLoop takes nothing returns nothing
call TierCondition()
call StaggerSleep(1,5)
loop
call TierCondition()
call Sleep(16)
endloop
endfunction
//***************************************************************************
//*
//* Main Entry Point
//*
//***************************************************************************
//===========================================================================
function main takes nothing returns nothing
call InitAI( )
call SetPlayerName( ai_player, "Insane King XXIV" )
call InitOptions( )
call SelectHeroes( )
call CreateCaptains( )
call SetHeroLevels( function ChooseHeroSkill )
call Sleep( 0.1 )
call StartThread( function WorkerAssignment )
call StartThread( function AttackAssignment )
call StartThread( function ConditionLoop )
call PlayGame( )
endfunction
//===========================================================================
//
// King AI
//
//===========================================================================
//***************************************************************************
//*
//* Global Variables
//*
//***************************************************************************
globals
integer Tier = 0
integer attackWave = 0
integer nextDelay = 0
integer awGold = 0
integer awWood = 0
/// Conditions
boolean gCond_Need_Town_Hall = false
boolean gCond_Needs_Garrison = false
boolean gCond_Needs_Stable = false
boolean gCond_Needs_Farm = false
boolean gCond_Need_Guard_Tower = false
boolean gCond_Need_Research_Center = false
boolean gCond_Need_LM = false
boolean gCond_Need_BS = false
boolean gCond_Need_Market = false
boolean gCond_Need_WizTower = false
/// Units
/// King Heroes
constant integer SOVEREIGN = 'H01L'
constant integer MONARCH = 'HC18'
constant integer MAJESTY = 'H03I'
/// Prince Heroes
/// constant integer PALADIN = 'Hpal'
constant integer MAGE = 'H01G'
constant integer WARRIOR = 'H03J'
/// King Hero Abilities
constant integer ROYAL_BANISH = 'A006'
constant integer KING_AURA = 'A00K'
constant integer KING_COURT = 'A00C'
/// constant integer THUNDER_CLAP = 'AHtc' /// Sovereign only / "Royal Revenge"
constant integer ROYAL_SHOCKWAVE = 'A06G' /// Monarch only
constant integer ROYAL_BLIZZARD = 'A06H' /// Majesty only
constant integer ROYAL_SUMMON = 'A01H' /// based on blizzard spell so ais tend to use improperly
/// Prince Hero Abilities
/// constant integer HOLY_BOLT = 'AHhb' /// Holy Light / "Royal Blessing"
/// constant integer BLINK = 'AEbl' /// Royal Mage only
/// constant integer DIVINE_SHIELD = 'AHds' /// Royal Pally only
/// constant integer DEVOTION_AURA = 'AHad'
constant integer BLESSED_FIELD = 'A077' /// Royal Pally only
/// constant integer MASS_TELEPORT = 'AHmt' /// Royal Mage only
constant integer ATTRIBUTE_BONUS = 'Aamk'
constant integer FERAL_IMPACT = 'A01U' /// Royal Warrior only
constant integer CRIT_STRIKE = 'A06K' /// Royal Warrior only
constant integer ROYAL_AVATAR = 'A06I' /// Royal Warrior only
constant integer ROYAL_BLADESTORM = 'A06J' /// Royal Warrior only
/// Buildings
constant integer TOME_LIBRARY = 'nC03'
constant integer KING_VAULT = 'nC02'
constant integer ROYAL_ALTAR = 'h01N'
constant integer FRUIT_STAND = 'nfrt'
constant integer MERC_CAMP = 'nmer'
constant integer ANTICAMP_TOWER = 'nC51'
/// constant integer CASTLE = 'hcas'
/// constant integer TOWN_HALL = 'htow'
/// constant integer LUMBER_MILL = 'hlum'
/// constant integer BLACKSMITH = 'hbla'
constant integer ROYAL_BARRACKS = 'h02P'
constant integer FARM_1 = 'h003'
constant integer FARM_2 = 'h005'
constant integer FARM_3 = 'h006'
constant integer FARM_4 = 'h007'
constant integer FARM_5 = 'h00S'
/// constant integer BARRACKS = 'hbar' /// "Stables" (tier 1)
constant integer STABLES_2 = 'h00A'
constant integer STABLES_3 = 'h00B'
constant integer STABLES_4 = 'h00K'
constant integer GARRISON_1 = 'h00F'
constant integer GARRISON_2 = 'h00G'
constant integer GARRISON_3 = 'h00H'
constant integer ROYAL_FACTORY = 'h01F'
constant integer RESEARCH_CENTER_1 = 'h01H'
constant integer RESEARCH_CENTER_2 = 'h02Q'
constant integer FOUNTAIN = 'n020'
constant integer ROYAL_SHIPYARD = 'h01S'
constant integer STONEMASON_TOWER = 'h02Y'
constant integer ROYAL_WORKSHOP = 'h02Z'
constant integer FARM_COTTAGE = 'h034'
/// constant integer SANCTUM = 'hars' /// "Tower of Wizardry"
constant integer TOWER_WIZARDRY_2_BUILT = 'h031'
constant integer TOWER_WIZARDRY_2_UPGRADE = 'h03H'
constant integer ROYAL_CHURCH = 'h01A'
/// constant integer ARCANE_VAULT = 'hvlt' /// "Royal Market" (tier 1)
constant integer ROYAL_MARKET_2 = 'h01K'
constant integer BASIC_TOWER = 'h00R'
/// constant integer GUARD_TOWER = 'hgtw' /// Tier 1 Guard Tower
constant integer GUARD_TOWER_3 = 'h00P'
/// constant integer CANNON_TOWER = 'hctw' /// "Cannon Tower" (tier 1)
constant integer CANNON_TOWER_2 = 'h033'
/// constant integer ARCANE_TOWER = 'hatw' /// "Arcane Tower" (tier 1)
constant integer ARCANE_TOWER_2 = 'h018'
constant integer ARCANE_TOWER_3 = 'h02V'
constant integer TOWER_COLD_1 = 'ndt1'
constant integer TOWER_COLD_2 = 'ndt2'
constant integer TOWER_COLD_3 = 'n01H'
constant integer TOWER_COLD_4 = 'n01I'
constant integer TOWER_FLAME_1 = 'nft1'
constant integer TOWER_FLAME_2 = 'nft2'
constant integer TOWER_FLAME_3 = 'n029'
constant integer TOWER_FLAME_4 = 'n02A'
constant integer TOWER_FLAME_5 = 'n02B'
constant integer TOWER_FLAME_6 = 'n02C'
constant integer TOWER_ROYAL_1 = 'hC17'
constant integer TOWER_ROYAL_2 = 'h000'
constant integer TOWER_ROYAL_3 = 'h001'
constant integer TOWER_ROYAL_4 = 'h00C'
constant integer TOWER_ROYAL_SKY = 'n00D'
/// Units
/// constant integer PEASANT = 'hpea'
constant integer ROYAL_ENGINEER = 'n004'
constant integer ROYAL_ENGINEER_2 = 'n01L'
/// constant integer FOOTMAN = 'hfoo' /// "Crusader"
/// constant integer KNIGHT = 'hkni' /// "Royal Knight" (tier 1)
/// constant integer MORTAR = 'hmtm' /// "Royal Cannon"
/// constant integer PRIEST = 'hmpr'
/// constant integer SORCERESS = 'hsor' /// "Anime Witch"
/// constant integer HIGH_FOOTMAN = 'hcth' /// "Field Captain"
/// constant integer HIGH_ARCHER = 'nhea' /// "Archer"
/// constant integer PRIEST = 'hmpr'
constant integer CHAPLAIN = 'nchp'
constant integer HYDROMANCER = 'nhym'
constant integer PACK_HORSE = 'hrdh'
constant integer CRUSADER_DOTA = 'h01I'
constant integer SQUIRE = 'h00J'
constant integer ROGUE = 'h00Z'
constant integer NINJA = 'h02W'
constant integer EXEMPLAR = 'h00M'
constant integer JUSTICAR = 'h00I'
constant integer QUESTIONER = 'h01Q'
constant integer GENERAL = 'h004'
/// constant integer KNIGHT = 'hkni' /// "Royal Knight" (tier 1)
constant integer ROYAL_KNIGHT_DOTA = 'h01J'
constant integer ROYAL_KNIGHT_2 = 'h008'
constant integer ROYAL_KNIGHT_3 = 'h009'
constant integer ROYAL_KNIGHT_4 = 'h00L'
constant integer OUTRIDER = 'h03O'
constant integer OUTRIDER_ROYAL = 'h01O'
constant integer BIG_BERTHA_DOTA = 'h01U'
constant integer BIG_BERTHA = 'h035'
constant integer BISHOP = 'h02R'
constant integer ROYAL_PRIEST = 'hC41'
constant integer WIZARD = 'h01D'
constant integer WIZARD_DOTA = 'h01T'
constant integer WIZARD_CHAOS = 'h032'
constant integer ROYAL_MAGUS = 'h02X'
constant integer DOZER = 'h030'
constant integer ARCHER_DOTA = 'n00E'
constant integer SPEAR_MERC = 'n00A'
constant integer LANCER = 'n00H'
constant integer SPEAR_MAN = 'n009'
constant integer ROYAL_SPEAR = 'n00J'
constant integer ROYAL_ZEP = 'n00B'
/// Upgrades
/// constant integer UPG_MELEE = 'Rhme'
/// constant integer UPG_ARMOR = 'Rhar'
/// constant integer UPG_MASONRY = 'Rhac'
/// constant integer UPG_WOOD = 'Rhlh'
/// constant integer UPG_SENTINEL = 'Rhse' /// "Magic Sentry"
/// constant integer UPG_SORCERY = 'Rhst'
/// constant integer UPG_PRAYING = 'Rhpt' /// "Priest Training"
/// constant integer UPG_BREEDING = 'Rhan' /// "Animal War Training"
constant integer UPG_ROGUE = 'R001'
constant integer UPG_MAGIC_DAMAGE = 'R008'
constant integer UPG_DOTA_ARCHER = 'R003'
constant integer UPG_DOTA_CANNON = 'R006'
constant integer UPG_DOTA_WIZARD = 'R005'
constant integer UPG_DOTA_KNIGHT = 'R002'
/// constant integer UPG_LEATHER = 'Rhla' /// "Gyrations"
/// constant integer UPG_RANGED = 'Rhra'
endglobals
//***************************************************************************
//*
//* Utility Functions
//*
//***************************************************************************
//===========================================================================
function CheckLastCommand takes boolean pop returns integer
local integer cmd = GetLastCommand()
if (pop) then
call PopLastCommand( )
endif
return cmd
endfunction
//===========================================================================
function CheckLastCommandData takes boolean pop returns integer
local integer data = GetLastData()
if (pop) then
call PopLastCommand( )
endif
return data
endfunction
//===========================================================================
function TotalFoodProduced takes nothing returns integer
return GetPlayerState(ai_player,PLAYER_STATE_RESOURCE_FOOD_CAP)
endfunction
//===========================================================================
function ExpansionNeeded takes nothing returns boolean
return take_exp
endfunction
//===========================================================================
function BuildExpansion takes integer hallID, integer mineID returns nothing
if (HallsCompleted(hallID)) then
call SetBuildExpa( TownCount(hallID) + 1, mineID )
endif
endfunction
//===========================================================================
function CurrentAttackWave takes nothing returns integer
return attackWave
endfunction
//===========================================================================
function ResetAttackUnits takes nothing returns nothing
set awGold = 0
set awWood = 0
call InitAssaultGroup( )
endfunction
//===========================================================================
function AddAttackUnit takes integer minQty, integer maxQty, integer unitID returns nothing
// Track attacking gold workers
if (unitID == 'hpea') then
set awGold = awGold + minQty
endif
// Track attacking wood workers
if (unitID == 'hpea') then
set awWood = awWood + minQty
endif
call SetAssaultGroup( minQty, maxQty, unitID )
endfunction
//***************************************************************************
//*
//* Basic Options
//*
//***************************************************************************
//===========================================================================
function InitOptions takes nothing returns nothing
call SetMeleeAI( )
call SetDefendPlayer( true )
call SetRandomPaths( true )
call SetTargetHeroes( true )
call SetPeonsRepair( true )
call SetHeroesFlee( true )
call SetHeroesBuyItems( true )
call SetUnitsFlee( true )
call SetGroupsFlee( true )
call SetWatchMegaTargets( true )
call SetIgnoreInjured( true )
call SetHeroesTakeItems( true )
call SetSlowChopping( false )
call SetCaptainChanges( true )
call SetSmartArtillery( true )
endfunction
//***************************************************************************
//*
//* Conditions
//*
//***************************************************************************
//===========================================================================
// Updates the values of all preset conditions
//===========================================================================
function UpdateConditions takes nothing returns nothing
set gCond_Need_Town_Hall = ( ( GetUnitCount( TOWN_HALL ) ) < 3 )
set gCond_Need_LM = ( ( GetUnitCount( LUMBER_MILL ) ) < 1 )
set gCond_Need_BS = ( ( GetUnitCount( BLACKSMITH ) ) < 2 )
set gCond_Need_Market = ( (GetUnitCount( ARCANE_VAULT ) ) < 1 )
set gCond_Need_WizTower = ( (GetUnitCount( SANCTUM ) + (GetUnitCount( TOWER_WIZARDRY_2_UPGRADE ) ) < 1 ) )
set gCond_Needs_Garrison = ( ( GetUnitCount( GARRISON_1 ) + ( GetUnitCount( GARRISON_2 ) + GetUnitCount( GARRISON_3 ) ) ) == 0 )
set gCond_Needs_Stable = ( ( ( GetUnitCount( BARRACKS ) + GetUnitCount( STABLES_2 ) ) + ( GetUnitCount( STABLES_3 ) + GetUnitCount( STABLES_4 ) ) ) == 0 )
set gCond_Needs_Farm = ( ( ( ( GetUnitCount( FARM_1 ) + GetUnitCount( FARM_2 ) ) + GetUnitCount( FARM_3 ) ) + ( GetUnitCount( FARM_4 ) + GetUnitCount( FARM_5 ) ) ) < 6 )
set gCond_Need_Guard_Tower = ( ( GetUnitCount( BASIC_TOWER ) + GetUnitCount( GUARD_TOWER ) ) < 2 )
set gCond_Need_Research_Center = ( ( GetUnitCount( RESEARCH_CENTER_1 ) + GetUnitCount( RESEARCH_CENTER_2 ) ) == 0 )
endfunction
//***************************************************************************
//*
//* Heroes
//*
//***************************************************************************
//===========================================================================
// Stores hero ID and skills
//===========================================================================
function SetHero takes integer order, integer heroid returns nothing
if (order == 1) then
set hero_id = heroid
if (heroid == SOVEREIGN) then
set skills1[ 1] = KING_AURA /// 1
set skills1[ 2] = THUNDER_CLAP /// 1
set skills1[ 3] = KING_COURT /// 1
set skills1[ 4] = ROYAL_BANISH /// 1
set skills1[ 5] = KING_AURA /// 2
set skills1[ 6] = THUNDER_CLAP /// 2
set skills1[ 7] = KING_COURT /// 2
set skills1[ 8] = ROYAL_BANISH /// 2
set skills1[ 9] = KING_AURA /// 3
set skills1[10] = THUNDER_CLAP /// 3
set skills1[11] = KING_COURT /// 3
set skills1[12] = KING_AURA /// 4
set skills1[13] = KING_COURT /// 4
set skills1[14] = ROYAL_BANISH /// 3
elseif (heroid == MONARCH) then
set skills1[ 1] = KING_AURA /// 1
set skills1[ 2] = ROYAL_SHOCKWAVE /// 1
set skills1[ 3] = KING_COURT /// 1
set skills1[ 4] = ROYAL_BANISH /// 1
set skills1[ 5] = KING_AURA /// 2
set skills1[ 6] = ROYAL_SHOCKWAVE /// 2
set skills1[ 7] = KING_COURT /// 2
set skills1[ 8] = ROYAL_BANISH /// 2
set skills1[ 9] = KING_AURA /// 3
set skills1[10] = ROYAL_SHOCKWAVE /// 3
set skills1[11] = KING_COURT /// 3
set skills1[12] = KING_AURA /// 4
set skills1[13] = KING_COURT /// 4
set skills1[14] = ROYAL_BANISH /// 3
elseif (heroid == MAJESTY) then
set skills1[ 1] = KING_AURA /// 1
set skills1[ 2] = ROYAL_BLIZZARD /// 1
set skills1[ 3] = KING_COURT /// 1
set skills1[ 4] = ROYAL_BANISH /// 1
set skills1[ 5] = KING_AURA /// 2
set skills1[ 6] = ROYAL_BLIZZARD /// 2
set skills1[ 7] = KING_COURT /// 2
set skills1[ 8] = ROYAL_BANISH /// 2
set skills1[ 9] = KING_AURA /// 3
set skills1[10] = ROYAL_BLIZZARD /// 3
set skills1[11] = KING_COURT /// 3
set skills1[12] = KING_AURA /// 4
set skills1[13] = KING_COURT /// 4
set skills1[14] = ROYAL_BANISH /// 3
elseif (heroid == MAGE) then
set skills1[ 1] = DEVOTION_AURA
set skills1[ 2] = HOLY_BOLT
set skills1[ 3] = BLINK
set skills1[ 4] = DEVOTION_AURA
set skills1[ 5] = HOLY_BOLT
set skills1[ 6] = MASS_TELEPORT
set skills1[ 7] = DEVOTION_AURA
set skills1[ 8] = HOLY_BOLT
set skills1[ 9] = BLINK
set skills1[10] = BLINK
set skills1[11] = ATTRIBUTE_BONUS
set skills1[12] = ATTRIBUTE_BONUS
set skills1[13] = ATTRIBUTE_BONUS
set skills1[14] = ATTRIBUTE_BONUS
set skills1[15] = ATTRIBUTE_BONUS
elseif (heroid == PALADIN) then
set skills1[ 1] = DEVOTION_AURA
set skills1[ 2] = HOLY_BOLT
set skills1[ 3] = DIVINE_SHIELD
set skills1[ 4] = DEVOTION_AURA
set skills1[ 5] = HOLY_BOLT
set skills1[ 6] = DIVINE_SHIELD
set skills1[ 7] = DEVOTION_AURA
set skills1[ 8] = HOLY_BOLT
set skills1[ 9] = DIVINE_SHIELD
set skills1[10] = BLESSED_FIELD
set skills1[11] = ATTRIBUTE_BONUS
set skills1[12] = ATTRIBUTE_BONUS
set skills1[13] = ATTRIBUTE_BONUS
set skills1[14] = ATTRIBUTE_BONUS
set skills1[15] = ATTRIBUTE_BONUS
set skills1[16] = BLESSED_FIELD
elseif (heroid == WARRIOR) then
set skills1[ 1] = DEVOTION_AURA
set skills1[ 2] = ROYAL_BLADESTORM
set skills1[ 3] = CRIT_STRIKE
set skills1[ 4] = DEVOTION_AURA
set skills1[ 5] = ROYAL_BLADESTORM
set skills1[ 6] = CRIT_STRIKE
set skills1[ 7] = DEVOTION_AURA
set skills1[ 8] = ROYAL_BLADESTORM
set skills1[ 9] = CRIT_STRIKE
set skills1[10] = ROYAL_AVATAR
endif
elseif (order == 2) then
set hero_id2 = heroid
if (heroid == SOVEREIGN) then
set skills2[ 1] = KING_AURA /// 1
set skills2[ 2] = THUNDER_CLAP /// 1
set skills2[ 3] = KING_COURT /// 1
set skills2[ 4] = ROYAL_BANISH /// 1
set skills2[ 5] = KING_AURA /// 2
set skills2[ 6] = THUNDER_CLAP /// 2
set skills2[ 7] = KING_COURT /// 2
set skills2[ 8] = ROYAL_BANISH /// 2
set skills2[ 9] = KING_AURA /// 3
set skills2[10] = THUNDER_CLAP /// 3
set skills2[11] = KING_COURT /// 3
set skills2[12] = KING_AURA /// 4
set skills2[13] = KING_COURT /// 4
set skills2[14] = ROYAL_BANISH /// 3
elseif (heroid == MONARCH) then
set skills2[ 1] = KING_AURA /// 1
set skills2[ 2] = ROYAL_SHOCKWAVE /// 1
set skills2[ 3] = KING_COURT /// 1
set skills2[ 4] = ROYAL_BANISH /// 1
set skills2[ 5] = KING_AURA /// 2
set skills2[ 6] = ROYAL_SHOCKWAVE /// 2
set skills2[ 7] = KING_COURT /// 2
set skills2[ 8] = ROYAL_BANISH /// 2
set skills2[ 9] = KING_AURA /// 3
set skills2[10] = ROYAL_SHOCKWAVE /// 3
set skills2[11] = KING_COURT /// 3
set skills2[12] = KING_AURA /// 4
set skills2[13] = KING_COURT /// 4
set skills2[14] = ROYAL_BANISH /// 3
elseif (heroid == MAJESTY) then
set skills2[ 1] = KING_AURA /// 1
set skills2[ 2] = ROYAL_BLIZZARD /// 1
set skills2[ 3] = KING_COURT /// 1
set skills2[ 4] = ROYAL_BANISH /// 1
set skills2[ 5] = KING_AURA /// 2
set skills2[ 6] = ROYAL_BLIZZARD /// 2
set skills2[ 7] = KING_COURT /// 2
set skills2[ 8] = ROYAL_BANISH /// 2
set skills2[ 9] = KING_AURA /// 3
set skills2[10] = ROYAL_BLIZZARD /// 3
set skills2[11] = KING_COURT /// 3
set skills2[12] = KING_AURA /// 4
set skills2[13] = KING_COURT /// 4
set skills2[14] = ROYAL_BANISH /// 3
elseif (heroid == MAGE) then
set skills2[ 1] = DEVOTION_AURA
set skills2[ 2] = HOLY_BOLT
set skills2[ 3] = BLINK
set skills2[ 4] = DEVOTION_AURA
set skills2[ 5] = HOLY_BOLT
set skills2[ 6] = MASS_TELEPORT
set skills2[ 7] = DEVOTION_AURA
set skills2[ 8] = HOLY_BOLT
set skills2[ 9] = BLINK
set skills2[10] = BLINK
set skills2[11] = ATTRIBUTE_BONUS
set skills2[12] = ATTRIBUTE_BONUS
set skills2[13] = ATTRIBUTE_BONUS
set skills2[14] = ATTRIBUTE_BONUS
set skills2[15] = ATTRIBUTE_BONUS
elseif (heroid == PALADIN) then
set skills2[ 1] = DEVOTION_AURA
set skills2[ 2] = HOLY_BOLT
set skills2[ 3] = DIVINE_SHIELD
set skills2[ 4] = DEVOTION_AURA
set skills2[ 5] = HOLY_BOLT
set skills2[ 6] = DIVINE_SHIELD
set skills2[ 7] = DEVOTION_AURA
set skills2[ 8] = HOLY_BOLT
set skills2[ 9] = DIVINE_SHIELD
set skills2[10] = BLESSED_FIELD
set skills2[11] = ATTRIBUTE_BONUS
set skills2[12] = ATTRIBUTE_BONUS
set skills2[13] = ATTRIBUTE_BONUS
set skills2[14] = ATTRIBUTE_BONUS
set skills2[15] = ATTRIBUTE_BONUS
set skills2[16] = BLESSED_FIELD
elseif (heroid == WARRIOR) then
set skills2[ 1] = DEVOTION_AURA
set skills2[ 2] = ROYAL_BLADESTORM
set skills2[ 3] = CRIT_STRIKE
set skills2[ 4] = DEVOTION_AURA
set skills2[ 5] = ROYAL_BLADESTORM
set skills2[ 6] = CRIT_STRIKE
set skills2[ 7] = DEVOTION_AURA
set skills2[ 8] = ROYAL_BLADESTORM
set skills2[ 9] = CRIT_STRIKE
set skills2[10] = ROYAL_AVATAR
set skills2[20] = ROYAL_AVATAR
endif
endif
endfunction
//===========================================================================
// Selects hero IDs for three possible heroes
//===========================================================================
function SelectHeroes takes nothing returns nothing
local integer roll = GetRandomInt(1,9)
if (roll == 1) then
call SetHero( 1, MAGE )
call SetHero( 2, SOVEREIGN )
elseif (roll == 2) then
call SetHero( 1, PALADIN )
call SetHero( 2, SOVEREIGN )
elseif (roll == 3) then
call SetHero( 1, WARRIOR )
call SetHero( 2, SOVEREIGN )
elseif (roll == 4) then
call SetHero( 1, MAGE )
call SetHero( 2, MONARCH )
elseif (roll == 5) then
call SetHero( 1, PALADIN )
call SetHero( 2, MONARCH )
elseif (roll == 6) then
call SetHero( 1, WARRIOR )
call SetHero( 2, MONARCH )
elseif (roll == 7) then
call SetHero( 1, MAGE )
call SetHero( 2, MAJESTY )
elseif (roll == 8) then
call SetHero( 1, PALADIN )
call SetHero( 2, MAJESTY )
elseif (roll == 9) then
call SetHero( 1, WARRIOR )
call SetHero( 2, MAJESTY )
endif
endfunction
//===========================================================================
// Returns the hero skill for the given hero and level
//===========================================================================
function ChooseHeroSkill takes nothing returns integer
local integer curHero = GetHeroId()
local integer level = GetHeroLevelAI()
if (level > max_hero_level) then
set max_hero_level = level
endif
if (curHero == hero_id) then
return skills1[level]
elseif (curHero == hero_id2) then
return skills2[level]
endif
return 0
endfunction
//***************************************************************************
//*
//* Building and Harvesting
//*
//***************************************************************************
function BuildPriorities takes nothing returns nothing
local integer mine = TownWithMine()
call SetBuildAll( BUILD_UNIT, 1, hero_id, -1 )
call SetBuildAll( BUILD_UNIT, 1, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 1, hero_id2, -1 )
call SetBuildAll( BUILD_UNIT, 2, PEASANT, -1 )
if gCond_Need_Town_Hall then
call BuildExpansion (TOWN_HALL, TOWN_HALL)
endif
call SetBuildAll( BUILD_UNIT, 3, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 4, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 5, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 6, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 7, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 8, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 9, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 10, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 11, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 12, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 13, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 14, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 15, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 16, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 17, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 18, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 19, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 20, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 21, PEASANT, -1 )
call SetBuildAll( BUILD_UNIT, 1, FARM_1, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_BARRACKS, -1 )
/// Build Lumbermill
if gCond_Need_LM then
if (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, LUMBER_MILL, 1 )
elseif(( TownHasHall( 2 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, LUMBER_MILL, 2 )
else
call SetBuildAll( BUILD_UNIT, 1, LUMBER_MILL, -1 )
endif
endif
/// end Build Lumbermill
/// Build Blacksmith
if gCond_Need_BS then
if (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, BLACKSMITH, 1 )
elseif (( TownHasHall( 2 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, BLACKSMITH, 2 )
else
call SetBuildAll( BUILD_UNIT, 1, BLACKSMITH, -1 )
endif
endif
/// end Build Blacksmith
/// Build Market
if gCond_Need_Market then
if (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, ARCANE_VAULT, 1 )
elseif (( TownHasHall( 2 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, ARCANE_VAULT, 2 )
else
call SetBuildAll( BUILD_UNIT, 1, ARCANE_VAULT, -1 )
endif
endif
/// end Build Market
if (gCond_Need_Guard_Tower) then
call SetBuildAll( BUILD_UNIT, 1, BASIC_TOWER, -1 )
call SetBuildAll( BUILD_UNIT, 2, BASIC_TOWER, -1 )
endif
call SetBuildAll( BUILD_UNIT, 1, GUARD_TOWER, -1 )
call SetBuildAll( BUILD_UNIT, 2, GUARD_TOWER, -1 )
/// Build Stables checking at expansion one first
if (gCond_Needs_Stable) then
if (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, BARRACKS, 2 )
elseif (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, BARRACKS, 1 )
else
call SetBuildAll( BUILD_UNIT, 1, BARRACKS, -1 )
endif
endif
/// end build stables
if (gCond_Needs_Garrison) then
call SetBuildAll( BUILD_UNIT, 1, GARRISON_1, -1 )
endif
/// Build Wizard Tower
if gCond_Need_WizTower then
if (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, SANCTUM, 1 )
elseif (( TownHasHall( 2 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, SANCTUM, 2 )
else
call SetBuildAll( BUILD_UNIT, 1, SANCTUM, -1 )
endif
endif
///end build Wizard Tower
call SetBuildAll( BUILD_UNIT, 1, ROYAL_CHURCH, -1 )
call SetBuildAll( BUILD_UNIT, 1, HIGH_ARCHER, -1 )
call SetBuildAll( BUILD_UNIT, 2, HIGH_ARCHER, -1 )
call SetBuildAll( BUILD_UNIT, 3, HIGH_ARCHER, -1 )
call SetBuildAll( BUILD_UNIT, 4, HIGH_ARCHER, -1 )
call SetBuildAll( BUILD_UNIT, 1, FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 2, FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 3, FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 4, FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 5, FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 6, FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 1, MORTAR, -1 )
call SetBuildAll( BUILD_UNIT, 1, CHAPLAIN, -1 )
call SetBuildAll( BUILD_UNIT, 1, SORCERESS, -1 )
call SetBuildAll( BUILD_UNIT, 1, HYDROMANCER, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_MELEE, -1 )
if (( GetUnitCount( BLACKSMITH ) < 2 )) then
call SetBuildAll( BUILD_UNIT, 2, BLACKSMITH, -1 )
endif
call SetBuildAll( BUILD_UPGRADE, 1, UPG_ARMOR, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_SENTINEL, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_PRAYING, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_SORCERY, -1 )
call SetBuildAll( BUILD_UNIT, 1, FARM_2, -1 )
call SetBuildAll( BUILD_UNIT, 1, FARM_3, -1 )
call SetBuildAll( BUILD_UNIT, 1, FARM_4, -1 )
if (( ( GetUnitCount( STABLES_3 ) + GetUnitCount( STABLES_4 ) ) == 0 )) then
call SetBuildAll( BUILD_UNIT, 1, STABLES_2, -1 )
endif
if (( GetUnitCount( STABLES_4 ) == 0 )) then
call SetBuildAll( BUILD_UNIT, 1, STABLES_3, -1 )
endif
call SetBuildAll( BUILD_UNIT, 1, STABLES_4, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 2, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 3, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 4, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_ARMOR, -1 )
if (( GetUnitCount( GARRISON_3 ) == 0 )) then
call SetBuildAll( BUILD_UNIT, 1, GARRISON_2, -1 )
endif
call SetBuildAll( BUILD_UNIT, 1, GARRISON_3, -1 )
call SetBuildAll( BUILD_UNIT, 1, HIGH_FOOTMAN, -1 )
call SetBuildAll( BUILD_UNIT, 1, SPEAR_MAN, -1 )
call SetBuildAll( BUILD_UNIT, 2, SPEAR_MAN, -1 )
call SetBuildAll( BUILD_UNIT, 1, QUESTIONER, -1 )
call SetBuildAll( BUILD_UNIT, 1, WIZARD, -1 )
call SetBuildAll( BUILD_UNIT, 1, PRIEST, -1 )
call SetBuildAll( BUILD_UNIT, 1, EXEMPLAR, -1 )
call SetBuildAll( BUILD_UNIT, 1, JUSTICAR, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_SPEAR, -1 )
call SetBuildAll( BUILD_UNIT, 1, GENERAL, -1 )
if (( GetUpgradeLevel( UPG_ROGUE ) == 1 )) then
call SetBuildAll( BUILD_UNIT, 1, ROGUE, -1 )
endif
call SetBuildAll( BUILD_UNIT, 1, ROYAL_PRIEST, -1 )
call SetBuildAll( BUILD_UPGRADE, 3, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 3, UPG_ARMOR, -1 )
if (( GetUnitCount( FARM_5 ) == 0 )) then
call SetBuildAll( BUILD_UNIT, 1, FARM_5, -1 )
endif
call SetBuildAll( BUILD_UNIT, 1, ROYAL_ENGINEER, -1 )
/// Build towers and fountain at first expansion
if (( TownHasHall( 1 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, FOUNTAIN, 1 )
call SetBuildAll( BUILD_UNIT, 1, TOWER_COLD_1, 1 )
call SetBuildAll( BUILD_UNIT, 1, TOWER_FLAME_1, 1 )
endif
/// end build towers and fountain at first expansion
/// Build towers and fountain at second expansion
if (( TownHasHall( 2 ) == true )) then
call SetBuildAll( BUILD_UNIT, 1, FOUNTAIN, 2 )
call SetBuildAll( BUILD_UNIT, 1, TOWER_COLD_1, 2 )
call SetBuildAll( BUILD_UNIT, 1, TOWER_FLAME_1, 2 )
endif
/// end build towers and fountain at second expansion
call SetBuildAll( BUILD_UNIT, 1, TOWER_ROYAL_1, -1 )
call SetBuildAll( BUILD_UNIT, 1, TOWER_ROYAL_SKY, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_FACTORY, -1 )
if (gCond_Need_Research_Center) then
call SetBuildAll( BUILD_UNIT, 1, RESEARCH_CENTER_1, -1 )
endif
call SetBuildAll( BUILD_UPGRADE, 1, UPG_LEATHER, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_DOTA_ARCHER, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_DOTA_CANNON, -1 )
call SetBuildAll( BUILD_UNIT, 1, RESEARCH_CENTER_2, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_DOTA_WIZARD, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_DOTA_KNIGHT, -1 )
if (( ( GetUpgradeLevel( UPG_LEATHER ) + GetUpgradeLevel( UPG_ROGUE ) ) == 2 )) then
call SetBuildAll( BUILD_UNIT, 1, NINJA, -1 )
endif
call SetBuildAll( BUILD_UNIT, 1, ROYAL_MARKET_2, -1 )
call SetBuildAll( BUILD_UNIT, 1, STONEMASON_TOWER, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_MASONRY, -1 )
call SetBuildAll( BUILD_UPGRADE, 4, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 4, UPG_ARMOR, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_MASONRY, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_PRAYING, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_SORCERY, -1 )
call SetBuildAll( BUILD_UPGRADE, 5, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 5, UPG_ARMOR, -1 )
call SetBuildAll( BUILD_UNIT, 1, TOWER_WIZARDRY_2_UPGRADE, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_ENGINEER_2, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_WORKSHOP, -1 )
call SetBuildAll( BUILD_UNIT, 1, FARM_COTTAGE, -1 )
call SetBuildAll( BUILD_UNIT, 2, FARM_COTTAGE, -1 )
call SetBuildAll( BUILD_UNIT, 3, FARM_COTTAGE, -1 )
call SetBuildAll( BUILD_UNIT, 4, FARM_COTTAGE, -1 )
call SetBuildAll( BUILD_UNIT, 5, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 6, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 7, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 8, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 1, WIZARD_CHAOS, -1 )
call SetBuildAll( BUILD_UNIT, 2, WIZARD_CHAOS, -1 )
call SetBuildAll( BUILD_UNIT, 3, WIZARD_CHAOS, -1 )
call SetBuildAll( BUILD_UNIT, 4, WIZARD_CHAOS, -1 )
call SetBuildAll( BUILD_UNIT, 1, ROYAL_MAGUS, -1 )
call SetBuildAll( BUILD_UNIT, 2, ROYAL_MAGUS, -1 )
call SetBuildAll( BUILD_UNIT, 3, ROYAL_MAGUS, -1 )
call SetBuildAll( BUILD_UNIT, 4, ROYAL_MAGUS, -1 )
call SetBuildAll( BUILD_UPGRADE, 6, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 7, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 8, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 9, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 10, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 3, UPG_MASONRY, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_RANGED, -1 )
call SetBuildAll( BUILD_UPGRADE, 11, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 12, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 13, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 14, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 15, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 4, UPG_MASONRY, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_RANGED, -1 )
call SetBuildAll( BUILD_UPGRADE, 16, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 17, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 18, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 19, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 20, UPG_MELEE, -1 )
call SetBuildAll( BUILD_UPGRADE, 3, UPG_RANGED, -1 )
call SetBuildAll( BUILD_UNIT, 1, DOZER, -1 )
call SetBuildAll( BUILD_UNIT, 2, DOZER, -1 )
call SetBuildAll( BUILD_UNIT, 3, DOZER, -1 )
call SetBuildAll( BUILD_UNIT, 4, DOZER, -1 )
call SetBuildAll( BUILD_UPGRADE, 1, UPG_MAGIC_DAMAGE, -1 )
call SetBuildAll( BUILD_UPGRADE, 5, UPG_MASONRY, -1 )
call SetBuildAll( BUILD_UPGRADE, 2, UPG_MAGIC_DAMAGE, -1 )
call SetBuildAll( BUILD_UPGRADE, 3, UPG_MAGIC_DAMAGE, -1 )
call SetBuildAll( BUILD_UNIT, 9, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 10, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 11, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 12, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 13, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 14, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 15, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 16, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 17, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 18, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 18, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 19, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 20, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 21, ROYAL_KNIGHT_4, -1 )
call SetBuildAll( BUILD_UNIT, 2, QUESTIONER, -1 )
call SetBuildAll( BUILD_UNIT, 2, WIZARD, -1 )
call SetBuildAll( BUILD_UNIT, 2, ROYAL_PRIEST, -1 )
call SetBuildAll( BUILD_UNIT, 2, EXEMPLAR, -1 )
call SetBuildAll( BUILD_UNIT, 2, JUSTICAR, -1 )
call SetBuildAll( BUILD_UNIT, 2, ROYAL_SPEAR, -1 )
call SetBuildAll( BUILD_UNIT, 2, GENERAL, -1 )
endfunction
//===========================================================================
// Specifies harvesting priorities for workers
//===========================================================================
function HarvestPriorities takes nothing returns nothing
local integer mine = TownWithMine()
local integer allGold = GetUnitCountDone(PEASANT)
local integer allWood = GetUnitCountDone(PEASANT)
local integer numWorkers
set numWorkers = 4
call HarvestGold( 0, numWorkers )
set numWorkers = 4
call HarvestGold( 1, numWorkers )
set numWorkers = 4
call HarvestGold( 2, numWorkers )
set numWorkers = 3
call HarvestGold( 3, numWorkers )
set numWorkers = 12
call HarvestWood( mine, numWorkers )
endfunction
//===========================================================================
// Determines all building and harvesting assignments for workers
//===========================================================================
function WorkerAssignment takes nothing returns nothing
loop
call UpdateConditions( )
// Harvesting
call ClearHarvestAI( )
call HarvestPriorities( )
// Building
call InitBuildArray( )
call BuildPriorities( )
call Sleep( 2 )
endloop
endfunction
//***************************************************************************
//*
//* Attacking
//*
//***************************************************************************
//===========================================================================
// Returns true if the minimum forces for an attack exist
//===========================================================================
function HaveMinimumAttackers takes nothing returns boolean
local integer count
// Check for attack wave limit
if (attackWave > 21) then
return false
endif
// First Hero Only
if (GetUnitCountDone(hero_id) < 1) then
return false
endif
return true
endfunction
//===========================================================================
// Assigns units to attack based on the given attack group
//===========================================================================
function PrepareAttackGroup takes integer groupID returns nothing
local integer all
// Attack Group #1: All Units
if (groupID == 1) then
set all = GetUnitCountDone( hero_id )
call SetAssaultGroup( all, all, hero_id )
if (( GetUpgradeLevel( UPG_LEATHER ) == 1 )) then
set all = GetUnitCountDone( hero_id2 )
call SetAssaultGroup( all, all, hero_id2 )
endif
set all = GetUnitCountDone( FOOTMAN )
call SetAssaultGroup( all, all, FOOTMAN )
set all = GetUnitCountDone( HIGH_ARCHER )
call SetAssaultGroup( all, all, HIGH_ARCHER )
set all = GetUnitCountDone( MORTAR )
call SetAssaultGroup( all, all, MORTAR )
set all = GetUnitCountDone( CHAPLAIN )
call SetAssaultGroup( all, all, CHAPLAIN )
set all = GetUnitCountDone( HIGH_FOOTMAN )
call SetAssaultGroup( all, all, HIGH_FOOTMAN )
set all = GetUnitCountDone( SPEAR_MAN )
call SetAssaultGroup( all, all, SPEAR_MAN )
set all = GetUnitCountDone( QUESTIONER )
call SetAssaultGroup( all, all, QUESTIONER )
set all = GetUnitCountDone( SORCERESS )
call SetAssaultGroup( all, all, SORCERESS )
set all = GetUnitCountDone( WIZARD )
call SetAssaultGroup( all, all, WIZARD )
set all = GetUnitCountDone( HYDROMANCER )
call SetAssaultGroup( all, all, HYDROMANCER )
set all = GetUnitCountDone( PRIEST )
call SetAssaultGroup( all, all, PRIEST )
set all = GetUnitCountDone( EXEMPLAR )
call SetAssaultGroup( all, all, EXEMPLAR )
set all = GetUnitCountDone( JUSTICAR )
call SetAssaultGroup( all, all, JUSTICAR )
set all = GetUnitCountDone( ROYAL_SPEAR )
call SetAssaultGroup( all, all, ROYAL_SPEAR )
set all = GetUnitCountDone( GENERAL )
call SetAssaultGroup( all, all, GENERAL )
set all = GetUnitCountDone( ROGUE )
call SetAssaultGroup( all, all, ROGUE )
set all = GetUnitCountDone( ROYAL_PRIEST )
call SetAssaultGroup( all, all, ROYAL_PRIEST )
set all = GetUnitCountDone( BISHOP )
call SetAssaultGroup( all, all, BISHOP )
set all = GetUnitCountDone( NINJA )
call SetAssaultGroup( all, all, NINJA )
set all = GetUnitCountDone( WIZARD_CHAOS )
call SetAssaultGroup( all, all, WIZARD_CHAOS )
set all = GetUnitCountDone( ROYAL_MAGUS )
call SetAssaultGroup( all, all, ROYAL_MAGUS )
set all = GetUnitCountDone( KNIGHT )
call SetAssaultGroup( all, all, KNIGHT )
set all = GetUnitCountDone( ROYAL_KNIGHT_2 )
call SetAssaultGroup( all, all, ROYAL_KNIGHT_2 )
set all = GetUnitCountDone( ROYAL_KNIGHT_3 )
call SetAssaultGroup( all, all, ROYAL_KNIGHT_3 )
set all = GetUnitCountDone( ROYAL_KNIGHT_4 )
call SetAssaultGroup( all, all, ROYAL_KNIGHT_4 )
set all = GetUnitCountDone( BIG_BERTHA )
call SetAssaultGroup( all, all, BIG_BERTHA )
set all = GetUnitCountDone( DOZER )
call SetAssaultGroup( all, all, DOZER )
endif
endfunction
//===========================================================================
// Prepares an attack group based on the current attack wave
//===========================================================================
function PrepareForces takes nothing returns nothing
call PrepareAttackGroup( 1 )
endfunction
//===========================================================================
// Sleep delays for each attack wave
//===========================================================================
function AttackWaveDelay takes integer inWave returns nothing
if (inWave < nextDelay) then
return
endif
if (inWave == 0) then
call Sleep( 90 )
elseif (inWave == 1) then
call Sleep( 70 )
elseif ((inWave == 2) and (Tier == 1)) then
call Sleep( 45 )
elseif ((inWave == 2) and (Tier == 2)) then
call Sleep( 120 )
elseif ((inWave == 2) and (Tier == 3)) then
call Sleep( 180 )
endif
set nextDelay = inWave + 1
endfunction
//===========================================================================
// Advances attack wave counter
//===========================================================================
function AttackWaveUpdate takes nothing returns nothing
call AttackWaveDelay( attackWave )
set attackWave = attackWave + 1
if (attackWave > 2) then
set attackWave = 2
set nextDelay = attackWave + 1
endif
endfunction
//===========================================================================
// Basic attack functionality
//===========================================================================
function AttackTarget takes unit target, boolean addAlliance returns nothing
if (target == null) then
return
endif
if (addAlliance) then
call SetAllianceTarget( target )
endif
call FormGroup( 3, true )
call AttackMoveKillA( target )
if (not addAlliance) then
call SetAllianceTarget( null )
endif
endfunction
//===========================================================================
// Initiates an attack based on target priorities
//===========================================================================
function LaunchAttack takes nothing returns nothing
local unit target = null
local boolean setAlly = true
// Don't launch any attack while town is threatened
if (TownThreatened()) then
call Sleep( 2 )
return
endif
// Target Priority #1
if (Tier < 3) then
if (target == null) then
set target = GetCreepCamp( 0, 9, false )
endif
endif
// Target Priority #2
if (target == null) then
set target = GetEnemyExpansion()
if (target == null) then
call StartGetEnemyBase( )
loop
exitwhen (not WaitGetEnemyBase())
call SuicideSleep( 1 )
endloop
set target = GetEnemyBase()
endif
endif
// Attack the target and increment attack wave
if (target != null) then
call AttackTarget( target, setAlly )
call AttackWaveUpdate( )
else
// If no target was found, sleep a bit before trying again
call Sleep( 20 )
endif
endfunction
//===========================================================================
// Determines all attacking assignments
//===========================================================================
function AttackAssignment takes nothing returns nothing
call StaggerSleep( 0, 2 )
if (attackWave == 1) then
call AttackWaveDelay( 0 )
endif
loop
loop
call UpdateConditions( )
exitwhen (HaveMinimumAttackers() and not CaptainRetreating())
call Sleep( 2 )
endloop
call RemoveInjuries( )
call ResetAttackUnits( )
call PrepareForces( )
call LaunchAttack( )
endloop
endfunction
//***************************************************************************
//*
//* Misc.
//*
//***************************************************************************
//===========================================================================
// AI Command Function
//===========================================================================
function TierCondition takes nothing returns nothing
if CommandsWaiting() > 0 then
set Tier = GetLastCommand()
call PopLastCommand()
call InitBuildArray()
endif
endfunction
function ConditionLoop takes nothing returns nothing
call TierCondition()
call StaggerSleep(1,5)
loop
call TierCondition()
call Sleep(16)
endloop
endfunction
//***************************************************************************
//*
//* Main Entry Point
//*
//***************************************************************************
//===========================================================================
function main takes nothing returns nothing
call InitAI( )
call SetPlayerName( ai_player, "Insane King XXIV" )
call InitOptions( )
call SelectHeroes( )
call CreateCaptains( )
call SetHeroLevels( function ChooseHeroSkill )
call Sleep( 0.1 )
call StartThread( function WorkerAssignment )
call StartThread( function AttackAssignment )
call StartThread( function ConditionLoop )
call PlayGame( )
endfunction
Last edited:
