From 3c9cf41fcb2f938434ad0d538a5db3a7b9ebebda Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sat, 4 Feb 2017 12:19:22 -0600 Subject: [PATCH 1/1] south "exit" from lab --- worlds/bricabrac.scm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) 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 #:name "east" - #:to 'federation-station))) + #:to 'federation-station) + (make + #: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 '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)))) -- 2.31.1