• You've discovered RedGuides, an EverQuest multi-boxing and scripting community 🧙‍♀️⚙️. We want you to play several EQ characters at once, come join us and say hello! 👋

  • A TLP without truebox has thawed (Very Vanilla ready)
    Frostreaver

AFK Powerlevel Macro (1 Viewer)

Lep18

New member
Joined
Jul 2, 2005
RedCents
Powerlevel.mac is a macro I created for my druid to powerlevel my beastlord in forgotten halls. It's great for those of us without bards :p What it does is:

Cast heal at certain percent:

-change /if (${Target.PctHPs}<55) to the percent you want to heal at.
-change /cast 6 to whichever spell gem you have heal mem'ed to (1-9)

Refresh buffs:

-Change the buff names to whichever spells/buffs you have

Gate if you get to a certain percent hps or go oom (this feature was added incase beastlord crashed and mobs started attacking the druid.):

-change /if (${Me.PctHPs}<10) /gate to what percent you want to gate at.

Change all of the newb101's to the person you are pling and all of the druid101's to your powerleveler.


Rich (BB code):
|powerlevel.mac by lep18, heal code taken from healtarget.mac by Macrofest (Thanks Macrofest!)

#turbo 40

#include spellcast.inc
#chat tell

#event thorns "#*#Your Shield of Bracken spell has worn off of newb101#1#"
#event regen "#*#Your Replenishment spell has worn off of newb101#1#"
#event skin "#*#Your Protection of the Nine spell has worn off of newb101#1#"
#event oak "#*#Your skin loses its oaken resilience#*#"
#event motf "#*#Your features return to normal#*#"
#event might "#*#Your Nature's Might spell has worn off of newb101#1#"
#event gate "#*#You have insufficient mana to cast this spell#1#"
#chat tell

Sub Main

:loop
/doevents
/if (${Me.PctHPs}<10) /gate
/if (${Me.Casting.ID}) /goto :loop
/target pc newb101

/if (${Target.PctHPs}<55) {
/goto :heal
} else {
/goto :loop
}


:heal
/doevents
/cast 6
/doevents
/doevents
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
}
/goto :loop

Sub Event_Thorns


   /target pc newb101
   /call cast "Shield of Bracken"
   /return

Sub Event_regen

   /target pc newb101
   /call cast "Replenishment"
   /return

Sub Event_might


   /target pc newb101
   /call cast "Nature's Might"
   /return

Sub Event_skin

   /target pc newb101
   /call cast "Protection of the Nine"
   /return

Sub Event_oak

   /target druid101
   /call cast "Steeloak Skin"
   /return

Sub Event_motf

   /target druid101
   /call cast "Mask of the Forest"
   /return 

Sub Event_gate

   /gate
   /endmacro

Sub Event_Chat(string ChatType,string Sender,string ChatText)

/if (${ChatText.Equal["Needarez"]}) {
/if (${Naked}==0) {
/delay 10
/tell ${Sender} Nothanks
        }
/if (${Naked}==1) { 
/delay 10                   
/tell ${Sender} Sure
/call wait4rez
 }
}

/if (${ChatText.Equal["camp"]}) {
/dismount
/sit
/camp
}

/if (${ChatText.Equal["invite"]}) {
/target ${Sender}
/delay 1s
/invite
/delay 1s
/keypress esc
}
/return

This code was used in correlation to a hunter macro on my beastlord which i found at macroquest2.com . Here is a similar one i found:

http://www.macroquest2.com/phpBB2/viewtopic.php?t=7135&highlight=hunter

I know my macro isnt the most advanced out there, but its simple and does what I want it to do!! Hope this helps someone :)
 
did you change all the noob101's to your chars name? I also think that instead of doing where you have to write out noob101 you could of used a parameter. ill try to hack it together.
 
there ya go it is untested but should work let me know how it gose.
ps /mac powerlevel PLies name
Rich (BB code):
|powerlevel.mac by lep18, heal code taken from healtarget.mac by Macrofest |(Thanks Macrofest!)
|Pugs revamp for Param support use /mac powerlevel PLies name
|also check out http://www.macroquest2.com/phpBB2/viewtopic.php?t=10109
#turbo 40
/varset newb101 ${Param0}
 
#include spellcast.inc
#chat tell

#event thorns "#*#Your Shield of Bracken spell has worn off of ${newb101}#*#"
#event regen "#*#Your Replenishment spell has worn off of ${newb101}#*#"
#event skin "#*#Your Protection of the Nine spell has worn off of ${newb101}#*#"
#event oak "#*#Your skin loses its oaken resilience#*#"
#event motf "#*#Your features return to normal#*#"
#event might "#*#Your Nature's Might spell has worn off of ${newb101}#*#"
#event gate "#*#You have insufficient mana to cast this spell#*#"
#chat tell

Sub Main p0

:loop
/doevents
/if (${Me.PctHPs}<10) /gate
/if (${Me.Casting.ID}) /goto :loop
/target pc ${newb101}

/if (${Target.PctHPs}<55) {
/goto :heal
} else {
/goto :loop
}


:heal
/doevents
/cast 6
/doevents
/doevents
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
}
/goto :loop

Sub Event_Thorns


   /target pc ${newb101}
   /call cast "Shield of Bracken"
   /return

Sub Event_regen

   /target pc ${newb101}
   /call cast "Replenishment"
   /return

Sub Event_might


   /target pc ${newb101}
   /call cast "Nature's Might"
   /return

Sub Event_skin

   /target pc ${newb101}
   /call cast "Protection of the Nine"
   /return

Sub Event_oak

   /target ${Me}
   /call cast "Steeloak Skin"
   /return

Sub Event_motf

   /target ${Me}
   /call cast "Mask of the Forest"
   /return 

Sub Event_gate

   /gate
   /endmacro

Sub Event_Chat(string ChatType,string Sender,string ChatText)

/if (${ChatText.Equal["Needarez"]}) {
/if (${Naked}==0) {
/delay 10
/tell ${Sender} Nothanks
        }
/if (${Naked}==1) { 
/delay 10                   
/tell ${Sender} Sure
/call wait4rez
 }
}

/if (${ChatText.Equal["camp"]}) {
/dismount
/sit
/camp
}

/if (${ChatText.Equal["invite"]}) {
/target ${Sender}
/delay 1s
/invite
/delay 1s
/keypress esc
}
/return
 
this would be a nice macro for me but cant 2 box, no comp :P but still good incase i need to get some pl's done without bein there :)
 
What level is Forgotten Halls? and What could be done to change this to Cleric Heals and have it assist PL Newb to do a DS Mark on NPC being kille?
 
Ive been looking over this mac to modify it to work for my cleric to PL my newb, without having to alt+tab back and forth while pulling and fighting. And while the mac is keeping my newb healed and buffs all around, the problem im having is trying to get the cleric to cast a damage shield off of an assist triggered by a tell :-). Obviously thats not working, lol. Im trying to fanangle a root in there also for running mobs, also by a tell, heh. The commands I tried to get working are getting the cleric to cast the spell, but the cleric is casting the spell on the newb instead of the assist. I would really like some help with this, if anyone has the time.

Sorry dont know how to post macs in there own individual boxes, so if this dont come out right sorry.

Rich (BB code):
|powerlevel.mac by lep18, heal code taken from healtarget.mac by Macrofest (Thanks Macrofest!)
--Modified by blade2580--

#turbo 40

#include spellcast.inc
#chat tell

#event temp "#*#Your Temperance spell has worn off of <Newb>#1#"
#event magic "#*#Your Resist Magic spell has worn off of <Newb>#1#"
#event gate "#*#You have insufficient mana to cast this spell#1#"
#event conv "#*#Your conviction fades#*#
#event armor "#*#The zealous aura fades#*#
#event spell "#*#Your thoughts slow#*#
#event damage "#*#<Newb> tells you, 'damage shield'#*#
#event root "#*#<Newb> tells you, 'root'#*#

#chat tell

Sub Main

:loop
/doevents
/if (${Me.PctHPs}<20) /gate
/if (${Me.Casting.ID}) /goto :loop
/target pc <Newb>

/if (${Target.PctHPs}<40) {
/goto :heal
} else {
/goto :loop
}


:heal
/doevents
/cast 4
/doevents
/doevents
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
}
/goto :loop

Sub Event_temp

   /target pc <Newb>
   /call cast "Temperance"
   /return

Sub Event_magic

   /target pc <Newb>
   /call cast "Resist Magic"
   /return

Sub Event_conv

   /target pc <Clerics Name>
   /call cast "Conviction"
   /return

Sub Event_armor

   /target pc <Clerics Name>
   /call cast "Armor of the Zealot"
   /return

Sub Event_spell

   /target pc <Clerics Name>
   /call cast "Blessing of Devotion"
   /return

Sub Event_damage

   /assist pc <Newb>
   /delay 1s
   /call cast "Mark of the Blameless"
   /delay 2s
   /return

Sub Event_root

   /assist pc <Newb>
   /delay 1s
   /call cast "Immobilize"
   /delay 2s
   /return

Sub Event_gate

   /gate
   /endmacro

Sub Event_Chat(string ChatType,string Sender,string ChatText)

/if (${ChatText.Equal["Needarez"]}) {
/if (${Naked}==0) {
/delay 10
/tell ${Sender} Nothanks
        }
/if (${Naked}==1) { 
/delay 10                   
/tell ${Sender} Sure
/call wait4rez
 }
}

/if (${ChatText.Equal["camp"]}) {
/dismount
/sit
/camp
}

/if (${ChatText.Equal["invite"]}) {
/target ${Sender}
/delay 1s
/invite
/delay 1s
/keypress esc
}
/return
Thanks in advance for your help!
 
Last edited:
[Co de]
Put Macro here

remove Space in the word code ...

hurry IT BURNS MY EYES



[/co de]



8-)


now back to reading what you posted
 
remove the <noob> from the #Event lines

if your too lazy to type in your toons name which most of us are

/echo usage /MAC PL
/echo Target the PLee

/declare Plee String Outer ${Target.ID}

Change pc <Noob> in both EVENT SUBS to ${Plee}


All done

8-)
 
Im not sure where to put this in the mac

/echo usage /MAC PL
/echo Target the PLee

/declare Plee String Outer ${Target.ID}

I tried the mac out and it spams:
There are no spawns matching: (0-100) pc null

I have my newb targeted when starting macro. I must have put that /echo thing in the wrong spot or something with the target.ID thing. this is what I changed

Rich (BB code):
|powerlevel.mac by lep18, heal code taken from healtarget.mac by Macrofest (Thanks Macrofest!)
--Modified by blade2580--

#turbo 40

#include spellcast.inc
#chat tell

#event temp "#*#Your Temperance spell has worn off of#1#"
#event magic "#*#Your Resist Magic spell has worn off of#1#"
#event gate "#*#You have insufficient mana to cast this spell#1#"
#event conv "#*#Your conviction fades#*#
#event armor "#*#The zealous aura fades#*#
#event spell "#*#Your thoughts slow#*#
#event damage "#*#tells you, 'damage shield'#*#
#event root "#*#tells you, 'root'#*#

#chat tell

/echo usage /MAC PL
/echo Target the PLee

/declare Plee String Outer ${Target.ID}

Sub Main

:loop
/doevents
/if (${Me.PctHPs}<20) /gate
/if (${Me.Casting.ID}) /goto :loop
/target pc ${Plee}

/if (${Target.PctHPs}<40) {
/goto :heal
} else {
/goto :loop
}


:heal
/doevents
/cast 4
/doevents
/doevents
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
}
/goto :loop

Sub Event_temp

   /target pc ${Plee}
   /call cast "Temperance"
   /return

Sub Event_magic

   /target pc ${Plee}
   /call cast "Resist Magic"
   /return

Sub Event_conv

   /target pc <Clerics Name>
   /call cast "Conviction"
   /return

Sub Event_armor

   /target pc <Clerics Name>
   /call cast "Armor of the Zealot"
   /return

Sub Event_spell

   /target pc <Clerics Name>
   /call cast "Blessing of Devotion"
   /return

Sub Event_damage

   /assist pc ${Plee}
   /delay 1s
   /call cast "Mark of the Blameless"
   /delay 2s
   /return

Sub Event_root

   /assist pc ${Plee}
   /delay 1s
   /call cast "Immobilize"
   /delay 2s
   /return

Sub Event_gate

   /gate
   /endmacro

Sub Event_Chat(string ChatType,string Sender,string ChatText)

/if (${ChatText.Equal["Needarez"]}) {
/if (${Naked}==0) {
/delay 10
/tell ${Sender} Nothanks
        }
/if (${Naked}==1) { 
/delay 10                   
/tell ${Sender} Sure
/call wait4rez
 }
}

/if (${ChatText.Equal["camp"]}) {
/dismount
/sit
/camp
}

/if (${ChatText.Equal["invite"]}) {
/target ${Sender}
/delay 1s
/invite
/delay 1s
/keypress esc
}
/return
 
move

the declare to here

Rich (BB code):
Sub Main

/declare Plee String Outer ${Target.ID}

:loop
 
I made those changes and am now getting the message:

There are no spawns matching: (24380-24380) any string outer.

:-(
 
Rich (BB code):
Sub Event_damage

   /assist pc <Newb>
   /delay 1s
   /call cast "Mark of the Blameless"
   /delay 2s
   /return



Should target plee instead of assisting. just something i caught real quick.
 
This is what the my macro looks like right now with all the changes that were suggested by Army so far.

Rich (BB code):
|powerlevel.mac by lep18, heal code taken from healtarget.mac by Macrofest (Thanks Macrofest!)
--Modified by blade2580--

#turbo 40

#include spellcast.inc
#chat tell

#event temp "#*#Your Temperance spell has worn off of#1#"
#event magic "#*#Your Resist Magic spell has worn off of#1#"
#event gate "#*#You have insufficient mana to cast this spell#1#"
#event conv "#*#Your conviction fades#*#
#event armor "#*#The zealous aura fades#*#
#event spell "#*#Your thoughts slow#*#
#event damage "#*#tells you, 'damage shield'#*#
#event root "#*#tells you, 'root'#*#

#chat tell

/echo usage /MAC PL
/echo Target the PLee

Sub Main

/declare Plee String Outer ${Target.ID}

:loop
/doevents
/if (${Me.PctHPs}<20) /gate
/if (${Me.Casting.ID}) /goto :loop
/target ${Plee}

/if (${Target.PctHPs}<40) {
/goto :heal
} else {
/goto :loop
}


:heal
/doevents
/cast 4
/doevents
/doevents
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
}
/goto :loop

Sub Event_temp

   /target ${Plee}
   /call cast "Temperance"
   /return

Sub Event_magic

   /target ${Plee}
   /call cast "Resist Magic"
   /return

Sub Event_conv

   /target pc <Clerics Name>
   /call cast "Conviction"
   /return

Sub Event_armor

   /target pc <Clerics Name>
   /call cast "Armor of the Zealot"
   /return

Sub Event_spell

   /target pc <Clerics Name>
   /call cast "Blessing of Devotion"
   /return

Sub Event_damage

   /assist ${Plee}
   /delay 1s
   /call cast "Mark of the Blameless"
   /delay 2s
   /return

Sub Event_root

   /assist ${Plee}
   /delay 1s
   /call cast "Immobilize"
   /delay 2s
   /return

Sub Event_gate

   /gate
   /endmacro

Sub Event_Chat(string ChatType,string Sender,string ChatText)

/if (${ChatText.Equal["Needarez"]}) {
/if (${Naked}==0) {
/delay 10
/tell ${Sender} Nothanks
        }
/if (${Naked}==1) { 
/delay 10                   
/tell ${Sender} Sure
/call wait4rez
 }
}

/if (${ChatText.Equal["camp"]}) {
/dismount
/sit
/camp
}

/if (${ChatText.Equal["invite"]}) {
/target ${Sender}
/delay 1s
/invite
/delay 1s
/keypress esc
}
/return

I substituted out my clerics name for the <clerics name> because for one I dont know how to make it target myself. And two it would be kinda dumb to post my clerics name on open board heh.

I would be working on this macro more and doing a bunch of searching to fix it, but the military also employs me and demands much of my time. I know there is some others out there on this board that would also be happy to see this mac completed.
 
motorsgt said:
Rich (BB code):
Sub Event_damage

   /assist pc <Newb>
   /delay 1s
   /call cast "Mark of the Blameless"
   /delay 2s
   /return



Should target plee instead of assisting. just something i caught real quick.

Oh yeah btw, forgot to include this in my post. The reason for the assist on this is because Mark of the Blameless is a cleric damage shield that is cast on the mob the newb is fighting. Any time the mob hits anyone while this spell is on him... bam! 45 damage a hit! clerics rock at PL! :-)

The main problem I was having with getting this to work right is when I send the tell to cleric to cast the DS, the cleric would immediatly change target back to the newb and the DS would be casted on the newb instead of the mob, and thus doing nothing. The macro was working great for healing and rebuffing the newb when buffs dropped. Was just hoping that I could incorporate more functions to this mac. It could easily be modified for druids, shamans and other priest classes by just changing the spells casted and targets. Having a snare ready for running mobs would work great in dungeons, I think.
 
You don't need this macro at all to pl with a cleric..

Just get an old AFCLERIC and add this :

Rich (BB code):
    /if (${ChatText.Equal[ds]}) { 
 /if (${Target.PctHPs} < 70) /echo mob hp too low
  /if (${Target.PctHPs} < 70) /return 
  /if (${DEBUG}) /echo Assist 6 
  /delay 3
  /echo assisting 
  /delay 2
  /assist ${tankname} 
  
  /delay 3 
  /assist ${tankname} 
  /delay 1
   /if (${FindItem[Ultor'S Greaves of Faith].ID}) /call Cast "Ultor'S Greaves of Faith" item 
   /echo Casting the Mark of king   
   /if (!${FindItem[Ultor'S Greaves of Faith].ID}) /echo no ultor greaves
/return
}
  /if (${ChatText.Equal[ds1]}) { 
  /if (${Target.PctHPs} < 70) /echo mob hp too low
  /if (${Target.PctHPs} < 70) /return 
  /if (${DEBUG}) /echo Assist 6 
 /assist ${tankname} 
  /delay 3 
  /assist ${tankname} 
  /delay 3 
  /echo Casting Mark of the blameless on %t
   /call Cast "Mark of the Blameless" gem7 5s 
/return

}

From there you will just have to tell the cleric DS or DS1 , every pull to get both damage shields(Basically just add /1 DS and /1 DS1 in your hunter macro when you are pulling mobs, and the cleric will auto DS every mob)..the cleric will autobuff etc (using AFCLERIC routines).

Can even ask the DMG shields , via MQ2IRC (so GM can't snoop).

I ve used in the first exemple ulthor greaves of faith (Mana free Damage shield)
 
How does Forgotten Halls zone work? From what I understand it is in GoD Expansion right? Can you have like a level 20 character in the instance with a level 70 out of group to PL the newbie?
 
No, I gave up on it. Couldnt figure out how to get it to stop targeting only the newb for healing.
 
I got yours to work and it is Damage shielding and Marking of blameless on Tell.

What I did was remove the /declare Plee and took out the pc part in the targeting of the cleric.

I hard coded the Cleric and Newb name in the right spots. Works awsome!!!

Want me to post what I did?
 
Okay here it is:

change all Newb01 to the name of the newbie been PLed.
Change all Cleric01 to the name of your cleric.

Rich (BB code):
|powerlevel.mac by lep18, heal code taken from healtarget.mac by Macrofest (Thanks Macrofest!)
--Modified by blade2580--

#turbo 40

#include spellcast.inc
#chat tell

#event temp "#*#Your Resolution spell has worn off of#1#"
#event magic "#*#Your Symbol of Naltron spell has worn off of#1#"
#event gate "#*#You have insufficient mana to cast this spell#1#"
#event conv "#*#Your conviction fades#*#
#event armor "#*#The zealous aura fades#*#
#event spell "#*#Your thoughts slow#*#
#event damage "#*#tells you, 'damage shield'#*#
#event root "#*#tells you, 'root'#*#

#chat tell

/echo usage /MAC PL
/echo Target the PLee

Sub Main

|/declare Plee String Outer ${Target.ID}

:loop
/doevents
/if (${Me.PctHPs}<20) /gate
/if (${Me.Casting.ID}) /goto :loop
/target Newb01

/if (${Target.PctHPs}<40) {
/goto :heal
} else {
/goto :loop
}


:heal
/doevents
/cast 4
/doevents
/doevents
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
}
/goto :loop

Sub Event_temp

   /target Newb01
   /call cast "Resolution"
   /return

Sub Event_magic

   /target Newb01
   /call cast "Symbol of Naltron"
   /return

Sub Event_conv

   /target Cleric01
   /call cast "Conviction"
   /return

Sub Event_armor

   /target Cleric01
   /call cast "Armor of the Zealot"
   /return

Sub Event_spell

   /target Cleric01
   /call cast "Blessing of Devotion"
   /return

Sub Event_damage

   /assist Newb01
   /delay 1s
   /call cast "Mark of the Blameless"
   /delay 2s
   /return

Sub Event_root

   /assist Newb01
   /delay 1s
   /call cast "Immobilize"
   /delay 2s
   /return

Sub Event_gate

   /gate
   /endmacro

Sub Event_Chat(string ChatType,string Sender,string ChatText)

/if (${ChatText.Equal["Needarez"]}) {
/if (${Naked}==0) {
/delay 10
/tell ${Sender} Nothanks
        }
/if (${Naked}==1) { 
/delay 10                   
/tell ${Sender} Sure
/call wait4rez
 }
}

/if (${ChatText.Equal["camp"]}) {
/dismount
/sit
/camp
}

/if (${ChatText.Equal["invite"]}) {
/target ${Sender}
/delay 1s
/invite
/delay 1s
/keypress esc
}
/return
 
AFK Powerlevel Macro

Users who are viewing this thread

Back
Top
Cart