Mercurial > emacs

changeset 4245:5988aab467cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Richard M. Stallman <rms@gnu.org>
date Fri, 23 Jul 1993 16:57:24 +0000
parents bc70363458c3
children af9d2ade78ed
files lisp/play/dunnet.el
diffstat 1 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/dunnet.el	Fri Jul 23 08:04:52 1993 +0000
+++ b/lisp/play/dunnet.el	Fri Jul 23 16:57:24 1993 +0000
@@ -148,9 +148,15 @@
 your objects, to give off an eerie glow."))
   (if (and (= dun-current-room fourth-vermont-intersection) dun-hole)
       (progn
-	(dun-mprincl"You fall into a hole in the ground.")
-	(setq dun-current-room vermont-station)
-	(dun-describe-room vermont-station)))
+	(if (not dun-inbus)
+	    (progn
+	      (dun-mprincl"You fall into a hole in the ground.")
+	      (setq dun-current-room vermont-station)
+	      (dun-describe-room vermont-station))
+	  (progn
+	    (dun-mprincl 
+"The bus falls down a hole in the ground and explodes.")
+	    (dun-die "burning")))))
 
   (if (> dun-current-room endgame-computer-room)
       (progn