Rich (BB code):
#chat tell
#chat group
#turbo 40
#event Follow "#1# tells you, 'Follow'"
#event Stay "#1# tells you, 'Stay'"
#event ZoneType "You can only cast this spell in the outdoors."
#event ACbuff "#1# tells you, 'ACBuff'"
#event HPbuff "#1# tells you, 'HPBuff'"
#event SymbolBuff "#1# tells you, 'Symbol'"
#event Regen "#1# tells you, 'Regen'"
#event DamageShield "#1# tells you, 'DS'"
#event SoW "#1# tells you, 'SoW'"
#event Stats "#1# tells you, 'Stats'"
Sub Main
|++++++++++++++++++++++++++++++++
| Cleric Information
|++++++++++++++++++++++++++++++++
/declare ClrACBuff string outer "Shield of Words"
/declare ClrHPBuff string outer "Heroic Bond"
/declare ClrSymbol string outer "Symbol of Marzin"
/declare ClrSelfBuff1 string outer "Armor of the Faithful"
/declare ClrSelfBuff2 string outer "Armor of the Faithful"
/declare ClrSelfBuff3 string outer "Armor of the Faithful"
/declare ClericNuke1 outer "Retribution"
|++++++++++++++++++++++++++++++++
| Shaman Information
|++++++++++++++++++++++++++++++++
/declare ShmACBuff string outer "Shroud of the Spirits"
/declare ShmHPBuff string outer "Focus of Spirit"
/declare ShmRegen string outer "Regrowth"
/declare ShmSoW string outer "Spirit of Wolf"
/declare ShmSoW2 string outer "Spirit of Bih`Li"
/declare ShmAgi string outer "Talisman of the Cat"
/declare ShmSta string outer "Talisman of the Brute"
/declare ShmSelfBuff1 string outer "Form of the Great Bear"
/declare ShmSelfBuff2 string outer "Form of the Great Bear"
/declare ShmSelfBuff3 string outer "Form of the Great Bear"
/declare ShamanNuke1 outer "Spirit Strike"
|++++++++++++++++++++++++++++++++
| Druid Information
|++++++++++++++++++++++++++++++++
/declare DruACBuff string outer "NULL"
/declare DruHPBuff string outer "NULL"
/declare DruRegen string outer "Chloroplast"
/declare DruDS string outer "Shield of Thorns"
/declare DruSoW string outer "Spirit of Wolf"
/declare DruSoW2 string outer "Pack Spirit"
/declare DruSelfBuff1 string outer "Form of the Howler"
/declare DruSelfBuff2 string outer "Resist Magic"
/declare DruSelfBuff3 string outer "Resist Magic"
/declare DruidNuke1 outer "Starfire"
|++++++++++++++++++++++++++++++++
| General Information
|++++++++++++++++++++++++++++++++
/declare HealAtTANK int outer 50
/declare HoTAtTANK int outer 80
/declare HealAtOTHER int outer 80
/declare HealAtSham int outer 70
/declare AssistAt int outer 80
/declare AssistAtDis int outer 100
/declare ManaToNuke int outer 70
/declare UseMount int outer 1
/declare MountItem string outer "Black Rope Bridle"
/declare CompHeal outer "Complete Healing"
/declare CompHealMana int outer "400"
/declare SpellHeal outer "Remedy"
/declare SpellHealMana int outer "175"
/declare SpellHoT string outer "Celestial Healing"
/declare SpellHoTMana int outer "225"
/declare SpellHoTTimer timer outer "0"
/declare MainAssist string outer ${Target.CleanName}
/declare ZoneType int outer 0
/declare count_grp int outer
/echo Simple Healer Macro has started
/echo Main Assist is ${MainAssist}
/echo Tank healed at ${HealAtTANK}
/echo Others heled at ${HealAtOTHER}
/echo Shamans healed at ${HealAtSham}
|+++++++++++++++++++++++++++++++++
| Main Loop
|+++++++++++++++++++++++++++++++++
:loop
/doevents
/if (${Me.Casting.ID} || ${Me.Moving}) /goto :loop
/call HoT
/call CheckHeals
/call Attack
/call ManaCheck
/call SelfBuffs
/call Buffs
/goto :loop
/return
|+++++++++++++++++++++++++++++++++
Sub HoT
/if (${Me.Class.ShortName.NotEqual[CLR]}) /return
/for count_grp 0 to ${Group}
/if (${Group.Member[${count_grp}].Class.Name.Equal[Warrior]} || ${Group.Member[${count_grp}].Class.Name.Equal[Shadow Knight]} || ${Group.Member[${count_grp}].Class.Name.Equal[Paladin]}) /if (${Group.Member[${count_grp}].PctHPs}<=${HoTAtTANK} &&${Me.CurrentMana}>${SpellHoTMana} &&${Group.Member[${count_grp}].Distance}<=100 && ${SpellHoTTimer}==0) {
/target pc ${Group.Member[${count_grp}].Name}
/delay 3
/casting ${SpellHoT}|gem3 -maxtries|3
/if (${Macro.Return.Equal[CAST_SUCCESS]}) {
/varset SpellHoTTimer 240
}
}
/next count_grp
/return
Sub CheckHeals
/for count_grp 0 to ${Group}
|+++++++++++++++++++++++++++++++++
| Tank ##check spell you're casting##
|+++++++++++++++++++++++++++++++++
/if (${Group.Member[${count_grp}].Class.Name.Equal[Warrior]} || ${Group.Member[${count_grp}].Class.Name.Equal[Shadow Knight]} || ${Group.Member[${count_grp}].Class.Name.Equal[Paladin]}) /if (${Group.Member[${count_grp}].PctHPs}<=${HealAtTANK} &&${Me.CurrentMana}>${CompHealMana} &&${Group.Member[${count_grp}].Distance}<=100) {
/target pc ${Group.Member[${count_grp}].Name}
/delay 3
/casting ${CompHeal}|gem1 -maxtries|3
}
|+++++++++++++++++++++++++++++++++
| Others
|+++++++++++++++++++++++++++++++++
/if (${Group.Member[${count_grp}].Class.Name.Equal[Cleric]} || ${Group.Member[${count_grp}].Class.Name.Equal[Druid]} || ${Group.Member[${count_grp}].Class.Name.Equal[Beastlord]} || ${Group.Member[${count_grp}].Class.Name.Equal[Wizard]} || ${Group.Member[${count_grp}].Class.Name.Equal[Magician]} || ${Group.Member[${count_grp}].Class.Name.Equal[Necromancer]} || ${Group.Member[${count_grp}].Class.Name.Equal[Monk]} || ${Group.Member[${count_grp}].Class.Name.Equal[Rouge]} || ${Group.Member[${count_grp}].Class.Name.Equal[Bard]} || ${Group.Member[${count_grp}].Class.Name.Equal[Ranger]} || ${Group.Member[${count_grp}].Class.Name.Equal[Enchanter]}) /if (${Group.Member[${count_grp}].PctHPs}<=${HealAtOTHER} &&${Me.CurrentMana}>${SpellHealMana} &&${Group.Member[${count_grp}].Distance}<=100) {
/target pc ${Group.Member[${count_grp}].Name}
/delay 3
/casting ${SpellHeal}|gem2 -maxtries|3
}
|+++++++++++++++++++++++++++++++++
| Shaman
|+++++++++++++++++++++++++++++++++
/if (${Group.Member[${count_grp}].Class.Name.Equal[Shaman]}) /if (${Group.Member[${count_grp}].PctHPs}<=${HealAtSham} &&${Me.CurrentMana}>${SpellHealMana} &&${Group.Member[${count_grp}].Distance}<=100) {
/target pc ${Group.Member[${count_grp}].Name}
/delay 3
/casting ${SpellHeal}|gem2 -maxtries|3
}
/next count_grp
/return
|+++++++++++++++++++++++++++++++++
| Attack Spells
|+++++++++++++++++++++++++++++++++
Sub Attack
/if (${Me.Casting.ID}) /return
/if (${Me.Class.ShortName.Equal[CLR]}) /goto :ClericNuking
/if (${Me.Class.ShortName.Equal[SHM]}) /goto :ShamanNuking
/if (${Me.Class.ShortName.Equal[DRU]}) /goto :DruidNuking
}
/return
:ClericNuking
/if (${Me.PctMana}<${ManaToNuke}) /return
/if (${Target.Distance} > ${AssistAtDis}) /return
/assist ${MainAssist}
/if (${Target.Type.NotEqual[NPC]} || ${Target.Type.Equal[PC]} || ${Target.Type.Equal[CORPSE]} || !${Target.ID} || !${Me.SpellReady[${ClericNuke1}]} || ${Target.PctHPs} > ${AssistAt}) /return
/if (${Target.Type.Equal[NPC]} && ${Target.PctHPs} < ${AssistAt}) {
/casting ${ClericNuke1}|gem7 -maxtries|3
/delay 2
}
}
/return
:ShamanNuking
/if (${Me.PctMana}<${ManaToNuke}) /return
/assist ${MainAssist}
/if (${Target.Type.NotEqual[NPC]} || ${Target.Type.Equal[PC]} || ${Target.Type.Equal[CORPSE]} || !${Target.ID} || !${Me.SpellReady[${ShamanNuke1}]} || ${Target.PctHPs} < ${AssistAt} && ${Target.Type.NotEqual[NPC]}) /return
/delay 2
/casting ${ShamanNuke1}|gem7 -maxtries|3
/if (${Macro.Return.Equal[CAST_SUCCESS]}) {
/g Casting ${ShamanNuke1} on [ ${Target.CleanName} ]
}
/return
:DruidNuking
/if (${Me.PctMana}<${ManaToNuke}) /return
/assist ${MainAssist}
/if (${Target.Type.NotEqual[NPC]} || ${Target.Type.Equal[PC]} || ${Target.Type.Equal[CORPSE]} || !${Target.ID} || !${Me.SpellReady[${DruidNuke1}]} || ${Target.PctHPs} < ${AssistAt} && ${Target.Type.NotEqual[NPC]}) /return
/delay 2
/casting ${DruidNuke1}|gem7 -maxtries|3
/if (${Macro.Return.Equal[CAST_SUCCESS]}) {
/g Casting ${DruidNuke1} on [ ${Target.CleanName} ]
}
/return
|+++++++++++++++++++++++++++++++++
| Mana
|+++++++++++++++++++++++++++++++++
Sub ManaCheck
/if (${UseMount}==1 && ${ZoneType}==0 && !${Me.Mount.ID}) {
/casting ${MountItem}|item
}
/if (${Me.Standing}&&!${Stick.Active}&&!${Me.Mount.ID}&&${Me.PctMana}<100) {
/sit on
}
/if (${Me.PctMana} < 10) {
/t ${MainAssist} I have ${Me.PctMana}% mana.
}
/return
|+++++++++++++++++++++++++++++++++
| Self Buffs
|+++++++++++++++++++++++++++++++++
Sub SelfBuffs
/if (${Me.Class.ShortName.Equal[CLR]}) /goto :ClericSelfBuffs
/if (${Me.Class.ShortName.Equal[SHM]}) /goto :ShamanSelfBuffs
/if (${Me.Class.ShortName.Equal[DRU]}) /goto :DruidSelfBuffs
}
/return
:ClericSelfBuffs
/if (${Me.Buff[${ClrSelfBuff1}].Duration}<5) {
/target ${Me} PC
/delay 1
/casting ${ClrSelfBuff1}|gem8 -maxtries|3
}
/if (${Me.Buff[${ClrSelfBuff2}].Duration}<5) {
/delay 1
/casting ${ClrSelfBuff2}|gem8 -maxtries|3
}
/if (${Me.Buff[${ClrSelfBuff3}].Duration}<5) {
/delay 1
/casting ${ClrSelfBuff3}|gem8 -maxtries|3
}
/return
:ShamanSelfBuffs
/if (${Me.Buff["${ShmSelfBuff1}"].Duration}<5) {
/target ${Me} PC
/delay 1
/casting ${ShmSelfBuff1}|gem8 -maxtries|3
}
/if (${Me.Buff["${ShmSelfBuff2}"].Duration}<5) {
/delay 1
/casting ${ShmSelfBuff2}|gem8 -maxtries|3
}
/if (${Me.Buff["${ShmSelfBuff3}"].Duration}<5) {
/delay 1
/casting ${ShmSelfBuff3}|gem8 -maxtries|3
}
/return
:DruidSelfBuffs
/if (${Me.Buff["${DruSelfBuff1}"].Duration}<5 && ${ZoneType}==0) {
/target ${Me} PC
/delay 1
/casting ${DruSelfBuff1}|gem8 -maxtries|3
}
/if (${Me.Buff["${DruSelfBuff2}"].Duration}<5) {
/delay 1
/casting ${DruSelfBuff2}|gem8 -maxtries|3
}
/if (${Me.Buff["${DruSelfBuff3}"].Duration}<5) {
/delay 1
/casting ${DruSelfBuff3}|gem8 -maxtries|3
}
/return
|+++++++++++++++++++++++++++++++++
| Buffs
|+++++++++++++++++++++++++++++++++
Sub Buffs
/return
|+++++++++++++++++++++++++++++++++
| General Events
|+++++++++++++++++++++++++++++++++
Sub Event_Follow
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} Following you
/stick
/return
Sub Event_Stay
/stick off
/tell ${MacroQuest.LastTell} Staying here
/delay 1
/if (!${Me.Sitting}&&!${Stick.Active}&&!${Me.Moving}&&${Me.PctMana}<100) {
/sit on
}
/return
Sub Event_ZoneType
/varset ZoneType 1
/echo Adjusting to indoor zone!
/return
|+++++++++++++++++++++++++++++++++
| AC Buff
|+++++++++++++++++++++++++++++++++
Sub Event_ACBuff
/if (${Me.Class.ShortName.Equal[CLR]}) /goto :ClericACBuff
/if (${Me.Class.ShortName.Equal[SHM]}) /goto :ShamanACBuff
/if (${Me.Class.ShortName.Equal[DRU]}) /goto :DruidACBuff
}
/return
:ClericACBuff
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} Casting ${ClrACBuff} on you!
/casting ${ClrACBuff}|gem8 -maxtries|3
}
/return
:ShamanACBuff
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} Casting ${ShmACBuff} on you!
/casting ${ShmACBuff}|gem8 -maxtries|3
}
/return
:DruidACBuff
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} Casting ${DruACBuff} on you!
/casting ${DruACBuff}|gem8 -maxtries|3
}
/return
|+++++++++++++++++++++++++++++++++
| HP Buff
|+++++++++++++++++++++++++++++++++
Sub Event_HPBuff
/if (${Me.Class.ShortName.Equal[CLR]}) /goto :ClericHPBuff
/if (${Me.Class.ShortName.Equal[SHM]}) /goto :ShamanHPBuff
/if (${Me.Class.ShortName.Equal[DRU]}) /goto :DruidHPBuff
}
/return
:ClericHPBuff
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} Casting ${ClrHPBuff} on you!
/casting ${ClrHPBuff}|gem8 -maxtries|3
}
/return
:ShamanHPBuff
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} Casting ${ShmHPBuff} on you!
/casting ${ShmHPBuff}|gem8 -maxtries|3
}
/return
:DruidHPBuff
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} Casting ${DruHPBuff} on you!
/casting ${DruHPBuff}|gem8 -maxtries|3
}
/return
|+++++++++++++++++++++++++++++++++
| Symbol Buff
|+++++++++++++++++++++++++++++++++
Sub Event_SymbolBuff
/if (${Me.Class.ShortName.Equal[CLR]}) /goto :ClericSymbolBuff
/if (${Me.Class.ShortName.Equal[SHM]}) /goto :ShamanSymbolBuff
/if (${Me.Class.ShortName.Equal[DRU]}) /goto :DruidSymbolBuff
}
/return
:ClericSymbolBuff
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} Casting ${ClrSymbol} on you!
/casting ${ClrSymbol}|gem8 -maxtries|3
}
/return
:ShamanSymbolBuff
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} I don't have a symbol spell for you!
}
/return
:DruidSymbolBuff
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} I don't have a symbol spell for you!
}
/return
|+++++++++++++++++++++++++++++++++
| Regen
|+++++++++++++++++++++++++++++++++
Sub Event_Regen
/if (${Me.Class.ShortName.Equal[CLR]}) /goto :ClericRegen
/if (${Me.Class.ShortName.Equal[SHM]}) /goto :ShamanRegen
/if (${Me.Class.ShortName.Equal[DRU]}) /goto :DruidRegen
}
/return
:ClericRegen
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} I don't have a regen spell for you!
}
/return
:ShamanRegen
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} Casting ${ShmRegen} on you!
/casting ${ShmRegen}|gem8 -maxtries|3
}
/return
:DruidRegen
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} Casting ${DruRegen} on you!
/casting ${DruRegen}|gem8 -maxtries|3
}
/return
|+++++++++++++++++++++++++++++++++
| Damage Shield
|+++++++++++++++++++++++++++++++++
Sub Event_DamageShield
/if (${Me.Class.ShortName.Equal[CLR]}) /goto :ClericDS
/if (${Me.Class.ShortName.Equal[SHM]}) /goto :ShamanDS
/if (${Me.Class.ShortName.Equal[DRU]}) /goto :DruidDS
}
/return
:ClericDS
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} I don't have a damage shield spell for you!
}
/return
:ShamanDS
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} I don't have a damage shield spell for you!
}
/return
:DruidDS
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} Casting ${DruDS} on you!
/casting ${DruDS}|gem8 -maxtries|3
}
/return
|+++++++++++++++++++++++++++++++++
| Spirit of Wolf
|+++++++++++++++++++++++++++++++++
Sub Event_SoW
/if (${Me.Class.ShortName.Equal[CLR]}) /goto :ClericSoW
/if (${Me.Class.ShortName.Equal[SHM]}) /goto :ShamanSoW
/if (${Me.Class.ShortName.Equal[DRU]}) /goto :DruidSoW
}
/return
:ClericSoW
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} I don't have a movement speed spell for you!
}
/return
:ShamanSoW
/target ${MacroQuest.LastTell}
/delay 1
/if (${ZoneType}==1) {
/tell ${MacroQuest.LastTell} Can't cast ${ShmSoW} indoors
}
/return
/if (${ZoneType}==0) {
/tell ${MacroQuest.LastTell} Casting ${ShmSoW} on you!
/casting ${ShmSoW}|gem8 -maxtries|3
}
/return
:DruidSoW
/target ${MacroQuest.LastTell}
/delay 1
/if (${ZoneType}==1) {
/tell ${MacroQuest.LastTell} Can't cast ${DruSoW} indoors
}
/return
/if (${ZoneType}==0) {
/tell ${MacroQuest.LastTell} Casting ${DruSoW} on you!
/casting ${DruSoW}|gem8 -maxtries|3
}
/return
|+++++++++++++++++++++++++++++++++
| Stats
|+++++++++++++++++++++++++++++++++
Sub Event_Stats
/if (${Me.Class.ShortName.Equal[CLR]}) /goto :ClericStats
/if (${Me.Class.ShortName.Equal[SHM]}) /goto :ShamanStats
/if (${Me.Class.ShortName.Equal[DRU]}) /goto :DruidStats
}
/return
:ClericStats
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} I don't have any stat spells for you!
}
/return
:ShamanStats
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} Casting ${ShmAgi} on you!
/casting ${ShmAgi}|gem8 -maxtries|3
/tell ${MacroQuest.LastTell} Casting ${ShmSta} on you!
/casting ${ShmSta}|gem8 -maxtries|3
}
/return
:DruidStats
/target ${MacroQuest.LastTell}
/delay 1
/tell ${MacroQuest.LastTell} I don't have any stat spells for you!
}
/return
