anchor.diff:      (when (perform-olc-zcmd ch #\E if-flag vnum max-loaded pos prob :test 'check-zcmd-equip)
         (send-to-char ch "Command completed ok.~%"))))
   
  +(defcommand (ch "olc" "zcmd" "i") (:immortal)
  +  (send-to-char ch "Usage: olc zcmd i <if-flag> <vnum> <max-loaded> <pos> <prob>~%"))
  +
  +(defcommand (ch "olc" "zcmd" "i" junk) (:immortal)
  +  (declare (ignore junk))
  +  (send-to-char ch "Usage: olc zcmd i <if-flag> <vnum> <max-loaded> <pos> <prob>~%"))
  +
   (defcommand (ch "olc" "zcmd" "i" if-flag vnum max-loaded pos prob) (:immortal)
     (with-numeric-input ((if-flag "If-flag must be -1, 0, or 1.")
                          (vnum "Invalid vnum specified.")
  
positive.code: (defcommand (ch "olc" "zset" "top" value) (:immortal)
    (let ((zone (zone-of (in-room-of ch))))
      (when (check-can-edit ch zone +zone-zcmds-approved+)
        (let ((value (parse-integer value :junk-allowed t)))
          (cond
            ((not (security-is-member ch "OLCWorldWrite"))
             (send-to-char ch "You cannot alter zones in this way.~%"))
            ((null value)
             (send-to-char ch "The argument must be a number.~%"))
            ((some (lambda (zone)
                     (>= (* (number-of zone) 100) value (top-of zone)))
                   *zone-table*)
  
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.")
  