(make <exit>
#:name "south"
#:to 'courtyard)))
- ('vaulted-tunnel
- <room> #f
- #:name "A Vaulted Tunnel of Trees"
- #:desc
- '((p "You step into the entrance to see two rows of trees with intersecting branches, forming a vaulted tunnel. The fairy lights cast a soft glow on the space. On each tree trunk is a portrait and the eerie laughter you heard outside echoes louder as you pass each portrait. "))
- #:exits
- (list (make <exit>
- #:name "north"
- #:to 'forest-clearing)
- (make <exit>
- #:name "south"
- #:to 'wedding-entrance)))
- ('vaulted-tunnel:portrait
- <gameobj> 'vaulted-tunnel
- #:name "hanging portraits"
- #:desc
- "Each portrait shows a hazy image of a fairy in various modes of dress from Victorian to today's current fashions. The style and format of the photographs all look the same."
- #:goes-by
- '("hanging portrait" "hanging portraits" "portrait" "portraits"))
('wedding-entrance
<room> #f
#:name "Entrance to the Wedding"
#:exits
(list (make <exit>
#:name "south"
- #:to 'courtyard)))))
+ #:to 'forest-clearing)
+ (make <exit>
+ #:name "north"
+ #:to 'vaulted-tunnel)))
+ ('vaulted-tunnel
+ <room> #f
+ #:name "A Vaulted Tunnel of Trees"
+ #:desc
+ '((p "You step into the entrance to see two rows of trees with intersecting branches, forming a vaulted tunnel. The fairy lights cast a soft glow on the space. On each tree trunk is a portrait and the eerie laughter you heard outside echoes louder as you pass each portrait. "))
+ #:exits
+ (list (make <exit>
+ #:name "south"
+ #:to 'wedding-entrance)))
+ ('vaulted-tunnel:portrait
+ <gameobj> 'vaulted-tunnel
+ #:name "hanging portraits"
+ #:desc
+ "Each portrait shows a hazy image of a fairy in various modes of dress from Victorian to today's current fashions. The style and format of the photographs all look the same."
+ #:goes-by
+ '("hanging portrait" "hanging portraits" "portrait" "portraits"))))
\f