| -------------------------------------------------------------------------------------
| SUB: DoPetHealStuff
| -------------------------------------------------------------------------------------
Sub DoPetHealStuff
| Check if my pet needs healing
/if (!${Me.Pet.ID}) /return
/if (${DebugHeal}) /echo \amDEBUGHEALS DoPetHealStuff Enter \agLine#: ${Macro.CurLine}
/declare j int local
/for j 1 to ${SingleHeal.Size}
/if (${SingleHeal[${j}].Arg[3,|].NotEqual[pet]} || !${SingleHeal[${j}].Length} || ${SingleHeal[${j}].Arg[2,|]}==0) /continue
/if (${Me.Pet.PctHPs}<=${SingleHeal[${j}].Arg[2,|]} && ${Me.Pet.ID} && ${Me.Pet.Distance}<${Spell[${SingleHeal[${j}].Arg[1,|]}].Range}) {
/if (${DebugHeal}) /echo \amDEBUGHEALS DoPetHealStuff (${Me.Pet.PctHPs}<=${SingleHeal[${j}].Arg[2,|]} && ${Me.Pet.ID} && ${Me.Pet.Distance}<${Spell[${SingleHeal[${j}].Arg[1,|]}].Range}) \agLine#: ${Macro.CurLine}
/call CastWhat "${SingleHeal[${j}].Arg[1,|]}" ${Me.Pet.ID} Heal
/if (${Macro.Return.Equal[CAST_SUCCESS]}) {
/call BroadCast ${IRCOn} ${EQBCOn} o "${SingleHeal[${j}].Arg[1,|]} on >> ${Me.Pet.CleanName} <<"
/varcalc PetHealTimer${j} (${Spell[${SingleHeal[${j}].Arg[1,|]}].Duration.TotalSeconds}*${DurationMod})*10
/varset HealAgain 1
}
}
|:NextPetHeal
/next j
/if (${DebugHeal}) /echo \amDEBUGHEALS DoPetHealStuff Leave \agLine#: ${Macro.CurLine}
/return