• You've discovered RedGuides 📕 an EverQuest multi-boxing community 🛡️🧙🗡️. We want you to play several EQ characters at once, come join us and say hello! 👋
  • IS THIS SITE UGLY? Change the look. To dismiss this notice, click the X --->

Basic Buff Monitoring (1 Viewer)

gnuoy

New member
Joined
Nov 9, 2007
RedCents
10¢
I wrote this up real quick at work. Anyone see any issues? Can't test it till I get off later tonight.

Rich (BB code):
|    BuffMon.mac
|    by Gnuoy
|    Run on the Buffer to monitor worn off messages to refresh them.


#Event Buff "Your #1# spell has worn off of #2#."

Sub main
/declare num int
   
    /echo Running Buff Monitor
    :loop
        /doevents
        /for num 1 to ${Group.Members}
            /if (${Group.Member[${num}].PctHPs} < 49) {            
                /target ${Group.Member[${num}]}
                /if ((${Target.ID}) && (${Target.Distance3D} < ${Spell[Pious Remedy].MyRange})) {
                    /cast "Pious Remedy"
                    /delay 2s
                    /target clear
                }
            }
        /next num
    }
    /goto :loop
/return

Sub Event_Buff(string line, string Mybuff, string PCname)

    /target ${PCname} 
    /if ((${Target.ID}) && (${Target.Distance3D} < ${Spell[${Mybuff}].MyRange})) {
        /g Im casting ${Mybuff} on <<<< ${Target} >>>>
        /cast "${Mybuff}"
        /delay ${Spell[${Mybuff}].CastTime}
        /target clear
    } else {
        /echo ${PCname} is Out of Range
        /target clear
    }
/return

Edit: There where some serious errors but that's what you get when you write code at work that you can't test. It seems to be working now.

Edit2: Forgot about range checks added now.
 
Last edited:

Users who are viewing this thread

Back
Top