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

MME · 27 Фев 2017

Версия AutoIt: 3.3.14.2

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

Вообщем для начало как-то так картинки я прикрепил чтобы понятнее было кто сможет сделать могу денег на телефон закинуть :smile:

или как-нить отблагодарить :smile:

буду рад любой помощи :smile:

Позже ещё придумаю квесты ;D кепча ужасная=)

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

Dima1337 · 27 Фев 2017

С такой формулировкой вам в стол заказов: http://autoit-script.ru/index.php?board=8.0
Добавлено:
Сообщение автоматически объединено: 27 Фев 2017

MME сказал(а):
дома буду сам попробую помучить буду рад любой помощи

Если собираетесь сами то читайте справку по:

Код:

PixelSearch()

MME · 27 Фев 2017

Dima1337 сказал(а):
С такой формулировкой вам в стол заказов: http://autoit-script.ru/index.php?board=8.0

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

MME сказал(а):

дома буду сам попробую помучить буду рад любой помощи

Нажмите, чтобы раскрыть...

Если собираетесь сами то читайте справку по:

Код:

PixelSearch()

Возможно вы правы не учёл :smile:

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

Garrett · 27 Фев 2017

[info border=#0000ff float=left]MME
Оформите тему согласно правилам раздела "Стол заказов" и модератор данного раздела перенесёт её.С уважением, ваш Модератор.[/info]

Dima1337 · 27 Фев 2017

Единственную игру с названием: "Легенда наследие драконов" я нашел. Но она клиентская:

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

Вот в качестве примера как можно реализовать ваши замыслы...

Код:

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

MME · 28 Фев 2017

Спасибо большое что помогаете да это действительно та игра но играть в неё можно не только с клиента но и через браузер прикрепил скрин, разрешение экрана 1920 - 1080 (уменьшил качество картинки размыта стала :()
Добавлено:
Сообщение автоматически объединено: 28 Фев 2017

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

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

добавил 2 картинки в первом сообщении=)

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

если забанят заведу новый но уже скину в личку :smile:

не могу внешние ссылки оставлять :(

Dima1337 · 28 Фев 2017

Код:

#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

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

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

MME · 28 Фев 2017

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

Garrett · 28 Фев 2017

MME [?]

получил ошибку

В строке №32 уберите пробелы между $po и s4[0]. Это массив $pos4.

Код:

ToolTip('Пробел для применения ' & $po    s4[0] & '.' & $pos4[1])

Dima1337 · 28 Фев 2017

:blink: понятия не имею как туда прокрались пробелы :stars: исправил

MME · 28 Фев 2017

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

Dima1337 · 28 Фев 2017

Попробуйте так:

Код:

#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

Отличие в том что вам нужно нажать на голубой цвет на кнопке когда рыба выделена.
И на бежевый цвет кнопки закрыть когда завершится поимка рыбы.

MME · 28 Фев 2017

Ну сделал не уверен что правильно не кидайте камнями скрины прилепил если делаю так как на скрине мышка довольно быстро бегает по траектории примерно треугольника :smile:

иногда меняет немного траекторию :-\ (при успешной поимке рыбы табличка закрыть не появляется) возможно она имелась ввиду :-\

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

Dima1337 · 28 Фев 2017

Теперь понял.

Код:

#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 тык по красной части кнопки отмена

MME · 28 Фев 2017

Так опишу что получилось всё сделал как написано далее появляется табличка с координатам :smile:

жму ОК мыша бежит на зелёный кружок промахивается как я понял по нему и ползёт к бирюзовому кружку но он фиолетовый т.к мы промазали по рыбке :smile:

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

:-\

Dima1337 · 28 Фев 2017

мыша кликает от 1 до 10 раз. то есть крестом, иксом и в центр. если она сразу же после первого клика жмет на фиолетовый то вы накосячили с цветом. при настройке вам нужно сначала выделить рыбку, навести на голубой цвет кнопки ловить.
Добавлено:
Сообщение автоматически объединено: 28 Фев 2017

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

MME · 28 Фев 2017

Вот как я сделал прилепил скрины вроде всё как вы говорите :scratch:

:-\ Во время наведения на кружок с бирюзовым цветом мышка меняет форму на пальчик-ручку :smile:

может как то с этим связано :scratch:

:-\

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

Dima1337 · 28 Фев 2017

Вот медленный вариант, сколько кликов у вас проиходит?

Код:

#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

Он пытается кликнуть по фиолетовой кнопке, я правильно понял?

MME · 28 Фев 2017

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

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

т.к пиксель совсем с края находится :smile:

Dima1337 · 28 Фев 2017

Код:

#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

Попробуйте так...

Автор темы	Похожие темы	Форум	Ответы	Дата
D	Создание бота для автоматихированного сбора ресурсов	Разработка ботов	3	18 Янв 2024
T	Создание пиксельного аимбота ( доводки )	Покупка/продажа, поиск услуг	4	7 Мар 2023
M	Автоматизация Шашки, создание алгоритма бота-противника	Разработка ботов	3	2 Окт 2019
E	[Сеть, интернет] Создание скрипта (бота), скачивающего нужную документацию	Покупка/продажа, поиск услуг	1	15 Фев 2019
V	[Мышь, клавиатура] Создание Бота для игры	Стол заказов	3	7 Авг 2017

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

Новичок

Вложения

Осваивающий

Новичок

Модератор

Осваивающий

Новичок

Вложения

Осваивающий

Новичок

Вложения

Модератор

Осваивающий

Новичок

Вложения

Осваивающий

Новичок

Вложения

Осваивающий

Новичок

Осваивающий

Новичок

Вложения

Осваивающий

Новичок

Вложения

Осваивающий