Timer question

library erre initializer InitErre

globals
    constant real DMIN = 10.00
    constant integer TMIN = 1
    constant integer DETECT = 'Amdf'
    constant string ORDRE = "magicundefense"
    constant string KEY = "erre"
    gamecache G
endglobals

globals
    private integer Int1 = 0
    private timer Tim1
    private group Grp_erre
    private trigger Trig_erre
endglobals

private struct erre
    integer t
    real dMin
    real dMax
    integer tMin
    integer tMax
endstruct

private function H2I takes handle h returns integer
    return h
    return 0
endfunction

function UnitAddErre takes unit u,real dMin,real dMax,integer tMin,integer tMax returns boolean
    local integer i
    local string s
    local integer ref
    local erre e
   
    if u==null or dMax<dMin or tMax<tMin or dMin<DMIN or tMin<TMIN or GetUnitState(u,UNIT_STATE_LIFE)<=0.405 then
        return false
    endif
    if GetUnitAbilityLevel(u,DETECT)==0 then
        call UnitAddAbility(u,DETECT)
    endif
    set i=H2I(u)
    set s=I2S(i)
    set ref =GetStoredInteger(G,s,KEY)
    if ref==0 then
        set e=erre.create()
        call GroupAddUnit(Grp_erre,u)
    else
        set e=ref
    endif
        set e.t=GetRandomInt(tMin,tMax) + Int1
        set e.dMin=dMin
        set e.dMax=dMax
        set e.tMin=tMin
        set e.tMax=tMax
        call StoreInteger(G,s,KEY,e)
    return true
endfunction

private function LoopGrp takes nothing returns nothing
    local unit u = GetEnumUnit()
    local erre e
    local real d
    local real a
    local real x
    local real y
   
    if u == null then
        return
    endif
    set e = GetStoredInteger(G,I2S(H2I(u)),KEY)
    if e == 0 then
        set u = null
        return
    endif
    if e.t == Int1 then
    set d = GetRandomReal(e.dMin,e.dMax)
    set a = GetRandomReal(0,2*bj_PI)
    set x = GetUnitX(u) + d*Cos(a)
    set y = GetUnitY(u) + d*Sin(a)
    call IssuePointOrder(u,"move",x,y)
    set e.t = GetRandomInt(e.tMin,e.tMax) + Int1
    endif
    set u = null
endfunction

private function func1 takes nothing returns nothing
    set Int1=Int1+1   
    call ForGroup(Grp_erre,function LoopGrp)
endfunction

private function FilterOrder takes nothing returns boolean
    local unit u = GetTriggerUnit()
   
    if IsUnitInGroup(u,Grp_erre) and OrderId2String(GetIssuedOrderId())==ORDRE and GetUnitState(u,UNIT_STATE_LIFE)<=0.405 then
        set u = null
        return true
    endif
    set u = null
    return false
endfunction

private function DestroyErre takes nothing returns nothing
    local unit u = GetTriggerUnit()
    local string s = I2S(H2I(u))
    local erre e = GetStoredInteger(G,s,KEY)
    call e.destroy()
    call FlushStoredInteger(G,s,KEY)
    call GroupRemoveUnit(Grp_erre,u)
    set u = null
endfunction

private function InitErre takes nothing returns nothing
    local integer i = 0
    set G = InitGameCache(KEY)
    set Tim1 = CreateTimer()
    call TimerStart(Tim1,1.00,true,function func1)
    set Grp_erre=CreateGroup()
    set Trig_erre=CreateTrigger()
    call TriggerAddAction(Trig_erre,function DestroyErre)
    call TriggerRegisterAnyUnitEventBJ(Trig_erre,EVENT_PLAYER_UNIT_ISSUED_ORDER)
    call TriggerAddCondition(Trig_erre,Condition(function FilterOrder))
   
    loop
    exitwhen i == 12
    call SetPlayerAbilityAvailable(Player(i),DETECT,false)
    set i = i + 1
    endloop
endfunction

endlibrary