From 54d8efc54632853305255e083769d1245ccccc94 Mon Sep 17 00:00:00 2001 From: historicalsource Date: Sun, 14 Apr 2019 00:10:47 -0400 Subject: [PATCH] Revision 12 (Original Source) --- README.md | 1 + events.zil | 4870 ++++++++++++ macros.zil | 219 + misc.zil | 2040 +++++ parser.zil | 3241 ++++++++ people.zil | 1955 +++++ places.zil | 6786 ++++++++++++++++ syntax.zil | 1217 +++ things.zil | 18952 +++++++++++++++++++++++++++++++++++++++++++++ tr.chart | 4 + tr.errors | 22 + tr.pre | Bin 0 -> 100864 bytes tr.pur | Bin 0 -> 161200 bytes tr.record | 2679 +++++++ tr.serial | 1 + tr.xzap | 14 + tr.zil | 38 + tr.zip | Bin 0 -> 262064 bytes tralpha.chart | 206 + tralpha.zip | Bin 0 -> 154460 bytes trbeta.zip | Bin 0 -> 230484 bytes trfinal.chart | 358 + trprealpha.chart | 293 + verbs.zil | 3858 +++++++++ 24 files changed, 46754 insertions(+) create mode 100644 README.md create mode 100644 events.zil create mode 100644 macros.zil create mode 100644 misc.zil create mode 100644 parser.zil create mode 100644 people.zil create mode 100644 places.zil create mode 100644 syntax.zil create mode 100644 things.zil create mode 100644 tr.chart create mode 100644 tr.errors create mode 100644 tr.pre create mode 100644 tr.pur create mode 100644 tr.record create mode 100644 tr.serial create mode 100644 tr.xzap create mode 100644 tr.zil create mode 100644 tr.zip create mode 100644 tralpha.chart create mode 100644 tralpha.zip create mode 100644 trbeta.zip create mode 100644 trfinal.chart create mode 100644 trprealpha.chart create mode 100644 verbs.zil diff --git a/README.md b/README.md new file mode 100644 index 0000000..e6d1c7b --- /dev/null +++ b/README.md @@ -0,0 +1 @@ +# trinity diff --git a/events.zil b/events.zil new file mode 100644 index 0000000..df32e86 --- /dev/null +++ b/events.zil @@ -0,0 +1,4870 @@ +"EVENTS for TRINITY: (C)1986 Infocom, Inc. All rights reserved." + +> + + + + ; "Length of an interrupt entry." + ; "Offset of routine name." + ; "Offset of count." + +> + + )> + > + +> + > + + ) + ( .RTN> + > + ) + (T + )>)> + >>> + +"This version of QUEUE automatically enables as well." + +)) + > + > + + + ) + (T + + )> + > + >)> + + ) + ( .RTN> + + ) + (> + )> + >> + + ') + (ELSE + ' >)> + >>)> + + .INT> + +> +> + + + +> +> + +> + + + )> + > + > + > + > + +) (Q? <>)) + + > + )> + > + > + + + + )> + > + + > + + + > + + + )>)>)> + ) + (> + > + + 3>> + ) + ( + + > + )> + + )> + > + + ') + (T + ' + 1>>)>> + + )> + + )> + + >> + )>)>)>)> + > + + >)>> + > + +"*** GARDENS ***" + + + + + + + + + + + )> + + + ) + (T + )> + + 5> ; "Atari ST?" + + + ) + (T + )> + + + + ) + (T + )> + + + + > + )> + + + )> + + + ) + (T + )>) + (T + )> + + + + + + + + + + > + + + + + + > + > + + + + + > + + + + > + +> + ) + ( ; "Buys one move" + + ) + (T + + + + + + + )>> + + + +) (BAG? <>) (BOTH? <>)) + + > + )> + + + + + + ) + ( + )> + + + )> + + + )> + + + )> + + > + + + ) + ( + )> + + + ) + ( + > + )> + + + + + + > + + + )> + ) + (T + + )> + + + ) + (T + )> + + ) + (T + + + + )> + + + > + ) + ( + ) + (T + )> + + + )> + )> + > + + + )> + + > "!\""> + + > "s the " D ,BWOMAN> + )> + + > + + + + >> + + ; "1-move delay." + + ) + (> + ) + (T + + ) + (T + )> + + )>> + +> + + + + + + + + + + ) + (T + )> + + + )> + + + T) + (> + >>) + (T + )> + + + + + + )> + + + + )> + > + +> + )> + >> + + > + + + + + + + + + + + + + 0> + + + + + >> + + + + + + + ) + (T + > + > + ; "Delete when debugged." + + ) + (> + > + > + )> + >)> + > + + )> + + > + +> + ) + ( + + + + ) + ( + + ) + ( + )> + + > ,PERIOD> + > + + + +)) + + + > + + ) + (T + )>)> + + )> + + + + + + + + > + ) + + ( + + + )> + + + > + + )> + + ) + + ( + + + )> + + ) + + ( + + + )> + + ) + + ( + + + )> + + ) + + ( + + + )> + + ) + + ( + + + )> + + ) + + ( + + + )> + + ) + + ( + )> + > + + + + + + > + + + + + > + ) + ( + )> + + + ) + + ( + + + + + + ) + + ( + + + + + + ) + + ( + + ) + + ( + + ) + + ( + + + + )> + + + + > + + + + + + ) + ( + )> + + + ) + (T + + + + + ) + (T + )>)> + > + + + + + + +> + +> + + TS1-DOOR <> TS2-DOOR <> TS3-DOOR <> + TS4-DOOR <> TS5-DOOR <> TS6-DOOR <>>> + + + + + + + + + + + > + + > + > + > + + >> + + + )>)> + + + " symbol." CR>)> + + + > + + ) + ( + > + )> + ) + ; ( + + > + + ) + ( + > + )> + )> + > + +"0 = shadow movement string, 1 = P? of shadow movement, + 2 = sun direction, 3 = shadow direction." + +> + + + + + + + ) + (T + + )>) + ( + + + + + ) + (T + + + + )>) + ( + + + + + ) + (T + + )>) + ( + + + + + ) + (T + + + + )>) + (T + + + + + ) + (T + + )>)> + + + + + > + +) (DOOR <>) (OHERE <>)) + + )> + + ; "Handle outer shadow." + + + + + + + + + )> + + + + + + + + + + >> + + + )> + )> + )> + > + + + )>)> + + > + + + > + + + + + + ; )> + + ; "Handle inner shadow." + + + + + + + + )> + > + + + )>)> + + ; "Handle doors." + + + )> + + + > + + + )> + > + + + )> + + + + > + )> + )>)> + ) + + ( + + > + + + "across the " D ,TS0> + > + + )> + + ) + + ( + + + + )> + + ) + ( + + "away from the " D ,TS0>)> + + + )> + ) + ( + ) + ( + ) + (T + )> + + + + )> + + + >> + + + + )> + )> + + ) + ( + + + ) + (T + )>) + + ( + >> + + + + ) + + ( + > + + >> + + ,INNER-SHADOW) + (T + ,OUTER-SHADOW)>> + + + ) + + (T + )>> + + + ,OUTER-SHADOW) + (T + ,INNER-SHADOW)>> + > + + > + + "ward"> + > + + + ,OUTER-SHADOW) + (T + ,INNER-SHADOW)>> + + "into view." CR> + > + + + > + + + + + + + > + +> + +)) + + > + )> + + + ) + (T + )> + + + + + ) + (T + )> + + )> + + + + + + ) + (T + )> + + + ) + (T + )> + + > + + + + + ) + (T + )>> + + + +) (MAG? <>) (DOOR <>)) + + > + + + >> + )>)> + + )> + + + + + )> + + ) + + ( + + + ) + + ( + + + + ) + + ( + + + )> + ) + + ( + + + + + + + + + + ) + (T + + + + > + + + + + )> + + )> + + + + + )> + + + ) + + ( + + + )> + + + + )> + ) + + ( + + + + + )> + ) + + ( + + + )> + + + + )> + )> + + + > + + + + > + + + > + + + +"0 = giant dips stick, 1 = blows bubble, 2 = listens to music." + + + > + + + + ) + (> + + ) + ( + + + + > + > + + ; "So BOY-BLOWS can set to 2." + + + + )> + + ) + ( + + + + ) + (T + + )> + > + +> + + ) + ( + )> + + + + ) + ( + + + ) + (T + )> + > + + + + > + + + + + > + + + + + + )> + + > + + + + > + ) + ( + + ) + (T + + )> + > + + + + + + > + + + )> + " to the headphone music"> + > + +> + + + +)) + + )> + + + + ) + ( + )>)> + + + + + )> + + )> + + + + + )> + + )> + + + > + + + + + + ) + ( + )> + + + + + ) + ( + + ) + ( + + ) + (T + + + )> + > + + + + + + + )>)> + + > + > + + )> + + + + + )> + + )> + )> + + + + + + + )> + + + + )> + + ; + + + + )> + + + ) + ( + > + + )> + + )> + ) + ( + ) + ( + + ) + ( + + + + )> + + ) + ( + + + + )> + + )> + > + +> + )> + + + + > + + + > + + + )> + > + ,LOCAL-GLOBALS ,GLOBAL-OBJECTS> + ) + ( + > + > + ) + (T + )>> + + + )> + > + + >> + + + ) + ( + + )> + + + + + )> + + + )> + + ) + ( + + + T) + ( + + ) + ( + )> + + )> + + > ,PERIOD> + ) + ( + + + + + )> + + + ) + ( + T) + ( + + ) + ( + ) + (T + )> + + > ,PERIOD> + )> + > ,PERIOD> + ) + ( + + + + )> + + ) + (T + )> + + + + + + + ) + ( + + + + + ) + (T + )> + + ) + (T + + + )> + + )> + ) + ( + + )> + + + > + + + )> + > ,PERIOD> + ) + ( + + ) + ( + > + + )> + + + )> + + > ,PERIOD> + ) + (T + )>) + (T + + )> + + + + > + ) + ( + )> + + ) + (T + + )>> + + + + + + > + + + + + >> + + + > + " about in " THE .THING ,PERIOD> + > + + + + + > + )> + + + ) + ( + + + + ) + (T + + + )> + + ) + ( + > + + + ) + ( + ; + + + + )> + + + + + )> + + + ) + ( + + >> + + + )> + + > + + )> + ) + ( + + + ) + ( + + ) + ( + + ) + ( + + ) + ( + + ) + ( + + ) + ( + + ) + ( + + + + + ) + ( + + )> + + + > + + + + > + + )> + + > + + + + + )> + + + > + + + + > + + + + ) + ( + + + + + )> + + ) + ( + + + + + )> + + + ) + (T + + > + )>)> + + ) + ( + T) + ( + + ) + ( + ) + (T + )> + + + > ,PERIOD> + > + + + + + + + ) + (T + + + + + + )>> + + + > + ) + ; ( + + > + + ) + ( + + T) + ( + + ) + ( + ) + (T + )> + + + > + ,PERIOD> + )> + + + > + "s, ">)> + + + )> + + + > + >>) + (T + )> + + > + + + )> + + )> + + ) + (T + )> + > + "s the " D ,MAGPIE ,PERIOD> + ) + (T + + )>> + + + + > + + + + >> + +)) + + + + + + > + + + + ) + ( + )>)> + )> + + + + + + > + )> + )> + + ) + (T + )>) + (T + )>> + +> + + + >> + + > ,PERIOD> + + + + )> + )> + ) + (T + )>) + ( + > + + ) + ( + + + + + ) + ( + + > ,PERIOD> + ) + ( + + + + > + ) + (T + + + )>> + + + + + + + + > + + + + >> + +> + > + )> + + + > + + + )> + + > ,PERIOD> + ) + + ( + > + + > + + + + + )> + + + > + > + + + ) + (> + 1 2> + )> + + + > ,PERIOD> + )> + + + + > + )> + + + ) + + ( + > + + + + + > + + )> + + ) + ( + + ) + ( + )> + + + > ,PERIOD> + ) + + ( + > + + + + + >> + ,CREVICE) + (T + ,TUN3)>> + + + > + ) + (T + )> + + ) + + ( + + + + ) + ( + )> + + > ,PERIOD> + ) + + (> + + + ) + + ( + + + + + + + )> + + + )> + + + + + ) + ( + > + ) + ( + )> + + > + + + + > + + + + + + + > + + + + + >> + + + + + > + )> + + + )> + + + + + ) + ( + + + + )> + + )> + + + > + ) + ( + + + )> + + ) + (T + + > + )> + )> + + > + + + + > + + + +) (B <>)) + + ) + ( + > + )> + + + + + + )> + + ; "Update counter." + + )> + + ; "Handle mandatory movements." + + + ) + ( + + ) + ( + ) + ( + ) + ( + ) + ( + ) + ( + + ) + ( + )> + + ; "Handle move-specific text." + + + ) + ( + ) + (T + )> + + + > + + >> + + )> + + + ) + + ( + > + + >> + + )> + + + > + + + )> + + ) + + ( + > + + >> + + )> + + + + + + + + )> + + + ) + + ( + > + + )> + + + + ) + + ( + > + + )> + + + + ) + + ( + > + + >> + + )> + + + + + ) + (T + )> + + ) + + ( + > + + >> + + )> + + + + + ) + (T + )> + + ) + + (T + )>> + + + > + + + > + + + > + + + > + + + + + + )> + + + + ) + (T + + + )>> + +> + > + + ) + ( + T) + ( + ) + (T + )> + + + + ) + (T + )>)> + > ,PERIOD> + + > + + + >> + + + + + > + + ) + ( + + + ) + ( + + + + ) + (> + + + + + ) + ( + + )> + + ) + (T + + + + + + + )> + + )>) + (> + + + + + ) + ( + + ) + (T + )>)> + + > ,PERIOD> + > + +)) + + > + )> + + + ) + (T + )> + + + ) + ( + )> + + ; "Handle tide and coconut." + + + + >> ; "Always at 45 or 15." + T) + ( + + + ) + (T + + + ) + (T + )> + )> + + ) + ( + + >> + + + + + + + + )> + ) + ( + > + + + )> + ) + ( + + + + + + + + + + )> + ) + ( + > + + )> + ) + ( + + + + > + )> + + ) + ( + > + + )> + ) + ( + + + > + + + ) + (T + )> + + ; "Handle PA system." + + ; "Nothing if PA is off." + ) + ( + <- 60 ,MINUTES>> + " minute"> + > + )> + + ) + ( + > + + ) + ( + + + + ) + ( + + )> + + ) + ( + + + > ".\"" CR> + ) + (T + )>> + + + )> + + + > + > + + + >> + + + )> + + + >> + + + + + + + + + + ) + (T + + )>)> + + + + + > + + )> + > + > + >> + )> + > + + ) + (T + + )> + > + +)) + + )> + + > + + + + + )> + + ) + ( + > + )> + ) + ( + + )> + + + ) + (T + )> + + + ) + (T + )> + + + ) + (> + ) + ( + + + + + + + + + + + + + + + ) + (T + )> + + ) + ( + + )> + + ) + + ( + + )> + + + + + + + + ) + (T + )> + )> + + )> + ) + + ( + + )> + + + + + + + ) + ( + )> + ) + (T + )>> + + + + > + + + + + + + + + ) + ( + + + + ) + (T + )> + )> + > + + + ) + (T + )> + > + + + + > + +)) + + )> + > + ; "New fear delay." + + > + ) + (T + + + + + + ) + (T + )> + + )>)> + + + ; "1st time seen?" + + + )> + + + ) + ( + + ) + ( + )> + + + > ,PERIOD> + ) + ( + + > ,PERIOD> + ) + ( + + + + + )> + + ) + (T + + + + + + + )> + + + )>> + + + + >> + +> + + ) + ( + + + ) + ( + + ) + (T + )>)> + > ,PERIOD> + ) + (T + + > 4) + ( 1) + ( 2) + ( 3) + (T 4)>> + + + + + + + + )>> + + + + + + + + + ) + (T + + + )> + )> + ) + ( + ) + ( + )> + + + + + ) + ( + + ) + (T + + )>> + + + + + + + )> + + + + + + + >> + + ) + (T + + + + )>) + ( + + ) + (T + + + )>> + + + + > + + + +)) + > + + + ) + ( + )> + + + + + ) + ( + )> + + + )> + + + + > + + + )> + + )> + > + + + > + + + + + > + + + + + + + + )> + + + )> + + ,IN-COTTAGE>> + + + )> + + + )>)> + + + + + + + + + + + + + )> + + + ) + (T + )>) + ( + > + + )> + + ,CAULDRON) + (T ,COTTAGE)>> + + ,COTTAGE) + (T ,GROUND)>> + + ) + (T + )>> + + + + > + + + +> + ) + ( + )> + + + + )> + + + + + ) + ( + + ) + (T + )> + > + +)) + + )> + + > + ; "Does MEEP have food?" + + + > + + ) + (T + )> + + ; "Handle case where MEEP is visible." + + ; "Doesn't like these places." + > + + )> + + + + )> + + ) + ( + + > + + )> + + + + + )> + + ) + ( + + )> + + )> + ; "Not on dog." + ; "Doesn't like to be held." + + ; "Shut up the lemming." + + + )> + + ; "Only waits 1 move." + + + )> + + + )> + ; "Won't stay on a SURFACE." + + )> + + + + )> + + + ) + ( + ; "Hates open containers." + + )> + + + + ) + ( + + ) + ( + > + + + )> + + + ) + ( + + ) + (T + + + )> + + + + ) + ( + + ) + ( + + ) + (T + )>) + (T + + ) + (T + )>)> + + )>) + ( + + + )> + + + + + + > + + )> + ) + ( + > + + )> + + ) + ( + + ) + (T + ; "Normal case." + + + )> + > + ,PERIOD> + )>)> + + ; "MEEP can't follow you under these conditions." + + ; "Next bite if eating." + + ; "Bag empty?" + > ; "Yes, done eating." + >)>)> + + ; "Continue if still eating." + T) + (> + T) + ( ; "Pecking?" + + + >> + + + + > + )> + ; "Start distraction." + + + + )> + )> + + + + + >> + + > + >> + > + + + )> + ) + ( + + + )> + + + ) + (T + + )> + + ) + + (T + + + )>> + + + + > + + + + > + + + + > + + + + )> + + )> + + + > + + + + )> + + + > + + ; "Shut up the lemming." + + + > + + > + )> + + + ) + (T + + >)> + + + > + )> + + + )> + > + +> + + + + + + ) + ( + ) + ( + + ) + (T + )> + > + + + + + + + + + )>) + (T + > "s "> + + ) + (T + )>)> + + + >> + ) + ( + > + + )> + > + + + + + + > + ) + (T + )>> + +)) + + + ; "Shut up the lemming." + > + + + + + ) + ( + + + ) + ( + + + ) + ( + + + ) + ( + >> + + + + ) + ( + + + + + ) + (T + )> + ) + ( + > + > + + >> + ) + ( + >> + ) + ( + >> + ) + ( + >> + )> + + + )> + ,ERANCH) + ( ,BROOM) + (T ,IN-BATH)>> + + ) + ( + + + + ) + (T + )> + + ) + + (T + + + + + + + ) + (T + > ,PERIOD>)> + + > + + )> + )>> + + + + > + + > + > + )> + + + T) + ( + + ) + (> + + + + ) + (T + + )> + + + > + +> + + ) + ( + )> + + + + + + ) + (T + >)> + + )> + + + + + + + > + +> + ) + ( + ) + ( + > + ) + (T + )>> + +> + + + + + + + + + + + > + + + )> + + + ) + (T + )> + + + ) + (T + )> + + + + > + + + + )> + + ) + (T + )> + + + ) + ( + >> + ) + (> + >> + + ) + ( + + ) + (T + )>)> + + ,PERIOD> + ) + ( + + + )> + > + + )> + <- 60 ,MINUTES>> ".\"" CR> + ) + ( + > + + )> + + ,PERIOD> + ) + (T + )>> + + + >> + +> + + + > + > + > + + > + + ,PERIOD> + )> + + > + + + > + + ) + (> + + > + + + + )> + + + ) + ( + + + + + + )> + )> + + + ; + + + + ) + (T + + )> + + ) + (T + + ) + (T + + + ) + (T + )> + )> + + )>) + (T + )>> + + + + )> + + + + + > + + + + > + + + > + + + + > + + + + + ) + ( + + ) + ( + + ) + ( + + ) + (T + > + )> + )> + ) + ( + + ) + (T + + )> + + + > + + + > + + + > + + "Countdown timer for pooch distraction." + "Stay in tower no more than 45 seconds." + "Don't bother dog more than twice." + +) (V <>) (Z <>) X ) + + ; "Determine status of walkie-talkie." + + ; "No talkie if wet." + T) + (> ; "Turned on?" + > ; "Hearable?" + ; "Antenna up?" + ; "Right freq?" + > + + ) + ( + T) + ( ; "Delay." + ) + ( ; "Random talkie noise." + + + + ,PERIOD>)>)> + + ; "Monitor BREAKER." + + + ; "Opened more than once." + + )> + + ) + ( + + + )> + + )> + + + + )>)> ; "Second move." + + + + > + + + + )> + + ) + ( + > + + )>)> + + ; "Handle distraction." + + + + + + + + + + + + + )> + + )> + + )> + + )> + + + + > + )> + ) + ( + + )>) + + ( + + + + + + + )> + + + ) + ( + + )>) + + (T + + + + + )> + + + )> + + > + + )>)>)> + + ; "Handle countdown." + + + ) + ( + + + ) + ( + + ) + ( + + )> + + ) + ( + + ) + ( + + ) + ( + > + + ) + ( + + + > + )> + + + + ,PERIOD> + ) + ( + + + + ) + (T + )> + > ", ">) + (T + ". ">)>)> + > + + > + + )> + >> + + )> + + ) + ( + > CR> + ) + ( + ) + (T + > + " minutes"> + + T) + ( + + + ) + ( + + + )> + )> + > + + + + + > + + + > + +> + +> + + + + )> + + + + ) + ( + + )> + + > + + + + + ) + ( + + ) + ( + + )> + + > + + + > + +> + + + + + + + + )> + + + + > + + + >)> + + ) + ( + ) + ( + ) + (T + )> + > + +)) + + + )> + + + )> + + + ,PERIOD> + > + + + > + + + > + + + + > + + + ) + (> + + + )> + + > + + + )> + + > + ) + (T + )> + + > + + + ; "2nd time around?" + + )> + + > + + + + + + + )> + + > + + + + ) + (T + )> + + + + + )> + )> + > + + + > + + + + + > + + + > + + + + + > + + + + + + )> + > + + + +> + ) + ( + + + + + ) + ( + ) + ( + ) + (T + + )> + + >> + + )> + ) + ( + + ) + ( + )> + ,PERIOD> + > + +> + + + + + + > + + + > + + + + + + ) + (T + )>> + +)) + + )> + + + + + + + + )> + ) + ( + + >> + )> + + ) + ( + + ) + ( + + ) + (T + )>> + + + > + +> + ) + ( + + ) + ( + )> + + ,PERIOD> + > + +> + + + + + + ) + ( + > + )> + + + + + + + + + + + + + + )> + + ) + ( + + ) + ( + + + + ) + (T + )> + + )> + + + + )> + + )> + + + + ) + ( + + + ) + (T + )> + + ) + ( + + + + + + ) + (T + )> + + + ) + (T + )> + + ) + (T + )> + > + +) STR) + + + )> + + ) + (T + )> + + + + + )> + + + ) + (T + )> + + + + )> + + + + + ) + (> + )> + + + )> + + + )> + "Shestdyesiat") + ( "Sorokpyat") + ( "Treetsat") + (T "Pyatnatsat")>> + + + > + ) + (T + )> + + > + "s the " D ,MAGPIE ,PERIOD>)> + ) + ( + + + )> + + + ) + ( + + )> + + + )> + ) + ( + + )> + + +