Shamanbind.mac

[YKW-28983]

Code ripped from bind.mac ; used for shaman who have canialize to increase there bind wound skill up to 200 (or more if over 50 - I do not know the skill cap for over 50 so if you do please help me out.)

This got me from 0 - 204 in about 5 hours or so... (so stock up in bandages)

As you may or may not know, if your skill of bind wound goes over 200 you can bind up to 70% HPs, which then gives you the ability to bind up to 100% HPs with AA points.

Code: Select all

| Name: Shamanbind.mac
| Author: YKW-28983 & Whoever made bind.mac

#turbo

#include spellcast.mac

#event NoBandages "You cannot bind wounds without bandages. Go buy some."
#event DoneBandaging "The bandaging is complete."
#event TargetFull "You cannot bandage your target past"

#define MAXBIND 50

Sub Main
  :SkillCheck
  /if n $char(skill,"BindWound")==200 {
   /if n $char(level)<51 {
    /echo Can't Go Any Higher Till 51!
    /return
   }
  /if n $char(ability,"bind wound")!=-2 {
      /if n $char(ability,"bind wound")<1 {
         /echo You do not have "Bind Wound" on a /doability
         /return
      }
   }
   /if "$target()"=="FALSE" {
      /target myself
      /delay 0
   }
   /if n $target(hp,pct)>=MAXBIND {
      /echo $target(name) is already above MAXBIND% health.
      /goto :Canni   
   }
   :BindLoop
      /varset v1 0
      /doability "bind wound"
      :WaitLoop
         /doevents
      /if n $char(ability,"bind wound")==-2 /goto :WaitLoop
      /if n $v1==0 /goto :WaitLoop
   /if n $v1==2 /goto :Canni
   /if n $target(hp,pct)<MAXBIND /goto :BindLoop
   :Canni
   /if n $char(hp,pct)>25 {
    /call cast "Cannibalize"
    /delay 2s
    }
   /if n $char(hp,pct)<25 {
    /goto :BindLoop
    }
   /goto :Canni
/return

Sub Event_NoBandages
   /endmacro
/return

Sub Event_DoneBandaging
   /varset v1 1
/return

Sub Event_TargetFull
   /varset v1 2
/return

[Chem]

I like maintaning a low profile when using something like MQ so I've been a bit of a lurker here for over a year. I liked this macro so much though (not sure why a macro like this didn't occur to me sooner) that when I discovered a crash bug I felt a need to post about it.

I tried using the macro as posted but it always caused EQ to crash to desktop. I took out the SkillCheck portion and it works perfectly now.

Code: Select all

:SkillCheck 
  /if n $char(skill,"BindWound")==200 { 
   /if n $char(level)<51 { 
    /echo Can't Go Any Higher Till 51! 
    /return 
   }

I also edited the

Code: Select all

/call Cast "Cannibalize"
 

line to use "Cann III" since that's the one I usually have memmed.

Thanks for a very useful macro, got from 150 to 202 in about 2 hours.

[SingleServing]

I thought only melee's recieve BW past 200? Pure meelees at that war, monk and rog. Might want to add something like /if !(monk || rogue || war) /if skill == 200 /end

[Chem]

My 50+ Shaman has 208 BW, so at least some non-melees can go over 200 after level 50.

[SkackDuck]

The Priest classes can also break 200 :)

[SingleServing]

The Priest classes can also break 200 :)

Great thanks for the info! =)