#grind
debug off
if_2 goto start
goto changemode%grind


start:
put open my %alchemycontainer
put get my mortar
setvariable grinditem %1 %2
start2:
put get my %grinditem 
put put my %grinditem in my mortar
start3:
match start4 appears to be as ground as its going to get.
match haste R>
match start3 Roundtime changed
match start3 ...wait
match nextitem Grind what?  Your teeth, maybe?
put grind my %grinditem
matchwait

start4:
setvariable grindstow a
match start4 ...wait
match start4a Get what?
match stow You remove
put get %2 in my mortar
matchwait

start4a:
setvariable grindstow b
match start4a ...wait
match exitfail Get what?
match stow You remove
put get %1 in my mortar
matchwait

stow:
goto stow%grind
stow1:
goto stow1%grindstow
stow1a:
put drop left
goto start2
stow1b:
put put left in my %alchemycontainer
goto start2
stow2:
put put left in my %alchemycontainer
goto start2
stow3:
put drop left
goto start2


haste:
match haste ...wait
match haste Wait
match start3 Cast Roundtime 3 Seconds.
put incant 506
matchwait

nextitem:
shift
shift
if_2 setvariable grinditem %1 %2
if_2 goto start2
put put my mortar in my %alchemycontainer
deletevariable grindstow
deletevariable grinditem
exit

exitfail:
put put my mortar in my %alchemycontainer
ECHO
ECHO *** Failed ***
ECHO GRIND %0
ECHO *** Failed ***
ECHO
deletevariable grindstow
deletevariable grinditem
exit


LabelError:
changemode3:
setvariable grind 1
ECHO
ECHO Smart mode is on.  If the noun of the herb changes it will be stowed in your %alchemycontainer but if not it will be dropped to the ground.
ECHO
exit
changemode1:
setvariable grind 2
ECHO
ECHO Herbs that are ground will now always be stowed in your %alchemycontainer
ECHO
exit
changemode2:
setvariable grind 3
ECHO
ECHO Herbs will always be dropped to the ground when ground.
ECHO
exit