Ranger autoarchery

[Goofmester1]

Moified a mac I found here to repeat more reliably for me and to keep the buffs I wanted up as a 65 Ranger.

Code: Select all

|Archery Macro v. 1.2E 
|Archery Assist Macro. 
|Modified to work more reliably for what I wanted.  Goofmester1


#Event EAGLEEYE "The avian presence departs." 
#Event SPIRITOF "The avian spirit departs." 
#Event NP "The precision fades."
#Event CT "The cry of thunder leaves."
#Event SLAINBY  "You have been slain by " 
#Event Exp      "You gain" 
#Event POTW     "Your skin returns to normal."

#Include spellcast.inc

#turbo infinite 

#chat tell

Sub Main 
   :Mainloop 
   /call Combatcheck 
   /doevents 
   /delay 1s 
   /goto :mainloop 
/return 


Sub Combatcheck 
   /doevents 
   /delay 5 
   
   :arrowloop 
   /doevents 
   /if "$target()"=="TRUE" { 
      /face fast nolook
      /if ($char(casting)==FALSE && $target(type)==NPC && $combat==FALSE) { 
      /press 5  | Change this to the key you press for ranger attack.  I recomend using a numad_# key or something other than a normal chat key so it will fire while you can chat.
   }

    /goto :arrowloop 
/return 

Sub Event_EAGLEEYE 
   /call Cast "Eagle Eye" 
/return 

Sub Event_NP 
   /call Cast "Nature's Precision"
/return

Sub Event_SPIRITOF
   /call Cast "Spirit of Eagle"
/return

Sub Event_CT 
   /call Cast "Cry of Thunder"
/return 

Sub Event_POTW
   /call Cast "Protection of the Wild"
/return 

Sub Event_Chat(ChatType,Sender,ChatText)

   /if "@ChatText"=="assist" {
   /target pc @Sender
   /assist
}
/return

Sub Event_SLAINBY 
   /Echo Slained Event Entered 
   /endmacro 
/return 

Sub Event_EXP
/endmacro
/return
| --> End of Events

[yoda]

No Ranger macro can be complete without:

Code: Select all

#Event SLAINBY  "You have been slain by "

Sub Event_SLAINBY 
   /Echo Slained Event Entered 
   /endmacro 
/return 

hehe jk