scope stressTest initializer i
globals
private unit u
private integer kIPS=0
endglobals
private function p takes nothing returns nothing
local integer j=0
loop
exitwhen j>=kIPS
call UnitDamageTarget(u,u,0.,true,true,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS)
set j=j+1
endloop
endfunction
private function c takes nothing returns boolean
set kIPS=kIPS+1
call DisplayTimedTextToPlayer(Player(0),0.,0.,1.,I2S(kIPS))
return false
endfunction
private function i takes nothing returns nothing
local trigger t=CreateTrigger()
set u=CreateUnit(Player(0),'hfoo',0.,0.,0.)
call TimerStart(CreateTimer(),1./1000.,true,function p)
call TriggerRegisterPlayerEvent(t,Player(0),EVENT_PLAYER_END_CINEMATIC)
call TriggerAddCondition(t,Condition(function c))
set t=null
endfunction
endscope