Function: dun-eat

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

Signature

(dun-eat OBJ)

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-eat (obj)
  (let ((objnum (dun-objnum-from-args-std obj)))
    (when objnum
      (cond
       ((not (member objnum dun-inventory))
        (dun-mprincl "You don't have that."))
       ((/= objnum obj-food)
        (dun-mprinc "You forcefully shove ")
        (dun-mprinc (downcase (cadr (nth objnum dun-objects))))
        (dun-mprincl " down your throat, and start choking.")
        (dun-die "choking"))
       (t
        (dun-mprincl "That tasted horrible.")
        (dun-remove-obj-from-inven obj-food))))))