globals
    gamecache gc=null
endglobals

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

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

function Range takes nothing returns real
    return 1200.0
endfunction

function DamageValue takes nothing returns real
    return 3*I2R(GetUnitAbilityLevel(GetTriggerUnit(),'A006'))+100
endfunction

function AOE takes nothing returns real
    return I2R(GetUnitAbilityLevel(GetTriggerUnit(),'A006'))+50
endfunction

function Trig_Arrow_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A006'
endfunction

function Trig_Arrow_filter takes nothing returns boolean
    return IsPlayerEnemy(GetOwningPlayer(GetTriggerUnit()), GetOwningPlayer(GetFilterUnit())) and GetWidgetLife(GetFilterUnit()) > 0.405 and not IsUnitType(GetFilterUnit(), UNIT_TYPE_FLYING)
endfunction

function DAMAGE takes real tX,real tY,unit caster returns nothing
    local unit N
    local group g
    call GroupEnumUnitsInRange(g, tX, tY, AOE(),Condition(function Trig_Arrow_filter) )
    loop
        set N= FirstOfGroup(g)
        exitwhen N == null
        call UnitDamageTarget(caster, N, DamageValue(), true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_MAGIC, null)
        call GroupRemoveUnit(g, N)
    endloop
    call DestroyGroup(g)
    set N=null
endfunction

function Move_spear takes nothing returns nothing
    local string s = I2S(H2I(GetExpiredTimer()))
    local gamecache gc = udg_AbilityCache
    local real cX = GetStoredReal(gc, s, "cX")
    local real cY = GetStoredReal(gc, s, "cY")
    local real tX = GetStoredReal(gc, s, "tX")
    local real tY = GetStoredReal(gc, s, "tY")
    local unit f=I2U(GetStoredInteger(gc,s,"dummy"))
    local unit caster=I2U(GetStoredInteger(gc,s,"caster"))
    local group g=CreateGroup()
    local unit N
    call SetUnitPosition(f, 60+40*Cos(GetUnitFacing(f)), 60+40*Sin(GetUnitFacing(f)))
    call GroupEnumUnitsInRange(g, tX, tY, 200,Condition(function Trig_Arrow_filter))
    set N= FirstOfGroup(g)
    if(N!=null or SquareRoot((cX-tX)*(cX-tX))+((cY-tY)*(cY-tY))>Range()) then 
        call DAMAGE(tX,tY,caster)
        call DestroyTimer(GetExpiredTimer())
        call RemoveUnit(f)
        call FlushStoredMission(gc, s)
    endif
    set s=null
    set gc=null
    set cX=0
    set cY=0
    set tX=0
    set tY=0
    set f=null
    set caster=null
    set N=null
    call DestroyGroup(g)
endfunction

function Trig_Arrow_Actions takes nothing returns nothing
    local unit caster=GetTriggerUnit()
    local unit dummy=CreateUnit(GetOwningPlayer(caster),'u000',GetUnitX(caster),GetUnitY(caster  ),GetUnitFacing(caster))
    local gamecache gc = udg_AbilityCache
    local timer t = CreateTimer()
    local string s = I2S(H2I(t))
    call StoreReal(gc, s, "cX", GetUnitX(caster))
    call StoreReal(gc, s, "cY", GetUnitY(caster))
    call StoreReal(gc, s, "tX", GetUnitX(caster))
    call StoreReal(gc, s, "tY", GetUnitY(caster))
    call StoreInteger(gc,s,"dummy",H2I(dummy))
    call StoreInteger(gc,s,"caster",H2I(caster))
    call TimerStart(t, 0.05, true, function Move_spear)
    set caster=null
    set dummy=null
    set gc=null
    set t=null
    set s=null
endfunction

//===========================================================================
function InitTrig_Arrow takes nothing returns nothing
    set gg_trg_Arrow = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Arrow, EVENT_PLAYER_UNIT_SPELL_FINISH )
    call TriggerAddCondition( gg_trg_Arrow, Condition( function Trig_Arrow_Conditions ) )
    call TriggerAddAction( gg_trg_Arrow, function Trig_Arrow_Actions )
endfunction