Что нового

Создание бота-кликера для браузерной игры Легенда наследие драконов

MME

Новичок
Сообщения
20
Репутация
0
Версия AutoIt: 3.3.14.2

Описание:
Вообщем нужно найти изображение в окне браузера есть рыбки (зелёные кружочки на картинке стрелкой показаны) необходимо их найти и кликнуть на них, на верху поменяет изображение кружок далее нажимаем на него и начинается сбор ресурса. Какие тонкости необходимо когда программа Autoit найдёт рыбку чтобы совершала задержку перед нажатием на неё например от 1 до 10 секунд, также чтобы задержка была перед нажатием на кружок сбора. Ещё необходимо чтобы программа кликала не в центр кружка к примеру а от центра в радиусе 5-10 пикселей чтобы не спалится :smile:
Вообщем для начало как-то так картинки я прикрепил чтобы понятнее было кто сможет сделать могу денег на телефон закинуть:smile: или как-нить отблагодарить:smile: буду рад любой помощи:smile:
Позже ещё придумаю квесты ;D кепча ужасная=)

Примечание: Нет
 

Вложения

  • Image 2.png
    Image 2.png
    58.7 КБ · Просмотры: 26
  • Image 3.png
    Image 3.png
    57 КБ · Просмотры: 27
  • Сбор ресурса.jpg
    Сбор ресурса.jpg
    6.9 КБ · Просмотры: 14
  • Добыча не удалась.jpg
    Добыча не удалась.jpg
    5.9 КБ · Просмотры: 11

Dima1337

Осваивающий
Сообщения
186
Репутация
24
С такой формулировкой вам в стол заказов: http://autoit-script.ru/index.php?board=8.0


Добавлено:
Сообщение автоматически объединено:

MME сказал(а):
дома буду сам попробую помучить :smile: буду рад любой помощи:smile:
Если собираетесь сами то читайте справку по:
Код:
PixelSearch()
 
Автор
M

MME

Новичок
Сообщения
20
Репутация
0
Dima1337 сказал(а):
С такой формулировкой вам в стол заказов: http://autoit-script.ru/index.php?board=8.0


Добавлено:
Сообщение автоматически объединено:

MME сказал(а):
дома буду сам попробую помучить :smile: буду рад любой помощи:smile:
Если собираетесь сами то читайте справку по:
Код:
PixelSearch()




Возможно вы правы не учёл :smile: может тему перенести в стол заказов сэкономлю время и нервы себе и на чужом примере всегда проще учиться есле он не шибко сложный :D
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
[info border=#0000ff float=left]MME
Оформите тему согласно правилам раздела "Стол заказов" и модератор данного раздела перенесёт её.

С уважением, ваш Модератор.[/info]
 

Dima1337

Осваивающий
Сообщения
186
Репутация
24
Единственную игру с названием: "Легенда наследие драконов" я нашел. Но она клиентская:

Для того что бы помочь вам, необходим скрин всего экрана (вместе с игрой) + размеры экрана


Добавлено:
Сообщение автоматически объединено:

Вот в качестве примера как можно реализовать ваши замыслы...
Код:
HotKeySet('{`}','_exit') ; Завершим скрипт на тильду

$color = '0xF0F4F9' ;Цвет круга рыбы "салатовый"
$color2 = '0xF0F4F9' ;Цвет круга кнопки "рыба поймана"

While 1
	_checkfish() ; Функция в цикле
	Sleep(100)
WEnd

Func _checkfish();														  _
	$pixel = PixelSearch(100,10,500,500,$color,100) ;Ищем рыбу! Квадрат  |  угол 100,10     _|угол 500,500
	If Not @error Then
		For $i = 1 To 4
			If $i = 1 Then
				MouseClick('',$pixel[0] - 10,$pixel[1] - 10,1) ; У нас круг, пытаемся попасть по рыбе 'Левый Верхний угол'
				$pixel = PixelSearch(300,40,350,50,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
				If Not @error Then
					MouseClick('left',325,45) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
					ExitLoop
				EndIf
			EndIf
			If $i = 2 Then 
				MouseClick('',$pixel[0] + 10,$pixel[1] + 10,1) ; 'Правый Нижний угол'
				$pixel = PixelSearch(300,40,350,50,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
				If Not @error Then
					MouseClick('left',325,45) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
					ExitLoop
				EndIf
			EndIf
			If $i = 3 Then 
				MouseClick('',$pixel[0] - 10,$pixel[1] + 10,1) ; 'Левый Нижний угол'
				$pixel = PixelSearch(300,40,350,50,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
				If Not @error Then
					MouseClick('left',325,45) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
					ExitLoop
				EndIf
			EndIf
			If $i = 4 Then 
				MouseClick('',$pixel[0] + 10,$pixel[1] - 10,1) ; 'Правый Верхний угол'
				$pixel = PixelSearch(300,40,350,50,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
				If Not @error Then
					MouseClick('left',325,45) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
					ExitLoop
				EndIf
			EndIf
		Next
	EndIf
EndFunc

Func _exit()
	Exit
EndFunc
 
Автор
M

MME

Новичок
Сообщения
20
Репутация
0
Спасибо большое что помогаете да это действительно та игра но играть в неё можно не только с клиента но и через браузер прикрепил скрин, разрешение экрана 1920 - 1080 (уменьшил качество картинки размыта стала :()


Добавлено:
Сообщение автоматически объединено:

Хотел добавить 2 картинки сам сбор ресурса и когда добыча не удалась такое бывает если начал собирать ресурс одновременно с кем-то либо независимо просто неудачный сбор :scratch:

Но пишет картинки слишком большие хотя их размер 6-7кб :blink:
Это наверно потому что картинка 3.jpg толстая :smile: добавил 2 картинки в первом сообщении=)

Также создал тестовый аккаунт дабы облегчить и так ваш большой труд
Логин: test-34-34 собачка маил.ru
Пароль: Lol11111Lol
Уточню на данном аккаунте можно тренироваться ловить серую рыбу для других цветов навыка ловли не хватает :smile: если забанят заведу новый но уже скину в личку :smile: не могу внешние ссылки оставлять :(
 

Вложения

  • 3.jpg
    3.jpg
    194.8 КБ · Просмотры: 29

Dima1337

Осваивающий
Сообщения
186
Репутация
24
Код:
#include <Misc.au3>

HotKeySet('{`}','_exit') ; Завершим скрипт на тильду

#Region Опрос
MsgBox(0,'Настройка','Наведите мышь на фиолетовый цвет на кнопке')
Do
    $pos = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos[0] & '.' & $pos[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на Точку 1')
Do
    $pos2 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos2[0] & '.' & $pos2[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на Точку 2')
Do
    $pos3 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos3[0] & '.' & $pos3[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на Красную зону клавиши отменить в окне процеса рыбалки')
Do
    $pos4 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos4[0] & '.' & $pos4[1])
Until _IsPressed(20)
#EndRegion Опрос

#cs Отладка, Удалить эту строку при необходимости
;Что бы постоянно мышкой не тыкать, просто сохраните координаты, удалите регион Опрос и впишите:
Global $pos, $pos2, $pos3, $pos4
$pos[0] = 0 ;x
$pos[1] = 0 ;y
$pos2[0] = 0 ;x
$pos2[1] = 0 ;y
$pos3[0] = 0 ;x
$pos3[1] = 0 ;y
$pos4[0] = 0 ;x
$pos4[1] = 0 ;y
#ce Отладка, Удалить эту строку при необходимости

$color = '0x03D115' ;Цвет круга рыбы "салатовый"
$color2 = PixelGetColor($pos[0],$pos[1]) ;Цвет кнопки рыбалки фиолетовый
$color3 = PixelGetColor($pos4[0],$pos4[1])  ;Цвет кнопки отмена красный

MsgBox(0,'Настройка','Нужные координаты: '&@CRLF&'$pos: x.'&$pos[0]&' y.'&$pos[1]&@CRLF&'$pos2: x.'&$pos2[0]&' y.'&$pos2[1]&@CRLF&'$pos2 Color: '&$color2&@CRLF&'$pos3: x.'&$pos3[0]&' y.'&$pos3[1]&@CRLF&'$pos4: x.'&$pos4[0]&' y.'&$pos4[1]&@CRLF&'$pos4 Color: '&$color3)

ToolTip('')

While 1
    _checkfish() ; Функция в цикле
    Sleep(100)
WEnd

Func _checkfish();                                                        _
    $pixel = PixelSearch($pos2[0],$pos2[1],$pos3[0],$pos3[1],$color,100) ;Ищем рыбу! Квадрат  |  угол 100,10     _|угол 500,500
    If Not @error Then
        For $i = 1 To 9
            If $i = 1 Then
                MouseClick('',$pixel[0] - 10,$pixel[1] - 10,1) ; У нас круг, пытаемся попасть по рыбе 'Левый Верхний угол'
                $pixel = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If @error Then
                    MouseClick('left',$pixel[0],$pixel[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 2 Then
                MouseClick('',$pixel[0] + 10,$pixel[1] + 10,1) ; 'Правый Нижний угол'
                $pixel = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If @error Then
                    MouseClick('left',$pixel[0],$pixel[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 3 Then
                MouseClick('',$pixel[0] - 10,$pixel[1] + 10,1) ; 'Левый Нижний угол'
                $pixel = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If @error Then
                    MouseClick('left',$pixel[0],$pixel[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 4 Then
                MouseClick('',$pixel[0] + 10,$pixel[1] - 10,1) ; 'Правый Верхний угол'
                $pixel = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If @error Then
                    MouseClick('left',$pixel[0],$pixel[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 5 Then
                MouseClick('',$pixel[0],$pixel[1] - 10,1) ; У нас круг, пытаемся попасть по рыбе 'Центр Верх'
                $pixel = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If @error Then
                    MouseClick('left',$pixel[0],$pixel[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 6 Then
                MouseClick('',$pixel[0],$pixel[1] + 10,1) ; У нас круг, пытаемся попасть по рыбе 'Центр Верх'
                $pixel = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If @error Then
                    MouseClick('left',$pixel[0],$pixel[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 7 Then
                MouseClick('',$pixel[0] - 10,$pixel[1],1) ; У нас круг, пытаемся попасть по рыбе 'Лево Центр'
                $pixel = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If @error Then
                    MouseClick('left',$pixel[0],$pixel[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 8 Then
                MouseClick('',$pixel[0] + 10,$pixel[1],1) ; У нас круг, пытаемся попасть по рыбе 'Право Центр'
                $pixel = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If @error Then
                    MouseClick('left',$pixel[0],$pixel[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 9 Then
                MouseClick('',$pixel[0] - 10,$pixel[1],1) ; У нас круг, пытаемся попасть по рыбе 'Центр Центр'
                $pixel = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If @error Then
                    MouseClick('left',$pixel[0],$pixel[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                EndIf
            EndIf
        Next
        While 1
            $pixel = PixelSearch($pos4[0] - 20, $pos4[1] - 5, $pos4[0] + 20, $pos4[1] + 5, $color3, 100)
            If @error Then
                MouseClick("left",$pixel[0],$pixel[1])
                ExitLoop
            EndIf
            Sleep(50)
        WEnd
    EndIf
EndFunc

Func _exit()
    Exit
EndFunc

Описал все в комментариях, должно быть просто и понятно...


Добавлено:
Сообщение автоматически объединено:



 
Автор
M

MME

Новичок
Сообщения
20
Репутация
0
Навёл на фиолетовый цвет нажал пробел --> навёл на точку1 нажал пробел --> навёл на точку2 нажал пробел --> потом сам начал собирать рыбу навёл на кнопочку отмена нажал пробел получил ошибку скрин приложу
Я не чё не напутал ? :smile:
 

Вложения

  • Ошибка.jpg
    Ошибка.jpg
    22.6 КБ · Просмотры: 11

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
MME [?]
В строке №32 уберите пробелы между $po и s4[0]. Это массив $pos4.
Код:
ToolTip('Пробел для применения ' & $po    s4[0] & '.' & $pos4[1])
 

Dima1337

Осваивающий
Сообщения
186
Репутация
24
:blink: понятия не имею как туда прокрались пробелы :stars: исправил
 
Автор
M

MME

Новичок
Сообщения
20
Репутация
0
Сделал как посоветовали спасибо дальше появилось картинка номер1 после этого мышка маленько побегала по фиолетовому кружку и появилась картинка2 :smile:
 

Вложения

  • 2.jpg
    2.jpg
    18.7 КБ · Просмотры: 11
  • 1.png
    1.png
    3.8 КБ · Просмотры: 9

Dima1337

Осваивающий
Сообщения
186
Репутация
24
Попробуйте так:
Код:
#include <Misc.au3>

HotKeySet('{`}','_exit') ; Завершим скрипт на тильду

#Region Опрос
MsgBox(0,'Настройка','Наведите мышь на БИРЮЗОВЫЙ цвет на кнопке')
Do
    $pos = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos[0] & '.' & $pos[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на Точку 1')
Do
    $pos2 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos2[0] & '.' & $pos2[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на Точку 2')
Do
    $pos3 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos3[0] & '.' & $pos3[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на БЕЖЕВУЮ зону клавиши Закрыть в окне процеса рыбалки')
Do
    $pos4 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos4[0] & '.' & $pos4[1])
Until _IsPressed(20)
#EndRegion Опрос

#cs Отладка, Удалить эту строку при необходимости
;Что бы постоянно мышкой не тыкать, просто сохраните координаты, удалите регион Опрос и впишите:
Global $pos, $pos2, $pos3, $pos4
$pos[0] = 0 ;x
$pos[1] = 0 ;y
$pos2[0] = 0 ;x
$pos2[1] = 0 ;y
$pos3[0] = 0 ;x
$pos3[1] = 0 ;y
$pos4[0] = 0 ;x
$pos4[1] = 0 ;y
#ce Отладка, Удалить эту строку при необходимости

$color = '0x03D115' ;Цвет круга рыбы "салатовый"
$color2 = PixelGetColor($pos[0],$pos[1]) ;Цвет кнопки рыбалки фиолетовый
$color3 = PixelGetColor($pos4[0],$pos4[1])  ;Цвет кнопки отмена красный

MsgBox(0,'Настройка','Нужные координаты: '&@CRLF&'$pos: x.'&$pos[0]&' y.'&$pos[1]&@CRLF&'$pos2: x.'&$pos2[0]&' y.'&$pos2[1]&@CRLF&'$pos2 Color: '&$color2&@CRLF&'$pos3: x.'&$pos3[0]&' y.'&$pos3[1]&@CRLF&'$pos4: x.'&$pos4[0]&' y.'&$pos4[1]&@CRLF&'$pos4 Color: '&$color3)

ToolTip('')

While 1
    _checkfish() ; Функция в цикле
    Sleep(100)
WEnd

Func _checkfish();                                                        _
    $pixel = PixelSearch($pos2[0],$pos2[1],$pos3[0],$pos3[1],$color,100) ;Ищем рыбу! Квадрат  |  угол 100,10     _|угол 500,500
    If Not @error Then
        For $i = 1 To 9
            If $i = 1 Then
                MouseClick('',$pixel[0] - 10,$pixel[1] - 10,1) ; У нас круг, пытаемся попасть по рыбе 'Левый Верхний угол'
				Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 2 Then
                MouseClick('',$pixel[0] + 10,$pixel[1] + 10,1) ; 'Правый Нижний угол'
				Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 3 Then
                MouseClick('',$pixel[0] - 10,$pixel[1] + 10,1) ; 'Левый Нижний угол'
				Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 4 Then
                MouseClick('',$pixel[0] + 10,$pixel[1] - 10,1) ; 'Правый Верхний угол'
				Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 5 Then
                MouseClick('',$pixel[0],$pixel[1] - 10,1) ; У нас круг, пытаемся попасть по рыбе 'Центр Верх'
				Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 6 Then
                MouseClick('',$pixel[0],$pixel[1] + 10,1) ; У нас круг, пытаемся попасть по рыбе 'Центр Верх'
				Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 7 Then
                MouseClick('',$pixel[0] - 10,$pixel[1],1) ; У нас круг, пытаемся попасть по рыбе 'Лево Центр'
				Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 8 Then
                MouseClick('',$pixel[0] + 10,$pixel[1],1) ; У нас круг, пытаемся попасть по рыбе 'Право Центр'
				Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба пойёмана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 9 Then
                MouseClick('',$pixel[0] - 10,$pixel[1],1) ; У нас круг, пытаемся попасть по рыбе 'Центр Центр'
				Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                EndIf
            EndIf
        Next
        While 1
            $pixel3 = PixelSearch($pos4[0] - 20, $pos4[1] - 5, $pos4[0] + 20, $pos4[1] + 5, $color3, 100)
            If Not @error Then
                MouseClick("left",$pixel3[0],$pixel3[1])
                ExitLoop
            EndIf
            Sleep(50)
        WEnd
    EndIf
EndFunc

Func _exit()
    Exit
EndFunc
Отличие в том что вам нужно нажать на голубой цвет на кнопке когда рыба выделена.
И на бежевый цвет кнопки закрыть когда завершится поимка рыбы.
 
Автор
M

MME

Новичок
Сообщения
20
Репутация
0
Ну сделал не уверен что правильно не кидайте камнями скрины прилепил если делаю так как на скрине мышка довольно быстро бегает по траектории примерно треугольника :smile: иногда меняет немного траекторию :-\ (при успешной поимке рыбы табличка закрыть не появляется) возможно она имелась ввиду :-\

Возможно мне нужно спровоцировать неудачную поимку рыбы и нажать на слово закрыть?
 

Вложения

  • Основа.jpg
    Основа.jpg
    113.2 КБ · Просмотры: 6
  • Наверно так.jpg
    Наверно так.jpg
    21.6 КБ · Просмотры: 8

Dima1337

Осваивающий
Сообщения
186
Репутация
24
Теперь понял.
Код:
#include <Misc.au3>

HotKeySet('{`}','_exit') ; Завершим скрипт на тильду

#Region Опрос
MsgBox(0,'Настройка','Наведите мышь на БИРЮЗОВЫЙ цвет на кнопке')
Do
    $pos = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos[0] & '.' & $pos[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на Точку 1')
Do
    $pos2 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos2[0] & '.' & $pos2[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на Точку 2')
Do
    $pos3 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos3[0] & '.' & $pos3[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на красную зону клавиши отмена в окне процеса рыбалки')
Do
    $pos4 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos4[0] & '.' & $pos4[1])
Until _IsPressed(20)
#EndRegion Опрос

#cs Отладка, Удалить эту строку при необходимости
;Что бы постоянно мышкой не тыкать, просто сохраните координаты, удалите регион Опрос и впишите:
Global $pos, $pos2, $pos3, $pos4
$pos[0] = 0 ;x
$pos[1] = 0 ;y
$pos2[0] = 0 ;x
$pos2[1] = 0 ;y
$pos3[0] = 0 ;x
$pos3[1] = 0 ;y
$pos4[0] = 0 ;x
$pos4[1] = 0 ;y
#ce Отладка, Удалить эту строку при необходимости

$color = '0x03D115' ;Цвет круга рыбы "салатовый"
$color2 = PixelGetColor($pos[0],$pos[1]) ;Цвет кнопки рыбалки фиолетовый
$color3 = PixelGetColor($pos4[0],$pos4[1])  ;Цвет кнопки отмена красный

MsgBox(0,'Настройка','Нужные координаты: '&@CRLF&'$pos: x.'&$pos[0]&' y.'&$pos[1]&@CRLF&'$pos2: x.'&$pos2[0]&' y.'&$pos2[1]&@CRLF&'$pos2 Color: '&$color2&@CRLF&'$pos3: x.'&$pos3[0]&' y.'&$pos3[1]&@CRLF&'$pos4: x.'&$pos4[0]&' y.'&$pos4[1]&@CRLF&'$pos4 Color: '&$color3)

ToolTip('')

While 1
    _checkfish() ; Функция в цикле
    Sleep(100)
WEnd

Func _checkfish();                                                        _
    $pixel = PixelSearch($pos2[0],$pos2[1],$pos3[0],$pos3[1],$color,100) ;Ищем рыбу! Квадрат  |  угол 100,10     _|угол 500,500
    If Not @error Then
        For $i = 1 To 9
            If $i = 1 Then
                MouseClick('',$pixel[0] - 10,$pixel[1] - 10,1) ; У нас круг, пытаемся попасть по рыбе 'Левый Верхний угол'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 2 Then
                MouseClick('',$pixel[0] + 10,$pixel[1] + 10,1) ; 'Правый Нижний угол'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 3 Then
                MouseClick('',$pixel[0] - 10,$pixel[1] + 10,1) ; 'Левый Нижний угол'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 4 Then
                MouseClick('',$pixel[0] + 10,$pixel[1] - 10,1) ; 'Правый Верхний угол'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 5 Then
                MouseClick('',$pixel[0],$pixel[1] - 10,1) ; У нас круг, пытаемся попасть по рыбе 'Центр Верх'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 6 Then
                MouseClick('',$pixel[0],$pixel[1] + 10,1) ; У нас круг, пытаемся попасть по рыбе 'Центр Верх'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 7 Then
                MouseClick('',$pixel[0] - 10,$pixel[1],1) ; У нас круг, пытаемся попасть по рыбе 'Лево Центр'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 8 Then
                MouseClick('',$pixel[0] + 10,$pixel[1],1) ; У нас круг, пытаемся попасть по рыбе 'Право Центр'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба пойёмана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 9 Then
                MouseClick('',$pixel[0] - 10,$pixel[1],1) ; У нас круг, пытаемся попасть по рыбе 'Центр Центр'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1]) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                EndIf
            EndIf
        Next
		Do
			$pixel3 = PixelSearch($pos4[0] - 20, $pos4[1] - 5, $pos4[0] + 20, $pos4[1] + 5, $color3, 100)
			Sleep(100)
		Until @error  ;Ждем пока пропадет кнопка отмены.
		Sleep(100)
		$pixel4 = PixelSearch($pos4[0] - 20, $pos4[1] - 5, $pos4[0] + 20, $pos4[1] + 5, '0xF5E5A9', 100) ; Если не получилось тык на кнопку и заного
		If Not @error Then MouseClick("left",$pixel4[0],$pixel4[1])
    EndIf
EndFunc

Func _exit()
    Exit
EndFunc
1 тык по бирюзовой
2 тык по красной части кнопки отмена
 
Автор
M

MME

Новичок
Сообщения
20
Репутация
0
Так опишу что получилось всё сделал как написано далее появляется табличка с координатам :smile: жму ОК мыша бежит на зелёный кружок промахивается как я понял по нему и ползёт к бирюзовому кружку но он фиолетовый т.к мы промазали по рыбке :smile:

Ещё столкнулся с такой проблемой иногда кружок зелёный с рыбой на половину за экраном и он как я понимаю пытается кликнуть на верхнюю часть кружка и попадает на коричневое поле интерфейса вот как-то так :scratch: :-\
 

Dima1337

Осваивающий
Сообщения
186
Репутация
24
мыша кликает от 1 до 10 раз. то есть крестом, иксом и в центр. если она сразу же после первого клика жмет на фиолетовый то вы накосячили с цветом. при настройке вам нужно сначала выделить рыбку, навести на голубой цвет кнопки ловить.


Добавлено:
Сообщение автоматически объединено:

Как вариант, попробуйте навести мышь не в центр а где нибудь на краю
 
Автор
M

MME

Новичок
Сообщения
20
Репутация
0
Вот как я сделал прилепил скрины вроде всё как вы говорите :scratch: :-\ Во время наведения на кружок с бирюзовым цветом мышка меняет форму на пальчик-ручку :smile: может как то с этим связано :scratch: :-\

Он рыбку именно не может выделить ощущение будто он кликнул на неё но объект не выделил (возможно ближе к центру кружка нужно кликать) и думает что раз кликнул выделил его и тут же идёт на бирюзовый кружок :smile:
 

Вложения

  • Image 19.jpg
    Image 19.jpg
    93 КБ · Просмотры: 6
  • Image 20.jpg
    Image 20.jpg
    13.2 КБ · Просмотры: 4
  • Image 22.png
    Image 22.png
    619 байт · Просмотры: 27

Dima1337

Осваивающий
Сообщения
186
Репутация
24
Вот медленный вариант, сколько кликов у вас проиходит?
Код:
#include <Misc.au3>

HotKeySet('{`}','_exit') ; Завершим скрипт на тильду

#Region Опрос
MsgBox(0,'Настройка','Наведите мышь на БИРЮЗОВЫЙ цвет на кнопке')
Do
    $pos = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos[0] & '.' & $pos[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на Точку 1')
Do
    $pos2 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos2[0] & '.' & $pos2[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на Точку 2')
Do
    $pos3 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos3[0] & '.' & $pos3[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на красную зону клавиши отмена в окне процеса рыбалки')
Do
    $pos4 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos4[0] & '.' & $pos4[1])
Until _IsPressed(20)
#EndRegion Опрос

#cs Отладка, Удалить эту строку при необходимости
;Что бы постоянно мышкой не тыкать, просто сохраните координаты, удалите регион Опрос и впишите:
Global $pos, $pos2, $pos3, $pos4
$pos[0] = 0 ;x
$pos[1] = 0 ;y
$pos2[0] = 0 ;x
$pos2[1] = 0 ;y
$pos3[0] = 0 ;x
$pos3[1] = 0 ;y
$pos4[0] = 0 ;x
$pos4[1] = 0 ;y
#ce Отладка, Удалить эту строку при необходимости

$color = '0x03D115' ;Цвет круга рыбы "салатовый"
$color2 = PixelGetColor($pos[0],$pos[1]) ;Цвет кнопки рыбалки фиолетовый
$color3 = PixelGetColor($pos4[0],$pos4[1])  ;Цвет кнопки отмена красный

MsgBox(0,'Настройка','Нужные координаты: '&@CRLF&'$pos: x.'&$pos[0]&' y.'&$pos[1]&@CRLF&'$pos2: x.'&$pos2[0]&' y.'&$pos2[1]&@CRLF&'$pos2 Color: '&$color2&@CRLF&'$pos3: x.'&$pos3[0]&' y.'&$pos3[1]&@CRLF&'$pos4: x.'&$pos4[0]&' y.'&$pos4[1]&@CRLF&'$pos4 Color: '&$color3)

ToolTip('')

While 1
    _checkfish() ; Функция в цикле
    Sleep(100)
WEnd

Func _checkfish();                                                                             _
    $pixel = PixelSearch($pos2[0],$pos2[1],$pos3[0],$pos3[1],$color,100) ;Ищем рыбу! Квадрат  |  угол 100,10     _|угол 500,500
    If Not @error Then
        For $i = 1 To 9
            If $i = 1 Then
                MouseClick('',$pixel[0] - 10,$pixel[1] - 10,1,100) ; У нас круг, пытаемся попасть по рыбе 'Левый Верхний угол'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 2 Then
                MouseClick('',$pixel[0] + 10,$pixel[1] + 10,1,100) ; 'Правый Нижний угол'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 3 Then
                MouseClick('',$pixel[0] - 10,$pixel[1] + 10,1,100) ; 'Левый Нижний угол'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 4 Then
                MouseClick('',$pixel[0] + 10,$pixel[1] - 10,1,100) ; 'Правый Верхний угол'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 5 Then
                MouseClick('',$pixel[0],$pixel[1] - 10,1,100) ; У нас круг, пытаемся попасть по рыбе 'Центр Верх'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 6 Then
                MouseClick('',$pixel[0],$pixel[1] + 10,1,100) ; У нас круг, пытаемся попасть по рыбе 'Центр Верх'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 7 Then
                MouseClick('',$pixel[0] - 10,$pixel[1],1,100) ; У нас круг, пытаемся попасть по рыбе 'Лево Центр'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 8 Then
                MouseClick('',$pixel[0] + 10,$pixel[1],1,100) ; У нас круг, пытаемся попасть по рыбе 'Право Центр'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба пойёмана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 9 Then
                MouseClick('',$pixel[0] - 10,$pixel[1],1,100) ; У нас круг, пытаемся попасть по рыбе 'Центр Центр'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                EndIf
            EndIf
        Next
		Do
			$pixel3 = PixelSearch($pos4[0] - 20, $pos4[1] - 5, $pos4[0] + 20, $pos4[1] + 5, $color3, 100)
			Sleep(100)
		Until @error  ;Ждем пока пропадет кнопка отмены.
		Sleep(100)
		$pixel4 = PixelSearch($pos4[0] - 20, $pos4[1] - 5, $pos4[0] + 20, $pos4[1] + 5, '0xF5E5A9', 100) ; Если не получилось тык на кнопку и заного
		If Not @error Then MouseClick("left",$pixel4[0],$pixel4[1])
    EndIf
EndFunc

Func _exit()
    Exit
EndFunc
Он пытается кликнуть по фиолетовой кнопке, я правильно понял?
 
Автор
M

MME

Новичок
Сообщения
20
Репутация
0
В медленной версии видно как мышка направляется к зелёному кружку кликает примерно как на картинке 1 раз, я так понимаю он промахивается и идёт на фиолетовый кружок т.к рыбка не выделилась и он не стал бирюзовым. :smile:

Возможно он даже попадает по цвету но скорее всего нужно попадать ближе к центру круга а то объект не выделяется :smile: т.к пиксель совсем с края находится :smile:
 

Вложения

  • Image 23.png
    Image 23.png
    2.1 КБ · Просмотры: 26

Dima1337

Осваивающий
Сообщения
186
Репутация
24
Код:
#include <Misc.au3>

HotKeySet('{`}','_exit') ; Завершим скрипт на тильду

#Region Опрос
MsgBox(0,'Настройка','Наведите мышь на БИРЮЗОВЫЙ цвет на кнопке')
Do
    $pos = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos[0] & '.' & $pos[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на Точку 1')
Do
    $pos2 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos2[0] & '.' & $pos2[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на Точку 2')
Do
    $pos3 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos3[0] & '.' & $pos3[1])
Until _IsPressed(20)

MsgBox(0,'Настройка','Наведите мышь на красную зону клавиши отмена в окне процеса рыбалки')
Do
    $pos4 = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos4[0] & '.' & $pos4[1])
Until _IsPressed(20)
#EndRegion Опрос

#cs Отладка, Удалить эту строку при необходимости
;Что бы постоянно мышкой не тыкать, просто сохраните координаты, удалите регион Опрос и впишите:
Global $pos, $pos2, $pos3, $pos4
$pos[0] = 0 ;x
$pos[1] = 0 ;y
$pos2[0] = 0 ;x
$pos2[1] = 0 ;y
$pos3[0] = 0 ;x
$pos3[1] = 0 ;y
$pos4[0] = 0 ;x
$pos4[1] = 0 ;y
#ce Отладка, Удалить эту строку при необходимости

$color = '0x03D115' ;Цвет круга рыбы "салатовый"
$color2 = '0x0E8FAC' ;Цвет кнопки рыбалки фиолетовый
$color3 = PixelGetColor($pos4[0],$pos4[1])  ;Цвет кнопки отмена красный

MsgBox(0,'Настройка','Нужные координаты: '&@CRLF&'$pos: x.'&$pos[0]&' y.'&$pos[1]&@CRLF&'$pos2: x.'&$pos2[0]&' y.'&$pos2[1]&@CRLF&'$pos2 Color: '&$color2&@CRLF&'$pos3: x.'&$pos3[0]&' y.'&$pos3[1]&@CRLF&'$pos4: x.'&$pos4[0]&' y.'&$pos4[1]&@CRLF&'$pos4 Color: '&$color3)

ToolTip('')

While 1
    _checkfish() ; Функция в цикле
    Sleep(100)
WEnd

Func _checkfish();                                                                             _
    $pixel = PixelSearch($pos2[0],$pos2[1],$pos3[0],$pos3[1],$color,100) ;Ищем рыбу! Квадрат  |  угол 100,10     _|угол 500,500
    If Not @error Then
        For $i = 1 To 9
            If $i = 1 Then
                MouseClick('',$pixel[0] - 10,$pixel[1] - 10,1,100) ; У нас круг, пытаемся попасть по рыбе 'Левый Верхний угол'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 2 Then
                MouseClick('',$pixel[0] + 10,$pixel[1] + 10,1,100) ; 'Правый Нижний угол'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 3 Then
                MouseClick('',$pixel[0] - 10,$pixel[1] + 10,1,100) ; 'Левый Нижний угол'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 4 Then
                MouseClick('',$pixel[0] + 10,$pixel[1] - 10,1,100) ; 'Правый Верхний угол'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 5 Then
                MouseClick('',$pixel[0],$pixel[1] - 10,1,100) ; У нас круг, пытаемся попасть по рыбе 'Центр Верх'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 6 Then
                MouseClick('',$pixel[0],$pixel[1] + 10,1,100) ; У нас круг, пытаемся попасть по рыбе 'Центр Верх'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 7 Then
                MouseClick('',$pixel[0] - 10,$pixel[1],1,100) ; У нас круг, пытаемся попасть по рыбе 'Лево Центр'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 8 Then
                MouseClick('',$pixel[0] + 10,$pixel[1],1,100) ; У нас круг, пытаемся попасть по рыбе 'Право Центр'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба пойёмана.
                    ExitLoop
                EndIf
            EndIf
            If $i = 9 Then
                MouseClick('',$pixel[0] - 10,$pixel[1],1,100) ; У нас круг, пытаемся попасть по рыбе 'Центр Центр'
                Sleep(100)
                $pixel2 = PixelSearch($pos[0] - 10,$pos[1] - 10,$pos[0] + 10,$pos[1] + 10,$color2,100) ;Проверяем цвет кнопки поймали рыбу или нет.
                If Not @error Then
                    MouseClick('left',$pixel2[0],$pixel2[1],1,100) ; Тыкаем по кнопке, ПРОФИТ рыба поймана.
                EndIf
            EndIf
        Next
		Do
			$pixel3 = PixelSearch($pos4[0] - 20, $pos4[1] - 5, $pos4[0] + 20, $pos4[1] + 5, $color3, 100)
			Sleep(100)
		Until @error  ;Ждем пока пропадет кнопка отмены.
		Sleep(100)
		$pixel4 = PixelSearch($pos4[0] - 20, $pos4[1] - 5, $pos4[0] + 20, $pos4[1] + 5, '0xF5E5A9', 100) ; Если не получилось тык на кнопку и заного
		If Not @error Then MouseClick("left",$pixel4[0],$pixel4[1])
    EndIf
EndFunc

Func _exit()
    Exit
EndFunc
Попробуйте так...
 
Верх