MacroQuest64

Posted: **Fri Dec 12, 2008 7:05 pm**

I currently play on the Eqemu servers and finding macro's has been a tedious job, and not only finding working macros, fixing them to work with the 2005 build is pretty drat tough, I was hoping someone here might be able to help me with this very simple request.

What I need is a cleric bot. All it needs to do is check party health and heal at a set %, and manstone at %health and %mana limits.

My friend whom is fairly good at this helped me create this little nugget of joy, but not being in contact with him I was hoping that someone could help me put in a manastone check, or maybe see if there are any improvements that can be made.

I know this is just a straight out beg, but I am hoping someone will take mercy on me and just add in a manastone check at the very least, thank you very much.

Code: Select all


#include spell_routines.inc
#turbo


| ################## 
Sub Main
   /declare counter int outer 0
/declare count_grp int outer 0 
/declare HealAt   int   outer 59
/declare TargetName string outer 
/declare LastTargetName string outer 
   /declare SpellHeal          outer "Ethereal Light"
:loop
   /doevents


:InternalLoop
/call checkheals
/if  (!${Me.Casting.ID}) {
/if (${Me.Standing}) /sit
/delay 1
}
/goto :InternalLoop

/return

sub checkheals
/for count_grp 0 to ${Group}
 
/varset TargetName ${Group.Member[${count_grp}].Name}
| -- |  /echo Member: # ${count_grp} Name: <- ${TargetName} -> HP: ${Group.Member[${count_grp}].PctHPs} %
/if (${Group.Member[${count_grp}].PctHPs}<${HealAt}) {
/target ${TargetName}
/delay 5 
/g ${TargetName} I will heal you. You are at  ${Group.Member[${count_grp}].PctHPs} .
/call cast ${SpellHeal} gem1 5s
}
/next count_grp
/return

If you are feeling generous because of the holiday spirit you can clean it up, or add in whatever you like, I will admit I am at the very, very, very basic intro level macro creating and having someone add in any features would be awesome.

Thank you in advance.

Posted: **Sat Dec 13, 2008 3:20 pm**

got what I need working, A little try and you can do anything with MQ and the guide and wiki... here is my working code...

Code: Select all




#include spell_routines.inc
#turbo


| ################## 
Sub Main
/declare DrainTillHP int outer 60
 /declare DrainTillMANA int outer 90

   /declare counter int outer 0
/declare count_grp int outer 0 
/declare HealAt   int   outer 59
/declare TargetName string outer 
/declare LastTargetName string outer 
   /declare SpellHeal          outer "Ethereal Light"
:loop
   /doevents


:InternalLoop
/call checkheals
/call checkmana
/goto :InternalLoop

/return

sub checkheals
/for count_grp 0 to ${Group}
 
/varset TargetName ${Group.Member[${count_grp}].Name}
| -- |  /echo Member: # ${count_grp} Name: <- ${TargetName} -> HP: ${Group.Member[${count_grp}].PctHPs} %
/if (${Group.Member[${count_grp}].PctHPs}<${HealAt}) {
/target ${TargetName}
/delay 5 
/g ${TargetName} I will heal you. You are at  ${Group.Member[${count_grp}].PctHPs} .
/call cast ${SpellHeal} gem1 5s
}
/next count_grp
/return

Sub checkmana
/if (${Me.PctMana}<=${DrainTillMANA} && ${Me.PctHPs}>=${DrainTillHP}) {
/cast item "improved manastone"
}
/delay 1
/return