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

[volumed]

а как настроить спининг?

PHP код:

;То, что ниже, нужно настраивать
;Заголовок окна браузера, брать из утилиты AutoIT Window Info
$winClass = "Chrome_WidgetWin_0"
$winTitle = "Рыбное место - ловим рыбу с друзьями! - Google Chrome"

;Координаты верхнего левого пикселя приложения
$posX = 592
$posY = 257

;Набор цветов поплавка
Dim $color[9]
$color[0] = 0xAF3434
$color[1] = 0xD50202
$color[2] = 0xFF9F00
$color[3] = 0xD0661E
$color[4] = 0xFFCC00
$color[5] = 0xBF9900
$color[6] = 0xFF0000
$color[7] = 0xFFDA28
$color[8] = 0x141015

;Звуки
$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"

;Дальше настраивать и трогать не надо
$buttonX    = $posX + 463
$buttonY    = $posY + 300
$buttonC    = "563A12"

$posSX0 = $posX + 419
$posSY0 = $posY + 35
$posSX1 = $posX + 531
$posSY1 = $posY + 339

$x0         = $posX + 218
$y0         = $posY + 258
$x1         = $posX + 320
$y1         = $posY + 370
$str        = $posX + 104 + 140
$end        = $posX + 491 - 140
$lvl        = $posY + 505
$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)
    MouseClick("left", $posX - 1, $posY)
    SLEEP(200)
    Send("{Home}")
    SLEEP(200)
    MouseClick("left", $posX + 1, $posY + 1)
   
   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 * 60 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
    
    Send("{Space}")
    SLEEP(5000)

    $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
        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 


[Sanych223322]

И я бан выхватил

[Мотька163]

Вот что пишет при запуске на Ф5:
Line (File"C:\Program Files\Yt eljkznm\Не удалять(бот).au3"):
$win Title = Рыбное место - ловим рыбу с друзьями! - Google
Chrome
$win Title = ^ ERROR
Error: Unable to parse line.
Что делать?

Добавлено через 16 минут
>"D:\ТИМОХИНО\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "D:\ТИМОХИНО\AutoIt3\sad.au3"
D:\????????\AutoIt3\sad.au3 (3) : ==> Missing separator character after keyword.:
$winClass = Chrome_WidgetWin_0
$winClass = Chrome_WidgetWin_0^ ERROR
>Exit code: 1 Time: 1.100
Там была ошибка а это пишет в самом едикторе =(

[trenerok]

ахеренный скрипт. автору респект. научил его ловить на тролинг250.

Добавлено через 4 минуты

Цитата: Сообщение от volumed а как настроить спининг?

просто забрасывай спиннинг. он его сразу тянуть будет. если подцепит чего, то достанет.

Добавлено через 8 минут
в кавычки возьми название окна.

Добавлено через 10 минут

Цитата: Сообщение от Мотька163 Вот что пишет при запуске на Ф5: Line (File"C:\Program Files\Yt eljkznm\Не удалять(бот).au3"): $win Title = Рыбное место - ловим рыбу с друзьями! - Google Chrome $win Title = ^ ERROR Error: Unable to parse line. Что делать? Добавлено через 16 минут >"D:\ТИМОХИНО\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "D:\ТИМОХИНО\AutoIt3\sad.au3" D:\????????\AutoIt3\sad.au3 (3) : ==> Missing separator character after keyword.: $winClass = Chrome_WidgetWin_0 $winClass = Chrome_WidgetWin_0^ ERROR >Exit code: 1 Time: 1.100 Там была ошибка а это пишет в самом едикторе =(

текст после равно должен быть в кавычках.
проверь, не снес ли ты их, когда вставлял из буфера.
$winClass = "Chrome_WidgetWin_1"
$winTitle = "Рыбное место - ловим рыбу с друзьями! - Google Chrome"

[gamer114]

karcun, тут вышло в ВК Рыбное место 2. Ты можешь изменить код и сделать бот под него?
Ответь хотя бы, можешь или нет.

[magnum2001]

не могу нажать F5 и F7 они просто не активные что делать?

[magnum2001]

ответьте плиз кто то как вы нажали F5 и F7 они у меня не активные???

[NikitkaYY]

Что то не получааеться

[koli981]

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

[Faget1992]

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

[agent1997]

помогите сделал ка вы и сказали но прога нажимает верхний левый пиксель и выходит из игры и вкл. что попадётся
вот код который у меня введён
;То, что ниже, нужно настраивать
;Заголовок окна браузера, брать из утилиты AutoIT Window Info
$winClass = "Chrome_WidgetWin_1"
$winTitle = "Рыбное место - ловим рыбу с друзьями! - Google Chrome"
;Координаты верхнего левого пикселя приложения
$posX = 264
$posY = 108
;Набор цветов поплавка
Dim $color[9]
$color[0] = 0xFF8000
$color[1] = 0xD50202
$color[2] = 0xFF9F00
$color[3] = 0xD0661E
$color[4] = 0xFFCC00
$color[5] = 0xBF9900
$color[6] = 0xFF0000
$color[7] = 0xFFDA28
$color[8] = 0x141015
;Звуки
$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"
;Дальше настраивать и трогать не надо
$buttonX = $posX + 463
$buttonY = $posY + 300
$buttonC = "563A12"

$posSX0 = $posX + 419
$posSY0 = $posY + 35
$posSX1 = $posX + 531
$posSY1 = $posY + 339

$x0 = $posX + 218
$y0 = $posY + 258
$x1 = $posX + 320
$y1 = $posY + 370
$str = $posX + 104 + 140
$end = $posX + 491 - 140
$lvl = $posY + 505
$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)
MouseClick("left", $posX - 1, $posY)
SLEEP(200)
Send("{Home}")
SLEEP(200)
MouseClick("left", $posX + 1, $posY + 1)

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 * 60 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

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
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

[GornengasT]

Бот отменный, за что огромное спасибо автору! Было бы не плохо научить его продавать улов и закупать наживку и т.п. и цены бы ему не было.)) Хотя это трудно реализовать...
зы Тоже интересует вопрос адаптации кода по Рыбное Место 2, пробовал сам, безрезультатно((

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

[spy4ik]

Народ, а как бы поправить в этом скриптеке такой момент:

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

[XePdAs]

Я извеняюсь,но как настроить координаты треугольника?Ато у меня то клюёт то нет,наверное изза того что в треугольник поплавок не попадает...

[Ivandrey]

Спасибо!!!