Boxfiller (script)

For a special test for GM Lyneya.

Fill

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


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 coffer coffer.
	MATCH	strongbox strongbox,
	MATCH	strongbox strongbox.
	MATCH trunk trunk,
	MATCH trunk trunk.
	MATCH caddy caddy,
	MATCH caddy caddy.
	MATCH skippet skippet,
	MATCH box box,
	MATCH box box.
	PUT look in my bag
	MATCHWAIT


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 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