anchor.diff:         (if (perform-single-drop ch obj mode)
              (when (or (null next-obj)
                        (string/= (name-of next-obj) (name-of obj)))
  -             (cond
  -               ((= counter 1)
  -                (act ch :item obj :all-emit (format nil "$n ~(~a~)$% $p." mode)))
  -               ((plusp counter)
  -                (act ch :item obj
  -                     :all-emit (format nil "$n ~(~a~)$% $p. (x~d)" mode counter))
  -                (setf counter 0))))
  +             (act ch :item obj
  +                  :all-emit (format nil "$n ~(~a~)$% $p.~[~;~:;~:* (x~d)~]" mode counter))
  +             (setf counter 0))
              (setf counter 0))))
   
   (defun find-eq-pos (obj)
  
positive.code:           (perform-give ch (first victs) obj)
            (when (or (null next-obj)
                      (string/= (name-of next-obj) (name-of obj)))
              (cond
                ((= counter 1)
                 (act ch :target vict :item obj
                      :all-emit "$n give$% $p to $N."))
                ((plusp counter)
                 (act ch :target vict :item obj
                      :all-emit (format nil "$n give$% $p to $N. (x~d)" counter))))
              (setf counter 0))))
        ((eql mode :find-indiv)
         (send-to-char ch "You aren't carrying ~a ~a.~%" (a-or-an thing) thing))
  
negative.code:                 (setf sigil-found t)))
               (when (or (null next-obj)
                         (string/= (name-of next-obj) (name-of obj)))
                 (act ch :item obj
                      :all-emit (format nil "$n get$% $p.~[~;~:;~:* (x~d)~]" counter))
                 (setf counter 0))))))
        ((eql mode :find-indiv)
         (multiple-value-bind (ignore name)
  