From ecea3862ce7343f8657d0622fd2c90b1fcabc26e Mon Sep 17 00:00:00 2001 From: historicalsource Date: Sun, 14 Apr 2019 01:02:51 -0400 Subject: [PATCH] Revision 9 (Original Source) --- README.md | 1 + bad.zabstr | 984 +++++++++ bad.zil | 3627 +++++++++++++++++++++++++++++++++ border.zabstr | 1437 +++++++++++++ border.zil | 5098 ++++++++++++++++++++++++++++++++++++++++++++++ bystander.zabstr | 396 ++++ bystander.zil | 2961 +++++++++++++++++++++++++++ desc.zabstr | 11 + desc.zil | 283 +++ globals.zabstr | 86 + globals.zil | 694 +++++++ good.zabstr | 170 ++ good.zil | 1509 ++++++++++++++ hints.zabstr | 212 ++ hints.zil | 487 +++++ misc.zabstr | 99 + misc.zil | 834 ++++++++ once.zabstr | 5 + once.zil | 258 +++ parser.zabstr | 156 ++ parser.zil | 1649 +++++++++++++++ realtime.zabstr | 45 + realtime.zil | 249 +++ scenario.zabstr | 4 + scenario.zil | 163 ++ spy.zil | 50 + spy.zip | Bin 0 -> 178372 bytes syntax.zabstr | 542 +++++ syntax.zil | 778 +++++++ verbs.zabstr | 255 +++ verbs.zil | 2058 +++++++++++++++++++ 31 files changed, 25101 insertions(+) create mode 100644 README.md create mode 100644 bad.zabstr create mode 100644 bad.zil create mode 100644 border.zabstr create mode 100644 border.zil create mode 100644 bystander.zabstr create mode 100644 bystander.zil create mode 100644 desc.zabstr create mode 100644 desc.zil create mode 100644 globals.zabstr create mode 100644 globals.zil create mode 100644 good.zabstr create mode 100644 good.zil create mode 100644 hints.zabstr create mode 100644 hints.zil create mode 100644 misc.zabstr create mode 100644 misc.zil create mode 100644 once.zabstr create mode 100644 once.zil create mode 100644 parser.zabstr create mode 100644 parser.zil create mode 100644 realtime.zabstr create mode 100644 realtime.zil create mode 100644 scenario.zabstr create mode 100644 scenario.zil create mode 100644 spy.zil create mode 100644 spy.zip create mode 100644 syntax.zabstr create mode 100644 syntax.zil create mode 100644 verbs.zabstr create mode 100644 verbs.zil diff --git a/README.md b/README.md new file mode 100644 index 0000000..2a4892c --- /dev/null +++ b/README.md @@ -0,0 +1 @@ +# borderzone diff --git a/bad.zabstr b/bad.zabstr new file mode 100644 index 0000000..da774f7 --- /dev/null +++ b/bad.zabstr @@ -0,0 +1,984 @@ + +> + + + + + + + + + + + + + <> <> <> <> <> <> <> <> <> <> <> +"The town's fifteenth century clock strikes the hour, indicating that the +ceremonies are shortly to commence." +"You watch as the mayor of Ostnitz comes to the podium at the front of the +dais. He motions for the crowd to be silent for the playing of the national +anthem." "The anthem finished, the mayor calls upon the head of the church of +Litzenburg to give a benediction." +"The priest departs, and the mayor announces the \"kickoff\" speaker, +William Henry Huttinger, the American ambassador. Amidst +the roaring approval of the crowd, Huttinger approaches the rostrum.| +| +It may seem strange for an unaligned country to show such feeling for a +former member of the American military, but it was Huttinger +who led the Allied forces during the liberation of Litzenburg in 1945, +and the people have not forgotten.| +| +How ironic that the Kremlin chose this time, this place for the death +of one of Litzenburg's only heroes. Even more ironic is that the irony is +almost certainly lost on them." +"Having calmed down the crowd, Huttinger begins to speak. The words seem +to careen through your head but make little impact - there are only +moments now in which to act." "">> + <> <> <> <> <> <> <> <> <> <> <> +"The town's fifteenth century clock strikes the hour." +"You notice that the crowd has become quiet. After a moment, the national +anthem begins to play." +"The anthem is now finished, and after a few moments, a benediction is +read." "The mayor announces the \"kickoff\" speaker, William Henry Huttinger, the +American ambassador. The crowd roars its approval; you've got only moments +before it will be too late to save him!" +"Huttinger begins to speak. The words seem to careen through your head but +make little impact - you have only moments in which to act." +"Huttinger continues to speak, and the crowd responds with enthusiasm, +interrupting him frequently.">> + <> <> <> <> <> <> <> <> <> <> <> -1 +"The crowd noise subsides and the national anthem is begun." -1 -1 -1 -1>> + +> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +> + +> + + + + + + + + + + + +> + + + +)> + + +> + + + + + + +> + +> + +> + + + + + + + + + + + + +> + + + + + + + + + +> + + + + + + + + + + + + + + + +> +> + + + + + + + + + + +> +> +> + + +> + +> + +> + + + + + + + + + + + +> + + +> +> + + + + + + + +> + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/bad.zil b/bad.zil new file mode 100644 index 0000000..28d0dc3 --- /dev/null +++ b/bad.zil @@ -0,0 +1,3627 @@ + +"BAD for + BORDER ZONE + (c) Copyright 1987 Infocom, Inc. All Rights Reserved." + +;"The BAD scenario..." + +> + + + + + + +)) + ) + ( )> + + > + )>> + +;)) + ) + ( )> + >>> + + + + + + + ) + ( + ) + ( + )>> + + + + + ) + ( + ) + ( + )>> + + + + + ) + ( + ) + (T + )>> + + 1>> + >) + ( + > -1>> + >)> + )>> + + +<> +<> +<> +<> +<> +<> +<> +<> +<> +<> +<> +"The town's fifteenth century clock strikes the hour, indicating that the +ceremonies are shortly to commence." +"You watch as the mayor of Ostnitz comes to the podium at the front of the +dais. He motions for the crowd to be silent for the playing of the national +anthem." +"The anthem finished, the mayor calls upon the head of the church of +Litzenburg to give a benediction." +"The priest departs, and the mayor announces the \"kickoff\" speaker, +William Henry Huttinger, the American ambassador. Amidst +the roaring approval of the crowd, Huttinger approaches the rostrum.| +| +It may seem strange for an unaligned country to show such feeling for a +former member of the American military, but it was Huttinger +who led the Allied forces during the liberation of Litzenburg in 1945, +and the people have not forgotten.| +| +How ironic that the Kremlin chose this time, this place for the death +of one of Litzenburg's only heroes. Even more ironic is that the irony is +almost certainly lost on them." +"Having calmed down the crowd, Huttinger begins to speak. The words seem +to careen through your head but make little impact - there are only +moments now in which to act." +"">> + + +<> +<> +<> +<> +<> +<> +<> +<> +<> +<> +<> +"The town's fifteenth century clock strikes the hour." +"You notice that the crowd has become quiet. After a moment, the national +anthem begins to play." +"The anthem is now finished, and after a few moments, a benediction is +read." +"The mayor announces the \"kickoff\" speaker, William Henry Huttinger, the +American ambassador. The crowd roars its approval; you've got only moments +before it will be too late to save him!" +"Huttinger begins to speak. The words seem to careen through your head but +make little impact - you have only moments in which to act." +"Huttinger continues to speak, and the crowd responds with enthusiasm, +interrupting him frequently.">> + + +<> +<> +<> +<> +<> +<> +<> +<> +<> +<> +<> +-1 +"The crowd noise subsides and the national anthem is begun." +-1 +-1 +-1 +-1>> + + >> + +> + + + + + ) + ( + ) + ( + )>> + + + + + ) + ( + )>> + + + + + + +> + + + + ) + (T + )> + + + .RM> + + + + + + + + + + + + + + ) + ( + ) + ( + ) + ( + ) + ( + ) + ( + ) + (T + + > + ) + (T + )> + )>) + ( + + + ) + (T + + + )>)> + ) + (T + )>) + ( + ,W?APARTMENT>> + )>> + + + + + )>> + + + + + + + ) + (T + )> + )>> + + + + + + ) + (> + ) + (T + )>)>> + + + + + )>> + + + +)) + + + + ) + (T + )> + )>> + + + +> + + + + + + + + ) + (T )> + + )>> + + + + + ) + (T + )>> + + + + + + + ) + ( + + )> + )>> + + + + + + + ) + ( + )>> + + + + + + > + + ) + ( + )> + > + + + + + > + + ) + (T + + + > + )> + + + + + )> + ,ANTIQUE-STORAGE> + + + + + + )>> + +> + + + + + + + + + + ) + ( + )>> + + + + ) + ( + + + ) + (T + + )>) + ( + )>> + + + + + + ) + ( + ) + ( + + )>> + + + + + )> + + + ) + (T + )> + + + ,ANTIQUE-SHOP> + + + + + + + + + + + + + + + > + + ) + (T + + )>)>> + + + + ) + (T + )>)>> + + + + + + + )>> + + + + + + + + + )>> + + + + + )>> + + + + + ) + (T + )>> + + + + + ) + (T + )>> + + + + + ) + ( + + )> + )>> + + + + + + + + + + + + + + + ) + ( + )>> + + + + + )>> + + + + + )>> + + + + + + ) + ( + ) + (T + + )>) + ( + + ) + ( + + > + ) + (T + )>)>> + + + + + >> + ) + ( + ) + (T + )>> + + + + + + + + )> + ) + ( + )>> + + + + + )>> + + + + + )>> + + + + > + + > + + ) + (T + )>) + ( + + + > + )> + )>> + + + ) + (> 6> + + + + ) + (T + )>> + + + + + ,ALLEY-2> + + + ) + (T + )> + )>> + + + + + )>> + +> + + + + + + + > + + + + + + + > + + " for me to find.\" He chuckles. +He puts his gun to your head. \"For old times sake,\" he says, shrugging, and +fires.">> + +) TIM NL) + )> + >> + + > + + + + + + + + + + ) + (T + + + )>) + ( + + + + + + ) + ( + + + > + ) + (T + )> + + + )> + + + + + + + + > + + + ;"No more chase..." + + + + + + + > + ) + (T + )> + + > + + )> + + + + ) + (T + > + > + + > + + + + > + )> + + ) + ( + + + >> + + + + + ) + ( + + ,CART-TOPPLED? + > + ;"** Critical timing" + + + ) + ( + > + ;"** Critical timing" + + + )> + ) + ( + + + + + "."> + + )> + + ;)> + )>> + +>> + +>> + +> + + + +> + + )> + > + > + > + > + >>> + +; )> + > + + >> + + + + + + + ) + ( + > + + ) + ( + > + >> + ) + (T + + )>) + ( + ) + ( + + + + + )> + )>> + + + + + + ) + ( + ) + (>> + ) + (T + >)>) + ( + > + ) + ( + )>> + + + + + + + + + + + ) + (T + )> + ) + ( + ) + ( + + ) + (T + )> + )>> + + + +> + + + ) + (T + )>) + ( + ) + ( + + )> + + + + + + + + + + + + 30 ;"** CRITICAL TIMING">>)> + ) + (T + + ) + (T + )> + + > + )> + + ) + ( ,CART-TOPPLED?> + )>> + + + + ,SEXITSTR .STR>> + +)> + + + + + ) + (T + )> + ,ALLEY-3> + +> + + + + ) + (T + )> + )>> + + + + + > + ,W?DOWN> + + ) + (T + + )>) + ( + ) + (T + + )>) + ( + )>> + + + + + + + ) + ( + ) + ( + ) + ( + )>> + +> + + + > + ) + (T + )>) + ( + ) + ( + ,W?IN ,W?INTO>> + ) + (T + + + + ) + ( + )> + )>) + (,ON-THE-CAN + ) + ( + > + ) + ( + ) + ( + > + )>> + +> + + + +> + +> + + ) + ( + + ) + ( + > + + ) + (T + )>) + ( + > + ) + (T + + )>)>> + + + + + + ) + (T + )> + + + )>> + + + + > + ) + (T + + + + ) + (T + )> + + )>) + ( + + ) + ( + + ) + ( > + + ) + ( + + + + )> + )> + )>> + + + > + > + + ,FIRE-1) + (,ON-THE-CAN + + ) + (T + + )>> + + + + + + + + + + + +> + +> + +> + +> + +> + +> + + + ) + (T + )> + + + ) + (T + )> + + + + + )> + > + )> + + + .RM> + + + + + + + > + +> + + + + + + + + + + + + + + + ,PENBIT> + ) + (T + )> + ) + (T + )> + )> + + + + ) + (T + )> + + > + + > + )> + + > 5>>> + + + + ) + (T + + )>)>)>> + +>"> + + + + + + > + + + + >) + (T + >)> + ) + (T + )>) + (T + + + + )>> + + + + )>> + + + + >> + )>> + + + + + + + )> + + + )>> + + + ) + ( + )> + + + > + + + + + + + ) + ( + > + > + > + >> + ;"The wrong door, in fact, or too late..." + + + ) + ( + ) + ( + ) + ( + )>) + ( + ;"On the inside" + + ) + ( + > + ) + ( + ) + (T + + )>) + ( + ) + ( + )>) + ( + ) + ( + ) + ( + ) + ( + ) + ( > + + ) + ( + )>> + +> + +> + + 100>> + > + > + + ,HUTBIT> + ;"He's in the hallway" + ) + (T + ;"Not in sight..." + + + )> + + + > + )>) + (T + )>) + (,AWAITING-PASSWORD + ) + (T + )>> + +)) + > + ) + (T + > + 2> + >> + + )>)> + > + + )>> + +> + ) + (T + > + )> + >> + + + + + ) + ( + )>> + + + + + + + + >> + + + ) + (,PRSI + ) + ( + > + + )> + > + + )> + + + ) + (T + )> + + + ,HUTBIT>>> + ) + (T + + + ) + (T + )> + + + ) + (T + )> + )>) + ( + >> + ) + ( + ) + ( + + )> + ) + ( + )>> + + + + + ) + ( + )>> + +> + +> + +> + + + + + + + ) + (T + )> + ) + ( > + + + ) + ( + )>)>> + +> + + + + 1> 2>> + + >)> + > + > + +> + + + + >>> + + ;>> + )>> + +> + + + + + + )> + ) + ( > + + + ,PENBIT> + + 15>> + ) + (T + + + )>) + (T + )>) + ( + ) + ( + + + > + ) + (T + )> + ) + ( + ) + ( + + + + ) + (,CHASE-FLAG + ) + (T + )>) + (T + )>> + + + + ,HIDING-BEHIND-DOOR> + + ) + (T + )> + + + )> + + ) + ( + + + )>) + (,TOPAZ-FIGHT + ;"Down for the count" + + + + + ) + (T + )>) + ( + ) + ( + + )> + ) + ( + ) + ( + ) + ( + ) + ( + > + + ) + (T + )>)>) + ( + + + ) + ( + ) + (T + )> + ) + ( > + + + + ) + ( + ) + ( + ) + ( + + + ) + ( + ) + (T + )>)>> + + + + + ) + ( + )>> + +> + +)) + + ) + ( + > + + >> + ) + ( + + >>> + ) + ( ,HERE> + ) + ( + > + )>> + +) + (NTL )) + >> + ) + (T + + > + + > + )>)>> + +) (NL ) TMP + (NLT <- + ,CLOCK-TIME>)) + + > + + )> + + + ) + ( + ) + ( + ) + ( + ) + (T + )> + + ) + ( + + + >> + + )> + + + >>> + + > + )> + + + ) + ( + + )> + + + ) + ( + + )> + + ) + ( + ) + (T + )> + + )>)>> + +> + + + + 2>> 2> 1>> + >> + ) + (T + + >> + + )>>> + +> + +> + + + > + > 0> + ) + (T + + >)>>> + + " floor, "> + 12> 8>> 0> + ) + (T + )> + + > 5> + ) + ( + ) + (T + )>>> + + + + 2>> + 12> + + + 8) + (T + + 4)>>> + <- 0 >> + + + 0>)> + > 5> + )>>> + +> + + + > + + 2>> + > 0> + )> + > + > 0>> + 1> 0>) + (T + >)>>> + + + + + + > + + > 5> + ) + (T + >> + + >> + + > 4> + ) + (> + ) + (T + > + > + + ;)> + >)> + >)> + >>)>>> + +> + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/border.zabstr b/border.zabstr new file mode 100644 index 0000000..70b8625 --- /dev/null +++ b/border.zabstr @@ -0,0 +1,1437 @@ + + < +TABLE 270 240 0 0> C2>) (ACROSS INF-1) (NS 1) (EW 3) (ACTION OUTF-F) (GPOS 0) ( +FLAGS GVIEWBIT SLVIEWBIT) (GLOBAL SEARCHLIGHTS FENCE FENCE-HOLE FENCE-SIGN +TOWER GUARDS BORDER-FENCE)> + + + + + + + + + + + + + + +
D2>) ( +ACROSS INF-2) (ACTION OUTF-F) (GPOS 90) (FLAGS GVIEWBIT SLVIEWBIT) (GLOBAL +SEARCHLIGHTS FENCE FENCE-HOLE FENCE-SIGN TOWER GUARDS BORDER-FENCE)> + +
E2>) ( +ACROSS INF-3) (ACTION OUTF-F) (GPOS 180) (FLAGS GVIEWBIT SLVIEWBIT) (GLOBAL +SEARCHLIGHTS FENCE FENCE-HOLE FENCE-SIGN TOWER GUARDS BORDER-FENCE)> + + + + + + + + + + + + + + + + + + + + + +> + + + + +> +> + + + + +> + + + +> + + + + + + + + + +> + +> + + +> + + +> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +> + + + +
OUTF-1>) ( +FLAGS SLVIEWBIT) (GLOBAL SEARCHLIGHTS GUARDS TOWER FENCE FENCE-SIGN +BORDER-FENCE BORDER-FIELD) (ACTION EDGE-ROOM-F)> +
OUTF-2>) ( +FLAGS SLVIEWBIT) (GLOBAL SEARCHLIGHTS GUARDS TOWER FENCE FENCE-SIGN +BORDER-FENCE BORDER-FIELD) (ACTION EDGE-ROOM-F)> +
OUTF-3>) ( +FLAGS SLVIEWBIT) (GLOBAL SEARCHLIGHTS GUARDS TOWER FENCE FENCE-SIGN +BORDER-FENCE BORDER-FIELD) (ACTION EDGE-ROOM-F)> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +> + + + + + + + + + + +> + + + + + +> + + + + + + + + + + + + + + + +> + + + + + + + + + + + + +> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +) (ACTION T-STATION-F)> + + + + + + + + + + + \ No newline at end of file diff --git a/border.zil b/border.zil new file mode 100644 index 0000000..bffe944 --- /dev/null +++ b/border.zil @@ -0,0 +1,5098 @@ +"BORDER for + BORDER ZONE + (c) Copyright 1987 Infocom, Inc. All Rights Reserved." + +
C2>) + + (ACROSS INF-1) + (NS 1) + (EW 3) + (ACTION OUTF-F) + (GPOS 0) + (FLAGS GVIEWBIT SLVIEWBIT) + (GLOBAL SEARCHLIGHTS FENCE FENCE-HOLE FENCE-SIGN TOWER GUARDS BORDER-FENCE)> + + + + > + + + + ; + + ;)> + )>> + + + + + > + + + )>) + ( + > + + )>) + (T + )>> + + + + + +> + ) + ( + > + ) + (T + )>> + +)) + )> + )> + + > + ) + ( + > + ) + ( + > + ) + ( + > + ) + ( + ) + (T + )>> + + + +) DIR FACE? TMP) + >> + + ) + ( + ) + (T )>) + ( + > + + + )> + > + + + + )> + ) + ( + ) + (T + + )> + + + + + characters are the guards, indicating their direction of motion.]" +CR>)>) + ( + + + ) + ( )> + > + > >)> + > + + + 10> 10>> + )> + + + + >) + (T + )>) + (T + 10> 10>> + )> + + >)> + + )> + ) + ( + ) + (T + )>> + + + > + + + + + + > + +) + (T )> + + )> + > + + + + + + + + ; + > + + ;)> + )>> + +> + + > + +
D2>) + (ACROSS INF-2) + (ACTION OUTF-F) + (GPOS 90) + (FLAGS GVIEWBIT SLVIEWBIT) + (GLOBAL SEARCHLIGHTS FENCE FENCE-HOLE FENCE-SIGN TOWER GUARDS BORDER-FENCE)> + + + +
E2>) + (ACROSS INF-3) + (ACTION OUTF-F) + (GPOS 180) + (FLAGS GVIEWBIT SLVIEWBIT) + (GLOBAL SEARCHLIGHTS FENCE FENCE-HOLE FENCE-SIGN TOWER GUARDS BORDER-FENCE)> + + + + + + + + ) + ( + + ) + (> + >> + ) + ( + + ) + ( + + > + ) + (T + )>)>> + + + > + + + ) + (T + + ) + ( ) + (T )> + + .RM)>> + +> + +> + + + + ,LADDER-TOP> + + + )> + + + ,TWR-2> + + + + + + + ) + ( + ) + (T + )>> + + + + + )>> + + + ) + ( + ,TOWER-SOUTH) + (T + + )>> + + + + + + ) + (T + )> + > + ) + (> + ) + ( + + ,ON-BRACE?> + + > 3>> + + + ) + (T + )> + ) + (T + + + )> + )>) + ( + + ,ON-BRACE?> + + + )> + + )>> + + + + + ) + ( + ) + ( + + ) + (T + + )>> + + + + + > + + + )>) + ( + ) + ( + >> + + )>) + ( + ) + ( + ) + (,ON-BRACE? + + + + ) + (T + )>)>> + +> + +> + )> + + + + > + + + + + ) + ( + > + + + + > 25> + + + ) + (T + )> + )>> + +> + + + > + +> + +> + + + + + + > + +> + + + )> + + + + > + )> + + + + + )> + ) + ( + + + ) + (T + + + )>> + +> + + + + + + ) + (T + + + + )>> + + + + > + + + +> + + + ) + (T + ; + +
OUTF-1>) + + (FLAGS SLVIEWBIT) + (GLOBAL SEARCHLIGHTS GUARDS TOWER FENCE FENCE-SIGN BORDER-FENCE BORDER-FIELD) + (ACTION EDGE-ROOM-F)> + +
OUTF-2>) + + (FLAGS SLVIEWBIT) + (GLOBAL SEARCHLIGHTS GUARDS TOWER FENCE FENCE-SIGN BORDER-FENCE BORDER-FIELD) + (ACTION EDGE-ROOM-F)> + +
OUTF-3>) + + (FLAGS SLVIEWBIT) + (GLOBAL SEARCHLIGHTS GUARDS TOWER FENCE FENCE-SIGN BORDER-FENCE BORDER-FIELD) + (ACTION EDGE-ROOM-F)> + + + + + + )>> + + + + + +>> + ) + ( + ) + ( + )>> + + + +> + ) + (> + )>> + + + + + ) + ( + ) + (T + )> + + + )> + + + ) + ( + ,FIRST-B8-FLAG> + > + )> + )>> + + + + + + + + + + + + + + + + + )>> + + + + + + + + + + + + + +> + )> + ,INSIDE-SHED> + + + + + ) + ( + + )>)>> + +)> + + + + )> + > + + + + + + + )>> + + + + + + + ) + ( + ) + ( + + ) + ( + ) + ( + + ) + (T + )>)>> + + + + + + + + + +> + + + + + >> + + + + + + + + + + + ) + (T + )>> + + + + + )>> + + + + + )>> + + + + + + + + + + ) + (T + )>) + (T + )>) + ( + ) + (T + )>) + ( + ) + ( + )>> + + + +> + + > + + + + + + ) + ( + + ) + ( + + >) + (T + )>) + ( + + ) + (T + )>)>> + +> + + + > + + + + + )>> + + + + + + + + + + + + + + + + + +> + + + + + ) + (T + )> + + + )>> + + + + + + + ) + ( + )>> + + + ) + (T + )>) + ( + ) + ( + ) + ( + > + + ) + ( + > + + ) + (T + )>) + ( + > + + ) + ( + > + )> + + ) + (T + )>)>> + +> + +) FROB) + > .THING> + >) + ( + )> + >>> + + + ) + ( + > + ;"returning" + + + ;"Turn off this interrupt the hard way" + ) + (T + )>) + (T + )>) + ( ,HUT-BURNING> + )>> + + + + + + )> + + + ) + ( + + + ,HUT-BURNING> + > + + )>> + + + ) + ( + > + + + ;"Turn off this interrupt the hard way" + ) + (T + )>) + ( + > + )>> + + + + + + + ) + ( + + )> + + + )> + + )>> + +) + ( + + >> + ) + (T + )> + + + ) + ( + ) + (T + )> + + > + )> + ) + ( + )>> + + + +)) + + ) + ( + + > + + )> + + + + + > + )>) + ( + + ) + ( + + ) + ( + + )> + > + )> + ) + ( + ) + ( + ) + ( + )>> + + + + + + + ) + ( + + ) + (T + )> + + )>> + + + + + + + + ) + (T + )> + ) + (T + )>) + ( + + + ,HUT-BURNING> + > + + )>> + + + + +> + +) + ( + ) + ( + > + > + + ,HUT-LIVING ,HUT-BEDROOM> + + )> + ) + ( > + >> + + ) + (T + + )>) + ( + ) + ( + + + )> + ) + ( + + > + + )>> + + + + + + + ,HUT-STORAGE ,HUT-LIVING ,HUT-BEDROOM>)>> + +) + ( + > + ) + ( > + + ) + ( + + ) + (T + )>)>> + + + + + ,BEHIND-HUT) + (T + + )>> + + + + + + + ) + (,HUT-STORE-FLAG + ;"Coming to get it" + > + + + )> + ) + ( + + + + + + ) + (T + )> + + + )>) + (T + + )> + + ) + ( + + ) + (T + )>)>)>> + + + + + )>> + + ) + (T )>> + + + +> + + + + ) + (T + )> + ) + ( + ) + ( + )>> + + + +> + ) + ( + ) + (T + >)>>> + + + + + ) + ( + T) + (T + )>)>> + + + + > + + >> + ) + ( + ) + (T + )> + ) + ( + + >> + + + ) + (T + )> + ) + ( + > + ) + ( + > + + ) + (T + )> + ) + ( + + > + > + + + ) + (T + )> + )>> + + + ) + ( + + + ;"Turn off this interrupt the hard way" + ) + ( + ) + ( + + ) + ( + )>) + (,WOOD-RETURNING + ;"Coming back from returning parka" + + ) + ( + ) + ( + )> + + ) + ( + + + + + )> + + + ) + ( + )>> + + + > + + + + )>> + +> + +)) + + + + + ) + ( + + ) + (T + )> + > + + + + + + + )>> + + + + + ) + ( + )>> + + + +> + + + + + + + + + + + )>> + + + + + > + ,WORK-SHOES) + ( + > + ,NORMAL-SHOES)>> + + + + + + + )>> + + + + ) + (T + )>) + ( + + ) + ( + ) + (T + )> + + )> + ) + ( + ) + (,SHOES-WORN + > + ) + (T + + > + + + )>) + (T + )>) + ( + + ) + (,IN-SWAMP? + ) + (,SHOES-WORN + + + + + + ) + (T + + + + )>)>> + + + + + + + ) + (T + )>> + + + + +> + + + + + ) + ( + + )> + + + )>> + + + + + + + ) + ( + ) + ( + ) + ( + ) + (T + )>)>> + + + + + + + + + + + + + + + + + + + ,G4> + + + ,E7> + + + ,E8> + + + ,D9> + + + ,G5> + + + ,F6> + + + ) + (T + )> + > + + + + ) + (T + )> + + + ) + ( + ) + ( + ) + ( + ) + (T + )> + + + ) + (T ; + )> + )>> + + + + + + + + + + + ) + (T + )>> + + + + + + + + + + + + ) + (T + + )>> + + + + + ) + ( + >> + + + + ) + (T + )>) + ( + ) + ( + + )>)>> + + + + + ) + ( + ) + ( + )>> + + + + + ) + ( + + + ) + ( + + + )> + + + + >)>> + +) + (ACTION T-STATION-F)> + + + + + ) + (T + )>> + + + + + + ) + (T + )>) + ( + + + ) + (T + )>> + + + + + ) + ( + > + )>> + + + + + > + ) + ( + )>> + + + + + ) + ( + ) + (T + )>> + + + \ No newline at end of file diff --git a/bystander.zabstr b/bystander.zabstr new file mode 100644 index 0000000..b2b763c --- /dev/null +++ b/bystander.zabstr @@ -0,0 +1,396 @@ + + + + + + + + + + + +> +> + + + + + + + + +> + + + + + + + + + + + + + + + + + + +> +) (ACTION GLOBAL-BAD-SPY-F)> + + + + +> +> + + + + + + + + + + + + + + + + + + +> + + +> + + + + + + + + + + +> + + + + + + + + +) (ACTION COLOR-ROLL-F)> + + +> + + + + + + + + + + + + + + + + + + + + + + + + + + +> + + +> +> + +> + + + + + + +> + + +> + + + + + + + + + + + +) (ACTION GLOBAL-TAIL-F)> + + + + + + + + + + + + + + + +> + + + +> + + + + +> + + + + + + + + + + + + + + + + + + + + +> +> +> +> +> + + + +> +) ( +ACTION BUMPER-F)> +) (ACTION BUMPER-F)> +) (ACTION BUMPER-F)> +) (ACTION +BUMPER-F)> +) (ACTION BUMPER-F)> + + + + + FZ-EXCUSES> FZ-EXCUSES> +FZ-EXCUSES> FZ-MY-FAULT>>> + + + +> + + + \ No newline at end of file diff --git a/bystander.zil b/bystander.zil new file mode 100644 index 0000000..a359130 --- /dev/null +++ b/bystander.zil @@ -0,0 +1,2961 @@ + +"BYSTANDER for + BORDER ZONE + (c) Copyright 1987 Infocom, Inc. All Rights Reserved." + + + + + + + )>> + + + + + + + +> + +> + +> + +> + +> + +> + + + > + )> + + + > + + ) + (> + + + ) + (T + )>)> + + ) + ( + )> + + + .RM> + + + + + + ) + ( + ) + ( + ) + (T + )>)>> + + + + + ) + ( + )>> + + + + + ) + ( + )>> + + + +> + ) + ( + + )>) + ( + + ) + (T + )> + ) + ( + ) + (T + )>> + +> + + + + + + ) + (T + )>) + ( + + + ) + ( + ) + ( + > + + ) + (T + )>) + ( + + + ) + (T + + )>) + ( + >> + + ) + ( + + + ) + (T + )>)>> + + + + + + + + + ) + (T + )> + + ;> + )> + ) + ( + + )>> + + + + + ) + ( + )>> + + + + + >>> + )>> + + + + + + + + + + + )> + + + + ) + (T + )>) + ( + ) + ( > + + + )> + + ) + ( + + ) + (T + + )>) + ( + ) + ( + > + + > + ) + (T + "." CR> + ,WINNER>)>)>> + + + + + + ) + ( + ) + ( + > + + ) + ( + )> + ,GLOBAL-OBJECTS ,LOCAL-GLOBALS> + ) + (> + ) + ( + ) + ( + + ) + (T + )>)>> + + + + + ) + ( + ) + ( + ) + ( + + ) + (,BAD-TUNNEL + ) + ( + ) + (T + )>)>> + + + +> + +) + (ACTION GLOBAL-BAD-SPY-F)> + + + ,HUTBIT> + + >> + + > + + + ) + (T + )>) + ( + + ) + ( + )>) + ( + ) + ( + + ) + (T + )>> + +> + + + ) + (T + )> + + + ) + (T + >>)> + + > + + + ) + ( + ) + (T + + >> + )> + )> + ) + ( + + )>> + + + + + + > + )>> + +> + +> + + + + + + + + + +> + >> + + )> + + ,COMP-5> + + + + + + + ,COMP-N) + ( + + ) + (T + + )>> + + + ) + (T + + )> + + + + ,LAVATORY> + +> + +> + +> + +> + +> + +> + +) "AUX" BSL) + > + + + + ) + (T + >>)> + )> + )> + + + )> + > + + ) + (T + )> + + + )> + + + ) + ( + ) + (T + + >> + )> + + )> + + + + .WHR> + + > + + + + + >)>> + +)) + + )> + + + + >> 3>> + + + >)>> + +> + +> + +> + + )> + ) + (T + )> + + > + +> + + + + + CR> + + > + )>> + + + + > + ) + ( + + ) + ( + )>)>> + + + + + )>> + + + + + + + + ) + ( + ) + ( + + 5>> + ) + ( + + > + + + + ) + ( + ) + ( + + > + >> + ) + ( + + + > + )> + + )>> + + + + > + +> + +> + ) + (T + > + .SIZE> + >> + + > + )>)> + > + > + + > + > 1> + ) + ( + ) + (T + )>> + )>> + + + + + + + ) + ( + ) + (T + )>) + ( + + ) + (T + )>) + ( + + + ) + (T + )>) + ( + + + ) + (T + )>)>> + + + + + + > + + )>> + + + + + +> + + + + ) + (> + ) + (>> + ) + ( + ) + (T + )> + + + ) + ( + -1>> + ) + (> + + > + )> + ) + ( > + > + ) + (.FILM + ) + ( 5> + ) + (T + + )>) + ( + + ) + (T + + + + + -1 + 0>>> + + )> + + )> + )>) + ( + + + ) + (T + )>) + ( + + > + + >> + >> + )>) + (T + + )>)> + > + ) + (>> + ) + (> 0> + ) + ( + ) + (T + ; + ;)>) + ( + >> + ) + (> 1>> + ) + ;( + ) + (T + ,P?SHOT -1> + )>)>> + +) + (ACTION COLOR-ROLL-F)> + + > + + ) + ( + + ) + ( + ) + ( + )>> + + + +> + + + + + + > + ) + ( + > + > + ) + (>> + >> + ) + (T + + )>) + (T + )>> + + + ,CAMERA) + ( > + ,PHONY-FILM)>> + + + ) + ( > + + ) + ( + ) + ( + ) + ( + )>> + +> + ) + (> + ) + (T + + )>> + + + + + > + + ) + (T + )>> + + + + + + + )>> + + + + + )>> + + + + + ) + ( + ) + ( + )>> + + + + + )>> + + + + + )>> + + + ) + (>> + ) + (> + ) + (> -1> + ) + ( + ) + ( + ) + ;(> + ) + (T + >> + + <- .SHOT 24> + ,PRSO> + )>> + + + + + ) + ( + + ) + (T + )> + + > + )> + ) + ( + ) + ( + )>> + + + + + ) + ( > + + + ) + ( >> + + + )>> + + + + + ) + ( + ) + ( + > + ) + ( > + ) + ( + + >) + ( + )>> + +> + + + +> + > + > 7>> + >> + + + + + + + > + )> + ) + ( + + ) + (T + )> + + ,P?NS> + >>> + ) + ( + ) + (T + + + >>>> + )> + + + + ) + ( > + + ) + ( + > + + + + )> + )>)>> + +> + +> + +)) + + + + ) + (T )> + + + + > + ) + (T + )> + + + >)> + + > + )> + + + + + > + )> + + + + ) + (T + )> + + T) + ( + + + > + + >) + (T + + + >)>) + ( + > + + + + + ) + (T + )> + + >) + (T + + )> + + + ) + (T + + )> + + > + > + +> + + + + + + + + + > + + + >> + + + + ) + ( + > + + + >> + + ) + ( + ) + ( > + )>> + + + +> ) + ( ,P?NS> + >> + ,BAD-DISTANCE>> + >> + + > 4>> + + + > + + ) + (T + )> + + + + > + + + ) + (> + >)>) + (> 1> + + > + + + )>> + +> + + + +> ) + ( + + > + + + ) + (> 4> + + > + > + + + ) + (> + >)>> + +> + + + + + )>> + + + + + + + ) + (T + )> + ) + ( + ) + ( + ) + ( > + + + ) + ( + + ) + (T + )>) + ( + )>> + + + + + ) + ( + > + ) + ( + + > + + )>> + + + + + + + + + ) + ( + + + )> + + + + + + ) + (T + + )> + ) + ( + + 2>> + ) + ( + + > + + )>> + +) + (ACTION GLOBAL-TAIL-F)> + + + ) + (T + )>> + + + +> + ) + ( + + > + )> + + ) + ( + + ) + ( + + ) + ( > + > + ) + ( + + > + + ) + (T + )>)>> + + + + + + + )> + ) + ( > + + ) + ( + >>> + + ) + (T + + + + )>) + ( + >> + > + ) + (T + + )>) +>> + + + + + 4> + + ) + (T + )>) + ( + 4> + + ) + (T + )>) + ( + + ) + (T )> + + + + ) + ( + 4> + + )> + ) + ( + >> + )>> + + + + + )>> + + + + + ) + ( + + ) + ( > + )>> + + + + > + ) + ( + + + )> + ) + ( + )>> + + + + + ) + ( + ) + ( + ) + ( + )>> + +> + + + + + > + + + + > + > + )> + + + > + + + > + ;)> + + + + > + > + )> + + + + >> + + >)> + + + + + + + )>)> + + + ) + (T + + )> + + )>)> + + ) + (T + + )> + + + )> + ) + (>> + ".\"" CR> + + )> + ) + ( + > + + + > + ) + (T + )> + + + )> + + )> + )> + + ,SECOND-ROLL + + + + >> T) + ( + ;"No roll in camera" + > T) + ( + ,SECOND-ROLL + + + + >> T) + ( + > + + + )> + ;"Look everywhere else..." + + + + + + + + + + + > + )> + + + > + ) + (T + )> + + + + + + + > + +> + + + > + )>> + + + > + + + + + ) + (T + )> + )>> + + + + )>> + + + ) + (T )> + + + + > + " +out of the camera. "> + + + ) + (> + > + + ) + (T + )> + + )> + > + +> + +> + +> + + + + ) + (T + )>) + ( + ) + (T + )>) + ( + > + ) + ( + ) + (T + )> + ,BAD-INTERVIEW-FLAG> + + ) + (T + )> + + )> + + > + + + + + +)) + + ) + ( + ) + ( + )> + + )>> + +> + ) + (T + > + + ) + (T + )> + )>> + > + + + + + ) + (T + )>> + + + + + ) + ( + ) + ( + ) + ( + ) + (T + )>) + ( + > + + )>> + + + + + )>> + + + + + )>> + + + + + )>> + + + + + ) + ( + )>> + + + + + ) + (T + )> + + + + > + + + +;"Saying it in frobnian..." + +> + +> + +> + +> + +> + +> + ) + (,BUMPER-FLAG + + + + + > + ,PASSWORD-GIVEN> + + ) + (T + + )> + ) + (T + )> + + + ) + (> + ) + (T + )> + + > + + + ) + ( + ;"** Increase this with time" + > + + + + " \"" + 0> + "\""> + + + + ) + ( + > + + > + + + + " \"" + 0> + "\""> + + + ) + (T + > + )>> + + + +> ,CONTACT>> + )>>> + +> + +) + (ACTION BUMPER-F)> + +) + (ACTION BUMPER-F)> + +) + (ACTION BUMPER-F)> + +) + (ACTION BUMPER-F)> + +) + (ACTION BUMPER-F)> + + + + > + + >> + + ) + (T + )>) + ( > + + + ) + ( ,PASSWORD-GIVEN> + 20> + ) + (T + + )> + ) + (T + + + )>) + ( > + CR>)>> + +) "AUX" PHOTO) + )> + + + > + > + 0> + ,DOCUMENT> + + ,DOCUMENT>> + > + + ) + (T + + )>> + + + + FZ-EXCUSES> + FZ-EXCUSES> + FZ-EXCUSES> + FZ-MY-FAULT>>> + + + +> + + >> + + > + ) + ( + ) + (T + )> + + + )>> + + + + + ) + (T + )>> + +> + + + + + + ) + (T + )>> + + + +> + > + ,W?QUOTE> + > 0>> + ) + (T + > + >)>> + > + > .FLEN> + + + ) + (T + )> + ) + (T + > + > + 0>> + .LEN> + ;"Right length" + + > + > .FWLEN> + + ) + ( + > + >) + (T + )>> + + )>)>)> + + > + )>>> \ No newline at end of file diff --git a/desc.zabstr b/desc.zabstr new file mode 100644 index 0000000..708a4c6 --- /dev/null +++ b/desc.zabstr @@ -0,0 +1,11 @@ + +> + + + + + + +> + + \ No newline at end of file diff --git a/desc.zil b/desc.zil new file mode 100644 index 0000000..17914ec --- /dev/null +++ b/desc.zil @@ -0,0 +1,283 @@ + +"DESC for + BORDER ZONE + (c) Copyright 1987 Infocom, Inc. All Rights Reserved." + +"The fabled new describers, as updated and modified to conform to the +latest bug fixes. See ZD:DESC.DOC for details. See Z:DESC.ZIL for +the source." + +;;"modify if necessary for games with other M-..." + +> + +) "AUX" V? STR AV) + ; + + )> + )> + > + + >> + > + + > + )>)> + + + ,M-LOOK> + ) + (> + )>)> + T> + +) TMP) + > + )> + ) + ( + > + >> + + + + + >)> + )> + >> + > + ) + (> + + >>> + T) + (> + >> + > + + + > + + > + >)>)> + )>) + (> + + + + + >)> + )> + >> + <>> + >> + <>>)>> + + ;"print everything?" + ;"started paragraph yet?" + +" means top-level (include crlf) + T for all other levels + or string to print + all?: t if not being called from room-desc > + +Prints nothing and rfalses if there was nothing to list. + +'The wall crumbles to dust, revealing ' " + +) N (1ST? T) (IT? <>) (TWO? <>) + (START? <>) (PARA? <>) DB) + + + + ) + ( + )> + > + + + + + > + + >>> + + + + >>> + > + T> + + + + ) + ( + )> + )>) + (> + )>) + (.N + ) + (ELSE + )> + + ; + > + ) + (T + + >)>)> + )> + >)> + > + > + )> + + + ) + ( + T>> + + )> + )> + )>> + T> + > + ) + ( + + + >> + + > + ) + (ELSE ,D-ALL?)>> + > + )> + )> + >>)> + + T> + >> + )> + )>> + +"DESCRIBE-START -- add starters for special classes of objects here" + + + ) + ( + + ) + (T + )>) + ( + ;> + )> ;"hand is only one this clause catches" + ) + ( + ) + ( + ) + (ELSE + )>> + +"DESCRIBE-SPECIAL -- add special trailers to object descriptions here" + +; + ) + ;( + )>> + +"determines if an object is describable at all." + +> ;"bit to screen objects" + +)) + ) + ( ) + (> + >>> + ) + ( > + ) + (,D-BIT + + ) + (ELSE )>) + (>> + ) + (ELSE )>) + (ELSE + )>> + +"Determines, for DESCRIBE-OBJECTS, if an object has a simple description +(not a FDESC, LDESC, or whatever)." + + + >> + ) + (> + > + ) + ( ) + (ELSE )>> + + + +"DESCRIBE-REST finishes 'Opening the crocodile's mouth reveals '" + +;> + )> + > + +"DESCRIBE-SENT does the whole ball of wax" + +; <+ ,D-ALL? ,D-PARA?>>> + )> + > + +"DESCRIBE-NOTHING returns false if nothing was described" + +; + > + )> + ) + (T ;"nothing" + )>> + +;"END" \ No newline at end of file diff --git a/globals.zabstr b/globals.zabstr new file mode 100644 index 0000000..9dc8aac --- /dev/null +++ b/globals.zabstr @@ -0,0 +1,86 @@ + + + + + + + + + + + + + + + + + + + + + + +> + +)> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/globals.zil b/globals.zil new file mode 100644 index 0000000..ee062a8 --- /dev/null +++ b/globals.zil @@ -0,0 +1,694 @@ + +"GLOBALS for + BORDER ZONE + (c) Copyright 1987 Infocom, Inc. All Rights Reserved." + + + +;"status line stuff" + + ;" puts cursor in text part of screen" + ;" puts cursor in window part of screen" + ;" returns printing to normal (default)" + ;" sets printing mode to inverse video" + ;" sets printing mode to bold, else normal" + ;" italicizes, else underline, else normal" + ;" turns on printing to the screen" +;" turns off printing to the screen" + ;" turns on printing to the printer" +;" turns off printing to the printer" + ;" turns on printing to that table" + ;" turns off printing to that table" + ;" sends READs and INPUTs to record file" +;" stops sending READs and INPUTs to file" + + + ) + (,G-WATCH )> + + + )> + > + +)) + + + )> + + > + + + + + + + + > + +)) + + > + > + +> 0> + ) + (T + )>>> + +;) CNT) + 21> ;"is screen more than 21 lines tall?" + 21>> + > + + + )>>)> + 1> ;"turn scripting off so [MORE] won't print" + + )> + + > + + )> + > + +;> + + + + + > + + + ) + (,ON-BRACE? ) + (,ON-THE-CAN ) + (T )> + + > + + ) + (T + ) + (,ON-BRACE? ) + (,ON-THE-CAN ) + (T )> + >)>)> + > + +> + +; + +;> + + + +)> + + + +; + + + + + + + + + + + +)) + + > + + ) + ( + ) + (T + + >)> + > + ) + ( + > + )> + > + >> + ) + (T + )> + ) + ( + + > + )> + + ) + (T + + > + )> + + )> + > + + + + + > + ) + (T + )>> + + + ) + (T + )>> + + if PRSO/PRSI ready to use" +;"Special-case code goes here. returns # of matches. If 1, +then P-MOBY-FOUND is it. You can treat the 0 and >1 cases alike or differently. +Always return RFALSE (not handled) if you have resolved the problem." + > + ;)> + + ;)> + + ) + (T + )> + ) + ( + > ,P?GENERIC>>>> +;"Protocol: returns .OBJ if that's the one to use + ,NOT-HERE-OBJECT if case was handled and msg TELLed + <> if WHICH-PRINT should be called" + ;)> + + ) + (.PRSO? + + ) + (T + )> + ) + (T + ,NOT-HERE-OBJECT)>> + + + )> + + )>) + (.PRSO? + <>>) + (T + <>>)>> + + + + + ) + ( + ) + ( + ) + ( + + + ) + (T + )>) + ( + + > + + + ) + (T + )> + ) + ( + + ) + ( > + )>> + + + + + + + > + ) + ( + + )>> + + + + + > + + ) + ( + + + ) + (> + + ) + (T + )>) + ( + )>> + + + +; + +; + +; + + )>> + +; + +; + + + +; + +; + > + + ) + ( + > + + )>> + + + + + ) + ( + ) + ( + + ) + ( + ) + ( + > + + ) + ( + ) + ( + + ) + ;( + ) + ( + ) + ( + ) + ( + )>> + + + + + + ) + ( + + ) + ( + + ) + ( + )>> + + + +; + +; + ) + ( + )>> + + + + + + ) + ( + ) + ( + > + ) + (T + + + > + ) + (T + + + ) + (T + )>)>)>)>> + +; + > + + >> + ) + (T + )>> + +; + > + ) + ( + > + ) + (T + )>> + +; + > + ) + (T + )>> + + + + + + + + + + > + > + ) + ( + > + ) + (T + )>> + +; + > + ) + (T + )>> + + + + > + > + ) + ( + > + ) + (T + )>> + +> 0> ,W?IT>> + ) + (T <>>)>> + +> 0> ,W?IT>> + ) + (T <>>)>> + +) (STRING <>)) + > + ;>)> + + + >>> + )> + + ) + ( + ) + (T + )> + > + +> + +> + +; > + ) + (T + )>> + +; + >) + (T + >)> + + ) + (T + )>> + +; > + ) + (T + )>> + +; + + + +; + + + + + +)) + > + + + + + + + + + \ No newline at end of file diff --git a/good.zabstr b/good.zabstr new file mode 100644 index 0000000..4b99a79 --- /dev/null +++ b/good.zabstr @@ -0,0 +1,170 @@ + + + + + + +> +> + +> + + + + + + + + + + + +> + + +> + + + + + + + + + + +> + + + + +> +> +
>> + + + + + + +> + + + + +> + + + +> +> +> + +> + + + +> + +> + + + + + + + + + + + + +> +> + + +> +> + + + + >> + + + + +> + +> + + +> + + +> + + + + \ No newline at end of file diff --git a/good.zil b/good.zil new file mode 100644 index 0000000..0b6f4ad --- /dev/null +++ b/good.zil @@ -0,0 +1,1509 @@ + +"GOOD for + BORDER ZONE + (c) Copyright 1987 Infocom, Inc. All Rights Reserved." + +;"Scenario-related routines" + +> + > 1> + ) + (T + + >> + + )>)>> + + + +)) + > + > + )> + > 0> + ) + (> + ) + (,CAR-ON-ROAD? + > + ) + (T )> + > + + + )> + >) + ( + + + + ) + ( > + + + ) + ( T) + ( + ,SEQUENCE-RUN? + > + ) + (T + + + ,CAR>)>)>> + + + + + +> + +> + +) (S <>) (E <>) (W <>) + T1 T2 (F <>)) + )> + > + ,P?NS>>> + ) + ( + )> + > + ,P?EW>>> + ) + ( + )> + ;"Weren't nearby" + ;"Are now" + + + + ) + (T + )> + )>) + ( > ;"Closer" + + + + + + ) + (T )> + ) + (T + + )>) + ( + + ) + (T + + )> + ) + (> + + ) + (T + )> + + ) + ( + + + + ) + ( + > + ) + (T + )>) + (T + + )>) + (T + )>) + ( + + > ,P?EW> + 4> + 5>> + ) + (.BMOVE + ) + (T + )> + ) + (T + )> + ) + ( + )> + + ) + (T + )>) + (T + + ) + (T + )> + ) + (T + )> + )> + ) + (.S )> + ) + (.W )> + + ,LOST-SCENT> + )>)> + ) + (T + + )> + > + +> + + + + ,PRSI > + + + ) + (T + )>) + ( + ) + ( + )>> + + + + + ) + ( + ) + ( + > + ) + ( + > + + )>> + + + + > + ) + (T + )>> + + + + + + + + + > + + + )> + ) + ( + + >> + + + + ) + (T + )> + + )> + ) + ( + ) + ( + > + + ) + (T + )>) + ( + > + ) + ( + + + )> + ) + ( + > + ) + ( + )>> + + + +> + + + ) + ( + ) + ( + + )> + ) + ( + ) + (T + + + + )>)>> + + )> + > + > + >>> + > 1> + + ) + (T + + >> + + >> + + + )> + + )>) + ( + > + )>> + +> + + + +;"Guards, towers, etc." + + + + ) (T )>> + + + + + ) + ( + + + ) + ( + > + ) + ( + ) + ( + + + + + ) + ( + ) + ( + )>> + + + + + > + + + + + + > + + )> + + ) + ( + + )> + )> + + + + + + 2> 6>> + + 11>> + + + + + + + ) + ( + > + + + )> + > + + + + )> + )>> + + + + + > + > + + + + + > + > + + + +> + + + ", " + "the middle one " + + ", " + "and the right one " + + "."> + )> + T> + + 112> 225>>> + + 112> 225>>> + + 0>> + +> + +> + +
>> + + + +;> + +;"Movement between the towers and no-mans land" + +> + + 10> + 100> + ,WARMTH> + ,HEALTH>> + ; + + + )> + + > + 50> + + ) + ( + + + + )> + ;"First set up the tables" + > + >> .MVS>> + + > 2> + )>> + ;"Now cycle through MVS moves" + + )> + > 0> )> + + ;)> + ) + (T + > + >>> + > + ;"Almost made it..." + + "racing toward +you! Too late! The intense white light blinds you and piercing sirens +fill the night air!"> + + ) + ( + >> + + "is heading right at you! You freeze, +and consider turning back, but it's too late. The searchlight is upon you now, +and before you can react, the night is filled with the sound of wailing +sirens."> + + ) + (T + + "is bearing down on you. You decide +to turn back, and just barely manage to reach the safety of the "> + + ) + (T + )> + + )>)> + >)>> + + + )> + >> + + > + +> 0> + ) + (T + )>>> + +> + + + + ) + ( + + ) + ( + + ) + ( + + ) + (T + + )> + > + +) "AUX" (FLG 0)) + + 30>> + + >)> + > + ) + (T )>) + ( >)> + + ) + ( + ) + ( + )> + > + )> + )> + + ) + ( + ) + ( + )>> + +> + + + + 0> 10>> + ;)> + + > + >> + ;)> + ) + (T )>> + +> 3> )> + > + >> + )> + >> + + + +> + +;"Something stinks..." + + + + + + + > + + > 3>> + ) + (T + + + + ) + ( + ) + ( + ) + (T + )> + + + )>)>> + +> + +> + +> + +) HF NDL) + ;"Debugging" + )> + )> + > + + + + + )> + > + >>> + > + + + + + + > + ) + (T + )> + + ) + ( ;"Player has crossed here." + + + + + + + )>)> + >) + (T + )>> + +> + +) "AUX" TMP) + > .TMP> + <* > .TMP>>> + 0) + (> 2) + ( 1) + ( 2) + ( 3) + ( 4) + (T 5)>> + + >>> + + >>> + +;"Sorry, no car chase..." + +> + + + +;"Runs every 50 seconds; car goes past every 5th time, on average." + +> + + + + + + + )> + + ) + ( + > + + + )> + ) + ( + ) + ( + ) + ( + )>> + + + + + ) + ( + )>> + + + + + )>> + + + + ,CAR-SEQUENCE> + ) + ( + + ) + ( + + >> + ) + (T + )>) + (T + )>) + ( + + + + >> + + ) + ( + > + ) + ( + ) + (> + ) + (T + )>)>> + +;> + +)) + > + + + + + + ) + ( ) + (T )> + + ) + ( 4> + + + + + + )>)>> + +) (S <>) (W <>) (E <>) T1 T2) + > + >> + ) + ( + )> + > + >> + ) + ( + )> + ) + (.S )> + ) + (.W )>> + +) (S <>) (W <>) (E <>) T1 T2) + > + >> + ) + ( + )> + > + >> + ) + ( + )> + + > + >) + (.E ) + (.W )> + >) + (.W >)> + > + +> + +> + + + + + > + +> + +> + + + + + ) + ( + + + + > + +