теперь по самой задаче

//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
//
// {struct projectile} (c) ADOLF
//
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

//===============
// allocator and destructor
//===============

globals

 integer DTM_i_p_a=0x00
 integer DTM_i_p_b=0x00
 integer array DTM_i_p

endglobals

function DTM_pGet takes nothing returns integer
 local integer i=DTM_i_p_a
 if i!=0x00then
  set DTM_i_p_a=DTM_i_p[i]
 else
  set DTM_i_p_b=DTM_i_p_b+0x01
  set i=DTM_i_p_b
 endif
 set DTM_i_p[i]=0xffffffff
 return i
endfunction

function DTM_pRemove takes integer i returns nothing
 if DTM_i_p[i]==0xffffffffthen
  set DTM_i_p[i]=DTM_i_p_a
  set DTM_i_p_a=i
 endif
endfunction


//===============
// members
//===============

globals

 // all members placed here

 integer array test

endglobals


//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
//
// end {struct projectile}
//
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
//
// [projectile mover] (c) ADOLF
//
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

globals

 timer SPL_t_pm=CreateTimer()         // global timer

 integer SPL_i_pm_mx=0x00

 integer SPL_i_pm_mx_00=0x00
 integer SPL_i_pm_mx_01=0x00
 integer SPL_i_pm_mx_02=0x00
 integer SPL_i_pm_mx_03=0x00

 integer array SPL_i_pm_p_00
 integer array SPL_i_pm_p_01
 integer array SPL_i_pm_p_02
 integer array SPL_i_pm_p_03

endglobals

function SPL_pMoverMain takes nothing returns nothing
 local integer i=0x00
 local integer p

 // all another locals
 // wich used in "moved" function

 loop
  exitwhen i>=SPL_i_pm_mx_00
  set i=i+0x01
  set p=SPL_i_pm_p_00[i]
  // action with projectile 00
  //
  //
  //
  if (remove) then
   call DTM_pRemove(p)
   set SPL_i_pm_p_00[i]=SPL_i_pm_p_00[SPL_i_pm_mx_00]
   set SPL_i_pm_mx_00=SPL_i_pm_mx_00+0xffffffff
   set SPL_i_pm_mx=SPL_i_pm_mx+0xffffffff
  endif
 endloop

 set i=0x00

 loop
  exitwhen i>=SPL_i_pm_mx_01
  set i=i+0x01
  set p=SPL_i_pm_p_01[i]
  // action with projectile 01
  //
  //
  //
  if (remove) then
   call DTM_pRemove(p)
   set SPL_i_pm_p_01[i]=SPL_i_pm_p_01[SPL_i_pm_mx_01]
   set SPL_i_pm_mx_01=SPL_i_pm_mx_01+0xffffffff
   set SPL_i_pm_mx=SPL_i_pm_mx+0xffffffff
  endif
 endloop

 set i=0x00

 loop
  exitwhen i>=SPL_i_pm_mx_02
  set i=i+0x01
  set p=SPL_i_pm_p_02[i]
  // action with projectile 02
  //
  //
  //
  if (remove) then
   call DTM_pRemove(p)
   set SPL_i_pm_p_02[i]=SPL_i_pm_p_02[SPL_i_pm_mx_02]
   set SPL_i_pm_mx_02=SPL_i_pm_mx_02+0xffffffff
   set SPL_i_pm_mx=SPL_i_pm_mx+0xffffffff
  endif
 endloop

 set i=0x00

 loop
  exitwhen i>=SPL_i_pm_mx_03
  set i=i+0x01
  set p=SPL_i_pm_p_03[i]
  // action with projectile 03
  //
  //
  //
  if (remove) then
   call DTM_pRemove(p)
   set SPL_i_pm_p_03[i]=SPL_i_pm_p_03[SPL_i_pm_mx_03]
   set SPL_i_pm_mx_03=SPL_i_pm_mx_03+0xffffffff
   set SPL_i_pm_mx=SPL_i_pm_mx+0xffffffff
  endif
 endloop

 if SPL_i_pm_mx==0x00then
  call PauseTimer(SPL_t_pm)
 endif

endfunction

function SPL_pAdd_00 takes integer projectile returns nothing
 set SPL_i_pm_mx=SPL_i_pm_mx+0x01
 set SPL_i_pm_mx_00=SPL_i_pm_mx_00+0x01
 set SPL_i_pm_p_00[SPL_i_pm_mx_00]=projectile
 if SPL_i_pm_mx==0x01then
  call TimerStart(SPL_t_pm, .025, true, function SPL_pMoverMain)
 endif
endfunction

function SPL_pAdd_01 takes integer projectile returns nothing
 set SPL_i_pm_mx=SPL_i_pm_mx+0x01
 set SPL_i_pm_mx_01=SPL_i_pm_mx_01+0x01
 set SPL_i_pm_p_01[SPL_i_pm_mx_01]=projectile
 if SPL_i_pm_mx==0x01then
  call TimerStart(SPL_t_pm, .025, true, function SPL_pMoverMain)
 endif
endfunction

function SPL_pAdd_02 takes integer projectile returns nothing
 set SPL_i_pm_mx=SPL_i_pm_mx+0x01
 set SPL_i_pm_mx_02=SPL_i_pm_mx_02+0x01
 set SPL_i_pm_p_02[SPL_i_pm_mx_02]=projectile
 if SPL_i_pm_mx==0x01then
  call TimerStart(SPL_t_pm, .025, true, function SPL_pMoverMain)
 endif
endfunction

function SPL_pAdd_03 takes integer projectile returns nothing
 set SPL_i_pm_mx=SPL_i_pm_mx+0x01
 set SPL_i_pm_mx_03=SPL_i_pm_mx_03+0x01
 set SPL_i_pm_p_03[SPL_i_pm_mx_03]=projectile
 if SPL_i_pm_mx==0x01then
  call TimerStart(SPL_t_pm, .025, true, function SPL_pMoverMain)
 endif
endfunction

//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
//
// end [projectile mover]
//
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

library test initializer init

 //.....................................
 
 struct prj
 
  integer xtype
 
 endstruct
 
 globals
 
  prj array glb
  
  integer i_max=0x00
  
  real fps_cnt=.0
 
 endglobals

 //.....................................

 scope TriggerEvaluglbateX

  globals

   trigger array t_eva

  endglobals
  
  function DoSomething takes nothing returns boolean
   return false
  endfunction 
  
  function eva takes nothing returns nothing
   local integer i=0x00
   
   loop
    // set TriggerPrj=glb[i]
    call TriggerEvaluate(t_eva[glb[i].xtype])
    set i=i+0x01
    exitwhen i==i_max
   endloop
   
   set fps_cnt=fps_cnt+fps
   //call BJDebugMsg(I2S(i)+" eva")
  endfunction

 endscope
 
 //.....................................

 scope BinaryTreeX
 
  function bin takes nothing returns nothing
   local integer i=0x00
   
   loop
   
    if glb[i].xtype>0x01then
     if glb[i].xtype==0x00then
      // set TriggerPrj=glb[i]
     else
      // set TriggerPrj=glb[i]
     endif
    else
     if glb[i].xtype==0x02then
      // set TriggerPrj=glb[i]
     else
      // set TriggerPrj=glb[i]
     endif
    endif    
    
    set i=i+0x01
    exitwhen i==i_max
   endloop
   
   set fps_cnt=fps_cnt+fps
   //call BJDebugMsg(I2S(i)+" bin")
  endfunction

 endscope
 
 //.....................................

 scope LoopsX
 
  globals
  
   prj array glbA
   prj array glbB
   prj array glbC
   prj array glbD
   
   integer a_max=0x00
   integer b_max=0x00
   integer c_max=0x00
   integer d_max=0x00
   
   integer xa_max=0x00
   integer xb_max=0x00
   integer xc_max=0x00
   integer xd_max=0x00
  
  endglobals
 
  function loopX takes nothing returns nothing
   local integer i=0x00
   
   loop
    // set TriggerPrj=glbA[i]
    set i=i+0x01
    exitwhen i>=a_max
   endloop
   
   //call BJDebugMsg(I2S(i)+" loop A")
   set i=0x00
   
   loop
    // set TriggerPrj=glbB[i]
    set i=i+0x01
    exitwhen i>=b_max
   endloop

   //call BJDebugMsg(I2S(i)+" loop B")
   set i=0x00
   
   loop
    // set TriggerPrj=glbC[i]
    set i=i+0x01
    exitwhen i>=c_max
   endloop

   //call BJDebugMsg(I2S(i)+" loop C")
   set i=0x00
   
   loop
    // set TriggerPrj=glbD[i]
    set i=i+0x01
    exitwhen i>=d_max
   endloop
   
   //call BJDebugMsg(I2S(i)+" loop D")
   
   set fps_cnt=fps_cnt+fps
  endfunction

  function loopEX takes nothing returns nothing
   local integer i=0x00
   
   loop
    // set TriggerPrj=glbA[i]
    set i=i+0x01
    exitwhen i>=xa_max
   endloop
   
   //call BJDebugMsg(I2S(i)+" loop A")
   set i=0x00
   
   loop
    // set TriggerPrj=glbB[i]
    set i=i+0x01
    exitwhen i>=xb_max
   endloop

   //call BJDebugMsg(I2S(i)+" loop B")
   set i=0x00
   
   loop
    // set TriggerPrj=glbC[i]
    set i=i+0x01
    exitwhen i>=xc_max
   endloop
   
   //call BJDebugMsg(I2S(i)+" loop C")
   set i=0x00
   
   loop
    // set TriggerPrj=glbD[i]
    set i=i+0x01
    exitwhen i>=xd_max
   endloop
   
   //call BJDebugMsg(I2S(i)+" loop D")
  endfunction
  
 endscope

 //.....................................
 
 globals
 
  constant real fps=.0001  //*100500.
  constant real fpsp=.0005 //*100500.
  
  timer t_test=CreateTimer()
 
 endglobals
 
 function start takes nothing returns nothing
  local string s=GetEventPlayerChatString()
  if s=="/eva"then
   set i_max=0x08
   call TimerStart(CreateTimer(), fps, true, function eva)
   call TimerStart(t_test, 65536., false, null)
   call BJDebugMsg("|cffff0000/eva|r")
  elseif s=="/eva+"then
   set i_max=0x80
   call TimerStart(CreateTimer(), fpsp, true, function eva)
   call BJDebugMsg("|cffff0000/eva+|r")
  elseif s=="/bin"then
   set i_max=0x08
   call TimerStart(CreateTimer(), fps, true, function bin)
   call TimerStart(t_test, 65536., false, null)
   call BJDebugMsg("|cffff0000/bin|r")
   elseif s=="/bin+"then
   set i_max=0x80
   call TimerStart(CreateTimer(), fpsp, true, function bin) 
   call BJDebugMsg("|cffff0000/bin+|r")
  elseif s=="/loop"then
   //set i_max=0x08
   call TimerStart(CreateTimer(), fps, true, function loopX) 
   call TimerStart(t_test, 65536., false, null)
   call BJDebugMsg("|cffff0000/loop|r")
  elseif s=="/loop+"then
   //set i_max=0x40
   call TimerStart(CreateTimer(), fpsp, true, function loopEX)
   call BJDebugMsg("|cffff0000/loop+|r")
  endif 
 endfunction
 
 function fpsf takes nothing returns nothing
  call BJDebugMsg(R2S(fps_cnt)+" "+R2S(TimerGetElapsed(t_test)))
 endfunction

 function init takes nothing returns nothing
  local integer i=0x00
  local trigger t=CreateTrigger()
  
  loop
   set glb[i]=prj.create()
   set glb[i].xtype=GetRandomInt(0x00, 0x03)
   
   //
   if integer(glb[i])<0x09then
    if glb[i].xtype==0x00then
     set a_max=a_max+0x01
    elseif glb[i].xtype==0x01then
     set b_max=b_max+0x01
    elseif glb[i].xtype==0x02then
     set c_max=c_max+0x01  
    elseif glb[i].xtype==0x03then
     set d_max=d_max+0x01 
    endif
   endif
   
  
   if glb[i].xtype==0x00then
    set xa_max=xa_max+0x01
   elseif glb[i].xtype==0x01then
    set xb_max=xb_max+0x01
   elseif glb[i].xtype==0x02then
    set xc_max=xc_max+0x01  
   elseif glb[i].xtype==0x03then
    set xd_max=xd_max+0x01 
   endif
   //
  
   set i=i+0x01
   exitwhen i==0x80
  endloop
  
  call BJDebugMsg("|c7f0000ff"+I2S(a_max+b_max+c_max+d_max)+"    "+I2S(xa_max+xb_max+xc_max+xd_max)+"|r\n\n\n\n")
 
  set t_eva[0x00]=CreateTrigger()
  set t_eva[0x01]=CreateTrigger()
  set t_eva[0x02]=CreateTrigger()
  set t_eva[0x03]=CreateTrigger()
  
  call TriggerAddCondition(t_eva[0x00], Condition(function DoSomething))
  call TriggerAddCondition(t_eva[0x01], Condition(function DoSomething))
  call TriggerAddCondition(t_eva[0x02], Condition(function DoSomething))
  call TriggerAddCondition(t_eva[0x03], Condition(function DoSomething))
  
  call TriggerRegisterPlayerChatEvent(t, Player(0x00), "", false)
  call TriggerAddAction(t, function start)

  set t=CreateTrigger()
  call TriggerRegisterPlayerEvent(t, Player(0x00), EVENT_PLAYER_END_CINEMATIC)
  call TriggerAddAction(t, function fpsf)
  
  set t=null
  
  call BJDebugMsg("|cffff0000ESC|r - check fps counter\n\n\n/eva & /eva+      |cff7f7f7fTriggerEvaluate method|r\n\n/bin & /bin+      |cff7f7f7fBinary tree method|r\n\n/loop & /loop+      |cff7f7f7fMultiLoop (hm...) method|r\n\n\n\n")
 endfunction
 
 //.....................................

endlibrary