Opt("PixelCoordMode", 0)
Opt("MouseCoordMode", 0)
$korona = False ;Изначально объявляем что наша переменная "корона" будет ложная
$x = 10 ;Тут выставляем Х начального пути поиска
$y = 10 ;Тут выставляем У начального пути поиска
Do
$pix = PixelSearch($x, $y, $x, $y, 0xFFE2A2, 10) ;Ищем первую точку (я взял точку первого рога у короны)
If Not @error Then ;Если точка найдена и совпадает с цветом, то...
$pix = PixelSearch($x+6, $y-1, $x+6, $y-1, 0xFFE2A2, 10) ;Ищем вторую точку на 6 пикс. дальше первой и на 1 пиксель выше
If Not @error Then ;Если и эту точку нашли, то ...
$pix = PixelSearch($x+12, $y, $x+12, $y, 0xFFE2A2, 10) ;Ищем третью точку на 12 пикс. дальше первой
If Not @error Then ;Если и эту точку нашли, то ...
$korona = True ;переменная "корона" - положительная!
MsgBox(0, 0, "Да, это корона")
Else
$korona = False ;если Третью точку не нашли, то переменная "корона" - отрицательная
$korona = False
MsgBox(0, 0, "Нет, это что-то другое")
EndIf
Else
$korona = False ;если Вторую точку не нашли, то переменная "корона" - отрицательная
ToolTip("Точка 2 не найдена", 100, 100)
EndIf
Else
$korona = False ;если Первую точку не нашли, то переменная "корона" - отрицательная
ToolTip("Точка 1 не найдена", 100, 100)
EndIf
$x = $x+1 ;Если переменная "корона" отрицательная, то сдвигаем зону поиска на +1 по координате Х
Until $x >=100 Or $korona = True ;Всё это действие выполнять до тех пор, пока координата Х не будет больше, чем зона поиска или пока переменная "корона" не станет положительной
MsgBox(0, 0, "Мы её нашли!!" & @CRLF & "X: " = $x & @CRLF & "Y: " & $y) ;А тут выдаём сообщение, что мы нашли корону и координаты последней точки :)
