Autofire Archery

Neolesh · Post by **Neolesh** » Mon Sep 20, 2004 1:24 pm

Short and sweet. Idea came from "Archery That's it". I revised the code so it doesn't wait for experience but instead automatically stops whenver you no longer have a target which may or may not be when you gain exp. Also you can simply hit "esc" to end the macro.

Code: Select all

Sub Main 

   /echo Autofire Engaged upon ${Target.CleanName}

 :autofire

   /if (!${Target.ID}) /endmacro
   /if (${Target.Distance}>30 && ${Me.RangedReady}) /ranged 
   /goto :autofire 

/return

endymion · Post by **endymion** » Sun Oct 17, 2004 8:43 am

two words.

thank.

god.

Choakster · Post by **Choakster** » Sun Oct 17, 2004 6:41 pm

Heres a simple one I did that is set to hit range 1 time per second and ends if you have no target , you gain XP or if you turn auto attack on ..
I got it from another macro and just added some events into it and changed the delay time on it so that it didnt spam range attack 1000 times a second lol

I took face out of it becasue I box and if my ranger gets into trouble it became a pain in the ass to try to run with a macro running and the ranger always facing the godamn target ..

Any way I forgot who mad ethe original that I edited but here it is

Code: Select all

#Event exp "#*#experience!#*#" 
#Event NoTarget "#*#No target#*#"
#Event AutoAttack "#*#Auto attack is on#*#"
Sub Main 
:autofire 
   /doevents 
      /ranged
      /delay 1s
   /goto :autofire 
/return 

Sub Event_exp 
   /end 
/return 

Sub Event_NoTarget 
   /end 
/return 

Sub Event_AutoAttack
   /end 
/return

If ya want ot add more events just add

Code: Select all

#Event YourEvent "#*#YourEventHere#*#"

Under the rest of the events at the top
and

Code: Select all

Sub Event_YourEventHere
   /end 
/return

under the other sub events at the bottom. The events are pretty much any text that you want it to end when it appears in chatlines ..