function Spear_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A006'
endfunction
function Spear_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 newX takes real source,real dist, real angle returns real
    return source + dist * Cos(angle * bj_DEGTORAD)
endfunction

function newY takes real source,real dist, real angle returns real
    return source + dist * Sin(angle * bj_DEGTORAD)
endfunction

function GetAngle takes real casterX,real casterY, real targetX,real targetY returns real
    return Atan2(targetY-casterY,targetX-casterX)
endfunction

function Spear_Move takes nothing returns nothing
    local boolean b=false
    local timer t = GetExpiredTimer()
    local integer h = GetHandleId(t)
    local unit caster=LoadUnitHandle(udg_Hash,h,1)
    local unit dummy = LoadUnitHandle(udg_Hash,h,2)
    local integer count=LoadInteger(udg_Hash,GetHandleId(t),3)
    local real ang=LoadReal(udg_Hash,GetHandleId(t),4)
    local real dX=GetUnitX(dummy)
    local real dY=GetUnitY(dummy)
    local group g=CreateGroup()
    local unit N
    call SetUnitPosition(dummy,newX(dX,50,ang),newY(dY,50,ang))
    call GroupEnumUnitsInRange(g,newX(dX,50,ang),newY(dY,50,ang),400,Condition(function Spear_filter))
    if count>0 then
        loop
            set N=FirstOfGroup(g)
            exitwhen N == null
            call UnitDamageTarget(caster, N, 1000, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_MAGIC, null)
            call GroupRemoveUnit(g, N)
            set b=true
        endloop
        call SaveInteger(udg_Hash,h,3,count-1)
    else 
        set b=true
    endif
    if(b) then
        call FlushChildHashtable(udg_Hash,GetHandleId(t))
        call DestroyTimer(t)
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl", GetUnitX(dummy), GetUnitY(dummy)))
        call RemoveUnit(dummy)
    endif
    set t=null
    set caster=null
    set dummy=null
    set g=null
    set N=null    
endfunction

function Spear_Actions takes nothing returns nothing
    local timer t=CreateTimer()
    local unit caster=GetTriggerUnit()
    local real cX=GetUnitX(caster)
    local real cY=GetUnitY(caster)
    local real tX=GetLocationX(GetSpellTargetLoc())
    local real tY=GetLocationY(GetSpellTargetLoc())
    local real R=GetAngle(cX,cY,tX,tY)/bj_DEGTORAD
    local unit dummy=CreateUnit(GetOwningPlayer(caster),'u00C',cX,cY,R)
    call SaveUnitHandle(udg_Hash,GetHandleId(t),1,caster)
    call SaveUnitHandle(udg_Hash,GetHandleId(t),2,dummy)
    call SaveInteger(udg_Hash,GetHandleId(t),3,30)
    call SaveReal(udg_Hash,GetHandleId(t),4,R)
    call TimerStart(t,0.05,true,function Spear_Move)
    set t=null
    set caster=null
    set dummy=null
endfunction

//===========================================================================
function InitTrig_Arrow takes nothing returns nothing
    set gg_trg_Arrow = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Arrow, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Arrow, Condition( function Spear_Conditions ) )
    call TriggerAddAction( gg_trg_Arrow, function Spear_Actions )
endfunction