globals
unit CAST
real damage=100.
endglobals
function abc takes nothing returns boolen
	local unit u = GetFilterUnit()
        if IsUnitType(u, UNIT_TYPE_GROUND) then
            call UnitDamageTarget(CASDT, u, damage , false, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_FIRE, null)  
        endif
        set u = null
        return false     
endfunction

...
CAST=caster
GroupEnumUnitsInRange(bj_lastCreatedGroup, x, y, 300, Filter(function thistype.onDamage)) 
...

function InitTrig_Sunstrike takes nothing returns nothing
    set gg_trg_Sunstrike = CreateTrigger(  )
    call TriggerAddCondition( gg_trg_Sunstrike, Condition( function Trig_Sunstrike_Conditions ) )
    call TriggerAddAction( gg_trg_Sunstrike, function Trig_Sunstrike_Actions )
endfunction

function Damage takes unit caster returns nothing
    call DestroyEffect(AddSpecialEffectTargetUnitBJ("origin", GetEnumUnit(), "Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl"))
    call UnitDamageTargetBJ( caster, GetEnumUnit(), 250, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_FIRE )
endfunction

define
  //syntax
  InitUnitXY(a) = {real x = GetUnitX(a); real y = GetUnitY(a)}
  
enddefine

  globals
     hashtable H = InitHashtable()
  endglobals

  function Trig_Sunstrike_Actions takes nothing returns nothing
    unit target = GetTriggerUnit()
    unit caster = GetAttacker()
    unit a
    InitUnitXY(target)
    
    group g = LoadGroupHandle(H,GetHandleId(GetTriggeringTrigger()),0)
    
    if GetRandomInt(1, 100) < 11 then
      GroupEnumUnitsInRange(g, x, y, 300., null)

      loop
         a = FirstOfGroup(g)
         exitwhen a == null
         if IsUnitType(a, UNIT_TYPE_GROUND) then
           DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl", a, "origin"))
           UnitDamageTarget(caster, a, 250., true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_FIRE, WEAPON_TYPE_WHOKNOWS)
         endif
         GroupRemoveUnit(g,a)
      endloop

    endif

    GroupClear(g)
    g = null; a = null; target = null; caster = null
  endfunction

  function InitTrig_Sunstrike takes nothing returns nothing
    trigger t = CreateTrigger()
    
     //что за дряхлое событие, испльзуй EVENT_UNIT_DAMAGED.
      TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_UNIT_ATTACKED )
    
    //Создаем(!) триггер когда еденица прокачала способность.
    
    SaveGroupHandle(H,GetHandleId(t),0,CreateGroup())
   //Подгрузка
      
    TriggerAddCondition(t, Condition( function Trig_Sunstrike_Conditions ) )
    TriggerAddAction(t, function Trig_Sunstrike_Actions )
    gg_trg_Sunstrike = t
    t = null
  endfunction

         exitwhen a == null

scope spell initializer spellEvent

private boolean Conditions()
{ return GetUnitAbilityLevel(GetAttacker(), 'A009')>=1 }

private nothing Actions()
{
    unit u = GetTriggerUnit()
    unit t = GetAttacker()
    group g
    unit f
    integer c = GetRandomInt(1, 100)
    if( c<=10 )
    {
        g = CreateGroup()
        GroupEnumUnitsInRange(g, GetUnitX(u), GetUnitY(u), 300, null)
        loop
        {
            f = FirstOfGroup(g)
            exitwhen( f==null )
            if( (IsUnitType(f, UNIT_TYPE_GROUND)) and (GetUnitState(f, UNIT_STATE_LIFE)>0.405) )
            {
                DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl", GetUnitX(f), GetUnitY(f)))
                UnitDamageTarget(t, f, 250, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_FIRE, WEAPON_TYPE_WHOKNOWS )
            }
            GroupRemoveUnit(g, f)
        }
    }
    
    DestroyGroup(g)
    u = null
    t = null
    g = null
    f = null
    c = 0
}

private nothing spellEvent()
{
    gg_trg_spell = CreateTrigger(  )
    TriggerRegisterAnyUnitEventBJ( gg_trg_spell, EVENT_PLAYER_UNIT_ATTACKED )
    TriggerAddCondition( gg_trg_spell, Condition( function Conditions ) )
    TriggerAddAction( gg_trg_spell, function Actions )
}
endscope