scope Test initializer Init

globals
integer i = 0
endglobals


struct Test
    real num = 0.
    timer t
    unit u

        static method begin takes nothing returns nothing
            local Test data = Test(GetTimerData(GetExpiredTimer()))
            set data.num = data.num + 1
            call BJDebugMsg(R2S(data.num))
            if data.num >= 5 then
                call data.destroy()
            endif    
        endmethod
        
        static method start takes location s returns Test
            local Test data = Test.allocate()
            set data.t = NewTimer()
            set data.u = CreateUnit(GetTriggerPlayer(),'h002',GetLocationX(s),GetLocationY(s),bj_RADTODEG  )
            
            call SetTimerData(data.t,data)
            
            call TimerStart(data.t,.5,true,function Test.begin)
            return data
        endmethod
        
        
        method onDestroy takes nothing returns nothing
            call ReleaseTimer(.t)
        endmethod
endstruct

function Con1 takes nothing returns nothing
    local Test t
    local location s = GetSpellTargetLoc()        
    set t = Test.start(s)
    set i = i + 1
    if i >= 3 then
        call ReleaseTimer(GetExpiredTimer())
        call t.destroy()
    endif 
endfunction



function Con takes nothing returns boolean
    local timer t = NewTimer()
        if  GetSpellAbilityId() == 'A000'  then
            call TimerStart(t , .5,true,function Con1)
        endif
        return false
endfunction


function Init takes nothing returns nothing
    local trigger Testt = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( Testt, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( Testt, Condition( function Con ) )
endfunction

endscope

scope Test initializer Init

globals
integer i = 0
endglobals


struct Test
    real num = 0.
    timer t
    unit u

        static method begin takes nothing returns nothing
            local Test data = Test(GetTimerData(GetExpiredTimer()))
            set data.num = data.num + 1
            call BJDebugMsg(R2S(data.num))
            if data.num >= 5 then
                call data.destroy()
            endif    
        endmethod
        
        static method start takes location s returns Test
            local Test data = Test.allocate()
            set data.t = NewTimer()
            set data.u = CreateUnit(GetTriggerPlayer(),'h002',GetLocationX(s),GetLocationY(s),bj_RADTODEG  )
            
            call SetTimerData(data.t,data)
            
            call TimerStart(data.t,.5,true,function Test.begin)
            return data
        endmethod
        
        
        method onDestroy takes nothing returns nothing
            call ReleaseTimer(.t)
        endmethod
endstruct

function Con1 takes nothing returns nothing
    local Test t
    local integer y = 0
   local location l = GetSpellTargetLoc()
    loop 
    exitwhen y >= 3
    set t = Test.start(l)
    //call PolledWait(0.5)
    set y = y + 1
    endloop

    call t.destroy()

endfunction



function Con takes nothing returns boolean
    local timer t = NewTimer()
        if  GetSpellAbilityId() == 'A000'  then
            call Con1()
        endif
        return false
endfunction


function Init takes nothing returns nothing
    local trigger Testt = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( Testt, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( Testt, Condition( function Con ) )
endfunction

endscope