# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743446644 0
# Node ID 5988aab467cc3ef71aacb749a5ac0738464205bc
# Parent  bc70363458c3401bc06903924563d6cc95abd274
entered into RCS

diff -r bc70363458c3 -r 5988aab467cc lisp/play/dunnet.el
--- 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