X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=worlds%2Fbricabrac.scm;h=51549873151ea6567620c52fe1c058e454b830fd;hb=76ece1325111d6736003c3a3c7b6383f07478d3e;hp=6ac795a3eda6bf79e3e6db0e480c9c1dcb4bd91a;hpb=0baf1da2f8a5139139284c819f5bff1f91e72c65;p=mudsync.git diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm index 6ac795a..5154987 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) @@ -82,9 +83,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 +220,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 +526,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 - 'playroom + 'playroom #:name "a toy chest" #:goes-by '("toy chest" "chest") #:desc (lambda (toy-chest whos-looking)