function I2FX takes integer h returns effect
    return h
    return null
endfunction

function DestroyEffectTimed_Timer takes nothing returns nothing
    call DestroyEffect(I2FX(R2I(TimerGetRemaining(GetExpiredTimer())+.5)))
    call DestroyTimer(GetExpiredTimer())
endfunction

function DestroyEffectTimed takes effect e, real r returns nothing
    local timer t = CreateTimer()
    call TimerStart(t, H2I(e), false, null)
    call PauseTimer(t)
    call TimerStart(t, r, false, function DestroyEffectTimed_Timer)
    set t = null
endfunction