Help with a macro. (1 Viewer)

[Cirian]

Hey everyone,

I am trying to modify the below macro that I found into one that uses a berserker instead. I just want it to target an npc within the area like this one does and shoot a rage volley to pull the enemy and just tank it. I will be having a cleric autohealing on it so thats ok, and it is in a good area where it will only single pull so nothing complicated. Currently I am stuck trying to figure out how to make it pull with rage volley (which is implemented in eq as a disc) rather than a spell ensare..

Could someone help me set this up so it will work?

|  Rangerautopull.mac   v 0.1 alpha

| Writen by Omper

#include spellcast.inc
#event GotHIT "#*#hits YOU for#*#"
#event GotHIT "#*#slashes YOU for#*#"
#event GotHIT "#*#crushes YOU for#*#"
#event GotHIT "#*#bashes YOU for#*#"
#event GotHIT "#*#kicks YOU for#*#"
#event GotHIT "#*#smashes YOU for#*#"
#event GotHIT "#*#mauls YOU for#*#"
#event GotHIT "#*#gores YOU for#*#"
#event GotHIT "#*#pierces YOU for#*#"
#event GotHIT "#*#kicks YOU for#*#"
#event GotHIT "#*#bashes YOU for#*#" 

Sub Main

/declare AnchorX float outer
/declare AnchorY float outer
/declare fXLoc float outer 0.0
/declare fYLoc float outer 0.0
/declare Agro outer FALSE

/varset AnchorX ${Me.X}
/varset AnchorY ${Me.Y}

/echo Rangerautopull.mac
:start
   /doevents
   /delay 1s
   /if (${Agro}) /call combat 
   /if (!${Agro}) /cleanup
   /call MoveToAnchor
   /doevents
   /delay 10           
   /if (!${Agro}) /call Tarnpc
/goto  :start 
/return

Sub Tarnpc   

   /target npc radius 150
   /delay 1s
   /doevents
   /if (${Target.ID}) /call Cast "snare"     

/return

Sub combat
   /attack on
   :Loop
      /doevents
      /if (${Target.Distance}>17) {
            /keypress forward   
            }
            /if (${Target.Distance}<10) {
            /keypress back hold
            /timed 1 /keypress back
            }
            /face nolook fast
            /delay 0
            /if (!${Target.ID}) {
            /varset Agro FALSE
            /goto :End
            } else {
         /goto :Loop
         }

:End
/return

Sub Event_GotHIT
/varset Agro TRUE   
   
/return

Sub MoveToAnchor
    /if (${Math.Distance[${AnchorY},${AnchorX}]}<=12) /return
    /declare iCount int local

    /varset fXLoc ${Me.X}
    /varset fYLoc ${Me.Y}
    /varset iCount 0

    /echo Moving to Anchor at Loc: ${AnchorY}, ${AnchorX}.

:AnchorMoveLoop 
    /delay 1
    /doevents
    /face nolook loc ${AnchorY},${AnchorX}
   
    /if (${Math.Distance[${AnchorY},${AnchorX}]}>12) {
       /keypress forward hold
   } else {
       /keypress forward
       /return
    }

    /if (${iCount}>2) {
        /call Detectobst
        /face nolook loc ${AnchorY},${AnchorX}
        /varset iCount 0
    }
   
    /varcalc iCount ${iCount}+1
    /goto :AnchorMoveLoop
/return

Sub Detectobst
    /delay 2
    /if (${fXLoc}==${Me.X}) /if (${fYLoc}==${Me.Y}) /call Hitobst
    /varset fXLoc ${Me.X}
    /varset fYLoc ${Me.Y}
/return

Sub Hitobst
    /keypress forward
    /keypress back hold
   
    /if (${Math.Rand[2]}) {   
        /delay 2s   
        /keypress back
        /keypress right hold
        /delay 8
        /keypress right
       
        /delay 2s
        /keypress back
        /keypress left hold
        /delay 8
        /keypress left
    }
    /delay 10
    /keypress forward hold
/return

Thank you very much

credit for this script goes here: http://www.macroquest2.com/phpBB2/viewtopic.php?t=6970

 

[Cirian]

I may have encountered another problem.

Currently I believe that when it tries to target a mob it is targetting the mob upstairs from me, which I can not do anything to of course. Is there any way to limit the targetting on the z axis so it will only target things level with me?
This is probably why it is not shooting my rage volley when i try it.

Thanks

 

[Ccomp5950]

Try again

Posting in the right forum will probably improve your chances of getting help.

However, I'll be nice

http://www.redguides.com/wiki/Spawn_search

Interesting piece in there about zradius

http://www.macroquest2.com/wiki/index.php/Target

Even has an example.

Bookmark these 2 items:
http://www.macroquest2.com/wiki/
http://www.macroquest2.com/includes/wassup/manual.php

 

[Cirian]

I am sorry, I will start a new post in the questions section, didnt notice they were seperate.

Thank you for your help however, I have figured out that problem and I have another one now