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

function FireEscort_Move takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer id = GetHandleId(t)
local integer wait = LoadInteger(udg_hash,id,3)
local group g = CreateGroup()
local unit Picked
local unit c = LoadUnitHandle(udg_hash, id, 2)
local real x = GetUnitX(c)
local real y = GetUnitY(c)
local real damage = LoadReal(udg_hash, id, 1)
local real x2
local real y2
    if wait < 1 then
        call PauseTimer(t)
        call FlushChildHashtable(udg_hash, id)
        call GroupClear(g)
        call DestroyGroup(g)
        call DestroyTimer(t)
    else
        set wait = wait - 1
        call SaveInteger(udg_hash, id, 3, wait)
        call DestroyEffect(AddSpecialEffect( "Abilities\\Spells\\Undead\\OrbOfDeath\\AnnihilationMissile.mdl",x, y))
        call GroupEnumUnitsInRange(g,x,y,400,null)
    loop
        set Picked = FirstOfGroup(g)
        exitwhen  Picked == null
    if IsUnitEnemy(Picked, GetOwningPlayer(c)) and  GetUnitState(Picked, UNIT_STATE_LIFE) > 0.00 then
    set x2 = GetUnitX(Picked)
    set y2 = GetUnitY(Picked)
    call DestroyEffect(AddSpecialEffect( "Abilities\\Spells\\Undead\\DeathandDecay\\DeathandDecayTarget.mdl",x2, y2))
    call IssueTargetOrder( Picked, "attack", Picked )
    call UnitDamageTargetBJ( c, Picked, damage, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL )
    endif
    call GroupRemoveUnit(g,Picked)
    set Picked = null
endloop
endif
call GroupClear(g)
call DestroyGroup(g)
set g = null
set t = null
set c = null
endfunction

function Trig_FireEscort_Actions takes nothing returns nothing
local unit c = GetSpellAbilityUnit()
local timer t = CreateTimer()
local integer id = GetHandleId(t)
local integer wait = 5
local real x = GetUnitX(c)
local real y = GetUnitY(c)
local real damage = ( 10.00 + ( 10.00 * I2R(GetUnitAbilityLevel(c,'A006')) ) )
call SaveReal(udg_hash, id, 1, damage)
call SaveInteger(udg_hash, id, 3, wait)
call SaveUnitHandle(udg_hash, id, 2, c)
call TimerStart(t, 1.00, true, function FireEscort_Move)
set t = null
set c = null
endfunction

function InitTrig_FireEscort takes nothing returns nothing
    local integer index=0
    set gg_trg_FireEscort = CreateTrigger()
    loop
    call TriggerRegisterPlayerUnitEvent(gg_trg_FireEscort, Player(index), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    set index = index + 1
    exitwhen index == bj_MAX_PLAYER_SLOTS
    endloop
    call TriggerAddCondition(gg_trg_FireEscort, Condition(function Trig_FireEscort_Conditions))
    call TriggerAddAction(gg_trg_FireEscort, function Trig_FireEscort_Actions)
endfunction