From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sat, 4 Feb 2017 18:19:22 +0000 (-0600)
Subject: south "exit" from lab
X-Git-Tag: fosdem-2017~6
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=3c9cf41fcb2f938434ad0d538a5db3a7b9ebebda;p=mudsync.git

south "exit" from lab
---

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index ba6f3e9..18885a4 100644
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -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))))