globals
  trigger array trig
endglobals

function Add takes nothing returns boolean
    return GetUnitTypeId(GetFilterUnit()) == 'hfoo'
endfunction

function Trig_Spell_Actions takes nothing returns nothing
    local player p = GetTriggerPlayer()
    local integer i = GetPlayerId(p)
    local group gr = CreateGroup()
    local unit u
    call GroupEnumUnitsOfPlayer(gr, p, Filter(function Add))
    set u = GroupPickRandomUnit(gr)
    call UnitAddAbility(u,'Ahea')
    call DisableTrigger(trig[i])
    call DestroyGroup(gr)
    set u = null
    set gr =  null
endfunction

//===========================================================================
function InitTrig_gold takes nothing returns nothing
    local integer i = 0
    set gg_trg_gold = CreateTrigger( )
     loop
      exitwhen i>=11
       set trig[i] = CreateTrigger( )
       call TriggerRegisterPlayerStateEvent( trig[i], Player(i), PLAYER_STATE_RESOURCE_GOLD, GREATER_THAN_OR_EQUAL, 100.00 )
       call TriggerAddAction( trig[i], function Trig_Spell_Actions )
       set i = i+1
     endloop
endfunction