projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Rename msg-foo to mbody-foo
[mudsync.git]
/
worlds
/
bricabrac.scm
diff --git
a/worlds/bricabrac.scm
b/worlds/bricabrac.scm
index 7570b0d02840fb24ee3788652b54bc76d5a16cc8..ba0b75fe008bb90e208299ff3aafd23a02414575 100644
(file)
--- a/
worlds/bricabrac.scm
+++ b/
worlds/bricabrac.scm
@@
-146,7
+146,7
@@
or 'skribe'? Now *that's* composition!"))
(define* (sign-cmd-sign-in actor message
#:key direct-obj indir-obj preposition)
(define old-name
(define* (sign-cmd-sign-in actor message
#:key direct-obj indir-obj preposition)
(define old-name
- (m
sg
-val (<-wait (message-from message) 'get-name)))
+ (m
body
-val (<-wait (message-from message) 'get-name)))
(define name indir-obj)
(if (valid-name? indir-obj)
(begin
(define name indir-obj)
(if (valid-name? indir-obj)
(begin
@@
-182,7
+182,7
@@
character.\n")))
;; handler... meanwhile, this procedure suspends until we get
;; their response.
(define who-rang
;; handler... meanwhile, this procedure suspends until we get
;; their response.
(define who-rang
- (m
sg
-val (<-wait (message-from message) 'get-name)))
+ (m
body
-val (<-wait (message-from message) 'get-name)))
;; Now we'll invoke the "tell" message handler on the player
;; who rang us, displaying this text on their screen.
;; Now we'll invoke the "tell" message handler on the player
;; who rang us, displaying this text on their screen.
@@
-390,7
+390,7
@@
if this room is intended for children or child-like adults."
(define* (furniture-cmd-sit actor message #:key direct-obj)
(define player-name
(define* (furniture-cmd-sit actor message #:key direct-obj)
(define player-name
- (m
sg
-val (<-wait (message-from message) 'get-name)))
+ (m
body
-val (<-wait (message-from message) 'get-name)))
(<- (message-from message) 'tell
#:text (format #f "You ~a ~a.\n"
(slot-ref actor 'sit-phrase)
(<- (message-from message) 'tell
#:text (format #f "You ~a ~a.\n"
(slot-ref actor 'sit-phrase)
@@
-601,7
+601,7
@@
You can ask me about the following:
(define* (clerk-cmd-dismiss clerk message . _)
(define player-name
(define* (clerk-cmd-dismiss clerk message . _)
(define player-name
- (m
sg
-val (<-wait (message-from message) 'get-name)))
+ (m
body
-val (<-wait (message-from message) 'get-name)))
(match (slot-ref clerk 'state)
('on-duty
(<- (gameobj-loc clerk) 'tell-room
(match (slot-ref clerk 'state)
('on-duty
(<- (gameobj-loc clerk) 'tell-room