anchor.diff:              ;; You might see creatures with infravision
               (case (random-range 0 2)
                 (0
  -               (format stream 
  +               (format stream
                          "You see a pair of glowing red eyes looking your way.~%"))
                 (1
  -               (format stream 
  +               (format stream
                          "A pair of eyes glow red in the darkness~%"))
                 (2
                  (incf unseen))))
  
positive.code:                         (sex-of i)
                          (aref +player-races+ (race-of i))))))
  
    (diag-char-to-char ch i)
  
    (when (eql mode :look)
      (desc-char-trailers ch i))
  
    ;; Describe soilage
    (when (and (not (eql mode :glance)) (typep i 'player))
  
negative.code:     (when (and (not found) show)
        (format stream " Nothing.~%"))))
  
  (defun desc-char-trailers (stream ch i)
    (format stream "&n")
    (when (affected-by-spell i +spell-quad-damage+)
      (format stream "...~a is glowing with a bright blue light!~%"
                    (he-or-she i)))
    (when (aff2-flagged i +aff2-ablaze+)
      (format stream "...~a body is blazing like a bonfire!~%"
                    (his-or-her i)))
    (when (aff-flagged i +aff-blind+)
      (format stream "...~a is groping around blindly!~%"
                    (he-or-she i)))
    (when (aff-flagged i +aff-sanctuary+)
      (format stream
                    (if (is-evil i)
                        "...~a is surrounded by darkness!~%"
                        "...~a glows with a bright light!~%")
                    (he-or-she i)))
    (when (aff-flagged i +aff-confusion+)
      (format stream "...~a is looking around in confusion!~%"
                    (he-or-she i)))
    (when (aff3-flagged i +aff3-symbol-of-pain+)
      (format stream "...a symbol of pain burns bright on ~a forehead!~%"
                    (his-or-her i)))
    (when (aff-flagged i +aff-blur+)
      (format stream "...~a form appears to be blurry and shifting.~%"
                    (his-or-her i)))
    (when (aff2-flagged i +aff2-fire-shield+)
      (format stream "...a blazing sheet of fire floats before ~a body!~%"
                    (his-or-her i)))
    (when (aff2-flagged i +aff2-blade-barrier+)
      (format stream "...~a is surrounded by whirling blades!~%"
                    (he-or-she i)))
    (when (aff2-flagged i +aff2-energy-field+)
      (format stream "...~a is covered by a crackling field of energy!~%"
                    (he-or-she i)))
    (cond
      ((is-soulless i)
       (format stream "...a deep red pentagram has been burned into ~a forehead!~%"
               (his-or-her i)))
      ((aff3-flagged i +aff3-tainted+)
       (format stream "...the mark of the tainted has been burned into ~a forehead!~%"
               (his-or-her i))))
  
    (when (aff3-flagged i +aff3-prismatic-sphere+)
      (format stream "...~a is surrounded by a prismatic sphere of light!~%"
                    (he-or-she i)))
    (when (or (affected-by-spell i +spell-skunk-stench+)
              (affected-by-spell i +spell-trog-stench+))
      (format stream "...~a is followed by a malodorous stench...~%"
                    (he-or-she i)))
    (when (aff2-flagged i +aff2-petrified+)
      (format stream "...~a is petrified into solid stone.~%"
                    (he-or-she i)))
    (when (affected-by-spell i +spell-entangle+)
      (if (or (= (terrain-of (in-room-of i)) +sect-city+)
              (= (terrain-of (in-room-of i)) +sect-cracked-road+))
          (format stream "...~a is hopelessly tangled in the weeds and sparse vegetation.~%"
                  (he-or-she i))
          (format stream "...~a is hopelessly tangled in the undergrowth.~%"
                  (he-or-she i))))
    (when (and (aff2-flagged i +aff2-displacement+)
               (aff2-flagged ch +aff2-true-seeing+))
      (format stream "...the image of ~a body is strangely displaced.~%"
              (his-or-her i)))
    (when (aff-flagged i +aff-invisible+)
          (format stream "...~a is invisible to the unaided eye.~%"
                  (he-or-she i)))
    (when (aff2-flagged i +aff2-transparent+)
          (format stream "...~a is completely transparent.~%"
                  (he-or-she i)))
    (when (and (affected-by-spell i +skill-kata+)
               (>= (get-level-bonus i +skill-kata+) 50))
          (format stream "...~a hands are glowing eerily.~%"
                  (his-or-her i)))
    (when (affected-by-spell i +spell-gauss-shield+)
      (format stream "...~a is protected by a swirling shield of energy.~%"
              (he-or-she i)))
    (when (affected-by-spell i +spell-thorn-skin+)
      (format stream "...thorns protrude painfully from ~a skin.~%"
              (his-or-her i)))
    (when (affected-by-spell i +song-wounding-whispers+)
      (format stream "...~a is surrounded by whirling slivers of sound.~%"
              (he-or-she i)))
    (when (affected-by-spell i +song-mirror-image-melody+)
      (format stream "...~a is surrounded by mirror images.~%"
              (he-or-she i)))
    (when (affected-by-spell i +spell-dimensional-shift+)
      (format stream "...~a is shifted into a parallel dimension.~%"
              (he-or-she i))))
  
  
  (defun diag-char-to-char (stream ch i)
    (let ((percent (if (plusp (max-hitp-of i))
                       (floor (* 100 (hitp-of i)) (max-hitp-of i))
                       -1)))
      (format stream "&y~a ~a.&n~%"
                    (desc ch i)
                    (cond
                      ((>= percent 100) "is in excellent condition")
                      ((>= percent 90) "has a few scratches")
                      ((>= percent 75) "has some small wounds and bruises")
                      ((>= percent 50) "has quite a few wounds")
                      ((>= percent 30) "has some big nasty wounds and scratches")
                      ((>= percent 15) "looks pretty hurt")
                      ((>= percent 5) "is in awful condition")
                      ((>= percent 0) "is on the brink of death")
                      (t "is bleeding awfully from big wounds")))))
  
  (defun look-at-char (ch i mode)
    (let* ((af (affected-by-spell i +skill-disguise+))
  