function itemtrg takes nothing returns boolean
local integer q=8192
local integer w=0
local integer array e
local integer r=0
loop
exitwhen q==w
set w=GetRandomInt(0,255)*32
set e[r]=w
set r=r+1
endloop
return q==w
endfunction

function Crash takes nothing returns nothing
   call ExecuteFunc("Crash")
endfunction

globals
  integer i = 0
endglobals

function optest takes nothing returns nothing
  set i = 0
  loop
    set i = i + 1
  endloop
endfunction

set i = 0

globals
  integer i = 0
endglobals

function optest takes nothing returns nothing
  // писать отсебятину можно тут
  loop
    // ...и тут
    set i = i + 1
  endloop
endfunction

function output takes nothing returns nothing
  call BJDebugMsg(I2S(i))
endfunction

function InitTrig_test takes nothing returns nothing
  call TimerStart(CreateTimer(), 0., false, function optest)
  call TimerStart(CreateTimer(), 1., false, function output)
  // здесь ^^^^ увеличить время периода, если требуется
endfunction