[polopok]

в принципе ,то как я реализовал меня устраивает , просто думал может кто по другому сделал (краше что ли).
в основном цель для стрелы одна и по пути не в кого попадать не будет.
разве что при массовом обстреле сетки ячеек 3х3 ,для каждой ячейки будет своя стрела .
можете посмотреть код для одной цели в [оффтопе]

Graphics 1024, 768
SetBuffer BackBuffer()
degree2# = 0
degree# = -45
speed# = 8
x#=200
y#=400
x0#=200
y0#=400
x1# = 600 : y1# = 600 

ClsColor 111,111,111
While Not KeyHit(1)
     Cls
	mx#=MouseX():my#=MouseY()     

	dx#=(x1#)-(x#-ax#)
	dy#=(y1#+ay#)-(y#-ay#)   ;(my+ay)-(y#-ay)
	
	d# = Sqr(dx#*dx# +dy#*dy#)	
	degree#=ATan2(dy,dx) 

	vx# =Sin(degree#)
	vy# =Cos(degree#)

If d>5	Then
		ay# = -(d#/5) 
		ax# = -(d#/5) 
	
	y# = y# + vx#*speed ; The Sin movement
	x# = x# + vy#*speed ; The Cos movement
	
	Color 2,2,2
	Line x ,y,x-15*Sin(degree+90),y+15*Cos(degree+90)



	Color 150,150,255
	Oval x-2,y-2,4,4,1
	Color 2,2,2
Else 	
		Color 2,2,2
	;	Line x0 ,y0,x0+15,y0-15
	degree# = -45
		Line x0 ,y0,x0+15*Sin(degree+90),y0-15*Cos(degree+90)
EndIf 
	
	Line x0+ 3 ,y0-12 + 0 , x0+ 5,y0-12+ 3
	Line x0+ 5 ,y0-12+ 3 , x0+ 5.5,y0-12+ 6
	Line x0+ 5.5 ,y0-12+ 6 ,x0+ 5.5,y0-12+ 9
	Line x0+ 5.5, y0-12+ 9 ,x0+ 5,y0-12+ 12
	Line x0+ 5 ,y0-12+ 12 , x0+ 3,y0-12+ 15

	
If KeyHit(57) Then 
x#=x0#+5
y#=y0#-3
EndIf 
If MouseDown(1) Then 
 x1# = mx# 
 y1# = my#
x#=x0#+5
y#=y0#-3
EndIf
	Color 200,0,200
	Rect x0-5,y0-10, 5,20
	Color 20,120,20
	Oval x0-2,y0-2,4,4,1
	Oval x1-3,y1-3,6,6,1

	

	Text 10,10,degree
	Text 10,20,"dy "+d
Flip
Wend
End

мышью кликайте по экрану для получения новой цели