emo Macro REQ: gather+multi gather tools

More
10 years 7 months ago #38733

Need a macro that gathers/rests/uses multi gathering tools.

10 years 7 months ago #62136

I've been lookingt into writing something like this, but the problem I have come across is the fact that AutoIt and ACTools both don't have an easy way to make this functional.

It would be nice if there was a nice way to macro like what that UO macro program did. You could set it to check error messages, health, mana, etc. I have yet to find anything in either of those that makes this easy. The best I could do would be create a rail that went between a number of specific nodes and harvested them and then repeated.

It would take forever to make and would break easily. Driath might know something I do not though. And I would have to create a macro for each and every gathering profession because I have not found anything that would make it know what kind of node it was on besides trial and error, and even then I don't know if I could make the macro know that it was successful, lol.

I'll let Driath look into this one.

More
10 years 7 months ago #62315

best i could do for now, haven't spent much time on it. I didn't put any of the questions, so you'll have to manually adjust it for your hotkeys... check the comments. Let me know if you see any ways to improve it.

; based on the one geek posted, but actually manages to rest and loop

HotKeySet("{DEL}", "Terminate")
WinActivate ("Darkfall Online")
Sleep (2000)

Dim $i
$i = 0

While $i < 2 ; if you aren't emptying the source in 2 rotations, cahnge this to 3
Harvest()
Sleep (1000)
Rest()
Sleep (1000)

$i = $i + 1
Wend
 
Func Harvest()
	Send ("0") ; random weapon in slot 0
	Sleep (1000)
	
	Send ("3") ; gathering item in slot 3
	Sleep (1000)

	Send ("R")
	Sleep (1000)

	MouseClick ("Left")
	Sleep (555000) ; this is around how long i take to run out of stam
	; adjust as necessary

	; crouches to break gathering so we make sure to rest
	; the other macro didn't seem always rest properly
    Send( "{Q DOWN}" ) ; change Q to your crouch hotkey
	Sleep (1000)
	
	Send( "{Q UP}" ) ; change Q to your crouch hotkey
	Sleep (1000)

	Send ("R")
	Sleep (2000)
EndFunc
 
Func Rest()
	Send ("5")
	Sleep (1000)
	
	MouseClick ("Left")
	Sleep (120000)
	
	Send( "{SPACE}" )
	Sleep (1000)
EndFunc
  
Func Terminate( )
Exit 0
EndFunc

10 years 7 months ago #62330

I'm bored so I'll add the options windows to it later.

10 years 7 months ago #62331

Is there no way to tell it to hold down hotkeys? Been looking through but it won't let me use a variable with DOWN

More
10 years 7 months ago #62332

To attach strings together you can use the & operator like this:

Dim $crouchKey
$crouchKey = "Q"
Send( "{" & $crouchKey & " DOWN}" )