cleaning up hackthena's shield a bit

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index dbb32b79ec3004b5fbdbb6d8edd4eb7f078fbbdb..3f71ce71aef194b94786bc7012c023403654fd39 100644 (file)
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -419,7 +419,6 @@ 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
@@ -533,13 +532,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 "This isn't a shield after all, 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"))))
 
 \f
 ;;; Playroom