library TimedLightning {

hashtable HT=InitHashtable()

nothing DestrLig () {
    timer t=GetExpiredTimer()
    timer to=LoadTimerHandle(HT,GetHandleId(t),1)
    lightning l=LoadLightningHandle(HT,GetHandleId(t),0)
    FlushChildHashtable(HT,GetHandleId(to))
    DestroyTimer(to)
    FlushChildHashtable(HT,GetHandleId(t))
    DestroyLightning(l)
    DestroyTimer(t)
    t=null
    l=null
    to=null
}

nothing MoveLig () {
    timer t=GetExpiredTimer()
    lightning l=LoadLightningHandle(HT,GetHandleId(t),0)
    unit u1=LoadUnitHandle(HT,GetHandleId(t),1)
    unit u2=LoadUnitHandle(HT,GetHandleId(t),2)
    MoveLightningEx(l,true,GetUnitX(u1),GetUnitY(u1),GetUnitFlyHeight(u1),GetUnitX(u  2),GetUnitY(u2),GetUnitFlyHeight(u2))
    t=null
}

nothing AddLigEffTimed (string ligcode,boolean check, unit unit1, unit unit2, real time, real r, real g, real b, real alpha) {
    timer t1=CreateTimer()
    timer t2=CreateTimer()
    unit u1=unit1
    unit u2=unit2
    lightning l=AddLightningEx(ligcode,true,GetUnitX(u1),GetUnitY(u1),GetUnitFlyHeight(u1),Get  UnitX(u2),GetUnitY(u2),GetUnitFlyHeight(u2))
    SetLightningColor(l, r, g, b, alpha)
    SaveLightningHandle(HT,GetHandleId(t1),0,l)
    SaveLightningHandle(HT,GetHandleId(t2),0,l)
    SaveUnitHandle(HT,GetHandleId(t2),1,unit1)
    SaveUnitHandle(HT,GetHandleId(t2),2,unit2)
    TimerStart(t1,time,false, function DestrLig)
    SaveTimerHandle(HT,GetHandleId(t1),1,t2)
    TimerStart(t2,0.05,true, function MoveLig)
    t1=null
    t2=null
}

}