follow.mac *New PARM Version*

[pcgear]

Here is my translation of follow.mac.

Code: Select all

#turbo
Sub Main
   :Loop

      /if (${Target.Distance}>60) /keypress forward hold
      /if (${Target.Distance}<40) /keypress forward
      /face fast
   /if (${Target.ID}) /goto :Loop

/return

[bob_the_builder]

#turbo is implied default #turbo 20

And if were re doing it give it a Param0

Code: Select all

| /macro follow <distance> 

Sub Main 
   /declare TheDistance global 
   /varset TheDistance @Param0 
   /if (!${Defined[Param0]}) {
      /varset TheDistance 20 
      /echo Using default distance of 20
      /echo Useage: /macro follow <distance>
   }
   /popup I am following ${Target.Name}
   
   :Loop 
   /if (${Target.Distance}>@TheDistance) /keypress forward hold 
   /if (${Target.Distance}<@TheDistance) /keypress forward 
   /if (${Target.Distance}<=${Math.Calc[@TheDistance-5]}) /keypress back hold 
   /face fast 
   /if (${Target.ID}) /goto :Loop 

   :Stopping
   /keypress forward 
   /popup I stopped following !!
/return  

/mac follow 20

Bob

[fantum409]

the first version works good, but bob_the_builder's gives error about nonnumeric encountered. I'm noob to this, not sure how to fix but the param idea does sound useful.

[Preocts]

#turbo is implied default #turbo 20

And if were re doing it give it a Param0

Code: Select all

| /macro follow <distance>

Sub Main
   /declare TheDistance global
   /varset TheDistance @param0 
   
   :Loop 
   /if (${Target.Distance}>@TheDistance) /keypress forward hold 
   /if (${Target.Distance}<@TheDistance) /keypress forward 
   /if (${Target.Distance}<=${Math.Calc[@TheDistance-5]}) /keypress back hold 
   /face fast 
   /if (${Target.ID}) /goto :Loop 

/return 

/mac follow 20

Bob

Would just like to add:

Code: Select all

/if (!${Defined[Param0]}) /return |Or do something about no param

Through personal experience, and reloading EQ about 564 times in one long ass day, I discovered just how much of a mess NOT checking to see if @Param0 is actually defined causes.
Thankfully once Lax breaks all our macros again this won't be a problem

[MikeDVB]

Code: Select all

| /macro follow <distance> 

Sub Main 
   /declare TheDistance global 
   /varset TheDistance @Param0 
   /if (!${Defined[Param0]}) /varset TheDistance 10
    
   :Loop 
   /if (${Target.Distance}>@TheDistance) /keypress forward hold 
   /if (${Target.Distance}<@TheDistance) /keypress forward 
   /if (${Target.Distance}<=${Math.Calc[@TheDistance-5]}) /keypress back hold 
   /face fast nolook
   /if (${Target.ID}) /goto :Loop 

/keypress forward
/return 

keeps you from keeping running when target is lost, and fixes the Param problem

Also added nolook so that it doesn't look straight up

Edit:
this is really good for a melee in an aggro-kite group

or if you add autoarchery to it and increase the range... =) lol

[eluminate]

works great

[MikeDVB]

Fixed for latest MQ2Data

Code: Select all

| /macro follow <distance> 

Sub Main 
   /declare TheDistance outer 
   /varset TheDistance ${Param0} 
   /if (!${Defined[Param0]}) /varset TheDistance 10 
    
   :Loop 
   /if (${Target.Distance}>${TheDistance}) /keypress forward hold 
   /if (${Target.Distance}<${TheDistance}) /keypress forward 
   /if (${Target.Distance}<=${Math.Calc[${TheDistance}-5]}) /keypress back hold 
   /face fast nolook 
   /if (${Target.ID}) /goto :Loop 

/keypress forward 
/return