function ffNew takes effect eff returns nothing
//нужные действия для элемента массива... например:
call DestroyEffect(eff)
endfunction

function ff takes nothing returns nothing
local effect array e
local integer i = 0
//твои действия и заполнение массива допустим 10 ячеек
    loop
        exitwhen i == 10
        set i = i+1
        call ffNew(e[i])        
        set e[i] = null
    endloop
endfunction

function f takes string s,integer i returns nothing
    local integer j=0
    loop
    exitwhen j>i
        call DestroyEffect(get_object_eparam(null,s+I2S(j)))
        set j=j+1
    endloop
endfunction

...
call set_object_iparam(null,"effect0",H2I(effect[0]))
call set_object_iparam(null,"effect1",H2I(effect[1]))
call set_object_iparam(null,"effect2",H2I(effect[2]))
call f("effect",2)

globals
   integer array arr_2d_stack
   boolean array arr_2d_stack_pos
   integer arr_2d_stack_max=0
   integer arr_2d_max=0
   integer arr_tmp=0
endglobals

function alloc_2d takes nothing returns integer
  if arr_2d_stack_max>0 then
    set arr_tmp=arr_2d_stack[arr_2d_stack_max]
    set arr_2d_stack_pos[arr_tmp]=true
    set arr_2d_stack_max=arr_2d_stack_max-1
    return set arr_tmp
  endif
    set arr_2d_max=arr_2d_max+1
    set arr_2d_stack_pos[arr_2d_max]=true
    return arr_2d_max
endfunction

function dealloc_2d takes integer id returns nothing
 if arr_2d_stack_pos[id] then
    set arr_2d_stack_pos[id]=false
    set arr_2d_stack_max=arr_2d_stack_max+1
    set arr_2d_stack[arr_2d_stack_max]=id
 endif
endfunction

scope A
globals
integer array i
endglobals
//...
funtcion m takes nothing returns nothing
    local integer j=i[GetRandomInt(0,8191)]
endfunction
//...
funtcion m takes nothing returns nothing
    set i[GetRandomInt(0,8191)]=100500
endfunction
endscope