Boxfiller (script)

For a special test for GM Lyneya.

Fill

start:
	MATCH coffer coffer
	MATCH	strongbox strongbox
	MATCH trunk trunk
	MATCH caddy caddy
	MATCH casket casket
	MATCH skippet skippet
	MATCH box box
	PUT look on table
	MATCHWAIT


casket:
SETVARIABLE box casket
GOTO get
coffer:
SETVARIABLE box coffer
GOTO get
box:
SETVARIABLE box box
GOTO get
strongbox:
SETVARIABLE box strongbox
GOTO get
trunk:
SETVARIABLE box trunk
GOTO get
caddy:
SETVARIABLE box caddy
GOTO get
skippet:
SETVARIABLE box skippet
GOTO get

get:
MATCH put You get
MATCH start what were you
put get %box on table
MATCHWAIT

put:
MATCH start You put
MATCH end You just can't get
put put my %box in my bag
MATCHWAIT

end:
ECHO END END END END END
EXIT

Unfill

start:
	MATCH coffer coffer
	MATCH strongbox strongbox
	MATCH trunk trunk
	MATCH caddy caddy
	MATCH skippet skippet
	MATCH casket casket
	MATCH box box
	MATCH end There is nothing in there.
	PUT look in my bag
	MATCHWAIT


coffer:
SETVARIABLE box coffer
GOTO get
casket:
SETVARIABLE box casket
GOTO get
box:
SETVARIABLE box box
GOTO get
strongbox:
SETVARIABLE box strongbox
GOTO get
trunk:
SETVARIABLE box trunk
GOTO get
caddy:
SETVARIABLE box caddy
GOTO get
skippet:
SETVARIABLE box skippet
GOTO get

get:
MATCH put You get
MATCH start what were you
put get %box in my bag
MATCHWAIT

put:
MATCH start You put
MATCH end You just can't get
put put my %box on box table
MATCHWAIT

end:
ECHO END END END END END
EXIT