globals
  location loc = Location(0,0)
  group g = CreateGroup()
  filterfunc ff = null
  timer array Tm
  unit array U
  real array X
  real array Y
  real array Dist
endglobals

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

function Angle takes real AX, real AY, real BX, real BY returns real
  return Atan2(BY-AY, BX-AX)
endfunction 

function Distance takes real AX, real AY, real BX, real BY returns real
  return SquareRoot((BX - AX) * (BX - AX) + (BY - AY) * (BY - AY))
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
  call DestroyTimer(Tm[he])
  call DestroyTimer(e)
  set Tm[he] = null
  set e = null
endfunction

function Filt takes nothing returns boolean
  local integer hf = H2I(GetExpiredTimer())-0x100000
  local unit f = GetFilterUnit()
  local real angle = Angle(GetUnitX(f), GetUnitY(f), X[hf], Y[hf])
  local real dist = Distance(GetUnitX(f), GetUnitY(f), X[hf], Y[hf])
     if IsUnitEnemy(f, GetOwningPlayer(U[hf])) and not IsUnitType(f, UNIT_TYPE_STRUCTURE) and GetUnitState(f, UNIT_STATE_LIFE)>0 then
       call SetUnitPathing(f, false)
       call SetUnitPosition(f, GetUnitX(f)+(1500/dist)*Cos(angle), GetUnitY(f)+(1500/dist)*Sin(angle))
       call SetUnitPathing(f, true)
        if dist<=100 then
          call KillUnit(f) // здесь добавляй действия, когда воин приближается к "дыре"
        endif
     endif     
    set f = null  
   return false
endfunction

function Go takes nothing returns nothing
  local integer hf = H2I(GetExpiredTimer())-0x100000
  set ff = Filter(function Filt)
  call GroupEnumUnitsInRange(g, X[hf], Y[hf], 900, ff)
endfunction

function Actions takes nothing returns nothing
  local timer t 
  local timer te 
  local integer he 
  local integer hf 
   if GetSpellAbilityId() == 'A000' then // равкод подставь свой
     set t = CreateTimer()
     set te = CreateTimer()
     set he = H2I(te)-0x100000 
     set hf = H2I(t)-0x100000 
     set loc = GetSpellTargetLoc() 
     set X[hf] = GetLocationX(loc)
     set Y[hf] = GetLocationY(loc)
     set Tm[he] = t
     set U[hf] = GetTriggerUnit()
     call TimerStart(Tm[he],0.05, true, function Go)
     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