REQUEST Lost ark excavation minigame bot

[FreeMalware]

Im looking for a Lost ark excavation minigame bot-script

[SkilloSkillo]

Originally Posted by FreeMalware

Im looking for a Lost ark excavation minigame bot-script

That would be really cool! In the mean time, i recommend looking for tools that make the minigame easier, they help a lot ^^

[xmatador22]

was already done with the help of @ and autoit in the thread below


Below the edited version with the different coordinates that is use.
Can't verify the 1080p one

;Edit the lines 28/30 with the coordinates below that u need
;2560x1440 monitor with Force Widescreen option enabled $Search1 = Pixelsearch(1064, 901, 1489, 919, $Color1, 100)
;														$Search2 = Pixelsearch($Search1[0], 924, $Search1[0], 935, $Color2, 50)
;
;2560x1440 monitor $Search1 = Pixelsearch(987, 957, 1558, 986, $Color1, 100)
;				   $Search2 = Pixelsearch($Search1[0], 986, $Search1[0], 1020, $Color2, 50)
;
;1090x1080 monitor $Search1 = Pixelsearch(741, 720, 1168, 739, $Color1, 100)
;				   $Search2 = Pixelsearch($Search1[0], 744, $Search1[0], 760, $Color2, 50)
Global $Color1 = 0x1675B0 ;Blue
Global $Color2 = 0xEA9305 ;Orange
HotKeySet( "{NUMPAD6}", "TogglePause") ;Pause the program
HotKeySet( "{NUMPAD9}", "Terminate") ;Close the program
Global $Paused = False ;set var top of script
Func TogglePause() ; anywhere in script
$Paused = Not $Paused ; change the state of the var
While $Paused
  Sleep(100)
WEnd
EndFunc   ;==>TogglePause


While 1
	FindPixels()
WEnd

Func FindPixels()
   $Search1 = Pixelsearch(987, 957, 1558, 986, $Color1, 100)
   if   @ error = 0 then
	  $Search2 = Pixelsearch($Search1[0], 986, $Search1[0], 1020, $Color2, 50)
	  if   @ error = 0 then
		 Sleep(40) ;Delay before the space press. Delay depends on your excavation tool. This works for minigame difficulty decrease 2.
		 Send("{SPACE}")
		 Sleep(1000) ; Pause after success to prevent spamming spacebar
	  ENDIF
   ENDIF
EndFunc


 Func Terminate()
    Exit
 EndFunc   ;==>Terminate9

remove the "space" between the @ and error at line 29/30 epvpers wants to mention "error" there ^^

[FreeMalware]

Originally Posted by xmatador22

was already done with the help of @ and autoit in the thread below


Below the edited version with the different coordinates that is use.
Can't verify the 1080p one

;Edit the lines 28/30 with the coordinates below that u need
;2560x1440 monitor with Force Widescreen option enabled $Search1 = Pixelsearch(1064, 901, 1489, 919, $Color1, 100)
;														$Search2 = Pixelsearch($Search1[0], 924, $Search1[0], 935, $Color2, 50)
;
;2560x1440 monitor $Search1 = Pixelsearch(987, 957, 1558, 986, $Color1, 100)
;				   $Search2 = Pixelsearch($Search1[0], 986, $Search1[0], 1020, $Color2, 50)
;
;1090x1080 monitor $Search1 = Pixelsearch(741, 720, 1168, 739, $Color1, 100)
;				   $Search2 = Pixelsearch($Search1[0], 744, $Search1[0], 760, $Color2, 50)
Global $Color1 = 0x1675B0 ;Blue
Global $Color2 = 0xEA9305 ;Orange
HotKeySet( "{NUMPAD6}", "TogglePause") ;Pause the program
HotKeySet( "{NUMPAD9}", "Terminate") ;Close the program
Global $Paused = False ;set var top of script
Func TogglePause() ; anywhere in script
$Paused = Not $Paused ; change the state of the var
While $Paused
  Sleep(100)
WEnd
EndFunc   ;==>TogglePause


While 1
	FindPixels()
WEnd

Func FindPixels()
   $Search1 = Pixelsearch(987, 957, 1558, 986, $Color1, 100)
   if   @ error = 0 then
	  $Search2 = Pixelsearch($Search1[0], 986, $Search1[0], 1020, $Color2, 50)
	  if   @ error = 0 then
		 Sleep(40) ;Delay before the space press. Delay depends on your excavation tool. This works for minigame difficulty decrease 2.
		 Send("{SPACE}")
		 Sleep(1000) ; Pause after success to prevent spamming spacebar
	  ENDIF
   ENDIF
EndFunc


 Func Terminate()
    Exit
 EndFunc   ;==>Terminate9

remove the "space" between the @ and error at line 29/30 epvpers wants to mention "error" there ^^

when i have a 1920/1080 monitor what should i do here =?





;Edit the lines 28/30 with the coordinates below that u need
;2560x1440 monitor with Force Widescreen option enabled $Search1 = Pixelsearch(1064, 901, 1489, 919, $Color1, 100)
; $Search2 = Pixelsearch($Search1[0], 924, $Search1[0], 935, $Color2, 50)
;
;2560x1440 monitor $Search1 = Pixelsearch(987, 957, 1558, 986, $Color1, 100)
; $Search2 = Pixelsearch($Search1[0], 986, $Search1[0], 1020, $Color2, 50)
;
;1090x1080 monitor $Search1 = Pixelsearch(741, 720, 1168, 739, $Color1, 100)
; $Search2 = Pixelsearch($Search1[0], 744, $Search1[0], 760, $Color2, 50)

[badyami]

Originally Posted by FreeMalware

when i have a 1920/1080 monitor what should i do here =?





;Edit the lines 28/30 with the coordinates below that u need
;2560x1440 monitor with Force Widescreen option enabled $Search1 = Pixelsearch(1064, 901, 1489, 919, $Color1, 100)
; $Search2 = Pixelsearch($Search1[0], 924, $Search1[0], 935, $Color2, 50)
;
;2560x1440 monitor $Search1 = Pixelsearch(987, 957, 1558, 986, $Color1, 100)
; $Search2 = Pixelsearch($Search1[0], 986, $Search1[0], 1020, $Color2, 50)
;
;1090x1080 monitor $Search1 = Pixelsearch(741, 720, 1168, 739, $Color1, 100)
; $Search2 = Pixelsearch($Search1[0], 744, $Search1[0], 760, $Color2, 50)

Can you help me to monitor 3840*2160 please?

[denisdani]

Hello, can you tell me how I can compile the script? Thanks