From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sat, 11 Feb 2017 17:47:40 +0000 (-0600)
Subject: some placeholder stuff for the revolving door and shop
X-Git-Tag: fosdem-2017~1
X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=commitdiff_plain;h=8bf798a930c7cd36a9d3427a3498e5222115e889

some placeholder stuff for the revolving door and shop
---

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index 701da14..a00e7ac 100644
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -1743,8 +1743,14 @@ is a map detailing the layout of the underground structure."))
               (values #f '("Ooh, if only you could go south and check this out! "
                            "Unfortunately this whole area is sealed off... the proprietor "
                            "probably never got around to fixing it. "
-                           "Too bad, it would have had monsters to fight and everything!"))))))
-
+                           "Too bad, it would have had monsters to fight and everything!"))))
+          (make <exit>
+            #:name "southwest"
+            #:traverse-check
+            (lambda (exit room whos-exiting)
+              (values #f '("Hm, it's one of those revolving doors that only revolves in "
+                           "one direction, and it isn't this one.  You guess that while "
+                           "this doesn't appear to be an entrance, it probably is an exit."))))))
    ;; map
    ('underground-lab:map
     <readable> 'underground-lab
@@ -1937,11 +1943,18 @@ as well as an exit leading to the south."))
    ('gift-shop
     <room> #f
     #:name "Museum Gift Shop"
-    #:desc "foo"
+    #:desc '("There are all sorts of scrolls and knicknacks laying around here, "
+             "but they all seem glued in place and instead of a person manning the shop "
+             "there's merely a cardboard cutout of a person with a \"shopkeeper\" nametag. "
+             "You can pretty well bet that someone wanted to finish this room but ran out of "
+             "time.")
     #:exits (list
              (make <exit>
                #:name "northeast"
-               #:to 'underground-lab)
+               #:to 'underground-lab
+               #:traverse-check
+               (lambda (exit room whos-exiting)
+                 (values #t '("The revolving door spins as you walk through it.  Whee!"))))
              (make <exit>
                #:name "north"
                #:to 'async-museum)))))