function Start_Act takes nothing returns nothing
    local rect array Q
    local integer W = 0
    local integer E = 1
    local integer R = GetRandomInt(1, 5)
    local integer T = GetRandomInt(0, 360)
    local player Y = Player(PLAYER_NEUTRAL_AGGRESSIVE)

    set Q[1] = gg_rct_Spawn_Of_Crystalls_No_1
    set Q[2] = gg_rct_Spawn_Of_Crystalls_No_2
    set Q[3] = gg_rct_Spawn_Of_Crystalls_No_3
    set Q[4] = gg_rct_Spawn_Of_Crystalls_No_4
    set Q[5] = gg_rct_Spawn_Of_Crystalls_No_5
    set Q[6] = gg_rct_Spawn_Of_Crystalls_No_6
    set Q[7] = gg_rct_Spawn_Of_Crystalls_No_7
    set Q[8] = gg_rct_Spawn_Of_Crystalls_No_8
    set Q[9] = gg_rct_Spawn_Of_Crystalls_No_9
    set Q[10] = gg_rct_Spawn_Of_Crystalls_No_10
    set Q[11] = gg_rct_Spawn_Of_Crystalls_No_11
    set Q[12] = gg_rct_Spawn_Of_Crystalls_No_12
    set Q[13] = gg_rct_Spawn_Of_Crystalls_No_13
    set Q[14] = gg_rct_Spawn_Of_Crystalls_No_14
    set Q[15] = gg_rct_Spawn_Of_Crystalls_No_15
    set Q[16] = gg_rct_Spawn_Of_Crystalls_No_16
    set Q[17] = gg_rct_Spawn_Of_Crystalls_No_17
    set Q[18] = gg_rct_Spawn_Of_Crystalls_No_18
    set Q[19] = gg_rct_Spawn_Of_Crystalls_No_19
    set Q[20] = gg_rct_Spawn_Of_Crystalls_No_20

    loop
    exitwhen W > 7
    call CreateFogModifierRectBJ(true, Player(W), FOG_OF_WAR_VISIBLE, GetEntireMapRect())
    set W = W + 1
    endloop

    loop
    exitwhen E > 20
    call CreateNUnitsAtLoc(R, 'h000', Y, GetRandomLocInRect(Q[E]), T)
    set E = E + 1
    endloop

endfunction

loop
    exitwhen E > 20
    call CreateNUnitsAtLoc(R, 'h000', Y, GetRandomLocInRect(Q[E]), T)
    set E = E + 1
    set T = GetRandomInt(0, 360)
    endloop

native    CreateUnit              takes player id, integer unitid, real x, real y, real face returns unit
native    CreateUnitByName        takes player whichPlayer, string unitname, real x, real y, real face returns unit
native    CreateUnitAtLoc         takes player id, integer unitid, location whichLocation, real face returns unit
native    CreateUnitAtLocByName   takes player id, string unitname, location whichLocation, real face returns unit

local integer j
local integer i
local integer Count
// ...
set i = 1
loop
  exitwhen i > 20
    set j = 0
    set Count = GetRandomInt(1,5)
    // Фокус в том, что юниты создаются поштучно.
    loop
      exitwhen j == Count
        call CreateUnit(Y, 'h000', GetRandomReal(GetRectMinX(Q[i]), GetRectMaxX(Q[i])), GetRandomReal(GetRectMinY(Q[i]), GetRectMaxY(Q[i])), GetRandomReal(0., 360.))
        set j = j + 1
    endloop
    set i = i + 1
endloop