globals
	integer	      udg_ALEXHELL_PlayerID		// индекс игрока-владельца AI
	unit array		udg_ALEXHELL_NearHero		// массив ближайших героев
	integer	      udg_ALEXHELL_NearHeroCount = 0	// массив ближайших героев
endglobals

// Периодическая функция AI
function ALEXHELL_PeriodicFunc takes nothing returns nothing
    local unit me = udg_Hero[udg_ALEXHELL_PlayerID]	// мой герой
    local group gr_enemy
    local group gr_ally
    local real life
    local real mana
    local boolean target_exist = false
    local integer i = 0
    local integer n
    local boolean b

    // Проверяем ранее сохраненных героев
    loop
        exitwhen i == udg_ALEXHELL_NearHeroCount

        // если герой в массиве видимый
        if (GamePlay_IsVisible(udg_ALEXHELL_PlayerID, udg_ALEXHELL_NearHero[i]) then

            // легко получаем его здоровье и ману
            set life = GetUnitState(udg_ALEXHELL_NearHero[i], UNIT_STATE_LIFE)
            set mana = GetUnitState(udg_ALEXHELL_NearHero[i], UNIT_STATE_MANA)

        // если герой в массиве не видимый
        else

            // сдвигаем всех героев в массиве
            set n = i
            loop
                exitwhen n == udg_ALEXHELL_NearHeroCount - 1
                set udg_ALEXHELL_NearHero[n] = udg_ALEXHELL_NearHero[n + 1] 
                set n = n + 1
            endloop

            // очищаем последнюю ячейку
            set udg_ALEXHELL_NearHero[udg_ALEXHELL_NearHeroCount] = null
            set udg_ALEXHELL_NearHeroCount = udg_ALEXHELL_NearHeroCount - 1

            // таким образом невидимый герой был исключен из массива, а его характеристики не были проверены - все по правилам!

        endif

        set i = i + 1
    endloop

    set gr_enemy = GamePlay_GetEnemyInRange(me, 1000)	// группа видимых врагов в радиусе от героя
    set gr_ally = GamePlay_GetAllyInRange(me, 1000)	// группа союзников в радиусе от героя

    // Выбираем новую цель для атаки / магии
    loop
        set u = FirstOfGroup(gr_enemy)
        exitwhen u == null

        // Если это герой или иллюзия
        if (IsUnitType(u, UNIT_TYPE_HERO) or IsUnitIllusion(u)) then

            // легко получаем его здоровье и ману, тк. он видим!
            set life = GetUnitState(u, UNIT_STATE_LIFE)
            set mana = GetUnitState(u, UNIT_STATE_MANA)

            // проверяем, есть ли герой уже в нашем массиве
            set b = false
            set n = 0
            loop
                exitwhen n == udg_ALEXHELL_NearHeroCount

                if (u == udg_ALEXHELL_NearHero[n]) then
                    set b = true
                    exitwhen true
                endif

                set n = n + 1
            endloop

            // если его в массиве еще нет - добавляем!
            if (not b) then
                set udg_ALEXHELL_NearHero[udg_ALEXHELL_NearHeroCount] = u
                set udg_ALEXHELL_NearHeroCount = udg_ALEXHELL_NearHeroCount + 1
            endif

            // если цель еще не задана
            if (not target_exist) then

                // отдаем приказ атаковать, тк. он видим!
                if (life < 200 and mana < 200) then
                    set target_exist = true
                    call IssueTargetOrder(me, "attack", u)
                endif
            endif
        endif

        call GroupRemoveUnit(gr_enemy, u)
        set u = null
    endloop

    // дальше можем найти цель для применения "Благодати" на союзного героя из группы [gr_ally]
    if (not target_exist) then
        // ...
    endif

    call DestroyGroup(gr_enemy)
    call DestroyGroup(gr_ally)
endfunction