diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-23 16:57:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-23 16:57:24 +0000 |
| commit | 91e8a3aec83452b86e9d92e91fec31fdf48cb995 (patch) | |
| tree | 0e73790d8172a4d50f8b8563595e69ddf01c973e /lisp/play | |
| parent | d58a984e2f4066e9f6f4f522a4085c8680922853 (diff) | |
| download | emacs-91e8a3aec83452b86e9d92e91fec31fdf48cb995.tar.gz | |
entered into RCS
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/dunnet.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el index 4c4eff773f2..e45f7ff3118 100644 --- 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 |