helmheal.mac ~~ Paladin macro

[curiousgeorge]

This is actually a variatino on eqjim's response to a macro request. This is inresponse to paladin's getting a better helm than Deepwater but wanting to keep their DW helm for hat heals. this macro will allow paladins to hotbutton a helm heal.

Code: Select all

-- helmheal.mac --
| Deepwater Helm heal macro
| Author eqjim, modified by curiousgeorge

Sub Main 
/if n $char(hp,pct)<=100 {  | check hp 
/if $invpanel==false /press i  | open inventory 
/finditem "Deepwater Helm" | put Deepwater Helm on cursor 
/click left equip Head   | equip Deepwater helm 
:checkhp 
/click right equip Head  | right click for effect 
/delay 15  | wait 15 sec for casting 
/if n $char(hp,pct)<=100 /goto :checkhp | check if still injured 
/click left equip head  | re-equip scaled knight's helm 
/if $pack(1,open)==false {  | if bag 1 not open 
/if $invpanel==false /press i  | check for inventory 
/click right inv 1  | open bag 
} 
/click left pack 1 1   | put helm in slot 1 of bag 1 
/click left pack 1 done    | close bag 
/if $invpanel==true /press i  | close inventory 
/return

-- End of helmheal.mac --

hope this helps all you paladins out there.

CG

[Consilium]

Great macro but I got an error while running it..

couldn't find label ": checkhp | check if still injured"

Not sure what the problem is... still learning.

[DeathSpiral]

Great macro but I got an error while running it..

couldn't find label ": checkhp | check if still injured"

Not sure what the problem is... still learning.

Actually, that source is pretty messy. I'll clean it up a bit. Here, have a look:

Code: Select all

| - helmheal.mac -
| DeapWater Helm Heal macro
| Author, eqjim, modified by curiousgeorge, cleaned up by DeathSpiral

sub Main
   | No need to heal if we are full health
   /if n $char(hp,pct)==100 /return

   | Make sure the inventory window is open
   /if "$invpanel"!="true" /press i

   | Equip the helm
   /finditem "Deepwater Helm"
   /click left equip head

   :CheckHP
      | Right click for the effect
      /click right equip head

      | Delay 15 seconds for the casting
      /delay 150

      | If we aren't full health, rinse and repeat
      /if n $char(hp,pct)<100 /goto :CheckHP

   | Re-equip current helm
   /click left equip head

   | Wait for deepwater helm on cursor
   :WaitForDWHelm
      /doevents
      /if "$cursor(name)"!="Deepwater Helm" /goto :WaitForDWHelm

   | Put the Deepwater Helm away
   /click left auto

   | Close the inventory window
   /if "$invpanel"=="TRUE" /press i
/return

As you can see, I did make a few minor changes when cleaning it up, but that should work for you. Have fun!

[Consilium]

Yes.. thanks much deathspiral.

Your changes worked great.

now to dust off the old DW helm.

[curiousgeorge]

sorry, I'm not a programmer. was just working with what I knew. thanks for cleaning up the code =)