anchor.diff:      (unless (zerop (gold-of ch))
         (obj-to-obj (make-money-object (gold-of ch) :gold) corpse))
       (unless (zerop (cash-of ch))
  -      (obj-to-obj (make-money-object (gold-of ch) :cash) corpse))))
  +      (obj-to-obj (make-money-object (cash-of ch) :cash) corpse))))
   
   (defun raw-kill (ch killer attacktype)
     (when (and (is-npc ch)
  
positive.code:     ;; Maximum damage reduction of 75%
      (/ (min reduction 75) 100)))
  
  (defun calculate-damage-cap (ch)
    (if ch
        (max (+ 20 (level-of ch) (* 2 (remort-gen-of ch)))
             (+ (* 20 (level-of ch)) (* 2 (level-of ch) (remort-gen-of ch))))
        7000))
  
  (defun bad-attack-type (attack)
  
negative.code:              (affected-by-spell victim +spell-chemical-stability+))
      (setf amount (floor amount 2)))
  
    (floor (min (calculate-damage-cap attacker) amount)))
  
  (defun remove-damage-sensitive-affects (ch)
    (when (aff-flagged ch +aff-sleep+)
  