Ground Collect

[Xel]

Cash macro in the sense that you're taking cash from other players.. not flooding the economy with vendor cash, so it's a gray area. The way to pick up an item in a tree was covered already in this thread, and it works. Just have to figure out how to implement it.

Macro works fine if you take the time to make the adjustments that were covered in the thread as well. Have to agree with Lane that having 100+ yew leaves, even 60 to 80, seems kinda shady so just be careful if you use this.

[Elric]

Welp. I made the changes, and so on and so forth, and even added in invisibility support for those of us with seriously bad factions there.

IE: everything wants you dead.

Nothing ever bothered me on it, and my druid is still busily making tailored items..

As far as it being cash, no matter how you look at it, it's for profit. But as long as you're not doing stupid shit, I don't care how you use it. Just don't be ignorant.

[ImaNoob]

Ok I added forage capability and also changed nudge to a distance of >10, and modified it to use /click left item to pick up the item, in case it is in a tree or whatnot.
As soon as there are no more ground spawns, it will go to nexus (or gate if you change evacuate to gate) then camp. This is so that others may also collect these things.

This may still have some bugs, but works fine on my druid, all you have to watch out for is that you do have forage as a hotkey, and that you don't get stuck. Enjoy!

Code: Select all

|GroundCollect.mac  - v 1. 2. 1  by FreQuency 10/24/03 
|Still kinda Incomplete but gonna release as a start for expansion 
|  ~ Obstruction Code basis borrowed from Scrime who borrowed from GrimJack 
|   Collects groundspawns from Misty, Butcherblock and Wakening Lands 
|  ~Known Issues 
|   *   Will not filter spawns considered to be out of reach. 
|  *   obstruction code may not get charecter around all areas    ***    Many others 
|Must be monitored to ensure character does not get stuck 
|
|Modified by Imanoob 3/21/04


#event turbo 

#include routines.mac 
#include SpellCast.inc
 
Sub Main 
   /cleanup 
   /call DefineGlobals 
   /varset Evacuate "Ring of the Nexus"
   /if $cursor()!=NULL /click left auto 
   /if $invpanel==True /press I 
   /Call DoLog Begining Collection in zone $zone 
:Next 
   /call FindItem *Green
   /call MoveToTarget 
   /call PickUpItem 
   /goto :Next 
    
/return 

Sub DefineGlobals 
/declare CollectedItem global 
/declare Evacuate global
/declare LastY global 
/declare LastX global 
/declare ObstCount global 
/declare NotFound global 
/return 

Sub FindItem 
:NotFoundReturn 
   /varset NotFound 0 
   /seterror clear 
   /itemtarget @Param0 
   /if "$getlasterror"=="ITEM_NOTFOUND" /call NotFound @Param0 
   /if "$getlasterror"=="ITEM_NOTFOUND" /varset NotFound $return 
   /if n @NotFound==1 /goto :NotFoundReturn 
   /call DoLog "Item found at: $ground(y), $ground(x)." 
/return 

Sub MoveToTarget 
:KeepMoving 
   /call CheckForObst 
   /if n $char(ability,"Forage")>0 { 
     /doability Forage
     /delay 1s 
     /autoinventory 
    }
   /face loc $ground(y), $ground(x) 
   /sendkey down up 
   /if n $distance(item)>15 /goto :KeepMoving 
:StopMoving 
   /sendkey up up 
/return 


Sub PickUpItem 
   /face item 
:Nudge 
   /if n $distance(item)>10{
 	/press up 
   	/goto :Nudge
   } 
   /face item 
   /sendkey down Page_Down 
   /delay 2s 
   /sendkey up Page_Down 
   /click left item
   /delay 1s 
   /if "$cursor()"=="NULL" /goto :Nudge 
   /autoinventory 
   /delay 1s    
   /if $invpanel==True /press I 
   /press Home 
/return 

Sub CheckForObst 
   /if n $char(x)==@LastX /if n $char(y)==@LastY { 
      /varadd ObstCount 1 
   } else { 
      /varset ObstCount 0 
   } 
    
   /varset LastX $char(x) 
   /varset LastY $char(y) 
    
   /if n @ObstCount>3 { 
      /call DoLog "Obstruction at $char(y), $char(x)" 
      /call GoAroundObst 
   } 
/return 

Sub GoAroundObst 
   /sendkey up up 

   /sendkey down down 
   /delay (2+$rand(5))s 
   /sendkey up down 


   /if n "$rand(20)">="10" { 
      /sendkey down left 
      /delay 5 
      /sendkey up left 
      /sendkey down up 
      /delay 7s 
      /sendkey up up 
   } else { 
      /sendkey down right 
      /delay 5 
      /sendkey up right 
      /sendkey down up 
      /delay 7s 
      /sendkey up up 
   } 
/return 

Sub NotFound 
   /call DoLog "Item: ~~  @Param0  ~~ not found. Going to nexus. . ." 
   /cast Evacuate
   /sit
   /camp desktop
/return 1 

Sub DoLog 
   /mqlog @Param0 
   /echo @Param0 
/return 

[lenyen]

Hello, i've ran this macro for along time and edited it to my use yet i'm running out of ideas to make it go around the new thing it does when you get stuck on a tree. i think they call it /rewind command. its one of the worst things i've seen them do. anyone have any ideas to get around it from getting stuck?
Thanks a million

[ImaNoob]

You could try doing a search in google, for how to disable autorewind.
I know it exists, but I won't post it here because it's a crack, unless of course I get permission from the Devs.
Specifically look for the search term "Bye bye Autorewind Everquest".
Thats all I can give ya :)

[lenyen]

Well, I was just wondering if someone can help me by updateing this. I can get it to move to the object that i want to pick up but i run into an object i cant get it to automove its self. But if anyone has some free time plz help me hehe. Thanks

[Riven]

As of apri 25 2004 all the macs in this thread are crashing me to the desk top.
any help out there would be helpfull.