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 u2
     call GroupEnumUnitsInRange(udg_Group, GetWidgetX(u), GetWidgetY(u), 900., null)
     loop
         set u2 = FirstOfGroup(udg_Group)
         exitwhen u2 == null
         call GroupRemoveUnit(udg_Group, u2)
         if GetWidgetLife(u2) <= .0 and IsUnitType(u2, UNIT_TYPE_HERO) == false then
             call GroupAddUnit(g, u2)
         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
     set u2 = null
endfunction

function Trig_Spell_Conditions takes nothing returns boolean
     return GetSpellAbilityId() == 'A000'
endfunction

function Damage takes nothing returns boolean
     if IsUnitType(GetFilterUnit(),UNIT_TYPE_DEAD) == false then
         call UnitDamageTarget(GetTriggerUnit(),GetFilterUnit(),200.,true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS)
     endif
     return false
endfunction

function Dead_Pick takes nothing returns boolean
     local unit caster = GetTriggerUnit()
     local unit fu = GetFilterUnit()
     local group g = CreateGroup()
     local filterfunc f = Filter(function Damage)
     if IsUnitType(fu,UNIT_TYPE_DEAD) then
         call GroupEnumUnitsInRange(g,GetUnitX(fu),GetUnitY(fu),180.,f)
         call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Human\\HumanLargeDeathExplode\\HumanLargeDeathExplode.mdl", GetUnitX(GetFilterUnit()), GetUnitY(GetFilterUnit())))
     endif
     call DestroyGroup(g)
     call DestroyFilter(f)
     set g = null
     set fu = null
     set f = null
     set caster = null
     return false
endfunction

function Trig_Spell_Actions takes nothing returns nothing
     local unit caster = GetTriggerUnit()
     local group g = CreateGroup()
     local filterfunc f = Filter(function Dead_Pick)
     call GroupEnumUnitsInRange(g,GetUnitX(caster),GetUnitY(caster),900.,f)
     call DestroyGroup(g)
     call DestroyFilter(f)
     set g = null
     set f = null
     set caster = null
endfunction

//===========================================================================
function InitTrig_Spell takes nothing returns nothing
     set gg_trg_Spell = CreateTrigger()
     call TriggerRegisterAnyUnitEventBJ(gg_trg_Spell,EVENT_PLAYER_UNIT_SPELL_EFFECT)
     call TriggerAddCondition(gg_trg_Spell,Condition(function Trig_Spell_Conditions))
     call TriggerAddAction(gg_trg_Spell,function Trig_Spell_Actions)
endfunction

if UnitDamageTarget(GetTriggerUnit(),GetFilterUnit(),200.,true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS) then
// урон нанесён
else
// урон не нанесён
endif