|*****************************************************************|
|
|                      My Cleric Macro
|                            By
|                         chrismed
|
|              This Macro was written when my
|            Cleric was LVL 40. Use what you want
|           I hope this helps anyone that needs or
|            or wants a striat forward and simple
|                 Macro for thier cleric.
|
|******************************************************************|


#include Spell_routines.inc
#turbo 40
#chat group
#chat tell




|----------------------------- Events ---------------------------------|

#event buffme "#1# tells the group, 'check buffs'"

#event giveheal     "#1# tells the group, 'plz heal'"
#event evac         "#1# tells the group, 'EVAC'"

#event helpcommands "#1# tells the group, 'whitelite'"






Sub Main

|------------- Spells ------------|
| 1. Frenzied Strength....Armor of Protection
| 2. Resolution
| 3. Armor of Faith
| 4. Gate.................Symbol Of Naltron
| 5. Word of Healing
| 6. Celestial Remedy
| 7. Superior Healing
| 8. Complete Heal
|---------------------------------|



|----------------------------- MySpells --------------------------------|
  /declare    AoP                  string outer    Armor of Protection
  /declare    FastTnkHeal          string outer    Superior Healing
  /declare    TempSTR              string outer    Frenzied Strength
  /declare    HPsACBuff            string outer    Resolution
  /declare    HPBuff               string outer    Symbol of Naltron
  /declare    ACBuff               string outer    Armor of Faith
  /declare    GateSpell            string outer    Gate
  /declare    GrpHeal              string outer    Word of Healing
  /declare    HoTHeal              string outer    Celestial Remedy
  /declare    SuperHeal            string outer    Superior Healing
  /declare    CHeal                string outer    Complete Heal


|----------------------------- Heal Pcts -------------------------------|
|**Group Heal Pct**|
  /declare  GrpLowHp int outer 60

|**Heal Over Time Pct**|
  /declare  HoTMinHP    int outer 60
  /declare  HoTMaxHP    int outer 70

|**Direct Heal Pct**|
|Complete Heal|
  /declare  CHMinHP     int outer 40

|Superior Heal|
  /declare  SprHealHP   int outer 50
|---------------------- Interupt Healing Pct ----------------------------|

|**Stop Healing if Target has Already Been Healed Pct**|
/declare    StopHealPct         int outer 80

|**Stop Complete Heal on Tank to Heal for a Faster Heal**|
/declare    StopTankHealPct     int outer 25
|---------------------- Each timer for Heal Over time -------------------|

  /declare HoTTimer0       timer outer
  /declare HoTTimer1       timer outer
  /declare HoTTimer2       timer outer
  /declare HoTTimer3       timer outer
  /declare HoTTimer4       timer outer
  /declare HoTTimer5       timer outer

|---------------------------- Buff Timers -------------------------------|
  /declare    SuperTankHealTimer timer outer
  /declare    AoPTimer           timer outer
  /declare    HPsACBuffTimer     timer outer
  /declare    HPBuffTimer        timer outer
  /declare    ACBuffTimer        timer outer
  /declare    TempSTRTimer       timer outer
 
|-------------------------- Group Heal Counter --------------------------|

  /declare GrpHealCounter int local 0

|---------------------------- Other Declares ----------------------------|

  /declare MTank string outer Backbreaker
  /declare x int local

|----------  Healing Loop --------------|

:med
  /if ((!${Me.Casting.ID}) && (${Me.State.Equal[STAND]}) & (${Me.PctMana}<98)) /sit
  /doevents
  /delay 10
  /if (${Me.PctMana}>10) /goto :grouphealing
/goto :med

:grouphealing
  /for x 0 to ${Group}
  /if (${Group.Member[${x}].PctHPs}<${GrpLowHp}) /varcalc GrpHealCounter ${GrpHealCounter}+1
  /next x
  /if (${GrpHealCounter}>=3) /call cast "${GrpHeal}" gem5
  /varset GrpHealCounter 0
  /goto :healloop
 
:healloop
  /for x 0 to ${Group}
  /if (${Select[${Group.Member[${x}].Class.ShortName},CLR,DRU,WIZ,ENC,SHM]} && ${Group.Member[${x}].Type.NotEqual[CORPSE]} && ${Group.Member[${x}].PctHPs}<${SprHealHP}) /call SuperiorHeal ${Group.Member[${x}].CleanName}
  /next x
  /goto :tankheal
 
:tankheal
  /target ${MTank}
  /delay 1s
  /if (${Target.Type.NotEqual[CORPSE]} && ${Target.PctHPs}<75  && ${Target.PctHPs}>50 && ${SuperTankHealTimer}==0) /call SuperiorHeal
  /varset SuperTankHealTimer 15s
  /if (${Target.PctHPs}<45) /call CompleteHeal
  /goto :HealOverTime



|------------------ Heal Over Time for Each Group Member --------------|


:HealOverTime
  /if (${Select[${Group.Member[0].Class.ShortName},CLR,DRU,WIZ,ENC]} && ${Group.Member[0].Type.NotEqual[CORPSE]} && ${Group.Member[0].PctHPs}>${HoTMinHP} && ${Group.Member[0].PctHPs}<${HoTMaxHP} && ${HoTTimer0}==0) {
         /target ${Group.Member[0]}
         /g casting ${HoTHeal} on [ %t ]
         /call cast "${HoTHeal}" gem6 5s
         /g ${HoTHeal} on [ %t ]
         /varset HoTTimer0 24s
}
  /if (${Select[${Group.Member[1].Class.ShortName},CLR,DRU,WIZ,ENC]} && ${Group.Member[1].Type.NotEqual[CORPSE]} && ${Group.Member[1].PctHPs}>${HoTMinHP} && ${Group.Member[1].PctHPs}<${HoTMaxHP} && ${HoTTimer1}==0) {
         /target ${Group.Member[1]}
         /g casting ${HoTHeal} on [ %t ]
         /call cast "${HoTHeal}" gem6 5s
         /g ${HoTHeal} on [ %t ]
         /varset HoTTimer1 24s
}
  /if (${Select[${Group.Member[2].Class.ShortName},CLR,DRU,WIZ,ENC]} && ${Group.Member[2].Type.NotEqual[CORPSE]} && ${Group.Member[2].PctHPs}>${HoTMinHP} && ${Group.Member[2].PctHPs}<${HoTMaxHP} && ${HoTTimer2}==0) {
         /target ${Group.Member[2]}
         /g casting ${HoTHeal} on [ %t ]
         /call cast "${HoTHeal}" gem6 5s
         /g ${HoTHeal} on [ %t ]
         /varset HoTTimer2 24s
}
  /if (${Select[${Group.Member[3].Class.ShortName},CLR,DRU,WIZ,ENC]} && ${Group.Member[3].Type.NotEqual[CORPSE]} && ${Group.Member[3].PctHPs}>${HoTMinHP} && ${Group.Member[3].PctHPs}<${HoTMaxHP} && ${HoTTimer3}==0) {
         /target ${Group.Member[3]}
         /g casting ${HoTHeal} on [ %t ]
         /call cast "${HoTHeal}" gem6 5s
         /g ${HoTHeal} on [ %t ]
         /varset HoTTimer3 24s
}
  /if (${Select[${Group.Member[4].Class.ShortName},CLR,DRU,WIZ,ENC]} && ${Group.Member[4].Type.NotEqual[CORPSE]} && ${Group.Member[4].PctHPs}>${HoTMinHP} && ${Group.Member[4].PctHPs}<${HoTMaxHP} && ${HoTTimer4}==0) {
         /target ${Group.Member[4]}
         /g casting ${HoTHeal} on [ %t ]
         /call cast "${HoTHeal}" gem6 5s
         /g ${HoTHeal} on [ %t ]
         /varset HoTTimer4 24s
}
  /if (${Select[${Group.Member[5].Class.ShortName},CLR,DRU,WIZ,ENC]} && ${Group.Member[5].Type.NotEqual[CORPSE]} && ${Group.Member[5].PctHPs}>${HoTMinHP} && ${Group.Member[5].PctHPs}<${HoTMaxHP} && ${HoTTimer5}==0) {
         /target ${Group.Member[5]}
         /g casting ${HoTHeal} on [ %t ]
         /call cast "${HoTHeal}" gem6 5s
         /g ${HoTHeal} on [ %t ]
         /varset HoTTimer5 24s
}
/goto :TankTempSTR


:TankTempSTR
  /assist ${MTank}
  /delay 1s
  /if (${Target.PctHPs}<98 && ${Target.Type.Equal["NPC"]} && ${TempSTRTimer}==0) /call TempTankSTR
/goto :med



/return



|---------------------------- Heal Routines -------------------------|

Sub CompleteHeal(Targ)
  /target ${MTank}
  /g ${CHeal} in 10 sec on [ %t ]
  /call cast "${CHeal}" gem8 5s
  /return


Sub SuperiorHeal(Targ)
  /target ${Targ}
  /g ${SuperHeal} on [ %t ]
  /call cast "${SuperHeal}" gem7 4s
  /return


|Sub CheckHP
| /if (${Target.PctHPs}>=${StopHealPct}) /call Interrupt
|  /return

 
|Sub CheckTankHP
|  /if (${Target.PctHPs}>=${StopHealPct}) /call Interrupt
|  /if (${Target.PctHPs}<=${StopTankHealPct} && ${castEndTime}>=20) /call FastTankHeal

 
|Sub FastTankHeal
|  /call Interrupt
|  /g Casting ${FastTnkHeal} on [ %t ]
|  /call cast "${FastTnkHeal} gem6 4s
|  /return


|-------------------- Events and other Routines ------------------|

Sub TempTankSTR
  /target ${MTank}
  /if (${Tager.ID} && ${Target.Distance}<90) /call cast "${TempSTR}" gem1 3s
  /varset TempSTRTimer 3m
  /return
 
Sub Event_buffme(Line,Targ)
  /target ${Targ.Right[-2].Left[-1]}
  /delay 1s
  /g Buffing [ %t ]
  /ssm ClrBuffs
  /if (${Target.ID} && ${HPsACBuffTimer}==0) {
     /call cast "${HPsACBuff}" gem2 4s
         /varset HPsACBuffTimer 58m
  }
  /if (${Target.ID} && ${HPBuffTimer}==0) {
         /call cast "${HPBuff}" gem4 4s
         /varset HPBuffTimer 40m
  }
  /if (${Target.ID} && ${ACBuffTimer}==0) {
         /call cast "${ACBuff}" gem3 4s
         /varset ACBuffTimer 56m
  }
  /target Whitelite
  /if (${Target.ID} && ${AoPTimer}==0) {
         /call cast "${AoP}" gem1 3s
         /varset AoPTimer 56m
  }
  /ssm MySpells
  /return
 
 
Sub Event_evac(Line)
  /call cast "${GateSpell}" gem4 5s
  /return
       
       
Sub Event_giveheal(Line,Targ)
  /assist ${Targ.Right[-2].Left[-1]}
  /delay 1s
  /call cast "${SuperHeal}" gem7 4s
  /return
 
 
Sub Event_helpcommands(Line)
   /g Heal Plz - I will heal you or who you have targeted.
   /delay 1s
   /g Buff Check - I will buff you
   /delay 1s
   /g Evac - I will gate the heck outa here!
   /return