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