Shared bank cleaner

[nostress]

I got sick of moving all the tradeskill items from my shared bank, into my traders bank to sell later. So this quick macro will empty everything from your shared bank slots into your bank bags.

Just start it with the bank window open. It will open the shared bank bags for you. If you do run it with the bags already open, it will close them and mess up =) So don't.

|Run this with your bank window open. It will open up your shared bank bags,and put them all into normal bank space. -Nostress
#turbo 40

				
Sub Main
/declare bag1size int outer 0
/declare bag2size int outer 0
/declare itemcount int outer 1
/declare bagnum int outer 1
/declare bagslot int outer 25

/call SharedToBank
/return

Sub SharedToBank
/varset bag1size ${Me.Bank[25].Container}
/varset bag2size ${Me.Bank[26].Container}
/echo ${bag1size}, ${bag2size}
/itemnotify 59 rightmouseup
/delay 5
/itemnotify 58 rightmouseup
/delay 5

:bagloop
/if (${itemcount} <= ${bag${bagnum}size}) {
	/if (${Me.Bank[${bagslot}].Item[${itemcount}].ID}) {
		/shift /itemnotify ${Me.Bank[${bagslot}].Item[${itemcount}].InvSlot} leftmouseup
		/delay 1
		/notify BigBankWnd AutoButton leftmouseup
		/delay 1
		/if (${Cursor}) {
			/notify BigBankWnd AutoButton leftmouseup
			/delay 1s
			/if (${Cursor}) {
				/echo Something got stuck on the cursor. ending the macro
				/endmacro
				}
			}
		}
	/varcalc itemcount ${itemcount}+1
	/goto :bagloop
}
	/if (${bagnum}>1) {
		/echo done
		/endmacro
		}
/varset bagnum 2
/varset bagslot 26
/varset itemcount 1
/goto :bagloop
/return

 

[nostress]

Fixed for the Krono slot addition.