Эта строка ищет в прямоугольнике х0, у0, х1, у1 цвет FFFFFF
Этот цвет следует искать на поверхности поплавка с помощью скриншотов и "AutoIt Window Info".
См. картинку ниже.
Красный прямоугольник, Вам нужны вершины, выделенные жирным.
Левая верхняя - 0
Правая нижняя - 1
скажите, а цвета в этих строках нужно ставить свои или оставить исходные а менять только точки??? у меня почему-то не хочет вытягивать!!!!!!!!!!!
Последний раз редактировалось Gazovik2011; 13.09.2011 в 10:30.
скажите, а цвета в этих строках нужно ставить свои или оставить исходные а менять только точки??? у меня почему-то не хочет вытягивать!!!!!!!!!!!
Цитата:
Сообщение от Sanych223322
где брать эти цифры>>>> (0xFF8000)
[Ссылки могут видеть только зарегистрированные пользователи. ]
Заголовок окна, координаты пикселя в окне и цвет этого пикселя
Цвета поплавка, указанные в скрипте, протестированы на всех удочках до 200000, работают.
Нужно лишь корректно задать вершины прямоугольника так, что бы все поплавки попали внутрь этого прямоугольника.
Последний раз редактировалось karcun; 13.09.2011 в 10:29.
помогите подобрать цвета на поплавок
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
на это удилище всё уже подобрано.
колдуйте с красным прямоугольником.
С праздником )))
Добавлено через 2 часа 57 минут
Цитата:
Сообщение от karcun
на это удилище всё уже подобрано.
колдуйте с красным прямоугольником.
С праздником )))
Цитата:
Сообщение от Sanych223322
со вчерашнего дня пытаюсь сделать Подскажите что не так. удочка Армированное удилище на 120 кг
Делаем скрин в paint и подбираем цвет, используя АвтоИТ Вин Инфо
Он даст точные значения цвета.
Я не готов сейчас подбирать цвет на такие удилища, у меня тупо денег столько нет )))
Хочу спининг за 10 лямов купить, наботил только 6
пару дней еще надо.
со скрина цвета не срабтают, они сохраняются с искажением и робить не будут.
и еще мне лень.
Я над новым ботом тружусь, mercenary (соседняя тема)
он интереснее.
Там алгоритм сложнее, оптимизации много
В общем, берем paint, вин инфо и методом научного тыка подбираем.
я с первыми удочками за 15 минут справился
взяли один цвет.
потестили.
не нравится, второй цвет добавили.
и так далее...
когда получится, можно бы цвета опубликовать бы...
было бы не плохо )))
опенсорс ))
Добавлено через 3 часа 11 минут
сенсация!!!
возможно, скоро не придется подбирать цвета поплавков.
на базе бота mercenary будет другой алгоритм.
будет адаптивный поиск поплавка.
бот станет реагировать на движение.
может быть, удастся анализировать скорость движения шкалы-градиента.
и тогда ни одна рыбеха не сорвется.
Это если удастся справиться с mercenary
Всё идет к тому )))
Последний раз редактировалось karcun; 17.09.2011 в 12:01.
Причина: Добавлено сообщение
цвета добавляли?
спиннинг работает?
публикуйте Ваши правки.
все исправленные строки и скриншот с заброшенным поплавком.
экран можно стереть, оставив только воду и шкалу
Пример:
[Ссылки могут видеть только зарегистрированные пользователи. ]
Вроде ещё раз прошёлся и всё равно не могу нормально настроить
Цвета поплавков не добавлял
[Ссылки могут видеть только зарегистрированные пользователи. ]
Скрипт
Код:
SoundPlay(EnvGet("WINDIR") & "\Media\Windows Notify.wav", 0)
$exit = 0
$refresh = 0
$pause = 0
$begin = TimerInit()
HotKeySet("{Pause}", "TogglePause")
HotKeySet("{F10}", "Quit")
Func Quit()
SoundPlay(EnvGet("WINDIR") & "\Media\Windows Hardware Remove.wav", 0)
MsgBox(0, "Bye!!!", "See you later )))", 1)
Exit
EndFunc
Func TogglePause()
If $pause = 0 Then
$pause = 1
SoundPlay(EnvGet("WINDIR") & "\Media\Speech On.wav", 0)
MsgBox(0, "Pause", "Paused", 1)
Else
$pause = 0
SoundPlay(EnvGet("WINDIR") & "\Media\Speech Off.wav", 0)
MsgBox(0, "Pause", "Continue", 1)
EndIf
EndFunc
;Главный цикл программы
WHILE $exit <> 1
WinActive("Рыбное место - ловим рыбу с друзьями!");Заголовок окна
WinActivate("Рыбное место - ловим рыбу с друзьями!");Заголовок окна
MouseClick("left", 392, 651) ;Сфокусировались на странице
SLEEP(200)
Send("{Home}");Передвинули страницу на самый верх
SLEEP(200)
MouseClick("left", 647, 310);Сфокусировались на приложении
;Закрыли все оповещалки
Send("{Esc}")
SLEEP(200)
Send("{Esc}")
SLEEP(200)
Send("{Esc}")
SLEEP(200)
If TimerDiff($begin) > 1000 * 60 * 60 Then
;открываем рюкзак
MouseClick("left", 836, 797)
SLEEP(1000)
;жмем Улов
MouseClick("left", 447, 374)
SLEEP(1000)
;жмем продать всё
MouseClick("left", 855, 402)
SLEEP(200)
;закрываем рюкзак
Send("{Esc}")
SLEEP(200)
$begin = TimerInit()
EndIf
;Забросили удочку
Send("{Space}")
SLEEP(3000)
;Если не получилось
;Проверка - на обводке кнопки.
;Если кнопка есть, то можно забрасывать
;Так бывает когда закончились снасти
;или если сервер не доступен
IF Hex(PixelGetColor(864,533), 6) <> "563A12" THEN
;С каждым разом ждем дольше
SLEEP($refresh * 20000)
$refresh += 1
;что-то случилось, перезагружаем страницу
MouseClick("left", 113, 42)
;Ждем загрузки приложения
SLEEP(20000)
;Перезапуск главного цикла
ContinueLoop
EndIf
$refresh = 0
;Набор цветов поплавка
Dim $color[7]
$color[0] = 0xFF8000
$color[1] = 0xD50202
$color[2] = 0xFF9F00
$color[3] = 0xD0661E
$color[4] = 0xFFCC00
$color[5] = 0xBF9900
$color[6] = 0xFF0000
;координаты прямоугольника, в котором искать поплавки
$x0 = 566
$y0 = 517
$x1 = 630
$y1 = 566
;Ждем поклевку
$bite = False;
While Not $bite
;Ищем поплавки
;перебираем цвета $color
$tmp = False
For $c In $color
;Ищем цвет в прямоугольнике
$coord = PixelSearch($x0, $y0, $x1, $y1, $c)
;цвет не найден, поплавка нет - тянем
If Not @error Then
$tmp = True
EndIf
Next
If Not $tmp Then
$bite = True
EndIf
Sleep(25)
WEnd
;Когда поплавок ушел под воду при поклевке
;или рыбачим на спининг (поплавка нет вовсе)
;запоминаем цвет под шкалой (закрашено шкалой или нет)
$str = 452 + 140;позиция шкалы по оси Х, где начинаем тянуть
$end = 832 - 140;позиция шкалы по оси X, где заканчиваем тянуть
;первое слагаемое - координата края шкалы
;второе - отступ от края
;по идее, чем мощнее тачка, тем меньше можно делать отступ
$lvl = 739;позиция шкалы по оси У
$drag = Hex(PixelGetColor($str, $lvl), 6);запоминаем цвет подложки слева
$drop = Hex(PixelGetColor($end, $lvl), 6);запоминаем цвет подложки справа
;Клюет, вытаскиваем!!!
;настройка ввода с клавиатуры
AutoItSetOption("SendKeyDelay", 1)
AutoItSetOption("SendKeyDownDelay", 100)
AutoItSetOption("SendCapslockMode", 1)
;подсекаем
;Send("{Space}");решил, что это будет лишним. При желании, раскомментируйте
$flag = 1;0 - отпускаем, 1 - тащим
WHILE Hex(PixelGetColor(864,533), 6) = "563A12";пока есть кнопка
IF Hex(PixelGetColor($str, $lvl), 6) = $drag THEN;шкала ушла левее левой отметки, тащим
$flag = 1
EndIf
IF Hex(PixelGetColor($end, $lvl), 6) <> $drop THEN;шкала закрасила правую отметку, отпускаем
$flag = 0
EndIf
IF $flag = 1 THEN
Send("{Space}");тащим
ELSE
SLEEP(25);отпускаем
EndIf
WEND
;смотрим на улов
;или любуемся надписью "Рыба сорвалась" или что-либо другое
SLEEP(3000)
While $pause = 1
Sleep(3000)
WEnd
WEND
а вот видео как работает [Ссылки могут видеть только зарегистрированные пользователи. ]
Последний раз редактировалось Hermein; 16.09.2011 в 18:23.
Я тоже запустил.Один совет тем кто ловит на спин : не надо выставлять цвет поплавка,после заброса бот сразу тянет и всё. Но у меня бот не тянет больше 50 кг рыбу, тупо уводит в право и обрывает. Где проблема, или это нормально?
Добавлено через 2 минуты
Цитата:
Сообщение от klivarius
Менял, толку 0
P.S. ссори поспешил
выставил по координатам и посмотрел цвет-он у меня другой был
Всё заработало
Всем спс
P.S. запустил скрипт +WPE+CE(4)=жесть
Осторожно, с такой комбинацией дорога в бан.
Последний раз редактировалось andrej73-73; 14.09.2011 в 19:30.
Причина: Добавлено сообщение
Я тоже запустил.Один совет тем кто ловит на спин : не надо выставлять цвет поплавка,после заброса бот сразу тянет и всё. Но у меня бот не тянет больше 50 кг рыбу, тупо уводит в право и обрывает. Где проблема, или это нормально?
Добавлено через 2 минуты
Осторожно, с такой комбинацией дорога в бан.
если рыба меньшего размера тянется за несколько раз, а большего уходит вправо, значит надо увеличить отступ.
еще можно процессам бота и браузера выставить приоритет реального времени, а остальным наоборот, понизить.
немного влияет на килограммы.
если же ваши снасти настолько круты, что до 50 кг тянется как мусор, нужно настраивать шкалу по инструкции и внимательнее
Добавлено через 14 часов 37 минут
поплавки не перестали работать?
всё хорошо?
вроде, обновляху сделали.
круги на воде какие-то добавили )))
Последний раз редактировалось karcun; 15.09.2011 в 10:27.
Причина: Добавлено сообщение
Добавлено через 33 минуты
блин вообще не понял чё делать как оси установить что за PHP коды и как вообще ёе включить ?!??
1. Включить AutoIt Window Info навести на поплавок и посмотреть цвет(по умолчанию 99% правильно)
2. какие оси и что устанавливать ? ПОказания в AutoIt Window Info ***, *** - где первое это показания Х а второе Y
Учитывая ваши вопросы и освещенные в теме трудности, я для будущих поколений юных ботоводов поправил код таким образом, что инструкция по настройке бота сжата до 4 шагов.
Причем, это очень простые шаги в одно действие, за исключением лишь одного, 3 шага с поплавком.
Огромное спасибо Sanych223322 за опубликованный цвет поплавка удилища на 120 кг.
Большое спасибо тем, кто принимал активное участие в разработке и отладке бота.
С наилучшими пожеланиями, Я!!! )))
Регистрация: 13.07.2011
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Re: [ВКонтакте: Рыбное Место] Бот abyrvalg
