[Скрипт] [ВКонтакте: Рыбное Место] Бот abyrvalg

karcun · 10.09.2011, 11:13

[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

Исходник для autoit-бота, рыбачащего на автомате круглосуточно )))

Перед использованием бота нужно слегка доработать напильником.
Это не страшно, ниже прилагаю пошаговую инструкцию.
Данная инструкция подходить для настройки во всех сообществах: ВСекте, Одноклассники, Мэйл.РУ
Одна из последних версий бота, инструкция сжата до минимума.
Прежде чем начинать, прочтите пост до самого конца!
В этом посте нет не важного текста.

Итак, начнем:

Копируем размещенный ниже код в "SciTE Script Editor", он идет в поставке с autoit

1) Строки 3 - 5.
Тут нужно вписать заголовок и класс окна Вашего браузера с активной вкладкой игры.
Открываем Autoit Window Info.
Открываем браузер, открываем страницу с игрой, наводим Finder Tool на игру и смотрим.
[Ссылки могут видеть только зарегистрированные пользователи. ]
$winTitle
$winClass
$ctrClass - на вкладке Control, Advanced Mode (копируется двойным кликом)

2) Строки 8-11.
Цвета на поверхности поплавков.
Работают со всеми поплавками, трогать надо только если точно уверены, что поплавок не ищется.
Сначала проверяем, потом если что правим
Обратите внимание на строку 11: Тут объявляется массив.
Массивы содержат значения с индексами, начинающимися с 0.
Размер массива должен быть определен заранее.
Логикой бота не отрабатываются пустые значения.
Если Вы добавите или удалите какие-либо цвета, то нужно проконтроллировать, что массив заполнен полностью и его размерность указана верно.
Размерность массива равна его последнему индексу плюс один

3) Строки 17-20
Звуки.
Если не играются/нравятся, указываем свои

Всё, бот настроен.
Сохраняем на диск, жмем F5 (в окне "SciTE Script Editor"), проверяем, что он вытащил несколько рыб.
жмем F7 (в окне "SciTE Script Editor"), рядом с тем файлом, что мы сохранили появится экзешник.
его запускаем и идем пить чай.
Или спать ложимся.
Только надо последить за ботом, навесить на перса все удочки, лески (штук 10, особенно для первых уровней), крючки штук 20 (слабее лески) и наживку, штук 1000.
За ночь он это всё по идее должен потратить.

Код бота:

Код:

;То, что ниже, нужно настраивать
;Заголовок окна браузера, брать из утилиты AutoIT Window Info
$winTitle = "«Рыбное место. Новая эра.» - Приложения - Мой Мир@Mail.Ru - Mozilla Firefox"
$winClass = "MozillaWindowClass"
$ctrClass = "[CLASS:GeckoPluginWindow; INSTANCE:1]";

;Набор цветов поплавка
Dim $color[3]
$color[0] = 0xFFCC00
$color[1] = 0xF70000
$color[2] = 0xFF0000

;Цвет контура кнопки заброса
$buttonC    = "563A12"

;Звуки
$soundRun        = EnvGet("WINDIR") & "\Media\Windows Notify.wav"
$soundExit        = EnvGet("WINDIR") & "\Media\Windows Hardware Remove.wav"
$soundPauseOn    = EnvGet("WINDIR") & "\Media\Speech On.wav"
$soundPauseOff    = EnvGet("WINDIR") & "\Media\Speech Off.wav"

;Дальше настраивать и трогать не надо
$exit       = 0
$pause      = 0
$begin      = TimerInit()

SoundPlay($soundRun, 0)
AutoItSetOption("WinTitleMatchMode", 2)
HotKeySet("{F10}", "Quit")
HotKeySet("{Pause}", "TogglePause")
Func Quit()
   SoundPlay($soundExit, 0)
   MsgBox(0, "Bye!!!", "See you later )))", 1)
   Exit
EndFunc ;Quit
Func TogglePause()
   If $pause = 0 Then
      $pause = 1
      SoundPlay($soundPauseOn, 0)
      MsgBox(0, "Pause", "Paused", 1)
      WinSetState("classname=" & $winClass, $winTitle, @SW_SHOWNORMAL)
      WinActivate($winTitle)
   Else
      $pause = 0
      SoundPlay($soundPauseOff, 0)
      MsgBox(0, "Pause", "Continue", 1)
      WinSetState("classname=" & $winClass, $winTitle, @SW_SHOWNORMAL)
      WinActivate($winTitle)
   EndIf
EndFunc ;TogglePause
WHILE $exit <> 1
    While $pause = 1
        Sleep(100)
    WEnd
    WinSetState("classname=" & $winClass, $winTitle, @SW_SHOWNORMAL)
    WinActivate($winTitle)

	While ControlFocus($winTitle, "", $ctrClass) = 0
		MsgBox(0, "Ошибка!", "Игра не обнаружена!", 2)
	WEnd

	$pos = ControlGetPos($winTitle, "", $ctrClass)

	$posX = $pos[0]
	$posY = $pos[1]

	;Для размера игры 1095х864
	$buttonX    = $posX + 801
	$buttonY    = $posY + 493

	$posSX0 = $posX + 620
	$posSY0 = $posY + 180
	$posSX1 = $posX + 790
	$posSY1 = $posY + 420

	$x0         = $posX + 450
	$y0         = $posY + 520
	$x1         = $posX + 580
	$y1         = $posY + 700
	$str        = $posX + 390 + 90
	$end        = $posX + 695 - 90
	$lvl        = $posY + 729

	Sleep(1000)

   IF Hex(PixelGetColor($buttonX, $buttonY), 6) <> $buttonC THEN
      For $y = $posSY0 To $posSY1 Step 15
         For $x = $posSX1 To $posSX0 Step -10
            MouseMove($x, $y, 1)
            Sleep(10)
            If MouseGetCursor() = 16 Then
               MouseClick("left", $x, $y)
               ContinueLoop 3
            EndIf
         Next
      Next
   EndIf

   If TimerDiff($begin) > 1000 * 60 * 6000 Then
   MouseClick("left", $posX + 578, $posY + 592)
      SLEEP(1000)
      MouseClick("left", $posX + 100, $posY + 135)
      SLEEP(1000)
      MouseClick("left", $posX + 504, $posY + 170)
      SLEEP(200)
      MouseClick("left", $posX + 302, $posY + 328)
      SLEEP(200)
      MouseClick("left", $posX + 567, $posY + 90)
      SLEEP(200)
      $begin = TimerInit()
   EndIf

   MouseClick("left", $buttonX, $buttonY + 10)
   MouseMove($buttonX, $buttonY - 100, 1)
	;Send("{Space}")
	SLEEP(3000)

    $bite = False;
    While Not $bite
        $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
			Send("{Space down}")
        EndIf
        Sleep(25)
    WEnd


   $drag = Hex(PixelGetColor($str, $lvl), 6)
   $drop = Hex(PixelGetColor($end, $lvl), 6)

   $flag = 1
   WHILE Hex(PixelGetColor($buttonX, $buttonY), 6) = $buttonC
      IF Hex(PixelGetColor($str, $lvl), 6) = $drag THEN
         Send("{Space down}")
         $flag = 1
      EndIf
      IF Hex(PixelGetColor($end, $lvl), 6) <> $drop And $flag <> 0 THEN
         Send("{Space up}")
         $flag = 0
      EndIf
   WEND
   SLEEP(3000)
WEND

Этот бот не "ломает" игру.
Он не сделает из Вас супер пользователя.
Он не позволит Вам на удочке первого уровня вытащить сома весом 250 кг.

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

Бот работает с любыми удочками и спиннингами на любой локации.

Цитата:


	Добавил управление с клавиатуры и звуки: Pause/Brake: пауза. Можно поставить на паузу в любой момент до окошка с уловом и втечение 3-х секунд после его отображения. Если Вы нажали на паузу, но реакции не последовало, не нужно давить несколько раз. Пауза сработает вовремя. F10: Выход, отключить бота Звуки указал стандартные из семерки. Если не играют, значит у Вас другие. Укажите свои

Цитата:


	Добавил авто распродажу улова.

Цитата:


	Добавил поиск кнопки закрытия окон.

Цитата:


	Изменен алгоритм вытягивания рыбы. Теперь ни одна рыбка не сорвется

Хотелось бы чутка критики.
Это моя первая работа с autoit

Эта игра есть еще и в Одноклассниках, и в Моем Мире на Мэйл.РУ
настройка - так же, по этой же инструкции.
Хотелось бы отзывов из этих сообществ.
Собственно, управление и звук пришли из ВСекты.
Возможно, что-то добавят от себя и остальные )))
Было бы интересно ))

Для простоты нашего с Вами взаимопонимания, предлагаю вопросы задавать так:

Цитата:


	Я всё настроил, но там-то не работает. Привожу свои правки: Код: правки Привожу скриншот: [Ссылки могут видеть только зарегистрированные пользователи. ]

karcun · 10.09.2011, 19:46

[Ссылки могут видеть только зарегистрированные пользователи. ]
Именно автоит.
написано же...

хочется услышать отзывы тех, кто попробовал
хочется услышать предложения по доработке.
хочется увидеть чужие доработки
дофига чё хочется )))
делимся впечатлениями, опытом

karcun · 11.09.2011, 01:57

Цитата:

Сообщение от karcun


	SciTE Script Editor AutoIt Window Info

Эти две программы идут в поставке с autoit (ссылка для загрузки в моем предыдущем посте)
Далее по шагам следуйте инструкции
Скажите, какой именно шаг не понятен, я поясню

Для отладочного запуска нужно сохранить код бота на диск в программе "SciTE Script Editor" и нажать F5
Боевого бота можно скомпилировать, нажав F7 и запускать как обычную программу

andrej73-73 · 11.09.2011, 02:15

я выставил всё по инструкции но как это запустить не понятно я играю на Майле.

Добавлено через 5 минут
да и ещё шаг 8 строка 138 должна быть,а не 136 или неправильно понял?

karcun · 11.09.2011, 02:32

Да, накладочка.
Строка 138 в шаге 8.
Спасибо, исправлю.

Запустить:
F7 - бот компилируется.
AutoIT создает файл name.exe, где name берется из name.au3 (File->Save as...)

Жмем F7, идем в папку, где сохранили abyrvalg.au3, там теперь есть abyrvalg.exe
Его запускаем и радуемся.
Браузер в это время должен быть открыт и в нем должна быть активной вкладка с открытой страницей игры

andrej73-73 · 11.09.2011, 12:30

Скажи,а как правильно выставить позицию шкалы по оси У, и как поставить цвет с помощью скриншотов и "AutoIt Window Info",у меня только два значения вместо четырёх.

karcun · 11.09.2011, 13:03

позицию по шкале Y лучше всего брать по-центру шкалы, наверное )))
что бы ее градиент закрашивал.
если не закрасит, бот будет постоянно тянуть.

про поплавок:
берем все имеющиеся удочки и забрасываем их по-очереди, делая скрины разных положений поплавков, в зависимости от положения их цвет слегка меняется.

у функции PixelSearch есть еще один параметр, он отвечает за затененность (градации серого+цвет).
можно его еще попробовать

в окне игры проверяем, что все поплавки находятся в прямоугольнике
со скриншотов берем пробы цвета и добавляем проверки.
по цветам - там вроде всё нормально подобрано, у меня все поплавки (до 200К) определялись на ура.
по координатам - я их правил несколько раз и они вроде бы сбиты.
их надо поправить под себя.

удачи )))

karcun · 11.09.2011, 19:58

Цитата:

Сообщение от bulatko96


	не могу скачать

скачать что?
бота не нужно качать, его надо сделать.
внимательно читайте первый пост и скачайте программу, с помощью которой работает бот.
эта программа бесплатная, не требует регистрации.
ссылка на файл, лежащий на сервере разработчика

[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

Gazovik2011 · 12.09.2011, 14:22

Цитата:

Сообщение от andrej73-73


	Скажи,а как правильно выставить позицию шкалы по оси У, и как поставить цвет с помощью скриншотов и "AutoIt Window Info",у меня только два значения вместо четырёх.

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

Добавлено через 46 минут
что то не работает, то сразу при загрузке бота он сразу перегружает страницу, то ждет минуту, потом забросит а тянуть не хочет

karcun · 12.09.2011, 19:29

Цитата:

Сообщение от Gazovik2011


	подскажитье какая шкала имеется ввиду? если можно по-подробнее, а тоя что-то не разберусь Добавлено через 46 минут что то не работает, то сразу при загрузке бота он сразу перегружает страницу, то ждет минуту, потом забросит а тянуть не хочет

из лички

Цитата:

Сообщение от Sanych223322


	помогите. не могу понять как и где 6) Строки 74, 78, 82, 86, 90, 94, 98. PHP код: $coord = PixelSearch(624, 480, 680, 560, 0xFF8000) Эта строка ищет в прямоугольнике х0, у0, х1, у1 цвет FFFFFF Этот цвет следует искать на поверхности поплавка с помощью скриншотов и "AutoIt Window Info". 7) Строки 116, 117 и 123 Тут опять используем "AutoIt Window Info" PHP код: $str = 496 + 140 позиция шкалы по оси Х, где начинаем тянуть PHP код: $end = 883 - 140 позиция шкалы по оси Х, где заканчиваем тянуть PHP код: $lvl = 738 позиция шкалы по оси У 8) Строка 138 PHP код: While Hex(PixelGetColor(891,533), 6) = "563A12" Где все это брать, и где найти прямоугольник? играю у жены, наловил до 54 разряда и все без бота не прет ПОМОГИТЕ. Чуть не забыл он закидывает но не подсекает. хотел кинуть скрины но не знаю как почтового адреса нет

Добавил картинку и разъяснения в инструкцию.
Кому всё еще не ясно, попросите помощи у знакомого студента, он на раз, два разберется

andrej73-73 · 12.09.2011, 19:44

Цитата:

Сообщение от karcun


	вы где-то допустили ошибку. внимательно сделайте всё заново. код 100% рабочий. киньте свой код мне в личку. и добавьте сюда скриншот ошибки попробуйте без редактирования выполнить код, размещенный здесь. выдаст ли ошибку?

Без редактирования код заработал,сейчас попробую ещё раз.

Не идет после нажатия F5 выдаёт вот это:
>"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\андрей\Documents\андре.au3"
C:\Users\??????\Documents\?????.au3 (25) : ==> Missing separator character after keyword.:
WinActive([Ссылки могут видеть только зарегистрированные пользователи. ])
WinActive(http^ ERROR
>Exit code: 1 Time: 0.220

karcun · 12.09.2011, 21:19

Цитата:

Сообщение от andrej73-73


	Без редактирования код заработал,сейчас попробую ещё раз. Не идет после нажатия F5 выдаёт вот это: >"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\андрей\Documents\андре.au3" C:\Users\??????\Documents\?????.au3 (25) : ==> Missing separator character after keyword.: WinActive([Ссылки могут видеть только зарегистрированные пользователи. ]) WinActive(http^ ERROR >Exit code: 1 Time: 0.220

во-первых, путь с вопросиками: может быть, ему не нравятся русские буквы, перенесите бот в другую папку.
во-вторых, адрес страницы должен быть в двойных кавычках (")
в-третьих, у Вас в заголовке окна отображается адрес открытой страницы?
думаю, нет.

Код:

WinActive([Ссылки могут видеть только зарегистрированные пользователи. ])

это вряд ли правильно.
Autoit Window Info, когда Вы наведете прицел на окно браузера, даст Вам правильную строку
Пробуйте

Gazovik2011 · 12.09.2011, 21:24

никак не могу настроить. Почему-то как только запускаю бот то он сразу переходит к 54 строке. ну а когда раза с 3-го свсе-таки забросит, то никак не хочет тянуть. делаю все шаг за шагом

karcun · 12.09.2011, 21:53

Цитата:

Сообщение от Gazovik2011


	никак не могу настроить. Почему-то как только запускаю бот то он сразу переходит к 54 строке. ну а когда раза с 3-го свсе-таки забросит, то никак не хочет тянуть. делаю все шаг за шагом

Бот не находит кнопку "Забросить удочку"
Вы указали координаты и цвет пикселя?

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

Добавлено:
Если бота надолго оставить работать, то рыба не оседает в рюкзаке.
Теперь бот каждый час распродается!!!
Что бы отключить распродажу, читайте комментарий в коде.

karcun · 12.09.2011, 22:40

Цитата:

Сообщение от Gazovik2011


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

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