Turning melee ai into campaign ai

[Lordliw]

The title is pretty straightforward. I took the melee human ai script and edited in high elven parts to adjust it for a custom map of mine. As far as my intuition goes, I'm in a dead end where I don't see a plausible solution, I'm not a programmer – the most I can do is set up peons, build sequences, attack sequences and then call it all in the main function. The idea of going through a very different programming style seems pretty arduous, at least to me. Really would appreciate it if anyone could check out my "work in progress" script and let me know what the script lacks, thanks.

If you're, by any chance, wondering what happens when I load the ai script, the peasants just go straight for the gold mine and play brain dead.
Also, does it matter if I send the AI command (0, 0) in the trigger editor if I don't put the WaitForSignal command in the script?

//==================================================================================================
//  $Id: human.ai,v 1.15 2003/04/23 19:26:00 bfitch Exp $
//==================================================================================================
globals
    boolean basic_opening       = true

    boolean b_hero_done        = false
    boolean b_knights_ok        = false

    integer c_altar_done        = 0
    integer c_castle_done       = 0
    integer c_food_made         = 0
    integer c_food_used         = 0
    integer c_footman_done      = 0
    integer c_gold              = 0
    integer c_gold_owned        = 0
    integer c_hall              = 0
    integer c_hall_done         = 0
    integer c_hawk_done         = 0
    integer c_hero_done         = 0
    integer c_house             = 0
    integer c_house_done        = 0
    integer c_keep_done         = 0
    integer c_knight_done       = 0
    integer c_mill_done         = 0
    integer c_mines             = 0
    integer c_peasant_done      = 0
    integer c_priest_done       = 0
    integer c_archer_done       = 0
    integer c_sanctum_done      = 0
    integer c_smith_done        = 0
    integer c_sorceress_done    = 0
    integer c_skyfury           = 0
    integer c_skyfury_done      = 0
    integer c_earthfury         = 0
    integer c_earthfury_done    = 0
    integer c_zep               = 0
endglobals

//--------------------------------------------------------------------------------------------------
//  set_skills
//--------------------------------------------------------------------------------------------------
function set_skills takes nothing returns nothing

    set skill[ 1] = FLAMESTRIKE
    set skill[ 2] = BANISH
    set skill[ 3] = SIPHON_MANA
    set skill[ 4] = FLAMESTRIKE
    set skill[ 5] = SIPHON_MANA
    set skill[ 6] = SUMMON_PHOENIX
    set skill[ 7] = FLAMESTRIKE
    set skill[ 8] = SIPHON_MANA
    set skill[ 9] = BANISH
    set skill[10] = BANISH

    call SetSkillArray(1, 'Hkal')
    call SetSkillArray(2, 'Hkal')
    call SetSkillArray(3, 'Hkal')

endfunction

//--------------------------------------------------------------------------------------------------
//  setup_force
//--------------------------------------------------------------------------------------------------
function setup_force takes nothing returns nothing
    call AwaitMeleeHeroes()
    call InitMeleeGroup()

    call SetMeleeGroup( hero_id             )
    call SetMeleeGroup( 'hhes'              )
    call SetMeleeGroup( KNIGHT              )
    call SetMeleeGroup( 'nhea'              )
    call SetMeleeGroup( PRIEST              )
    call SetMeleeGroup( SORCERESS           )
    call SetMeleeGroup( 'nws1'              )

    call SetInitialWave(10)
endfunction

//--------------------------------------------------------------------------------------------------
//  force_level
//--------------------------------------------------------------------------------------------------
function force_level takes nothing returns integer
    local integer level = 4 // basic hero
    set level = level + 2 * (c_footman_done + c_priest_done + c_sorceress_done)
    set level = level + 3 * (c_archer_done + c_hawk_done)
    set level = level + 5 * (c_hero_done + c_knight_done)
    set level = level + 6 *  c_hero_done
    return level
endfunction

//--------------------------------------------------------------------------------------------------
//  attack_sequence
//--------------------------------------------------------------------------------------------------
function attack_sequence takes nothing returns nothing
    local boolean needs_exp
    local boolean air_units
    local integer level

    loop
        exitwhen c_hero_done > 0 and c_footman_done >= 2
        call Sleep(2)
    endloop

    if MeleeDifficulty() == MELEE_NEWBIE then
        call Sleep(240)
    endif

    call StaggerSleep(0,2)
    loop
        loop
            exitwhen not CaptainRetreating()
            call Sleep(2)
        endloop

        call setup_force()

        set level = force_level()
        set max_creeps = level * 4 / 5
        set min_creeps = max_creeps - 10
        if min_creeps < 0 then
            set min_creeps = 0
        endif

        set needs_exp        = take_exp and (level >= 9 or c_gold_owned < 2000)
        set air_units        = c_hawk_done > 0
        set allow_air_creeps = (c_archer_done + c_hawk_done) >= 3

        call SingleMeleeAttack(needs_exp,false,air_units)

        if MeleeDifficulty() == MELEE_NEWBIE then
            call Sleep(60)
        endif
    endloop
endfunction

//--------------------------------------------------------------------------------------------------
//  init_vars
//--------------------------------------------------------------------------------------------------
function init_vars takes nothing returns nothing

    set c_altar_done        = GetUnitCountDone(HUMAN_ALTAR)
    set c_castle_done       = TownCountDone(CASTLE)
    set c_food_made         = c_hall * GetFoodMade(TOWN_HALL) + c_house * GetFoodMade(ELF_FARM)
    set c_food_used         = FoodUsed()
    set c_footman_done      = GetUnitCountDone('hhes')
    set c_gold              = GetGold()
    set c_gold_owned        = GetGoldOwned()
    set c_hall              = TownCount(TOWN_HALL)
    set c_hall_done         = TownCountDone(TOWN_HALL)
    set c_hawk_done         = GetUnitCountDone('nws1')
    set c_hero_done         = GetUnitCountDone(hero_id)
    set c_house             = GetUnitCount(ELF_FARM)
    set c_house_done        = GetUnitCountDone(ELF_FARM)
    set c_keep_done         = TownCountDone(KEEP)
    set c_knight_done       = GetUnitCountDone(KNIGHT)
    set c_mill_done         = GetUnitCountDone(LUMBER_MILL)
    set c_mines             = GetMinesOwned()
    set c_peasant_done      = GetUnitCountDone(PEASANT)
    set c_priest_done       = GetUnitCountDone(PRIEST)
    set c_archer_done     = GetUnitCountDone('nhea')
    set c_sanctum_done      = GetUnitCountDone(SANCTUM)
    set c_smith_done        = GetUnitCountDone(BLACKSMITH)
    set c_sorceress_done    = GetUnitCountDone(SORCERESS)
    set c_skyfury           = TownCount(HIGH_SKY)
    set c_skyfury_done      = TownCountDone(HIGH_SKY)
    set c_earthfury         = TownCount(HIGH_EARTH)
    set c_earthfury_done    = TownCountDone(HIGH_EARTH)
    set c_zep               = GetUnitCount(ZEPPELIN)

    set b_hero_done        = GetUnitCountDone(hero_id) >= 1
    set b_knights_ok        = c_castle_done>=1 and c_mill_done>=1 and c_smith_done>=1

    if basic_opening and (b_hero_done or (MeleeDifficulty() == MELEE_NEWBIE and c_castle_done >= 1)) then
        set basic_opening = false
    endif
endfunction

//--------------------------------------------------------------------------------------------------
//  set_vars
//--------------------------------------------------------------------------------------------------
function set_vars takes nothing returns nothing
    loop
        call init_vars()
        call Sleep(1)
    endloop
endfunction

//--------------------------------------------------------------------------------------------------
//  do_upgrades
//--------------------------------------------------------------------------------------------------
function do_upgrades takes nothing returns nothing

    if c_keep_done >= 1 then

        call SetBuildUpgr( 1, UPG_WOOD )

        if c_castle_done >= 1 then
            call SetBuildUpgr( 2, UPG_WOOD )
        endif

        if b_knights_ok then
            call SetBuildUpgr( 1, UPG_BREEDING )
        endif
        if c_sanctum_done >= 1 then
            if c_priest_done >= 1 then
                call SetBuildUpgr( 1, UPG_PRAYING )
            endif
            if c_sorceress_done >= 1 then
                call SetBuildUpgr( 1, UPG_SORCERY )
            endif
        endif
        if c_castle_done >= 1 then

            call SetBuildUpgr( 2, UPG_WOOD )

            if c_sanctum_done >= 1 then
                if c_priest_done >= 1 then
                    call SetBuildUpgr( 2, UPG_PRAYING )
                endif
                if c_sorceress_done >= 1 then
                    call SetBuildUpgr( 2, UPG_SORCERY )
                endif
            endif
        endif
    endif

    call SetBuildUpgr( 1, UPG_DEFEND )

    if c_smith_done >= 1 then
        call SetBuildUpgr( 1, UPG_ARMOR     )
        call SetBuildUpgr( 1, UPG_MELEE     )
        call SetBuildUpgr( 1, UPG_MOON_ARMOR)
        call SetBuildUpgr( 1, UPG_STR_MOON  )

        if c_keep_done >= 1 then
            call SetBuildUpgr( 2, UPG_ARMOR     )
            call SetBuildUpgr( 2, UPG_MELEE     )
            call SetBuildUpgr( 2, UPG_MOON_ARMOR)
            call SetBuildUpgr( 2, UPG_STR_MOON  )

            if c_castle_done >= 1 then
                call SetBuildUpgr( 3, UPG_ARMOR     )
                call SetBuildUpgr( 3, UPG_MELEE     )
                call SetBuildUpgr( 3, UPG_MOON_ARMOR)
                call SetBuildUpgr( 3, UPG_STR_MOON  )
            endif
        endif
    endif

    if c_archer_done >= 1 and c_keep_done >= 1 then
        call SetBuildUpgr( 1, UPG_BOWS )
        if c_castle_done >= 1 then
            call SetBuildUpgr( 1, UPG_MARKSMAN )
        endif
    endif

    if c_mill_done >= 1 then
        call SetBuildUpgr( 1, UPG_MASONRY )
        if c_keep_done >= 1 then
            call SetBuildUpgr( 2, UPG_MASONRY )
        endif
    endif

endfunction

//--------------------------------------------------------------------------------------------------
//  build_sequence
//--------------------------------------------------------------------------------------------------
function build_sequence takes nothing returns nothing
    local integer peasants

    call InitBuildArray()

    if basic_opening then

        call MeleeTownHall( 0, TOWN_HALL )
        call MeleeTownHall( 1, TOWN_HALL )

        call SetBuildUnit(  6, PEASANT      )
        call SetBuildUnit(  1, HUMAN_ALTAR  )
        call SetBuildUnit(  7, PEASANT      )
        call SetBuildUnit(  1, HOUSE        )
        call SetBuildUnit(  1, BARRACKS     )
        call SetBuildUnit(  9, PEASANT      )
        call SetBuildUnit(  2, ELF_FARM     )
        call SetBuildUnit(  1, hero_id      )
        call SetBuildUnit( 11, PEASANT      )
        call SetBuildUnit(  1, 'hhes'       )
        call SetBuildUnit(  3, ELF_FARM     )
        call SetBuildUnit( 12, PEASANT      )
        call SetBuildUnit(  2, 'hhes'       )
        call SetBuildUnit( 13, PEASANT      )
        call SetBuildUnit(  3, 'hhes'       )
        call SetBuildUnit( 14, PEASANT      )
        call SetBuildUnit(  4, ELF_FARM     )
        call SetBuildUnit( 15, PEASANT      )
        call SetBuildUnit(  4, 'hhes'       )
        call SetBuildUnit( 16, PEASANT      )
        call SetBuildUnit(  5, 'hhes'       )
        call SetBuildUnit(  1, BLACKSMITH   )
        call SetBuildUnit(  6, 'hhes'       )
        call SetBuildUnit(  5, ELF_FARM     )
        call SetBuildUnit(  8, 'hhes'       )
        call SetBuildUnit(  6, ELF_FARM     )
        call SetBuildUnit(  2, 'nhea'       )
        call SetBuildUnit(  7, ELF_FARM     )
        call SetBuildUnit(  3, 'nhea'       )
        call SetBuildUnit(  1, ARCANE_VAULT )

        call BasicExpansion( c_mines < 2, TOWN_HALL )

        call SetBuildUnit(  4, 'nhea'       )
        call SetBuildUnit(  1, LUMBER_MILL  )

        if MeleeDifficulty() != MELEE_NEWBIE then
            call GuardSecondary( 1, 2, HIGH_SKY  )
            if c_mill_done >= 1 then
                call GuardSecondary( 1, 2, HIGH_EARTH  )
            endif
        endif

        call SetBuildUnit(  1, KEEP         )
        call SetBuildUpgr(  1, UPG_DEFEND   )
        call SetBuildUpgr(  1, UPG_ARMOR    )
        call SetBuildUnit(  7, ELF_FARM     )
        call SetBuildUpgr(  1, UPG_MELEE    )

        if c_keep_done < 1 then
            return
        endif

        call SetBuildUnit(  1, CASTLE       )

        call GuardSecondary( 0, 2, HIGH_EARTH  )
        if c_earthfury_done >= 3 then
            call GuardSecondary( 0, 1, HIGH_SKY  )
        endif

        call SetBuildUpgr(  1, UPG_STR_MOON )
        call SetBuildUnit(  1, SANCTUM      )
        call SetBuildUpgr(  1, UPG_WOOD     )
        call SetBuildUpgr(  2, UPG_ARMOR    )
        call SetBuildUpgr(  2, UPG_WOOD     )
        return
    endif

    // need a peasant or nothing will get built
    //
    if c_hall_done >= 1 then
        set peasants = 6 - GetWood() / 200
        if peasants < 3 then
            set peasants = 3
        endif
        if c_mines < 2 then
            set peasants = peasants + 5
        else
            set peasants = peasants + 10
        endif
        if peasants > 15 then
            set peasants = 15
        endif
        call SetBuildNext( peasants, PEASANT )
    endif

    // need a hall or we can't resource and make more peasants
    //
    if c_hall < 1 and c_peasant_done >= 1 then
        call MeleeTownHall( 0, TOWN_HALL )
        call MeleeTownHall( 1, TOWN_HALL )
        call MeleeTownHall( 2, TOWN_HALL )
    endif

    if c_gold > 500 and GetWood() < 100 then
        call SetBuildNext( 20, PEASANT )
    endif

    // if we have low gold in our mines then we need to expand
    //
    if c_gold_owned < 2000 then
        call BasicExpansion( c_mines < 2, TOWN_HALL )
        if MeleeDifficulty() != MELEE_NEWBIE then
            call GuardSecondary( 2, 2, HIGH_SKY  )
            if c_earthfury >= 2 then
                call GuardSecondary( 2, 2, HIGH_EARTH  )
            endif
        endif
    endif

    // get enough burrows to handle current food demand
    //
    if c_food_used + 5 >= c_food_made then
        call SetBuildUnit(  c_house_done + 1, ELF_FARM )
    endif

    // always rebuild heroes for defense
    //
    if c_altar_done >= 1 then
        if b_hero_done and MeleeDifficulty() != MELEE_NEWBIE then
                if c_castle_done >= 1 then
                    call SetBuildUnit( 1, hero_id )
                endif
            else
        call SetBuildUnit( 1, HUMAN_ALTAR )
    endif

    // minimum melee defense
    //
    call SetBuildUnit( 1, ELF_HIGH_BARRACKS )
    if b_knights_ok then
        call SetBuildUnit( 2, KNIGHT        )
    else
        call SetBuildUnit( 4, 'hhes'        )
    endif

    // minimum ranged/air defense
    //
        call SetBuildUnit( 3, 'nws1'    )
    else
        call SetBuildUnit( 1, BLACKSMITH )
        if c_smith_done >= 1 or c_gold < 1000 then
            call SetBuildUnit( 4, 'nhea'   )
        endif
    endif

    // siege attackers
    //
    call SetBuildUnit( 1, KEEP      )

    call SetBuildUnit( c_earthfury_done - c_skyfury_done, HIGH_EARTH )
    
    // if we have a lot of gold then advance the tech tree
    //
    if c_gold > 1000 then
        call SetBuildUnit( 1, ARCANE_VAULT  )
        call SetBuildUnit( 1, BLACKSMITH    )
        call SetBuildUnit( 1, LUMBER_MILL   )
        call SetBuildUnit( 1, SANCTUM       )
        call SetBuildUnit( 1, CASTLE        )

        call do_upgrades()

        if c_gold > 2000 then
            call BuildFactory( ELF_HIGH_BARRACKS       )
            call BuildFactory( SANCTUM                 )
        endif

    elseif c_food_used >= UPKEEP_TIER1 then
        call do_upgrades()
    endif

    call BasicExpansion( c_mines < 2, TOWN_HALL )

    if c_food_used >= UPKEEP_TIER2-10 and c_gold < 2000 then
        return
    endif

    // full up with more troops in general
    //
    if b_knights_ok then
        call SetBuildNext( 4, KNIGHT )
    endif

    if c_sanctum_done >= 1 then
        call SetBuildNext( 2, PRIEST        )
        call SetBuildNext( 1, SORCERESS     )

        if c_aviary_done >= 1 then
            call SetBuildNext( 2, 'nws1' )
        endif

        call SetBuildNext( 2, SORCERESS     )
    endif

    if c_gold_owned < 10000 then
        call BasicExpansion( c_mines < 3, TOWN_HALL )
    endif

    if c_food_used >= 60 and c_zep < 3 then
        call GetZeppelin()
    endif
endfunction

//--------------------------------------------------------------------------------------------------
//  peon_assignment
//--------------------------------------------------------------------------------------------------
function peon_assignment takes nothing returns nothing
    local integer T
    loop
        call ClearHarvestAI()

        set T = TownWithMine()

        call HarvestGold(T,4)
        call HarvestWood(0,1)
        call HarvestGold(T,1)
        call HarvestWood(0,1)

        if c_hall_done > 1 and c_mines > 1 then
            call HarvestGold(T+1,5)
        endif

        call HarvestWood(0,15)

        call build_sequence()

        call Sleep(GetRandomInt(1,3))
    endloop
endfunction

//--------------------------------------------------------------------------------------------------
//    main
//--------------------------------------------------------------------------------------------------
function main takes nothing returns nothing
    call CampaignAI(ELF_FARM, null)
    call peon_assignment()
    call attack_sequence()
    call set_skills()
    call StartThread(function set_vars)
endfunction

 

[Footman16]

What is the purpose of your script for the campaign mission? If you want just a basic attack and defence script like the AIs in the blizz campaign use then you'd be better taking those AIs and adapting them instead.

I've attached some of those scripts below. Let me know how these look to you and whether they make sense

EDIT: If the peasants are just mining gold then it means that there is an error in the script causing the whole thing to fail. This will usually be a syntax error such as missing variables, a typo etc.

 

[Chaosium]

There are indeed errors in the script so it's all invalidated

For the 1st one, the variable is FLAME_STRIKE, that was close enough

SingleMeleeAttack takes 4 arguments (I think)

And you got an unknown variable

 

[Lordliw]

What is the purpose of your script for the campaign mission? If you want just a basic attack and defence script like the AIs in the blizz campaign use then you'd be better taking those AIs and adapting them instead.

I'm testing out using a little more complex ai behavior as opposed to the plain campaign ai – I'm adjusting it for Key of the Three Moons campaign mission.
I'm hoping that if I can get it to work, then perhaps I could integrate it for the undead ai as well.

There are indeed errors in the script so it's all invalidated

I got it to work, the peasants no longer just head for the gold mine, but I just hit another dead end. I don't know if it's reforged's clunky mechanics or if I am just stupid, but the ai is still brain dead, I waited for a good 5 minutes to see if time is a factor, but it still does absolutely nothing.
Also, how did you get the debug information? It would probably save me a lot of trouble knowing where I went wrong.

Spoiler: Readjusted code

//==================================================================================================
//  $Id: human.ai,v 1.15 2003/04/23 19:26:00 bfitch Exp $
//==================================================================================================
globals
    boolean basic_opening       = true

    boolean b_hero_done        = false
    boolean b_knights_ok        = false

    integer c_altar_done        = 0
    integer c_castle_done       = 0
    integer c_food_made         = 0
    integer c_food_used         = 0
    integer c_footman_done      = 0
    integer c_gold              = 0
    integer c_gold_owned        = 0
    integer c_hall              = 0
    integer c_hall_done         = 0
    integer c_hawk_done         = 0
    integer c_hero_done         = 0
    integer c_house             = 0
    integer c_house_done        = 0
    integer c_keep_done         = 0
    integer c_knight_done       = 0
    integer c_mill_done         = 0
    integer c_mines             = 0
    integer c_peasant_done      = 0
    integer c_priest_done       = 0
    integer c_archer_done       = 0
    integer c_sanctum_done      = 0
    integer c_smith_done        = 0
    integer c_sorceress_done    = 0
    integer c_skyfury           = 0
    integer c_skyfury_done      = 0
    integer c_earthfury         = 0
    integer c_earthfury_done    = 0
    integer c_zep               = 0
endglobals

//--------------------------------------------------------------------------------------------------
//  set_skills
//--------------------------------------------------------------------------------------------------
function set_skills takes nothing returns nothing

    set skill[ 1] = FLAME_STRIKE
    set skill[ 2] = BANISH
    set skill[ 3] = SIPHON_MANA
    set skill[ 4] = FLAME_STRIKE
    set skill[ 5] = SIPHON_MANA
    set skill[ 6] = SUMMON_PHOENIX
    set skill[ 7] = FLAME_STRIKE
    set skill[ 8] = SIPHON_MANA
    set skill[ 9] = BANISH
    set skill[10] = BANISH

    call SetSkillArray(1, 'Hkal')
    call SetSkillArray(2, 'Hkal')
    call SetSkillArray(3, 'Hkal')

endfunction

//--------------------------------------------------------------------------------------------------
//  setup_force
//--------------------------------------------------------------------------------------------------
function setup_force takes nothing returns nothing
    call AwaitMeleeHeroes()
    call InitMeleeGroup()

    call SetMeleeGroup( hero_id             )
    call SetMeleeGroup( 'hhes'              )
    call SetMeleeGroup( KNIGHT              )
    call SetMeleeGroup( 'nhea'              )
    call SetMeleeGroup( PRIEST              )
    call SetMeleeGroup( SORCERESS           )
    call SetMeleeGroup( 'nws1'              )

    call SetInitialWave(10)
endfunction

//--------------------------------------------------------------------------------------------------
//  force_level
//--------------------------------------------------------------------------------------------------
function force_level takes nothing returns integer
    local integer level = 4 // basic hero
    set level = level + 2 * (c_footman_done + c_priest_done + c_sorceress_done)
    set level = level + 3 * (c_archer_done + c_hawk_done)
    set level = level + 5 * (c_hero_done + c_knight_done)
    set level = level + 6 *  c_hero_done
    return level
endfunction

//--------------------------------------------------------------------------------------------------
//  attack_sequence
//--------------------------------------------------------------------------------------------------
function attack_sequence takes nothing returns nothing
    local boolean needs_exp
    local boolean has_siege
    local boolean air_units
    local integer level

    loop
        exitwhen c_hero_done > 0 and c_footman_done >= 2
        call Sleep(2)
    endloop

    if MeleeDifficulty() == MELEE_NEWBIE then
        call Sleep(240)
    endif

    call StaggerSleep(0,2)
    loop
        loop
            exitwhen not CaptainRetreating()
            call Sleep(2)
        endloop

        call setup_force()

        set level = force_level()
        set max_creeps = level * 4 / 5
        set min_creeps = max_creeps - 10
        if min_creeps < 0 then
            set min_creeps = 0
        endif

        set needs_exp        = take_exp and (level >= 9 or c_gold_owned < 2000)
        set has_siege        = level >= 40 or c_knight_done > 0
        set air_units        = c_hawk_done > 0
        set allow_air_creeps = (c_archer_done + c_hawk_done) >= 3

        call SingleMeleeAttack(needs_exp,has_siege,false,air_units)

        if MeleeDifficulty() == MELEE_NEWBIE then
            call Sleep(60)
        endif
    endloop
endfunction

//--------------------------------------------------------------------------------------------------
//  init_vars
//--------------------------------------------------------------------------------------------------
function init_vars takes nothing returns nothing

    set c_altar_done        = GetUnitCountDone(HUMAN_ALTAR)
    set c_castle_done       = TownCountDone(CASTLE)
    set c_food_made         = c_hall * GetFoodMade(TOWN_HALL) + c_house * GetFoodMade(ELF_FARM)
    set c_food_used         = FoodUsed()
    set c_footman_done      = GetUnitCountDone('hhes')
    set c_gold              = GetGold()
    set c_gold_owned        = GetGoldOwned()
    set c_hall              = TownCount(TOWN_HALL)
    set c_hall_done         = TownCountDone(TOWN_HALL)
    set c_hawk_done         = GetUnitCountDone('nws1')
    set c_hero_done         = GetUnitCountDone(hero_id)
    set c_house             = GetUnitCount(ELF_FARM)
    set c_house_done        = GetUnitCountDone(ELF_FARM)
    set c_keep_done         = TownCountDone(KEEP)
    set c_knight_done       = GetUnitCountDone(KNIGHT)
    set c_mill_done         = GetUnitCountDone(LUMBER_MILL)
    set c_mines             = GetMinesOwned()
    set c_peasant_done      = GetUnitCountDone(PEASANT)
    set c_priest_done       = GetUnitCountDone(PRIEST)
    set c_archer_done     = GetUnitCountDone('nhea')
    set c_sanctum_done      = GetUnitCountDone(SANCTUM)
    set c_smith_done        = GetUnitCountDone(BLACKSMITH)
    set c_sorceress_done    = GetUnitCountDone(SORCERESS)
    set c_skyfury           = TownCount(HIGH_SKY)
    set c_skyfury_done      = TownCountDone(HIGH_SKY)
    set c_earthfury         = TownCount(HIGH_EARTH)
    set c_earthfury_done    = TownCountDone(HIGH_EARTH)
    set c_zep               = GetUnitCount(ZEPPELIN)

    set b_hero_done        = GetUnitCountDone(hero_id) >= 1
    set b_knights_ok        = c_castle_done>=1 and c_mill_done>=1 and c_smith_done>=1

    if basic_opening and (b_hero_done or (MeleeDifficulty() == MELEE_NEWBIE and c_castle_done >= 1)) then
        set basic_opening = false
    endif
endfunction

//--------------------------------------------------------------------------------------------------
//  set_vars
//--------------------------------------------------------------------------------------------------
function set_vars takes nothing returns nothing
    loop
        call init_vars()
        call Sleep(1)
    endloop
endfunction

//--------------------------------------------------------------------------------------------------
//  do_upgrades
//--------------------------------------------------------------------------------------------------
function do_upgrades takes nothing returns nothing

    if c_keep_done >= 1 then

        call SetBuildUpgr( 1, UPG_WOOD )

        if c_castle_done >= 1 then
            call SetBuildUpgr( 2, UPG_WOOD )
        endif

        if b_knights_ok then
            call SetBuildUpgr( 1, UPG_BREEDING )
        endif
        if c_sanctum_done >= 1 then
            if c_priest_done >= 1 then
                call SetBuildUpgr( 1, UPG_PRAYING )
            endif
            if c_sorceress_done >= 1 then
                call SetBuildUpgr( 1, UPG_SORCERY )
            endif
        endif
        if c_castle_done >= 1 then

            call SetBuildUpgr( 2, UPG_WOOD )

            if c_sanctum_done >= 1 then
                if c_priest_done >= 1 then
                    call SetBuildUpgr( 2, UPG_PRAYING )
                endif
                if c_sorceress_done >= 1 then
                    call SetBuildUpgr( 2, UPG_SORCERY )
                endif
            endif
        endif
    endif

    call SetBuildUpgr( 1, UPG_DEFEND )

    if c_smith_done >= 1 then
        call SetBuildUpgr( 1, UPG_ARMOR     )
        call SetBuildUpgr( 1, UPG_MELEE     )
        call SetBuildUpgr( 1, UPG_MOON_ARMOR)
        call SetBuildUpgr( 1, UPG_STR_MOON  )

        if c_keep_done >= 1 then
            call SetBuildUpgr( 2, UPG_ARMOR     )
            call SetBuildUpgr( 2, UPG_MELEE     )
            call SetBuildUpgr( 2, UPG_MOON_ARMOR)
            call SetBuildUpgr( 2, UPG_STR_MOON  )

            if c_castle_done >= 1 then
                call SetBuildUpgr( 3, UPG_ARMOR     )
                call SetBuildUpgr( 3, UPG_MELEE     )
                call SetBuildUpgr( 3, UPG_MOON_ARMOR)
                call SetBuildUpgr( 3, UPG_STR_MOON  )
            endif
        endif
    endif

    if c_archer_done >= 1 and c_keep_done >= 1 then
        call SetBuildUpgr( 1, UPG_BOWS )
        if c_castle_done >= 1 then
            call SetBuildUpgr( 1, UPG_MARKSMAN )
        endif
    endif

    if c_mill_done >= 1 then
        call SetBuildUpgr( 1, UPG_MASONRY )
        if c_keep_done >= 1 then
            call SetBuildUpgr( 2, UPG_MASONRY )
        endif
    endif

endfunction

//--------------------------------------------------------------------------------------------------
//  build_sequence
//--------------------------------------------------------------------------------------------------
function build_sequence takes nothing returns nothing
    local integer peasants

    call InitBuildArray()

    if basic_opening then

        call MeleeTownHall( 0, TOWN_HALL )
        call MeleeTownHall( 1, TOWN_HALL )

        call SetBuildUnit(  6, PEASANT      )
        call SetBuildUnit(  1, HUMAN_ALTAR  )
        call SetBuildUnit(  7, PEASANT      )
        call SetBuildUnit(  1, HOUSE        )
        call SetBuildUnit(  1, BARRACKS     )
        call SetBuildUnit(  9, PEASANT      )
        call SetBuildUnit(  2, ELF_FARM     )
        call SetBuildUnit(  1, hero_id      )
        call SetBuildUnit( 11, PEASANT      )
        call SetBuildUnit(  1, 'hhes'       )
        call SetBuildUnit(  3, ELF_FARM     )
        call SetBuildUnit( 12, PEASANT      )
        call SetBuildUnit(  2, 'hhes'       )
        call SetBuildUnit( 13, PEASANT      )
        call SetBuildUnit(  3, 'hhes'       )
        call SetBuildUnit( 14, PEASANT      )
        call SetBuildUnit(  4, ELF_FARM     )
        call SetBuildUnit( 15, PEASANT      )
        call SetBuildUnit(  4, 'hhes'       )
        call SetBuildUnit( 16, PEASANT      )
        call SetBuildUnit(  5, 'hhes'       )
        call SetBuildUnit(  1, BLACKSMITH   )
        call SetBuildUnit(  6, 'hhes'       )
        call SetBuildUnit(  5, ELF_FARM     )
        call SetBuildUnit(  8, 'hhes'       )
        call SetBuildUnit(  6, ELF_FARM     )
        call SetBuildUnit(  2, 'nhea'       )
        call SetBuildUnit(  7, ELF_FARM     )
        call SetBuildUnit(  3, 'nhea'       )
        call SetBuildUnit(  1, ARCANE_VAULT )

        call BasicExpansion( c_mines < 2, TOWN_HALL )

        call SetBuildUnit(  4, 'nhea'       )
        call SetBuildUnit(  1, LUMBER_MILL  )

        if MeleeDifficulty() != MELEE_NEWBIE then
            call GuardSecondary( 1, 2, HIGH_SKY  )
            if c_mill_done >= 1 then
                call GuardSecondary( 1, 2, HIGH_EARTH  )
            endif
        endif

        call SetBuildUnit(  1, KEEP         )
        call SetBuildUpgr(  1, UPG_DEFEND   )
        call SetBuildUpgr(  1, UPG_ARMOR    )
        call SetBuildUnit(  7, ELF_FARM     )
        call SetBuildUpgr(  1, UPG_MELEE    )

        if c_keep_done < 1 then
            return
        endif

        call SetBuildUnit(  1, CASTLE       )

        call GuardSecondary( 0, 2, HIGH_EARTH  )
        if c_earthfury_done >= 3 then
            call GuardSecondary( 0, 1, HIGH_SKY  )
        endif

        call SetBuildUpgr(  1, UPG_STR_MOON )
        call SetBuildUnit(  1, SANCTUM      )
        call SetBuildUpgr(  1, UPG_WOOD     )
        call SetBuildUpgr(  2, UPG_ARMOR    )
        call SetBuildUpgr(  2, UPG_WOOD     )
        return
    endif

    // need a peasant or nothing will get built
    //
    if c_hall_done >= 1 then
        set peasants = 6 - GetWood() / 200
        if peasants < 3 then
            set peasants = 3
        endif
        if c_mines < 2 then
            set peasants = peasants + 5
        else
            set peasants = peasants + 10
        endif
        if peasants > 15 then
            set peasants = 15
        endif
        call SetBuildNext( peasants, PEASANT )
    endif

    // need a hall or we can't resource and make more peasants
    //
    if c_hall < 1 and c_peasant_done >= 1 then
        call MeleeTownHall( 0, TOWN_HALL )
        call MeleeTownHall( 1, TOWN_HALL )
        call MeleeTownHall( 2, TOWN_HALL )
    endif

    if c_gold > 500 and GetWood() < 100 then
        call SetBuildNext( 20, PEASANT )
    endif

    // if we have low gold in our mines then we need to expand
    //
    if c_gold_owned < 2000 then
        call BasicExpansion( c_mines < 2, TOWN_HALL )
        if MeleeDifficulty() != MELEE_NEWBIE then
            call GuardSecondary( 2, 2, HIGH_SKY  )
            if c_earthfury >= 2 then
                call GuardSecondary( 2, 2, HIGH_EARTH  )
            endif
        endif
    endif

    // get enough burrows to handle current food demand
    //
    if c_food_used + 5 >= c_food_made then
        call SetBuildUnit(  c_house_done + 1, ELF_FARM )
    endif

    // always rebuild heroes for defense
    //
    if c_altar_done >= 1 then
        if b_hero_done and MeleeDifficulty() != MELEE_NEWBIE then
                if c_castle_done >= 1 then
                    call SetBuildUnit( 1, hero_id )
                endif
            else
        call SetBuildUnit( 1, HUMAN_ALTAR )
    endif

    // minimum melee defense
    //
    call SetBuildUnit( 1, ELF_HIGH_BARRACKS )
    if b_knights_ok then
        call SetBuildUnit( 2, KNIGHT        )
    else
        call SetBuildUnit( 4, 'hhes'        )
    endif

    // minimum ranged/air defense
    //
        call SetBuildUnit( 3, 'nws1'    )
    else
        call SetBuildUnit( 1, BLACKSMITH )
        if c_smith_done >= 1 or c_gold < 1000 then
            call SetBuildUnit( 4, 'nhea'   )
        endif
    endif

    // siege attackers
    //
    call SetBuildUnit( 1, KEEP      )

    call SetBuildUnit( c_earthfury_done - c_skyfury_done, HIGH_EARTH )
    
    // if we have a lot of gold then advance the tech tree
    //
    if c_gold > 1000 then
        call SetBuildUnit( 1, ARCANE_VAULT  )
        call SetBuildUnit( 1, BLACKSMITH    )
        call SetBuildUnit( 1, LUMBER_MILL   )
        call SetBuildUnit( 1, SANCTUM       )
        call SetBuildUnit( 1, CASTLE        )

        call do_upgrades()

        if c_gold > 2000 then
            call BuildFactory( ELF_HIGH_BARRACKS       )
            call BuildFactory( SANCTUM                 )
        endif

    elseif c_food_used >= UPKEEP_TIER1 then
        call do_upgrades()
    endif

    call BasicExpansion( c_mines < 2, TOWN_HALL )

    if c_food_used >= UPKEEP_TIER2-10 and c_gold < 2000 then
        return
    endif

    // full up with more troops in general
    //
    if b_knights_ok then
        call SetBuildNext( 4, KNIGHT )
    endif

    if c_sanctum_done >= 1 then
        call SetBuildNext( 2, PRIEST        )
        call SetBuildNext( 1, SORCERESS     )

        call SetBuildNext( 2, 'nws1' )

        call SetBuildNext( 2, SORCERESS     )
    endif

    if c_gold_owned < 10000 then
        call BasicExpansion( c_mines < 3, TOWN_HALL )
    endif

    if c_food_used >= 60 and c_zep < 3 then
        call GetZeppelin()
    endif
endfunction

//--------------------------------------------------------------------------------------------------
//  peon_assignment
//--------------------------------------------------------------------------------------------------
function peon_assignment takes nothing returns nothing
    local integer T
    loop
        call ClearHarvestAI()

        set T = TownWithMine()

        call HarvestGold(T,4)
        call HarvestWood(0,1)
        call HarvestGold(T,1)
        call HarvestWood(0,1)

        if c_hall_done > 1 and c_mines > 1 then
            call HarvestGold(T+1,5)
        endif

        call HarvestWood(0,15)

        call build_sequence()

        call Sleep(GetRandomInt(1,3))
    endloop
endfunction

//--------------------------------------------------------------------------------------------------
//    main
//--------------------------------------------------------------------------------------------------
function main takes nothing returns nothing
    call CampaignAI(ELF_FARM, null)
    call peon_assignment()
    call attack_sequence()
    call set_skills()
    call StartThread(function set_vars)
endfunction

 

[Chaosium]

I used Demo JASS Syntax Checker, I believe it's available on the Hive

Couldn't help any further though, melee AI is beyond my understanding

 

[Lordliw]

Haha, all is fine. Even if I ultimately fail in getting this to work, I wouldn't sweat it as this is also beyond me, I'm just tinkering around to see if I can at least "upgrade" it, if anything. Thank you for the syntax thing, too.

 

[Footman16]

I'm testing out using a little more complex ai behavior as opposed to the plain campaign ai – I'm adjusting it for Key of the Three Moons campaign mission.
I'm hoping that if I can get it to work, then perhaps I could integrate it for the undead ai as well.

Complex in what way? Imo starting from a melee AI and trying to convert it is not the best way to go. Instead you would be better taking one of the Campaign AIs and adding whatever more complex behaviour you want to it. Melee and Key of the Three Moons are quite different in how they work so I don't think a melee AI is the way to go.

 

[Lordliw]

Been doing that for a long while, actually. But if you mean for me to insert functions manually, then that could be a problem since I don't really possess adequate programming skills in order to manage. Sure, I can understand it, but apply it – not so much. That's why it's easier for me to try to adjust and integrate the existing content.

Taking a look at the n07_rainbow.ai script for the final night elf mission, there is a bunch of code that I can partially understand, but not comprehend it to the point where I can point out the rules of calling each function, line of code and whatnot, especially when it's a campaign script.

I just thought that taking out unnecessary bits from a melee ai script and throwing in bits that I require would save me some trouble. Albeit, I don't get where the line is drawn between melee ai and campaign ai, in terms of what code is reserved for melee and what for campaign, if there's a thing like that.

 

[Footman16]

I see, well that's exactly my point the campaign AIs are simpler, so it will be easier to transfer over or implement or integrate any added functionality that you need that we can help with. The melee AI script is not designed for campaign missions.

In terms of code being reserved there isn't any but there will probably be some behavioural differences since they are written for two different purposes. Again, if you tell us what you want the AI to do it will be easier for us to help and show you how to achieve what you want

 

[Lordliw]

Well, for starters, I think a build sequence, economy building (peasant assignments, expansions, etc), defense maintenance and attack waves are a must. I'm not looking for a handout, I simply want to understand which codes or functions would benefit my script, especially since common.ai doesn't really offer explanations, though, I believe functions are not bound to the existing ones.

I can get around the build sequence and maaybe the economy building, from the edited script I sent above, you could take a look and perhaps tell me if it's good enough or if it needs refining. But as far the attack sequence and the defense goes, I'm literally at a loss lol, given how I want the ai to be volatile with it's troop management and strike missions – basically give it more of a randomized feeling.

 

[Footman16]

Ok that's fair enough,

Those campaign AIs are probably the better way to go in terms of build sequence, economy building etc apart from the expansion part, you want your campaign AI to expand? Defence maintenance is easy enough you use SetBuildUnitEx for all the pre-placed units and it will replace them when they're killed.

In terms of randomising attacks there's a few ways to do it but you'll want a separate function to do that. How much you split it into other functions is up to you but you'll basically want to set a bunch of integer variables to random integers between 2 numbers and then call those as CampaignAttackerEx with those randomised variables inputed. You can also use SetRandomPaths(true) to make them take random routes towards their enemy.

 

[Lordliw]

Sure, I could try and make that work, would I put them as constant integers or just plain simple integers? And in what case would I need a boolean?

Onto the juicy part – how would I create the separate function, do I call it in the main function simply by using the "call" command, and most of all, what would I need to put in it? Same question for "SetRandomPaths(true)", do I call it in the separate function or the main one?

 

[Footman16]

//============================================================================
//  Stromgarde 04 -- Purple player -- AI Script
//============================================================================
globals
    player Proudmoore = PlayerEx(11) //player 11 Dark Green
    player User = PlayerEx(1) //player 1 Red
    player Ironforge = PlayerEx(9) //Player 9 Grey
   
    constant integer Ghoul = 'ugho'
    constant integer Acolyte = 'uaco'
    constant integer Zombie = 'nzom'
    constant integer Mutant = 'ndmu'
    constant integer Fiend = 'ucry'
    constant integer Necro = 'unec'
    constant integer Necrolyte = 'n60A'
    constant integer SkeleA = 'nska'
    constant integer Wagon = 'umtw'
    constant integer Abomination = 'uabo'
    constant integer Banshee = 'uban'
    constant integer Statue = 'uobs'
    constant integer Wraith = 'n61O'
    constant integer Gargoyle = 'ugar'
    constant integer Golem = 'nfgl'
    constant integer Wight = 'n60G'
    constant integer Wyrm = 'ufro'
    constant integer Eruptor = 'uple'
    constant integer DeathKnight = 'Udea'
    constant integer Rogue = 'O60M'
    constant integer Lich = 'Ulic'
    constant integer HARD_WAVE_DUR      = 90 // seconds
    constant integer NORMAL_WAVE_DUR    = 100 // seconds
    constant integer EASY_WAVE_DUR      = 120 // seconds
    constant integer CMD_SET_X1         = 1
    constant integer CMD_SET_Y1         = 2
    constant integer CMD_SET_X2         = 3
    constant integer CMD_SET_Y2         = 4
    constant integer CMD_SET_X3         = 5
    constant integer CMD_SET_Y3         = 6
    constant integer KulTiras_Dead      = 7
    constant integer Ironforge_Dead     = 8
    constant integer FinalWave          = 9
 
    player Target1                      = PlayerEx(11) //Player 11 Dark Green
    player Target2                      = PlayerEx(1)  //Player 1 Red
    player Target3                      = PlayerEx(9) //Player 9 Grey
    integer stage_x1                    = 0
    integer stage_y1                    = 0
    integer stage_x2                    = 0
    integer stage_y2                    = 0
    integer stage_x3                    = 0
    integer stage_y3                    = 0
    boolean KulTirasDead                = false
    boolean IronforgeDead               = false
    //All unit build times set to 2 seconds in map
    //Hero revive rate set to 300%
endglobals
//============================================================================
//  get_commands
//============================================================================
function get_commands takes nothing returns nothing
    local integer cmd
    local integer data
  
    loop
        loop
            exitwhen CommandsWaiting() != 0
            call Sleep(1)
        endloop
        set cmd  = GetLastCommand()
        set data = GetLastData()
        call PopLastCommand()
       
        if cmd == CMD_SET_X1 then
            set stage_x1 = data
        elseif cmd == CMD_SET_Y1 then
            set stage_y1 = data
        elseif cmd == CMD_SET_X2 then
            set stage_x2 = data
        elseif cmd == CMD_SET_Y2 then
            set stage_y2 = data
        elseif cmd == CMD_SET_X3 then
            set stage_x3 = data
        elseif cmd == CMD_SET_Y3 then
            set stage_y3 = data
        elseif cmd == KulTiras_Dead then
            set KulTirasDead = true
            set Target1 = PlayerEx(1)
            set stage_x1 = stage_x2
            set stage_y1 = stage_y2
        elseif cmd == Ironforge_Dead then
            set IronforgeDead = true
            set Target3 = PlayerEx(1)
        elseif cmd == FinalWave then
        else
        endif
    endloop
endfunction
//============================================================================
//  pit_stop
//============================================================================
function pit_stop takes integer easy, integer normal, integer hard returns nothing
    if difficulty == HARD then
        call Sleep(hard)
    elseif difficulty == NORMAL then
        call Sleep(normal)
    else
        call Sleep(easy)
    endif
endfunction
//============================================================================
//  meat_love
//============================================================================
function meat_love takes nothing returns nothing
    local integer towerCount
    local integer triggerCount
    local integer wagons
    local integer i
    // Count Human towers
    set towerCount = GetPlayerUnitTypeCount(User, 'h00O') + GetPlayerUnitTypeCount(User, 'h00P') + GetPlayerUnitTypeCount(User, 'h602')
    // Set trigger count based on difficulty
    if difficulty == HARD then
        set triggerCount = 4
    elseif difficulty == NORMAL then
        set triggerCount = 6
    else
        set triggerCount = 8
    endif
    if towerCount > triggerCount then
        set wagons = (towerCount - triggerCount) / 2
        if wagons > 12 then
            set wagons = 12
        endif
        set i = 0
        loop
            exitwhen i >= wagons
            call CampaignAttackerEx(1, 1, 1, Wagon)
            set i = i + 1
        endloop
    endif
endfunction
//============================================================================
//  main
//============================================================================
function main takes nothing returns nothing
    call CampaignAI('uzig',null) //Ziggurat
    call GroupTimedLife(true)
    call SetPeonsRepair(true)
    call SetSlowChopping(true)
    call SetRandomPaths(false)
    set campaign_wood_peons = 2
    set campaign_gold_peons = 5
    //Building Strategy
    //Tier 1
    call SetBuildUnitEx(5,5,5,Acolyte) //Acolytes
    call SetBuildUnitEx(3,3,3,'usep') //Crypt
    call SetBuildUnitEx(1,1,1,'ugrv') //Graveyard
    call SetBuildUnitEx(8,8,8,'uzg1') //Spirit Tower
    call SetBuildUnitEx(1,1,1,'uzg2') //Nerubian Tower
    call SetBuildUnitEx(12,12,12,'ntt1') //Death Tower
    call SetBuildUnitEx(1,1,1,'uaod') //Altar
    call SetBuildUnitEx(1,1,1,'ugol') //Haunted Gold Mine
    call SetBuildUnitEx(1,1,1,'utom') //Tomb of Relics
    //Tier 2
    call SetBuildUnitEx(3,3,3,'uslh') //Slaughterhouse
    call SetBuildUnitEx(2,2,2,'utod') //Temple of the Damned
    call SetBuildUnitEx(1,1,1,'usap') //Sacrifical Pit
    //Tier 3
    call SetBuildUnitEx(1,1,1,'unp2') //Black Citadel
    call SetBuildUnitEx(1,2,2,'ubon') //Boneyard
    //Defender Units
    call CampaignDefenderEx(1,1,1,Wight)
    call CampaignDefenderEx(1,1,1,Golem)
    call CampaignDefenderEx(2,2,2,Wyrm)
   
    call StartThread(function get_commands)
    //Attack Waves
    //Wave 1 //Basic Wave 1
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x1,stage_y1)
    call InitAssaultGroup()
    call CampaignAttackerEx(5,6,10,Ghoul)
    call CampaignAttackerEx(4,4,6,Fiend)
    call SuicideOnPlayerEx(80,80,80,Target1)    //M1 20s All Difficulties (Tested on hard and launched at 2:45)
     
    //Wave 2 //Basic Wave 2
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x2,stage_y2)
    call InitAssaultGroup()
    call CampaignAttackerEx(6,8,12,Ghoul)
    call CampaignAttackerEx(4,6,8,SkeleA)
    call CampaignAttackerEx(0,0,1,Wagon)
    call meat_love()
    call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target2)    //E:M5 N:M4 40s H:M4.5 (Tested on hard and launched at 4:25)
    //Wave 3 //Basic Wave 3
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x3,stage_y3)
    call InitAssaultGroup()
    call CampaignAttackerEx(6,8,12,Ghoul)
    call CampaignAttackerEx(4,5,7,Fiend)
    call CampaignAttackerEx(0,0,1,Wagon)
    call meat_love()
    call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target3)    ////E:M7 N:M6 10s H:M6 (Tested on hard and launched at 6:25)
    //
    //Wave 4 //Banshee Wave
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x1,stage_y1)
    call InitAssaultGroup()
    call CampaignAttackerEx(1,2,3,Abomination)
    call CampaignAttackerEx(6,8,10,Banshee)
    call CampaignAttackerEx(0,0,1,Wagon)
    call CampaignAttackerEx(1,1,1,Lich)
    call meat_love()
    call SuicideOnPlayerEx(120,120,120,Target1)    //E:M9 N:M8 10s H:M8
    //Wave 5 //Wight
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x2,stage_y2)
    call InitAssaultGroup()
    call CampaignAttackerEx(2,2,3,Wight)
    call CampaignAttackerEx(3,4,5,Eruptor)
    call CampaignAttackerEx(3,4,5,Ghoul)
    call CampaignAttackerEx(0,0,1,Wagon)
    call CampaignAttackerEx(1,1,1,DeathKnight)
    call meat_love()
    call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target2)    //E:M11 N:M9 50s H:M9.5
    //Wave 6 //Casters
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x3,stage_y3)
    call InitAssaultGroup()
    call CampaignAttackerEx(3,3,4,Abomination)
    call CampaignAttackerEx(3,3,4,Necrolyte)
    call CampaignAttackerEx(3,4,5,Necro)
    call CampaignAttackerEx(3,4,5,Wraith)
    call CampaignAttackerEx(1,1,1,Rogue)
    call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target3)    //E:M13 N:M11 30s H:M11
    //
    //Wave 7 //Anti Air
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x1,stage_y1)
    call InitAssaultGroup()
    call CampaignAttackerEx(1,2,3,Wight)
    call CampaignAttackerEx(2,2,3,Fiend)
    call CampaignAttackerEx(3,4,5,SkeleA)
    call CampaignAttackerEx(5,7,9,Gargoyle)
    call CampaignAttackerEx(1,1,1,Lich)
    call meat_love()
    call SuicideOnPlayerEx(60,60,60,Target1)    //E:M14 N:M12 30s H:M12
    //Wave 8 //Siege Wave
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x2,stage_y2)
    call InitAssaultGroup()
    call CampaignAttackerEx(1,1,1,Golem)
    call CampaignAttackerEx(3,5,6,Abomination)
    call CampaignAttackerEx(2,2,3,Wyrm)
    call CampaignAttackerEx(4,5,7,Wagon)
    call CampaignAttackerEx(1,1,1,DeathKnight)
    call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target2)    //E:M16 M:M14 10s H:M13.5
    //Wave 9 //WightGolem Wave
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x3,stage_y3)
    call InitAssaultGroup()
    call CampaignAttackerEx(5,6,8,Golem)
    call CampaignAttackerEx(1,2,3,Wight)
    call CampaignAttackerEx(1,1,1,Rogue)
    call meat_love()
    call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target3)    //E:M18 M:M15 50s H:M15
    //
    //Wave 10 //Plague Wave
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x1,stage_y1)
    call InitAssaultGroup()
    call CampaignAttackerEx(4,4,6,Ghoul)
    call CampaignAttackerEx(2,3,4,Eruptor)
    call CampaignAttackerEx(3,5,7,Abomination)
    call CampaignAttackerEx(1,1,2,Wagon)
    call CampaignAttackerEx(3,3,4,Necro)
    call meat_love()
    call SuicideOnPlayerEx(120,120,120,Target1)    //M2
    //Wave 11 //Skeleton Wave
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x2,stage_y2)
    call InitAssaultGroup()
    call CampaignAttackerEx(3,4,6,Necrolyte)
    call CampaignAttackerEx(4,4,6,Abomination)
    call CampaignAttackerEx(1,1,2,Wagon)
    call CampaignAttackerEx(5,6,8,Necro)
    call meat_love()
    call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target2)    //M2
    //Wave 12 //F_U Wave 1
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x3,stage_y3)
    call InitAssaultGroup()
    call CampaignAttackerEx(2,2,3,Wight)
    call CampaignAttackerEx(4,5,6,Eruptor)
    call CampaignAttackerEx(1,1,2,Wagon)
    call CampaignAttackerEx(2,2,3,Necro)
    call CampaignAttackerEx(2,2,3,Banshee)
    call CampaignAttackerEx(2,2,3,Wyrm)
    call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target3)    //M2
    //
    //Wave 13 //F_U Wave 2
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x1,stage_y1)
    call InitAssaultGroup()
    call CampaignAttackerEx(2,2,3,Golem)
    call CampaignAttackerEx(3,4,5,Abomination)
    call CampaignAttackerEx(1,1,2,Wagon)
    call CampaignAttackerEx(2,2,3,Necrolyte)
    call CampaignAttackerEx(2,2,3,Wraith)
    call CampaignAttackerEx(5,6,7,SkeleA)
    call SuicideOnPlayerEx(120,120,120,Target1)    //M2
    //Wave 14 //F_U Wave 3
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x2,stage_y2)
    call InitAssaultGroup()
    call CampaignAttackerEx(2,2,3,Golem)
    call CampaignAttackerEx(3,3,4,Wight)
    call CampaignAttackerEx(2,2,3,Wagon)
    call CampaignAttackerEx(2,2,3,Wraith)
    call CampaignAttackerEx(2,3,4,Eruptor)
    call CampaignAttackerEx(3,3,4,Banshee)
    call CampaignAttackerEx(2,2,3,Wyrm)
    call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target2)    //M2
    //Wave 15 //Casters
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x3,stage_y3)
    call InitAssaultGroup()
    call CampaignAttackerEx(3,3,4,Abomination)
    call CampaignAttackerEx(3,3,4,Necrolyte)
    call CampaignAttackerEx(3,4,5,Necro)
    call CampaignAttackerEx(3,4,5,Wraith)
    call CampaignAttackerEx(1,1,1,Rogue)
    call meat_love()
    call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target3)    //E:M13 N:M11 30s H:M11
    //
    //Wave 16 //Plague Wave
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x1,stage_y1)
    call InitAssaultGroup()
    call CampaignAttackerEx(4,4,6,Ghoul)
    call CampaignAttackerEx(2,3,4,Eruptor)
    call CampaignAttackerEx(3,5,7,Abomination)
    call CampaignAttackerEx(1,1,2,Wagon)
    call CampaignAttackerEx(3,3,4,Necro)
    call meat_love()
    call SuicideOnPlayerEx(120,120,120,Target1)    //M2
    //Wave 17 //Banshee Wave
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x1,stage_y1)
    call InitAssaultGroup()
    call CampaignAttackerEx(2,3,4,Abomination)
    call CampaignAttackerEx(8,10,12,Banshee)
    call CampaignAttackerEx(0,0,1,Wagon)
    call CampaignAttackerEx(1,1,1,Lich)
    call meat_love()
    call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target2)    //M2
    //Wave 18 //F_U Wave 3
    call SetCaptainHome(ATTACK_CAPTAIN,stage_x2,stage_y2)
    call InitAssaultGroup()
    call CampaignAttackerEx(2,2,3,Golem)
    call CampaignAttackerEx(3,3,4,Wight)
    call CampaignAttackerEx(2,2,3,Wagon)
    call CampaignAttackerEx(2,2,3,Wraith)
    call CampaignAttackerEx(2,3,4,Eruptor)
    call CampaignAttackerEx(3,3,4,Necrolyte)
    call CampaignAttackerEx(2,2,3,Wyrm)
    call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target2)    //M2
      
    loop
        //Wave 12 //F_U Wave 1
        call SetCaptainHome(ATTACK_CAPTAIN,stage_x1,stage_y1)
        call InitAssaultGroup()
        call CampaignAttackerEx(2,2,3,Wight)
        call CampaignAttackerEx(4,5,6,Eruptor)
        call CampaignAttackerEx(1,1,2,Wagon)
        call CampaignAttackerEx(2,2,3,Necro)
        call CampaignAttackerEx(2,2,3,Banshee)
        call CampaignAttackerEx(2,2,3,Wyrm)
        call meat_love()
        call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target3)    //M2
        //Wave 13 //F_U Wave 2
        call SetCaptainHome(ATTACK_CAPTAIN,stage_x2,stage_y2)
        call InitAssaultGroup()
        call CampaignAttackerEx(2,2,3,Golem)
        call CampaignAttackerEx(3,4,5,Abomination)
        call CampaignAttackerEx(1,1,2,Wagon)
        call CampaignAttackerEx(2,2,3,Necro)
        call CampaignAttackerEx(2,2,3,Banshee)
        call CampaignAttackerEx(5,6,7,SkeleA)
        call meat_love()
        call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target1)    //M2
        //Wave 14 //F_U Wave 3
        call SetCaptainHome(ATTACK_CAPTAIN,stage_x3,stage_y3)
        call InitAssaultGroup()
        call CampaignAttackerEx(2,2,3,Golem)
        call CampaignAttackerEx(3,3,4,Wight)
        call CampaignAttackerEx(2,2,3,Wagon)
        call CampaignAttackerEx(2,2,3,Necro)
        call CampaignAttackerEx(3,4,5,Eruptor)
        call CampaignAttackerEx(3,3,4,Banshee)
        call CampaignAttackerEx(2,2,3,Wyrm)
        call meat_love()
        call SuicideOnPlayerEx(EASY_WAVE_DUR,NORMAL_WAVE_DUR,HARD_WAVE_DUR,Target2)    //M2
    endloop
endfunction

Here's an example of a campaign AI I'm currently working on that uses functions for different things. So as we can see we have the "main" function where everything gets done and is what runs. You'll also see at the start of main where things like SetRandomPaths gets called these are all things that won't change so they're set at the start, slow chopping too so the AI never runs out of resources. You'll see the function meat_love I define earlier which adds extra Meat Wagons depending upon how many towers the player builds, it gets called within the set-up for every attack wave.

So yeah all functions have to be called using "call functionname" and variables are set using "set VariableName = __". You would want them as plain integers or maybe local integers. Constant integers are... constant and so cannot be changed. For the random int you'll want to use:

native GetRandomInt takes integer lowBound, integer highBound returns integer

So for example we could do:
function Random_Swordsmen takes nothing returns nothing
local integer Number

set Number = GetRandomInt(0,4)
call CampaignAttacker(NORMAL,Number, HIGH_ELF_SWORDSMAN)

endfunction

Then in main when you're prepping your attack waves you would do

call InitAssaultGroup()
call Random_Swordsmen()
call SuicideOnPlayer(M1,Player)

And it will send between 0 and 4 swordsmen to attack the player. Now the syntax might not be exactly correct here but it should give you a general idea

EDIT: JASS Manual: API Browser - common.j

JASS Manual: API Browser - common.ai

These are online versions of the common.ai and common.j file in Wc3 that shows all the JASS functions you can use and how they work. They do go down and down until they will reach functions that are hardcoded and hidden under the hood but they should still help.

 

[Lordliw]

Going through the script you provided and thinking a little about the example you gave, funnily enough, I understand it, though, not everything.

I'll try adjusting my code further in the morning and I'll get back to you.

In the meantime, what exactly is common.j? It obviously goes in correlation with common.ai, but common.ai is filled with things I am aware of, unlike common.j

 

[Footman16]

Common.j is pretty much every JASS function you will use, so when you're triggering what those GUI actions, events etc actually are, under the hood are these JASS functions in common.j. By contrast, common.ai is all the functions relating to AI scripts.

 

[Lordliw]

After 2 days of tinkering with the ai, I've fragmented lines of codes and functions, and put them together inside my new script. However, I'm still facing issues with the ai hero not learning skills, buildings not being built on the expansion as well as additional peasants for that expansion not being produced, and peasants bouncing around like idiots. I really have no idea what is wrong.

Here's what I've got so far, you'll notice which functions are problematic:

Spoiler: The script so far

//============================================================================
//  JASS SCRIPTING DEMO
//============================================================================
globals
    player purple = Player(3)
    
    integer mines = 0
    integer gold = 0
    integer hall = 0
    integer keep = 0
endglobals

//--------------------------------------------------------------------------------------------------
//  set_skills
//--------------------------------------------------------------------------------------------------
function set_skills takes nothing returns nothing
    set skill[ 1] = FLAME_STRIKE
    set skill[ 2] = BANISH
    set skill[ 3] = SIPHON_MANA
    set skill[ 4] = FLAME_STRIKE
    set skill[ 5] = SIPHON_MANA
    set skill[ 6] = SUMMON_PHOENIX
    set skill[ 7] = FLAME_STRIKE
    set skill[ 8] = SIPHON_MANA
    set skill[ 9] = BANISH
    set skill[10] = BANISH

    call SetSkillArray(1, 'Hkal')
    call SetSkillArray(2, 'Hkal')
    call SetSkillArray(3, 'Hkal')             // DOESN'T WORK FOR SOME REASON
endfunction

//--------------------------------------------------------------------------------------------------
//  init_vars
//--------------------------------------------------------------------------------------------------
function init_vars takes nothing returns nothing
    set mines = GetMinesOwned()
    set gold = GetGoldOwned()
    set hall = TownCountDone(TOWN_HALL)
    set keep = TownCountDone(KEEP)
endfunction

//--------------------------------------------------------------------------------------------------
//  set_vars
//--------------------------------------------------------------------------------------------------
function set_vars takes nothing returns nothing
    loop
        call init_vars()
        call Sleep(1)
    endloop
endfunction

//--------------------------------------------------------------------------------------------------
//  random_attack
//--------------------------------------------------------------------------------------------------
function random_attack takes nothing returns nothing
    local integer swords
    local integer archers
     
    set swords = GetRandomInt(0, 4)
    call CampaignAttacker(NORMAL, swords, HIGH_SWORDMAN)
     
    set archers = 4 - swords
    if archers > 0 then
        call CampaignAttacker(NORMAL, archers, HIGH_ARCHER)
    endif
endfunction

//--------------------------------------------------------------------------------------------------
//  peon_assignment
//--------------------------------------------------------------------------------------------------
function peon_assignment takes nothing returns nothing
    local integer T
    loop
        call ClearHarvestAI()

        set T = TownWithMine()

        call HarvestGold(T,5)
        call HarvestWood(0,6)

        if hall > 1 and mines > 1 then
            call HarvestGold(T+1,5)
        endif

        call Sleep(GetRandomInt(1,3))      // NEEDS FIXING
    endloop
endfunction

//--------------------------------------------------------------------------------------------------
//  expansion
//--------------------------------------------------------------------------------------------------
function expansion takes nothing returns nothing 
    local integer T
    set T = TownWithMine()
    if gold >= 2000 and keep > 0 then
        call SetBuildUnit(16, PEASANT)
        call BasicExpansion(mines < 2, TOWN_HALL)
        call GuardSecondary(T+1, 1, ELF_FARM)
        call GuardSecondary(T+1, 2, HIGH_EARTH)
        call GuardSecondary(T+1, 1, HIGH_SKY)      // ALSO NEEDS FIXIIIINGGG
    endif
endfunction        

//============================================================================
//  main
//============================================================================
function main takes nothing returns nothing
    call CampaignAI(ELF_FARM,null)
    call SetSlowChopping(false)
    call SetPeonsRepair(true)
    call SetSmartArtillery(true)
    call SetRandomPaths(true)
    call set_skills()
    call peon_assignment()
    call expansion()
    call StartThread(function set_vars)
    
    call SetReplacements(1000,1000,1000)
    
    call SetBuildUnitEx( 0,1,1, TOWN_HALL              )
    call SetBuildUnitEx( 5,5,5, PEASANT                )
    call SetBuildUnitEx( 1,3,3, ELF_FARM               )
    call SetBuildUnitEx( 1,1,2, ELF_HIGH_BARRACKS      )
    call SetBuildUnitEx( 2,2,2, ZEPPLIN                )
    
    call CampaignDefenderEx( 1,1,1, HIGH_SWORDMAN   )
    call CampaignDefenderEx( 1,1,1, HIGH_ARCHER     )
      
    call SetBuildUnitEx( 8,8,8, PEASANT                )  
    call SetBuildUnitEx( 3,4,4, ELF_FARM               )
    call SetBuildUnit( 1, HUMAN_ALTAR                  )
    
    call CampaignDefenderEx( 1,1,1, 'Hkal'          )
                
    call SetBuildUnitEx( 11,11,11, PEASANT             )
    call SetBuildUnitEx( 4,5,5, ELF_FARM               )
    call SetBuildUnit( 1, BLACKSMITH                   )
    call SetBuildUnit( 1, LUMBER_MILL                  )
    call SetBuildUnitEx( 9,9,9, ELF_FARM               )
    
    call SetBuildUnit( 1, KEEP                         )
    call SetBuildUnitEx( 1,1,2, ARCANE_SANCTUM         )
    
    call CampaignDefenderEx( 0,1,1, SORCERESS       )
    
    call SetBuildUnit( 1, CASTLE                       )
    
    call WaitForSignal()
    
    //*** WAVE 1 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 0,1,2, HIGH_SWORDMAN   )
    call CampaignAttackerEx( 2,3,3, HIGH_ARCHER     )
    call SuicideOnPlayerEx(M3,M2,M2,purple)
    
    //*** Basic upgrades***
    call SetBuildUpgrEx( 1,1,2, UPG_MELEE           )
    call SetBuildUpgrEx( 1,1,2, UPG_STR_MOON        )
    call SetBuildUpgrEx( 1,1,2, UPG_ARMOR           )
    call SetBuildUpgrEx( 1,1,2, UPG_MOON_ARMOR      )
    
    //*** WAVE 2 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 3,4,4, HIGH_ARCHER     )
    call CampaignAttackerEx( 1,2,3, HIGH_SWORDMAN   )
    call SuicideOnPlayerEx(M5,M4,M4,purple)
    
    //*** WAVE 3 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 3,4,4, HIGH_ARCHER     )
    call CampaignAttackerEx( 1,2,3, HIGH_SWORDMAN   )
    call SuicideOnPlayerEx(M5,M4,M4,purple)
    
    //*** Basic upgrades***
    call SetBuildUpgrEx( 1,1,1, UPG_BOLT            )
    call SetBuildUpgrEx( 1,1,1, UPG_BOWS            )
    call SetBuildUpgrEx( 1,1,1, UPG_MARKSMAN        )
    
    //*** WAVE 4 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 3,4,4, HIGH_ARCHER     )
    call CampaignAttackerEx( 1,2,3, HIGH_SWORDMAN   )
    call SuicideOnPlayerEx(M5,M4,M4,purple)
    
    //*** Upgrades
    call SetBuildUpgrEx( 1,1,1, UPG_PRAYING         )
    call SetBuildUpgrEx( 1,1,1, UPG_WOOD            )
    call SetBuildUpgrEx( 1,1,1, UPG_MASONRY         )
    
    //*** WAVE 5 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 3,3,3, HIGH_ARCHER     )
    call CampaignDefenderEx( 1,1,1, 'Hkal'          )
    call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN   )
    call CampaignAttackerEx( 0,1,2, PRIEST          )
    call SuicideOnPlayerEx(M4,M3,M3,purple)
    
    //*** Upgrades
    call SetBuildUpgrEx( 1,1,2, UPG_SORCERY         )
    call SetBuildUpgrEx( 2,2,3, UPG_MELEE           )
    call SetBuildUpgrEx( 2,2,3, UPG_STR_MOON        )
    call SetBuildUpgrEx( 2,2,3, UPG_ARMOR           )
    call SetBuildUpgrEx( 2,2,3, UPG_MOON_ARMOR      )
    
    //*** WAVE 6 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN   )
    call CampaignAttackerEx( 1,2,3, PRIEST          )
    call CampaignAttackerEx( 0,1,2, SORCERESS       )
    call SuicideOnPlayerEx(M4,M3,M3,purple)
    
    //*** More Basic Upgrades
    call SetBuildUpgrEx( 2,2,3, UPG_MASONRY         )
    call SetBuildUpgrEx( 2,2,3, UPG_PRAYING         )
    call SetBuildUpgrEx( 2,2,3, UPG_WOOD            )
    call SetBuildUpgrEx( 3,3,3, UPG_MELEE           )
    call SetBuildUpgrEx( 3,3,3, UPG_STR_MOON        )
    call SetBuildUpgrEx( 3,3,3, UPG_ARMOR           )
    call SetBuildUpgrEx( 3,3,3, UPG_MOON_ARMOR      )
    
    loop
        //*** WAVE 7 ***
        call InitAssaultGroup()
        call random_attack()                      
        call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN )
        call CampaignAttackerEx( 1,2,3, PRIEST        )
        call CampaignDefenderEx( 1,1,1, 'Hkal'        )
        call CampaignAttackerEx( 0,1,2, SORCERESS     )
        call SuicideOnPlayerEx(M5,M4,M3,purple)
        
        //*** WAVE 8 ***
        call InitAssaultGroup()
        call random_attack()
        call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN )
        call CampaignAttackerEx( 1,2,3, PRIEST        )
        call CampaignAttackerEx( 0,1,2, SORCERESS     )
        call SuicideOnPlayerEx(M5,M4,M3,purple)
        
        //*** WAVE 9 ***
        call InitAssaultGroup()
        call random_attack()
        call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN )
        call CampaignAttackerEx( 1,2,3, PRIEST        )
        call CampaignDefenderEx( 1,1,1, 'Hkal'        )
        call CampaignAttackerEx( 0,1,2, SORCERESS     )
        call CampaignAttackerEx( 1,1,2, DRAGON_HAWK   )
        call SuicideOnPlayerEx(M6,M5,M4,purple)
        
    endloop            
endfunction

UPDATE: I just realised I've been using the outdated script and that's why they've been doing the same thing over and over, this one above just completely kills the ai?

 

[Tristronic]

For the Hero levels, standard AI feeds the level function as and argument of StandardAI( heroes, peons, attacks).

'heroes' is then fed to: SetHeroLevels(heroes)

'heroes' should return and integer, the FourCC ability id for the ability each level (skill[GetHeroLevelAI()]).

You need a function that sets an array or variables containing the IDs, as you have already done, then you need something like this:

// if AI has multiple heroes, you will need to store
// the hero ids and the skill arrays per hero type
// and somehow tell the AI which hero it will have if it
// doesn't have the ability to train decide for itself and then
// train the decided hero (in which case, it will already have
// decided which hero and the type should be stored as an
// integer from that point forward)
function HeroSkills takes nothing returns integer
    if GetHeroId() == hero_1 then
        return skill_1[GetHeroLevelAI()]
    elseif GetHeroId() == hero_2 then
        return skill_2[GetHeroLevelAI()]
    elseif GetHeroId() == hero_3 then
        return skills_3[GetHeroLevelAI()]
    endif
endfunction

// if AI only has one hero, this will work if skill[] is set
function OneHero takes nothing returns integer
    return skill[GetHeroLevelAI()]
endfunction

function DuringInit takes nothing returns nothing
    // do other init stuff
    call SetHeroLevels( function HeroSkills )
endfunction

I'd help with the building and peons if I could, but I have only used AI for hero only arena/creeping purposes, but from what I've seen in the past, they may not have the room they want to place the buildings, and if the buildings are wrong, the units can get FUBAR easily, solve the expansion before the peons.

 

[Footman16]

Honestly JASS AI is terrible at managing heroes, hero revival and abilities are better set using triggers than via JASS AI.

 

[Tristronic]

Honestly JASS AI is terrible at managing heroes, hero revival and abilities are better set using triggers than via JASS AI.

That's so true it hurts, tbh.

AI exceeds at placing buildings under changing conditions and pinging the mini-map... I forget atm but you might be able to ping from triggers anyway lol

Footman is right, the fastest and probably safest solution is to trigger the hero abilities, I use AI because I can stuff it in an ai file and never look at it again, but it's way jankier and debugging takes twice as long, easily.

 

[Lordliw]

Yeah, so good news – I was able to get most of it to work, even the hero abilities which was a huge pain, thanks! Although the ai still wont execute the "GuardSecondary" commands for the expansion even though it has space. Do I have to define the town id some other way instead of using "TownWithMine" (T) and then adding 1 to it to classify it as the expansion, because I've been at this for 2-3 hours now lol.

 

[Footman16]

Is the expansion pre-built/pre-placed on the map?

 

[Lordliw]

Nope, it gets built manually by the ai, well, at least the town hall does. The other structures under that command don't get built, and I'm afraid to use any other because of the fact that there's no town id referencing, so it might as well build it in the first base.

 

[Footman16]

If the script is running but they're just not doing something then that's a good sign as it implies it's not an error in the script but perhaps elsewhere. Can your High Elf peasants definitely build the units needed? Do they have enough requirements, tech-tree, resources etc?

 

[Lordliw]

I made sure to equip them with the resources needed, space, tech-tree, also gave them a lot of time, and even if they didn't have it, I can just use cheats to give it to them, because they will build the town hall one way or another, just not the rest under "GuardSecondary".

However, maybe the difference lies in TownCountDone and TownCount when I was defining my variables for the condition under which the ai would expand. Since it uses a TownCountDone and the variable in which i put the condition is a keep, while the preplaced base has a castle, but I wouldn't think so, because the ai does get started on the expansion, it just won't finish it?

 

[Footman16]

When it comes to tech the AI is a bit funky, for example if you tell it to build a Town Hall, then a Keep and then a Castle, it'll build all 3 individually rather than upgrading the first Town Hall to the Keep and then the Castle, there's workarounds but it's not something I've had to deal with some I'm not overly familiar.

Addendum: If you tell it to just build a Castle, it'll build a Town Hall, then upgrade it to Keep and Castle as expected.

 

[Lordliw]

That hasn't happened to me either, must be some codes that got intertwined or something. On the other note, I managed to get everything working, the expansion works as intended for the elven bases, although it was just a template for the undead bases that need to expand, they are a different sort, and I am still fleshing out the means for their expansion since they don't expand when there is an available gold mine (once the weak base is destroyed, that is).

I've been reading the melee ais and how they function, and suffice to say that the undead is a little more intricate. However, my last, FINAL question – is there a command that I can put inside Jass to make an if condition that makes the ai reassess whether a player has been defeated?
To elaborate – if the undead ai defeats a player/bot (its whole base gets destroyed), then it will call for an expansion there.
I can make the triggers inside WE for the defeat/victory conditions, even to call the expansion, but I don't know if player-based conditions are possible inside Jass, unless it's some wacky command like:

if player == null then

 

[Footman16]

The easiest way to do that is to send AI commands. You need a function in the AI Script that constantly loops waiting to receive commands and then you can send that command via trigger in the map to send the command to change targets or recognise the enemy base is defeated. I'll try to send an example later on when I get the chance.

 

[Lordliw]

Is it anything similar to the function, which you provided a little while ago, "get_commands"?

 

[Footman16]

Yes that's exactly it

So command is the first integer sent in the trigger action, data is the second.

Sending a command of just (0,0) is used to move past any call WaitForSignal() in the script.

In the script I sent, you'll seec md ==KulTirasDead

sets target 1 from PlayerEx(11) as its defined in the globals at the start to PlayerEx(1) and I send this command when the Kul Tiras base dies.

 

[Lordliw]

So, if I understand correctly, when the cmd and data in the triggers are (7, 7), the ai switches to attacking the player? I'm not sure I understand the data part fully, yet.

 

[Footman16]

Sending (7,0) will make the actions contained run.

The data part is only for the other cmds where I send say for example (2, integer(GetCentreY(Region1))) it'll set the variable stage_y1 to the y value of the centre point of a region in my map but I could just as easily send (2,568) and it would set stage_y2 to 568.

 

[Lordliw]

Ah, I see now. So in my case, if the ai sends out an attack wave and that attack wave defeats the player, the triggers would send a specific number (command) that I would have to clarify in the globals and the ai would switch targets (also would have to be declared in the script). I'm guessing I don't necessarily need the data part or is it a necessity to the code?

 

[Footman16]

Yeah, so you assign each integer to your Command. Then when you send that, the command is issued and what's listed under that command will run. In your case then yeah the data part might not be necessary. In terms of when you send that command would be determined by your triggers, for example you can check player buildings etc or specific buildings and if they die, send it.

If you look at Jaina's AI for the final Orc mission all her attacks are controlled by sending AI commands if you want an example of that.

 

[Lordliw]

That's actually helped a lot, not gonna lie, I was successful with elevating my script to a higher . Though, I haven't really been successful in understanding orc08's triggers for jaina to the fullest, it seems to rely on some timer and that timer raises the command to a higher number if it expires while in the script it's something different, but maybe I didn't look good enough, that's on me.

The data part, is it only used for setting region paths or coordinates inside the game? Also, when you mentioned "(2, integer(GetCentreY(Region1)))", I couldn't really find how you managed to put a string inside an integer value, did you change it to Hashtable - Get String ID inside the trigger editor?

 

[Footman16]

So for Orc08 every time the command gets sent an integer increases by 1 (an index if you will) to determine the strength of the attacks so every time the command is sent by the timer the attack waves increase in strength and this integer goes up by 1, so the first time the strength is one, second time the command is sent the strength is two so on and so forth until it loops at the end where anything above 3 (I think? it's been a while since I've looked at the script) will send the same strength of attack.

Here's the example of how data can be sent, the data is sent as an integer so you have to convert. You can also see how I send every value needed for the X,Y of the staging points used in the script.

You don't need to send data, you only send data if there's something you need the AI script to "know". I could have manually typed in the co-ordinates but sending the regions instead means if I ever edit or move them I don't need to change the AI.

 

[Lordliw]

I see, it's nice to understand it, but probably won't need it for my cause.

Do you know, perhaps, how I can test to see whether the commands are sent and received by the ai? Because my ai seems to ignore calling upon functions whenever a command is sent and immediately proceeds to the attack waves, I don't know why that is.

Spoiler: Code

//============================================================================
//  JASS SCRIPTING DEMO
//============================================================================
globals
    player purple = Player(3)
    player green = Player(6)
    
    constant integer Attack = 1
    constant integer Green_Dead = 2
    constant integer Purple_Dead = 3
    
    player Target = green
    player Target2 = purple

    boolean AttackNOW = false
    boolean GreenDead = false
    boolean PurpleDead = false
    
    integer hall_done = 0
    integer keep = 0
    integer castle = 0
    integer sanctum = 0
    integer priest = 0
    integer sorceress = 0
    integer smith = 0
    integer archer = 0
    integer mill = 0
    integer barracks = 0
    
    boolean b_knight = false
endglobals

//--------------------------------------------------------------------------------------------------
//  set_skills
//--------------------------------------------------------------------------------------------------
function set_skills takes nothing returns nothing
    set skill[ 1] = WATER_ELEMENTAL
    set skill[ 2] = BRILLIANCE_AURA
    set skill[ 3] = WATER_ELEMENTAL
    set skill[ 4] = BLIZZARD
    set skill[ 5] = WATER_ELEMENTAL
    set skill[ 6] = MASS_TELEPORT
    set skill[ 7] = BRILLIANCE_AURA
    set skill[ 8] = BRILLIANCE_AURA
    set skill[ 9] = BLIZZARD
    set skill[10] = BLIZZARD

    call SetSkillArray(1, 'H000')
    call SetSkillArray(2, 'H000')
    call SetSkillArray(3, 'H000')
endfunction

//--------------------------------------------------------------------------------------------------
//  HeroSkill
//--------------------------------------------------------------------------------------------------
function HeroSkill takes nothing returns integer
    return skill[GetHeroLevelAI()]
endfunction

//--------------------------------------------------------------------------------------------------
//  Init
//--------------------------------------------------------------------------------------------------
function Init takes nothing returns nothing
    set hall_done = TownCountDone(TOWN_HALL)
    set keep = TownCountDone(KEEP)
    set castle = TownCountDone(CASTLE)
    set sanctum = GetUnitCountDone(SANCTUM)
    set priest = GetUnitCountDone(PRIEST)
    set sorceress = GetUnitCountDone(SORCERESS)
    set smith = GetUnitCountDone(BLACKSMITH)
    set archer = GetUnitCountDone(HIGH_ARCHER)
    set mill = GetUnitCountDone(LUMBER_MILL)
    set barracks = GetUnitCountDone(ELF_HIGH_BARRACKS)
    
    set b_knight = castle >=1 and mill >=1 and smith >=1
endfunction

//--------------------------------------------------------------------------------------------------
//  set_vars
//--------------------------------------------------------------------------------------------------
function set_vars takes nothing returns nothing
    loop
        call Init()
        call Sleep(1)
    endloop
endfunction

//--------------------------------------------------------------------------------------------------
//  random_attack
//--------------------------------------------------------------------------------------------------
function random_attack takes nothing returns nothing
    local integer knights
    local integer hawks
     
    set knights = GetRandomInt(0, 4)
    call CampaignAttacker(NORMAL, knights, KNIGHT)
     
    set hawks = 4 - knights
    if hawks > 0 then
        call CampaignAttacker(NORMAL, hawks, DRAGON_HAWK)
    endif
endfunction

//--------------------------------------------------------------------------------------------------
//  do_upgrades
//--------------------------------------------------------------------------------------------------
function do_upgrades takes nothing returns nothing

    if hall_done >= 1 then
        call SetBuildUpgr( 1, 'Rhpm' )
    endif

    if keep >= 1 then

        call SetBuildUpgr( 1, UPG_WOOD )

        if castle >= 1 then
            call SetBuildUpgr( 2, UPG_WOOD )                                        
        endif

        if b_knight then
            call SetBuildUpgr( 1, UPG_BREEDING )
        endif
        if sanctum >= 1 then
            if priest >= 1 then
                call SetBuildUpgr( 1, UPG_PRAYING )
            endif
            if sorceress >= 1 then
                call SetBuildUpgr( 1, UPG_SORCERY )
            endif
        endif
        if castle >= 1 then

            call SetBuildUpgr( 2, UPG_WOOD )

            if sanctum >= 1 then
                if priest >= 1 then
                    call SetBuildUpgr( 2, UPG_PRAYING )
                endif
                if sorceress >= 1 then
                    call SetBuildUpgr( 2, UPG_SORCERY )
                endif
            endif
        endif
    endif

    call SetBuildUpgr( 1, UPG_DEFEND )

    if smith >= 1 then
        call SetBuildUpgr( 1, UPG_ARMOR     )
        call SetBuildUpgr( 1, UPG_MELEE     )
        call SetBuildUpgr( 1, UPG_STR_MOON  )
        call SetBuildUpgr( 1, UPG_MOON_ARMOR)

        if keep >= 1 then
            call SetBuildUpgr( 2, UPG_ARMOR     )
            call SetBuildUpgr( 2, UPG_MELEE     )
            call SetBuildUpgr( 2, UPG_STR_MOON  )
            call SetBuildUpgr( 2, UPG_MOON_ARMOR)
        endif
    endif

    if mill >= 1 then
        call SetBuildUpgr( 1, UPG_MASONRY )
        if keep >= 1 then
            call SetBuildUpgr( 2, UPG_MASONRY )
        endif
    endif
    
    if barracks >= 1 and keep >= 1 then
        call SetBuildUpgr( 1, UPG_BOWS     )
        
        if archer >=1 and smith >= 1 and castle >=1 then
            call SetBuildUpgr( 1, UPG_MARKSMAN  ) 
        endif
    endif

endfunction

//--------------------------------------------------------------------------------------------------
//  build_sequence
//--------------------------------------------------------------------------------------------------
function build_sequence takes nothing returns nothing    
    call InitBuildArray()
    call SetBuildUnitEx( 0,1,1, TOWN_HALL              )
    call SetBuildUnitEx( 5,5,5, PEASANT                )
    call SetBuildUnitEx( 1,3,3, ELF_FARM               )
    call SetBuildUnitEx( 1,1,2, ELF_HIGH_BARRACKS      )
    call SetBuildUnitEx( 2,2,2, ZEPPLIN                )
    call SetBuildUnitEx( 8,8,8, PEASANT                )  
    call SetBuildUnitEx( 3,4,4, ELF_FARM               )
    call SetBuildUnit( 1, HUMAN_ALTAR                  )
    call SetBuildUnit( 1, 'H000'                       )
    call SetBuildUnitEx( 11,11,11, PEASANT             )
    call SetBuildUnitEx( 4,5,5, ELF_FARM               )
    call SetBuildUnit( 1, BLACKSMITH                   )
    call SetBuildUnit( 1, LUMBER_MILL                  )
    call SetBuildUnitEx( 9,9,9, ELF_FARM               )
    call SetBuildUnit( 1, KEEP                         )
    call SetBuildUnitEx( 1,1,2, ARCANE_SANCTUM         )
    call SetBuildUnit( 1, CASTLE                       )    
endfunction

//--------------------------------------------------------------------------------------------------
//  peon_assignment
//--------------------------------------------------------------------------------------------------
function peon_assignment takes nothing returns nothing
    local integer T
    loop
        call ClearHarvestAI()
        
        set T = TownWithMine()

        call HarvestGold(T,5)
        call HarvestWood(0,6)
        
        call build_sequence()
        
        call Sleep(GetRandomInt(1,3))
    endloop
endfunction

//--------------------------------------------------------------------------------------------------
//  get_commands
//--------------------------------------------------------------------------------------------------
function get_commands takes nothing returns nothing
    local integer cmd
    local integer data
    
    loop
        loop
            exitwhen CommandsWaiting() != 0
            call Sleep(1)
        endloop
        set cmd = GetLastCommand()
        set data = GetLastData()
        call PopLastCommand()
        
        if cmd == Attack then
            set AttackNOW = true
            call do_upgrades()
        elseif cmd == Green_Dead then
            set GreenDead = true
            set Target = Target2
        elseif cmd == Purple_Dead then
            set PurpleDead = true
            set Target2 = Target
        endif
    endloop
endfunction

//============================================================================
//  main
//============================================================================
function main takes nothing returns nothing
    call CampaignAI(ELF_FARM,null)
    call SetSlowChopping(false)
    call SetPeonsRepair(true)
    call SetHeroesTakeItems(true)
    call SetHeroesBuyItems(true)
    call SetSmartArtillery(true)
    call SetRandomPaths(true)
    call SetIgnoreInjured(true)
    call SetWatchMegaTargets(true)
    call CreateCaptains()
    call set_skills()
    call SetHeroLevels(function HeroSkill)
    call StartThread(function set_vars)
    call StartThread(function peon_assignment)
    
    call SetReplacements(1000,1000,1000)
    
    call CampaignDefenderEx( 1,1,1, HIGH_SWORDMAN   )
    call CampaignDefenderEx( 1,1,1, HIGH_ARCHER     )    
    call CampaignDefenderEx( 1,1,1, 'H000'          )    
    call CampaignDefenderEx( 0,1,1, SORCERESS       )
    
    call StartThread(function get_commands)
    
    call SetDefendPlayer(true)
    
    //*** WAVE 1 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 0,1,2, HIGH_SWORDMAN   )
    call CampaignAttackerEx( 2,3,3, HIGH_ARCHER     )
    call SuicideOnPlayerEx(M3,M2,M2,Target)

    //*** WAVE 2 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 3,4,4, HIGH_ARCHER     )
    call CampaignAttackerEx( 1,2,3, HIGH_SWORDMAN   )
    call SuicideOnPlayerEx(M5,M4,M4,Target2)
    
    //*** WAVE 3 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 3,4,4, HIGH_ARCHER     )
    call CampaignAttackerEx( 1,2,3, HIGH_SWORDMAN   )
    call SuicideOnPlayerEx(M5,M4,M4,Target)
    
    //*** WAVE 4 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 3,4,4, HIGH_ARCHER     )
    call CampaignAttackerEx( 1,2,3, HIGH_SWORDMAN   )
    call SuicideOnPlayerEx(M5,M4,M4,Target2)
    
    //*** WAVE 5 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 3,3,3, HIGH_ARCHER     )
    call CampaignAttackerEx( 1,1,1, 'H000'          )
    call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN   )
    call CampaignAttackerEx( 0,1,2, PRIEST          )
    call SuicideOnPlayerEx(M4,M3,M3,Target)
    
    //*** WAVE 6 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN   )
    call CampaignAttackerEx( 1,2,3, PRIEST          )
    call CampaignAttackerEx( 0,1,2, SORCERESS       )
    call SuicideOnPlayerEx(M4,M3,M3,Target2)   
    
    loop
        //*** WAVE 7 ***
        call InitAssaultGroup()
        call random_attack()                      
        call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN )
        call CampaignAttackerEx( 1,2,3, PRIEST        )
        call CampaignAttackerEx( 1,1,1, 'H000'        )
        call CampaignAttackerEx( 0,1,2, SORCERESS     )
        call SuicideOnPlayerEx(M5,M4,M3,Target)
        
        //*** WAVE 8 ***
        call InitAssaultGroup()
        call random_attack()
        call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN )
        call CampaignAttackerEx( 1,2,3, PRIEST        )
        call CampaignAttackerEx( 0,1,2, SORCERESS     )
        call SuicideOnPlayerEx(M5,M4,M3,Target2)
        
        //*** WAVE 9 ***
        call InitAssaultGroup()
        call random_attack()
        call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN )
        call CampaignAttackerEx( 1,2,3, PRIEST        )
        call CampaignAttackerEx( 1,1,1, 'H000'        ) 
        call CampaignAttackerEx( 0,1,2, SORCERESS     )
        call CampaignAttackerEx( 1,1,2, DRAGON_HAWK   )
        call SuicideOnPlayerEx(M6,M5,M4,Target)
        
        //*** WAVE 10 ***
        call InitAssaultGroup()
        call random_attack()
        call CampaignAttackerEx( 2,3,5, HIGH_SWORDMAN )
        call CampaignAttackerEx( 1,2,3, PRIEST        )
        call CampaignAttackerEx( 1,1,1, 'H000'        ) 
        call CampaignAttackerEx( 1,2,3, SORCERESS     )
        call CampaignAttackerEx( 1,2,3, DRAGON_HAWK   )
        call SuicideOnPlayerEx(M6,M5,M4,Target2)                
    endloop            
endfunction

 

[Footman16]

Because the commands are getting checked in a separate thread. Think of different threads as multi-tasking. If you want it to wait or only start the attacks after you send a signal you're better using the WaitForSignal() function.

I suggest checking out the "Creating AI Workflow" tutorial on this website it's the best tutorial I've ever found on the subject

 

[Lordliw]

It's kind of starting to become frustrating, lol. I have two things the defending ai needs to do, and that is – when the ally base gets destroyed, the ai will start researching upgrades and preparing the attack sequences, but the problem is PopLastCommand(), not all upgrades go through and the attack waves from the defender never go through, I managed to somehow circumvent the upgrading issue by adding an extension function which asks whether the boolean AttackNOW is true and that's when upgrades start rolling, but I couldn't manage to do the same for the attack_sequence function.

Not to mention that I still cannot process the difference between calling the function in StartThread or calling it plainly. The idea I got from it is that it will do a function simultaneously with whatever else it is doing then, but when calling a specific function plainly, it will prioritize that and only that until it finishes, right?

Also, I'm not sure if I screwed up the script by calling the function that checks whether the boolean is true in a loop. I'm thinking of actually reverting to WaitForSignal(), but I wonder if I can use it simultaneously with the get_commands function if I want the ai to execute more things?

 

[Footman16]

So IIRC Warcraft 3 is single threaded, meaning it only ever runs things one at a time technically however multi-threading in your AI scripts still works, and should still run things simultaneously. So if you have a loop in a separate thread checking something that loop will keep going whilst the rest of your main function executes. If you call a function normally, that function will execute and keep executing until it either exits, finishes or moves onto the next function so as an example:

call StartThread(function get_commands)

call DummyFunction()

Will start looping over the commands and doing whatever's inside and also start the dummy function compared to:

call get_commands

call DummyFunction()

Here, in this case, since get_commands has a loop that never exits to check for commands we will never reach DummyFunction() and the script will get stuck constantly searching for executing whatever commands are inside since get_commands will never exit it's loop.

 

[Lordliw]

But if I use WaitForSignal()? Does it override all the commands or just 0?

 

[Footman16]

JASS Manual: API Browser - common.ai

From the JASS manual, it seems that WaitForSignal() waits for literally any command, no matter what it is as long as CommandsWaiting is not 0 so any time you send a command CommandsWaiting is increased by 1 and that's why PopLastCommand() is necessary to reset CommandsWaiting to 0.

EDIT: Also anytime you have a loop make sure you add/have a Sleep otherwise that loop is going to be looping A LOT and VERY OFTEN which is not good. This only applies if the loop is going to be running for pretty much the entire script. Obviously looped attack waves don't require a sleep command.

 

[Lordliw]

I don't understand. It's essentially the same deal as making your own "WaitForSignal", like the get_commands function, so to speak. So why does it work if I use WaitForSignal and not manually what I do? Unless I cannot call any of the functions inside it and have to call them somewhere else, manually.

 

[Footman16]

Except your get_commands won't stop the main function from running since it's in a separate thread. That's why WaitForSignal is needed, however yes you may need to write your own WaitForSignal() function so that it and the get_commands function don't interfere with each other. Also you set the variable AttackNOW = true but I don't see where that variable get used anywhere.

When that command is sent two things happen, that variable gets switched to true and that upgrades function gets called. But as I said that variable is used nowhere so the regular attacks will just proceed as normal in the original thread, in the main function.

 

[Lordliw]

Basically none of my booleans have a purpose, but I was keeping them around in case I ran into a dead end, such as this one, so that I could try and find a workaround the issue, however, my efforts proved futile.

Is it worth my time to try and dissect the get_commands function by creating separate functions that rely on a loop that asks every 1-3 seconds whether a boolean is true, and if it is, it'll execute a function?

OR

To manually put all the upgrades, for example, inside the get_commands, how fruitful is that idea?

 

[Footman16]

It depends really but what you've got to remember is that other commands can't run whilst another one is running remember every function called inside must run through first, since coding and scripting runs line by line and you can't move onto the next line until the previous has been read

 

[Lordliw]

Of course, that's my plan after all – for the ai to complete an entire function inside a function and then to move on, but I can't do that if PopLastCommand is just going to do a few upgrades and then skip it altogether.

Mind the fact that jaina's ai in orc08 does the exact same thing, but for attack and defense. And I'm willing to bet that they wouldn't have done that if PopLastCommand would've skipped them. Just like you said, you can't move onto the next line until the previous has been read.

Follow up:

I gave up on the get_commands function because it just doesn't seem to do what I want it to do, even the target switching doesn't work properly. Putting if conditions that ask whether the boolean is true also don't seem to work, which makes me believe that the function is either not properly set up (which I'm not experienced enough to understand or fix) or the command resetting is way too fast for the ai to comprehend.

On the bright side, I don't know if Christmas came early, but manual verification "CommandsWaiting()" fixed all of my issues, I'm willing to bet that it would also solve the target switching, but then my code would be all over the place and I don't know if I can call way, wayy too many functions in main.

This is the latest code:

Spoiler: Latest code

//============================================================================
//  JASS SCRIPTING DEMO
//============================================================================
globals
    player purple = Player(3)
    player green = Player(6)
    
    constant integer Attack = 1
    constant integer Green_Dead = 2
    constant integer Purple_Dead = 3
    
    player Target = green
    player Target2 = purple

    boolean AttackNOW = false
    boolean GreenDead = false
    boolean PurpleDead = false
    
    integer hall_done = 0
    integer keep = 0
    integer castle = 0
    integer sanctum = 0
    integer priest = 0
    integer sorceress = 0
    integer smith = 0
    integer archer = 0
    integer mill = 0
    integer barracks = 0
    
    boolean b_knight = false
endglobals

//--------------------------------------------------------------------------------------------------
//  set_skills
//--------------------------------------------------------------------------------------------------
function set_skills takes nothing returns nothing
    set skill[ 1] = WATER_ELEMENTAL
    set skill[ 2] = BRILLIANCE_AURA
    set skill[ 3] = WATER_ELEMENTAL
    set skill[ 4] = BLIZZARD
    set skill[ 5] = WATER_ELEMENTAL
    set skill[ 6] = MASS_TELEPORT
    set skill[ 7] = BRILLIANCE_AURA
    set skill[ 8] = BRILLIANCE_AURA
    set skill[ 9] = BLIZZARD
    set skill[10] = BLIZZARD

    call SetSkillArray(1, 'H000')
    call SetSkillArray(2, 'H000')
    call SetSkillArray(3, 'H000')
endfunction

//--------------------------------------------------------------------------------------------------
//  HeroSkill
//--------------------------------------------------------------------------------------------------
function HeroSkill takes nothing returns integer
    return skill[GetHeroLevelAI()]
endfunction

//--------------------------------------------------------------------------------------------------
//  Init
//--------------------------------------------------------------------------------------------------
function Init takes nothing returns nothing
    set hall_done = TownCountDone(TOWN_HALL)
    set keep = TownCountDone(KEEP)
    set castle = TownCountDone(CASTLE)
    set sanctum = GetUnitCountDone(SANCTUM)
    set priest = GetUnitCountDone(PRIEST)
    set sorceress = GetUnitCountDone(SORCERESS)
    set smith = GetUnitCountDone(BLACKSMITH)
    set archer = GetUnitCountDone(HIGH_ARCHER)
    set mill = GetUnitCountDone(LUMBER_MILL)
    set barracks = GetUnitCountDone(ELF_HIGH_BARRACKS)
    
    set b_knight = castle >=1 and mill >=1 and smith >=1
endfunction

//--------------------------------------------------------------------------------------------------
//  set_vars
//--------------------------------------------------------------------------------------------------
function set_vars takes nothing returns nothing
    loop
        call Init()
        call Sleep(1)
    endloop
endfunction

//--------------------------------------------------------------------------------------------------
//  random_attack
//--------------------------------------------------------------------------------------------------
function random_attack takes nothing returns nothing
    local integer knights
    local integer hawks
     
    set knights = GetRandomInt(0, 4)
    call CampaignAttacker(NORMAL, knights, KNIGHT)
     
    set hawks = 4 - knights
    if hawks > 0 then
        call CampaignAttacker(NORMAL, hawks, DRAGON_HAWK)
    endif
endfunction

//--------------------------------------------------------------------------------------------------
//  do_upgrades
//--------------------------------------------------------------------------------------------------
function do_upgrades takes nothing returns nothing

    if hall_done >= 1 then
        call SetBuildUpgr( 1, 'Rhpm' )
    endif

    if keep >= 1 then

        call SetBuildUpgr( 1, UPG_WOOD )

        if castle >= 1 then
            call SetBuildUpgr( 2, UPG_WOOD )                                        
        endif

        if b_knight then
            call SetBuildUpgr( 1, UPG_BREEDING )
        endif
        if sanctum >= 1 then
            if priest >= 1 then
                call SetBuildUpgr( 1, UPG_PRAYING )
            endif
            if sorceress >= 1 then
                call SetBuildUpgr( 1, UPG_SORCERY )
            endif
        endif
        if castle >= 1 then

            call SetBuildUpgr( 2, UPG_WOOD )

            if sanctum >= 1 then
                if priest >= 1 then
                    call SetBuildUpgr( 2, UPG_PRAYING )
                endif
                if sorceress >= 1 then
                    call SetBuildUpgr( 2, UPG_SORCERY )
                endif
            endif
        endif
    endif

    call SetBuildUpgr( 1, UPG_DEFEND )

    if smith >= 1 then
        call SetBuildUpgr( 1, UPG_ARMOR     )
        call SetBuildUpgr( 1, UPG_MELEE     )
        call SetBuildUpgr( 1, UPG_STR_MOON  )
        call SetBuildUpgr( 1, UPG_MOON_ARMOR)

        if keep >= 1 then
            call SetBuildUpgr( 2, UPG_ARMOR     )
            call SetBuildUpgr( 2, UPG_MELEE     )
            call SetBuildUpgr( 2, UPG_STR_MOON  )
            call SetBuildUpgr( 2, UPG_MOON_ARMOR)
        endif
    endif

    if archer >= 1 and castle >= 1 then
        call SetBuildUpgr( 1, UPG_MARKSMAN  )
    endif

    if mill >= 1 then
        call SetBuildUpgr( 1, UPG_MASONRY )
        if keep >= 1 then
            call SetBuildUpgr( 2, UPG_MASONRY )
        endif
    endif
    
    if barracks >= 1 and keep >= 1 then
        call SetBuildUpgr( 1, UPG_BOWS     )
        
        if archer >= 1 and smith >= 1 and castle >=1 then
            call SetBuildUpgr( 1, UPG_MARKSMAN  ) 
        endif
    endif
    
endfunction

//--------------------------------------------------------------------------------------------------
//  build_sequence
//--------------------------------------------------------------------------------------------------
function build_sequence takes nothing returns nothing    
    call InitBuildArray()
    call SetBuildUnitEx( 0,1,1, TOWN_HALL              )
    call SetBuildUnitEx( 5,5,5, PEASANT                )
    call SetBuildUnitEx( 1,3,3, ELF_FARM               )
    call SetBuildUnitEx( 1,1,2, ELF_HIGH_BARRACKS      )
    call SetBuildUnitEx( 2,2,2, ZEPPLIN                )
    call SetBuildUnitEx( 8,8,8, PEASANT                )  
    call SetBuildUnitEx( 3,4,4, ELF_FARM               )
    call SetBuildUnit( 1, HUMAN_ALTAR                  )
    call SetBuildUnit( 1, 'H000'                       )
    call SetBuildUnitEx( 11,11,11, PEASANT             )
    call SetBuildUnitEx( 4,5,5, ELF_FARM               )
    call SetBuildUnit( 1, BLACKSMITH                   )
    call SetBuildUnit( 1, LUMBER_MILL                  )
    call SetBuildUnitEx( 9,9,9, ELF_FARM               )
    call SetBuildUnit( 1, KEEP                         )
    call SetBuildUnitEx( 1,1,2, ARCANE_SANCTUM         )
    call SetBuildUnit( 1, CASTLE                       )
    
    call do_upgrades()
endfunction

//--------------------------------------------------------------------------------------------------
//  attacks
//--------------------------------------------------------------------------------------------------
function attacks takes nothing returns nothing
    //*** WAVE 1 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 0,1,2, HIGH_SWORDMAN   )
    call CampaignAttackerEx( 2,3,3, HIGH_ARCHER     )
    call SuicideOnPlayerEx(M3,M2,M2,Target)

    //*** WAVE 2 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 3,4,4, HIGH_ARCHER     )
    call CampaignAttackerEx( 1,2,3, HIGH_SWORDMAN   )
    call SuicideOnPlayerEx(M5,M4,M4,Target2)
    
    //*** WAVE 3 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 3,4,4, HIGH_ARCHER     )
    call CampaignAttackerEx( 1,2,3, HIGH_SWORDMAN   )
    call SuicideOnPlayerEx(M5,M4,M4,Target)
    
    //*** WAVE 4 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 3,4,4, HIGH_ARCHER     )
    call CampaignAttackerEx( 1,2,3, HIGH_SWORDMAN   )
    call SuicideOnPlayerEx(M5,M4,M4,Target2)
    
    //*** WAVE 5 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 3,3,3, HIGH_ARCHER     )
    call CampaignAttackerEx( 1,1,1, 'H000'          )
    call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN   )
    call CampaignAttackerEx( 0,1,2, PRIEST          )
    call SuicideOnPlayerEx(M4,M3,M3,Target)
    
    //*** WAVE 6 ***
    call InitAssaultGroup()
    call random_attack()
    call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN   )
    call CampaignAttackerEx( 1,2,3, PRIEST          )
    call CampaignAttackerEx( 0,1,2, SORCERESS       )
    call SuicideOnPlayerEx(M4,M3,M3,Target2)   
    
    loop
        //*** WAVE 7 ***
        call InitAssaultGroup()
        call random_attack()                      
        call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN )
        call CampaignAttackerEx( 1,2,3, PRIEST        )
        call CampaignAttackerEx( 1,1,1, 'H000'        )
        call CampaignAttackerEx( 0,1,2, SORCERESS     )
        call SuicideOnPlayerEx(M5,M4,M3,Target)
        
        //*** WAVE 8 ***
        call InitAssaultGroup()
        call random_attack()
        call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN )
        call CampaignAttackerEx( 1,2,3, PRIEST        )
        call CampaignAttackerEx( 0,1,2, SORCERESS     )
        call SuicideOnPlayerEx(M5,M4,M3,Target2)
        
        //*** WAVE 9 ***
        call InitAssaultGroup()
        call random_attack()
        call CampaignAttackerEx( 2,2,2, HIGH_SWORDMAN )
        call CampaignAttackerEx( 1,2,3, PRIEST        )
        call CampaignAttackerEx( 1,1,1, 'H000'        ) 
        call CampaignAttackerEx( 0,1,2, SORCERESS     )
        call CampaignAttackerEx( 1,1,2, DRAGON_HAWK   )
        call SuicideOnPlayerEx(M6,M5,M4,Target)
        
        //*** WAVE 10 ***
        call InitAssaultGroup()
        call random_attack()
        call CampaignAttackerEx( 2,3,5, HIGH_SWORDMAN )
        call CampaignAttackerEx( 1,2,3, PRIEST        )
        call CampaignAttackerEx( 1,1,1, 'H000'        ) 
        call CampaignAttackerEx( 1,2,3, SORCERESS     )
        call CampaignAttackerEx( 1,2,3, DRAGON_HAWK   )
        call SuicideOnPlayerEx(M6,M5,M4,Target2)                
    endloop   
endfunction

//--------------------------------------------------------------------------------------------------
//  assault
//--------------------------------------------------------------------------------------------------
function assault takes nothing returns nothing
    loop
        exitwhen CommandsWaiting() == 1
        call Sleep(1)
    endloop
    
    loop
        call SetDefendPlayer(true)
        call attacks()
        
        call Sleep(GetRandomInt(1,3))
    endloop
endfunction

//--------------------------------------------------------------------------------------------------
//  peon_assignment
//--------------------------------------------------------------------------------------------------
function peon_assignment takes nothing returns nothing
    local integer T
    
    loop
        exitwhen CommandsWaiting() == 1
        call Sleep(1)
    endloop
    
    loop
        call ClearHarvestAI()
        
        set T = TownWithMine()

        call HarvestGold(T,5)
        call HarvestWood(0,6)
        
        call build_sequence()
        
        call Sleep(GetRandomInt(1,3))
    endloop
endfunction

//--------------------------------------------------------------------------------------------------
//  get_commands
//--------------------------------------------------------------------------------------------------
function get_commands takes nothing returns nothing
    local integer cmd
    
    loop
        loop
            exitwhen CommandsWaiting() != 0
            call Sleep(1)
        endloop
        set cmd = GetLastCommand()
        call PopLastCommand()
        
        if cmd == Attack then
            set AttackNOW = true
        elseif cmd == Green_Dead then
            set GreenDead = true
            set Target = Target2
        elseif cmd == Purple_Dead then
            set PurpleDead = true
            set Target2 = Target
        endif
    endloop
endfunction

//============================================================================
//  main
//============================================================================
function main takes nothing returns nothing
    call CampaignAI(ELF_FARM,null)
    call SetSlowChopping(false)
    call SetPeonsRepair(true)
    call SetHeroesTakeItems(true)
    call SetHeroesBuyItems(true)
    call SetSmartArtillery(true)
    call SetRandomPaths(true)
    call SetIgnoreInjured(true)
    call SetWatchMegaTargets(true)
    call CreateCaptains()
    call set_skills()
    call SetHeroLevels(function HeroSkill)
    call StartThread(function set_vars)
    call StartThread(function assault)
    call StartThread(function peon_assignment)
    call StartThread(function get_commands)
    
    call SetReplacements(1000,1000,1000)
    
    call CampaignDefenderEx( 1,1,1, HIGH_SWORDMAN   )
    call CampaignDefenderEx( 1,1,1, HIGH_ARCHER     )    
    call CampaignDefenderEx( 1,1,1, 'H000'          )    
    call CampaignDefenderEx( 0,1,1, SORCERESS       )  
endfunction