function UnitInRect takes player pl, integer unitId, rect zone return boolen

globals
    group GG = CreateGroup()
    player PlayerForGroup  
    integer IntegerForGroup
    //
    filterfunc FilterUnitInRect
endglobals

function UnitInRect_Filter takes nothing returns boolean
    return GetUnitTypeId(GetFilterUnit()) == IntegerForGroup and GetOwningPlayer(GetFilterUnit()) == PlayerForGroup
endfunction

function UnitInRect takes player pl, integer unitId, rect zone returns boolean
    set PlayerForGroup = pl
    set IntegerForGroup = unitId
    call GroupEnumUnitsInRect(GG, zone, FilterUnitInRect)
    return FirstOfGroup(GG) != null
endfunction

function Init takes nothing returns nothing
    set FilterUnitInRect = Filter(function UnitInRect_Filter)
endfunction