|----------------------------------------------------------
|Healbot.mac
|Simple Healer Macro to watch the health of a single target
|
|Usage: /mac Healbot <Percent> <Healspell>
|
|Effect: watch target health and cast specified spell at
|specified health. This is just like Healwatch.mac but uses
|spellcast.inc for simplicity/uniformity
|
|By Fantum409 (MODIFIED)
|Date: 05/01/2004
|----------------------------------------------------------
#turbo 40
#include Spell_Routines.inc
#event hpbuff "Your Skin like Nature spell has worn off of#1#."
#event thorns "Your Shield of Thorns spell has worn off of#1#."
#event strength "Your Storm Strength spell has worn off of#1#."
#event regen "Your Chloroplast spell has worn off of#1#."
#event gate "You have insufficient mana to cast this spell#1#."
#event mehpbuff "#*#Your skin loses its dire resiliences#*#"
#event mask "#*#Your features return to normal#*#"
#event mythorns "#*#The viridiflora fall away#*#"
#event dzquit "#*#You have entered Nedaria's Landing#*#"
|------------------------------------------------------|
| EXAMPLE
|------------------------------------------------------|
#event invis "Your Invisibility spell has worn off of#1#."
|------------------------------------------------------|
Sub Main
/echo Healbot started
/declare j int outer 0
/declare plee[3] string outer
/varset plee[1] "Player1"
/varset plee[2] "Player2"
/varset plee[3] "Player3"
:loop
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/doevents
/if (${Me.PctHPs}<20) {
/gate
/endm
}
/for j 1 to 3
/target ${plee[${j}]}
/delay 1s
/if (${Target.PctHPs}<40) {
/call cast "Invisibility" gem1 4s
}
/next j
/goto :loop
/return
|------------------------------------------------------|
| EXAMPLE
|------------------------------------------------------|
Sub Event_invis(string, playername)
/echo ${playername} has lost invisibility
/target ${playername}
/call cast "Invisibility" gem8 4s
/return
|------------------------------------------------------|
Sub Event_hpbuff(string, playername)
/echo ${playername} needs HP buff
/target ${playername}
/call cast "Skin like Nature" gem2 4s
/return
Sub Event_thorns(string, playername)
/echo ${playername} needs DS
/target ${playername}
/call cast "Shield of Thorns" gem3 4s
/return
Sub Event_strength(string, playername)
/echo ${playername} needs strength
/target ${playername}
/call cast "Storm Strength" gem4 4s
/return
Sub Event_mehpbuff
/target myself
/call cast "Direwild Skin Rk. II" gem6 4s
/return
Sub Event_mask
/target myself
/call cast "Mask of the Wild" gem7 4s
/return
Sub Event_mythorns
/target myself
/call cast "Viridifloral Shield Rk. II" gem8 4s
/return
Sub Event_gate
/gate
/endmacro
/return
Sub Event_dzquit
/echo Your exepdition has ended.
/delay 45s
/sit on
/camp desktop
/q
/endmacro
/return