Есть готовые примеры.

Получится такая внутри -хгм "педивикия" по варкрафту

Но я к тому, что делать изначально статью для "избранных"

А вообще, нормальная статья должна быть такой, чтобы даже круглый идиот её мог понять.

как показывает практика, нужно разжевывать.

native UnitAlive takes unit id returns boolean 

library FoodQuery initializer Init 

    globals 
        private group Group = CreateGroup() 
        private integer array Counter 
        private integer dummyId = 'dumy' // Равкод даммика              
        private integer abilId = 'abil' // Равкод абилки с отрицательным регеном             
    endglobals 

    private function periodic takes nothing returns nothing 
        local integer i = -1 
        local unit target = null 
        local unit found = null 
        local integer count = 0 

        loop 
            set i = i + 1 
            exitwhen i > bj_MAX_PLAYER_SLOTS 

            call GroupClear(Group) 
            call GroupEnumUnitsOfPlayer(Group, Player(i), null) 

            loop 
                set target = FirstOfGroup(Group) 
                exitwhen target = null 
                call GroupRemoveUnit(Group, target) 

                if UnitAlive(target) and GetUnitTypeId(target) == dummyId then 
                    // Считаем юнитов с абилкой         
                    if GetUnitAbilityLevel(target, abilId) > 0 then 
                        count = count + 1 
                    endif 

                    // Сразу выбираем юнита с максимальным значением     
                    if found == null or GetUnitUserData(target) > GetUnitUserData(found) then 
                        set found = target 
                    endif 
                endif 
            endloop 

            // Если никто не найден, то выдаём абилку юниту  
            if count == 0 and found != null then 
                call UnitAddAbility(found, abilId) 
            endif 

        endloop 

    endfunction 

    private function Init takes nothing returns nothing 
        local trigger t = CreateTrigger() 
        call TriggerRegisterTimerEventPeriodic(t, 1.00) 
        call TriggerAddAction(t, function periodic) 

        // Здесь нужно дописать триггор, который присвоит SetUnitUserData  

        set t = null 
    endfunction 
endlibrary