hammer forging script

[Josapheen]

this script *should* work with Stormfront...*should* be bug free...here's hoping, at least. It's kinda bumbling...if you can show me how to simplify it in dummy terms, that'd be nifty, too...anyway, here is.

ECHO ****THIS SCRIPT IS USED TO CRAFT FORGING HAMMERS, ONE AT A TIME.****
echo WHAT DO YOU WANT TO WORK WITH? BEGIN, HEAD, HANDLE, POLISH OR VISE?
match begin begin
match headglyph head
match handleglyph handle
match polish polisher
match vise vise
matchwait

continue:
put get my slab
waitfor you
put swap
waitfor you
goto headglyph

begin:
put get my slab
waitfor you
put swap
waitfor you
goto headglyph

headglyph:
put stare head-glyph
waitfor you
goto headgrinder

handleglyph:
put stare handle-glyph
waitfor you
goto handlegrinder

handleglyph2:
put put hammer-head in my haver
waitfor you
put swap
waitfor you
put stare handle-glyph
waitfor you
goto handlegrinder

headgrinder:
put turn grinder
match headglyph Resignedly, you get to your feet.
match handleglyph2 You finish your work and stand up
match headgrinder ...wait
match toothpick1 You mutter a few choice words as you get to your feet.
matchwait

toothpick1:
put swear
waitfor you
put put toothpick in bin
waitfor you
put get my slab
waitfor you
put swap
waitfor you
goto headglyph

handlegrinder:
put turn grinder
match handleglyph You decide the safest thing to do now is to re-scribe
match polish2 You finish your work and stand up
match handlegrinder ...wait
match toothpick2 You mutter a few choice words as you get to your feet.
matchwait

toothpick2:
put swear
put put toothpick in bin
waitfor you
put get my slab
waitfor you
put swap
waitfor you
goto handleglyph

polish2:
put stow slab
waitfor you
put lean polisher
match pswap To finish a part at the polisher you need to hold it in your left hand
match fpolish You set your right foot
matchwait

fpolish:
waitfor Settling the
match headdone You straighten up from working at the polishing wheel and run your fingers over the smooth surface of your
matchwait
pause 3
put stow hammer-head
waitfor you
put get hammer-handle
waitfor you
goto hpolish

hpolish:
put get hammer-handle
waitfor you
goto hpolish2

hpolish2:
put lean polish
waitfor settling the
match vise You straighten up from working at the polishing wheel and run your fingers over the smooth surface of your

pswap:
put swap
waitfor you
goto polish2

polish:
put stow slab
waitfor you
put lean polisher
match pswap To finish a part at the polisher you need to hold it in your left hand
matchwait

vise:
put stow all
waitfor you
put get hammer-handle
waitfor you
put get hammer-head
waitfor you
put turn vise
match vswap You need to be holding the blade or head part in your left hand in order to use the vise successfully.
match headvise You decide the safest thing to do now is to re-set the
pause 3
match whatnow You finish your work and step back, turning the
matchwait

vswap:
put swap
waitfor you
goto headvise

headvise:
put turn vise
match headvise You decide the safest thing to do nwo is to re-set the
pause 3
match whatnow You finish your work and step back, turning the
matchwait

whatnow:
echo CONGRATULATIONS, YOU HAVE CRAFTED A FORGING HAMMER. WOULD YOU LIKE TO CONTINUE OR QUIT?
echo IF YOU WISH TO CONTINUE, TYPE CONTINUE.
ECHO IF YOU WISH TO QUIT, TYPE QUIT.
ECHO CONTINUE WILL USE ANOTHER STEEL SLAB AND BEGIN THE PROCESS AGAIN.
ECHO QUIT WILL TERMINATE THE SCRIPT.
match continue begin
match quit exit
matchwait

exit:
exit