Наведение на ближайшего моба к игроку

HotKeySet("{F10}", "myExit")

Global $attacking = False
; красная зона обстрела
Global $red = Sqrt(((640 - 530)^2) + ((512 - 402)^2))  
 ; синяя зона обстрела
Global $blue = Sqrt(((640 - 475)^2) + ((512 - 347)^2))
; центр экрана
Global $center_x = "640"
Global $center_y = "512"

While (1)
   ; Поиск моба
   $pix = PixelSearch(534, 421, 760, 639, 0x156D18, 10)
   if Not (@error) Then
		   $x = $Pix[0]
		   $y = $Pix[1]

   ; Клик лкм на моба
      MouseClick ("left", $x, $y, 1, 0)
      $Pause = Random(0, 1000)
      Sleep($pause)
   ; расстояние до моба на которого наведён прицел
$d = Sqrt((($center_x - $x)^2) + (($center_y - $y)^2))
   ; если моб находится в красной зоне то атака
 if $d <= $red then
   $attacking = True
   $BlueAttacking = False
   ; если моб дальше красной зоны и находится в синей зоне и в красной зоне никого не атакует
ElseIf $d >= $red And $d <= $blue And $BlueAttacking = False Then
   $attacking = True
   $BlueAttacking = True
EndIf
     ; по прежнему атакуем моба?
      While ($attacking)
		 $isAttacking = PixelSearch (534, 421, 760, 639, 0xFF0000)
		 if not (@error) Then
	  ; атакуем моба до тех пор пока на него наведён прицел
			Do
	              Send("{NUMPAD1}")
	              Sleep(10)
		          Send("{NUMPAD2}")
	              Sleep(10)
	        Until $attacking = True
	     Else
		    $attacking = False
		 EndIf
      WEnd
   EndIf
WEnd

Func myExit ()
 MsgBox (0, "Bot", "нажми ok чтобы выключить")
 Exit
EndFunc

HotKeySet("{F10}", "myExit")

Global $attacking = False

Global $x1 = 640
Global $y1 = 512
Global $x2 = 640
Global $y2 = 512

While (1)
   ; Зона поиска
   For $attacking = False to $attacking = True ; граница расширяется пока моб не найден
	  $x1 = $x1 - 30
      $y1 = $y1 - 30
      $x2 = $x2 + 30
      $y2 = $y2 + 30
	  ; если игрок атакует моба или область х1 достигла границы макс дальности оружия
	  ; то остановить атаку и вернуться на точку отсчёта
      If $attacking = True or $x1 <= 300 or $y1 <= 350 then 
		 $attacking = False
		 $x1 = 640
         $y1 = 512
         $x2 = 640
         $y2 = 512
	  EndIf
   ToolTip($x1, 0 ,0)
   Next
     ; поиск моба в зоне
	 $Pix = PixelSearch ($x1, $y1, $x2, $y2, 0x156D18, 10)
   if Not (@error) Then
	  ; Клик лкм на моба
	  MouseClick ("left", $pix [0], $pix [1], 1, 0)
      Sleep(50)
	  $attacking = True
     ; мы по прежнему атакуем моба?
      While ($attacking)
		 $isAttacking = PixelSearch ($x1, $y1, $x2, $y2, 0xFF0000)
		 if not (@error) Then
	  ; атакуем моба до тех пор пока на него наведён прицел
			Do
	              Send("{NUMPAD1}")
	              Sleep(10)
		          Send("{NUMPAD2}")
	              Sleep(10)
	        Until $attacking = True
	     Else
		    $attacking = False
		 EndIf
      WEnd
   EndIf
WEnd

Func myExit ()
 MsgBox (0, "Bot active", "нажми ok чтобы выключить")
 Exit
EndFunc