как разбить фигуры на прямоугольники?

native RegionAddRect takes region whichRegion, rect r returns nothing

function IsPointInArea takes real x, real y, integer number, integer area returns boolean
local integer max = udg_number_of_areas[number] //максимальное число областей (регионов) у игрока
local integer a = (area-1)*100
local boolean b = false
if max == 0 then //если у игрока нет ни одной области, значит, точка ни на чем не модет лежать
    return false
endif
if number == 0 then
    loop
        exitwhen a>udg_CountRect_p1[area] or b //число ректов в регионе
        set b = PointInRect1(x,y,udg_rect_minx_p1[a], udg_rect_maxx_p1[a], udg_rect_miny_p1[a], udg_rect_maxy_p1[a])
        set a = a + 1
    endloop
endif
return b
endfunction
function IsPointInAreaOfPlayer takes real x, real y, integer number returns boolean
//МИНИ-ОБЗОР: Регионы (area) привязываются к главному зданию рыбацкой деревни, поместья, замка на окраине, фермы, горнодобывающего поместья и пр
//Сами деревни и поместья будут принадлежать определенным игрокам, следовательно, и регионы принадлежат тоже игрокам
//Регионы разделяются на более мелкие прямоугольные формы (ректы).
local integer max = udg_number_of_areas[number] //максимальное число областей (регионов) у игрока
local integer i = 0
local integer a
local boolean b = false
if max == 0 then //если у игрока нет ни одной области, значит, точка ни на чем не модет лежать
    return false
endif


if number == 0 then
loop
    exitwhen i>max or b
    set a = (udg_CountRect_p1[i]-1)*100
    if a>= 0 then
        loop
            exitwhen a>udg_CountRect_p1[i] or b //число ректов в регионе
            set b = PointInRect1(x,y,udg_rect_minx_p1[a], udg_rect_maxx_p1[a], udg_rect_miny_p1[a], udg_rect_maxy_p1[a])
            set a = a + 1
        endloop
    endif
    set i = i + 1
endloop


endif

return b
endfunction
function IsPointInRegionVillage takes real x, real y returns boolean
local integer i = 0
local boolean b = false
loop
    exitwhen i>11 or b
    if GetPlayerSlotState(Player(i)) == PLAYER_SLOT_STATE_PLAYING  then
        //call DisplayDebugTextToPlayer("красный игрок играет" )
        set b = IsPointInAreaOfPlayer(x,y,i)
    endif
    set i = i + 1
endloop

return b
endfunction