anchor.diff:                    (string-upcase (name-of object) :end 1)))
         (show-obj-bits object ch stream)
         (when (> count 1)
  -        (format stream "&g [~d]&n" count))
  -      (format stream "~%"))))
  +        (format stream " [~d]" count))
  +      (format stream "&n~%"))))
   
   (defun show-obj-bits (object ch stream)
     (when (is-obj-stat2 object +item2-broken+)
  
positive.code:                 (format stream " &g(afk: ~a)&y" (afk-reason-of i))
                  (format stream " &g(afk)&y"))))
  
          (format stream "~%")
  
          (unless (pref-flagged ch +pref-notrailers+)
            (desc-char-trailers stream ch i))))))
  
negative.code: 
    (send-to-char ch
                  (case (pk-style-of (zone-of room))
                    (0 "&c[ &g!PK &c] ")
                    (1 "&c[ &YNPK &c] ")
                    (2 "&c[ &RCPK &c] ")))
  
    (unless (or (immortalp ch)
                (not (room-flagged room +room-smoke-filled+))
  