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

function EC1 takes nothing returns nothing
     local timer t = GetExpiredTimer()
     local group g = LoadGroupHandle(udg_Skills, GetSpellAbilityId(), 0)
     local unit u
     local location x
     local real d
     local integer l = GetUnitAbilityLevel( GetTriggerUnit(), 'A0QT')

     if ( l == 1 ) then
         set d = 50.00
     endif
     if ( l == 2 ) then
         set d = 65.00
     endif
     if ( l == 3 ) then
         set d = 85.00
     endif
     if ( l == 4 ) then
         set d = 110.00
     endif
     if ( l == 5 ) then
         set d = 140.00
     endif
     if ( l == 6 ) then
         set d = 175.00
     endif
     if ( l == 7 ) then
         set d = 215.00
     endif
     if ( l == 8 ) then
         set d = 260.00
     endif
     if ( l == 9 ) then
         set d = 310.00
     endif
     if ( l == 10 ) then
         set d = 365.00
     endif

     set u = FirstOfGroup(g)
     loop  
       exitwhen u == null
         set u = FirstOfGroup(g)
         set x = GetUnitLoc(u)
         call UnitDamagePointLoc( u, 0, 180.00, x, d, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_FORCE )
         call DestroyEffect(AddSpecialEffectLoc( "Units\\Undead\\Abomination\\AbominationExplosion.mdl", x ))
         call RemoveLocation(x)
         call GroupRemoveUnit(g,u)
         call RemoveUnit(u)
       endloop
     call PlaySoundOnUnitBJ( gg_snd_ImpaleLand, 100, GetTriggerUnit())
     call DestroyGroup(g)
     call DestroyTimer(t)
endfunction

function group0 takes nothing returns nothing
     local location p = GetUnitLoc(GetEnumUnit())
     local unit u
     if (IsUnitDeadBJ(GetEnumUnit()) == true) then
         set u = CreateUnit( GetOwningPlayer(GetTriggerUnit()), 'h007', GetLocationX(p), GetLocationY(p), 0.00 )
         call GroupAddUnit(LoadGroupHandle(udg_Skills, GetSpellAbilityId(), 0), u)
         call RemoveUnit(GetEnumUnit())
         set u = null
     endif
     call RemoveLocation(p)
endfunction

function Trig_Explode_Corpses_Actions takes nothing returns nothing
     local timer t = CreateTimer()
     local location p = GetUnitLoc(GetTriggerUnit())
     local group g = CreateGroup()
     call SaveGroupHandle(udg_Skills, GetSpellAbilityId(), 0, g)
     call ForGroup( GetUnitsInRangeOfLocAll(900.00, p), function group0)
     call DestroyGroup(GetLastCreatedGroup())
     call RemoveLocation(p)
     call TimerStart( t, 0.4, false, function EC1 )
endfunction