Editing WoW:Useful macros (old) (section)

== Bags and money ==
=== Sell all grey items ===
 /script for bag = 0, 4 do for slot = 1, GetContainerNumSlots(bag) do local name = GetContainerItemLink(bag,slot) if name and string.find(name,"ff9d9d9d") then DEFAULT_CHAT_FRAME:AddMessage("Selling "..name) UseContainerItem(bag,slot) end end end

=== Mail all green items (Good for mailing greens to be disenchanted) ===
 /run for bag=0,4 do for slot=1,GetContainerNumSlots(bag) do local texture,itemCount,locked,quality=GetContainerItemInfo(bag,slot) if quality==2 then UseContainerItem(bag,slot) end end end

The mailbox must be open on the Send tab (preferably with a To: name typed in) to use this.

=== Get all money from mail items (Good for Auction House sales) ===
 /script CheckInbox() for m = GetInboxNumItems(), 1, -1 do TakeInboxMoney( m ) end

If there is any money in any of your mail messages it will be collected.  As for the Auction House messages, once the money is collected the message will be removed. Your mailbox must be open before the script will work.

=== Get all items from mail (edit of macro above) ===
 /script CheckInbox() for m = GetInboxNumItems(), 1, -1 do TakeInboxItem( m ) end

This macro will remove any items in your mailbox.  Your mailbox must be open before the script will work.

=== Swap carried & bank bags ===
 /script PickupInventoryItem(20) PickupInventoryItem(71)
 /script PickupInventoryItem(21) PickupInventoryItem(70)
 /script PickupInventoryItem(22) PickupInventoryItem(69)
 /script PickupInventoryItem(23) PickupInventoryItem(68)

Use: Swap your four bags with the first four bags in the bank.  You have to be in the bank and open the window before you use the macro.  It is very helpful if you have bags with your tools and other stuff you need for your jobs.

=== Open all bags ===
 /script OpenAllBags()

This macro opens all bags, the same as pressing shift-B in the default keybindings. Useful if you want to put a button for this on an action bar.

=== Open all bags but leftmost one ===
 /run o=OpenAllBags c=CloseAllBags i=IsBagOpen cw=CloseBag if i(0) and i(1) and i(2) and i(3) and not i(4) then c() cw(0); else if i(0) or i(1) or i(2) or i(3) or i(4) then c() cw(0) o() cw(4) else o() cw(4) end;end

One could find this macro useful if playing as a Warlock and wanting to open all bags at once '''but''' the SoulBag.
Please note: My SoulBag is the leftmost one but one can easily replace the code in the script above to leave closed whichever she prefers.

''Background information:'' In v2.3.3.7799 the "CloseAllBags" function is buggy: under certain conditions, it ignores the backpack.  This fact led the macro author to create a longer macro than he would have preferred.