Function: dun-sauna-heat

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

Signature

(dun-sauna-heat LEVEL)

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-sauna-heat (level)
  (cond
   ((= level 0)
    (dun-mprincl "The temperature has returned to normal room temperature."))
   ((= level 1)
    (dun-mprincl "It is now luke warm in here.  You are perspiring."))
   ((= level 2)
    (dun-mprincl "It is pretty hot in here.  It is still very comfortable."))
   ((= level 3)
    (dun-mprincl
     "It is now very hot.  There is something very refreshing about this.")
    (when (or (member obj-rms dun-inventory)
              (member obj-rms (nth dun-current-room dun-room-objects)))
        (dun-mprincl
"You notice the wax on your statuette beginning to melt, until it completely
melts off.  You are left with a beautiful diamond!")
        (if (member obj-rms dun-inventory)
            (progn
              (dun-remove-obj-from-inven obj-rms)
              (setq dun-inventory (append dun-inventory
                                          (list obj-diamond))))
          (dun-remove-obj-from-room dun-current-room obj-rms)
          (dun-replace dun-room-objects dun-current-room
                       (append (nth dun-current-room dun-room-objects)
                               (list obj-diamond)))))
    (when (or (member obj-floppy dun-inventory)
              (member obj-floppy (nth dun-current-room dun-room-objects)))
        (dun-mprincl
"You notice your floppy disk beginning to melt.  As you grab for it, the
disk bursts into flames, and disintegrates.")
        (if (member obj-floppy dun-inventory)
            (dun-remove-obj-from-inven obj-floppy)
          (dun-remove-obj-from-room dun-current-room obj-floppy))))

   ((= level 4)
    (dun-mprincl "As the dial clicks into place, you immediately burst into flames.")
    (dun-die "burning"))))