annotate lisp/play/dunnet.el @ 19984:2195c8746e05

(push_key_description): Delete useless `if' statement.
author Kenichi Handa <handa@m17n.org>
date Thu, 25 Sep 1997 12:25:01 +0000
parents 704d3934673d
children f1fc193b6958
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 ;;; dunnet.el --- Text adventure for Emacs
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13952
diff changeset
3 ;; Copyright (C) 1992, 1993 Free Software Foundation, Inc.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13952
diff changeset
4
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
5 ;; Author: Ron Schnell <ronnie@driver-aces.com>
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; Created: 25 Jul 1992
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
7 ;; Version: 2.01
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;; Keywords: games
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; any later version.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13952
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13952
diff changeset
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13952
diff changeset
25 ;; Boston, MA 02111-1307, USA.
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;;; Commentary:
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 ;; This game can be run in batch mode. To do this, use:
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
30 ;; emacs -batch -l dunnet
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 ;;; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 ;;; The log file should be set for your system, and it must
13952
de80a367ca08 (dun-cd): Fix local var misspelling.
Karl Heuer <kwzh@gnu.org>
parents: 13076
diff changeset
34 ;;; be writable by all.
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36
14743
345ee562c72a Require cl only when compiling.
Richard M. Stallman <rms@gnu.org>
parents: 14640
diff changeset
37 (defvar dun-log-file "/usr/local/dunnet.score"
345ee562c72a Require cl only when compiling.
Richard M. Stallman <rms@gnu.org>
parents: 14640
diff changeset
38 "Name of file to store score information for dunnet.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 (if nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 (eval-and-compile (setq byte-compile-warnings nil)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42
14743
345ee562c72a Require cl only when compiling.
Richard M. Stallman <rms@gnu.org>
parents: 14640
diff changeset
43 (eval-when-compile
345ee562c72a Require cl only when compiling.
Richard M. Stallman <rms@gnu.org>
parents: 14640
diff changeset
44 (require 'cl))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 ;;;; Mode definitions for interactive mode
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
48 (defun dun-mode ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
49 "Major mode for running dunnet."
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 (interactive)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 (text-mode)
14743
345ee562c72a Require cl only when compiling.
Richard M. Stallman <rms@gnu.org>
parents: 14640
diff changeset
52 (make-local-variable 'scroll-step)
345ee562c72a Require cl only when compiling.
Richard M. Stallman <rms@gnu.org>
parents: 14640
diff changeset
53 (setq scroll-step 2)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 (use-local-map dungeon-mode-map)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 (setq major-mode 'dungeon-mode)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 (setq mode-name "Dungeon"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
58 (defun dun-parse (arg)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
59 "Function called when return is pressed in interactive mode to parse line."
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 (interactive "*p")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 (beginning-of-line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 (setq beg (+ (point) 1))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 (end-of-line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 (if (and (not (= beg (point))) (not (< (point) beg))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 (string= ">" (buffer-substring (- beg 1) beg)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 (setq line (downcase (buffer-substring beg (point))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 (princ line)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
69 (if (eq (dun-vparse dun-ignore dun-verblist line) -1)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
70 (dun-mprinc "I don't understand that.\n")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 (goto-char (point-max))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
72 (dun-mprinc "\n"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
73 (dun-messages))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
75 (defun dun-messages ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
76 (if dun-dead
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 (text-mode)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 (if (eq dungeon-mode 'dungeon)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
80 (if (not (= room dun-current-room))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
82 (dun-describe-room dun-current-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
83 (setq room dun-current-room)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
84 (dun-fix-screen)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
85 (dun-mprinc ">")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 ;;;###autoload
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 (defun dunnet ()
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 "Switch to *dungeon* buffer and start game."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 (interactive)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 (switch-to-buffer "*dungeon*")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
93 (dun-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
94 (setq dun-dead nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 (setq room 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
96 (dun-messages))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 ;;;; This section contains all of the verbs and commands.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 ;;; Give long description of room if haven't been there yet. Otherwise
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 ;;; short. Also give long if we were called with negative room number.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
105 (defun dun-describe-room (room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
106 (if (and (not (member (abs room) dun-light-rooms))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
107 (not (member obj-lamp dun-inventory)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
108 (dun-mprincl "It is pitch dark. You are likely to be eaten by a grue.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
109 (dun-mprincl (cadr (nth (abs room) dun-rooms)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
110 (if (and (and (or (member room dun-visited)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
111 (string= dun-mode "dun-superb")) (> room 0))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
112 (not (string= dun-mode "long")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 nil
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
114 (dun-mprinc (car (nth (abs room) dun-rooms)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
115 (dun-mprinc "\n"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
116 (if (not (string= dun-mode "long"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
117 (if (not (member (abs room) dun-visited))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
118 (setq dun-visited (append (list (abs room)) dun-visited))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
119 (dolist (xobjs (nth dun-current-room dun-room-objects))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 (if (= xobjs obj-special)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
121 (dun-special-object)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 (if (>= xobjs 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
123 (dun-mprincl (car (nth xobjs dun-objects)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
124 (if (not (and (= xobjs obj-bus) dun-inbus))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
126 (dun-mprincl (car (nth (abs xobjs) dun-perm-objects)))))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
127 (if (and (= xobjs obj-jar) dun-jar)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
129 (dun-mprincl "The jar contains:")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
130 (dolist (x dun-jar)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
131 (dun-mprinc " ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
132 (dun-mprincl (car (nth x dun-objects)))))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
133 (if (and (member obj-bus (nth dun-current-room dun-room-objects)) dun-inbus)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
134 (dun-mprincl "You are on the bus."))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 ;;; There is a special object in the room. This object's description,
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 ;;; or lack thereof, depends on certain conditions.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
139 (defun dun-special-object ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
140 (if (= dun-current-room computer-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
141 (if dun-computer
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
142 (dun-mprincl
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
143 "The panel lights are flashing in a seemingly organized pattern.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
144 (dun-mprincl "The panel lights are steady and motionless.")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
146 (if (and (= dun-current-room red-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
147 (not (member obj-towel (nth red-room dun-room-objects))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
148 (dun-mprincl "There is a hole in the floor here."))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
149
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
150 (if (and (= dun-current-room marine-life-area) dun-black)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
151 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 "The room is lit by a black light, causing the fish, and some of
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 your objects, to give off an eerie glow."))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
154 (if (and (= dun-current-room fourth-vermont-intersection) dun-hole)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 (progn
4245
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
156 (if (not dun-inbus)
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
157 (progn
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
158 (dun-mprincl"You fall into a hole in the ground.")
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
159 (setq dun-current-room vermont-station)
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
160 (dun-describe-room vermont-station))
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
161 (progn
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
162 (dun-mprincl
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
163 "The bus falls down a hole in the ground and explodes.")
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
164 (dun-die "burning")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
166 (if (> dun-current-room endgame-computer-room)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
168 (if (not dun-correct-answer)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
169 (dun-endgame-question)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
170 (dun-mprincl "Your question is:")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
171 (dun-mprincl dun-endgame-question))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
173 (if (= dun-current-room sauna)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
175 (dun-mprincl (nth dun-sauna-level '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 "It is normal room temperature in here."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 "It is luke warm in here."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 "It is comfortably hot in here."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 "It is refreshingly hot in here."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180 "You are dead now.")))
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
181 (if (= dun-sauna-level 3)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 (progn
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
183 (if (or (member obj-rms dun-inventory)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
184 (member obj-rms (nth dun-current-room dun-room-objects)))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
185 (progn
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
186 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 "You notice the wax on your statuette beginning to melt, until it completely
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 melts off. You are left with a beautiful diamond!")
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
189 (if (member obj-rms dun-inventory)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
190 (progn
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
191 (dun-remove-obj-from-inven obj-rms)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
192 (setq dun-inventory (append dun-inventory
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
193 (list obj-diamond))))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
194 (dun-remove-obj-from-room dun-current-room obj-rms)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
195 (dun-replace dun-room-objects dun-current-room
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
196 (append (nth dun-current-room dun-room-objects)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
197 (list obj-diamond))))))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
198 (if (or (member obj-floppy dun-inventory)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
199 (member obj-floppy (nth dun-current-room dun-room-objects)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
201 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 "You notice your floppy disk beginning to melt. As you grab for it, the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203 disk bursts into flames, and disintegrates.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
204 (dun-remove-obj-from-inven obj-floppy)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
205 (dun-remove-obj-from-room dun-current-room obj-floppy))))))))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
206
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
208 (defun dun-die (murderer)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
209 (dun-mprinc "\n")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 (if murderer
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
211 (dun-mprincl "You are dead."))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
212 (dun-do-logfile 'dun-die murderer)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
213 (dun-score nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
214 (setq dun-dead t))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
216 (defun dun-quit (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
217 (dun-die nil))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 ;;; Print every object in player's inventory. Special case for the jar,
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220 ;;; as we must also print what is in it.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
222 (defun dun-inven (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
223 (dun-mprinc "You currently have:")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
224 (dun-mprinc "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
225 (dolist (curobj dun-inventory)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 (if curobj
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
228 (dun-mprincl (cadr (nth curobj dun-objects)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
229 (if (and (= curobj obj-jar) dun-jar)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
231 (dun-mprincl "The jar contains:")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
232 (dolist (x dun-jar)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
233 (dun-mprinc " ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
234 (dun-mprincl (cadr (nth x dun-objects))))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
236 (defun dun-shake (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
237 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
238 (when (setq objnum (dun-objnum-from-args-std obj))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
239 (if (member objnum dun-inventory)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241 ;;; If shaking anything will do anything, put here.
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
242 (dun-mprinc "Shaking ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
243 (dun-mprinc (downcase (cadr (nth objnum dun-objects))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
244 (dun-mprinc " seems to have no effect.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
245 (dun-mprinc "\n")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246 )
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
247 (if (and (not (member objnum (nth dun-current-room dun-room-silents)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
248 (not (member objnum (nth dun-current-room dun-room-objects))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
249 (dun-mprincl "I don't see that here.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250 ;;; Shaking trees can be deadly
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251 (if (= objnum obj-tree)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
252 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
253 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254 "You begin to shake a tree, and notice a coconut begin to fall from the air.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 As you try to get your hand up to block it, you feel the impact as it lands
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 on your head.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
257 (dun-die "a coconut"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 (if (= objnum obj-bear)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
260 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 "As you go up to the bear, it removes your head and places it on the ground.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
262 (dun-die "a bear"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 (if (< objnum 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
264 (dun-mprincl "You cannot shake that.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
265 (dun-mprincl "You don't have that.")))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
268 (defun dun-drop (obj)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
269 (if dun-inbus
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
270 (dun-mprincl "You can't drop anything while on the bus.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 (let (objnum ptr)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
272 (when (setq objnum (dun-objnum-from-args-std obj))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
273 (if (not (setq ptr (member objnum dun-inventory)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
274 (dun-mprincl "You don't have that.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
276 (dun-remove-obj-from-inven objnum)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
277 (dun-replace dun-room-objects dun-current-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
278 (append (nth dun-current-room dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 (list objnum)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
280 (dun-mprincl "Done.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 (if (member objnum (list obj-food obj-weight obj-jar))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
282 (dun-drop-check objnum))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 ;;; Dropping certain things causes things to happen.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
286 (defun dun-drop-check (objnum)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 (if (and (= objnum obj-food) (= room bear-hangout)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
288 (member obj-bear (nth bear-hangout dun-room-objects)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
290 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 "The bear takes the food and runs away with it. He left something behind.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
292 (dun-remove-obj-from-room dun-current-room obj-bear)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
293 (dun-remove-obj-from-room dun-current-room obj-food)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
294 (dun-replace dun-room-objects dun-current-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
295 (append (nth dun-current-room dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 (list obj-key)))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
298 (if (and (= objnum obj-jar) (member obj-nitric dun-jar)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
299 (member obj-glycerine dun-jar))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
301 (dun-mprincl
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
302 "As the jar impacts the ground it explodes into many pieces.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
303 (setq dun-jar nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
304 (dun-remove-obj-from-room dun-current-room obj-jar)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
305 (if (= dun-current-room fourth-vermont-intersection)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
307 (setq dun-hole t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
308 (setq dun-current-room vermont-station)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
309 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310 "The explosion causes a hole to open up in the ground, which you fall
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 through.")))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
313 (if (and (= objnum obj-weight) (= dun-current-room maze-button-room))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
314 (dun-mprincl "A passageway opens.")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 ;;; Give long description of current room, or an object.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
318 (defun dun-examine (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
320 (setq objnum (dun-objnum-from-args obj))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 (if (eq objnum obj-special)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
322 (dun-describe-room (* dun-current-room -1))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323 (if (and (eq objnum obj-computer)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
324 (member obj-pc (nth dun-current-room dun-room-silents)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
325 (dun-examine '("pc"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326 (if (eq objnum nil)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
327 (dun-mprincl "I don't know what that is.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
328 (if (and (not (member objnum
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
329 (nth dun-current-room dun-room-objects)))
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
330 (not (and (member obj-jar dun-inventory)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
331 (member objnum dun-jar)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
332 (not (member objnum
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
333 (nth dun-current-room dun-room-silents)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
334 (not (member objnum dun-inventory)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
335 (dun-mprincl "I don't see that here.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 (if (>= objnum 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337 (if (and (= objnum obj-bone)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
338 (= dun-current-room marine-life-area) dun-black)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
339 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 "In this light you can see some writing on the bone. It says:
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
341 For an explosive time, go to Fourth St. and Vermont.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
342 (if (nth objnum dun-physobj-desc)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
343 (dun-mprincl (nth objnum dun-physobj-desc))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
344 (dun-mprincl "I see nothing special about that.")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
345 (if (nth (abs objnum) dun-permobj-desc)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
347 (dun-mprincl (nth (abs objnum) dun-permobj-desc)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
348 (dun-mprincl "I see nothing special about that.")))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
350 (defun dun-take (obj)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
351 (setq obj (dun-firstword obj))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
352 (if (not obj)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
353 (dun-mprincl "You must supply an object.")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
354 (if (string= obj "all")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
355 (let (gotsome)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
356 (if dun-inbus
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
357 (dun-mprincl "You can't take anything while on the bus.")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
358 (setq gotsome nil)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
359 (dolist (x (nth dun-current-room dun-room-objects))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
360 (if (and (>= x 0) (not (= x obj-special)))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
361 (progn
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
362 (setq gotsome t)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
363 (dun-mprinc (cadr (nth x dun-objects)))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
364 (dun-mprinc ": ")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
365 (dun-take-object x))))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
366 (if (not gotsome)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
367 (dun-mprincl "Nothing to take."))))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
368 (let (objnum)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
369 (setq objnum (cdr (assq (intern obj) dun-objnames)))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
370 (if (eq objnum nil)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
371 (progn
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
372 (dun-mprinc "I don't know what that is.")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
373 (dun-mprinc "\n"))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
374 (if (and dun-inbus (not (and (member objnum dun-jar)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
375 (member obj-jar dun-inventory))))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
376 (dun-mprincl "You can't take anything while on the bus.")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
377 (dun-take-object objnum)))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
378
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
379 (defun dun-take-object (objnum)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
380 (if (and (member objnum dun-jar) (member obj-jar dun-inventory))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
381 (let (newjar)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
382 (dun-mprincl "You remove it from the jar.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
383 (setq newjar nil)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
384 (dolist (x dun-jar)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
385 (if (not (= x objnum))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 (setq newjar (append newjar (list x)))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
387 (setq dun-jar newjar)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
388 (setq dun-inventory (append dun-inventory (list objnum))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
389 (if (not (member objnum (nth dun-current-room dun-room-objects)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
390 (if (not (member objnum (nth dun-current-room dun-room-silents)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
391 (dun-mprinc "I do not see that here.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
392 (dun-try-take objnum))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 (if (>= objnum 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
395 (if (and (car dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
396 (> (+ (dun-inven-weight) (nth objnum dun-object-lbs)) 11))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
397 (dun-mprinc "Your load would be too heavy.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
398 (setq dun-inventory (append dun-inventory (list objnum)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
399 (dun-remove-obj-from-room dun-current-room objnum)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
400 (dun-mprinc "Taken. ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
401 (if (and (= objnum obj-towel) (= dun-current-room red-room))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
402 (dun-mprinc
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
403 "Taking the towel reveals a hole in the floor."))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
404 (dun-try-take objnum)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
405 (dun-mprinc "\n")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
407 (defun dun-inven-weight ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 (let (total)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 (setq total 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
410 (dolist (x dun-jar)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
411 (setq total (+ total (nth x dun-object-lbs))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
412 (dolist (x dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
413 (setq total (+ total (nth x dun-object-lbs)))) total))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415 ;;; We try to take an object that is untakable. Print a message
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416 ;;; depending on what it is.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
417
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
418 (defun dun-try-take (obj)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
419 (dun-mprinc "You cannot take that."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
421 (defun dun-dig (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
422 (if dun-inbus
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
423 (dun-mprincl "Digging here reveals nothing.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
424 (if (not (member 0 dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
425 (dun-mprincl "You have nothing with which to dig.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
426 (if (not (nth dun-current-room dun-diggables))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
427 (dun-mprincl "Digging here reveals nothing.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
428 (dun-mprincl "I think you found something.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
429 (dun-replace dun-room-objects dun-current-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
430 (append (nth dun-current-room dun-room-objects)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
431 (nth dun-current-room dun-diggables)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
432 (dun-replace dun-diggables dun-current-room nil)))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
434 (defun dun-climb (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
435 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
436 (setq objnum (dun-objnum-from-args obj))
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
437 (cond ((not objnum)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
438 (dun-mprincl "I don't know what that object is."))
13076
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
439 ((and (not (eq objnum obj-special))
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
440 (not (member objnum (nth dun-current-room dun-room-objects)))
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
441 (not (member objnum (nth dun-current-room dun-room-silents)))
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
442 (not (and (member objnum dun-jar) (member obj-jar dun-inventory)))
13076
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
443 (not (member objnum dun-inventory)))
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
444 (dun-mprincl "I don't see that here."))
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
445 ((and (eq objnum obj-special)
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
446 (not (member obj-tree (nth dun-current-room dun-room-silents))))
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
447 (dun-mprincl "There is nothing here to climb."))
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
448 ((and (not (eq objnum obj-tree)) (not (eq objnum obj-special)))
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
449 (dun-mprincl "You can't climb that."))
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
450 (t
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
451 (dun-mprincl
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
452 "You manage to get about two feet up the tree and fall back down. You
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
453 notice that the tree is very unsteady.")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
454
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
455 (defun dun-eat (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
456 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
457 (when (setq objnum (dun-objnum-from-args-std obj))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
458 (if (not (member objnum dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
459 (dun-mprincl "You don't have that.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
460 (if (not (= objnum obj-food))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
461 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
462 (dun-mprinc "You forcefully shove ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
463 (dun-mprinc (downcase (cadr (nth objnum dun-objects))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
464 (dun-mprincl " down your throat, and start choking.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
465 (dun-die "choking"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
466 (dun-mprincl "That tasted horrible.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
467 (dun-remove-obj-from-inven obj-food))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
469 (defun dun-put (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 (let (newargs objnum objnum2 obj)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
471 (setq newargs (dun-firstwordl args))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 (if (not newargs)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
473 (dun-mprincl "You must supply an object")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 (setq obj (intern (car newargs)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
475 (setq objnum (cdr (assq obj dun-objnames)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 (if (not objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
477 (dun-mprincl "I don't know what that object is.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
478 (if (not (member objnum dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
479 (dun-mprincl "You don't have that.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
480 (setq newargs (dun-firstwordl (cdr newargs)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
481 (setq newargs (dun-firstwordl (cdr newargs)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
482 (if (not newargs)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
483 (dun-mprincl "You must supply an indirect object.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
484 (setq objnum2 (cdr (assq (intern (car newargs)) dun-objnames)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
485 (if (and (eq objnum2 obj-computer) (= dun-current-room pc-area))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
486 (setq objnum2 obj-pc))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 (if (not objnum2)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
488 (dun-mprincl "I don't know what that indirect object is.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
489 (if (and (not (member objnum2
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
490 (nth dun-current-room dun-room-objects)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
491 (not (member objnum2
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
492 (nth dun-current-room dun-room-silents)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
493 (not (member objnum2 dun-inventory)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
494 (dun-mprincl "That indirect object is not here.")
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
495 (dun-put-objs objnum objnum2)))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
497 (defun dun-put-objs (obj1 obj2)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
498 (if (and (= obj2 obj-drop) (not dun-nomail))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 (setq obj2 obj-chute))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 (if (= obj2 obj-disposal) (setq obj2 obj-chute))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 (if (and (= obj1 obj-cpu) (= obj2 obj-computer))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
505 (dun-remove-obj-from-inven obj-cpu)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
506 (setq dun-computer t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
507 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 "As you put the CPU board in the computer, it immediately springs to life.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 The lights start flashing, and the fans seem to startup."))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 (if (and (= obj1 obj-weight) (= obj2 obj-button))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
511 (dun-drop '("weight"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 (if (= obj2 obj-jar) ;; Put something in jar
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 (if (not (member obj1 (list obj-paper obj-diamond obj-emerald
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 obj-license obj-coins obj-egg
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 obj-nitric obj-glycerine)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
516 (dun-mprincl "That will not fit in the jar.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
517 (dun-remove-obj-from-inven obj1)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
518 (setq dun-jar (append dun-jar (list obj1)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
519 (dun-mprincl "Done."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 (if (= obj2 obj-chute) ;; Put something in chute
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
522 (dun-remove-obj-from-inven obj1)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
523 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 "You hear it slide down the chute and off into the distance.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
525 (dun-put-objs-in-treas (list obj1)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 (if (= obj2 obj-box) ;; Put key in key box
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 (if (= obj1 obj-key)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
529 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 "As you drop the key, the box begins to shake. Finally it explodes
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 with a bang. The key seems to have vanished!")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
532 (dun-remove-obj-from-inven obj1)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
533 (dun-replace dun-room-objects computer-room (append
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 (nth computer-room
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
535 dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536 (list obj1)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
537 (dun-remove-obj-from-room dun-current-room obj-box)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
538 (setq dun-key-level (1+ dun-key-level)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
539 (dun-mprincl "You can't put that in the key box!"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541 (if (and (= obj1 obj-floppy) (= obj2 obj-pc))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
542 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
543 (setq dun-floppy t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
544 (dun-remove-obj-from-inven obj1)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
545 (dun-mprincl "Done."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 (if (= obj2 obj-urinal) ;; Put object in urinal
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
549 (dun-remove-obj-from-inven obj1)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
550 (dun-replace dun-room-objects urinal (append
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
551 (nth urinal dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 (list obj1)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
553 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 "You hear it plop down in some water below."))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
555 (if (= obj2 obj-mail)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
556 (dun-mprincl "The mail chute is locked.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
557 (if (member obj1 dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
558 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
559 "I don't know how to combine those objects. Perhaps you should
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
560 just try dropping it.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
561 (dun-mprincl"You can't put that there.")))))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
563 (defun dun-type (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
564 (if (not (= dun-current-room computer-room))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
565 (dun-mprincl "There is nothing here on which you could type.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
566 (if (not dun-computer)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
567 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 "You type on the keyboard, but your characters do not even echo.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
569 (dun-unix-interface))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571 ;;; Various movement directions
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
573 (defun dun-n (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
574 (dun-move north))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
576 (defun dun-s (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
577 (dun-move south))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
579 (defun dun-e (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
580 (dun-move east))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
582 (defun dun-w (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
583 (dun-move west))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
584
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
585 (defun dun-ne (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
586 (dun-move northeast))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
588 (defun dun-se (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
589 (dun-move southeast))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
591 (defun dun-nw (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
592 (dun-move northwest))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
594 (defun dun-sw (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
595 (dun-move southwest))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
597 (defun dun-up (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
598 (dun-move up))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
600 (defun dun-down (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
601 (dun-move down))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
603 (defun dun-in (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
604 (dun-move in))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
606 (defun dun-out (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
607 (dun-move out))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
609 (defun dun-go (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 (if (or (not (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
611 (eq (dun-doverb dun-ignore dun-verblist (car args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
612 (cdr (cdr args))) -1))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
613 (dun-mprinc "I don't understand where you want me to go.\n")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
615 ;;; Uses the dungeon-map to figure out where we are going. If the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616 ;;; requested direction yields 255, we know something special is
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
617 ;;; supposed to happen, or perhaps you can't go that way unless
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 ;;; certain conditions are met.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
620 (defun dun-move (dir)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
621 (if (and (not (member dun-current-room dun-light-rooms))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
622 (not (member obj-lamp dun-inventory)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
624 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 "You trip over a grue and fall into a pit and break every bone in your
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626 body.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
627 (dun-die "a grue"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 (let (newroom)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
629 (setq newroom (nth dir (nth dun-current-room dungeon-map)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630 (if (eq newroom -1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
631 (dun-mprinc "You can't go that way.\n")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632 (if (eq newroom 255)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
633 (dun-special-move dir)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 (setq room -1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
635 (setq dun-lastdir dir)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
636 (if dun-inbus
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
637 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638 (if (or (< newroom 58) (> newroom 83))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
639 (dun-mprincl "The bus cannot go this way.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
640 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
641 "The bus lurches ahead and comes to a screeching halt.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
642 (dun-remove-obj-from-room dun-current-room obj-bus)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
643 (setq dun-current-room newroom)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
644 (dun-replace dun-room-objects newroom
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
645 (append (nth newroom dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646 (list obj-bus)))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
647 (setq dun-current-room newroom)))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
648
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
649 ;;; Movement in this direction causes something special to happen if the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
650 ;;; right conditions exist. It may be that you can't go this way unless
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
651 ;;; you have a key, or a passage has been opened.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 ;;; coding note: Each check of the current room is on the same 'if' level,
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 ;;; i.e. there aren't else's. If two rooms next to each other have
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
655 ;;; specials, and they are connected by specials, this could cause
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
656 ;;; a problem. Be careful when adding them to consider this, and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 ;;; perhaps use else's.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
658
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
659 (defun dun-special-move (dir)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
660 (if (= dun-current-room building-front)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
661 (if (not (member obj-key dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
662 (dun-mprincl "You don't have a key that can open this door.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
663 (setq dun-current-room old-building-hallway))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
664 (if (= dun-current-room north-end-of-cave-passage)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665 (let (combo)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
666 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
667 "You must type a 3 digit combination code to enter this room.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
668 (dun-mprinc "Enter it here: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
669 (setq combo (dun-read-line))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
670 (if (not dun-batch-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
671 (dun-mprinc "\n"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
672 (if (string= combo dun-combination)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
673 (setq dun-current-room gamma-computing-center)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
674 (dun-mprincl "Sorry, that combination is incorrect."))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
676 (if (= dun-current-room bear-hangout)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
677 (if (member obj-bear (nth bear-hangout dun-room-objects))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
678 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
679 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
680 "The bear is very annoyed that you would be so presumptuous as to try
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
681 and walk right by it. He tells you so by tearing your head off.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682 ")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
683 (dun-die "a bear"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
684 (dun-mprincl "You can't go that way.")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
685
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
686 (if (= dun-current-room vermont-station)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
687 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
688 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
689 "As you board the train it immediately leaves the station. It is a very
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
690 bumpy ride. It is shaking from side to side, and up and down. You
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
691 sit down in one of the chairs in order to be more comfortable.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
692 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
693 "\nFinally the train comes to a sudden stop, and the doors open, and some
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
694 force throws you out. The train speeds away.\n")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
695 (setq dun-current-room museum-station)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
696
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
697 (if (= dun-current-room old-building-hallway)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
698 (if (and (member obj-key dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
699 (> dun-key-level 0))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
700 (setq dun-current-room meadow)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
701 (dun-mprincl "You don't have a key that can open this door.")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
702
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
703 (if (and (= dun-current-room maze-button-room) (= dir northwest))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
704 (if (member obj-weight (nth maze-button-room dun-room-objects))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
705 (setq dun-current-room 18)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
706 (dun-mprincl "You can't go that way.")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
708 (if (and (= dun-current-room maze-button-room) (= dir up))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
709 (if (member obj-weight (nth maze-button-room dun-room-objects))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
710 (dun-mprincl "You can't go that way.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
711 (setq dun-current-room weight-room)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
712
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
713 (if (= dun-current-room classroom)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
714 (dun-mprincl "The door is locked."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
715
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
716 (if (or (= dun-current-room lakefront-north)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
717 (= dun-current-room lakefront-south))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
718 (dun-swim nil))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
719
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
720 (if (= dun-current-room reception-area)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
721 (if (not (= dun-sauna-level 3))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
722 (setq dun-current-room health-club-front)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
723 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
724 "As you exit the building, you notice some flames coming out of one of the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
725 windows. Suddenly, the building explodes in a huge ball of fire. The flames
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
726 engulf you, and you burn to death.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
727 (dun-die "burning")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
728
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
729 (if (= dun-current-room red-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
730 (if (not (member obj-towel (nth red-room dun-room-objects)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
731 (setq dun-current-room long-n-s-hallway)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
732 (dun-mprincl "You can't go that way.")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
733
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
734 (if (and (> dir down) (> dun-current-room gamma-computing-center)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
735 (< dun-current-room museum-lobby))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
736 (if (not (member obj-bus (nth dun-current-room dun-room-objects)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
737 (dun-mprincl "You can't go that way.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
738 (if (= dir in)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
739 (if dun-inbus
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
740 (dun-mprincl
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
741 "You are already in the bus!")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
742 (if (member obj-license dun-inventory)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
743 (progn
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
744 (dun-mprincl
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
745 "You board the bus and get in the driver's seat.")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
746 (setq dun-nomail t)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
747 (setq dun-inbus t))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
748 (dun-mprincl "You are not licensed for this type of vehicle.")))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
749 (if (not dun-inbus)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
750 (dun-mprincl "You are already off the bus!")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
751 (dun-mprincl "You hop off the bus.")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
752 (setq dun-inbus nil))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
753 (if (= dun-current-room fifth-oaktree-intersection)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
754 (if (not dun-inbus)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
755 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
756 (dun-mprincl "You fall down the cliff and land on your head.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
757 (dun-die "a cliff"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
758 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
759 "The bus flies off the cliff, and plunges to the bottom, where it explodes.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
760 (dun-die "a bus accident")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
761 (if (= dun-current-room main-maple-intersection)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
762 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
763 (if (not dun-inbus)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
764 (dun-mprincl "The gate will not open.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
765 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766 "As the bus approaches, the gate opens and you drive through.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
767 (dun-remove-obj-from-room main-maple-intersection obj-bus)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
768 (dun-replace dun-room-objects museum-entrance
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
769 (append (nth museum-entrance dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
770 (list obj-bus)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
771 (setq dun-current-room museum-entrance)))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
772 (if (= dun-current-room cave-entrance)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
773 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
774 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
775 "As you enter the room you hear a rumbling noise. You look back to see
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
776 huge rocks sliding down from the ceiling, and blocking your way out.\n")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
777 (setq dun-current-room misty-room)))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
778
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
779 (defun dun-long (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
780 (setq dun-mode "long"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
781
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
782 (defun dun-turn (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
783 (let (objnum direction)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
784 (when (setq objnum (dun-objnum-from-args-std obj))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
785 (if (not (or (member objnum (nth dun-current-room dun-room-objects))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
786 (member objnum (nth dun-current-room dun-room-silents))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
787 (dun-mprincl "I don't see that here.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
788 (if (not (= objnum obj-dial))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
789 (dun-mprincl "You can't turn that.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
790 (setq direction (dun-firstword (cdr obj)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
791 (if (or (not direction)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
792 (not (or (string= direction "clockwise")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
793 (string= direction "counterclockwise"))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
794 (dun-mprincl "You must indicate clockwise or counterclockwise.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
795 (if (string= direction "clockwise")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
796 (setq dun-sauna-level (+ dun-sauna-level 1))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
797 (setq dun-sauna-level (- dun-sauna-level 1)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
798
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
799 (if (< dun-sauna-level 0)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
800 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
801 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
802 "The dial will not turn further in that direction.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
803 (setq dun-sauna-level 0))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
804 (dun-sauna-heat))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
805
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
806 (defun dun-sauna-heat ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
807 (if (= dun-sauna-level 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
808 (dun-mprincl
13952
de80a367ca08 (dun-cd): Fix local var misspelling.
Karl Heuer <kwzh@gnu.org>
parents: 13076
diff changeset
809 "The temperature has returned to normal room temperature."))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
810 (if (= dun-sauna-level 1)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
811 (dun-mprincl "It is now luke warm in here. You are perspiring."))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
812 (if (= dun-sauna-level 2)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
813 (dun-mprincl "It is pretty hot in here. It is still very comfortable."))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
814 (if (= dun-sauna-level 3)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
815 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
816 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
817 "It is now very hot. There is something very refreshing about this.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
818 (if (or (member obj-rms dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
819 (member obj-rms (nth dun-current-room dun-room-objects)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
820 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
821 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
822 "You notice the wax on your statuette beginning to melt, until it completely
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
823 melts off. You are left with a beautiful diamond!")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
824 (if (member obj-rms dun-inventory)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
825 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
826 (dun-remove-obj-from-inven obj-rms)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
827 (setq dun-inventory (append dun-inventory
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
828 (list obj-diamond))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
829 (dun-remove-obj-from-room dun-current-room obj-rms)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
830 (dun-replace dun-room-objects dun-current-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
831 (append (nth dun-current-room dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
832 (list obj-diamond))))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
833 (if (or (member obj-floppy dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
834 (member obj-floppy (nth dun-current-room dun-room-objects)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
835 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
836 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
837 "You notice your floppy disk beginning to melt. As you grab for it, the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
838 disk bursts into flames, and disintegrates.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
839 (if (member obj-floppy dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
840 (dun-remove-obj-from-inven obj-floppy)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
841 (dun-remove-obj-from-room dun-current-room obj-floppy))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
842
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
843 (if (= dun-sauna-level 4)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
844 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
845 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
846 "As the dial clicks into place, you immediately burst into flames.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
847 (dun-die "burning"))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
849 (defun dun-press (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
850 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
851 (when (setq objnum (dun-objnum-from-args-std obj))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
852 (if (not (or (member objnum (nth dun-current-room dun-room-objects))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
853 (member objnum (nth dun-current-room dun-room-silents))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
854 (dun-mprincl "I don't see that here.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
855 (if (not (member objnum (list obj-button obj-switch)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
856 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
857 (dun-mprinc "You can't ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
858 (dun-mprinc (car line-list))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
859 (dun-mprincl " that."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
860 (if (= objnum obj-button)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
861 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
862 "As you press the button, you notice a passageway open up, but
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
863 as you release it, the passageway closes."))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
864 (if (= objnum obj-switch)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
865 (if dun-black
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
866 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
867 (dun-mprincl "The button is now in the off position.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
868 (setq dun-black nil))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
869 (dun-mprincl "The button is now in the on position.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
870 (setq dun-black t))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
871
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
872 (defun dun-swim (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
873 (if (not (member dun-current-room (list lakefront-north lakefront-south)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
874 (dun-mprincl "I see no water!")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
875 (if (not (member obj-life dun-inventory))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
876 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
877 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
878 "You dive in the water, and at first notice it is quite cold. You then
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
879 start to get used to it as you realize that you never really learned how
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
880 to swim.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
881 (dun-die "drowning"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
882 (if (= dun-current-room lakefront-north)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
883 (setq dun-current-room lakefront-south)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
884 (setq dun-current-room lakefront-north)))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
885
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
887 (defun dun-score (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
888 (if (not dun-endgame)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889 (let (total)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
890 (setq total (dun-reg-score))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
891 (dun-mprinc "You have scored ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
892 (dun-mprinc total)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
893 (dun-mprincl " out of a possible 90 points.") total)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
894 (dun-mprinc "You have scored ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
895 (dun-mprinc (dun-endgame-score))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
896 (dun-mprincl " endgame points out of a possible 110.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
897 (if (= (dun-endgame-score) 110)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
898 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899 "\n\nCongratulations. You have won. The wizard password is 'moby'"))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
900
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
901 (defun dun-help (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
902 (dun-mprincl
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
903 "Welcome to dunnet (2.01), by Ron Schnell (ronnie@driver-aces.com).
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
904 Here is some useful information (read carefully because there are one
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
905 or more clues in here):
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
906 - If you have a key that can open a door, you do not need to explicitly
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
907 open it. You may just use 'in' or walk in the direction of the door.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
908
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
909 - If you have a lamp, it is always lit.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
910
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
911 - You will not get any points until you manage to get treasures to a certain
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
912 place. Simply finding the treasures is not good enough. There is more
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
913 than one way to get a treasure to the special place. It is also
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
914 important that the objects get to the special place *unharmed* and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
915 *untarnished*. You can tell if you have successfully transported the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
916 object by looking at your score, as it changes immediately. Note that
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
917 an object can become harmed even after you have received points for it.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
918 If this happens, your score will decrease, and in many cases you can never
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
919 get credit for it again.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
920
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
921 - You can save your game with the 'save' command, and use restore it
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922 with the 'restore' command.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
923
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
924 - There are no limits on lengths of object names.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
925
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
926 - Directions are: north,south,east,west,northeast,southeast,northwest,
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
927 southwest,up,down,in,out.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
928
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
929 - These can be abbreviated: n,s,e,w,ne,se,nw,sw,u,d,in,out.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
930
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
931 - If you go down a hole in the floor without an aid such as a ladder,
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
932 you probably won't be able to get back up the way you came, if at all.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
933
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
934 - To run this game in batch mode (no emacs window), use:
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
935 emacs -batch -l dunnet
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
936 NOTE: This game *should* be run in batch mode!
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
937
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
938 If you have questions or comments, please contact ronnie@driver-aces.com
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
939 My home page is http://www.driver-aces.com/ronnie.html
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
940 "))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
941
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
942 (defun dun-flush (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
943 (if (not (= dun-current-room bathroom))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
944 (dun-mprincl "I see nothing to flush.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
945 (dun-mprincl "Whoooosh!!")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
946 (dun-put-objs-in-treas (nth urinal dun-room-objects))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
947 (dun-replace dun-room-objects urinal nil)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
948
18670
704d3934673d Undo an earlier change:
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
949 (defun dun-piss (args)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
950 (if (not (= dun-current-room bathroom))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
951 (dun-mprincl "You can't do that here, don't even bother trying.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
952 (if (not dun-gottago)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
953 (dun-mprincl "I'm afraid you don't have to go now.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
954 (dun-mprincl "That was refreshing.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
955 (setq dun-gottago nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
956 (dun-replace dun-room-objects urinal (append
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
957 (nth urinal dun-room-objects)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
958 (list obj-URINE))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
959
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
960
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
961 (defun dun-sleep (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
962 (if (not (= dun-current-room bedroom))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
963 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
964 "You try to go to sleep while standing up here, but can't seem to do it.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
965 (setq dun-gottago t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
966 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
967 "As soon as you start to doze off you begin dreaming. You see images of
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
968 workers digging caves, slaving in the humid heat. Then you see yourself
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
969 as one of these workers. While no one is looking, you leave the group
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
970 and walk into a room. The room is bare except for a horseshoe
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
971 shaped piece of stone in the center. You see yourself digging a hole in
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
972 the ground, then putting some kind of treasure in it, and filling the hole
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
973 with dirt again. After this, you immediately wake up.")))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
974
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
975 (defun dun-break (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
976 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
977 (if (not (member obj-axe dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
978 (dun-mprincl "You have nothing you can use to break things.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
979 (when (setq objnum (dun-objnum-from-args-std obj))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
980 (if (member objnum dun-inventory)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
981 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
982 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
983 "You take the object in your hands and swing the axe. Unfortunately, you miss
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
984 the object and slice off your hand. You bleed to death.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
985 (dun-die "an axe"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
986 (if (not (or (member objnum (nth dun-current-room dun-room-objects))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
987 (member objnum
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
988 (nth dun-current-room dun-room-silents))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
989 (dun-mprincl "I don't see that here.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
990 (if (= objnum obj-cable)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
991 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
992 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
993 "As you break the ethernet cable, everything starts to blur. You collapse
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
994 for a moment, then straighten yourself up.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
995 ")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
996 (dun-replace dun-room-objects gamma-computing-center
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
997 (append
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
998 (nth gamma-computing-center dun-room-objects)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
999 dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1000 (if (member obj-key dun-inventory)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1001 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1002 (setq dun-inventory (list obj-key))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1003 (dun-remove-obj-from-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1004 gamma-computing-center obj-key))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1005 (setq dun-inventory nil))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1006 (setq dun-current-room computer-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1007 (setq dun-ethernet nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1008 (dun-mprincl "Connection closed.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1009 (dun-unix-interface))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1010 (if (< objnum 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1011 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1012 (dun-mprincl "Your axe shatters into a million pieces.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1013 (dun-remove-obj-from-inven obj-axe))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1014 (dun-mprincl "Your axe breaks it into a million pieces.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1015 (dun-remove-obj-from-room dun-current-room objnum)))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1016
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1017 (defun dun-drive (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1018 (if (not dun-inbus)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1019 (dun-mprincl "You cannot drive when you aren't in a vehicle.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1020 (dun-mprincl "To drive while you are in the bus, just give a direction.")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1021
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1022 (defun dun-superb (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1023 (setq dun-mode 'dun-superb))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1024
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1025 (defun dun-reg-score ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1026 (let (total)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1027 (setq total 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1028 (dolist (x (nth treasure-room dun-room-objects))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1029 (setq total (+ total (nth x dun-object-pts))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1030 (if (member obj-URINE (nth treasure-room dun-room-objects))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1031 (setq total 0)) total))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1032
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1033 (defun dun-endgame-score ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1034 (let (total)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1035 (setq total 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1036 (dolist (x (nth endgame-treasure-room dun-room-objects))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1037 (setq total (+ total (nth x dun-object-pts)))) total))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1038
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1039 (defun dun-answer (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1040 (if (not dun-correct-answer)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1041 (dun-mprincl "I don't believe anyone asked you anything.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1042 (setq args (car args))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1043 (if (not args)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1044 (dun-mprincl "You must give the answer on the same line.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1045 (if (dun-members args dun-correct-answer)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1046 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1047 (dun-mprincl "Correct.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1048 (if (= dun-lastdir 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1049 (setq dun-current-room (1+ dun-current-room))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1050 (setq dun-current-room (- dun-current-room 1)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1051 (setq dun-correct-answer nil))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1052 (dun-mprincl "That answer is incorrect.")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1053
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1054 (defun dun-endgame-question ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1055 (if (not dun-endgame-questions)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1056 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1057 (dun-mprincl "Your question is:")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1058 (dun-mprincl "No more questions, just do 'answer foo'.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1059 (setq dun-correct-answer '("foo")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1060 (let (which i newques)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1061 (setq i 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1062 (setq newques nil)
4403
2d6328c324cd (dun-endgame-question, tcom, tloc):
Paul Eggert <eggert@twinsun.com>
parents: 4245
diff changeset
1063 (setq which (random (length dun-endgame-questions)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1064 (dun-mprincl "Your question is:")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1065 (dun-mprincl (setq dun-endgame-question (car
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1066 (nth which
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1067 dun-endgame-questions))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1068 (setq dun-correct-answer (cdr (nth which dun-endgame-questions)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1069 (while (< i which)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1070 (setq newques (append newques (list (nth i dun-endgame-questions))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1071 (setq i (1+ i)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1072 (setq i (1+ which))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1073 (while (< i (length dun-endgame-questions))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1074 (setq newques (append newques (list (nth i dun-endgame-questions))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1075 (setq i (1+ i)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1076 (setq dun-endgame-questions newques))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1077
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1078 (defun dun-power (args)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1079 (if (not (= dun-current-room pc-area))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1080 (dun-mprincl "That operation is not applicable here.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1081 (if (not dun-floppy)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1082 (dun-dos-no-disk)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1083 (dun-dos-interface))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1084
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1085 (defun dun-feed (args)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1086 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1087 (when (setq objnum (dun-objnum-from-args-std args))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1088 (if (and (= objnum obj-bear)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1089 (member obj-bear (nth dun-current-room dun-room-objects)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1090 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1091 (if (not (member obj-food dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1092 (dun-mprincl "You have nothing with which to feed it.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1093 (dun-drop '("food"))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1094 (if (not (or (member objnum (nth dun-current-room dun-room-objects))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1095 (member objnum dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1096 (member objnum (nth dun-current-room dun-room-silents))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1097 (dun-mprincl "I don't see that here.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1098 (dun-mprincl "You cannot feed that."))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1099
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1100
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1101 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1102 ;;;; This section defines various utility functions used
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1103 ;;;; by dunnet.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1104 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1105
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1106
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1107 ;;; Function which takes a verb and a list of other words. Calls proper
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1108 ;;; function associated with the verb, and passes along the other words.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1109
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1110 (defun dun-doverb (dun-ignore dun-verblist verb rest)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1111 (if (not verb)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1112 nil
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1113 (if (member (intern verb) dun-ignore)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1114 (if (not (car rest)) -1
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1115 (dun-doverb dun-ignore dun-verblist (car rest) (cdr rest)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1116 (if (not (cdr (assq (intern verb) dun-verblist))) -1
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1117 (setq dun-numcmds (1+ dun-numcmds))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1118 (eval (list (cdr (assq (intern verb) dun-verblist)) (quote rest)))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1119
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1120
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1121 ;;; Function to take a string and change it into a list of lowercase words.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1122
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1123 (defun dun-listify-string (strin)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1124 (let (pos ret-list end-pos)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1125 (setq pos 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1126 (setq ret-list nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1127 (while (setq end-pos (string-match "[ ,:;]" (substring strin pos)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1128 (setq end-pos (+ end-pos pos))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1129 (if (not (= end-pos pos))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1130 (setq ret-list (append ret-list (list
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1131 (downcase
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1132 (substring strin pos end-pos))))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1133 (setq pos (+ end-pos 1))) ret-list))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1134
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1135 (defun dun-listify-string2 (strin)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1136 (let (pos ret-list end-pos)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1137 (setq pos 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1138 (setq ret-list nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1139 (while (setq end-pos (string-match " " (substring strin pos)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1140 (setq end-pos (+ end-pos pos))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1141 (if (not (= end-pos pos))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1142 (setq ret-list (append ret-list (list
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1143 (downcase
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1144 (substring strin pos end-pos))))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1145 (setq pos (+ end-pos 1))) ret-list))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1146
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1147 (defun dun-replace (list n number)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1148 (rplaca (nthcdr n list) number))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1149
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1150
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1151 ;;; Get the first non-ignored word from a list.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1152
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1153 (defun dun-firstword (list)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1154 (if (not (car list))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1155 nil
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1156 (while (and list (member (intern (car list)) dun-ignore))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1157 (setq list (cdr list)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1158 (car list)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1159
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1160 (defun dun-firstwordl (list)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1161 (if (not (car list))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1162 nil
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1163 (while (and list (member (intern (car list)) dun-ignore))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1164 (setq list (cdr list)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1165 list))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1166
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1167 ;;; parse a line passed in as a string Call the proper verb with the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1168 ;;; rest of the line passed in as a list.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1169
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1170 (defun dun-vparse (dun-ignore dun-verblist line)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1171 (dun-mprinc "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1172 (setq line-list (dun-listify-string (concat line " ")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1173 (dun-doverb dun-ignore dun-verblist (car line-list) (cdr line-list)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1174
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1175 (defun dun-parse2 (dun-ignore dun-verblist line)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1176 (dun-mprinc "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1177 (setq line-list (dun-listify-string2 (concat line " ")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1178 (dun-doverb dun-ignore dun-verblist (car line-list) (cdr line-list)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1179
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1180 ;;; Read a line, in window mode
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1181
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1182 (defun dun-read-line ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1183 (let (line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1184 (setq line (read-string ""))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1185 (dun-mprinc line) line))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1186
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1187 ;;; Insert something into the window buffer
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1188
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1189 (defun dun-minsert (string)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1190 (if (stringp string)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1191 (insert string)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1192 (insert (prin1-to-string string))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1193
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1194 ;;; Print something out, in window mode
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1195
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1196 (defun dun-mprinc (string)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1197 (if (stringp string)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1198 (insert string)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1199 (insert (prin1-to-string string))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1200
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1201 ;;; In window mode, keep screen from jumping by keeping last line at
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1202 ;;; the bottom of the screen.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1203
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1204 (defun dun-fix-screen ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1205 (interactive)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1206 (forward-line (- 0 (- (window-height) 2 )))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1207 (set-window-start (selected-window) (point))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1208 (end-of-buffer))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1209
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1210 ;;; Insert something into the buffer, followed by newline.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1211
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1212 (defun dun-minsertl (string)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1213 (dun-minsert string)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1214 (dun-minsert "\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1215
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1216 ;;; Print something, followed by a newline.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1217
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1218 (defun dun-mprincl (string)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1219 (dun-mprinc string)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1220 (dun-mprinc "\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1221
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1222 ;;; Function which will get an object number given the list of
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1223 ;;; words in the command, except for the verb.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1224
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1225 (defun dun-objnum-from-args (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1226 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1227 (setq obj (dun-firstword obj))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1228 (if (not obj)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1229 obj-special
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1230 (setq objnum (cdr (assq (intern obj) dun-objnames))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1231
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1232 (defun dun-objnum-from-args-std (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1233 (let (result)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1234 (if (eq (setq result (dun-objnum-from-args obj)) obj-special)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1235 (dun-mprincl "You must supply an object."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1236 (if (eq result nil)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1237 (dun-mprincl "I don't know what that is."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1238 (if (eq result obj-special)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1239 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1240 result)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1241
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1242 ;;; Take a short room description, and change spaces and slashes to dashes.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1243
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1244 (defun dun-space-to-hyphen (string)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1245 (let (space)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1246 (if (setq space (string-match "[ /]" string))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1247 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1248 (setq string (concat (substring string 0 space) "-"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1249 (substring string (1+ space))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1250 (dun-space-to-hyphen string))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1251 string)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1252
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1253 ;;; Given a unix style pathname, build a list of path components (recursive)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1254
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1255 (defun dun-get-path (dirstring startlist)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1256 (let (slash pos)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1257 (if (= (length dirstring) 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1258 startlist
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1259 (if (string= (substring dirstring 0 1) "/")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1260 (dun-get-path (substring dirstring 1) (append startlist (list "/")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1261 (if (not (setq slash (string-match "/" dirstring)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1262 (append startlist (list dirstring))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1263 (dun-get-path (substring dirstring (1+ slash))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1264 (append startlist
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1265 (list (substring dirstring 0 slash)))))))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1266
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1267
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1268 ;;; Is a string a member of a string list?
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1269
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1270 (defun dun-members (string string-list)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1271 (let (found)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1272 (setq found nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1273 (dolist (x string-list)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1274 (if (string= x string)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1275 (setq found t))) found))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1276
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1277 ;;; Function to put objects in the treasure room. Also prints current
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1278 ;;; score to let user know he has scored.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1279
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1280 (defun dun-put-objs-in-treas (objlist)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1281 (let (oscore newscore)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1282 (setq oscore (dun-reg-score))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1283 (dun-replace dun-room-objects 0 (append (nth 0 dun-room-objects) objlist))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1284 (setq newscore (dun-reg-score))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1285 (if (not (= oscore newscore))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1286 (dun-score nil))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1287
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1288 ;;; Load an encrypted file, and eval it.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1289
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1290 (defun dun-load-d (filename)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1291 (let (old-buffer result)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1292 (setq result t)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1293 (setq old-buffer (current-buffer))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1294 (switch-to-buffer (get-buffer-create "*loadc*"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1295 (erase-buffer)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1296 (condition-case nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1297 (insert-file-contents filename)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1298 (error (setq result nil)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1299 (unless (not result)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1300 (condition-case nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1301 (dun-rot13)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1302 (error (yank)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1303 (eval-current-buffer)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1304 (kill-buffer (current-buffer)))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1305 (switch-to-buffer old-buffer)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1306 result))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1307
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1308 ;;; Functions to remove an object either from a room, or from inventory.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1309
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1310 (defun dun-remove-obj-from-room (room objnum)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1311 (let (newroom)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1312 (setq newroom nil)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1313 (dolist (x (nth room dun-room-objects))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1314 (if (not (= x objnum))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1315 (setq newroom (append newroom (list x)))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1316 (rplaca (nthcdr room dun-room-objects) newroom)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1317
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1318 (defun dun-remove-obj-from-inven (objnum)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1319 (let (new-inven)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1320 (setq new-inven nil)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1321 (dolist (x dun-inventory)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1322 (if (not (= x objnum))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1323 (setq new-inven (append new-inven (list x)))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1324 (setq dun-inventory new-inven)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1325
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1326
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1327 (let ((i 0) (lower "abcdefghijklmnopqrstuvwxyz") upper)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1328 (setq dun-translate-table (make-vector 256 0))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1329 (while (< i 256)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1330 (aset dun-translate-table i i)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1331 (setq i (1+ i)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1332 (setq lower (concat lower lower))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1333 (setq upper (upcase lower))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1334 (setq i 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1335 (while (< i 26)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1336 (aset dun-translate-table (+ ?a i) (aref lower (+ i 13)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1337 (aset dun-translate-table (+ ?A i) (aref upper (+ i 13)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1338 (setq i (1+ i))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1339
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1340 (defun dun-rot13 ()
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1341 (let (str len (i 0))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1342 (setq str (buffer-substring (point-min) (point-max)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1343 (setq len (length str))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1344 (while (< i len)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1345 (aset str i (aref dun-translate-table (aref str i)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1346 (setq i (1+ i)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1347 (erase-buffer)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1348 (insert str)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1349
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1350 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1351 ;;;; This section defines the globals that are used in dunnet.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1352 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1353 ;;;; IMPORTANT
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1354 ;;;; All globals which can change must be saved from 'save-game. Add
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1355 ;;;; all new globals to bottom of file.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1356
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1357 (setq dun-visited '(27))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1358 (setq dun-current-room 1)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1359 (setq dun-exitf nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1360 (setq dun-badcd nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1361 (defvar dungeon-mode-map nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1362 (setq dungeon-mode-map (make-sparse-keymap))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1363 (define-key dungeon-mode-map "\r" 'dun-parse)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1364 (defvar dungeon-batch-map (make-keymap))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1365 (if (string= (substring emacs-version 0 2) "18")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1366 (let (n)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1367 (setq n 32)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1368 (while (< 0 (setq n (- n 1)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1369 (aset dungeon-batch-map n 'dungeon-nil)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1370 (let (n)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1371 (setq n 32)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1372 (while (< 0 (setq n (- n 1)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1373 (aset (car (cdr dungeon-batch-map)) n 'dungeon-nil))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1374 (define-key dungeon-batch-map "\r" 'exit-minibuffer)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1375 (define-key dungeon-batch-map "\n" 'exit-minibuffer)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1376 (setq dun-computer nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1377 (setq dun-floppy nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1378 (setq dun-key-level 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1379 (setq dun-hole nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1380 (setq dun-correct-answer nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1381 (setq dun-lastdir 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1382 (setq dun-numsaves 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1383 (setq dun-jar nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1384 (setq dun-dead nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1385 (setq room 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1386 (setq dun-numcmds 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1387 (setq dun-wizard nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1388 (setq dun-endgame-question nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1389 (setq dun-logged-in nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1390 (setq dungeon-mode 'dungeon)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1391 (setq dun-unix-verbs '((ls . dun-ls) (ftp . dun-ftp) (echo . dun-echo)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1392 (exit . dun-uexit) (cd . dun-cd) (pwd . dun-pwd)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1393 (rlogin . dun-rlogin) (uncompress . dun-uncompress)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1394 (cat . dun-cat) (zippy . dun-zippy)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1395
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1396 (setq dun-dos-verbs '((dir . dun-dos-dir) (type . dun-dos-type)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1397 (exit . dun-dos-exit) (command . dun-dos-spawn)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1398 (b: . dun-dos-invd) (c: . dun-dos-invd)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1399 (a: . dun-dos-nil)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1400
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1401
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1402 (setq dun-batch-mode nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1403
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1404 (setq dun-cdpath "/usr/toukmond")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1405 (setq dun-cdroom -10)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1406 (setq dun-uncompressed nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1407 (setq dun-ethernet t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1408 (setq dun-restricted
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1409 '(dun-room-objects dungeon-map dun-rooms
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1410 dun-room-silents dun-combination))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1411 (setq dun-ftptype 'ascii)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1412 (setq dun-endgame nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1413 (setq dun-gottago t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1414 (setq dun-black nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1415
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1416 (setq dun-rooms '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1417 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1418 "You are in the treasure room. A door leads out to the north."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1419 "Treasure room"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1420 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1421 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1422 "You are at a dead end of a dirt road. The road goes to the east.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1423 In the distance you can see that it will eventually fork off. The
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1424 trees here are very tall royal palms, and they are spaced equidistant
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1425 from each other."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1426 "Dead end"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1427 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1428 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1429 "You are on the continuation of a dirt road. There are more trees on
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1430 both sides of you. The road continues to the east and west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1431 "E/W Dirt road"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1432 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1433 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1434 "You are at a fork of two passages, one to the northeast, and one to the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1435 southeast. The ground here seems very soft. You can also go back west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1436 "Fork"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1437 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1438 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1439 "You are on a northeast/southwest road."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1440 "NE/SW road"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1441 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1442 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1443 "You are at the end of the road. There is a building in front of you
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1444 to the northeast, and the road leads back to the southwest."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1445 "Building front"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1446 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1447 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1448 "You are on a southeast/northwest road."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1449 "SE/NW road"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1450 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1451 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1452 "You are standing at the end of a road. A passage leads back to the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1453 northwest."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1454 "Bear hangout"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1455 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1456 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1457 "You are in the hallway of an old building. There are rooms to the east
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1458 and west, and doors leading out to the north and south."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1459 "Old Building hallway"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1460 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1461 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1462 "You are in a mailroom. There are many bins where the mail is usually
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1463 kept. The exit is to the west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1464 "Mailroom"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1465 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1466 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1467 "You are in a computer room. It seems like most of the equipment has
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1468 been removed. There is a VAX 11/780 in front of you, however, with
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1469 one of the cabinets wide open. A sign on the front of the machine
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1470 says: This VAX is named 'pokey'. To type on the console, use the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1471 'type' command. The exit is to the east."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1472 "Computer room"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1473 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1474 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1475 "You are in a meadow in the back of an old building. A small path leads
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1476 to the west, and a door leads to the south."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1477 "Meadow"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1478 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1479 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1480 "You are in a round, stone room with a door to the east. There
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1481 is a sign on the wall that reads: 'receiving room'."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1482 "Receiving room"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1483 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1484 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1485 "You are at the south end of a hallway that leads to the north. There
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1486 are rooms to the east and west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1487 "Northbound Hallway"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1488 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1489 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1490 "You are in a sauna. There is nothing in the room except for a dial
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1491 on the wall. A door leads out to west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1492 "Sauna"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1493 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1494 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1495 "You are at the end of a north/south hallway. You can go back to the south,
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1496 or off to a room to the east."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1497 "End of N/S Hallway"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1498 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1499 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1500 "You are in an old weight room. All of the equipment is either destroyed
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1501 or completely broken. There is a door out to the west, and there is a ladder
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1502 leading down a hole in the floor."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1503 "Weight room" ;16
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1504 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1505 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1506 "You are in a maze of twisty little passages, all alike.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1507 There is a button on the ground here."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1508 "Maze button room"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1509 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1510 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1511 "You are in a maze of little twisty passages, all alike."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1512 "Maze"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1513 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1514 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1515 "You are in a maze of thirsty little passages, all alike."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1516 "Maze" ;19
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1517 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1518 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1519 "You are in a maze of twenty little passages, all alike."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1520 "Maze"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1521 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1522 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1523 "You are in a daze of twisty little passages, all alike."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1524 "Maze" ;21
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1525 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1526 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1527 "You are in a maze of twisty little cabbages, all alike."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1528 "Maze" ;22
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1529 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1530 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1531 "You are in a reception area for a health and fitness center. The place
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1532 appears to have been recently ransacked, and nothing is left. There is
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1533 a door out to the south, and a crawlspace to the southeast."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1534 "Reception area"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1535 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1536 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1537 "You are outside a large building to the north which used to be a health
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1538 and fitness center. A road leads to the south."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1539 "Health Club front"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1540 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1541 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1542 "You are at the north side of a lake. On the other side you can see
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1543 a road which leads to a cave. The water appears very deep."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1544 "Lakefront North"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1545 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1546 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1547 "You are at the south side of a lake. A road goes to the south."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1548 "Lakefront South"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1549 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1550 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1551 "You are in a well-hidden area off to the side of a road. Back to the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1552 northeast through the brush you can see the bear hangout."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1553 "Hidden area"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1554 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1555 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1556 "The entrance to a cave is to the south. To the north, a road leads
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1557 towards a deep lake. On the ground nearby there is a chute, with a sign
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1558 that says 'put treasures here for points'."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1559 "Cave Entrance" ;28
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1560 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1561 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1562 "You are in a misty, humid room carved into a mountain.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1563 To the north is the remains of a rockslide. To the east, a small
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1564 passage leads away into the darkness." ;29
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1565 "Misty Room"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1566 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1567 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1568 "You are in an east/west passageway. The walls here are made of
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1569 multicolored rock and are quite beautiful."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1570 "Cave E/W passage" ;30
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1571 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1572 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1573 "You are at the junction of two passages. One goes north/south, and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1574 the other goes west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1575 "N/S/W Junction" ;31
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1576 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1577 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1578 "You are at the north end of a north/south passageway. There are stairs
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1579 leading down from here. There is also a door leading west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1580 "North end of cave passage" ;32
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1581 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1582 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1583 "You are at the south end of a north/south passageway. There is a hole
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1584 in the floor here, into which you could probably fit."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1585 "South end of cave passage" ;33
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1586 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1587 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1588 "You are in what appears to be a worker's bedroom. There is a queen-
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1589 sized bed in the middle of the room, and a painting hanging on the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1590 wall. A door leads to another room to the south, and stairways
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1591 lead up and down."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1592 "Bedroom" ;34
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1593 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1594 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1595 "You are in a bathroom built for workers in the cave. There is a
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1596 urinal hanging on the wall, and some exposed pipes on the opposite
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1597 wall where a sink used to be. To the north is a bedroom."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1598 "Bathroom" ;35
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1599 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1600 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1601 "This is a marker for the urinal. User will not see this, but it
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1602 is a room that can contain objects."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1603 "Urinal" ;36
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1604 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1605 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1606 "You are at the northeast end of a northeast/southwest passageway.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1607 Stairs lead up out of sight."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1608 "NE end of NE/SW cave passage" ;37
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1609 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1610 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1611 "You are at the junction of northeast/southwest and east/west passages."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1612 "NE/SW-E/W junction" ;38
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1613 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1614 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1615 "You are at the southwest end of a northeast/southwest passageway."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1616 "SW end of NE/SW cave passage" ;39
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1617 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1618 (
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1619 "You are at the east end of an E/W passage. There are stairs leading up
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1620 to a room above."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1621 "East end of E/W cave passage" ;40
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1622 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1623 (
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1624 "You are at the west end of an E/W passage. There is a hole on the ground
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1625 which leads down out of sight."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1626 "West end of E/W cave passage" ;41
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1627 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1628 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1629 "You are in a room which is bare, except for a horseshoe shaped boulder
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1630 in the center. Stairs lead down from here." ;42
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1631 "Horseshoe boulder room"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1632 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1633 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1634 "You are in a room which is completely empty. Doors lead out to the north
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1635 and east."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1636 "Empty room" ;43
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1637 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1638 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1639 "You are in an empty room. Interestingly enough, the stones in this
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1640 room are painted blue. Doors lead out to the east and south." ;44
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1641 "Blue room"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1642 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1643 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1644 "You are in an empty room. Interestingly enough, the stones in this
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1645 room are painted yellow. Doors lead out to the south and west." ;45
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1646 "Yellow room"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1647 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1648 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1649 "You are in an empty room. Interestingly enough, the stones in this room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1650 are painted red. Doors lead out to the west and north."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1651 "Red room" ;46
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1652 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1653 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1654 "You are in the middle of a long north/south hallway." ;47
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1655 "Long n/s hallway"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1656 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1657 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1658 "You are 3/4 of the way towards the north end of a long north/south hallway."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1659 "3/4 north" ;48
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1660 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1661 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1662 "You are at the north end of a long north/south hallway. There are stairs
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1663 leading upwards."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1664 "North end of long hallway" ;49
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1665 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1666 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1667 "You are 3/4 of the way towards the south end of a long north/south hallway."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1668 "3/4 south" ;50
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1669 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1670 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1671 "You are at the south end of a long north/south hallway. There is a hole
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1672 to the south."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1673 "South end of long hallway" ;51
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1674 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1675 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1676 "You are at a landing in a stairwell which continues up and down."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1677 "Stair landing" ;52
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1678 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1679 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1680 "You are at the continuation of an up/down staircase."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1681 "Up/down staircase" ;53
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1682 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1683 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1684 "You are at the top of a staircase leading down. A crawlway leads off
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1685 to the northeast."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1686 "Top of staircase." ;54
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1687 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1688 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1689 "You are in a crawlway that leads northeast or southwest."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1690 "NE crawlway" ;55
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1691 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1692 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1693 "You are in a small crawlspace. There is a hole in the ground here, and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1694 a small passage back to the southwest."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1695 "Small crawlspace" ;56
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1696 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1697 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1698 "You are in the Gamma Computing Center. An IBM 3090/600s is whirring
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1699 away in here. There is an ethernet cable coming out of one of the units,
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1700 and going through the ceiling. There is no console here on which you
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1701 could type."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1702 "Gamma computing center" ;57
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1703 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1704 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1705 "You are near the remains of a post office. There is a mail drop on the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1706 face of the building, but you cannot see where it leads. A path leads
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1707 back to the east, and a road leads to the north."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1708 "Post office" ;58
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1709 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1710 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1711 "You are at the intersection of Main Street and Maple Ave. Main street
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1712 runs north and south, and Maple Ave runs east off into the distance.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1713 If you look north and east you can see many intersections, but all of
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1714 the buildings that used to stand here are gone. Nothing remains except
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1715 street signs.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1716 There is a road to the northwest leading to a gate that guards a building."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1717 "Main-Maple intersection" ;59
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1718 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1719 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1720 "You are at the intersection of Main Street and the west end of Oaktree Ave."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1721 "Main-Oaktree intersection" ;60
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1722 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1723 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1724 "You are at the intersection of Main Street and the west end of Vermont Ave."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1725 "Main-Vermont intersection" ;61
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1726 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1727 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1728 "You are at the north end of Main Street at the west end of Sycamore Ave." ;62
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1729 "Main-Sycamore intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1730 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1731 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1732 "You are at the south end of First Street at Maple Ave." ;63
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1733 "First-Maple intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1734 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1735 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1736 "You are at the intersection of First Street and Oaktree Ave." ;64
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1737 "First-Oaktree intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1738 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1739 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1740 "You are at the intersection of First Street and Vermont Ave." ;65
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1741 "First-Vermont intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1742 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1743 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1744 "You are at the north end of First Street at Sycamore Ave." ;66
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1745 "First-Sycamore intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1746 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1747 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1748 "You are at the south end of Second Street at Maple Ave." ;67
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1749 "Second-Maple intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1750 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1751 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1752 "You are at the intersection of Second Street and Oaktree Ave." ;68
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1753 "Second-Oaktree intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1754 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1755 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1756 "You are at the intersection of Second Street and Vermont Ave." ;69
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1757 "Second-Vermont intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1758 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1759 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1760 "You are at the north end of Second Street at Sycamore Ave." ;70
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1761 "Second-Sycamore intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1762 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1763 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1764 "You are at the south end of Third Street at Maple Ave." ;71
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1765 "Third-Maple intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1766 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1767 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1768 "You are at the intersection of Third Street and Oaktree Ave." ;72
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1769 "Third-Oaktree intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1770 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1771 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1772 "You are at the intersection of Third Street and Vermont Ave." ;73
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1773 "Third-Vermont intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1774 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1775 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1776 "You are at the north end of Third Street at Sycamore Ave." ;74
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1777 "Third-Sycamore intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1778 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1779 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1780 "You are at the south end of Fourth Street at Maple Ave." ;75
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1781 "Fourth-Maple intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1782 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1783 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1784 "You are at the intersection of Fourth Street and Oaktree Ave." ;76
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1785 "Fourth-Oaktree intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1786 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1787 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1788 "You are at the intersection of Fourth Street and Vermont Ave." ;77
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1789 "Fourth-Vermont intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1790 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1791 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1792 "You are at the north end of Fourth Street at Sycamore Ave." ;78
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1793 "Fourth-Sycamore intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1794 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1795 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1796 "You are at the south end of Fifth Street at the east end of Maple Ave." ;79
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1797 "Fifth-Maple intersection"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1798 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1799 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1800 "You are at the intersection of Fifth Street and the east end of Oaktree Ave.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1801 There is a cliff off to the east."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1802 "Fifth-Oaktree intersection" ;80
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1803 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1804 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1805 "You are at the intersection of Fifth Street and the east end of Vermont Ave."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1806 "Fifth-Vermont intersection" ;81
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1807 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1808 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1809 "You are at the north end of Fifth Street and the east end of Sycamore Ave."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1810 "Fifth-Sycamore intersection" ;82
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1811 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1812 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1813 "You are in front of the Museum of Natural History. A door leads into
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1814 the building to the north, and a road leads to the southeast."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1815 "Museum entrance" ;83
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1816 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1817 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1818 "You are in the main lobby for the Museum of Natural History. In the center
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1819 of the room is the huge skeleton of a dinosaur. Doors lead out to the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1820 south and east."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1821 "Museum lobby" ;84
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1822 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1823 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1824 "You are in the geological display. All of the objects that used to
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1825 be on display are missing. There are rooms to the east, west, and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1826 north."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1827 "Geological display" ;85
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1828 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1829 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1830 "You are in the marine life area. The room is filled with fish tanks,
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1831 which are filled with dead fish that have apparently died due to
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1832 starvation. Doors lead out to the south and east."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1833 "Marine life area" ;86
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1834 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1835 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1836 "You are in some sort of maintenance room for the museum. There is a
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1837 switch on the wall labeled 'BL'. There are doors to the west and north."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1838 "Maintenance room" ;87
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1839 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1840 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1841 "You are in a classroom where school children were taught about natural
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1842 history. On the blackboard is written, 'No children allowed downstairs.'
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1843 There is a door to the east with an 'exit' sign on it. There is another
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1844 door to the west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1845 "Classroom" ;88
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1846 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1847 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1848 "You are at the Vermont St. subway station. A train is sitting here waiting."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1849 "Vermont station" ;89
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1850 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1851 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1852 "You are at the Museum subway stop. A passage leads off to the north."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1853 "Museum station" ;90
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1854 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1855 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1856 "You are in a north/south tunnel."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1857 "N/S tunnel" ;91
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1858 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1859 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1860 "You are at the north end of a north/south tunnel. Stairs lead up and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1861 down from here. There is a garbage disposal here."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1862 "North end of N/S tunnel" ;92
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1863 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1864 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1865 "You are at the top of some stairs near the subway station. There is
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1866 a door to the west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1867 "Top of subway stairs" ;93
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1868 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1869 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1870 "You are at the bottom of some stairs near the subway station. There is
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1871 a room to the northeast."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1872 "Bottom of subway stairs" ;94
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1873 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1874 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1875 "You are in another computer room. There is a computer in here larger
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1876 than you have ever seen. It has no manufacturers name on it, but it
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1877 does have a sign that says: This machine's name is 'endgame'. The
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1878 exit is to the southwest. There is no console here on which you could
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1879 type."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1880 "Endgame computer room" ;95
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1881 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1882 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1883 "You are in a north/south hallway."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1884 "Endgame N/S hallway" ;96
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1885 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1886 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1887 "You have reached a question room. You must answer a question correctly in
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1888 order to get by. Use the 'answer' command to answer the question."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1889 "Question room 1" ;97
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1890 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1891 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1892 "You are in a north/south hallway."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1893 "Endgame N/S hallway" ;98
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1894 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1895 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1896 "You are in a second question room."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1897 "Question room 2" ;99
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1898 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1899 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1900 "You are in a north/south hallway."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1901 "Endgame N/S hallway" ;100
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1902 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1903 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1904 "You are in a third question room."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1905 "Question room 3" ;101
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1906 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1907 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1908 "You are in the endgame treasure room. A door leads out to the north, and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1909 a hallway leads to the south."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1910 "Endgame treasure room" ;102
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1911 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1912 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1913 "You are in the winner's room. A door leads back to the south."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1914 "Winner's room" ;103
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1915 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1916 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1917 "You have reached a dead end. There is a PC on the floor here. Above
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1918 it is a sign that reads:
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1919 Type the 'reset' command to type on the PC.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1920 A hole leads north."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1921 "PC area" ;104
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1922 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1923 ))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1924
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1925 (setq dun-light-rooms '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 24 25 26 27 28 58 59
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1926 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1927 77 78 79 80 81 82 83))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1928
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1929 (setq dun-verblist '((die . dun-die) (ne . dun-ne) (north . dun-n)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1930 (south . dun-s) (east . dun-e) (west . dun-w)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1931 (u . dun-up) (d . dun-down) (i . dun-inven)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1932 (inventory . dun-inven) (look . dun-examine) (n . dun-n)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1933 (s . dun-s) (e . dun-e) (w . dun-w) (se . dun-se)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1934 (nw . dun-nw) (sw . dun-sw) (up . dun-up)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1935 (down . dun-down) (in . dun-in) (out . dun-out)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1936 (go . dun-go) (drop . dun-drop) (southeast . dun-se)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1937 (southwest . dun-sw) (northeast . dun-ne)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1938 (northwest . dun-nw) (save . dun-save-game)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1939 (restore . dun-restore) (long . dun-long) (dig . dun-dig)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1940 (shake . dun-shake) (wave . dun-shake)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1941 (examine . dun-examine) (describe . dun-examine)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1942 (climb . dun-climb) (eat . dun-eat) (put . dun-put)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1943 (type . dun-type) (insert . dun-put)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1944 (score . dun-score) (help . dun-help) (quit . dun-quit)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1945 (read . dun-examine) (verbose . dun-long)
18670
704d3934673d Undo an earlier change:
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
1946 (urinate . dun-piss) (piss . dun-piss)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1947 (flush . dun-flush) (sleep . dun-sleep) (lie . dun-sleep)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1948 (x . dun-examine) (break . dun-break) (drive . dun-drive)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1949 (board . dun-in) (enter . dun-in) (turn . dun-turn)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1950 (press . dun-press) (push . dun-press) (swim . dun-swim)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1951 (on . dun-in) (off . dun-out) (chop . dun-break)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1952 (switch . dun-press) (cut . dun-break) (exit . dun-out)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1953 (leave . dun-out) (reset . dun-power) (flick . dun-press)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1954 (superb . dun-superb) (answer . dun-answer)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1955 (throw . dun-drop) (l . dun-examine) (take . dun-take)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1956 (get . dun-take) (feed . dun-feed)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1957
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1958 (setq dun-inbus nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1959 (setq dun-nomail nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1960 (setq dun-ignore '(the to at))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1961 (setq dun-mode 'moby)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1962 (setq dun-sauna-level 0)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1963
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1964 (defconst north 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1965 (defconst south 1)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1966 (defconst east 2)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1967 (defconst west 3)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1968 (defconst northeast 4)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1969 (defconst southeast 5)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1970 (defconst northwest 6)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1971 (defconst southwest 7)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1972 (defconst up 8)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1973 (defconst down 9)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1974 (defconst in 10)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1975 (defconst out 11)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1976
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1977 (setq dungeon-map '(
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1978 ; no so ea we ne se nw sw up do in ot
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1979 ( 96 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;0
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1980 ( -1 -1 2 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;1
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1981 ( -1 -1 3 1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;2
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1982 ( -1 -1 -1 2 4 6 -1 -1 -1 -1 -1 -1 ) ;3
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1983 ( -1 -1 -1 -1 5 -1 -1 3 -1 -1 -1 -1 ) ;4
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1984 ( -1 -1 -1 -1 255 -1 -1 4 -1 -1 255 -1 ) ;5
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1985 ( -1 -1 -1 -1 -1 7 3 -1 -1 -1 -1 -1 ) ;6
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1986 ( -1 -1 -1 -1 -1 255 6 27 -1 -1 -1 -1 ) ;7
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1987 ( 255 5 9 10 -1 -1 -1 5 -1 -1 -1 5 ) ;8
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1988 ( -1 -1 -1 8 -1 -1 -1 -1 -1 -1 -1 -1 ) ;9
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1989 ( -1 -1 8 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;10
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1990 ( -1 8 -1 58 -1 -1 -1 -1 -1 -1 -1 -1 ) ;11
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1991 ( -1 -1 13 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;12
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1992 ( 15 -1 14 12 -1 -1 -1 -1 -1 -1 -1 -1 ) ;13
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1993 ( -1 -1 -1 13 -1 -1 -1 -1 -1 -1 -1 -1 ) ;14
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1994 ( -1 13 16 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;15
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1995 ( -1 -1 -1 15 -1 -1 -1 -1 -1 17 16 -1 ) ;16
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1996 ( -1 -1 17 17 17 17 255 17 255 17 -1 -1 ) ;17
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1997 ( 18 18 18 18 18 -1 18 18 19 18 -1 -1 ) ;18
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1998 ( -1 18 18 19 19 20 19 19 -1 18 -1 -1 ) ;19
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1999 ( -1 -1 -1 18 -1 -1 -1 -1 -1 21 -1 -1 ) ;20
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2000 ( -1 -1 -1 -1 -1 20 22 -1 -1 -1 -1 -1 ) ;21
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2001 ( 18 18 18 18 16 18 23 18 18 18 18 18 ) ;22
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2002 ( -1 255 -1 -1 -1 19 -1 -1 -1 -1 -1 -1 ) ;23
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2003 ( 23 25 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;24
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2004 ( 24 255 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 ) ;25
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2005 (255 28 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 ) ;26
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2006 ( -1 -1 -1 -1 7 -1 -1 -1 -1 -1 -1 -1 ) ;27
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2007 ( 26 255 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 ) ;28
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2008 ( -1 -1 30 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;29
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2009 ( -1 -1 31 29 -1 -1 -1 -1 -1 -1 -1 -1 ) ;30
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2010 ( 32 33 -1 30 -1 -1 -1 -1 -1 -1 -1 -1 ) ;31
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2011 ( -1 31 -1 255 -1 -1 -1 -1 -1 34 -1 -1 ) ;32
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2012 ( 31 -1 -1 -1 -1 -1 -1 -1 -1 35 -1 -1 ) ;33
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2013 ( -1 35 -1 -1 -1 -1 -1 -1 32 37 -1 -1 ) ;34
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2014 ( 34 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;35
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2015 ( -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;36
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2016 ( -1 -1 -1 -1 -1 -1 -1 38 34 -1 -1 -1 ) ;37
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2017 ( -1 -1 40 41 37 -1 -1 39 -1 -1 -1 -1 ) ;38
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2018 ( -1 -1 -1 -1 38 -1 -1 -1 -1 -1 -1 -1 ) ;39
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2019 ( -1 -1 -1 38 -1 -1 -1 -1 42 -1 -1 -1 ) ;40
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2020 ( -1 -1 38 -1 -1 -1 -1 -1 -1 43 -1 -1 ) ;41
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2021 ( -1 -1 -1 -1 -1 -1 -1 -1 -1 40 -1 -1 ) ;42
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2022 ( 44 -1 46 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;43
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2023 ( -1 43 45 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;44
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2024 ( -1 46 -1 44 -1 -1 -1 -1 -1 -1 -1 -1 ) ;45
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2025 ( 45 -1 -1 43 -1 -1 -1 -1 -1 255 -1 -1 ) ;46
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2026 ( 48 50 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;47
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2027 ( 49 47 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;48
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2028 ( -1 48 -1 -1 -1 -1 -1 -1 52 -1 -1 -1 ) ;49
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2029 ( 47 51 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;50
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2030 ( 50 104 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;51
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2031 ( -1 -1 -1 -1 -1 -1 -1 -1 53 49 -1 -1 ) ;52
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2032 ( -1 -1 -1 -1 -1 -1 -1 -1 54 52 -1 -1 ) ;53
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2033 ( -1 -1 -1 -1 55 -1 -1 -1 -1 53 -1 -1 ) ;54
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2034 ( -1 -1 -1 -1 56 -1 -1 54 -1 -1 -1 54 ) ;55
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2035 ( -1 -1 -1 -1 -1 -1 -1 55 -1 31 -1 -1 ) ;56
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2036 ( -1 -1 32 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;57
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2037 ( 59 -1 11 -1 -1 -1 -1 -1 -1 -1 255 255) ;58
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2038 ( 60 58 63 -1 -1 -1 255 -1 -1 -1 255 255) ;59
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2039 ( 61 59 64 -1 -1 -1 -1 -1 -1 -1 255 255) ;60
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2040 ( 62 60 65 -1 -1 -1 -1 -1 -1 -1 255 255) ;61
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2041 ( -1 61 66 -1 -1 -1 -1 -1 -1 -1 255 255) ;62
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2042 ( 64 -1 67 59 -1 -1 -1 -1 -1 -1 255 255) ;63
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2043 ( 65 63 68 60 -1 -1 -1 -1 -1 -1 255 255) ;64
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2044 ( 66 64 69 61 -1 -1 -1 -1 -1 -1 255 255) ;65
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2045 ( -1 65 70 62 -1 -1 -1 -1 -1 -1 255 255) ;66
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2046 ( 68 -1 71 63 -1 -1 -1 -1 -1 -1 255 255) ;67
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2047 ( 69 67 72 64 -1 -1 -1 -1 -1 -1 255 255) ;68
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2048 ( 70 68 73 65 -1 -1 -1 -1 -1 -1 255 255) ;69
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2049 ( -1 69 74 66 -1 -1 -1 -1 -1 -1 255 255) ;70
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2050 ( 72 -1 75 67 -1 -1 -1 -1 -1 -1 255 255) ;71
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2051 ( 73 71 76 68 -1 -1 -1 -1 -1 -1 255 255) ;72
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2052 ( 74 72 77 69 -1 -1 -1 -1 -1 -1 255 255) ;73
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2053 ( -1 73 78 70 -1 -1 -1 -1 -1 -1 255 255) ;74
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2054 ( 76 -1 79 71 -1 -1 -1 -1 -1 -1 255 255) ;75
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2055 ( 77 75 80 72 -1 -1 -1 -1 -1 -1 255 255) ;76
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2056 ( 78 76 81 73 -1 -1 -1 -1 -1 -1 255 255) ;77
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2057 ( -1 77 82 74 -1 -1 -1 -1 -1 -1 255 255) ;78
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2058 ( 80 -1 -1 75 -1 -1 -1 -1 -1 -1 255 255) ;79
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2059 ( 81 79 255 76 -1 -1 -1 -1 -1 -1 255 255) ;80
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2060 ( 82 80 -1 77 -1 -1 -1 -1 -1 -1 255 255) ;81
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2061 ( -1 81 -1 78 -1 -1 -1 -1 -1 -1 255 255) ;82
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2062 ( 84 -1 -1 -1 -1 59 -1 -1 -1 -1 255 255) ;83
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2063 ( -1 83 85 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;84
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2064 ( 86 -1 87 84 -1 -1 -1 -1 -1 -1 -1 -1 ) ;85
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2065 ( -1 85 88 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;86
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2066 ( 88 -1 -1 85 -1 -1 -1 -1 -1 -1 -1 -1 ) ;87
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2067 ( -1 87 255 86 -1 -1 -1 -1 -1 -1 -1 -1 ) ;88
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2068 ( -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 ) ;89
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2069 ( 91 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;90
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2070 ( 92 90 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;91
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2071 ( -1 91 -1 -1 -1 -1 -1 -1 93 94 -1 -1 ) ;92
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2072 ( -1 -1 -1 88 -1 -1 -1 -1 -1 92 -1 -1 ) ;93
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2073 ( -1 -1 -1 -1 95 -1 -1 -1 92 -1 -1 -1 ) ;94
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2074 ( -1 -1 -1 -1 -1 -1 -1 94 -1 -1 -1 -1 ) ;95
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2075 ( 97 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;96
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2076 ( -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;97
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2077 ( 99 97 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;98
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2078 ( -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;99
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2079 ( 101 99 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;100
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2080 ( -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;101
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2081 ( 103 101 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;102
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2082 ( -1 102 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;103
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2083 ( 51 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ) ;104
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2084 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2085 ; no so ea we ne se nw sw up do in ot
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2086 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2087
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2088
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2089 ;;; How the user references *all* objects, permanent and regular.
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2090 (setq dun-objnames '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2091 (shovel . 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2092 (lamp . 1)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2093 (cpu . 2) (board . 2) (card . 2) (chip . 2)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2094 (food . 3)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2095 (key . 4)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2096 (paper . 5) (slip . 5)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2097 (rms . 6) (statue . 6) (statuette . 6) (stallman . 6)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2098 (diamond . 7)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2099 (weight . 8)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2100 (life . 9) (preserver . 9)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2101 (bracelet . 10) (emerald . 10)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2102 (gold . 11)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2103 (platinum . 12)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2104 (towel . 13) (beach . 13)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2105 (axe . 14)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2106 (silver . 15)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2107 (license . 16)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2108 (coins . 17)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2109 (egg . 18)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2110 (jar . 19)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2111 (bone . 20)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2112 (acid . 21) (nitric . 21)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2113 (glycerine . 22)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2114 (ruby . 23)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2115 (amethyst . 24)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2116 (mona . 25)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2117 (bill . 26)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2118 (floppy . 27) (disk . 27)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2119
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2120 (boulder . -1)
13076
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
2121 (tree . -2) (trees . -2) (palm . -2)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2122 (bear . -3)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2123 (bin . -4) (bins . -4)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2124 (cabinet . -5) (computer . -5) (vax . -5) (ibm . -5)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2125 (protoplasm . -6)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2126 (dial . -7)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2127 (button . -8)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2128 (chute . -9)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2129 (painting . -10)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2130 (bed . -11)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2131 (urinal . -12)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2132 (URINE . -13)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2133 (pipes . -14) (pipe . -14)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2134 (box . -15) (slit . -15)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2135 (cable . -16) (ethernet . -16)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2136 (mail . -17) (drop . -17)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2137 (bus . -18)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2138 (gate . -19)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2139 (cliff . -20)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2140 (skeleton . -21) (dinosaur . -21)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2141 (fish . -22)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2142 (tanks . -23) (tank . -23)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2143 (switch . -24)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2144 (blackboard . -25)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2145 (disposal . -26) (garbage . -26)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2146 (ladder . -27)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2147 (subway . -28) (train . -28)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2148 (pc . -29) (drive . -29) (coconut . -30) (coconuts . -30)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2149 (lake . -32) (water . -32)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2150 ))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2151
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2152 (dolist (x dun-objnames)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2153 (let (name)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2154 (setq name (concat "obj-" (prin1-to-string (car x))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2155 (eval (list 'defconst (intern name) (cdr x)))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2156
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2157 (defconst obj-special 255)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2158
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2159 ;;; The initial setup of what objects are in each room.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2160 ;;; Regular objects have whole numbers lower than 255.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2161 ;;; Objects that cannot be taken but might move and are
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2162 ;;; described during room description are negative.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2163 ;;; Stuff that is described and might change are 255, and are
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2164 ;;; handled specially by 'dun-describe-room.
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2165
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2166 (setq dun-room-objects (list nil
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2167
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2168 (list obj-shovel) ;; treasure-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2169 (list obj-boulder) ;; dead-end
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2170 nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2171 (list obj-food) ;; se-nw-road
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2172 (list obj-bear) ;; bear-hangout
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2173 nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2174 (list obj-special) ;; computer-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2175 (list obj-lamp obj-license obj-silver);; meadow
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2176 nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2177 (list obj-special) ;; sauna
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2178 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2179 (list obj-weight obj-life) ;; weight-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2180 nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2181 (list obj-rms obj-floppy) ;; thirsty-maze
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2182 nil nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2183 (list obj-emerald) ;; hidden-area
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2184 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2185 (list obj-gold) ;; misty-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2186 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2187 (list obj-towel obj-special) ;; red-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2188 nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2189 (list obj-box) ;; stair-landing
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2190 nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2191 (list obj-axe) ;; smal-crawlspace
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2192 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2193 nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2194 (list obj-special) ;; fourth-vermont-intersection
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2195 nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2196 (list obj-coins) ;; fifth-oaktree-intersection
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2197 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2198 (list obj-bus) ;; fifth-sycamore-intersection
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2199 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2200 (list obj-bone) ;; museum-lobby
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2201 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2202 (list obj-jar obj-special obj-ruby) ;; marine-life-area
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2203 (list obj-nitric) ;; maintenance-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2204 (list obj-glycerine) ;; classroom
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2205 nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2206 (list obj-amethyst) ;; bottom-of-subway-stairs
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2207 nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2208 (list obj-special) ;; question-room-1
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2209 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2210 (list obj-special) ;; question-room-2
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2211 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2212 (list obj-special) ;; question-room-three
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2213 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2214 (list obj-mona) ;; winner's-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2215 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2216 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2217 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2218 nil))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2219
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2220 ;;; These are objects in a room that are only described in the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2221 ;;; room description. They are permanent.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2222
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2223 (setq dun-room-silents (list nil
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2224 (list obj-tree obj-coconut) ;; dead-end
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2225 (list obj-tree obj-coconut) ;; e-w-dirt-road
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2226 nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2227 (list obj-bin) ;; mailroom
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2228 (list obj-computer) ;; computer-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2229 nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2230 (list obj-dial) ;; sauna
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2231 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2232 (list obj-ladder) ;; weight-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2233 (list obj-button obj-ladder) ;; maze-button-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2234 nil nil nil
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2235 nil nil nil nil
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2236 (list obj-lake) ;; lakefront-north
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2237 (list obj-lake) ;; lakefront-south
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2238 nil
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2239 (list obj-chute) ;; cave-entrance
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2240 nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2241 (list obj-painting obj-bed) ;; bedroom
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2242 (list obj-urinal obj-pipes) ;; bathroom
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2243 nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2244 (list obj-boulder) ;; horseshoe-boulder-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2245 nil nil nil nil nil nil nil nil nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2246 (list obj-computer obj-cable) ;; gamma-computing-center
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2247 (list obj-mail) ;; post-office
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2248 (list obj-gate) ;; main-maple-intersection
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2249 nil nil nil nil nil nil nil nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2250 nil nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2251 (list obj-cliff) ;; fifth-oaktree-intersection
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2252 nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2253 (list obj-dinosaur) ;; museum-lobby
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2254 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2255 (list obj-fish obj-tanks) ;; marine-life-area
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2256 (list obj-switch) ;; maintenance-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2257 (list obj-blackboard) ;; classroom
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2258 (list obj-train) ;; vermont-station
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2259 nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2260 (list obj-disposal) ;; north-end-of-n-s-tunnel
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2261 nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2262 (list obj-computer) ;; endgame-computer-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2263 nil nil nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2264 (list obj-pc) ;; pc-area
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2265 nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2266 ))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2267 (setq dun-inventory '(1))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2268
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2269 ;;; Descriptions of objects, as they appear in the room description, and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2270 ;;; the inventory.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2271
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2272 (setq dun-objects '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2273 ("There is a shovel here." "A shovel") ;0
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2274 ("There is a lamp nearby." "A lamp") ;1
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2275 ("There is a CPU card here." "A computer board") ;2
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2276 ("There is some food here." "Some food") ;3
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2277 ("There is a shiny brass key here." "A brass key") ;4
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2278 ("There is a slip of paper here." "A slip of paper") ;5
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2279 ("There is a wax statuette of Richard Stallman here." ;6
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2280 "An RMS statuette")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2281 ("There is a shimmering diamond here." "A diamond") ;7
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2282 ("There is a 10 pound weight here." "A weight") ;8
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2283 ("There is a life preserver here." "A life preserver");9
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2284 ("There is an emerald bracelet here." "A bracelet") ;10
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2285 ("There is a gold bar here." "A gold bar") ;11
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2286 ("There is a platinum bar here." "A platinum bar") ;12
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2287 ("There is a beach towel on the ground here." "A beach towel")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2288 ("There is an axe here." "An axe") ;14
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2289 ("There is a silver bar here." "A silver bar") ;15
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2290 ("There is a bus driver's license here." "A license") ;16
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2291 ("There are some valuable coins here." "Some valuable coins")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2292 ("There is a jewel-encrusted egg here." "A valuable egg") ;18
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2293 ("There is a glass jar here." "A glass jar") ;19
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2294 ("There is a dinosaur bone here." "A bone") ;20
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2295 ("There is a packet of nitric acid here." "Some nitric acid")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2296 ("There is a packet of glycerine here." "Some glycerine") ;22
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2297 ("There is a valuable ruby here." "A ruby") ;23
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2298 ("There is a valuable amethyst here." "An amethyst") ;24
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2299 ("The Mona Lisa is here." "The Mona Lisa") ;25
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2300 ("There is a 100 dollar bill here." "A $100 bill") ;26
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2301 ("There is a floppy disk here." "A floppy disk") ;27
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2302 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2303 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2304
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2305 ;;; Weight of objects
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2306
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2307 (setq dun-object-lbs
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2308 '(2 1 1 1 1 0 2 2 10 3 1 1 1 0 1 1 0 1 1 1 1 0 0 2 2 1 0 0))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2309 (setq dun-object-pts
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2310 '(0 0 0 0 0 0 0 10 0 0 10 10 10 0 0 10 0 10 10 0 0 0 0 10 10 10 10 0))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2311
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2312
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2313 ;;; Unix representation of objects.
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2314 (setq dun-objfiles '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2315 "shovel.o" "lamp.o" "cpu.o" "food.o" "key.o" "paper.o"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2316 "rms.o" "diamond.o" "weight.o" "preserver.o" "bracelet.o"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2317 "gold.o" "platinum.o" "towel.o" "axe.o" "silver.o" "license.o"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2318 "coins.o" "egg.o" "jar.o" "bone.o" "nitric.o" "glycerine.o"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2319 "ruby.o" "amethyst.o"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2320 ))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2321
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2322 ;;; These are the descriptions for the negative numbered objects from
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2323 ;;; dun-room-objects
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2324
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2325 (setq dun-perm-objects '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2326 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2327 ("There is a large boulder here.")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2328 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2329 ("There is a ferocious bear here!")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2330 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2331 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2332 ("There is a worthless pile of protoplasm here.")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2333 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2334 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2335 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2336 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2337 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2338 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2339 ("There is a strange smell in this room.")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2340 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2341 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2342 "There is a box with a slit in it, bolted to the wall here."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2343 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2344 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2345 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2346 ("There is a bus here.")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2347 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2348 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2349 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2350 ))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2351
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2352
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2353 ;;; These are the descriptions the user gets when regular objects are
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2354 ;;; examined.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2355
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2356 (setq dun-physobj-desc '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2357 "It is a normal shovel with a price tag attached that says $19.99."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2358 "The lamp is hand-crafted by Geppetto."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2359 "The CPU board has a VAX chip on it. It seems to have
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2360 2 Megabytes of RAM onboard."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2361 "It looks like some kind of meat. Smells pretty bad."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2362 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2363 "The paper says: Don't forget to type 'help' for help. Also, remember
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2364 this word: 'worms'"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2365 "The statuette is of the likeness of Richard Stallman, the author of the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2366 famous EMACS editor. You notice that he is not wearing any shoes."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2367 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2368 "You observe that the weight is heavy."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2369 "It says S. S. Minnow."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2370 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2371 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2372 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2373 "It has a picture of snoopy on it."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2374 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2375 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2376 "It has your picture on it!"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2377 "They are old coins from the 19th century."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2378 "It is a valuable Fabrege egg."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2379 "It is a a plain glass jar."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2380 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2381 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2382 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2383 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2384 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2385 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2386 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2387
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2388 ;;; These are the descriptions the user gets when non-regular objects
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2389 ;;; are examined.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2390
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2391 (setq dun-permobj-desc '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2392 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2393 "It is just a boulder. It cannot be moved."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2394 "They are palm trees with a bountiful supply of coconuts in them."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2395 "It looks like a grizzly to me."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2396 "All of the bins are empty. Looking closely you can see that there
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2397 are names written at the bottom of each bin, but most of them are
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2398 faded away so that you cannot read them. You can only make out three
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2399 names:
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2400 Jeffrey Collier
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2401 Robert Toukmond
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2402 Thomas Stock
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2403 "
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2404 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2405 "It is just a garbled mess."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2406 "The dial points to a temperature scale which has long since faded away."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2407 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2408 nil
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2409 "It is a velvet painting of Elvis Presley. It seems to be nailed to the
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2410 wall, and you cannot move it."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2411 "It is a queen sized bed, with a very firm mattress."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2412 "The urinal is very clean compared with everything else in the cave. There
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2413 isn't even any rust. Upon close examination you realize that the drain at the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2414 bottom is missing, and there is just a large hole leading down the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2415 pipes into nowhere. The hole is too small for a person to fit in. The
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2416 flush handle is so clean that you can see your reflection in it."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2417 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2418 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2419 "The box has a slit in the top of it, and on it, in sloppy handwriting, is
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2420 written: 'For key upgrade, put key in here.'"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2421 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2422 "It says 'express mail' on it."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2423 "It is a 35 passenger bus with the company name 'mobytours' on it."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2424 "It is a large metal gate that is too big to climb over."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2425 "It is a HIGH cliff."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2426 "Unfortunately you do not know enough about dinosaurs to tell very much about
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2427 it. It is very big, though."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2428 "The fish look like they were once quite beautiful."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2429 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2430 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2431 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2432 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2433 "It is a normal ladder that is permanently attached to the hole."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2434 "It is a passenger train that is ready to go."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2435 "It is a personal computer that has only one floppy disk drive."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2436 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2437 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2438
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2439 (setq dun-diggables
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2440 (list nil nil nil (list obj-cpu) nil nil nil nil nil nil nil
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2441 nil nil nil nil nil nil nil nil nil nil ;11-20
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2442 nil nil nil nil nil nil nil nil nil nil ;21-30
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2443 nil nil nil nil nil nil nil nil nil nil ;31-40
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2444 nil (list obj-platinum) nil nil nil nil nil nil nil nil))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2445
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2446 (setq dun-room-shorts nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2447 (dolist (x dun-rooms)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2448 (setq dun-room-shorts
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2449 (append dun-room-shorts (list (downcase
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2450 (dun-space-to-hyphen
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2451 (cadr x)))))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2452
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2453 (setq dun-endgame-questions '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2454 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2455 "What is your password on the machine called 'pokey'?" "robert")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2456 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2457 "What password did you use during anonymous ftp to gamma?" "foo")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2458 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2459 "Excluding the endgame, how many places are there where you can put
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2460 treasures for points?" "4" "four")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2461 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2462 "What is your login name on the 'endgame' machine?" "toukmond"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2463 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2464 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2465 "What is the nearest whole dollar to the price of the shovel?" "20" "twenty")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2466 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2467 "What is the name of the bus company serving the town?" "mobytours")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2468 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2469 "Give either of the two last names in the mailroom, other than your own."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2470 "collier" "stock")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2471 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2472 "What cartoon character is on the towel?" "snoopy")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2473 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2474 "What is the last name of the author of EMACS?" "stallman")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2475 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2476 "How many megabytes of memory is on the CPU board for the Vax?" "2")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2477 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2478 "Which street in town is named after a U.S. state?" "vermont")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2479 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2480 "How many pounds did the weight weigh?" "ten" "10")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2481 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2482 "Name the STREET which runs right over the subway stop." "fourth" "4" "4th")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2483 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2484 "How many corners are there in town (excluding the one with the Post Office)?"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2485 "24" "twentyfour" "twenty-four")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2486 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2487 "What type of bear was hiding your key?" "grizzly")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2488 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2489 "Name either of the two objects you found by digging." "cpu" "card" "vax"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2490 "board" "platinum")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2491 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2492 "What network protocol is used between pokey and gamma?" "tcp/ip" "ip" "tcp")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2493 ))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2494
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2495 (let (a)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2496 (setq a 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2497 (dolist (x dun-room-shorts)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2498 (eval (list 'defconst (intern x) a))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2499 (setq a (+ a 1))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2500
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2501
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2502
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2503 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2504 ;;;; This section defines the UNIX emulation functions for dunnet.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2505 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2506
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2507 (defun dun-unix-parse (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2508 (interactive "*p")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2509 (beginning-of-line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2510 (let (beg esign)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2511 (setq beg (+ (point) 2))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2512 (end-of-line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2513 (if (and (not (= beg (point)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2514 (string= "$" (buffer-substring (- beg 2) (- beg 1))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2515 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2516 (setq line (downcase (buffer-substring beg (point))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2517 (princ line)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2518 (if (eq (dun-parse2 nil dun-unix-verbs line) -1)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2519 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2520 (if (setq esign (string-match "=" line))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2521 (dun-doassign line esign)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2522 (dun-mprinc (car line-list))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2523 (dun-mprincl ": not found.")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2524 (goto-char (point-max))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2525 (dun-mprinc "\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2526 (if (eq dungeon-mode 'unix)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2527 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2528 (dun-fix-screen)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2529 (dun-mprinc "$ ")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2530
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2531 (defun dun-doassign (line esign)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2532 (if (not dun-wizard)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2533 (let (passwd)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2534 (dun-mprinc "Enter wizard password: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2535 (setq passwd (dun-read-line))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2536 (if (not dun-batch-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2537 (dun-mprinc "\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2538 (if (string= passwd "moby")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2539 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2540 (setq dun-wizard t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2541 (dun-doassign line esign))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2542 (dun-mprincl "Incorrect.")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2543
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2544 (let (varname epoint afterq i value)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2545 (setq varname (substring line 0 esign))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2546 (if (not (setq epoint (string-match ")" line)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2547 (if (string= (substring line (1+ esign) (+ esign 2))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2548 "\"")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2549 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2550 (setq afterq (substring line (+ esign 2)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2551 (setq epoint (+
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2552 (string-match "\"" afterq)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2553 (+ esign 3))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2554
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2555 (if (not (setq epoint (string-match " " line)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2556 (setq epoint (length line))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2557 (setq epoint (1+ epoint))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2558 (while (and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2559 (not (= epoint (length line)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2560 (setq i (string-match ")" (substring line epoint))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2561 (setq epoint (+ epoint i 1))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2562 (setq value (substring line (1+ esign) epoint))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2563 (dun-eval varname value))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2564
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2565 (defun dun-eval (varname value)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2566 (let (eval-error)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2567 (switch-to-buffer (get-buffer-create "*dungeon-eval*"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2568 (erase-buffer)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2569 (insert "(setq ")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2570 (insert varname)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2571 (insert " ")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2572 (insert value)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2573 (insert ")")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2574 (setq eval-error nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2575 (condition-case nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2576 (eval-current-buffer)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2577 (error (setq eval-error t)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2578 (kill-buffer (current-buffer))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2579 (switch-to-buffer "*dungeon*")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2580 (if eval-error
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2581 (dun-mprincl "Invalid syntax."))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2582
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2583
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2584 (defun dun-unix-interface ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2585 (dun-login)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2586 (if dun-logged-in
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2587 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2588 (setq dungeon-mode 'unix)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2589 (define-key dungeon-mode-map "\r" 'dun-unix-parse)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2590 (dun-mprinc "$ "))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2591
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2592 (defun dun-login ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2593 (let (tries username password)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2594 (setq tries 4)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2595 (while (and (not dun-logged-in) (> (setq tries (- tries 1)) 0))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2596 (dun-mprinc "\n\nUNIX System V, Release 2.2 (pokey)\n\nlogin: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2597 (setq username (dun-read-line))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2598 (if (not dun-batch-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2599 (dun-mprinc "\n"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2600 (dun-mprinc "password: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2601 (setq password (dun-read-line))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2602 (if (not dun-batch-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2603 (dun-mprinc "\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2604 (if (or (not (string= username "toukmond"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2605 (not (string= password "robert")))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2606 (dun-mprincl "login incorrect")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2607 (setq dun-logged-in t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2608 (dun-mprincl "
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2609 Welcome to Unix\n
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2610 Please clean up your directories. The filesystem is getting full.
13952
de80a367ca08 (dun-cd): Fix local var misspelling.
Karl Heuer <kwzh@gnu.org>
parents: 13076
diff changeset
2611 Our tcp/ip link to gamma is a little flaky, but seems to work.
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2612 The current version of ftp can only send files from your home
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2613 directory, and deletes them after they are sent! Be careful.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2614
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2615 Note: Restricted bourne shell in use.\n")))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2616 (setq dungeon-mode 'dungeon)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2617
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2618 (defun dun-ls (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2619 (if (car args)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2620 (let (ocdpath ocdroom)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2621 (setq ocdpath dun-cdpath)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2622 (setq ocdroom dun-cdroom)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2623 (if (not (eq (dun-cd args) -2))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2624 (dun-ls nil))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2625 (setq dun-cdpath ocdpath)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2626 (setq dun-cdroom ocdroom))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2627 (if (= dun-cdroom -10)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2628 (dun-ls-inven))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2629 (if (= dun-cdroom -2)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2630 (dun-ls-rooms))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2631 (if (= dun-cdroom -3)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2632 (dun-ls-root))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2633 (if (= dun-cdroom -4)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2634 (dun-ls-usr))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2635 (if (> dun-cdroom 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2636 (dun-ls-room))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2637
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2638 (defun dun-ls-root ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2639 (dun-mprincl "total 4
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2640 drwxr-xr-x 3 root staff 512 Jan 1 1970 .
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2641 drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2642 drwxr-xr-x 3 root staff 2048 Jan 1 1970 usr
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2643 drwxr-xr-x 3 root staff 2048 Jan 1 1970 rooms"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2644
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2645 (defun dun-ls-usr ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2646 (dun-mprincl "total 4
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2647 drwxr-xr-x 3 root staff 512 Jan 1 1970 .
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2648 drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2649 drwxr-xr-x 3 toukmond restricted 512 Jan 1 1970 toukmond"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2650
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2651 (defun dun-ls-rooms ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2652 (dun-mprincl "total 16
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2653 drwxr-xr-x 3 root staff 512 Jan 1 1970 .
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2654 drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2655 (dolist (x dun-visited)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2656 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2657 "drwxr-xr-x 3 root staff 512 Jan 1 1970 ")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2658 (dun-mprincl (nth x dun-room-shorts))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2659
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2660 (defun dun-ls-room ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2661 (dun-mprincl "total 4
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2662 drwxr-xr-x 3 root staff 512 Jan 1 1970 .
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2663 drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2664 -rwxr-xr-x 3 root staff 2048 Jan 1 1970 description")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2665 (dolist (x (nth dun-cdroom dun-room-objects))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2666 (if (and (>= x 0) (not (= x 255)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2667 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2668 (dun-mprinc "-rwxr-xr-x 1 toukmond restricted 0 Jan 1 1970 ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2669 (dun-mprincl (nth x dun-objfiles))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2670
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2671 (defun dun-ls-inven ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2672 (dun-mprinc "total 467
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2673 drwxr-xr-x 3 toukmond restricted 512 Jan 1 1970 .
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2674 drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2675 (dolist (x dun-unix-verbs)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2676 (if (not (eq (car x) 'IMPOSSIBLE))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2677 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2678 (dun-mprinc"
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2679 -rwxr-xr-x 1 toukmond restricted 10423 Jan 1 1970 ")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2680 (dun-mprinc (car x)))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2681 (dun-mprinc "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2682 (if (not dun-uncompressed)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2683 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2684 "-rwxr-xr-x 1 toukmond restricted 0 Jan 1 1970 paper.o.Z"))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2685 (dolist (x dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2686 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2687 "-rwxr-xr-x 1 toukmond restricted 0 Jan 1 1970 ")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2688 (dun-mprincl (nth x dun-objfiles))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2689
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2690 (defun dun-echo (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2691 (let (nomore var)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2692 (setq nomore nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2693 (dolist (x args)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2694 (if (not nomore)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2695 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2696 (if (not (string= (substring x 0 1) "$"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2697 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2698 (dun-mprinc x)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2699 (dun-mprinc " "))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2700 (setq var (intern (substring x 1)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2701 (if (not (boundp var))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2702 (dun-mprinc " ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2703 (if (member var dun-restricted)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2704 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2705 (dun-mprinc var)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2706 (dun-mprinc ": Permission denied")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2707 (setq nomore t))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2708 (eval (list 'dun-mprinc var))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2709 (dun-mprinc " ")))))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2710 (dun-mprinc "\n")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2711
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2712
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2713 (defun dun-ftp (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2714 (let (host username passwd ident newlist)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2715 (if (not (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2716 (dun-mprincl "ftp: hostname required on command line.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2717 (setq host (intern (car args)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2718 (if (not (member host '(gamma dun-endgame)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2719 (dun-mprincl "ftp: Unknown host.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2720 (if (eq host 'dun-endgame)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2721 (dun-mprincl "ftp: connection to endgame not allowed")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2722 (if (not dun-ethernet)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2723 (dun-mprincl "ftp: host not responding.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2724 (dun-mprincl "Connected to gamma. FTP ver 0.9 00:00:00 01/01/70")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2725 (dun-mprinc "Username: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2726 (setq username (dun-read-line))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2727 (if (string= username "toukmond")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2728 (if dun-batch-mode
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2729 (dun-mprincl "toukmond ftp access not allowed.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2730 (dun-mprincl "\ntoukmond ftp access not allowed."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2731 (if (string= username "anonymous")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2732 (if dun-batch-mode
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2733 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2734 "Guest login okay, send your user ident as password.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2735 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2736 "\nGuest login okay, send your user ident as password."))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2737 (if dun-batch-mode
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2738 (dun-mprinc "Password required for ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2739 (dun-mprinc "\nPassword required for "))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2740 (dun-mprincl username))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2741 (dun-mprinc "Password: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2742 (setq ident (dun-read-line))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2743 (if (not (string= username "anonymous"))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2744 (if dun-batch-mode
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2745 (dun-mprincl "Login failed.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2746 (dun-mprincl "\nLogin failed."))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2747 (if dun-batch-mode
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2748 (dun-mprincl
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2749 "Guest login okay, user access restrictions apply.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2750 (dun-mprincl
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2751 "\nGuest login okay, user access restrictions apply."))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2752 (dun-ftp-commands)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2753 (setq newlist
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2754 '("What password did you use during anonymous ftp to gamma?"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2755 (setq newlist (append newlist (list ident)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2756 (rplaca (nthcdr 1 dun-endgame-questions) newlist)))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2757
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2758 (defun dun-ftp-commands ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2759 (setq dun-exitf nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2760 (let (line)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2761 (while (not dun-exitf)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2762 (dun-mprinc "ftp> ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2763 (setq line (dun-read-line))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2764 (if
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2765 (eq
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2766 (dun-parse2 nil
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2767 '((type . dun-ftptype) (binary . dun-bin) (bin . dun-bin)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2768 (send . dun-send) (put . dun-send) (quit . dun-ftpquit)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2769 (help . dun-ftphelp)(ascii . dun-fascii)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2770 ) line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2771 -1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2772 (dun-mprincl "No such command. Try help.")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2773 (setq dun-ftptype 'ascii)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2774
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2775 (defun dun-ftptype (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2776 (if (not (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2777 (dun-mprincl "Usage: type [binary | ascii]")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2778 (setq args (intern (car args)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2779 (if (eq args 'binary)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2780 (dun-bin nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2781 (if (eq args 'ascii)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2782 (dun-fascii 'nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2783 (dun-mprincl "Unknown type.")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2784
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2785 (defun dun-bin (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2786 (dun-mprincl "Type set to binary.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2787 (setq dun-ftptype 'binary))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2788
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2789 (defun dun-fascii (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2790 (dun-mprincl "Type set to ascii.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2791 (setq dun-ftptype 'ascii))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2792
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2793 (defun dun-ftpquit (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2794 (setq dun-exitf t))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2795
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2796 (defun dun-send (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2797 (if (not (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2798 (dun-mprincl "Usage: send <filename>")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2799 (setq args (car args))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2800 (let (counter foo)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2801 (setq foo nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2802 (setq counter 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2803
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2804 ;;; User can send commands! Stupid user.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2805
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2806
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2807 (if (assq (intern args) dun-unix-verbs)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2808 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2809 (rplaca (assq (intern args) dun-unix-verbs) 'IMPOSSIBLE)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2810 (dun-mprinc "Sending ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2811 (dun-mprinc dun-ftptype)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2812 (dun-mprinc " file for ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2813 (dun-mprincl args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2814 (dun-mprincl "Transfer complete."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2815
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2816 (dolist (x dun-objfiles)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2817 (if (string= args x)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2818 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2819 (if (not (member counter dun-inventory))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2820 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2821 (dun-mprincl "No such file.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2822 (setq foo t))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2823 (dun-mprinc "Sending ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2824 (dun-mprinc dun-ftptype)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2825 (dun-mprinc " file for ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2826 (dun-mprinc (downcase (cadr (nth counter dun-objects))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2827 (dun-mprincl ", (0 bytes)")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2828 (if (not (eq dun-ftptype 'binary))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2829 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2830 (if (not (member obj-protoplasm
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2831 (nth receiving-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2832 dun-room-objects)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2833 (dun-replace dun-room-objects receiving-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2834 (append (nth receiving-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2835 dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2836 (list obj-protoplasm))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2837 (dun-remove-obj-from-inven counter))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2838 (dun-remove-obj-from-inven counter)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2839 (dun-replace dun-room-objects receiving-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2840 (append (nth receiving-room dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2841 (list counter))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2842 (setq foo t)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2843 (dun-mprincl "Transfer complete."))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2844 (setq counter (+ 1 counter)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2845 (if (not foo)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2846 (dun-mprincl "No such file."))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2847
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2848 (defun dun-ftphelp (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2849 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2850 "Possible commands are:\nsend quit type ascii binary help"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2851
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2852 (defun dun-uexit (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2853 (setq dungeon-mode 'dungeon)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2854 (dun-mprincl "\nYou step back from the console.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2855 (define-key dungeon-mode-map "\r" 'dun-parse)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2856 (if (not dun-batch-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2857 (dun-messages)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2858
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2859 (defun dun-pwd (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2860 (dun-mprincl dun-cdpath))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2861
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2862 (defun dun-uncompress (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2863 (if (not (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2864 (dun-mprincl "Usage: uncompress <filename>")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2865 (setq args (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2866 (if (or dun-uncompressed
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2867 (and (not (string= args "paper.o"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2868 (not (string= args "paper.o.z"))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2869 (dun-mprincl "Uncompress command failed.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2870 (setq dun-uncompressed t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2871 (setq dun-inventory (append dun-inventory (list obj-paper))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2872
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2873 (defun dun-rlogin (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2874 (let (passwd)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2875 (if (not (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2876 (dun-mprincl "Usage: rlogin <hostname>")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2877 (setq args (car args))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2878 (if (string= args "endgame")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2879 (dun-rlogin-endgame)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2880 (if (not (string= args "gamma"))
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2881 (if (string= args "pokey")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2882 (dun-mprincl "Can't rlogin back to localhost")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2883 (dun-mprincl "No such host."))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2884 (if (not dun-ethernet)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2885 (dun-mprincl "Host not responding.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2886 (dun-mprinc "Password: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2887 (setq passwd (dun-read-line))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2888 (if (not (string= passwd "worms"))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2889 (dun-mprincl "\nlogin incorrect")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2890 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2891 "\nYou begin to feel strange for a moment, and you lose your items."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2892 )
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2893 (dun-replace dun-room-objects computer-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2894 (append (nth computer-room dun-room-objects)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2895 dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2896 (setq dun-inventory nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2897 (setq dun-current-room receiving-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2898 (dun-uexit nil))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2899
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2900 (defun dun-cd (args)
13952
de80a367ca08 (dun-cd): Fix local var misspelling.
Karl Heuer <kwzh@gnu.org>
parents: 13076
diff changeset
2901 (let (tcdpath tcdroom path-elements room-check)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2902 (if (not (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2903 (dun-mprincl "Usage: cd <path>")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2904 (setq tcdpath dun-cdpath)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2905 (setq tcdroom dun-cdroom)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2906 (setq dun-badcd nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2907 (condition-case nil
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2908 (setq path-elements (dun-get-path (car args) nil))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2909 (error (dun-mprincl "Invalid path.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2910 (setq dun-badcd t)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2911 (dolist (pe path-elements)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2912 (unless dun-badcd
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2913 (if (not (string= pe "."))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2914 (if (string= pe "..")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2915 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2916 (if (> tcdroom 0) ;In a room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2917 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2918 (setq tcdpath "/rooms")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2919 (setq tcdroom -2))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2920 ;In /rooms,/usr,root
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2921 (if (or
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2922 (= tcdroom -2) (= tcdroom -4)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2923 (= tcdroom -3))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2924 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2925 (setq tcdpath "/")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2926 (setq tcdroom -3))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2927 (if (= tcdroom -10) ;In /usr/toukmond
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2928 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2929 (setq tcdpath "/usr")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2930 (setq tcdroom -4))))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2931 (if (string= pe "/")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2932 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2933 (setq tcdpath "/")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2934 (setq tcdroom -3))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2935 (if (= tcdroom -4)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2936 (if (string= pe "toukmond")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2937 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2938 (setq tcdpath "/usr/toukmond")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2939 (setq tcdroom -10))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2940 (dun-nosuchdir))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2941 (if (= tcdroom -10)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2942 (dun-nosuchdir)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2943 (if (> tcdroom 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2944 (dun-nosuchdir)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2945 (if (= tcdroom -3)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2946 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2947 (if (string= pe "rooms")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2948 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2949 (setq tcdpath "/rooms")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2950 (setq tcdroom -2))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2951 (if (string= pe "usr")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2952 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2953 (setq tcdpath "/usr")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2954 (setq tcdroom -4))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2955 (dun-nosuchdir))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2956 (if (= tcdroom -2)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2957 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2958 (dolist (x dun-visited)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2959 (setq room-check
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2960 (nth x
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2961 dun-room-shorts))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2962 (if (string= room-check pe)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2963 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2964 (setq tcdpath
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2965 (concat "/rooms/" room-check))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2966 (setq tcdroom x))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2967 (if (= tcdroom -2)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2968 (dun-nosuchdir)))))))))))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2969 (if (not dun-badcd)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2970 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2971 (setq dun-cdpath tcdpath)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2972 (setq dun-cdroom tcdroom)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2973 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2974 -2))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2975
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2976 (defun dun-nosuchdir ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2977 (dun-mprincl "No such directory.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2978 (setq dun-badcd t))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2979
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2980 (defun dun-cat (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2981 (let (doto checklist)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2982 (if (not (setq args (car args)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2983 (dun-mprincl "Usage: cat <ascii-file-name>")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2984 (if (string-match "/" args)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2985 (dun-mprincl "cat: only files in current directory allowed.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2986 (if (and (> dun-cdroom 0) (string= args "description"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2987 (dun-mprincl (car (nth dun-cdroom dun-rooms)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2988 (if (setq doto (string-match "\\.o" args))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2989 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2990 (if (= dun-cdroom -10)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2991 (setq checklist dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2992 (setq checklist (nth dun-cdroom dun-room-objects)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2993 (if (not (member (cdr
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2994 (assq (intern
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2995 (substring args 0 doto))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2996 dun-objnames))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2997 checklist))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2998 (dun-mprincl "File not found.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2999 (dun-mprincl "Ascii files only.")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3000 (if (assq (intern args) dun-unix-verbs)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3001 (dun-mprincl "Ascii files only.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3002 (dun-mprincl "File not found."))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3003
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3004 (defun dun-zippy (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3005 (dun-mprincl (yow)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3006
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3007 (defun dun-rlogin-endgame ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3008 (if (not (= (dun-score nil) 90))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3009 (dun-mprincl
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3010 "You have not achieved enough points to connect to endgame.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3011 (dun-mprincl"\nWelcome to the endgame. You are a truly noble adventurer.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3012 (setq dun-current-room treasure-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3013 (setq dun-endgame t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3014 (dun-replace dun-room-objects endgame-treasure-room (list obj-bill))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3015 (dun-uexit nil)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3016
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3017
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3018 (random t)
4403
2d6328c324cd (dun-endgame-question, tcom, tloc):
Paul Eggert <eggert@twinsun.com>
parents: 4245
diff changeset
3019 (setq tloc (+ 60 (random 18)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3020 (dun-replace dun-room-objects tloc
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3021 (append (nth tloc dun-room-objects) (list 18)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3022
4403
2d6328c324cd (dun-endgame-question, tcom, tloc):
Paul Eggert <eggert@twinsun.com>
parents: 4245
diff changeset
3023 (setq tcomb (+ 100 (random 899)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3024 (setq dun-combination (prin1-to-string tcomb))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3025
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3026 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3027 ;;;; This section defines the DOS emulation functions for dunnet
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3028 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3029
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3030 (defun dun-dos-parse (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3031 (interactive "*p")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3032 (beginning-of-line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3033 (let (beg)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3034 (setq beg (+ (point) 3))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3035 (end-of-line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3036 (if (not (= beg (point)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3037 (let (line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3038 (setq line (downcase (buffer-substring beg (point))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3039 (princ line)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3040 (if (eq (dun-parse2 nil dun-dos-verbs line) -1)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3041 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3042 (sleep-for 1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3043 (dun-mprincl "Bad command or file name"))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3044 (goto-char (point-max))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3045 (dun-mprinc "\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3046 (if (eq dungeon-mode 'dos)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3047 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3048 (dun-fix-screen)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3049 (dun-dos-prompt)))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3050
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3051 (defun dun-dos-interface ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3052 (dun-dos-boot-msg)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3053 (setq dungeon-mode 'dos)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3054 (define-key dungeon-mode-map "\r" 'dun-dos-parse)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3055 (dun-dos-prompt))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3056
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3057 (defun dun-dos-type (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3058 (sleep-for 2)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3059 (if (setq args (car args))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3060 (if (string= args "foo.txt")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3061 (dun-dos-show-combination)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3062 (if (string= args "command.com")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3063 (dun-mprincl "Cannot type binary files")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3064 (dun-mprinc "File not found - ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3065 (dun-mprincl (upcase args))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3066 (dun-mprincl "Must supply file name")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3067
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3068 (defun dun-dos-invd (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3069 (sleep-for 1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3070 (dun-mprincl "Invalid drive specification"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3071
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3072 (defun dun-dos-dir (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3073 (sleep-for 1)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3074 (if (or (not (setq args (car args))) (string= args "\\"))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3075 (dun-mprincl "
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3076 Volume in drive A is FOO
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3077 Volume Serial Number is 1A16-08C9
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3078 Directory of A:\\
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3079
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3080 COMMAND COM 47845 04-09-91 2:00a
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3081 FOO TXT 40 01-20-93 1:01a
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3082 2 file(s) 47845 bytes
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3083 1065280 bytes free
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3084 ")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3085 (dun-mprincl "
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3086 Volume in drive A is FOO
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3087 Volume Serial Number is 1A16-08C9
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3088 Directory of A:\\
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3089
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3090 File not found")))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3091
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3092
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3093 (defun dun-dos-prompt ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3094 (dun-mprinc "A> "))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3095
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3096 (defun dun-dos-boot-msg ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3097 (sleep-for 3)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3098 (dun-mprinc "Current time is ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3099 (dun-mprincl (substring (current-time-string) 12 20))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3100 (dun-mprinc "Enter new time: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3101 (dun-read-line)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3102 (if (not dun-batch-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3103 (dun-mprinc "\n")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3104
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3105 (defun dun-dos-spawn (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3106 (sleep-for 1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3107 (dun-mprincl "Cannot spawn subshell"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3108
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3109 (defun dun-dos-exit (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3110 (setq dungeon-mode 'dungeon)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3111 (dun-mprincl "\nYou power down the machine and step back.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3112 (define-key dungeon-mode-map "\r" 'dun-parse)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3113 (if (not dun-batch-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3114 (dun-messages)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3115
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3116 (defun dun-dos-no-disk ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3117 (sleep-for 3)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3118 (dun-mprincl "Boot sector not found"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3119
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3120
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3121 (defun dun-dos-show-combination ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3122 (sleep-for 2)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3123 (dun-mprinc "\nThe combination is ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3124 (dun-mprinc dun-combination)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3125 (dun-mprinc ".\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3126
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3127 (defun dun-dos-nil (args))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3128
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3129
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3130 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3131 ;;;; This section defines the save and restore game functions for dunnet.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3132 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3133
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3134 (defun dun-save-game (filename)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3135 (if (not (setq filename (car filename)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3136 (dun-mprincl "You must supply a filename for the save.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3137 (if (file-exists-p filename)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3138 (delete-file filename))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3139 (setq dun-numsaves (1+ dun-numsaves))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3140 (dun-make-save-buffer)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3141 (dun-save-val "dun-current-room")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3142 (dun-save-val "dun-computer")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3143 (dun-save-val "dun-combination")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3144 (dun-save-val "dun-visited")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3145 (dun-save-val "dun-diggables")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3146 (dun-save-val "dun-key-level")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3147 (dun-save-val "dun-floppy")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3148 (dun-save-val "dun-numsaves")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3149 (dun-save-val "dun-numcmds")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3150 (dun-save-val "dun-logged-in")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3151 (dun-save-val "dungeon-mode")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3152 (dun-save-val "dun-jar")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3153 (dun-save-val "dun-lastdir")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3154 (dun-save-val "dun-black")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3155 (dun-save-val "dun-nomail")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3156 (dun-save-val "dun-unix-verbs")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3157 (dun-save-val "dun-hole")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3158 (dun-save-val "dun-uncompressed")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3159 (dun-save-val "dun-ethernet")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3160 (dun-save-val "dun-sauna-level")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3161 (dun-save-val "dun-room-objects")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3162 (dun-save-val "dun-room-silents")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3163 (dun-save-val "dun-inventory")
4697
7e513df4d806 (dun-save-game): Use correct name of endgame question.
Richard M. Stallman <rms@gnu.org>
parents: 4403
diff changeset
3164 (dun-save-val "dun-endgame-questions")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3165 (dun-save-val "dun-endgame")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3166 (dun-save-val "dun-cdroom")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3167 (dun-save-val "dun-cdpath")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3168 (dun-save-val "dun-correct-answer")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3169 (dun-save-val "dun-inbus")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3170 (if (dun-compile-save-out filename)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3171 (dun-mprincl "Error saving to file.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3172 (dun-do-logfile 'save nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3173 (switch-to-buffer "*dungeon*")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3174 (princ "")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3175 (dun-mprincl "Done."))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3176
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3177 (defun dun-make-save-buffer ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3178 (switch-to-buffer (get-buffer-create "*save-dungeon*"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3179 (erase-buffer))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3180
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3181 (defun dun-compile-save-out (filename)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3182 (let (ferror)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3183 (setq ferror nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3184 (condition-case nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3185 (dun-rot13)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3186 (error (setq ferror t)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3187 (if (not ferror)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3188 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3189 (goto-char (point-min))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3190 (condition-case nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3191 (write-region 1 (point-max) filename nil 1)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3192 (error (setq ferror t)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3193 (kill-buffer (current-buffer))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3194 ferror))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3195
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3196
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3197 (defun dun-save-val (varname)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3198 (let (value)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3199 (setq varname (intern varname))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3200 (setq value (eval varname))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3201 (dun-minsert "(setq ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3202 (dun-minsert varname)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3203 (dun-minsert " ")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3204 (if (or (listp value)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3205 (symbolp value))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3206 (dun-minsert "'"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3207 (if (stringp value)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3208 (dun-minsert "\""))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3209 (dun-minsert value)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3210 (if (stringp value)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3211 (dun-minsert "\""))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3212 (dun-minsertl ")")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3213
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3214
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3215 (defun dun-restore (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3216 (let (file)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3217 (if (not (setq file (car args)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3218 (dun-mprincl "You must supply a filename.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3219 (if (not (dun-load-d file))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3220 (dun-mprincl "Could not load restore file.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3221 (dun-mprincl "Done.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3222 (setq room 0)))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3223
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3224
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3225 (defun dun-do-logfile (type how)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3226 (let (ferror newscore)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3227 (setq ferror nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3228 (switch-to-buffer (get-buffer-create "*score*"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3229 (erase-buffer)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3230 (condition-case nil
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3231 (insert-file-contents dun-log-file)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3232 (error (setq ferror t)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3233 (unless ferror
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3234 (goto-char (point-max))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3235 (dun-minsert (current-time-string))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3236 (dun-minsert " ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3237 (dun-minsert (user-login-name))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3238 (dun-minsert " ")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3239 (if (eq type 'save)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3240 (dun-minsert "saved ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3241 (if (= (dun-endgame-score) 110)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3242 (dun-minsert "won ")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3243 (if (not how)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3244 (dun-minsert "quit ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3245 (dun-minsert "killed by ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3246 (dun-minsert how)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3247 (dun-minsert " "))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3248 (dun-minsert "at ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3249 (dun-minsert (cadr (nth (abs room) dun-rooms)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3250 (dun-minsert ". score: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3251 (if (> (dun-endgame-score) 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3252 (dun-minsert (setq newscore (+ 90 (dun-endgame-score))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3253 (dun-minsert (setq newscore (dun-reg-score))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3254 (dun-minsert " saves: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3255 (dun-minsert dun-numsaves)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3256 (dun-minsert " commands: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3257 (dun-minsert dun-numcmds)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3258 (dun-minsert "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3259 (write-region 1 (point-max) dun-log-file nil 1))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3260 (kill-buffer (current-buffer))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3261
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3262
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3263 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3264 ;;;; These are functions, and function re-definitions so that dungeon can
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3265 ;;;; be run in batch mode.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3266
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3267
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3268 (defun dun-batch-mprinc (arg)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3269 (if (stringp arg)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3270 (send-string-to-terminal arg)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3271 (send-string-to-terminal (prin1-to-string arg))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3272
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3273
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3274 (defun dun-batch-mprincl (arg)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3275 (if (stringp arg)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3276 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3277 (send-string-to-terminal arg)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3278 (send-string-to-terminal "\n"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3279 (send-string-to-terminal (prin1-to-string arg))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3280 (send-string-to-terminal "\n")))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3281
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3282 (defun dun-batch-parse (dun-ignore dun-verblist line)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3283 (setq line-list (dun-listify-string (concat line " ")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3284 (dun-doverb dun-ignore dun-verblist (car line-list) (cdr line-list)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3285
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3286 (defun dun-batch-parse2 (dun-ignore dun-verblist line)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3287 (setq line-list (dun-listify-string2 (concat line " ")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3288 (dun-doverb dun-ignore dun-verblist (car line-list) (cdr line-list)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3289
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3290 (defun dun-batch-read-line ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3291 (read-from-minibuffer "" nil dungeon-batch-map))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3292
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3293
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3294 (defun dun-batch-loop ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3295 (setq dun-dead nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3296 (setq room 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3297 (while (not dun-dead)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3298 (if (eq dungeon-mode 'dungeon)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3299 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3300 (if (not (= room dun-current-room))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3301 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3302 (dun-describe-room dun-current-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3303 (setq room dun-current-room)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3304 (dun-mprinc ">")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3305 (setq line (downcase (dun-read-line)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3306 (if (eq (dun-vparse dun-ignore dun-verblist line) -1)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3307 (dun-mprinc "I don't understand that.\n"))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3308
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3309 (defun dun-batch-dos-interface ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3310 (dun-dos-boot-msg)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3311 (setq dungeon-mode 'dos)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3312 (while (eq dungeon-mode 'dos)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3313 (dun-dos-prompt)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3314 (setq line (downcase (dun-read-line)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3315 (if (eq (dun-parse2 nil dun-dos-verbs line) -1)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3316 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3317 (sleep-for 1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3318 (dun-mprincl "Bad command or file name"))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3319 (goto-char (point-max))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3320 (dun-mprinc "\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3321
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3322 (defun dun-batch-unix-interface ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3323 (dun-login)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3324 (if dun-logged-in
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3325 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3326 (setq dungeon-mode 'unix)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3327 (while (eq dungeon-mode 'unix)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3328 (dun-mprinc "$ ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3329 (setq line (downcase (dun-read-line)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3330 (if (eq (dun-parse2 nil dun-unix-verbs line) -1)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3331 (let (esign)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3332 (if (setq esign (string-match "=" line))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3333 (dun-doassign line esign)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3334 (dun-mprinc (car line-list))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3335 (dun-mprincl ": not found.")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3336 (goto-char (point-max))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3337 (dun-mprinc "\n"))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3338
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3339 (defun dungeon-nil (arg)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3340 "noop"
17675
ba2bcca6f8c4 (dungeon-nil): Explicitly return nil.
Richard M. Stallman <rms@gnu.org>
parents: 17577
diff changeset
3341 (interactive "*p")
ba2bcca6f8c4 (dungeon-nil): Explicitly return nil.
Richard M. Stallman <rms@gnu.org>
parents: 17577
diff changeset
3342 nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3343
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3344 (defun dun-batch-dungeon ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3345 (load "dun-batch")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3346 (setq dun-visited '(27))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3347 (dun-mprinc "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3348 (dun-batch-loop))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3349
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3350 (unless (not noninteractive)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3351 (fset 'dun-mprinc 'dun-batch-mprinc)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3352 (fset 'dun-mprincl 'dun-batch-mprincl)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3353 (fset 'dun-vparse 'dun-batch-parse)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3354 (fset 'dun-parse2 'dun-batch-parse2)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3355 (fset 'dun-read-line 'dun-batch-read-line)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3356 (fset 'dun-dos-interface 'dun-batch-dos-interface)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3357 (fset 'dun-unix-interface 'dun-batch-unix-interface)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3358 (dun-mprinc "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3359 (setq dun-batch-mode t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3360 (dun-batch-loop))
4193
97649642e730 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4075
diff changeset
3361
18383
11218164bc54 Add provide call.
Richard M. Stallman <rms@gnu.org>
parents: 17675
diff changeset
3362 (provide 'dunnet)
4193
97649642e730 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4075
diff changeset
3363
18383
11218164bc54 Add provide call.
Richard M. Stallman <rms@gnu.org>
parents: 17675
diff changeset
3364 ;; dunnet.el ends here
11218164bc54 Add provide call.
Richard M. Stallman <rms@gnu.org>
parents: 17675
diff changeset
3365