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]
/
mudsync
/
player.scm
diff --git
a/mudsync/player.scm
b/mudsync/player.scm
index 1063955b6d4ba56371d82b5952ca84943d7d3991..a0caf239940198eb80808925ae652b00d295caa2 100644
(file)
--- a/
mudsync/player.scm
+++ b/
mudsync/player.scm
@@
-103,7
+103,7
@@
(define inv-names
(map
(lambda (inv-item)
(define inv-names
(map
(lambda (inv-item)
- (m
sg
-val (<-wait inv-item 'get-name)))
+ (m
body
-val (<-wait inv-item 'get-name)))
(gameobj-occupants player)))
(define text-to-show
(if (eq? inv-names '())
(gameobj-occupants player)))
(define text-to-show
(if (eq? inv-names '())
@@
-133,7
+133,7
@@
;; Ask the room for its commands
(define room-commands
;; TODO: Map room id and sort
;; Ask the room for its commands
(define room-commands
;; TODO: Map room id and sort
- (m
sg
-receive (_ #:key commands)
+ (m
body
-receive (_ #:key commands)
(<-wait player-loc 'get-container-commands
#:verb verb)
commands))
(<-wait player-loc 'get-container-commands
#:verb verb)
commands))
@@
-142,7
+142,7
@@
(define co-occupants
(remove
(lambda (x) (equal? x (actor-id player)))
(define co-occupants
(remove
(lambda (x) (equal? x (actor-id player)))
- (m
sg
-receive (_ #:key occupants)
+ (m
body
-receive (_ #:key occupants)
(<-wait player-loc 'get-occupants)
occupants)))
(<-wait player-loc 'get-occupants)
occupants)))
@@
-155,7
+155,7
@@
(define co-occupant-commands
(fold
(lambda (co-occupant prev)
(define co-occupant-commands
(fold
(lambda (co-occupant prev)
- (m
sg
-receive (_ #:key commands goes-by)
+ (m
body
-receive (_ #:key commands goes-by)
(<-wait co-occupant 'get-commands
#:verb verb)
(append
(<-wait co-occupant 'get-commands
#:verb verb)
(append
@@
-180,7
+180,7
@@
(define inv-item-commands
(fold
(lambda (inv-item prev)
(define inv-item-commands
(fold
(lambda (inv-item prev)
- (m
sg
-receive (_ #:key commands goes-by)
+ (m
body
-receive (_ #:key commands goes-by)
(<-wait inv-item 'get-contained-commands
#:verb verb)
(append
(<-wait inv-item 'get-contained-commands
#:verb verb)
(append