#bundle.Cmd

#Utility for bundling
#v2.00 written by Lady Eiadh of Solhaven

#v2.00 Notes:
#Changed the error string to the new string for GET verb.

#Do not distribute in modified form
#Send comments, failings, suggestions to AIM name: Lady Eiadh

#This script will bundle like items from a container.
#Note: If you have multiple types of items, the script will sort through up to 12 of the wrong
#ones and bundle the first type of item it picks up.
#For example, if you have both puma pelts and rat pelts in a backpack, if it picks up a rat pelt
#first, it will bundle only the rat pelts.  This is particularly handy for blessed/unblessed
#arrows of similar type.



if_2 goto start
echo Usage: .bundle {item} {container it is in}
exit

start:
set counter 0
put get %1 from my %2
MATCH top You remove
MATCH done Get what?
MATCHWAIT

top:
put get %1 from my %2
MATCH next You remove
MATCH done Get what?
MATCHWAIT

next: 
put bundle
MATCH not can't
MATCH not cannot
MATCH top bundle
MATCHWAIT

not:
put drop %1
WAITFOR You drop
counter add
goto top

done:
goto %c
0:
exit

12:
put get %1
put put my %1 in my %2
WAITFOR You put
11:
put get %1
put put my %1 in my %2
WAITFOR You put
10:
put get %1
put put my %1 in my %2
WAITFOR You put
9:
put get %1
put put my %1 in my %2
WAITFOR You put
8:
put get %1
put put my %1 in my %2
WAITFOR You put
7:
put get %1
put put my %1 in my %2
WAITFOR You put
6:
put get %1
put put my %1 in my %2
WAITFOR You put
5:
put get %1
put put my %1 in my %2
WAITFOR You put
4:
put get %1
put put my %1 in my %2
WAITFOR You put
3:
put get %1
put put my %1 in my %2
WAITFOR You put
2:
put get %1
put put my %1 in my %2
WAITFOR You put
1:
put get %1
put put my %1 in my %2
WAITFOR You put