├── toa.serial
├── syntax.zap
├── toa.zip
├── COMPILED
    └── toa.z3
├── toa.zap
├── toa.xzap
├── macros.zap
├── toa.errors
├── a3.zil
├── toa.zil
├── cutthroats.zil
├── shipwrecks.mss
├── clock.zap
├── README.md
├── clock.zil
├── macros.zil
├── toafreq.xzap
├── goal.zap
├── main.zap
├── main.zil
├── toa2.txt
├── goal.zil
├── syntax.zil
├── boat.zap
└── revisions.mss


/toa.serial:
--------------------------------------------------------------------------------
1 | 2
2 | 


--------------------------------------------------------------------------------
/syntax.zap:
--------------------------------------------------------------------------------
1 | 
2 | 	.ENDI
3 | 


--------------------------------------------------------------------------------
/toa.zip:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/historicalsource/cutthroats/HEAD/toa.zip


--------------------------------------------------------------------------------
/COMPILED/toa.z3:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/historicalsource/cutthroats/HEAD/COMPILED/toa.z3


--------------------------------------------------------------------------------
/toa.zap:
--------------------------------------------------------------------------------
 1 | 
 2 | 	.INSERT "TOADAT"			; DATA IS IN THIS FILE
 3 | 
 4 | 
 5 | 	.INSERT "MACROS"
 6 | 
 7 | 
 8 | 	.INSERT "GLOBALS"
 9 | 
10 | 
11 | 	.INSERT "SYNTAX"
12 | 
13 | 
14 | 	.INSERT "CLOCK"
15 | 
16 | 
17 | 	.INSERT "MAIN"
18 | 
19 | 
20 | 	.INSERT "PARSER"
21 | 
22 | 
23 | 	.INSERT "VERBS"
24 | 
25 | 
26 | 	.INSERT "GOAL"
27 | 
28 | 
29 | 	.INSERT "ISLAND"
30 | 
31 | 
32 | 	.INSERT "BOAT"
33 | 
34 | 
35 | 	.INSERT "WRECKS"
36 | 
37 | 
38 | 	.INSERT "PEOPLE"
39 | 
40 | 
41 | 	.INSERT "EVENTS"
42 | 
43 | 
44 | 	.INSERT "TOASTR"
45 | 
46 | 	.END
47 | 


--------------------------------------------------------------------------------
/toa.xzap:
--------------------------------------------------------------------------------
 1 | 	.TIME
 2 | 	
 3 | 	.INSERT "TOAFREQ"
 4 | 
 5 | 	.INSERT "TOADAT"			; DATA IS IN THIS FILE
 6 | 
 7 | 
 8 | 	.INSERT "MACROS"
 9 | 
10 | 
11 | 	.INSERT "GLOBALS"
12 | 
13 | 
14 | 	.INSERT "SYNTAX"
15 | 
16 | 
17 | 	.INSERT "CLOCK"
18 | 
19 | 
20 | 	.INSERT "MAIN"
21 | 
22 | 
23 | 	.INSERT "PARSER"
24 | 
25 | 
26 | 	.INSERT "VERBS"
27 | 
28 | 
29 | 	.INSERT "GOAL"
30 | 
31 | 
32 | 	.INSERT "ISLAND"
33 | 
34 | 
35 | 	.INSERT "BOAT"
36 | 
37 | 
38 | 	.INSERT "WRECKS"
39 | 
40 | 
41 | 	.INSERT "PEOPLE"
42 | 
43 | 
44 | 	.INSERT "EVENTS"
45 | 
46 | 
47 | 	.INSERT "TOASTR"
48 | 
49 | 	.END
50 | 


--------------------------------------------------------------------------------
/macros.zap:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | 	.FUNCT	PICK-ONE,FROB
 4 | 	GET	FROB,0
 5 | 	RANDOM	STACK
 6 | 	GET	FROB,STACK
 7 | 	RSTACK	
 8 | 
 9 | 
10 | 	.FUNCT	DPRINT,OBJ
11 | 	GETP	OBJ,P?SDESC
12 | 	ZERO?	STACK /?ELS5
13 | 	GETP	OBJ,P?SDESC
14 | 	PRINT	STACK
15 | 	RTRUE	
16 | ?ELS5:	PRINTD	OBJ
17 | 	RTRUE	
18 | 
19 | 
20 | 	.FUNCT	APRINT,OBJ
21 | 	FSET?	OBJ,PERSON /?THN6
22 | 	EQUAL?	OBJ,PETES-PATCH \?ELS5
23 | ?THN6:	CALL	DPRINT,OBJ
24 | 	RSTACK	
25 | ?ELS5:	FSET?	OBJ,VOWELBIT \?ELS11
26 | 	PRINTI	"an "
27 | 	CALL	DPRINT,OBJ
28 | 	RSTACK	
29 | ?ELS11:	PRINTI	"a "
30 | 	CALL	DPRINT,OBJ
31 | 	RSTACK	
32 | 
33 | 	.ENDI
34 | 


--------------------------------------------------------------------------------
/toa.errors:
--------------------------------------------------------------------------------
 1 | Assembling TOA.XZAP.1
 2 | Release: 25
 3 | 
 4 | 64	Inserting TOAFREQ.XZAP.1	(  634 bytes)
 5 | 698	Inserting TOADAT.ZAP.2	(20211 bytes)
 6 | 20909	Inserting MACROS.ZAP.2	(   79 bytes)
 7 | 20988	Inserting GLOBALS.ZAP.2	( 6861 bytes)
 8 | 27849	Inserting SYNTAX.ZAP.2	(    0 bytes)
 9 | 27849	Inserting CLOCK.ZAP.2	(  316 bytes)
10 | 28165	Inserting MAIN.ZAP.2	( 2751 bytes)
11 | 30916	Inserting PARSER.ZAP.2	( 6165 bytes)
12 | 37081	Inserting VERBS.ZAP.2	(15552 bytes)
13 | 52633	Inserting GOAL.ZAP.2	( 2130 bytes)
14 | 54763	Inserting ISLAND.ZAP.2	( 9139 bytes)
15 | 63902	Inserting BOAT.ZAP.2	( 5419 bytes)
16 | 69321	Inserting WRECKS.ZAP.2	( 8789 bytes)
17 | 78110	Inserting PEOPLE.ZAP.2	(12336 bytes)
18 | 90446	Inserting EVENTS.ZAP.2	( 8695 bytes)
19 | 99141	Inserting TOASTR.ZAP.2	(13397 bytes)
20 | 
21 | Symbols unused:
22 | SERIAL
23 | PRE-WHAT
24 | PRE-LOOK-ON
25 | PRE-LOOK-IN
26 | PRE-DROP
27 | VPRINT
28 | 
29 | 20157 bytes of preload.
30 | 
31 | 112538 bytes (110K).
32 | 27546 bytes too large for one-disk game on ATARI.
33 | 223 objects.
34 | 212 globals.
35 | 
36 | 


--------------------------------------------------------------------------------
/a3.zil:
--------------------------------------------------------------------------------
 1 | "
 2 | 			      TOA #2
 3 | 	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved.
 4 | "
 5 | 
 6 | <GC-MON <>>
 7 | ;<COND (<GASSIGNED? ZILCH> <GC 0 T>)
 8 |       (T <GC 0 T 5>)>
 9 | <GC 0 T 5>
10 | 
11 | <BLOAT 90000 0 0 3500 0 0 0 0 0 512>
12 | 
13 | ;<SETG SHORT-STRINGS 2>
14 | 
15 | <SET REDEFINE T>
16 | 
17 | ;<GLOBAL BIGFIX 10000>
18 | 
19 | <OR <GASSIGNED? ZILCH>
20 |     <SETG WBREAKS <STRING !\" !\= !,WBREAKS>>>
21 | 
22 | <DEFINE IFILE (STR "OPTIONAL" (FLOAD? <>) "AUX" (TIM <TIME>))
23 | 	<INSERT-FILE .STR .FLOAD?>>
24 | 
25 | <PRINC "CUTTHROATS: Frobozz Magic Adventure Fiction
26 | ">
27 | 
28 | <COND (<GASSIGNED? PREDGEN>
29 |        <ID 0>)>
30 | 
31 | <IFILE "MACROS" T>
32 | 
33 | <IFILE "GLOBALS" T>
34 | <PROPDEF SIZE 5>
35 | <PROPDEF CAPACITY 0>
36 | ;<PROPDEF VALUE 0>
37 | 
38 | <IFILE "SYNTAX" T>
39 | <ENDLOAD>
40 | 
41 | <IFILE "CLOCK" T>
42 | <IFILE "MAIN" T>
43 | <IFILE "PARSER" T>
44 | <IFILE "VERBS" T>
45 | 
46 | 
47 | 
48 | ;"Jerry: Add your files here, as with GOAL"
49 | 
50 | <IFILE "GOAL" T>
51 | <IFILE "ISLAND" T>
52 | <IFILE "BOAT" T>
53 | <IFILE "WRECKS" T>
54 | <IFILE "PEOPLE" T>
55 | <IFILE "EVENTS" T>
56 | ;<COND (<NOT <GASSIGNED? PREDGEN>>
57 |        <CLOSE!- ,XTELLCHAN>)>
58 | <PRINC "
59 | Formerly SCUM: Interlogic Adventure Fiction
60 | 
61 | 
62 | 
63 | 
64 | 
65 | 
66 | 
67 | Get ready!">


--------------------------------------------------------------------------------
/toa.zil:
--------------------------------------------------------------------------------
 1 | "
 2 | 			      TOA #2
 3 | 	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved.
 4 | "
 5 | 
 6 | <GC-MON <>>
 7 | ;<COND (<GASSIGNED? ZILCH> <GC 0 T>)
 8 |       (T <GC 0 T 5>)>
 9 | <GC 0 T 5>
10 | 
11 | <BLOAT 90000 0 0 3500 0 0 0 0 0 512>
12 | 
13 | ;<SETG SHORT-STRINGS 2>
14 | 
15 | <SET REDEFINE T>
16 | 
17 | ;<GLOBAL BIGFIX 10000>
18 | 
19 | <OR <GASSIGNED? ZILCH>
20 |     <SETG WBREAKS <STRING !\" !\= !,WBREAKS>>>
21 | 
22 | <DEFINE IFILE (STR "OPTIONAL" (FLOAD? <>) "AUX" (TIM <TIME>))
23 | 	<INSERT-FILE .STR .FLOAD?>>
24 | 
25 | <PRINC "CUTTHROATS: Frobozz Magic Adventure Fiction
26 | ">
27 | 
28 | <COND (<GASSIGNED? PREDGEN>
29 |        <ID 0>)>
30 | 
31 | <IFILE "MACROS" T>
32 | 
33 | <IFILE "GLOBALS" T>
34 | <PROPDEF SIZE 5>
35 | <PROPDEF CAPACITY 0>
36 | ;<PROPDEF VALUE 0>
37 | 
38 | <IFILE "SYNTAX" T>
39 | <ENDLOAD>
40 | 
41 | <IFILE "CLOCK" T>
42 | <IFILE "MAIN" T>
43 | <IFILE "PARSER" T>
44 | <IFILE "VERBS" T>
45 | 
46 | 
47 | 
48 | ;"Jerry: Add your files here, as with GOAL"
49 | 
50 | <IFILE "GOAL" T>
51 | <IFILE "ISLAND" T>
52 | <IFILE "BOAT" T>
53 | <IFILE "WRECKS" T>
54 | <IFILE "PEOPLE" T>
55 | <IFILE "EVENTS" T>
56 | ;<COND (<NOT <GASSIGNED? PREDGEN>>
57 |        <CLOSE!- ,XTELLCHAN>)>
58 | <PRINC "
59 | Formerly SCUM: Interlogic Adventure Fiction
60 | 
61 | 
62 | 
63 | 
64 | 
65 | 
66 | 
67 | Get ready!">


--------------------------------------------------------------------------------
/cutthroats.zil:
--------------------------------------------------------------------------------
 1 | "
 2 | 			      TOA #2
 3 | 	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved.
 4 | "
 5 | 
 6 | <GC-MON <>>
 7 | ;<COND (<GASSIGNED? ZILCH> <GC 0 T>)
 8 |       (T <GC 0 T 5>)>
 9 | <GC 0 T 5>
10 | 
11 | <BLOAT 90000 0 0 3500 0 0 0 0 0 512>
12 | 
13 | ;<SETG SHORT-STRINGS 2>
14 | 
15 | <SET REDEFINE T>
16 | 
17 | ;<GLOBAL BIGFIX 10000>
18 | 
19 | <OR <GASSIGNED? ZILCH>
20 |     <SETG WBREAKS <STRING !\" !\= !,WBREAKS>>>
21 | 
22 | <DEFINE IFILE (STR "OPTIONAL" (FLOAD? <>) "AUX" (TIM <TIME>))
23 | 	<INSERT-FILE .STR .FLOAD?>>
24 | 
25 | <PRINC "CUTTHROATS: Frobozz Magic Adventure Fiction
26 | ">
27 | 
28 | <COND (<GASSIGNED? PREDGEN>
29 |        <ID 0>)>
30 | 
31 | <IFILE "MACROS" T>
32 | 
33 | <IFILE "GLOBALS" T>
34 | <PROPDEF SIZE 5>
35 | <PROPDEF CAPACITY 0>
36 | ;<PROPDEF VALUE 0>
37 | 
38 | <IFILE "SYNTAX" T>
39 | <ENDLOAD>
40 | 
41 | <IFILE "CLOCK" T>
42 | <IFILE "MAIN" T>
43 | <IFILE "PARSER" T>
44 | <IFILE "VERBS" T>
45 | 
46 | 
47 | 
48 | ;"Jerry: Add your files here, as with GOAL"
49 | 
50 | <IFILE "GOAL" T>
51 | <IFILE "ISLAND" T>
52 | <IFILE "BOAT" T>
53 | <IFILE "WRECKS" T>
54 | <IFILE "PEOPLE" T>
55 | <IFILE "EVENTS" T>
56 | ;<COND (<NOT <GASSIGNED? PREDGEN>>
57 |        <CLOSE!- ,XTELLCHAN>)>
58 | <PRINC "
59 | Formerly SCUM: Interlogic Adventure Fiction
60 | 
61 | 
62 | 
63 | 
64 | 
65 | 
66 | 
67 | Get ready!">


--------------------------------------------------------------------------------
/shipwrecks.mss:
--------------------------------------------------------------------------------
 1 | @MAKE [TEXT]
 2 | @STYLE [SPACING 2,JUSTIFICATION NO]
 3 | @TITLE [NIGHTDIVER OLD BOOK]
 4 | @TabSet [4,8,12,16,20]
 5 | @pageheading [draft]
 6 | @MAJORHEADING [Major Undiscovered Shipwrecks]
 7 | 
 8 | @subheading [Background]
 9 | 
10 | There have been seven major shipwrecks in the area which have not yet
11 | been discovered. What little information the Department of Ancient
12 | Wrecks has been able to compile may be inaccurate. Due to the
13 | underfunding of our department, we have been unable to confirm the
14 | physical existence of all of these wrecks, but from what we can tell,
15 | most of the fatual information on them is correct.
16 | 
17 | @subheading [The Ships]
18 | 
19 | The S.S. Fubleo -- This ship was originally launched in 1672, a spanish
20 | galleon of new design. It made two journeys to the new world,
21 | transporting a cargo rich in jewels and gold. According to the data, the
22 | ship rests at 300 fathoms.
23 | 
24 | The USS Eisenstadt -- Named after the notorious pirate Jimbo Eisenstadt,
25 | this sturdy, steel-framed ship foundered in a gale. Its cargo was
26 | primarily arms and munitions, but the captain of the ship, Bill Bose,
27 | was later suspected of smuggling ivory. Nothing was every proven
28 | regarding his pirate tendencies. The ship is resting at 200 fathoms.
29 | 
30 | The Gloria McCorkle -- Named after the famous ballet dancer of the
31 | 1700's, the Gloria McCorkle was a merchant ship which struck a coral
32 | reef sometime around 1807. She was believed to be carrying rare silks
33 | and gold ingots, and is assumed to be resting at 150 fathoms
34 | 
35 | The Black Flag -- Captain Willie Shortbread, a notorious buccaneer, was
36 | blown clear out of the water when an English gunship caught up with him.
37 | The cargo he was carrying was known to be diverse, but according to
38 | records, the last two ships he plundered were carrying chests filled
39 | with jewels of all descriptions. The Black Flag is assumed to rest in
40 | about 100 fathoms of water.


--------------------------------------------------------------------------------
/clock.zap:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | 	.FUNCT	QUEUE,RTN,TICK,CINT
 4 | 	CALL	INT,RTN >CINT
 5 | 	PUT	CINT,C-TICK,TICK
 6 | 	RETURN	CINT
 7 | 
 8 | 
 9 | 	.FUNCT	INT,RTN,E,C,INT
10 | 	ADD	C-TABLE,C-TABLELEN >E
11 | 	ADD	C-TABLE,C-INTS >C
12 | ?PRG1:	EQUAL?	C,E \?ELS5
13 | 	SUB	C-INTS,C-INTLEN >C-INTS
14 | 	ADD	C-TABLE,C-INTS >INT
15 | 	PUT	INT,C-RTN,RTN
16 | 	RETURN	INT
17 | ?ELS5:	GET	C,C-RTN
18 | 	EQUAL?	STACK,RTN \?CND3
19 | 	RETURN	C
20 | ?CND3:	ADD	C,C-INTLEN >C
21 | 	JUMP	?PRG1
22 | 
23 | 
24 | 	.FUNCT	ENABLED?,RTN,C,E
25 | 	ADD	C-TABLE,C-TABLELEN >E
26 | 	ADD	C-TABLE,C-INTS >C
27 | ?PRG1:	EQUAL?	C,E /FALSE
28 | 	GET	C,C-RTN
29 | 	EQUAL?	STACK,RTN \?CND3
30 | 	GET	C,C-ENABLED?
31 | 	ZERO?	STACK \TRUE
32 | 	RFALSE	
33 | ?CND3:	ADD	C,C-INTLEN >C
34 | 	JUMP	?PRG1
35 | 
36 | 
37 | 	.FUNCT	QUEUED?,RTN,C,E
38 | 	ADD	C-TABLE,C-TABLELEN >E
39 | 	ADD	C-TABLE,C-INTS >C
40 | ?PRG1:	EQUAL?	C,E /FALSE
41 | 	GET	C,C-RTN
42 | 	EQUAL?	STACK,RTN \?CND3
43 | 	GET	C,C-ENABLED?
44 | 	ZERO?	STACK /FALSE
45 | 	GET	C,C-TICK
46 | 	ZERO?	STACK \TRUE
47 | 	RFALSE	
48 | ?CND3:	ADD	C,C-INTLEN >C
49 | 	JUMP	?PRG1
50 | 
51 | 
52 | 	.FUNCT	CLOCKER,C,E,TICK,FLG=0,VAL
53 | 	ZERO?	CLOCK-WAIT /?CND1
54 | 	SET	'CLOCK-WAIT,FALSE-VALUE
55 | 	RFALSE	
56 | ?CND1:	INC	'PRESENT-TIME
57 | 	GRTR?	PRESENT-TIME,1439 \?CND5
58 | 	SUB	PRESENT-TIME,1440 >PRESENT-TIME
59 | ?CND5:	ZERO?	WATCH-WOUND /?CND8
60 | 	IGRTR?	'WATCH-MOVES,59 \?CND8
61 | 	SUB	WATCH-MOVES,60 >WATCH-MOVES
62 | 	IGRTR?	'WATCH-SCORE,11 \?CND12
63 | 	SET	'WATCH-SCORE,0
64 | ?CND12:	
65 | ?CND8:	CALL	WATCH-UPDATE
66 | 	ADD	C-TABLE,C-INTS >C
67 | 	ADD	C-TABLE,C-TABLELEN >E
68 | ?PRG18:	EQUAL?	C,E \?ELS22
69 | 	RETURN	FLG
70 | ?ELS22:	GET	C,C-ENABLED?
71 | 	ZERO?	STACK /?CND20
72 | 	GET	C,C-TICK >TICK
73 | 	ZERO?	TICK \?ELS27
74 | 	JUMP	?CND20
75 | ?ELS27:	SUB	TICK,1
76 | 	PUT	C,C-TICK,STACK
77 | 	GRTR?	TICK,1 /?CND25
78 | 	GET	C,C-RTN
79 | 	CALL	STACK >VAL
80 | 	ZERO?	VAL /?CND25
81 | 	ZERO?	FLG /?THN38
82 | 	EQUAL?	VAL,M-FATAL \?CND20
83 | ?THN38:	SET	'FLG,VAL
84 | ?CND25:	
85 | ?CND20:	ADD	C,C-INTLEN >C
86 | 	JUMP	?PRG18
87 | 
88 | 
89 | 	.FUNCT	WATCH-UPDATE
90 | 	IN?	WATCH,PLAYER \?ELS5
91 | 	SET	'MOVES,WATCH-MOVES
92 | 	SET	'SCORE,WATCH-SCORE
93 | 	RETURN	SCORE
94 | ?ELS5:	SET	'MOVES,99
95 | 	SET	'SCORE,111
96 | 	RETURN	SCORE
97 | 
98 | 	.ENDI
99 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
 1 | # Cutthroats Source Code Collection
 2 | 
 3 | Cutthroats is a 1984 interactive fiction game written by Michael Berlyn and Jerry Wolper and published by Infocom.
 4 | 
 5 | Further information on Cutthroats:
 6 | 
 7 | * [Wikipedia](https://en.wikipedia.org/wiki/Cutthroats_(video_game))
 8 | * [The Digital Antiquarian](https://www.filfre.net/2013/11/cutthroats/)
 9 | * [The Interactive Fiction Database](https://ifdb.tads.org/viewgame?id=4ao65o1u0xuvj8jf)
10 | * [The Infocom Gallery](https://gallery.guetech.org/cutthroats/cutthroats.html)
11 | * [IFWiki](http://www.ifwiki.org/index.php/Cutthroats)
12 | 
13 | __What is this Repository?__
14 | 
15 | This repository is a directory of source code for the Infocom game "Cutthroats", including a variety of files both used and discarded in the production of the game. It is written in ZIL (Zork Implementation Language), a refactoring of MDL (Muddle), itself a dialect of LISP created by MIT students and staff.
16 | 
17 | The source code was contributed anonymously and represents a snapshot of the Infocom development system at time of shutdown - there is no remaining way to compare it against any official version as of this writing, and so it should be considered canonical, but not necessarily the exact source code arrangement for production.
18 | 
19 | __Basic Information on the Contents of This Repository__
20 | 
21 | It is mostly important to note that there is currently no known way to compile the source code in this repository into a final "Z-machine Interpreter Program" (ZIP) file. There are .ZIP files in some of the Infocom Source Code repositories but they were there as of final spin-down of the Infocom Drive and the means to create them is currently lost.
22 | 
23 | Throughout its history, Infocom used a TOPS20 mainframe with a compiler (ZILCH) to create and edit language files - this repository is a mirror of the source code directory archive of Infocom but could represent years of difference from what was originally released.
24 | 
25 | In general, Infocom games were created by taking previous Infocom source code, copying the directory, and making changes until the game worked the way the current Implementor needed. Structure, therefore, tended to follow from game to game and may or may not accurately reflect the actual function of the code.
26 | 
27 | There are also multiple versions of the "Z-Machine" and code did change notably between the first years of Infocom and a decade later. Addition of graphics, sound and memory expansion are all slowly implemented over time.
28 | 
29 | __What is the Purpose of this Repository__
30 | 
31 | This collection is meant for education, discussion, and historical work, allowing researchers and students to study how code was made for these interactive fiction games and how the system dealt with input and processing. It is not considered to be under an open license.
32 | 
33 | Researchers are encouraged to share their discoveries about the information in this source code and the history of Infocom and its many innovative employees.
34 | 
35 | 


--------------------------------------------------------------------------------
/clock.zil:
--------------------------------------------------------------------------------
  1 | "CLOCK for TOA #2
  2 | Copyright (C) 1984 Infocom, Inc.  All rights reserved."
  3 | 
  4 | <CONSTANT C-TABLELEN 246>
  5 | 
  6 | <GLOBAL C-TABLE <ITABLE NONE %<COND (<GASSIGNED? PREDGEN> 123) (T 246)>>>
  7 | 
  8 | ;<GLOBAL C-DEMONS 300>
  9 | 
 10 | <GLOBAL C-INTS 246>
 11 | 
 12 | <CONSTANT C-INTLEN 6>
 13 | 
 14 | <CONSTANT C-ENABLED? 0>
 15 | 
 16 | <CONSTANT C-TICK 1>
 17 | 
 18 | <CONSTANT C-RTN 2>
 19 | 
 20 | ;<ROUTINE DEMON (RTN TICK "AUX" CINT)
 21 | 	 #DECL ((RTN) ATOM (TICK) FIX (CINT) <PRIMTYPE VECTOR>)
 22 | 	 <PUT <SET CINT <INT .RTN T>> ,C-TICK .TICK>
 23 | 	 .CINT>
 24 | 
 25 | <ROUTINE QUEUE (RTN TICK "AUX" CINT)
 26 | 	 #DECL ((RTN) ATOM (TICK) FIX (CINT) <PRIMTYPE VECTOR>)
 27 | 	 <PUT <SET CINT <INT .RTN>> ,C-TICK .TICK>
 28 | 	 .CINT>
 29 | 
 30 | <ROUTINE INT (RTN "AUX" E C INT)
 31 | 	 #DECL ((RTN) ATOM (E C INT) <PRIMTYPE VECTOR>)
 32 | 	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
 33 | 	 <SET C <REST ,C-TABLE ,C-INTS>>
 34 | 	 <REPEAT ()
 35 | 		 <COND (<==? .C .E>
 36 | 			<SETG C-INTS <- ,C-INTS ,C-INTLEN>>
 37 | 			;<AND .DEMON <SETG C-DEMONS <- ,C-DEMONS ,C-INTLEN>>>
 38 | 			<SET INT <REST ,C-TABLE ,C-INTS>>
 39 | 			<PUT .INT ,C-RTN .RTN>
 40 | 			<RETURN .INT>)
 41 | 		       (<EQUAL? <GET .C ,C-RTN> .RTN> <RETURN .C>)>
 42 | 		 <SET C <REST .C ,C-INTLEN>>>>
 43 | 
 44 | <ROUTINE ENABLED? (RTN "AUX" C E)
 45 | 	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
 46 | 	 <SET C <REST ,C-TABLE ,C-INTS>>
 47 | 	 <REPEAT ()
 48 | 		 <COND (<==? .C .E> <RFALSE>)
 49 | 		       (<EQUAL? <GET .C ,C-RTN> .RTN>
 50 | 			<COND (<0? <GET .C ,C-ENABLED?>> <RFALSE>)
 51 | 			      (T <RTRUE>)>)>
 52 | 		 <SET C <REST .C ,C-INTLEN>>>>
 53 | 
 54 | <ROUTINE QUEUED? (RTN "AUX" C E)
 55 | 	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
 56 | 	 <SET C <REST ,C-TABLE ,C-INTS>>
 57 | 	 <REPEAT ()
 58 | 		 <COND (<==? .C .E> <RFALSE>)
 59 | 		       (<EQUAL? <GET .C ,C-RTN> .RTN>
 60 | 			<COND (<OR <0? <GET .C ,C-ENABLED?>>
 61 | 				   <0? <GET .C ,C-TICK>>>
 62 | 			       <RFALSE>)
 63 | 			      (T <RTRUE>)>)>
 64 | 		 <SET C <REST .C ,C-INTLEN>>>>
 65 | 
 66 | <GLOBAL CLOCK-WAIT <>>
 67 | 
 68 | <ROUTINE CLOCKER ("AUX" C E TICK (FLG <>) VAL)
 69 | 	 #DECL ((C E) <PRIMTYPE VECTOR> (TICK) FIX ;(FLG) ;<OR FALSE ATOM>)
 70 | 	 <COND (,CLOCK-WAIT <SETG CLOCK-WAIT <>> <RFALSE>)>
 71 | 	 <SETG PRESENT-TIME <+ ,PRESENT-TIME 1>>
 72 | 	 <COND (<G? ,PRESENT-TIME 1439>
 73 | 		<SETG PRESENT-TIME <- ,PRESENT-TIME 1440>>)>
 74 | 	 ;<COND (<G? ,PRESENT-TIME 1019>
 75 | 		<SETG BUSINESS-HOURS? <>>)
 76 | 	       (<G? ,PRESENT-TIME 539>
 77 | 		<SETG BUSINESS-HOURS? T>)>
 78 | 	 <COND (,WATCH-WOUND
 79 | 		<COND (<G? <SETG WATCH-MOVES <+ ,WATCH-MOVES 1>> 59>
 80 | 		       <SETG WATCH-MOVES <- ,WATCH-MOVES 60>>
 81 | 		       <COND (<G? <SETG WATCH-SCORE <+ ,WATCH-SCORE 1>> 11>
 82 | 		       	      <SETG WATCH-SCORE 0>)>)>)>
 83 | 	 <WATCH-UPDATE>
 84 | 	 <SET C <REST ,C-TABLE ,C-INTS ;<COND (,P-WON ,C-INTS) (T ,C-DEMONS)>>>
 85 | 	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
 86 | 	 <REPEAT ()
 87 | 		 <COND (<==? .C .E> <RETURN .FLG>)
 88 | 		       (<NOT <0? <GET .C ,C-ENABLED?>>>
 89 | 			<SET TICK <GET .C ,C-TICK>>
 90 | 			<COND (<0? .TICK>)
 91 | 			      (T
 92 | 			       <PUT .C ,C-TICK <- .TICK 1>>
 93 | 			       <COND (<AND <NOT <G? .TICK 1>>
 94 | 				           <SET VAL <APPLY <GET .C ,C-RTN>>>>
 95 | 				      ;<COND (,DEBUG
 96 | 					     <TELL "[Interrupt returning T.]" CR>)>
 97 | 				      <COND (<OR <NOT .FLG>
 98 | 						 <==? .VAL ,M-FATAL>>
 99 | 					     <SET FLG .VAL>)>)>)>)>
100 | 		 <SET C <REST .C ,C-INTLEN>>>>
101 | 
102 | <ROUTINE WATCH-UPDATE ()
103 | 	 <COND (<IN? ,WATCH ,PLAYER>
104 | 		<SETG MOVES ,WATCH-MOVES>
105 | 		<SETG SCORE ,WATCH-SCORE>)
106 | 	       (T
107 | 		<SETG MOVES 99>
108 | 		<SETG SCORE 111>)>>
109 | 


--------------------------------------------------------------------------------
/macros.zil:
--------------------------------------------------------------------------------
  1 | "MACROS for
  2 | 			      TOA #2
  3 | 	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved.
  4 | "
  5 | 
  6 | <COND (<NOT <GASSIGNED? ZSTR-ON>>
  7 |        <SETG ZSTR-ON <SETG ZSTR-OFF ,TIME>>)>
  8 | 
  9 | <SETG C-ENABLED? 0>
 10 | ;<SETG C-ENABLED 1>
 11 | ;<SETG C-DISABLED 0>
 12 | 
 13 | <DEFMAC TELL ("ARGS" A)
 14 | 	<FORM PROG ()
 15 | 	      !<MAPF ,LIST
 16 | 		     <FUNCTION ("AUX" E P O)
 17 | 			  <COND (<EMPTY? .A> <MAPSTOP>)
 18 | 				(<SET E <NTH .A 1>>
 19 | 				 <SET A <REST .A>>)>
 20 | 			  <COND (<TYPE? .E ATOM>
 21 | 				 <COND (<OR <=? <SET P <SPNAME .E>>
 22 | 						"CRLF">
 23 | 					    <=? .P "CR">>
 24 | 					<MAPRET '<CRLF>>)
 25 | 				       (<=? .P "PRSO">
 26 | 					<MAPRET '<PRSO-PRINT>>)
 27 | 				       (<=? .P "PRSI">
 28 | 					<MAPRET '<PRSI-PRINT>>)
 29 | 				       ;(<=? .P "THE-PRSO">
 30 | 					<MAPRET '<THE-PRSO-PRINT>>)
 31 | 				       ;(<=? .P "THE-PRSI">
 32 | 					<MAPRET '<THE-PRSI-PRINT>>)
 33 | 				       (<EMPTY? .A>
 34 | 					<ERROR INDICATOR-AT-END? .E>)
 35 | 				       (ELSE
 36 | 					<SET O <NTH .A 1>>
 37 | 					<SET A <REST .A>>
 38 | 					<COND (<OR <=? <SET P <SPNAME .E>>
 39 | 						       "DESC">
 40 | 						   <=? .P "D">
 41 | 						   <=? .P "OBJ">
 42 | 						   <=? .P "O">>
 43 | 					       <MAPRET <FORM DPRINT .O>>)
 44 | 					      (<OR <=? .P "A">
 45 | 						   <=? .P "AN">>
 46 | 					       <MAPRET <FORM APRINT .O>>)
 47 | 					      (<OR <=? .P "NUM">
 48 | 						   <=? .P "N">>
 49 | 					       <MAPRET <FORM PRINTN .O>>)
 50 | 					      (<OR <=? .P "CHAR">
 51 | 						   <=? .P "CHR">
 52 | 						   <=? .P "C">>
 53 | 					       <MAPRET <FORM PRINTC .O>>)
 54 | 					      (ELSE
 55 | 					       <MAPRET
 56 | 						 <FORM PRINT
 57 | 						       <FORM GETP .O .E>>>)>)>)
 58 | 				(<TYPE? .E STRING ZSTRING>
 59 | 				 <MAPRET <FORM PRINTI .E>>)
 60 | 				(<TYPE? .E FORM LVAL GVAL>
 61 | 				 <MAPRET <FORM PRINT .E>>)
 62 | 				(<TYPE? .E FIX>
 63 | 				 <MAPRET <FORM PRINTX .E>>)
 64 | 				(ELSE <ERROR UNKNOWN-TYPE .E>)>>>>>
 65 | 
 66 | <DEFMAC VERB? ("ARGS" ATMS)
 67 | 	<MULTIFROB PRSA .ATMS>>
 68 | 
 69 | <DEFMAC PRSO? ("ARGS" ATMS)
 70 | 	<MULTIFROB PRSO .ATMS>>
 71 | 
 72 | <DEFMAC PRSI? ("ARGS" ATMS)
 73 | 	<MULTIFROB PRSI .ATMS>>
 74 | 
 75 | <DEFMAC ROOM? ("ARGS" ATMS)
 76 | 	<MULTIFROB HERE .ATMS>>
 77 | 
 78 | <ZSTR-OFF>
 79 | 
 80 | <DEFINE MULTIFROB (X ATMS "AUX" (OO (OR)) (O .OO) (L ()) ATM) 
 81 | 	<REPEAT ()
 82 | 		<COND (<EMPTY? .ATMS>
 83 | 		       <RETURN!- <COND (<LENGTH? .OO 1> <ERROR .X>)
 84 | 				       (<LENGTH? .OO 2> <NTH .OO 2>)
 85 | 				       (ELSE <CHTYPE .OO FORM>)>>)>
 86 | 		<REPEAT ()
 87 | 			<COND (<EMPTY? .ATMS> <RETURN!->)>
 88 | 			<SET ATM <NTH .ATMS 1>>
 89 | 			<SET L
 90 | 			     (<COND (<TYPE? .ATM ATOM>
 91 | 				     <FORM GVAL
 92 | 					   <COND (<==? .X PRSA>
 93 | 						  <PARSE
 94 | 						    <STRING "V?"
 95 | 							    <SPNAME .ATM>>>)
 96 | 						 (ELSE .ATM)>>)
 97 | 				    (ELSE .ATM)>
 98 | 			      !.L)>
 99 | 			<SET ATMS <REST .ATMS>>
100 | 			<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
101 | 		<SET O <REST <PUTREST .O (<FORM EQUAL? <FORM GVAL .X> !.L>)>>>
102 | 		<SET L ()>>>
103 | 
104 | <ZSTR-ON>
105 | 
106 | <DEFMAC RFATAL ()
107 | 	'<PROG () <PUSH 2> <RSTACK>>>
108 | 
109 | <DEFMAC PROB ('BASE?)
110 | 	<FORM G? .BASE? '<RANDOM 100>>>
111 | 
112 | ;<ROUTINE ZPROB
113 | 	 (BASE)
114 | 	 <COND (,LUCKY <G? .BASE <RANDOM 100>>)
115 | 	       (ELSE <G? .BASE <RANDOM 300>>)>>
116 | 
117 | <ROUTINE PICK-ONE (FROB)
118 | 	 <GET .FROB <RANDOM <GET .FROB 0>>>>
119 | 
120 | <DEFMAC ENABLE ('INT) <FORM PUT .INT ,C-ENABLED? 1>>
121 | 
122 | <DEFMAC DISABLE ('INT) <FORM PUT .INT ,C-ENABLED? 0>>
123 | 
124 | <DEFMAC OPENABLE? ('OBJ)
125 | 	<FORM OR <FORM FSET? .OBJ ',DOORBIT>
126 | 	         <FORM FSET? .OBJ ',CONTBIT>>> 
127 | 
128 | ;<ROUTINE ABS (NUM)
129 | 	 <COND (<G? .NUM 0>
130 | 		<RETURN .NUM>)
131 | 	       (ELSE
132 | 		<RETURN <- 0 .NUM>>)>>
133 | 
134 | <ROUTINE DPRINT (OBJ)
135 | 	 <COND (<GETP .OBJ ,P?SDESC>
136 | 		<TELL <GETP .OBJ ,P?SDESC>>)
137 | 	       (T <PRINTD .OBJ>)>>
138 | 
139 | <ROUTINE APRINT (OBJ)
140 | 	<COND (<OR <FSET? .OBJ ,PERSON>
141 | 		   <==? .OBJ ,PETES-PATCH>>
142 | 	       <TELL D .OBJ>)
143 | 	      (<FSET? .OBJ ,VOWELBIT> <TELL "an " D .OBJ>)
144 | 	      (T <TELL "a " D .OBJ>)>>
145 | 
146 | 


--------------------------------------------------------------------------------
/toafreq.xzap:
--------------------------------------------------------------------------------
  1 | 	.FSTR FSTR?1,"the "	;1546	773
  2 | 	.FSTR FSTR?2,"The "	;804	268
  3 | 	.FSTR FSTR?3,"You "	;669	223
  4 | 	.FSTR FSTR?4,", "	;533	533
  5 | 	.FSTR FSTR?5,"you "	;526	263
  6 | 	.FSTR FSTR?6,"and "	;486	243
  7 | 	.FSTR FSTR?7,". "	;414	414
  8 | 	.FSTR FSTR?8,"to "	;411	411
  9 | 	.FSTR FSTR?9,"your "	;390	130
 10 | 	.FSTR FSTR?10,"Johnny "	;372	62
 11 | 	.FSTR FSTR?11,"It's "	;360	72
 12 | 	.FSTR FSTR?12,"that "	;318	106
 13 | 	.FSTR FSTR?13,"is "	;287	287
 14 | 	.FSTR FSTR?14,"with "	;264	88
 15 | 	.FSTR FSTR?15,"don't "	;255	51
 16 | 	.FSTR FSTR?16,"of "	;243	243
 17 | 	.FSTR FSTR?17,"This "	;224	56
 18 | 	.FSTR FSTR?18,"are "	;212	106
 19 | 	.FSTR FSTR?19,"have "	;201	67
 20 | 	.FSTR FSTR?20,"through "	;186	31
 21 | 	.FSTR FSTR?21,"can't "	;185	37
 22 | 	.FSTR FSTR?22,"There's "	;184	23
 23 | 	.FSTR FSTR?23,"you're "	;174	29
 24 | 	.FSTR FSTR?24,"There "	;165	33
 25 | 	.FSTR FSTR?25,"for "	;156	78
 26 | 	.FSTR FSTR?26,"Weasel "	;156	26
 27 | 	.FSTR FSTR?27,"which "	;148	37
 28 | 	.FSTR FSTR?28,"in "	;147	147
 29 | 	.FSTR FSTR?29,"this "	;144	48
 30 | 	.FSTR FSTR?30,"You're "	;140	20
 31 | 	.FSTR FSTR?31,"That's "	;140	20
 32 | 	.FSTR FSTR?32,"looks "	;136	34
 33 | 	.FSTR FSTR?33,"about "	;132	33
 34 | 	.FSTR FSTR?34,"from "	;126	42
 35 | 	.FSTR FSTR?35,"salesman "	;119	17
 36 | 	.FSTR FSTR?36,"I "	;117	117
 37 | 	.FSTR FSTR?37,"already "	;114	19
 38 | 	.FSTR FSTR?38,"but "	;112	56
 39 | 	.FSTR FSTR?39,"here"	;108	54
 40 | 	.FSTR FSTR?40,"It "	;108	54
 41 | 	.FSTR FSTR?41,"what "	;108	36
 42 | 	.FSTR FSTR?42,"find "	;108	36
 43 | 	.FSTR FSTR?43,"it "	;107	107
 44 | 	.FSTR FSTR?44,"back "	;105	35
 45 | 	.FSTR FSTR?45,"doesn't "	;105	15
 46 | 	.FSTR FSTR?46,"out "	;100	50
 47 | 	.FSTR FSTR?47,"that"	;98	49
 48 | 	.FSTR FSTR?48,"McGinty "	;98	14
 49 | 	.FSTR FSTR?49,"his "	;96	48
 50 | 	.FSTR FSTR?50,"something "	;96	12
 51 | 	.FSTR FSTR?51,"on "	;94	94
 52 | 	.FSTR FSTR?52,"at "	;94	94
 53 | 	.FSTR FSTR?53,"not "	;94	47
 54 | 	.FSTR FSTR?54,"says"	;90	45
 55 | 	.FSTR FSTR?55,"can "	;88	44
 56 | 	.FSTR FSTR?56,"like "	;87	29
 57 | 	.FSTR FSTR?57,"see "	;86	43
 58 | 	.FSTR FSTR?58,"you"	;85	85
 59 | 	.FSTR FSTR?59,"starts "	;85	17
 60 | 	.FSTR FSTR?60,"then "	;84	28
 61 | 	.FSTR FSTR?61,"would "	;84	21
 62 | 	.FSTR FSTR?62,"nothing "	;84	14
 63 | 	.FSTR FSTR?63,"anything "	;84	12
 64 | 	.FSTR FSTR?64,"compressor "	;81	9
 65 | 	.FSTR FSTR?65,"off "	;80	40
 66 | 	.FSTR FSTR?66,"Pete "	;80	20
 67 | 	.FSTR FSTR?67,"I'm "	;80	20
 68 | 	.FSTR FSTR?68,"ladder "	;80	16
 69 | 	.FSTR FSTR?69,"isn't "	;80	16
 70 | 	.FSTR FSTR?70,"Wharf "	;80	16
 71 | 	.FSTR FSTR?71,"He's "	;80	16
 72 | 	.FSTR FSTR?72,"Outfitters "	;80	8
 73 | 	.FSTR FSTR?73,"door "	;78	26
 74 | 	.FSTR FSTR?74,"McGinty"	;78	13
 75 | 	.FSTR FSTR?75,"has "	;76	38
 76 | 	.FSTR FSTR?76,"He "	;76	38
 77 | 	.FSTR FSTR?77,"water "	;76	19
 78 | 	.FSTR FSTR?78,"Your "	;76	19
 79 | 	.FSTR FSTR?79,"than "	;72	24
 80 | 	.FSTR FSTR?80,"Road"	;72	24
 81 | 	.FSTR FSTR?81,"hands "	;72	18
 82 | 	.FSTR FSTR?82,"passbook"	;72	12
 83 | 	.FSTR FSTR?83,"forward "	;72	12
 84 | 	.FSTR FSTR?84,"Unfortunately"	;72	6
 85 | 	.FSTR FSTR?85,"teller "	;70	14
 86 | 	.FSTR FSTR?86,"better "	;70	14
 87 | 	.FSTR FSTR?87,"around "	;70	14
 88 | 	.FSTR FSTR?88,"I'll "	;70	14
 89 | 	.FSTR FSTR?89,"into "	;69	23
 90 | 	.FSTR FSTR?90,"down "	;69	23
 91 | 	.FSTR FSTR?91,"turns "	;68	17
 92 | 	.FSTR FSTR?92,"think "	;68	17
 93 | 	.FSTR FSTR?93,"leads "	;68	17
 94 | 	.FSTR FSTR?94,"That "	;68	17
 95 | 	.FSTR FSTR?95,"get "	;66	33
 96 | 	.FSTR FSTR?96,"more "	;66	22
 97 | 
 98 | 
 99 | ;word frequency table of 96 most common words
100 | 
101 | WORDS::	.TABLE
102 | 	FSTR?1
103 | 	FSTR?2
104 | 	FSTR?3
105 | 	FSTR?4
106 | 	FSTR?5
107 | 	FSTR?6
108 | 	FSTR?7
109 | 	FSTR?8
110 | 	FSTR?9
111 | 	FSTR?10
112 | 	FSTR?11
113 | 	FSTR?12
114 | 	FSTR?13
115 | 	FSTR?14
116 | 	FSTR?15
117 | 	FSTR?16
118 | 	FSTR?17
119 | 	FSTR?18
120 | 	FSTR?19
121 | 	FSTR?20
122 | 	FSTR?21
123 | 	FSTR?22
124 | 	FSTR?23
125 | 	FSTR?24
126 | 	FSTR?25
127 | 	FSTR?26
128 | 	FSTR?27
129 | 	FSTR?28
130 | 	FSTR?29
131 | 	FSTR?30
132 | 	FSTR?31
133 | 	FSTR?32
134 | 	FSTR?33
135 | 	FSTR?34
136 | 	FSTR?35
137 | 	FSTR?36
138 | 	FSTR?37
139 | 	FSTR?38
140 | 	FSTR?39
141 | 	FSTR?40
142 | 	FSTR?41
143 | 	FSTR?42
144 | 	FSTR?43
145 | 	FSTR?44
146 | 	FSTR?45
147 | 	FSTR?46
148 | 	FSTR?47
149 | 	FSTR?48
150 | 	FSTR?49
151 | 	FSTR?50
152 | 	FSTR?51
153 | 	FSTR?52
154 | 	FSTR?53
155 | 	FSTR?54
156 | 	FSTR?55
157 | 	FSTR?56
158 | 	FSTR?57
159 | 	FSTR?58
160 | 	FSTR?59
161 | 	FSTR?60
162 | 	FSTR?61
163 | 	FSTR?62
164 | 	FSTR?63
165 | 	FSTR?64
166 | 	FSTR?65
167 | 	FSTR?66
168 | 	FSTR?67
169 | 	FSTR?68
170 | 	FSTR?69
171 | 	FSTR?70
172 | 	FSTR?71
173 | 	FSTR?72
174 | 	FSTR?73
175 | 	FSTR?74
176 | 	FSTR?75
177 | 	FSTR?76
178 | 	FSTR?77
179 | 	FSTR?78
180 | 	FSTR?79
181 | 	FSTR?80
182 | 	FSTR?81
183 | 	FSTR?82
184 | 	FSTR?83
185 | 	FSTR?84
186 | 	FSTR?85
187 | 	FSTR?86
188 | 	FSTR?87
189 | 	FSTR?88
190 | 	FSTR?89
191 | 	FSTR?90
192 | 	FSTR?91
193 | 	FSTR?92
194 | 	FSTR?93
195 | 	FSTR?94
196 | 	FSTR?95
197 | 	FSTR?96
198 | 	.ENDT
199 | 
200 | 	.ENDI
201 | 


--------------------------------------------------------------------------------
/goal.zap:
--------------------------------------------------------------------------------
  1 | 
  2 | 
  3 | 	.FUNCT	DIR-PRINT,DIR,CNT=0,TBL,DRY=0
  4 | 	ZERO?	DIR \?ELS3
  5 | 	PRINTI	"out of view"
  6 | 	RTRUE	
  7 | ?ELS3:	GETP	HERE,P?LINE
  8 | 	GRTR?	STACK,BACK-ALLEY-LINE-C \?ELS7
  9 | 	SET	'TBL,NAUTICAL-DIR-STRINGS
 10 | 	JUMP	?CND1
 11 | ?ELS7:	SET	'TBL,DIR-STRINGS
 12 | 	SET	'DRY,TRUE-VALUE
 13 | ?CND1:	
 14 | ?PRG10:	GET	TBL,CNT
 15 | 	EQUAL?	STACK,DIR \?CND12
 16 | 	ZERO?	DRY /?CND15
 17 | 	EQUAL?	DIR,P?UP,P?DOWN /?CND15
 18 | 	PRINTI	"the "
 19 | ?CND15:	ADD	CNT,1
 20 | 	GET	TBL,STACK
 21 | 	PRINT	STACK
 22 | 	RTRUE	
 23 | ?CND12:	INC	'CNT
 24 | 	JUMP	?PRG10
 25 | 
 26 | 
 27 | 	.FUNCT	FOLLOW-GOAL,PERSON,HERE,LINE,LN,RM,GT,GOAL,FLG,GOAL-FLAG=0,IGOAL=0,LOC,CNT=1,DIR
 28 | 	LOC	PERSON >HERE
 29 | 	GETP	PERSON,P?CHARACTER
 30 | 	GET	GOAL-TABLES,STACK >GT
 31 | 	GET	GT,GOAL-F
 32 | 	EQUAL?	HERE,STACK \?ELS3
 33 | 	PUT	GT,GOAL-S,FALSE-VALUE
 34 | 	RETURN	FALSE-VALUE
 35 | ?ELS3:	GET	GT,GOAL-ENABLE
 36 | 	ZERO?	STACK /FALSE
 37 | ?CND1:	GETP	HERE,P?STATION >LOC
 38 | 	EQUAL?	LOC,HERE /?CND6
 39 | 	CALL	MOVE-PERSON,PERSON,LOC
 40 | 	RSTACK	
 41 | ?CND6:	GET	GT,GOAL-I >IGOAL
 42 | 	GET	TRANSFER-TABLE,IGOAL >GOAL
 43 | 	ZERO?	GOAL \?CND9
 44 | 	SET	'IGOAL,FALSE-VALUE
 45 | 	GET	GT,GOAL-S >GOAL
 46 | ?CND9:	ZERO?	GOAL /FALSE
 47 | 	EQUAL?	HERE,GOAL \?CND12
 48 | 	ZERO?	IGOAL /?ELS19
 49 | 	ADD	IGOAL,1
 50 | 	GET	TRANSFER-TABLE,STACK
 51 | 	CALL	MOVE-PERSON,PERSON,STACK >FLG
 52 | 	GET	GT,GOAL-F
 53 | 	CALL	ESTABLISH-GOAL,PERSON,STACK
 54 | 	RETURN	FLG
 55 | ?ELS19:	GET	GT,GOAL-F
 56 | 	EQUAL?	HERE,STACK /?ELS22
 57 | 	PUT	GT,GOAL-S,FALSE-VALUE
 58 | 	GET	GT,GOAL-F
 59 | 	CALL	MOVE-PERSON,PERSON,STACK >FLG
 60 | 	RETURN	FLG
 61 | ?ELS22:	PUT	GT,GOAL-S,FALSE-VALUE
 62 | 	RETURN	FALSE-VALUE
 63 | ?CND12:	GETP	GOAL,P?LINE
 64 | 	CALL	GET-LINE,STACK >LINE
 65 | ?PRG25:	GET	LINE,CNT >RM
 66 | 	EQUAL?	RM,HERE \?ELS29
 67 | 	ZERO?	GOAL-FLAG /?ELS32
 68 | 	SUB	CNT,3
 69 | 	GET	LINE,STACK >LOC
 70 | 	JUMP	?CND30
 71 | ?ELS32:	ADD	CNT,3
 72 | 	GET	LINE,STACK >LOC
 73 | ?CND30:	CALL	MOVE-PERSON,PERSON,LOC
 74 | 	RETURN	STACK
 75 | ?ELS29:	EQUAL?	RM,GOAL \?CND27
 76 | 	SET	'GOAL-FLAG,TRUE-VALUE
 77 | ?CND27:	ADD	CNT,3 >CNT
 78 | 	JUMP	?PRG25
 79 | 
 80 | 
 81 | 	.FUNCT	COR-DIR,HERE,THERE,COR,RM,PAST=0,CNT=2,?TMP1
 82 | 	GETP	THERE,P?CORRIDOR >?TMP1
 83 | 	GETP	HERE,P?CORRIDOR
 84 | 	BAND	?TMP1,STACK
 85 | 	CALL	GET-COR,STACK >COR
 86 | ?PRG1:	GET	COR,CNT >RM
 87 | 	EQUAL?	RM,HERE \?ELS5
 88 | 	SET	'PAST,1
 89 | 	JUMP	?REP2
 90 | ?ELS5:	EQUAL?	RM,THERE \?CND3
 91 | 	JUMP	?REP2
 92 | ?CND3:	INC	'CNT
 93 | 	JUMP	?PRG1
 94 | ?REP2:	GET	COR,PAST
 95 | 	RSTACK	
 96 | 
 97 | 
 98 | 	.FUNCT	GET-LINE,LN
 99 | 	ZERO?	LN \?ELS5
100 | 	RETURN	ROAD-WHARF-LINE
101 | ?ELS5:	EQUAL?	LN,1 \?ELS7
102 | 	RETURN	EAST-ROAD-LINE
103 | ?ELS7:	EQUAL?	LN,2 \?ELS9
104 | 	RETURN	BEDROOM-LINE
105 | ?ELS9:	EQUAL?	LN,3 \?ELS11
106 | 	RETURN	BACK-ALLEY-LINE
107 | ?ELS11:	EQUAL?	LN,4 \?ELS13
108 | 	RETURN	TRAWLER-LINE
109 | ?ELS13:	EQUAL?	LN,5 \FALSE
110 | 	RETURN	SALVAGER-LINE
111 | 
112 | 
113 | 	.FUNCT	GET-COR,NUM
114 | 	EQUAL?	NUM,1 \?ELS5
115 | 	RETURN	COR-1
116 | ?ELS5:	EQUAL?	NUM,2 \?ELS7
117 | 	RETURN	COR-2
118 | ?ELS7:	EQUAL?	NUM,4 \?ELS9
119 | 	RETURN	COR-4
120 | ?ELS9:	EQUAL?	NUM,8 \?ELS11
121 | 	RETURN	COR-8
122 | ?ELS11:	EQUAL?	NUM,16 \?ELS13
123 | 	RETURN	COR-16
124 | ?ELS13:	EQUAL?	NUM,32 \?ELS15
125 | 	RETURN	COR-32
126 | ?ELS15:	EQUAL?	NUM,64 \?ELS17
127 | 	RETURN	COR-64
128 | ?ELS17:	EQUAL?	NUM,128 \?ELS19
129 | 	RETURN	COR-128
130 | ?ELS19:	EQUAL?	NUM,256 \?ELS21
131 | 	RETURN	COR-256
132 | ?ELS21:	RETURN	COR-512
133 | 
134 | 
135 | 	.FUNCT	CORRIDOR-LOOK,ITM=0,C,Z,COR,VAL,FOUND=0
136 | 	GETP	HERE,P?CORRIDOR >C
137 | 	ZERO?	C /FALSE
138 | ?PRG6:	SUB	C,512 >Z
139 | 	LESS?	Z,0 /?ELS10
140 | 	SET	'COR,COR-512
141 | 	JUMP	?CND8
142 | ?ELS10:	SUB	C,256 >Z
143 | 	LESS?	Z,0 /?ELS12
144 | 	SET	'COR,COR-256
145 | 	JUMP	?CND8
146 | ?ELS12:	SUB	C,128 >Z
147 | 	LESS?	Z,0 /?ELS14
148 | 	SET	'COR,COR-128
149 | 	JUMP	?CND8
150 | ?ELS14:	SUB	C,64 >Z
151 | 	LESS?	Z,0 /?ELS16
152 | 	SET	'COR,COR-64
153 | 	JUMP	?CND8
154 | ?ELS16:	SUB	C,32 >Z
155 | 	LESS?	Z,0 /?ELS18
156 | 	SET	'COR,COR-32
157 | 	JUMP	?CND8
158 | ?ELS18:	SUB	C,16 >Z
159 | 	LESS?	Z,0 /?ELS20
160 | 	SET	'COR,COR-16
161 | 	JUMP	?CND8
162 | ?ELS20:	SUB	C,8 >Z
163 | 	LESS?	Z,0 /?ELS22
164 | 	SET	'COR,COR-8
165 | 	JUMP	?CND8
166 | ?ELS22:	SUB	C,4 >Z
167 | 	LESS?	Z,0 /?ELS24
168 | 	SET	'COR,COR-4
169 | 	JUMP	?CND8
170 | ?ELS24:	SUB	C,2 >Z
171 | 	LESS?	Z,0 /?ELS26
172 | 	SET	'COR,COR-2
173 | 	JUMP	?CND8
174 | ?ELS26:	SUB	C,1 >Z
175 | 	LESS?	Z,0 /?REP7
176 | 	SET	'COR,COR-1
177 | ?CND8:	CALL	CORRIDOR-CHECK,COR,ITM >VAL
178 | 	ZERO?	FOUND \?CND31
179 | 	SET	'FOUND,VAL
180 | ?CND31:	SET	'C,Z
181 | 	JUMP	?PRG6
182 | ?REP7:	RETURN	FOUND
183 | 
184 | 
185 | 	.FUNCT	CORRIDOR-CHECK,COR,ITM,CNT=2,PAST=0,FOUND=0,RM,OBJ
186 | ?PRG1:	GET	COR,CNT >RM
187 | 	ZERO?	RM /FALSE
188 | 	EQUAL?	RM,HERE \?ELS7
189 | 	SET	'PAST,1
190 | 	JUMP	?CND3
191 | ?ELS7:	FIRST?	RM >OBJ \?CND3
192 | ?PRG10:	ZERO?	ITM /?ELS14
193 | 	EQUAL?	OBJ,ITM \?CND12
194 | 	GET	COR,PAST >FOUND
195 | 	JUMP	?REP11
196 | ?ELS14:	GETP	OBJ,P?CHARACTER
197 | 	ZERO?	STACK /?CND12
198 | 	CALL	IN-MOTION?,OBJ
199 | 	ZERO?	STACK \?CND12
200 | 	EQUAL?	OBJ,MCGINTY \?THN23
201 | 	CALL	QUEUED?,I-MCGINTY-FOLLOWS
202 | 	ZERO?	STACK /?THN23
203 | 	EQUAL?	PRSA,V?FOLLOW,V?WALK /?CND12
204 | ?THN23:	CALL	START-SENTENCE,OBJ
205 | 	PRINTI	" is "
206 | 	PRINTI	"off to "
207 | 	GET	COR,PAST
208 | 	CALL	DIR-PRINT,STACK
209 | 	PRINTI	"."
210 | 	CRLF	
211 | ?CND12:	NEXT?	OBJ >OBJ /?KLU38
212 | ?KLU38:	ZERO?	OBJ \?PRG10
213 | ?REP11:	ZERO?	FOUND /?CND3
214 | 	RETURN	FOUND
215 | ?CND3:	INC	'CNT
216 | 	JUMP	?PRG1
217 | 
218 | 
219 | 	.FUNCT	IN-MOTION?,PERSON,GT,?TMP1
220 | 	GETP	PERSON,P?CHARACTER
221 | 	GET	GOAL-TABLES,STACK >GT
222 | 	GET	GT,GOAL-ENABLE
223 | 	ZERO?	STACK \?THN8
224 | 	GET	GT,ATTENTION
225 | 	EQUAL?	STACK,1 \FALSE
226 | ?THN8:	GET	GT,GOAL-S
227 | 	ZERO?	STACK /FALSE
228 | 	LOC	PERSON >?TMP1
229 | 	GET	GT,GOAL-F
230 | 	EQUAL?	?TMP1,STACK /FALSE
231 | 	RTRUE	
232 | 
233 | 
234 | 	.FUNCT	START-MOVEMENT
235 | 	CALL	QUEUE,I-MCGINTY,1
236 | 	PUT	STACK,0,1
237 | 	CALL	QUEUE,I-JOHNNY,1
238 | 	PUT	STACK,0,1
239 | 	CALL	QUEUE,I-PETE,1
240 | 	PUT	STACK,0,1
241 | 	CALL	QUEUE,I-WEASEL,1
242 | 	PUT	STACK,0,1
243 | 	CALL	QUEUE,I-DELIVERY-BOY,1
244 | 	PUT	STACK,0,1
245 | 	CALL	QUEUE,I-FOLLOW,-1
246 | 	PUT	STACK,0,1
247 | 	CALL	QUEUE,I-ATTENTION,-1
248 | 	PUT	STACK,0,1
249 | 	CALL	QUEUE,I-DISGUSTING-WEASEL-KLUDGE,35
250 | 	PUT	STACK,0,1
251 | 	RTRUE	
252 | 
253 | 
254 | 	.FUNCT	IMOVEMENT,PERSON,INT,TB,VAR,DIS,TIM,ID,RM,GT,?TMP1
255 | 	GETP	PERSON,P?CHARACTER >ID
256 | 	GET	MOVEMENT-GOALS,ID >TB
257 | 	GET	GOAL-TABLES,ID >GT
258 | 	GET	TB,MG-ROOM >RM
259 | 	EQUAL?	0,RM /?CND1
260 | 	GET	GT,GOAL-QUEUED
261 | 	ZERO?	STACK /?ELS6
262 | 	PUT	GT,GOAL-QUEUED,RM
263 | 	JUMP	?CND1
264 | ?ELS6:	CALL	ESTABLISH-GOAL,PERSON,RM
265 | ?CND1:	GET	TB,MG-TIME >TIM
266 | 	EQUAL?	0,TIM /FALSE
267 | 	GET	TB,MG-VARIATION >VAR
268 | 	MUL	VAR,2
269 | 	RANDOM	STACK >DIS
270 | 	SUB	DIS,VAR
271 | 	ADD	TIM,STACK
272 | 	CALL	QUEUE,INT,STACK
273 | 	ADD	TB,MG-LENGTH
274 | 	PUT	MOVEMENT-GOALS,ID,STACK
275 | 	GET	TB,MG-NEXT
276 | 	EQUAL?	0,STACK /FALSE
277 | 	GET	TB,MG-NEXT >?TMP1
278 | 	SUB	VAR,DIS
279 | 	ADD	?TMP1,STACK
280 | 	PUT	TB,MG-NEXT,STACK
281 | 	RFALSE	
282 | 
283 | 
284 | 	.FUNCT	I-FOLLOW,FLG=0,CNT=0,GT,VAL
285 | ?PRG1:	IGRTR?	'CNT,CHARACTER-MAX \?ELS5
286 | 	RETURN	FLG
287 | ?ELS5:	GET	GOAL-TABLES,CNT >GT
288 | 	GET	GT,GOAL-S
289 | 	ZERO?	STACK /?PRG1
290 | 	GET	GT,GOAL-ENABLE
291 | 	ZERO?	STACK \?THN10
292 | 	GET	GT,ATTENTION
293 | 	ZERO?	STACK \?PRG1
294 | ?THN10:	PUT	GT,GOAL-ENABLE,TRUE-VALUE
295 | 	GET	CHARACTER-TABLE,CNT
296 | 	CALL	FOLLOW-GOAL,STACK >VAL
297 | 	ZERO?	VAL /?PRG1
298 | 	EQUAL?	FLG,M-FATAL /?PRG1
299 | 	SET	'FLG,VAL
300 | 	JUMP	?PRG1
301 | 
302 | 
303 | 	.FUNCT	I-ATTENTION,FLG=0,CNT=0,ATT,GT
304 | ?PRG1:	IGRTR?	'CNT,CHARACTER-MAX \?ELS5
305 | 	RETURN	FLG
306 | ?ELS5:	GET	GOAL-TABLES,CNT >GT
307 | 	GET	GT,ATTENTION
308 | 	SUB	STACK,1 >ATT
309 | 	ZERO?	ATT \?CND3
310 | 	PUT	GT,GOAL-ENABLE,TRUE-VALUE
311 | ?CND3:	PUT	GT,ATTENTION,ATT
312 | 	JUMP	?PRG1
313 | 
314 | 
315 | 	.FUNCT	GRAB-ATTENTION,PERSON,CHR,GT,ATT
316 | 	GETP	PERSON,P?CHARACTER >CHR
317 | 	GET	GOAL-TABLES,CHR >GT
318 | 	GET	GT,GOAL-S
319 | 	ZERO?	STACK /?CND1
320 | 	GET	GT,ATTENTION-SPAN >ATT
321 | 	PUT	GT,ATTENTION,ATT
322 | 	ZERO?	ATT \?ELS6
323 | 	PUT	GT,GOAL-ENABLE,TRUE-VALUE
324 | 	RFALSE	
325 | ?ELS6:	GET	GT,GOAL-ENABLE
326 | 	ZERO?	STACK /?CND1
327 | 	PUT	GT,GOAL-ENABLE,FALSE-VALUE
328 | ?CND1:	SET	'QCONTEXT,PERSON
329 | 	SET	'QCONTEXT-ROOM,HERE
330 | 	RTRUE	
331 | 
332 | 
333 | 	.FUNCT	ESTABLISH-GOAL,PERSON,GOAL,PRIORITY=0,HERE,HL,GL,GT,?TMP1
334 | 	LOC	PERSON >HERE
335 | 	GETP	PERSON,P?CHARACTER
336 | 	GET	GOAL-TABLES,STACK >GT
337 | 	ZERO?	PRIORITY /?CND1
338 | 	PUT	GT,GOAL-ENABLE,TRUE-VALUE
339 | 	PUT	GT,GOAL-QUEUED,HERE
340 | ?CND1:	GETP	HERE,P?LINE
341 | 	MUL	STACK,12 >?TMP1
342 | 	GETP	GOAL,P?LINE
343 | 	MUL	STACK,2
344 | 	ADD	?TMP1,STACK
345 | 	PUT	GT,GOAL-I,STACK
346 | 	GETP	GOAL,P?STATION
347 | 	PUT	GT,GOAL-S,STACK
348 | 	PUT	GT,GOAL-F,GOAL
349 | 	LOC	PERSON
350 | 	RSTACK	
351 | 
352 | 
353 | 	.FUNCT	GOAL-REACHED,PERSON,GT
354 | 	GETP	PERSON,P?CHARACTER
355 | 	GET	GOAL-TABLES,STACK >GT
356 | 	PUT	GT,GOAL-S,FALSE-VALUE
357 | 	GET	GT,GOAL-FUNCTION
358 | 	CALL	STACK,G-REACHED
359 | 	RSTACK	
360 | 
361 | 
362 | 	.FUNCT	MOVE-PERSON,PERSON,WHERE,DIR,GT,OL,COR,PCOR,CHR,PUSHCART,FLG=0,VAL=0,DF,CD
363 | 	GETP	PERSON,P?CHARACTER >CHR
364 | 	GET	GOAL-TABLES,CHR >GT
365 | 	LOC	PERSON >OL
366 | 	CALL	DIR-FROM,OL,WHERE >DIR
367 | 	SET	'PUSHCART,STR?187
368 | 	EQUAL?	OL,HERE \?ELS3
369 | 	FSET?	PERSON,INVISIBLE /?ELS3
370 | 	SET	'FLG,TRUE-VALUE
371 | 	CALL	START-SENTENCE,PERSON
372 | 	EQUAL?	DIR,P?OUT \?ELS8
373 | 	PRINTI	" leaves the room"
374 | 	EQUAL?	PERSON,DELIVERY-BOY \?CND11
375 | 	PRINT	PUSHCART
376 | ?CND11:	PRINTI	"."
377 | 	CRLF	
378 | 	JUMP	?CND1
379 | ?ELS8:	EQUAL?	DIR,P?IN \?ELS19
380 | 	PRINTI	" goes into another room"
381 | 	PRINTI	"."
382 | 	CRLF	
383 | 	JUMP	?CND1
384 | ?ELS19:	PRINTI	" heads "
385 | 	GETP	HERE,P?LINE
386 | 	LESS?	STACK,TRAWLER-LINE-C \?CND28
387 | 	EQUAL?	DIR,P?UP,P?DOWN /?CND28
388 | 	PRINTI	"off to "
389 | ?CND28:	CALL	DIR-PRINT,DIR
390 | 	EQUAL?	PERSON,DELIVERY-BOY \?CND35
391 | 	PRINT	PUSHCART
392 | ?CND35:	PRINTI	"."
393 | 	CRLF	
394 | 	JUMP	?CND1
395 | ?ELS3:	EQUAL?	WHERE,HERE \?ELS43
396 | 	FSET?	PERSON,INVISIBLE /?ELS43
397 | 	SET	'FLG,M-FATAL
398 | 	GET	GT,GOAL-F
399 | 	EQUAL?	HERE,STACK /?CND1
400 | 	CALL	START-SENTENCE,PERSON
401 | 	PRINTI	" walks "
402 | 	EQUAL?	PRSA,V?WALK \?ELS53
403 | 	EQUAL?	WHERE,HERE \?ELS53
404 | 	EQUAL?	OL,LAST-PLAYER-LOC \?ELS53
405 | 	PRINTI	"along with"
406 | 	JUMP	?CND51
407 | ?ELS53:	PRINTI	"past"
408 | ?CND51:	PRINTI	" you"
409 | 	EQUAL?	PERSON,DELIVERY-BOY \?CND64
410 | 	PRINT	PUSHCART
411 | ?CND64:	PRINTI	"."
412 | 	CRLF	
413 | 	JUMP	?CND1
414 | ?ELS43:	GETP	HERE,P?CORRIDOR >COR
415 | 	ZERO?	COR /?CND1
416 | 	FSET?	PERSON,INVISIBLE /?CND1
417 | 	GETP	OL,P?CORRIDOR >PCOR
418 | 	ZERO?	PCOR /?ELS77
419 | 	BAND	COR,PCOR
420 | 	ZERO?	STACK /?ELS77
421 | 	SET	'FLG,TRUE-VALUE
422 | 	GETP	WHERE,P?CORRIDOR
423 | 	ZERO?	STACK \?ELS82
424 | 	CALL	START-SENTENCE,PERSON
425 | 	PRINTI	", off to "
426 | 	CALL	COR-DIR,HERE,OL
427 | 	CALL	DIR-PRINT,STACK
428 | 	PRINTI	","
429 | 	PRINTI	" leaves your view"
430 | 	PRINTI	" to "
431 | 	CALL	DIR-FROM,OL,WHERE
432 | 	CALL	DIR-PRINT,STACK
433 | 	EQUAL?	PERSON,DELIVERY-BOY \?CND91
434 | 	PRINT	PUSHCART
435 | ?CND91:	PRINTI	"."
436 | 	CRLF	
437 | 	JUMP	?CND75
438 | ?ELS82:	GETP	WHERE,P?CORRIDOR
439 | 	BAND	COR,STACK
440 | 	ZERO?	STACK \?ELS99
441 | 	CALL	START-SENTENCE,PERSON
442 | 	PRINTI	", off to "
443 | 	CALL	COR-DIR,HERE,OL
444 | 	CALL	DIR-PRINT,STACK
445 | 	PRINTI	", disappears from sight to "
446 | 	CALL	DIR-FROM,OL,WHERE >PCOR
447 | 	CALL	DIR-PRINT,PCOR
448 | 	EQUAL?	PERSON,DELIVERY-BOY \?CND104
449 | 	PRINT	PUSHCART
450 | ?CND104:	PRINTI	"."
451 | 	CRLF	
452 | 	JUMP	?CND75
453 | ?ELS99:	CALL	START-SENTENCE,PERSON
454 | 	PRINTI	" is to "
455 | 	CALL	COR-DIR,HERE,WHERE >CD
456 | 	CALL	DIR-PRINT,CD
457 | 	PRINTI	", heading "
458 | 	CALL	DIR-FROM,OL,WHERE >DF
459 | 	EQUAL?	CD,DF \?ELS119
460 | 	PRINTI	"away from you"
461 | 	JUMP	?CND117
462 | ?ELS119:	PRINTI	"toward "
463 | 	CALL	DIR-PRINT,DF
464 | ?CND117:	EQUAL?	PERSON,DELIVERY-BOY \?CND126
465 | 	PRINT	PUSHCART
466 | ?CND126:	PRINTI	"."
467 | 	CRLF	
468 | 	JUMP	?CND75
469 | ?ELS77:	GETP	WHERE,P?CORRIDOR >PCOR
470 | 	ZERO?	PCOR /?CND1
471 | 	BAND	COR,PCOR
472 | 	ZERO?	STACK /?CND1
473 | 	SET	'FLG,TRUE-VALUE
474 | 	PRINTI	"To "
475 | 	CALL	COR-DIR,HERE,WHERE
476 | 	CALL	DIR-PRINT,STACK
477 | 	PRINTI	" "
478 | 	CALL	THE?,PERSON
479 | 	CALL	DPRINT,PERSON
480 | 	PRINTI	" comes into view from "
481 | 	CALL	DIR-FROM,WHERE,OL
482 | 	CALL	DIR-PRINT,STACK
483 | 	EQUAL?	PERSON,DELIVERY-BOY \?CND143
484 | 	PRINT	PUSHCART
485 | ?CND143:	PRINTI	"."
486 | 	CRLF	
487 | ?CND75:	
488 | ?CND1:	MOVE	PERSON,WHERE
489 | 	GET	GT,GOAL-F
490 | 	EQUAL?	STACK,WHERE \?ELS152
491 | 	CALL	GOAL-REACHED,PERSON >VAL
492 | 	ZERO?	VAL \?CND150
493 | 	EQUAL?	HERE,WHERE \?CND150
494 | 	FSET?	PERSON,INVISIBLE /?CND150
495 | 	SET	'FLG,M-FATAL
496 | 	CALL	START-SENTENCE,PERSON
497 | 	PRINTI	" stops here."
498 | 	CRLF	
499 | 	JUMP	?CND150
500 | ?ELS152:	GET	GT,GOAL-FUNCTION
501 | 	CALL	STACK,G-ENROUTE
502 | ?CND150:	EQUAL?	VAL,M-FATAL \?ELS166
503 | 	RETURN	VAL
504 | ?ELS166:	RETURN	FLG
505 | 
506 | 
507 | 	.FUNCT	DIR-FROM,HERE,THERE,V=0,P=0,L,Z,O
508 | ?PRG1:	NEXTP	HERE,P >P
509 | 	ZERO?	P \?ELS5
510 | 	RETURN	V
511 | ?ELS5:	EQUAL?	P,P?IN,P?OUT \?ELS7
512 | 	JUMP	?PRG1
513 | ?ELS7:	LESS?	P,LOW-DIRECTION /?PRG1
514 | 	GETPT	HERE,P >Z
515 | 	PTSIZE	Z >L
516 | 	EQUAL?	L,DEXIT,UEXIT,CEXIT \?ELS12
517 | 	GETB	Z,REXIT
518 | 	EQUAL?	STACK,THERE \?ELS12
519 | 	EQUAL?	P,P?UP,P?DOWN \?ELS17
520 | 	SET	'V,P
521 | 	JUMP	?PRG1
522 | ?ELS17:	RETURN	P
523 | ?ELS12:	ZERO?	V \?PRG1
524 | 	EQUAL?	L,FEXIT \?PRG1
525 | 	SET	'V,P
526 | 	JUMP	?PRG1
527 | 
528 | 	.ENDI
529 | 


--------------------------------------------------------------------------------
/main.zap:
--------------------------------------------------------------------------------
  1 | 
  2 | 
  3 | 	.FUNCT	GO
  4 | START::
  5 | 
  6 | ?FCN:	CALL	QUEUE,I-UNWOUND,20
  7 | 	PUT	STACK,0,1
  8 | 	CALL	QUEUE,I-BUSINESS-HOURS,60
  9 | 	PUT	STACK,0,1
 10 | 	CALL	QUEUE,I-FERRY-APPROACHING,117
 11 | 	PUT	STACK,0,1
 12 | 	CALL	QUEUE,I-FERRY,120
 13 | 	PUT	STACK,0,1
 14 | 	CALL	QUEUE,I-HUNGER,15
 15 | 	PUT	STACK,0,1
 16 | 	CALL	QUEUE,I-THIRST,25
 17 | 	PUT	STACK,0,1
 18 | 	CALL	QUEUE,I-TIRED,929
 19 | 	PUT	STACK,0,1
 20 | 	CALL	QUEUE,I-LIVER,10
 21 | 	PUT	STACK,0,1
 22 | 	CALL	QUEUE,I-DRILL,5
 23 | 	CALL	QUEUE,I-MM-COMPRESSOR,80
 24 | 	CALL	QUEUE,I-PLOT-NEVER-STARTS,60
 25 | 	PUT	STACK,0,1
 26 | 	SET	'LIT,TRUE-VALUE
 27 | 	SET	'SCORE,8
 28 | 	SET	'WINNER,ADVENTURER
 29 | 	SET	'PLAYER,WINNER
 30 | 	SET	'SAMPLE-TREASURE,GLOBAL-OBJECTS
 31 | 	CALL	PUT-IN-TABLE,ENVELOPE,MCGINTY-HQ,GLOBAL-SURFACE
 32 | 	SET	'HERE,BEDROOM
 33 | 	SET	'P-IT-OBJECT,FALSE-VALUE
 34 | 	FSET?	HERE,TOUCHBIT /?CND1
 35 | 	CALL	START-MOVEMENT
 36 | 	CALL	TELL-START-STR
 37 | 	CRLF	
 38 | 	CALL	V-VERSION
 39 | 	CRLF	
 40 | ?CND1:	MOVE	WINNER,BED
 41 | 	CALL	V-LOOK
 42 | 	CALL	MAIN-LOOP
 43 | 	JUMP	?FCN
 44 | 
 45 | 
 46 | 	.FUNCT	MAIN-VERB-PRINT,TMP,?TMP1
 47 | 	GET	P-ITBL,P-VERBN >TMP
 48 | 	ZERO?	P-OFLAG /?ELS5
 49 | 	GET	TMP,0
 50 | 	PRINTB	STACK
 51 | 	RTRUE	
 52 | ?ELS5:	GETB	TMP,2 >?TMP1
 53 | 	GETB	TMP,3
 54 | 	CALL	WORD-PRINT,?TMP1,STACK
 55 | 	RSTACK	
 56 | 
 57 | 
 58 | 	.FUNCT	MAIN-LOOP,ICNT,OCNT,NUM,CNT,OBJ,TBL,V,PTBL,OBJ1,TMP,PLACE
 59 | ?PRG1:	SET	'CNT,0
 60 | 	SET	'OBJ,FALSE-VALUE
 61 | 	SET	'PTBL,TRUE-VALUE
 62 | 	SET	'WAITED?,FALSE-VALUE
 63 | 	SET	'P-WALK-DIR,FALSE-VALUE
 64 | 	EQUAL?	HERE,QCONTEXT-ROOM /?CND3
 65 | 	SET	'QCONTEXT,FALSE-VALUE
 66 | ?CND3:	CALL	PARSER >P-WON
 67 | 	ZERO?	P-WON /?ELS8
 68 | 	LOC	PLAYER >LAST-PLAYER-LOC
 69 | 	GET	P-PRSI,P-MATCHLEN >ICNT
 70 | 	GET	P-PRSO,P-MATCHLEN >OCNT
 71 | 	ZERO?	P-IT-OBJECT /?CND9
 72 | 	CALL	ACCESSIBLE?,P-IT-OBJECT
 73 | 	ZERO?	STACK /?CND9
 74 | 	SET	'TMP,FALSE-VALUE
 75 | ?PRG14:	IGRTR?	'CNT,ICNT \?ELS18
 76 | 	JUMP	?REP15
 77 | ?ELS18:	GET	P-PRSI,CNT
 78 | 	EQUAL?	STACK,IT \?PRG14
 79 | 	PUT	P-PRSI,CNT,P-IT-OBJECT
 80 | 	SET	'TMP,TRUE-VALUE
 81 | ?REP15:	ZERO?	TMP \?CND24
 82 | 	SET	'CNT,0
 83 | ?PRG27:	IGRTR?	'CNT,OCNT \?ELS31
 84 | 	JUMP	?CND24
 85 | ?ELS31:	GET	P-PRSO,CNT
 86 | 	EQUAL?	STACK,IT \?PRG27
 87 | 	PUT	P-PRSO,CNT,P-IT-OBJECT
 88 | ?CND24:	SET	'CNT,0
 89 | ?CND9:	ZERO?	OCNT \?ELS41
 90 | 	PUSH	OCNT
 91 | 	JUMP	?CND37
 92 | ?ELS41:	GRTR?	OCNT,1 \?ELS43
 93 | 	SET	'TBL,P-PRSO
 94 | 	ZERO?	ICNT \?ELS46
 95 | 	SET	'OBJ,FALSE-VALUE
 96 | 	JUMP	?CND44
 97 | ?ELS46:	GET	P-PRSI,1 >OBJ
 98 | ?CND44:	PUSH	OCNT
 99 | 	JUMP	?CND37
100 | ?ELS43:	GRTR?	ICNT,1 \?ELS50
101 | 	SET	'PTBL,FALSE-VALUE
102 | 	SET	'TBL,P-PRSI
103 | 	GET	P-PRSO,1 >OBJ
104 | 	PUSH	ICNT
105 | 	JUMP	?CND37
106 | ?ELS50:	PUSH	1
107 | ?CND37:	SET	'NUM,STACK
108 | 	ZERO?	OBJ \?CND53
109 | 	EQUAL?	ICNT,1 \?CND53
110 | 	GET	P-PRSI,1 >OBJ
111 | ?CND53:	EQUAL?	PRSA,V?WALK \?ELS60
112 | 	ZERO?	P-WALK-DIR /?ELS60
113 | 	CALL	PERFORM,PRSA,PRSO >V
114 | 	JUMP	?CND58
115 | ?ELS60:	ZERO?	NUM \?ELS64
116 | 	GETB	P-SYNTAX,P-SBITS
117 | 	BAND	STACK,P-SONUMS
118 | 	ZERO?	STACK \?ELS67
119 | 	CALL	PERFORM,PRSA >V
120 | 	SET	'PRSO,FALSE-VALUE
121 | 	JUMP	?CND58
122 | ?ELS67:	ZERO?	LIT \?ELS69
123 | 	CALL	TELL-TOO-DARK
124 | 	JUMP	?CND58
125 | ?ELS69:	ZERO?	OBJ /?ELS74
126 | 	EQUAL?	OBJ,NOT-HERE-OBJECT \?ELS78
127 | 	CALL	GLOBAL-NOT-HERE-PRINT,OBJ
128 | 	JUMP	?CND58
129 | ?ELS78:	LOC	WINNER >PLACE
130 | 	FSET?	PLACE,VEHBIT \?ELS80
131 | 	LOC	OBJ
132 | 	EQUAL?	PLACE,STACK /?CND58
133 | 	PRINTI	"You should get "
134 | 	FSET?	PLACE,SURFACEBIT \?ELS88
135 | 	PRINTI	"off"
136 | 	JUMP	?CND86
137 | ?ELS88:	PRINTI	"out"
138 | ?CND86:	PRINTI	" of "
139 | 	CALL	THE?,PLACE
140 | 	CALL	DPRINT,PLACE
141 | 	PRINTI	" first."
142 | 	CRLF	
143 | 	SET	'V,FALSE-VALUE
144 | 	JUMP	?CND58
145 | ?ELS80:	EQUAL?	PRSA,V?GIVE \?ELS100
146 | 	CALL	TELL-NOTHING,STR?48
147 | 	CALL	MAIN-VERB-PRINT
148 | 	PRINTI	"."
149 | 	CRLF	
150 | 	SET	'V,FALSE-VALUE
151 | 	JUMP	?CND58
152 | ?ELS100:	FSET?	OBJ,CONTBIT \?ELS104
153 | 	FSET?	OBJ,OPENBIT /?ELS104
154 | 	PRINTI	"Better open the "
155 | 	CALL	DPRINT,OBJ
156 | 	PRINTI	" first."
157 | 	CRLF	
158 | 	SET	'P-IT-OBJECT,OBJ
159 | 	SET	'V,FALSE-VALUE
160 | 	JUMP	?CND58
161 | ?ELS104:	FSET?	OBJ,CONTBIT /?ELS110
162 | 	CALL	TELL-NOTHING,STR?49,TRUE-VALUE
163 | 	SET	'V,FALSE-VALUE
164 | 	JUMP	?CND58
165 | ?ELS110:	PRINTI	"It's not in that."
166 | 	CRLF	
167 | 	SET	'V,FALSE-VALUE
168 | 	JUMP	?CND58
169 | ?ELS74:	EQUAL?	PRSA,V?$CALL \?ELS116
170 | 	CALL	V-CALL-LOSE
171 | 	SET	'V,FALSE-VALUE
172 | 	JUMP	?CND58
173 | ?ELS116:	ZERO?	P-NONE /?ELS118
174 | 	PRINTI	"I can't find any here!"
175 | 	CRLF	
176 | 	SET	'V,FALSE-VALUE
177 | 	JUMP	?CND58
178 | ?ELS118:	PRINTI	"There isn't anything to "
179 | 	CALL	MAIN-VERB-PRINT
180 | 	PRINTI	" here!"
181 | 	CRLF	
182 | 	SET	'V,FALSE-VALUE
183 | 	JUMP	?CND58
184 | ?ELS64:	SET	'P-NOT-HERE,0
185 | 	SET	'P-MULT,FALSE-VALUE
186 | 	GRTR?	NUM,1 \?CND130
187 | 	SET	'P-MULT,TRUE-VALUE
188 | ?CND130:	SET	'TMP,FALSE-VALUE
189 | ?PRG133:	IGRTR?	'CNT,NUM \?ELS137
190 | 	GRTR?	P-NOT-HERE,0 \?ELS140
191 | 	PRINTI	"The "
192 | 	EQUAL?	P-NOT-HERE,NUM /?CND143
193 | 	PRINTI	"other "
194 | ?CND143:	PRINTI	"object"
195 | 	EQUAL?	P-NOT-HERE,1 /?CND150
196 | 	PRINTI	"s"
197 | ?CND150:	PRINTI	" that you mentioned "
198 | 	EQUAL?	P-NOT-HERE,1 /?ELS159
199 | 	PRINTI	"are"
200 | 	JUMP	?CND157
201 | ?ELS159:	PRINTI	"is"
202 | ?CND157:	PRINTI	"n't here."
203 | 	CRLF	
204 | 	JUMP	?REP134
205 | ?ELS140:	ZERO?	TMP \?REP134
206 | 	PRINTI	"I don't know what you're referring to."
207 | 	CRLF	
208 | 	JUMP	?REP134
209 | ?ELS137:	ZERO?	PTBL /?ELS176
210 | 	GET	P-PRSO,CNT >OBJ1
211 | 	JUMP	?CND174
212 | ?ELS176:	GET	P-PRSI,CNT >OBJ1
213 | ?CND174:	ZERO?	PTBL /?ELS184
214 | 	PUSH	OBJ1
215 | 	JUMP	?CND180
216 | ?ELS184:	PUSH	OBJ
217 | ?CND180:	SET	'PRSO,STACK
218 | 	ZERO?	PTBL /?ELS192
219 | 	PUSH	OBJ
220 | 	JUMP	?CND188
221 | ?ELS192:	PUSH	OBJ1
222 | ?CND188:	SET	'PRSI,STACK
223 | 	GRTR?	NUM,1 \?CND196
224 | 	EQUAL?	OBJ1,NOT-HERE-OBJECT \?ELS201
225 | 	INC	'P-NOT-HERE
226 | 	JUMP	?PRG133
227 | ?ELS201:	EQUAL?	PRSA,V?TAKE \?ELS203
228 | 	ZERO?	PRSI /?ELS203
229 | 	GET	P-ITBL,P-NC1
230 | 	GET	STACK,0
231 | 	EQUAL?	STACK,W?ALL \?ELS203
232 | 	IN?	PRSO,PRSI /?ELS203
233 | 	JUMP	?PRG133
234 | ?ELS203:	EQUAL?	P-GETFLAGS,P-ALL \?ELS207
235 | 	EQUAL?	PRSA,V?TAKE \?ELS207
236 | 	LOC	OBJ1
237 | 	EQUAL?	STACK,WINNER,HERE /?ELS213
238 | 	LOC	OBJ1
239 | 	FSET?	STACK,TRANSBIT \?PRG133
240 | ?ELS213:	FSET?	OBJ1,TAKEBIT /?ELS207
241 | 	FSET?	OBJ1,TRYTAKEBIT /?ELS207
242 | 	JUMP	?PRG133
243 | ?ELS207:	EQUAL?	P-GETFLAGS,P-ALL \?ELS217
244 | 	EQUAL?	PRSA,V?DROP \?ELS217
245 | 	IN?	OBJ1,WINNER /?ELS217
246 | 	IN?	P-IT-OBJECT,WINNER /?ELS217
247 | 	JUMP	?PRG133
248 | ?ELS217:	EQUAL?	OBJ1,IT \?ELS224
249 | 	CALL	DPRINT,P-IT-OBJECT
250 | 	JUMP	?CND222
251 | ?ELS224:	CALL	DPRINT,OBJ1
252 | ?CND222:	PRINTI	": "
253 | ?CND196:	ZERO?	PTBL /?ELS233
254 | 	PUSH	OBJ1
255 | 	JUMP	?CND229
256 | ?ELS233:	PUSH	OBJ
257 | ?CND229:	CALL	QCONTEXT-CHECK,STACK >V
258 | 	SET	'TMP,TRUE-VALUE
259 | 	CALL	PERFORM,PRSA,PRSO,PRSI >V
260 | 	EQUAL?	V,M-FATAL \?PRG133
261 | 	JUMP	?CND58
262 | ?REP134:	
263 | ?CND58:	EQUAL?	V,M-FATAL /?CND240
264 | 	LOC	WINNER
265 | 	GETP	STACK,P?ACTION
266 | 	CALL	STACK,M-END >V
267 | ?CND240:	EQUAL?	PRSA,V?FOLLOW,V?WALK,V?AGAIN /?CND243
268 | 	EQUAL?	PRSA,V?WAIT /?CND243
269 | 	CALL	GAME-COMMAND?
270 | 	ZERO?	STACK /?ELS245
271 | 	JUMP	?CND243
272 | ?ELS245:	SET	'L-PRSA,PRSA
273 | 	SET	'L-PRSO,PRSO
274 | 	SET	'L-PRSI,PRSI
275 | 	SET	'L-WALK-DIR,P-WALK-DIR
276 | 	SET	'L-WINNER,WINNER
277 | ?CND243:	EQUAL?	V,M-FATAL \?CND6
278 | 	SET	'P-CONT,FALSE-VALUE
279 | 	JUMP	?CND6
280 | ?ELS8:	SET	'P-CONT,FALSE-VALUE
281 | ?CND6:	ZERO?	P-WON /?CND255
282 | 	CALL	GAME-COMMAND?
283 | 	ZERO?	STACK /?ELS261
284 | 	JUMP	?CND255
285 | ?ELS261:	EQUAL?	PRSA,V?TELL \?ELS263
286 | 	ZERO?	PRSI \?ELS263
287 | 	JUMP	?CND255
288 | ?ELS263:	ZERO?	CLOCK-WAIT \?THN268
289 | 	ZERO?	I-WAIT-DURATION \?ELS267
290 | ?THN268:	CALL	CLOCKER >V
291 | 	CALL	DETECTOR-NOISE >V
292 | 	JUMP	?CND255
293 | ?ELS267:	CALL	V-WAIT,I-WAIT-DURATION,FALSE-VALUE >I-WAIT-FLAG
294 | 	ZERO?	I-WAIT-FLAG /?ELS274
295 | 	CALL	I-WAIT-RTN
296 | 	SET	'I-WAIT-FLAG,FALSE-VALUE
297 | 	JUMP	?CND272
298 | ?ELS274:	SET	'I-WAIT-DURATION,0
299 | 	CALL	CLOCKER >V
300 | ?CND272:	CALL	DETECTOR-NOISE >V
301 | ?CND255:	SET	'PRSA,FALSE-VALUE
302 | 	SET	'PRSO,FALSE-VALUE
303 | 	SET	'PRSI,FALSE-VALUE
304 | 	JUMP	?PRG1
305 | 
306 | 
307 | 	.FUNCT	GAME-COMMAND?
308 | 	EQUAL?	PRSA,V?VERBOSE,V?SUPER-BRIEF,V?BRIEF /TRUE
309 | 	EQUAL?	PRSA,V?RESTART,V?RESTORE,V?SAVE /TRUE
310 | 	EQUAL?	PRSA,V?UNSCRIPT,V?SCRIPT,V?QUIT /TRUE
311 | 	EQUAL?	PRSA,V?SCORE,V?VERSION,V?$VERIFY /TRUE
312 | 	EQUAL?	PRSA,V?TIME /TRUE
313 | 	RFALSE
314 | 
315 | 
316 | 	.FUNCT	QCONTEXT-CHECK,PRSO,OTHER,WHO=0,N=0
317 | 	EQUAL?	PRSA,V?LONGITUDE,V?LATITUDE,V?HELP /?THN6
318 | 	EQUAL?	PRSA,V?GIVE,V?TELL,V?SHOW \FALSE
319 | 	EQUAL?	PRSO,PLAYER \FALSE
320 | ?THN6:	FIRST?	HERE >OTHER /?KLU33
321 | ?KLU33:	
322 | ?PRG10:	ZERO?	OTHER \?ELS14
323 | 	JUMP	?REP11
324 | ?ELS14:	FSET?	OTHER,PERSON \?CND12
325 | 	EQUAL?	OTHER,PLAYER /?CND12
326 | 	INC	'N
327 | 	SET	'WHO,OTHER
328 | ?CND12:	NEXT?	OTHER >OTHER /?KLU34
329 | ?KLU34:	JUMP	?PRG10
330 | ?REP11:	EQUAL?	1,N \?CND19
331 | 	ZERO?	QCONTEXT \?CND19
332 | 	CALL	SAID-TO,WHO
333 | ?CND19:	ZERO?	QCONTEXT /FALSE
334 | 	IN?	QCONTEXT,HERE \FALSE
335 | 	EQUAL?	QCONTEXT-ROOM,HERE \FALSE
336 | 	EQUAL?	WINNER,PLAYER \FALSE
337 | 	SET	'WINNER,QCONTEXT
338 | 	PRINTI	"(said to "
339 | 	CALL	DPRINT,QCONTEXT
340 | 	PRINTR	")"
341 | 
342 | 
343 | 	.FUNCT	SAID-TO,WHO
344 | 	SET	'WINNER,WHO
345 | 	SET	'QCONTEXT,WHO
346 | 	SET	'QCONTEXT-ROOM,HERE
347 | 	RETURN	QCONTEXT-ROOM
348 | 
349 | 
350 | 	.FUNCT	PERFORM,A,O=0,I=0,V,OA,OO,OI
351 | 	SET	'OA,PRSA
352 | 	SET	'OO,PRSO
353 | 	SET	'OI,PRSI
354 | 	EQUAL?	A,V?WALK /?CND1
355 | 	EQUAL?	IT,I,O \?CND1
356 | 	PRINTI	"I don't see what you are referring to."
357 | 	CRLF	
358 | 	RETURN	2
359 | ?CND1:	SET	'PRSA,A
360 | 	SET	'PRSO,O
361 | 	ZERO?	PRSO /?CND10
362 | 	EQUAL?	PRSI,IT /?CND10
363 | 	EQUAL?	PRSA,V?WALK /?CND10
364 | 	SET	'P-IT-OBJECT,PRSO
365 | ?CND10:	SET	'PRSI,I
366 | 	EQUAL?	NOT-HERE-OBJECT,PRSO,PRSI \?ELS17
367 | 	EQUAL?	PRSA,V?WALK /?ELS17
368 | 	CALL	NOT-HERE-OBJECT-F >V
369 | 	ZERO?	V /?ELS17
370 | 	SET	'P-WON,FALSE-VALUE
371 | 	JUMP	?CND15
372 | ?ELS17:	SET	'O,PRSO
373 | 	SET	'I,PRSI
374 | 	GETP	WINNER,P?ACTION
375 | 	CALL	STACK >V
376 | 	ZERO?	V /?ELS24
377 | 	JUMP	?CND15
378 | ?ELS24:	LOC	WINNER
379 | 	GETP	STACK,P?ACTION
380 | 	CALL	STACK,M-BEG >V
381 | 	ZERO?	V /?ELS26
382 | 	JUMP	?CND15
383 | ?ELS26:	GET	PREACTIONS,A
384 | 	CALL	STACK >V
385 | 	ZERO?	V /?ELS28
386 | 	JUMP	?CND15
387 | ?ELS28:	SET	'I,PRSI
388 | 	ZERO?	I /?ELS30
389 | 	ZERO?	I /?ELS30
390 | 	GETP	I,P?ACTION
391 | 	CALL	STACK >V
392 | 	ZERO?	V /?ELS30
393 | 	JUMP	?CND15
394 | ?ELS30:	ZERO?	O /?ELS34
395 | 	EQUAL?	A,V?WALK /?ELS34
396 | 	LOC	O
397 | 	ZERO?	STACK /?ELS34
398 | 	LOC	O
399 | 	GETP	STACK,P?CONTFCN
400 | 	CALL	STACK,M-CONT >V
401 | 	ZERO?	V /?ELS34
402 | 	JUMP	?CND15
403 | ?ELS34:	ZERO?	O /?ELS38
404 | 	EQUAL?	A,V?WALK /?ELS38
405 | 	GETP	O,P?ACTION
406 | 	CALL	STACK >V
407 | 	ZERO?	V /?ELS38
408 | 	JUMP	?CND15
409 | ?ELS38:	GET	ACTIONS,A
410 | 	CALL	STACK >V
411 | 	ZERO?	V /?CND15
412 | ?CND15:	EQUAL?	V,M-FATAL /?CND43
413 | 	LOC	WINNER
414 | 	EQUAL?	STACK,PRSO \?CND46
415 | 	SET	'PRSO,FALSE-VALUE
416 | ?CND46:	LOC	WINNER
417 | 	GETP	STACK,P?ACTION
418 | 	CALL	STACK,M-END >V
419 | ?CND43:	SET	'PRSA,OA
420 | 	SET	'PRSO,OO
421 | 	SET	'PRSI,OI
422 | 	RETURN	V
423 | 
424 | 
425 | 	.FUNCT	TELL-START-STR
426 | 	PRINTR	"Nights on Hardscrabble Island are lonely and cold when the lighthouse barely pierces the gloom. You sit on your bed, thinking of better times and far-off places. A knock on your door stirs you, and Hevlin, a shipmate you haven't seen for years, staggers in.
427 | 
428 | ""I'm in trouble,"" he says. ""I had a few too many at The Shanty. I was looking for Red, but he wasn't around, and I started talking about ... here,"" he says, handing you a slim volume that you recognize as a shipwreck book written years ago by the Historical Society.
429 | 
430 | You smile. Every diver on the island has looked for those wrecks, without even an old boot to show for it. You open the door, hoping the drunken fool will leave. ""I know what you're thinkin',"" Hevlin scowls, ""but look!"" He points to the familiar map, and you see new locations marked for two of the wrecks.
431 | 
432 | ""Keep it for me,"" he says. ""Just for tonight. It'll be safe here with you. Don't let -- "" He stops and broods for a moment. ""I've got to go find Red!"" And with that, Hevlin leaves.
433 | 
434 | You put the book in your dresser and think about following Hevlin. Then you hear a scuffle outside. You look through your window and see two men struggling. One falls to the ground in a heap. The other man bends down beside him, then turns as if startled and runs away. Another man then approaches the wounded figure. He kneels beside him for a long moment, then takes off after the other man.
435 | 
436 | It isn't long before the police arrive to tell you that Hevlin's been murdered. You don't mention the book, and hours later, as you lie awake in your bed, you wonder if the book could really be what it seems."
437 | 
438 | 
439 | 	.FUNCT	ACCESSIBLE?,OBJ,L
440 | 	LOC	OBJ >L
441 | 	FSET?	OBJ,INVISIBLE /FALSE
442 | 	EQUAL?	OBJ,PSEUDO-OBJECT \?ELS7
443 | 	GETP	PSEUDO-OBJECT,P?DESCFCN
444 | 	EQUAL?	STACK,HERE \FALSE
445 | 	RTRUE	
446 | ?ELS7:	ZERO?	L /FALSE
447 | 	EQUAL?	L,GLOBAL-OBJECTS /TRUE
448 | 	EQUAL?	L,LOCAL-GLOBALS \?ELS20
449 | 	CALL	GLOBAL-IN?,OBJ,HERE
450 | 	ZERO?	STACK \TRUE
451 | ?ELS20:	CALL	META-LOC,OBJ
452 | 	EQUAL?	STACK,HERE \FALSE
453 | 	EQUAL?	L,WINNER,HERE /TRUE
454 | 	FSET?	L,OPENBIT /?THN31
455 | 	FSET?	L,PERSON \FALSE
456 | ?THN31:	CALL	ACCESSIBLE?,L
457 | 	ZERO?	STACK /FALSE
458 | 	RTRUE	
459 | 
460 | 
461 | 	.FUNCT	VISIBLE?,OBJ,L
462 | 	LOC	OBJ >L
463 | 	CALL	ACCESSIBLE?,OBJ
464 | 	ZERO?	STACK \TRUE
465 | 	CALL	SEE-INSIDE?,L
466 | 	ZERO?	STACK /FALSE
467 | 	CALL	VISIBLE?,L
468 | 	ZERO?	STACK /FALSE
469 | 	RTRUE	
470 | 
471 | 
472 | 	.FUNCT	META-LOC,OBJ
473 | ?PRG1:	ZERO?	OBJ /FALSE
474 | 	EQUAL?	OBJ,GLOBAL-OBJECTS,LOCAL-GLOBALS \?CND3
475 | 	RETURN	OBJ
476 | ?CND3:	IN?	OBJ,ROOMS \?ELS10
477 | 	RETURN	OBJ
478 | ?ELS10:	LOC	OBJ >OBJ
479 | 	JUMP	?PRG1
480 | 
481 | 	.ENDI
482 | 


--------------------------------------------------------------------------------
/main.zil:
--------------------------------------------------------------------------------
  1 | "MAIN for
  2 | 		           TOA #2
  3 |       Copyright (c) 1984 Infocom, Inc.  All Rights Reserved.
  4 | "
  5 | 
  6 | <GLOBAL PLAYER <>>
  7 | 
  8 | <GLOBAL P-WON <>>
  9 | 
 10 | <CONSTANT M-FATAL 2>
 11 |  
 12 | <CONSTANT M-HANDLED 1>   
 13 |  
 14 | <CONSTANT M-NOT-HANDLED <>>   
 15 |  
 16 | <CONSTANT M-OBJECT <>>
 17 | 
 18 | <CONSTANT M-BEG 1>  
 19 |  
 20 | <CONSTANT M-END 6> 
 21 |  
 22 | <CONSTANT M-ENTER 2>
 23 |  
 24 | <CONSTANT M-LOOK 3> 
 25 |  
 26 | <CONSTANT M-FLASH 4>
 27 | 
 28 | <CONSTANT M-OBJDESC 5>
 29 | 
 30 | <CONSTANT M-CONT 7>
 31 | 
 32 | <CONSTANT M-NAME 8>
 33 | 
 34 | <ROUTINE GO () 
 35 | 	 <PUTB ,P-LEXV 0 59>
 36 | ;"put interrupts on clock chain"
 37 | 	 <ENABLE <QUEUE I-UNWOUND 20>>
 38 | 	 <ENABLE <QUEUE I-BUSINESS-HOURS 60>>
 39 | 	 <ENABLE <QUEUE I-FERRY-APPROACHING 117>>
 40 | 	 <ENABLE <QUEUE I-FERRY 120>>
 41 | 	 <ENABLE <QUEUE I-HUNGER 15>>
 42 | 	 <ENABLE <QUEUE I-THIRST 25>>
 43 | 	 <ENABLE <QUEUE I-TIRED 929>>
 44 | 	 <ENABLE <QUEUE I-LIVER 10>>
 45 | 	 <QUEUE I-DRILL 5>
 46 | 	 <QUEUE I-MM-COMPRESSOR 80>
 47 | 	 <ENABLE <QUEUE I-PLOT-NEVER-STARTS 60>>
 48 | ;"set up and go"
 49 | 	 %<COND (<NOT <GASSIGNED? PREDGEN>>
 50 | 		 '(;<SETG XTELLCHAN <OPEN "READB" ,XTELLFILE>>
 51 | 		   <SETG LIT T>))
 52 | 		('<SETG LIT T>)>
 53 | 	 <SETG SCORE 8>
 54 | 	 <SETG WINNER ,ADVENTURER>
 55 | 	 <SETG PLAYER ,WINNER>
 56 | 	 <SETG SAMPLE-TREASURE ,GLOBAL-OBJECTS>
 57 | 	 <PUT-IN-TABLE ,ENVELOPE ,MCGINTY-HQ ,GLOBAL-SURFACE>
 58 | 	 <SETG HERE ,BEDROOM>
 59 | 	 ;<SETG P-IT-LOC ,HERE>
 60 | 	 <SETG P-IT-OBJECT <>>
 61 | 	 <COND (<NOT <FSET? ,HERE ,TOUCHBIT>>
 62 | 		<START-MOVEMENT>
 63 | 		<TELL-START-STR>
 64 | 		<CRLF>
 65 | 		<V-VERSION>
 66 | 		<CRLF>)>
 67 | 	 <MOVE ,WINNER ,BED>
 68 | 	 <V-LOOK>
 69 | 	 ;<USL>
 70 | 	 <MAIN-LOOP>
 71 | 	 <AGAIN>>    
 72 | 
 73 | 
 74 | <ROUTINE MAIN-VERB-PRINT ("AUX" TMP)
 75 | 	 <SET TMP <GET ,P-ITBL ,P-VERBN>>
 76 | 	 <COND (,P-OFLAG
 77 | 		<PRINTB <GET .TMP 0>>)
 78 | 	       (T
 79 | 		<WORD-PRINT <GETB .TMP 2>
 80 | 		<GETB .TMP 3>>)>>
 81 | 
 82 | <ROUTINE MAIN-LOOP ("AUX" ICNT OCNT NUM CNT OBJ TBL V PTBL OBJ1 TMP PLACE) 
 83 |    #DECL ((CNT OCNT ICNT NUM) FIX (OBJ) <OR FALSE OBJECT>
 84 | 	  (OBJ1) OBJECT (TBL) TABLE (PTBL) <OR FALSE ATOM>)
 85 |    <REPEAT ()
 86 |      <SET CNT 0>
 87 |      <SET OBJ <>>
 88 |      <SET PTBL T>
 89 |      <SETG WAITED? <>>
 90 |      <SETG P-WALK-DIR <>>
 91 |      ;<SETG GROGGIED <>>
 92 |      <COND (<NOT <==? ,HERE ,QCONTEXT-ROOM>>
 93 | 	    <SETG QCONTEXT <>>)>
 94 |      <COND (<SETG P-WON <PARSER>>
 95 | 	    <SETG LAST-PLAYER-LOC <LOC ,PLAYER>>
 96 | 	    <SET ICNT <GET ,P-PRSI ,P-MATCHLEN>>
 97 | 	    <SET OCNT <GET ,P-PRSO ,P-MATCHLEN>>
 98 | 	    <COND (<AND ,P-IT-OBJECT <ACCESSIBLE? ,P-IT-OBJECT>>
 99 | 		   <SET TMP <>>
100 | 		   <REPEAT ()
101 | 			   <COND (<G? <SET CNT <+ .CNT 1>> .ICNT>
102 | 				  <RETURN>)
103 | 				 (T
104 | 				  <COND (<EQUAL? <GET ,P-PRSI .CNT> ,IT>
105 | 					 <PUT ,P-PRSI .CNT ,P-IT-OBJECT>
106 | 					 <SET TMP T>
107 | 					 <RETURN>)>)>>
108 | 		   <COND (<NOT .TMP>
109 | 			  <SET CNT 0>
110 | 			  <REPEAT ()
111 | 			   <COND (<G? <SET CNT <+ .CNT 1>> .OCNT>
112 | 				  <RETURN>)
113 | 				 (T
114 | 				  <COND (<EQUAL? <GET ,P-PRSO .CNT> ,IT>
115 | 					 <PUT ,P-PRSO .CNT ,P-IT-OBJECT>
116 | 					 <RETURN>)>)>>)>
117 | 		   <SET CNT 0>)>
118 | 	    <SET NUM
119 | 		 <COND (<0? .OCNT> .OCNT)
120 | 		       (<G? .OCNT 1>
121 | 			<SET TBL ,P-PRSO>
122 | 			<COND (<0? .ICNT> <SET OBJ <>>)
123 | 			      (T <SET OBJ <GET ,P-PRSI 1>>)>
124 | 			.OCNT)
125 | 		       (<G? .ICNT 1>
126 | 			<SET PTBL <>>
127 | 			<SET TBL ,P-PRSI>
128 | 			<SET OBJ <GET ,P-PRSO 1>>
129 | 			.ICNT)
130 | 		       (T 1)>>
131 | 	    <COND (<AND <NOT .OBJ> <1? .ICNT>> <SET OBJ <GET ,P-PRSI 1>>)>
132 | 	    <COND (<AND <==? ,PRSA ,V?WALK> ,P-WALK-DIR>
133 | 		   <SET V <PERFORM ,PRSA ,PRSO>>)
134 | 		  (<0? .NUM>
135 | 		   <COND (<0? <BAND <GETB ,P-SYNTAX ,P-SBITS> ,P-SONUMS>>
136 | 			  <SET V <PERFORM ,PRSA>>
137 | 			  <SETG PRSO <>>)
138 | 			 (<NOT ,LIT>
139 | 			  <TELL-TOO-DARK>)
140 | 			 (T
141 | ;"** M"			  <COND (.OBJ
142 | 				 <COND (<==? .OBJ ,NOT-HERE-OBJECT>
143 | 					<GLOBAL-NOT-HERE-PRINT .OBJ>)
144 | 				       (<FSET? 
145 | 					<SET PLACE <LOC ,WINNER>>
146 | 				        ,VEHBIT>
147 | 					<COND (<NOT <EQUAL? .PLACE
148 | 							    ;<LOC ,WINNER>
149 | 						            <LOC .OBJ>>>
150 | 					       <TELL "You should get ">
151 | 					      <COND (<FSET? .PLACE ,SURFACEBIT>
152 | 						     <TELL "off">)
153 | 						    (T <TELL "out">)>
154 | 					       <TELL " of ">
155 | 					       <THE? .PLACE>
156 | 					       <TELL D .PLACE " first." CR>
157 | 					       <SET V <>>)>)
158 | 				       (<VERB? GIVE>
159 | 					<TELL-NOTHING "to ">
160 | 					<MAIN-VERB-PRINT>
161 | 					<TELL "." CR>
162 | 				 	<SET V <>>)
163 | 				       (<AND <FSET? .OBJ ,CONTBIT>
164 | 					     <NOT <FSET? .OBJ ,OPENBIT>>>
165 | 					<TELL "Better open the " D .OBJ
166 | 					      " first." CR>
167 | 					<SETG P-IT-OBJECT .OBJ>
168 | 					<SET V <>>)
169 | 				       (<NOT <FSET? .OBJ ,CONTBIT>>
170 | 					<TELL-NOTHING "in that" T>
171 | 					<SET V <>>)
172 | 				       (T
173 | 					<TELL "It's not in that." CR>
174 | 					<SET V <>>)>) 
175 | 			        (<VERB? $CALL>
176 | 				 <V-CALL-LOSE>
177 | 				 <SET V <>>)
178 | 				(,P-NONE
179 | 				 <TELL "I can't find any here!" CR>
180 | 				 <SET V <>>)
181 | 				(T
182 | 				 <TELL "There isn't anything to ">
183 | 				 <MAIN-VERB-PRINT>
184 | 				 <TELL " here!" CR>
185 | 				 <SET V <>>)>)>)
186 | 		  (T
187 | 		   <SETG P-NOT-HERE 0>
188 | 		   <SETG P-MULT <>>
189 | 		   <COND (<G? .NUM 1> <SETG P-MULT T>)>
190 | 		   <SET TMP <>>
191 | 		   <REPEAT ()
192 | 			   <COND (<G? <SET CNT <+ .CNT 1>> .NUM>
193 | 				  <COND (<G? ,P-NOT-HERE 0>
194 | 					 <TELL "The ">
195 | 					 <COND (<NOT <EQUAL? ,P-NOT-HERE .NUM>>
196 | 						<TELL "other ">)>
197 | 					 <TELL "object">
198 | 					 <COND (<NOT <EQUAL? ,P-NOT-HERE 1>>
199 | 						<TELL "s">)>
200 | 					 <TELL " that you mentioned ">
201 | 					 <COND (<NOT <EQUAL? ,P-NOT-HERE 1>>
202 | 						<TELL "are">)
203 | 					       (T <TELL "is">)>
204 | 					 <TELL "n't here." CR>)
205 | 					(<NOT .TMP>
206 | 					 <TELL 
207 | "I don't know what you're referring to." CR>)>
208 | 				  <RETURN>)
209 | 				 (T
210 | 				  <COND (.PTBL <SET OBJ1 <GET ,P-PRSO .CNT>>)
211 | 					(T <SET OBJ1 <GET ,P-PRSI .CNT>>)>
212 | 				  <SETG PRSO <COND (.PTBL .OBJ1) (T .OBJ)>>
213 | 				  <SETG PRSI <COND (.PTBL .OBJ) (T .OBJ1)>>
214 | 				  ;<COND (<EQUAL? ,HERE ,P-IT-LOC>
215 | 					 <COND (<EQUAL? ,PRSO ,IT>
216 | 					 	<SETG PRSO ,P-IT-OBJECT>
217 | 						<COND (.PTBL
218 | 						       <SET OBJ1 ,PRSO>
219 | 						       <PUT ,P-PRSO 
220 | 							    .CNT ,PRSO>)
221 | 						      (T
222 | 						       <SET OBJ ,PRSO>
223 | 						       <PUT ,P-PRSO 1 ,PRSO>)>)
224 | 					       (<EQUAL? ,PRSI ,IT>
225 | 					 	<SETG PRSI ,P-IT-OBJECT>
226 | 						<COND (.PTBL
227 | 						       <SET OBJ ,PRSI>
228 | 						       <PUT ,P-PRSI 1 ,PRSI>)
229 | 						      (T
230 | 						       <SET OBJ1 ,PRSI>
231 | 						       <PUT ,P-PRSI 
232 | 							    .CNT ,PRSI>)>)>)>
233 | 				  <COND ;(<VERB? COMPARE> T)
234 | 					(<G? .NUM 1>
235 | 					 <COND (<EQUAL? .OBJ1
236 | 							 ,NOT-HERE-OBJECT>
237 | 						 <SETG P-NOT-HERE
238 | 						       <+ ,P-NOT-HERE 1>>
239 | 						 <AGAIN>)
240 | 						(<AND <VERB? TAKE>
241 | 						      ,PRSI
242 | 						      <EQUAL? <GET <GET ,P-ITBL
243 | 									,P-NC1>
244 | 								   0>
245 | 							      ,W?ALL>
246 | 						      <NOT <IN? ,PRSO ,PRSI>>>
247 | 						 <AGAIN>)
248 | 						(<AND <EQUAL? ,P-GETFLAGS
249 | 							      ,P-ALL>
250 | 						      <VERB? TAKE>
251 | 						      <OR <AND <NOT <EQUAL?
252 | 								    <LOC .OBJ1>
253 | 								    ,WINNER
254 | 								    ,HERE>>
255 | 							       <NOT <FSET?
256 | 								  <LOC .OBJ1>
257 | 								  ,TRANSBIT>>>
258 | 							  <NOT <OR <FSET?
259 | 								    .OBJ1
260 | 								    ,TAKEBIT>
261 | 								   <FSET?
262 | 								    .OBJ1
263 | 							       ,TRYTAKEBIT>>>>>
264 | 						 <AGAIN>)
265 | 						(<AND <EQUAL? ,P-GETFLAGS
266 | 							      ,P-ALL>
267 | 						      <VERB? DROP>
268 | 						      <NOT <IN? .OBJ1 ,WINNER>>
269 | 						      <NOT <IN? ,P-IT-OBJECT
270 | 								,WINNER>>>
271 | 						 <AGAIN>)
272 | 						(T
273 | 						 <COND (<EQUAL? .OBJ1 ,IT>
274 | 							<DPRINT ,P-IT-OBJECT>)
275 | 						       (T <DPRINT .OBJ1>)>
276 | 						 <TELL ": ">)>)>
277 | 				  <SET V <QCONTEXT-CHECK <COND (.PTBL .OBJ1)
278 | 							(T .OBJ)>>>
279 | 				  <SET TMP T>
280 | 				  <SET V <PERFORM ,PRSA ,PRSO ,PRSI>>
281 | 				  <COND (<==? .V ,M-FATAL> <RETURN>)>)>>)>
282 | 	    <COND (<NOT <==? .V ,M-FATAL>>
283 | 		   ;<COND (<==? <LOC ,WINNER> ,PRSO>
284 | 			  <SETG PRSO <>>)>
285 | 		   ;"Removing this code should fix the problem that AGAIN
286 | 		     loses when in a vehicle and it is the PRSO."
287 | 		   <SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
288 | 	    <COND (<OR <VERB? AGAIN WALK FOLLOW>
289 | 		       <VERB? WAIT>
290 | 		       <GAME-COMMAND?>>
291 | 		   T)
292 | 		  (T
293 | 		   <SETG L-PRSA ,PRSA>
294 | 		   <SETG L-PRSO ,PRSO>
295 | 		   <SETG L-PRSI ,PRSI>
296 | 		   <SETG L-WALK-DIR ,P-WALK-DIR>
297 | 		   <SETG L-WINNER ,WINNER>)>
298 | 	    <COND (<==? .V ,M-FATAL> <SETG P-CONT <>>)>)
299 | 	   (T
300 | 	    <SETG P-CONT <>>)>
301 |      <COND (,P-WON
302 | 	    <COND (<GAME-COMMAND?>
303 | 		   T)
304 | 		  (<AND <VERB? TELL>
305 | 			<NOT ,PRSI>>
306 | 		   T)
307 | 	    	  (<OR ,CLOCK-WAIT <0? ,I-WAIT-DURATION>>
308 | 		   <SET V <CLOCKER>>
309 | 		   <SET V <DETECTOR-NOISE>>)
310 | 		  (T
311 | 		   <SETG I-WAIT-FLAG <V-WAIT ,I-WAIT-DURATION <>>>
312 | 		   <COND (,I-WAIT-FLAG
313 | 		   	  <APPLY ,I-WAIT-RTN>
314 | 		   	  <SETG I-WAIT-FLAG <>>)
315 | 			 (T <SETG I-WAIT-DURATION 0> <SET V <CLOCKER>>)>
316 | 		   <SET V <DETECTOR-NOISE>>)>)>
317 |      <SETG PRSA <>>
318 |      <SETG PRSO <>>
319 |      <SETG PRSI <>>>>
320 | 
321 | <ROUTINE GAME-COMMAND? ()
322 | 	 <COND (<VERB? BRIEF SUPER-BRIEF VERBOSE SAVE RESTORE RESTART
323 | 		       QUIT SCRIPT UNSCRIPT $VERIFY VERSION SCORE TIME>
324 | 		<RTRUE>)>>
325 | 
326 | <ROUTINE QCONTEXT-CHECK (PRSO "AUX" OTHER (WHO <>) (N 0))
327 | 	 <COND (<OR <VERB? HELP LATITUDE LONGITUDE>
328 | 		    <AND <VERB? SHOW TELL GIVE> <==? .PRSO ,PLAYER>>> ;"? more?"
329 | 		<SET OTHER <FIRST? ,HERE>>
330 | 		<REPEAT ()
331 | 			<COND (<NOT .OTHER> <RETURN>)
332 | 			      (<AND <FSET? .OTHER ,PERSON>
333 | 				    <NOT <==? .OTHER ,PLAYER>>>
334 | 			       <SET N <+ 1 .N>>
335 | 			       <SET WHO .OTHER>)>
336 | 			<SET OTHER <NEXT? .OTHER>>>
337 | 		<COND (<AND <==? 1 .N> <NOT ,QCONTEXT>>
338 | 		       <SAID-TO .WHO>)>
339 | 		<COND (<AND ,QCONTEXT
340 | 			    <IN? ,QCONTEXT ,HERE>
341 | 			    <==? ,QCONTEXT-ROOM ,HERE>
342 | 			    <==? ,WINNER ,PLAYER>> ;"? more?"
343 | 		       <SETG WINNER ,QCONTEXT>
344 | 		       <TELL "(said to " D ,QCONTEXT ")" CR>)>)>>
345 | 
346 | <ROUTINE SAID-TO (WHO)
347 |  <SETG WINNER .WHO>
348 |  <SETG QCONTEXT .WHO>
349 |  <SETG QCONTEXT-ROOM ,HERE>>
350 |  
351 | <GLOBAL P-MULT <>>
352 | 
353 | <GLOBAL P-NOT-HERE 0>
354 | 
355 | <GLOBAL L-PRSA <>>  
356 |  
357 | <GLOBAL L-PRSO <>>  
358 |  
359 | <GLOBAL L-PRSI <>>
360 | 
361 | <GLOBAL L-WINNER <>>
362 | 
363 | <GLOBAL LAST-PLAYER-LOC <>>  
364 | 
365 | ;"PERFORM without DEBUG"
366 | <ROUTINE PERFORM (A "OPTIONAL" (O <>) (I <>) "AUX" V OA OO OI) 
367 | 	#DECL ((A) FIX (O) <OR FALSE OBJECT FIX> (I) <OR FALSE OBJECT> (V) ANY)
368 | 	<SET OA ,PRSA>
369 | 	<SET OO ,PRSO>
370 | 	<SET OI ,PRSI>
371 | 	<COND (<AND <NOT <==? .A ,V?WALK>>
372 | 		    <EQUAL? ,IT .I .O>>
373 | 	       ;<AND <EQUAL? ,IT .I .O>
374 | 		    <NOT <EQUAL? ,P-IT-LOC ,HERE>>>
375 | 	       <TELL "I don't see what you are referring to." CR>
376 | 	       <RFATAL>)>
377 | 	;<COND (<==? .O ,IT> <SET O ,P-IT-OBJECT>)>
378 | 	;<COND (<==? .I ,IT> <SET I ,P-IT-OBJECT>)>
379 | 	<SETG PRSA .A>
380 | 	<SETG PRSO .O>
381 | 	<COND (<AND ,PRSO <NOT <EQUAL? ,PRSI ,IT>> <NOT <VERB? WALK>>>
382 | 	       <SETG P-IT-OBJECT ,PRSO>
383 | 	       ;<SETG P-IT-LOC ,HERE>)>
384 | 	<SETG PRSI .I>
385 | 	<COND (<AND <EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>
386 | 		    <NOT <VERB? WALK>>
387 | 		    <SET V <NOT-HERE-OBJECT-F>>>
388 | 	       <SETG P-WON <>>
389 | 	       .V)
390 | 	      (T
391 | 	       <SET O ,PRSO>
392 | 	       <SET I ,PRSI>
393 | 	       <COND
394 | 		(<SET V <APPLY <GETP ,WINNER ,P?ACTION>>> .V)
395 | 		(<SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-BEG>> .V)
396 | 		(<SET V <APPLY <GET ,PREACTIONS .A>>> .V)
397 | 		(<AND <SET I ,PRSI> .I <SET V <APPLY <GETP .I ,P?ACTION>>>> .V)
398 | 		(<AND .O
399 | 		      <NOT <==? .A ,V?WALK>>
400 | 		      <LOC .O>
401 | 		      <SET V <APPLY <GETP <LOC .O> ,P?CONTFCN> ,M-CONT>>>
402 | 		 .V)
403 | 		(<AND .O
404 | 		      <NOT <==? .A ,V?WALK>>
405 | 		      <SET V <APPLY <GETP .O ,P?ACTION>>>>
406 | 		 .V)
407 | 		(<SET V <APPLY <GET ,ACTIONS .A>>> .V)>)>
408 | 	<COND (<NOT <==? .V ,M-FATAL>>
409 | 	       <COND (<==? <LOC ,WINNER> ,PRSO>
410 | 		      <SETG PRSO <>>)>
411 | 	       <SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
412 | 	<SETG PRSA .OA>
413 | 	<SETG PRSO .OO>
414 | 	<SETG PRSI .OI>
415 | 	.V>
416 | 
417 | ;"PERFORM with DEBUG"
418 | ;<ROUTINE PERFORM (A "OPTIONAL" (O <>) (I <>) "AUX" V OA OO OI) 
419 | 	#DECL ((A) FIX (O) <OR FALSE OBJECT FIX> (I) <OR FALSE OBJECT> (V) ANY)
420 | 	<COND (,DEBUG
421 | 	       <TELL "** PERFORM: PRSA = ">
422 | 	       %<COND (<GASSIGNED? PREDGEN> '<TELL N .A>)
423 | 		      (T '<PRINC <NTH ,ACTIONS <+ <* .A 2> 1>>>)>
424 | 	       <COND (<AND .O <NOT <==? .A ,V?WALK>>>
425 | 		      <TELL "/PRSO = " D .O>)>
426 | 	       <COND (.I <TELL "/PRSI = " D .I>)>)>
427 | 	<SET OA ,PRSA>
428 | 	<SET OO ,PRSO>
429 | 	<SET OI ,PRSI>
430 | 	<COND (<AND <NOT <==? .A ,V?WALK>>
431 | 		    <EQUAL? ,IT .I .O>>
432 | 	       ;<AND <EQUAL? ,IT .I .O>
433 | 		    <NOT <EQUAL? ,P-IT-LOC ,HERE>>>
434 | 	       <TELL "I don't see what you are referring to." CR>
435 | 	       <RFATAL>)>
436 | 	;<COND (<==? .O ,IT> <SET O ,P-IT-OBJECT>)>
437 | 	;<COND (<==? .I ,IT> <SET I ,P-IT-OBJECT>)>
438 | 	<SETG PRSA .A>
439 | 	<SETG PRSO .O>
440 | 	<COND (<AND ,PRSO <NOT <EQUAL? ,PRSI ,IT>> <NOT <VERB? WALK>>>
441 | 	       <SETG P-IT-OBJECT ,PRSO>
442 | 	       ;<SETG P-IT-LOC ,HERE>)>
443 | 	<SETG PRSI .I>
444 | 	<COND (<AND <EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>
445 | 		    <NOT <VERB? WALK>>
446 | 		    <SET V <D-APPLY "Not Here" ,NOT-HERE-OBJECT-F>>>
447 | 	       <SETG P-WON <>>
448 | 	       .V)
449 | 	      (T
450 | 	       <SET O ,PRSO>
451 | 	       <SET I ,PRSI>
452 | 	       <COND (<SET V <DD-APPLY "Actor" ,WINNER
453 | 				      <GETP ,WINNER ,P?ACTION>>> .V)
454 | 		     (<SET V <D-APPLY "Room (M-BEG)"
455 | 				      <GETP <LOC ,WINNER> ,P?ACTION>
456 | 				      ,M-BEG>> .V)
457 | 		     (<SET V <D-APPLY "Preaction"
458 | 				      <GET ,PREACTIONS .A>>> .V)
459 | 		     (<AND <SET I ,PRSI> .I <SET V <D-APPLY "PRSI"
460 | 					      <GETP .I ,P?ACTION>>>> .V)
461 | 		     (<AND .O
462 | 			   <NOT <==? .A ,V?WALK>>
463 | 			   <LOC .O>
464 | 			   <GETP <LOC .O> ,P?CONTFCN>
465 | 			   <SET V <DD-APPLY "Container" <LOC .O>
466 | 					  <GETP <LOC .O> ,P?CONTFCN>>>>
467 | 		      .V)
468 | 		     (<AND .O
469 | 			   <NOT <==? .A ,V?WALK>>
470 | 			   <SET V <D-APPLY "PRSO"
471 | 					   <GETP .O ,P?ACTION>>>>
472 | 		      .V)
473 | 		     (<SET V <D-APPLY <>
474 | 				      <GET ,ACTIONS .A>>> .V)>)>
475 | 	<COND (<NOT <==? .V ,M-FATAL>>
476 | 	       <COND (<==? <LOC ,WINNER> ,PRSO>
477 | 		      <SETG PRSO <>>)>
478 | 	       <SET V <D-APPLY "Room (M-END)"
479 | 			       <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
480 | 	<SETG PRSA .OA>
481 | 	<SETG PRSO .OO>
482 | 	<SETG PRSI .OI>
483 | 	.V>
484 | 
485 | ;"Next 2 routines for use with DEBUG"
486 | ;<ROUTINE DD-APPLY (STR OBJ FCN "OPTIONAL" (FOO <>))
487 | 	<COND (,DEBUG <TELL "[" D .OBJ "=]">)>
488 | 	<D-APPLY .STR .FCN .FOO>>
489 | 
490 | ;<ROUTINE D-APPLY (STR FCN "OPTIONAL" (FOO <>) "AUX" RES)
491 | 	<COND (<NOT .FCN> <>)
492 | 	      (T
493 | 	       <COND (,DEBUG
494 | 		      <COND (<NOT .STR>
495 | 			     <TELL "[Action:]" CR>)
496 | 			    (T <TELL "[" .STR ": ">)>)>
497 | 	       <COND (<==? .STR "Container">
498 | 		      <SET FOO ,M-CONT>)>
499 | 	       <SET RES
500 | 		    <COND (.FOO <APPLY .FCN .FOO>)
501 | 			  (T <APPLY .FCN>)>>
502 | 	       <COND (<AND ,DEBUG .STR>
503 | 		      <COND (<==? .RES ,M-FATAL>
504 | 			     <TELL "Fatal]" CR>)
505 | 			    (<NOT .RES>
506 | 			     <TELL "Not handled]" CR>)
507 | 			    (T <TELL "Handled]" CR>)>)>
508 | 	       .RES)>>
509 |  
510 | <ROUTINE TELL-START-STR () ;"submitted by a committee"
511 | 	 <TELL
512 | "Nights on Hardscrabble Island are lonely and cold when the lighthouse
513 | barely pierces the gloom. You sit on your bed, thinking of better times
514 | and far-off places. A knock on your door stirs you, and Hevlin, a shipmate
515 | you haven't seen for years, staggers in.|
516 | |
517 | \"I'm in trouble,\" he says. \"I had a few too many at The Shanty.
518 | I was looking for Red, but he wasn't around, and I started talking about ...
519 | here,\" he says, handing you a slim volume that you recognize
520 | as a shipwreck book written years ago by the Historical Society.|
521 | |
522 | You smile. Every diver on the island has looked for those wrecks,
523 | without even an old boot to show for it. You open the door, hoping the
524 | drunken fool will leave. \"I know what you're thinkin',\" Hevlin scowls,
525 | \"but look!\" He points to the familiar map, and you see new locations
526 | marked for two of the wrecks.|
527 | |
528 | \"Keep it for me,\" he says. \"Just for tonight. It'll be safe here with
529 | you. Don't let -- \" He stops and broods for a moment. \"I've got to go
530 | find Red!\" And with that, Hevlin leaves.|
531 | |
532 | You put the book in your dresser and think about following Hevlin. Then you
533 | hear a scuffle outside. You look through your window and see two men
534 | struggling. One falls to the ground in a heap. The other man bends
535 | down beside him, then turns as if startled and runs away. Another man then
536 | approaches the wounded figure. He kneels beside him for a long moment,
537 | then takes off after the other man.|
538 | |
539 | It isn't long before the police arrive to tell you that Hevlin's been
540 | murdered. You don't mention the book, and hours later, as you lie awake
541 | in your bed, you wonder if the book could really be what it seems." CR>>
542 | 
543 | <ROUTINE ACCESSIBLE? (OBJ "AUX" (L <LOC .OBJ>)) ;"can player TOUCH object?"
544 | 	 ;"revised 5/2/84 by SEM and SWG"
545 | 	 <COND (<FSET? .OBJ ,INVISIBLE>	<RFALSE>)
546 | 	       (<EQUAL? .OBJ ,PSEUDO-OBJECT>
547 | 		<COND (<EQUAL? <GETP ,PSEUDO-OBJECT ,P?DESCFCN> ,HERE>
548 | 		       <RTRUE>)
549 | 		      (T
550 | 		       <RFALSE>)>)
551 | 	       (<NOT .L> <RFALSE>)
552 | 	       (<EQUAL? .L ,GLOBAL-OBJECTS> <RTRUE>)	       
553 | 	       (<AND <EQUAL? .L ,LOCAL-GLOBALS>
554 | 		     <GLOBAL-IN? .OBJ ,HERE>>
555 | 		<RTRUE>)
556 | 	       (<NOT <EQUAL? <META-LOC .OBJ> ,HERE>> <RFALSE>)
557 | 	       (<EQUAL? .L ,WINNER ,HERE> <RTRUE>)
558 | 	       (<AND <OR <FSET? .L ,OPENBIT>
559 | 			 <FSET? .L ,PERSON>>
560 | 		     <ACCESSIBLE? .L>>
561 | 		<RTRUE>)
562 | 	       (T <RFALSE>)>>
563 | 
564 | <ROUTINE VISIBLE? (OBJ "AUX" (L <LOC .OBJ>)) ;"can player SEE object"
565 | 	 ;"revised 5/2/84 by SEM and SWG"
566 | 	 <COND (<ACCESSIBLE? .OBJ>
567 | 		<RTRUE>)
568 | 	       (<AND <SEE-INSIDE? .L>
569 | 		     <VISIBLE? .L>>
570 | 		<RTRUE>)
571 | 	       (T
572 | 		<RFALSE>)>>
573 | 
574 | <ROUTINE META-LOC (OBJ)
575 | 	 <REPEAT ()
576 | 		 <COND (<NOT .OBJ> <RFALSE>)
577 | 		       (<EQUAL? .OBJ ,GLOBAL-OBJECTS ,LOCAL-GLOBALS>
578 | 			<RETURN .OBJ>)>
579 | 		 <COND (<IN? .OBJ ,ROOMS>
580 | 			<RETURN .OBJ>)
581 | 		       (ELSE
582 | 			<SET OBJ <LOC .OBJ>>)>>>


--------------------------------------------------------------------------------
/toa2.txt:
--------------------------------------------------------------------------------
  1 | @MAKE [TEXT]
  2 | @STYLE [SPACING 2,JUSTIFICATION NO]
  3 | @TITLE [TOA2 Design Notes]
  4 | @TabSet [4,8,12,16,20]
  5 | @pageheading [draft]
  6 | @MAJORHEADING [** Second Design **]
  7 | 
  8 | @section [Introduction]
  9 | 
 10 | TOA 2, in its raw concept, will not be a strict puzzle, as Zork 1 is,
 11 | nor will it be as straight a story as Deadline.  There will be
 12 | characters with whom the player will interact, and certain "correct"
 13 | things the player will be required to do in order to complete the game.
 14 | The game will utilize some unique methods to increase the game's
 15 | replayability.
 16 | 
 17 | Time windows in which certain events occur will make TOA2 like a
 18 | story.  The player will also need to elicit the help of other characters
 19 | to successfully complete the game.
 20 | 
 21 | The game will be TIME- rather than MOVE-oriented. A clock should be
 22 | included.  The story actually takes advantage of the clock, with the
 23 | characters saying something like "Meet me at the Red Boar Inn at 7:15.
 24 | Don't be late or we'll leave you behind."  The MC will have a watch
 25 | which will be displayed on the status line.  A nice side-effect should
 26 | be the ability to "synchonize watches".  One of the characters will
 27 | suggest it, and the MC will the get to RESET WATCH TO HH:MM.  The status
 28 | line would be updated accordingly.  The story cannot operate off of
 29 | @u(this) clock -- it must have its own internal clock as well as the
 30 | clock displayed on the status line.  Night and day, hunger and thirst,
 31 | other characters' movements, etc., can be done independently of what the
 32 | MC's watch (STATUS LINE) says.
 33 | 
 34 | The brief description of the story is as follows:  The MC has a
 35 | reputation for being a "square-shooter" and is roped into a plot to
 36 | salvage a sunken pirate ship off the coast.  Successfully doing so will
 37 | mean the player wins.
 38 | 
 39 | There will be a number of wrecks (up to 7, all of which would be coded
 40 | as table entries), though only one of which contains the treasure for
 41 | that particular game.  This method of determining which wreck is worth
 42 | investigating, and then determing what equipment will be needed, will be
 43 | described later, and comprises a large portion of the player's
 44 | early experience.  The computer should generate the ship to be explored at
 45 | random, giving replay value.  The actual sunken ship will be a series of
 46 | interconnected rooms, with LDESCS being supplied by offsetting into a
 47 | table of LDESCS.
 48 | 
 49 | @section [Settings]
 50 | 
 51 | @Subsection [Seaport Island]
 52 | The game starts on the Seaport Island, and the first goal of the player
 53 | should be getting off the island with the tools and information he needs
 54 | to successfully excavate one of the wrecks.
 55 | 
 56 | @begin [enumerate]
 57 | 
 58 | The Red Boar Inn -- This is where the MC lives.  He has a small but
 59 | nicely furnished room which he rents by the month.  The room overlooks
 60 | the port and has marine charts, manuals on diving, etc.  All of his
 61 | personal belongings are here.  This location is actually 3 rooms -- the
 62 | entrance/downstairs; the upstairs hallway; and the MC's bedroom.
 63 | 
 64 | The Shanty -- The Shanty is a local pub/tavern where sailors and
 65 | adventurers like to hang about.  There are tables and a bar, and they
 66 | owner/bartender serves both food and drink.  The MC is well known to all
 67 | of the locals who hang about.  It's a dark but firendly place, with
 68 | parrots walking along the bar, insulting customers.  One of the parrots
 69 | wears an eyepatch.
 70 | 
 71 | Outfitters, Int'l -- This place is a store which has all the naval
 72 | stores necessary for a successful expedition.  The owner knows the MC.
 73 | The MC will be responsible for purchasing all the supplies necessary for
 74 | the expedition.  Stores purchased will depend upon the type of
 75 | expedition selected by the computer.
 76 | 
 77 | Warehouse -- The warehouse is normally locked, and houses some of the
 78 | equipment for Outfitters Int'l.  The MC has no access to this building
 79 | by normal means.
 80 | 
 81 | Wharf -- The wharf area is near The Shanty and Outfitters, Int'l.  There
 82 | are several boats and docks, but is not a good place to go walking about
 83 | in the evening.
 84 | 
 85 | McGinty Salvage -- A growing concern whose primary function is to
 86 | salvage old wrecks.  The MC and his compatriots will go into competition
 87 | with them.
 88 | 
 89 | Roads --
 90 | @begin [enumerate]
 91 | 
 92 | The Wharf Road runs along the northern edge of the island and gives
 93 | access to the wharf and docks.
 94 | 
 95 | The Ocean Road runs along the eastern edge of the island.  To the far
 96 | southeast corner is Point Lookout, a small but high cliff giving a far
 97 | and wide view of the sea.
 98 | 
 99 | The Shore Road goes along the southern edge of the island and ends at
100 | the ferry boat landing.  It is here that all visitors arrive and leave.
101 | 
102 | The Winding Road travels along the north and heads west, ending at a
103 | lighthouse.  Its southern edge is bordered by impenatrable swamp/marsh.
104 | 
105 | @end [enumerate]
106 | 
107 | Ocean -- This is technically a room, though it is there only as a
108 | border.
109 | 
110 | Marsh -- A multi-room, like the ocean, from which there is no escape.
111 | Many rooms enter, but there are no exits.
112 | 
113 | Field -- Behind the shops and buildings, west of the Ocean Road, is a
114 | large, innocuous field, not worth entering, refered to only in
115 | description.
116 | 
117 | Ships -- There are two ships, each of which has a different capability,
118 | each of which will be described later.
119 | 
120 | Mariners' Trust -- A bank, located on the south shore of the Island,
121 | which contains all of the MC's life savings.
122 | 
123 | @end [enumerate]
124 | 
125 | @subsection [The Seagoing Vessels]
126 | 
127 | There are two vessels from which the player may choose.
128 | 
129 | @begin [enumerate]
130 | 
131 | The Night Wind (THE TRAWLER) -- The trawler is a sturdy fishing boat,
132 | designed to weather high seas.  It is a sturdy, steady, and rather fast
133 | boat, though not really designed to do deep-sea salvaging.
134 | 
135 | The Mary Margaret (SALVAGE VESSEL) -- This boat is well outfitted, and a
136 | very seaworthy salvage boat.  The problems it presents is that it is
137 | expensive, and it is slow on the water.  It is also most frequently used
138 | by McGinty, and so not always available.  It is owned by Outfitters
139 | Int'l.
140 | 
141 | @end [enumerate]
142 | 
143 | Each ship will have three upper sections -- forward, midships, and aft
144 | -- while below decks there should be cabins, a galley, pantry, head,
145 | etc.
146 | 
147 | The Night Wind should be used on those wrecks at greater than N fathoms. 
148 | Otherwise, the Trawler should do.  The information relating to each
149 | ship's capabilities will be included in the game package.
150 |  
151 | @subsection [Sunken Ships]
152 | 
153 | The actual number of sunken ships needs to be determined, and will be a
154 | function of the rest of the design.  The wreck itself can be 20 or so
155 | rooms.  If there are 7 wrecks, that would mean that 7 X 20 = 140 LDESCS
156 | in a total of 20 tables for descriptions.  All exit information would be
157 | the same.  I humbly suggest intially building the code to handle any
158 | number of wrecks, with the starting implementation handling 3.
159 | 
160 | As the player is walking about through the murky waters, he can enter
161 | the hull and find his way up and down ladders, in and through
162 | passageways, etc.  Potential dangers here would be sharks, having his
163 | lifeline of his air hose cut by a falling timber, a slamming trapdoor,
164 | etc.  His pressurized suit could be torn on a nail.  He will have to
165 | successfully deduce what the metal detector he finds on board does, and
166 | how to use it. (See OBJECTS)
167 | 
168 | The information on where the ships are located, at what depth, and a
169 | chart of what the vessel may have originally been carrying will be
170 | provided in the game package.
171 | 
172 | @section [Characters]
173 | 
174 | MC, the main character/player will not be fully drawn here.  This
175 | section deals with all secondary characters -- their personalities,
176 | motivations, physical characteristics and goals.
177 | 
178 | @subsection [McGinty]
179 | 
180 | McGinty is the owner of McGinty Salvage.  He is a small, nervous man,
181 | thin and always on the move.  He is balding, with thin strings of black
182 | hair swept across his scalp.  His lips are large and pouting, and
183 | invariably clamped around cigars which seem too large for his face.  He
184 | has a hooked nose that, when viewed head-on, almost seems to diasppear
185 | it is so thin.
186 | 
187 | He abhors physical violence, being easily out-muscled.  If there's a
188 | deal around, McGinty either knows about it already or is soon to find
189 | out.  There isn't a deal on the Island he doesn't have something to do
190 | with.  Business is his life, and making money is all he cares about.  He
191 | would be a retired, wealthy man if it weren't for his fear of other
192 | people.  This fear manifests itself as mistrust and apprehension --
193 | partly as a result of his diminutive stature.
194 | 
195 | He hears of the deal which our MC will cut with the others and tries to
196 | weasel his way in.  He may succeed in doing so if the Salvager is
197 | needed, since that boat belongs to his company.  He is not to be
198 | trusted, though, as his primary loyalty is to himself and then to money.
199 | 
200 | @subsection [Pete the Rat]
201 | 
202 | Pete the rat wears an eye patch and got his name from one of the long,
203 | far-east voyages he shipped out on.  It seems that food was running low
204 | and, as the ship's cook, he did what he had to to supply the crew with
205 | fresh meat.  Needless to say, when the crew found out, they insisted he
206 | be left at the nearest port, which the Captain was happy to do.
207 | 
208 | Pete the Rat is well-intentioned, though not the brightest of sailors. 
209 | He is well-experienced in the ways of the sea.  He talks slowly, as if
210 | trying to remember the words one at a time, dredging them up from his
211 | long term memory in a painful series of associations.
212 | 
213 | He's had some trouble getting another berth in which he functions as a
214 | cook, but our MC should not fear him.  The mistakes Pete made in the
215 | past were simply that -- mistakes from which he has learned.  Pete is
216 | tall and lanky, moves slowly at a shuffling gait, wears black
217 | turtlenecks and jeans even in the dead heat of summer.  The reason for
218 | his dress code is simple: they are the only clothes he owns.  If you
219 | plan to stand next to him, be sure you are not downwind.
220 | 
221 | @subsection [Frank Webster]
222 | 
223 | Frank is an opportunist, looking for his next opportunity, even which
224 | engaged in a current one.  If you're talking to him in a bar, he will
225 | look at you about one-third of the time, spending the other two-thirds
226 | glancing around, scoping out who is there, what everyone is drinking,
227 | etc. 
228 | 
229 | To say he has small, beady, brown eyes would be too kind a word.  His
230 | eyes are actually little more than slits, large enough to let in only
231 | enough light to see with.  No extra light is allowed behind those lids. 
232 | His smile is captivating, though, and puts people off guard.  When he
233 | wants to warm up to someone, he can do it in a flash, erasing any and
234 | all trepidations regarding his character.
235 | 
236 | Frank is well known for his risk-taking and for his ability to come up
237 | with just the right thing at just the right time.  He also has a keen
238 | business sense and sees the capabilities and limitations of others. 
239 | Frank wants to buy the United States when he has enough money, and is
240 | just waiting for his ship to come in.  While he's waiting, however, he's
241 | working very hard at preparing the harbor.
242 | 
243 | @subsection [The Weasel]
244 | 
245 | The Weasel is a short, wirey guy with darting eyes and thin lips.  He
246 | rarely talks, except to nod his head and say "Got it, chief."  He takes
247 | orders and will do anything -- @u(anything) -- for money.  Whoever pays
248 | him, owns him.
249 | 
250 | He aspires to little more in life than to survive and retire to the Old
251 | Mariners' Home in Secaucus, N.J.  He isn't the brightest creature on the
252 | planet, but he is quick to pick up new ideas and mesh them with his
253 | slightly-twisted view of how the Universe works.  He picks his teeth
254 | with a knife, and God only knows where that knife has been.
255 | 
256 | The Weasel has a tatoo on his upper arm which says "Mother?" leading
257 | everyone to wonder whether he really ever had one.
258 | 
259 | @subsection [Johnny Red]
260 | 
261 | Johnny Red, whose real name is unknown to everyone on the Island, has
262 | crewed for just about every Captain who sailed the seas.  His name was
263 | derived from his flame-red hair and beard, both of which he has in
264 | enough quantity to make several dozen toupes.  He wears flannel shirts,
265 | with the top several buttons unbuttoned to expose a mat-like carpet of
266 | curly red hair on his chest.  With his shirt sleeves rolled up, he looks
267 | like something you left in your refrigerator for 30 weeks growing red
268 | hair-mold.
269 | 
270 | Johnny has a barrel chest and weighs in at 300 even.  To say he was
271 | large would be to say a sequoia is just another tree.  He is strong,
272 | reliable, and oddly non-violent, though you would never know that
273 | looking at him.
274 | 
275 | @section [Play]
276 | 
277 | What follows are some sample scenarios/plots based on best win, followed
278 | by complications, problems and puzzles.
279 | 
280 | @subsection [The Best Plot]
281 | 
282 | The story starts with the MC in his room.  There is a note which has
283 | been slipped under his door, inviting him to meet with the secondary
284 | characters at The Shanty at a set time.
285 | 
286 | The MC will be invited to join in on the salvage hunt by the secondary
287 | characters at The Shanty.  He will be shown a small piece of treasure
288 | found by Frank and Johnny.
289 | 
290 | The Weasel shows up between 10 and 15 minutes late to the meeting in the
291 | tavern OR he doesn't show up at all (see Complications -- General). 
292 | 
293 | If he agrees to throw in his lot with the secondary characters, he will
294 | have to get to Mariners' Trust and withdraw his money from his savings
295 | account.  He will need his passbook to do this, and his passbook is in
296 | his room.  He will have to meet Johnny Red at Point Lookout at a
297 | prearranged time with the money.  Johnny Red, carrying the others'
298 | money, will then accompany the MC to Outfitters Int'l.
299 | 
300 | Once at Outfitters Int'l, the MC will then purchase the supplies
301 | necessary for a successful salvage expedition.  Red will have the list
302 | from the cook, Pete, and other things which they will need.  The MC
303 | tells the man at Outfitters Int'l to deliver the things to the boat
304 | (whichever one the MC decides would be best for this voyage) and then
305 | returns to The Shanty to meet up with the others.
306 | 
307 | From here, all of the crew go to the boat.  The course is plotted and
308 | the crew takes care of getting the boat to where it needs to be.  They
309 | drop anchor and set up for the dive.
310 | 
311 | The MC, the underwater expert, then goes overboard and walks on the
312 | ocean floor to find the wreck.  Once there, he successfully locates the
313 | chest of treasure, hooks it up for hoisting, and returns to the ship. 
314 | The treasure is hauled up and all live happily ever after.
315 | 
316 | @subsection [Complications -- General]
317 | 
318 | If the player fails to lock the door into the MC's room after he leaves,
319 | the room can be ransacked.  If the passbook was left inside, it will be
320 | gone, stolen by The Weasel.  This means that The Weasel, normally late
321 | for the meeting at the bar, may not show up at all if he has
322 | successfully stolen the passbook.
323 | 
324 | @subsection [Complications -- McGinty]
325 | 
326 | After the initial meeting in The Shanty, Frank tells them all that there
327 | is no good reason to tell anyone else what they are planning, and that
328 | all further discussions should be held in private.  Red suggests the
329 | Lighthouse out on Winding Road.  They agree to meet there one-half hour
330 | from now (or at a specific time).  If anyone is late, they'd better have
331 | a good excuse.
332 | 
333 | The others leave, letting the MC do what he will for the time he has. 
334 | Part of this time will be in finding the Lighthouse.  Part of the time
335 | will also be eaten up by McGinty, who will demand to know what is going
336 | on, where the MC is off to, who he was talking to, what they were
337 | talking about, etc.  If the MC should let anything slip, then McGinty
338 | will beat them all to the punch, making the entire trip futile.  On
339 | setting out, while at sea, the will see McGinty's ship coming back into
340 | port.  This will also prevent them from using the Salvager.
341 | 
342 | If he does not satisfy McGinty's questions and sets out directly for the
343 | Lighthouse, McGinty will follow him in the shadows.  Once the MC meets
344 | the secondary characters, McGinty will be seen and The Weasel will stick
345 | a knife between the MC's ribs, calling him a traitor.
346 | 
347 | @subsection [Complications -- Mariners' Trust]
348 | 
349 | Without his passbook, the MC will be prevented from getting his money.
350 | His passbook is in his room.  He may have to return there and get the
351 | passbook before the second meeting.  (His passbook, however, may have
352 | been stolen).  He will have the time to do this, but it is something
353 | some players may easily overlook.
354 | 
355 | There is the potential here for a double-cross (though I'm not sure it's
356 | worthwhile).  The Weasel could be standing outside and attempt to steal
357 | the money from the MC.  This would certainly be in character for The
358 | Weasel, seeing easy and quick money.
359 | 
360 | McGinty could also be at the bank and decide to follow the MC to he
361 | second meeting.
362 | 
363 | @subsection [Complications -- Second Metting]
364 | 
365 | Once the plans have been made at the Lighthouse, the second meeting is
366 | arranged, that to occur at 6:00 pm between the MC and Johnny Red at
367 | Point Lookout.  Both are to have their money.
368 | 
369 | If the MC does not show up at all, or if he shows up late (with or
370 | without the money) Red's body is found with bullet holes in it,
371 | McGinty's ship is gone, and the police arrest the MC in town.  The gun
372 | was found in his room.
373 | 
374 | If the MC shows up without the money, Red tells him they will go on
375 | without him and the game ends.
376 | 
377 | If the MC shows up more than 5 minutes early, McGinty will appear there,
378 | preventing Red from arriving, thus blowing then entire affair, ending in
379 | a lose.
380 | 
381 | @subsection [Complications -- Outfitting]
382 | 
383 | Two kinds of complications can occur at Outfitters Int'l:
384 | 
385 | @begin [enumerate]
386 | 
387 | Buying the wrong supplies.
388 | 
389 | Buying the supplies in front of McGinty.
390 | 
391 | @end [enumerate]
392 | 
393 | If the MC purchases the wrong supplies, the expedition will utimately
394 | fail.  If the MC continues to purchase supplies after McGinty walks in,
395 | McGinty will get wise and beat them all to the punch.  It will be
396 | necessary for the MC to instruct McGinty to leave or to get Red to
397 | physically remove McGinty.
398 | 
399 | @subsection [Complications -- The Wrong Boat]
400 | 
401 | Taking the wrong boat will ultimately lead to a lose.  The exact
402 | methods, reasons and complications are as yet unknown.
403 | 
404 | @subsection [Puzzles]
405 | 
406 | As of yet, no specific puzzles have been designed.  There is potential
407 | for a lot of traps which would occur in the underwater wreck, and there
408 | are certainly lots of plot complications which will occur on the Island.
409 | 
410 | There is, of course, the "mysterious black-box" problem, where the
411 | black-box is actually a metal detector or some strange origin.  This
412 | could be useful in locating the treasure in the wreck.
413 | 
414 | @subsection [Objects]
415 | 
416 | Bed in MC's room.
417 | 
418 | A note which was slipped under his door.
419 | 
420 | A door under which the note was slipped.
421 | 
422 | A Passbook for his savings & loan account.
423 | 
424 | A Ditty bag (shades of TOA1's knapsack!)
425 | 
426 | Characters:
427 | @begin [enumerate]
428 | McGinty
429 | 
430 | Johnny Red
431 | 
432 | Pete the Rat
433 | 
434 | Frank Webster
435 | 
436 | The Weasel
437 | 
438 | The Parrot
439 | 
440 | The bartender/waiter/outfitter/bank teller
441 | @end [enumerate]
442 | 
443 | A table around which the characters can sit in the bar/tavern.
444 | 
445 | A chair in which the player can sit.
446 | 
447 | An envelope of money which the player will get at the bank.
448 | 
449 | A key to the MC's room.
450 | 
451 | The Ocean Map will have to be provided with the game package, but should
452 | be included as an object (as the cube was in TOA1) to tell them to look
453 | in their game package.
454 | 
455 | A wrist watch, which the player should be wearing.  It should be
456 | possible to break the watch, and not breaking the watch should be the
457 | goal in one interaction between the player & the environment.
458 | 
459 | A strand of red hair.  This will be described as simply a strand of
460 | hair.  If the player picks it up and examines it, it will described as
461 | being red hair.  This strand of hair will appear in a place where Johnny
462 | Red shouldn't have been, but was, thus giving the player a much needed
463 | clue as to what is going on.
464 | 
465 | Shipboard Objects:
466 | @begin [enumerate]
467 | A Navigational beacon finder black-box frobbie, used to find out where
468 | you are by using LORAN.  This will be aboard only one of the boats.
469 | 
470 | Bunks
471 | 
472 | Chart table
473 | 
474 | Small Machine: The metal detector will be found onboard the Mary
475 | Margaret and will work as follows.  There will be a (label) on the small
476 | machine, though the letters should be so well-worn as to render the
477 | label useless.  There will be an off/on switch and a compartment inside
478 | it for batteries.  By switching it on with a live battery, it will make
479 | a ticking sound when brought near metal.  This will require some objects
480 | to have a METAL bit. Proximity is going to present a bit of a problem.
481 | 
482 | Label (on the small machine)
483 | 
484 | Off/On switch (on the small machine)
485 | 
486 | Batteries (for the small machine)
487 | 
488 | @end [enumerate]
489 | 
490 | @section [Package Elements]
491 | 
492 | @subsection [Tides]
493 | Included in the game package should be a tidal chart, good for the week
494 | of this game.  Since the game play takes about three days, it is
495 | important that the chart give low and high tides.
496 | 
497 | Sailing without the tidal chart may prove to be disasterous.
498 | 
499 | @subsection [Ocean Map]
500 | This map should be an ocean "chart" with various depth soundings, marker
501 | bouys, latitude and longitude markings, etc.  It should also indicate
502 | where the various wrecks are located.


--------------------------------------------------------------------------------
/goal.zil:
--------------------------------------------------------------------------------
  1 | "GOAL for
  2 | 			     TOA #2
  3 | 	Copyright 1984 Infocom, Inc.  All rights reserved.
  4 | "
  5 | 
  6 | "This code is the local T system."
  7 | 
  8 | <GLOBAL DIR-STRINGS
  9 | 	<PTABLE  P?NORTH "north" P?SOUTH "south"
 10 | 		P?EAST "east" P?WEST "west"
 11 | 		P?NW "northwest" P?NE "northeast"
 12 | 		P?SW "southwest" P?SE "southeast"
 13 | 		P?DOWN "downstairs" P?UP "upstairs"
 14 | 		P?IN "in" P?OUT "out">>
 15 | 
 16 | <GLOBAL NAUTICAL-DIR-STRINGS
 17 | 	<PTABLE  P?NORTH "forward" P?SOUTH "aft"
 18 | 		P?EAST "starboard" P?WEST "port"
 19 | 		P?NW "northwest" P?NE "northeast"
 20 | 		P?SW "southwest" P?SE "southeast"
 21 | 		P?DOWN "below" P?UP "above"
 22 | 		P?IN "in" P?OUT "out">>
 23 | 
 24 | <ROUTINE DIR-PRINT (DIR "AUX" (CNT 0) TBL (DRY <>))
 25 | 	 #DECL ((DIR CNT) FIX)
 26 | 	 <COND (<NOT .DIR>
 27 | 		<TELL "out of view">
 28 | 		<RTRUE>)
 29 | 	       (<G? <GETP ,HERE ,P?LINE> ,BACK-ALLEY-LINE-C>
 30 | 		<SET TBL ,NAUTICAL-DIR-STRINGS>)
 31 | 	       (T
 32 | 		<SET TBL ,DIR-STRINGS>
 33 | 		<SET DRY T>)>
 34 | 	 <REPEAT ()
 35 | 		 <COND (<==? <GET .TBL .CNT> .DIR>
 36 | 			<COND (<AND .DRY
 37 | 				    <NOT <EQUAL? .DIR ,P?UP ,P?DOWN>>>
 38 | 			       <TELL "the ">)>
 39 | 			<PRINT <GET .TBL <+ .CNT 1>>>
 40 | 			<RTRUE>)>
 41 | 		 <SET CNT <+ .CNT 1>>>>
 42 | 
 43 | "Rapid Transit Line Definitions and Identifiers"
 44 | 
 45 | <CONSTANT ROAD-WHARF-LINE-C 0>
 46 | <CONSTANT EAST-ROAD-LINE-C 1>
 47 | <CONSTANT BEDROOM-LINE-C 2>
 48 | <CONSTANT BACK-ALLEY-LINE-C 3>
 49 | <CONSTANT TRAWLER-LINE-C 4>
 50 | <CONSTANT SALVAGER-LINE-C 5>
 51 | <CONSTANT UNDERWATER-LINE-C 6>
 52 | 
 53 | <GLOBAL ROAD-WHARF-LINE
 54 | 	<PTABLE 0 WINDING-ROAD-1 P?SE
 55 | 	       P?NW WINDING-ROAD-2 P?NE
 56 | 	       P?SW WINDING-ROAD-3 P?NE
 57 | 	       P?SW WHARF-ROAD-1 P?EAST
 58 | 	       P?WEST WHARF-ROAD-2 P?EAST
 59 | 	       P?WEST WHARF-ROAD-3 P?NORTH
 60 | 	       P?SOUTH WHARF 0>>
 61 | 	       
 62 | <GLOBAL EAST-ROAD-LINE
 63 | 	<PTABLE 0 WHARF-ROAD-4 P?EAST
 64 | 	       P?WEST WHARF-ROAD-5 P?SE
 65 | 	       P?NW OCEAN-ROAD-1 P?SOUTH
 66 | 	       P?NORTH OCEAN-ROAD-2 P?SOUTH
 67 | 	       P?NORTH OCEAN-ROAD-3 P?SW
 68 | 	       P?NE SHORE-ROAD-2 P?WEST
 69 | 	       P?EAST SHORE-ROAD-1 P?WEST
 70 | 	       P?EAST FERRY-LANDING 0>>
 71 | 
 72 | <GLOBAL BEDROOM-LINE
 73 | 	<PTABLE 0 RED-BOAR-INN P?UP
 74 | 	       P?DOWN UPSTAIRS-HALLWAY P?SOUTH
 75 | 	       P?NORTH BEDROOM 0>>
 76 | 
 77 | <GLOBAL BACK-ALLEY-LINE
 78 | 	<PTABLE 0 BACK-ALLEY-1 P?EAST
 79 | 	       P?WEST BACK-ALLEY-2 P?EAST
 80 | 	       P?WEST BACK-ALLEY-3 P?EAST
 81 | 	       P?WEST BACK-ALLEY-4 P?EAST
 82 | 	       P?WEST BACK-ALLEY-5 0>>
 83 | 
 84 | <GLOBAL TRAWLER-LINE
 85 | 	<PTABLE 0 NW-PORT-DECK P?NE
 86 | 	       P?SW NW-FORE-DECK P?SE
 87 | 	       P?NW NW-STARBOARD-DECK P?SW
 88 | 	       P?NE NW-AFT-DECK P?DOWN
 89 | 	       P?UP NW-LOUNGE P?NORTH
 90 | 	       P?SOUTH NW-GALLEY P?NORTH
 91 | 	       P?SOUTH NW-CREW-QTRS 0>>
 92 | 
 93 | <GLOBAL SALVAGER-LINE
 94 | 	<PTABLE 0 MM-STARBOARD-DECK P?NW
 95 | 	       P?SE MM-FORE-DECK P?SW
 96 | 	       P?NE MM-PORT-DECK P?SE
 97 | 	       P?NW MM-AFT-DECK P?DOWN
 98 | 	       P?UP MM-LOUNGE P?NORTH
 99 | 	       P?SOUTH MM-GALLEY P?NORTH
100 | 	       P?SOUTH MM-CREW-QTRS 0>>
101 | 
102 | <GLOBAL TRANSFER-TABLE
103 | 	<PTABLE 0 0
104 | 	       WHARF-ROAD-3 WHARF-ROAD-4
105 | 	       WHARF-ROAD-1 RED-BOAR-INN
106 | 	       WHARF-ROAD-3 WHARF-ROAD-4
107 | 	       WHARF NW-STARBOARD-DECK
108 | 	       WHARF MM-PORT-DECK
109 | 
110 | 	       WHARF-ROAD-4 WHARF-ROAD-3
111 | 	       0 0
112 | 	       WHARF-ROAD-4 WHARF-ROAD-3
113 | 	       OCEAN-ROAD-1 BACK-ALLEY-5
114 | 	       WHARF-ROAD-4 WHARF-ROAD-3
115 | 	       WHARF-ROAD-4 WHARF-ROAD-3
116 | 
117 | 	       RED-BOAR-INN WHARF-ROAD-1
118 | 	       RED-BOAR-INN WHARF-ROAD-1
119 | 	       0 0
120 | 	       RED-BOAR-INN WHARF-ROAD-1
121 | 	       RED-BOAR-INN WHARF-ROAD-1
122 | 	       RED-BOAR-INN WHARF-ROAD-1
123 | 
124 | 	       BACK-ALLEY-5 OCEAN-ROAD-1
125 | 	       BACK-ALLEY-5 OCEAN-ROAD-1
126 | 	       BACK-ALLEY-5 OCEAN-ROAD-1
127 | 	       0 0
128 | 	       BACK-ALLEY-5 OCEAN-ROAD-1
129 | 	       BACK-ALLEY-5 OCEAN-ROAD-1
130 | 
131 | 	       NW-STARBOARD-DECK WHARF
132 | 	       NW-STARBOARD-DECK WHARF
133 | 	       NW-STARBOARD-DECK WHARF
134 | 	       NW-STARBOARD-DECK WHARF
135 | 	       0 0
136 | 	       NW-STARBOARD-DECK WHARF
137 | 
138 | 	       MM-PORT-DECK WHARF
139 | 	       MM-PORT-DECK WHARF
140 | 	       MM-PORT-DECK WHARF
141 | 	       MM-PORT-DECK WHARF
142 | 	       MM-PORT-DECK WHARF
143 | 	       0 0>>
144 | 
145 | <GLOBAL COR-1
146 | 	<PTABLE P?NW P?SE
147 | 	       WINDING-ROAD-1 WINDING-ROAD-2 0>>
148 | 
149 | <GLOBAL COR-2
150 | 	<PTABLE P?SW P?NE
151 | 	       WINDING-ROAD-2 WINDING-ROAD-3 WHARF-ROAD-1 0>>
152 | 
153 | <GLOBAL COR-4
154 | 	<PTABLE P?WEST P?EAST
155 | 	       WHARF-ROAD-1 WHARF-ROAD-2 WHARF-ROAD-3 WHARF-ROAD-4
156 | 	       WHARF-ROAD-5 0>>
157 | 
158 | <GLOBAL COR-8
159 | 	<PTABLE P?NW P?SE
160 | 	       WHARF-ROAD-5 OCEAN-ROAD-1 0>>
161 | 
162 | <GLOBAL COR-16
163 | 	<PTABLE P?NORTH P?SOUTH
164 | 	       OCEAN-ROAD-1 OCEAN-ROAD-2 OCEAN-ROAD-3 0>>
165 | 
166 | <GLOBAL COR-32
167 | 	<PTABLE P?NW P?SE
168 | 	       OCEAN-ROAD-3 POINT-LOOKOUT 0>>
169 | 
170 | <GLOBAL COR-64
171 | 	<PTABLE P?SW P?NE
172 | 	       SHORE-ROAD-2 OCEAN-ROAD-3 0>>
173 | 
174 | <GLOBAL COR-128
175 | 	<PTABLE P?WEST P?EAST
176 | 	       FERRY-LANDING SHORE-ROAD-1 SHORE-ROAD-2 0>>
177 | 
178 | <GLOBAL COR-256
179 | 	<PTABLE P?NORTH P?SOUTH
180 | 	       WHARF WHARF-ROAD-3 VACANT-LOT BACK-ALLEY-3 0>>
181 | 
182 | <GLOBAL COR-512
183 | 	<PTABLE P?WEST P?EAST
184 | 	       BACK-ALLEY-1 BACK-ALLEY-2 BACK-ALLEY-3 BACK-ALLEY-4
185 | 	       BACK-ALLEY-5 0>>
186 | 
187 | ;"up to 16 corridors (65536)"
188 | 
189 | "CODE"
190 | 
191 | <ROUTINE FOLLOW-GOAL (PERSON "AUX" (HERE <LOC .PERSON>) LINE LN RM GT GOAL FLG
192 | 		      		   (GOAL-FLAG <>) (IGOAL <>) LOC (CNT 1) DIR)
193 | 	 #DECL ((PERSON HERE LOC RM) OBJECT (LN CNT) FIX
194 | 		(GOAL-FLAG) <OR ATOM FALSE>)
195 | 	 <SET GT <GET ,GOAL-TABLES <GETP .PERSON ,P?CHARACTER>>>
196 | 	 <COND (<==? .HERE <GET .GT ,GOAL-F>>
197 | 		<PUT .GT ,GOAL-S <>>
198 | 		<RETURN <>>)
199 | 	       (<NOT <GET .GT ,GOAL-ENABLE>> <RFALSE>)>
200 | 	 <COND (<NOT <EQUAL? <SET LOC <GETP .HERE ,P?STATION>>
201 | 			     .HERE>>
202 | 		<RETURN <MOVE-PERSON .PERSON .LOC>>)>
203 | 	 ;%<COND (<GASSIGNED? PREDGEN>
204 | 		 '<>)
205 | 		(T
206 | 		 '<COND (<NOT <EQUAL? <SET LOC ,<GETP .HERE ,P?STATION>>
207 | 				      .HERE>>
208 | 			 <RETURN <MOVE-PERSON .PERSON .LOC>>)>)>
209 | 	 <COND (<==? <SET GOAL <GET ,TRANSFER-TABLE
210 | 				    <SET IGOAL <GET .GT ,GOAL-I>>>> 0>
211 | 		<SET IGOAL <>>
212 | 		<SET GOAL <GET .GT ,GOAL-S>>)>
213 | 	 <COND (<NOT .GOAL> <RFALSE>)
214 | 	       (<==? .HERE .GOAL>
215 | 		<COND (.IGOAL
216 | 		       <SET FLG <MOVE-PERSON .PERSON
217 | 				             <GET ,TRANSFER-TABLE
218 | 						  <+ .IGOAL 1>>>>
219 | 		       <ESTABLISH-GOAL .PERSON <GET .GT ,GOAL-F>>
220 | 		       <RETURN .FLG>)
221 | 		      (<NOT <==? .HERE <GET .GT ,GOAL-F>>>
222 | 		       <PUT .GT ,GOAL-S <>>
223 | 		       <SET FLG <MOVE-PERSON .PERSON <GET .GT ,GOAL-F>>>
224 | 		       <RETURN .FLG>)
225 | 		      (T
226 | 		       <PUT .GT ,GOAL-S <>>
227 | 		       <RETURN <>>)>)>
228 | 	 <SET LINE <GET-LINE <GETP .GOAL ,P?LINE>>>
229 | 	 <REPEAT ()
230 | 		 <COND (<==? <SET RM <GET .LINE .CNT>> .HERE>
231 | 		        <COND (.GOAL-FLAG
232 | 			       <SET LOC <GET .LINE <- .CNT 3>>>)
233 | 			      (T
234 | 			       <SET LOC <GET .LINE <+ .CNT 3>>>)>
235 | 			<RETURN <MOVE-PERSON .PERSON .LOC>>)
236 | 		       (<==? .RM .GOAL>
237 | 			<SET GOAL-FLAG T>)>
238 | 		 <SET CNT <+ .CNT 3>>>>
239 | 
240 | <ROUTINE COR-DIR (HERE THERE "AUX" COR RM (PAST 0) (CNT 2))
241 | 	 <SET COR <GET-COR <BAND <GETP .THERE ,P?CORRIDOR>
242 | 				 <GETP .HERE ,P?CORRIDOR>>>>
243 | 	 <REPEAT ()
244 | 		 <COND (<==? <SET RM <GET .COR .CNT>> .HERE>
245 | 			<SET PAST 1>
246 | 			<RETURN>)
247 | 		       (<==? .RM .THERE>
248 | 			<RETURN>)>
249 | 		 <SET CNT <+ .CNT 1>>>
250 | 	 <GET .COR .PAST>>
251 | 
252 | <ROUTINE GET-LINE (LN)
253 | 	 <COND (<==? .LN 0> ,ROAD-WHARF-LINE)
254 | 	       (<==? .LN 1> ,EAST-ROAD-LINE)
255 | 	       (<==? .LN 2> ,BEDROOM-LINE)
256 | 	       (<==? .LN 3> ,BACK-ALLEY-LINE)
257 | 	       (<==? .LN 4> ,TRAWLER-LINE)
258 | 	       (<==? .LN 5> ,SALVAGER-LINE)>>
259 | 
260 | <ROUTINE GET-COR (NUM)
261 | 	 #DECL ((NUM) FIX)
262 | 	 <COND (<==? .NUM 1> ,COR-1)
263 | 	       (<==? .NUM 2> ,COR-2)
264 | 	       (<==? .NUM 4> ,COR-4)
265 | 	       (<==? .NUM 8> ,COR-8)
266 | 	       (<==? .NUM 16> ,COR-16)
267 | 	       (<==? .NUM 32> ,COR-32)
268 | 	       (<==? .NUM 64> ,COR-64)
269 | 	       (<==? .NUM 128> ,COR-128)
270 | 	       (<==? .NUM 256> ,COR-256)
271 | 	       (T ,COR-512)>>
272 | 
273 | "Goal tables for the 4 characters (plus delivery boy), offset by a constant,
274 | which, for a given character, is the P?CHARACTER property of the object."
275 | 
276 | <GLOBAL GOAL-TABLES
277 | 	<TABLE <TABLE <> <> <> 1 <> I-FOLLOW 5 5>
278 | 	       <TABLE <> <> <> 1 <> I-MCGINTY 5 5>
279 | 	       <TABLE <> <> <> 1 <> I-JOHNNY 5 5>
280 | 	       <TABLE <> <> <> 1 <> I-PETE 5 5>
281 | 	       <TABLE <> <> <> 1 <> I-WEASEL 5 5>
282 | 	       <TABLE <> <> <> 1 <> I-DELIVERY-BOY 0 0>>>
283 | 
284 | <CONSTANT CHARACTER-MAX 5>
285 | <CONSTANT MCGINTY-C 1>
286 | <CONSTANT JOHNNY-C 2>
287 | <CONSTANT PETE-C 3>
288 | <CONSTANT WEASEL-C 4>
289 | <CONSTANT DELIVERY-BOY-C 5>
290 | 
291 | "Offsets into GOAL-TABLEs"
292 | 
293 | <CONSTANT GOAL-F 0> ;"final goal"
294 | <CONSTANT GOAL-S 1> ;"station of final goal"
295 | <CONSTANT GOAL-I 2> ;"intermediate goal (transfer point)"
296 | <CONSTANT GOAL-ENABLE 3> ;"character can move; usually false only when he's
297 | 			   interrupted enroute"
298 | <CONSTANT GOAL-QUEUED 4> ;"secondary goal to go to when current, higher-
299 | 			   priority one has been reached"
300 | <CONSTANT GOAL-FUNCTION 5> ;"routine to apply on arrival"
301 | <CONSTANT ATTENTION-SPAN 6> ;"how long character will wait when interrupted"
302 | <CONSTANT ATTENTION 7> ;"used to count down from ATTENTION-SPAN to 0"
303 | 
304 | "Goal-function constants, similar to M-xxx in MAIN"
305 | 
306 | <CONSTANT G-REACHED 1>
307 | <CONSTANT G-ENROUTE 2>
308 | 
309 | "Routines to do looking down corridors"
310 | 
311 | <ROUTINE CORRIDOR-LOOK ("OPTIONAL" (ITM <>) "AUX" C Z COR VAL (FOUND <>))
312 | 	 <COND (<SET C <GETP ,HERE ,P?CORRIDOR>>
313 | 		<REPEAT ()
314 | 			<COND ;(<NOT <L? <SET Z <- .C 1024>> 0>>
315 | 			       <SET COR ,COR-1024>)
316 | 			      (<NOT <L? <SET Z <- .C 512>> 0>>
317 | 			       <SET COR ,COR-512>)
318 | 			      (<NOT <L? <SET Z <- .C 256>> 0>>
319 | 			       <SET COR ,COR-256>)
320 | 			      (<NOT <L? <SET Z <- .C 128>> 0>>
321 | 			       <SET COR ,COR-128>)
322 | 			      (<NOT <L? <SET Z <- .C 64>> 0>>
323 | 			       <SET COR ,COR-64>)
324 | 			      (<NOT <L? <SET Z <- .C 32>> 0>>
325 | 			       <SET COR ,COR-32>)
326 | 			      (<NOT <L? <SET Z <- .C 16>> 0>>
327 | 			       <SET COR ,COR-16>)
328 | 			      (<NOT <L? <SET Z <- .C 8>> 0>>
329 | 			       <SET COR ,COR-8>)
330 | 			      (<NOT <L? <SET Z <- .C 4>> 0>>
331 | 			       <SET COR ,COR-4>)
332 | 			      (<NOT <L? <SET Z <- .C 2>> 0>>
333 | 			       <SET COR ,COR-2>)
334 | 			      (<NOT <L? <SET Z <- .C 1>> 0>>
335 | 			       <SET COR ,COR-1>)
336 | 			      (T <RETURN>)>
337 | 			<SET VAL <CORRIDOR-CHECK .COR .ITM>>
338 | 			<COND (<NOT .FOUND> <SET FOUND .VAL>)>
339 | 			<SET C .Z>>
340 | 		.FOUND)>>
341 | 
342 | <ROUTINE CORRIDOR-CHECK (COR ITM "AUX" (CNT 2) (PAST 0) (FOUND <>) RM OBJ)
343 | 	 <REPEAT ()
344 | 		 <COND (<==? <SET RM <GET .COR .CNT>> 0>
345 | 			<RFALSE>)
346 | 		       (<==? .RM ,HERE> <SET PAST 1>)
347 | 		       (<SET OBJ <FIRST? .RM>>
348 | 			<REPEAT ()
349 | 				<COND (.ITM
350 | 				       <COND (<==? .OBJ .ITM>
351 | 					      <SET FOUND <GET .COR .PAST>>
352 | 					      <RETURN>)>)
353 | 				      (<AND <GETP .OBJ ,P?CHARACTER>
354 | 					    <NOT <IN-MOTION? .OBJ>>
355 | 					    <OR <NOT <==? .OBJ ,MCGINTY>>
356 | 						<NOT <QUEUED?
357 | 						      I-MCGINTY-FOLLOWS>>
358 | 						<NOT <VERB? WALK FOLLOW>>>>
359 | 				       <START-SENTENCE .OBJ>
360 | 				       <TELL " is ">
361 | 				       ;<COND (<IN-MOTION? .OBJ>
362 | 					      <TELL "in motion ">)>
363 | 				       <TELL "off to ">
364 | 				       <DIR-PRINT <GET .COR .PAST>>
365 | 				       <TELL ".">
366 | 				       <CRLF>)>
367 | 				<SET OBJ <NEXT? .OBJ>>
368 | 				<COND (<NOT .OBJ> <RETURN>)>>
369 | 			<COND (.FOUND <RETURN .FOUND>)>)>
370 | 		 <SET CNT <+ .CNT 1>>>>
371 | 
372 | <GLOBAL CHARACTER-TABLE <PTABLE PLAYER MCGINTY JOHNNY PETE WEASEL DELIVERY-BOY>>
373 | 
374 | "Goal tables for the 6 characters (including PLAYER), offset
375 | by the preceding constants, which, for a given character,
376 | is the P?CHARACTER property of the object."
377 | 
378 | "The ATTENTION-TABLE is now a thing of the past. ATTENTION
379 | in the GOAL-TABLES is used instead."
380 | 
381 | "Here's how the movement goals are done:  For each player is
382 | a table which consists of triplets, a number of minutes until
383 | the next movement (an clock interrupt number), a number of
384 | minutes allowed variation (for a bit of randomness), and a
385 | room toward which to start. All movement is controlled by
386 | the GOAL-ENABLE flag in the GOAL-TABLE for a character."
387 | 
388 | "Time starts at 8AM. Characters are at that point in their
389 | starting positions, as reflected in PEOPLE."
390 | 
391 | <GLOBAL MOVEMENT-GOALS <TABLE
392 | 	;"PLAYER"
393 | 	<TABLE 0 0 0>
394 | 	;"MCGINTY"
395 | 	<TABLE 0
396 | 	       58  2 SHANTY
397 | 	       15  1 MCGINTY-HQ
398 | 	       65  2 BANK
399 | 	       16  5 OUTFITTERS-HQ
400 | 	       30  3 MCGINTY-HQ
401 | 	       75  5 SHANTY
402 | 	       30  5 MCGINTY-HQ
403 | 	       ;69  ;2 ;MM-FORE-DECK
404 | 	       0>
405 | 	;"JOHNNY"
406 | 	<TABLE 0
407 | 	       61  2 WINDING-ROAD-1
408 | 	       75  5 SHANTY
409 | 	       0>
410 | 	;"PETE"
411 | 	<TABLE 0
412 | 	       72  2 WINDING-ROAD-1
413 | 	       81  5 SHANTY
414 | 	       197 5 MM-GALLEY
415 | 	       0>
416 | 	;"WEASEL"
417 | 	<TABLE 0
418 | 	       8   5 UPSTAIRS-HALLWAY
419 | 	       58  2 WINDING-ROAD-1
420 | 	       78  5 UPSTAIRS-HALLWAY
421 | 	       85  1 FERRY-LANDING
422 | 	       0>
423 | 	;"DELIVERY-BOY"
424 | 	<TABLE 0
425 | 	       345 1 MM-LOCKER
426 | 	       0>>>
427 | 
428 | <GLOBAL WEASEL-RETIRES-TABLE
429 | 	<TABLE 0
430 | 	       5  1  BACK-ALLEY-5
431 | 	       45 5  BANK
432 | 	       10 5  FERRY-LANDING
433 | 	       0>>
434 | 
435 | <GLOBAL JOHNNY-CONTINUES-TABLE
436 | 	<TABLE 0
437 | 	       5  1  OUTFITTERS-HQ
438 | 	       60 5  POINT-LOOKOUT
439 | 	       25 1  SHANTY
440 | 	       0>>
441 | 
442 | <GLOBAL JOHNNY-COMPLETES-TABLE
443 | 	<TABLE 0
444 | 	       200 5 MM-CAPT-CABIN
445 | 	       0>>
446 | 
447 | <ROUTINE IN-MOTION? (PERSON "AUX" GT)
448 | 	 <SET GT <GET ,GOAL-TABLES <GETP .PERSON ,P?CHARACTER>>>
449 | 	 <COND (<AND <OR <GET .GT ,GOAL-ENABLE>
450 | 			 <==? <GET .GT ,ATTENTION> 1>>
451 | 		     <GET .GT ,GOAL-S>
452 | 		     <NOT <==? <LOC .PERSON> <GET .GT ,GOAL-F>>>>
453 | 		<RTRUE>)
454 | 	       (T <RFALSE>)>>
455 | 
456 | <ROUTINE START-MOVEMENT ()
457 | 	 <ENABLE <QUEUE I-MCGINTY 1>>
458 | 	 <ENABLE <QUEUE I-JOHNNY 1>>
459 | 	 <ENABLE <QUEUE I-PETE 1>>
460 | 	 <ENABLE <QUEUE I-WEASEL 1>>
461 | 	 <ENABLE <QUEUE I-DELIVERY-BOY 1>>
462 | 	 <ENABLE <QUEUE I-FOLLOW -1>>
463 | 	 <ENABLE <QUEUE I-ATTENTION -1>>
464 | 	 <ENABLE <QUEUE I-DISGUSTING-WEASEL-KLUDGE 35>>>
465 | 
466 | "This routine does the interrupt-driven goal establishment
467 | for the various characters, using the MOVEMENT-GOALS table."
468 | 
469 | <CONSTANT MG-ROOM 0>
470 | <CONSTANT MG-TIME 1>
471 | <CONSTANT MG-VARIATION 2>
472 | <CONSTANT MG-LENGTH <* 3 2>>
473 | <CONSTANT MG-NEXT 4>
474 | 
475 | <ROUTINE IMOVEMENT (PERSON INT "AUX" TB VAR DIS TIM ID RM GT)
476 | 	 #DECL ((PERSON) OBJECT (TB) <PRIMTYPE VECTOR> (ID VAR DIS TIM) FIX)
477 | 	 <SET TB <GET ,MOVEMENT-GOALS <SET ID <GETP .PERSON ,P?CHARACTER>>>>
478 | 	 <SET GT <GET ,GOAL-TABLES .ID>>
479 | 	 <COND (<NOT <==? 0 <SET RM <GET .TB ,MG-ROOM>>>>
480 | 		<COND (<GET .GT ,GOAL-QUEUED>
481 | 		       <PUT .GT ,GOAL-QUEUED .RM>)
482 | 		      (T
483 | 		       <ESTABLISH-GOAL .PERSON .RM>)>)>
484 | 	 <COND (<NOT <==? 0 <SET TIM <GET .TB ,MG-TIME>>>>
485 | 		<SET VAR <GET .TB ,MG-VARIATION>>
486 | 		<SET DIS <RANDOM <* .VAR 2>>>
487 | 	        <QUEUE .INT <+ .TIM <- .DIS .VAR>>>
488 | 		<PUT ,MOVEMENT-GOALS .ID <REST .TB ,MG-LENGTH>>
489 | 		<COND (<NOT <==? 0 <GET .TB ,MG-NEXT>>>
490 | 		       <PUT .TB
491 | 			    ,MG-NEXT
492 | 			    <+ <GET .TB ,MG-NEXT> <- .VAR .DIS>>>)>)>
493 | 	 <RFALSE>>
494 | 
495 | <ROUTINE I-FOLLOW ("AUX" (FLG <>) (CNT 0) GT VAL)
496 | 	 <REPEAT ()
497 | 		 <COND (<G? <SET CNT <+ .CNT 1>> ,CHARACTER-MAX>
498 | 			<RETURN>)
499 | 		       (<AND <GET <SET GT <GET ,GOAL-TABLES .CNT>> ,GOAL-S>
500 | 			     <OR <GET .GT ,GOAL-ENABLE>
501 | 				 <0? <GET .GT ,ATTENTION>>>>
502 | 			<PUT .GT ,GOAL-ENABLE T>
503 | 			<COND (<SET VAL
504 | 				    <FOLLOW-GOAL <GET ,CHARACTER-TABLE .CNT>>>
505 | 			       <COND (<NOT <==? .FLG ,M-FATAL>>
506 | 				      <SET FLG .VAL>)>)>)>>
507 | 	 .FLG>
508 | 
509 | <ROUTINE I-ATTENTION ("AUX" (FLG <>) (CNT 0) ATT GT)
510 | 	 <REPEAT ()
511 | 		 <COND (<G? <SET CNT <+ .CNT 1>> ,CHARACTER-MAX> <RETURN>)
512 | 	       	       (<0? <SET ATT <- <GET
513 | 					  <SET GT <GET ,GOAL-TABLES .CNT>>
514 | 					  ,ATTENTION> 1>>>
515 | 			<PUT .GT ,GOAL-ENABLE T>)
516 | 		       ;(<==? <SET ATT <- <GET
517 | 					  <SET GT <GET ,GOAL-TABLES .CNT>>
518 | 					  ,ATTENTION> 1>> 1>
519 | 			<COND (<AND <IN? <GET ,CHARACTER-TABLE .CNT> ,HERE>
520 | 				    <NOT ,ASLEEP?>>
521 | 			       <START-SENTENCE <GET ,CHARACTER-TABLE .CNT>>
522 | 			       <TELL " is acting impatient." CR>
523 | 			       <SET FLG T>)>)
524 | 		       ;(<==? .ATT 0>
525 | 			<PUT .GT ,GOAL-ENABLE T>)>
526 | 		 <PUT .GT ,ATTENTION .ATT>>
527 | 	 .FLG>
528 | 
529 | <ROUTINE GRAB-ATTENTION (PERSON "AUX" (CHR<GETP .PERSON ,P?CHARACTER>) GT ATT)
530 | 	 #DECL ((PERSON) OBJECT (ATT) FIX)
531 | 	 <SET GT <GET ,GOAL-TABLES .CHR>>
532 | 	 <COND (<GET .GT ,GOAL-S>
533 | 		<PUT .GT ,ATTENTION <SET ATT <GET .GT ,ATTENTION-SPAN>>>
534 | 		<COND (<==? .ATT 0>
535 | 		       <PUT .GT ,GOAL-ENABLE T>
536 | 		       <RFALSE>)
537 | 		      (<GET .GT ,GOAL-ENABLE>
538 | 		       <PUT .GT ,GOAL-ENABLE <>>)>)>
539 | 	 <SETG QCONTEXT .PERSON>
540 | 	 <SETG QCONTEXT-ROOM ,HERE>
541 | 	 <RTRUE>>
542 | 
543 | "Movement etc."
544 | 
545 | ;<ROUTINE UNPRIORITIZE (PERSON "AUX" GT)
546 | 	 <SET GT <GET ,GOAL-TABLES <GETP .PERSON ,P?CHARACTER>>>
547 | 	 <COND (<GET .GT ,GOAL-QUEUED>
548 | 		<ESTABLISH-GOAL .PERSON <GET .GT ,GOAL-QUEUED>>
549 | 		<PUT .GT ,GOAL-QUEUED <>>)>>
550 | 
551 | <ROUTINE ESTABLISH-GOAL (PERSON GOAL "OPTIONAL" (PRIORITY <>)
552 | 			 	     "AUX" (HERE <LOC .PERSON>) HL GL GT)
553 | 	 #DECL ((PERSON GOAL HERE) OBJECT (HL GL) FIX
554 | 		(PRIORITY) <OR FALSE ATOM>)
555 | 	 ;<COND (<==? .HERE .GOAL>
556 | 		<RETURN .HERE>)>
557 | 	 <SET GT <GET ,GOAL-TABLES <GETP .PERSON ,P?CHARACTER>>>
558 | 	 <COND (.PRIORITY
559 | 		<PUT .GT ,GOAL-ENABLE T>
560 | 		<PUT .GT ,GOAL-QUEUED .HERE>)>
561 | 	 <PUT .GT ,GOAL-I <+ <* <GETP .HERE ,P?LINE> 12>
562 | 			     <* <GETP .GOAL ,P?LINE> 2>>>
563 | 	 <PUT .GT
564 | 	      ,GOAL-S
565 | 	      <GETP .GOAL ,P?STATION>
566 | 	      ;%<COND (<GASSIGNED? PREDGEN> '<>)
567 | 		     (T			  ',<GETP .GOAL ,P?STATION>)>>
568 | 	 <PUT .GT ,GOAL-F .GOAL>
569 | 	 <LOC .PERSON>>
570 | 
571 | <ROUTINE GOAL-REACHED (PERSON "AUX" GT)
572 | 	 #DECL ((PERSON) OBJECT)
573 | 	 <PUT <SET GT <GET ,GOAL-TABLES <GETP .PERSON ,P?CHARACTER>>>
574 | 	      ,GOAL-S <>>
575 | 	 <APPLY <GET .GT ,GOAL-FUNCTION>
576 | 		,G-REACHED>>
577 | 
578 | <ROUTINE MOVE-PERSON (PERSON WHERE "AUX" DIR GT OL COR PCOR CHR PUSHCART
579 | 		      			 (FLG <>) ;DR (VAL <>) DF CD)
580 | 	 #DECL ((PERSON WHERE) OBJECT)
581 | 	 <SET GT <GET ,GOAL-TABLES <SET CHR <GETP .PERSON ,P?CHARACTER>>>>
582 | 	 <SET OL <LOC .PERSON>>
583 | 	 <SET DIR <DIR-FROM .OL .WHERE>>
584 | 	 <SET PUSHCART ", pushing his cart">
585 | 	 ;<COND (<==? <PTSIZE <SET DR <GETPT .OL .DIR>>> ,DEXIT>
586 | 		<SET DR <GETB .DR ,DEXITOBJ>>
587 | 		<COND (<NOT <FSET? .DR ,OPENBIT>>
588 | 		       <FSET .DR ,OPENBIT>
589 | 		       ;<COND (<NOT <FSET? .DR ,LOCKED>> <FSET .DR ,OPENBIT>)>)
590 | 		      (T <SET DR <>>)>)
591 | 	       (T <SET DR <>>)>
592 | 	 <COND (<AND <==? .OL ,HERE>
593 | 		     <NOT <FSET? .PERSON ,INVISIBLE>>>
594 | 		<SET FLG T>
595 | 		<START-SENTENCE .PERSON>
596 | 		<COND (<==? .DIR ,P?OUT>
597 | 		       <TELL " leaves the room">
598 | 		       <COND (<==? .PERSON ,DELIVERY-BOY> <TELL .PUSHCART>)>
599 | 		       <TELL "." CR>)
600 | 		      (<==? .DIR ,P?IN>
601 | 		       ;<COND (.DR
602 | 			      <TELL " opens the " D .DR " and">)>
603 | 		       <TELL " goes into another room">
604 | 		       ;<COND (<AND .DR
605 | 				   <FSET? .DR ,LOCKED>>
606 | 			      ;<FCLEAR .DR ,OPENBIT>
607 | 			      <TELL ", locking the door again">)>
608 | 		       <TELL "." CR>)
609 | 		      (T
610 | 		       ;<COND (.DR
611 | 			      <TELL " opens the " D .DR " and">)>
612 | 		       <TELL " heads ">
613 | 		       <COND (<AND <L? <GETP ,HERE ,P?LINE> ,TRAWLER-LINE-C>
614 | 				   <NOT <EQUAL? .DIR ,P?UP ,P?DOWN>>>
615 | 			      <TELL "off to ">)>
616 | 		       <DIR-PRINT .DIR>
617 | 		       ;<COND (<AND .DR
618 | 				   <FSET? .DR ,LOCKED>>
619 | 			      ;<FCLEAR .DR ,OPENBIT>
620 | 			      <TELL ", locking the door again">)>
621 | 		       <COND (<==? .PERSON ,DELIVERY-BOY> <TELL .PUSHCART>)>
622 | 		       <TELL "." CR>)>)
623 | 	       (<AND <==? .WHERE ,HERE>
624 | 		     <NOT <FSET? .PERSON ,INVISIBLE>>>
625 | 		<SET FLG ,M-FATAL>
626 | 		<COND (<NOT <==? ,HERE <GET .GT ,GOAL-F>>>
627 | 		       <START-SENTENCE .PERSON>
628 | 		       <TELL " walks ">
629 | 		       <COND (<AND <VERB? WALK>
630 | 				   <==? .WHERE ,HERE>
631 | 				   <==? .OL ,LAST-PLAYER-LOC>>
632 | 			      <TELL "along with">)
633 | 			     (T <TELL "past">)>
634 | 		       <TELL " you">
635 | 		       <COND (<==? .PERSON ,DELIVERY-BOY> <TELL .PUSHCART>)>
636 | 		       <TELL "." CR>)>)
637 | 	       (<AND <SET COR <GETP ,HERE ,P?CORRIDOR>>
638 | 		     <NOT <FSET? .PERSON ,INVISIBLE>>>
639 | 		<COND (<AND <SET PCOR <GETP .OL ,P?CORRIDOR>>
640 | 			    <NOT <==? <BAND .COR .PCOR> 0>>>
641 | 		       <SET FLG T>
642 | 		       <COND (<NOT <GETP .WHERE ,P?CORRIDOR>>
643 | 			      <START-SENTENCE .PERSON>
644 | 			      <TELL ", off to ">
645 | 			      <DIR-PRINT <COR-DIR ,HERE .OL>>
646 | 			      <TELL ",">
647 | 			      ;<COND (.DR
648 | 				     <TELL " opens a door and">)>
649 | 			      <TELL " leaves your view">
650 | 			      <TELL " to ">
651 | 			      <DIR-PRINT <DIR-FROM .OL .WHERE>>
652 | 			      ;<COND (<AND .DR
653 | 					  <FSET? .DR ,LOCKED>>
654 | 				     ;<FCLEAR .DR ,OPENBIT>
655 | 				     <TELL ", locking the door again">)>
656 | 			      <COND (<==? .PERSON ,DELIVERY-BOY>
657 | 				     <TELL .PUSHCART>)>
658 | 			      <TELL "." CR>)
659 | 			     (<0? <BAND .COR <GETP .WHERE ,P?CORRIDOR>>>
660 | 			      <START-SENTENCE .PERSON>
661 | 			      <TELL ", off to ">
662 | 			      <DIR-PRINT <COR-DIR ,HERE .OL>>
663 | 			      <TELL ", disappears from sight to ">
664 | 			      <DIR-PRINT <SET PCOR <DIR-FROM .OL .WHERE>>>
665 | 			      <COND (<==? .PERSON ,DELIVERY-BOY>
666 | 				     <TELL .PUSHCART>)>
667 | 			      <TELL "." CR>)
668 | 			     (T
669 | 			      <START-SENTENCE .PERSON>
670 | 			      <TELL " is to ">
671 | 			      <DIR-PRINT <SET CD <COR-DIR ,HERE .WHERE>>>
672 | 			      <TELL ", heading ">
673 | 			      <COND (<==? .CD <SET DF <DIR-FROM .OL .WHERE>>>
674 | 				     <TELL "away from you">)
675 | 				    (T
676 | 				     <TELL "toward ">
677 | 			      	     <DIR-PRINT .DF>)>
678 | 			      <COND (<==? .PERSON ,DELIVERY-BOY>
679 | 				     <TELL .PUSHCART>)>
680 | 			      <TELL "." CR>)>)
681 | 		      (<AND <SET PCOR <GETP .WHERE ,P?CORRIDOR>>
682 | 			    <NOT <==? <BAND .COR .PCOR> 0>>>
683 | 		       <SET FLG T>
684 | 		       <TELL "To ">
685 | 		       <DIR-PRINT <COR-DIR ,HERE .WHERE>>
686 | 		       <TELL " ">
687 | 		       <THE? .PERSON>
688 | 		       <TELL D .PERSON " comes into view from ">
689 | 		       <DIR-PRINT <DIR-FROM .WHERE .OL>>
690 | 		       <COND (<==? .PERSON ,DELIVERY-BOY> <TELL .PUSHCART>)>
691 | 		       <TELL "." CR>)>)>
692 | 	 ;<WHERE-UPDATE .PERSON .FLG>
693 | 	 <MOVE .PERSON .WHERE>
694 | 	 <COND (<==? <GET .GT ,GOAL-F> .WHERE>
695 | 		<COND (<AND <NOT <SET VAL <GOAL-REACHED .PERSON>>>
696 | 			    <==? ,HERE .WHERE>
697 | 			    <NOT <FSET? .PERSON ,INVISIBLE>>>
698 | 		       <SET FLG ,M-FATAL>
699 | 		       <START-SENTENCE .PERSON>
700 | 		       <TELL " stops here." CR>)>)
701 | 	       (T <APPLY <GET .GT ,GOAL-FUNCTION> ,G-ENROUTE>)>
702 | 	;<COND (,DEBUG
703 | 	       <TELL "[">
704 | 	       <START-SENTENCE .PERSON>
705 | 	       <TELL " just went into ">
706 | 	       <THE? .WHERE>
707 | 	       <TELL D .WHERE ".]" CR>)>
708 | 	 <COND (<==? .VAL ,M-FATAL> .VAL)
709 | 	       (T .FLG)>>
710 | 
711 | <ROUTINE DIR-FROM (HERE THERE "AUX" (V <>) (P 0) L Z O)
712 | 	 #DECL ((HERE THERE O) OBJECT (P L) FIX)
713 |  <REPEAT ()
714 | 	 <COND (<0? <SET P <NEXTP .HERE .P>>>
715 | 		<RETURN .V>)
716 | 	       (<EQUAL? .P ,P?IN ,P?OUT> T)
717 | 	       (<NOT <L? .P ,LOW-DIRECTION>>
718 | 		<SET Z <GETPT .HERE .P>>
719 | 		<SET L <PTSIZE .Z>>
720 | 		<COND (<AND <EQUAL? .L ,DEXIT ,UEXIT ,CEXIT>
721 | 			    <==? <GETB .Z ,REXIT> .THERE>>
722 | 		       <COND (<EQUAL? .P ,P?UP ,P?DOWN>
723 | 			      <SET V .P>)
724 | 			     (T <RETURN .P>)>)
725 | 		      (<AND <NOT .V>
726 | 			    <EQUAL? .L ,FEXIT>>
727 | 		       <SET V .P>)>)>>>
728 | 
729 | ;<ROUTINE WHERE-UPDATE (PERSON "OPTIONAL" (FLG <>) "AUX" WT NC (CNT 0))
730 | 	 <SET NC <GETP .PERSON ,P?CHARACTER>>
731 | 	 <SET WT <GET ,WHERE-TABLES .NC>>
732 | 	 <REPEAT ()
733 | 		 <COND (<G? .CNT ,CHARACTER-MAX> <RETURN>)
734 | 		       (<==? .CNT .NC>)
735 | 		       (<OR <AND <0? .CNT> .FLG>
736 | 			    <IN? <GET ,CHARACTER-TABLE .CNT> <LOC .PERSON>>>
737 | 			<PUT .WT .CNT ,PRESENT-TIME>
738 | 			<PUT <GET ,WHERE-TABLES .CNT> .NC ,PRESENT-TIME>)>
739 | 		 <SET CNT <+ .CNT 1>>>>
740 | 
741 | ;<GLOBAL WHERE-TABLES
742 |         <TABLE <TABLE 0 0 0 0 0>
743 | 	       <TABLE 0 0 0 0 0>
744 | 	       <TABLE 0 0 0 0 0>
745 | 	       <TABLE 0 0 0 0 0>
746 | 	       <TABLE 0 0 0 0 0>>>


--------------------------------------------------------------------------------
/syntax.zil:
--------------------------------------------------------------------------------
  1 | "SYNTAX for
  2 | 			      TOA #2
  3 | 	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved.
  4 | "
  5 | 
  6 | "SUBTITLE VOCABULARY"
  7 | 
  8 | <BUZZ A AN THE IS AND SOME OF THEN ALL ONE BUT EXCEPT \. \, \" 
  9 |       WHY HOW WHEN DID ARE HERE MY CLOSELY ;CAREFULLY QUIETLY
 10 |       SLOWLY QUICKLY BRIEFLY PLEASE MINUTE>
 11 | 
 12 | ;<SYNONYM WITH USING THROUGH>
 13 | <SYNONYM THROUGH THRU>
 14 | <SYNONYM ON ONTO>
 15 | <SYNONYM IN INSIDE INTO>
 16 | <SYNONYM UNDER BELOW BENEATH UNDERNEATH>
 17 | 
 18 | <SYNONYM NORTH N FORE FORWARD F>
 19 | <SYNONYM SOUTH S AFT ABAFT>
 20 | <SYNONYM EAST E STARBO SB>
 21 | <SYNONYM WEST W PORT P>
 22 | <SYNONYM DOWN D DOWNSTAIRS>
 23 | <SYNONYM UP U UPSTAIRS>
 24 | <SYNONYM NW NORTHWEST>
 25 | <SYNONYM NE NORTHE>
 26 | <SYNONYM SW SOUTHWEST>
 27 | <SYNONYM SE SOUTHE>
 28 | 
 29 | \
 30 | 
 31 | "ZORK game commands"
 32 | 
 33 | <SYNTAX BRIEF = V-BRIEF>
 34 | 
 35 | <SYNTAX SUPER = V-SUPER-BRIEF>
 36 | <SYNONYM SUPER SUPERBRIEF>
 37 | 
 38 | <SYNTAX DIAGNOSE = V-DIAGNOSE>
 39 | 
 40 | ;<SYNTAX $DEBUG = V-$DEBUG>
 41 | ;<SYNTAX $FUBLIO = V-$W1>
 42 | ;<SYNTAX $WRECK = V-$W2>
 43 | ;<SYNTAX $DC = V-DEPTH-CHECK>
 44 | ;<SYNTAX $DIVETIME = V-$DIVETIME>
 45 | 
 46 | <SYNTAX INVENTORY = V-INVENTORY>
 47 | <SYNONYM INVENTORY I>
 48 | 
 49 | <SYNTAX QUIT = V-QUIT>
 50 | <SYNONYM QUIT Q>
 51 | 
 52 | <SYNTAX RESTART = V-RESTART>
 53 | 
 54 | <SYNTAX RESTORE = V-RESTORE>
 55 | 
 56 | <SYNTAX SAVE = V-SAVE>
 57 | 
 58 | <SYNTAX SCORE = V-SCORE>
 59 | <SYNONYM SCORE RATING PROGRESS>
 60 | 
 61 | <SYNTAX $VERIFY = V-$VERIFY>
 62 | 
 63 | <SYNTAX VERSION = V-VERSION>
 64 | 
 65 | <SYNTAX VERBOSE = V-VERBOSE>
 66 | 
 67 | \
 68 | 
 69 | "SUBTITLE REAL VERBS"
 70 | 
 71 | <SYNTAX AGAIN = V-AGAIN>
 72 | <SYNONYM AGAIN G>
 73 | 
 74 | <SYNTAX AIM OBJECT ;(FIND WEAPONBIT) AT OBJECT = V-AIM>
 75 | <SYNONYM AIM POINT>
 76 | 
 77 | ;<SYNTAX ANSWER = V-ANSWER>
 78 | ;<SYNTAX ANSWER OBJECT = V-REPLY>
 79 | ;<SYNONYM ANSWER REPLY>
 80 | 
 81 | <SYNTAX APPLY OBJECT TO OBJECT = V-PUT PRE-PUT>
 82 | 
 83 | <SYNTAX ASK OBJECT (FIND PERSON) = V-TELL PRE-TELL>
 84 | <SYNTAX ASK ABOUT OBJECT (HELD CARRIED ;HAVE)
 85 | 	= V-ASK-CONTEXT-ABOUT PRE-ASK-CONTEXT-ABOUT>
 86 | <SYNTAX ASK FOR OBJECT (HELD CARRIED ;HAVE)
 87 | 	= V-ASK-CONTEXT-FOR PRE-ASK-CONTEXT-FOR>
 88 | <SYNTAX ASK OBJECT (FIND PERSON)
 89 | 	ABOUT OBJECT (HELD CARRIED ;HAVE) = V-ASK-ABOUT>
 90 | <SYNTAX ASK OBJECT (FIND PERSON)
 91 | 	FOR OBJECT (HELD CARRIED ;HAVE) = V-ASK-FOR>
 92 | <SYNONYM ASK QUESTION INQUIRE>
 93 | 
 94 | <SYNTAX ATTACK
 95 | 	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
 96 | 	WITH
 97 | 	OBJECT ;(FIND WEAPONBIT) (HELD CARRIED HAVE)
 98 | 	= V-ATTACK>
 99 | <SYNONYM ATTACK FIGHT HURT INJURE>
100 | 
101 | <SYNTAX BACK = V-BACK>
102 | 
103 | ;<SYNTAX BLAST = V-BLAST>
104 | 
105 | <SYNTAX BOARD OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM)
106 | 	= V-BOARD PRE-BOARD>
107 | 
108 | <SYNTAX BRACE OBJECT WITH OBJECT = V-BRACE PRE-BRACE>
109 | <SYNONYM BRACE SUPPORT>
110 | 
111 | <SYNTAX BREATHE = V-BREATHE>
112 | <SYNTAX BREATHE OBJECT = V-BREATHE>
113 | 
114 | ;<SYNTAX BUG = V-BUG>
115 | 
116 | <SYNTAX BURN
117 | 	OBJECT ;(FIND BURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
118 | 	WITH
119 | 	OBJECT ;(FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
120 | 	= V-BURN PRE-BURN>
121 | <SYNTAX BURN
122 | 	DOWN
123 | 	OBJECT ;(FIND BURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
124 | 	WITH
125 | 	OBJECT ;(FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
126 | 	= V-BURN PRE-BURN>
127 | <SYNONYM BURN INCINERATE IGNITE>
128 | 
129 | <SYNTAX BUY OBJECT (IN-ROOM ON-GROUND) (MANY)= V-BUY PRE-BUY>
130 | <SYNTAX BUY OBJECT (IN-ROOM ON-GROUND) (MANY)
131 | 	FROM OBJECT (FIND VICBIT) (ON-GROUND) = V-BUY PRE-BUY>
132 | <SYNONYM BUY PURCHASE ORDER>
133 | 
134 | <SYNTAX $CALL OBJECT = V-$CALL PRE-$CALL>
135 | <SYNTAX CALL OBJECT = V-CALL>
136 | <SYNTAX CALL TO OBJECT = V-CALL>
137 | 
138 | <SYNTAX CHECK OBJECT = V-EXAMINE PRE-EXAMINE>
139 | <SYNTAX CHECK FOR OBJECT = V-FIND>
140 | 
141 | <SYNTAX CHOMP = V-CHOMP>
142 | <SYNONYM CHOMP LOSE BARF>
143 | 
144 | <SYNTAX CLEAN OBJECT = V-CLEAN>
145 | <SYNONYM CLEAN SCRUB POLISH>
146 | 
147 | <SYNTAX CLIMB UP OBJECT (FIND RMUNGBIT) (ON-GROUND IN-ROOM) = V-CLIMB-FOO>
148 | <SYNTAX CLIMB DOWN OBJECT ;(FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
149 | <SYNTAX CLIMB OBJECT ;(FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-FOO>
150 | <SYNTAX CLIMB IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
151 | <SYNTAX CLIMB ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
152 | <SYNTAX CLIMB THROUGH OBJECT (ON-GROUND IN-ROOM) = V-THROUGH>
153 | <SYNTAX CLIMB OUT OBJECT (ON-GROUND IN-ROOM) = V-THROUGH>
154 | <SYNONYM CLIMB>
155 | 
156 | <SYNTAX SIT ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-SIT-ON>
157 | <SYNTAX SIT DOWN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-SIT>
158 | <SYNTAX SIT IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-SIT-ON>
159 | <SYNTAX SIT WITH OBJECT = V-SIT-WITH>
160 | 
161 | <SYNTAX CLOSE
162 | 	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
163 | 	= V-CLOSE>
164 | <SYNONYM CLOSE SHUT>
165 | 
166 | ;<SYNTAX COMPARE OBJECT TO OBJECT = V-COMPARE PRE-COMPARE>
167 | ;<SYNTAX COMPARE OBJECT WITH OBJECT = V-COMPARE PRE-COMPARE>
168 | ;<SYNTAX COMPARE OBJECT (HELD CARRIED MANY) = V-FOO-COMPARE>
169 | 
170 | <SYNTAX COUNT OBJECT = V-COUNT>
171 | 
172 | <SYNTAX CROSS OBJECT = V-CROSS>
173 | <SYNONYM CROSS FORD>
174 | 
175 | <SYNTAX CUT OBJECT WITH OBJECT ;(FIND WEAPONBIT) (CARRIED HELD) = V-CUT>
176 | <SYNONYM CUT SLICE PIERCE SCRAPE> 
177 | 
178 | <SYNTAX CURSE = V-CURSES>
179 | <SYNTAX CURSE OBJECT (FIND VICBIT) = V-CURSES>
180 | <SYNONYM CURSE SWEAR CUSS DAMN FUCK SHIT HELL>
181 | 
182 | <SYNTAX DEFLATE OBJECT = V-DEFLATE>
183 | 
184 | <SYNTAX DEPOSIT OBJECT = V-DEPOSIT>
185 | <SYNTAX DEPOSIT OBJECT (ON-GROUND HELD MANY) IN OBJECT = V-DEPOSIT>
186 | <SYNTAX DEPOSIT OBJECT (ON-GROUND HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
187 | 
188 | <SYNTAX DIG
189 | 	OBJECT (ON-GROUND IN-ROOM)
190 | 	WITH
191 | 	OBJECT (FIND TOOLBIT) (HELD CARRIED HAVE)
192 | 	= V-DIG PRE-DIG ;*>
193 | <SYNTAX DIG
194 | 	IN
195 | 	OBJECT (ON-GROUND IN-ROOM)
196 | 	WITH
197 | 	OBJECT (FIND TOOLBIT) (HELD CARRIED HAVE)
198 | 	= V-DIG PRE-DIG>
199 | <SYNTAX DIG OBJECT IN OBJECT = V-HOLE-DIG>
200 | ;<SYNTAX DIG WITH OBJECT = V-DIG-WITH>
201 | 
202 | ;<SYNTAX DIP OBJECT (FIND BURNBIT) (HELD CARRIED HAVE)
203 | 	IN OBJECT (ON-GROUND HAVE) = V-DIP-IN>
204 | ;<SYNONYM DIP IMMERSE SUBMERGE DUNK>
205 | 
206 | <SYNTAX DISEMBARK = V-EXIT>
207 | <SYNTAX DISEMBARK OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM)
208 | 	= V-DISEMBARK>
209 | 
210 | <SYNTAX DIVE = V-DIVE>
211 | <SYNTAX DIVE IN OBJECT = V-DIVE>
212 | 
213 | <SYNTAX DRILL OBJECT WITH OBJECT (FIND TOOLBIT) = V-DRILL PRE-DRILL>
214 | <SYNTAX DRILL OBJECT IN OBJECT = V-DRILL-IN PRE-DRILL-IN>
215 | 
216 | <SYNTAX DRINK
217 | 	OBJECT (FIND DRINKBIT) (HELD CARRIED ON-GROUND IN-ROOM)
218 | 	= V-DRINK PRE-DRINK>
219 | ;<SYNTAX DRINK FROM OBJECT (HELD CARRIED) = V-DRINK-FROM>
220 | ;<SYNTAX DRINK OBJECT (FIND DRINKBIT) 
221 | 	IN OBJECT (FIND CONTBIT) (HELD CARRIED ON-GROUND) = V-DRINK-FROM>
222 | ;<SYNTAX DRINK OBJECT (FIND DRINKBIT) 
223 | 	FROM OBJECT (FIND CONTBIT) (HELD CARRIED ON-GROUND) = V-DRINK-FROM>
224 | <SYNONYM DRINK IMBIBE SWALLOW SIP GUZZLE>
225 | 
226 | <SYNTAX DROP OBJECT (HELD MANY HAVE) = V-DROP ;*>
227 | <SYNTAX DROP OBJECT (HELD MANY HAVE) DOWN OBJECT = V-PUT PRE-PUT>
228 | <SYNTAX DROP OBJECT (HELD MANY HAVE) IN OBJECT = V-PUT PRE-PUT>
229 | <SYNTAX DROP OBJECT (HELD MANY HAVE) ON OBJECT = V-PUT PRE-PUT>
230 | <SYNONYM DROP RELEASE>
231 | 
232 | <SYNTAX LEAN ON OBJECT (HELD HAVE) = V-LEAN-ON>
233 | 
234 | <SYNTAX EAT
235 | 	OBJECT (FIND FOODBIT) (HELD CARRIED ON-GROUND IN-ROOM)
236 | 	= V-EAT PRE-EAT>
237 | <SYNONYM EAT CONSUME BITE CHEW MUNCH NIBBLE>
238 | 
239 | <SYNTAX TASTE OBJECT (HELD CARRIED ON-GROUND IN-ROOM ;MANY) = V-TASTE>
240 | 
241 | <SYNTAX EMPTY OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-EMPTY>
242 | 
243 | <SYNTAX ENTER = V-ENTER>
244 | <SYNTAX ENTER OBJECT = V-THROUGH>
245 | <SYNTAX EXIT = V-EXIT>
246 | <SYNTAX EXIT OBJECT = V-DISEMBARK>
247 | 
248 | <SYNTAX EXAMINE OBJECT (HELD CARRIED ON-GROUND IN-ROOM ;MANY) = V-EXAMINE
249 | 								PRE-EXAMINE>
250 | ;<SYNTAX EXAMINE IN OBJECT (HELD CARRIED IN-ROOM ON-GROUND ;MANY) 
251 | 		= V-LOOK-INSIDE>
252 | ;<SYNTAX EXAMINE ON OBJECT (HELD CARRIED IN-ROOM ON-GROUND ;MANY)
253 | 		= V-LOOK-INSIDE>
254 | <SYNONYM EXAMINE DESCRIBE>
255 | 
256 | ;<SYNTAX EXORCISE OBJECT = V-EXORCISE>
257 | ;<SYNTAX EXORCISE OUT OBJECT (FIND VICBIT) = V-EXORCISE>
258 | ;<SYNTAX EXORCISE AWAY OBJECT (FIND VICBIT) = V-EXORCISE>
259 | ;<SYNONYM EXORCISE BANISH CAST DRIVE BEGONE>
260 | 
261 | <SYNTAX EXTINGUISH
262 | 	OBJECT 
263 | 	;(FIND FLAMEBIT) (MANY HELD CARRIED ON-GROUND IN-ROOM ;TAKE HAVE)
264 | 	= V-LAMP-OFF>
265 | <SYNONYM EXTINGUISH DOUSE>
266 | 
267 | <SYNTAX FILL OBJECT (HELD CARRIED ON-GROUND TAKE HAVE) WITH OBJECT = V-FILL>
268 | ;<SYNTAX FILL IN OBJECT (ON-GROUND IN-ROOM) = V-FILL-IN>
269 | <SYNTAX FILL OBJECT (HELD CARRIED ON-GROUND TAKE HAVE) = V-FILL>
270 | ;<SYNTAX FILL OUT OBJECT = V-FILL-OUT>
271 | 
272 | <SYNTAX FIND OBJECT = V-FIND>
273 | <SYNONYM FIND WHERE SEEK SEE>
274 | 
275 | <SYNTAX FOLLOW = V-FOLLOW>
276 | <SYNTAX FOLLOW OBJECT = V-FOLLOW>
277 | <SYNONYM FOLLOW PURSUE CHASE COME>
278 | 
279 | <SYNTAX GIVE
280 | 	OBJECT ;(MANY ;HELD ;HAVE ;CARRIED ;ON-GROUND ;IN-ROOM)
281 | 	TO
282 | 	OBJECT (FIND VICBIT) (ON-GROUND)
283 | 	= V-GIVE PRE-GIVE>
284 | <SYNTAX GIVE
285 | 	OBJECT (FIND VICBIT) (ON-GROUND)
286 | 	OBJECT ;(MANY ;HELD ;HAVE ;CARRIED)
287 | 	= V-SGIVE PRE-SGIVE>
288 | <SYNONYM GIVE HAND DONATE OFFER FEED PAY>
289 | 
290 | <SYNTAX GOODBYE = V-GOODBYE>
291 | <SYNTAX GOODBYE OBJECT = V-GOODBYE>
292 | <SYNONYM GOODBYE BYE>
293 | 
294 | <SYNTAX HELLO = V-HELLO ;*>
295 | <SYNTAX HELLO OBJECT = V-HELLO>
296 | <SYNONYM HELLO HI>
297 | 
298 | <SYNTAX HELP = V-HELP>
299 | <SYNTAX HELP OBJECT = V-HELP>
300 | 
301 | <SYNTAX HIDE UNDER OBJECT = V-HIDE>
302 | <SYNTAX HIDE IN OBJECT = V-HIDE>
303 | <SYNTAX HIDE BEHIND OBJECT = V-HIDE>
304 | <SYNTAX HIDE OBJECT (HELD HAVE) UNDER OBJECT = V-HIDE-UNDER>
305 | <SYNTAX HIDE OBJECT (HELD HAVE) IN OBJECT = V-HIDE>
306 | <SYNTAX HIDE OBJECT (HELD HAVE) BEHIND OBJECT = V-HIDE>
307 | 
308 | <SYNTAX BLOW OUT OBJECT (HELD CARRIED ON-GROUND HAVE) = V-LAMP-OFF>
309 | <SYNTAX BLOW UP
310 | 	OBJECT
311 | 	WITH
312 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
313 | 	= V-INFLATE ;*>
314 | ;<SYNTAX BLOW UP OBJECT = V-BLAST>
315 | 
316 | <SYNTAX INFLAT
317 | 	OBJECT
318 | 	WITH
319 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
320 | 	= V-INFLATE>
321 | 
322 | <SYNTAX JUMP = V-LEAP>
323 | <SYNTAX JUMP OVER OBJECT = V-LEAP>
324 | <SYNTAX JUMP ACROSS OBJECT = V-LEAP>
325 | <SYNTAX JUMP IN OBJECT = V-LEAP>
326 | <SYNTAX JUMP FROM OBJECT = V-DISEMBARK>
327 | <SYNTAX JUMP OFF OBJECT = V-DISEMBARK>
328 | ;<SYNTAX JUMP OBJECT = V-JUMP-ROPE>
329 | <SYNONYM JUMP LEAP>
330 | 
331 | <SYNTAX KICK OBJECT = V-KICK>
332 | <SYNONYM KICK>
333 | 
334 | <SYNTAX KILL
335 | 	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
336 | 	WITH
337 | 	OBJECT ;(FIND WEAPONBIT) (HELD CARRIED HAVE)
338 | 	= V-KILL>
339 | <SYNONYM KILL MURDER SLAY DISPATCH STAB>
340 | 
341 | <SYNTAX KISS OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-KISS>
342 | 
343 | <SYNTAX KNOCK AT OBJECT = V-KNOCK ;*>
344 | <SYNTAX KNOCK ON OBJECT = V-KNOCK>
345 | <SYNTAX KNOCK OVER OBJECT = V-PUSH>
346 | <SYNTAX KNOCK DOWN OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ATTACK>
347 | <SYNONYM KNOCK RAP>
348 | 
349 | <SYNTAX LATITUDE OBJECT = V-LATITUDE ;PRE-LATITUDE>
350 | <SYNTAX LONGITUDE OBJECT = V-LONGITUDE ;PRE-LATITUDE>
351 | 
352 | <SYNTAX LAUNCH OBJECT (FIND VEHBIT) = V-LAUNCH>
353 | 
354 | <SYNTAX LEAVE = V-LEAVE>
355 | <SYNTAX LEAVE OBJECT = V-DROP>
356 | 
357 | <SYNTAX LIGHT
358 | 	OBJECT ;(FIND LIGHTBIT) ;(FIND BURNBIT)
359 | 	(CARRIED ON-GROUND IN-ROOM)
360 | 	= V-LAMP-ON ;*>
361 | <SYNTAX LIGHT
362 | 	OBJECT ;(FIND LIGHTBIT) ;(FIND BURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
363 | 	WITH
364 | 	OBJECT ;(FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM)
365 | 	= V-BURN PRE-BURN>
366 | <SYNONYM LIGHT START>
367 | 
368 | <SYNTAX LISTEN TO OBJECT = V-LISTEN>
369 | <SYNTAX LISTEN FOR OBJECT = V-LISTEN>
370 | 
371 | <SYNTAX LOCK
372 | 	OBJECT (ON-GROUND IN-ROOM)
373 | 	WITH
374 | 	OBJECT (FIND TOOLBIT) (TAKE HELD CARRIED ON-GROUND IN-ROOM)
375 | 	= V-LOCK>
376 | 
377 | <SYNTAX LOOK = V-LOOK>
378 | <SYNTAX LOOK AROUND OBJECT (FIND RMUNGBIT) = V-LOOK>
379 | ;<SYNTAX LOOK UP OBJECT (FIND RMUNGBIT) = V-LOOK-UP>
380 | ;<SYNTAX LOOK UP OBJECT = V-LOOK-UP>
381 | <SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM ;MANY) = V-EXAMINE
382 | 								PRE-EXAMINE>
383 | <SYNTAX LOOK WITH OBJECT = V-LOOK-INSIDE>
384 | <SYNTAX LOOK THROUGH OBJECT = V-LOOK-INSIDE>
385 | <SYNTAX LOOK OUT OBJECT = V-LOOK-INSIDE>
386 | <SYNTAX LOOK UNDER OBJECT = V-LOOK-UNDER>
387 | <SYNTAX LOOK BEHIND OBJECT = V-LOOK-BEHIND>
388 | ;<SYNTAX LOOK DOWN OBJECT = V-LOOK-DOWN>
389 | <SYNTAX LOOK IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM ;MANY) = V-LOOK-INSIDE
390 | 								PRE-LOOK-IN>
391 | <SYNTAX LOOK ON OBJECT (HELD CARRIED ON-GROUND IN-ROOM ;MANY) = V-LOOK-INSIDE
392 | 								PRE-LOOK-ON>
393 | <SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM ;MANY) WITH OBJECT = 
394 | 	V-READ PRE-READ>
395 | <SYNTAX LOOK FOR OBJECT = V-FIND>
396 | <SYNTAX LOOK OBJECT = V-CHASTISE>
397 | <SYNONYM LOOK L STARE GAZE PEER>
398 | 
399 | <SYNTAX SEARCH OBJECT = V-SEARCH>
400 | <SYNTAX SEARCH IN OBJECT = V-SEARCH>
401 | <SYNTAX SEARCH FOR OBJECT = V-FIND>
402 | 
403 | <SYNTAX LOWER OBJECT = V-LOWER>
404 | <SYNTAX LOWER OBJECT DOWN OBJECT = V-PUT PRE-PUT>
405 | 
406 | <SYNTAX MAKE OBJECT = V-MAKE>
407 | 
408 | <SYNTAX MAYBE = V-MAYBE>
409 | <SYNONYM MAYBE DUNNO>
410 | 
411 | <SYNTAX MELT
412 | 	OBJECT
413 | 	WITH
414 | 	OBJECT ;(FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM)
415 | 	= V-MELT>
416 | <SYNONYM MELT LIQUIFY>
417 | 
418 | <SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
419 | <SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO ;PRE-PUSH-TO>
420 | <SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) WITH OBJECT = V-MOVE PRE-MOVE>
421 | <SYNTAX ROLL UP OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
422 | 
423 | <SYNTAX PLAY OBJECT = V-PLAY>
424 | 
425 | ;<SYNTAX PRICE OBJECT = V-PRICE>
426 | ;<SYNTAX PRICE OF OBJECT = V-PRICE>
427 | 
428 | <SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
429 | <SYNTAX PULL ON OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
430 | ;<SYNTAX PULL UP OBJECT (ON-GROUND IN-ROOM) = V-PULL-UP PRE-PULL-UP>
431 | ;<SYNTAX PULL OBJECT THROUGH OBJECT (ON-GROUND IN-ROOM) = V-PULL-UP PRE-PULL-UP>
432 | <SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO ;PRE-PUSH-TO>
433 | <SYNONYM PULL TUG YANK>
434 | 
435 | <SYNTAX MUMBLE = V-MUMBLE>
436 | <SYNONYM MUMBLE SIGH>
437 | 
438 | <SYNTAX DESTROY
439 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
440 | 	WITH
441 | 	OBJECT (HELD CARRIED HAVE)
442 | 	= V-MUNG PRE-MUNG>
443 | <SYNTAX DESTROY IN OBJECT = V-CHIP PRE-CHIP>
444 | <SYNTAX DESTROY IN OBJECT (ON-GROUND IN-ROOM)
445 | 		WITH
446 | 		OBJECT (HELD CARRIED HAVE) = V-MUNG PRE-MUNG>
447 | <SYNTAX DESTROY
448 | 	DOWN
449 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
450 | 	WITH
451 | 	OBJECT (HELD CARRIED HAVE)
452 | 	= V-MUNG PRE-MUNG>
453 | <SYNONYM DESTROY DAMAGE BREAK SMASH CHOP CHIP HIT>
454 | 
455 | <SYNTAX LUBRICATE OBJECT WITH OBJECT (HELD CARRIED) = V-OIL ;PRE-OIL>
456 | <SYNONYM LUBRICATE GREASE>
457 | 
458 | <SYNTAX NO = V-NO>
459 | <SYNONYM NO NEGATIVE NOPE UH-UH>
460 | 
461 | <SYNTAX OPEN
462 | 	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
463 | 	= V-OPEN PRE-OPEN>
464 | <SYNTAX OPEN
465 | 	UP
466 | 	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
467 | 	= V-OPEN PRE-OPEN>
468 | <SYNTAX OPEN
469 | 	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
470 | 	WITH
471 | 	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
472 | 	= V-OPEN PRE-OPEN>
473 | 
474 | <SYNTAX PICK OBJECT = V-PICK>
475 | <SYNTAX PICK OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-PICK>
476 | 
477 | <SYNTAX PICK UP
478 | 	OBJECT (FIND TAKEBIT)
479 | 	       (ON-GROUND MANY)
480 | 	= V-TAKE PRE-TAKE>
481 | 
482 | <SYNTAX PLUG OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-PLUG>
483 | <SYNONYM PLUG GLUE PATCH REPAIR FIX>
484 | 
485 | ;<SYNTAX PLUGH = V-ADVENTURE>
486 | ;<SYNONYM PLUGH XYZZY>
487 | 
488 | <SYNTAX POKE
489 | 	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
490 | 	WITH
491 | 	OBJECT ;(FIND WEAPONBIT) (HELD CARRIED HAVE)
492 | 	= V-MUNG PRE-MUNG>
493 | <SYNONYM POKE JAB BLIND>
494 | 
495 | <SYNTAX POUR OBJECT (HELD CARRIED) = V-POUR ;*>
496 | <SYNTAX POUR OBJECT (HELD CARRIED) IN OBJECT = V-POUR-IN>
497 | <SYNTAX POUR OBJECT (HELD CARRIED) ON OBJECT = V-POUR-ON ;PRE-POUR-ON>
498 | <SYNTAX POUR OBJECT (HELD CARRIED) FROM OBJECT = V-POUR>
499 | <SYNONYM POUR SPILL>
500 | 
501 | <SYNTAX PRAY = V-PRAY>
502 | <SYNTAX PRAY FOR OBJECT = V-PRAY>
503 | 
504 | <SYNTAX PUMP UP OBJECT = V-PUMP>
505 | <SYNTAX PUMP UP OBJECT WITH OBJECT = V-PUMP>
506 | 
507 | <SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND MANY) = V-PUSH>
508 | <SYNTAX PUSH ON OBJECT (IN-ROOM ON-GROUND MANY) = V-PUSH>
509 | <SYNTAX PUSH OBJECT (ON-GROUND IN-ROOM) OFF OBJECT = V-PUSH-OFF>
510 | <SYNTAX PUSH OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO>
511 | <SYNTAX PUSH OBJECT (ON-GROUND IN-ROOM) TO OBJECT = V-PUSH-TO ;PRE-PUSH-TO>
512 | <SYNTAX PUSH OBJECT (HELD CARRIED HAVE) UNDER OBJECT = V-PUSH-UNDER>
513 | <SYNTAX PUSH OBJECT (HELD CARRIED HAVE) THROUGH OBJECT = V-PUSH-THROUGH>
514 | <SYNTAX PUSH UP OBJECT = V-MOVE PRE-MOVE>
515 | <SYNONYM PUSH PRESS SHOVE>
516 | 
517 | <SYNTAX PUT OBJECT (ON-GROUND HELD MANY)
518 | 	IN OBJECT = V-PUT PRE-PUT ;*>
519 | <SYNTAX PUT OBJECT (ON-GROUND HELD MANY)
520 | 	ON OBJECT = V-PUT-ON PRE-PUT>
521 | <SYNTAX PUT DOWN OBJECT (HELD MANY) = V-DROP>
522 | <SYNTAX PUT OBJECT (HELD MANY HAVE) UNDER OBJECT = V-PUT-UNDER> 
523 | <SYNTAX PUT ON OBJECT (IN-ROOM ON-GROUND CARRIED MANY) = V-WEAR>
524 | <SYNTAX PUT OBJECT (HELD MANY HAVE) BEHIND OBJECT = V-HIDE>
525 | <SYNTAX PUT OBJECT (HELD HAVE) AGAINST OBJECT = V-PUT-AGAINST>
526 | <SYNTAX PUT OBJECT (HELD HAVE) BY OBJECT = V-PUT-AGAINST>
527 | <SYNTAX PUT OBJECT (HELD HAVE) AT OBJECT = V-PUT-AGAINST>
528 | <SYNTAX PUT OBJECT (HELD HAVE) ACROSS OBJECT = V-PUT-ACROSS>
529 | <SYNTAX PUT OBJECT (HELD HAVE) OVER OBJECT = V-PUT-ACROSS>
530 | <SYNTAX PUT OBJECT (HELD HAVE) BETWEEN OBJECT = V-PUT-ON PRE-PUT>
531 | <SYNONYM PUT STUFF INSERT PLACE WEDGE>
532 | 
533 | <SYNTAX RAISE OBJECT = V-MOVE PRE-MOVE>
534 | <SYNTAX RAISE UP OBJECT = V-MOVE PRE-MOVE>
535 | <SYNTAX RAISE OBJECT WITH OBJECT = V-MOVE PRE-MOVE>
536 | <SYNONYM RAISE LIFT>
537 | 
538 | <SYNTAX RAPE OBJECT (FIND VICBIT) = V-RAPE>
539 | <SYNONYM RAPE MOLEST>
540 | 
541 | <SYNTAX REACH IN OBJECT (FIND OPENBIT) = V-REACH-IN PRE-REACH-IN>
542 | 
543 | <SYNTAX READ
544 | 	OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM)
545 | 	= V-READ PRE-READ ; *>
546 | <SYNTAX READ IN OBJECT (HELD CARRIED HAVE) = V-READ-INSIDE>
547 | <SYNTAX READ
548 | 	OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM)
549 | 	WITH
550 | 	OBJECT (HELD CARRIED HAVE)
551 | 	= V-READ PRE-READ>
552 | <SYNONYM READ SKIM>
553 | 
554 | <SYNTAX RENT OBJECT (IN-ROOM ON-GROUND MANY) = V-RENT>
555 | <SYNTAX RENT OBJECT (IN-ROOM ON-GROUND MANY)
556 | 	FROM OBJECT (FIND VICBIT) (ON-GROUND) = V-RENT>
557 | <SYNONYM RENT LEASE>
558 | 
559 | ;<SYNTAX REPENT = V-REPENT>
560 | 
561 | <SYNTAX ROB OBJECT = V-ROB>
562 | 
563 | <SYNTAX ROLL OBJECT (ON-GROUND IN-ROOM) = V-MOVE>
564 | <SYNTAX ROLL OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO ;PRE-PUSH-TO>
565 | <SYNTAX ROLL OBJECT (ON-GROUND IN-ROOM) TO OBJECT = V-PUSH-TO ;PRE-PUSH-TO>
566 | 
567 | <SYNTAX RUB OBJECT = V-RUB>
568 | <SYNTAX RUB OBJECT WITH OBJECT = V-RUB>
569 | <SYNTAX RUB OBJECT TO OBJECT = V-PUT-AGAINST> ;"touch magnet to mine"
570 | <SYNONYM RUB TOUCH FEEL PAT PET>
571 | 
572 | <SYNTAX SCRIPT = V-SCRIPT>
573 | <SYNTAX UNSCRIPT = V-UNSCRIPT>
574 | 
575 | <SYNTAX SEND OBJECT = V-SEND>
576 | <SYNTAX SEND FOR OBJECT = V-SEND>
577 | 
578 | <SYNTAX SHAKE OBJECT = V-SHAKE>
579 | 
580 | <SYNTAX SHOW OBJECT TO OBJECT (FIND PERSON) = V-SHOW>
581 | <SYNTAX SHOW OBJECT (FIND PERSON) OBJECT = V-SSHOW PRE-SSHOW>
582 | <SYNONYM SHOW FLASH>
583 | 
584 | <SYNTAX SLIDE OBJECT = V-PUSH>
585 | <SYNTAX SLIDE OBJECT UNDER OBJECT = V-PUT-UNDER>
586 | <SYNTAX SLIDE OBJECT (IN-ROOM ON-GROUND) OBJECT = V-PUSH-TO>
587 | <SYNTAX SLIDE OBJECT (IN-ROOM ON-GROUND) TO OBJECT = V-PUSH-TO>
588 | 
589 | <SYNTAX SKIP = V-SKIP>
590 | <SYNONYM SKIP HOP>
591 | 
592 | <SYNTAX SMELL OBJECT = V-SMELL PRE-SMELL>
593 | <SYNONYM SMELL SNIFF>
594 | 
595 | <SYNTAX SMOKE OBJECT = V-SMOKE>
596 | 
597 | <SYNTAX SPIN OBJECT = V-SPIN>
598 | 
599 | <SYNTAX SPRAY OBJECT ON OBJECT = V-SPRAY>
600 | <SYNTAX SPRAY OBJECT WITH OBJECT = V-SSPRAY>
601 | 
602 | <SYNTAX SQUEEZE OBJECT = V-SQUEEZE>
603 | <SYNTAX SQUEEZE OBJECT ON OBJECT = V-PUT PRE-PUT>
604 | 
605 | <SYNTAX STAND = V-STAND>
606 | <SYNTAX STAND UP OBJECT (FIND RMUNGBIT) = V-STAND>
607 | <SYNTAX STAND ON OBJECT (FIND VEHBIT) = V-CLIMB-ON>
608 | ;<SYNTAX STAND UNDER OBJECT = V-STAND-UNDER>
609 | 
610 | <SYNTAX STAY = V-STAY>
611 | 
612 | <SYNTAX STRIKE
613 | 	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
614 | 	WITH
615 | 	OBJECT ;(FIND WEAPONBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
616 | 	= V-ATTACK>
617 | <SYNTAX STRIKE
618 | 	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
619 | 	= V-ATTACK ;*>
620 | <SYNTAX STRIKE OBJECT (CARRIED ON-GROUND IN-ROOM) = V-LAMP-ON>
621 | 
622 | <SYNTAX SWIM = V-SWIM>
623 | <SYNTAX SWIM OBJECT = V-SWIM>
624 | <SYNTAX SWIM IN OBJECT = V-SWIM>
625 | <SYNONYM SWIM BATHE WADE>
626 | 
627 | <SYNTAX SWING
628 | 	OBJECT ;(FIND WEAPONBIT) (HELD CARRIED HAVE)
629 | 	= V-SWING>
630 | <SYNTAX SWING
631 | 	OBJECT ;(FIND WEAPONBIT) (HELD CARRIED HAVE)
632 | 	AT
633 | 	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
634 | 	= V-SWING>
635 | <SYNONYM SWING THRUST>
636 | 
637 | <SYNTAX TAKE
638 | 	OBJECT (FIND TAKEBIT)
639 | 	(ON-GROUND IN-ROOM MANY)
640 | 	= V-TAKE PRE-TAKE ;*>
641 | <SYNTAX TAKE IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
642 | <SYNTAX TAKE OUT OBJECT (FIND VEHBIT) (ON-GROUND) = V-DISEMBARK>
643 | <SYNTAX TAKE OFF OBJECT (FIND VEHBIT) (ON-GROUND) = V-DISEMBARK>
644 | <SYNTAX TAKE ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
645 | ;<SYNTAX TAKE UNDER OBJECT = V-STAND-UNDER>
646 | <SYNTAX TAKE UP OBJECT (FIND RMUNGBIT) = V-STAND>
647 | <SYNTAX TAKE
648 | 	OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
649 | 	OUT
650 | 	OBJECT
651 | 	= V-TAKE PRE-TAKE>
652 | <SYNTAX TAKE
653 | 	OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
654 | 	OFF
655 | 	OBJECT
656 | 	= V-TAKE PRE-TAKE>
657 | <SYNTAX TAKE
658 | 	OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
659 | 	FROM
660 | 	OBJECT
661 | 	= V-TAKE PRE-TAKE>
662 | ;<SYNTAX TAKE
663 | 	OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
664 | 	OF
665 | 	OBJECT
666 | 	= V-TAKE PRE-TAKE> ;"Take a sip of water"
667 | ;<SYNTAX TAKE OBJECT (FIND TAKEBIT)
668 | 	WITH OBJECT (FIND TOOLBIT) = V-TAKE PRE-TAKE>
669 | <SYNONYM TAKE GRAB GET HOLD CARRY REMOVE>
670 | 
671 | <SYNTAX TELL OBJECT (FIND VICBIT) (IN-ROOM) = V-TELL PRE-TELL>
672 | <SYNTAX TELL OBJECT (FIND VICBIT) (IN-ROOM) ABOUT OBJECT = V-TELL PRE-TELL>
673 | 
674 | <SYNTAX SAY TO OBJECT (FIND VICBIT) (IN-ROOM) = V-TELL PRE-TELL>
675 | <SYNTAX SAY WITH OBJECT (FIND VICBIT) (IN-ROOM) = V-TELL PRE-TELL>
676 | <SYNTAX SAY = V-SAY>
677 | <SYNONYM SAY TALK SPEAK CHAT>
678 | 
679 | <SYNTAX SLEEP = V-SLEEP>
680 | <SYNTAX SLEEP IN OBJECT = V-SLEEP>
681 | <SYNTAX SLEEP ON OBJECT = V-SLEEP>
682 | <SYNTAX SLEEP DOWN ON OBJECT = V-SLEEP> ;"lie down"
683 | <SYNTAX SLEEP DOWN OBJECT (FIND RMUNGBIT) = V-SLEEP>
684 | <SYNONYM SLEEP LIE REST NAP>
685 | 
686 | ;<SYNTAX INCANT = V-INCANT>
687 | ;<SYNONYM INCANT CHANT>
688 | 
689 | <SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) = V-THROW PRE-THROW>
690 | ;<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) OBJECT = V-THROW-DOWN>
691 | <SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) DOWN OBJECT = V-THROW PRE-THROW>
692 | <SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) AT OBJECT = V-THROW PRE-THROW>
693 | <SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) OFF OBJECT = V-THROW-OFF>
694 | <SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) OVER OBJECT = V-THROW-OFF>
695 | <SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE)
696 | 	WITH  OBJECT (ON-GROUND IN-ROOM)
697 | 	= V-THROW PRE-THROW>
698 | <SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) IN OBJECT = V-THROW PRE-THROW>
699 | <SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) ON OBJECT = V-THROW PRE-THROW>
700 | ;<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) TO OBJECT = V-THROW-DOWN>
701 | <SYNONYM THROW HURL CHUCK TOSS CAST>
702 | 
703 | <SYNTAX TIE OBJECT (ON-GROUND CARRIED)
704 | 	TO OBJECT = V-TIE PRE-TIE>
705 | <SYNTAX TIE OBJECT (ON-GROUND CARRIED)
706 | 	AROUND OBJECT = V-TIE PRE-TIE>
707 | <SYNTAX TIE UP
708 | 	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
709 | 	WITH
710 | 	OBJECT (ON-GROUND IN-ROOM CARRIED)
711 | 	= V-TIE-UP>
712 | <SYNONYM TIE FASTEN SECURE ATTACH CONNECT>
713 | 
714 | "<SYNTAX $TIME = V-$TIME>"
715 | <SYNTAX TIME = V-TIME>
716 | <SYNONYM TIME T>
717 | 
718 | <SYNTAX TURN OVER OBJECT = V-TURN-OVER>
719 | <SYNTAX TURN OBJECT (FIND TURNBIT) TO OBJECT = V-TURN PRE-TURN>
720 | <SYNTAX TURN OBJECT (FIND TURNBIT) FOR OBJECT = V-TURN PRE-TURN>
721 | <SYNTAX TURN OBJECT (FIND TURNBIT) = V-TURN PRE-TURN>
722 | <SYNTAX TURN
723 | 	OBJECT (FIND TURNBIT) ( HELD CARRIED ON-GROUND IN-ROOM)
724 | 	WITH
725 | 	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
726 | 	= V-TURN PRE-TURN ;*>
727 | <SYNTAX TURN ON
728 | 	OBJECT ;(FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
729 | 	= V-LAMP-ON>
730 | <SYNTAX TURN OFF
731 | 	OBJECT ;(FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
732 | 	= V-LAMP-OFF>
733 | <SYNONYM TURN FLIP SET>
734 | 
735 | <SYNTAX UNFOLD OBJECT = V-UNFOLD>
736 | <SYNTAX FOLD OBJECT = V-FOLD>
737 | <SYNTAX FOLD UP OBJECT = V-FOLD>
738 | 
739 | <SYNTAX UNLOCK OBJECT (ON-GROUND IN-ROOM) = V-UNLOCK PRE-UNLOCK>
740 | <SYNTAX UNLOCK
741 | 	OBJECT (ON-GROUND IN-ROOM)
742 | 	WITH
743 | 	OBJECT (HELD CARRIED ON-GROUND IN-ROOM HAVE)
744 | 	= V-UNLOCK>
745 | 
746 | <SYNTAX UNTIE
747 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
748 | 	= V-UNTIE ;*>
749 | <SYNTAX UNTIE
750 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
751 | 	FROM
752 | 	OBJECT
753 | 	= V-UNTIE>
754 | <SYNONYM UNTIE FREE UNFASTEN DETACH UNHOOK DISCONNECT>
755 | 
756 | <SYNTAX WAIT = V-WAIT>
757 | <SYNTAX WAIT OBJECT = V-WAIT-FOR>
758 | ;<SYNTAX WAIT UNTIL OBJECT = V-WAIT-UNTIL>
759 | <SYNTAX WAIT FOR OBJECT = V-WAIT-FOR>
760 | <SYNONYM WAIT Z>
761 | 
762 | <SYNTAX WAKE OBJECT (ON-GROUND IN-ROOM) = V-ALARM ;*>
763 | <SYNTAX WAKE UP OBJECT (FIND RMUNGBIT) (ON-GROUND IN-ROOM) = V-ALARM>
764 | <SYNONYM WAKE AWAKE SURPRISE STARTLE>
765 | 
766 | <SYNTAX WALK OBJECT = V-WALK>
767 | <SYNTAX WALK IN OBJECT = V-THROUGH>
768 | <SYNTAX WALK ON OBJECT = V-STEP>
769 | <SYNTAX WALK OVER OBJECT = V-LEAP>
770 | <SYNTAX WALK THROUGH OBJECT = V-THROUGH>
771 | <SYNTAX WALK AROUND OBJECT = V-WALK-AROUND>
772 | <SYNTAX WALK UP OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
773 | <SYNTAX WALK DOWN OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
774 | <SYNTAX WALK TO OBJECT = V-WALK-TO>
775 | <SYNONYM WALK GO RUN PROCEED STEP>
776 | 
777 | <SYNTAX WAVE AT OBJECT = V-WAVE-AT>
778 | <SYNTAX WAVE TO OBJECT = V-WAVE-AT>
779 | <SYNTAX WAVE OBJECT (HELD CARRIED) = V-WAVE>
780 | <SYNTAX WAVE OBJECT (HELD CARRIED) AT OBJECT = V-WAVE>
781 | <SYNONYM WAVE BRANDISH>
782 | 
783 | <SYNTAX WEAR OBJECT (FIND WEARBIT) = V-WEAR>
784 | 
785 | <SYNTAX WEIGH OBJECT = V-WEIGH>
786 | 
787 | ;<SYNTAX WET OBJECT (ON-GROUND IN-ROOM HELD CARRIED HAVE)
788 | 	WITH OBJECT = V-WET>
789 | 
790 | <SYNTAX WIN = V-WIN>
791 | <SYNONYM WIN WINNAGE>
792 | 
793 | <SYNTAX WIND OBJECT = V-WIND>
794 | <SYNTAX WIND UP OBJECT = V-WIND>
795 | 
796 | <SYNTAX WITHDRAW = V-LEAVE>
797 | <SYNTAX WITHDRAW OBJECT = V-WITHDRAW>
798 | 
799 | <SYNTAX YELL = V-YELL>
800 | <SYNTAX YELL AT OBJECT = V-YELL>
801 | <SYNONYM YELL SCREAM SHOUT>
802 | 
803 | <SYNTAX YES = V-YES>
804 | <SYNONYM YES Y AFFIRMATIVE YUP UH-HUH YEAH OK OKAY SURE>
805 | 
806 | ;<SYNTAX ZORK = V-ZORK>
807 | 
808 | ;"Simple questions"
809 | 
810 | <SYNTAX WHAT = V-WHAT>
811 | <SYNTAX WHAT OBJECT = V-WHAT>
812 | <SYNTAX WHAT OBJECT OBJECT = V-WHAT PRE-WHAT>
813 | <SYNONYM WHAT WHAT\'S WHATS WHO WHOS WHO\'S>
814 | 
815 | ;"<SYNTAX WHERE ...> WHERE is a synonym of FIND"
816 | 
817 | ;<SYNTAX IS OBJECT IN OBJECT = V-IS-IN>
818 | ;<SYNTAX IS OBJECT ON OBJECT = V-IS-IN>
819 | 
820 | "<SYNTAX $FO = V-$FORCE>
821 | <SYNTAX $FO OBJECT = V-$FORCE>"


--------------------------------------------------------------------------------
/boat.zap:
--------------------------------------------------------------------------------
  1 | 
  2 | 
  3 | 	.FUNCT	FERRY-F
  4 | 	EQUAL?	PRSA,V?CLIMB-ON,V?THROUGH,V?BOARD \?ELS5
  5 | 	IN?	FERRY,FERRY-LANDING \?ELS10
  6 | 	EQUAL?	HERE,FERRY-LANDING \?ELS15
  7 | 	CALL	TELL-CANT-BOARD
  8 | 	RSTACK	
  9 | ?ELS15:	CALL	TELL-YOURE-NOT,STR?303
 10 | 	RSTACK	
 11 | ?ELS10:	PRINTR	"It's not at the landing. Be patient."
 12 | ?ELS5:	EQUAL?	PRSA,V?WALK-TO \?ELS23
 13 | 	EQUAL?	HERE,FERRY-LANDING /?ELS23
 14 | 	CALL	TELL-SHD-DIR
 15 | 	RSTACK	
 16 | ?ELS23:	EQUAL?	PRSA,V?LISTEN \FALSE
 17 | 	PRINTR	"You hear its engines."
 18 | 
 19 | 
 20 | 	.FUNCT	TELL-CANT-BOARD
 21 | 	CALL	TELL-DONT-HAVE,STR?304
 22 | 	RSTACK	
 23 | 
 24 | 
 25 | 	.FUNCT	GLOBAL-FERRY-F
 26 | 	EQUAL?	PRSA,V?FIND,V?TELL,V?ASK-ABOUT /FALSE
 27 | 	CALL	GLOBAL-NOT-HERE-PRINT,GLOBAL-FERRY
 28 | 	RSTACK	
 29 | 
 30 | 
 31 | 	.FUNCT	MM-FORE-DECK-F,RARG
 32 | 	EQUAL?	RARG,M-LOOK \FALSE
 33 | 	CALL	TELL-FORE-END,SALVAGER
 34 | 	RSTACK	
 35 | 
 36 | 
 37 | 	.FUNCT	TELL-FORE-END,OBJ
 38 | 	PRINTI	"You are at the fore end of the "
 39 | 	CALL	DPRINT,OBJ
 40 | 	PRINTR	". You can see the ocean over the rail that runs around the deck. A ladder leads below deck, and the wheelhouse is aft of you. A chair is bolted to the deck."
 41 | 
 42 | 
 43 | 	.FUNCT	DECK-CHAIR-F,RARG=0
 44 | 	EQUAL?	RARG,M-OBJDESC \?ELS5
 45 | 	IN?	PETE,DECK-CHAIR \TRUE
 46 | 	CALL	TELL-IN-CHAIR,PETE
 47 | 	RTRUE	
 48 | ?ELS5:	ZERO?	RARG \FALSE
 49 | 	EQUAL?	PRSA,V?EXAMINE \?ELS15
 50 | 	PRINTI	"This weatherbeaten chair is used by a lookout while standing watch. It faces forward and is bolted to the deck. "
 51 | 	IN?	PETE,DECK-CHAIR \?CND18
 52 | 	CALL	TELL-IN-CHAIR,PETE
 53 | ?CND18:	CRLF	
 54 | 	RTRUE	
 55 | ?ELS15:	EQUAL?	PRSA,V?ASK-ABOUT \?ELS22
 56 | 	PRINTR	"""It's the lookout's chair."""
 57 | ?ELS22:	EQUAL?	PRSA,V?PUT-ON,V?PUT \?ELS26
 58 | 	EQUAL?	PRSI,DECK-CHAIR \?ELS26
 59 | 	CALL	IDROP
 60 | 	ZERO?	STACK /TRUE
 61 | 	IN?	PLAYER,DECK-CHAIR \?CND32
 62 | 	LOC	DECK-CHAIR
 63 | 	MOVE	PRSO,STACK
 64 | ?CND32:	PRINTR	"It slides off the chair and onto the deck."
 65 | ?ELS26:	EQUAL?	PRSA,V?BOARD \FALSE
 66 | 	IN?	PETE,DECK-CHAIR \FALSE
 67 | 	CALL	TELL-ALREADY,STR?305
 68 | 	RSTACK	
 69 | 
 70 | 
 71 | 	.FUNCT	TELL-IN-CHAIR,OCC
 72 | 	CALL	START-SENTENCE,OCC
 73 | 	PRINTR	" is sitting in the chair."
 74 | 
 75 | 
 76 | 	.FUNCT	MM-PORT-DECK-F,RARG,DOCK?
 77 | 	EQUAL?	RARG,M-ENTER \?ELS5
 78 | 	MOVE	BUNK,MM-CREW-QTRS
 79 | 	MOVE	UNDER-BUNK,MM-CREW-QTRS
 80 | 	MOVE	STOVE,MM-GALLEY
 81 | 	MOVE	DECK-CHAIR,MM-FORE-DECK
 82 | 	MOVE	REDS-BUNK,MM-CAPT-CABIN
 83 | 	MOVE	LOUNGE-CHAIR,MM-LOUNGE
 84 | 	IN?	PETE,MM-GALLEY \?CND6
 85 | 	MOVE	FOOD,STOVE
 86 | 	FSET	FOOD,NDESCBIT
 87 | ?CND6:	ZERO?	WATER-DELIVERED /FALSE
 88 | 	EQUAL?	SHIP-CHOSEN,SALVAGER \FALSE
 89 | 	MOVE	DRINKING-WATER,MM-GALLEY
 90 | 	FSET	DRINKING-WATER,NDESCBIT
 91 | 	RFALSE	
 92 | ?ELS5:	EQUAL?	RARG,M-LOOK \FALSE
 93 | 	CALL	TELL-FOO-SIDE,SALVAGER,STR?184,STR?183
 94 | 	RTRUE	
 95 | 
 96 | 
 97 | 	.FUNCT	TELL-FOO-SIDE,OBJ,SIDE,HOUSE,DOCK?
 98 | 	PRINTI	"You are on the "
 99 | 	PRINT	SIDE
100 | 	PRINTI	" side of the "
101 | 	CALL	DPRINT,OBJ
102 | 	PRINTI	", a sturdy vessel designed for "
103 | 	EQUAL?	OBJ,TRAWLER \?ELS5
104 | 	PRINTI	"trawling"
105 | 	JUMP	?CND3
106 | ?ELS5:	PRINTI	"deep-sea salvaging"
107 | ?CND3:	PRINTI	". To "
108 | 	PRINT	HOUSE
109 | 	PRINTI	" is a small wheelhouse, while "
110 | 	EQUAL?	OBJ,TRAWLER \?ELS16
111 | 	SET	'DOCK?,TRAWLER-DOCKED
112 | 	JUMP	?CND14
113 | ?ELS16:	SET	'DOCK?,SALVAGER-DOCKED
114 | ?CND14:	ZERO?	DOCK? /?ELS23
115 | 	PRINTI	"to "
116 | 	PRINT	SIDE
117 | 	PRINTR	" is the gangway leading to the dock. The gentle rocking of the boat in port reminds you of time spent on the open sea."
118 | ?ELS23:	PRINTI	"the ocean, with its blue-green waves crashing, lies off the "
119 | 	PRINT	SIDE
120 | 	PRINTR	" rail."
121 | 
122 | 
123 | 	.FUNCT	TELL-AFT-DECK
124 | 	PRINTI	"The smell of diesel fuel is strong but reassuring here on the aft deck. A ladder leads below deck, while forward you can see the entrance to the command center of the boat, the wheelhouse."
125 | 	RTRUE	
126 | 
127 | 
128 | 	.FUNCT	MM-AFT-DECK-F,RARG
129 | 	EQUAL?	RARG,M-LOOK \?ELS5
130 | 	CALL	TELL-AFT-DECK
131 | 	PRINTR	" A huge air compressor is bolted to the deck by the aft rail."
132 | ?ELS5:	EQUAL?	RARG,M-BEG \?ELS9
133 | 	EQUAL?	PRSA,V?WALK \FALSE
134 | 	IN?	AIR-HOSE,DEEP-SUIT \FALSE
135 | 	IN?	DEEP-SUIT,PLAYER \FALSE
136 | 	PRINTI	"You don't want to drag the "
137 | 	CALL	DPRINT,AIR-HOSE
138 | 	PRINTR	" around the boat."
139 | ?ELS9:	EQUAL?	RARG,M-FLASH \FALSE
140 | 	IN?	WEASEL,MM-AFT-DECK \FALSE
141 | 	ZERO?	AT-SEA /FALSE
142 | 	ZERO?	WEASEL-APPREHENDED \FALSE
143 | 	CALL	QUEUED?,I-PENDULUM
144 | 	ZERO?	STACK \FALSE
145 | 	CALL	QUEUE,I-PENDULUM,-1
146 | 	PUT	STACK,0,1
147 | 	CALL	TELL-WEASEL-TOSSES
148 | 	RSTACK	
149 | 
150 | 
151 | 	.FUNCT	TELL-WEASEL-TOSSES
152 | 	FCLEAR	LINE-HACK,INVISIBLE
153 | 	LOC	WEASEL
154 | 	MOVE	LINE-HACK,STACK
155 | 	PRINTI	"The Weasel tosses a line over the side and says, "
156 | 	PRINT	LINE-STR
157 | 	CRLF	
158 | 	RTRUE	
159 | 
160 | 
161 | 	.FUNCT	LINE-HACK-F,HOLDER=0
162 | 	LOC	LINE-HACK
163 | 	IN?	WEASEL,STACK \?ELS3
164 | 	SET	'HOLDER,WEASEL
165 | 	JUMP	?CND1
166 | ?ELS3:	LOC	LINE-HACK
167 | 	IN?	JOHNNY,STACK \?CND1
168 | 	SET	'HOLDER,JOHNNY
169 | ?CND1:	EQUAL?	PRSA,V?EXAMINE \?ELS10
170 | 	ZERO?	HOLDER /?ELS15
171 | 	CALL	START-SENTENCE,HOLDER
172 | 	PRINTI	" is holding one end of a weighted "
173 | 	CALL	DPRINT,LINE-HACK
174 | 	PRINTR	"."
175 | ?ELS15:	PRINTI	"One end of "
176 | 	CALL	APRINT,LINE-HACK
177 | 	PRINTR	" is here. Leave it alone."
178 | ?ELS10:	EQUAL?	PRSA,V?ASK-ABOUT,V?FIND /FALSE
179 | 	ZERO?	HOLDER /?ELS31
180 | 	CALL	START-SENTENCE,HOLDER
181 | 	PRINTR	" pulls it away. ""Don't mess with that!"""
182 | ?ELS31:	PRINTR	"Leave it alone."
183 | 
184 | 
185 | 	.FUNCT	MM-COMPRESSOR-F,TICK
186 | 	EQUAL?	PRSA,V?CLOSE,V?OPEN \?ELS5
187 | 	CALL	TELL-NO-NO
188 | 	RSTACK	
189 | ?ELS5:	EQUAL?	PRSA,V?PUT \?ELS7
190 | 	EQUAL?	PRSI,MM-COMPRESSOR \?ELS7
191 | 	PRINTR	"There's no place to put it."
192 | ?ELS7:	EQUAL?	PRSA,V?EXAMINE \?ELS13
193 | 	PRINTI	"The large, gasoline-powered air compressor is "
194 | 	FSET?	MM-COMPRESSOR,ONBIT \?ELS18
195 | 	PRINTI	"on"
196 | 	JUMP	?CND16
197 | ?ELS18:	PRINTI	"off"
198 | ?CND16:	PRINTI	". You can quickly see it "
199 | 	CALL	INT,I-MM-COMPRESSOR
200 | 	GET	STACK,C-TICK >TICK
201 | 	ZERO?	TICK \?ELS29
202 | 	PRINTI	"is out of fuel"
203 | 	JUMP	?CND27
204 | ?ELS29:	EQUAL?	TICK,80 \?ELS36
205 | 	PRINTI	"has"
206 | 	JUMP	?CND34
207 | ?ELS36:	PRINTI	"started with"
208 | ?CND34:	PRINTI	" fuel for an hour and a half's operation"
209 | ?CND27:	PRINTI	". A retractable "
210 | 	CALL	DPRINT,AIR-HOSE
211 | 	PRINTR	" is built in."
212 | ?ELS13:	EQUAL?	PRSA,V?LAMP-ON \?ELS48
213 | 	FSET?	MM-COMPRESSOR,ONBIT \?ELS53
214 | 	CALL	TELL-ALREADY,STR?56
215 | 	RSTACK	
216 | ?ELS53:	CALL	INT,I-MM-COMPRESSOR
217 | 	PUT	STACK,0,1
218 | 	FSET	MM-COMPRESSOR,ONBIT
219 | 	PRINTR	"Okay. The compressor is on."
220 | ?ELS48:	EQUAL?	PRSA,V?LAMP-OFF \?ELS59
221 | 	FSET?	MM-COMPRESSOR,ONBIT \?ELS64
222 | 	CALL	INT,I-MM-COMPRESSOR
223 | 	PUT	STACK,0,0
224 | 	FCLEAR	MM-COMPRESSOR,ONBIT
225 | 	CALL	TELL-NOW,MM-COMPRESSOR,STR?264
226 | 	RSTACK	
227 | ?ELS64:	CALL	TELL-ALREADY,STR?264
228 | 	RSTACK	
229 | ?ELS59:	EQUAL?	PRSA,V?LISTEN \FALSE
230 | 	FSET?	MM-COMPRESSOR,ONBIT \FALSE
231 | 	PRINTR	"The compressor is making a steady loud noise."
232 | 
233 | 
234 | 	.FUNCT	AIR-HOSE-F
235 | 	EQUAL?	PRSA,V?EXAMINE \?ELS5
236 | 	IN?	AIR-HOSE,DEEP-SUIT \?ELS10
237 | 	GETP	HERE,P?LINE
238 | 	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS15
239 | 	PRINTI	"This "
240 | 	CALL	DPRINT,AIR-HOSE
241 | 	PRINTI	" goes from the aft deck of the "
242 | 	CALL	DPRINT,SALVAGER
243 | 	PRINTR	" and ends at your diving suit. Without it, you would find breathing impossible."
244 | ?ELS15:	PRINTI	"It connects the "
245 | 	CALL	DPRINT,DEEP-SUIT
246 | 	PRINTI	" and the "
247 | 	CALL	DPRINT,MM-COMPRESSOR
248 | 	PRINTI	" "
249 | 	EQUAL?	HERE,MM-AFT-DECK \?ELS24
250 | 	PRINTI	"here"
251 | 	JUMP	?CND22
252 | ?ELS24:	PRINTI	"on the aft deck"
253 | ?CND22:	PRINTR	"."
254 | ?ELS10:	PRINTI	"It is designed to be connected to a "
255 | 	CALL	DPRINT,DEEP-SUIT
256 | 	PRINTR	" to provide air and is about 600 feet long."
257 | ?ELS5:	EQUAL?	PRSA,V?TIE,V?PUT \?ELS38
258 | 	EQUAL?	PRSI,DEEP-SUIT /?THN41
259 | 	EQUAL?	PRSO,DEEP-SUIT \?ELS38
260 | ?THN41:	IN?	AIR-HOSE,DEEP-SUIT \?ELS47
261 | 	CALL	TELL-ALREADY,STR?308
262 | 	RSTACK	
263 | ?ELS47:	MOVE	AIR-HOSE,DEEP-SUIT
264 | 	CALL	TELL-NOW,AIR-HOSE,CONNECT-STR
265 | 	RSTACK	
266 | ?ELS38:	EQUAL?	PRSA,V?TAKE \?ELS51
267 | 	IN?	AIR-HOSE,DEEP-SUIT \?ELS56
268 | 	CALL	TELL-ALREADY,CONNECT-STR
269 | 	RSTACK	
270 | ?ELS56:	PRINTI	"Why drag it around? Just connect it to the "
271 | 	CALL	DPRINT,DEEP-SUIT
272 | 	PRINTR	"."
273 | ?ELS51:	EQUAL?	PRSA,V?TIE \?ELS62
274 | 	CALL	TELL-YOU-CANT,STR?309
275 | 	RSTACK	
276 | ?ELS62:	EQUAL?	PRSA,V?UNTIE \?ELS64
277 | 	GETP	HERE,P?LINE
278 | 	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS69
279 | 	CALL	JIGS-UP,STR?310
280 | 	RSTACK	
281 | ?ELS69:	MOVE	AIR-HOSE,MM-COMPRESSOR
282 | 	PRINTR	"The hose retracts back to the compressor."
283 | ?ELS64:	EQUAL?	PRSA,V?MOVE \?ELS75
284 | 	PRINTR	"That was fun."
285 | ?ELS75:	EQUAL?	PRSA,V?CLIMB-FOO \FALSE
286 | 	CALL	TELL-YOU-CANT,STR?311
287 | 	RSTACK	
288 | 
289 | 
290 | 	.FUNCT	TELL-WHEELHOUSE,OBJ
291 | 	PRINTI	" Through the glass windows you see the "
292 | 	ZERO?	AT-SEA /?ELS7
293 | 	PRINTR	"ocean churning all around you."
294 | ?ELS7:	CALL	DPRINT,OBJ
295 | 	PRINTR	" docked at the wharf, and the island stretching aft. Forward, you see the choppy waters of the bay."
296 | 
297 | 
298 | 	.FUNCT	MM-WHEELHOUSE-F,RARG
299 | 	EQUAL?	RARG,M-LOOK \?ELS5
300 | 	PRINTI	"You are in the wheelhouse with a passageway leading out onto the deck abaft. You can see the "
301 | 	CALL	DPRINT,MM-COMPRESSOR
302 | 	PRINTI	" sitting there, taking up most of the aft deck."
303 | 	CALL	TELL-WHEELHOUSE,TRAWLER
304 | 	RTRUE	
305 | ?ELS5:	EQUAL?	RARG,M-BEG \FALSE
306 | 	EQUAL?	OCEAN,PRSO,PRSI \FALSE
307 | 	EQUAL?	PRSA,V?EXAMINE \?ELS19
308 | 	PRINTR	"You see the ocean through the window."
309 | ?ELS19:	EQUAL?	PRSA,V?ASK-ABOUT,V?FIND /FALSE
310 | 	CALL	TELL-YOU-CANT,STR?313
311 | 	RSTACK	
312 | 
313 | 
314 | 	.FUNCT	COMPRESSOR-PSEUDO,PARG=0
315 | 	EQUAL?	PARG,M-NAME \?ELS5
316 | 	PUTP	PSEUDO-OBJECT,P?SDESC,STR?314
317 | 	RTRUE	
318 | ?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS7
319 | 	CALL	TELL-YOU-CANT,STR?315
320 | 	RSTACK	
321 | ?ELS7:	CALL	TELL-CANT-REACH,STR?316
322 | 	RSTACK	
323 | 
324 | 
325 | 	.FUNCT	MM-LOCKER-F,RARG
326 | 	EQUAL?	RARG,M-LOOK \FALSE
327 | 	PRINTI	"You are in a relatively empty locker."
328 | 	PRINT	SPARE-PARTS-STR
329 | 	CRLF	
330 | 	RTRUE	
331 | 
332 | 
333 | 	.FUNCT	METAL-DETECTOR-F,TMP
334 | 	EQUAL?	PRSA,V?EXAMINE \?ELS5
335 | 	PRINTI	"The "
336 | 	CALL	DPRINT,METAL-DETECTOR
337 | 	PRINTI	"'s label is well-worn. It has a "
338 | 	CALL	DPRINT,DETECTOR-SWITCH
339 | 	PRINTI	" which is currently "
340 | 	ZERO?	DETECTOR-ON /?ELS10
341 | 	PRINTI	"on"
342 | 	JUMP	?CND8
343 | ?ELS10:	PRINTI	"off"
344 | ?CND8:	PRINTI	", and a compartment on the side which is "
345 | 	FSET?	DETECTOR-COMPARTMENT,OPENBIT \?ELS22
346 | 	PRINTI	"open"
347 | 	FIRST?	DETECTOR-COMPARTMENT >TMP \?CND20
348 | 	PRINTI	" and contains "
349 | 	CALL	APRINT,TMP
350 | 	JUMP	?CND20
351 | ?ELS22:	PRINTI	"closed"
352 | ?CND20:	PRINTR	"."
353 | ?ELS5:	EQUAL?	PRSA,V?LAMP-ON \?ELS37
354 | 	SET	'DETECTOR-ON,TRUE-VALUE
355 | 	CALL	TELL-SWITCH,STR?56
356 | 	RTRUE	
357 | ?ELS37:	EQUAL?	PRSA,V?LAMP-OFF \?ELS39
358 | 	SET	'DETECTOR-ON,FALSE-VALUE
359 | 	CALL	TELL-SWITCH,STR?264
360 | 	RTRUE	
361 | ?ELS39:	EQUAL?	PRSA,V?LISTEN \?ELS41
362 | 	CALL	DETECTOR-NOISE,TRUE-VALUE
363 | 	RTRUE	
364 | ?ELS41:	EQUAL?	PRSA,V?PUT \?ELS43
365 | 	EQUAL?	PRSI,METAL-DETECTOR \?ELS43
366 | 	CALL	PERFORM,V?PUT,PRSO,DETECTOR-COMPARTMENT
367 | 	RTRUE	
368 | ?ELS43:	EQUAL?	PRSA,V?EMPTY,V?CLOSE,V?OPEN \?ELS47
369 | 	CALL	PERFORM,PRSA,DETECTOR-COMPARTMENT
370 | 	SET	'P-IT-OBJECT,METAL-DETECTOR
371 | 	RTRUE	
372 | ?ELS47:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS49
373 | 	CALL	PERFORM,V?EXAMINE,DETECTOR-COMPARTMENT
374 | 	SET	'P-IT-OBJECT,METAL-DETECTOR
375 | 	RTRUE	
376 | ?ELS49:	EQUAL?	PRSA,V?SHAKE \FALSE
377 | 	FSET?	DETECTOR-COMPARTMENT,OPENBIT \?ELS54
378 | 	FIRST?	DETECTOR-COMPARTMENT \?ELS54
379 | 	MOVE	DRY-CELL,HERE
380 | 	SET	'DETECTOR-POWERED,FALSE-VALUE
381 | 	PRINTI	"The "
382 | 	CALL	DPRINT,DRY-CELL
383 | 	PRINTR	" falls out of the machine."
384 | ?ELS54:	PRINTR	"Nothing happens."
385 | 
386 | 
387 | 	.FUNCT	DETECTOR-LABEL-F
388 | 	EQUAL?	PRSA,V?TAKE \FALSE
389 | 	PRINTR	"You tug at it, but it can't be pulled off."
390 | 
391 | 
392 | 	.FUNCT	DETECTOR-SWITCH-F
393 | 	EQUAL?	PRSA,V?EXAMINE \?ELS5
394 | 	ZERO?	DETECTOR-ON /?ELS8
395 | 	CALL	TELL-SWITCH,STR?56
396 | 	RTRUE	
397 | ?ELS8:	CALL	TELL-SWITCH,STR?264
398 | 	RTRUE	
399 | ?ELS5:	EQUAL?	PRSA,V?LAMP-ON \?ELS13
400 | 	CALL	PERFORM,V?LAMP-ON,METAL-DETECTOR
401 | 	SET	'P-IT-OBJECT,DETECTOR-SWITCH
402 | 	RTRUE	
403 | ?ELS13:	EQUAL?	PRSA,V?LAMP-OFF \?ELS15
404 | 	CALL	PERFORM,V?LAMP-OFF,METAL-DETECTOR
405 | 	SET	'P-IT-OBJECT,DETECTOR-SWITCH
406 | 	RTRUE	
407 | ?ELS15:	EQUAL?	PRSA,V?THROW,V?MOVE,V?TURN \FALSE
408 | 	ZERO?	DETECTOR-ON /?ELS20
409 | 	CALL	PERFORM,V?LAMP-OFF,METAL-DETECTOR
410 | 	JUMP	?CND18
411 | ?ELS20:	CALL	PERFORM,V?LAMP-ON,METAL-DETECTOR
412 | ?CND18:	SET	'P-IT-OBJECT,DETECTOR-SWITCH
413 | 	RTRUE	
414 | 
415 | 
416 | 	.FUNCT	DETECTOR-COMPARTMENT-F,RARG=0
417 | 	EQUAL?	RARG,M-CONT \?ELS5
418 | 	EQUAL?	PRSA,V?TAKE \FALSE
419 | 	EQUAL?	PRSO,DRY-CELL \FALSE
420 | 	CALL	ITAKE
421 | 	ZERO?	STACK /TRUE
422 | 	PRINTI	"Taken."
423 | 	CRLF	
424 | 	ZERO?	DETECTOR-POWERED /TRUE
425 | 	SET	'DETECTOR-POWERED,FALSE-VALUE
426 | 	RTRUE	
427 | ?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?ELS23
428 | 	FSET?	DETECTOR-COMPARTMENT,OPENBIT \?ELS26
429 | 	PRINTI	"The compartment is on the side of the machine. Inside "
430 | 	FIRST?	DETECTOR-COMPARTMENT \?ELS31
431 | 	PRINTI	"is a connected"
432 | 	JUMP	?CND29
433 | ?ELS31:	PRINTI	"are connections for a"
434 | ?CND29:	PRINTI	" nine-volt "
435 | 	CALL	DPRINT,DRY-CELL
436 | 	PRINTR	"."
437 | ?ELS26:	CALL	TELL-CLOSED,STR?319
438 | 	RTRUE	
439 | ?ELS23:	EQUAL?	PRSA,V?PUT \?ELS43
440 | 	EQUAL?	PRSO,DETECTOR-COMPARTMENT /FALSE
441 | 	FSET?	DETECTOR-COMPARTMENT,OPENBIT /?ELS50
442 | 	CALL	TELL-CLOSED,STR?320
443 | 	RSTACK	
444 | ?ELS50:	EQUAL?	PRSO,DRY-CELL \?ELS52
445 | 	MOVE	DRY-CELL,DETECTOR-COMPARTMENT
446 | 	FSET?	DRY-CELL,RMUNGBIT /?CND53
447 | 	SET	'DETECTOR-POWERED,TRUE-VALUE
448 | ?CND53:	PRINTI	"The "
449 | 	CALL	DPRINT,DRY-CELL
450 | 	PRINTR	" fits snugly inside."
451 | ?ELS52:	PRINTR	"Unfortunately, it doesn't fit."
452 | ?ELS43:	EQUAL?	PRSA,V?OPEN \?ELS63
453 | 	IN?	DRY-CELL,DETECTOR-COMPARTMENT \?ELS63
454 | 	GETP	HERE,P?LINE
455 | 	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS63
456 | 	CALL	AIRTIGHT-ROOM?
457 | 	ZERO?	STACK \?ELS63
458 | 	FSET	DRY-CELL,RMUNGBIT
459 | 	SET	'DETECTOR-POWERED,FALSE-VALUE
460 | 	RFALSE	
461 | ?ELS63:	EQUAL?	PRSA,V?EMPTY \FALSE
462 | 	FSET?	DETECTOR-COMPARTMENT,OPENBIT \FALSE
463 | 	SET	'DETECTOR-POWERED,FALSE-VALUE
464 | 	RFALSE	
465 | 
466 | 
467 | 	.FUNCT	DEEP-SUIT-F
468 | 	EQUAL?	PRSA,V?CLOSE,V?OPEN \?ELS5
469 | 	CALL	TELL-NO-NO
470 | 	RSTACK	
471 | ?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS7
472 | 	PRINTI	"This "
473 | 	CALL	DPRINT,DEEP-SUIT
474 | 	PRINTR	" is bulky on land, but underwater it will protect you to 500 feet. It has a hood with ""viewport"" and a connection for a compressor hose."
475 | ?ELS7:	EQUAL?	PRSA,V?PUT \?ELS11
476 | 	EQUAL?	PRSI,DEEP-SUIT \?ELS11
477 | 	EQUAL?	PRSO,AIR-HOSE /?ELS11
478 | 	CALL	TELL-NO-NO
479 | 	RSTACK	
480 | ?ELS11:	EQUAL?	PRSA,V?WEAR \?ELS15
481 | 	FSET?	WET-SUIT,WORNBIT \?ELS15
482 | 	CALL	TELL-NO-FIT,STR?321
483 | 	RSTACK	
484 | ?ELS15:	EQUAL?	PRSA,V?DISEMBARK,V?THROW,V?DROP \FALSE
485 | 	GETP	HERE,P?LINE
486 | 	EQUAL?	STACK,UNDERWATER-LINE-C \FALSE
487 | 	CALL	JIGS-UP,STR?322
488 | 	RSTACK	
489 | 
490 | 
491 | 	.FUNCT	MM-CREW-QTRS-F,RARG,W
492 | 	EQUAL?	RARG,M-LOOK \?ELS5
493 | 	CALL	TELL-CREW-QTRS
494 | 	RTRUE	
495 | ?ELS5:	EQUAL?	RARG,M-ENTER \FALSE
496 | 	CALL	MOVE-SHARED-OBJECTS,MM-CREW-QTRS
497 | 	RFALSE	
498 | 
499 | 
500 | 	.FUNCT	BUNK-F,RARG=0,F
501 | 	ZERO?	RARG \FALSE
502 | 	EQUAL?	PRSA,V?SLEEP,V?BOARD \?ELS10
503 | 	FIRST?	BUNK >F \?ELS16
504 | 	EQUAL?	F,PLAYER \?THN13
505 | ?ELS16:	CALL	WEARING-SOMETHING?
506 | 	ZERO?	STACK /?ELS10
507 | ?THN13:	CALL	TELL-NOT-COMFORTABLE
508 | 	RSTACK	
509 | ?ELS10:	EQUAL?	PRSA,V?HIDE-UNDER,V?PUT-UNDER \?ELS18
510 | 	EQUAL?	PRSO,GLOBAL-SELF,ME \?ELS23
511 | 	PRINTR	"You won't fit."
512 | ?ELS23:	GETP	PRSO,P?SIZE
513 | 	LESS?	STACK,5 \?ELS27
514 | 	FIRST?	UNDER-BUNK \?ELS32
515 | 	CALL	TELL-NO-FIT
516 | 	RSTACK	
517 | ?ELS32:	MOVE	PRSO,UNDER-BUNK
518 | 	FSET	PRSO,NDESCBIT
519 | 	CALL	TELL-NOW,PRSO,STR?323
520 | 	RSTACK	
521 | ?ELS27:	CALL	TELL-NO-FIT
522 | 	RSTACK	
523 | ?ELS18:	EQUAL?	PRSA,V?LOOK-UNDER \FALSE
524 | 	FIRST?	UNDER-BUNK >F \?ELS43
525 | 	SET	'P-IT-OBJECT,F
526 | 	PRINTI	"There is "
527 | 	CALL	APRINT,F
528 | 	PRINTR	" under the mattress."
529 | ?ELS43:	PRINTR	"Nobody's hidden his life savings there."
530 | 
531 | 
532 | 	.FUNCT	WEARING-SOMETHING?,F
533 | 	FIRST?	PLAYER >F /?KLU12
534 | ?KLU12:	
535 | ?PRG1:	ZERO?	F /FALSE
536 | 	FSET?	F,WORNBIT \?ELS7
537 | 	EQUAL?	F,WATCH \TRUE
538 | ?ELS7:	NEXT?	F >F /?KLU13
539 | ?KLU13:	JUMP	?PRG1
540 | 
541 | 
542 | 	.FUNCT	UNDER-BUNK-F,RARG=0
543 | 	EQUAL?	RARG,M-OBJDESC /TRUE
544 | 	EQUAL?	RARG,M-CONT \FALSE
545 | 	EQUAL?	PRSA,V?TAKE \FALSE
546 | 	FCLEAR	PRSO,NDESCBIT
547 | 	RFALSE	
548 | 
549 | 
550 | 	.FUNCT	BUNKS-PSEUDO,PARG=0
551 | 	EQUAL?	PARG,M-NAME \?ELS5
552 | 	PUTP	PSEUDO-OBJECT,P?SDESC,STR?324
553 | 	RTRUE	
554 | ?ELS5:	PRINTR	"The only bunk you should worry about is your own."
555 | 
556 | 
557 | 	.FUNCT	MM-GALLEY-F,RARG
558 | 	CALL	GENERIC-GALLEY-F,RARG,MM-GALLEY
559 | 	RSTACK	
560 | 
561 | 
562 | 	.FUNCT	GENERIC-GALLEY-F,RARG,PLACE,?TMP1
563 | 	EQUAL?	RARG,M-ENTER \?ELS5
564 | 	PUTP	GLOBAL-SURFACE,P?SDESC,STR?36
565 | 	CALL	MOVE-SHARED-OBJECTS,PLACE
566 | 	RFALSE	
567 | ?ELS5:	EQUAL?	RARG,M-LOOK \?ELS7
568 | 	PRINTI	"You are in the "
569 | 	EQUAL?	PLACE,MM-GALLEY \?ELS12
570 | 	CALL	DPRINT,SALVAGER
571 | 	JUMP	?CND10
572 | ?ELS12:	CALL	DPRINT,TRAWLER
573 | ?CND10:	PRINTI	"'s galley. A stove and a small table are the fixtures here."
574 | 	IN?	FOOD,STOVE \?CND21
575 | 	CALL	TELL-STEW-ON
576 | ?CND21:	ZERO?	WATER-DELIVERED /?CND24
577 | 	GETP	SHIP-CHOSEN,P?LINE >?TMP1
578 | 	GETP	PLACE,P?LINE
579 | 	EQUAL?	?TMP1,STACK \?CND24
580 | 	PRINTI	" Water is available."
581 | ?CND24:	PRINTR	" A ladder leads up through the deck to the wheelhouse for feeding the captain in rough weather."
582 | ?ELS7:	EQUAL?	RARG,M-BEG \FALSE
583 | 	CALL	DOUBLE-DUTY-CHECK
584 | 	ZERO?	STACK \TRUE
585 | 	RFALSE
586 | 
587 | 
588 | 	.FUNCT	DOUBLE-DUTY-CHECK
589 | 	EQUAL?	PRSA,V?ASK-FOR \FALSE
590 | 	EQUAL?	PRSO,PETE \FALSE
591 | 	EQUAL?	PRSI,FOOD \?ELS12
592 | 	ZERO?	SOUPS-ON /?ELS17
593 | 	PRINTI	"""Take some "
594 | 	CALL	DPRINT,GLOBAL-SELF
595 | 	PRINTR	"."""
596 | ?ELS17:	PRINTR	"""Wait 'til it's ready."""
597 | ?ELS12:	EQUAL?	PRSI,DRINKING-WATER \FALSE
598 | 	PRINTI	"""Take it "
599 | 	CALL	DPRINT,GLOBAL-SELF
600 | 	PRINTR	"."""
601 | 
602 | 
603 | 	.FUNCT	TELL-STEW-ON,LEAD?=1
604 | 	ZERO?	LEAD? /?CND1
605 | 	PRINTI	" "
606 | ?CND1:	PRINTI	"A pot of stew is simmering on the stove."
607 | 	RTRUE	
608 | 
609 | 
610 | 	.FUNCT	STOVE-F
611 | 	EQUAL?	PRSA,V?EXAMINE \?ELS5
612 | 	PRINTI	"The small stove rests on gimbals that keep it relatively level."
613 | 	IN?	FOOD,STOVE \?CND8
614 | 	CALL	TELL-STEW-ON
615 | ?CND8:	CRLF	
616 | 	RTRUE	
617 | ?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS12
618 | 	IN?	FOOD,STOVE \?ELS12
619 | 	CALL	TELL-STEW-ON,FALSE-VALUE
620 | 	CRLF	
621 | 	RTRUE	
622 | ?ELS12:	EQUAL?	PRSA,V?LAMP-OFF,V?LAMP-ON \FALSE
623 | 	PRINTR	"That's Pete's job."
624 | 
625 | 
626 | 	.FUNCT	MM-LOUNGE-F,RARG
627 | 	EQUAL?	RARG,M-ENTER \FALSE
628 | 	PUTP	GLOBAL-SURFACE,P?SDESC,STR?36
629 | 	CALL	MOVE-SHARED-OBJECTS,MM-LOUNGE
630 | 	RFALSE	
631 | 
632 | 
633 | 	.FUNCT	LOUNGE-CHAIR-F,RARG=0,F
634 | 	EQUAL?	PRSO,CHAIR \FALSE
635 | 	EQUAL?	PRSA,V?BOARD \FALSE
636 | 	FIRST?	CHAIR >F \FALSE
637 | 	CALL	TELL-NOT-COMFORTABLE
638 | 	RSTACK	
639 | 
640 | 
641 | 	.FUNCT	REDS-BUNK-F
642 | 	EQUAL?	PRSA,V?SIT,V?SLEEP,V?BOARD /?THN6
643 | 	EQUAL?	PRSA,V?HIDE-UNDER,V?PUT-UNDER,V?SIT-ON /?THN6
644 | 	EQUAL?	PRSA,V?PUT \?ELS5
645 | 	EQUAL?	PRSI,REDS-BUNK \?ELS5
646 | ?THN6:	PRINTR	"You know better than to disturb the captain's bunk!"
647 | ?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
648 | 	PRINTR	"It's shipshape."
649 | 
650 | 
651 | 	.FUNCT	MM-ENGINE-ROOM-F,RARG
652 | 	EQUAL?	RARG,M-LOOK \FALSE
653 | 	PRINTI	"You are in a tiny cabin with barely enough room to breathe. By your feet lie the huge diesel engines of the "
654 | 	CALL	DPRINT,SALVAGER
655 | 	PRINTR	"."
656 | 
657 | 
658 | 	.FUNCT	ENGINE-PSEUDO,PARG=0
659 | 	EQUAL?	PARG,M-NAME \?ELS5
660 | 	PUTP	PSEUDO-OBJECT,P?SDESC,STR?328
661 | 	RTRUE	
662 | ?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS7
663 | 	PRINTR	"The engines are extremely complex and delicate pieces of machinery."
664 | ?ELS7:	EQUAL?	PRSA,V?PLUG,V?LAMP-OFF,V?LAMP-ON \?ELS11
665 | 	PRINTI	"Leave the engines to "
666 | 	CALL	DPRINT,WEASEL
667 | 	PRINTR	" and he'll leave the diving to you."
668 | ?ELS11:	EQUAL?	PRSA,V?ASK-ABOUT \?ELS15
669 | 	EQUAL?	PRSO,WEASEL \?ELS15
670 | 	PRINTR	"""These are in pretty good shape."""
671 | ?ELS15:	EQUAL?	PRSA,V?LISTEN \FALSE
672 | 	ZERO?	AT-SEA /FALSE
673 | 	CALL	TELL-YOU-CANT,STR?329
674 | 	RSTACK	
675 | 
676 | 
677 | 	.FUNCT	NW-FORE-DECK-F,RARG
678 | 	EQUAL?	RARG,M-LOOK \FALSE
679 | 	CALL	TELL-FORE-END,TRAWLER
680 | 	RSTACK	
681 | 
682 | 
683 | 	.FUNCT	NW-STARBOARD-DECK-F,RARG
684 | 	EQUAL?	RARG,M-ENTER \?ELS5
685 | 	MOVE	BUNK,NW-CREW-QTRS
686 | 	MOVE	UNDER-BUNK,NW-CREW-QTRS
687 | 	MOVE	STOVE,NW-GALLEY
688 | 	MOVE	DECK-CHAIR,NW-FORE-DECK
689 | 	MOVE	REDS-BUNK,NW-CAPT-CABIN
690 | 	MOVE	LOUNGE-CHAIR,NW-LOUNGE
691 | 	IN?	PETE,NW-GALLEY \?CND6
692 | 	MOVE	FOOD,STOVE
693 | 	FSET	FOOD,NDESCBIT
694 | ?CND6:	ZERO?	WATER-DELIVERED /FALSE
695 | 	EQUAL?	TRAWLER,SHIP-CHOSEN \FALSE
696 | 	MOVE	DRINKING-WATER,NW-GALLEY
697 | 	FSET	DRINKING-WATER,NDESCBIT
698 | 	RFALSE	
699 | ?ELS5:	EQUAL?	RARG,M-LOOK \FALSE
700 | 	CALL	TELL-FOO-SIDE,TRAWLER,STR?183,STR?184
701 | 	RTRUE	
702 | 
703 | 
704 | 	.FUNCT	NW-AFT-DECK-F,RARG
705 | 	EQUAL?	RARG,M-LOOK \?ELS5
706 | 	CALL	TELL-AFT-DECK
707 | 	CRLF	
708 | 	RTRUE	
709 | ?ELS5:	EQUAL?	RARG,M-FLASH \FALSE
710 | 	IN?	WEASEL,NW-AFT-DECK \FALSE
711 | 	ZERO?	AT-SEA /FALSE
712 | 	ZERO?	WEASEL-APPREHENDED \FALSE
713 | 	CALL	QUEUED?,I-PENDULUM
714 | 	ZERO?	STACK \FALSE
715 | 	CALL	QUEUE,I-PENDULUM,-1
716 | 	PUT	STACK,0,1
717 | 	CALL	TELL-WEASEL-TOSSES
718 | 	RSTACK	
719 | 
720 | 
721 | 	.FUNCT	NW-WHEELHOUSE-F,RARG
722 | 	EQUAL?	RARG,M-LOOK \?ELS5
723 | 	PRINTI	"You are in the wheelhouse of the "
724 | 	CALL	DPRINT,TRAWLER
725 | 	PRINTI	". The passageway leading out onto the deck lies abaft."
726 | 	CALL	TELL-WHEELHOUSE,SALVAGER
727 | 	RTRUE	
728 | ?ELS5:	EQUAL?	RARG,M-BEG \FALSE
729 | 	EQUAL?	OCEAN,PRSO,PRSI \FALSE
730 | 	EQUAL?	PRSA,V?EXAMINE \?ELS19
731 | 	PRINTR	"You see the ocean through the window."
732 | ?ELS19:	CALL	TELL-YOU-CANT,STR?313
733 | 	RSTACK	
734 | 
735 | 
736 | 	.FUNCT	NW-LOCKER-F,RARG
737 | 	EQUAL?	RARG,M-LOOK \FALSE
738 | 	PRINTI	"You are in a fairly empty storage locker. It must have been cleaned out after its last trawling expedition."
739 | 	PRINT	SPARE-PARTS-STR
740 | 	CRLF	
741 | 	RTRUE	
742 | 
743 | 
744 | 	.FUNCT	TELL-SWITCH,STR
745 | 	PRINTI	"The switch is now in the """
746 | 	PRINT	STR
747 | 	PRINTR	""" position."
748 | 
749 | 
750 | 	.FUNCT	DRILL-F,RARG=0
751 | 	EQUAL?	RARG,M-CONT \?ELS5
752 | 	EQUAL?	PRSA,V?TAKE \FALSE
753 | 	EQUAL?	PRSO,BATTERY \FALSE
754 | 	CALL	ITAKE
755 | 	ZERO?	STACK /TRUE
756 | 	PRINTI	"Taken."
757 | 	ZERO?	DRILL-POWERED /?CND18
758 | 	SET	'DRILL-POWERED,FALSE-VALUE
759 | 	ZERO?	DRILL-ON /?CND18
760 | 	CALL	INT,I-DRILL
761 | 	PUT	STACK,0,0
762 | 	PRINTI	" The drill bit winds to a halt."
763 | ?CND18:	CRLF	
764 | 	RTRUE	
765 | ?ELS5:	EQUAL?	PRSA,V?LAMP-ON \?ELS29
766 | 	EQUAL?	PRSO,DRILL \?ELS29
767 | 	ZERO?	DRILL-ON /?ELS36
768 | 	CALL	TELL-ALREADY,STR?56
769 | 	RSTACK	
770 | ?ELS36:	ZERO?	DRILL-POWERED /?ELS39
771 | 	SET	'DRILL-ON,TRUE-VALUE
772 | 	CALL	INT,I-DRILL
773 | 	PUT	STACK,0,1
774 | 	PRINTR	"The drill bit begins to spin."
775 | ?ELS39:	SET	'DRILL-ON,TRUE-VALUE
776 | 	CALL	TELL-SWITCH,STR?56
777 | 	RSTACK	
778 | ?ELS29:	EQUAL?	PRSA,V?LAMP-OFF \?ELS46
779 | 	EQUAL?	PRSO,DRILL \?ELS46
780 | 	ZERO?	DRILL-ON \?ELS53
781 | 	CALL	TELL-ALREADY,STR?264
782 | 	RSTACK	
783 | ?ELS53:	ZERO?	DRILL-POWERED /?ELS55
784 | 	SET	'DRILL-ON,FALSE-VALUE
785 | 	CALL	INT,I-DRILL
786 | 	PUT	STACK,0,0
787 | 	PRINTR	"The drill bit stops spinning."
788 | ?ELS55:	SET	'DRILL-ON,FALSE-VALUE
789 | 	CALL	TELL-SWITCH,STR?264
790 | 	RSTACK	
791 | ?ELS46:	EQUAL?	PRSA,V?EXAMINE \?ELS62
792 | 	PRINTI	"This waterproof wonder features a permanent bit"
793 | 	CALL	QUEUED?,I-DRILL
794 | 	ZERO?	STACK /?CND65
795 | 	PRINTI	" which is turning"
796 | ?CND65:	PRINTI	", a panel which is "
797 | 	FSET?	DRILL,OPENBIT \?ELS74
798 | 	PRINTI	"open"
799 | 	ZERO?	DRILL-POWERED /?ELS79
800 | 	PRINTI	" with a C battery inside"
801 | 	JUMP	?CND72
802 | ?ELS79:	PRINTI	", revealing space for a C battery"
803 | 	JUMP	?CND72
804 | ?ELS74:	PRINTI	"closed"
805 | ?CND72:	PRINTI	", and a switch which is in the """
806 | 	ZERO?	DRILL-ON /?ELS95
807 | 	PRINTI	"on"
808 | 	JUMP	?CND93
809 | ?ELS95:	PRINTI	"off"
810 | ?CND93:	PRINTR	""" position."
811 | ?ELS62:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS106
812 | 	CALL	PERFORM,V?EXAMINE,DRILL
813 | 	RTRUE	
814 | ?ELS106:	EQUAL?	PRSA,V?OPEN \?ELS108
815 | 	IN?	BATTERY,DRILL \?ELS108
816 | 	GETP	HERE,P?LINE
817 | 	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS108
818 | 	CALL	AIRTIGHT-ROOM?
819 | 	ZERO?	STACK \?ELS108
820 | 	FSET	BATTERY,RMUNGBIT
821 | 	SET	'DRILL-POWERED,FALSE-VALUE
822 | 	RFALSE	
823 | ?ELS108:	EQUAL?	PRSI,DRILL \FALSE
824 | 	EQUAL?	PRSA,V?PUT \?ELS117
825 | 	FSET?	DRILL,OPENBIT /?ELS122
826 | 	SET	'P-IT-OBJECT,DRILL
827 | 	CALL	TELL-CLOSED,STR?320
828 | 	RSTACK	
829 | ?ELS122:	EQUAL?	PRSO,BATTERY \?ELS124
830 | 	MOVE	BATTERY,DRILL
831 | 	FSET?	BATTERY,RMUNGBIT \?CND125
832 | 	CALL	TELL-NOW,BATTERY,STR?332
833 | 	RTRUE	
834 | ?CND125:	SET	'DRILL-POWERED,TRUE-VALUE
835 | 	ZERO?	DRILL-ON /?ELS132
836 | 	CALL	INT,I-DRILL
837 | 	PUT	STACK,0,1
838 | 	PRINTR	"The drill bit starts spinning."
839 | ?ELS132:	CALL	TELL-NOW,BATTERY,STR?332
840 | 	RSTACK	
841 | ?ELS124:	CALL	TELL-NO-FIT
842 | 	RSTACK	
843 | ?ELS117:	EQUAL?	PRSA,V?TELL,V?ASK-ABOUT,V?TAKE /FALSE
844 | 	EQUAL?	PRSA,V?PUT-ON,V?PUT-AGAINST /FALSE
845 | 	ZERO?	DRILL-ON /?THN148
846 | 	ZERO?	DRILL-POWERED \FALSE
847 | ?THN148:	EQUAL?	PRSO,GLOBAL-TIME /FALSE
848 | 	SET	'P-IT-OBJECT,DRILL
849 | 	PRINTI	"The "
850 | 	CALL	DPRINT,DRILL
851 | 	PRINTR	" isn't running!"
852 | 
853 | 
854 | 	.FUNCT	GENERIC-HOLE-F
855 | 	EQUAL?	PRSA,V?EXAMINE \?ELS5
856 | 	PRINTR	"As holes go, it's very nice."
857 | ?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS9
858 | 	PRINTR	"You see nothing new."
859 | ?ELS9:	EQUAL?	PRSA,V?REACH-IN \FALSE
860 | 	PRINTR	"It's not that big."
861 | 
862 | 
863 | 	.FUNCT	ADD-HOLE,OBJ,I
864 | 	FSET?	HOLE-1,INVISIBLE \?ELS3
865 | 	FCLEAR	HOLE-1,INVISIBLE
866 | 	MOVE	HOLE-1,OBJ
867 | 	JUMP	?CND1
868 | ?ELS3:	FSET?	HOLE-2,INVISIBLE \?ELS5
869 | 	FCLEAR	HOLE-2,INVISIBLE
870 | 	PUTP	HOLE-1,P?SDESC,STR?335
871 | 	MOVE	HOLE-2,OBJ
872 | 	JUMP	?CND1
873 | ?ELS5:	PRINTI	"The drill should be dead now."
874 | 	CRLF	
875 | ?CND1:	CALL	INT,I-DRILL >I
876 | 	GET	I,C-TICK
877 | 	SUB	STACK,1
878 | 	PUT	I,C-TICK,STACK
879 | 	GET	I,C-TICK
880 | 	ZERO?	STACK \TRUE
881 | 	CALL	I-DRILL
882 | 	RTRUE	
883 | 
884 | 
885 | 	.FUNCT	TELL-CREW-QTRS
886 | 	PRINTR	"You are below deck in the crew's quarters. Narrow, uncomfortable bunks line the bulkheads, and you note the similarity between this area and a sardine can. Sleeping here is necessary but uninviting. A ladder leads up and out to the fore deck."
887 | 
888 | 
889 | 	.FUNCT	NW-CREW-QTRS-F,RARG,W
890 | 	EQUAL?	RARG,M-LOOK \?ELS5
891 | 	CALL	TELL-CREW-QTRS
892 | 	RSTACK	
893 | ?ELS5:	EQUAL?	RARG,M-ENTER \FALSE
894 | 	CALL	MOVE-SHARED-OBJECTS,NW-CREW-QTRS
895 | 	RFALSE	
896 | 
897 | 
898 | 	.FUNCT	NW-GALLEY-F,RARG
899 | 	CALL	GENERIC-GALLEY-F,RARG,NW-GALLEY
900 | 	RSTACK	
901 | 
902 | 
903 | 	.FUNCT	NW-LOUNGE-F,RARG
904 | 	EQUAL?	RARG,M-ENTER \FALSE
905 | 	PUTP	GLOBAL-SURFACE,P?SDESC,STR?36
906 | 	CALL	MOVE-SHARED-OBJECTS,NW-LOUNGE
907 | 	RFALSE	
908 | 
909 | 
910 | 	.FUNCT	NW-ENGINE-ROOM-F,RARG
911 | 	EQUAL?	RARG,M-LOOK \FALSE
912 | 	PRINTI	"You are in a tiny, smelly space where it is difficult to breathe. By your feet lie the diesel engines of the "
913 | 	CALL	DPRINT,TRAWLER
914 | 	PRINTR	"."
915 | 
916 | 	.ENDI
917 | 


--------------------------------------------------------------------------------
/revisions.mss:
--------------------------------------------------------------------------------
  1 | @MAKE [TEXT]
  2 | @STYLE [SPACING 2,JUSTIFICATION NO]
  3 | @TITLE [TOA2 Design Notes]
  4 | @TabSet [4,8,12,16,20]
  5 | @pageheading [draft]
  6 | @MAJORHEADING [** Fourth Design 10/20/83 **]
  7 | 
  8 | @section [Introduction]
  9 | 
 10 | The game will be TIME oriented. The story takes advantage of the clock, with
 11 | characters saying something like "Meet me at the Red Boar Inn at 7:15.
 12 | Don't be late or we'll leave you behind."  The MC will have a watch
 13 | which is what will be displayed on the status line.  A nice side-effect should
 14 | be the ability to "synchonize watches".  One of the characters will
 15 | suggest it, and the MC will the get to RESET WATCH TO HH:MM.  The status
 16 | line would be updated accordingly.  The story cannot operate off of
 17 | @u(this) clock -- it must have its own internal clock as well as the
 18 | clock displayed on the status line.  Night and day, hunger and thirst,
 19 | other characters' movements, etc., can be done independently of what the
 20 | MC's watch (STATUS LINE) says.
 21 | 
 22 | The brief description of the story is as follows:  The MC has a
 23 | reputation for being a "square-shooter" and "great diver (like Mike
 24 | Nelson)" and is roped into a plot to salvage a sunken pirate ship off
 25 | the coast.  Successfully doing so will mean the player wins.
 26 | 
 27 | There will be a number of wrecks (up to 7, all of which would be coded
 28 | as table entries), though only one of which contains the treasure for
 29 | that particular game.  This method of determining which wreck is worth
 30 | investigating, and then determing what equipment will be needed, will be
 31 | described later, and comprises a large portion of the player's
 32 | early experience.  The computer should generate the ship to be explored at
 33 | random, giving replay value.  The actual sunken ship will be a series of
 34 | interconnected rooms, with LDESCS being supplied by offsetting into a
 35 | table of LDESCS.
 36 | 
 37 | @section [Settings]
 38 | 
 39 | @Subsection [Seaport Island]
 40 | The game starts on the Seaport Island, and the first goal of the player
 41 | should be getting off the island with the tools and information he needs
 42 | to successfully excavate one of the wrecks.
 43 | 
 44 | @begin [enumerate]
 45 | 
 46 | The Red Boar Inn -- This is where the MC lives.  He has a small but
 47 | nicely furnished room which he rents by the month.  The room overlooks
 48 | the port and has marine charts, manuals on diving, etc.  All of his
 49 | personal belongings are here.  This location is actually 3 rooms -- the
 50 | entrance/downstairs; the upstairs hallway; and the MC's bedroom.
 51 | 
 52 | The Shanty -- The Shanty is a local pub/tavern where sailors and
 53 | adventurers like to hang about.  There are tables and a bar, and they
 54 | owner/bartender serves both food and drink.  The MC is well known to all
 55 | of the locals who hang about.  It's a dark but firendly place, with
 56 | parrots walking along the bar, insulting customers.  One of the parrots
 57 | wears an eyepatch.
 58 | 
 59 | Outfitters, Int'l -- This place is a store which has all the naval
 60 | stores necessary for a successful expedition.  The owner knows the MC.
 61 | The MC will be responsible for purchasing all the supplies necessary for
 62 | the expedition.  Stores purchased will depend upon the type of
 63 | expedition selected by the computer.
 64 | 
 65 | Warehouse -- The warehouse is normally locked, and houses some of the
 66 | equipment for Outfitters Int'l.  The MC has no access to this building
 67 | by normal means.
 68 | 
 69 | Wharf -- The wharf area is near The Shanty and Outfitters, Int'l.  There
 70 | are several boats and docks, but is not a good place to go walking about
 71 | in the evening.
 72 | 
 73 | McGinty Salvage -- A growing concern whose primary function is to
 74 | salvage old wrecks.  The MC and his compatriots will go into competition
 75 | with them.
 76 | 
 77 | Roads --
 78 | @begin [enumerate]
 79 | 
 80 | The Wharf Road runs along the northern edge of the island and gives
 81 | access to the wharf and docks.
 82 | 
 83 | The Ocean Road runs along the eastern edge of the island.  To the far
 84 | southeast corner is Point Lookout, a small but high cliff giving a far
 85 | and wide view of the sea.
 86 | 
 87 | The Shore Road goes along the southern edge of the island and ends at
 88 | the ferry boat landing.  It is here that all visitors arrive and leave.
 89 | 
 90 | The Winding Road travels along the north and heads west, ending at a
 91 | lighthouse.  Its southern edge is bordered by impenatrable swamp/marsh.
 92 | 
 93 | @end [enumerate]
 94 | 
 95 | Ocean -- This is technically a room, though it is there only as a
 96 | border.
 97 | 
 98 | Marsh -- A multi-room, like the ocean, from which there is no escape.
 99 | Many rooms enter, but there are no exits.
100 | 
101 | Field -- Behind the shops and buildings, west of the Ocean Road, is a
102 | large, innocuous field, not worth entering, refered to only in
103 | description.
104 | 
105 | Ships -- There are two ships, each of which has a different capability,
106 | each of which will be described later.
107 | 
108 | Mariners' Trust -- A bank, located on the south shore of the Island,
109 | which contains all of the MC's life savings.
110 | 
111 | @end [enumerate]
112 | 
113 | @subsection [The Seagoing Vessels]
114 | 
115 | There are two vessels from which the player may choose.
116 | 
117 | @begin [enumerate]
118 | 
119 | The Night Wind (THE TRAWLER) -- The trawler is a sturdy fishing boat,
120 | designed to weather high seas.  It is a sturdy, steady, and rather fast
121 | boat, though not really designed to do deep-sea salvaging.
122 | 
123 | The Mary Margaret (SALVAGE VESSEL) -- This boat is well outfitted, and a
124 | very seaworthy salvage boat.  The problems it presents is that it is
125 | expensive, and it is slow on the water.  It is also most frequently used
126 | by McGinty, and so not always available.  It is owned by Outfitters
127 | Int'l.
128 | 
129 | @end [enumerate]
130 | 
131 | Each ship will have three upper sections -- forward, midships, and aft
132 | -- while below decks there should be cabins, a galley, pantry, head,
133 | etc.
134 | 
135 | The Night Wind should be used on those wrecks at greater than N fathoms. 
136 | Otherwise, the Trawler should do.  The information relating to each
137 | ship's capabilities will be included in the game package.
138 | 
139 | One of the ships should have an air compressor, the kind usually used in
140 | filling scuba tanks.
141 | 
142 | @subsection [Sunken Ships]
143 | 
144 | The actual number of sunken ships needs to be determined, and will be a
145 | function of the rest of the design.  The wreck itself can be 20 or so
146 | rooms.  If there are 7 wrecks, that would mean that 7 X 20 = 140 LDESCS
147 | in a total of 20 tables for descriptions.  All exit information would be
148 | the same.  I humbly suggest intially building the code to handle any
149 | number of wrecks, with the starting implementation handling 3.
150 | 
151 | As the player is walking about through the murky waters, he can enter
152 | the hull and find his way up and down ladders, in and through
153 | passageways, etc.  Potential dangers here would be sharks, having his
154 | lifeline of his air hose cut by a falling timber, a slamming trapdoor,
155 | etc.  His pressurized suit could be torn on a nail.  He will have to
156 | successfully deduce what the metal detector he finds on board does, and
157 | how to use it. (See OBJECTS)  By using the detector properly, he will be
158 | able to locate the chest within the wreck.
159 | 
160 | The information on where the ships are located, at what depth, and a
161 | chart of what the vessel may have originally been carrying will be
162 | provided in the game package.
163 | 
164 | @section [Characters]
165 | 
166 | MC, the main character/player will not be fully drawn here.  This
167 | section deals with all secondary characters -- their personalities,
168 | motivations, physical characteristics and goals.
169 | 
170 | @subsection [McGinty]
171 | 
172 | McGinty is the owner of McGinty Salvage.  He is a small, nervous man,
173 | thin and always on the move.  He is balding, with thin strings of black
174 | hair swept across his scalp.  His lips are large and pouting, and
175 | invariably clamped around cigars which seem too large for his face.  He
176 | has a hooked nose that, when viewed head-on, almost seems to diasppear
177 | it is so thin.
178 | 
179 | He abhors physical violence, being easily out-muscled.  If there's a
180 | deal around, McGinty either knows about it already or is soon to find
181 | out.  There isn't a deal on the Island he doesn't have something to do
182 | with.  Business is his life, and making money is all he cares about.  He
183 | would be a retired, wealthy man if it weren't for his fear of other
184 | people.  This fear manifests itself as mistrust and apprehension --
185 | partly as a result of his diminutive stature.
186 | 
187 | He hears of the deal which our MC will cut with the others and tries to
188 | weasel his way in.  He may succeed in doing so if the Salvager is
189 | needed, since that boat belongs to his company.  He is not to be
190 | trusted, though, as his primary loyalty is to himself and then to money.
191 | 
192 | @subsection [Pete the Rat]
193 | 
194 | Pete the rat wears an eye patch and got his name from one of the long,
195 | far-east voyages he shipped out on.  It seems that food was running low
196 | and, as the ship's cook, he did what he had to to supply the crew with
197 | fresh meat.  Needless to say, when the crew found out, they insisted he
198 | be left at the nearest port, which the Captain was happy to do.
199 | 
200 | Pete the Rat is well-intentioned, though not the brightest of sailors. 
201 | He is well-experienced in the ways of the sea.  He talks slowly, as if
202 | trying to remember the words one at a time, dredging them up from his
203 | long term memory in a painful series of associations.
204 | 
205 | He's had some trouble getting another berth in which he functions as a
206 | cook, but our MC should not fear him.  The mistakes Pete made in the
207 | past were simply that -- mistakes from which he has learned.  Pete is
208 | tall and lanky, moves slowly at a shuffling gait, wears black
209 | turtlenecks and jeans even in the dead heat of summer.  The reason for
210 | his dress code is simple: they are the only clothes he owns.  If you
211 | plan to stand next to him, be sure you are not downwind.
212 | 
213 | @subsection [The Weasel]
214 | 
215 | The Weasel is a short, wirey guy with darting eyes and thin lips.  He
216 | rarely talks, except to nod his head and say "Got it, chief."  He takes
217 | orders and will do anything -- @u(anything) -- for money.  Whoever pays
218 | him, owns him.
219 | 
220 | He aspires to little more in life than to survive and retire to the Old
221 | Mariners' Home in Secaucus, N.J.  He isn't the brightest creature on the
222 | planet, but he is quick to pick up new ideas and mesh them with his
223 | slightly-twisted view of how the Universe works.  He picks his teeth
224 | with a knife, and God only knows where that knife has been.
225 | 
226 | The Weasel has a tatoo on his upper arm which says "Mother?" leading
227 | everyone to wonder whether he really ever had one.
228 | 
229 | @subsection [Johnny Red]
230 | 
231 | Johnny Red, whose real name is unknown to everyone on the Island, has
232 | crewed for just about every Captain who sailed the seas.  His name was
233 | derived from his flame-red hair and beard, both of which he has in
234 | enough quantity to make several dozen toupes.  He wears flannel shirts,
235 | with the top several buttons unbuttoned to expose a mat-like carpet of
236 | curly red hair on his chest.  With his shirt sleeves rolled up, he looks
237 | like something you left in your refrigerator for 30 weeks growing red
238 | hair-mold.
239 | 
240 | Johnny has a barrel chest and weighs in at 300 even.  To say he was
241 | large would be to say a sequoia is just another tree.  He is strong,
242 | reliable, and oddly non-violent, though you would never know that
243 | looking at him.
244 | 
245 | @section [Play]
246 | 
247 | What follows are some sample scenarios/plots based on best win, followed
248 | by complications, problems and puzzles.
249 | 
250 | @subsection [The Best Plot]
251 | 
252 | The story starts with the MC in his room.  There is a note which has
253 | been slipped under his door, inviting him to meet with the secondary
254 | characters at The Shanty at a set time.
255 | 
256 | The MC will be invited to join in on the salvage hunt by the secondary
257 | characters at The Shanty.  He will be shown a small piece of treasure
258 | found by Johnny.
259 | 
260 | The Weasel shows up between 10 and 15 minutes late to the meeting in the
261 | tavern OR he doesn't show up at all (see Complications -- General). 
262 | 
263 | If he agrees to throw in his lot with the secondary characters, he will
264 | have to get to Mariners' Trust and withdraw his money from his savings
265 | account.  He will need his passbook to do this, and his passbook is in
266 | his room.  He will have to meet Johnny Red at Point Lookout at a
267 | prearranged time with the money.  Johnny Red, carrying the others'
268 | money, will then accompany the MC to Outfitters Int'l.
269 | 
270 | Once at Outfitters Int'l, the MC will then purchase the supplies
271 | necessary for a successful salvage expedition.  Red will have the list
272 | from the cook, Pete, and other things which they will need.  The MC
273 | tells the man at Outfitters Int'l to deliver the things to the boat
274 | (whichever one the MC decides would be best for this voyage) and then
275 | returns to The Shanty to meet up with the others.
276 | 
277 | From here, all of the crew go to the boat.  The course is plotted and
278 | the crew takes care of getting the boat to where it needs to be.  They
279 | drop anchor and set up for the dive.
280 | 
281 | The MC, the underwater expert, then goes overboard and walks on the
282 | ocean floor to find the wreck.  Once there, he successfully locates the
283 | chest of treasure, hooks it up for hoisting, and returns to the ship. 
284 | The treasure is hauled up and all live happily ever after.
285 | 
286 | @subsection [Complications -- General]
287 | 
288 | If the player fails to lock the door into the MC's room after he leaves,
289 | the room can be ransacked.  If the passbook was left inside, it will be
290 | gone, stolen by The Weasel.  This means that The Weasel, normally late
291 | for the meeting at the bar, may not show up at all if he has
292 | successfully stolen the passbook.
293 | 
294 | @subsection [Complications -- McGinty]
295 | 
296 | After the initial meeting in The Shanty, Johnny Red tells them all that there
297 | is no good reason to tell anyone else what they are planning, and that
298 | all further discussions should be held in private.  Red suggests the
299 | Lighthouse out on Winding Road.  They agree to meet there one-half hour
300 | from now (or at a specific time).  If anyone is late, they'd better have
301 | a good excuse.
302 | 
303 | The others leave, letting the MC do what he will for the time he has. 
304 | Part of this time will be in finding the Lighthouse.  Part of the time
305 | will also be eaten up by McGinty, who will demand to know what is going
306 | on, where the MC is off to, who he was talking to, what they were
307 | talking about, etc.  If the MC should let anything slip, then McGinty
308 | will beat them all to the punch, making the entire trip futile.  On
309 | setting out, while at sea, the will see McGinty's ship coming back into
310 | port.  This will also prevent them from using the Salvager.
311 | 
312 | If he does not satisfy McGinty's questions and sets out directly for the
313 | Lighthouse, McGinty will follow him in the shadows.  Once the MC meets
314 | the secondary characters, McGinty will be seen and The Weasel will stick
315 | a knife between the MC's ribs, calling him a traitor.
316 | 
317 | @subsection [Complications -- Mariners' Trust]
318 | 
319 | Without his passbook, the MC will be prevented from getting his money.
320 | His passbook is in his room.  He may have to return there and get the
321 | passbook before the second meeting.  (His passbook, however, may have
322 | been stolen).  He will have the time to do this, but it is something
323 | some players may easily overlook.
324 | 
325 | There is the potential here for a double-cross (though I'm not sure it's
326 | worthwhile).  The Weasel could be standing outside and attempt to steal
327 | the money from the MC.  This would certainly be in character for The
328 | Weasel, seeing easy and quick money.
329 | 
330 | McGinty could also be at the bank and decide to follow the MC to he
331 | second meeting.
332 | 
333 | @subsection [Complications -- Second Metting]
334 | 
335 | Once the plans have been made at the Lighthouse, the second meeting is
336 | arranged, that to occur at 6:00 pm between the MC and Johnny Red at
337 | Point Lookout.  Both are to have their money.
338 | 
339 | If the MC does not show up at all, or if he shows up late (with or
340 | without the money) Red's body is found with bullet holes in it,
341 | McGinty's ship is gone, and the police arrest the MC in town.  The gun
342 | was found in his room.
343 | 
344 | If the MC shows up without the money, Red tells him they will go on
345 | without him and the game ends.
346 | 
347 | If the MC shows up more than 5 minutes early, McGinty will appear there,
348 | preventing Red from arriving, thus blowing then entire affair, ending in
349 | a lose.
350 | 
351 | @subsection [Complications -- Outfitting]
352 | 
353 | Two kinds of complications can occur at Outfitters Int'l:
354 | 
355 | @begin [enumerate]
356 | 
357 | Buying the wrong supplies.
358 | 
359 | Buying the supplies in front of McGinty.
360 | 
361 | @end [enumerate]
362 | 
363 | If the MC purchases the wrong supplies, the expedition will utimately
364 | fail.  If the MC continues to purchase supplies after McGinty walks in,
365 | McGinty will get wise and beat them all to the punch.  It will be
366 | necessary for the MC to instruct McGinty to leave or to get Red to
367 | physically remove McGinty.
368 | 
369 | @subsection [Complications -- The Wrong Boat]
370 | 
371 | Taking the wrong boat will ultimately lead to a lose.  The exact
372 | methods, reasons and complications are as yet unknown.
373 | 
374 | @subsection [Puzzles]
375 | 
376 | There is the "mysterious black-box" problem, where the black-box is
377 | actually a metal detector or some strange origin.  This could be useful
378 | in locating the treasure in the wreck.
379 | 
380 | @subsection [Objects]
381 | 
382 | Bed in MC's room.
383 | 
384 | A note which was slipped under his door.
385 | 
386 | A door under which the note was slipped.
387 | 
388 | A Passbook for his savings & loan account.
389 | 
390 | A Ditty bag (shades of TOA1's knapsack!)
391 | 
392 | A scuba tank, wet suit, mask and flippers.
393 | 
394 | Characters:
395 | @begin [enumerate]
396 | McGinty
397 | 
398 | Johnny Red
399 | 
400 | Pete the Rat
401 | 
402 | The Weasel
403 | 
404 | The Parrot
405 | 
406 | The bartender/waiter/outfitter/bank teller
407 | @end [enumerate]
408 | 
409 | A table around which the characters can sit in the bar/tavern.
410 | 
411 | A chair in which the player can sit.
412 | 
413 | An envelope of money which the player will get at the bank.
414 | 
415 | A key to the MC's room.
416 | 
417 | The Ocean Map will have to be provided with the game package, but should
418 | be included as an object (as the cube was in TOA1) to tell them to look
419 | in their game package.
420 | 
421 | A wrist watch, which the player should be wearing.  It should be
422 | possible to break the watch, and not breaking the watch should be the
423 | goal in one interaction between the player & the environment.
424 | 
425 | A strand of red hair.  This will be described as simply a strand of
426 | hair.  If the player picks it up and examines it, it will described as
427 | being red hair.  This strand of hair will appear in a place where Johnny
428 | Red shouldn't have been, but was, thus giving the player a much needed
429 | clue as to what is going on.
430 | 
431 | Shipboard Objects:
432 | @begin [enumerate]
433 | A Navigational beacon finder black-box frobbie, used to find out where
434 | you are by using LORAN.  This will be aboard only one of the boats.
435 | 
436 | Bunks
437 | 
438 | Chart table
439 | 
440 | Small Machine: The metal detector will be found onboard the Mary
441 | Margaret and will work as follows.  There will be a (label) on the small
442 | machine, though the letters should be so well-worn as to render the
443 | label useless.  There will be an off/on switch and a compartment inside
444 | it for batteries.  By switching it on with a live battery, it will make
445 | a ticking sound when brought near metal.  This will require some objects
446 | to have a METAL bit. Proximity is going to present a bit of a problem.
447 | 
448 | Label (on the small machine)
449 | 
450 | Off/On switch (on the small machine)
451 | 
452 | Batteries (for the small machine)
453 | 
454 | @end [enumerate]
455 | 
456 | @section [Package Elements]
457 | 
458 | @subsection [Tides]
459 | Included in the game package should be a tidal chart, good for the week
460 | of this game.  Since the game play takes about three days, it is
461 | important that the chart give low and high tides.
462 | 
463 | Sailing without the tidal chart may prove to be disasterous.
464 | 
465 | @subsection [Ocean Map]
466 | This map should be an ocean "chart" with various depth soundings, marker
467 | bouys, latitude and longitude markings, etc.  It should also indicate
468 | where the various wrecks are located.
469 | 
470 | @SECTION [Sequence of Events]
471 | What follows is a rough guess as to where everyone is at any specified
472 | time.  When they move from one place to another on their own, it will be
473 | marked with an asterik within parens, like so: (*).
474 | 
475 | (*) @u(NOTE:  The Ferry Boat leaves the Island every 2nd hour, starting
476 | at 8:00 AM and arrives every second hour starting at 9:00 AM.  Normal
477 | ferry service stops at 6:00 PM.)
478 | 
479 | @subsection [Day 1: Tuesday, November 7th]
480 | 8:00 AM
481 | @begin [enumerate]
482 | Main Character is in bed.  The note has already been slipped under his door.
483 | The note is signed by Johnny Red.
484 | 
485 | McGinty is in his office in McGinty Salvage.
486 | 
487 | The others are sitting in The Shanty, having their morning grog.
488 | @end [enumerate]
489 | 
490 | 8:15 AM -- The Weasel's Move
491 | @begin [enumerate]
492 | (*) The Weasel makes for MC's room.  If he is there, he says "Hi, how
493 | 'bout comin' down to the Shanty for a talk."  If MC is not there, he
494 | tries to open the door.  If locked, he returns to the Shanty.  If not
495 | locked, he enters the room and searches for the passbook.
496 | @end [enumerate]
497 | 
498 | 8:20 - 8:25 AM
499 | @begin [enumerate]
500 | (*) The Weasel makes for either the Shanty or the Mariner's Trust.
501 | @end [enumerate]
502 | 
503 | 8:30 AM -- Time for the meeting
504 | @begin [enumerate]
505 | If the MC is present...
506 | 
507 | And if The Weasel is present... The skecthes of a deal is made and
508 | accepted by the MC.  If the the MC shows no interest he dies of old age
509 | in an old sailor's home (<JIGS-UP "">)
510 | 
511 | A meeting is set up by the lighthouse, where the plans can be discussed
512 | in utmost privacy.  The Shanty is not the place to be discussing private
513 | plans.  They agree to meet at the Lighthouse at 9:30, at which point all
514 | will be made clearer.
515 | 
516 | If The Weasel is not present... NO MENTION OF A DEAL is made. Johnny
517 | insists on waiting for The Weasel to show.  If The Weasel shows up by
518 | 8:45 then after he explains he was ducking McGinty's tail, they shoot
519 | the idea of a deal to the MC.  (If The Weasel doesn't show by 8:45, it can be
520 | assumed he has found the MC's bankbook and is making his way to the
521 | bank.)
522 | 
523 | If the MC is not present...
524 | 
525 | (*) They wait until 9:00 for him to show up.  At which point, they go to the
526 | outfitters, get a ship, then sail off.  <JIGS-UP "The ship sailed
527 | without you.">
528 | @end [enumerate]
529 | 
530 | 8:45 AM -- McGinty's trip
531 | @begin [enumerate]
532 | (*) McGinty leaves his office and heads for the Outfitters Intl.  He
533 | needs some supplies for a trip he's planning and so wants to go over a
534 | list he has with the man behind the counter (a spear-carrier at best).
535 | @end [enumerate]
536 | 
537 | 9:00 AM
538 | @begin [enumerate]
539 | (*) All secondary characters leave the bar and head for the lighthouse
540 | one at a time, spacing their exits in three minute intervals.
541 | 
542 | They leave in the following order:
543 | 
544 | (*) The weasel
545 | 
546 | (*) Pete the rat
547 | 
548 | (*) Johnny Red
549 | 
550 | (*) McGinty leave Outfitter's Intl and waits outside The Shanty,
551 | checking it out.
552 | @end [enumerate]
553 | 
554 | 9:15 -- McGinty makes a move
555 | 
556 | @begin [enumerate]
557 | McGinty is hanging around outside The Shanty.  He will wait here until
558 | 9:15 at which time he will head back to his office.
559 | 
560 | IF the MC leaves The Shanty before 9:15 then McGinty will follow him.
561 | 
562 | (*) 9:16 -- McGinty heads back to his office if MC has not yet left The
563 | Shanty.
564 | @end [enumerate]
565 | 
566 | 9:30 - 9:45 -- The Lighthouse Meeting
567 | @begin [enumerate]
568 | The characters will wait until the MC shows up OR until 9:45, whichever
569 | comes first.  If he shows later than 9:45 he may see them walking along,
570 | heading back to the shanty, the bank, etc. as described in their later
571 | actions.
572 | 
573 | (*) IF McGinty follows him there, the crowd begins to walk back to The
574 | Shanty, afraid the MC has double-crossed them.
575 | 
576 | IF the MC arrives before 9:45... All of the characters, with the
577 | exception of McGinty, will be there.  Here, the plan is laid out in
578 | greater detail.  Johnny Red will captain the boat.  The Weasel will be
579 | an all-around deckhand.  Pete the Rat will be the cook.  The MC will be
580 | the diver, since he has the equipment and the experience (see OBJECTS).
581 | 
582 | A second meeting is set up for 10:45 AM, to take place at Lookout Point.
583 | Johnny Red and the MC are to meet there and then go to Outfitters Int'l
584 | with the money.  All have put in their life savings on this venture, and
585 | the MC is expected to do the same.
586 | 
587 | Pete the Rat mentions that the tide is in between 4 and 5 PM, and if
588 | they plan to get things in gear, they had better plan on leaving then.
589 | 
590 | The characters then leave this area one by one, at three minute intervals, in the following order:
591 | @begin [enumerate]
592 | (*) Johnny Red (going to the Outfitters).
593 | 
594 | (*) Pete the Rat (going to The Shanty).
595 | 
596 | (*) The Weasel (going to the Shanty).
597 | @end [enumerate]
598 | @end [enumerate]
599 | 
600 | 10:45 -- Second Meeting (Lookout Point)
601 | @begin [enumerate]
602 | Johnny Red will wait here until 11:00 AM.
603 | 
604 | (*) IF the MC does not show by 11:00... Johnny Red will go back to The
605 | Shanty and a <JIGS-UP "The ship sailed without you"> will occur.
606 | 
607 | (*) IF the MC shows up before 11:00... AND IF he has the money, they
608 | will both walk to Outfitter's Int'l. (Actually, Johnny Red, after seeing
609 | the MC's green, will walk to the Outfitters, expecting the MC to walk
610 | along with him.  It is the MC's decision as to whether or not to
611 | accompany Johnny Red.)
612 | 
613 | (*) IF the MC shows up before 11:00... AND IF he DOES NOT have the
614 | money, Johnny Red will be forced to push the MC off the cliff to silence
615 | him. <JIGS-UP>.
616 | @END [ENUMERATE]
617 | 
618 | 11:10 - 11:45 (or so) -- At the Outfitters...
619 | 
620 | We can assume, at this point, that the meeting at the Lookout Point took
621 | place between the MC and Johnny.
622 | 
623 | @begin [enumerate]
624 | The MC and Johnny Red buy provisions for their trip and rent one of the
625 | seagoing vessels.  (Deciding which boat to rent will be placed on the
626 | shoulders of the MC.)  Johnny will hang around for awhile, telling the
627 | ship's store what he needs in the way of provisions.
628 | 
629 | (*) Johnny will leave the store at between 11:45 and Noon.  He is
630 | heading for luncheon at (you guessed it) The Shanty.
631 | @end [enumerate]
632 | 
633 | MC NOTE: The MC will be expected to get his equipment to the proper dock
634 | before 4:00, so it can be loaded aboard the proper vessel.  The other
635 | characters will not wait for him, and there is a high probability that if he
636 | leaves his things unattended, they will be stolen.
637 | 
638 | 3:10 - 3:30 -- The Weasel Attempts Another Nasty...
639 | @begin [enumerate]
640 | (*) From wherever The Wease is now, at 3:10, he starts down to the dock
641 | where they will be sailing from.  His arrival there will be anywhere
642 | around 3:15 to 3:30.  This will enable him to check out the docks for
643 | anything which is purloinable.
644 | 
645 | (*) IF he finds something worth stealing (eg: MC's possessions)... The
646 | Wease takes what he can handle, assuming no one else is around, and
647 | makes his way up to the Outfitters to pawn it.
648 | 
649 | (*) IF the MC asks him to keep an eye on his things... The wease still
650 | steals what he can and hocks it.  He then goes to the Ferry Landing to
651 | get the hell out of there.  (The Wease is not the brightest nor is he
652 | the most relizble of creatures known to modern man, ergo, his actions
653 | are within character.)
654 | @END [ENUMERATE]


--------------------------------------------------------------------------------