commit 54d8efc54632853305255e083769d1245ccccc94 Author: historicalsource Date: Sun Apr 14 00:10:47 2019 -0400 Revision 12 (Original Source) 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>)> + ) + ( + + + )> + + + ) + ( + + )> + + + )> + ) + ( + + )> + + +