function FilterMostNearUnit takes group g ,unit Unit returns nothing
    local unit ufil//проверяемый юнит
    local real xu//X проверяемого юнита
    local real yu//Y проверяемого юнита
    local real duU//дистанция от проверяемого юнита до юнита от которого ведется отсчет
    local real x1U//X юнита Глобалки
    local real y1U//Y юнита Глобалки
    local real d1UUF//дистанция от юнита от которого ведется отсчет до Глобалки
    local real X = GetUnitX(Unit)//X юнита от которого ведется отсчет
    local real Y = GetUnitY(Unit)//Y юнита от которого ведется отсчет
    loop
    set ufil = FirstOfGroup(g)
    exitwhen  ufil == null
    if GetWidgetLife(ufil) > 0.405  and ufil!=Unit and (IsUnitType(ufil, UNIT_TYPE_STRUCTURE)==false) and GetOwningPlayer(ufil) != GetOwningPlayer(Unit) then//Unit_FilterMostNearUnit
        set xu=GetUnitX(ufil)
        set yu=GetUnitY(ufil)
        set x1U=GetUnitX(udg_Unit_FilterMostNearUnit)
        set y1U=GetUnitY(udg_Unit_FilterMostNearUnit)
        set  duU=SquareRoot((X-xu)*(X-xu)+(Y-yu)*(Y-yu))
        set d1UUF=SquareRoot((X-x1U)*(X-x1U)+(Y-y1U)*(Y-y1U))
        if udg_Unit_FilterMostNearUnit==null then
          set  udg_Unit_FilterMostNearUnit=ufil
        else
            if duU<d1UUF then
           set  udg_Unit_FilterMostNearUnit=ufil//вот он самый
            endif
        endif
    endif
    call GroupRemoveUnit(g,ufil)
    endloop
    call GroupClear(g)
    call DestroyGroup(g)
    set g = null
endfunction