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:                      +type-rad-sickness+
                       +skill-holy-touch+)))
  
  (defun calculate-damage (ch victim amount kind)
    ;; Quad damage affects PvE
    (when (and (or (is-npc ch) (is-npc victim))
               (affected-by-spell ch +spell-quad-damage+))
      (setf amount (* amount 4)))
    ;; Double damage
    (when (aff3-flagged ch +aff3-double-damage+)
      (setf amount (* amount 2)))
    ;; Barbarian charge
    (when (aff3-flagged ch +aff3-inst-aff+)
      (let ((af (affected-by-spell ch +skill-charge+)))
        (incf amount (* amount (floor (modifier-of af) 10)))))
    ;; Sanctification
    (let ((af (affected-by-spell ch +spell-sanctification+)))
      (when af
        (cond
          ((and (is-evil victim) (not (is-soulless victim)))
           (incf amount (floor (* amount (remort-gen-of ch)) 20)))
          ((and (not (eql ch victim)) (is-good victim))
           (send-to-char ch "You have been de-sanctified!~%")
           (affect-remove ch af)))))
    ;; Damage modifier for not standing
    (when (< (position-of victim) +pos-fighting+)
      (incf amount
  
negative.code:       (decf (hitp-of victim) amount)
        (when (is-pc victim)
          (incf (total-dam-of victim) amount))
        (when ch
          (gain-damage-exp ch victim amount))
        (remove-damage-sensitive-affects victim)
  
        (update-pos victim)
  