Lines Matching +defs:dungeon +defs:mode
30 ;; This game can be run in batch mode. To do this, use:
55 ;;;; Mode definitions for interactive mode
57 (define-derived-mode dun-mode text-mode "Dungeon"
58 "Major mode for running dunnet."
63 "Function called when return is pressed in interactive mode to parse line."
81 (text-mode)
82 (if (eq dungeon-mode 'dungeon)
95 "Switch to *dungeon* buffer and start game."
97 (switch-to-buffer "*dungeon*")
98 (dun-mode)
116 (string= dun-mode "dun-superb")) (> room 0))
117 (not (string= dun-mode "long")))
121 (if (not (string= dun-mode "long"))
620 ;;; Uses the dungeon-map to figure out where we are going. If the
634 (setq newroom (nth dir (nth dun-current-room dungeon-map)))
675 (if (not dun-batch-mode)
785 (setq dun-mode "long"))
939 - To run this game in batch mode (no Emacs window), use:
941 NOTE: This game *should* be run in batch mode!
1028 (setq dun-mode 'dun-superb))
1185 ;;; Read a line, in window mode
1199 ;;; Print something out, in window mode
1206 ;;; In window mode, keep screen from jumping by keeping last line at
1366 (define-obsolete-variable-alias 'dungeon-mode-map 'dun-mode-map "22.1")
1367 (define-key dun-mode-map "\r" 'dun-parse)
1368 (defvar dungeon-batch-map (make-keymap))
1373 (aset dungeon-batch-map n 'dungeon-nil)))
1377 (aset (car (cdr dungeon-batch-map)) n 'dungeon-nil))))
1378 (define-key dungeon-batch-map "\r" 'exit-minibuffer)
1379 (define-key dungeon-batch-map "\n" 'exit-minibuffer)
1394 (setq dungeon-mode 'dungeon)
1406 (setq dun-batch-mode nil)
1413 '(dun-room-objects dungeon-map dun-rooms
1965 (setq dun-mode 'moby)
1981 (setq dungeon-map '(
2530 (if (eq dungeon-mode 'unix)
2540 (if (not dun-batch-mode)
2571 (switch-to-buffer (get-buffer-create "*dungeon-eval*"))
2583 (switch-to-buffer "*dungeon*")
2592 (setq dungeon-mode 'unix)
2593 (define-key dun-mode-map "\r" 'dun-unix-parse)
2602 (if (not dun-batch-mode)
2606 (if (not dun-batch-mode)
2620 (setq dungeon-mode 'dungeon)))
2732 (if dun-batch-mode
2736 (if dun-batch-mode
2741 (if dun-batch-mode
2748 (if dun-batch-mode
2751 (if dun-batch-mode
2857 (setq dungeon-mode 'dungeon)
2859 (define-key dun-mode-map "\r" 'dun-parse)
2860 (if (not dun-batch-mode)
3050 (if (eq dungeon-mode 'dos)
3057 (setq dungeon-mode 'dos)
3058 (define-key dun-mode-map "\r" 'dun-dos-parse)
3106 (if (not dun-batch-mode)
3114 (setq dungeon-mode 'dungeon)
3116 (define-key dun-mode-map "\r" 'dun-parse)
3117 (if (not dun-batch-mode)
3155 (dun-save-val "dungeon-mode")
3177 (switch-to-buffer "*dungeon*")
3182 (switch-to-buffer (get-buffer-create "*save-dungeon*"))
3268 ;;;; These are functions, and function re-definitions so that dungeon can
3269 ;;;; be run in batch mode.
3295 (read-from-minibuffer "" nil dungeon-batch-map))
3302 (if (eq dungeon-mode 'dungeon)
3315 (setq dungeon-mode 'dos)
3316 (while (eq dungeon-mode 'dos)
3330 (setq dungeon-mode 'unix)
3331 (while (eq dungeon-mode 'unix)
3343 (defun dungeon-nil (arg)
3348 (defun dun-batch-dungeon ()
3363 (setq dun-batch-mode t)