Final Revision
parent
ef6e803369
commit
46847f0e93
|
@ -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>)>
|
Binary file not shown.
Binary file not shown.
38
dungeon.zil
38
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
|
||||
|
|
|
@ -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.
|
||||
|
Binary file not shown.
Binary file not shown.
|
@ -0,0 +1 @@
|
|||
48
|
|
@ -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
|
|
@ -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>
|
||||
|
|
Binary file not shown.
|
@ -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
|
|
@ -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>
|
||||
|
|
17
verbs.zil
17
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? ()
|
||||
|
|
Loading…
Reference in New Issue