function ArrowMoveFunc takes nothing returns nothing
 local timer t=GetExpiredTimer()
 local unit u=GetHandleUnit(t,"unit")
 local real dist=GetHandleReal(t,"distance")
 local real speed=GetHandleReal(t,"speed")
 local real nd=GetHandleReal(t,"nd")
 local real ang=GetUnitFacing(u)
 local location tl = GetUnitLoc(u)
 local player tt = GetOwningPlayer(u)
 local group en
 local unit du
 set en = GetUnitsInRangeOfLocMatching(30., tl, null)
 loop
     set du = FirstOfGroup(en)
     exitwhen du == null
     if (not IsPlayerAlly(tt, GetOwningPlayer(du))) or (not IsUnitType(du, UNIT_TYPE_HERO))  then
         call UnitDamageTarget(u, du, 500., true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)    
     endif
     call GroupRemoveUnit(en,du)
     endloop
 call DestroyGroup(en)
 set en = null
 if nd<dist and RectContainsCoords(bj_mapInitialPlayableArea, GetLocationX(tl), GetLocationY(tl)) and (GetUnitState(u, UNIT_STATE_LIFE) > 0.) then
  call SetUnitX(u,GetLocationX(tl)+speed*Cos(ang*bj_DEGTORAD))
  call SetUnitY(u,GetLocationY(tl)+speed*Sin(ang*bj_DEGTORAD))
  call SetHandleReal(t,"nd",nd+speed)
 else
  call KillUnit(u)
  call PauseTimer(t)
  call FlushHandleLocals(t)
  call DestroyTimer(t)
 endif
 call RemoveLocation(tl)
 set tl = null
 set t=null
 set u=null
 set tt=null
endfunction

function LaunchArrow takes unit whichUnit,real speed,real dist returns nothing
 local timer t = CreateTimer()
 local integer ind = GetConvertedPlayerId(GetOwningPlayer(whichUnit))
 //call UnitApplyTimedLife( whichUnit, 'BTLF', 8. )
 call SetHandleHandle(t,"unit",whichUnit)
 call SetHandleReal(t,"speed",speed)
 call SetHandleReal(t,"distance",dist)
 call TimerStart(t,.02,true,function ArrowMoveFunc)
 set t=null
 set udg_P_Shots[ind] = udg_P_Shots[ind] + 1
endfunction

local group en = CreateGroup()

call KillUnit(u)

call RemoveUnit(u)

function GetUnitsInRangeOfLocMatching takes real radius, location whichLocation, boolexpr filter returns group
    local group g = CreateGroup()
    call GroupEnumUnitsInRangeOfLoc(g, whichLocation, radius, filter)
    call DestroyBoolExpr(filter)
    return g
endfunction

nd<dist

function ArrowMoveFuncTargets takes nothing returns boolean
    return (not IsPlayerAlly(udg_AMS_p, GetOwningPlayer(GetFilterUnit()))) or (not IsUnitType(GetFilterUnit(), UNIT_TYPE_HERO))
endfunction

function ArrowMoveFuncStrike takes nothing returns nothing
    call UnitDamageTarget(udg_AMS_u, GetEnumUnit(), 500., true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
endfunction

function ArrowMoveFunc takes nothing returns nothing
 local timer t=GetExpiredTimer()
 local real dist=GetHandleReal(t,"distance")
 local real speed=GetHandleReal(t,"speed")
 local real nd=GetHandleReal(t,"nd")
 local real ang
 local real X
 local real Y
 local group en = CreateGroup()
 set udg_AMS_u = GetHandleUnit(t,"unit")
 set udg_AMS_p = GetOwningPlayer(udg_AMS_u)
 set ang=GetUnitFacing(udg_AMS_u)*bj_DEGTORAD
 set X=GetUnitX(udg_AMS_u)
 set Y=GetUnitY(udg_AMS_u)
 call GroupEnumUnitsInRange(en, X, Y, 30., udg_AMS_f)
 call ForGroup(en, function ArrowMoveFuncStrike)
 call DestroyGroup(en)
 set en = null
 if nd<dist and RectContainsCoords(bj_mapInitialPlayableArea, X, Y) and (GetUnitState(udg_AMS_u, UNIT_STATE_LIFE) > 0.) then
  call SetUnitX(udg_AMS_u,X+speed*Cos(ang))
  call SetUnitY(udg_AMS_u,Y+speed*Sin(ang))
  call SetHandleReal(t,"nd",nd+speed)
 else
  call KillUnit(udg_AMS_u)
  call PauseTimer(t)
  call FlushHandleLocals(t)
  call DestroyTimer(t)
 endif
 set t=null
endfunction

set udg_AMS_f=Condition(function ArrowMoveFuncTargets)

local real dist=GetHandleReal(t,"distance")

// то что нам понадобится
globals
 unit array Unit
 real array speed
 real array dist
 real array nd
endglobals

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

// сам код

function ArrowCallBack takes nothing returns nothing
 local timer t=GetExpiredTimer()
 local integer h=H2I(t)-0x100000
 if IsUnitEnemy(Unit[h],GetEnumUnit()) or not IsUnitType(GetEnumUnit(), UNIT_TYPE_HERO) and GetWidgetLife(GetEnumUnit())>0.405 then
         call UnitDamageTarget(Unit[h], GetEnumUnit(), 500., true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL,  WEAPON_TYPE_WHOKNOWS)   
 set t=null
endfunction

function ArrowMoveFunc takes nothing returns nothing
 local timer t=GetExpiredTimer()
 local integer h=H2I(t)-0x100000
 local real ang=GetUnitFacing(Unit[h])*bj_DEGTORAD
 local real x=GetUnitX(Unit[h])
 local real y=GetUnitY(Unit[h])
 local group en=CreateGroup()

 call GroupEnumUnitsInRange(60., x,y, null)
 call ForGroup(en, function ArrowCallBack)   
 call DestroyGroup(en)
 set en = null
 if nd[h]<dist[h] and RectContainsCoords(bj_mapInitialPlayableArea, x, y) and GetWidgetLife(Unit[h]) > 0.405 then
  call SetUnitX(Unit[h],x+speed[h]*Cos(ang))
  call SetUnitY(Unit[h],y+speed[h]*Sin(ang))
  set nd[h]=nd[h]+speed[h]
 else
// освобождаем память
  set Unit[h]=null
  set dist[h]=0
  set speed[h]=0
  set nd[h]=0
  call KillUnit(Unit[h])
  call DestroyTimer(t)
 endif

 set t=null
endfunction

function LaunchArrow takes unit whichUnit,real speed,real dist returns nothing
 local timer t = CreateTimer()
 local integer h=H2I(t)-0x100000
 set Unit[h]=whichUnit
 set speed[h]=speed
 set dist[h]=dist
 set nd[h]=0
 call TimerStart(t,.04,true,function ArrowMoveFunc)
 set t=null
endfunction