#macros

path [uncons [doordx] each2 pop] macro

go [ego location geta swap exit swap cat geta dup null eq [[You can't go that way.] quotey show pop]
[ego swap movedx [Your location is: $y.] quotey show]
ifte] macro

get [dup location geta ego location geta eq
[dup ego move [You take the $y.] quotey show] [[You don't see the $y.] quotey show] ifte] macro

drop [dup ego swap contains [ego location geta movedy [You drop the $y.] quotey show] [[You don't have the $y.] quotey show] ifte] macro

#init

[hall e study n library w parlor w kitchen s living e hall s porch] path

bat hall move
ball study move

ego porch move #player agent


#player commands

n go
bat get
e go
bat drop