X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=worlds%2Fbricabrac.scm;h=ee0ff08806fee83f987274839ce00123df610225;hp=6ac795a3eda6bf79e3e6db0e480c9c1dcb4bd91a;hb=74f3d0ded31d7622c9fdaea29687850449ffd5e7;hpb=0baf1da2f8a5139139284c819f5bff1f91e72c65

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index 6ac795a..ee0ff08 100644
--- 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) ".")))))
 
 
 
@@ -219,7 +219,7 @@ character.\n")))
   (take-me? #:init-value
             (lambda _
               (values #f #:why-not
-                      `("Hm... no... the cabinet is locked and the properitor "
+                      `("Hm, well... the cabinet is locked and the properitor "
                         "is right over there.")))))
 
 (define lobby
@@ -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)