MacroQuest64

Posted: **Thu Jun 30, 2005 1:50 am**

Simple macro used for my mage as well as my enchanter to follow around a designated target, send the pet in, nuke and buff on commands.

Uses some old code so it works with many Emulated servers(Such as WR) and is very simple and easy to modify

Just replace SOANDSO with you're main's name and it will work flawlessly made mainly for two boxing Short and sweet

The commands can be given in group, tell or even shout, works nice if you set up hotkeys as if talking in a group.

Instances where this is useful, was 6 boxing, playing my warrior with two mages, a BL, Enchanter and Cleric, Easily modified to each charcter and each had their own commands that were easily disguised as group text and modified delays.

Future plans include random responses from the group and a safety to double check movement.

Code: Select all


#turbo
#event FollowON "followon"
#event FollowOFF "followoff"
#event sittog "sittog"
#event kill "killmytarget"
#event nuke "FireNuke"
#event nuke2 "ColdNuke"
#event nuke3 "MagicNuke"
#event buff1 "Clarityplease"
#event buff2 "Hasteplease"

Sub Main
/zapvars
/declare fv global
/declare sitvar global
/stand
/varset sitvar 0
/echo Initialiing
 
  :Loop
/doevents
/if @fv==1 /call event_Followon
/goto :Loop
/return


Sub Event_FollowON
:followon
/varset fv 1
/doevents
/face fast
      /if n $target(distance)>50 /sendkey down up
      /if n $target(distance)<30 /sendkey up up
   /if n @fv==1 /goto :followon
/return


Sub Event_FollowOFF
/g Stopping
/varset fv 0
/return


Sub Event_sittog
/if ($char(state)==STAND && n @sitvar==0) {
/sit
/gsay Sitting
/varset sitvar 1
/return
}
/if ($char(state)==SIT && n @sitvar==1) {
/stand
/gsay Standing
/varset sitvar 0
/return
}
/return


Sub Event_kill
/varset fv 0
/assist SOANDSO
:kill
/delay 7
/pet kill
/delay 5
/if $target(type)==NPC /target SOANDSO
/if $target(type)==NULL /target SOANDSO
/return


Sub Event_nuke
/varset fv 0
/assist SOANDSO
/delay 8
:nuke
/cast 1
/delay 4s
/if $target(type)==NPC /target SOANDSO
/if $target(type)==NULL /target SOANDSO
/return


Sub Event_nuke2
/varset fv 0
/assist SOANDSO
/delay 8
:nuke
/cast 1
/delay 4s
/if $target(type)==NPC /target SOANDSO
/if $target(type)==NULL /target SOANDSO
/return


Sub Event_nuke3
/varset fv 0
/assist SOANDSO
/delay 8
:nuke
/cast 1
/delay 4s
/if $target(type)==NPC /target SOANDSO
/if $target(type)==NULL /target SOANDSO
/return


Sub Event_buff1
/varset fv 0
/assist SOANDSO
/delay 5
/cast 7
/delay 4s
/target SOANDSO
/return


Sub Event_buff2
/varset fv 0
/assist SOANDSO
/delay 5
/cast 7
/delay 4s
/target SOANDSO
/return