how do i get this to work?!?!?! AFK cleric macro v4

afk_clr · Post by **afk_clr** » Sun May 16, 2004 5:39 am

|Cleric Macro
|cleric4.mac
|Author: Digitalxero
|Reauthored: ASDFASDFASDFASDF
|Usage: /macro cleric4.mac <sit> <heal percent tank> <heal percent caster>
|Example: /macro cleric4.mac 1 40 70

#event MeHit " hits YOU for "
#event OutOfMana "Insufficient Mana to cast this spell!"
#event OutOfRange "Your target is out of range, get closer!"
#event Fizzle "Your spell fizzles!"

Sub Main
/declare Healpct int outer ${Param1}
/declare Healpctcaster int outer ${Param2}
/declare Groupnum int outer
/declare i int outer
/declare Sit int outer ${Param0}
/declare Delay int outer
/declare Casting string outer

:chkevent
/doevents
/varset Groupnum ${Group}
| *** AutoHeal ***
:Healcheck
/for i 1 to ${Group}
/if (${Group[${i}].PctHPs}<1) /goto :nextmember
/if (${Group[${i}].Class.Name.Equal["Warrior"]} || ${Group[${i}].Class.Name.Equal["Paladin"]} || ${Group[${i}].Class.Name.Equal["Shadow Knight"]}) /goto :Tankheal

/doevents
/goto :CasterHeal

:Tankheal
/if (${Group[${i}].PctHPs}<=${Healpct}) {
/if (!${Buff[Divine Aura].ID}) {
/target ${Group[${i}].Name}
/stand
/varset Casting Complete Healing
| /g Complete Healing on %t! 10sec
/cast "Complete Healing"
/doevents
/varset Delay ${Math.Calc[${Spell["Complete Healing"].MyCastTime}*10+10]}
/delay ${Delay}
/if (${Sit}==1) /sit
/target clear
/goto :nextmember
}

:Casterheal
/if (${Group[${i}].PctHPs}<=${Healpctcaster}) {
/if (!${Buff[Divine Aura].ID}) {
/target ${Group[${i}].Name}
/stand
| /g Fast Heal on %t! 605hp
/varset Delay ${Math.Calc[${Spell["Superior Healing"].MyCastTime}*10+25]}
/varset Casting ${Superior Healing}
/cast "Superior Healing"
/doevents
/delay ${Delay}
/if (${Sit}==1) /sit
/target clear
}
:nextmember
}
/next i
/goto :chkevent
/return

Sub Event_MeHit
/if (${Me.PctHPs}<=60 AND ${Me.PctHPs}>40) {
/if (!${Buff[Divine Barrier].ID}) {
/if (!${Me.Buff[Superior Healing].ID}) {
/target myself
/stand
/varset Casting Superior Healing
/cast "Superior Healing"
/doevents
/varset Delay ${Math.Calc[${Spell[Superior Healing].MyCastTime}*10+5]}
/delay ${Delay}
}
}
} else /if (${Me.PctHPs}<=40 AND ${Me.PctHPs}>25) {
/if (!${Buff[Divine Aura].ID}) {
/target myself
/stand
/g Fast Heal on %t!
/varset Casting Superior Healing}
/cast "Superior Healing"
/doevents
/varset Delay ${Math.Calc[${Spell[Superior Healing].MyCastTime}*10+25]}
/delay ${Delay}
}
} else {
/stand
/if (!${Buff[Divine Aura].ID}) {
/varset Casting Divine Barrier
/cast "Divine Barrier"
/doevents
/varset Delay ${Math.Calc[${Spell[Divine Aura].MyCastTime}*10+5]}
/delay ${Delay}
/if (${Buff[Divine Barrier].ID}) /g Divine Barrier-ed! NO HEALS for 18 Sec
}
}
/return

Sub Event_Fizzle
/goto :Healcheck
/return

Sub Event_OutOfMana
/g OOM, meding
/if (${Sit}==1) /sit
/delay 5s
/return

Sub Event_OutOfRange
/delay 1s
/return

Sub Event_Fizzle
/cast "${Casting}"
/return

Preocts · Post by **Preocts** » Sun May 16, 2004 6:52 am

You don't. It's broken beyond repair. Delete MQ and try taking up tennis.

Oid · Post by **Oid** » Sun May 16, 2004 8:24 am

First, you put code tags.....

Then perhaps we shall talk

Oid · Post by **Oid** » Sun May 16, 2004 8:26 am

Secondly, run an AFK cleric in my group....... and i will do something so graphic to you, involving a saw horse, rope, a bottle of rubbing alcohol, a cucumber, and razor blades, that I won't even post it here.

afk_clr · Post by **afk_clr** » Sun May 16, 2004 6:44 pm

Code: Select all

|Cleric Macro
|cleric4.mac
|Author: Digitalxero
|Reauthored: ASDFASDFASDFASDF
|Usage: /macro cleric4.mac <sit> <heal percent tank> <heal percent caster>
|Example: /macro cleric4.mac 1 40 70

#event MeHit " hits YOU for "
#event OutOfMana "Insufficient Mana to cast this spell!"
#event OutOfRange "Your target is out of range, get closer!"
#event Fizzle "Your spell fizzles!"


Sub Main
/declare Healpct int outer ${Param1}
/declare Healpctcaster int outer ${Param2}
/declare Groupnum int outer
/declare i int outer
/declare Sit int outer ${Param0}
/declare Delay int outer
/declare Casting string outer

:chkevent
/doevents
/varset Groupnum ${Group}
| *** AutoHeal ***
:Healcheck
/for i 1 to ${Group}
/if (${Group[${i}].PctHPs}<1) /goto :nextmember
/if (${Group[${i}].Class.Name.Equal["Warrior"]} || ${Group[${i}].Class.Name.Equal["Paladin"]} || ${Group[${i}].Class.Name.Equal["Shadow Knight"]}) /goto :Tankheal

/doevents
/goto :CasterHeal

:Tankheal
/if (${Group[${i}].PctHPs}<=${Healpct}) {
/if (!${Buff[Divine Aura].ID}) {
/target ${Group[${i}].Name}
/stand
/varset Casting Complete Healing
| /g Complete Healing on %t! 10sec
/cast "Complete Healing"
/doevents
/varset Delay ${Math.Calc[${Spell["Complete Healing"].MyCastTime}*10+10]}
/delay ${Delay}
/if (${Sit}==1) /sit
/target clear
/goto :nextmember
}

:Casterheal
/if (${Group[${i}].PctHPs}<=${Healpctcaster}) {
/if (!${Buff[Divine Aura].ID}) {
/target ${Group[${i}].Name}
/stand
| /g Fast Heal on %t! 605hp
/varset Delay ${Math.Calc[${Spell["Superior Healing"].MyCastTime}*10+25]}
/varset Casting ${Superior Healing}
/cast "Superior Healing"
/doevents
/delay ${Delay}
/if (${Sit}==1) /sit
/target clear
}
:nextmember
}
/next i
/goto :chkevent
/return






Sub Event_MeHit
/if (${Me.PctHPs}<=60 AND ${Me.PctHPs}>40) {
/if (!${Buff[Divine Barrier].ID}) {
/if (!${Me.Buff[Superior Healing].ID}) {
/target myself
/stand
/varset Casting Superior Healing
/cast "Superior Healing"
/doevents
/varset Delay ${Math.Calc[${Spell[Superior Healing].MyCastTime}*10+5]}
/delay ${Delay}
}
}
} else /if (${Me.PctHPs}<=40 AND ${Me.PctHPs}>25) {
/if (!${Buff[Divine Aura].ID}) {
/target myself
/stand
/g Fast Heal on %t!
/varset Casting Superior Healing}
/cast "Superior Healing"
/doevents
/varset Delay ${Math.Calc[${Spell[Superior Healing].MyCastTime}*10+25]}
/delay ${Delay}
}
} else {
/stand
/if (!${Buff[Divine Aura].ID}) {
/varset Casting Divine Barrier
/cast "Divine Barrier"
/doevents
/varset Delay ${Math.Calc[${Spell[Divine Aura].MyCastTime}*10+5]}
/delay ${Delay}
/if (${Buff[Divine Barrier].ID}) /g Divine Barrier-ed! NO HEALS for 18 Sec
}
}
/return


Sub Event_Fizzle
/goto :Healcheck
/return


Sub Event_OutOfMana
/g OOM, meding
/if (${Sit}==1) /sit
/delay 5s
/return

Sub Event_OutOfRange
/delay 1s
/return

Sub Event_Fizzle
/cast "${Casting}"
/return

sorry.. done. and i suck at tennis apparently.

Oid · Post by **Oid** » Sun May 16, 2004 7:59 pm

Code: Select all

|Cleric Macro 
|cleric4.mac 
|Author: Digitalxero 
|Reauthored: ASDFASDFASDFASDF 
|Usage: /macro cleric4.mac <sit> <heal percent tank> <heal percent caster> 
|Example: /macro cleric4.mac 1 40 70 

#event MeHit "#*#hits YOU for#*#" 
#event OutOfMana "Insufficient Mana to cast this spell!" 
#event OutOfRange "Your target is out of range, get closer!" 
#event Fizzle "Your spell fizzles!" 


Sub Main 
/declare Healpct int outer ${Param1} 
/declare Healpctcaster int outer ${Param2} 
/declare Groupnum int outer 
/declare i int outer 
/declare Sit int outer ${Param0} 
/declare Delay int outer 
/declare Casting string outer 

:chkevent 
/doevents 
/varset Groupnum ${Group} 
| *** AutoHeal *** 
:Healcheck 
/for i 1 to ${Group} 
/if (${Group[${i}].PctHPs}<1) /goto :nextmember 
/if (${Group[${i}].Class.Name.Equal["Warrior"]} || ${Group[${i}].Class.Name.Equal["Paladin"]} || ${Group[${i}].Class.Name.Equal["Shadow Knight"]}) /goto :Tankheal 

/doevents 
/goto :CasterHeal 

:Tankheal 
/if (${Group[${i}].PctHPs}<=${Healpct}) { 
/if (!${Buff[Divine Aura].ID}) { 
/target ${Group[${i}].Name} 
/stand 
/varset Casting Complete Healing 
| /g Complete Healing on %t! 10sec 
/cast "Complete Healing" 
/doevents 
/varset Delay ${Math.Calc[${Spell["Complete Healing"].MyCastTime}*10+10]} 
/delay ${Delay} 
/if (${Sit}==1) /sit 
/target clear 
/goto :nextmember 
} 

:Casterheal 
/if (${Group[${i}].PctHPs}<=${Healpctcaster}) { 
/if (!${Buff[Divine Aura].ID}) { 
/target ${Group[${i}].Name} 
/stand 
| /g Fast Heal on %t! 605hp 
/varset Delay ${Math.Calc[${Spell["Superior Healing"].MyCastTime}*10+25]} 
/varset Casting ${Superior Healing} 
/cast "Superior Healing" 
/doevents 
/delay ${Delay} 
/if (${Sit}==1) /sit 
/target clear 
} 
:nextmember 
} 
/next i 
/goto :chkevent 
/return 






Sub Event_MeHit 
/if (${Me.PctHPs}<=60 AND ${Me.PctHPs}>40) { 
/if (!${Buff[Divine Barrier].ID}) { 
/if (!${Me.Buff[Superior Healing].ID}) { 
/target myself 
/stand 
/varset Casting Superior Healing 
/cast "Superior Healing" 
/doevents 
/varset Delay ${Math.Calc[${Spell[Superior Healing].MyCastTime}*10+5]} 
/delay ${Delay} 
} 
} 
} else /if (${Me.PctHPs}<=40 AND ${Me.PctHPs}>25) { 
/if (!${Buff[Divine Aura].ID}) { 
/target myself 
/stand 
/g Fast Heal on %t! 
/varset Casting Superior Healing} 
/cast "Superior Healing" 
/doevents 
/varset Delay ${Math.Calc[${Spell[Superior Healing].MyCastTime}*10+25]} 
/delay ${Delay} 
} 
} else { 
/stand 
/if (!${Buff[Divine Aura].ID}) { 
/varset Casting Divine Barrier 
/cast "Divine Barrier" 
/doevents 
/varset Delay ${Math.Calc[${Spell[Divine Aura].MyCastTime}*10+5]} 
/delay ${Delay} 
/if (${Buff[Divine Barrier].ID}) /g Divine Barrier-ed! NO HEALS for 18 Sec 
} 
} 
/return 


Sub Event_Fizzle 
/goto :Healcheck 
/return 


Sub Event_OutOfMana 
/g OOM, meding 
/if (${Sit}==1) /sit 
/delay 5s 
/return 

Sub Event_OutOfRange 
/delay 1s 
/return 

Sub Event_Fizzle 
/cast "${Casting}" 
/return

Only major error i saw..... i didnt look to close, didnt really care... I dont like afk clerics

robdawg · Post by **robdawg** » Mon May 17, 2004 12:10 pm

Preocts wrote:You don't. It's broken beyond repair. Delete MQ and try taking up tennis.

lol such hate Preocts! :)

Klodderik · Post by **Klodderik** » Tue May 18, 2004 10:01 am

Any cleric is better than an AFK cleric.

Especially if you are home alone and the kids suddenly wakes with a loud cry.

Might wanna prioritize the heals so the enc gets the first heals.

And add a delay so you don't sit straight after landing a heal - that move can cause you to gain agro.

Also, notice that Divines are affected by spell asting reinforcements, resulting in durations of up to 27 seconds with SCRM. But if this is for a sub 50 cleric (which castings of Superior Heal could confirm) you should be fine with 18 secs.

Oid · Post by **Oid** » Tue May 18, 2004 10:23 am

Just get SCS and you almost never get heal agro.