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

MME · 28 Фев 2017

Dima1337 сказал(а):

Код:

#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

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

ЛОВИТ ЛОВИТ ЛОВИТ :laugh: :laugh: :laugh:
Он кликает на точку если не находит двигается в другой уголок и опять кликает :smile:

у меня он на 3 переходе находит рыбку и начинает собирать :smile:

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

И приходится заново указывать точки но ЛОВИТ :laugh:

Dima1337 · 28 Фев 2017

1. Время сбора рыбы разное или одинаковое, ну 30-40 сек?
2. Вам приходится самому выключать скрипт при зависании и запускать по новой? Или скрипт просто закрывается.
ах да, пришлите мне новый скрин того сообщения что идет после настройки, то в котором куча позиций

MME · 28 Фев 2017

Dima1337 сказал(а):
1. Время сбора рыбы разное или одинаковое, ну 30-40 сек?
2. Вам приходится самому выключать скрипт при зависании и запускать по новой? Или скрипт просто закрывается.

Время разное :smile:

точное пока сказать не могу нужно в интернете порыскать щас поищу но насколько я знаю идёт по возрастанию серая-зелёная-синяя-фиолетовая-красная

Dima1337 · 28 Фев 2017

Я про это:
http://autoit-script.ru/index.php?action=dlattach;topic=23486.0;attach=2152;image
Сколько по времени занимает добыча

MME · 28 Фев 2017

Dima1337 сказал(а):
Я про это:
http://autoit-script.ru/index.php?action=dlattach;topic=23486.0;attach=2152;image
Сколько по времени занимает добыча

Сложно сказать сколько идёт сбор ресурсов по времени тут нужно засекать время либо мне кажется, я могу собирать пока-что серые и зелёные мне кажется проще сделать если нет таблички то он продолжает поиск если конечно это проще ;D

Dima1337 · 28 Фев 2017

MME сказал(а):
Dima1337 сказал(а):

Я про это:
http://autoit-script.ru/index.php?action=dlattach;topic=23486.0;attach=2152;image
Сколько по времени занимает добыча

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

Сложно сказать сколько идёт сбор ресурсов по времени тут нужно засекать время либо мне кажется, я могу собирать пока-что серые и зелёные мне кажется проще сделать если нет таблички то он продолжает поиск если конечно это проще ;D

Это конечно проще, однако это УЖЕ есть в коде. А вы говорите что зависает и надо перезапустить. Поэтому вернусь к прошлому сообщению:

Dima1337 сказал(а):
1. Время сбора рыбы разное или одинаковое, ну 30-40 сек?
2. Вам приходится самому выключать скрипт при зависании и запускать по новой? Или скрипт просто закрывается.
ах да, пришлите мне новый скрин того сообщения что идет после настройки, то в котором куча позиций

MME · 28 Фев 2017

Dima1337 сказал(а):
MME сказал(а):

Dima1337 сказал(а):

Я про это:
http://autoit-script.ru/index.php?action=dlattach;topic=23486.0;attach=2152;image
Сколько по времени занимает добыча

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

Сложно сказать сколько идёт сбор ресурсов по времени тут нужно засекать время либо мне кажется, я могу собирать пока-что серые и зелёные мне кажется проще сделать если нет таблички то он продолжает поиск если конечно это проще ;D

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

Это конечно проще, однако это УЖЕ есть в коде. А вы говорите что зависает и надо перезапустить. Поэтому вернусь к прошлому сообщению:

Dima1337 сказал(а):

1. Время сбора рыбы разное или одинаковое, ну 30-40 сек?
2. Вам приходится самому выключать скрипт при зависании и запускать по новой? Или скрипт просто закрывается.
ах да, пришлите мне новый скрин того сообщения что идет после настройки, то в котором куча позиций

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

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

жму ~ для остановки моя винда (Win 10) издаёт истошный писк и нечё не происходит а в диспетчере задач после нескольких запусков такое безобразие как на скрине :smile:

Garrett · 28 Фев 2017

MME

Предупреждение За нарушение общих правил (пункт В.2):

Старайтесь избегать “Over quoting” (преувеличенное цитирование) - цитируйте только необходимую часть сообщения, которая наилучшим образом подчеркнёт суть цитируемого.

С уважением, ваш Глобальный модератор.

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 = "0xAB0000"  ;Цвет кнопки отмена красный

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
		$color3 = PixelGetColor($pos4[0],$pos[1])
        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
		While 1
			$pixel3 = PixelSearch($pos4[0] - 20, $pos4[1] - 5, $pos4[0] + 20, $pos4[1] + 5, '0x'&Hex($color3, 6), 100)
			If Not @error Then ExitLoop
			Sleep(100)
		WEnd
		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

Так на ~ стал останавливать :smile:

Находит рыбу - кликает на сбор(бирюзу) - начинается сбор но при этом он тут-же ищет другую рыбу :smile:

возможно даже находит :smile:

и перемещается к окну где идёт сбор первой рыбы и жмёт отмена :laugh: и продолжает всё заного :smile:

он не дожидается сбора а жмёт отмену :D

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 = "0xAB0000"  ;Цвет кнопки отмена красный

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
		$color3 = PixelGetColor($pos4[0],$pos[1])
        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
		Sleep(5000)
		While 1
			$pixel3 = PixelSearch($pos4[0] - 3, $pos4[1] - 3, $pos4[0] + 3, $pos4[1] + 3, '0x'&Hex($color3, 6), 100)
			If Not @error Then ExitLoop
			Sleep(100)
		WEnd
		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

Прошу прощенья чуть чуть запутался день тяжёлый был работы много было :smile:

вот скрины 1 с настройкой но она меняется немного (область поиска смотря куда ткну)
Вроде ловит :smile:

но залип при поиске рыбы не нашел её и встал на месте рядом с рыбой возможно из за того что я делал скрины :smile:

Также бывает начинает ловить рыбу которую уже кто-то ловит но тут этого не избежать скорее всего одновременно нажимаем :smile:

Столкнулся ещё вот с какой бедой собирая рыбу я её добыл но кружок на котором я сидел и собирал не успел исчезнуть после сбора (видемо задержка не большая ) и он начал его снова собирать :laugh: и получилось Image 31 и всё залипло :smile:

Я пойду малехо посплю а то завтра в 6 00 просыпаться :( а у нас уже 0:41 завтра с радостью продолжу :smile:

:laugh:
Спасибо огромное за терпение и помощь :beer:

Dima1337 · 28 Фев 2017

Код:

#include <Misc.au3>

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

Global $pos, $pos2, $pos3, $pos4
$pos[0] = 434 ;x  Координаты кнопки поимки рыбы "бирюзовый"
$pos[1] = 167 ;y  Координаты кнопки поимки рыбы "бирюзовый"
$pos2[0] = 509 ;x Квадрат поиска рыбы "салатовый"
$pos2[1] = 224 ;y Квадрат поиска рыбы "салатовый"
$pos3[0] = 749 ;x Квадрат поиска рыбы "салатовый"
$pos3[1] = 295 ;y Квадрат поиска рыбы "салатовый"
$pos4[0] = 630 ;x Координаты кнопки отмена "Красный"
$pos4[1] = 319 ;y Координаты кнопки отмена "красный"

$color = '0x03D115' ;Цвет круга рыбы "салатовый"
$color2 = '0x0E8FAC' ;Цвет кнопки рыбалки "бирюзовый"
$color3 = '0xAB0000'  ;Цвет кнопки отмена "красный"
$color4 = '0xF5E5A9'  ;Цвет кнопки закрыть "бежевый"

While 1
	$pixel = PixelSearch($pos2[0],$pos2[1],$pos3[0],$pos3[1],$color,100) ;Ищем рыбу! Квадрат  |  угол 100,10     _|угол 500,500
    If Not @error Then
		_checkfish() ; Функция в цикле
	EndIf
    Sleep(100)
WEnd

Func _checkfish();                                                                             _
	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
	Sleep(5000)
	Do
		$pixel3 = PixelSearch($pos4[0] - 1, $pos4[1] - 1, $pos4[0] + 1, $pos4[1] + 1, $color3, 10)
		ToolTip('Я тут жду пока красная кнопка не исчезнет...') ;Настройка, Удалить при необходимости
		Sleep(100)
	Until @error ; Выходим из цикла поиска красной кнопки когда красного цвета НЕТ по координатам.
	ToolTip('') ;Настройка, Удалить при необходимости
	Sleep(100)
	$pixel4 = PixelSearch($pos4[0] - 20, $pos4[1] - 5, $pos4[0] + 20, $pos4[1] + 5, $color4, 10) ; Проверяем, поймалась или сорвалась.
	If Not @error Then MouseClick("left",$pixel4[0],$pixel4[1]) ; Если сорвалась то тык на кнопку закрыть "бежевый"
EndFunc

Func _exit()
    Exit
EndFunc

Этот вариант уже без настройки, просто запустите.

MME · 1 Мар 2017

Вот

Dima1337 · 1 Мар 2017

Упс не правильно переменные обьявил :-[

Код:

#include <Misc.au3>

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

Global $pos[2], $pos2[2], $pos3[2], $pos4[2]
$pos[0] = 434 ;x  Координаты кнопки поимки рыбы "бирюзовый"
$pos[1] = 167 ;y  Координаты кнопки поимки рыбы "бирюзовый"
$pos2[0] = 509 ;x Квадрат поиска рыбы "салатовый"
$pos2[1] = 224 ;y Квадрат поиска рыбы "салатовый"
$pos3[0] = 749 ;x Квадрат поиска рыбы "салатовый"
$pos3[1] = 295 ;y Квадрат поиска рыбы "салатовый"
$pos4[0] = 630 ;x Координаты кнопки отмена "Красный"
$pos4[1] = 319 ;y Координаты кнопки отмена "красный"

$color = '0x03D115' ;Цвет круга рыбы "салатовый"
$color2 = '0x0E8FAC' ;Цвет кнопки рыбалки "бирюзовый"
$color3 = '0xAB0000'  ;Цвет кнопки отмена "красный"
$color4 = '0xF5E5A9'  ;Цвет кнопки закрыть "бежевый"

While 1
	$pixel = PixelSearch($pos2[0],$pos2[1],$pos3[0],$pos3[1],$color,100) ;Ищем рыбу! Квадрат  |  угол 100,10     _|угол 500,500
    If Not @error Then
		_checkfish() ; Функция в цикле
	EndIf
    Sleep(100)
WEnd

Func _checkfish();                                                                             _
	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
	Sleep(5000)
	Do
		$pixel3 = PixelSearch($pos4[0] - 1, $pos4[1] - 1, $pos4[0] + 1, $pos4[1] + 1, $color3, 10)
		ToolTip('Я тут жду пока красная кнопка не исчезнет...') ;Настройка, Удалить при необходимости
		Sleep(100)
	Until @error ; Выходим из цикла поиска красной кнопки когда красного цвета НЕТ по координатам.
	ToolTip('') ;Настройка, Удалить при необходимости
	Sleep(100)
	$pixel4 = PixelSearch($pos4[0] - 20, $pos4[1] - 5, $pos4[0] + 20, $pos4[1] + 5, $color4, 10) ; Проверяем, поймалась или сорвалась.
	If Not @error Then MouseClick("left",$pixel4[0],$pixel4[1]) ; Если сорвалась то тык на кнопку закрыть "бежевый"
EndFunc

Func _exit()
    Exit
EndFunc

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

Еще складывается такой вопрос. После удачного завершения рыбалки, окно с кнопкой отмена само закрывается? И сзади него нет ничего красного?

MME · 1 Мар 2017

Пришел с работки :smile:

запустил скрипт ииии ничего не делает :smile:

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

и надпись Я тут жду пока красная кнопка не исчезнет... разворачиваю браузер мышка замирает :smile:

в общем в брузере не ищет жертву :smile:

Ещё заметил что на старом скрипте где с инструкциями он кликает на кнопку сбора(бирюзовую) в одно и тоже место можно спалиться мне кажется нужна рандомность можно спалиться ;D

Dima1337 · 1 Мар 2017

Код:

#include <Misc.au3>

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

Global $pos[2], $pos2[2], $pos3[2], $pos4[2]
$pos[0] = 434 ;x  Координаты кнопки поимки рыбы "бирюзовый"
$pos[1] = 167 ;y  Координаты кнопки поимки рыбы "бирюзовый"
$pos2[0] = 509 ;x Квадрат поиска рыбы "салатовый"
$pos2[1] = 224 ;y Квадрат поиска рыбы "салатовый"
$pos3[0] = 749 ;x Квадрат поиска рыбы "салатовый"
$pos3[1] = 295 ;y Квадрат поиска рыбы "салатовый"
$pos4[0] = 630 ;x Координаты кнопки отмена "Красный"
$pos4[1] = 319 ;y Координаты кнопки отмена "красный"

MsgBox(0,'','Сначала открываем браузер потом закрываем это окно.')

$color = '0x03D115' ;Цвет круга рыбы "салатовый"
$color2 = '0x0E8FAC' ;Цвет кнопки рыбалки "бирюзовый"
$color3 = '0xAB0000'  ;Цвет кнопки отмена "красный"
$color4 = '0xF5E5A9'  ;Цвет кнопки закрыть "бежевый"

While 1
	$pixel = PixelSearch($pos2[0],$pos2[1],$pos3[0],$pos3[1],$color,100) ;Ищем рыбу! Квадрат  |  угол 100,10     _|угол 500,500
    If Not @error Then
		_checkfish() ; Функция в цикле
	EndIf
    Sleep(100)
WEnd

Func _checkfish();                                                                             _
	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
	Sleep(5000)
	Do
		$pixel3 = PixelSearch($pos4[0] - 1, $pos4[1] - 1, $pos4[0] + 1, $pos4[1] + 1, $color3, 10)
		ToolTip('Я тут жду пока красная кнопка не исчезнет...') ;Настройка, Удалить при необходимости
		Sleep(100)
	Until @error ; Выходим из цикла поиска красной кнопки когда красного цвета НЕТ по координатам.
	ToolTip('') ;Настройка, Удалить при необходимости
	Sleep(100)
	$pixel4 = PixelSearch($pos4[0] - 20, $pos4[1] - 5, $pos4[0] + 20, $pos4[1] + 5, $color4, 10) ; Проверяем, поймалась или сорвалась.
	If Not @error Then MouseClick("left",$pixel4[0],$pixel4[1]) ; Если сорвалась то тык на кнопку закрыть "бежевый"
EndFunc

Func _exit()
    Exit
EndFunc

MME · 1 Мар 2017

Так и сделал запустил браузер с игрой потом с рабочего стола ярлычёк, попытке на 3-4 мышка забегала схватила 1 рыбу но на кнопку сбора не стала жать так и осталась на рыбе :scratch:

Dima1337 · 1 Мар 2017

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

MME · 1 Мар 2017

Окошечко у меня всегда так было я его не трогаю не раздвигаю на скрине я пометил 2 точки координаты откуда брал надеюсь я не где не накосячил ? :-\

картинку поправил чуть не спалил героя :rofl:

Точки поставил чуть уже а то он начинал траву хапать :smile:

А ещё бы хорошо маленько универсальности добавить чтобы можно было задавать область ловли например если сменить локацию :whistle: :D (мечты на будущие) :smile:

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

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

Новичок

Осваивающий

Новичок

Вложения

Осваивающий

Новичок

Осваивающий

Новичок

Вложения

Модератор

Осваивающий

Новичок

Осваивающий

Вложения

Новичок

Вложения

Осваивающий

Новичок

Вложения

Осваивающий

Новичок

Осваивающий

Новичок

Вложения

Осваивающий

Новичок

Вложения