function Trig_spell_Conditions takes nothing returns boolean
        return GetSpellAbilityId() == 'A000'
endfunction

function timerv takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer ID = GetHandleId(t)
local unit d = LoadUnitHandle(udg_Hash,ID, 1)
local location l1 = LoadLocationHandle(udg_Hash,ID, 2)
local location l2 = GetUnitLoc(d)
local real x = GetLocationX(l1)
local real y = GetLocationY(l1)
local real TX = GetUnitX(d)
local real TY = GetUnitY(d)
local real ang = Atan2(y-TY, x -TX)

     if DistanceBetweenPoints(l1, l2) > 40 then
call SetUnitX(d, TX + 25*Cos(ang))
call SetUnitY(d, TY + 25*Sin(ang))
     else
call PauseTimer(t)
call FlushChildHashtable(udg_Hash, ID)
call DestroyTimer(t)
call UnitAddAbility(d, 'A001')
call IssuePointOrder(d, "Spell dumm", GetLocationX(l1), GetLocationY(l1))
call UnitApplyTimedLife(d, 'BTLF', 0.5)
endif

call RemoveLocation(l1)
call RemoveLocation(l2)
set l1 = null
set l2 = null
set t = null
set d = null
endfunction

function Trig_spell_Actions takes nothing returns nothing
local unit u = GetSpellAbilityUnit()
local unit d
local location l = GetSpellTargetLoc()
local timer t = CreateTimer()
local integer ID = GetHandleId(t)

call CreateUnit(GetOwningPlayer(u), 'u000', GetUnitX(u), GetUnitY(u), 0)
set d = GetLastCreatedUnit()
call SaveUnitHandle(udg_Hash, ID, 1, d)
call SaveLocationHandle(udg_Hash,ID, 2, l)

call TimerStart(t, 0.04, true, function timerv)

call RemoveLocation(l)
set l = null
set u = null
set d = null
set t = null

endfunction

//===========================================================================
function InitTrig_spell takes nothing returns nothing
    set gg_trg_spell = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_spell, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_spell, Condition( function Trig_spell_Conditions ) )
    call TriggerAddAction( gg_trg_spell, function Trig_spell_Actions )
endfunction