Artifact 06c241575d47896438ffaa4aa17edffc20f09d79

File user/docl/adventure.retro part of check-in [dad4bb16eb] - start of text adventure game by luke on 2010-06-05 17:07:22. [annotate]

: escape ( n-n ) dup char: \ =if 0 ;then dup char: n =if 10 ;then ;
: getkey key
  dup char: \ =if drop key escape then ;
: desc create cr repeat getkey dup , 0; emit again ;

vocab desc::room ((
desc foyer
You are in the foyer of a mysterious mansion.
All around you are portraits of its previous owners.
A crystal chandelier hangs from the ceiling.\\
desc livingroom
  You look into the living room.
On the south wall there is a window, on the east wall
there is a piano.\\
))