function Trig_Ability_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A001'
endfunction

function Trig_Ability_Filter takes nothing returns boolean
    return IsPlayerEnemy(GetOwningPlayer(GetFilterUnit()), GetOwningPlayer(GetSpellAbilityUnit())) == true and GetUnitStateSwap(UNIT_STATE_LIFE, GetFilterUnit()) > 0.405
endfunction

function Trig_Ability_Damage takes nothing returns nothing
    local integer xDamage = GetUnitAbilityLevel(GetSpellAbilityUnit(), 'A001')
    call UnitDamageTargetBJ( GetSpellAbilityUnit(), GetEnumUnit(), ( 175.00 * xDamage ), ATTACK_TYPE_CHAOS, DAMAGE_TYPE_DEMOLITION )
endfunction

function Trig_Ability_Move takes nothing returns nothing
    local timer tm = GetExpiredTimer()
    local integer I = GetHandleId(tm)
    local unit s =  LoadUnitHandle(udg_CasheTable, I, 1)
    local unit Dm = LoadUnitHandle(udg_CasheTable, I, 6)
    local real xDm = LoadReal(udg_CasheTable, I, 2)
    local real yDm = LoadReal(udg_CasheTable, I, 3)
    local real xT = LoadReal(udg_CasheTable, I, 4)
    local real yT = LoadReal(udg_CasheTable, I, 5)
    local group g = CreateGroup()
    local boolexpr b = Condition(function Trig_Ability_Filter)
        if DistanceBetweenPoints(Location(xDm, yDm), Location(xT, yT)) >= 150.00 then
            call IssuePointOrderLocBJ( Dm, "move", Location(xT, yT) )
            call SaveReal(udg_CasheTable,I,2,xDm)
            call SaveReal(udg_CasheTable,I,3,yDm)
            call SaveReal(udg_CasheTable,I,4,xT)
            call SaveReal(udg_CasheTable,I,5,yT)
            call SaveUnitHandle(udg_CasheTable,I,6,Dm)
        else
            call GroupEnumUnitsInRange(g, xT, yT, 500, b)
            call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralB​uildingExplosion.mdl", xT, yT))
            call ForGroup(g, function Trig_Ability_Damage)
            call DestroyTimer(tm)
            call FlushChildHashtable(udg_CasheTable,I)
        endif
    set s = null
    set Dm = null
    set tm = null
    set g = null
endfunction

function Trig_Ability_Actions takes nothing returns nothing
    local unit s = GetSpellAbilityUnit()
    local unit t = GetSpellTargetUnit()
    local timer tm = CreateTimer()
    local integer I = GetHandleId(tm)
    call SaveUnitHandle(udg_CasheTable,I,1,s)
    call SaveReal(udg_CasheTable,I,2,GetLocationX(GetUnitLoc(s)))
    call SaveReal(udg_CasheTable,I,3,GetLocationY(GetUnitLoc(s)))
    call SaveReal(udg_CasheTable,I,4,GetLocationX(GetUnitLoc(t)))
    call SaveReal(udg_CasheTable,I,5,GetLocationY(GetUnitLoc(t)))
    call SaveUnitHandle(udg_CasheTable,I,6,CreateUnit(GetOwningPlayer(s), 'e001',GetLocationX(GetUnitLoc(s)),GetLocationY(GetUnitLoc(s)),GetUnitFacing(s)))
    call TimerStart(tm, 0.04, true, function Trig_Ability_Move)
    set s = null
    set t = null
    set tm = null
endfunction

//===========================================================================
function InitTrig_Ability takes nothing returns nothing
    set gg_trg_Ability = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Ability, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Ability, Condition( function Trig_Ability_Conditions ) )
    call TriggerAddAction( gg_trg_Ability, function Trig_Ability_Actions )
    call Preload("Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl&qu​ot;)
endfunction