[Автоматизация] оптимизация кода по поиску пикселей и клики на них

;------------------------------------ код
$X = 100
$Y = 50
$Width = 1100
$Height = 570
; иcкомый цвет пикселя
$GColor = 0xFFEE77 
$MColor = 0xBB9966
$okColor = 0xB8712B
$HColor = 0xB95102 

;---------------------------------------------------------- код

While 1
                ; код
		; I =================поиск всех пикселей цвета 0xFFEE77 и клики по ним
                ;по задумке пока есть хоть 1 пиксель цвета  0xFFEE77 на экране скрипт не должен дальше переходить к поиску цвета 0xBB9966 
		$aP1 = _PixelGetArray($X, $Y, $Width, $Height, 0xFFEE77, $hControl, True)
                 ; код

		;II ===поиск каждого пикселя цвета 0xBB9966 клик по нему,поиск ближайшего пикселя 0xB8712B и клик по нему

		; по задумке пока есть хоть один пиксель цвета 0xBB9966 на экране скрипт не должен переходить к поиску цвета 0xB95102
		$aP2 = _PixelGetArray($X, $Y, $Width, $Height,0xBB9966, $hControl, True)
	        ; код
                ;после клика на 0xBB9966 открывается окно, где будем искать первый пиксель цвета 0xB8712B и кликаем на него
		$aP3 = _PixelGetArray(245, 295, 140, 175, 0xB8712B, $hControl, True)
		 ; код

		;III ==================поиск всех пикселей цвета 0xB95102 с Shade 5 и клики по ним

                ; снова пока на экране есть пиксели с цветом 0xB95102 не переходим в начало для поиска  всех пикселей цвета 0xFFEE77
		$aP4 = _Hummer($X, $Y, $Width, $Height, 0xB95102, 5, $hControl, True)
		 ; код

		;=============================================== 
	

WEnd
;---------------------------------------------------------- код

;---------------------------------------------------------- код

Func _aP1()
Do
		$aP1 = _PixelGetArray($X, $Y, $Width, $Height, 0xFFEE77, $hControl, True)

		; кликаем по координ
		For $i = 1 To $aP1[0][0] ;Количество строк в массиве (n)

			Sleep(500)
			$iClick += ControlClick($hWnd, "", $hControl, "left", 1, $aP1[$i][0], $aP1[$i][1] + 60)


		Next


		Sleep(1000)
Until $iClick = 25 ; по количеству иконок с нужным пикселем, но как быть если их меньше или вдруг глюкнет и кликнет дважды где-то, получится одна иконка будет пропущена, либо же,если их меньше 25, скрипт будет ждать пока их не станет 25, что тоже не есть хорошо.
;или Until $iClick =$aP1[0][0] но тогда в _PixelGetArray нужно ставить False и получим масштабное нажатие на иконки, чего мне не очень хотелось бы
EndFunc   ;==>_aP1
;-------------------------------

Func _aP1()
  Do
    ; находим все пиксели
    $aP1 = _PixelGetArray($X, $Y, $Width, $Height, 0xFFEE77, $hControl, False)
    ; завершаем функцию при отсутствии пикселей
    If Not $aP1[0][0] Then Return
    ; кликаем по всем пикселям
    For $i = 1 To $aP1[0][0]
      ControlClick($hWnd, "", $hControl, "left", 1, $aP1[$i][0], $aP1[$i][1] + 60)
      Sleep(1000)
    Next
  Until 0 ; повторяем поиск
EndFunc

$aP1 = _PixelGetArray($X, $Y, $Width, $Height, 0xFFEE77, $hControl, True) - вызов функции
Func _PixelGetArray($iX, $iY, $iWidth, $iHeight, $iColor, $hWnd = 0, $FirstOnly = False) - сама функции

$aP1 = _PixelGetArray($X, $Y, $Width, $Height, 0xFFEE77)
; при таком вызове $hWnd будет равно 0, а $FirstOnly примет значение False

$aP1 = _PixelGetArray($X, $Y, $Width, $Height, 0xFFEE77, 0, True)
; для поиска только первого пикселя на всём экране
; меняем последний параметр, но указываем и предпоследний

;-------------------------
Func _aP1()
  Do
    ; находим все пиксели
Switch $aP1[0][0] = 1
Case $Color =  0xFFEE77
    $aP1 = _PixelGetArray($X, $Y, $Width, $Height, $Color, $hControl, True)
       ; кликаем по пикселям
    For $i = 1 To $aP1[0][0]
      ControlClick($hWnd, "", $hControl, "left", 1, $aP1[$i][0], $aP1[$i][1] + 60)
      Sleep(1000)
    Next
Case $Color =  0xFFFFFF
    $aP1 = _PixelGetArray($X, $Y, $Width, $Height, $Color, $hControl, True)
       ; кликаем по пикселям
    For $i = 1 To $aP1[0][0]
      ControlClick($hWnd, "", $hControl, "left", 1, $aP1[$i][0], $aP1[$i][1] + 60)
      Sleep(1000)
    Next
EndSwitch
  Until 0 ; повторяем поиск
EndFunc
;-------------------------------

Func _aP1()
  Do
    ; находим все пиксели
    $aP1 = _PixelGetArray($X, $Y, $Width, $Height, 0xFFEE77, $hControl, True)
        ; кликаем по всем пикселям
    For $i = 1 To $aP1[0][0]
      ControlClick($hWnd, "", $hControl, "left", 1, $aP1[$i][0], $aP1[$i][1] + 60)
      Sleep(1000)
    Next
If Not $aP1[0][0] Then
    ; находим все пиксели
    $aP1 = _PixelGetArray($X, $Y, $Width, $Height, 0xFFFFFF, $hControl, True)
        ; кликаем по всем пикселям
    For $i = 1 To $aP1[0][0]
      ControlClick($hWnd, "", $hControl, "left", 1, $aP1[$i][0], $aP1[$i][1] + 60)
      Sleep(1000)
    Next
EndIf
  Until 0 ; повторяем поиск
EndFunc