entered into RCS

diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el
index 4c4eff773f22e297230828f869c47f0b835febe5..e45f7ff3118fd4b4f97532e1389fd9f625507b34 100644 (file)
--- a/lisp/play/dunnet.el
+++ b/lisp/play/dunnet.el
@@ -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