mirror of
https://github.com/historicalsource/moonmist
synced 2024-05-19 17:28:41 +03:00
49 lines
1 KiB
Plaintext
49 lines
1 KiB
Plaintext
|
"COMPILE/LOAD FILE for MOONMIST
|
||
|
Copyright (C) 1986 Infocom, Inc. All rights reserved."
|
||
|
|
||
|
<SETG ZDEBUGGING? <>>
|
||
|
<DEFINE DEBUG-CODE ('X "OPTIONAL" ('Y T))
|
||
|
<COND (,ZDEBUGGING? .X) (ELSE .Y)>>
|
||
|
|
||
|
<SETG NEW-VOC? T>
|
||
|
<FREQUENT-WORDS?>
|
||
|
<VERSION ZIP TIME>
|
||
|
|
||
|
<COND (<GASSIGNED? PREDGEN>
|
||
|
<PRINC "Compiling">
|
||
|
<ID 0>)
|
||
|
(T <PRINC "Loading">)>
|
||
|
|
||
|
<PRINC " MOONMIST: interactive fiction from Infocom!
|
||
|
">
|
||
|
|
||
|
ON!-INITIAL "for DEBUGR"
|
||
|
OFF!-INITIAL
|
||
|
ENABLE!-INITIAL
|
||
|
DISABLE!-INITIAL
|
||
|
|
||
|
<SET REDEFINE T>
|
||
|
|
||
|
<OR <GASSIGNED? ZILCH>
|
||
|
<SETG WBREAKS <STRING !\" !,WBREAKS>>>
|
||
|
|
||
|
<DIRECTIONS ;"Do not change the order of the first eight
|
||
|
without consulting Marc! -- per ENCHANTER"
|
||
|
NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
|
||
|
|
||
|
<INSERT-FILE "MACROS">
|
||
|
<INSERT-FILE "MISC">
|
||
|
<INSERT-FILE "SYNTAX">
|
||
|
<INSERT-FILE "PARSER">
|
||
|
<INSERT-FILE "VERBS">
|
||
|
<INSERT-FILE "GOAL">
|
||
|
<INSERT-FILE "PEOPLE">
|
||
|
<INSERT-FILE "CASTLE">
|
||
|
<INSERT-FILE "TOWER">
|
||
|
<INSERT-FILE "THINGS">
|
||
|
<INSERT-FILE "PLACES">
|
||
|
<INSERT-FILE "GLOBAL">
|
||
|
<INSERT-FILE "COLORS">
|
||
|
|
||
|
<PROPDEF SIZE 5>
|