// by Shadow Daemon
function GetNearestUnitFilter takes nothing returns boolean
  local unit u  = GetFilterUnit()
  local real dx = GetWidgetX(u) - udg_n_dx
  local real dy = GetWidgetY(u) - udg_n_dy
  local real ds = SquareRoot(dx * dx + dy * dy)
  if ds < udg_n_ds and udg_n_ux != u and GetWidgetLife(u) > .405 then
    set udg_n_ds = ds
    set udg_n_un = u
  endif
  return false
endfunction

function GetNearestUnit takes unit u, real maxdist returns unit
  set udg_n_ds = maxdist
  set udg_n_dx = GetUnitX(u)
  set udg_n_dy = GetUnitY(u)
  set udg_n_un = null
  set udg_n_ux = u
  call GroupEnumUnitsInRange(udg_n_gr, udg_n_dx, udg_n_dy, maxdist, Filter(function GetNearestUnitFilter)) 
  return udg_n_un
endfunction

function Test takes nothing returns nothing
  local unit nearest = GetNearestUnit(udg_Warden, 400)
  call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl", nearest, "chest"))
  set nearest = null
endfunction

//===========================================================================
function InitTrig_Test takes nothing returns nothing
  call TimerStart(CreateTimer(), 1, true, function Test)
endfunction

function GetNearestUnitFilter takes nothing returns boolean
  local unit u = GetFilterUnit()
  local real dx = GetWidgetX(u) - udg_n_dx
  local real dy = GetWidgetY(u) - udg_n_dy
  local real ds = SquareRoot(dx * dx + dy * dy)
  // Здесь Player(1) - синий игрок
  if GetOwningPlayer(u) == Player(1) and ds < udg_n_ds and udg_n_ux != u and GetWidgetLife(u) > .405 then
    set udg_n_ds = ds
    set udg_n_un = u
  endif
  return false
endfunction

globals
    group GG = CreateGroup()
    unit n_un
    real n_dx
    real n_dy
    real n_dsSq
endglobals

function YourCondition takes nothing returns boolean
    return GetWidgetLife(n_un) > 0 and GetPlayerId(GetOwningPlayer(n_un)) == 1
endfunction

function GetNearestUnitFilter takes nothing returns boolean
    local unit u = GetFilterUnit()
    local real dx = GetUnitX(u) - n_dx
    local real dy = GetUnitY(u) - n_dy
    local real dsSq = dx*dx+dy*dy
    if dsSq < n_dsSq and YourCondition() then
        set n_dsSq = dsSq
        set n_un = u
    endif
    return false
endfunction

function GetNearestUnit takes unit u, real maxdist returns unit
    set n_dx = GetUnitX(u)
    set n_dy = GetUnitY(u)
    set n_dsSq = maxdist*maxdist
    call GroupEnumUnitsInRange(GG, n_dx, n_dy, maxdist, Filter(function GetNearestUnitFilter))
    return n_un
endfunction