function Conditions takes nothing returns boolean
    if ( not ( GetSpellAbilityId() == 'A000' ) ) then
        return false
    endif
    return true
endfunction

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

globals
    timer t
    effect array ef
    real x
    real y
    real angle
    real dist
    unit caster
    integer i

    integer MySpell_ID = 'A000'
    string EfPatch1 = "Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl"
endglobals
//===========================================================================

function Trig1_Eff takes nothing returns nothing
    local integer j = 1
    if i < 45 then
        set x = GetUnitX(caster)
        set y = GetUnitX(caster)
        loop
            exitwhen j > 4
            set ef[j] = AddSpecialEffect(EfPatch1, (x+ dist * Cos( (angle+j*90) * bj_DEGTORAD )) ,  (y + dist * Sin((angle+j*90)* bj_DEGTORAD)) )
            set j = j+1
        endloop 
        set angle = angle + 10.00
        set dist = dist - 10
        set i=i+1
        set j = 1
        loop
            exitwhen j > 4
            call DestroyEffect(ef[j])
            set ef[j] = null
            set j=j+1
        endloop
    else
        set caster = null
        call DestroyTimer(t)
    endif
endfunction

function Trig1_Main takes nothing returns nothing  //correct name!
    set angle = 0
    set dist = 600
    set i = 1
    set caster = GetSpellAbilityUnit()
    set t = CreateTimer()
    call TimerStart(t,0.05,true,function Trig1_Eff)
endfunction
//===========================================================================
function Trig1_Conditions takes nothing returns boolean //correct name!
    return GetSpellAbilityId() == MySpell_ID
endfunction
function InitTrig_ImbaSpell takes nothing returns nothing
    set gg_trg_ImbaSpell = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ( gg_trg_ImbaSpell, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_ImbaSpell, Condition( function Trig1_Conditions ) )
    call TriggerAddAction( gg_trg_ImbaSpell, function Trig1_Main)
endfunction

scope ImbaSpell

globals
  private constant string FX = "Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl"
  private constant integer SPELL_ID = 'A000'
  // -----
  private timer t = null
  private real angle
  private real rast
  private unit caster = null
  private real x
  private real y
  private integer i
endglobals
//===========================================================================
private function Conditions takes nothing returns boolean
  return GetSpellAbilityId() == SPELL_ID
endfunction
//===========================================================================
private function Eff takes nothing returns nothing
  if i < 45 then
    set x = GetUnitX(caster)
    set y = GetUnitY(caster)
    call DestroyEffect(AddSpecialEffect(FX, x + rast * Cos(angle),        y + rast * Sin(angle))
    call DestroyEffect(AddSpecialEffect(FX, x + rast * Cos(angle + 1.57), y + rast * Sin(angle + 1.57))
    call DestroyEffect(AddSpecialEffect(FX, x + rast * Cos(angle + 3.14), y + rast * Sin(angle + 3.14))
    call DestroyEffect(AddSpecialEffect(FX, x + rast * Cos(angle + 4.71), y + rast * Sin(angle + 4.71))
    set angle = angle + 0.1745  // angle = angle + 10.0 * bj_DEGTORAD
    set rast  = rast  - 10.0
    set i = i + 1
  else
    set caster = null
    call PauseTimer(t)
  endif
endfunction
//===========================================================================
private function Main takes nothing returns nothing
  set caster = GetSpellAbilityUnit()
  set angle = 0.0
  set rast = 600.0
  set i = 1
  call TimerStart(t, 0.05, true, function Eff)
endfunction
//===========================================================================
function InitTrig_ImbaSpell takes nothing returns nothing
  local trigger tr = CreateTrigger()
  call TriggerAddAction   (tr, function Main)
  call TriggerAddCondition(tr, Condition(function Conditions))
  // --->>
  call TriggerRegisterAnyUnitEventBJ(tr, EVENT_PLAYER_UNIT_SPELL_CAST)
  // <<---
  set t = CreateTimer()
endfunction

endscope

struct myspell
  static myspell array spells
  static integer count = 0
  integer a
  boolean b
  real c
  // . . .
endstruct

globals
endglobals

function OnTimer takes nothing returns nothing
  local integer i = myspell.count
  loop
    exitwhen i == 0

    // действия спелла
    set myspell.spells[i].a = myspell.spells[i].a + 1
    set myspell.spells[i].c = myspell.spells[i].c + (myspell.spells[i].a / 2.0)
    set myspell.spells[i].b = myspell.spells[i].c > 1.0

    // условие прекращения действия спелла
    if myspell.spells[i].b then
      // здесь очищаются объекты (группы, эффекты), использованные в спелле
      // . . .

      // упаковка массива
      set myspell.spells[i] = myspell.spells[myspell.count]
      set myspell.count = myspell.count - 1

      // чтобы обработался экземпляр, которым заменили удаленный элемент
      set i = i + 1
    endif

    set i = i - 1
  endloop
endfunction

function Actions takes nothing returns nothing
  // выделение места в массиве для данных спелла
  set myspell.count = myspell.count + 1
  set myspell.spells[myspell.count] = myspell.create()

  // задание начальных параметров спелла
  set myspell.spells[myspell.count].a = -10
  set myspell.spells[myspell.count].b = false
  set myspell.spells[myspell.count].c = 0.0
endfunction

struct imbaspell
  unit array caster
  real array x
  real array y
  // . . .
endstruct

struct st
    timer array t
    real array angle
    real array rast
    unit array caster
    integer array i
endstruct

local real x = GetUnitX(st.caster)

call TriggerRegisterAnyUnitEcountentBJ(gg_trg_ImbaSpell, EcountENT_PLAYER_UNIT_SPELL_CAST)
// <><><><><>
call TriggerRegisterAnyUnitEventBJ(gg_trg_ImbaSpell, EVENT_PLAYER_UNIT_SPELL_CAST)

struct st
    // создавать и удалять таймер для каждого примененного спелла неэффективно
    //timer t
    real angle
    real rast
    unit caster
    integer i

    // данный метод будет вызываться при вызове метода .destroy()
    method onDestroy takes nothing returns nothing
      set .caster = null
    endmethod
endstruct

globals
  st array spell
  integer count = 0
  // лучше использовать один таймер и в нем перебирать все запущенные спеллы
  timer t = null
  string effect_fx = "Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl"
  integer SPELL_ID = 'A000'
endglobals
//===========================================================================
function Conditions takes nothing returns boolean
    return GetSpellAbilityId() == SPELL_ID
endfunction
//===========================================================================
function Eff takes nothing returns nothing
  local real x = 0.0
  local real y = 0.0
  local integer i = count
  
  loop
    exitwhen i == 0
    // условие продолжения действия спелла
    if spell[i].i < 45 then
      // спелл продолжает работать
      set x = GetUnitX(spell[i].caster)
      set y = GetUnitY(spell[i].caster)
      call DestroyEffect(AddSpecialEffect(effect_fx ,x + spell[i].rast * CosBJ(spell[i].angle),         y + spell[i].rast * SinBJ(spell[i].angle)))
      call DestroyEffect(AddSpecialEffect(effect_fx ,x + spell[i].rast * CosBJ(spell[i].angle + 90.00) ,y + spell[i].rast * SinBJ(spell[i].angle + 90.00)))
      call DestroyEffect(AddSpecialEffect(effect_fx ,x + spell[i].rast * CosBJ(spell[i].angle + 180.00),y + spell[i].rast * SinBJ(spell[i].angle + 180.00)))
      call DestroyEffect(AddSpecialEffect(effect_fx ,x + spell[i].rast * CosBJ(spell[i].angle + 270.00),y + spell[i].rast * SinBJ(spell[i].angle + 270.00)))
      set spell[i].angle = spell[i].angle + 10.00
      set spell[i].rast = spell[i].rast - 10
      set spell[i].i = spell[i].i + 1
    else
      // подчищаем
      call spell[i].destroy()
      set spell[i] = spell[count]
      set count = count - 1
      set i = i + 1

      // если нет запущенных спеллов, поставить таймер на паузу
      if count == 0 then
        call PauseTimer(t)
      endif

    endif

    set i = i - 1
  endloop
  
endfunction
//===========================================================================
function Main takes nothing returns nothing
    // если запущенных ранее спеллов не было, запускаем таймер
    if count == 0 then
      call TimerStart(t, 0.05, true, function Eff)
    endif
    set count = count + 1
    set spell[count] = st.create()
    set spell[count].angle = 0
    set spell[count].rast = 600
    set spell[count].i = 1
    set spell[count].caster = GetSpellAbilityUnit()
    //set spell[count].t = CreateTimer()
    //call TimerStart(spell[count].t, 0.05, true, function Eff)
endfunction
//===========================================================================
function InitTrig_ImbaSpell takes nothing returns nothing
    set gg_trg_ImbaSpell = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_ImbaSpell, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_ImbaSpell, Condition( function Conditions ) )
    call TriggerAddAction( gg_trg_ImbaSpell, function Main)
    
    set t = CreateTimer()
endfunction