The KGB Oracle
any help in figuring out how to use it would be great it evidentally walks back and forth and diggs the person who gave it to me also handed me 800 fossils to grind with... so it works
we need to get it working

#RequireAdmin
#include <date.au3>
#include <Constants.au3>
#include <WinAPI.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
HotKeySet("^!1", "Terminate") ;press ctrl, alt, 1 to terminate
HotKeySet("^!2", "TogglePause") ;press crtl, alt, 2 to togglepause
HotKeySet("\", "Loot") ;press this third to activate \ (might have to press twice)
HotKeySet("[", "Loott") ;press this first [
HotKeySet("]", "Loottt") ;press this second ]



Global $toggle, $pos, $colour, $paused, $p1, $p2, $p3, $p4

;$lootset = MouseGetPos()
ToolTip("passive",0,0)
While 1
If ($toggle == 1) Then
Loop()
EndIf
Sleep(30)
WEnd


Func Loop()
If (WinExists("Darkfall Online")) Then
WinActivate("Darkfall Online")

;WinWaitActive("Darkfall Online")
_WinAPI_Mouse_Event($MOUSEEVENTF_MOVE,625,0)
WEAP1()
Send("{w down}")
Sleep(15000) ; how long you will run, this can be reduced to as low as 13000 (13 seconds)
Send("{w up}")
MCL()
Sleep(8000)
_WinAPI_Mouse_Event($MOUSEEVENTF_MOVE,-625,0)
WEAP1()
Send("{w down}")
Sleep(15000) ; how long you will run, this can be reduced to as low as 13000 (13 seconds)
Send("{w up}")
MCL()
Sleep(8000)
;sleep(500)
;_WinAPI_Mouse_Event($MOUSEEVENTF_MOVE,-5,-5) ; you might want to play with the last number if (y coordinate if you find that your character stops digging because he no longer is looking down far enough)

;Loot()

Else
Loot()
EndIf


EndFunc

Func Loott()
;activate()
$pos = MouseGetPos()
$colour=PixelGetColor($pos[0],$pos[1])
;MouseClick("left",$recset[0],$recset[1],2)
MsgBox(4096, "Test", $colour, 10)
EndFunc

Func Loottt()
;activate()
$colour=PixelGetColor($pos[0],$pos[1])
;MouseClick("left",$recset[0],$recset[1],2)
MsgBox(4096, "Test", $colour, 10)
EndFunc


Func MCL()
activate()
MouseDown("left")
Sleep(30)
MouseUp("left")
Sleep(10)
EndFunc


Func WEAP1()
Send("{NUMPAD1}") ; sets the quick key that has your shovel
Sleep(30)
Send("{NUMPAD1}")
Sleep(100)

EndFunc



Func activate()
WinActivate("Darkfall Online")
Sleep(50)
EndFunc

Func Loot()
If( $toggle == 0 ) Then
$toggle = 1
ToolTip("active",0,0)
Else
$toggle = 0
ToolTip("passive",0,0)
EndIf
EndFunc


Func Terminate()
Exit 0
EndFunc

Func TogglePause()
$paused = NOT $paused
While $paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
used auto it to make a exe for this script
you equip a shovel in your number 1 quickslot on paper doll and then hit \ to start and stop the script i ran it all night and came back still in the safe zone with 1500 potatoes onions eggs 800 carrots and 350 fossils

this will help a ton
bump
and people said that you nolonger needed to macro in darkfall:)

next week the return of the bloodwall
you dont need to.. this is for the extra lazy man lol.. the benefits from it are not really that good at all
and it isnt working post patch either its broke
Well at least you got a lot of food to start making higher level food with! Hopefully that will help us make crafting prowess!
© The KGB Oracle