User:ZUERCAT/Sandbox/HEscript

#What container do you get you keep your crafting material in?
setvariable lgtoolcontainer pack

#What container has STONE deeds?
setvariable stonecontainer pouch

#What container has METAL ingots?
setvariable metalcontainer apron

#What container has WOOD lumber?
setvariable metalcontainer portal

#What container do you get you keep your tools & books in?
setvariable toolcontainer pouch

#What container do you want the finished products in?
setvariable productcontainer haversack

#Counter information
setvariable itemsmade 0
counter set 0

start:
put exhale san cry
pause 1
put touch my shield
put get instr from %toolcontainer
match CLOTH1 reinforced netting
match CLOTH2 rope
match LEATHER straps
match METAL1 rackensprocket
match METAL2 javelin
match METAL3 case
match METAL4 link
match METAL5 trunk
match METAL6 spangleflange
match STONE bolthead
match WOOD trencher
match YARN outfit
match DONE What were you referring to?
matchwait

CLOTH1:
setvariable noun netting
put study my instr
pause 1
put study my instr
waitfor roundtime
pause 1
put put my instr in my %toolcontainer
pause 1
put get cloth from my %lgtoolcontainer
pause 1
put swap
put get scissors from my %toolcontainer
pause 1
put cut my cloth with my scissors
waitfor roundtime
pause 1
put put sci in my %toolcontainer
pause 1
put lift cloth
pause 1
put put cloth in my %lgtoolcontainer
pause 1
put get sew needle from my %toolcontainer
pause 1
put push my %noun with my needle
match rethread The needles need to have thread
match sew roundtime
match sew ...w
match finish1 You cannot figure out how to do that.
match finish1 You realize that cannot be repaired, and stop.
matchwait

CLOTH2:
setvariable noun rope
put study my instr
pause 1
put study my instr
waitfor roundtime
pause 1
put put my instr in my %toolcontainer
pause 1
put get cloth from my %lgtoolcontainer
pause 1
put swap
put get scissors from my %toolcontainer
pause 1
put cut my cloth with my scissors
waitfor roundtime
pause 1
put put sci in my %toolcontainer
pause 1
put lift cloth
pause 1
put put cloth in my %lgtoolcontainer
pause 1
put get sew needle from my %toolcontainer
pause 1
put push my %noun with my needle
match rethread The needles need to have thread
match sew roundtime
match sew ...w
match finish1 You cannot figure out how to do that.
match finish1 You realize that cannot be repaired, and stop.
matchwait


LEATHER:
setvariable noun straps
put study my instr
pause 1
put study my instr
waitfor roundtime
pause 1
put put my instr in my %toolcontainer
pause 1
put get leather from my %lgtoolcontainer
pause 1
put swap
put get scissors from my %toolcontainer
pause 1
put cut my leather with my scissors
waitfor roundtime
pause 1
put put sci in my %toolcontainer
pause 1
put lift leather
pause 1
put put leather in my %lgtoolcontainer
pause 1
put get sew needle from my %toolcontainer
pause 1
put push my %noun with my needle
match rethread The needles need to have thread
match sew roundtime
match sew ...w
match finish1 You cannot figure out how to do that.
match finish1 You realize that cannot be repaired, and stop.
matchwait


sew:
pause 1
put push my %noun with my needle
match rethread The needles need to have thread
match sew roundtime
match sew ...w
match finish1 You cannot figure out how to do that.
match finish1 You realize that cannot be repaired, and stop.
matchwait

rethread:
pause 1
put put my %noun in my %lgtoolcontainer
pause 1
put get thread
pause 1
put put thread on my needle
pause 1
put get %noun from my %lgtoolcontainer
goto sew

METAL1:
setvariable noun rackensprocket
put look in %metalcontainer
pause 1
put get ingot from %metalcontainer
match pound1 You get an
match pound1 You get a
match METAL1 ...w
matchwait

METAL2:
setvariable noun javelin
put look in %metalcontainer
pause 1
put get ingot from %metalcontainer
match pound1 You get an
match pound1 You get a
match METAL2 ...w
matchwait

METAL3:
setvariable noun case
put look in %metalcontainer
pause 1
put get ingot from %metalcontainer
match pound1 You get an
match pound1 You get a
match METAL3 ...w
matchwait

METAL4:
setvariable noun link
put look in %metalcontainer
pause 1
put get ingot from %metalcontainer
match pound1 You get an
match pound1 You get a
match METAL4 ...w
matchwait

METAL5:
setvariable noun trunk
put look in %metalcontainer
pause 1
put get ingot from %metalcontainer
match pound1 You get an
match pound1 You get a
match METAL5 ...w
matchwait

METAL6:
setvariable noun spangleflange
put look in %metalcontainer
pause 1
put get ingot from %metalcontainer
match pound1 You get an
match pound1 You get a
match METAL6 ...w
matchwait

pound1:
put put ing on anvil
pause 1
put study my instr
pause 1
put study my instr
waitfor roundtime
pause 1
put put my instr in my %toolcontainer
pause 1
put get hammer from my %toolcontainer
pause 1
put get tong from my %toolcontainer
pause 1
put pound ingot on anvil with my hammer
waitfor roundtime
pause 1
put pound %noun on anvil with my hammer
match fuel As you complete working the fire dies down
match fuel needs more fuel
match fuel need some more fuel
match fuel The fire needs more fuel
match pound2 ...w
match pound2 roundtime
matchwait

pound2:
pause 1
put pound %noun on anvil with my hammer
match fuel As you complete working the fire dies down
match fuel needs more fuel
match fuel need some more fuel
match fuel The fire needs more fuel
match pound2 ...w
match pound2 roundtime
match finish4 The metal now appears
match finish4 You cannot figure out how to do that.
match finish4 You realize that cannot be repaired, and stop.
matchwait

fuel:
pause 1
put put tong in my %toolcontainer
pause 1
put get shovel from my %toolcontainer
pause 1
put push fuel with my shov
waitfor roundtime
pause 1
put put shovel in my %toolcontainer
pause 1
put get tong from my %toolcontainer
pause 1
goto pound2

STONE:
setvariable noun bolthead
put get deed from %stonecontainer
match tapdeed You get a deed
match tapdeed You get an
match STONE ...w
matchwait

tapdeed:
put tap my deed
pause 1
put study my instr
pause 1
put study my instr
waitfor roundtime
pause 1
put put my instr in my %toolcontainer
pause 1
put get chisel from my %toolcontainer
pause 1
put carve boulder with my chis
match carve ...w
match carve roundtime
matchwait

carve:
pause 1
put carve %noun with my chis
match carve roundtime
match carve ...w
match finish3 You cannot figure out how to do that.
match finish3 You realize that cannot be repaired, and stop.
matchwait

WOOD:
setvariable noun trencher
put look in %woodcontainer
pause 1
put get lumb from %woodcontainer
pause 1
put study my instr
pause 1
put study my instr
waitfor roundtime
pause 1
put put my instr in my %toolcontainer
pause 1
put get drawknife from my %toolcontainer
pause 1
put scrape lumber with my drawknife
waitfor roundtime
pause 1
put put drawknife in my %toolcontainer
pause 1
put get carving knife from my %toolcontainer
pause 1
put carve %noun with carving knife
match drawknife ...w
match drawknife with a drawknife
match carvingknife with a carving knife
match carvingknife prevent further carving with a knife.
match carvingknife impede further carving with a knife.
match carvingknife continued knife carving
match carvingknife roundtime
matchwait

drawknife:
pause 1
put stow right in my %toolcontainer
pause 1
put get drawknife from my %toolcontainer
pause 1
put scrape %noun with my drawknife
match drawknife ...w
match drawknife with a drawknife
match carvingknife with a carving knife
match carvingknife prevent further carving with a knife.
match carvingknife impede further carving with a knife.
match carvingknife continued knife carving
match carvingknife roundtime
match finish5 Applying the final touches
match finish5 You cannot figure out how to do that.
matchwait

carvingknife:
pause 1
put carve %noun with carving knife
match carvingknife ...w
match carvingknife with a carving knife
match carvingknife prevent further carving with a knife.
match carvingknife impede further carving with a knife.
match carvingknife continued knife carving
match carvingknife roundtime
match finish5 Applying the final touches
match finish5 You cannot figure out how to do that.
matchwait

YARN:
setvariable noun outfit
put study my instr
pause 1
put study my instr
waitfor roundtime
pause 1
put put my instr in my %toolcontainer
pause 1
put get yarn from my %lgtoolcontainer
pause 1
put get knit needle from my %toolcontainer
pause 1
put knit yarn with my needle
waitfor roundtime
pause 1
put put yarn in my %lgtoolcontainer
goto KNIT

KNIT:
put knit my needle
match finish2 cast off the needles
match KNIT roundtime
match KNIT ...w
matchwait

finish1:
put put need in my %toolcontainer
put stow right
pause 1
put put %noun in my %productcontainer
pause 1
counter set %itemsmade
counter add 1
setvariable itemsmade %c
echo *******************
echo *** %itemsmade items made so far...
echo *******************
pause 5
goto start

finish2:
pause 1
put cast my need
waitfor roundtime
put put need in my %toolcontainer
pause 1
put put %noun in my %productcontainer
pause 1
counter set %itemsmade
counter add 1
setvariable itemsmade %c
echo *******************
echo *** %itemsmade items made so far...
echo *******************
pause 5
goto start

finish3:
pause 1
put get %noun
pause 1
put put chisel in my %toolcontainer
pause 1
put put %noun in my %productcontainer
pause 1
counter set %itemsmade
counter add 1
setvariable itemsmade %c
echo *******************
echo *** %itemsmade items made so far...
echo *******************
pause 5
goto start

finish4:
pause 1
put put hammer in my %toolcontainer
pause 1
put put tong in my %toolcontainer
pause 1
put push tub
waitfor roundtime
pause 1
put get %noun
pause 1
put get oil from my int pou
pause 1
put pour oil on my %noun
waitfor roundtime
pause 1
put put %noun in my %productcontainer
pause 1
put put oil in my int pou
pause 1
put get my ingot
pause 1
put put ingot in my %metalcontainer
pause 1
counter set %itemsmade
counter add 1
setvariable itemsmade %c
echo *******************
echo *** %itemsmade items made so far...
echo *******************
pause 5
goto start

finish5:
pause 1
put put draw in my %toolcontainer
pause 1
put put knife in my %toolcontainer
pause 1
put put %noun in my %productcontainer
pause 1
put get lumber
pause 1
put put lumber in my %woodcontainer
pause 1
counter set %itemsmade
counter add 1
setvariable itemsmade %c
echo *******************
echo *** %itemsmade items made so far...
echo *******************
pause 5
goto start

DONE:
echo ************************************
echo *** GO FIND ZASELE, BRADYN OR POLTU
echo ************************************