Final Revision
historicalsource
parent
67b9cb45f6
commit
2135ae57da
|
|
@ -0,0 +1,39 @@
|
|||
"X1 for
|
||||
LEATHER GODDESSES OF PHOBOS
|
||||
(c) Copyright 1986 Infocom, Inc. All Rights Reserved."
|
||||
|
||||
<PRINC "
|
||||
*** X1: Leather Goddesses of Phobos ***
|
||||
">
|
||||
|
||||
ON!-INITIAL
|
||||
OFF!-INITIAL ;"makes debugging possible -- pdl"
|
||||
|
||||
;<COND (<GASSIGNED? MUDDLE>
|
||||
<GC 0 T 5>
|
||||
<BLOAT 90000 0 0 3300 0 0 0 0 0 256>)>
|
||||
|
||||
<SET REDEFINE T>
|
||||
|
||||
<OR <GASSIGNED? ZILCH>
|
||||
<SETG WBREAKS <STRING !\" !,WBREAKS>>>
|
||||
|
||||
<COND (<GASSIGNED? ZILCH>
|
||||
<ID 0>)>
|
||||
|
||||
<SETG NEW-VOC? T>
|
||||
|
||||
<INSERT-FILE "MISC" T>
|
||||
<INSERT-FILE "PARSER" T>
|
||||
<INSERT-FILE "SYNTAX" T>
|
||||
<INSERT-FILE "VERBS" T>
|
||||
<INSERT-FILE "GLOBALS" T>
|
||||
<INSERT-FILE "EARTH" T>
|
||||
<INSERT-FILE "MARS" T>
|
||||
<INSERT-FILE "VENUS" T>
|
||||
<INSERT-FILE "CLEVELAND" T>
|
||||
<INSERT-FILE "SPACESHIP" T>
|
||||
<INSERT-FILE "PHOBOS" T>
|
||||
|
||||
<PROPDEF SIZE 5>
|
||||
<PROPDEF CAPACITY 5>
|
||||
20
phobos.zil
20
phobos.zil
|
|
@ -591,17 +591,25 @@ writing on it.")
|
|||
(ADJECTIVE DISCARDED CRUMPLED)
|
||||
(FLAGS TAKEBIT BURNBIT READBIT)
|
||||
(SIZE 2)
|
||||
(TEXT
|
||||
"There's a seemingly meaningless matrix of letters on the paper:|
|
||||
HESOHREBBUR|
|
||||
(ACTION SCRAP-OF-PAPER-F)>
|
||||
|
||||
<ROUTINE SCRAP-OF-PAPER-F ()
|
||||
<COND (<VERB? READ>
|
||||
<TELL
|
||||
"There's a seemingly meaningless matrix of letters on the paper:" CR>
|
||||
<PUT 0 8 <BOR <GET 0 8> 2>> ;"turns on fixed spacing for Mac"
|
||||
<TELL
|
||||
;"after removing all the letters from all the words on the parts list, the
|
||||
remaining letters spell HISSING FRIGHTENS FLY TRAPS"
|
||||
" HESOHREBBUR|
|
||||
ILSSSIPNGEF|
|
||||
RGIUGHTHDEN|
|
||||
SNKOOBENOHP|
|
||||
FALYTMERATP|
|
||||
SHEADLIGHTO|
|
||||
SLLABNOTTOC"
|
||||
;"after removing all the letters from all the words on the parts list, the
|
||||
remaining letters spell HISSING FRIGHTENS FLY TRAPS")>
|
||||
SLLABNOTTOC">
|
||||
<PUT 0 8 <BAND <GET 0 8> -3>> ;"turns off fixed spacing"
|
||||
<RTRUE>)>>
|
||||
|
||||
<GLOBAL HOLE-OPEN <>>
|
||||
|
||||
|
|
|
|||
|
|
@ -0,0 +1,43 @@
|
|||
.INSERT "X1FREQ.XZAP"
|
||||
|
||||
|
||||
.INSERT "X1DAT"
|
||||
|
||||
|
||||
.INSERT "MISC"
|
||||
|
||||
|
||||
.INSERT "PARSER"
|
||||
|
||||
|
||||
.INSERT "SYNTAX"
|
||||
|
||||
|
||||
.INSERT "VERBS"
|
||||
|
||||
|
||||
.INSERT "GLOBALS"
|
||||
|
||||
|
||||
.INSERT "EARTH"
|
||||
|
||||
|
||||
.INSERT "MARS"
|
||||
|
||||
|
||||
.INSERT "VENUS"
|
||||
|
||||
|
||||
.INSERT "CLEVELAND"
|
||||
|
||||
|
||||
.INSERT "SPACESHIP"
|
||||
|
||||
|
||||
.INSERT "PHOBOS"
|
||||
|
||||
|
||||
.INSERT "X1STR"
|
||||
|
||||
|
||||
.END
|
||||
|
|
@ -0,0 +1,200 @@
|
|||
.FSTR FSTR?1,"the " ;1806 904
|
||||
.FSTR FSTR?2,", " ;925 926
|
||||
.FSTR FSTR?3,"The " ;615 206
|
||||
.FSTR FSTR?4,"and " ;572 287
|
||||
.FSTR FSTR?5,"You " ;543 182
|
||||
.FSTR FSTR?6,"you " ;512 257
|
||||
.FSTR FSTR?7,"of " ;469 470
|
||||
.FSTR FSTR?8,". " ;460 461
|
||||
.FSTR FSTR?9,"your " ;405 136
|
||||
.FSTR FSTR?10,"to " ;348 349
|
||||
.FSTR FSTR?11,"that " ;318 107
|
||||
.FSTR FSTR?12,"is " ;257 258
|
||||
.FSTR FSTR?13,"with " ;243 82
|
||||
.FSTR FSTR?14,"in " ;224 225
|
||||
.FSTR FSTR?15,"into " ;210 71
|
||||
.FSTR FSTR?16,"from " ;207 70
|
||||
.FSTR FSTR?17,"You're " ;203 30
|
||||
.FSTR FSTR?18,"This " ;188 48
|
||||
.FSTR FSTR?19,"It's " ;185 38
|
||||
.FSTR FSTR?20,"There's " ;176 23
|
||||
.FSTR FSTR?21,"this " ;168 57
|
||||
.FSTR FSTR?22,"have " ;168 57
|
||||
.FSTR FSTR?23,"are " ;166 84
|
||||
.FSTR FSTR?24,"Martian " ;147 22
|
||||
.FSTR FSTR?25,"around " ;130 27
|
||||
.FSTR FSTR?26,"for " ;120 61
|
||||
.FSTR FSTR?27,"through " ;120 21
|
||||
.FSTR FSTR?28,"already " ;114 20
|
||||
.FSTR FSTR?29,"A " ;111 112
|
||||
.FSTR FSTR?30,"you're " ;108 19
|
||||
.FSTR FSTR?31,"one " ;106 54
|
||||
.FSTR FSTR?32,"only " ;105 36
|
||||
.FSTR FSTR?33,"don't " ;100 21
|
||||
.FSTR FSTR?34,"like " ;96 33
|
||||
.FSTR FSTR?35,"about " ;96 25
|
||||
.FSTR FSTR?36,"but " ;92 47
|
||||
.FSTR FSTR?37,"yourself " ;91 14
|
||||
.FSTR FSTR?38,"! " ;88 89
|
||||
.FSTR FSTR?39,"would " ;88 23
|
||||
.FSTR FSTR?40,"toward " ;85 18
|
||||
.FSTR FSTR?41,"can't " ;85 18
|
||||
.FSTR FSTR?42,"out " ;84 43
|
||||
.FSTR FSTR?43,"their " ;84 22
|
||||
.FSTR FSTR?44,"Your " ;84 22
|
||||
.FSTR FSTR?45,"against " ;84 15
|
||||
.FSTR FSTR?46,"not " ;82 42
|
||||
.FSTR FSTR?47,"on " ;78 79
|
||||
.FSTR FSTR?48,"looking " ;78 14
|
||||
.FSTR FSTR?49,"As " ;76 39
|
||||
.FSTR FSTR?50,"just " ;75 26
|
||||
.FSTR FSTR?51,"isn't " ;75 16
|
||||
.FSTR FSTR?52,"There " ;75 16
|
||||
.FSTR FSTR?53,"as " ;74 75
|
||||
.FSTR FSTR?54,"it " ;73 74
|
||||
.FSTR FSTR?55,"you" ;72 73
|
||||
.FSTR FSTR?56,"has " ;72 37
|
||||
.FSTR FSTR?57,"which " ;72 19
|
||||
.FSTR FSTR?58,"other " ;72 19
|
||||
.FSTR FSTR?59,"here" ;70 36
|
||||
.FSTR FSTR?60,"south" ;69 24
|
||||
.FSTR FSTR?61,"can " ;66 34
|
||||
.FSTR FSTR?62,"back " ;66 23
|
||||
.FSTR FSTR?63,"you've " ;66 12
|
||||
.FSTR FSTR?64,"very " ;63 22
|
||||
.FSTR FSTR?65,"some " ;63 22
|
||||
.FSTR FSTR?66,"down " ;63 22
|
||||
.FSTR FSTR?67,"canal" ;63 22
|
||||
.FSTR FSTR?68,"doesn't " ;63 10
|
||||
.FSTR FSTR?69,"You'll " ;63 10
|
||||
.FSTR FSTR?70,"at " ;62 63
|
||||
.FSTR FSTR?71,"than " ;60 21
|
||||
.FSTR FSTR?72,"nothing " ;60 11
|
||||
.FSTR FSTR?73,"be " ;59 60
|
||||
.FSTR FSTR?74,"I " ;58 59
|
||||
.FSTR FSTR?75,"It " ;58 30
|
||||
.FSTR FSTR?76,"north" ;57 20
|
||||
.FSTR FSTR?77,"more " ;57 20
|
||||
.FSTR FSTR?78,"even " ;57 20
|
||||
.FSTR FSTR?79,"by " ;56 57
|
||||
.FSTR FSTR?80,"all " ;56 29
|
||||
.FSTR FSTR?81,"looks " ;56 15
|
||||
.FSTR FSTR?82,"leads " ;56 15
|
||||
.FSTR FSTR?83,"something " ;56 8
|
||||
.FSTR FSTR?84,"Venusian " ;56 8
|
||||
.FSTR FSTR?85,"enough " ;55 12
|
||||
.FSTR FSTR?86,"behind " ;55 12
|
||||
.FSTR FSTR?87,"visible " ;54 10
|
||||
.FSTR FSTR?88,"too " ;52 27
|
||||
.FSTR FSTR?89,"now " ;52 27
|
||||
.FSTR FSTR?90,"its " ;52 27
|
||||
.FSTR FSTR?91,"seems " ;52 14
|
||||
.FSTR FSTR?92,"I'm " ;52 14
|
||||
.FSTR FSTR?93,"before " ;50 11
|
||||
.FSTR FSTR?94,"direction" ;49 8
|
||||
.FSTR FSTR?95,"an " ;48 49
|
||||
.FSTR FSTR?96,"get " ;48 25
|
||||
|
||||
|
||||
;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
|
||||
Loading…
Reference in New Issue