library GNU

globals
  private group ggx = null
  private real gdx = 0
  private real gdy = 0
  private real gds = 0
  private unit gun = null
  private unit gux = null
endglobals

private function ff takes nothing returns boolean
  local unit u  = GetFilterUnit()
  local real dx = GetWidgetX(u) - gdx
  local real dy = GetWidgetY(u) - gdy
  local real ds = dx * dx + dy * dy
  if ds < gds and gux != u and GetWidgetLife(u) > .405 and not IsUnitInGroup(u, ggx) then
    set gds = ds
    set gun = u
  endif
  set u = null
  return false
endfunction

function GetNearestUnit takes unit u, real maxdist, group g, player owner returns unit
  set gds = maxdist * maxdist
  set gdx = GetWidgetX(u)
  set gdy = GetWidgetY(u)
  set gun = null
  set gux = u
  set ggx = g
  call GroupEnumUnitsInRange(gr, gdx, gdy, maxdist, Filter(function ff))
  return gun
endfunction

endlibrary