mirror of
https://github.com/historicalsource/journey
synced 2024-06-26 03:40:49 +03:00
195 lines
4.3 KiB
Plaintext
195 lines
4.3 KiB
Plaintext
"JOURNEY for
|
|
JOURNEY
|
|
(c) Copyright 1988 Infocom, Inc. All Rights Reserved."
|
|
|
|
|
|
<VERSION YZIP>
|
|
|
|
<ZIP-OPTIONS COLOR MOUSE DISPLAY MENU>
|
|
|
|
<FREQUENT-WORDS?>
|
|
|
|
<COMPILATION-FLAG DEBUGGING <>>
|
|
|
|
<DEFINE-SEGMENT LAVOS T DWARVES LAKE>
|
|
<DEFINE-SEGMENT DWARVES <> LAVOS>
|
|
<DEFINE-SEGMENT ORC-FIGHT <> DWARVES STAIR>
|
|
<DEFINE-SEGMENT FOREST <>>
|
|
<DEFINE-SEGMENT TANGLEWOOD <> FOREST>
|
|
<DEFINE-SEGMENT RIVER <> LAVOS FOREST>
|
|
<DEFINE-SEGMENT STAIR <> DWARVES LAKE>
|
|
<DEFINE-SEGMENT LAKE <> NYMPHS FOREST>
|
|
<DEFINE-SEGMENT NYMPHS <> LAKE FOREST>
|
|
<DEFINE-SEGMENT PART2 <> RIVER CAVERNS TANGLEWOOD>
|
|
<DEFINE-SEGMENT CAVERNS <> PART2 MINES>
|
|
<DEFINE-SEGMENT MINES <> CAVERNS TANGLEWOOD>
|
|
<DEFINE-SEGMENT CASTLE <> TANGLEWOOD MILL>
|
|
<DEFINE-SEGMENT MILL <> CASTLE>
|
|
<DEFINE-SEGMENT ZAN <> CASTLE MILL BOAT>
|
|
<DEFINE-SEGMENT BOAT <> ZAN>
|
|
|
|
<SET REDEFINE!- T>
|
|
<SET ZREDEFINE T>
|
|
|
|
<DIRECTIONS MOVE>
|
|
|
|
<GLOBAL BORDER-FLAG <>> ;"If T, paint a border around the screen..."
|
|
<GLOBAL FONT3-FLAG T> ;"If T, can use special character font 3..."
|
|
<GLOBAL FWC-FLAG T> ;"If T, uses fixed-width font for commands..."
|
|
<GLOBAL BLACK-PICTURE-BORDER T>
|
|
|
|
<GLOBAL INTERPRETER 3>
|
|
|
|
<GLOBAL INIT-TEXT-LEFT 32>
|
|
<SETG INIT-TEXT-LEFT 32>
|
|
|
|
<GLOBAL COMMAND-START-LINE 20>
|
|
|
|
<GLOBAL COMMAND-WIDTH 16>
|
|
<SETG COMMAND-WIDTH 16>
|
|
|
|
<GLOBAL NAME-WIDTH 15>
|
|
<SETG NAME-WIDTH 15>
|
|
|
|
<GLOBAL TOP-SCREEN-LINE 1>
|
|
|
|
<GLOBAL PARTY-COMMAND-COLUMN 2>
|
|
<GLOBAL SCREEN-HEIGHT 0>
|
|
<GLOBAL SCREEN-WIDTH 0>
|
|
<GLOBAL NAME-COLUMN 0>
|
|
<GLOBAL CHR-COMMAND-COLUMN 0>
|
|
<GLOBAL COMMAND-OBJECT-COLUMN 0>
|
|
|
|
<GLOBAL RIGHT-COLUMN-LEFT-EDGE 0>
|
|
<GLOBAL RIGHT-COLUMN-WIDTH 1>
|
|
<SETG RIGHT-COLUMN-WIDTH 1>
|
|
|
|
<GLOBAL PARTY-MAX 4>
|
|
<GLOBAL GRAPHIC-WINDOW-X 0>
|
|
<GLOBAL GRAPHIC-WINDOW-Y 0>
|
|
|
|
<PROPDEF KBD <> (KBD X:FIX = 1 <BYTE .X>)>
|
|
<PROPDEF KBD2 <> (KBD2 X:FIX = 1 <BYTE .X>)>
|
|
<PROPDEF TRAVEL-COMMANDS <>
|
|
(TRAVEL-COMMANDS "MANY" CMD:FCN = <> "MANY" <WORD .CMD>)>
|
|
<PROPDEF PROVISION-COMMANDS <>
|
|
(PROVISION-COMMANDS "MANY" CMD:FCN = <> "MANY" <WORD .CMD>)>
|
|
<PROPDEF FIGHT-COMMANDS <>
|
|
(FIGHT-COMMANDS "MANY" CMD:FCN = <> "MANY" <WORD .CMD>)>
|
|
<PROPDEF OPTION-COMMANDS <>
|
|
(OPTION-COMMANDS "MANY" CMD:FCN = <> "MANY" <WORD .CMD>)>
|
|
<PROPDEF MODE-COMMANDS <>
|
|
(MODE-COMMANDS "MANY" CMD:FCN = <> "MANY" <WORD .CMD>)>
|
|
<PROPDEF MIX-COLOR <>
|
|
(MIX-COLOR "MANY" S:STRING = <> "MANY" <STRING .S>)>
|
|
<PROPDEF MIX-SPELL <>
|
|
(MIX-SPELL "MANY" O:OBJECT = <> "MANY" <OBJECT .O>)>
|
|
<PROPDEF ATTACK <> (ATTACK "MANY" NUM:FIX = <> "MANY" <BYTE .NUM>)>
|
|
<PROPDEF DEFEND <> (DEFEND "MANY" NUM:FIX = <> "MANY" <BYTE .NUM>)>
|
|
<PROPDEF CAST-LIMIT 1>
|
|
|
|
<DEFMAC IN-PARTY? ('FOO)
|
|
<FORM FSET? .FOO ',IN-PARTY>>
|
|
|
|
<DEFMAC ACTION? (FOO)
|
|
<FORM EQUAL?
|
|
',ACTION
|
|
<FORM GVAL
|
|
<PARSE <STRING <SPNAME .FOO> "-COMMAND">>>>>
|
|
|
|
<DEFMAC OBJECT? (FOO)
|
|
<FORM EQUAL?
|
|
',ACTION-OBJECT
|
|
<FORM GVAL .FOO>>>
|
|
|
|
<DEFMAC PRSI? (FOO)
|
|
<FORM EQUAL?
|
|
',ACTION-PRSI
|
|
<FORM GVAL .FOO>>>
|
|
|
|
<DEFMAC SET-TEMP ('FOO)
|
|
<FORM PUTP ',HERE ',P?TEMP .FOO>>
|
|
|
|
<DEFMAC GET-TEMP ()
|
|
'<GETP ,HERE ,P?TEMP>>
|
|
|
|
<DEFMAC CLEAR-TEMP ()
|
|
'<PUTP ,HERE ,P?TEMP 0>>
|
|
|
|
<DEFMAC O-COUNT ()
|
|
'<GET ,O-TABLE 0>>
|
|
|
|
<DEFMAC CLEAR-O-TABLE ()
|
|
'<PUT ,O-TABLE 0 0>>
|
|
|
|
<DEFMAC RFATAL ()
|
|
'<PROG () <PUSH 8> <RSTACK>>>
|
|
|
|
<DEFMAC PROB ('BASE?)
|
|
<FORM NOT <FORM L? .BASE? '<RANDOM 100>>>>
|
|
|
|
<DEFMAC CANCEL? ()
|
|
'<EQUAL? ,ACTION-OBJECT ,CANCEL-OBJECT>>
|
|
|
|
<DEFMAC GDEF (NAM 'STR "OPT" ('NUM 0))
|
|
<COND (<G? .NUM 0>
|
|
<FORM CONSTANT .NAM .NUM>)
|
|
(T
|
|
<FORM CONSTANT .NAM .STR>)>>
|
|
|
|
;"Common"
|
|
|
|
<INSERT-FILE "OUTPUT" T>
|
|
<INSERT-FILE "INPUT" T>
|
|
<INSERT-FILE "INTRO" T>
|
|
<INSERT-FILE "COMMANDS" T>
|
|
<INSERT-FILE "COMMON" T>
|
|
<INSERT-FILE "CONTROLS" T>
|
|
<INSERT-FILE "CHARACTERS" T>
|
|
<INSERT-FILE "OBJECTS" T>
|
|
<INSERT-FILE "SPELLS" T>
|
|
<INSERT-FILE "TALES" T>
|
|
<INSERT-FILE "COMBAT" T>
|
|
|
|
;"Part Ia"
|
|
|
|
<INSERT-FILE "LAVOS" T>
|
|
|
|
;"Part Ib"
|
|
|
|
<INSERT-FILE "DWARVES" T>
|
|
<INSERT-FILE "FOREST" T>
|
|
<INSERT-FILE "RIVER" T>
|
|
<INSERT-FILE "PRISON" T>
|
|
<INSERT-FILE "STAIR" T>
|
|
<INSERT-FILE "LAKE" T>
|
|
<INSERT-FILE "HERMIT" T>
|
|
<INSERT-FILE "ASTRIX" T>
|
|
|
|
;"Part II (a)"
|
|
|
|
<INSERT-FILE "PART2" T>
|
|
<INSERT-FILE "MINES" T>
|
|
<INSERT-FILE "FLUME" T>
|
|
<INSERT-FILE "TOMB" T>
|
|
|
|
;"Part II (b)"
|
|
|
|
<INSERT-FILE "FOG" T>
|
|
<INSERT-FILE "TRAP" T>
|
|
|
|
;"Part III"
|
|
|
|
<INSERT-FILE "ZAN" T>
|
|
<INSERT-FILE "WHARF" T>
|
|
<INSERT-FILE "VOYAGE" T>
|
|
<INSERT-FILE "ISLAND" T>
|
|
|
|
;"Hints"
|
|
|
|
<INSERT-FILE "HINTS" T>
|
|
|
|
;"Graphics"
|
|
|
|
<INSERT-FILE "GRAPHICS" T>
|