Hello i'm looking for someone who could make a bot for the QTE from the excavation lvl 20, this look like this [Only registered and activated users can see links. Click Here To Register...]
Thanks a lot !
Thanks a lot !
HotKeySet("²", "space")
HotKeySet("{ESC}","KillSwitch")
while 1
Sleep(50)
Wend
Func space()
while 1
$PIX = PixelSearch(793, 672, 1120, 692, 0x2DA6C7,0)
$ARROW = PixelSearch(794, 690, 1119, 705, 0xE99800,0)
if $PIX[0] == $ARROW[0] Then
Send("{SPACE}")
EndIf
WEnd
EndFunc
Func KillSwitch()
Exit
EndFunc
HotKeySet("²", "espace")
HotKeySet("{ESC}","KillSwitch")
while 1
Sleep(50)
Wend
Func espace()
Global $PIX = PixelSearch(796, 682, 1117, 682, 0x0580C2,10,1)
while [MENTION=299637]ErRoR[/MENTION]
Dim $PIX = PixelSearch(796, 682, 1117, 682, 0x0580C2,10,1)
WEnd
while 1
$ARROW = PixelSearch($PIX[0] - 1, 698, $PIX[0] + 1, 698, 0xED9B00,10,1)
if [MENTION=2544426]Error T[/MENTION]hen
ContinueLoop
Endif
if Abs($PIX[0] - $ARROW[0]) <= 3 Then
Send("{SPACE}")
Sleep(500)
Dim $PIX = PixelSearch(796, 682, 1117, 682, 0x0580C2,10,1)
while [MENTION=299637]ErRoR[/MENTION]
Dim $PIX = PixelSearch(796, 682, 1117, 682, 0x0580C2,10,1)
WEnd
EndIf
WEnd
EndFunc
Func KillSwitch()
Exit
EndFunc
;2560x1440 monitor with Force Widescreen option enabled
Global $g_bPaused = False
Global $Color1 = 0x1675B0 ;Blue
Global $Color2 = 0xEA9305 ;Orange
HotKeySet( "{PAUSE}", "TogglePause") ;Pause the program
HotKeySet( "+!{ESC}", "Terminate") ;Close the program
While 1
FindPixels()
WEnd
Func FindPixels()
$Search1 = Pixelsearch(1064, 901, 1489, 919, $Color1, 100)
if @ error = 0 then
$Search2 = Pixelsearch($Search1[0], 924, $Search1[0], 935, $Color2, 50)
if @ error = 0 then
Sleep(60) ;Delay before the space press. Delay depends on your excavation tool. This works for minigame difficulty decrease 3.
Send("{SPACE}")
Sleep(1000) ; Pause after success to prevent spamming spacebar
ENDIF
ENDIF
EndFunc
Func TogglePause()
$g_bPaused = Not $g_bPaused
While $g_bPaused
Sleep(100)
ToolTip('Script is "Paused"', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause
Func Terminate()
Exit
EndFunc ;==>Terminate
Quote:
What is the point of line 16, i know it's for the arrow, but what are the numbers of 924 and 935. Is that the length of the arrow you're looking for?
$Search1 = Pixelsearch(1064, 901, 1489, 919, $Color1, 100)
$Search2 = Pixelsearch($Search1[0], 924, $Search1[0], 935, $Color2, 50)