local integer i 
local integer id = 1048587
  loop
        exitwhen i == 100
        set udg_reg[i] = //функция, которая берёт id региона и возвращает регион
        set id = id + 1
        set id = i + 1
   endloop

function FindRegion takes integer i returns rect
    return i
    return null
endfunction

local hashtable h = InitHashtable()
local integer i 
local integer id = 1048587
  loop
        exitwhen i == 100
        call SaveFogStateHandle(h, 0, 0, ConvertFogState(id))
        set udg_reg[i] = LoadRectHandle(h, 0, 0)
        set id = id + 1
        set i = i + 1
   endloop

integer Rect_count = 0
Rect array Rect_objects

#define Rect(AX,AY,BX,BY) = { Rect_objects[Rect_count++] = R##ect(AX,AY,BX,BY) }

#define Rect(AX,AY,BX,BY) = Rect_objects[Rect_count++] = R##ect(AX,AY,BX,BY)