From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Mon, 23 Jan 2017 22:33:10 +0000 (-0600)
Subject: Add no smoking sign to smoking parlor
X-Git-Tag: fosdem-2017~89
X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=commitdiff_plain;h=ac149d2fed1ec8685458b492462bead29cf3ef20

Add no smoking sign to smoking parlor
---

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index b816c88..e401465 100644
--- 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
    ))