function AILoop takes nothing returns nothing
//  local string a = GetAttachmentTable(GetExpiredTimer())
  local real l = GetUnitStateSwap(UNIT_STATE_LIFE, udg_Hero)
  local real lmax = GetUnitStateSwap(UNIT_STATE_MAX_LIFE, udg_Hero)
  local real e = 1
  local unit h = udg_Hero
  local string o = OrderId2String(GetUnitCurrentOrder(h))
  local rect r = gg_rct_SpawnEnemy
  local rect fun = gg_rct_HealsAl
  local real x = GetUnitX(h)
  local real y = GetUnitY(h)
  local group g
    local boolean b
    local boolexpr be
    local unit f

set o = OrderId2String(GetUnitCurrentOrder(h))
call DisplayTextToForce( GetPlayersAll(), o )        // это для отладки

if (l > lmax*0.75) then
 set udg_AlGoToFlag = false
endif
 
  // если здоровья меньше %
  // (GetUnitStateSwap(UNIT_STATE_LIFE, h) / 5.00 )
  if (l < lmax*0.33) or (udg_AlGoToFlag == true) then 
    call IssuePointOrderLocBJ( h, "move", GetRectCenter(fun) )
    set e = 5
    set udg_AlGoToFlag = true
  else
    if (o == null) or (o=="smart")or (o == "attack") or (o == "patrol") or (o == "move") or (o == "stop") or (o == "hold") then
       set g = CreateGroup()
     set b =  AIFilterEnemyConditions()
     



    endif
    //====== патруль ====
    call IssuePointOrderLocBJ( udg_Hero, "patrol", GetRectCenter(r) )
    //===================
  endif
call TimerStart(GetExpiredTimer(), e, true, function AILoop)
endfunction


function StartAI takes unit hero returns nothing
    local timer m = CreateTimer()
// call AttachObject(m, "hero", hero)
    call TimerStart(m, 0, false, function AILoop)
    set m = null
endfunction


function Trig_AI_Actions takes nothing returns nothing
     call CreateNUnitsAtLoc( 1, 'Nngs', Player(0), GetRectCenter(gg_rct_xCreate), bj_UNIT_FACING )
     set  udg_Hero = GetLastCreatedUnit()
     call IssuePointOrderLocBJ( udg_Hero, "move", GetRectCenter(gg_rct_xMove) )
     call DisplayTextToForce( GetPlayersAll(), "Юнит создан" )
     call StartAI(udg_Hero)
endfunction


function SetupSkills takes nothing returns nothing
    local string h
// Naga Sea Witch
    set h = UnitId2String('Nngs')
    call StoreInteger(udg_GameCache, h, "BaseSkill1", 'ANfl')
    call StoreInteger(udg_GameCache, h, "BaseSkill2", 'ANfa')
    call StoreInteger(udg_GameCache, h, "BaseSkill3", 'ANms')
    call StoreInteger(udg_GameCache, h, "UltimateSkill", 'ANto')
endfunction



//===========================================================================
function InitTrig_AI takes nothing returns nothing

    set gg_trg_AI = CreateTrigger(  )
    call TriggerRegisterPlayerChatEvent( gg_trg_AI, Player(0), "-test", true )
    call TriggerAddAction( gg_trg_AI, function Trig_AI_Actions )
    call ExecuteFunc("SetupSkills")
endfunction

local string a = GetAttachmentTable(GetExpiredTimer())
 local unit h = GetTableUnit(a, "hero")
 local rect i
 local location r
 local real x = GetUnitX(h)
 local real y = GetUnitY(h)
 local group g
 local boolexpr b
 local boolexpr be
 local unit f
 local string o = OrderId2String(GetUnitCurrentOrder(h))
 local real l = GetUnitState(h, UNIT_STATE_LIFE)
 local real e = 5

...

function AIFilterEnemyConditions takes nothing returns boolean
 return (GetUnitState(GetFilterUnit(), UNIT_STATE_LIFE) > 0) and IsPlayerEnemy(GetOwningPlayer(GetFilterUnit()), GetOwningPlayer(GetAttachedUnit(GetExpiredTimer(), "hero")))
endfunction  
 
...
 
 else
   if ((o == "smart") or (o == "attack") or (o == "patrol") or (o == "move") or (o == "stop")  or (o == "hold") or (o == null)) then
 set g = CreateGroup()
 set b = Condition(function AIFilterEnemyConditions)
 call GroupEnumUnitsInRange(g, x, y, 500, b)
 set f = FirstOfGroup(g)
 if f == null then
...

 else
   call IssueTargetOrder(h, "attack", f)
 endif
 call DestroyGroup(g)
 call DestroyBoolExpr(b)
   endif
...