function GetNearestUnit takes location l returns unit
local group g = CreateGroup()
local real mindst = 999999
local unit mindstu = null
local unit u = null
local location ul = null
call GroupEnumUnitsInRangeOfLoc(g, l, 999999, null)
loop
set u = FirstOfGroup(g)
if u != null then
set ul = GetUnitLoc(u)
if DistanceBetweenPoints(l, ul) < mindst then
  set mindst = DistanceBetweenPoints(l, ul)
  set mindstu = u
endif
call RemoveLocation(ul)
call GroupRemoveUnit(g, u)
endif
exitwhen u == null
endloop
call DestroyGroup(g)
set g = null
set ul = null
return mindstu
endfunction

globals
    group GG = CreateGroup()
    //
    filterfunc NearestUnitFilter
    real NearestX
    real NearestY
    unit NearestUnit = null
    real NearestDistance
endglobals

function GetNearestUnit_Filter takes nothing returns boolean
    local unit u = GetFilterUnit()
    local real x = GetUnitX(u)-NearestX
    local real y = GetUnitY(u)-NearestY
    local real dis = x*x+y*y
    if dis < NearestDistance then
        set NearestUnit = u
        set NearestDistance = dis
    endif
    set u = null
    return false
endfunction

function GetNearestUnit takes real x, real y, real maxradius returns unit
    set NearestX = x
    set NearestY = Y
    set NearestDistance = maxradius*maxradius
    set NearestUnit = null
    call GroupEnumUnitsInRange(GG, x, y, maxradius, NearestUnitFilter)
    return NearestUnit
endfunction

function Init takes nothing returns nothing
    set NearestUnitFilter = Filter(function GetNearestUnit_Filter)
endfunction