function Trig_Explode_Corpses_Conditions takes nothing returns nothing
     return GetSpellAbilityId() == 'A0QT'
endfunction

function Trig_Explode_Corpses_Timer takes nothing returns nothing
     local timer t = GetExpiredTimer()
     local integer id = GetHandleId(t)
     local group g = LoadGroupHandle(udg_Hash, id, 0)
     local integer l = LoadInteger(udg_Hash, id, 1)
     local unit u = LoadUnitHande(udg_Hash, id, 2)
     local unit u2
     local unit u3
     local real d
     local real x
     local real y
     if l <= 4 then
         if l <= 2 then
             if l == 1 then
                 set d = 50.
             else
                 set d = 65.
             endif
         elseif l == 3 then
             set d = 85.
         else
             set d = 110.
         endif
     elseif l <= 8 then
         if l <= 6 then
             if l == 5 then
                 set d = 140.
             else
                 set d = 175.
             endif
         elseif l == 7 then
             set d = 215.
         else
             set d = 260.
         endif
     elseif l == 9 then
         set d = 310.
     else
         set d = 365.
     endif
     call AttachSoundToUnit(gg_snd_ImpaleLand, u)
     call SetSoundVolume(gg_snd_ImpaleLand, 127)
     call StartSound(gg_snd_ImpaleLand)
     loop
         set u2 = FirstOfGroup(g)
         exitwhen u2 == null
         call GroupRemoveUnit(g, u2)
         set x = GetWidgetX(u2)
         set y = GetWidgetY(u2)
         call DestroyEffect(AddSpecialEffect("Units\\Undead\\Abomination\\AbominationExplosion.mdl", x, y))
         call RemoveUnit(u2)
         call GroupEnumUnitsInRange(udg_Group, x, y, 180., null)
         loop
             set u3 = FirstOfGroup(udg_Group)
             exitwhen u3 == null
             call GroupRemoveUnit(udg_Group, u3)
             call UnitDamageTarget(u, u3, d, true, false, ATTACK_TYPE_MAGIC, DAMAGE_TYPE_MAGIC, WEAPON_TYPE_WHOKNOWS)
         endloop
     endloop
     call DestroyGroup(g)
     call FlushChildHashtable(udg_Hash, id)
     call DestroyTimer(t)
     set t = null
     set g = null
     set u = null
     set u2 = null
     set u3 = null
endfunction

function Trig_Explode_Corpses_Actions takes nothing returns nothing
     local unit u = GetTriggerUnit()
     local group g = CreateGroup()
     local timer t = CreateTimer()
     local integer id = GetHandleId(t)
     local unit u
     call GroupEnumUnitsInRange(udg_Group, GetWidgetX(u), GetWidgetY(u), 900., null)
     loop
         set u = FirstOfGroup(udg_Group)
         exitwhen u == null
         call GroupRemoveUnit(udg_Group, u)
         if GetWidgetLife(u) <= .0 and IsUnitType(u, UNIT_TYPE_HERO) == false then
             call GroupAddUnit(g, u)
         endif
     endloop
     call SaveAgentHandle(udg_Hash, id, 0, g)
     call SaveInteger(udg_Hash, id, 1, GetUnitAbilityLevel(u, 'A0QT'))
     call SaveAgentHandle(udg_Hash, id, 2, u)
     call TimerStart(t, .4, false, function Trig_Explode_Corpses_Timer)
     set g = null
     set t = null
     set u = null
endfunction

function InitTrig_Explode_Corpses takes nothing returns nothing
     local trigger trig = CreateTrigger()
     local integer i = 0
     loop
         call TriggerRegisterPlayerUnitEvent(trig, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
         exitwhen i == 11
         set i = i + 1
     endloop
     call TriggerAddCondition(trig, Filter(function Trig_Explode_Corpses_Conditions))
     call TriggerAddAction(trig, function Trig_Explode_Corpses_Actions)
     set trig = null
endfunction