south "exit" from lab
authorChristopher Allan Webber <cwebber@dustycloud.org>
Sat, 4 Feb 2017 18:19:22 +0000 (12:19 -0600)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Sat, 4 Feb 2017 18:19:22 +0000 (12:19 -0600)
worlds/bricabrac.scm

index ba6f3e9959ae4450f261c5f0d65860181672425c..18885a4602d57f978130d8b4e05c26f6d552dd0a 100644 (file)
@@ -1678,7 +1678,15 @@ is a map detailing the layout of the underground structure."))
             #:to 'hive-entrance)
           (make <exit>
             #:name "east"
-            #:to 'federation-station)))
+            #:to 'federation-station)
+          (make <exit>
+            #:name "south"
+            #:traverse-check
+            (lambda (exit room whos-exiting)
+              (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!"))))))
 
    ;; map
    ('underground-lab:map
@@ -1692,7 +1700,7 @@ is a map detailing the layout of the underground structure."))
    ('underground-lab:8sync-sign
     <readable> 'underground-lab
     #:name "a sign labeled \"8sync design goals\""
-    #:goes-by '("sign" "8sync design goals sign" "8sync sign")
+    #:goes-by '("sign" "8sync design goals sign" "8sync goals" "8sync design" "8sync sign")
     #:read-text 8sync-design-goals
     #:desc `((p "The sign says:")
              ,8sync-design-goals))))