• You've discovered RedGuides 📕 an EverQuest multi-boxing community 🛡️🧙🗡️. We want you to play several EQ characters at once, come join us and say hello! 👋
  • IS THIS SITE UGLY? Change the look. To dismiss this notice, click the X --->

Request - I was searching for a Macro (1 Viewer)

elanda

New member
Joined
Sep 13, 2012
RedCents
But didn't seem to come across one on this site to pick up the mushrooms in Kaladim for the hell that my brewing is becoming. Does anyone know where I could find a working one? I seem to remember having one a few years back a friend had given to me but I'm not sure where they found it.
 
The ones we have all used the active hacks which will now get you banned. Give me a few days and I will see if there is any way to revive it without using active hacks.
 
Here's one I used several months ago, not in kaladim though so it may need modifying. You have to be in first person mode and have the center of your screen empty (no windows, bags, etc in the way). /itemtarget and change the listed drop to the value it says you targeted.

Rich (BB code):
Sub main
    /e Pickitem starting...
    /declare ItemToPick string outer Drop11205
    :loop
    /doevents
    /delay 1s
    /squelch /itemtarget ${ItemToPick}
    /delay 2s
    /if ( ${ItemTarget.Name.Length} ) {
        /squelch /face item
        /delay 5
        /call GotoItem
        /squelch /face item fast
        /call GetItem
        /delay 1s ${Cursor.ID}
        /delay 2s
        /if (${Cursor.ID}) /autoinv
    }
    /goto :loop
/return

Sub GotoItem
    :loop
    /if (${ItemTarget.Distance}>20) {
        /if (${Me.State.Equal[DUCK]}) /keypress DUCK
    } else {
        /if (${Me.State.NotEqual[DUCK]}) /keypress DUCK
    }
   
    /if (${ItemTarget.Distance}>0.8) {
        /squelch /face item fast
        /keypress forward hold
        /delay 1
        /keypress forward
        /goto :loop
   }
/return

Sub GetItem
    /declare lookangle int
    /click left center
    /if (!${MacroQuest.LClickedObject} || ${Target.ID}) {
        /look -128
        :loop
        /click left center
        /if (${Target.ID}) /squelch /target clear
        /if (!${MacroQuest.LClickedObject} && ${Me.Look}<0) {
            /varcalc lookangle ${Me.Look}+2
            /look ${lookangle}
            /goto :loop
        }
    }   
/return
 
You can put in the name of the item as like Purple Mushroom if that is what you are looking for.

Rich (BB code):
/declare ItemToPick string outer Purple Mushroom
 
I had issues with using the name. Sometimes the items would respawn as random item names such as cloth hat, silk gloves, etc. This was in Oceangreen however so maybe Kaladim won't do that.
 
Here's one I used several months ago, not in kaladim though so it may need modifying. You have to be in first person mode and have the center of your screen empty (no windows, bags, etc in the way). /itemtarget and change the listed drop to the value it says you targeted.

Rich (BB code):
Sub main
    /e Pickitem starting...
    /declare ItemToPick string outer Drop11205
    :loop
    /doevents
    /delay 1s
    /squelch /itemtarget ${ItemToPick}
    /delay 2s
    /if ( ${ItemTarget.Name.Length} ) {
        /squelch /face item
        /delay 5
        /call GotoItem
        /squelch /face item fast
        /call GetItem
        /delay 1s ${Cursor.ID}
        /delay 2s
        /if (${Cursor.ID}) /autoinv
    }
    /goto :loop
/return

Sub GotoItem
    :loop
    /if (${ItemTarget.Distance}>20) {
        /if (${Me.State.Equal[DUCK]}) /keypress DUCK
    } else {
        /if (${Me.State.NotEqual[DUCK]}) /keypress DUCK
    }
   
    /if (${ItemTarget.Distance}>0.8) {
        /squelch /face item fast
        /keypress forward hold
        /delay 1
        /keypress forward
        /goto :loop
   }
/return

Sub GetItem
    /declare lookangle int
    /click left center
    /if (!${MacroQuest.LClickedObject} || ${Target.ID}) {
        /look -128
        :loop
        /click left center
        /if (${Target.ID}) /squelch /target clear
        /if (!${MacroQuest.LClickedObject} && ${Me.Look}<0) {
            /varcalc lookangle ${Me.Look}+2
            /look ${lookangle}
            /goto :loop
        }
    }   
/return

With very small changes (so small I even could figure it out) - this can be modified to work for the new collection grodunspawns. Running around EW atm and picking up stuff. Just have to monitor to avoid getting stuck in geomery or stuck on an unreachable spawn

Wont try to take credit for the new version, but if you just remove tha Kaladim specific parts and replace with /itemtarget drop , then you're good to go :-)
 
i don't know how to add wild card and radius but that's what i would do tell it to pick up a spawn within 100 radius of any kind but brew barrel. The kalidim ground spawns changes names at random you use to be able to use *red and *blue but not anymore.
 
With very small changes (so small I even could figure it out) - this can be modified to work for the new collection grodunspawns. Running around EW atm and picking up stuff. Just have to monitor to avoid getting stuck in geomery or stuck on an unreachable spawn

Wont try to take credit for the new version, but if you just remove tha Kaladim specific parts and replace with /itemtarget drop , then you're good to go :-)

Please post your version
 
Please post your version

Im sure theres unneeded lines etc, but I basically just removed the line I could see targeting Kaladim muchroom and inserted another itemtarget. Then I tried adding the moveto command that someone posted in another thread and also left the other stuff in just in case one of them didnt work

Its ugly, sloppy and I have no idea how to write macros....but this change just worked for me fine in EW and collected the groundspawns fine. I just didnt 100% afk cause it would sometimes target a bugged spawn or get stuck on a wall

but you can semi afk :-)

Rich (BB code):
Sub main
    /e Pickitem starting...
        :loop
    /doevents
    /delay 1s
    /itemtarget drop
/moveto ${ItemTarget.Y} ${ItemTarget.X}
    /delay 2s
    /face item
        /delay 5
        /call GotoItem
        /squelch /face item fast
        /call GetItem
        /delay 1s ${Cursor.ID}
        /delay 2s
        /if (${Cursor.ID}) /autoinv
    /goto :loop
/return

Sub GotoItem
    :loop
    /if (${ItemTarget.Distance}>20) {
        /if (${Me.State.Equal[DUCK]}) /keypress DUCK
    } else {
        /if (${Me.State.NotEqual[DUCK]}) /keypress DUCK
    }
   
    /if (${ItemTarget.Distance}>0.8) {
        /squelch /face item fast
        /keypress forward hold
        /delay 1
        /keypress forward
        /goto :loop
   }
/return

Sub GetItem
    /declare lookangle int
    /click left center
    /if (!${MacroQuest.LClickedObject} || ${Target.ID}) {
        /look -128
        :loop
        /click left center
        /if (${Target.ID}) /squelch /target clear
        /if (!${MacroQuest.LClickedObject} && ${Me.Look}<0) {
            /varcalc lookangle ${Me.Look}+2
            /look ${lookangle}
            /goto :loop
        }
    }   
/return
 
Request - I was searching for a Macro

Users who are viewing this thread

Back
Top