anchor.diff:    (dolist (ch *characters*)
       (when (and (eql (zone-of (in-room-of ch)) zone)
                  (mob-flagged ch +mob-spec+)
  -               (func-of ch))
  -      (funcall (func-of ch) ch ch 0 "" +special-reset+)))
  +               (func-of (shared-of ch)))
  +      (funcall (func-of (shared-of ch)) ch ch 0 "" +special-reset+)))
   
     (let ((last-cmd 0)
           (prob-override nil))
  
positive.code:         (t
           (setf (gold-of mob) (rand-value (gold-of mob)
                                           (truncate (* (gold-of mob) 0.15))
                                           -1 -1))
           (setf (cash-of mob) (rand-value (cash-of mob)
                                           (truncate (* (cash-of mob) 0.15))
                                           -1 -1))))
  
        (push mob *characters*)
        (setf (gethash (- (mob-idnum-of mob)) *character-map*) mob)
  
negative.code:               (cond
                  ((null tmob)
                   (setf last-cmd 0))
                  ((> (number-of (shared-of tmob)) (arg2-of zone-cmd))
                   (setf last-cmd 0))
                  ((null room)
                   (setf last-cmd 0))
  