Function: dun-swim

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

Signature

(dun-swim ARGS)

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-swim (_args)
  (cond
   ((not (member dun-current-room (list lakefront-north lakefront-south)))
    (dun-mprincl "I see no water!"))
   ((not (member obj-life dun-inventory))
    (dun-mprincl
"You dive in the water, and at first notice it is quite cold.  You then
start to get used to it as you realize that you never really learned how
to swim.")
    (dun-die "drowning"))
   ((= dun-current-room lakefront-north)
    (setq dun-current-room lakefront-south))
   (t (setq dun-current-room lakefront-north))))