scrolly stuff

[mudsync.git] / mudsync / room.scm

diff --git a/mudsync/room.scm b/mudsync/room.scm
index 0ad886ceece07226a1dd508154c91c619535e4a1..aaedd5ce6a15ff5297f3157aa7f52712b82cae65 100644 (file)
--- a/mudsync/room.scm
+++ b/mudsync/room.scm
@@ -105,7 +105,7 @@
                          (dyn-ref room (slot-ref exit 'to))
                          #f))
   (define player-name
-    (msg-val (<-wait (message-from message) 'get-name)))
+    (mbody-val (<-wait (message-from message) 'get-name)))
   (cond
    (exit
     ;; Set the player's new location
@@ -202,7 +202,7 @@
    (lambda (return)
      (for-each
       (lambda (occupant)
-        (msg-receive (_ #:key goes-by)
+        (mbody-receive (_ #:key goes-by)
             (<-wait occupant 'goes-by)
           (if (member called-this goes-by)
               (return occupant))))
@@ -221,7 +221,7 @@
   (cond
    (matching-object
     (let ((obj-desc
-           (msg-val (<-wait matching-object 'get-desc
+           (mbody-val (<-wait matching-object 'get-desc
                             #:whos-looking (message-from message)))))
       (if obj-desc
           (<- (message-from message) 'tell
@@ -255,7 +255,7 @@
 (define* (room-cmd-say room message #:key phrase)
   "Command: Say something to room participants."
   (define player-name
-    (msg-val (<-wait (message-from message) 'get-name)))
+    (mbody-val (<-wait (message-from message) 'get-name)))
   (define message-to-send
     (format #f "~a says: ~a\n" player-name phrase))
   (room-tell-room room message-to-send))
@@ -263,14 +263,14 @@
 (define* (room-cmd-emote room message #:key phrase)
   "Command: Say something to room participants."
   (define player-name
-    (msg-val (<-wait (message-from message) 'get-name)))
+    (mbody-val (<-wait (message-from message) 'get-name)))
   (define message-to-send
     (format #f "* ~a ~a\n" player-name phrase))
   (room-tell-room room message-to-send))
 
 (define* (room-announce-entrance room message #:key who-entered)
   (define player-name
-    (msg-val (<-wait who-entered 'get-name)))
+    (mbody-val (<-wait who-entered 'get-name)))
   (define message-to-send
     (format #f "~a enters the room.\n" player-name))
   (room-tell-room room message-to-send