anchor.diff:           (act-obj ch obj
                     (format nil "$p is starting to look pretty ~a."
                             (cond
  -                            ((is-metal-type obj) "mangled")
  -                            ((or (is-leather-type obj) (is-cloth-type obj)) "ripped up")
  +                            ((is-metal obj) "mangled")
  +                            ((or (is-leather obj) (is-cloth obj)) "ripped up")
                               (t "bad")))))
           ((< (damage-of obj) (floor (max-dam-of obj) 2) old-damage)
            (act-obj ch obj "$p is starting to show signs of wear."))))))
  
positive.code: 
  ;; damage modifiers are as follows:
  ;;   magic divine psionic
  (defun damage-creature (victim amount kind pos)
    (declare (ignore victim amount kind pos))
    nil)
  
negative.code:              (func-of (shared-of ch)))
      (funcall (func-of (shared-of ch)) killer ch 0 nil :death))
  
    (when (and (is-pc ch) (is-cyborg ch))
      (setf (total-dam-of ch) 0)
      (setf (broken-component-of ch) 0))
  
  