anchor.diff:       (setf (hitroll-of ch) (pin (+ (hitroll-of ch) mod) -125 125)))
       ((= loc +apply-damroll+)
        (setf (damroll-of ch) (pin (+ (damroll-of ch) mod) -125 125)))
  +    ((= loc +apply-saving-para+)
  +     (incf (aref (saves-of ch) +saving-para+) mod))
  +    ((= loc +apply-saving-rod+)
  +     (incf (aref (saves-of ch) +saving-rod+) mod))
  +    ((= loc +apply-saving-petri+)
  +     (incf (aref (saves-of ch) +saving-petri+) mod))
  +    ((= loc +apply-saving-breath+)
  +     (incf (aref (saves-of ch) +saving-breath+) mod))
  +    ((= loc +apply-saving-spell+)
  +     (incf (aref (saves-of ch) +saving-spell+) mod))
  +    ((= loc +apply-saving-chem+)
  +     (incf (aref (saves-of ch) +saving-chem+) mod))
  +    ((= loc +apply-saving-psi+)
  +     (incf (aref (saves-of ch) +saving-psi+) mod))
  +    ((= loc +apply-saving-phy+)
  +     (incf (aref (saves-of ch) +saving-phy+) mod))
  +    ((= loc +apply-sneak+)
  +     (apply-skill ch +skill-sneak+ mod))
  +    ((= loc +apply-hide+)
  +     (apply-skill ch +skill-hide+ mod))
  +    ((= loc +apply-race+)
  +     (when (<= 0 mod (1- +num-races+))
  +       (setf (race-of ch) mod)))
  +    ((= loc +apply-sex+)
  +     (when (<= 0 mod 2)
  +       (setf (sex-of ch) mod)))
  +    ((= loc +apply-backstab+)
  +     (apply-skill ch +skill-backstab+ mod))
  +    ((= loc +apply-pick-lock+)
  +     (apply-skill ch +skill-pick-lock+ mod))
  +    ((= loc +apply-punch+)
  +     (apply-skill ch +skill-punch+ mod))
  +    ((= loc +apply-shoot+)
  +     (apply-skill ch +skill-shoot+ mod))
  +    ((= loc +apply-kick+)
  +     (apply-skill ch +skill-kick+ mod))
  +    ((= loc +apply-track+)
  +     (apply-skill ch +skill-track+ mod))
  +    ((= loc +apply-impale+)
  +     (apply-skill ch +skill-impale+ mod))
  +    ((= loc +apply-behead+)
  +     (apply-skill ch +skill-behead+ mod))
  +    ((= loc +apply-throwing+)
  +     (apply-skill ch +skill-throwing+ mod))
  +    ((= loc +apply-riding+)
  +     (apply-skill ch +skill-riding+ mod))
  +    ((= loc +apply-turn+)
  +     (apply-skill ch +skill-turn+ mod))
  +    ((= loc +apply-align+)
  +     (setf (alignment-of ch) (pin (+ (alignment-of ch) mod) -1000 1000)))
  +    ((= loc +apply-nothirst+)
  +     (when (and (not (is-npc ch))
  +                (/= (aref (condition-of ch) +thirst+) -1))
  +       (setf (aref (condition-of ch) +thirst+)
  +             (if (plusp mod) -2 0))))
  +    ((= loc +apply-nohunger+)
  +     (when (and (not (is-npc ch))
  +                (/= (aref (condition-of ch) +full+) -1))
  +       (setf (aref (condition-of ch) +full+)
  +             (if (plusp mod) -2 0))))
  +    ((= loc +apply-nodrunk+)
  +     (when (and (not (is-npc ch))
  +                (/= (aref (condition-of ch) +drunk+) -1))
  +       (setf (aref (condition-of ch) +drunk+)
  +             (if (plusp mod) -1 0))))
  +    ((= loc +apply-speed+)
  +     (incf (speed-of ch) mod))
  +    ((member loc (list +apply-caster+
  +                       +apply-weaponspeed+
  +                       +apply-disguise+))
  +     ;; These do nothing
  +     nil)
       (t
        (error "Unknown apply adjust attempt on ~a ~d + ~d in affect_modify add=~a"
               (name-of ch) loc mod add))))
  
positive.code:        (apply-skill ch loc mod)))
      ((= loc +apply-str+)
       (incf (str-of (aff-abils-of ch)) mod)
       (incf (str-of (aff-abils-of ch)) (floor (str-add-of ch) 10))
       (setf (str-add-of ch) 0))
      ((= loc +apply-dex+)
       (incf (dex-of (aff-abils-of ch)) mod))
      ((= loc +apply-int+)
  
negative.code:   ;; Remove all item-based affects
    (dotimes (i +num-wears+)
      ;; Remove equipment affects
      (when (get-eq ch i)
        (apply-object-affects ch (get-eq ch i) nil))
      (when (aref (implants-of ch) i)
        (apply-object-affects ch (aref (implants-of ch) i) nil)
        (when (= (kind-of (aref (implants-of ch) i)) +item-interface+)
          (check-interface ch (aref (implants-of ch) i) nil)))
      (when (aref (tattoos-of ch) i)
        (apply-object-affects ch (aref (tattoos-of ch) i) nil)))
  
  