// ifdebug library



// spell

scope oms initializer Init

  globals
    private trigger A
    private group B
  endglobals

  private function ActionsFinish takes nothing returns nothing
    local unit t = GetTriggerUnit()
    local unit a = GetEventDamageSource()
    IFDEBUG(t==null or a==null, )
    call UnitRemoveAbility(a, 'B000')
    //...
    set t = null
    set a = null
  endfunction

  private function ConditionsFinish takes nothing returns boolean
    return GetUnitAbilityLevel(GetEventDamageSource(), 'B000') == 1
  endfunction

  private struct spell
    static spell array data
    static integer count = 0
    static timer timer = CreateTimer()
    unit a
    static method onTimer takes nothing returns nothing
        local integer i = 0
        loop
            if GetUnitAbilityLevel(spell.data[i].a, 'B000') == 0 then
                call spell.data[i].destroy()
                set spell.count = spell.count - 1
                set spell.data[i] = spell.data[spell.count]
                set i = i - 1
                if spell.count == 0 then
                    IFDEBUG(spell.timer==null, )
                    call PauseTimer(spell.timer)
                endif
            endif
            set i = i + 1
            exitwhen i >= spell.count
        endloop
    endmethod

    static method create takes unit a returns spell
        local spell s = spell.allocate()
        IFDEBUG(a==null, 0)
        if spell.count == 0 then
            IFDEBUG(spell.timer == null, 0)
            call TimerStart(spell.timer, .1, true, function spell.onTimer)
        endif
        set spell.data[spell.count] = s
        set spell.count = spell.count + 1
        set s.a = a
        //...
        return s
    endmethod
    
    method onDestroy takes nothing returns nothing
        //...
        set .a = null
    endmethod

  endstruct

  private function Actions takes nothing returns nothing
    IFDEBUG(GetTriggerUnit()==null, )
    call spell.create(GetTriggerUnit())
  endfunction

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

  private function ActionsDamage takes nothing returns nothing
    local unit t = GetTriggerUnit()
    IFDEBUG(t==null, )
    call GroupAddUnit(B, t)
    call TriggerRegisterUnitEvent(A, t, EVENT_UNIT_DAMAGED)
    set t = null
  endfunction

  private function ConditionsDamage takes nothing returns boolean
    IFDEBUG(GetTriggerUnit()==null or GetAttacker()==null, false)
    return not IsUnitInGroup(GetTriggerUnit(), B) and GetUnitAbilityLevel(GetAttacker(), 'B000') == 1
  endfunction

  private function Init takes nothing returns nothing
    local trigger t = CreateTrigger()
    local trigger r = CreateTrigger()
    local integer i = 0
    set A = CreateTrigger()
    set B = CreateGroup()
    loop
        call TriggerRegisterPlayerUnitEvent(t, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
        call TriggerRegisterPlayerUnitEvent(r, Player(i), EVENT_PLAYER_UNIT_ATTACKED, null)
        set i = i + 1
        exitwhen i > 12
    endloop
    call TriggerAddCondition(t, Condition(function Conditions))
    call TriggerAddAction(t, function Actions)
    call TriggerAddCondition(r, Condition(function ConditionsDamage))
    call TriggerAddAction(r, function ActionsDamage)
    call TriggerAddCondition(A, Condition(function ConditionsFinish))
    call TriggerAddAction(A, function ActionsFinish)
    set t = null
    set r = null
  endfunction

endscope

static timer timer = CreateTimer()

static timer timer = CreateTimer()

	call TriggerRegisterPlayerUnitEvent(t, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
        call TriggerRegisterPlayerUnitEvent(r, Player(i), EVENT_PLAYER_UNIT_ATTACKED, null)

  private function ActionsDamage takes nothing returns nothing
    local unit t = GetTriggerUnit()
// Это \/
    call GroupAddUnit(B, t)
//
    call TriggerRegisterUnitEvent(A, t, EVENT_UNIT_DAMAGED)
    set t = null
  endfunction

  private function ActionsFinish takes nothing returns nothing
    local unit t = GetTriggerUnit()
    local unit a = GetEventDamageSource()
    call UnitRemoveAbility(a, 'B000')
// Этого \/
    call GroupRemoveUnit(B, t)
//
    //...
    set t = null
    set a = null
  endfunction