MacroQuest64

Code: Select all

|bardbp.mac 
|/mac bardbp 
|/echo stop (to end it and have it re-equip your original BP) 
|Thanks to Ieatacid for creating manarobe.mac (were this was taken from) 

#turbo 
#event stop "[MQ2] stop" 

Sub Main 
/declare slot invslot outer 

/echo bardbp.mac started.... 
/echo /echo stop (to stop it) 

/if (!${Window[InventoryWindow].Open}) /keypress Inventory 
/vardata slot FindItem[=Singing Steel Breastplate].InvSlot
/if (!${Window[${slot.Pack.Name}].Open}) /itemnotify ${slot.Pack.Name} rightmouseup
/itemnotify chest leftmouseup 
/itemnotify ${slot} leftmouseup 
/itemnotify chest leftmouseup 
/if (${Me.Sitting}) /stand 
:loop 
/call CheckHP 
/itemnotify chest rightmouseup 
/doevents 
/delay 1 
/goto :loop 
/return 

Sub CheckHP 
/if (${Me.PctHPs}>=98) { 
/echo FULL HEALTH!! 
/call EndIt 
} 
/return 

Sub EndIt 
:wait 
/if (${Me.Casting.ID}) /goto :wait 
/itemnotify chest leftmouseup 
/itemnotify ${slot} leftmouseup 
/itemnotify chest leftmouseup 
/echo Ending. 
/cleanup 
/endmac 

Sub Event_stop 
/call EndIt 
/return