anchor.diff:        ((null item)
          (send-to-char ch "Unable to find item.~%"))
         (t
  -       (load-help-item item)
  -       (with-pagination ((link-of ch))
  -        (send-to-char ch "&c~3d. &y~25a&cGroups:&n ~20a &cFlags: &n~a~%"
  -                      (idnum-of item)
  -                      (name-of item)
  -                      (printbits (groups-of item) +help-groups+ "NOBITS")
  -                      (printbits (flags-of item) +help-flags+ "NOBITS"))
  -        (send-to-char ch "     &cKeywords: [ &n~a&c ]&n~%~a~%"
  -                      (keywords-of item)
  -                      (text-of item)))))))
  +       (send-help-item-stat ch item)))))
   
   (defcommand (ch "hcollect" "search" term) (:immortal)
     (with-pagination ((link-of ch))
  
positive.code: 
  (defcommand (ch "help" topic) ()
    (dolist (item *help-items*)
      (when (term-matches-keywords topic (keywords-of item))
        (send-help-item ch item)
        (return-from do-help-topic)))
    (send-to-char ch "No items were found matching your search criteria.~%"))
  
  (defcommand (ch "immhelp") ()
    (send-help-item ch (find 699 *help-items* :key 'idnum-of)))
  
  (defcommand (ch "immhelp" topic) ()
    (dolist (item *help-items*)
      (when (and (not (zerop (logand (ash 1 23) (groups-of item))))
                 (term-matches-keywords topic (keywords-of item)))
  
negative.code:                           (setf (state-of cxn) 'playing))))))
  
  (defcommand (ch "hcollect" "set" "groups" plus-or-minus groups) (:immortal)
    (let ((group-names (split-sequence #\space groups)))
      (cond
        ((null (olc-help-of ch))
         (send-to-char ch "You have to be editing an item to set it.~%"))
        ((not (or (string= plus-or-minus "+")
                  (string= plus-or-minus "-")))
         (send-to-char ch "Usage: hcollect set groups +/- <groups>~%"))
        (t
         (dolist (group-name group-names)
           (let ((group-id (position group-name +help-group-names+
                                     :test 'string-abbrev)))
             (cond
               ((null group-id)
                (send-to-char ch "'~a' is not a valid help group.~%" group-name))
               ((string= plus-or-minus "-")
                (setf (groups-of (olc-help-of ch))
                      (logandc2 (groups-of (olc-help-of ch))
                                (ash 1 group-id)))
                (send-to-char ch "Item removed from group ~a.~%"
                              (aref +help-group-names+ group-id)))
               (t
                (setf (groups-of (olc-help-of ch))
                      (logior (groups-of (olc-help-of ch))
                              (ash 1 group-id)))
                (send-to-char ch "Item added to group ~a.~%" (aref +help-group-names+ group-id))))))))))
  
  (defcommand (ch "hcollect" "set" "flags" plus-or-minus flags) (:immortal)
    (let ((flag-names (split-sequence #\space flags)))
      (cond
        ((null (olc-help-of ch))
         (send-to-char ch "You have to be editing an item to set it.~%"))
        ((not (or (string= plus-or-minus "+")
                  (string= plus-or-minus "-")))
         (send-to-char ch "Usage: hcollect set flags +/- <flags>~%"))
        (t
         (dolist (flag-name flag-names)
           (let ((flag-id (position flag-name +help-flag-names+
                                     :test 'string-abbrev)))
             (cond
               ((null flag-id)
                (send-to-char ch "'~a' is not a valid help flag.~%" flag-name))
               ((string= plus-or-minus "-")
                (setf (flags-of (olc-help-of ch))
                      (logandc2 (flags-of (olc-help-of ch))
                                (ash 1 flag-id)))
                (send-to-char ch "Flag ~a unset on item.~%"
                              (aref +help-flag-names+ flag-id)))
               (t
                (setf (flags-of (olc-help-of ch))
                      (logior (flags-of (olc-help-of ch))
                              (ash 1 flag-id)))
                (send-to-char ch "Flag ~a set on item.~%" (aref +help-flag-names+ flag-id))))))))))
  
  (defcommand (ch "hcollect" "stat") (:immortal)
    (if (olc-help-of ch)
        (send-help-item-stat ch (olc-help-of ch))
        (send-to-char ch "Stat which item?~%")))
  
  (defcommand (ch "hcollect" "stat" topic) (:immortal)
    (let* ((idnum (parse-integer topic :junk-allowed t))
  