#:exits
(list (make <exit>
#:name "north"
- #:to 'vaulted-tunnel)
+ #:to 'wedding-entrance)
(make <exit>
#:name "south"
#:to 'courtyard)))
#:exits
(list (make <exit>
#:name "north"
- #:to 'wedding-entrance)
+ #:to 'forest-clearing)
(make <exit>
#:name "south"
- #:to 'forest-clearing)))
+ #: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 'vaulted-tunnel)))))
+ #:to 'courtyard)))))
\f