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*
+  (append readable-commands
+          thing-commands))
+
 (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
-   #:init-value readable-commands)
+   #:init-value readable-commands*)
   (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