else // вот тут может быть загвоздка
        set udg_W[udg_I] = Rect(ax1, ay1, ax2, ay2)
        set udg_B[udg_I] = true
        set udg_I = udg_I + 1

function RectAreCrossed takes real Xmin1, real Ymin1, real Xmax1, real Ymax1, real Xmin2, real Ymin2, real Xmax2, real Ymax2  returns boolean
    local boolean Xsovp = (Xmin2<Xmin1 and Xmin1<Xmax2) or (Xmin2<Xmax1 and Xmax1<Xmax2)
    local boolean Ysovp = (Ymin2<Ymin1 and Ymin1<Ymax2) or (Ymin2<Ymax1 and Ymax1<Ymax2)
    return (Xsovp and (Ymin1<Ymin2 and Ymax2<Ymax1)) or (Ysovp and (Xmin1<Xmin2 and Xmax2<Xmax1)) or (Xsovp and Ysovp) or (Xmin1<Xmin2 and Xmax1>Xmax2 and Ymin1<Ymin2 and Ymax1>Ymax2)
endfunction

function RectAreCrossed takes real Xmin1, real Ymin1, real Xmax1, real Ymax1, real Xmin2, real Ymin2, real Xmax2, real Ymax2  returns boolean
    local boolean Xsovp = (Xmin2<Xmin1 and Xmin1<Xmax2) or (Xmin2<Xmax1 and Xmax1<Xmax2)
    local boolean Ysovp = (Ymin2<Ymin1 and Ymin1<Ymax2) or (Ymin2<Ymax1 and Ymax1<Ymax2)
    return (Xsovp and (Ymin1<Ymin2 and Ymax2<Ymax1)) or (Ysovp and (Xmin1<Xmin2 and Xmax2<Xmax1)) or (Xsovp and Ysovp) or (Xmin1<Xmin2 and Xmax1>Xmax2 and Ymin1<Ymin2 and Ymax1>Ymax2)
endfunction

function DivisionPlayableMapRect takes integer MaxIgnore returns nothing
    local rect MapRec = GetPlayableMapRect()
    local real MapRecXmin = GetRectMinX(MapRec)
    local real MapRecYmin = GetRectMinY(MapRec)
    local real MapRecXmax = GetRectMaxX(MapRec)
    local real MapRecYmax = GetRectMaxY(MapRec)
    local real Xmin1 = MapRecXmin
    local real Ymin1 = MapRecYmin
    local real Xmax1 = MapRecXmax
    local real Ymax1 = MapRecYmax
    local real Xmin2
    local real Ymin2
    local real Xmax2
    local real Ymax2
    local integer i
    local integer a
    local boolean NotCrossed = true 
    local real maxY
    local real currentY
    local rect currentRect
    local integer maxi = 0
    set a = MaxIgnore
    loop
        exitwhen a < 0
        set i = a
        set maxY = MapRecYmin
        loop
            exitwhen i < 0
            set currentY = GetRectMaxY(udg_RecIgnore[ i])
            if maxY < currentY then
                set maxY = currentY
                set currentRect = udg_RecIgnore[ i]
                set maxi = i
            endif
            set i = i - 1
        endloop
        set udg_RecIgnore[maxi] = udg_RecIgnore[a]
        set udg_RecIgnore[a] = currentRect
        set a = a - 1
    endloop    
    set i = 0
    loop
        exitwhen Xmin1+128 > MapRecXmax
        set Xmin1 = Xmin1
        set Xmax1 = Xmin1+128
        set a = MaxIgnore
        loop
            exitwhen a < 0
            set Xmin2 = GetRectMinX(udg_RecIgnore[a])
            set Ymin2 = GetRectMinY(udg_RecIgnore[a])
            set Xmax2 = GetRectMaxX(udg_RecIgnore[a])
            set Ymax2 = GetRectMaxY(udg_RecIgnore[a])
            if RectAreCrossed(Xmin1, Ymin1, Xmax1, Ymax1, Xmin2, Ymin2, Xmax2, Ymax2) then
                set NotCrossed = false
                set Ymin1 = Ymax2
                exitwhen true
            endif
            set a = a - 1
        endloop
        set udg_RectMap[ i] = Rect(Xmin1, Ymin1, Xmax1, Ymax1)
        set Ymin1 = MapRecYmin
        if NotCrossed then
            set Xmin1 = Xmin1 + 128
            set Ymax1 = MapRecYmax
        else
            set NotCrossed = true
            set Ymax1 = Ymin2
        endif
        set i = i + 1
    endloop
endfunction

set udg_RecIgnore[0] = gg_rct_0
set udg_RecIgnore[1] = gg_rct_1
set udg_RecIgnore[2] = gg_rct_2
set udg_RecIgnore[3] = gg_rct_3
call DivisionPlayableMapRect(3) // Последний занятый слот в массиве udg_RecIgnore[]
// Если игнор областей нету всунте "-1"