anchor.diff:            (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))))
  +            (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))
  
positive.code:                 (setf sigil-found t)))
               (when (or (null next-obj)
                         (string/= (name-of next-obj) (name-of obj)))
                 (cond
                   ((= counter 1)
                    (act ch :item obj :all-emit "$n get$% $p."))
                   ((plusp counter)
                    (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)
  
negative.code: 
               (when (or (null next-obj)
                         (string/= (name-of next-obj) (name-of obj)))
                 (act ch :item obj
                      :target-item container
                      :all-emit (format nil "$n put$% $p into $P.~[~;~:;~:* (x~d)~]" counter))
                 (setf counter 0)))))
         (when (is-obj-kind container +item-pipe+)
           (loop while (contains-of container) do
  