function Trig_Explode_Corpses_Conditions takes nothing returns boolean
     if ( GetSpellAbilityId() == 'A0QT' ) then
         return true
     endif
     return false
endfunction

function Trig_Explode_Corpses_Func004A takes nothing returns nothing
     if ( IsUnitDeadBJ(GetEnumUnit()) == true ) then
         set udg_ECLocs[udg_ECIndex] = GetUnitLoc(GetEnumUnit())
         call CreateUnitAtLoc( GetOwningPlayer(GetSpellAbilityUnit()), 'h007', udg_ECLocs[udg_ECIndex], 0.00 )
         set udg_DummyEC[udg_ECIndex] = GetLastCreatedUnit()
         set udg_ECIndex = udg_ECIndex + 1
         call RemoveUnit( GetEnumUnit() )
     endif
endfunction

function Trig_Explode_Corpses_Actions takes nothing returns nothing
     local integer l = GetUnitAbilityLevel(GetSpellAbilityUnit(), GetSpellAbilityId())
     set udg_ECIndex = 1
     set udg_ECIndexOverall = 0
     set udg_ECPoint = GetUnitLoc(GetSpellAbilityUnit())
     call ForGroup( GetUnitsInRangeOfLocAll(900.00, udg_ECPoint), function Trig_Explode_Corpses_Func004A )
     call DestroyGroup(GetLastCreatedGroup())
     if ( l == 1 ) then
         set udg_ECDamage = 50.00
     endif
     if ( l == 2 ) then
         set udg_ECDamage = 65.00
     endif
     if ( l == 3 ) then
         set udg_ECDamage = 85.00
     endif
     if ( l == 4 ) then
         set udg_ECDamage = 110.00
     endif
     if ( l == 5 ) then
         set udg_ECDamage = 140.00
     endif
     if ( l == 6 ) then
         set udg_ECDamage = 175.00
     endif
     if ( l == 7 ) then
         set udg_ECDamage = 215.00
     endif
     if ( l == 8 ) then
         set udg_ECDamage = 260.00
     endif
     if ( l == 9 ) then
         set udg_ECDamage = 310.00
     endif
     if ( l == 10 ) then
         set udg_ECDamage = 365.00
     endif
     call StartTimerBJ( udg_TimerEC, false, 0.40 )
endfunction

//===========================================================================
function InitTrig_Explode_Corpses takes nothing returns nothing
     set gg_trg_Explode_Corpses = CreateTrigger(  )
     call TriggerRegisterAnyUnitEventBJ( gg_trg_Explode_Corpses, EVENT_PLAYER_UNIT_SPELL_CAST )
     call TriggerAddCondition( gg_trg_Explode_Corpses, Condition( function Trig_Explode_Corpses_Conditions ) )
     call TriggerAddAction( gg_trg_Explode_Corpses, function Trig_Explode_Corpses_Actions )
endfunction

     Events
         Time - TimerEC expires
     Conditions
     Actions
         Set ECIndexOverall = ECIndex
         Set ECIndex = 1
         For each (Integer A) from 1 to ECIndexOverall, do (Actions)
             Loop - Actions
                 Unit - Cause DummyEC[ECIndex] to damage circular area after 0.00 seconds of radius 180.00 at ECLocs[ECIndex], dealing ECDamage damage of attack type Spells and damage type Force
                 Special Effect - Create a special effect at ECLocs[ECIndex] using Units\Undead\Abomination\AbominationExplosion.mdl
                 Special Effect - Destroy (Last created special effect)
                 Set ECIndex = (ECIndex + 1)
         Sound - Play ImpaleLand <gen> at 100.00% volume, located at ECPoint with Z offset 10.00
         Countdown Timer - Start TimerEC1 as a One-shot timer that will expire in 1.00 seconds

     Events
         Time - TimerEC1 expires
     Conditions
     Actions
         Set ECIndexOverall = ECIndex
         Set ECIndex = 1
         For each (Integer A) from 1 to ECIndexOverall, do (Actions)
             Loop - Actions
                 Custom script:   call RemoveUnit(udg_DummyEC[udg_ECIndex])
                 Set DummyEC[ECIndex] = No unit
                 Custom script:   call RemoveUnit(udg_DummyEC[udg_ECIndex])
                 Custom script:   call RemoveLocation(udg_ECLocs[udg_ECIndex])
                 Set ECIndex = (ECIndex + 1)
         Custom script:   call RemoveLocation(udg_ECPoint)