X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=worlds%2Fbricabrac.scm;h=49fcff0e236ca894f3240ea407de1ed073dff134;hp=dbb32b79ec3004b5fbdbb6d8edd4eb7f078fbbdb;hb=ca179fab03d8ebbe2e36d90dd65bd4000a0fb57b;hpb=f38a8862032f5db1e0a648e855d5cae29f71fe4a diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm index dbb32b7..49fcff0 100644 --- a/worlds/bricabrac.scm +++ b/worlds/bricabrac.scm @@ -419,14 +419,14 @@ this general shape in the 1990s." (define* (disc-shield-take gameobj message #:key direct-obj (player (message-from message))) - (pk 'hi) (create-gameobj (gameobj-gm gameobj) player) ;; set loc to player to put in player's inventory (<- player 'tell #:text '((p "As you attempt to pull the shield / disk platter -from the statue, there is a bright glow... and a completely separate, -glowing copy of the disc materializes into your hands!") - (p "You hear a voice whispering in your ear: " +from the statue a shining outline appears around it... and a +completely separate, glowing copy of the disc materializes into your +hands!") + (p "You hear a voice whispering: " (i "\"Share the software... and you'll be free...\""))))) ;;; This is the disc that gets put in the player's inventory @@ -533,13 +533,11 @@ Hackthena must be an emacs user." #:goes-by '("hackthena's horns" "horns" "horns of hacktena")) ('grand-hallway:disc-platter 'grand-hallway - #:name "a hard disc platter" - #:desc "This isn't a shield after all, it seems to be a hard disc -platter! It looks kind of loose..." + #:name "Hackthena's shield" + #:desc "No wonder the \"shield\" looks unusual... it seems to be a hard disk +platter! It has \"RL02.5\" written on it. It looks kind of loose." #:invisible? #t - #:goes-by '("hard disc platter" "disc platter" "disc" - "hard disk platter" "disk platter" - "shield" "platter")))) + #:goes-by '("hackthena's shield" "shield" "platter" "hard disk platter")))) ;;; Playroom