Forging (script)

The official GemStone IV encyclopedia.
Revision as of 22:04, 20 May 2007 by Maintenance script (talk | contribs) (updating the script.)
Jump to navigation Jump to search
Title:Forging script
Author:Andy
Compatibility:Wrayth Only
BEGIN:

 if_2 goto V-%1%

 if_1 goto PRE-INFORM

 echo Making a %W_TYPE made from a %METAL %BAR with a %WOOD %BLOCK handle to %TRASH%.

 pause 2

 goto HILT



PRE-INFORM:

 ECHO [Making a %W_TYPE%. Starting tag will be: %1%.  The finished product will be a %W_FINISH%.]

 ECHO [The %BLADE% will be made from %METAL% (a %BAR%).  The %HILT% will be made from %WOOD% (a %BLOCK%).]

 ECHO [Production type will be %TRASH%.  If set to "stow" best pieces will be kept in your %FORGEBP%.]

 ECHO [To change these settings, end the script and enter the item to change followed by the value.]

 ECHO [To retain these settings, enter the command, YES. For a list of options, type NOTE.]

  match %1 A good positive attitude never hurts.

  match HELP How about B flat?

  matchwait



HELP:

 ECHO [There are many, many variables that this script requires to run properly...]

 EXIT



V-W_TYPE:

V-W_FINISH:

V-BLADE:

V-HILT:

V-METAL:

V-BAR:

V-WOOD:

V-BLOCK:

V-TRASH:

 setvariable %1 %2%

 goto PRE-INFORM





####### HILT #######

HILT:

 put glance

  match HIL_BB_EMPTY You glance down at your empty hands.

  match HIL_BB_SWAP You glance down to see a %WOOD %BLOCK in your right hand and nothing in your left hand.

  match HIL_BB_SWAP You glance down to see a leftover %WOOD %BLOCK in your right hand and nothing in your left hand.

  match HIL_BB_SWAP You glance down to see a ground %WOOD %BLOCK in your right hand and nothing in your left hand.

  match HIL_ETCH You glance down to see nothing in your right hand and a %WOOD %BLOCK in your left hand.

  match HIL_ETCH You glance down to see nothing in your right hand and a leftover %WOOD %BLOCK in your left hand.

  match HIL_ETCH You glance down to see nothing in your right hand and a ground %WOOD %BLOCK in your left hand.

  match HIL_GRIND You glance down to see nothing in your right hand and a scribed maoral block in your left hand.

  matchwait





HIL_TOOTHPICK:

 put put toothpick in bin



HIL_BB_EMPTY:

 pause

 put get my %WOOD %BLOCK

  match HIL_BB_SWAP You remove

  match HIL_NEED_MATERIAL Get what?

  match HIL_BB_SWAP You already have that.

  matchwait



HIL_BB_SWAP:

 put swap

 goto HIL_ETCH



HIL_ETCH:

 put stare %HILT%-glyph

  match NO_APRON You realize that you really should put on an apron before proceeding.

  match HIL_GRIND pattern onto the surface of the

  match HIL_TOO_SMALL Before the design is complete you reach an edge of the

  matchwait



HIL_TOO_SMALL:

 pause

 put put my %BLOCK in bin

 goto HIL_BB_EMPTY



HIL_GRIND:

 pause

 put turn grinder

#  match HIL_GRIND ...wait

#  match HIL_GRINDING You set your right foot against the already moving rocker pedal

#  matchwait



HIL_GRINDING:

  match HIL_TOOTHPICK In the blink of an eye the %WOOD %BLOCK is ground to almost nothing.

  Match HIL_%TRASH finish your work and stand up

  match HIL_ETCH You decide the safest thing to do now is to re-scribe the %WOOD %BLOCK with the glyph and try again.

  match HIL_BEST_%TRASH You smile as you realize that this piece is the very best that you can create.

  match HIL_WORKSHOP_GRIND The grinding wheel doesn't budge!  Most likely the rent on this workshop has expired.

  matchwait



HIL_BEST_STOW:

# pause

# put stow my %BLOCK

# put lean polisher

#  match HIL_STOW at the polishing wheel and run your fingers over the smooth surface of your %WOOD hammer-head.

#  matchwait

 echo BEST!

 exit



HIL_BEST_TRASH:

HIL_STOW:

 put stow my %W_TYPE%-%HILT%

 put stow my %WOOD %BLOCK

 goto BLADE



HIL_TRASH:

 put put my %W_TYPE%-%HILT% in bin

 goto HILT



HIL_NEED_MATERIAL:

 echo *** GO BUY MORE SHIT! ***

 move out

 put order 3

 put buy

 move go workshop

 goto HIL_BB_EMPTY



HIL_WORKSHOP_GRIND:

 move out

 move go workshop

 goto HIL_GRIND













####### BLADE #######

BLADE:

 pause

 put look

  match F_BLADE Forge]

  match F_GO Workshop]

  matchwait



F_GO:

 move go door

F_BLADE:

 put look in trough

  match FB_WATER_%METAL In the trough you see a cork plug and some water.

  match FB_BUCKET_%METAL In the trough you see a cork plug.

  match FB_OIL_%METAL In the trough you see a cork plug and some oil.

  matchwait



FB_TROUGH_BRONZE:

 put stow %BAR

FB_BUCKET_BRONZE:

 put get bucket

  pause

 goto FB_DETECT



FB_TROUGH_STEEL:

 put stow %BAR

FB_WATER_STEEL:

 put pull plug

FB_BUCKET_STEEL:

 put get my tempering oil

  match FB_BUCKET_STEEL_POUR You remove a

  match FB_TEMPERING_OIL_GET Get what?

  match FB_BUCKET_STEEL_POUR You already have that.

  matchwait



FB_BUCKET_STEEL_POUR:

 put pour oil in trough

  pause

 goto FB_DETECT



FB_TEMPERING_OIL_GET:

 echo *** More Materials!

 move go door

 move out

 put order 5

 put buy

 SetVariable METAL steel

 SetVariable BAR slab

 move go workshop

 move go door

 goto FB_BUCKET_STEEL_POUR



FB_WATER_BRONZE:

FB_OIL_BRONZE:

FB_OIL_STEEL:

FB_DETECT:

 put glance

  match   FB_EMPTY        You glance down at your empty hands.

  match   FB_GET_HAMMER_2 You glance down to see nothing in your right hand and a flattened %METAL %BAR in your left hand

  match   FB_GET_BAR      forging-hammer in your right hand and nothing in your left hand.

  match   FB_TONG         forging-hammer in your right hand and a scribed %METAL %BAR in your left hand.

  match   FB_TONG         forging-hammer in your right hand and a hammered %METAL %BAR in your left hand.

  matchre FB_GET_HAMMER   /see nothing in your right hand and a[ \t\n\r\f\v]*[a-zA-Z0-9_]* %METAL %BAR in your left hand./

  matchre FB_START        /forging-hammer in your right hand and a[ \t\n\r\f\v]*[a-zA-Z0-9_]* %METAL %BAR in your left hand./

  matchre FB_SWAP         /see a[ \t\n\r\f\v]*[a-zA-Z0-9_]* %METAL %BAR in your right hand and nothing in your left hand./

  matchwait



FB_START_TRASH:

 move go door

 put put %BAR in bin

 move go door

 put get my %METAL %BAR

 goto FB_START



FB_GET_BAR:

 put get my %METAL %BAR

  match FB_DETECT You remove

  match FB_MORE_%METAL Get what?

  matchwait



FB_EMPTY:

 put get my %METAL %BAR

  match FB_SWAP You remove

  match FB_MORE_%METAL Get what?

  matchwait



FB_MORE_BRONZE:

 echo *** More Materials!

 move go door

 move out

 put order 2

 put buy

 SetVariable METAL bronze

 SetVariable BAR bar

 move go workshop

 move go door

 goto FB_DETECT



FB_MORE_STEEL:

 echo *** More Materials!

 move go door

 move out

 put order 4

 put buy

 SetVariable METAL steel

 SetVariable BAR slab

 move go workshop

 move go door

 goto FB_DETECT



FB_SWAP:

 put swap

 goto FB_DETECT



FB_GET_HAMMER:

 put remove forging-hammer

 goto FB_DETECT



FB_START:

 put stare %BLADE%-glyph

  match FB_DETECT Your material is marked with a pattern, next you'll need to shape it somehow.

  match FB_START_TRASH onto the surface of the bronze.  Before the design is complete you reach an edge of the

  matchwait



FB_EXPIRED:

 pause

 move go door

 move out

 move go workshop

 move go door

 goto FB_TONG

 

FB_GET_HAMMER_2:

 put remove forging-hammer

FB_TONG:

 pause

 put get tong

  match FB_TONG You finish this round of work on your %METAL %BAR and set the tongs on the anvil, realizing that there's

  match FB_TROUGH_%METAL The tempering trough is empty!

  match FB_START You decide the safest thing to do now is to re-scribe the

  match FB_EXPIRED The tongs don't budge!  Most likely the rent on this workshop has expired.

  match FB_%TRASH Turning the %METAL %W_TYPE%-%BLADE% you nod, satisfied with your work.

  match FB_GET_BAR With a single, faulty blow of your hammer, you've totally shattered your

  match FB_BEST_%TRASH A moment of close inspection is all you need to tell that you have done your best work this time.

  matchwait



FB_STOW:

 put wear forging

 move go door

 goto POL_BOTH



FB_BEST_STOW:

 echo [ BEST! ]

 put put my left in my %FORGEBP

 setvariable %BESTBLADE TRUE

 goto BLADE



FB_BEST_TRASH:

FB_TRASH:

 move go door

 put put my %W_TYPE%-%BLADE% in bin

 move go door

 goto F_BLADE



####### POLISHING #######

POLISH:

POL_BOTH:

 put glance

  match POL_BLADE      You glance down to see nothing in your right hand and a rough %METAL %W_TYPE%-%BLADE% in your left hand.

  match POL_BLADE_SWAP You glance down to see a rough %METAL %W_TYPE%-%BLADE% in your right hand and nothing in your left hand.

  match POL_HILT       You glance down to see nothing in your right hand and a rough %WOOD %W_TYPE%-%HILT% in your left hand.

  match POL_GET        You glance down at your empty hands.

  match POL_STOW_BLADE You glance down to see nothing in your right hand and a finished %METAL %W_TYPE%-%BLADE% in your left hand.

  match VISE           You glance down to see nothing in your right hand and a finished %WOOD %W_TYPE%-%HILT% in your left hand.

  matchwait



POL_GET:

 put get my %W_TYPE%-%BLADE% from my %container

POL_BLADE_SWAP:

 put swap

POL_BLADE:

 put lean polisher

  match POL_STOW_BLADE run your fingers over the smooth surface of your

  match POL_BLADE_TIME The polishing wheel doesn't budge!  Most likely the rent on this workshop has expired.

  matchwait



POL_BLADE_TIME:

 move out

 move go workshop

 goto POL_BLADE



POL_STOW_BLADE:

 pause

 put stow %W_TYPE%-%BLADE%

POL_GET_2:

 put get my %W_TYPE%-%HILT% from my %container

 put swap



POL_HILT:

 put lean polisher

  match BH_VISE run your fingers over the smooth surface of your

  match POL_HILT_TIME The polishing wheel doesn't budge!  Most likely the rent on this workshop has expired.

  matchwait



POL_HILT_TIME:

 move out

 move go workshop

 goto POL_HILT



####### BLADE-HILT VISE #######

VISE:

BH_VISE:

 pause

 put glance

  match BH_POLISH_HILT The item in your right hand is not ready for assembly.

  match BH_GET_HILT You glance down to see nothing in your right hand and a finished %METAL %W_TYPE%-%BLADE% in your left hand.

  match BH_USE_VISE see a finished %METAL %W_TYPE%-%BLADE% in your right hand and a finished %WOOD %W_TYPE%-%HILT% in your left 

  match BH_GET_BLADE You glance down to see nothing in your right hand and a finished %WOOD %W_TYPE%-%HILT% in your left hand.

  matchwait



BH_WORKSHOP:

 move out

 move go workshop

 goto BH_USE_VISE



BH_GET_HILT:

 put get %WOOD %W_TYPE%-%HILT%

 goto BH_USE_VISE

BH_GET_BLADE:

 put get %METAL %W_TYPE%-%BLADE%

 goto BH_USE_VISE



BH_USE_VISE_SWAP:

 put swap

BH_USE_VISE:

 pause

 put turn vise

  match BH_USE_VISE_SWAP You need to be holding the blade or head part in your left hand in order to use the vise successfully.

  match BH_USE_VISE tighten it snugly, and take another try at it.

  match BH_%TRASH You nod, satisfied with the piece you've created.

  match BH_TRASH You remove the assembled item from the vise and look it over with some apprehension.

  match BH_WORKSHOP The vise doesn't budge!  Most likely the rent on this workshop has expired.

  match BH_BEST_%TRASH You smile as you realize that this piece is probably the best that you can create.

  match BH_POLISH_HILT The item in your right hand is not ready for assembly.

  matchwait



BH_STOW:

 echo *** Seems you're done. ***

 put stow right

 put stow left

 goto HILT



BH_BEST_STOW:

 echo *** BEST! ***

 exit



BH_BEST_TRASH:

BH_TRASH:

 put put %W_FINISH in bin

 goto HILT



BH_POLISH_HILT:

 put stow %W_TYPE%-%BLADE%

 put swap

 put lean polisher

  waitfor run your fingers over the smooth surface of your

 goto BH_VISE









####### HAMMER #######

HAMMER:

H-HEAD:

 put glance

  match   HHE_BB_EMPTY   You glance down at your empty hands.

  match   HHE_BB_SWAP    You glance down to see a %METAL %BAR in your right hand and nothing in your left hand.

  match   HHE_BB_SWAP    You glance down to see a leftover %METAL %BAR in your right hand and nothing in your left hand.

  match   HHE_ETCH       see nothing in your right hand and a scribed %METAL %BAR in your left hand.

  matchre HHE_ETCH       /see nothing in your right hand and a[ \t\n\r\f\v]*[a-zA-Z0-9_]* %METAL %BAR in your left hand./

  matchwait



HHE_TOOTHPICK:

 put put toothpick in bin

 goto HHA_BB_EMPTY



HHE_BB_EMPTY:

 put get my %METAL %BAR

  match   HHE_BB_MATERIALS_%METAL Get what?

  matchre HHE_BB_SWAP /You (get|remove)/

 matchwait

  

HHE_BB_MATERIALS_BRONZE:

 echo *** GO BUY MORE SHIT! ***

 move out

 put order 2

 put buy

 SetVariable METAL bronze

 SetVariable BAR bar

 move go workshop

 goto HHE_BB_SWAP



HHE_BB_MATERIALS_STEEL:

 echo *** GO BUY MORE SHIT! ***

 move out

 put order 4

 put buy

 SetVariable METAL steel

 SetVariable BAR slab

 move go workshop

 goto HHE_BB_SWAP

 

HHE_BB_SWAP:

 put swap

 goto HHE_ETCH



HHE_ETCH:

 put stare forging-hammer head-glyph

  match NO_APRON You realize that you really should put on an apron before proceeding.

  match HHE_GRIND You carefully trace the forging-hammer pattern onto the surface of the %METAL in your hand.

  match HHE_TOO_SMALL Before the design is complete you reach an edge of the %BAR and realize it is too small.

  matchwait



HHE_TOO_SMALL:

 put put my %METAL %BAR in bin

 goto HHE_BB_EMPTY



HHE_GRIND:

 pause

 put turn grinder

#  match HHE_GRIND ...wait

#  match HHE_GRINDING You set your right foot against the already moving rocker pedal

# matchwait

 

HHE_GRINDING:

  Match HHE_GROUND You nod, satisfied with the piece you've created.

  match HHE_ETCH You decide the safest thing to do now is to re-scribe the %METAL %BAR with the glyph and try again.

  match HHE_BEST You smile as you realize that this piece is the very best that you can create.

  match HHE_TOOTHPICK In the blink of an eye the %WOOD %BLOCK is ground to almost nothing.

  match HHE_WORKSHOP_GRIND The grinding wheel doesn't budge!  Most likely the rent on this workshop has expired.

  matchwait



HHE_BEST:

HHE_GROUND:

 pause

 put stow my %METAL %BAR

 put lean polisher

  match HHE_STOW_%TRASH at the polishing wheel and run your fingers over the smooth surface of your %METAL hammer-head.

  matchwait



HHE_STOW_TRASH:

 put stow my hammer-head

 goto H-HANDLE

 

HHE_STOW_BEST:

 put put my hammer-head in my %FORGEBP

 echo [Created a superior piece]

 setvariable BESTHHEAD True

 goto H_HEAD



HHE_WORKSHOP_GRIND:

 move out

 move go workshop

 goto HHE_GRIND



NO_APRON:

 echo *** You heard the man. ***

 exit



####### HAMMER-HANDLE GRINDING #######

HANDLE:

H-HANDLE:

 put glance

  match HHA_GRIND You glance down to see nothing in your right hand and a scribed %WOOD% %BLOCK% in your left hand.

  match HHA_BB_EMPTY You glance down at your empty hands.

  match HHA_BB_SWAP You glance down to see a %WOOD% %BLOCK% in your right hand and nothing in your left hand.

  match HHA_BB_SWAP You glance down to see a leftover %WOOD% %BLOCK% in your right hand and nothing in your left hand.

  match HHA_ETCH You glance down to see nothing in your right hand and a %WOOD% %BLOCK% in your left hand.

  match HHA_ETCH You glance down to see nothing in your right hand and a leftover %WOOD% %BLOCK% in your left hand.

  match HHA_ETCH You glance down to see nothing in your right hand and a ground %WOOD% %BLOCK% in your left hand.

  matchwait



HHA_TOOTHPICK:

 put put toothpick in bin

 goto HHA_BB_EMPTY



HHA_BB_EMPTY:

 put get my %WOOD %BLOCK

  match HHA_BB_MATERIALS_%WOOD Get what?

  matchre HHA_BB_SWAP /You (get|remove)/

  matchwait



HHA_BB_MATERIALS_STEEL:

 echo [Forge: Purchasing more steel.]

 move out

 put order 4

 put buy

 SetVariable WOOD steel

 SetVariable BLOCK slab

 move go workshop

 goto HHA_BB_SWAP



HHA_BB_MATERIALS_HAON:

HHA_BB_MATERIALS_MONIR:

HHA_BB_MATERIALS_MODWIR:

HHA_BB_MATERIALS_MAORAL:

 put out

  match HHA_BB_MATERIALS_HAON_SAVE [Ta'Illistim Forging Supply Shop]

  match HHA_BB_MATERIALS_MAORAL_SAVE [Wehnimer's Landing Forging Supply Shop]

  match HHA_BB_MATERIALS_MODWIR_SAVE [Icemule Trace Forging Supply Shop]

  match HHA_BB_MATERIALS_MAPLE_SAVE [Kharam Dzu Forging Supply Shop]

  match HHA_BB_MATERIALS_HICKORY_SAVE [Solhaven Forging Supply Shop]

  matchwait

  

HHA_BB_MATERIALS_HAON_SAVE:

 echo [Forge: Purchasing more haon, if you're in Ta'Illistim.]

 SetVariable WOOD haon

 SetVariable BLOCK block

 goto HHA_BB_MATERIALS_BUY

 

HHA_BB_MATERIALS_MAORAL_SAVE:

 echo [Forge: Purchasing more maoral, if you're in The Landing.]

 SetVariable WOOD maoral

 SetVariable BLOCK block

 goto HHA_BB_SWAP



HHA_BB_MATERIALS_MODWIR_SAVE:

 echo [Forge: Purchasing more modwir, if you're in Teras.]

 SetVariable WOOD modwir

 SetVariable BLOCK block

 goto HHA_BB_SWAP

 

HHA_BB_MATERIALS_MAPLE_SAVE:

 echo [Forge: Purchasing more maple, if you're in Icemule.]

 SetVariable WOOD monir

 SetVariable BLOCK block

 goto HHA_BB_SWAP



HHA_BB_MATERIALS_HICKORY_SAVE:

 echo [Forge: Purchasing more hickory, if you're in Solhaven.]

 SetVariable WOOD hickory

 SetVariable BLOCK block

 goto HHA_BB_SWAP





HHA_BB_MATERIALS_BUY:

 put order 3

 put buy

 move go workshop

 goto HHA_BB_SWAP

 





HHA_BB_MATERIALS_STEEL:

 echo [Forge: Purchasing a bronze bar.]

 move out

 put order 2

 put buy

 SetVariable WOOD bronze

 SetVariable BLOCK bar

 move go workshop

 goto HHA_BB_SWAP



HHA_BB_SWAP:

 put swap

 goto HHA_ETCH



HHA_ETCH:

 put stare forging-hammer handle-glyph

  match NO_APRON You realize that you really should put on an apron before proceeding.

  match HHA_GRIND You carefully trace the forging-hammer pattern onto the surface of the %WOOD in your hand.

  match HHA_TOO_SMALL Before the design is complete you reach an edge of the %BLOCK and realize it is too small.

  matchwait



HHA_TOO_SMALL:

 put put my %BLOCK% in bin

 goto HHA_BB_EMPTY



HHA_GRIND:

 pause

 put turn grinder

#  match HHA_GRIND ...wait

#  match HHA_GRINDING You set your right foot against the already moving rocker

# matchwait

  

HHA_GRINDING:

# ECHO [FORGING: Waiting...]

  Match HHA_GROUND_%TRASH You nod, satisfied with the piece you've created.

  match HHA_BEST_%TRASH You smile as you realize that this piece is the very best that you can create.

  match HHA_ETCH You decide the safest thing to do now is to re-scribe the %WOOD %BLOCK with the glyph and try again.

  match HHA_TOOTHPICK In the blink of an eye the %WOOD %BLOCK is ground to almost nothing.

  match HHA_WORKSHOP_GRIND The grinding wheel doesn't budge!  Most likely the rent on this workshop has expired.

  matchwait



HHA_BEST_STOW:

 pause

 put stow my %BLOCK%

 put lean polisher

  match HHA_STOW_BEST the polishing wheel and run your fingers over the smooth surface of your %WOOD hammer-handle.

  matchwait



HHA_BEST_TRASH:

HHA_GROUND_TRASH:

 pause

 put put my hammer-handle in bin

 goto HANDLE



HHA_GROUND_STOW:

 pause

 put stow my %BLOCK

 put lean polisher

  match HHA_STOW_NORMAL the polishing wheel and run your fingers over the smooth surface of your %WOOD hammer-handle.

  matchwait



HHA_STOW_NORMAL:

 put stow my hammer-handle

 goto H-COMBINE



HHA_STOW_BEST:

 put put my hammer-handle in my %FORGEBP%

 echo [Forge: Made a superior part.]

 setvariable BESTHHANDLE True

 goto H-HANDLE



HHA_WORKSHOP_GRIND:

 move out

 move go workshop

 goto HHA_GRIND



####### FORGING-HAMMER VISE #######

H-COMBINE:

 put glance

 match HC_VISE down to see a finished %WOOD hammer-handle in your right hand and a finished %METAL hammer-head in your left hand.

 match HC_VISE down to see a finished %METAL hammer-head in your right hand and a finished %WOOD hammer-handle in your left hand.

 match HC_GET_HEAD You glance down to see a finished %WOOD hammer-handle in your right hand and nothing in your left hand.

 match HC_GET_HANDLE_SWAP You glance down to see a finished %METAL hammer-head in your right hand and nothing in your left hand.

 match HC_GET_HANDLE You glance down to see nothing in your right hand and a finished %METAL hammer-head in your left hand.

 match HC_GET_HEAD_SWAP You glance down to see nothing in your right hand and a finished %WOOD hammer-handle in your left hand.

 match HC_GET You glance down at your empty hands.

 matchwait



HC_GET:

 put get my hammer-handle from my %container

HC_GET_HEAD:

 put get hammer-head from my %container

 goto HC_VISE

HC_GET_HANDLE_SWAP:

 put get hammer-handle

 put swap

 goto HC_VISE

HC_GET_HANDLE:

 put get hammer-handle

 goto HC_VISE

HC_GET_HEAD_SWAP:

 put get hammer-head

 put swap

 goto HC_VISE



HC_VISE:

 pause

 put turn vise

  match HC_VISE You decide the safest thing to do now is to re-set the hammer-head in the vise

  match HC_VISE is using the vise right now.  You'll have to wait until he has finished.

  match HC_%TRASH You nod, satisfied with the piece you've created.

  match HC_BEST_%TRASH You smile as you realize that this piece is probably the best that you can create.

  matchwait



HC_STOW:

  echo ***DONE!  Next job?***

  exit



HC_TRASH:

HC_BEST_TRASH:

 put forging-hammer in bin

 goto HAMMER

 

HC_BEST_STOW:

 echo [Forge: A good hammer, we hope.]

 exit

 

SETUP:

 put remove %ARMOR

 put stow %ARMOR

  pause

 put get apron

 put wear apron

  pause

 put get forging-hammer

 put wear forging-hammer

 exit

 

UNSETUP:

 put remove apron

 put put apron in my %FORGEBP

  pause

 put remove forging-hammer

 put put forging-hammer in my %FORGEBP

  pause

 put get my %ARMOR

 put wear my %ARMOR

 exit

 

 LABELERROR:

  echo [There was an error.]

  exit