-
Notifications
You must be signed in to change notification settings - Fork 15
/
Copy pathabyss.zil
83 lines (69 loc) · 1.69 KB
/
abyss.zil
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
;"***************************************************************************"
; "game : Abyss"
; "file : ABYSS.ZIL"
; "auth : $Author: RAB $"
; "date : $Date: 16 Mar 1989 17:36:40 $"
; "rev : $Revision: 1.9 $"
; "vers : 1.0"
;"---------------------------------------------------------------------------"
; "Compile/Load file"
; "Copyright (C) 1988 Infocom, Inc. All rights reserved."
;"***************************************************************************"
<SETG ZDEBUGGING? T>
<DEFINE DEBUG-CODE ('X "OPTIONAL" ('Y T))
<COND
(,ZDEBUGGING?
.X
)
(ELSE
.Y
)
>
>
<SETG NEW-PARSER? T>
<FREQUENT-WORDS?>
<LONG-WORDS?>
<ZIP-OPTIONS UNDO COLOR MOUSE>
<ORDER-OBJECTS? ROOMS-FIRST>
<NEVER-ZAP-TO-SOURCE-DIRECTORY?>
<VERSION YZIP>
<IFFLAG
(IN-ZILCH
<PRINC "Compiling">
)
(T
<PRINC "Loading">
)
>
<PRINC ": Abyss by Challenge, Inc.
">
ON!-INITIAL "for DEBUGR"
OFF!-INITIAL
ENABLE!-INITIAL
DISABLE!-INITIAL
<SET REDEFINE T>
<COMPILATION-FLAG P-BE-VERB T>
;<SETG L-SEARCH-PATH (["~PARSER" ""] !,L-SEARCH-PATH)>
<INSERT-FILE "DEFS">
<XFLOAD ;"~PARSER/" "PARSER.REST">
<INSERT-FILE "MACROS">
<INSERT-FILE "MISC">
<INSERT-FILE "GAS-MIX">
<INSERT-FILE "SYNTAX">
<INSERT-FILE "VERBS">
<IF-P-BE-VERB!- <INSERT-FILE "BE">>
<INSERT-FILE "SUB-BAY">
<INSERT-FILE "COMMAND">
<INSERT-FILE "MONTANA">
<INSERT-FILE "RETURN1">
<INSERT-FILE "RETURN2">
<INSERT-FILE "OCEAN">
<INSERT-FILE "CRANE">
<INSERT-FILE "GLOBAL">
<INSERT-FILE "UTIL">
<INSERT-FILE "STOPPER">
<INSERT-FILE "ALIEN">
<INSERT-FILE "ENDGAME">
;"***************************************************************************"
; "end of file"
;"***************************************************************************"