Автоматизация Нужен аутокликер для игры Idling to Rule the God.

[Suslik]

В игре имеется вот такой экран:

Необходимо нажать клавишу HIT когда синяя полоса в белой зоны. После каждого попадания белая зона меняет положение, также она с увеличением уровня меняет уменьшает размер. Синяя шкала движется постоянно, с увеличением уровня ускоряется!

После каждого перерождения муторно тут набивать заново все. Прошу помогите создать кликер для этого дела

 

[TiranCool]

В игре имеется вот такой экран:
Посмотреть вложение 3903
Необходимо нажать клавишу HIT когда синяя полоса в белой зоны. После каждого попадания белая зона меняет положение, также она с увеличением уровня меняет уменьшает размер. Синяя шкала движется постоянно, с увеличением уровня ускоряется!
Посмотреть вложение 3904
После каждого перерождения муторно тут набивать заново все. Прошу помогите создать кликер для этого дела

Попробуй такой скрипт:

#include <Misc.au3>
#include <Timers.au3>

Opt("MouseClickDelay")
Opt("MouseClickDownDelay")
Opt("MouseCoordMode", 1)
Global $bPaused, $hDll, $aXY, $iDiff
OnAutoItExitRegister("_OnExit")
HotKeySet("{f5}", "_Start")
HotKeySet("{f6}", "_Pause")
HotKeySet("{0}", "_Exit")

$hDll = DllOpen("user32.dll")
_Start()

While 1
                                       $hTimer = TimerInit()
    Sleep(8000); Указать время, через которое будет нажиматься левая клавиша мыши
    MouseClick("left")
     $iDiff = TimerDiff($hTimer)
;~       MsgBox(0, "Разница во времени", $iDiff)
WEnd

Func _Start()
    ToolTip("Script _Started... Press F6 to _Pause, 0 Exit", 1, 1);F5- старт, F6 - пауза, 0 - закрывает программу
    $bPaused = False
EndFunc   ;==>_Start

Func _Pause()
    $bPaused = True
     $i=0
    ToolTip("Script _Paused... Press F5 to _Start, 0 Exit", 1, 1)
    While $bPaused
        Sleep(100)
    WEnd
EndFunc   ;==>_Pause

Func _OnExit()
    DllClose($hDll)
EndFunc   ;==>_OnExit

Func _Exit()
    Exit
EndFunc   ;==>_Quit

 

[Suslik]

Попробуй такой скрипт:

#include <Misc.au3>
#include <Timers.au3>

Opt("MouseClickDelay")
Opt("MouseClickDownDelay")
Opt("MouseCoordMode", 1)
Global $bPaused, $hDll, $aXY, $iDiff
OnAutoItExitRegister("_OnExit")
HotKeySet("{f5}", "_Start")
HotKeySet("{f6}", "_Pause")
HotKeySet("{0}", "_Exit")

$hDll = DllOpen("user32.dll")
_Start()

While 1
                                       $hTimer = TimerInit()
    Sleep(8000); Указать время, через которое будет нажиматься левая клавиша мыши
    MouseClick("left")
     $iDiff = TimerDiff($hTimer)
;~       MsgBox(0, "Разница во времени", $iDiff)
WEnd

Func _Start()
    ToolTip("Script _Started... Press F6 to _Pause, 0 Exit", 1, 1);F5- старт, F6 - пауза, 0 - закрывает программу
    $bPaused = False
EndFunc   ;==>_Start

Func _Pause()
    $bPaused = True
     $i=0
    ToolTip("Script _Paused... Press F5 to _Start, 0 Exit", 1, 1)
    While $bPaused
        Sleep(100)
    WEnd
EndFunc   ;==>_Pause

Func _OnExit()
    DllClose($hDll)
EndFunc   ;==>_OnExit

Func _Exit()
    Exit
EndFunc   ;==>_Quit

Это простой кликер! Я не знаю как реализовать возможность пиксельного анализа экрана! Необходимо щелкнуть мышкой только когда синяя зона доходит до белой, если ты не попадание то ты теряешь один левл, если попадаешь то +1. С увеличением уровня белая зона становится меньше, а скорость синего бегунка увеличивается

 

[TiranCool]

Подбери диапазон и цвет (диапазон пометил ???):
Функция - pixelsearch (https://autoit-script.ru/docs/functions/pixelsearch.htm)

#include <Misc.au3>
#include <Timers.au3>

Opt("MouseClickDelay")
Opt("MouseClickDownDelay")
Opt("MouseCoordMode", 1)
Global $bPaused, $hDll, $aXY, $iDiff
OnAutoItExitRegister("_OnExit")
HotKeySet("{f5}", "_Start")
HotKeySet("{f6}", "_Pause")
HotKeySet("{0}", "_Exit")

$hDll = DllOpen("user32.dll")
_Start()

While 1
       $hTimer = TimerInit()
    PixelSearch(@DesktopWidth/???,@DesktopHeight/???,@DesktopWidth/???,@DesktopHeight/???, 0x273E96, 10); указать диапазон поиска и подобрать цвет
     If Not @error Then
        MouseClick("Left")
     Endif
       $iDiff = TimerDiff($hTimer)
;~       MsgBox(0, "Разница во времени", $iDiff)
WEnd

Func _Start()
    ToolTip("Script _Started... Press F6 to _Pause, 0 Exit", 1, 1);F5- старт, F6 - пауза, 0 - закрывает программу
    $bPaused = False
EndFunc   ;==>_Start

Func _Pause()
    $bPaused = True
     $i=0
    ToolTip("Script _Paused... Press F5 to _Start, 0 Exit", 1, 1)
    While $bPaused
        Sleep(100)
    WEnd
EndFunc   ;==>_Pause

Func _OnExit()
    DllClose($hDll)
EndFunc   ;==>_OnExit

Func _Exit()
    Exit
EndFunc   ;==>_Quit

Сообщение автоматически объединено: 18 Апр 2020

Это простой кликер! Я не знаю как реализовать возможность пиксельного анализа экрана! Необходимо щелкнуть мышкой только когда синяя зона доходит до белой, если ты не попадание то ты теряешь один левл, если попадаешь то +1. С увеличением уровня белая зона становится меньше, а скорость синего бегунка увеличивается

Тебе все равно нужно найти область где искать пиксели

#include <WinAPIEx.au3>
#include <misc.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>

Opt("MouseClickDelay")
Opt("MouseClickDownDelay")
Opt("MouseCoordMode", 1)
Global $bPaused, $hDll, $aXY, $iDiff
OnAutoItExitRegister("_OnExit")
HotKeySet("{f5}", "_Start")
HotKeySet("{f6}", "_Pause")
HotKeySet("{0}", "_Exit")

AutoItSetOption("MouseCoordMode", 2)
$hWnd = WinGetHandle("[ACTIVE]")

_Area(945, 500, 950, 350); - показать область поиска пикселя
$hDll = DllOpen("user32.dll")

_Start()

Func _Area($iLeft, $iTop, $iRght, $iBottom, $iTrans=150)
    Local $hWin = GUICreate('Win', $iTop, $iBottom, $iLeft, $iBottom, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW, $WS_EX_TRANSPARENT))

    WinSetTrans($hWin, '',      $iTrans)
    GUISetBkColor(0x0000e,     $hWin)
    GUISetState(@SW_SHOW,       $hWin)
    EndFunc


While 1
       $hTimer = TimerInit()
    $coord =PixelSearch(@DesktopWidth/945,@DesktopHeight/5,@DesktopWidth/950,@DesktopHeight/350, 0x3E5780, 50, 2, $hWnd); указать диапазон поиска и подобрать цвет
    If IsArray($coord) = True Then
    MouseClick("LEFT")

     Endif
       $iDiff = TimerDiff($hTimer)
WEnd

Func _Start()
    ToolTip("Script _Started... Press F6 to _Pause, 0 Exit", 1, 1);F5- старт, F6 - пауза, 0 - закрывает программу
    $bPaused = False
EndFunc   ;==>_Start

Func _Pause()
    $bPaused = True
     $i=0
    ToolTip("Script _Paused... Press F5 to _Start, 0 Exit", 1, 1)
    While $bPaused
        Sleep(100)
    WEnd
EndFunc   ;==>_Pause

Func _OnExit()
    DllClose($hDll)
EndFunc   ;==>_OnExit

Func _Exit()
    Exit
EndFunc   ;==>_Quit