Function: dun-drop

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

Signature

(dun-drop OBJ)

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-drop (obj)
  (if dun-inbus
      (dun-mprincl "You can't drop anything while on the bus.")
  (let (objnum)
    (when (setq objnum (dun-objnum-from-args-std obj))
      (if (not (member objnum dun-inventory))
	  (dun-mprincl "You don't have that.")
        (dun-remove-obj-from-inven objnum)
        (dun-replace dun-room-objects dun-current-room
                     (append (nth dun-current-room dun-room-objects)
                             (list objnum)))
        (dun-mprincl "Done.")
        (if (member objnum (list obj-food obj-weight obj-jar))
            (dun-drop-check objnum)))))))