From: Christopher Allan Webber Date: Mon, 23 Jan 2017 23:01:09 +0000 (-0600) Subject: A friendlier intro room X-Git-Tag: fosdem-2017~88 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=6c4e8014e71d425f8c8a38a2cf5d923080e9be02;p=mudsync.git A friendlier intro room --- diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm index e401465..50b745b 100644 --- a/worlds/bricabrac.scm +++ b/worlds/bricabrac.scm @@ -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: : 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\"." '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 + '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"))))