Add no smoking sign to smoking parlor

[mudsync.git] / worlds / bricabrac.scm

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index b816c88a8ed592340b252cf2bb1c53ce9080eb91..e4014656086d840d59de217966c9d51f130788f4 100644 (file)
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -422,7 +422,7 @@ a nondescript steel door to the south, leading apparently outside."))
           (make <exit>
             #:name "south"
             #:to 'room:break-room)))
-   ('thing:smoking-room:chair
+   ('thing:smoking-parlor:chair
     <furniture> 'room:smoking-parlor
     #:name "a comfy leather chair"
     #:desc "  That leather chair looks really comfy!"
@@ -430,7 +430,7 @@ a nondescript steel door to the south, leading apparently outside."))
     #:sit-phrase "sink into"
     #:sit-phrase-third-person "sinks into"
     #:sit-name "the comfy leather chair")
-   ('thing:smoking-room:sofa
+   ('thing:smoking-parlor:sofa
     <furniture> 'room:smoking-parlor
     #:name "a plush leather sofa"
     #:desc "  That leather chair looks really comfy!"
@@ -439,7 +439,7 @@ a nondescript steel door to the south, leading apparently outside."))
     #:sit-phrase "sprawl out on"
     #:sit-phrase-third-person "sprawls out on into"
     #:sit-name "the plush leather couch")
-   ('thing:smoking-room:bar-stool
+   ('thing:smoking-parlor:bar-stool
     <furniture> 'room:smoking-parlor
     #:name "a bar stool"
     #:desc "  Conveniently located near the bar!  Not the most comfortable
@@ -456,8 +456,15 @@ seat in the room, though."
                 "frood" "prefect" "ford")
     #:catchphrases prefect-quotes)
 
-   ;; TODO: Cigar dispenser
+   ('thing:smoking-parlor:no-smoking-sign
+    <thing> 'room:smoking-parlor
+    #:generally-visible #f
+    #:name "No Smoking Sign"
+    #:desc "This sign says \"No Smoking\" in big, red letters.
+It has some bits of bubble gum stuck to it... yuck."
+    #:goes-by '("no smoking sign" "sign"))
 
+   ;; TODO: Cigar dispenser
    ))
 
 \f