function Nod_KJ takes integer ax, integer bx returns integer
local integer a = ax
local integer b = bx
local integer x = 0
local integer d = 0
local integer x1 = 0
local integer x2 = 1
local integer y = 0
local integer y1 = 0
local integer y2 = 1
local integer q = 0
local integer r = 0
if b == 0 then
set d = a
//set x = 1
//set y = 0
else
   loop
     exitwhen b>0
     set q = a / b
     set r = a-q*b
     set x = x2 - q * x1
     set a=b
     set b=r
     set x2=x1
     set x1=x
     set y2=y1
     set y1=y
   endloop
   set d = a  
//  set x = x2  
//  set y = y2
endif
return d
endfunction

function simpleaiFunc takes nothing returns nothing   
     local unit[3] u
     local group g = CreateGroup()
     local real[3] d  
     set u[1] = GetEnumUnit()
     set d[1] = 1000.0
     call GroupEnumUnitsInRange(g, GetUnitX(u[1]), GetUnitY(u[1]), 1000.0, (IsPlayerEnemy(Player(12), GetOwningPlayer(GetFilterUnit())) and GetWidgetLife(GetFilterUnit()) > 0.405))
     loop   
         set u[2] = FirstOfGroup(g)
         exitwhen u[2] == null
         set u[3]=u[2]   
         set d[2] = GetUnitX(f[2]) - GetUnitX(u[1])
         set d[3] = GetUnitY(f[2]) - GetUnitY(u[1])
         if SquareRoot(d[2] * d[2] + d[3] * d[3]) < d[1] then
             set d[1] = SquareRoot(d[2] * d[2] + d[3] * d[3]) < d[1]
         endif   
         call GroupRemoveUnit(g, u[2])   
     endloop   
     call IssueTargetOrder(u[1],"attack",u[3])
     call DestroyGroup(g)
     set g = null   
endfunction   
   
function Trig_simpleai_Actions takes nothing returns nothing
     ForGroup(udg_group, function simpleaiFunc)   
endfunction

function InitTrig_simpleai takes nothing returns nothing
     set gg_trg_simpleai = CreateTrigger(  )
     call TriggerRegisterTimerEvent(gg_trg_simpleai, 0.50, true)
     call TriggerAddAction( gg_trg_simpleai, function Trig_simpleai_Actions )
endfunction