anchor.diff:                 (obj-to-char obj mob))))
            (send-to-char ch "Command completed ok.~%"))))))
   
  +(defcommand (ch "olc" "zpath") (:immortal)
  +  (send-to-char ch "Usage: olc zpath (mobile|object) <name> <path-name>~%"))
  +
  +(defcommand (ch "olc" "zpath" junk) (:immortal)
  +  (declare (ignore junk))
  +  (send-to-char ch "Usage: olc zpath (mobile|object) <name> <path-name>~%"))
  +
   (defcommand (ch "olc" "zpath" "mobile" mob-name path-name) (:immortal)
     (let* ((mob (first (resolve-alias ch mob-name (people-of (in-room-of ch)))))
            (mob-vnum (and mob (vnum-of mob)))
  
positive.code:              (push-zcmd zone nil #\D if-flag room dir exit-flags 100)
               (send-to-char ch "Command completed ok.~%"))))))))
  
  (defcommand (ch "olc" "zmob" vnum max-loaded prob) (:immortal)
    (with-numeric-input ((vnum "Invalid vnum specified.")
                         (max-loaded "Maxload must be a number from 1 to 1000." (make-range-p 1 1000))
  
negative.code:                             :test 'check-zcmd-mobile)
        (char-to-room (read-mobile vnum) (in-room-of ch) nil)
        (send-to-char ch "Command completed ok.~%"))))
  
  (defcommand (ch "olc" "zequip") (:immortal)
    (send-to-char ch "Usage: olc zequip <mob-name> <obj-vnum> <max-loaded> <pos> <prob>~%"))
  
  (defcommand (ch "olc" "zequip" junk) (:immortal)
    (declare (ignore junk))
    (send-to-char ch "Usage: olc zequip <mob-name> <obj-vnum> <max-loaded> <pos> <prob>~%"))
  
  (defcommand (ch "olc" "zequip" mob-name obj-vnum max-loaded pos prob) (:immortal)
    (with-numeric-input ((obj-vnum "Invalid vnum specified.")
  