Adjust disc-shield description

[mudsync.git] / worlds / bricabrac.scm

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index dbb32b79ec3004b5fbdbb6d8edd4eb7f078fbbdb..49fcff0e236ca894f3240ea407de1ed073dff134 100644 (file)
--- 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 <glowing-disc> (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
     <disc-shield> '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"))))
 
 \f
 ;;; Playroom