function Trig_ShockWave_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local location ul=GetUnitLoc(u)
    local location tl=GetSpellTargetLoc()
    local real a=AngleBetweenPoints(ul,tl)
    local unit w=CreateUnitAtLoc(GetOwningPlayer(u),'u000',ul,a)
    local timer t=CreateTimer()
    call SetInteger(t,"Caster",H2I(u))
    call SetInteger(t,"Wave",H2I(w))
    call SetInteger(t,"DamagedUnits",H2I(CreateGroup()))
    call SetReal(t,"Angle",a)
    call SetInteger(t,"End",26)
    call SetReal(t,"MaxDmg",900*GetUnitAbilityLevel(u,'ANcl'))
    call TimerStart(t,.025,true,function WaveMove)
    call RemoveLocation(ul)
    call RemoveLocation(tl)
    set ul=null
    set tl=null
    set w=null
    set u=null
    set t=null
endfunction

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

function Test takes nothing returns nothing
 local location l=Location(.0, .0)
 call BJDebugMsg(I2S(H2I(l)))
 call RemoveLocation(l)
// set l=null
endfunction

function Init takes nothing returns nothing
 call TimerStart(CreateTimer() , .1 , true , function Test)
endfunction