annotate lisp/play/dunnet.el @ 109298:c145957f7705

Minor fix to describe-key, and a docstring. * help.el (describe-key): Print up-event using key-description. * mouse.el (mouse-appearance-menu): Add docstring.
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 06 Jul 2010 15:42:46 -0400
parents 1d1d5d9bd884
children 376148b31b5e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
86864
b7b9a1611532 Don't require cl when compiling.
Glenn Morris <rgm@gnu.org>
parents: 78227
diff changeset
1 ;;; dunnet.el --- text adventure for Emacs -*- byte-compile-warnings: nil -*-
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
64701
34bd8e434dd7 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64085
diff changeset
3 ;; Copyright (C) 1992, 1993, 2001, 2002, 2003, 2004,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13952
diff changeset
5
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
6 ;; Author: Ron Schnell <ronnie@driver-aces.com>
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 ;; Created: 25 Jul 1992
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
8 ;; Version: 2.01
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 ;; Keywords: games
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; This file is part of GNU Emacs.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12
94675
949bd6ad1ba4 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
13 ;; GNU Emacs is free software: you can redistribute it and/or modify
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; it under the terms of the GNU General Public License as published by
94675
949bd6ad1ba4 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
15 ;; the Free Software Foundation, either version 3 of the License, or
949bd6ad1ba4 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
16 ;; (at your option) any later version.
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; GNU General Public License for more details.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
94675
949bd6ad1ba4 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 ;; 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
29 ;; emacs -batch -l dunnet
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
31 ;;; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 ;;; 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
33 ;;; be writable by all.
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34
38425
c6e12c6b1498 Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36526
diff changeset
35 ;;; Code:
c6e12c6b1498 Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36526
diff changeset
36
21363
f1fc193b6958 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18670
diff changeset
37 (defgroup dunnet nil
f1fc193b6958 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18670
diff changeset
38 "Text adventure for Emacs."
f1fc193b6958 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18670
diff changeset
39 :prefix "dun-"
f1fc193b6958 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18670
diff changeset
40 :group 'games)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41
21363
f1fc193b6958 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18670
diff changeset
42 (defcustom dun-log-file "/usr/local/dunnet.score"
f1fc193b6958 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18670
diff changeset
43 "Name of file to store score information for dunnet."
f1fc193b6958 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18670
diff changeset
44 :type 'file
f1fc193b6958 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18670
diff changeset
45 :group 'dunnet)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 ;;;; Mode definitions for interactive mode
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48
63231
05cff8bfc8e3 (dun-mode): Use define-derived-mode.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
49 (define-derived-mode dun-mode text-mode "Dungeon"
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
50 "Major mode for running dunnet."
14743
345ee562c72a Require cl only when compiling.
Richard M. Stallman <rms@gnu.org>
parents: 14640
diff changeset
51 (make-local-variable 'scroll-step)
63231
05cff8bfc8e3 (dun-mode): Use define-derived-mode.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
52 (setq scroll-step 2))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
54 (defun dun-parse (arg)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
55 "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
56 (interactive "*p")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 (beginning-of-line)
86864
b7b9a1611532 Don't require cl when compiling.
Glenn Morris <rgm@gnu.org>
parents: 78227
diff changeset
58 (let ((beg (1+ (point)))
b7b9a1611532 Don't require cl when compiling.
Glenn Morris <rgm@gnu.org>
parents: 78227
diff changeset
59 line)
b7b9a1611532 Don't require cl when compiling.
Glenn Morris <rgm@gnu.org>
parents: 78227
diff changeset
60 (end-of-line)
b7b9a1611532 Don't require cl when compiling.
Glenn Morris <rgm@gnu.org>
parents: 78227
diff changeset
61 (if (and (not (= beg (point))) (not (< (point) beg))
b7b9a1611532 Don't require cl when compiling.
Glenn Morris <rgm@gnu.org>
parents: 78227
diff changeset
62 (string= ">" (buffer-substring (- beg 1) beg)))
b7b9a1611532 Don't require cl when compiling.
Glenn Morris <rgm@gnu.org>
parents: 78227
diff changeset
63 (progn
b7b9a1611532 Don't require cl when compiling.
Glenn Morris <rgm@gnu.org>
parents: 78227
diff changeset
64 (setq line (downcase (buffer-substring beg (point))))
b7b9a1611532 Don't require cl when compiling.
Glenn Morris <rgm@gnu.org>
parents: 78227
diff changeset
65 (princ line)
b7b9a1611532 Don't require cl when compiling.
Glenn Morris <rgm@gnu.org>
parents: 78227
diff changeset
66 (if (eq (dun-vparse dun-ignore dun-verblist line) -1)
b7b9a1611532 Don't require cl when compiling.
Glenn Morris <rgm@gnu.org>
parents: 78227
diff changeset
67 (dun-mprinc "I don't understand that.\n")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 (goto-char (point-max))
86864
b7b9a1611532 Don't require cl when compiling.
Glenn Morris <rgm@gnu.org>
parents: 78227
diff changeset
69 (dun-mprinc "\n")))
b7b9a1611532 Don't require cl when compiling.
Glenn Morris <rgm@gnu.org>
parents: 78227
diff changeset
70 (dun-messages))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
71
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
72 (defun dun-messages ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
73 (if dun-dead
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 (text-mode)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 (if (eq dungeon-mode 'dungeon)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
77 (if (not (= room dun-current-room))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
79 (dun-describe-room dun-current-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
80 (setq room dun-current-room)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
81 (dun-fix-screen)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
82 (dun-mprinc ">")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 ;;;###autoload
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 (defun dunnet ()
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 "Switch to *dungeon* buffer and start game."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 (interactive)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 (switch-to-buffer "*dungeon*")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
90 (dun-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
91 (setq dun-dead nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 (setq room 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
93 (dun-messages))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 ;;;; This section contains all of the verbs and commands.
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 ;;; Give long description of room if haven't been there yet. Otherwise
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 ;;; short. Also give long if we were called with negative room number.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
102 (defun dun-describe-room (room)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
103 (if (and (not (member (abs room) dun-light-rooms))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
104 (not (member obj-lamp dun-inventory)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
105 (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
106 (dun-mprincl (cadr (nth (abs room) dun-rooms)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
107 (if (and (and (or (member room dun-visited)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
108 (string= dun-mode "dun-superb")) (> room 0))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
109 (not (string= dun-mode "long")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 nil
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
111 (dun-mprinc (car (nth (abs room) dun-rooms)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
112 (dun-mprinc "\n"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
113 (if (not (string= dun-mode "long"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
114 (if (not (member (abs room) dun-visited))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
115 (setq dun-visited (append (list (abs room)) dun-visited))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
116 (dolist (xobjs (nth dun-current-room dun-room-objects))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 (if (= xobjs obj-special)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
118 (dun-special-object)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 (if (>= xobjs 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
120 (dun-mprincl (car (nth xobjs dun-objects)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
121 (if (not (and (= xobjs obj-bus) dun-inbus))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
123 (dun-mprincl (car (nth (abs xobjs) dun-perm-objects)))))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
124 (if (and (= xobjs obj-jar) dun-jar)
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 "The jar contains:")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
127 (dolist (x dun-jar)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
128 (dun-mprinc " ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
129 (dun-mprincl (car (nth x dun-objects)))))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
130 (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
131 (dun-mprincl "You are on the bus."))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 ;;; There is a special object in the room. This object's description,
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 ;;; or lack thereof, depends on certain conditions.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
136 (defun dun-special-object ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
137 (if (= dun-current-room computer-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
138 (if dun-computer
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
139 (dun-mprincl
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
140 "The panel lights are flashing in a seemingly organized pattern.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
141 (dun-mprincl "The panel lights are steady and motionless.")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
143 (if (and (= dun-current-room red-room)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
144 (not (member obj-towel (nth red-room dun-room-objects))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
145 (dun-mprincl "There is a hole in the floor here."))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
146
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
147 (if (and (= dun-current-room marine-life-area) dun-black)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
148 (dun-mprincl
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
149 "The room is lit by a black light, causing the fish, and some of
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 your objects, to give off an eerie glow."))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
151 (if (and (= dun-current-room fourth-vermont-intersection) dun-hole)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 (progn
4245
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
153 (if (not dun-inbus)
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
154 (progn
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
155 (dun-mprincl"You fall into a hole in the ground.")
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
156 (setq dun-current-room vermont-station)
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
157 (dun-describe-room vermont-station))
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
158 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
159 (dun-mprincl
4245
5988aab467cc entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4193
diff changeset
160 "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
161 (dun-die "burning")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
163 (if (> dun-current-room endgame-computer-room)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
165 (if (not dun-correct-answer)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
166 (dun-endgame-question)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
167 (dun-mprincl "Your question is:")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
168 (dun-mprincl dun-endgame-question))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
170 (if (= dun-current-room sauna)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
172 (dun-mprincl (nth dun-sauna-level '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 "It is normal room temperature in here."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 "It is luke warm in here."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 "It is comfortably hot in here."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 "It is refreshingly hot in here."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 "You are dead now.")))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
178 (if (= dun-sauna-level 3)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 (progn
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
180 (if (or (member obj-rms dun-inventory)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
181 (member obj-rms (nth dun-current-room dun-room-objects)))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
182 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
183 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 "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
185 melts off. You are left with a beautiful diamond!")
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
186 (if (member obj-rms dun-inventory)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
187 (progn
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
188 (dun-remove-obj-from-inven obj-rms)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
189 (setq dun-inventory (append dun-inventory
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
190 (list obj-diamond))))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
191 (dun-remove-obj-from-room dun-current-room obj-rms)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
192 (dun-replace dun-room-objects dun-current-room
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
193 (append (nth dun-current-room dun-room-objects)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
194 (list obj-diamond))))))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
195 (if (or (member obj-floppy dun-inventory)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
196 (member obj-floppy (nth dun-current-room dun-room-objects)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
198 (dun-mprincl
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
199 "You notice your floppy disk beginning to melt. As you grab for it, the
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 disk bursts into flames, and disintegrates.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
201 (dun-remove-obj-from-inven obj-floppy)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
202 (dun-remove-obj-from-room dun-current-room obj-floppy))))))))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
203
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
205 (defun dun-die (murderer)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
206 (dun-mprinc "\n")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 (if murderer
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
208 (dun-mprincl "You are dead."))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
209 (dun-do-logfile 'dun-die murderer)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
210 (dun-score nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
211 (setq dun-dead t))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
213 (defun dun-quit (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
214 (dun-die nil))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216 ;;; Print every object in player's inventory. Special case for the jar,
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 ;;; as we must also print what is in it.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
219 (defun dun-inven (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
220 (dun-mprinc "You currently have:")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
221 (dun-mprinc "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
222 (dolist (curobj dun-inventory)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223 (if curobj
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
225 (dun-mprincl (cadr (nth curobj dun-objects)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
226 (if (and (= curobj obj-jar) dun-jar)
4033
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 "The jar contains:")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
229 (dolist (x dun-jar)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
230 (dun-mprinc " ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
231 (dun-mprincl (cadr (nth x dun-objects))))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
233 (defun dun-shake (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
235 (when (setq objnum (dun-objnum-from-args-std obj))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
236 (if (member objnum dun-inventory)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
237 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238 ;;; If shaking anything will do anything, put here.
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
239 (dun-mprinc "Shaking ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
240 (dun-mprinc (downcase (cadr (nth objnum dun-objects))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
241 (dun-mprinc " seems to have no effect.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
242 (dun-mprinc "\n")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 )
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
244 (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
245 (not (member objnum (nth dun-current-room dun-room-objects))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
246 (dun-mprincl "I don't see that here.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
247 ;;; Shaking trees can be deadly
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
248 (if (= objnum obj-tree)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
250 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251 "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
252 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
253 on your head.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
254 (dun-die "a coconut"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 (if (= objnum obj-bear)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
257 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 "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
259 (dun-die "a bear"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 (if (< objnum 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
261 (dun-mprincl "You cannot shake that.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
262 (dun-mprincl "You don't have that.")))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
265 (defun dun-drop (obj)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
266 (if dun-inbus
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
267 (dun-mprincl "You can't drop anything while on the bus.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 (let (objnum ptr)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
269 (when (setq objnum (dun-objnum-from-args-std obj))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
270 (if (not (setq ptr (member objnum dun-inventory)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
271 (dun-mprincl "You don't have that.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
273 (dun-remove-obj-from-inven objnum)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
274 (dun-replace dun-room-objects dun-current-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
275 (append (nth dun-current-room dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 (list objnum)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
277 (dun-mprincl "Done.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 (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
279 (dun-drop-check objnum))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 ;;; Dropping certain things causes things to happen.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
283 (defun dun-drop-check (objnum)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 (if (and (= objnum obj-food) (= room bear-hangout)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
285 (member obj-bear (nth bear-hangout dun-room-objects)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
287 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 "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
289 (dun-remove-obj-from-room dun-current-room obj-bear)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
290 (dun-remove-obj-from-room dun-current-room obj-food)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
291 (dun-replace dun-room-objects dun-current-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
292 (append (nth dun-current-room dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 (list obj-key)))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
295 (if (and (= objnum obj-jar) (member obj-nitric dun-jar)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
296 (member obj-glycerine dun-jar))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
298 (dun-mprincl
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
299 "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
300 (setq dun-jar nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
301 (dun-remove-obj-from-room dun-current-room obj-jar)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
302 (if (= dun-current-room fourth-vermont-intersection)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
304 (setq dun-hole t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
305 (setq dun-current-room vermont-station)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
306 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 "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
308 through.")))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
310 (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
311 (dun-mprincl "A passageway opens.")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 ;;; Give long description of current room, or an object.
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
314
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
315 (defun dun-examine (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
317 (setq objnum (dun-objnum-from-args obj))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318 (if (eq objnum obj-special)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
319 (dun-describe-room (* dun-current-room -1))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 (if (and (eq objnum obj-computer)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
321 (member obj-pc (nth dun-current-room dun-room-silents)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
322 (dun-examine '("pc"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323 (if (eq objnum nil)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
324 (dun-mprincl "I don't know what that is.")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
325 (if (and (not (member objnum
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
326 (nth dun-current-room dun-room-objects)))
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
327 (not (and (member obj-jar dun-inventory)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
328 (member objnum dun-jar)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
329 (not (member objnum
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
330 (nth dun-current-room dun-room-silents)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
331 (not (member objnum dun-inventory)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
332 (dun-mprincl "I don't see that here.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333 (if (>= objnum 0)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
334 (if (and (= objnum obj-bone)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
335 (= dun-current-room marine-life-area) dun-black)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
336 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337 "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
338 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
339 (if (nth objnum dun-physobj-desc)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
340 (dun-mprincl (nth objnum dun-physobj-desc))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
341 (dun-mprincl "I see nothing special about that.")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
342 (if (nth (abs objnum) dun-permobj-desc)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
343 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
344 (dun-mprincl (nth (abs objnum) dun-permobj-desc)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
345 (dun-mprincl "I see nothing special about that.")))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
347 (defun dun-take (obj)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
348 (setq obj (dun-firstword obj))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
349 (if (not obj)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
350 (dun-mprincl "You must supply an object.")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
351 (if (string= obj "all")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
352 (let (gotsome)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
353 (if dun-inbus
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
354 (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
355 (setq gotsome nil)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
356 (dolist (x (nth dun-current-room dun-room-objects))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
357 (if (and (>= x 0) (not (= x obj-special)))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
358 (progn
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
359 (setq gotsome t)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
360 (dun-mprinc (cadr (nth x dun-objects)))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
361 (dun-mprinc ": ")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
362 (dun-take-object x))))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
363 (if (not gotsome)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
364 (dun-mprincl "Nothing to take."))))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
365 (let (objnum)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
366 (setq objnum (cdr (assq (intern obj) dun-objnames)))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
367 (if (eq objnum nil)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
368 (progn
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
369 (dun-mprinc "I don't know what that is.")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
370 (dun-mprinc "\n"))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
371 (if (and dun-inbus (not (and (member objnum dun-jar)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
372 (member obj-jar dun-inventory))))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
373 (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
374 (dun-take-object objnum)))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
375
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
376 (defun dun-take-object (objnum)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
377 (if (and (member objnum dun-jar) (member obj-jar dun-inventory))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
378 (let (newjar)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
379 (dun-mprincl "You remove it from the jar.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
380 (setq newjar nil)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
381 (dolist (x dun-jar)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
382 (if (not (= x objnum))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
383 (setq newjar (append newjar (list x)))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
384 (setq dun-jar newjar)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
385 (setq dun-inventory (append dun-inventory (list objnum))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
386 (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
387 (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
388 (dun-mprinc "I do not see that here.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
389 (dun-try-take objnum))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390 (if (>= objnum 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
392 (if (and (car dun-inventory)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
393 (> (+ (dun-inven-weight) (nth objnum dun-object-lbs)) 11))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
394 (dun-mprinc "Your load would be too heavy.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
395 (setq dun-inventory (append dun-inventory (list objnum)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
396 (dun-remove-obj-from-room dun-current-room objnum)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
397 (dun-mprinc "Taken. ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
398 (if (and (= objnum obj-towel) (= dun-current-room red-room))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
399 (dun-mprinc
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
400 "Taking the towel reveals a hole in the floor."))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
401 (dun-try-take objnum)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
402 (dun-mprinc "\n")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
404 (defun dun-inven-weight ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
405 (let (total)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406 (setq total 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
407 (dolist (x dun-jar)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
408 (setq total (+ total (nth x dun-object-lbs))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
409 (dolist (x dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
410 (setq total (+ total (nth x dun-object-lbs)))) total))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
411
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 ;;; We try to take an object that is untakable. Print a message
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 ;;; depending on what it is.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
415 (defun dun-try-take (obj)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
416 (dun-mprinc "You cannot take that."))
4033
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-dig (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
419 (if dun-inbus
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
420 (dun-mprincl "Digging here reveals nothing.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
421 (if (not (member 0 dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
422 (dun-mprincl "You have nothing with which to dig.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
423 (if (not (nth dun-current-room dun-diggables))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
424 (dun-mprincl "Digging here reveals nothing.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
425 (dun-mprincl "I think you found something.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
426 (dun-replace dun-room-objects dun-current-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
427 (append (nth dun-current-room dun-room-objects)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
428 (nth dun-current-room dun-diggables)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
429 (dun-replace dun-diggables dun-current-room nil)))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
431 (defun dun-climb (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
433 (setq objnum (dun-objnum-from-args obj))
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
434 (cond ((not objnum)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
435 (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
436 ((and (not (eq objnum obj-special))
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
437 (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
438 (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
439 (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
440 (not (member objnum dun-inventory)))
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
441 (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
442 ((and (eq objnum obj-special)
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
443 (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
444 (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
445 ((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
446 (dun-mprincl "You can't climb that."))
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
447 (t
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
448 (dun-mprincl
b2191b493c1b (dun-climb): Handle unknown object name.
Richard M. Stallman <rms@gnu.org>
parents: 4697
diff changeset
449 "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
450 notice that the tree is very unsteady.")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
451
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
452 (defun dun-eat (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
453 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
454 (when (setq objnum (dun-objnum-from-args-std obj))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
455 (if (not (member objnum dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
456 (dun-mprincl "You don't have that.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
457 (if (not (= objnum obj-food))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
459 (dun-mprinc "You forcefully shove ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
460 (dun-mprinc (downcase (cadr (nth objnum dun-objects))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
461 (dun-mprincl " down your throat, and start choking.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
462 (dun-die "choking"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
463 (dun-mprincl "That tasted horrible.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
464 (dun-remove-obj-from-inven obj-food))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
466 (defun dun-put (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 (let (newargs objnum objnum2 obj)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
468 (setq newargs (dun-firstwordl args))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 (if (not newargs)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
470 (dun-mprincl "You must supply an object")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 (setq obj (intern (car newargs)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
472 (setq objnum (cdr (assq obj dun-objnames)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 (if (not objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
474 (dun-mprincl "I don't know what that object is.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
475 (if (not (member objnum dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
476 (dun-mprincl "You don't have that.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
477 (setq newargs (dun-firstwordl (cdr newargs)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
478 (setq newargs (dun-firstwordl (cdr newargs)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479 (if (not newargs)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
480 (dun-mprincl "You must supply an indirect object.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
481 (setq objnum2 (cdr (assq (intern (car newargs)) dun-objnames)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
482 (if (and (eq objnum2 obj-computer) (= dun-current-room pc-area))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 (setq objnum2 obj-pc))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484 (if (not objnum2)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
485 (dun-mprincl "I don't know what that indirect object is.")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
486 (if (and (not (member objnum2
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
487 (nth dun-current-room dun-room-objects)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
488 (not (member objnum2
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
489 (nth dun-current-room dun-room-silents)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
490 (not (member objnum2 dun-inventory)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
491 (dun-mprincl "That indirect object is not here.")
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
492 (dun-put-objs objnum objnum2)))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
494 (defun dun-put-objs (obj1 obj2)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
495 (if (and (= obj2 obj-drop) (not dun-nomail))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496 (setq obj2 obj-chute))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 (if (= obj2 obj-disposal) (setq obj2 obj-chute))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 (if (and (= obj1 obj-cpu) (= obj2 obj-computer))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
502 (dun-remove-obj-from-inven obj-cpu)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
503 (setq dun-computer t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
504 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 "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
506 The lights start flashing, and the fans seem to startup."))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 (if (and (= obj1 obj-weight) (= obj2 obj-button))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
508 (dun-drop '("weight"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 (if (= obj2 obj-jar) ;; Put something in jar
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 (if (not (member obj1 (list obj-paper obj-diamond obj-emerald
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 obj-license obj-coins obj-egg
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 obj-nitric obj-glycerine)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
513 (dun-mprincl "That will not fit in the jar.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
514 (dun-remove-obj-from-inven obj1)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
515 (setq dun-jar (append dun-jar (list obj1)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
516 (dun-mprincl "Done."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 (if (= obj2 obj-chute) ;; Put something in chute
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
519 (dun-remove-obj-from-inven obj1)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
520 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 "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
522 (dun-put-objs-in-treas (list obj1)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 (if (= obj2 obj-box) ;; Put key in key box
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 (if (= obj1 obj-key)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
526 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 "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
528 with a bang. The key seems to have vanished!")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
529 (dun-remove-obj-from-inven obj1)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
530 (dun-replace dun-room-objects computer-room (append
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 (nth computer-room
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
532 dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 (list obj1)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
534 (dun-remove-obj-from-room dun-current-room obj-box)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
535 (setq dun-key-level (1+ dun-key-level)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
536 (dun-mprincl "You can't put that in the key box!"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 (if (and (= obj1 obj-floppy) (= obj2 obj-pc))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
540 (setq dun-floppy t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
541 (dun-remove-obj-from-inven obj1)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
542 (dun-mprincl "Done."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
544 (if (= obj2 obj-urinal) ;; Put object in urinal
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
546 (dun-remove-obj-from-inven obj1)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
547 (dun-replace dun-room-objects urinal (append
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
548 (nth urinal dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 (list obj1)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
550 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551 "You hear it plop down in some water below."))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 (if (= obj2 obj-mail)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
553 (dun-mprincl "The mail chute is locked.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
554 (if (member obj1 dun-inventory)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
555 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
556 "I don't know how to combine those objects. Perhaps you should
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
557 just try dropping it.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
558 (dun-mprincl"You can't put that there.")))))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
559
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
560 (defun dun-type (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
561 (if (not (= dun-current-room computer-room))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
562 (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
563 (if (not dun-computer)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
564 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
565 "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
566 (dun-unix-interface))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 ;;; Various movement directions
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
570 (defun dun-n (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
571 (dun-move north))
4033
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-s (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
574 (dun-move south))
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-e (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
577 (dun-move east))
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-w (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
580 (dun-move west))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
581
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
582 (defun dun-ne (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
583 (dun-move northeast))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
585 (defun dun-se (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
586 (dun-move southeast))
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-nw (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
589 (dun-move northwest))
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-sw (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
592 (dun-move southwest))
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-up (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
595 (dun-move up))
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-down (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
598 (dun-move down))
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-in (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
601 (dun-move in))
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-out (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
604 (dun-move out))
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-go (args)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
607 (if (or (not (car args))
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
608 (eq (dun-doverb dun-ignore dun-verblist (car args)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
609 (cdr (cdr args))) -1))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
610 (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
611
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612 ;;; 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
613 ;;; requested direction yields 255, we know something special is
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614 ;;; supposed to happen, or perhaps you can't go that way unless
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
615 ;;; certain conditions are met.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
617 (defun dun-move (dir)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
618 (if (and (not (member dun-current-room dun-light-rooms))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
619 (not (member obj-lamp dun-inventory)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
621 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 "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
623 body.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
624 (dun-die "a grue"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 (let (newroom)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
626 (setq newroom (nth dir (nth dun-current-room dungeon-map)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627 (if (eq newroom -1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
628 (dun-mprinc "You can't go that way.\n")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 (if (eq newroom 255)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
630 (dun-special-move dir)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631 (setq room -1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
632 (setq dun-lastdir dir)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
633 (if dun-inbus
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635 (if (or (< newroom 58) (> newroom 83))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
636 (dun-mprincl "The bus cannot go this way.")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
637 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638 "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
639 (dun-remove-obj-from-room dun-current-room obj-bus)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
640 (setq dun-current-room newroom)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
641 (dun-replace dun-room-objects newroom
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
642 (append (nth newroom dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
643 (list obj-bus)))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
644 (setq dun-current-room newroom)))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
645
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646 ;;; Movement in this direction causes something special to happen if the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
647 ;;; 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
648 ;;; you have a key, or a passage has been opened.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
649
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
650 ;;; 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
651 ;;; 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
652 ;;; specials, and they are connected by specials, this could cause
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 ;;; a problem. Be careful when adding them to consider this, and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 ;;; perhaps use else's.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
655
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
656 (defun dun-special-move (dir)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
657 (if (= dun-current-room building-front)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
658 (if (not (member obj-key dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
659 (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
660 (setq dun-current-room old-building-hallway))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
661 (if (= dun-current-room north-end-of-cave-passage)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
662 (let (combo)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
663 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 "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
665 (dun-mprinc "Enter it here: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
666 (setq combo (dun-read-line))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
667 (if (not dun-batch-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
668 (dun-mprinc "\n"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
669 (if (string= combo dun-combination)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
670 (setq dun-current-room gamma-computing-center)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
671 (dun-mprincl "Sorry, that combination is incorrect."))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
672
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
673 (if (= dun-current-room bear-hangout)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
674 (if (member obj-bear (nth bear-hangout dun-room-objects))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
676 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
677 "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
678 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
679 ")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
680 (dun-die "a bear"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
681 (dun-mprincl "You can't go that way.")))
4033
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 (if (= dun-current-room vermont-station)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
684 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
685 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
686 "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
687 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
688 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
689 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
690 "\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
691 force throws you out. The train speeds away.\n")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
692 (setq dun-current-room museum-station)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
693
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
694 (if (= dun-current-room old-building-hallway)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
695 (if (and (member obj-key dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
696 (> dun-key-level 0))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
697 (setq dun-current-room meadow)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
698 (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
699
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
700 (if (and (= dun-current-room maze-button-room) (= dir northwest))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
701 (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
702 (setq dun-current-room 18)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
703 (dun-mprincl "You can't go that way.")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
704
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
705 (if (and (= dun-current-room maze-button-room) (= dir up))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
706 (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
707 (dun-mprincl "You can't go that way.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
708 (setq dun-current-room weight-room)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
709
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
710 (if (= dun-current-room classroom)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
711 (dun-mprincl "The door is locked."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
712
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
713 (if (or (= dun-current-room lakefront-north)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
714 (= dun-current-room lakefront-south))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
715 (dun-swim nil))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
716
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
717 (if (= dun-current-room reception-area)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
718 (if (not (= dun-sauna-level 3))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
719 (setq dun-current-room health-club-front)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
720 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
721 "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
722 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
723 engulf you, and you burn to death.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
724 (dun-die "burning")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
725
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
726 (if (= dun-current-room red-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
727 (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
728 (setq dun-current-room long-n-s-hallway)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
729 (dun-mprincl "You can't go that way.")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
730
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
731 (if (and (> dir down) (> dun-current-room gamma-computing-center)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
732 (< dun-current-room museum-lobby))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
733 (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
734 (dun-mprincl "You can't go that way.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
735 (if (= dir in)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
736 (if dun-inbus
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
737 (dun-mprincl
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
738 "You are already in the bus!")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
739 (if (member obj-license dun-inventory)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
740 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
741 (dun-mprincl
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
742 "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
743 (setq dun-nomail t)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
744 (setq dun-inbus t))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
745 (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
746 (if (not dun-inbus)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
747 (dun-mprincl "You are already off the bus!")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
748 (dun-mprincl "You hop off the bus.")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
749 (setq dun-inbus nil))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
750 (if (= dun-current-room fifth-oaktree-intersection)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
751 (if (not dun-inbus)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
752 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
753 (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
754 (dun-die "a cliff"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
755 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
756 "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
757 (dun-die "a bus accident")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
758 (if (= dun-current-room main-maple-intersection)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
759 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
760 (if (not dun-inbus)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
761 (dun-mprincl "The gate will not open.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
762 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
763 "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
764 (dun-remove-obj-from-room main-maple-intersection obj-bus)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
765 (dun-replace dun-room-objects museum-entrance
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
766 (append (nth museum-entrance dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767 (list obj-bus)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
768 (setq dun-current-room museum-entrance)))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
769 (if (= dun-current-room cave-entrance)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
770 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
771 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
772 "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
773 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
774 (setq dun-current-room misty-room)))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
775
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
776 (defun dun-long (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
777 (setq dun-mode "long"))
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-turn (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
780 (let (objnum direction)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
781 (when (setq objnum (dun-objnum-from-args-std obj))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
782 (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
783 (member objnum (nth dun-current-room dun-room-silents))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
784 (dun-mprincl "I don't see that here.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
785 (if (not (= objnum obj-dial))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
786 (dun-mprincl "You can't turn that.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
787 (setq direction (dun-firstword (cdr obj)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
788 (if (or (not direction)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
789 (not (or (string= direction "clockwise")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
790 (string= direction "counterclockwise"))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
791 (dun-mprincl "You must indicate clockwise or counterclockwise.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
792 (if (string= direction "clockwise")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
793 (setq dun-sauna-level (+ dun-sauna-level 1))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
794 (setq dun-sauna-level (- dun-sauna-level 1)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
795
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
796 (if (< dun-sauna-level 0)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
797 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
798 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
799 "The dial will not turn further in that direction.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
800 (setq dun-sauna-level 0))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
801 (dun-sauna-heat))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
802
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
803 (defun dun-sauna-heat ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
804 (if (= dun-sauna-level 0)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
805 (dun-mprincl
13952
de80a367ca08 (dun-cd): Fix local var misspelling.
Karl Heuer <kwzh@gnu.org>
parents: 13076
diff changeset
806 "The temperature has returned to normal room temperature."))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
807 (if (= dun-sauna-level 1)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
808 (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
809 (if (= dun-sauna-level 2)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
810 (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
811 (if (= dun-sauna-level 3)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
812 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
813 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
814 "It is now very hot. There is something very refreshing about this.")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
815 (if (or (member obj-rms dun-inventory)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
816 (member obj-rms (nth dun-current-room dun-room-objects)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
817 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
818 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
819 "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
820 melts off. You are left with a beautiful diamond!")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
821 (if (member obj-rms dun-inventory)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
822 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
823 (dun-remove-obj-from-inven obj-rms)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
824 (setq dun-inventory (append dun-inventory
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
825 (list obj-diamond))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
826 (dun-remove-obj-from-room dun-current-room obj-rms)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
827 (dun-replace dun-room-objects dun-current-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
828 (append (nth dun-current-room dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
829 (list obj-diamond))))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
830 (if (or (member obj-floppy dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
831 (member obj-floppy (nth dun-current-room dun-room-objects)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
832 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
833 (dun-mprincl
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
834 "You notice your floppy disk beginning to melt. As you grab for it, the
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
835 disk bursts into flames, and disintegrates.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
836 (if (member obj-floppy dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
837 (dun-remove-obj-from-inven obj-floppy)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
838 (dun-remove-obj-from-room dun-current-room obj-floppy))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
839
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
840 (if (= dun-sauna-level 4)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
841 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
842 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
843 "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
844 (dun-die "burning"))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
845
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
846 (defun dun-press (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
847 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
848 (when (setq objnum (dun-objnum-from-args-std obj))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
849 (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
850 (member objnum (nth dun-current-room dun-room-silents))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
851 (dun-mprincl "I don't see that here.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
852 (if (not (member objnum (list obj-button obj-switch)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
853 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
854 (dun-mprinc "You can't ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
855 (dun-mprinc (car line-list))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
856 (dun-mprincl " that."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
857 (if (= objnum obj-button)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
858 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
859 "As you press the button, you notice a passageway open up, but
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
860 as you release it, the passageway closes."))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
861 (if (= objnum obj-switch)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
862 (if dun-black
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
863 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
864 (dun-mprincl "The button is now in the off position.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
865 (setq dun-black nil))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
866 (dun-mprincl "The button is now in the on position.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
867 (setq dun-black t))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
868
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
869 (defun dun-swim (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
870 (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
871 (dun-mprincl "I see no water!")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
872 (if (not (member obj-life dun-inventory))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
873 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
874 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
875 "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
876 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
877 to swim.")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
878 (dun-die "drowning"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
879 (if (= dun-current-room lakefront-north)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
880 (setq dun-current-room lakefront-south)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
881 (setq dun-current-room lakefront-north)))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
882
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
883
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
884 (defun dun-score (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
885 (if (not dun-endgame)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886 (let (total)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
887 (setq total (dun-reg-score))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
888 (dun-mprinc "You have scored ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
889 (dun-mprinc total)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
890 (dun-mprincl " out of a possible 90 points.") total)
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 (dun-endgame-score))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
893 (dun-mprincl " endgame points out of a possible 110.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
894 (if (= (dun-endgame-score) 110)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
895 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 "\n\nCongratulations. You have won. The wizard password is 'moby'"))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
898 (defun dun-help (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
899 (dun-mprincl
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
900 "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
901 Here is some useful information (read carefully because there are one
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 or more clues in here):
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
903 - 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
904 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
905
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
906 - If you have a lamp, it is always lit.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
907
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
908 - 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
909 place. Simply finding the treasures is not good enough. There is more
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
910 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
911 important that the objects get to the special place *unharmed* and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
912 *untarnished*. You can tell if you have successfully transported the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
913 object by looking at your score, as it changes immediately. Note that
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
914 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
915 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
916 get credit for it again.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
917
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
918 - 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
919 with the 'restore' command.
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 - There are no limits on lengths of object names.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
923 - Directions are: north,south,east,west,northeast,southeast,northwest,
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
924 southwest,up,down,in,out.
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 - 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
927
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
928 - 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
929 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
930
73736
a273e3f81411 (dun-help): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 71624
diff changeset
931 - 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
932 emacs -batch -l dunnet
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
933 NOTE: This game *should* be run in batch mode!
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
934
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
935 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
936 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
937 "))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
938
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
939 (defun dun-flush (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
940 (if (not (= dun-current-room bathroom))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
941 (dun-mprincl "I see nothing to flush.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
942 (dun-mprincl "Whoooosh!!")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
943 (dun-put-objs-in-treas (nth urinal dun-room-objects))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
944 (dun-replace dun-room-objects urinal nil)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
945
18670
704d3934673d Undo an earlier change:
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
946 (defun dun-piss (args)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
947 (if (not (= dun-current-room bathroom))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
948 (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
949 (if (not dun-gottago)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
950 (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
951 (dun-mprincl "That was refreshing.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
952 (setq dun-gottago nil)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
953 (dun-replace dun-room-objects urinal (append
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
954 (nth urinal dun-room-objects)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
955 (list obj-URINE))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
956
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
957
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
958 (defun dun-sleep (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
959 (if (not (= dun-current-room bedroom))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
960 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
961 "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
962 (setq dun-gottago t)
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 "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
965 workers digging caves, slaving in the humid heat. Then you see yourself
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
966 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
967 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
968 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
969 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
970 with dirt again. After this, you immediately wake up.")))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
971
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
972 (defun dun-break (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
973 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
974 (if (not (member obj-axe dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
975 (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
976 (when (setq objnum (dun-objnum-from-args-std obj))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
977 (if (member objnum dun-inventory)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
978 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
979 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
980 "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
981 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
982 (dun-die "an axe"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
983 (if (not (or (member objnum (nth dun-current-room dun-room-objects))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
984 (member objnum
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
985 (nth dun-current-room dun-room-silents))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
986 (dun-mprincl "I don't see that here.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
987 (if (= objnum obj-cable)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
988 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
989 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
990 "As you break the ethernet cable, everything starts to blur. You collapse
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
991 for a moment, then straighten yourself up.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
992 ")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
993 (dun-replace dun-room-objects gamma-computing-center
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
994 (append
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
995 (nth gamma-computing-center dun-room-objects)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
996 dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
997 (if (member obj-key dun-inventory)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
998 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
999 (setq dun-inventory (list obj-key))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1000 (dun-remove-obj-from-room
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1001 gamma-computing-center obj-key))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1002 (setq dun-inventory nil))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1003 (setq dun-current-room computer-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1004 (setq dun-ethernet nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1005 (dun-mprincl "Connection closed.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1006 (dun-unix-interface))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1007 (if (< objnum 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1008 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1009 (dun-mprincl "Your axe shatters into a million pieces.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1010 (dun-remove-obj-from-inven obj-axe))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1011 (dun-mprincl "Your axe breaks it into a million pieces.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1012 (dun-remove-obj-from-room dun-current-room objnum)))))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1013
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1014 (defun dun-drive (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1015 (if (not dun-inbus)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1016 (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
1017 (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
1018
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1019 (defun dun-superb (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1020 (setq dun-mode 'dun-superb))
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-reg-score ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1023 (let (total)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1024 (setq total 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1025 (dolist (x (nth treasure-room dun-room-objects))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1026 (setq total (+ total (nth x dun-object-pts))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1027 (if (member obj-URINE (nth treasure-room dun-room-objects))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1028 (setq total 0)) total))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1029
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1030 (defun dun-endgame-score ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1031 (let (total)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1032 (setq total 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1033 (dolist (x (nth endgame-treasure-room dun-room-objects))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1034 (setq total (+ total (nth x dun-object-pts)))) total))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1035
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1036 (defun dun-answer (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1037 (if (not dun-correct-answer)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1038 (dun-mprincl "I don't believe anyone asked you anything.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1039 (setq args (car args))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1040 (if (not args)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1041 (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
1042 (if (dun-members args dun-correct-answer)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1043 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1044 (dun-mprincl "Correct.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1045 (if (= dun-lastdir 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1046 (setq dun-current-room (1+ dun-current-room))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1047 (setq dun-current-room (- dun-current-room 1)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1048 (setq dun-correct-answer nil))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1049 (dun-mprincl "That answer is incorrect.")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1050
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1051 (defun dun-endgame-question ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1052 (if (not dun-endgame-questions)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1053 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1054 (dun-mprincl "Your question is:")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1055 (dun-mprincl "No more questions, just do 'answer foo'.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1056 (setq dun-correct-answer '("foo")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1057 (let (which i newques)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1058 (setq i 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1059 (setq newques nil)
4403
2d6328c324cd (dun-endgame-question, tcom, tloc):
Paul Eggert <eggert@twinsun.com>
parents: 4245
diff changeset
1060 (setq which (random (length dun-endgame-questions)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1061 (dun-mprincl "Your question is:")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1062 (dun-mprincl (setq dun-endgame-question (car
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1063 (nth which
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1064 dun-endgame-questions))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1065 (setq dun-correct-answer (cdr (nth which dun-endgame-questions)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1066 (while (< i which)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1067 (setq newques (append newques (list (nth i dun-endgame-questions))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1068 (setq i (1+ i)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1069 (setq i (1+ which))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1070 (while (< i (length dun-endgame-questions))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1071 (setq newques (append newques (list (nth i dun-endgame-questions))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1072 (setq i (1+ i)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1073 (setq dun-endgame-questions newques))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1074
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1075 (defun dun-power (args)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1076 (if (not (= dun-current-room pc-area))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1077 (dun-mprincl "That operation is not applicable here.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1078 (if (not dun-floppy)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1079 (dun-dos-no-disk)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1080 (dun-dos-interface))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1081
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1082 (defun dun-feed (args)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1083 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1084 (when (setq objnum (dun-objnum-from-args-std args))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1085 (if (and (= objnum obj-bear)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1086 (member obj-bear (nth dun-current-room dun-room-objects)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1087 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1088 (if (not (member obj-food dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1089 (dun-mprincl "You have nothing with which to feed it.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1090 (dun-drop '("food"))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1091 (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
1092 (member objnum dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1093 (member objnum (nth dun-current-room dun-room-silents))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1094 (dun-mprincl "I don't see that here.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1095 (dun-mprincl "You cannot feed that."))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1096
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1097
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1098 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1099 ;;;; This section defines various utility functions used
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1100 ;;;; by dunnet.
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
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1103
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1104 ;;; 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
1105 ;;; function associated with the verb, and passes along the other words.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1106
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1107 (defun dun-doverb (dun-ignore dun-verblist verb rest)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1108 (if (not verb)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1109 nil
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1110 (if (member (intern verb) dun-ignore)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1111 (if (not (car rest)) -1
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1112 (dun-doverb dun-ignore dun-verblist (car rest) (cdr rest)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1113 (if (not (cdr (assq (intern verb) dun-verblist))) -1
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1114 (setq dun-numcmds (1+ dun-numcmds))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1115 (eval (list (cdr (assq (intern verb) dun-verblist)) (quote rest)))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1116
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1117
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1118 ;;; 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
1119
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1120 (defun dun-listify-string (strin)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1121 (let (pos ret-list end-pos)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1122 (setq pos 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1123 (setq ret-list nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1124 (while (setq end-pos (string-match "[ ,:;]" (substring strin pos)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1125 (setq end-pos (+ end-pos pos))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1126 (if (not (= end-pos pos))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1127 (setq ret-list (append ret-list (list
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1128 (downcase
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1129 (substring strin pos end-pos))))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1130 (setq pos (+ end-pos 1))) ret-list))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1131
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1132 (defun dun-listify-string2 (strin)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1133 (let (pos ret-list end-pos)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1134 (setq pos 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1135 (setq ret-list nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1136 (while (setq end-pos (string-match " " (substring strin pos)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1137 (setq end-pos (+ end-pos pos))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1138 (if (not (= end-pos pos))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1139 (setq ret-list (append ret-list (list
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1140 (downcase
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1141 (substring strin pos end-pos))))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1142 (setq pos (+ end-pos 1))) ret-list))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1143
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1144 (defun dun-replace (list n number)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1145 (rplaca (nthcdr n list) number))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1146
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1147
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1148 ;;; Get the first non-ignored word from a list.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1149
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1150 (defun dun-firstword (list)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1151 (if (not (car list))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1152 nil
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1153 (while (and list (member (intern (car list)) dun-ignore))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1154 (setq list (cdr list)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1155 (car list)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1156
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1157 (defun dun-firstwordl (list)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1158 (if (not (car list))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1159 nil
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1160 (while (and list (member (intern (car list)) dun-ignore))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1161 (setq list (cdr list)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1162 list))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1163
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1164 ;;; 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
1165 ;;; rest of the line passed in as a list.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1166
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1167 (defun dun-vparse (dun-ignore dun-verblist line)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1168 (dun-mprinc "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1169 (setq line-list (dun-listify-string (concat line " ")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1170 (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
1171
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1172 (defun dun-parse2 (dun-ignore dun-verblist line)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1173 (dun-mprinc "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1174 (setq line-list (dun-listify-string2 (concat line " ")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1175 (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
1176
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1177 ;;; Read a line, in window mode
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1178
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1179 (defun dun-read-line ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1180 (let (line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1181 (setq line (read-string ""))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1182 (dun-mprinc line) line))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1183
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1184 ;;; Insert something into the window buffer
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1185
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1186 (defun dun-minsert (string)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1187 (if (stringp string)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1188 (insert string)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1189 (insert (prin1-to-string string))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1190
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1191 ;;; Print something out, in window mode
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1192
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1193 (defun dun-mprinc (string)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1194 (if (stringp string)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1195 (insert string)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1196 (insert (prin1-to-string string))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1197
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1198 ;;; In window mode, keep screen from jumping by keeping last line at
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1199 ;;; the bottom of the screen.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1200
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1201 (defun dun-fix-screen ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1202 (interactive)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1203 (forward-line (- 0 (- (window-height) 2 )))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1204 (set-window-start (selected-window) (point))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1205 (end-of-buffer))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1206
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1207 ;;; Insert something into the buffer, followed by newline.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1208
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1209 (defun dun-minsertl (string)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1210 (dun-minsert string)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1211 (dun-minsert "\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1212
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1213 ;;; Print something, followed by a newline.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1214
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1215 (defun dun-mprincl (string)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1216 (dun-mprinc string)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1217 (dun-mprinc "\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1218
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1219 ;;; Function which will get an object number given the list of
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1220 ;;; words in the command, except for the verb.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1221
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1222 (defun dun-objnum-from-args (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1223 (let (objnum)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1224 (setq obj (dun-firstword obj))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1225 (if (not obj)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1226 obj-special
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1227 (setq objnum (cdr (assq (intern obj) dun-objnames))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1228
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1229 (defun dun-objnum-from-args-std (obj)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1230 (let (result)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1231 (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
1232 (dun-mprincl "You must supply an object."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1233 (if (eq result nil)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1234 (dun-mprincl "I don't know what that is."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1235 (if (eq result obj-special)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1236 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1237 result)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1238
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1239 ;;; Take a short room description, and change spaces and slashes to dashes.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1240
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1241 (defun dun-space-to-hyphen (string)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1242 (let (space)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1243 (if (setq space (string-match "[ /]" string))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1244 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1245 (setq string (concat (substring string 0 space) "-"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1246 (substring string (1+ space))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1247 (dun-space-to-hyphen string))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1248 string)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1249
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1250 ;;; Given a unix style pathname, build a list of path components (recursive)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1251
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1252 (defun dun-get-path (dirstring startlist)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1253 (let (slash pos)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1254 (if (= (length dirstring) 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1255 startlist
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1256 (if (string= (substring dirstring 0 1) "/")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1257 (dun-get-path (substring dirstring 1) (append startlist (list "/")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1258 (if (not (setq slash (string-match "/" dirstring)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1259 (append startlist (list dirstring))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1260 (dun-get-path (substring dirstring (1+ slash))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1261 (append startlist
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1262 (list (substring dirstring 0 slash)))))))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1263
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1264
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1265 ;;; Is a string a member of a string list?
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1266
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1267 (defun dun-members (string string-list)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1268 (let (found)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1269 (setq found nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1270 (dolist (x string-list)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1271 (if (string= x string)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1272 (setq found t))) found))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1273
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1274 ;;; Function to put objects in the treasure room. Also prints current
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1275 ;;; score to let user know he has scored.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1276
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1277 (defun dun-put-objs-in-treas (objlist)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1278 (let (oscore newscore)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1279 (setq oscore (dun-reg-score))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1280 (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
1281 (setq newscore (dun-reg-score))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1282 (if (not (= oscore newscore))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1283 (dun-score nil))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1284
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1285 ;;; Load an encrypted file, and eval it.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1286
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1287 (defun dun-load-d (filename)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1288 (let (old-buffer result)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1289 (setq result t)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1290 (setq old-buffer (current-buffer))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1291 (switch-to-buffer (get-buffer-create "*loadc*"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1292 (erase-buffer)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1293 (condition-case nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1294 (insert-file-contents filename)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1295 (error (setq result nil)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1296 (unless (not result)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1297 (condition-case nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1298 (dun-rot13)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1299 (error (yank)))
71624
263c82655d46 (dun-load-d, dun-eval): Use eval-buffer.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 68634
diff changeset
1300 (eval-buffer)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1301 (kill-buffer (current-buffer)))
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1302 (switch-to-buffer old-buffer)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1303 result))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1304
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1305 ;;; Functions to remove an object either from a room, or from inventory.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1306
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1307 (defun dun-remove-obj-from-room (room objnum)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1308 (let (newroom)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1309 (setq newroom nil)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1310 (dolist (x (nth room dun-room-objects))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1311 (if (not (= x objnum))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1312 (setq newroom (append newroom (list x)))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1313 (rplaca (nthcdr room dun-room-objects) newroom)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1314
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1315 (defun dun-remove-obj-from-inven (objnum)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1316 (let (new-inven)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1317 (setq new-inven nil)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1318 (dolist (x dun-inventory)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1319 (if (not (= x objnum))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1320 (setq new-inven (append new-inven (list x)))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1321 (setq dun-inventory new-inven)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1322
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1323
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1324 (let ((i 0) (lower "abcdefghijklmnopqrstuvwxyz") upper)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1325 (setq dun-translate-table (make-vector 256 0))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1326 (while (< i 256)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1327 (aset dun-translate-table i i)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1328 (setq i (1+ i)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1329 (setq lower (concat lower lower))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1330 (setq upper (upcase lower))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1331 (setq i 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1332 (while (< i 26)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1333 (aset dun-translate-table (+ ?a i) (aref lower (+ i 13)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1334 (aset dun-translate-table (+ ?A i) (aref upper (+ i 13)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1335 (setq i (1+ i))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1336
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1337 (defun dun-rot13 ()
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1338 (let (str len (i 0))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1339 (setq str (buffer-substring (point-min) (point-max)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1340 (setq len (length str))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1341 (while (< i len)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1342 (aset str i (aref dun-translate-table (aref str i)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1343 (setq i (1+ i)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1344 (erase-buffer)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1345 (insert str)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1346
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1347 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1348 ;;;; This section defines the globals that are used in dunnet.
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 ;;;; IMPORTANT
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1351 ;;;; All globals which can change must be saved from 'save-game. Add
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1352 ;;;; all new globals to bottom of file.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1353
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1354 (setq dun-visited '(27))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1355 (setq dun-current-room 1)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1356 (setq dun-exitf nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1357 (setq dun-badcd nil)
63231
05cff8bfc8e3 (dun-mode): Use define-derived-mode.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
1358 (define-obsolete-variable-alias 'dungeon-mode-map 'dun-mode-map "22.1")
05cff8bfc8e3 (dun-mode): Use define-derived-mode.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
1359 (define-key dun-mode-map "\r" 'dun-parse)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1360 (defvar dungeon-batch-map (make-keymap))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1361 (if (string= (substring emacs-version 0 2) "18")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1362 (let (n)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1363 (setq n 32)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1364 (while (< 0 (setq n (- n 1)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1365 (aset dungeon-batch-map n 'dungeon-nil)))
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 (car (cdr dungeon-batch-map)) n 'dungeon-nil))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1370 (define-key dungeon-batch-map "\r" 'exit-minibuffer)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1371 (define-key dungeon-batch-map "\n" 'exit-minibuffer)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1372 (setq dun-computer nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1373 (setq dun-floppy nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1374 (setq dun-key-level 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1375 (setq dun-hole nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1376 (setq dun-correct-answer nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1377 (setq dun-lastdir 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1378 (setq dun-numsaves 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1379 (setq dun-jar nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1380 (setq dun-dead nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1381 (setq room 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1382 (setq dun-numcmds 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1383 (setq dun-wizard nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1384 (setq dun-endgame-question nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1385 (setq dun-logged-in nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1386 (setq dungeon-mode 'dungeon)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1387 (setq dun-unix-verbs '((ls . dun-ls) (ftp . dun-ftp) (echo . dun-echo)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1388 (exit . dun-uexit) (cd . dun-cd) (pwd . dun-pwd)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1389 (rlogin . dun-rlogin) (uncompress . dun-uncompress)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1390 (cat . dun-cat) (zippy . dun-zippy)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1391
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1392 (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
1393 (exit . dun-dos-exit) (command . dun-dos-spawn)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1394 (b: . dun-dos-invd) (c: . dun-dos-invd)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1395 (a: . dun-dos-nil)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1396
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1397
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1398 (setq dun-batch-mode nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1399
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1400 (setq dun-cdpath "/usr/toukmond")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1401 (setq dun-cdroom -10)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1402 (setq dun-uncompressed nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1403 (setq dun-ethernet t)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1404 (setq dun-restricted
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1405 '(dun-room-objects dungeon-map dun-rooms
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1406 dun-room-silents dun-combination))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1407 (setq dun-ftptype 'ascii)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1408 (setq dun-endgame nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1409 (setq dun-gottago t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1410 (setq dun-black nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1411
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1412 (setq dun-rooms '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1413 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1414 "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
1415 "Treasure room"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1416 )
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 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
1419 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
1420 trees here are very tall royal palms, and they are spaced equidistant
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1421 from each other."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1422 "Dead end"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1423 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1424 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1425 "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
1426 both sides of you. The road continues to the east and west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1427 "E/W Dirt road"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1430 "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
1431 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
1432 "Fork"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1435 "You are on a northeast/southwest road."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1436 "NE/SW road"
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 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
1440 to the northeast, and the road leads back to the southwest."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1441 "Building front"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1444 "You are on a southeast/northwest road."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1445 "SE/NW road"
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 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
1449 northwest."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1450 "Bear hangout"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1453 "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
1454 and west, and doors leading out to the north and south."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1455 "Old Building hallway"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1458 "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
1459 kept. The exit is to the west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1460 "Mailroom"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1463 "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
1464 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
1465 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
1466 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
1467 'type' command. The exit is to the east."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1468 "Computer room"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1469 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1470 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1471 "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
1472 to the west, and a door leads to the south."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1473 "Meadow"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1476 "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
1477 is a sign on the wall that reads: 'receiving room'."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1478 "Receiving room"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1481 "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
1482 are rooms to the east and west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1483 "Northbound Hallway"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1486 "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
1487 on the wall. A door leads out to west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1488 "Sauna"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1491 "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
1492 or off to a room to the east."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1493 "End of N/S Hallway"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1496 "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
1497 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
1498 leading down a hole in the floor."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1499 "Weight room" ;16
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1500 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1501 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1502 "You are in a maze of twisty little passages, all alike.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1503 There is a button on the ground here."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1504 "Maze button room"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1507 "You are in a maze of little twisty passages, all alike."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1508 "Maze"
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 thirsty little passages, all alike."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1512 "Maze" ;19
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 twenty little passages, all alike."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1516 "Maze"
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 daze of twisty little passages, all alike."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1520 "Maze" ;21
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 maze of twisty little cabbages, all alike."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1524 "Maze" ;22
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 reception area for a health and fitness center. The place
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1528 appears to have been recently ransacked, and nothing is left. There is
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1529 a door out to the south, and a crawlspace to the southeast."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1530 "Reception area"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1531 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1532 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1533 "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
1534 and fitness center. A road leads to the south."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1535 "Health Club front"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1538 "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
1539 a road which leads to a cave. The water appears very deep."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1540 "Lakefront North"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1543 "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
1544 "Lakefront South"
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 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
1548 northeast through the brush you can see the bear hangout."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1549 "Hidden area"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1552 "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
1553 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
1554 that says 'put treasures here for points'."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1555 "Cave Entrance" ;28
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1556 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1557 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1558 "You are in a misty, humid room carved into a mountain.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1559 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
1560 passage leads away into the darkness." ;29
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1561 "Misty Room"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1562 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1563 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1564 "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
1565 multicolored rock and are quite beautiful."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1566 "Cave E/W passage" ;30
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1569 "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
1570 the other goes west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1571 "N/S/W Junction" ;31
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1574 "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
1575 leading down from here. There is also a door leading west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1576 "North end of cave passage" ;32
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1579 "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
1580 in the floor here, into which you could probably fit."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1581 "South end of cave passage" ;33
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1584 "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
1585 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
1586 wall. A door leads to another room to the south, and stairways
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1587 lead up and down."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1588 "Bedroom" ;34
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1589 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1590 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1591 "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
1592 urinal hanging on the wall, and some exposed pipes on the opposite
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1593 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
1594 "Bathroom" ;35
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1595 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1596 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1597 "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
1598 is a room that can contain objects."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1599 "Urinal" ;36
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1602 "You are at the northeast end of a northeast/southwest passageway.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1603 Stairs lead up out of sight."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1604 "NE end of NE/SW cave passage" ;37
4033
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1607 "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
1608 "NE/SW-E/W junction" ;38
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 southwest end of a northeast/southwest passageway."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1612 "SW end of NE/SW cave passage" ;39
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 (
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1615 "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
1616 to a room above."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1617 "East end of E/W cave passage" ;40
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1618 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1619 (
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1620 "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
1621 which leads down out of sight."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1622 "West end of E/W cave passage" ;41
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1623 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1624 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1625 "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
1626 in the center. Stairs lead down from here." ;42
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1627 "Horseshoe boulder room"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1630 "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
1631 and east."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1632 "Empty room" ;43
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1635 "You are in an empty room. Interestingly enough, the stones in this
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1636 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
1637 "Blue room"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1640 "You are in an empty room. Interestingly enough, the stones in this
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1641 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
1642 "Yellow room"
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1645 "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
1646 are painted red. Doors lead out to the west and north."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1647 "Red room" ;46
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1650 "You are in the middle of a long north/south hallway." ;47
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1651 "Long n/s hallway"
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 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
1655 "3/4 north" ;48
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 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
1659 leading upwards."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1660 "North end of long hallway" ;49
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1663 "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
1664 "3/4 south" ;50
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 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
1668 to the south."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1669 "South end of long hallway" ;51
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1672 "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
1673 "Stair landing" ;52
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 the continuation of an up/down staircase."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1677 "Up/down staircase" ;53
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 top of a staircase leading down. A crawlway leads off
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1681 to the northeast."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1682 "Top of staircase." ;54
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1685 "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
1686 "NE crawlway" ;55
4033
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 small crawlspace. There is a hole in the ground here, and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1690 a small passage back to the southwest."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1691 "Small crawlspace" ;56
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1694 "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
1695 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
1696 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
1697 could type."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1698 "Gamma computing center" ;57
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1699 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1700 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1701 "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
1702 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
1703 back to the east, and a road leads to the north."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1704 "Post office" ;58
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1705 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1706 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1707 "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
1708 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
1709 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
1710 the buildings that used to stand here are gone. Nothing remains except
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1711 street signs.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1712 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
1713 "Main-Maple intersection" ;59
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1714 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1715 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1716 "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
1717 "Main-Oaktree intersection" ;60
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 Vermont Ave."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1721 "Main-Vermont intersection" ;61
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 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
1725 "Main-Sycamore intersection"
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 south end of First Street at Maple Ave." ;63
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1729 "First-Maple 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 intersection of First Street and Oaktree Ave." ;64
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1733 "First-Oaktree 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 Vermont Ave." ;65
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1737 "First-Vermont 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 north end of First Street at Sycamore Ave." ;66
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1741 "First-Sycamore 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 south end of Second Street at Maple Ave." ;67
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1745 "Second-Maple 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 intersection of Second Street and Oaktree Ave." ;68
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1749 "Second-Oaktree 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 Vermont Ave." ;69
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1753 "Second-Vermont 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 north end of Second Street at Sycamore Ave." ;70
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1757 "Second-Sycamore 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 south end of Third Street at Maple Ave." ;71
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1761 "Third-Maple 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 intersection of Third Street and Oaktree Ave." ;72
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1765 "Third-Oaktree 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 Vermont Ave." ;73
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1769 "Third-Vermont 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 north end of Third Street at Sycamore Ave." ;74
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1773 "Third-Sycamore 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 south end of Fourth Street at Maple Ave." ;75
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1777 "Fourth-Maple 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 intersection of Fourth Street and Oaktree Ave." ;76
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1781 "Fourth-Oaktree 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 Vermont Ave." ;77
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1785 "Fourth-Vermont 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 north end of Fourth Street at Sycamore Ave." ;78
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1789 "Fourth-Sycamore 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 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
1793 "Fifth-Maple 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 intersection of Fifth Street and the east end of Oaktree Ave.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1797 There is a cliff off to the east."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1798 "Fifth-Oaktree intersection" ;80
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1801 "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
1802 "Fifth-Vermont intersection" ;81
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 north end of Fifth Street and the east end of Sycamore Ave."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1806 "Fifth-Sycamore intersection" ;82
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 in front of the Museum of Natural History. A door leads into
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1810 the building to the north, and a road leads to the southeast."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1811 "Museum entrance" ;83
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1814 "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
1815 of the room is the huge skeleton of a dinosaur. Doors lead out to the
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1816 south and east."
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1817 "Museum lobby" ;84
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1818 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1819 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1820 "You are in the geological display. All of the objects that used to
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1821 be on display are missing. There are rooms to the east, west, and
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1822 north."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1823 "Geological display" ;85
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1824 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1825 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1826 "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
1827 which are filled with dead fish that have apparently died due to
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1828 starvation. Doors lead out to the south and east."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1829 "Marine life area" ;86
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1830 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1831 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1832 "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
1833 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
1834 "Maintenance room" ;87
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1837 "You are in a classroom where school children were taught about natural
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1838 history. On the blackboard is written, 'No children allowed downstairs.'
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1839 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
1840 door to the west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1841 "Classroom" ;88
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1842 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1843 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1844 "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
1845 "Vermont station" ;89
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 Museum subway stop. A passage leads off to the north."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1849 "Museum station" ;90
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 in a north/south tunnel."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1853 "N/S tunnel" ;91
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 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
1857 down from here. There is a garbage disposal here."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1858 "North end of N/S tunnel" ;92
4033
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1861 "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
1862 a door to the west."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1863 "Top of subway stairs" ;93
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1866 "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
1867 a room to the northeast."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1868 "Bottom of subway stairs" ;94
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1871 "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
1872 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
1873 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
1874 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
1875 type."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1876 "Endgame computer room" ;95
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1877 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1878 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1879 "You are in a north/south hallway."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1880 "Endgame N/S hallway" ;96
4033
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 have reached a question room. You must answer a question correctly in
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1884 order to get by. Use the 'answer' command to answer the question."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1885 "Question room 1" ;97
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1888 "You are in a north/south hallway."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1889 "Endgame N/S hallway" ;98
4033
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 second question room."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1893 "Question room 2" ;99
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 north/south hallway."
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
1897 "Endgame N/S hallway" ;100
4033
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 third question room."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1901 "Question room 3" ;101
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 the endgame treasure room. A door leads out to the north, and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1905 a hallway leads to the south."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1906 "Endgame treasure room" ;102
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1909 "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
1910 "Winner's room" ;103
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 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
1914 it is a sign that reads:
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1915 Type the 'reset' command to type on the PC.
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1916 A hole leads north."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1917 "PC area" ;104
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1918 )
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1919 ))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1920
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1921 (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
1922 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
1923 77 78 79 80 81 82 83))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1924
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1925 (setq dun-verblist '((die . dun-die) (ne . dun-ne) (north . dun-n)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1926 (south . dun-s) (east . dun-e) (west . dun-w)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1927 (u . dun-up) (d . dun-down) (i . dun-inven)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1928 (inventory . dun-inven) (look . dun-examine) (n . dun-n)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1929 (s . dun-s) (e . dun-e) (w . dun-w) (se . dun-se)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1930 (nw . dun-nw) (sw . dun-sw) (up . dun-up)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1931 (down . dun-down) (in . dun-in) (out . dun-out)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1932 (go . dun-go) (drop . dun-drop) (southeast . dun-se)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1933 (southwest . dun-sw) (northeast . dun-ne)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1934 (northwest . dun-nw) (save . dun-save-game)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1935 (restore . dun-restore) (long . dun-long) (dig . dun-dig)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1936 (shake . dun-shake) (wave . dun-shake)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1937 (examine . dun-examine) (describe . dun-examine)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1938 (climb . dun-climb) (eat . dun-eat) (put . dun-put)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1939 (type . dun-type) (insert . dun-put)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1940 (score . dun-score) (help . dun-help) (quit . dun-quit)
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1941 (read . dun-examine) (verbose . dun-long)
18670
704d3934673d Undo an earlier change:
Richard M. Stallman <rms@gnu.org>
parents: 18383
diff changeset
1942 (urinate . dun-piss) (piss . dun-piss)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
1943 (flush . dun-flush) (sleep . dun-sleep) (lie . dun-sleep)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1944 (x . dun-examine) (break . dun-break) (drive . dun-drive)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1945 (board . dun-in) (enter . dun-in) (turn . dun-turn)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1946 (press . dun-press) (push . dun-press) (swim . dun-swim)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1947 (on . dun-in) (off . dun-out) (chop . dun-break)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1948 (switch . dun-press) (cut . dun-break) (exit . dun-out)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1949 (leave . dun-out) (reset . dun-power) (flick . dun-press)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1950 (superb . dun-superb) (answer . dun-answer)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1951 (throw . dun-drop) (l . dun-examine) (take . dun-take)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1952 (get . dun-take) (feed . dun-feed)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1953
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1954 (setq dun-inbus nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1955 (setq dun-nomail nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1956 (setq dun-ignore '(the to at))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1957 (setq dun-mode 'moby)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
1958 (setq dun-sauna-level 0)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1959
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1960 (defconst north 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1961 (defconst south 1)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1962 (defconst east 2)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1963 (defconst west 3)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1964 (defconst northeast 4)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1965 (defconst southeast 5)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1966 (defconst northwest 6)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1967 (defconst southwest 7)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1968 (defconst up 8)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1969 (defconst down 9)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1970 (defconst in 10)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1971 (defconst out 11)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1972
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1973 (setq dungeon-map '(
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1974 ; no so ea we ne se nw sw up do in ot
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1975 ( 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
1976 ( -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
1977 ( -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
1978 ( -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
1979 ( -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
1980 ( -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
1981 ( -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
1982 ( -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
1983 ( 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
1984 ( -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
1985 ( -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
1986 ( -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
1987 ( -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
1988 ( 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
1989 ( -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
1990 ( -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
1991 ( -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
1992 ( -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
1993 ( 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
1994 ( -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
1995 ( -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
1996 ( -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
1997 ( 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
1998 ( -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
1999 ( 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
2000 ( 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
2001 (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
2002 ( -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
2003 ( 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
2004 ( -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
2005 ( -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
2006 ( 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
2007 ( -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
2008 ( 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
2009 ( -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
2010 ( 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
2011 ( -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
2012 ( -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
2013 ( -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
2014 ( -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
2015 ( -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
2016 ( -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
2017 ( -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
2018 ( 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
2019 ( -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
2020 ( -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
2021 ( 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
2022 ( 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
2023 ( 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
2024 ( -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
2025 ( 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
2026 ( 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
2027 ( -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
2028 ( -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
2029 ( -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
2030 ( -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
2031 ( -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
2032 ( -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
2033 ( 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
2034 ( 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
2035 ( 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
2036 ( 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
2037 ( -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
2038 ( 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
2039 ( 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
2040 ( 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
2041 ( -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
2042 ( 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
2043 ( 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
2044 ( 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
2045 ( -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
2046 ( 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
2047 ( 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
2048 ( 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
2049 ( -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
2050 ( 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
2051 ( 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
2052 ( 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
2053 ( -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
2054 ( 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
2055 ( 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
2056 ( 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
2057 ( -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
2058 ( 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
2059 ( -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
2060 ( 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
2061 ( -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
2062 ( 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
2063 ( -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
2064 ( -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
2065 ( 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
2066 ( 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
2067 ( -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
2068 ( -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
2069 ( -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
2070 ( -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
2071 ( 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
2072 ( -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
2073 ( 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
2074 ( -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
2075 ( 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
2076 ( -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
2077 ( 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
2078 ( -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
2079 ( 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
2080 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2081 ; no so ea we ne se nw sw up do in ot
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2082 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2083
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 ;;; How the user references *all* objects, permanent and regular.
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2086 (setq dun-objnames '(
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2087 (shovel . 0)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2088 (lamp . 1)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2089 (cpu . 2) (board . 2) (card . 2) (chip . 2)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2090 (food . 3)
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2091 (key . 4)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2092 (paper . 5) (slip . 5)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2093 (rms . 6) (statue . 6) (statuette . 6) (stallman . 6)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2094 (diamond . 7)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2095 (weight . 8)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2096 (life . 9) (preserver . 9)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2097 (bracelet . 10) (emerald . 10)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2098 (gold . 11)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2099 (platinum . 12)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2100 (towel . 13) (beach . 13)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2101 (axe . 14)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2102 (silver . 15)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2103 (license . 16)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2104 (coins . 17)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2105 (egg . 18)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2106 (jar . 19)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2107 (bone . 20)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2108 (acid . 21) (nitric . 21)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2109 (glycerine . 22)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2110 (ruby . 23)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2111 (amethyst . 24)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2112 (mona . 25)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2113 (bill . 26)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2114 (floppy . 27) (disk . 27)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2115
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2116 (boulder . -1)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2117 (tree . -2) (trees . -2) (palm . -2)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2118 (bear . -3)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2119 (bin . -4) (bins . -4)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2120 (cabinet . -5) (computer . -5) (vax . -5) (ibm . -5)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2121 (protoplasm . -6)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2122 (dial . -7)
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2123 (button . -8)
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2124 (chute . -9)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2125 (painting . -10)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2126 (bed . -11)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2127 (urinal . -12)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2128 (URINE . -13)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2129 (pipes . -14) (pipe . -14)
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2130 (box . -15) (slit . -15)
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2131 (cable . -16) (ethernet . -16)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2132 (mail . -17) (drop . -17)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2133 (bus . -18)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2134 (gate . -19)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2135 (cliff . -20)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2136 (skeleton . -21) (dinosaur . -21)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2137 (fish . -22)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2138 (tanks . -23) (tank . -23)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2139 (switch . -24)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2140 (blackboard . -25)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2141 (disposal . -26) (garbage . -26)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2142 (ladder . -27)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2143 (subway . -28) (train . -28)
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2144 (pc . -29) (drive . -29) (coconut . -30) (coconuts . -30)
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2145 (lake . -32) (water . -32)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2146 ))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2147
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2148 (dolist (x dun-objnames)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2149 (let (name)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2150 (setq name (concat "obj-" (prin1-to-string (car x))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2151 (eval (list 'defconst (intern name) (cdr x)))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2152
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2153 (defconst obj-special 255)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2154
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2155 ;;; The initial setup of what objects are in each room.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2156 ;;; Regular objects have whole numbers lower than 255.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2157 ;;; Objects that cannot be taken but might move and are
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2158 ;;; described during room description are negative.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2159 ;;; Stuff that is described and might change are 255, and are
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2160 ;;; handled specially by 'dun-describe-room.
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2161
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2162 (setq dun-room-objects (list nil
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2163
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2164 (list obj-shovel) ;; treasure-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2165 (list obj-boulder) ;; dead-end
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2166 nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2167 (list obj-food) ;; se-nw-road
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2168 (list obj-bear) ;; bear-hangout
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2169 nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2170 (list obj-special) ;; computer-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2171 (list obj-lamp obj-license obj-silver);; meadow
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2172 nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2173 (list obj-special) ;; sauna
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2174 nil
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2175 (list obj-weight obj-life) ;; weight-room
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-rms obj-floppy) ;; thirsty-maze
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2178 nil nil nil nil nil nil nil
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2179 (list obj-emerald) ;; hidden-area
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2180 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2181 (list obj-gold) ;; misty-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2182 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
2183 (list obj-towel obj-special) ;; red-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2184 nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2185 (list obj-box) ;; stair-landing
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2186 nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2187 (list obj-axe) ;; smal-crawlspace
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2188 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
2189 nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2190 (list obj-special) ;; fourth-vermont-intersection
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2191 nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2192 (list obj-coins) ;; fifth-oaktree-intersection
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2193 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2194 (list obj-bus) ;; fifth-sycamore-intersection
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2195 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2196 (list obj-bone) ;; museum-lobby
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-jar obj-special obj-ruby) ;; marine-life-area
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2199 (list obj-nitric) ;; maintenance-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2200 (list obj-glycerine) ;; classroom
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2201 nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2202 (list obj-amethyst) ;; bottom-of-subway-stairs
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2203 nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2204 (list obj-special) ;; question-room-1
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2205 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2206 (list obj-special) ;; question-room-2
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2207 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2208 (list obj-special) ;; question-room-three
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-mona) ;; winner's-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2211 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
2212 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
2213 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
2214 nil))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2215
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2216 ;;; These are objects in a room that are only described in the
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2217 ;;; room description. They are permanent.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2218
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2219 (setq dun-room-silents (list nil
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2220 (list obj-tree obj-coconut) ;; dead-end
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2221 (list obj-tree obj-coconut) ;; e-w-dirt-road
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2222 nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2223 (list obj-bin) ;; mailroom
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2224 (list obj-computer) ;; computer-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2225 nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2226 (list obj-dial) ;; sauna
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2227 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2228 (list obj-ladder) ;; weight-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2229 (list obj-button obj-ladder) ;; maze-button-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2230 nil nil nil
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2231 nil nil nil nil
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2232 (list obj-lake) ;; lakefront-north
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2233 (list obj-lake) ;; lakefront-south
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2234 nil
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2235 (list obj-chute) ;; cave-entrance
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2236 nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2237 (list obj-painting obj-bed) ;; bedroom
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2238 (list obj-urinal obj-pipes) ;; bathroom
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2239 nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2240 (list obj-boulder) ;; horseshoe-boulder-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2241 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
2242 (list obj-computer obj-cable) ;; gamma-computing-center
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2243 (list obj-mail) ;; post-office
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2244 (list obj-gate) ;; main-maple-intersection
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
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2246 nil nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2247 (list obj-cliff) ;; fifth-oaktree-intersection
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2248 nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2249 (list obj-dinosaur) ;; museum-lobby
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2250 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2251 (list obj-fish obj-tanks) ;; marine-life-area
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2252 (list obj-switch) ;; maintenance-room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2253 (list obj-blackboard) ;; classroom
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2254 (list obj-train) ;; vermont-station
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2255 nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2256 (list obj-disposal) ;; north-end-of-n-s-tunnel
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2257 nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2258 (list obj-computer) ;; endgame-computer-room
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2259 nil nil nil nil nil nil nil nil
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2260 (list obj-pc) ;; pc-area
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2261 nil nil nil nil nil nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2262 ))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2263 (setq dun-inventory '(1))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2264
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2265 ;;; Descriptions of objects, as they appear in the room description, and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2266 ;;; the inventory.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2267
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2268 (setq dun-objects '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2269 ("There is a shovel here." "A shovel") ;0
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2270 ("There is a lamp nearby." "A lamp") ;1
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2271 ("There is a CPU card here." "A computer board") ;2
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2272 ("There is some food here." "Some food") ;3
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2273 ("There is a shiny brass key here." "A brass key") ;4
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2274 ("There is a slip of paper here." "A slip of paper") ;5
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2275 ("There is a wax statuette of Richard Stallman here." ;6
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2276 "An RMS statuette")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2277 ("There is a shimmering diamond here." "A diamond") ;7
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2278 ("There is a 10 pound weight here." "A weight") ;8
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2279 ("There is a life preserver here." "A life preserver");9
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2280 ("There is an emerald bracelet here." "A bracelet") ;10
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2281 ("There is a gold bar here." "A gold bar") ;11
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2282 ("There is a platinum bar here." "A platinum bar") ;12
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2283 ("There is a beach towel on the ground here." "A beach towel")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2284 ("There is an axe here." "An axe") ;14
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2285 ("There is a silver bar here." "A silver bar") ;15
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2286 ("There is a bus driver's license here." "A license") ;16
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2287 ("There are some valuable coins here." "Some valuable coins")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2288 ("There is a jewel-encrusted egg here." "A valuable egg") ;18
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2289 ("There is a glass jar here." "A glass jar") ;19
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2290 ("There is a dinosaur bone here." "A bone") ;20
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2291 ("There is a packet of nitric acid here." "Some nitric acid")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2292 ("There is a packet of glycerine here." "Some glycerine") ;22
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2293 ("There is a valuable ruby here." "A ruby") ;23
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2294 ("There is a valuable amethyst here." "An amethyst") ;24
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2295 ("The Mona Lisa is here." "The Mona Lisa") ;25
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2296 ("There is a 100 dollar bill here." "A $100 bill") ;26
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2297 ("There is a floppy disk here." "A floppy disk") ;27
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2298 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2299 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2300
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2301 ;;; Weight of objects
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2302
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2303 (setq dun-object-lbs
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2304 '(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))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2305 (setq dun-object-pts
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2306 '(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
2307
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2308
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2309 ;;; Unix representation of objects.
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2310 (setq dun-objfiles '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2311 "shovel.o" "lamp.o" "cpu.o" "food.o" "key.o" "paper.o"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2312 "rms.o" "diamond.o" "weight.o" "preserver.o" "bracelet.o"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2313 "gold.o" "platinum.o" "towel.o" "axe.o" "silver.o" "license.o"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2314 "coins.o" "egg.o" "jar.o" "bone.o" "nitric.o" "glycerine.o"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2315 "ruby.o" "amethyst.o"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2316 ))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2317
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2318 ;;; 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
2319 ;;; dun-room-objects
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2320
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2321 (setq dun-perm-objects '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2322 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2323 ("There is a large boulder here.")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2324 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2325 ("There is a ferocious bear here!")
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 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2328 ("There is a worthless pile of protoplasm here.")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2329 nil
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 nil
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 ("There is a strange smell in this room.")
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 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2338 "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
2339 )
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 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2342 ("There is a bus here.")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2343 nil
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 ))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2347
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2348
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2349 ;;; These are the descriptions the user gets when regular objects are
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2350 ;;; examined.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2351
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2352 (setq dun-physobj-desc '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2353 "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
2354 "The lamp is hand-crafted by Geppetto."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2355 "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
2356 2 Megabytes of RAM onboard."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2357 "It looks like some kind of meat. Smells pretty bad."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2358 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2359 "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
2360 this word: 'worms'"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2361 "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
2362 famous EMACS editor. You notice that he is not wearing any shoes."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2363 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2364 "You observe that the weight is heavy."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2365 "It says S. S. Minnow."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2366 nil
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 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2369 "It has a picture of snoopy on it."
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 "It has your picture on it!"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2373 "They are old coins from the 19th century."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2374 "It is a valuable Fabrege egg."
46154
1551f466e964 (dun-physobj-desc): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 38425
diff changeset
2375 "It is a plain glass jar."
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2376 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2377 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2378 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2379 nil
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 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2382 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2383
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2384 ;;; These are the descriptions the user gets when non-regular objects
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2385 ;;; are examined.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2386
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2387 (setq dun-permobj-desc '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2388 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2389 "It is just a boulder. It cannot be moved."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2390 "They are palm trees with a bountiful supply of coconuts in them."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2391 "It looks like a grizzly to me."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2392 "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
2393 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
2394 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
2395 names:
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2396 Jeffrey Collier
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2397 Robert Toukmond
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2398 Thomas Stock
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2399 "
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2400 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2401 "It is just a garbled mess."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2402 "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
2403 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2404 nil
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2405 "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
2406 wall, and you cannot move it."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2407 "It is a queen sized bed, with a very firm mattress."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2408 "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
2409 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
2410 bottom is missing, and there is just a large hole leading down the
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2411 pipes into nowhere. The hole is too small for a person to fit in. The
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2412 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
2413 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2414 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2415 "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
2416 written: 'For key upgrade, put key in here.'"
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 "It says 'express mail' on it."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2419 "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
2420 "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
2421 "It is a HIGH cliff."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2422 "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
2423 it. It is very big, though."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2424 "The fish look like they were once quite beautiful."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2425 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2426 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2427 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2428 nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2429 "It is a normal ladder that is permanently attached to the hole."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2430 "It is a passenger train that is ready to go."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2431 "It is a personal computer that has only one floppy disk drive."
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2432 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2433 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2434
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2435 (setq dun-diggables
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2436 (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
2437 nil nil nil nil nil nil nil nil nil nil ;11-20
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2438 nil nil nil nil nil nil nil nil nil nil ;21-30
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2439 nil nil nil nil nil nil nil nil nil nil ;31-40
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2440 nil (list obj-platinum) nil nil nil nil nil nil nil nil))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2441
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2442 (setq dun-room-shorts nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2443 (dolist (x dun-rooms)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2444 (setq dun-room-shorts
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2445 (append dun-room-shorts (list (downcase
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2446 (dun-space-to-hyphen
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2447 (cadr x)))))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2448
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2449 (setq dun-endgame-questions '(
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2450 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2451 "What is your password on the machine called 'pokey'?" "robert")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2452 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2453 "What password did you use during anonymous ftp to gamma?" "foo")
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 "Excluding the endgame, how many places are there where you can put
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2456 treasures for points?" "4" "four")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2457 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2458 "What is your login name on the 'endgame' machine?" "toukmond"
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2459 )
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2460 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2461 "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
2462 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2463 "What is the name of the bus company serving the town?" "mobytours")
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 "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
2466 "collier" "stock")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2467 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2468 "What cartoon character is on the towel?" "snoopy")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2469 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2470 "What is the last name of the author of EMACS?" "stallman")
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 "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
2473 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2474 "Which street in town is named after a U.S. state?" "vermont")
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 pounds did the weight weigh?" "ten" "10")
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 "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
2479 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2480 "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
2481 "24" "twentyfour" "twenty-four")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2482 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2483 "What type of bear was hiding your key?" "grizzly")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2484 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2485 "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
2486 "board" "platinum")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2487 (
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2488 "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
2489 ))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2490
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2491 (let (a)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2492 (setq a 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2493 (dolist (x dun-room-shorts)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2494 (eval (list 'defconst (intern x) a))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2495 (setq a (+ a 1))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2496
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2497
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2498
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2499 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2500 ;;;; This section defines the UNIX emulation functions for dunnet.
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
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2503 (defun dun-unix-parse (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2504 (interactive "*p")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2505 (beginning-of-line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2506 (let (beg esign)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2507 (setq beg (+ (point) 2))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2508 (end-of-line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2509 (if (and (not (= beg (point)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2510 (string= "$" (buffer-substring (- beg 2) (- beg 1))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2511 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2512 (setq line (downcase (buffer-substring beg (point))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2513 (princ line)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2514 (if (eq (dun-parse2 nil dun-unix-verbs line) -1)
4033
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 (if (setq esign (string-match "=" line))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2517 (dun-doassign line esign)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2518 (dun-mprinc (car line-list))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2519 (dun-mprincl ": not found.")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2520 (goto-char (point-max))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2521 (dun-mprinc "\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2522 (if (eq dungeon-mode 'unix)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2523 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2524 (dun-fix-screen)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2525 (dun-mprinc "$ ")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2526
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2527 (defun dun-doassign (line esign)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2528 (if (not dun-wizard)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2529 (let (passwd)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2530 (dun-mprinc "Enter wizard password: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2531 (setq passwd (dun-read-line))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2532 (if (not dun-batch-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2533 (dun-mprinc "\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2534 (if (string= passwd "moby")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2535 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2536 (setq dun-wizard t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2537 (dun-doassign line esign))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2538 (dun-mprincl "Incorrect.")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2539
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2540 (let (varname epoint afterq i value)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2541 (setq varname (substring line 0 esign))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2542 (if (not (setq epoint (string-match ")" line)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2543 (if (string= (substring line (1+ esign) (+ esign 2))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2544 "\"")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2545 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2546 (setq afterq (substring line (+ esign 2)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2547 (setq epoint (+
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2548 (string-match "\"" afterq)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2549 (+ esign 3))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2550
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2551 (if (not (setq epoint (string-match " " line)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2552 (setq epoint (length line))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2553 (setq epoint (1+ epoint))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2554 (while (and
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2555 (not (= epoint (length line)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2556 (setq i (string-match ")" (substring line epoint))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2557 (setq epoint (+ epoint i 1))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2558 (setq value (substring line (1+ esign) epoint))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2559 (dun-eval varname value))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2560
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2561 (defun dun-eval (varname value)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2562 (let (eval-error)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2563 (switch-to-buffer (get-buffer-create "*dungeon-eval*"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2564 (erase-buffer)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2565 (insert "(setq ")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2566 (insert varname)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2567 (insert " ")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2568 (insert value)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2569 (insert ")")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2570 (setq eval-error nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2571 (condition-case nil
71624
263c82655d46 (dun-load-d, dun-eval): Use eval-buffer.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 68634
diff changeset
2572 (eval-buffer)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2573 (error (setq eval-error t)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2574 (kill-buffer (current-buffer))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2575 (switch-to-buffer "*dungeon*")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2576 (if eval-error
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2577 (dun-mprincl "Invalid syntax."))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2578
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2579
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2580 (defun dun-unix-interface ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2581 (dun-login)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2582 (if dun-logged-in
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2583 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2584 (setq dungeon-mode 'unix)
63231
05cff8bfc8e3 (dun-mode): Use define-derived-mode.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
2585 (define-key dun-mode-map "\r" 'dun-unix-parse)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2586 (dun-mprinc "$ "))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2587
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2588 (defun dun-login ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2589 (let (tries username password)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2590 (setq tries 4)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2591 (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
2592 (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
2593 (setq username (dun-read-line))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2594 (if (not dun-batch-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2595 (dun-mprinc "\n"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2596 (dun-mprinc "password: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2597 (setq password (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"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2600 (if (or (not (string= username "toukmond"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2601 (not (string= password "robert")))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2602 (dun-mprincl "login incorrect")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2603 (setq dun-logged-in t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2604 (dun-mprincl "
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2605 Welcome to Unix\n
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2606 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
2607 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
2608 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
2609 directory, and deletes them after they are sent! Be careful.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2610
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2611 Note: Restricted bourne shell in use.\n")))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2612 (setq dungeon-mode 'dungeon)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2613
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2614 (defun dun-ls (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2615 (if (car args)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2616 (let (ocdpath ocdroom)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2617 (setq ocdpath dun-cdpath)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2618 (setq ocdroom dun-cdroom)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2619 (if (not (eq (dun-cd args) -2))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2620 (dun-ls nil))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2621 (setq dun-cdpath ocdpath)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2622 (setq dun-cdroom ocdroom))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2623 (if (= dun-cdroom -10)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2624 (dun-ls-inven))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2625 (if (= dun-cdroom -2)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2626 (dun-ls-rooms))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2627 (if (= dun-cdroom -3)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2628 (dun-ls-root))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2629 (if (= dun-cdroom -4)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2630 (dun-ls-usr))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2631 (if (> dun-cdroom 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2632 (dun-ls-room))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2633
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2634 (defun dun-ls-root ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2635 (dun-mprincl "total 4
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2636 drwxr-xr-x 3 root staff 512 Jan 1 1970 .
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2637 drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2638 drwxr-xr-x 3 root staff 2048 Jan 1 1970 usr
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2639 drwxr-xr-x 3 root staff 2048 Jan 1 1970 rooms"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2640
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2641 (defun dun-ls-usr ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2642 (dun-mprincl "total 4
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2643 drwxr-xr-x 3 root staff 512 Jan 1 1970 .
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2644 drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2645 drwxr-xr-x 3 toukmond restricted 512 Jan 1 1970 toukmond"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2646
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2647 (defun dun-ls-rooms ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2648 (dun-mprincl "total 16
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2649 drwxr-xr-x 3 root staff 512 Jan 1 1970 .
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2650 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
2651 (dolist (x dun-visited)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2652 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2653 "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
2654 (dun-mprincl (nth x dun-room-shorts))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2655
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2656 (defun dun-ls-room ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2657 (dun-mprincl "total 4
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2658 drwxr-xr-x 3 root staff 512 Jan 1 1970 .
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2659 drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2660 -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
2661 (dolist (x (nth dun-cdroom dun-room-objects))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2662 (if (and (>= x 0) (not (= x 255)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2663 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2664 (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
2665 (dun-mprincl (nth x dun-objfiles))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2666
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2667 (defun dun-ls-inven ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2668 (dun-mprinc "total 467
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2669 drwxr-xr-x 3 toukmond restricted 512 Jan 1 1970 .
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2670 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
2671 (dolist (x dun-unix-verbs)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2672 (if (not (eq (car x) 'IMPOSSIBLE))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2673 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2674 (dun-mprinc"
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2675 -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
2676 (dun-mprinc (car x)))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2677 (dun-mprinc "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2678 (if (not dun-uncompressed)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2679 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2680 "-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
2681 (dolist (x dun-inventory)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2682 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2683 "-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
2684 (dun-mprincl (nth x dun-objfiles))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2685
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2686 (defun dun-echo (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2687 (let (nomore var)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2688 (setq nomore nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2689 (dolist (x args)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2690 (if (not nomore)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2691 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2692 (if (not (string= (substring x 0 1) "$"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2693 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2694 (dun-mprinc x)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2695 (dun-mprinc " "))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2696 (setq var (intern (substring x 1)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2697 (if (not (boundp var))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2698 (dun-mprinc " ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2699 (if (member var dun-restricted)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2700 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2701 (dun-mprinc var)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2702 (dun-mprinc ": Permission denied")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2703 (setq nomore t))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2704 (eval (list 'dun-mprinc var))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2705 (dun-mprinc " ")))))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2706 (dun-mprinc "\n")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2707
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2708
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2709 (defun dun-ftp (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2710 (let (host username passwd ident newlist)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2711 (if (not (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2712 (dun-mprincl "ftp: hostname required on command line.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2713 (setq host (intern (car args)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2714 (if (not (member host '(gamma dun-endgame)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2715 (dun-mprincl "ftp: Unknown host.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2716 (if (eq host 'dun-endgame)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2717 (dun-mprincl "ftp: connection to endgame not allowed")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2718 (if (not dun-ethernet)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2719 (dun-mprincl "ftp: host not responding.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2720 (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
2721 (dun-mprinc "Username: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2722 (setq username (dun-read-line))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2723 (if (string= username "toukmond")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2724 (if dun-batch-mode
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2725 (dun-mprincl "toukmond ftp access not allowed.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2726 (dun-mprincl "\ntoukmond ftp access not allowed."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2727 (if (string= username "anonymous")
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
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2730 "Guest login okay, send your user ident as password.")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2731 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2732 "\nGuest login okay, send your user ident as password."))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2733 (if dun-batch-mode
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2734 (dun-mprinc "Password required for ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2735 (dun-mprinc "\nPassword required for "))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2736 (dun-mprincl username))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2737 (dun-mprinc "Password: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2738 (setq ident (dun-read-line))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2739 (if (not (string= username "anonymous"))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2740 (if dun-batch-mode
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2741 (dun-mprincl "Login failed.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2742 (dun-mprincl "\nLogin failed."))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2743 (if dun-batch-mode
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2744 (dun-mprincl
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2745 "Guest login okay, user access restrictions apply.")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2746 (dun-mprincl
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2747 "\nGuest login okay, user access restrictions apply."))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2748 (dun-ftp-commands)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2749 (setq newlist
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2750 '("What password did you use during anonymous ftp to gamma?"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2751 (setq newlist (append newlist (list ident)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2752 (rplaca (nthcdr 1 dun-endgame-questions) newlist)))))))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2753
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2754 (defun dun-ftp-commands ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2755 (setq dun-exitf nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2756 (let (line)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2757 (while (not dun-exitf)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2758 (dun-mprinc "ftp> ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2759 (setq line (dun-read-line))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2760 (if
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2761 (eq
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2762 (dun-parse2 nil
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2763 '((type . dun-ftptype) (binary . dun-bin) (bin . dun-bin)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2764 (send . dun-send) (put . dun-send) (quit . dun-ftpquit)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2765 (help . dun-ftphelp)(ascii . dun-fascii)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2766 ) line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2767 -1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2768 (dun-mprincl "No such command. Try help.")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2769 (setq dun-ftptype 'ascii)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2770
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2771 (defun dun-ftptype (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2772 (if (not (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2773 (dun-mprincl "Usage: type [binary | ascii]")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2774 (setq args (intern (car args)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2775 (if (eq args 'binary)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2776 (dun-bin nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2777 (if (eq args 'ascii)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2778 (dun-fascii 'nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2779 (dun-mprincl "Unknown type.")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2780
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2781 (defun dun-bin (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2782 (dun-mprincl "Type set to binary.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2783 (setq dun-ftptype 'binary))
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-fascii (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2786 (dun-mprincl "Type set to ascii.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2787 (setq dun-ftptype 'ascii))
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-ftpquit (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2790 (setq dun-exitf t))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2791
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2792 (defun dun-send (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2793 (if (not (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2794 (dun-mprincl "Usage: send <filename>")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2795 (setq args (car args))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2796 (let (counter foo)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2797 (setq foo nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2798 (setq counter 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2799
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2800 ;;; User can send commands! Stupid user.
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2801
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2802
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2803 (if (assq (intern args) dun-unix-verbs)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2804 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2805 (rplaca (assq (intern args) dun-unix-verbs) 'IMPOSSIBLE)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2806 (dun-mprinc "Sending ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2807 (dun-mprinc dun-ftptype)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2808 (dun-mprinc " file for ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2809 (dun-mprincl args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2810 (dun-mprincl "Transfer complete."))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2811
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2812 (dolist (x dun-objfiles)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2813 (if (string= args x)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2814 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2815 (if (not (member counter dun-inventory))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2816 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2817 (dun-mprincl "No such file.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2818 (setq foo t))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2819 (dun-mprinc "Sending ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2820 (dun-mprinc dun-ftptype)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2821 (dun-mprinc " file for ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2822 (dun-mprinc (downcase (cadr (nth counter dun-objects))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2823 (dun-mprincl ", (0 bytes)")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2824 (if (not (eq dun-ftptype 'binary))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2825 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2826 (if (not (member obj-protoplasm
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2827 (nth receiving-room
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2828 dun-room-objects)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2829 (dun-replace dun-room-objects receiving-room
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2830 (append (nth receiving-room
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2831 dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2832 (list obj-protoplasm))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2833 (dun-remove-obj-from-inven counter))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2834 (dun-remove-obj-from-inven counter)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2835 (dun-replace dun-room-objects receiving-room
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2836 (append (nth receiving-room dun-room-objects)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2837 (list counter))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2838 (setq foo t)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2839 (dun-mprincl "Transfer complete."))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2840 (setq counter (+ 1 counter)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2841 (if (not foo)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2842 (dun-mprincl "No such file."))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2843
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2844 (defun dun-ftphelp (args)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2845 (dun-mprincl
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2846 "Possible commands are:\nsend quit type ascii binary help"))
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-uexit (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2849 (setq dungeon-mode 'dungeon)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2850 (dun-mprincl "\nYou step back from the console.")
63231
05cff8bfc8e3 (dun-mode): Use define-derived-mode.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
2851 (define-key dun-mode-map "\r" 'dun-parse)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2852 (if (not dun-batch-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2853 (dun-messages)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2854
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2855 (defun dun-pwd (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2856 (dun-mprincl dun-cdpath))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2857
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2858 (defun dun-uncompress (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2859 (if (not (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2860 (dun-mprincl "Usage: uncompress <filename>")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2861 (setq args (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2862 (if (or dun-uncompressed
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2863 (and (not (string= args "paper.o"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2864 (not (string= args "paper.o.z"))))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2865 (dun-mprincl "Uncompress command failed.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2866 (setq dun-uncompressed t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2867 (setq dun-inventory (append dun-inventory (list obj-paper))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2868
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2869 (defun dun-rlogin (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2870 (let (passwd)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2871 (if (not (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2872 (dun-mprincl "Usage: rlogin <hostname>")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2873 (setq args (car args))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2874 (if (string= args "endgame")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2875 (dun-rlogin-endgame)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2876 (if (not (string= args "gamma"))
17577
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2877 (if (string= args "pokey")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2878 (dun-mprincl "Can't rlogin back to localhost")
6cb2ad625486 (dun-special-object):
Richard M. Stallman <rms@gnu.org>
parents: 14743
diff changeset
2879 (dun-mprincl "No such host."))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2880 (if (not dun-ethernet)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2881 (dun-mprincl "Host not responding.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2882 (dun-mprinc "Password: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2883 (setq passwd (dun-read-line))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2884 (if (not (string= passwd "worms"))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2885 (dun-mprincl "\nlogin incorrect")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2886 (dun-mprinc
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2887 "\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
2888 )
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2889 (dun-replace dun-room-objects computer-room
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2890 (append (nth computer-room dun-room-objects)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2891 dun-inventory))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2892 (setq dun-inventory nil)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2893 (setq dun-current-room receiving-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2894 (dun-uexit nil))))))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2895
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2896 (defun dun-cd (args)
13952
de80a367ca08 (dun-cd): Fix local var misspelling.
Karl Heuer <kwzh@gnu.org>
parents: 13076
diff changeset
2897 (let (tcdpath tcdroom path-elements room-check)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2898 (if (not (car args))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2899 (dun-mprincl "Usage: cd <path>")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2900 (setq tcdpath dun-cdpath)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2901 (setq tcdroom dun-cdroom)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2902 (setq dun-badcd nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2903 (condition-case nil
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2904 (setq path-elements (dun-get-path (car args) nil))
38425
c6e12c6b1498 Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36526
diff changeset
2905 (error (dun-mprincl "Invalid path")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2906 (setq dun-badcd t)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2907 (dolist (pe path-elements)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2908 (unless dun-badcd
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2909 (if (not (string= pe "."))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2910 (if (string= pe "..")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2911 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2912 (if (> tcdroom 0) ;In a room
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2913 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2914 (setq tcdpath "/rooms")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2915 (setq tcdroom -2))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2916 ;In /rooms,/usr,root
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2917 (if (or
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2918 (= tcdroom -2) (= tcdroom -4)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2919 (= tcdroom -3))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2920 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2921 (setq tcdpath "/")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2922 (setq tcdroom -3))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2923 (if (= tcdroom -10) ;In /usr/toukmond
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 "/usr")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2926 (setq tcdroom -4))))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2927 (if (string= pe "/")
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 "/")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2930 (setq tcdroom -3))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2931 (if (= tcdroom -4)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2932 (if (string= pe "toukmond")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2933 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2934 (setq tcdpath "/usr/toukmond")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2935 (setq tcdroom -10))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2936 (dun-nosuchdir))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2937 (if (= tcdroom -10)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2938 (dun-nosuchdir)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2939 (if (> tcdroom 0)
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 -3)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2942 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2943 (if (string= pe "rooms")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2944 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2945 (setq tcdpath "/rooms")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2946 (setq tcdroom -2))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2947 (if (string= pe "usr")
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 "/usr")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2950 (setq tcdroom -4))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2951 (dun-nosuchdir))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2952 (if (= tcdroom -2)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2953 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2954 (dolist (x dun-visited)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2955 (setq room-check
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2956 (nth x
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2957 dun-room-shorts))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2958 (if (string= room-check pe)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2959 (progn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2960 (setq tcdpath
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2961 (concat "/rooms/" room-check))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2962 (setq tcdroom x))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2963 (if (= tcdroom -2)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2964 (dun-nosuchdir)))))))))))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2965 (if (not dun-badcd)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2966 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2967 (setq dun-cdpath tcdpath)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2968 (setq dun-cdroom tcdroom)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2969 0)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2970 -2))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2971
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2972 (defun dun-nosuchdir ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2973 (dun-mprincl "No such directory.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2974 (setq dun-badcd t))
4033
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-cat (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2977 (let (doto checklist)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2978 (if (not (setq args (car args)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2979 (dun-mprincl "Usage: cat <ascii-file-name>")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2980 (if (string-match "/" args)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2981 (dun-mprincl "cat: only files in current directory allowed.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2982 (if (and (> dun-cdroom 0) (string= args "description"))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2983 (dun-mprincl (car (nth dun-cdroom dun-rooms)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2984 (if (setq doto (string-match "\\.o" args))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2985 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2986 (if (= dun-cdroom -10)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2987 (setq checklist dun-inventory)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2988 (setq checklist (nth dun-cdroom dun-room-objects)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2989 (if (not (member (cdr
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2990 (assq (intern
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2991 (substring args 0 doto))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2992 dun-objnames))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2993 checklist))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2994 (dun-mprincl "File not found.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2995 (dun-mprincl "Ascii files only.")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2996 (if (assq (intern args) dun-unix-verbs)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2997 (dun-mprincl "Ascii files only.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
2998 (dun-mprincl "File not found."))))))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
2999
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3000 (defun dun-zippy (args)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3001 (dun-mprincl (yow)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3002
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3003 (defun dun-rlogin-endgame ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3004 (if (not (= (dun-score nil) 90))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
3005 (dun-mprincl
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3006 "You have not achieved enough points to connect to endgame.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3007 (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
3008 (setq dun-current-room treasure-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3009 (setq dun-endgame t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3010 (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
3011 (dun-uexit nil)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3012
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3013
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3014 (random t)
4403
2d6328c324cd (dun-endgame-question, tcom, tloc):
Paul Eggert <eggert@twinsun.com>
parents: 4245
diff changeset
3015 (setq tloc (+ 60 (random 18)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
3016 (dun-replace dun-room-objects tloc
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3017 (append (nth tloc dun-room-objects) (list 18)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3018
4403
2d6328c324cd (dun-endgame-question, tcom, tloc):
Paul Eggert <eggert@twinsun.com>
parents: 4245
diff changeset
3019 (setq tcomb (+ 100 (random 899)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3020 (setq dun-combination (prin1-to-string tcomb))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3021
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3022 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3023 ;;;; This section defines the DOS emulation functions for dunnet
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3024 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3025
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3026 (defun dun-dos-parse (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3027 (interactive "*p")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3028 (beginning-of-line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3029 (let (beg)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3030 (setq beg (+ (point) 3))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3031 (end-of-line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3032 (if (not (= beg (point)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3033 (let (line)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3034 (setq line (downcase (buffer-substring beg (point))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3035 (princ line)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3036 (if (eq (dun-parse2 nil dun-dos-verbs line) -1)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3037 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3038 (sleep-for 1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3039 (dun-mprincl "Bad command or file name"))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3040 (goto-char (point-max))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3041 (dun-mprinc "\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3042 (if (eq dungeon-mode 'dos)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3043 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3044 (dun-fix-screen)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3045 (dun-dos-prompt)))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3046
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3047 (defun dun-dos-interface ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3048 (dun-dos-boot-msg)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3049 (setq dungeon-mode 'dos)
63231
05cff8bfc8e3 (dun-mode): Use define-derived-mode.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
3050 (define-key dun-mode-map "\r" 'dun-dos-parse)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3051 (dun-dos-prompt))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3052
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3053 (defun dun-dos-type (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3054 (sleep-for 2)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3055 (if (setq args (car args))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3056 (if (string= args "foo.txt")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3057 (dun-dos-show-combination)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3058 (if (string= args "command.com")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3059 (dun-mprincl "Cannot type binary files")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3060 (dun-mprinc "File not found - ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3061 (dun-mprincl (upcase args))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3062 (dun-mprincl "Must supply file name")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3063
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3064 (defun dun-dos-invd (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3065 (sleep-for 1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3066 (dun-mprincl "Invalid drive specification"))
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-dir (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3069 (sleep-for 1)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3070 (if (or (not (setq args (car args))) (string= args "\\"))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3071 (dun-mprincl "
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
3072 Volume in drive A is FOO
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3073 Volume Serial Number is 1A16-08C9
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3074 Directory of A:\\
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3075
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3076 COMMAND COM 47845 04-09-91 2:00a
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3077 FOO TXT 40 01-20-93 1:01a
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3078 2 file(s) 47845 bytes
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3079 1065280 bytes free
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3080 ")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3081 (dun-mprincl "
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
3082 Volume in drive A is FOO
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3083 Volume Serial Number is 1A16-08C9
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3084 Directory of A:\\
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3085
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3086 File not found")))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3087
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3088
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3089 (defun dun-dos-prompt ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3090 (dun-mprinc "A> "))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3091
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3092 (defun dun-dos-boot-msg ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3093 (sleep-for 3)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3094 (dun-mprinc "Current time is ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3095 (dun-mprincl (substring (current-time-string) 12 20))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3096 (dun-mprinc "Enter new time: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3097 (dun-read-line)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3098 (if (not dun-batch-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3099 (dun-mprinc "\n")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3100
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3101 (defun dun-dos-spawn (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3102 (sleep-for 1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3103 (dun-mprincl "Cannot spawn subshell"))
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-exit (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3106 (setq dungeon-mode 'dungeon)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3107 (dun-mprincl "\nYou power down the machine and step back.")
63231
05cff8bfc8e3 (dun-mode): Use define-derived-mode.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
3108 (define-key dun-mode-map "\r" 'dun-parse)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3109 (if (not dun-batch-mode)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3110 (dun-messages)))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3111
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3112 (defun dun-dos-no-disk ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3113 (sleep-for 3)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3114 (dun-mprincl "Boot sector not found"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3115
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3116
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3117 (defun dun-dos-show-combination ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3118 (sleep-for 2)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3119 (dun-mprinc "\nThe combination is ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3120 (dun-mprinc dun-combination)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3121 (dun-mprinc ".\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3122
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3123 (defun dun-dos-nil (args))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3124
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3125
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3126 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3127 ;;;; This section defines the save and restore game functions for dunnet.
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
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3130 (defun dun-save-game (filename)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3131 (if (not (setq filename (car filename)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3132 (dun-mprincl "You must supply a filename for the save.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3133 (if (file-exists-p filename)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3134 (delete-file filename))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3135 (setq dun-numsaves (1+ dun-numsaves))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3136 (dun-make-save-buffer)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3137 (dun-save-val "dun-current-room")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3138 (dun-save-val "dun-computer")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3139 (dun-save-val "dun-combination")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3140 (dun-save-val "dun-visited")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3141 (dun-save-val "dun-diggables")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3142 (dun-save-val "dun-key-level")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3143 (dun-save-val "dun-floppy")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3144 (dun-save-val "dun-numsaves")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3145 (dun-save-val "dun-numcmds")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3146 (dun-save-val "dun-logged-in")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3147 (dun-save-val "dungeon-mode")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3148 (dun-save-val "dun-jar")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3149 (dun-save-val "dun-lastdir")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3150 (dun-save-val "dun-black")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3151 (dun-save-val "dun-nomail")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3152 (dun-save-val "dun-unix-verbs")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3153 (dun-save-val "dun-hole")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3154 (dun-save-val "dun-uncompressed")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3155 (dun-save-val "dun-ethernet")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3156 (dun-save-val "dun-sauna-level")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3157 (dun-save-val "dun-room-objects")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3158 (dun-save-val "dun-room-silents")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3159 (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
3160 (dun-save-val "dun-endgame-questions")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3161 (dun-save-val "dun-endgame")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3162 (dun-save-val "dun-cdroom")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3163 (dun-save-val "dun-cdpath")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3164 (dun-save-val "dun-correct-answer")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3165 (dun-save-val "dun-inbus")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3166 (if (dun-compile-save-out filename)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3167 (dun-mprincl "Error saving to file.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3168 (dun-do-logfile 'save nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3169 (switch-to-buffer "*dungeon*")
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3170 (princ "")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3171 (dun-mprincl "Done."))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3172
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3173 (defun dun-make-save-buffer ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3174 (switch-to-buffer (get-buffer-create "*save-dungeon*"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3175 (erase-buffer))
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-compile-save-out (filename)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3178 (let (ferror)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3179 (setq ferror nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3180 (condition-case nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3181 (dun-rot13)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3182 (error (setq ferror t)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3183 (if (not ferror)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3184 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3185 (goto-char (point-min))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3186 (condition-case nil
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3187 (write-region 1 (point-max) filename nil 1)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3188 (error (setq ferror t)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3189 (kill-buffer (current-buffer))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3190 ferror))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
3191
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3192
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3193 (defun dun-save-val (varname)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3194 (let (value)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3195 (setq varname (intern varname))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3196 (setq value (eval varname))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3197 (dun-minsert "(setq ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3198 (dun-minsert varname)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3199 (dun-minsert " ")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3200 (if (or (listp value)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3201 (symbolp value))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3202 (dun-minsert "'"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3203 (if (stringp value)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3204 (dun-minsert "\""))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3205 (dun-minsert value)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3206 (if (stringp value)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3207 (dun-minsert "\""))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3208 (dun-minsertl ")")))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3209
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3210
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3211 (defun dun-restore (args)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3212 (let (file)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3213 (if (not (setq file (car args)))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3214 (dun-mprincl "You must supply a filename.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3215 (if (not (dun-load-d file))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3216 (dun-mprincl "Could not load restore file.")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3217 (dun-mprincl "Done.")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3218 (setq room 0)))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3219
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3220
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3221 (defun dun-do-logfile (type how)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3222 (let (ferror newscore)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3223 (setq ferror nil)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3224 (switch-to-buffer (get-buffer-create "*score*"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3225 (erase-buffer)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3226 (condition-case nil
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3227 (insert-file-contents dun-log-file)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3228 (error (setq ferror t)))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3229 (unless ferror
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3230 (goto-char (point-max))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3231 (dun-minsert (current-time-string))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3232 (dun-minsert " ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3233 (dun-minsert (user-login-name))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3234 (dun-minsert " ")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3235 (if (eq type 'save)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3236 (dun-minsert "saved ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3237 (if (= (dun-endgame-score) 110)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3238 (dun-minsert "won ")
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3239 (if (not how)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3240 (dun-minsert "quit ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3241 (dun-minsert "killed by ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3242 (dun-minsert how)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3243 (dun-minsert " "))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3244 (dun-minsert "at ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3245 (dun-minsert (cadr (nth (abs room) dun-rooms)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3246 (dun-minsert ". score: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3247 (if (> (dun-endgame-score) 0)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3248 (dun-minsert (setq newscore (+ 90 (dun-endgame-score))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3249 (dun-minsert (setq newscore (dun-reg-score))))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3250 (dun-minsert " saves: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3251 (dun-minsert dun-numsaves)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3252 (dun-minsert " commands: ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3253 (dun-minsert dun-numcmds)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3254 (dun-minsert "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3255 (write-region 1 (point-max) dun-log-file nil 1))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3256 (kill-buffer (current-buffer))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3257
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3258
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3259 ;;;;
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3260 ;;;; These are functions, and function re-definitions so that dungeon can
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3261 ;;;; be run in batch mode.
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
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3264 (defun dun-batch-mprinc (arg)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3265 (if (stringp arg)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3266 (send-string-to-terminal arg)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3267 (send-string-to-terminal (prin1-to-string arg))))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3268
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3269
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3270 (defun dun-batch-mprincl (arg)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3271 (if (stringp arg)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3272 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3273 (send-string-to-terminal arg)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3274 (send-string-to-terminal "\n"))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3275 (send-string-to-terminal (prin1-to-string arg))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3276 (send-string-to-terminal "\n")))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3277
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3278 (defun dun-batch-parse (dun-ignore dun-verblist line)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3279 (setq line-list (dun-listify-string (concat line " ")))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3280 (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
3281
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3282 (defun dun-batch-parse2 (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-string2 (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-read-line ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3287 (read-from-minibuffer "" nil dungeon-batch-map))
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3288
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-loop ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3291 (setq dun-dead nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3292 (setq room 0)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3293 (while (not dun-dead)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3294 (if (eq dungeon-mode 'dungeon)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3295 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3296 (if (not (= room dun-current-room))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3297 (progn
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3298 (dun-describe-room dun-current-room)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3299 (setq room dun-current-room)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3300 (dun-mprinc ">")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3301 (setq line (downcase (dun-read-line)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3302 (if (eq (dun-vparse dun-ignore dun-verblist line) -1)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3303 (dun-mprinc "I don't understand that.\n"))))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3304
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3305 (defun dun-batch-dos-interface ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3306 (dun-dos-boot-msg)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3307 (setq dungeon-mode 'dos)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3308 (while (eq dungeon-mode 'dos)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3309 (dun-dos-prompt)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3310 (setq line (downcase (dun-read-line)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3311 (if (eq (dun-parse2 nil dun-dos-verbs line) -1)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3312 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3313 (sleep-for 1)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3314 (dun-mprincl "Bad command or file name"))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3315 (goto-char (point-max))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3316 (dun-mprinc "\n"))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3317
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3318 (defun dun-batch-unix-interface ()
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3319 (dun-login)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3320 (if dun-logged-in
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3321 (progn
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3322 (setq dungeon-mode 'unix)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3323 (while (eq dungeon-mode 'unix)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3324 (dun-mprinc "$ ")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3325 (setq line (downcase (dun-read-line)))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3326 (if (eq (dun-parse2 nil dun-unix-verbs line) -1)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3327 (let (esign)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3328 (if (setq esign (string-match "=" line))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46154
diff changeset
3329 (dun-doassign line esign)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3330 (dun-mprinc (car line-list))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3331 (dun-mprincl ": not found.")))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3332 (goto-char (point-max))
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3333 (dun-mprinc "\n"))))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3334
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3335 (defun dungeon-nil (arg)
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3336 "noop"
17675
ba2bcca6f8c4 (dungeon-nil): Explicitly return nil.
Richard M. Stallman <rms@gnu.org>
parents: 17577
diff changeset
3337 (interactive "*p")
ba2bcca6f8c4 (dungeon-nil): Explicitly return nil.
Richard M. Stallman <rms@gnu.org>
parents: 17577
diff changeset
3338 nil)
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3339
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3340 (defun dun-batch-dungeon ()
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3341 (load "dun-batch")
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3342 (setq dun-visited '(27))
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3343 (dun-mprinc "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3344 (dun-batch-loop))
4033
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3345
431bc7d22c70 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3346 (unless (not noninteractive)
4075
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3347 (fset 'dun-mprinc 'dun-batch-mprinc)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3348 (fset 'dun-mprincl 'dun-batch-mprincl)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3349 (fset 'dun-vparse 'dun-batch-parse)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3350 (fset 'dun-parse2 'dun-batch-parse2)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3351 (fset 'dun-read-line 'dun-batch-read-line)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3352 (fset 'dun-dos-interface 'dun-batch-dos-interface)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3353 (fset 'dun-unix-interface 'dun-batch-unix-interface)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3354 (dun-mprinc "\n")
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3355 (setq dun-batch-mode t)
3a8e54f78c54 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4033
diff changeset
3356 (dun-batch-loop))
4193
97649642e730 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4075
diff changeset
3357
18383
11218164bc54 Add provide call.
Richard M. Stallman <rms@gnu.org>
parents: 17675
diff changeset
3358 (provide 'dunnet)
4193
97649642e730 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4075
diff changeset
3359
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
3360 ;; arch-tag: 4cc8e47c-d9e1-4ef4-936b-578e7f529558
38425
c6e12c6b1498 Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36526
diff changeset
3361 ;;; dunnet.el ends here