globals
unit array arrow
real array targetx
real array targety
integer number = 0
location array targetloc
endglobals

function DistanceBetweenCoords takes real x1, real y1, real x2, real y2 returns real
return SquareRoot((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)) 
endfunction

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

function moving takes integer i returns nothing
local unit u = arrow[i]
local real ux = GetUnitX(u)
local real uy = GetUnitY(u)
local real tx = targetx[i]
local real ty = targety[i]
local location loc1 = GetUnitLoc(u)
local location loc2 = targetloc[i]
local real a  = bj_RADTODEG * Atan2(targety[number] - GetUnitY(arrow[number]),targetx[number] - GetUnitX(arrow[number]))
set a = DistanceBetweenPoints(loc1,loc2)
BJDebugMsg(R2S(a))
if (DistanceBetweenPoints(loc2,loc1) >= 200) then
call SetUnitX(u,GetUnitX(u) + 40 * Cos(a * .0174532))
call SetUnitY(u,GetUnitY(u) + 40 * Sin(a * .0174532))
else
arrow[number] = arrow[i]
targetx[number] = tx
targety[number] = ty
targetloc[number] = loc2
number = number - 1
BJDebugMsg("11")
endif
endfunction

function looping takes nothing returns nothing
local integer i = 1
loop
exitwhen i > number
call moving(i)
i = i + 1
endloop
endfunction

function Actions takes nothing returns nothing
set number = number + 1
arrow[number] = CreateUnit(GetOwningPlayer(GetSpellAbilityUnit()),'hfoo',GetUnitX(GetSpellAbilityUnit()),GetUnitY(Ge​tSpellAbilityUnit()),GetUnitFacing(GetSpellAbilityUnit()))
targetx[number] = GetSpellTargetX()
targety[number] = GetSpellTargetY()
targetloc[number] = GetSpellTargetLoc()
endfunction

//===========================================================================
function InitTrig_arrow takes nothing returns nothing
    local timer t = CreateTimer()
    TimerStart(t,0.05,true,function looping)
    set gg_trg_arrow = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_arrow, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_arrow, Condition( function Conditions ) )
    call TriggerAddAction( gg_trg_arrow, function Actions )
endfunction