A friendlier intro room
authorChristopher Allan Webber <cwebber@dustycloud.org>
Mon, 23 Jan 2017 23:01:09 +0000 (17:01 -0600)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Mon, 23 Jan 2017 23:01:09 +0000 (17:01 -0600)
worlds/bricabrac.scm

index e4014656086d840d59de217966c9d51f130788f4..50b745b57e8555a16ebc161203929701ae7160f5 100644 (file)
@@ -289,12 +289,6 @@ Ooh, ~a!" (random-choice random-bricabrac))))
     #:name "sign-in form"
     #:goes-by '("sign-in form" "form" "signin form")
     #:desc "It looks like you could sign this form and set your name.")
-   ;; Object: desk
-   ;;  - Object: bell
-   ;;  - Object: sign in form
-   ;;  - Object: pamphlet
-   ;; Object: <invisible bell>: reprimands that you want to ring the
-   ;;   bell on the desk
    )
   )
 
@@ -329,7 +323,6 @@ room\", while a door to the west is labeled \"playroom\"."
     <gameobj> 'room:grand-hallway
     #:name "a statue"
     #:desc "  The statue is of a serious-looking bearded man with long, flowing hair.
-The inscription says \"St. Ignucius\".
   It has a large physical halo.  Removing it is tempting, but it looks pretty
 well fastened."
     #:goes-by '("statue" "st ignucius" "st. ignucius"))))
@@ -501,7 +494,7 @@ It has some bits of bubble gum stuck to it... yuck."
                          (update-loop clerk-act-update-loop)
                          (be-summoned clerk-act-be-summoned))))
 
-(define (clerk-act-init clerk message)
+(define (clerk-act-init clerk message . _)
   ;; call the gameobj main init method
   (gameobj-act-init clerk message)
   ;; start our main loop
@@ -637,19 +630,16 @@ The clerk leaves the room in a hurry.\n"
     "The clerk fumbles around for a cigarette.\n"))
 
 (define clerk-working-impatience-texts
-  '("The clerk struggles to retain an interested and polite smile.\n"
-    "The clerk checks the time on her phone.\n"
-    "The clerk taps her foot.\n"
-    "The clerk takes a deep breath.\n"
-    "The clerk yawns.\n"
-    "The clerk drums her nails on the counter.\n"
-    "The clerk clicks around on the desk computer.\n"
-    "The clerk thumbs through a printout of some physics paper.\n"
-    "The clerk mutters that her dissertation isn't going to write itself.\n"))
+  '("The clerk hums something, but you're not sure what it is."
+    "The clerk attempts to change the overhead music, but the dial seems broken."
+    "The clerk clicks around on the desk computer."
+    "The clerk scribbles an equation on a memo pad, then crosses it out."
+    "The clerk mutters something about the proprietor having no idea how to run a hotel."
+    "The clerk thumbs through a printout of some physics paper."))
 
 (define clerk-slack-excuse-text
-  "The desk clerk excuses herself, claiming she has important things to
-attend to.\n")
+  "The desk clerk excuses herself, but says you are welcome to ring the bell
+if you need further help.")
 
 (define clerk-return-to-slacking-text
   "The desk clerk enters and slams the door behind her.\n")
@@ -674,7 +664,7 @@ attend to.\n")
   (match (slot-ref clerk 'state)
     ('slacking
      (tell-room (random-choice clerk-slacking-texts))
-     (8sleep (+ (random 10) 10))
+     (8sleep (+ (random 20) 15))
      (loop-if-not-destructed))
     ('on-duty
      (if (> (slot-ref clerk 'patience) 0)
@@ -683,7 +673,7 @@ attend to.\n")
            (tell-room (random-choice clerk-working-impatience-texts))
            (slot-set! clerk 'patience (- (slot-ref clerk 'patience)
                                          (+ (random 2) 1)))
-           (8sleep (+ (random 25) 20))
+           (8sleep (+ (random 60) 40))
            (loop-if-not-destructed))
          ;; Back to slacking
          (begin
@@ -718,7 +708,13 @@ the scenery tapers off nothingness.  But that can't be right, can it?"
     #:name "the hotel desk clerk"
     #:desc "  The hotel clerk is wearing a neatly pressed uniform bearing the
 hotel insignia.  She looks like she'd much rather be somewhere else."
-    #:goes-by '("hotel desk clerk" "clerk" "desk clerk"))))
+    #:goes-by '("hotel desk clerk" "clerk" "desk clerk"))
+   ('thing:break-room:void
+    <thing> 'room:break-room
+    #:generally-visible #f
+    #:name "The Void"
+    #:desc "As you stare into the void, the void stares back into you."
+    #:goes-by '("void" "abyss" "nothingness"))))
 
 
 \f