finishing unfinished comment

[mudsync.git] / worlds / bricabrac.scm

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index 5676c1004245d9798002d53687bbeedd10cfa8bf..ee0ff08806fee83f987274839ce00123df610225 100644 (file)
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -19,6 +19,7 @@
 ;;; Hotel Bricabrac
 
 (use-modules (mudsync)
+             (mudsync container)
              (8sync actors)
              (8sync agenda)
              (oop goops)
@@ -61,8 +62,7 @@
       #:text (string-append (slot-ref actor 'read-text) "\n")))
 
 
-;; This one allows you to take from 
-
+;; This one allows you to take from items that are proxied by it
 (define-actor <proxy-items> (<gameobj>)
   ((cmd-take-from take-from-proxy))
   (proxy-items #:init-keyword #:proxy-items))
@@ -82,9 +82,9 @@
           (escape)))
       (slot-ref gameobj 'proxy-items))
 
-     (cmd-take-from gameobj message
-                    #:direct-obj direct-obj #:indir-obj indir-obj
-                    #:preposition preposition #:player player))))
+     (<- player 'tell
+        #:text `("You don't see any such " ,direct-obj " to take "
+                 ,preposition " " ,(slot-ref gameobj 'name) ".")))))
 
 
 \f
@@ -525,7 +525,7 @@ if this room is intended for children or child-like adults."
     #:desc "  A warm and fuzzy cuddles plushie!  It's a cuddlefish!")
 
    ('playroom:toy-chest
-    <gameobj> 'playroom
+    <container> 'playroom
     #:name "a toy chest"
     #:goes-by '("toy chest" "chest")
     #:desc (lambda (toy-chest whos-looking)