Final Revision

d2.zil

@@ -0,0 +1,48 @@
+"DEMO for
+				SAMPLER
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved."
+
+<SET REDEFINE T>
+
+;<GLOBAL BIGFIX 10000>
+
+<OR <GASSIGNED? ZILCH>
+    <SETG WBREAKS <STRING !\" !,WBREAKS>>>
+
+<DEFINE IFILE (STR "OPTIONAL" (FLOAD? <>) "AUX" (TIM <TIME>))
+	<INSERT-FILE .STR .FLOAD?>>
+
+<PRINC "Sampler ZORK I: The Great Underground Empire
+">
+
+<OR <GASSIGNED? INSERT-CRUFTY>
+    <DEFINE INSERT-CRUFTY (STR) <INSERT-FILE .STR T>>>
+
+<COND (<GASSIGNED? PREDGEN>
+       <ID 0>)>
+
+<IFILE "MISC" T>
+<IFILE "SYNTAX" T>
+<IFILE "DUNGEON" T>
+<IFILE "GLOBALS" T>
+<IFILE "PARSER" T>
+<IFILE "VERBS" T>
+<IFILE "ACTIONS" T>
+<IFILE "TUTORIAL" T>
+<IFILE "PLANETFALL" T>
+<IFILE "INFIDEL" T>
+
+<PROPDEF SIZE 5>
+<PROPDEF CAPACITY 0>
+<PROPDEF VALUE 0>
+<PROPDEF TVALUE 0>
+
+<GC 0 T>
+
+<DEFINE CNT (STR OBL)
+	<PRINC .STR>
+	<PRIN1 <MAPF ,+ ,LENGTH .OBL>>
+	<CRLF>>
+
+<COND (<NOT <GASSIGNED? PREDGEN>>
+       <GC-MON T>)>

dungeon.zil

@@ -861,6 +861,7 @@ the canyon from here.")
 ;"The GO routine must live here."
 
 <ROUTINE GO ()
+	<PUTB ,P-LEXV 0 59>
 	<ENABLE <QUEUE I-FIGHT -1>>
 	<QUEUE I-SWORD -1>
 	<QUEUE I-LANTERN 200>
@@ -968,7 +969,9 @@ survive, and that the plane's carrying the long-overdue box.">
 You just received a telegram from a Mr. Linder, saying that his life
 is in danger and asking for your help. His name \"rang a bell,\" and you
 consulted a police file on the case of his wife's recent suicide.
-Now you are ready to meet him for the first time. The Witness is so
+Now you are ready to meet him for the first time.|
+|
+The Witness is so
 richly interwoven that we were unable to pull out a
 small portion to use as an interactive part of this Sampler. Therefore,
 we'll show you one possible transcript for a section of the story. The
@@ -1274,12 +1277,10 @@ W - Sample transcript from The Witness -- a mystery|
 Z - Zork I excerpt -- a fantasy|
 |
 B - Blatantly self-serving propaganda|
-|
 N - Nothing; I'm done with this Sampler for now|
 |
 Whenever you want to start the Sampler over from the beginning, just type
-RESTART and press the RETURN (or ENTER) key. If you want to leave the
-Sampler, type QUIT.|
+RESTART and press the RETURN (or ENTER) key. To leave the Sampler, type QUIT.|
 |
 (Please type in the appropriate letter and press the RETURN or ENTER key.)>">
 	 <REPEAT ()
@@ -1350,9 +1351,12 @@ challenging story for you.|
 In our Fantasy line, you can pick from our classic Zork trilogy -- Zork
 I (standard level), Zork II (advanced level), or Zork III (advanced level) --
 and explore the puzzling caverns of the Great Underground Empire, collecting
-long-lost treasures and battling trolls and wizards. In Enchanter (standard
-level) and Sorcerer (advanced level) you use magic spells and potions
-to fight wickedness and evil. Or play Wishbringer (introductory level), where
+long-lost treasures and battling trolls and wizards. 
+In the Enchanter trilogy -- Enchanter (standard level), Sorcerer
+(advanced level), and Spellbreaker (expert level) -- you use magic
+spells to fight ever more dangerous enemies, until at last the fate of
+magic itself hangs in the balance.
+Or play Wishbringer (introductory level), where
 you can use the Magick Stone of Dreams to rescue your little village from
 the skewed reign of the Evil One.|
 |
@@ -1375,7 +1379,11 @@ best-seller called The Hitchhiker's Guide to the Galaxy (standard level),
 our most mind-boggling story, co-authored by the equally mind-boggling
 Douglas Adams. Planetfall (standard level) teleports you 120 centuries
 into the future and maroons you on a deserted planet with a friendly
-little robot named Floyd. In Starcross (expert level), you encounter a
+little robot named Floyd.
+A Mind Forever Voyaging (advanced level), reminiscent of such classic
+works of science fiction as Brave New World and 1984, puts you in the
+role of the world's first conscious, intelligent computer.
+In Starcross (expert level), you encounter a
 gargantuan alien spaceship and come face-to-face with bizarre
 intelligent creatures from all corners of the galaxy. And in Suspended
 (expert level), while in a deep-freeze you manipulate six highly
@@ -1415,14 +1423,14 @@ upon the decisions you make along the way.|
 Infocom's sophisticated technology makes it easy for you to lose
 yourself in our stories. The stories recognize nouns, verbs,
 prepositions, adjectives and adverbs, thus allowing you to use
-full-sentence commands. Less sophisticated games recognize only nouns
-and verbs, requiring you to use two-word, noun/verb (\"LOOK BOOK\")
-commands. Some other programs CLAIM to understand full sentences but
+full-sentence commands. Less sophisticated games recognize only verbs
+and nouns, requiring you to use two-word, verb-noun commands,
+like \"LOOK BOOK\". Some other programs CLAIM to understand full sentences but
 actually only pull out one or two words and discard the rest of the
 command.|
 |
 For example, suppose you wanted to know how much money you had in a
-certain story. You might type COUNT THE MONEY and you'd be told \"You
+certain story. You might type COUNT THE MONEY, and you'd be told \"You
 have $15 in your pocket.\" Great. But what if you wanted to count
 something else, like the money in a piggy bank? You might type COUNT
 THE MONEY IN THE PIGGY BANK; in a less sophisticated game, you'd be
@@ -1445,7 +1453,7 @@ We want you to know where you're going and how to get there. That's why
 we bind a wealth of information into every Infocom package. For
 example, the Nat'l Detective Gazette included with The Witness provides
 tips for greenhorn detectives as well as a guide to the best watering
-holes in L.A. Planetfall contains a Stellar Patrol recruitment
+holes in L.A. in 1938. Planetfall contains a Stellar Patrol recruitment
 brochure. And Enchanter gives you a brief history of magic. Along with
 these handy items comes a detailed down-to-earth instruction manual.|
 |
@@ -1459,7 +1467,7 @@ envelope bearing an authentic Egyptian stamp." CR CR CR>
 	 <TELL
 "WE'LL HELP YOU OUT|
 |
-There's a solution to every Infocom problem and a way through every
+There's a solution to every Infocom puzzle and a way through every
 Infocom maze. But sometimes even the most brilliant adventurer gets
 stumped. That's when InvisiClues Hint Books and Maps come in handy.
 They're the only hints written by the same people who write our
@@ -1478,7 +1486,7 @@ hint books, you'll be able to extract full enjoyment from each story.|
 |
 There's an InvisiClues Hint Book for every Infocom story, each
 containing hundreds of valuable hints. And each hint book comes with a
-handsomely illustrated, informative map (except Seastalker and Suspended
+handsomely illustrated, informative map (except Seastalker and Suspended,
 for which maps are included in the story package).|
 |
 The greatest pleasure to be gained from an Infocom story is in solving

sampler.errors

@@ -0,0 +1,30 @@
+Assembling SAMPLER.XZAP.3 on Friday, August 23, 1985 16:11:47
+Release: 55
+
+    64	Inserting SAMPLERFREQ.XZAP.6	   (626 bytes)
+   690	Inserting SAMPLERDAT.ZAP.1	 (22243 bytes)
+ 22933	Inserting MISC.ZAP.1	  (1369 bytes)
+ 24302	Inserting SYNTAX.ZAP.1	     (0 bytes)
+ 24302	Inserting DUNGEON.ZAP.2	 (13938 bytes)
+ 38240	Inserting GLOBALS.ZAP.1	  (1458 bytes)
+ 39698	Inserting PARSER.ZAP.1	  (7690 bytes)
+ 47388	Inserting VERBS.ZAP.1	 (14511 bytes)
+ 61899	Inserting ACTIONS.ZAP.1	 (11500 bytes)
+ 73399	Inserting TUTORIAL.ZAP.1	  (6453 bytes)
+ 79852	Inserting PLANETFALL.ZAP.1	 (13561 bytes)
+ 93413	Inserting INFIDEL.ZAP.1	 (10490 bytes)
+103903	Inserting SAMPLERSTR.ZAP.1	 (22999 bytes)
+
+Symbols unused:
+SERIAL
+DEF2A
+DEF3C
+TROLL-MELEE
+
+250 objects.
+194 globals.
+788 word vocabulary.
+
+126902 bytes (124K).
+ 22913 bytes of preload.
+

sampler.serial

@@ -0,0 +1 @@
+48

sampler.xzap

@@ -0,0 +1,38 @@
+	.INSERT "SAMPLERFREQ"
+	
+	.INSERT "SAMPLERDAT"			; DATA IS IN THIS FILE
+
+
+	.INSERT "MISC"
+
+
+	.INSERT "SYNTAX"
+
+
+	.INSERT "DUNGEON"
+
+
+	.INSERT "GLOBALS"
+
+
+	.INSERT "PARSER"
+
+
+	.INSERT "VERBS"
+
+
+	.INSERT "ACTIONS"
+
+
+	.INSERT "TUTORIAL"
+
+
+	.INSERT "PLANETFALL"
+
+
+	.INSERT "INFIDEL"
+
+
+	.INSERT "SAMPLERSTR"
+
+	.END

sampler.zil

@@ -1,7 +1,11 @@
-"DEMO for--
+"DEMO for
 				SAMPLER
 	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved."
 
+<GC 0 T 5>
+
+<BLOAT 70000 0 0 2700 0 0 0 0 0 256>
+
 <SET REDEFINE T>
 
 ;<GLOBAL BIGFIX 10000>

samplerfreq.xzap

@@ -0,0 +1,200 @@
+	.FSTR FSTR?1,"the "	;2702	1352
+	.FSTR FSTR?2,"The "	;1140	381
+	.FSTR FSTR?3,"You "	;1110	371
+	.FSTR FSTR?4,", "	;1039	1040
+	.FSTR FSTR?5,"and "	;890	446
+	.FSTR FSTR?6,"you "	;884	443
+	.FSTR FSTR?7,"your "	;744	249
+	.FSTR FSTR?8,". "	;686	687
+	.FSTR FSTR?9,"to "	;595	596
+	.FSTR FSTR?10,"of "	;502	503
+	.FSTR FSTR?11,"can't "	;465	94
+	.FSTR FSTR?12,"with "	;462	155
+	.FSTR FSTR?13,"is "	;459	460
+	.FSTR FSTR?14,"that "	;414	139
+	.FSTR FSTR?15,"have "	;363	122
+	.FSTR FSTR?16,"are "	;344	173
+	.FSTR FSTR?17,"in "	;336	337
+	.FSTR FSTR?18,"from "	;288	97
+	.FSTR FSTR?19,"It's "	;280	57
+	.FSTR FSTR?20,"interactive "	;280	29
+	.FSTR FSTR?21,"This "	;264	67
+	.FSTR FSTR?22,"for "	;254	128
+	.FSTR FSTR?23,"through "	;234	40
+	.FSTR FSTR?24,"into "	;231	78
+	.FSTR FSTR?25,"already "	;228	39
+	.FSTR FSTR?26,"something "	;224	29
+	.FSTR FSTR?27,"Floyd "	;215	44
+	.FSTR FSTR?28,"There's "	;208	27
+	.FSTR FSTR?29,"There "	;205	42
+	.FSTR FSTR?30,"this "	;195	66
+	.FSTR FSTR?31,"you're "	;192	33
+	.FSTR FSTR?32,"but "	;186	94
+	.FSTR FSTR?33,"You're "	;182	27
+	.FSTR FSTR?34,"don't "	;180	37
+	.FSTR FSTR?35,"small "	;176	45
+	.FSTR FSTR?36,"It "	;172	87
+	.FSTR FSTR?37,"would "	;164	42
+	.FSTR FSTR?38,"can "	;160	81
+	.FSTR FSTR?39,"Infocom's "	;160	17
+	.FSTR FSTR?40,"which "	;156	40
+	.FSTR FSTR?41,"around "	;150	31
+	.FSTR FSTR?42,"on "	;146	147
+	.FSTR FSTR?43,"see "	;146	74
+	.FSTR FSTR?44,"door "	;144	49
+	.FSTR FSTR?45,"seems "	;144	37
+	.FSTR FSTR?46,"nothing "	;138	24
+	.FSTR FSTR?47,"THE "	;135	46
+	.FSTR FSTR?48,"about "	;132	34
+	.FSTR FSTR?49,"be "	;127	128
+	.FSTR FSTR?50,"like "	;123	42
+	.FSTR FSTR?51,"here"	;122	62
+	.FSTR FSTR?52,"out "	;120	61
+	.FSTR FSTR?53,"doesn't "	;119	18
+	.FSTR FSTR?54,"Infocom "	;119	18
+	.FSTR FSTR?55,"not "	;118	60
+	.FSTR FSTR?56,"it "	;115	116
+	.FSTR FSTR?57,"Your "	;112	29
+	.FSTR FSTR?58,"looks "	;108	28
+	.FSTR FSTR?59,"just "	;105	36
+	.FSTR FSTR?60,"before "	;105	22
+	.FSTR FSTR?61,"that"	;102	52
+	.FSTR FSTR?62,"his "	;102	52
+	.FSTR FSTR?63,"Let's "	;102	18
+	.FSTR FSTR?64,"large "	;100	26
+	.FSTR FSTR?65,"closed"	;100	26
+	.FSTR FSTR?66,"living "	;100	21
+	.FSTR FSTR?67,"isn't "	;100	21
+	.FSTR FSTR?68,"will "	;99	34
+	.FSTR FSTR?69,"room "	;96	33
+	.FSTR FSTR?70,"encampment"	;96	13
+	.FSTR FSTR?71,"fiction"	;95	20
+	.FSTR FSTR?72,"one "	;94	48
+	.FSTR FSTR?73,"what "	;93	32
+	.FSTR FSTR?74,"it's "	;92	24
+	.FSTR FSTR?75,"yourself "	;91	14
+	.FSTR FSTR?76,"anything "	;91	14
+	.FSTR FSTR?77,"an "	;90	91
+	.FSTR FSTR?78,"should "	;90	19
+	.FSTR FSTR?79,"lantern "	;90	16
+	.FSTR FSTR?80,"A "	;88	89
+	.FSTR FSTR?81,"think "	;88	23
+	.FSTR FSTR?82,"south "	;88	23
+	.FSTR FSTR?83,"light "	;88	23
+	.FSTR FSTR?84,"more "	;87	30
+	.FSTR FSTR?85,"get "	;86	44
+	.FSTR FSTR?86,"has "	;84	43
+	.FSTR FSTR?87,"there "	;84	22
+	.FSTR FSTR?88,"north "	;84	22
+	.FSTR FSTR?89,"That "	;84	22
+	.FSTR FSTR?90,"another "	;84	15
+	.FSTR FSTR?91,"sentence "	;84	13
+	.FSTR FSTR?92,"probably "	;84	13
+	.FSTR FSTR?93,"some "	;81	28
+	.FSTR FSTR?94,"only "	;81	28
+	.FSTR FSTR?95,"first"	;81	28
+	.FSTR FSTR?96,"now "	;80	41
+
+
+;word frequency table of 96 most common words
+
+WORDS::	.TABLE
+	FSTR?1
+	FSTR?2
+	FSTR?3
+	FSTR?4
+	FSTR?5
+	FSTR?6
+	FSTR?7
+	FSTR?8
+	FSTR?9
+	FSTR?10
+	FSTR?11
+	FSTR?12
+	FSTR?13
+	FSTR?14
+	FSTR?15
+	FSTR?16
+	FSTR?17
+	FSTR?18
+	FSTR?19
+	FSTR?20
+	FSTR?21
+	FSTR?22
+	FSTR?23
+	FSTR?24
+	FSTR?25
+	FSTR?26
+	FSTR?27
+	FSTR?28
+	FSTR?29
+	FSTR?30
+	FSTR?31
+	FSTR?32
+	FSTR?33
+	FSTR?34
+	FSTR?35
+	FSTR?36
+	FSTR?37
+	FSTR?38
+	FSTR?39
+	FSTR?40
+	FSTR?41
+	FSTR?42
+	FSTR?43
+	FSTR?44
+	FSTR?45
+	FSTR?46
+	FSTR?47
+	FSTR?48
+	FSTR?49
+	FSTR?50
+	FSTR?51
+	FSTR?52
+	FSTR?53
+	FSTR?54
+	FSTR?55
+	FSTR?56
+	FSTR?57
+	FSTR?58
+	FSTR?59
+	FSTR?60
+	FSTR?61
+	FSTR?62
+	FSTR?63
+	FSTR?64
+	FSTR?65
+	FSTR?66
+	FSTR?67
+	FSTR?68
+	FSTR?69
+	FSTR?70
+	FSTR?71
+	FSTR?72
+	FSTR?73
+	FSTR?74
+	FSTR?75
+	FSTR?76
+	FSTR?77
+	FSTR?78
+	FSTR?79
+	FSTR?80
+	FSTR?81
+	FSTR?82
+	FSTR?83
+	FSTR?84
+	FSTR?85
+	FSTR?86
+	FSTR?87
+	FSTR?88
+	FSTR?89
+	FSTR?90
+	FSTR?91
+	FSTR?92
+	FSTR?93
+	FSTR?94
+	FSTR?95
+	FSTR?96
+	.ENDT
+
+	.ENDI

tutorial.zil

@@ -19,7 +19,7 @@ from Zork I, Planetfall, and Infidel.|
 |
 Now press the RETURN (or ENTER) key to see the opening of the Tutorial
 story.">
-	 <READ ,P-LEXV ,P-INBUF>
+	 <READ ,P-LEXV ,P-INBUF>	;"Why is order of args reversed? --SWG"
 	 <CRLF>
 	 <CRLF>
 	 <V-VERSION>

verbs.zil

@@ -32,10 +32,10 @@
 	 <V-SCORE>
 	 <COND (<OR <AND .ASK?
 			 <TELL 
-"Do you wish to leave the Sampler? (YES is affirmative): "> ;"was 'the game'"
+"Do you wish to leave this excerpt? (YES is affirmative): "> ;"was 'the game'"
 			 <YES?>>
 		    <NOT .ASK?>>
-		<QUIT>)
+		<FINISH <>>)
 	       (ELSE <TELL "Ok." CR>)>>
 
 <ROUTINE V-RESTART ()
@@ -70,7 +70,7 @@ although you can in all of Infocom's interactive fiction." CR>>
 	<COND (,TUTORIAL-MODE
 	       <TELL "Tutorial Game">)
 	      (T
-	       <TELL "An excerpt from ">
+	       <TELL "Demonstration of ">
 	       <COND (<EQUAL? ,GAME-FLAG 2>
 		      <TELL "Planetfall">)
 		     (<EQUAL? ,GAME-FLAG 3>
@@ -2083,13 +2083,10 @@ long description (fdesc or ldesc), otherwise will print short."
 	 <COND (.SCR <V-SCORE>)>
 	 <CRLF>
 	 <CRLF>
-       ; <COND (.SCR <TELL "Thanks for playing! ">)>
-       ; <TELL "If you would like to try again you may do so by restarting the Sampler. ">
-	 <DO-RESTART>>
-
-<ROUTINE DO-RESTART ()
-	 <TELL "Press the RETURN (or ENTER) key to restart the Sampler." CR>
-	 <READ ,P-LEXV ,P-INBUF>
+	 <COND (.SCR <TELL "Thanks for playing! ">)>
+	 <TELL
+"Now, press the RETURN (or ENTER) key to go back to the beginning." CR>
+	 <READ ,P-LEXV ,P-INBUF>	;"Why is order of args reversed? --SWG"
 	 <RESTART>>
 
 <ROUTINE YES? ()