Function: dun-remove-obj-from-room

dun-remove-obj-from-room is a byte-compiled function defined in dunnet.el.gz.

Signature

(dun-remove-obj-from-room ROOM OBJNUM)

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
;;; Functions to remove an object either from a room, or from inventory.

(defun dun-remove-obj-from-room (room objnum)
  (let (newroom)
    (dolist (x (nth room dun-room-objects))
      (if (not (= x objnum))
	  (setq newroom (append newroom (list x)))))
    (rplaca (nthcdr room dun-room-objects) newroom)))