Function: dun-answer

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

Signature

(dun-answer ARGS)

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-answer (args)
  (if (not dun-correct-answer)
      (dun-mprincl "I don't believe anyone asked you anything.")
    (setq args (car args))
    (if (not args)
	(dun-mprincl "You must give the answer on the same line.")
      (if (member args dun-correct-answer)
	  (progn
	    (dun-mprincl "Correct.")
	    (if (= dun-lastdir 0)
		(setq dun-current-room (1+ dun-current-room))
	      (setq dun-current-room (- dun-current-room 1)))
	    (setq dun-correct-answer nil))
	(dun-mprincl "That answer is incorrect.")))))