globals
    location GL = Location(0,0)
endglobals

function GetZ takes real X,real Y returns real
    call MoveLocation(GL , X , Y)
    return GetLocationZ(GL)
endfunction

function GetUnitZ takes unit u returns real
    call MoveLocation(GL , GetUnitX(u) , GetUnitY(u))
    return GetUnitFlyHeight(u) + GetLocationZ(GL)
endfunction

globals
rect R
real GetRectMinZ
real GetRectMaxZ
endglobals

function Rect_Create takes real xmin,real ymin,real ymax,real zmin, real zmax returns rect
GetRectMinZ = zmin
GetRectMaxZ = zmax
return Rect(xmin,ymin,xmax,ymax)
endfunction

function RectContainsCoordsEx takes rect r,real x,real y,real z returns boolean
return (GetRectMinX(r) <= x) and (x <= GetRectMaxX(r)) and (GetRectMinY(r) <= y) and (y <= GetRectMaxY(r)) and GetRectMinZ > z and GetRectMaxZ < z
endfunction

rect array R
real array Zmin
real array Zmax

function Rect_Create takes real xmin,real ymin,real ymax,real zmin, real zmax returns rect
local rect r = Rect(xmin,ymin,xmax,ymax)
local integer i = GetHandleId(r)-1048000
R[i] = r
Zmin[i] = zmin
Zmax[i] = zmax
return r
endfunction