Mercurial > emacs
comparison lisp/play/dunnet.el @ 4193:97649642e730
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 20 Jul 1993 21:15:26 +0000 |
| parents | 3a8e54f78c54 |
| children | 5988aab467cc |
comparison
equal
deleted
inserted
replaced
| 4192:d1bca0e276d2 | 4193:97649642e730 |
|---|---|
| 130 | 130 |
| 131 ;;; There is a special object in the room. This object's description, | 131 ;;; There is a special object in the room. This object's description, |
| 132 ;;; or lack thereof, depends on certain conditions. | 132 ;;; or lack thereof, depends on certain conditions. |
| 133 | 133 |
| 134 (defun dun-special-object () | 134 (defun dun-special-object () |
| 135 | |
| 136 (if (= dun-current-room computer-room) | 135 (if (= dun-current-room computer-room) |
| 137 (if dun-computer | 136 (if dun-computer |
| 138 (dun-mprincl | 137 (dun-mprincl |
| 139 "The panel lights are flashing in a seemingly organized pattern.") | 138 "The panel lights are flashing in a seemingly organized pattern.") |
| 140 (dun-mprincl "The panel lights are steady and motionless."))) | 139 (dun-mprincl "The panel lights are steady and motionless."))) |
| 3324 (fset 'dun-dos-interface 'dun-batch-dos-interface) | 3323 (fset 'dun-dos-interface 'dun-batch-dos-interface) |
| 3325 (fset 'dun-unix-interface 'dun-batch-unix-interface) | 3324 (fset 'dun-unix-interface 'dun-batch-unix-interface) |
| 3326 (dun-mprinc "\n") | 3325 (dun-mprinc "\n") |
| 3327 (setq dun-batch-mode t) | 3326 (setq dun-batch-mode t) |
| 3328 (dun-batch-loop)) | 3327 (dun-batch-loop)) |
| 3328 | |
| 3329 |