projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
adding and dropping things works
[mudsync.git]
/
worlds
/
bricabrac.scm
diff --git
a/worlds/bricabrac.scm
b/worlds/bricabrac.scm
index 7679735f813317fc4bae729165a36415cc9b583d..6be5b1aab45e05c05dae66478a562fa9cd0c1bc0 100644
(file)
--- a/
worlds/bricabrac.scm
+++ b/
worlds/bricabrac.scm
@@
-47,18
+47,27
@@
(define readable-commands
(list
(direct-command "read" 'cmd-read)))
(define readable-commands
(list
(direct-command "read" 'cmd-read)))
+
+(define readable-commands*
+ (append readable-commands
+ thing-commands))
+
(define readable-actions
(build-actions
(cmd-read (wrap-apply readable-cmd-read))))
(define readable-actions
(build-actions
(cmd-read (wrap-apply readable-cmd-read))))
-(define-class <readable> (<gameobj>)
+(define readable-actions*
+ (append readable-actions
+ thing-actions*))
+
+(define-class <readable> (<thing>)
(read-text #:init-value "All it says is: \"Blah blah blah.\""
#:init-keyword #:read-text)
(commands
(read-text #:init-value "All it says is: \"Blah blah blah.\""
#:init-keyword #:read-text)
(commands
- #:init-value readable-commands)
+ #:init-value readable-commands
*
)
(message-handler
#:init-value
(message-handler
#:init-value
- (simple-dispatcher
(append gameobj-actions readable-actions)
)))
+ (simple-dispatcher
readable-actions*
)))
(define (readable-cmd-read actor message)
(<- actor (message-from message) 'tell
(define (readable-cmd-read actor message)
(<- actor (message-from message) 'tell