EZMIX (script)

EZMIX (script)
Category	crafting,Forging
Front-end	Genie
Author	Gavinne

Simple script for mixing whatever is in the crucible for smithing.

Simply add your metals to the crucible then .ezmix

To purify the metal in the crucible type .ezmix flux

     action instant setvariable bellows 1 when the fire flickers and is unable to consume its fuel
     action instant setvariable shovel 1 when the fire dies down and needs more fuel
     action instant setvariable turn 1 when you observe clumps of molten metal accumulating along the crucible
     action instant setvariable done 1 when appears to be thoroughly mixed and you pour it into an ingot mold.
     action instant setvariable pick-up 0 when metal quickly cools and you pick up
     action instant setvariable pick-up 1 when your hands are full so you set it down upon the ground
     setvariable done 0
     gosub verb stow left
     gosub verb stow right

     gosub reset-vars
     gosub verb get my rod
     if "%1" = "flux" then goto flux
     goto engine

engine:
     gosub reset-vars
     gosub verb stir cruc with my rod
     goto check
bellows:
     gosub reset-vars
     gosub verb get my bellow
     gosub verb push my bellow
     gosub verb stow my bellow
     goto check
turn:
     gosub reset-vars
     gosub verb turn crucib
     goto check
shovel:
     gosub reset-vars
     gosub verb get my shovel
     gosub verb push fuel with my shovel
     gosub verb stow my shovel
     goto check
flux:
     gosub verb get my flux
     gosub verb pour my flux in crucib
     gosub verb stow my flux
     goto check
check:
     if %bellows = 1 then goto bellows
     if %shovel = 1 then goto shovel
     if %turn = 1 then goto turn
     if %done = 1 then goto done
     goto engine
reset-vars:
     setvariable bellows 0
     setvariable shovel 0
     setvariable turn 0
     return
done:
     gosub verb stow my rod
     if %pick-up = 1 then gosub verb get ingot
     echo
     echo .
     echo . DONE !
     echo .
     echo
     put #parse ALL MIXED
     exit
verb:
     setvariable verb $0
     goto verb.a
verb.p:
     pause 0.5
verb.a:
put %verb
     match verb.p type ahead
     match verb.p ...wait
     matchre verb.d (You get|You put|Roundtime|STOW HELP|completely undamaged and does not need repair|cannot figure out how to do that|You pick up|not damaged enough to warrant repair)
     matchwait
verb.d:
     return
fill-crucible: