Krs01 - Bard bp click thing.

Need help with a macro you are writing? Ask here!

Moderator: MacroQuest Developers

Oid
a snow griffon
a snow griffon
Posts: 416
Joined: Thu Oct 17, 2002 3:26 am
Contact:

Krs01 - Bard bp click thing.

Post by Oid » Wed May 19, 2004 4:02 am

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 
Wrong forum... you didnt use code tags... but you made an effort. This should work.

edit: disabled smilies because of the 8 ) in the macro... i hate fucking smilies.. w hatever cunt made graphics for smilies many years ago should die.

edit 2: removed variable declare for bag, not needed.
Smokey the Lax says only you can prevent reproduction.

Krs01
orc pawn
orc pawn
Posts: 27
Joined: Tue May 18, 2004 7:30 pm
Location: Seattle

Post by Krs01 » Wed May 19, 2004 8:02 pm

TY OID

Oid
a snow griffon
a snow griffon
Posts: 416
Joined: Thu Oct 17, 2002 3:26 am
Contact:

Post by Oid » Thu May 20, 2004 9:58 am

np, did it work for ya?
Smokey the Lax says only you can prevent reproduction.

Krs01
orc pawn
orc pawn
Posts: 27
Joined: Tue May 18, 2004 7:30 pm
Location: Seattle

Post by Krs01 » Thu May 20, 2004 7:56 pm

it did work ty !

Oid
a snow griffon
a snow griffon
Posts: 416
Joined: Thu Oct 17, 2002 3:26 am
Contact:

Post by Oid » Thu May 20, 2004 8:59 pm

Great
Smokey the Lax says only you can prevent reproduction.