I wrote this up real quick at work. Anyone see any issues? Can't test it till I get off later tonight.
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.
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: