Function: dun-put-objs-in-treas

dun-put-objs-in-treas is a byte-compiled function defined in dunnet.el.gz.

Signature

(dun-put-objs-in-treas OBJLIST)

Documentation

Put objects in the treasure room.

Also prints current score to let user know he has scored.

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-put-objs-in-treas (objlist)
  "Put objects in the treasure room.
Also prints current score to let user know he has scored."
  (let (oscore newscore)
    (setq oscore (dun-reg-score))
    (dun-replace dun-room-objects 0 (append (nth 0 dun-room-objects) objlist))
    (setq newscore (dun-reg-score))
    (if (not (= oscore newscore))
	(dun-score nil))))