From d26f1573576909c6da9a02adc0c9d428c99c873f Mon Sep 17 00:00:00 2001 From: historicalsource Date: Sat, 13 Apr 2019 21:51:00 -0400 Subject: [PATCH] Revision 48 (Original Source) --- 2actions.zil | 3970 ++++++++++++++++++++++++++++++++++++++++++++++++++ 2dungeon.zil | 2721 ++++++++++++++++++++++++++++++++++ README.md | 1 + crufty.zil | 11 + gclock.zil | 66 + gglobals.zil | 316 ++++ gmacros.zil | 158 ++ gmain.zil | 298 ++++ gparser.zil | 1194 +++++++++++++++ gsyntax.zil | 551 +++++++ gverbs.zil | 2137 +++++++++++++++++++++++++++ zork2.zil | 56 + zork2.zip | Bin 0 -> 89912 bytes 13 files changed, 11479 insertions(+) create mode 100644 2actions.zil create mode 100644 2dungeon.zil create mode 100644 README.md create mode 100644 crufty.zil create mode 100644 gclock.zil create mode 100644 gglobals.zil create mode 100644 gmacros.zil create mode 100644 gmain.zil create mode 100644 gparser.zil create mode 100644 gsyntax.zil create mode 100644 gverbs.zil create mode 100644 zork2.zil create mode 100644 zork2.zip diff --git a/2actions.zil b/2actions.zil new file mode 100644 index 0000000..9e93a8e --- /dev/null +++ b/2actions.zil @@ -0,0 +1,3970 @@ +"ACTIONS2 for + Zork II: The Wizard of Frobozz + (c) Copyright 1981, 1983 Infocom, Inc. All Rights Reserved." + + + > + > + )>> + +"SWORD demon" + + + +) (NG 0) G P TX L) + + + ) + (T + + >> + ) + (> + > + > + + > + + )>)>)>>)> + ) + ( + ) + (<1? .NG> + ) + (<0? .NG> + )> + + ) + (T + + )>> + +)) + ) + ( + > + >> + ) + (>> )>>> + + + + + )> + ) + ( + + > + + )> + + + ) + (T + )> + > + 1>>>)> + + )>> + + + > + )>> + +> + +> + + + + >) + (T + + )> + ) + ( + + + + T) + (T CR>)> + )>> + +;"SUBTITLE THE VOLCANO" + +> +> +> +> + +) "AUX" M R RC) + #DECL ((RARG) (M) (R) OBJECT) + + + + ) + (T + )>) + (T + + + + > + + "burning") + (T + "nestled")> + " inside">)>) + (T )> + )> + ) + (T + )> + ) + ( + + + + ) + (T + )>) + (T + )> + ) + (T + )>) + ( + + > + + ) + (T + 1> + > + ,RMUNGBIT>> + > + > + )>) + (T + + )>) + ( + ,BINF-FLAG + + > + + + ) + ( + > + + ) + ( + + > + + ) + ( + > + + ) + ( + )>)>> + + ,BINF-FLAG> + ) + ( + ) + (T + )>> + + + 20>>> + + + + + ) + (T + + + + )> + + + >)>> + + + )> + + > + +> + +> + +> + +) R) + #DECL ((IN) (R) ) + > + + > + > + + ) + ( + )> + ) + (> + + + ) + (T + )>) + (> + + + ) + (T + > + + )>) + (.IN + + + ) + (T + )>> + +) R) + #DECL ((IN) (R) ) + > + + + + + ;) + (T + + + + > + + )>) + (T )>) + (> + + + ) + (T )>)>> + + + + + )> + ) + ( + > + + ) + (T + )>) + ( > + + ) + (T )>) + ( + )>> + + + ) + ( + + > + + + > + )>) + ( + > + > + + > + ) + (T )>)>> + +)) + #DECL ((OBJ) OBJECT) + + )> + + > + T> + + + + + ) + (T + )>)>> + + + ) + ( + ) + (T )>) + ( + ) + (T )>)>> + + + + )>> + + + + + + + >> + + >)>> + +) F) + + ) + ( + ) + (T + >)>> + + + + + ) + ( + > + + + + + + + )>) + (T + + > + + > + + )> + >> + )>>)>)> + ) + ( ,WINNER ,HERE> + )> + > + + + ) + ( + + + >)>)> + > + + + + + + + > + > + > + > + ) + (T + )>) + (T + )>) + ( + )> + > + + + + + ) + (T )>)>> + +) + (T + )>> + + + + + ) + (T + + )>) + (T + > + )>> + +> + + > + + + + + ) + ( + + + > + > + ) + (T + + )>) + (T + + + >)> + )>> + + + )> + > + + + + >> + CR> + + ) + (T )>> + + + + + + + )>> + +; "SUBTITLE TOMB OF THE FLATHEADS" + + + ) + ( + )>> + + + + + + ) + (T )> + )>> + + + + + + + ) + (T )> + + > + )>) + (T + )> + + ) + ( + + + > + > + )> + )>> + + + + + > + + ) + ( )>> + + + )>> + + + + T)>> + +> + + ) + ( + ) + (T >)> + )>> + + + ) + (T )>) + ( > + ) + ( + + ) + (T + + > + )> + + )>)>> + +> + +> + > + + + + + + + ) + (T + )>)>> + +\ + +;"SUBTITLE A DROP IN THE BUCKET" + +> + +> + + + + )> + > + + (W) OBJECT (PI?) ) + ) + ( + + ) + ( ;"fill bottle with water =>" + ;"put water in bottle" + + + + >) + ( + + >) + (,PRSI + + )> + + + )>)> + ) + (T )> + > + > >)> + > + > + ) + ( >> + ) + (>> + + ) + ( + > + + ) + (T + )> + ) + (T + + )>) + ( + + > + + + ) + (T + )>) + (.PI? ) + ( + + >> + + )> + + ) + (T + + )>) + ( + + )>> + + + > + + + + > + ) + ( + + + + >> + + + + + > + ) + ( + )>) + ( + + > + + + > + + > + ) + (>> + ) + (T + )> + > + )>) + ( + + )>> + + + + )>> + +\ + +;"SUBTITLE CHOMPERS IN WONDERLAND" + + + > + )>)>> + + + + > + + + + + > + ) + (T + > + > + > + + + )>)> + > + ) + (T )>> + + ) + (T )> + + + > + ) + (T + + )>> + + + + ) + (,PRSI + + ) + ( + + + ) + ( + ) + (T )> + ) + (T )>) + (T + )>) + ( + > + + + ) + ( + + ) + ( + + + + + + + > + ) + (T + > + > + > + + + )>)> + > + ) + (T )>)>) + ( + + > + + ) + ( + + > + + + + )> + + + + ) + (T )>> + + + + >Special Assortment<<| + Candied Grasshoppers| + Chocolated Ants| + Worms Glacee| +(By Appointment to His Majesty, Dimwit I)| +"> + + ) + ( + )>> + + + + + + )>> + + + + + + )>> + + + + + + )>> + + 2>>> + + -3>>> + + + ) + ( + ) + ( + )>> + + + ) + ( > + + ) + ( + + ) + ( + + + )>> + + + + + CR>) + ( + )>> + + + > + + + ) + ( + ,CAROUSEL-FLIP-FLAG> + +"According to Prof. TAA of GUE Tech, the rapidly changing magnetic +fields in the room are intense enough to electrocute you. +I really don't know, but in any event, something just killed you." ) + (T +"According to Prof. TAA of GUE Tech, the magnetic fields in the room are +intense enough to fry the delicate innards of the robot. I really don't +know, but in any event, smoke pours from its ears and it has stopped moving.")>>) + ( + + + + )> + )>)>> + +> + +> + + + ,MACHINE-ROOM) + (T + ,TEA-ROOM)>) + ( + ,MACHINE-ROOM) + ( + > + ,TEA-ROOM) + (T + + )>> + +> + +> + + + + ) + ( + ) + ( + )>) + ( + > + ) + (T + )>) + ( + > + + + + ) + (T + )> + > + )> + T) + (T )>)>)>> + +> + +) + > + ) + (T >)> + > + + + + )> + + + + + > + T) + (.FL + + + + + + + T) + ( + )>> + + + + + )>> + +)>> + + + ) + ( + ) + ( > + + > + + + + + + + ) + ( + + )> + ) + ( + > + ) + ( + + )> + ) + ( + > + ) + ( + + ) + (T + )>) + ( + > + ) + ( + ) + (T + )> + ) + (T + + )> + )>) + ( + ) + ( + > + + ) + ( + + ,PRSI) (,PRSO)>>)>> + +\ + +;"SUBTITLE BANK OF ZORK" + +> + + + + + ) + ( + )>> + + > + + ) + (T .RM)>> + +> + +> + +> + + + + + >)>> + + + + ) + (T )> + )>> + +)) + + ) + ( ,PRSI> + ) + ( > + + ) + (T )>)>> + + + .RM> + ) + (T >)>>> + + + + 1>>> + )>> + + + ) + (T + )>> + +> + + + ) + (T + + > + T)>> + +> + + > + +> + +> + + ) + ( + + + ) + (T + > + )>)>)>> + +> + + + > + + + ) + (T + + )>)>> + + > + + + + + > + + ) + ( + + + > + > + ) + (T + + + )>) + ( + + + >) + (T + )>> + + + + )>> + + + + ,C-ENABLED?>>>> + ) + (T )>> + +\ + +"PALANTIRS, ETC." + +)) + #DECL ((RM) OBJECT) + + + )> + + + > + + )> + + + T> + +) + + + + ) + (> )>> + +) + + + + )> + (T )> + +)) + #DECL ((LID) OBJECT) + > + + > + ) + (T + )> + + >)> ;"HUH?" + + ) + (T + )>> + +> )> + + > + )> + + > + )> + + )>)> + > + + + .OBJ1) + (T .OBJ2)>> + +)) + #DECL ((KEYHOLE) OBJECT (THIS) ) + > + ,KEYHOLE-2) + (> .THIS> + ,KEYHOLE-2) + (T ,KEYHOLE-1)>> + + + + + > + > + + ,TINY-ROOM) + (T ,DREARY-ROOM)>>> + ) + (T + )>) + ( + ,OPENBIT> + > + ) + ( + >> + + > + + )> + )>) + (T )>) + (T )>)>> + + + + CR>) + (T )> + ) + ( + + ,KEYHOLE-2) + (T ,KEYHOLE-1)>> + ) + (T + + )>) + ( + )>> + +> + +> + +> + +> + +> + ) + ( ) + ( )> + >> + + + + ,PALANTIR-2) + ( + ,PALANTIR-3) + ( + ,PALANTIR-1) + (T ,PALANTIR-4)>>) + ( + ) + ( <==? ,PRSO ,PALANTIR-3>> + > + )>> + + + + + "red") + ( + + "blue") + (T "white")> +" mist. The mist becomes " + "blue") + ( "white") + (T "black")> +" to the west." CR> + + + ) + ( + ) + ( + ) + ( + + > + )> + )> + ) + ( > + + + + )> + + + > + + ) + (T + + > + + ;> + ; + )>)>> + + + ) + ( )>> + +) "AUX" RM OHERE) + + + )> + > + >> + ) + ( >> + + ) + (T + )> + + + + )> + + + )>) + (T + )> + T> + + + + + ) + ( + ) + (T )>) + ( + )>> + + ,MUD-FLAG> + ) + ( + + >> + >> + ) + (T + + )>) + ( + ) + (T )>) + ( + + + > + T) + ( + ) + (T )>) + ( + + + ,DREARY-ROOM) + (T ,TINY-ROOM)>>) + ( + )>) + ( + ) + (T )>)>> + + + ) + (T + )>)>> + + + + + + ) + ( + )>) + ( ,MATOBJ> + + + > + > + )>> + + + + > + + ) + (T + )>)>> + + > + + ) + ( + )>> + + + + > + + >)> + > + ) + (T + + + > + )>) + ( > + + + + + T) + ( + + > + + > ) (T )> + ) + ( + + ) + (T + )> + )>> + + + + > + + +> + + <==? ,PRSO ,LAMP>> + + > + + ) + ( + + ) + (T + > + <>)>) + ( + + ) + (T + > + <>)>) + ( + + ) + ( + ) + (T + )> + )>> + +) TICK) + #DECL ((OBJ) OBJECT (TBLNAM INTNAM) ATOM (TBL) + (TICK) FIX) + >>> + + + )> + > + + ) + (T + CR>)>)> + > + >)> + > + +;"Riddles" + + + + + ) + (T + )> + ) + ( + + + ) + ( ,W?WELL> + > ,W?WELL>> + + + ) + (T + )> + > + > + )>)>> + + + + ) + (T + )>) + ( + + ) + (T + )>)>> + +> + + + )>> + + + + + >> + > + > + ) + ( + ) + (T + )>) + ( + )>) + ( + ) + ( +) + ( + + ) + ( > + )>) + ( + ) + (T + )>) + ( + > + + ) + ( + >> + ) + (T + + )>) + ( + + > + + ) + ( + >> + + ,VEHBIT> + ) + (T + + )>)>)>> + +)) + + > ,LOW-DIRECTION> + + > + + + + )> + ) + (T + > + > + + + >> + + ,OPENBIT>>> + ) + ( )>)>)>>> + +>> + )> + + > + +\ + +"SUBTITLE DIAMOND MAZE" + +> ;"T if solved" + + ;"count of current progress" + ;"count of moves since progressed" + ;"count of maximum progress ever" + +> + + + ) + (T >)> + > + + + ) + ( + ) + ( + )>> + + + + + + )> + ) + (T )> + ) + ( ) + ( + + > + + > + >> + + > + + + )> + + + + + )> + + ) + ( + ) + ( + ) + ( + )> + ) + (T + )> + ) + ( + > + ) + (T + + + + ) + ( + + ) + (T + + + + )> + 1>>> + + + )> + + )>)>)>> + +> + + + > + )> + >>>> + +> + +> + +> + +\ + +"SUBTITLE CERBERUS" + +> + + > + + ) + (> ) + ( + ) + (T )>) + ( + + ) + ( + ) + (T + )>) + ( > + + + + + + ) + ( + + + ) + ( + + ) + ( + )>) + ( + ) + (> + )>> + + ,CERBERUS-LEASHED> + ) + ( > + + )>> + +\ + +"SUBTITLE DRAGON AND GLACIER" + +> + + + )>> + + + + )> + )>> + +> + + + >) + ( + + >) + ( + + >> + ) + (T + CR>)> + >) + ( > + > + + + ) + ( + > + + ) + (T + )>) + ( + + > + > + )>> + + + +> + + + > + + > + >)> + )>> + + ,HERE) + (T + + >> + >) + (> + > + > + + > + + )>)>)>>)>> + + + + + + + ) + (T + + )>) + ( + >> + + + + ) + (T + )>) + (> + + > + ) + (T + + + ) + ( + + ) + (T )>)>)>) + (T + > + + )>) + ( + > + )> + ) + ( + + + + + > + + ) + (T + > + + ) + (T + )> + > + + >)>)>)> + > + > + )> + T> + + + + >> + + + > + + > + + > + )>) + ( + > + + >> + > + )> + + + CR>) + (T )>) + ( + > + + ) + ( + > + + ) + (> + > + > + )>)>) + (T + + > + )>> + +> +> + +