function CreateBow takes nothing returns integer
  local integer i = udg_bow_S_f
  if i != 0 then
    set udg_bow_S_f = udg_bow_S_s[i]
  else
    set udg_bow_S_c = udg_bow_S_c + 1
    set i = udg_bow_S_c
  endif
  return i
endfunction

function RemoveBow takes integer i returns nothing
  local integer max = udg_MAX_bow
  set udg_bow_S_s[i] = udg_bow_S_f
  set udg_bow_S_f = i
  call RemoveRegion(LoadRegionHandle(udg_Hash, GetHandleId(udg_bow_tr_e[i]), 0))
  call FlushChildHashtable(udg_Hash, GetHandleId(udg_bow_d[i]))
  call FlushChildHashtable(udg_Hash, GetHandleId(udg_bow_u[i]))
  call FlushChildHashtable(udg_Hash, GetHandleId(udg_bow_tr_e[i]))
  call FlushChildHashtable(udg_Hash, GetHandleId(udg_bow_tr_l[i]))
  call DestroyGroup(udg_bow_g_a_l[i])
  call DestroyGroup(udg_bow_g_h[i])
  call DestroyGroup(udg_bow_g_l[i])
  call DestroyLightning(udg_bow_l_1[i])
  call DestroyLightning(udg_bow_l_2[i])
  call DestroyLightning(udg_bow_l_3[i])
  call RemoveUnit(udg_bow_d_c_1[i])
  call RemoveUnit(udg_bow_d_c_2[i])
  call RemoveUnit(udg_bow_d[i])
  call RemoveUnit(udg_bow_d_m[i])
  call DestroyTriggerTimed(udg_bow_tr_e[i])
  call DestroyTriggerTimed(udg_bow_tr_l[i])
  call RemoveRect(udg_bow_r[i])
endfunction

function CreateSphere takes nothing returns integer
  local integer i = udg_bow_s_S_f
  if i != 0 then
    set udg_bow_s_S_f = udg_bow_s_S_s[i]
  else
    set udg_bow_s_S_c = udg_bow_s_S_c + 1
    set i = udg_bow_s_S_c
  endif
  return i
endfunction

function RemoveSphere takes integer i returns nothing
  local integer max = udg_MAX_bow_s
  set udg_bow_s_S_s[i] = udg_bow_s_S_f
  set udg_bow_s_S_f = i
  call DestroyGroup(udg_bow_p_g_i[i])
  call DestroyGroup(udg_bow_p_g_o[i])
  call RemoveUnit(udg_bow_s_d[i])
endfunction

function CreateProc takes nothing returns integer
  local integer i = udg_bow_p_S_f
  if i != 0 then
    set udg_bow_p_S_f = udg_bow_p_S_s[i]
  else
    set udg_bow_p_S_c = udg_bow_p_S_c + 1
    set i = udg_bow_p_S_c
  endif
  return i
endfunction

function RemoveProc takes integer i returns nothing
  local integer max = udg_MAX_bow_p
  set udg_bow_p_S_s[i] = udg_bow_p_S_f
  set udg_bow_p_S_f = i
endfunction

function bow_rect_Filter takes nothing returns boolean
  local unit u = GetFilterUnit()
  return ((IsUnitType(u, UNIT_TYPE_ANCIENT) and not IsUnitInGroup(u, udg_bow_g_a_g)) and (GetUnitTypeId(u)!= 'h003' and GetUnitTypeId(u)!= 'h001'))
endfunction

function bow_rect_Filter_refresh takes nothing returns boolean
  local unit u = GetFilterUnit()
  return (IsUnitType(u, UNIT_TYPE_ANCIENT) and (GetUnitTypeId(u)!= 'h003' and GetUnitTypeId(u)!= 'h001'))
endfunction

function bow_proc_Filter takes nothing returns boolean
  local unit u = GetFilterUnit()
  local unit fu = udg_bow_p_G_u
  return (not IsUnitType(u, UNIT_TYPE_DEAD) and not IsUnitType(u, UNIT_TYPE_ANCIENT)) and (u != fu)
endfunction

function bow_rect_trigger_enter takes nothing returns nothing
  local trigger t = GetTriggeringTrigger()
  local unit u = GetEnteringUnit()
  local integer i = LoadInteger(udg_Hash, GetHandleId(t), 0)
  local real uy = GetUnitY(u)
  local real y = YCoordOnLine(GetUnitX(u), udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])
  if FirstOfGroup(udg_bow_g_a_l[i]) == null then
    set udg_bow_b_g_e[i] = true
  endif
  call GroupAddUnit(udg_bow_g_a_l[i], u)
  if uy > y then
    call GroupAddUnit(udg_bow_g_h[i], u)
  else
    call GroupAddUnit(udg_bow_g_l[i], u)
  endif
  set t = null
  set u = null
endfunction

function bow_rect_trigger_leave takes nothing returns nothing
  local trigger t = GetTriggeringTrigger()
  local unit u = GetLeavingUnit()
  local integer i = LoadInteger(udg_Hash, GetHandleId(t), 0)
  local real uy = GetUnitY(u)
  local real y = YCoordOnLine(GetUnitX(u), udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])
  call GroupRemoveUnit(udg_bow_g_a_l[i], u)
  call GroupRemoveUnit(udg_bow_g_h[i], u)
  call GroupRemoveUnit(udg_bow_g_l[i], u)
  if FirstOfGroup(udg_bow_g_a_l[i]) == null then
    set udg_bow_b_g_e[i] = false
  endif
  set t = null
  set u = null
endfunction

function bow_rect_refresh takes nothing returns nothing
  local unit u = GetEnumUnit()
  local integer i = udg_bow_G_i
  local real uy = GetUnitY(u)
  local real y = YCoordOnLine(GetUnitX(u), udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])
  call GroupAddUnit(udg_bow_g_a_l[i], u)
  if uy > y then
    call GroupAddUnit(udg_bow_g_h[i], u)
    call GroupRemoveUnit(udg_bow_g_l[i], u)
  else
    call GroupAddUnit(udg_bow_g_l[i], u)
    call GroupRemoveUnit(udg_bow_g_h[i], u)
  endif
  set u = null
endfunction

function bow_rect_group_loop takes nothing returns nothing
  local unit u = GetEnumUnit()
  local integer i = udg_bow_G_i
  local real uy = GetUnitY(u)
  local real y = YCoordOnLine(GetUnitX(u), udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])
  local real d = DistBtwCoords(GetUnitX(u), GetUnitY(u), udg_bow_r_d_x3[i], udg_bow_r_d_y3[i])
  if udg_bow_d_i_b[i] == null then
      if IsUnitInGroup(u, udg_bow_g_a_g) then
        if IsUnitInGroup(u, udg_bow_g_h[i]) and uy <= y then
          call GroupAddUnit(udg_bow_g_l[i], u)
          call GroupRemoveUnit(udg_bow_g_h[i], u)
        elseif IsUnitInGroup(u, udg_bow_g_l[i]) and uy > y then
          call GroupAddUnit(udg_bow_g_h[i], u)
          call GroupRemoveUnit(udg_bow_g_l[i], u)
        endif
      else
        if IsUnitInGroup(u, udg_bow_g_h[i]) and uy <= y then
          set udg_bow_d_i_b[i] = u
          call GroupAddUnit(udg_bow_g_l[i], u)
          call GroupRemoveUnit(udg_bow_g_h[i], u)
          call GroupRemoveUnit(udg_bow_g_a_l[i], u)
        elseif IsUnitInGroup(u, udg_bow_g_l[i]) and uy > y then
          set udg_bow_d_i_b[i] = u
          call GroupAddUnit(udg_bow_g_h[i], u)
          call GroupRemoveUnit(udg_bow_g_l[i], u)
          call GroupRemoveUnit(udg_bow_g_a_l[i], u)
        endif
      endif
  endif
  set u = null
endfunction

function bow_rect_group_loop_if_in takes nothing returns nothing
  local unit u = GetEnumUnit()
  local integer i = udg_bow_G_i
  local real uy = GetUnitY(u)
  local real y = YCoordOnLine(GetUnitX(u), udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])
  local real d = DistBtwCoords(GetUnitX(u), GetUnitY(u), udg_bow_r_d_x3[i], udg_bow_r_d_y3[i])
  if IsUnitInGroup(u, udg_bow_g_h[i]) and uy < y then
    call GroupAddUnit(udg_bow_g_l[i], u)
    call GroupRemoveUnit(udg_bow_g_h[i], u)
  elseif IsUnitInGroup(u, udg_bow_g_l[i]) and uy > y then
    call GroupAddUnit(udg_bow_g_h[i], u)
    call GroupRemoveUnit(udg_bow_g_l[i], u)
  endif
  set u = null
endfunction

function bow_rect_unit_in takes integer i returns boolean
  local boolean b = true
  local unit u = udg_bow_d_i_b[i]
  local real uy = GetUnitY(u)
  local real dx = GetUnitX(udg_bow_d_i_b[i])
  local real dy = GetUnitY(udg_bow_d_i_b[i])
  local real y = YCoordOnLine(GetUnitX(u), udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])
  local real d = DistBtwCoords(GetUnitX(u), GetUnitY(u), udg_bow_r_d_x3[i], udg_bow_r_d_y3[i])
  local real d_l_c = DistBtwLineCords(udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], dx, dy)
    if IsUnitInGroup(u, udg_bow_g_h[i]) then
      if uy <= y then
        call GroupRemoveUnit(udg_bow_g_h[i], u)
        call GroupAddUnit(udg_bow_g_l[i], u)
      else
        set b = false
      endif
    elseif IsUnitInGroup(u, udg_bow_g_l[i]) then
      if uy >= y then
        call GroupRemoveUnit(udg_bow_g_l[i], u)
        call GroupAddUnit(udg_bow_g_h[i], u)
      else
        set b = false
      endif
    endif
  set u = null
  return b
endfunction

function bow_less_than_line takes integer i returns nothing
  local real dx = GetUnitX(udg_bow_d_i_b[i])
  local real dy = GetUnitY(udg_bow_d_i_b[i])
  local real ux = GetUnitX(udg_bow_u_i_b[i])
  local real uy = GetUnitY(udg_bow_u_i_b[i])
  local real a_u_d = AngBtwCoords(ux, uy, dx, dy)
  local real x1 = ux + 250. * Cos(a_u_d)
  local real y1 = uy + 250. * Sin(a_u_d)
  local real d_l_c = DistBtwLineCords(udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], x1, y1)
  local real rx = udg_bow_x_l[i]
  local real ry = udg_bow_y_l[i]
  local real a_1_r = AngBtwCoords(x1, y1, rx, ry)
  local real x2 = x1 + d_l_c * Cos(a_1_r)
  local real y2 = y1 + d_l_c * Sin(a_1_r)
  local real a_u_2 = AngBtwCoords(ux, uy, x2, y2)
  if IsUnitInGroup(udg_bow_d_i_b[i], udg_bow_g_l[i]) then
    set rx = udg_bow_x_h[i]
    set ry = udg_bow_y_h[i]
    set a_1_r = AngBtwCoords(x1, y1, rx, ry)
    set x2 = x1 - d_l_c * Cos(a_1_r)
    set y2 = y1 - d_l_c * Sin(a_1_r)
    set a_u_2 = AngBtwCoords(ux, uy, x2, y2)
  endif
  set udg_bow_r_m_x[i] = ux + 250. * Cos(a_u_2)
  set udg_bow_r_m_y[i] = uy + 250. * Sin(a_u_2)
endfunction

function bow_proc_enum takes nothing returns nothing
  call GroupAddUnit(udg_bow_p_g_a, GetEnumUnit())
endfunction

function bow_proc_moving_in takes nothing returns nothing
  local unit u = GetEnumUnit()
  local integer i = udg_bow_p_G_i
  local real ux = GetUnitX(u)
  local real uy = GetUnitY(u)
  local real a = AngBtwCoords(ux, uy, udg_bow_p_r_x[i], udg_bow_p_r_y[i])
  local real rd = 0.
  call SetUnitX(u, ux + udg_c_bow_move_sp * Cos(a))
  call SetUnitY(u, uy + udg_c_bow_move_sp * Sin(a))
  set rd = DistBtwCoords(ux, uy, udg_bow_p_r_x[i], udg_bow_p_r_y[i])
  if rd <= udg_c_bow_move_sp then
    call GroupRemoveUnit(udg_bow_p_g_i[i], u)
    call GroupAddUnit(udg_bow_p_g_o[i], u)
    call SetUnitX(u, GetUnitX(udg_bow_p_u[i]) + rd * Cos(a))
    call SetUnitY(u, GetUnitY(udg_bow_p_u[i]) + rd * Sin(a))
    set udg_bow_p_r_x[i] = GetUnitX(udg_bow_p_u[i])
    set udg_bow_p_r_y[i] = GetUnitY(udg_bow_p_u[i])
  endif
  set u = null
endfunction

function bow_proc_moving_out takes nothing returns nothing
  local unit u = GetEnumUnit()
  local integer i = udg_bow_p_G_i
  local real ux = GetUnitX(u)
  local real uy = GetUnitY(u)
  local real a = AngBtwCoords(udg_bow_p_r_x[i], udg_bow_p_r_y[i], ux, uy)
  call SetUnitX(u, ux + udg_c_bow_move_sp * Cos(a))
  call SetUnitY(u, uy + udg_c_bow_move_sp * Sin(a))
  if DistBtwCoords(ux, uy, udg_bow_p_r_x[i], udg_bow_p_r_y[i]) >= udg_c_bow_radius then
    call GroupRemoveUnit(udg_bow_p_g_o[i], u)
    call GroupRemoveUnit(udg_bow_p_g_a, u)
    set udg_bow_p_b_d[i] = true
  endif
  set u = null
endfunction

function bow_create_rect takes integer i, real x1, real y1, real x2, real y2 returns nothing
  local trigger t1 = CreateTrigger()
  local trigger t2 = CreateTrigger()
  local region r = CreateRegion()
  if x1 > x2 then
    set udg_bow_r_minX[i] = x2-100.
    set udg_bow_r_maxX[i] = x1+100.
  else
    set udg_bow_r_minX[i] = x1-100.
    set udg_bow_r_maxX[i] = x2+100.
  endif
  if y1 > y2 then
    set udg_bow_r_minY[i] = y2
    set udg_bow_r_maxY[i] = y1
  else
    set udg_bow_r_minY[i] = y1
    set udg_bow_r_maxY[i] = y2
  endif
  set udg_bow_tr_e[i] = t1
  set udg_bow_tr_l[i] = t2
  set udg_bow_r[i] = Rect(udg_bow_r_minX[i], udg_bow_r_minY[i], udg_bow_r_maxX[i], udg_bow_r_maxY[i])
  call RegionAddRect(r, udg_bow_r[i])
  set udg_bow_G_i = i
  call GroupEnumUnitsInRect(udg_bow_g_r_r, udg_bow_r[i], Condition(function bow_rect_Filter))
  call ForGroup(udg_bow_g_r_r, function bow_rect_refresh)
  call GroupClear(udg_bow_g_r_r)
  call SaveRegionHandle(udg_Hash, GetHandleId(t1), 0, r)
  call SaveInteger(udg_Hash, GetHandleId(t1), 0, i)
  call SaveInteger(udg_Hash, GetHandleId(t2), 0, i)
  call TriggerRegisterEnterRegion(t1, r, Condition(function bow_rect_Filter))
  call TriggerRegisterLeaveRegion(t2, r, Condition(function bow_rect_Filter))
  call TriggerAddAction( t1, function bow_rect_trigger_enter )
  call TriggerAddAction( t2, function bow_rect_trigger_leave )
  set t1 = null
  set t2 = null
  set r = null
endfunction

function event_bow_create takes nothing returns nothing
  local integer i = CreateBow() //????? ?????? ? ????????
  local unit u = GetSpellAbilityUnit()
  local player own = GetOwningPlayer(u) //
  local real fa = GetUnitFacing(u) //
  local real x = GetUnitX(u)
  local real y = GetUnitY(u)
  local real z = GetCoordsZ(x, y) //
  local real cx = SX(GetUnitX(u) + udg_c_bow_create_dist * Cos(fa * 0.01745)) //
  local real cy = SY(GetUnitY(u) + udg_c_bow_create_dist * Sin(fa * 0.01745)) //
  local real cz = GetCoordsZ(cx, cy) //
  local real d_c_1_x = SX(cx + udg_c_bow_radius * Cos((fa - 90) * 0.01745)) //
  local real d_c_1_y = SY(cy + udg_c_bow_radius * Sin((fa - 90) * 0.01745)) //
  local real d_c_1_z = GetCoordsZ(d_c_1_x, d_c_1_y) //
  local real d_c_2_x = SX(cx + udg_c_bow_radius * Cos((fa + 90) * 0.01745)) //
  local real d_c_2_y = SY(cy + udg_c_bow_radius * Sin((fa + 90) * 0.01745)) //
  local real d_c_2_z = GetCoordsZ(d_c_2_x, d_c_2_y) //
  local real r = DistBtwCoords(d_c_1_x, d_c_1_y, d_c_2_x, d_c_2_y)/2
  local real a = AngBtwCoords(d_c_2_x, d_c_2_y, d_c_1_x, d_c_1_y)
  local real x_a_1 = cx + r * Cos(a - (90 * 0.01745))
  local real y_a_1 = cy + r * Sin(a - (90 * 0.01745))
  local real x_a_2 = cx + r * Cos(a + (90 * 0.01745))
  local real y_a_2 = cy + r * Sin(a + (90 * 0.01745))


  set udg_MAX_bow = udg_MAX_bow + 1 //
  set udg_all_bow[udg_MAX_bow] = i //

  if y_a_1 > y_a_2 then
    set udg_bow_x_h[i] = x_a_1
    set udg_bow_y_h[i] = y_a_1
    set udg_bow_x_l[i] = x_a_2
    set udg_bow_y_l[i] = y_a_2
  elseif y_a_1 < y_a_2 then
    set udg_bow_x_h[i] = x_a_2
    set udg_bow_y_h[i] = y_a_2
    set udg_bow_x_l[i] = x_a_1
    set udg_bow_y_l[i] = y_a_1
  else
    set udg_bow_x_h[i] = x_a_1
    set udg_bow_y_h[i] = y_a_1+1
    set udg_bow_x_l[i] = x_a_2
    set udg_bow_y_l[i] = y_a_2-1
  endif

  if d_c_1_x > d_c_2_x then
    set udg_bow_r_d_x1[i] = SX(d_c_1_x+1.)
    set udg_bow_r_d_y1[i] = d_c_1_y
    set udg_bow_r_d_x2[i] = SX(d_c_2_x-1.)
    set udg_bow_r_d_y2[i] = d_c_2_y
  else
    set udg_bow_r_d_x1[i] = SX(d_c_2_x+1.)
    set udg_bow_r_d_y1[i] = d_c_2_y
    set udg_bow_r_d_x2[i] = SX(d_c_1_x-1.)
    set udg_bow_r_d_y2[i] = d_c_1_y
  endif
  set udg_bow_b_n_d[i]=true
  set udg_bow_b_g[i]=true
  set udg_bow_b_i[i]=false
  set udg_bow_b_n_s[i]=true
  set udg_bow_b_r[i] = false
  set udg_bow_b_s_i[i]=false
  set udg_bow_c[i] = 0
  set udg_bow_caster[i]=null
  set udg_bow_d[i]=CreateUnit(own, 'h004', x, y, fa)
  set udg_bow_d_c_1[i]=CreateUnit(own, udg_c_bow_d_type_passive_b, d_c_1_x, d_c_1_y, fa) //
  set udg_bow_d_c_2[i]=CreateUnit(own, udg_c_bow_d_type_passive_b, d_c_2_x, d_c_2_y, fa) //
  set udg_bow_d_i_b[i]=null
  set udg_bow_d_m[i]=CreateUnit(own, udg_c_bow_d_type_main, x, y, fa)
  set udg_bow_r_i[i]=0
  set udg_bow_r_d_x3[i]=d_c_2_x + r * Cos(a)
  set udg_bow_r_d_y3[i]=d_c_2_y + r * Sin(a)
  set udg_bow_r_fa[i]=fa
  set udg_bow_g_a_l[i]=CreateGroup()
  set udg_bow_g_h[i]=CreateGroup()
  set udg_bow_g_l[i]=CreateGroup()
  set udg_bow_l_1[i] = AddLightningEx("DRAM", false, udg_bow_r_d_x3[i], udg_bow_r_d_y3[i], cz+95, d_c_1_x, d_c_1_y, d_c_1_z+95)
  set udg_bow_l_2[i] = AddLightningEx("DRAM", false, udg_bow_r_d_x3[i], udg_bow_r_d_y3[i], cz+95, d_c_2_x, d_c_2_y, d_c_2_z+95)
  set udg_bow_l_3[i] = AddLightningEx("LEAS", false, x, y, z+120, GetUnitX(udg_bow_d[i]), GetUnitY(udg_bow_d[i]), GetCoordsZ(GetUnitX(udg_bow_d[i]), GetUnitY(udg_bow_d[i]))+95)
  set udg_bow_r_m_x[i]=0.
  set udg_bow_r_m_y[i]=0.
  set udg_bow_r_o_d[i]=0.
  set udg_bow_own[i]=own
  set udg_bow_r[i]=null
  set udg_bow_t_d[i]=r*2
  set udg_bow_tr_e[i]=null
  set udg_bow_t_r[i]=r
  set udg_bow_u[i]=u
  set udg_bow_u_i_b[i]=null
  call SaveInteger(udg_Hash, GetHandleId(udg_bow_d[i]), 0, i)
  call SaveInteger(udg_Hash, GetHandleId(u), 0, i)
  call bow_create_rect(i, d_c_1_x, d_c_1_y, d_c_2_x, d_c_2_y)
  set udg_bow_G_i = i
  call GroupEnumUnitsInRect(udg_bow_g_r_r, udg_bow_r[i], Condition(function bow_rect_Filter_refresh))
  call ForGroup(udg_bow_g_r_r, function bow_rect_refresh)
  call GroupClear(udg_bow_g_r_r)
  if FirstOfGroup(udg_bow_g_a_l[i]) != null then
    set udg_bow_b_g_e[i] = true
  endif
  call UnitRemoveAbility(u, 'A000')
  call UnitAddAbility(u, 'A001')
  set u = null
endfunction

function event_bow_destroy takes nothing returns nothing
  local unit u = GetSpellAbilityUnit()
  local integer i = LoadInteger(udg_Hash, GetHandleId(u), 0)
  call UnitRemoveAbility(u, 'A001')
  call UnitAddAbility(u, 'A000')
  call GroupRemoveUnit(udg_bow_g_a_g, udg_bow_d_i_b[i])
  if udg_bow_u_i_b[i] != null then
    set udg_bow_b_n_s[LoadInteger(udg_Hash, GetHandleId(udg_bow_u_i_b[i]), 0)] = true
  endif
  set udg_bow_b_n_d[i] = false
  set udg_bow_s_b_n_d[udg_bow_r_i[i]] = false
  set u = null
endfunction

function event_bow_proc takes nothing returns nothing
  local unit u = GetSpellAbilityUnit()
  local integer i = CreateProc()
  local integer id = LoadInteger(udg_Hash, GetHandleId(u), 0)
  local real x = GetUnitX(udg_bow_s_d[udg_bow_r_i[id]])
  local real y = GetUnitY(udg_bow_s_d[udg_bow_r_i[id]])
  call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl", x, y))
  set udg_MAX_bow_p = udg_MAX_bow_p + 1
  set udg_all_bow_p[udg_MAX_bow_p] = i
  set udg_bow_p_u[i] = u
  set udg_bow_p_g_i[i] = CreateGroup()
  set udg_bow_p_g_o[i] = CreateGroup()
  set udg_bow_p_G_u = u
  call GroupEnumUnitsInRange(udg_bow_p_g_i[i], x, y, udg_c_bow_radius, Condition(function bow_proc_Filter))
  if FirstOfGroup(udg_bow_p_g_i[i]) != null then
    call ForGroup(udg_bow_p_g_i[i], function bow_proc_enum)
    set udg_bow_p_r_x[i] = x
    set udg_bow_p_r_y[i] = y
  else
    call RemoveProc(i)
  endif
  if udg_bow_c[id] <= 2 then
    set udg_bow_c[id] = udg_bow_c[id] + 1
  else
    call UnitRemoveAbility(u, 'A003')
    call UnitAddAbility(u, 'A001')
  endif
  set u = null
endfunction


function spell_bow takes integer i returns boolean
  local real d = DistBtwCoords(GetUnitX(udg_bow_d[i]), GetUnitY(udg_bow_d[i]), GetUnitX(udg_bow_u[i]), GetUnitY(udg_bow_u[i]))
  local real d_l_c = 0.
  local real a = AngBtwCoords(GetUnitX(udg_bow_u[i]), GetUnitY(udg_bow_u[i]), GetUnitX(udg_bow_d[i]), GetUnitY(udg_bow_d[i]))
  local real dx = GetUnitX(udg_bow_d_i_b[i])
  local real dy = GetUnitY(udg_bow_d_i_b[i])
  local real ux = GetUnitX(udg_bow_u_i_b[i])
  local real uy = GetUnitY(udg_bow_u_i_b[i])
  local real y = 0.
  local integer id = LoadInteger(udg_Hash, GetHandleId(udg_bow_d_i_b[i]), 0)
  local real r = 250.
  local integer s_i = 0
  local real fa = 0.
  if udg_bow_b_n_d[i] then
    set udg_bow_G_i = i
    if udg_bow_b_g_e[i] then
      call ForGroup(udg_bow_g_a_l[i], function bow_rect_group_loop)
      if udg_bow_d_i_b[i] != null then
        call RemoveUnit(udg_bow_d_c_1[i])
        call RemoveUnit(udg_bow_d_c_2[i])
        set udg_bow_d_c_1[i] = CreateUnit(udg_bow_own[i], udg_c_bow_d_type_active_b, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_fa[i]) //
        set udg_bow_d_c_2[i] = CreateUnit(udg_bow_own[i], udg_c_bow_d_type_active_b, udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], udg_bow_r_fa[i]) //
        call GroupAddUnit(udg_bow_g_a_g, udg_bow_d_i_b[i])
        call GroupRemoveUnit(udg_bow_g_a_l[i], udg_bow_d_i_b[i])
        set id = LoadInteger(udg_Hash, GetHandleId(udg_bow_d_i_b[i]), 0)
        set udg_bow_u_i_b[i] = udg_bow_u[id]
        set dx = GetUnitX(udg_bow_d_i_b[i])
        set dy = GetUnitY(udg_bow_d_i_b[i])
        set ux = GetUnitX(udg_bow_u_i_b[i])
        set uy = GetUnitY(udg_bow_u_i_b[i])
        call DestroyLightning(udg_bow_l_1[i])
        call DestroyLightning(udg_bow_l_2[i])
        set udg_bow_l_1[i] = AddLightningEx("DRAL", false, dx, dy, GetCoordsZ(dx, dy)+95, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], GetCoordsZ(udg_bow_r_d_x1[i], udg_bow_r_d_y1[i])+95)
        set udg_bow_l_2[i] = AddLightningEx("DRAL", false, dx, dy, GetCoordsZ(dx, dy)+95, udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], GetCoordsZ(udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])+95)
        set d = DistBtwCoords(dx, dy, ux, uy)
        set udg_bow_b_g_e[i] = false
        call DisableTrigger(udg_bow_tr_e[i])
        set udg_bow_b_i[i] = true
        set udg_bow_b_s_i[i] = true
          set udg_bow_b_n_s[id] = false
      endif
    else
      call ForGroup(udg_bow_g_a_l[i], function bow_rect_group_loop_if_in)
    endif

    if udg_bow_b_i[i] then
      if bow_rect_unit_in(i) then
        call GroupRemoveUnit(udg_bow_g_a_g, udg_bow_d_i_b[i])
        call GroupAddUnit(udg_bow_g_a_l[i], udg_bow_d_i_b[i])
        set udg_bow_b_i[i] = false
        set udg_bow_b_g_e[i] = true
        call EnableTrigger(udg_bow_tr_e[i])
        set udg_bow_b_s_i[i] = false
        set udg_bow_b_n_s[id] = true
        set udg_bow_d_i_b[i] = null
        call RemoveUnit(udg_bow_d_c_1[i])
        call RemoveUnit(udg_bow_d_c_2[i])
        set udg_bow_d_c_1[i] = CreateUnit(udg_bow_own[i], udg_c_bow_d_type_passive_b, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_fa[i]) //
        set udg_bow_d_c_2[i] = CreateUnit(udg_bow_own[i], udg_c_bow_d_type_passive_b, udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], udg_bow_r_fa[i]) //
        call DestroyLightning(udg_bow_l_1[i])
        call DestroyLightning(udg_bow_l_2[i])
        set udg_bow_l_1[i] = AddLightningEx("DRAM", false, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], GetCoordsZ(udg_bow_r_d_x1[i], udg_bow_r_d_y1[i])+95, udg_bow_r_d_x3[i], udg_bow_r_d_y3[i], GetCoordsZ(udg_bow_r_d_x3[i], udg_bow_r_d_y3[i])+95)
        set udg_bow_l_2[i] = AddLightningEx("DRAM", false, udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], GetCoordsZ(udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])+95, udg_bow_r_d_x3[i], udg_bow_r_d_y3[i], GetCoordsZ(udg_bow_r_d_x3[i], udg_bow_r_d_y3[i])+95)
        call GroupClear(udg_bow_g_a_l[i])
        call GroupClear(udg_bow_g_l[i])
        call GroupClear(udg_bow_g_h[i])
        call GroupEnumUnitsInRect(udg_bow_g_r_r, udg_bow_r[i], Condition(function bow_rect_Filter_refresh))
        call ForGroup(udg_bow_g_r_r, function bow_rect_refresh)
        call GroupClear(udg_bow_g_r_r)
      endif
    endif

    if udg_bow_b_s_i[i] then
      set d = DistBtwCoords(dx, dy, ux, uy)
      set d_l_c = DistBtwLineCords(udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], ux, uy)
      if IsUnitInGroup(udg_bow_d_i_b[i], udg_bow_g_h[i]) then
        set a = AngBtwCoords(ux, uy, udg_bow_x_l[i], udg_bow_y_l[i])
      elseif IsUnitInGroup(udg_bow_d_i_b[i], udg_bow_g_l[i]) then
        set a = AngBtwCoords(ux, uy, udg_bow_x_h[i], udg_bow_y_h[i])
        set d_l_c = -d_l_c
      endif
      if d_l_c < r then
          call bow_less_than_line(i)
      else
        set udg_bow_r_m_x[i] = ux + 250. * Cos(a)
        set udg_bow_r_m_y[i] = uy + 250. * Sin(a)
      endif
      call SetUnitX(udg_bow_d_i_b[i], udg_bow_r_m_x[i])
      call SetUnitY(udg_bow_d_i_b[i], udg_bow_r_m_y[i])
      call SetUnitX(udg_bow_d_m[id], udg_bow_r_m_x[i])
      call SetUnitY(udg_bow_d_m[id], udg_bow_r_m_y[i])
      call SetUnitFacing(udg_bow_d_m[id], (a+3.14159)*57.29578)
      call MoveLightningEx(udg_bow_l_3[id], false, GetUnitX(udg_bow_u_i_b[i]), GetUnitY(udg_bow_u_i_b[i]), GetCoordsZ(GetUnitX(udg_bow_u_i_b[i]), GetUnitY(udg_bow_u_i_b[i]))+95., GetUnitX(udg_bow_d_i_b[i]), GetUnitY(udg_bow_d_i_b[i]), GetCoordsZ(GetUnitX(udg_bow_d_i_b[i]), GetUnitY(udg_bow_d_i_b[i]))+95.)
      call MoveLightningEx(udg_bow_l_1[i], false, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], GetCoordsZ(udg_bow_r_d_x1[i], udg_bow_r_d_y1[i])+95, GetUnitX(udg_bow_d_i_b[i]), GetUnitY(udg_bow_d_i_b[i]), GetCoordsZ(GetUnitX(udg_bow_d_i_b[i]), GetUnitY(udg_bow_d_i_b[i]))+95)
      call MoveLightningEx(udg_bow_l_2[i], false, udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], GetCoordsZ(udg_bow_r_d_x2[i], udg_bow_r_d_y1[i])+95, GetUnitX(udg_bow_d_i_b[i]), GetUnitY(udg_bow_d_i_b[i]), GetCoordsZ(GetUnitX(udg_bow_d_i_b[i]), GetUnitY(udg_bow_d_i_b[i]))+95)
      if DistBtwCoords(udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], dx, dy) > udg_bow_t_d[i] or DistBtwCoords(udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], dx, dy) > udg_bow_t_d[i] then
        set s_i = CreateSphere()
        set udg_MAX_bow_s = udg_MAX_bow_s + 1 //
        set udg_all_bow_s[udg_MAX_bow_s] = s_i //
        set udg_bow_r_i[id]= s_i
        set udg_bow_s_r_i[s_i]= id
        set udg_bow_s_u[s_i] = udg_bow_u_i_b[i]
        set udg_bow_s_r_m_x[s_i]=dx
        set udg_bow_s_r_m_y[s_i]=dy
        set udg_bow_s_r_sp[s_i]=d_l_c
        set udg_bow_s_r_sp_m[s_i] = d_l_c * 0.005
        set udg_bow_s_b_n_d[s_i] = true

        set udg_bow_b_r[i] = true
        set udg_bow_b_g_e[i] = false
        set udg_bow_b_i[i]=false
        set udg_bow_b_s_i[i]=false
        set fa = GetUnitFacing(udg_bow_u_i_b[i])
        call UnitRemoveAbility(udg_bow_u_i_b[i], 'A001')
        call UnitAddAbility(udg_bow_u_i_b[i], 'A003')
        call DestroyLightning(udg_bow_l_3[id])
        set udg_bow_s_d[s_i]=udg_bow_d_m[id]
        if IsUnitInGroup(udg_bow_d_i_b[i], udg_bow_g_h[i]) then
          set a = AngBtwCoords(udg_bow_r_m_x[i], udg_bow_r_m_y[i], udg_bow_x_l[i], udg_bow_y_l[i])
          call GroupAddUnit(udg_bow_g_h[i], udg_bow_s_d[s_i])
        else
          set a = AngBtwCoords(udg_bow_r_m_x[i], udg_bow_r_m_y[i], udg_bow_x_h[i], udg_bow_y_h[i])
          call GroupAddUnit(udg_bow_g_l[i], udg_bow_s_d[s_i])
        endif
        set udg_bow_s_r_a[s_i]=a
        call RemoveUnit(udg_bow_d_i_b[i])
        set udg_bow_d_i_b[i]=null
        set udg_bow_u_i_b[i]=null
      endif
    endif

    if udg_bow_b_n_s[i] then
      set d = DistBtwCoords(GetUnitX(udg_bow_d[i]), GetUnitY(udg_bow_d[i]), GetUnitX(udg_bow_u[i]), GetUnitY(udg_bow_u[i]))
      set a = AngBtwCoords(GetUnitX(udg_bow_u[i]), GetUnitY(udg_bow_u[i]), GetUnitX(udg_bow_d[i]), GetUnitY(udg_bow_d[i]))
      set udg_bow_r_m_x[i] = GetUnitX(udg_bow_u[i]) + 250. * Cos(a)
      set udg_bow_r_m_y[i] = GetUnitY(udg_bow_u[i]) + 250. * Sin(a)
      if d > 250. then
        call SetUnitX(udg_bow_d[i], udg_bow_r_m_x[i])
        call SetUnitY(udg_bow_d[i], udg_bow_r_m_y[i])
        call SetUnitX(udg_bow_d_m[i], udg_bow_r_m_x[i])
        call SetUnitY(udg_bow_d_m[i], udg_bow_r_m_y[i])
      endif
      call SetUnitFacing(udg_bow_d_m[i], (a+bj_PI)*57.29578)
      call MoveLightningEx(udg_bow_l_3[i], false, GetUnitX(udg_bow_u[i]), GetUnitY(udg_bow_u[i]), GetCoordsZ(GetUnitX(udg_bow_u[i]), GetUnitY(udg_bow_u[i]))+95., GetUnitX(udg_bow_d[i]), GetUnitY(udg_bow_d[i]), GetCoordsZ(GetUnitX(udg_bow_d[i]), GetUnitY(udg_bow_d[i]))+95.)
    endif

    if udg_bow_b_r[i] then
      set s_i = udg_bow_r_i[i]
      set ux = GetUnitX(udg_bow_s_d[s_i])
      set uy = GetUnitY(udg_bow_s_d[s_i])
      set y = YCoordOnLine(ux, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])
      if IsUnitInGroup(udg_bow_s_d[s_i], udg_bow_g_h[i]) then
        if uy <= y then
          call GroupClear(udg_bow_g_a_l[i])
          call GroupClear(udg_bow_g_l[i])
          call GroupClear(udg_bow_g_h[i])
          set udg_bow_r_m_x[i]=0.
          set udg_bow_r_m_y[i]=0.
          call RemoveUnit(udg_bow_d_c_1[i])
          call RemoveUnit(udg_bow_d_c_2[i])
          set udg_bow_d_c_1[i] = CreateUnit(udg_bow_own[i], udg_c_bow_d_type_passive_b, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_fa[i]) //
          set udg_bow_d_c_2[i] = CreateUnit(udg_bow_own[i], udg_c_bow_d_type_passive_b, udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], udg_bow_r_fa[i]) //
          call DestroyLightning(udg_bow_l_1[i])
          call DestroyLightning(udg_bow_l_2[i])
          set udg_bow_l_1[i] = AddLightningEx("DRAM", false, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], GetCoordsZ(udg_bow_r_d_x1[i], udg_bow_r_d_y1[i])+95, ux, y, GetCoordsZ(ux, y)+95)
          set udg_bow_l_2[i] = AddLightningEx("DRAM", false, udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], GetCoordsZ(udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])+95, ux, y, GetCoordsZ(ux, y)+95)
          set udg_bow_G_i = i
          call GroupEnumUnitsInRect(udg_bow_g_r_r, udg_bow_r[i], Condition(function bow_rect_Filter_refresh))
          call ForGroup(udg_bow_g_r_r, function bow_rect_refresh)
          call GroupClear(udg_bow_g_r_r)
          if FirstOfGroup(udg_bow_g_a_l[i]) != null then
             set udg_bow_b_g_e[i] = true
          endif
          set udg_bow_b_r[i] = false
          call EnableTrigger(udg_bow_tr_e[i])
          call MoveLightningEx(udg_bow_l_1[i], false, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], GetCoordsZ(udg_bow_r_d_x1[i], udg_bow_r_d_y1[i])+95, udg_bow_r_d_x3[i], udg_bow_r_d_y3[i], GetCoordsZ(udg_bow_r_d_x3[i], udg_bow_r_d_y3[i])+95)
          call MoveLightningEx(udg_bow_l_2[i], false, udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], GetCoordsZ(udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])+95, udg_bow_r_d_x3[i], udg_bow_r_d_y3[i], GetCoordsZ(udg_bow_r_d_x3[i], udg_bow_r_d_y3[i])+95)
        else
          call MoveLightningEx(udg_bow_l_1[i], false, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], GetCoordsZ(udg_bow_r_d_x1[i], udg_bow_r_d_y1[i])+95, ux, uy, GetCoordsZ(ux, uy)+95)
          call MoveLightningEx(udg_bow_l_2[i], false, udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], GetCoordsZ(udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])+95, ux, uy, GetCoordsZ(ux, uy)+95)
        endif
      else
        if uy > y then
          call GroupClear(udg_bow_g_a_l[i])
          call GroupClear(udg_bow_g_l[i])
          call GroupClear(udg_bow_g_h[i])
          set udg_bow_r_m_x[i]=0.
          set udg_bow_r_m_y[i]=0.
          call RemoveUnit(udg_bow_d_c_1[i])
          call RemoveUnit(udg_bow_d_c_2[i])
          set udg_bow_d_c_1[i] = CreateUnit(udg_bow_own[i], udg_c_bow_d_type_passive_b, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], udg_bow_r_fa[i]) //
          set udg_bow_d_c_2[i] = CreateUnit(udg_bow_own[i], udg_c_bow_d_type_passive_b, udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], udg_bow_r_fa[i]) //
          call DestroyLightning(udg_bow_l_1[i])
          call DestroyLightning(udg_bow_l_2[i])
          set udg_bow_l_1[i] = AddLightningEx("DRAM", false, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], GetCoordsZ(udg_bow_r_d_x1[i], udg_bow_r_d_y1[i])+95, ux, y, GetCoordsZ(ux, y)+95)
          set udg_bow_l_2[i] = AddLightningEx("DRAM", false, udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], GetCoordsZ(udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])+95, ux, y, GetCoordsZ(ux, y)+95)
          call GroupEnumUnitsInRect(udg_bow_g_r_r, udg_bow_r[i], Condition(function bow_rect_Filter_refresh))
          set udg_bow_G_i = i
          call ForGroup(udg_bow_g_r_r, function bow_rect_refresh)
          call GroupClear(udg_bow_g_r_r)
          if FirstOfGroup(udg_bow_g_a_l[i]) != null then
            set udg_bow_b_g_e[i] = true
          endif
          set udg_bow_b_r[i] = false
          call EnableTrigger(udg_bow_tr_e[i])
          call MoveLightningEx(udg_bow_l_1[i], false, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], GetCoordsZ(udg_bow_r_d_x1[i], udg_bow_r_d_y1[i])+95, udg_bow_r_d_x3[i], udg_bow_r_d_y3[i], GetCoordsZ(udg_bow_r_d_x3[i], udg_bow_r_d_y3[i])+95)
          call MoveLightningEx(udg_bow_l_2[i], false, udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], GetCoordsZ(udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])+95, udg_bow_r_d_x3[i], udg_bow_r_d_y3[i], GetCoordsZ(udg_bow_r_d_x3[i], udg_bow_r_d_y3[i])+95)
        else
          call MoveLightningEx(udg_bow_l_1[i], false, udg_bow_r_d_x1[i], udg_bow_r_d_y1[i], GetCoordsZ(udg_bow_r_d_x1[i], udg_bow_r_d_y1[i])+95, ux, uy, GetCoordsZ(ux, uy)+95)
          call MoveLightningEx(udg_bow_l_2[i], false, udg_bow_r_d_x2[i], udg_bow_r_d_y2[i], GetCoordsZ(udg_bow_r_d_x2[i], udg_bow_r_d_y2[i])+95, ux, uy, GetCoordsZ(ux, uy)+95)
        endif
      endif
    endif

  else
    return true
  endif
  return false
endfunction

function spell_bow_sphere takes integer i returns boolean
  local real b_a = SAX(udg_bow_s_r_m_x[i], udg_bow_s_r_a[i])
  local real ux = 0.
  local real uy = 0.
  local real fa = 0.
  if b_a == udg_bow_s_r_a[i] then
    set udg_bow_s_r_a[i] = SAY(udg_bow_s_r_m_y[i], udg_bow_s_r_a[i])
  else
    set udg_bow_s_r_a[i] = b_a
  endif
  set udg_bow_s_r_m_x[i] = SX(GetUnitX(udg_bow_s_d[i]) + udg_bow_s_r_sp[i]*0.05 * Cos(udg_bow_s_r_a[i]))
  set udg_bow_s_r_m_y[i] = SY(GetUnitY(udg_bow_s_d[i]) + udg_bow_s_r_sp[i]*0.05 * Sin(udg_bow_s_r_a[i]))
  call SetUnitX(udg_bow_s_d[i], udg_bow_s_r_m_x[i])
  call SetUnitY(udg_bow_s_d[i], udg_bow_s_r_m_y[i])
  call SetUnitFacing(udg_bow_s_d[i], udg_bow_s_r_a[i]*57.29578)
  set udg_bow_s_r_sp[i] = udg_bow_s_r_sp[i] - udg_bow_s_r_sp_m[i]
  if udg_bow_s_r_sp[i] < 1. then
    if udg_bow_s_b_n_d[i] then
      set ux = GetUnitX(udg_bow_u[udg_bow_s_r_i[i]])
      set uy = GetUnitY(udg_bow_u[udg_bow_s_r_i[i]])
      set fa = GetUnitFacing(udg_bow_u[udg_bow_s_r_i[i]])
      call UnitRemoveAbility(udg_bow_u[udg_bow_s_r_i[i]], 'A003')
      call UnitAddAbility(udg_bow_u[udg_bow_s_r_i[i]], 'A001')
      set udg_bow_d[udg_bow_s_r_i[i]]=CreateUnit(udg_bow_own[udg_bow_s_r_i[i]], 'h004', ux, uy, fa)
      set udg_bow_d_m[udg_bow_s_r_i[i]]=CreateUnit(udg_bow_own[udg_bow_s_r_i[i]], udg_c_bow_d_type_main, ux, uy, fa)
      set udg_bow_l_3[udg_bow_s_r_i[i]] = AddLightningEx("LEAS", false, ux, uy, GetCoordsZ(ux, uy), GetUnitX(udg_bow_d[udg_bow_s_r_i[i]]), GetUnitY(udg_bow_d[udg_bow_s_r_i[i]]), GetCoordsZ(GetUnitX(udg_bow_d[udg_bow_s_r_i[i]]), GetUnitY(udg_bow_d[udg_bow_s_r_i[i]]))+95)
      call SaveInteger(udg_Hash, GetHandleId(udg_bow_d[udg_bow_s_r_i[i]]), 0, udg_bow_s_r_i[i])
      set udg_bow_b_n_s[udg_bow_s_r_i[i]] = true
    endif
    return true
  endif
  return false
endfunction

function spell_bow_proc takes integer i returns boolean
  set udg_bow_p_G_i = i
  call ForGroup(udg_bow_p_g_i[i], function bow_proc_moving_in)
  call ForGroup(udg_bow_p_g_o[i], function bow_proc_moving_out)
  return udg_bow_p_b_d[i]
endfunction

function Timer takes nothing returns nothing
  local integer i = 0

//===============================================================\\
  loop
    exitwhen i > udg_MAX_bow
    if spell_bow(udg_all_bow[i]) then
      call RemoveBow(udg_all_bow[i])
      set udg_all_bow[i] = udg_all_bow[udg_MAX_bow]
      set udg_MAX_bow = udg_MAX_bow - 1
    else
      set i = i + 1
    endif
  endloop

set i = 0

  loop
    exitwhen i > udg_MAX_bow_s
    if spell_bow_sphere(udg_all_bow_s[i]) then
      call RemoveSphere(udg_all_bow_s[i])
      set udg_all_bow_s[i] = udg_all_bow_s[udg_MAX_bow_s]
      set udg_MAX_bow_s = udg_MAX_bow_s - 1
    else
      set i = i + 1
    endif
  endloop

set i = 0

  loop
    exitwhen i > udg_MAX_bow_p
    if spell_bow_proc(udg_all_bow_p[i]) then
      call RemoveProc(udg_all_bow_p[i])
      set udg_all_bow_p[i] = udg_all_bow_p[udg_MAX_bow_p]
      set udg_MAX_bow_p = udg_MAX_bow_p - 1
    else
      set i = i + 1
    endif
  endloop
//===============================================================\\

if (udg_MAX_bow == -1 and udg_MAX_bow_s == -1) and udg_MAX_bow_p == -1 then
  call PauseTimer(udg_t)
endif
endfunction

function Spell_Main takes nothing returns nothing
  local integer spell = GetSpellAbilityId()
  if spell == 'A000' then
    call ExecuteFunc("event_bow_create")
  elseif spell == 'A001' then
    call ExecuteFunc("event_bow_destroy")
  elseif spell == 'A003' then
    call ExecuteFunc("event_bow_proc")
  endif
  if udg_MAX_bow == 0 or udg_MAX_bow_s == 0 or udg_MAX_bow_p == 0 then
    call TimerStart(udg_t, .025, true, function Timer)
  endif
endfunction

function InitTrig_Spell takes nothing returns nothing
  local trigger t = CreateTrigger()
  call TriggerRegisterPlayerUnitEvent(t, Player(0), ConvertPlayerUnitEvent(274), null)
  call TriggerRegisterPlayerUnitEvent(t, Player(1), ConvertPlayerUnitEvent(274), null)
  call TriggerRegisterPlayerUnitEvent(t, Player(2), ConvertPlayerUnitEvent(274), null)
  call TriggerRegisterPlayerUnitEvent(t, Player(3), ConvertPlayerUnitEvent(274), null)
  call TriggerRegisterPlayerUnitEvent(t, Player(4), ConvertPlayerUnitEvent(274), null)
  call TriggerRegisterPlayerUnitEvent(t, Player(5), ConvertPlayerUnitEvent(274), null)
  call TriggerRegisterPlayerUnitEvent(t, Player(6), ConvertPlayerUnitEvent(274), null)
  call TriggerRegisterPlayerUnitEvent(t, Player(7), ConvertPlayerUnitEvent(274), null)
  call TriggerRegisterPlayerUnitEvent(t, Player(8), ConvertPlayerUnitEvent(274), null)
  call TriggerRegisterPlayerUnitEvent(t, Player(9), ConvertPlayerUnitEvent(274), null)
  call TriggerRegisterPlayerUnitEvent(t, Player(10), ConvertPlayerUnitEvent(274), null)
  call TriggerRegisterPlayerUnitEvent(t, Player(11), ConvertPlayerUnitEvent(274), null)
  call TriggerAddAction( t, function Spell_Main )
endfunction

globals //Сделано специально чтобы спелл был настраиваемым, так как
//в куче кода фиг найдешь что и где изменять, если понадобиться.
  string const_effect = "Abilities\\Spells\\Other\\TalkToMe\\TalkToMe.mdl" //путь к нашему эффекту 
  real const_delay = 2. //задержка перед удалением эффекта и неуязвимости
  real const_radius = 500. //радиус в котором наносим урон
  real const_amount = 150. //количество урона
endglobals


function Cond takes nothing returns boolean //функция проверки того, какой спелл был скастован
//хотя можно и нужно было проверять в "Действиях" если наших скилов было бы много
  return GetSpellAbilityId() == 'A000'
endfunction

function Act takes nothing returns nothing
  local unit u = GetSpellAbilityUnit( ) //заносим в переменную нашего кастера, так как действия над ним будут выполняться больше одного раза
  local real x = GetUnitX( u ) //заносим координату Х
  local real y = GetUnitY( u ) //заносим координату Y
  local effect eff = AddSpecialEffectTarget( const_effect, u, "overhead" ) //создаем наш эффект прикрепленный у юнита к башке
  call SetUnitInvulnerable( u, true ) //делаем юнит неуязвимым
  call UnitDamagePoint( u, const_delay, const_radius, x, y, const_amount, true, false, ATTACK_TYPE_SIEGE, DAMAGE_TYPE_SLOW_POISON, WEAPON_TYPE_WHOKNOWS ) //наносим урон
  call TriggerSleepAction( const_delay ) //ставим задержку перед удалением эффекта и неуязвимости
  call SetUnitInvulnerable( u, false ) //удаляем неуязвимость
  call DestroyEffect( eff ) //удаляем эффект
  set u = null //обнуляем локальные переменные
  set eff = null //обнуляем локальные переменные
endfunction

//===========================================================================
function InitTrig_skill takes nothing returns nothing
  local trigger t = CreateTrigger(  ) //создаем триггер в локальнойпеременной я сделал так лишь для понимания, если вам нужно будет удалять или выключать триггер в игре то нужно занести в глобалку
//Это регистрация события что спел скастован, функции раскрываем по максимуму и константы тоже.
  call TriggerRegisterPlayerUnitEvent(t, Player(0), ConvertPlayerUnitEvent(274), Condition(function Cond))
  call TriggerRegisterPlayerUnitEvent(t, Player(1), ConvertPlayerUnitEvent(274), Condition(function Cond))
  call TriggerRegisterPlayerUnitEvent(t, Player(2), ConvertPlayerUnitEvent(274), Condition(function Cond))
  call TriggerRegisterPlayerUnitEvent(t, Player(3), ConvertPlayerUnitEvent(274), Condition(function Cond))
  call TriggerRegisterPlayerUnitEvent(t, Player(4), ConvertPlayerUnitEvent(274), Condition(function Cond))
  call TriggerRegisterPlayerUnitEvent(t, Player(5), ConvertPlayerUnitEvent(274), Condition(function Cond))
  call TriggerRegisterPlayerUnitEvent(t, Player(6), ConvertPlayerUnitEvent(274), Condition(function Cond))
  call TriggerRegisterPlayerUnitEvent(t, Player(7), ConvertPlayerUnitEvent(274), Condition(function Cond))
  call TriggerRegisterPlayerUnitEvent(t, Player(8), ConvertPlayerUnitEvent(274), Condition(function Cond))
  call TriggerRegisterPlayerUnitEvent(t, Player(9), ConvertPlayerUnitEvent(274), Condition(function Cond))
  call TriggerRegisterPlayerUnitEvent(t, Player(10), ConvertPlayerUnitEvent(274), Condition(function Cond))
  call TriggerRegisterPlayerUnitEvent(t, Player(11), ConvertPlayerUnitEvent(274), Condition(function Cond))
  call TriggerAddAction( t, function Act ) //Выставляем действие
  set t = null //обнуляем переменную
endfunction