Payala Scavenger

[noober]

I wrote this to collect payala fruit to raise my brewing skill, ran good for me, has bits and pieces of a lot of macros so my hat goes off to all macroers that post here and specially to our mighty developers, thanks all and enjoy.

Code: Select all

/declare TargetDistance float global
Sub Main
       :Loop
       /Call TargetItem
       /Call MoveToItem
       /Call GetItem
       /Call Rest    
       /goto :loop
/return

Sub TargetItem
        /echo Targeting a shroom . . .
        /ItemTarget *Blue 
/return

Sub MoveToItem
       :keepmoving
       /varset TargetDistance ${Target.Distance}
       /face fast nolook
       /keypress forward hold
       /delay 5
       /call CheckIfStuck   
       /if (${Ground.Distance}>10) /goto :keepmoving
       /keypress back   
/return

Sub CheckIfStuck
       |/echo is ${TargetDistance} = ${Target.Distance} ? 
       /if (${TargetDistance}==${Target.Distance}) {
           /echo I am stuck
           /keypress back hold
           /delay 1s
           /keypress back
           /if (${Math.Rand[99]}>50) {
               /keypress strafe_right hold
           } else {
               /keypress strafe_left hold
           }
           /delay 2s
           /keypress strafe_right
           /keypress strafe_left
           /keypress forward hold
       }
/Return


Sub GetItem
       /click left item 
       /delay 1s
       /autoinventory
       /delay 1s 
       /autoinventory
       /keypress backspace
       /mapfilter ground hide
       /mapfilter ground show 
       /keypress backspace
/Return

Sub Rest
       /delay 10s
       /echo Getting next phat lewt!
/Return

[mekaniak]

im looking to collect the acorns in misty thicket but my char keeps running straight into the wall, how would i go about collecting the acrons only in a specific radius?

[Programmer]

/if (${Ground.Distance}>10) /goto :keepmoving

There are two (that I see) occurrances of your greater-than sign being replaced with html. Anyone pasting this needs to compensate or the macro will not work.

[Caffeine]

Hey Mek,
I haven't started making it yet, but I'm gonna make a Misty acorns macro like the one above. The solution I'm planning on using is an /if statement that compares the location of the target acorn with your own, and since the Y axis loc of the wall is fairly similar all the way down, I'll have it run to the gate entry, then through the gate in the event of an acorn on the other side.
If I feel the macro is worthy of posting, I will do so once I finish with it.

Added Saturday July 10th
Mek, I made a misty acorns one, its posted in forum. Just search for "misty acorn" Good luck.

[aChallenged1]

Attempted to run this and CTD, tried again, CTD.

The first time it picked up one and crashed, the second time it crashed as soon as it finished initializing.

[aChallenged1]

Ok, may not be the macro... in fact I doubt it is.

Went back in game and did not start the macro just opened map and found groundspawn and right clicked on it and CTD. I can right click NPCs no problem.