[Grand Theft Auto V (RP)] Бот на рыбалку.

[4upik]

Сложно разобраться с циклом ловли рыбы. Требуется открыть инвентарь клавишей "i" затем если в координатах "1117, 290" цвет "4576AB"$colour = PixelGetColor(1117, 290) If $colour = 4576Ab Then выполняется следующее действие: в координатах "1017, 286" нажимается правая кнопка мышиMouseClick("right" [,1017, 286[, clicks = 1 [, speed = 0 ]]] ). Далее в течении 35 секунд в координатах "811, 759" ищется цвет "0xFF0000" если он появился мышь начинает делать клики левой кнопкой с интервалом 0.2сMouseClick("left") Sleep(20), если цвет не найден простое ожидание цвета. При истечении 35 секунд повторяются все действия (начиная (Требуется открыть инвентарь клавишей "i")).Если в этих координатах ("1117, 290" цвет "4576AB") нет нужного цвета то скрипт дает характерный звук того что закончилась наживка, остановка скрипта.

 

[Mirag]

Скинь итоговый код, посмотрю

 

[4upik]

HotKeySet("!e", "_Action")
HotKeySet("!9", "_pause")
While 1
   Sleep(10)
WEnd
Func _Action()
   While 1
      Send("I")
      $colour = PixelGetColor(1117, 290)
      If $colour = 4576Ab Then
         MouseClick("right" [,1017, 286[, clicks = 1 [, speed = 0 ]]] )
         ; функция со временем
         $colour = PixelGetColor(811, 759)
         If $colour = 0xFF0000 Then
         MouseClick("left")
         Sleep(20)
         ;таймер закончился повторение действия с  ( Send("I"))
      ;если цвет не найден остановка скрипта звуковой сигнал
      EndIf
   WEnd
EndFunc

Func _pause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Скрипт приостановлен')
    WEnd
    ToolTip("")
 EndFunc

Что то вроде такого получилось у меня
но в имеющей функции _pause не то что я хотел, когда я запускаю эту функцию скрипт выключается и выходит какая та ошибка, хотелось бы сделать чтоб при паузе и запуске издавался любой звук (но это не столь важно как основная функция)

 

[Mirag]

HotKeySet("!e", "_Action")
HotKeySet("!9", "_pause")

Local $Paused = False

While 1
   Sleep(10)
WEnd

Func _Action()
   Beep(500, 1000);звук при запуске
   While 1
      Send("I")
      $colour = PixelGetColor(1117, 290)
      If $colour = 4576Ab Then
         MouseClick("right", 1017, 286, 1, 0)
         ;Sleep(100);убрать коммент, если будет ошибка между двумя кликами
         $hTimer = TimerInit()
         Do
            ; функция со временем
            $colour = PixelGetColor(811, 759)
            If $colour = 0xFF0000 Then
               MouseClick("left")
               Sleep(200);пауза 0,2 сек.
            EndIf
            $a = TimerDiff ($hTimer)
         Until $a >= 35000;выход из цикла после 35 сек.
      Else
         Beep(500, 1000);звук при остановке
         Exit; если речь шла о постановке скрипта на паузу, то тут вместо Beep и Exit вставь _pause()
      EndIf
      Sleep(10)
   WEnd
EndFunc

Func _pause()
    $Paused = Not $Paused
    Beep(500, 1000);звук при паузе
    While $Paused
        Sleep(100)
        ToolTip('Скрипт приостановлен')
    WEnd
    ToolTip("")
 EndFunc

 

[4upik]

нажатие кнопки не производилось почитал форум эта кнопка обозначается так: Send("{ASC 105}")
но по непонятной причине у меня при запуске выполняется действие нажатия клавиши далее игра сворачивается при попытке развернуть она опять сворачивается пока не закрою скрипт

 

[Mirag]

Возможно, в игре стоит защита от ботов. Попробуй убрать строку Send и вручную нажать I, а бот пусть кликает мышью. Если и тогда свернётся, то это защита, если нет, то будем дальше думать. А ещё проверь раскладку клавиатуры перед запуском (поставь англ)