anchor.diff:      (when (perform-olc-zcmd ch #\M if-flag vnum max-loaded room prob :test 'check-zcmd-mobile)
         (send-to-char ch "Command completed ok.~%"))))
   
  +(defcommand (ch "olc" "zcmd" "o") (:immortal)
  +  (send-to-char ch "olc zcmd o <if-flag> <vnum> <max-loaded> <room> <prob>~%"))
  +
  +(defcommand (ch "olc" "zcmd" "o" junk) (:immortal)
  +  (declare (ignore junk))
  +  (send-to-char ch "olc zcmd o <if-flag> <vnum> <max-loaded> <room> <prob>~%"))
  +
   (defcommand (ch "olc" "zcmd" "o" if-flag vnum max-loaded room prob) (:immortal)
     (with-numeric-input ((if-flag "If-flag must be -1, 0, or 1.")
                          (vnum "Invalid vnum specified.")
  
positive.code:                (obj-to-char obj mob))))
           (send-to-char ch "Command completed ok.~%"))))))
  
  (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)))
  
negative.code:                (push-zcmd zone nil #\D 0 (number-of to-room)
                            (aref +rev-dir+ dir) exit-flags 100)))
             (send-to-char ch "Command completed ok.~%")))))))
  
  (defcommand (ch "olc" "zput") (:immortal)
    (send-to-char ch "Usage: olc zput <container-name> <obj-vnum> <max-loaded> <prob>~%"))
  
  (defcommand (ch "olc" "zput" junk) (:immortal)
    (declare (ignore junk))
    (send-to-char ch "Usage: olc zput <container-name> <obj-vnum> <max-loaded> <prob>~%"))
  
  (defcommand (ch "olc" "zput" container-name obj-vnum max-loaded prob) (:immortal)
    (with-numeric-input ((obj-vnum "Invalid vnum specified.")
  