udg_G - глобальная группа

function FDFD takes unit u,unit u2 returns real //функция на расчёт расстояния
local real dx = GetUnitX(u2)-GetUnitX(u)
local real dy = GetUnitY(u2)-GetUnitY(u)
return SquareRoot(dx*dx+dy*dy)
endfunction

function GetClosest takes unit h,group g returns unit
local unit tmp = null
local unit u = null
local real d = 0.
local real c = 2000. //максимальное расстояние между героем и юнитами
call GroupClear(udg_G)
set bj_groupAddGroupDest = udg_G
call ForGroup(g,function GroupAddGroupEnum)
loop
set tmp = FirstOfGroup(udg_G)
if tmp != null then
set d = FDFD(h,tmp)
if d < c then
set c = d
set u = tmp
endif
endif
call GroupRemoveUnit(udg_G,tmp)
exitwhen tmp == null
endloop
return u
endfunction

// cJass 1.4.2.40
// Автообнуление локальных переменных должно быть включено.
// Функция вернет null, если поблизости нет ни одного юнита.

unit GetNearestUnit (real x, real y, real radius) {
    real dist = radius + 1.;
    unit u = null;
    for (unit n; UnitsInRange (x, y, radius) {
        real xx = x - GetUnitX (n);
        real yy = y - GetUnitY (n);
        real d = SquareRoot (yy*yy + xx*xx);
        if (dist > d) {
            dist = d;
            u = n;
        }
    }
    return u;
}

unit GetNearestUnit(real x, real y, real radius) {
    radius *= radius
    real dist = radius + 1.
    unit u = null
    for (unit n; UnitsInRange(x, y, radius) {
        real xx = x - GetUnitX(n)
        real yy = y - GetUnitY(n)
        real d = yy * yy + xx * xx
        if (dist > d) {
            dist = d
            u = n
        }
    }
    return u
}