X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=worlds%2Fbricabrac.scm;h=3ce948d4b7fe568b097f9e0a3a18d4612eedbdf0;hp=ba0b75fe008bb90e208299ff3aafd23a02414575;hb=80b100aa206cc865238f055d8c2b809586566064;hpb=ed1ef3172af4c2621e2b746824b7defa6f0dcedd diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm index ba0b75f..3ce948d 100644 --- a/worlds/bricabrac.scm +++ b/worlds/bricabrac.scm @@ -223,7 +223,7 @@ character.\n"))) #:desc " You're in some sort of hotel lobby. You see a large sign hanging over the desk that says \"Hotel Bricabrac\". On the desk is a bell -that says \"ring for service\". Terrible music plays from a speaker +that says \"'ring bell' for service\". Terrible music plays from a speaker somewhere overhead. The room is lined with various curio cabinets, filled with all sorts of kitschy junk. It looks like whoever decorated this place had great @@ -518,7 +518,7 @@ feel free to walk around and explore."))) (define clerk-knows-about - "'changing name', 'common commands', and 'about the hotel'") + "'ask clerk about changing name', 'ask clerk about common commands', and 'ask clerk about the hotel'") (define clerk-general-helpful-line (string-append @@ -548,7 +548,7 @@ with tuition at where it is...")) (random-choice clerk-slacking-complaints) "\"\n"))))) -(define (clerk-cmd-ask-incomplete clerk message) +(define (clerk-cmd-ask-incomplete clerk message . _) (<- (message-from message) 'tell #:text "The clerk says, \"Ask about what?\"\n")) @@ -635,7 +635,9 @@ The clerk leaves the room in a hurry.\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 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")) (define clerk-slack-excuse-text "The desk clerk excuses herself, claiming she has important things to