Open and close packs
Posted: Fri Apr 30, 2004 1:23 am
Code: Select all
| ********************************************************
| OpenPacks
| ********************************************************
Sub OpenPacks
/declare bag int local 0
/newif (!${Window[InventoryWindow].Open}) /keypress inventory
/delay 1
/for bag 1 to 8 step 1
/newif (!${Window[pack${bag}].Open}) /itemnotify pack${bag} rightmouseup
/next bag
/delay 1
/return
| ********************************************************
| ********************************************************
Sub ClosePacks
/declare bag int local 0
/newif (!${Window[InventoryWindow].Open}} /keypress inventory
/delay 1
/for bag 1 to 8 step 1
/newif (${Window[pack${bag}].Open}) /itemnotify pack${bag} rightmouseup
/next bag
/delay 1
/return