projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add pre-tag to scrubl
[mudsync.git]
/
mudsync
/
thing.scm
diff --git
a/mudsync/thing.scm
b/mudsync/thing.scm
index f2e218016ec23e6b09617b4428a18cceaf6a1dcc..6399c6f71e174dbd0599e25fe0d6577a55cbd18d 100644
(file)
--- a/
mudsync/thing.scm
+++ b/
mudsync/thing.scm
@@
-70,9
+70,9
@@
(define* (thing-cmd-take thing message #:key direct-obj)
(define player (message-from message))
(define player-name
(define* (thing-cmd-take thing message #:key direct-obj)
(define player (message-from message))
(define player-name
- (m
sg
-val (<-wait player 'get-name)))
+ (m
body
-val (<-wait player 'get-name)))
(define player-loc
(define player-loc
- (m
sg
-val (<-wait player 'get-loc)))
+ (m
body
-val (<-wait player 'get-loc)))
(define thing-name (slot-ref thing 'name))
(define should-take
(slot-ref-maybe-runcheck thing 'takeable player))
(define thing-name (slot-ref thing 'name))
(define should-take
(slot-ref-maybe-runcheck thing 'takeable player))
@@
-95,9
+95,9
@@
(define* (thing-cmd-drop thing message #:key direct-obj)
(define player (message-from message))
(define player-name
(define* (thing-cmd-drop thing message #:key direct-obj)
(define player (message-from message))
(define player-name
- (m
sg
-val (<-wait player 'get-name)))
+ (m
body
-val (<-wait player 'get-name)))
(define player-loc
(define player-loc
- (m
sg
-val (<-wait player 'get-loc)))
+ (m
body
-val (<-wait player 'get-loc)))
(define thing-name (slot-ref thing 'name))
(define should-drop
(slot-ref-maybe-runcheck thing 'dropable player))
(define thing-name (slot-ref thing 'name))
(define should-drop
(slot-ref-maybe-runcheck thing 'dropable player))