invswap.mac - swap your current inventory into the bank

[inorpo]

I got sick of moving bags by hand, so I wrote this....

Its simple, but it works.

Code: Select all

|invswap.mac
| Swap your current inventory to eather you left bank or right bank window,
| Swaping whats currently there back.
|  - inorpo :)
| ps. Thanks to advpath.inc for the nifty versioning system.
|Version 1.01
|Date: Monday, February 09, 2004
|
||**
[invswap]
version=1.01
**|


Sub Main
/declare Counter global

/if "@Param0"!="" {
	/if "@Param0"=="lbank" {
	/varset Counter 0
		/for Counter 0 to 7
			/click left inv @Counter
			/click left bigbank_@Counter
			/click left inv @Counter
		/next Counter
	/endmacro
	}
	/if "@Param0"=="rbank" {
	/varset Counter 8
		/for Counter 8 to 15
			/click left inv $calc(@Counter-8)
			/click left bigbank_@Counter
			/click left inv $calc(@Counter-8)
		/next Counter
	/endmacro
	}
	/call Error
} else {
	/call Error
}
/return


Sub Error 
	/echo InvSwap.mac
	/echo /mac InvSwap <[lbank / rbank]>
/return