Black Desert Online Auto Feed Workers

[Vinek]

Hey community,
I quickly write down a very simple bot that will auto feed the workers while I`m afk. So what the bot does is:
Push left control to pop up the cursor.
Left click on the Worker icon.
Left click on recover all and left click on confirm to feed with the food.
Then click on the X to close the worker UI.
At least wait 30 minutes to repeat the process.

I start the bot with 7 on the numpad. I know that bdo blocks any outgoing hotkeys, so I put a delay of 5 seconds before the bot begins to work. I tab to desktop, start the bot and push the hotkey, then I tab back into the game and wait for the bot. But now nothing happens. I tested the script, without tabbing back to bdo and now it works fine and the cursor is moving, but not in the game. Could somebody help me to get this to work?

Here is the code:

 Spoiler

HotKeySet("{NUMPAD7}", "_start")
HotKeySet("{NUMPAD9}", "_terminate")

While Sleep(1000)

WEnd

Func _start()

   While 1
	  Sleep(5000)
	  Send("{LCTRL}")
	  Sleep(1000)
	  MouseClick("left", 202, 124, 1)
	  Sleep(1500)
	  MouseClick("left", 1496, 657, 1)
	  Sleep(1000)
	  MouseClick("left", 1274, 340, 1)
	  Sleep(2000)
	  MouseClick("left", 1578, 661, 1)
	  Sleep(1100)
	  MouseClick("left", 1892, 116, 1)
	  Sleep(184000)
   WEnd
EndFunc

Func _terminate()
   Exit 0
EndFunc

[mlukac89]

If you use window mode try like this, right click "Run as admin"

#RequireAdmin

HotKeySet("{NUMPAD7}", "_start")
HotKeySet("{NUMPAD9}", "_terminate")

Global $window = "" ; window name

While 1
	Sleep(1000)
WEnd

Func _start()

	If WinExists($window) Then
		WinActivate($window)
		Sleep(1000)

		While 1
		  Sleep(5000)
		  ControlSend($window, "", "", "{LCTRL}")
		  Sleep(1000)
		  ControlClick($window, "", "", "left", 1, 202, 124)
		  Sleep(1500)
		  ControlClick($window, "", "", "left", 1, 1496, 657)
		  Sleep(1000)
		  ControlClick($window, "", "", "left", 1, 1274, 340)
		  Sleep(2000)
		  ControlClick($window, "", "", "left", 1, 1578, 661)
		  Sleep(1100)
		  ControlClick($window, "", "", "left", 1, 1892, 116)
		  Sleep(184000)
		  #cs
		  Send("{LCTRL}")
		  Sleep(1000)
		  MouseClick("left", 202, 124, 1)
		  Sleep(1500)
		  MouseClick("left", 1496, 657, 1)
		  Sleep(1000)
		  MouseClick("left", 1274, 340, 1)
		  Sleep(2000)
		  MouseClick("left", 1578, 661, 1)
		  Sleep(1100)
		  MouseClick("left", 1892, 116, 1)
		  Sleep(184000)
		  #ce
		WEnd

	Else
		MsgBox(0, "Message", "Window don't exists.");
	EndIf

EndFunc

Func _terminate()
   Exit
EndFunc