lobals
  filterfunc ff = null
  timer array Tm
  unit array U
  unit array UT
  integer hf
  integer ht
endglobals

function H2I takes handle h returns integer
  return h
  return 0
endfunction


function Ends takes nothing returns nothing
  local timer e = GetExpiredTimer()
  local integer he = H2I(e)-0x100000
  local integer hf = H2I(Tm[he])-0x100000
  set U[hf] = null
  set UT[ht] = null
  call DestroyTimer(Tm[he])
  call DestroyTimer(e)
  set Tm[he] = null
  set e = null
endfunction

function SpellDamage takes nothing returns real
    return 1.00*I2R(GetUnitAbilityLevel(U[hf], 'A001'))

function Damage takes nothing returns nothing   //  СИНТАКСИЧЕСКАЯ ОШИБКА
  local integer hf = H2I(GetExpiredTimer())-0x100000
     if GetUnitState(U[hf], UNIT_STATE_MANA) >= 0.00 and GetUnitState(UT[ht], UNIT_STATE_LIFE)>0 then
        call UnitDamageTarget(U[hf], UT[ht], SpellDamage() , true, true, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
     endif
   return false
endfunction

function Actions takes nothing returns nothing
  local timer t 
  local timer te 
  local integer he 
   if GetSpellAbilityId() == 'A001' then
     set t = CreateTimer()
     set te = CreateTimer()
     set he = H2I(te)-0x100000 
     set hf = H2I(t)-0x100000 
     set Tm[he] = t
     set U[hf] = GetTriggerUnit()
     set UT[ht] = GetSpellTargetUnit ()
     call TimerStart(Tm[he],0.05, true, function Damage)
     call TimerStart(te,6.01, false, function Ends)
   endif 
  set t = null 
  set te = null
endfunction

//===========================================================================
function InitTrig_BlackHole takes nothing returns nothing
    set gg_trg_BlackHole = CreateTrigger(  )
    call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(0), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(1), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(2), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(3), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(4), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(5), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(6), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(7), EVENT_PLAYER_UNIT_SPELL_EFFECT, null) 
    call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(8), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(9), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(10), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(11), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(12), EVENT_PLAYER_UNIT_SPELL_EFFECT, null) 
    call TriggerAddAction( gg_trg_BlackHole, function Actions )
endfunction

globals
  unit array U
  unit array UT
  real array Time
  integer array lvl
endglobals

function H2I takes handle h returns integer
  return h
  return 0
endfunction

function Damage takes nothing returns nothing
    local integer hf = H2I(GetExpiredTimer())-0x100000
    if GetUnitState(U[hf], UNIT_STATE_MANA) >= 0.00 and GetUnitState(UT[hf], UNIT_STATE_LIFE)>0 then
        call UnitDamageTarget(U[hf], UT[hf], lvl[hf] , true, true, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
    endif
    set Time[hf] = Time[hf] - 0.05
    if Time[hf] <= 0 then
        call DestroyTimer(GetExpiredTimer())
        set U[hf] = null
        set UT[hf] = null
    endif
endfunction

function Actions takes nothing returns nothing
  local timer t 
   if GetSpellAbilityId() == 'A001' then
     set t = CreateTimer()
     set lvl[H2I(t)-0x100000]=GetUnitAbilityLevel(GetTriggerUnit(), 'A001')
     set Time[H2I(t)-0x100000] = 6
     set U[H2I(t)-0x100000] = GetTriggerUnit()
     set UT[H2I(t)-0x100000] = GetSpellTargetUnit ()
     call TimerStart(t,0.05, true, function Damage)
   endif 
  set t = null 
endfunction

//===========================================================================
function InitTrig_BlackHole takes nothing returns nothing
    local integer i = 0
    set gg_trg_BlackHole = CreateTrigger()
    loop
        exitwhen i > 12
        call TriggerRegisterPlayerUnitEvent(gg_trg_BlackHole, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
        set i = i + 1
    endloop
    call TriggerAddAction( gg_trg_BlackHole, function Actions )
endfunction