//==========================
function DeathGripAct2 takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer h = GetHandleId(t)
    local location p = LoadLocationHandle(udg_hash,h,4)
    local location p2 = LoadLocationHandle(udg_hash,h,5)
    local unit u = LoadUnitHandle(udg_hash,h,1)
    local unit u2 = LoadUnitHandle(udg_hash,h,2)
    local integer i = LoadInteger(udg_hash,h,3)
       if  ( R2I(DistanceBetweenPoints(GetUnitLoc(u2), p)) > 40 )  then
        call DisplayTextToForce( GetPlayersAll(), I2S(i) )
        call SetUnitPositionLocFacingLocBJ( u2, PolarProjectionBJ(p2, I2R(i), AngleBetweenPoints(p, p2)), p )
        call SaveInteger(udg_hash,h,3,i-10)               
    else
              call DestroyTimer(t)
              call FlushChildHashtable(udg_hash,h)
            set u = null
            set u2 = null
            set t = null
       call RemoveLocation(p)
       call RemoveLocation(p2)
    endif
endfunction

function Trig_DeathGrip_Actions takes nothing returns nothing
    local unit u = GetSpellAbilityUnit()
    local unit u2 = GetSpellTargetUnit()
    local timer t = CreateTimer()
    local integer h = GetHandleId(t)
    local location p = GetUnitLoc(u)
    local location p2 = GetUnitLoc(u2)

    call SaveLocationHandle(udg_hash,h,4,p)
    call SaveLocationHandle(udg_hash,h,5,p2)
    call SaveUnitHandle(udg_hash,h,1,u)
    call SaveUnitHandle(udg_hash,h,2,u2)
    call SaveInteger(udg_hash,h,3,1)    
    call TimerStart(t,0.03,true,function DeathGripAct2)    
    set u = null
    set u2 = null
    set t = null
endfunction

function Trig_DeathGrip_Conditions takes nothing returns boolean
     return GetSpellAbilityId() == 'A007'
endfunction