Function: dun-inven

dun-inven is a byte-compiled function defined in dunnet.el.gz.

Signature

(dun-inven ARGS)

Documentation

Print every object in player's inventory.

Special case for the jar, as we must also print what is in it.

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-inven (_args)
  "Print every object in player's inventory.
Special case for the jar, as we must also print what is in it."
  (dun-mprincl "You currently have:")
  (dolist (curobj dun-inventory)
    (when curobj
      (dun-mprincl (cadr (nth curobj dun-objects)))
      (when (and (= curobj obj-jar) dun-jar)
        (dun-mprincl "The jar contains:")
        (dolist (x dun-jar)
          (dun-mprincl "     " (cadr (nth x dun-objects))))))))