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?
Thank you very much
credit for this script goes here: http://www.macroquest2.com/phpBB2/viewtopic.php?t=6970
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?
Rich (BB code):
| 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