anchor.diff:                                                 +aff2-ablaze+)))
       (setf (aff3-flags-of ch) (logandc2 (aff3-flags-of ch)
                                          +aff3-self-destruct+))
  -    (setf (total-dam-of ch) 0)
  -    (setf (broken-component-of ch) 0)
  +    (when (is-pc ch)
  +      (setf (total-dam-of ch) 0)
  +      (setf (broken-component-of ch) 0))
   
       (cond
         ((is-npc ch)
  
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))
  
  