Yay me!

[Doh!]

Well, after rtfm and utfse and reading everything I could find,

IT WORKS.....

Code: Select all

sub main

:loop
/delay 50
/call forage
/goto :loop
/return

sub forage
	/if n $char(ability,"Forage")>0 /doability Forage
      	/delay 20
	/if "$cursor()"=="TRUE" /call check
	/return

sub check
	/if "$cursor(name)"=="Branch of Planar Oak" /click left auto
	/if "$cursor(name)"=="Morning Dew" /click left auto
	/if "$cursor(name)"=="Oak Bark" /click left auto
	/click left destroy
	/return

Yeah, nothing fancy. And most (actually, all of it) is stolen from other macros posted here.....

Thanks for the work you have put into MQ....

Now to write my own.....

[Doh!]

sub main

:loop
/delay 20
/call forage
/goto :loop
/return

sub forage
/if n $char(ability,"Forage")<=0 /return
/doability Forage
/delay 20
/call check
/return

sub check
/if "$cursor(name)"=="Branch of Planar Oak" /click left auto
/if "$cursor(name)"=="Morning Dew" /click left auto
/if "$cursor(name)"=="Oak Bark" /click left auto
/click left destroy
/return

I soon discovered that if I had an item on my cursor it would poof (with fast destroy), so I changed the changed the "ability refreshed yet"? check to /return if the ability wasnt ready, instead of cycling through if i had something on my cursor.

And at 200 forage skill, i didnt need the /if "$cursor()"=="TRUE" check either, as at 200 forage skill, you will always forage something....


I'm learning.....