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 coffer
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
	PUT look in my bag
	MATCHWAIT


coffer:
SETVARIABLE box coffer
GOTO get
casket:
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