mirror of
https://github.com/historicalsource/infocom-sampler
synced 2024-05-04 10:18:15 +03:00
Final Revision
This commit is contained in:
parent
ef6e803369
commit
46847f0e93
48
d2.zil
Normal file
48
d2.zil
Normal file
|
@ -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>)>
|
BIN
demo-r15.zip
Normal file
BIN
demo-r15.zip
Normal file
Binary file not shown.
BIN
demo-r5.zip
Normal file
BIN
demo-r5.zip
Normal file
Binary file not shown.
38
dungeon.zil
38
dungeon.zil
|
@ -861,6 +861,7 @@ the canyon from here.")
|
||||||
;"The GO routine must live here."
|
;"The GO routine must live here."
|
||||||
|
|
||||||
<ROUTINE GO ()
|
<ROUTINE GO ()
|
||||||
|
<PUTB ,P-LEXV 0 59>
|
||||||
<ENABLE <QUEUE I-FIGHT -1>>
|
<ENABLE <QUEUE I-FIGHT -1>>
|
||||||
<QUEUE I-SWORD -1>
|
<QUEUE I-SWORD -1>
|
||||||
<QUEUE I-LANTERN 200>
|
<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
|
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
|
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.
|
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
|
richly interwoven that we were unable to pull out a
|
||||||
small portion to use as an interactive part of this Sampler. Therefore,
|
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
|
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|
|
Z - Zork I excerpt -- a fantasy|
|
||||||
|
|
|
|
||||||
B - Blatantly self-serving propaganda|
|
B - Blatantly self-serving propaganda|
|
||||||
|
|
|
||||||
N - Nothing; I'm done with this Sampler for now|
|
N - Nothing; I'm done with this Sampler for now|
|
||||||
|
|
|
|
||||||
Whenever you want to start the Sampler over from the beginning, just type
|
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
|
RESTART and press the RETURN (or ENTER) key. To leave the Sampler, type QUIT.|
|
||||||
Sampler, type QUIT.|
|
|
||||||
|
|
|
|
||||||
(Please type in the appropriate letter and press the RETURN or ENTER key.)>">
|
(Please type in the appropriate letter and press the RETURN or ENTER key.)>">
|
||||||
<REPEAT ()
|
<REPEAT ()
|
||||||
|
@ -1350,9 +1351,12 @@ challenging story for you.|
|
||||||
In our Fantasy line, you can pick from our classic Zork trilogy -- Zork
|
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) --
|
I (standard level), Zork II (advanced level), or Zork III (advanced level) --
|
||||||
and explore the puzzling caverns of the Great Underground Empire, collecting
|
and explore the puzzling caverns of the Great Underground Empire, collecting
|
||||||
long-lost treasures and battling trolls and wizards. In Enchanter (standard
|
long-lost treasures and battling trolls and wizards.
|
||||||
level) and Sorcerer (advanced level) you use magic spells and potions
|
In the Enchanter trilogy -- Enchanter (standard level), Sorcerer
|
||||||
to fight wickedness and evil. Or play Wishbringer (introductory level), where
|
(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
|
you can use the Magick Stone of Dreams to rescue your little village from
|
||||||
the skewed reign of the Evil One.|
|
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
|
our most mind-boggling story, co-authored by the equally mind-boggling
|
||||||
Douglas Adams. Planetfall (standard level) teleports you 120 centuries
|
Douglas Adams. Planetfall (standard level) teleports you 120 centuries
|
||||||
into the future and maroons you on a deserted planet with a friendly
|
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
|
gargantuan alien spaceship and come face-to-face with bizarre
|
||||||
intelligent creatures from all corners of the galaxy. And in Suspended
|
intelligent creatures from all corners of the galaxy. And in Suspended
|
||||||
(expert level), while in a deep-freeze you manipulate six highly
|
(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
|
Infocom's sophisticated technology makes it easy for you to lose
|
||||||
yourself in our stories. The stories recognize nouns, verbs,
|
yourself in our stories. The stories recognize nouns, verbs,
|
||||||
prepositions, adjectives and adverbs, thus allowing you to use
|
prepositions, adjectives and adverbs, thus allowing you to use
|
||||||
full-sentence commands. Less sophisticated games recognize only nouns
|
full-sentence commands. Less sophisticated games recognize only verbs
|
||||||
and verbs, requiring you to use two-word, noun/verb (\"LOOK BOOK\")
|
and nouns, requiring you to use two-word, verb-noun commands,
|
||||||
commands. Some other programs CLAIM to understand full sentences but
|
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
|
actually only pull out one or two words and discard the rest of the
|
||||||
command.|
|
command.|
|
||||||
|
|
|
|
||||||
For example, suppose you wanted to know how much money you had in a
|
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
|
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
|
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
|
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
|
we bind a wealth of information into every Infocom package. For
|
||||||
example, the Nat'l Detective Gazette included with The Witness provides
|
example, the Nat'l Detective Gazette included with The Witness provides
|
||||||
tips for greenhorn detectives as well as a guide to the best watering
|
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
|
brochure. And Enchanter gives you a brief history of magic. Along with
|
||||||
these handy items comes a detailed down-to-earth instruction manual.|
|
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
|
<TELL
|
||||||
"WE'LL HELP YOU OUT|
|
"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
|
Infocom maze. But sometimes even the most brilliant adventurer gets
|
||||||
stumped. That's when InvisiClues Hint Books and Maps come in handy.
|
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
|
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
|
There's an InvisiClues Hint Book for every Infocom story, each
|
||||||
containing hundreds of valuable hints. And each hint book comes with a
|
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).|
|
for which maps are included in the story package).|
|
||||||
|
|
|
|
||||||
The greatest pleasure to be gained from an Infocom story is in solving
|
The greatest pleasure to be gained from an Infocom story is in solving
|
||||||
|
|
30
sampler.errors
Normal file
30
sampler.errors
Normal file
|
@ -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.
|
||||||
|
|
BIN
sampler.pre
Normal file
BIN
sampler.pre
Normal file
Binary file not shown.
BIN
sampler.pur
Normal file
BIN
sampler.pur
Normal file
Binary file not shown.
1
sampler.serial
Normal file
1
sampler.serial
Normal file
|
@ -0,0 +1 @@
|
||||||
|
48
|
38
sampler.xzap
Normal file
38
sampler.xzap
Normal file
|
@ -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
|
SAMPLER
|
||||||
(c) Copyright 1984 Infocom, Inc. All Rights Reserved."
|
(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>
|
<SET REDEFINE T>
|
||||||
|
|
||||||
;<GLOBAL BIGFIX 10000>
|
;<GLOBAL BIGFIX 10000>
|
||||||
|
|
BIN
sampler.zip
Normal file
BIN
sampler.zip
Normal file
Binary file not shown.
200
samplerfreq.xzap
Normal file
200
samplerfreq.xzap
Normal file
|
@ -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
|
Now press the RETURN (or ENTER) key to see the opening of the Tutorial
|
||||||
story.">
|
story.">
|
||||||
<READ ,P-LEXV ,P-INBUF>
|
<READ ,P-LEXV ,P-INBUF> ;"Why is order of args reversed? --SWG"
|
||||||
<CRLF>
|
<CRLF>
|
||||||
<CRLF>
|
<CRLF>
|
||||||
<V-VERSION>
|
<V-VERSION>
|
||||||
|
|
17
verbs.zil
17
verbs.zil
|
@ -32,10 +32,10 @@
|
||||||
<V-SCORE>
|
<V-SCORE>
|
||||||
<COND (<OR <AND .ASK?
|
<COND (<OR <AND .ASK?
|
||||||
<TELL
|
<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?>>
|
<YES?>>
|
||||||
<NOT .ASK?>>
|
<NOT .ASK?>>
|
||||||
<QUIT>)
|
<FINISH <>>)
|
||||||
(ELSE <TELL "Ok." CR>)>>
|
(ELSE <TELL "Ok." CR>)>>
|
||||||
|
|
||||||
<ROUTINE V-RESTART ()
|
<ROUTINE V-RESTART ()
|
||||||
|
@ -70,7 +70,7 @@ although you can in all of Infocom's interactive fiction." CR>>
|
||||||
<COND (,TUTORIAL-MODE
|
<COND (,TUTORIAL-MODE
|
||||||
<TELL "Tutorial Game">)
|
<TELL "Tutorial Game">)
|
||||||
(T
|
(T
|
||||||
<TELL "An excerpt from ">
|
<TELL "Demonstration of ">
|
||||||
<COND (<EQUAL? ,GAME-FLAG 2>
|
<COND (<EQUAL? ,GAME-FLAG 2>
|
||||||
<TELL "Planetfall">)
|
<TELL "Planetfall">)
|
||||||
(<EQUAL? ,GAME-FLAG 3>
|
(<EQUAL? ,GAME-FLAG 3>
|
||||||
|
@ -2083,13 +2083,10 @@ long description (fdesc or ldesc), otherwise will print short."
|
||||||
<COND (.SCR <V-SCORE>)>
|
<COND (.SCR <V-SCORE>)>
|
||||||
<CRLF>
|
<CRLF>
|
||||||
<CRLF>
|
<CRLF>
|
||||||
; <COND (.SCR <TELL "Thanks for playing! ">)>
|
<COND (.SCR <TELL "Thanks for playing! ">)>
|
||||||
; <TELL "If you would like to try again you may do so by restarting the Sampler. ">
|
<TELL
|
||||||
<DO-RESTART>>
|
"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"
|
||||||
<ROUTINE DO-RESTART ()
|
|
||||||
<TELL "Press the RETURN (or ENTER) key to restart the Sampler." CR>
|
|
||||||
<READ ,P-LEXV ,P-INBUF>
|
|
||||||
<RESTART>>
|
<RESTART>>
|
||||||
|
|
||||||
<ROUTINE YES? ()
|
<ROUTINE YES? ()
|
||||||
|
|
Loading…
Reference in a new issue