function GetMissleRange takes unit unitA, unit unitB returns real
local real Dx = GetUnitX(unitA) - GetUnitX(unitB)
local real Dy = GetUnitY(unitA) - GetUnitY(unitB)  
return SquareRoot(Dx*Dx+Dy*Dy)
endfunction

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

function I2U takes integer x returns unit
return x
return null
endfunction

function Death_Coil_Hit takes nothing returns nothing
    local unit unitA = I2U(GetStoredInteger(udg_Game_Cache, I2S(H2I(GetExpiredTimer())), "Death_Coil_Hit"))
    call FlushStoredMission(udg_Game_Cache, I2S(H2I(GetExpiredTimer())))
    call SetWidgetLife(unitA,GetWidgetLife(unitA)+500)
    call DestroyTimer(GetExpiredTimer())
endfunction

function Spell_Death_Coil takes nothing returns nothing
    local timer timerA = CreateTimer()
    local unit unitA = GetTriggerUnit()
    call StoreInteger(udg_Game_Cache, I2S(H2I(timerA)), "Death_Coil_Hit", H2I(unitA))
    call TimerStart(timerA, GetMissleRange(unitA,GetSpellTargetUnit())/1000, false, function Death_Coil_Hit)
    set timerA = null
    set unitA = null
endfunction