Final Revision

This commit is contained in:
historicalsource 2019-04-13 22:29:36 -04:00
commit c6e21a6a2e
53 changed files with 46175 additions and 0 deletions

1
README.md Normal file
View file

@ -0,0 +1 @@
# bureaucracy

94
airplane.txt Normal file
View file

@ -0,0 +1,94 @@
AIRPLANE SEQUENCE
WINNING CASE NO 1
SEAT 3B
You are sitting in an incredibly luxurious Air Zalagasa FubAero 7-11
seat 30,000 feet over somewhere which you don't know where it is.
>EXAMINE THE SEAT
It is an incredibly luxurious FubAero ComfoMat (TM) Air Zalagasa seat,
equipped with a recline button, a headphone socket, a light switch and a
stewardess call button. A pocket in front holds literature.
>PRESS THE RECLINE {ANY} BUTTON
You hear a tiny metallic voice whispering nearby.
>LISTEN TO THE VOICE
You cannot hear it clearly without the proper equipment.
>LOOK IN THE POCKET
The seat pocket contains a set of headphones, a copy of Ai-Ai Life, the
in-flight magazine of Air Zalagasa, and a safety card.
>GET THE HEADPHONES.PLUG THEM INTO THE SEAT.
The voice is now a little louder but still unclear.
>WEAR THE HEADPHONES
You hear an announcement. "Welcome to seat {WRONG SEATNUM}. Your
luxury Air Zalagasa flight has been equipped for your convenience with
ComfoMat (TM) electrically-controlled seats. For your safety and
comfort, the controls located at your passenger station have been
centrally disabled at this time. We will be making this facility
available to you after take off, or when we have reached our cruising
altitude. Or possibly when we have served dinner. Or when we feel like
it."
>READ THE MAGAZINE
No.
>EXAMINE THE MAGAZINE
A card falls out and flutters underneath your seat, which has been specially
designed so that anything which flutters underneath it cannot be retrieved.
>EXAMINE THE CARD
This is a shiny card showing happy Zalagasans in a shiny Air Zalagasa
airplane to which all sorts of terrible things are happening.
The first picture shows a happy smiling stewardess making an announcement
in very very small type. The second picture shows some happy, smiling
Zalagasan passengers removing false teeth, sepctacles, ornamental nose
bones and so forth. The third picture shows
some Zalagasans who are almost certainly happy and smiling but you
can't be sure because they are all bent double clasping their knees.
The fourth picture appears to have been chewed by a llama so you can't
tell what the happy smiling Zalagasans which it undoubtedly showed are
actually doing.
>READ THE SMALL PRINT
The small print coming out of the stewardess's mouth says "M'baka
n'ka umtogo bokaki m'Great Big Plane Crash n'gaga five minutes,
okaka m'sidli ik ik togo paku."
>PRESS THE STEWARDESS BUTTON
Your seat reclines slightly, remembers that it has been centrally
disabled for your comfort and safety, pauses, and returns to its
full upright position.
>FEEL UNDER THE SEAT
You feel the edge of a card.
>GET THE CARD
Taken.
>EXAMINE IT.
[SHOW COMPLAINTS FORM]

21
b.chars Normal file
View file

@ -0,0 +1,21 @@
: 12430 e: 9458 t: 7625 a: 7571
i: 6351 o: 6233 s: 5915 n: 5296
r: 5097 l: 4241 h: 3276 d: 3159
y: 3007 c: 2789 u: 2330 .: 2326
g: 2260 p: 2170 m: 1941 w: 1806
f: 1710 b: 1590 ,: 1479 ": 940
k: 876 v: 809 T: 635 Y: 477
I: 476 ': 396 A: 322 -: 257
x: 212 S: 182 H: 176 013: 158
?: 158 !: 153 W: 145 O: 139
j: 130 P: 124 B: 109 C: 99
D: 95 R: 95 q: 92 N: 90
Z: 89 (: 88 E: 88 ): 86
F: 86 M: 85 0: 76 G: 74
z: 72 L: 59 U: 59 [: 58
]: 50 ;: 41 1: 40 2: 35
:: 33 J: 27 V: 25 4: 22
$: 21 5: 21 K: 18 7: 17
/: 13 8: 11 >: 11 3: 7
Q: 7 6: 6 9: 4 #: 3
&: 2 X: 1 ^: 1

83
b.chart Normal file
View file

@ -0,0 +1,83 @@
-date- -rel- -size- -pre- -obj- -glo- -voc-
2/24 87 243156 41563 255 240 1416
3/04 88 243176 37663 255 240 1416
3/04 88 243176 37663 255 240 1416
3/09 88 243164 37663 255 240 1416
3/09 88 243164 37663 255 240 1416
3/09 88 243356 37687 255 240 1417
3/09 89 243356 37687 255 240 1417
3/09 90 243380 37687 255 240 1417
3/09 91 243356 37687 255 240 1417
3/10 92 243376 37687 255 240 1417
3/10 93 243384 37687 255 240 1417
3/10 94 243384 37687 255 240 1417
3/17 95 243384 37687 255 240 1417
3/20 96 243384 37687 255 240 1417
3/23 97 243384 37687 255 240 1417
3/24 98 243388 37687 255 240 1417
3/24 99 243384 37687 255 240 1417
3/24 100 243384 37687 255 240 1417
4/02 101 243384 37685 255 240 1417
4/03 102 243392 37685 255 240 1417
4/15 103 243392 37685 255 240 1417
4/16 104 243392 37685 255 240 1417
4/27 105 243268 37663 255 240 1416
4/27 105 243320 37663 255 240 1416
4/30 105 243324 37663 255 240 1416
5/04 106 243732 37651 255 240 1416
5/04 107 243732 37651 255 240 1416
5/06 108 243728 37651 255 240 1416
5/06 109 243316 37669 255 240 1416
5/07 110 243304 37667 255 240 1416
5/18 111 243332 37663 255 240 1416
5/19 111 243332 37663 255 240 1416
5/19 112 243332 37663 255 240 1416
5/28 113 243324 37659 255 240 1416
5/28 114 243300 37653 255 240 1416
5/28 115 243308 37678 255 240 1416
5/29 116 243340 37678 255 240 1416
6/03 117 243308 37678 255 240 1416
6/05 118 218504 37678 255 240 1416
6/05 119 243308 37678 255 240 1416
6/05 120 243308 37678 255 240 1416
6/05 121 243308 37678 255 240 1416
6/06 122 243284 37678 255 240 1416
6/08 123 243248 37678 255 240 1416
6/09 124 243244 37674 255 240 1416
6/09 125 243184 37086 255 240 1416
6/10 126 243184 37086 255 240 1416
6/10 126 243184 37086 255 240 1416
6/10 127 243184 37086 255 240 1416
6/17 128 243180 37086 255 240 1416
6/18 129 243180 37086 255 240 1416
6/18 130 243180 37086 255 240 1416
6/22 131 243180 37086 255 240 1416
6/22 132 243224 37086 255 240 1416
6/23 133 243180 37084 255 240 1416
6/30 134 243212 37058 255 240 1416
6/30 135 243180 37032 255 240 1416
6/30 136 243208 37058 255 240 1416
7/01 137 243216 37058 255 240 1416
7/01 138 243172 37058 255 240 1416
7/02 139 243200 37058 255 240 1416
7/06 140 243184 37058 255 240 1416
7/07 141 243160 37058 255 240 1416
7/21 142 241068 36657 255 240 1379
7/21 143 243160 37058 255 240 1416
7/22 144 243160 37058 255 240 1416
7/22 145 243160 37058 255 240 1416
7/22 146 243160 37058 255 240 1416
7/28 147 243160 37058 255 240 1416
8/20 148 243160 37058 255 240 1416
9/16 149 243412 37458 255 240 1416
9/16 150 243216 37110 255 240 1416
9/18 151 243424 37110 255 240 1416
9/19 152 243368 37108 255 240 1416
10/08 153 243224 37110 255 240 1416
10/08 154 243368 37110 255 240 1416
10/09 155 243368 37110 255 240 1416
12/21 156 243368 37110 255 240 1416
12/21 157 243412 37110 255 240 1416
12/22 158 243416 37110 255 240 1416
12/24 159 243416 37110 255 240 1416
5/21 160 243524 37130 255 240 1416

138
b.chart-thru-release Normal file
View file

@ -0,0 +1,138 @@
-date- -rel- -size- -pre- -obj- -glo- -voc-
1/05 248 218118 38974 272 240 1413
1/06 249 218330 38984 272 240 1413
1/06 250 218306 38984 272 240 1413
1/06 251 218306 38984 272 240 1413
1/06 252 218474 38984 272 240 1413
1/06 253 218594 39004 272 240 1414
1/07 254 218574 39004 272 240 1414
1/07 255 218686 39004 272 240 1414
1/07 256 218854 39006 272 240 1413
1/07 1 218806 38962 270 240 1413
1/07 2 218762 38950 270 240 1413
1/07 3 218810 38950 270 240 1413
1/07 4 218894 38948 270 239 1413
1/07 5 218642 38948 270 240 1413
1/08 6 218638 38944 270 240 1413
1/08 7 218746 38950 270 240 1413
1/08 8 218658 38950 270 240 1413
1/08 9 218658 38950 270 240 1413
1/08 10 218626 38948 270 239 1413
1/08 11 218578 38948 270 239 1413
1/08 12 218578 38948 270 239 1413
1/09 13 218618 38960 270 239 1414
1/09 14 218622 38960 270 239 1414
1/09 15 218522 38960 270 240 1414
1/11 16 218522 38960 270 240 1414
1/12 17 218510 38963 270 240 1414
1/12 18 218390 38963 270 240 1414
1/12 19 218574 38961 270 240 1414
1/13 20 218638 38963 270 240 1414
1/13 21 218874 38965 270 240 1414
1/13 22 219418 39030 270 240 1418
1/14 23 219474 39030 270 240 1418
1/14 24 219954 39038 270 240 1418
1/14 25 219918 39055 270 240 1419
1/15 26 219958 39053 270 240 1419
1/15 27 219966 39055 270 240 1419
1/15 28 219966 39055 270 240 1419
1/15 29 219958 39055 270 240 1419
1/16 30 220266 39052 270 240 1418
1/16 31 220266 39052 270 240 1418
1/20 32 220434 39054 270 240 1418
1/21 33 221442 38757 266 219 1428
1/22 34 221126 38775 266 240 1428
1/22 35 221150 38781 266 240 1428
1/22 36 221154 38781 266 240 1428
1/22 37 221690 38991 266 240 1432
1/22 38 222798 38991 266 240 1432
1/22 39 222806 38991 266 240 1432
1/22 40 223386 38991 266 240 1432
1/22 41 223434 38991 266 240 1432
1/22 42 223414 38993 266 240 1432
1/23 43 223414 38993 266 240 1432
1/23 44 223422 38993 266 240 1432
1/23 45 223806 38993 266 240 1432
1/23 46 226088 38948 266 240 1426
1/23 47 222476 38421 259 237 1416
1/23 48 223024 38433 259 240 1416
1/24 49 223816 38494 259 239 1422
1/24 50 223476 38494 259 240 1422
1/24 51 223628 38493 259 240 1422
1/25 52 228136 38476 258 240 1423
1/25 53 228596 38465 258 240 1423
1/25 54 228212 38461 258 240 1423
1/25 55 227240 38065 250 240 1414
1/25 56 227200 38057 250 237 1414
1/25 57 226372 37706 250 240 1399
1/25 58 226340 37706 250 240 1399
1/25 59 226332 37706 250 240 1399
1/26 60 225692 37234 250 240 1399
1/27 19 230836 37189 250 240 1398
1/27 20 231556 37261 250 239 1403
1/27 21 231532 37267 250 240 1404
1/27 22 231532 37267 250 240 1404
1/27 23 231532 37267 250 240 1404
1/28 24 231736 37276 250 240 1405
1/29 25 232664 37328 250 240 1409
1/29 26 232632 37319 250 240 1408
1/29 27 232736 37319 250 240 1408
1/29 28 233044 37351 250 240 1409
1/30 29 233044 37351 250 240 1409
1/30 30 233044 37351 250 240 1409
1/30 31 233056 37351 250 240 1409
1/30 32 233476 37351 250 240 1409
1/30 33 233468 37351 250 240 1409
1/30 34 233472 37351 250 240 1409
1/31 35 233448 37354 250 240 1409
1/31 36 233480 37362 250 240 1409
1/31 37 233780 37371 250 240 1410
1/31 38 233996 37371 250 240 1410
1/31 39 234068 37364 250 240 1409
1/31 40 234304 37366 250 240 1409
2/01 41 234516 37368 250 240 1409
2/02 42 234880 37368 250 240 1409
2/02 43 234880 37368 250 240 1409
2/02 44 234868 37382 250 240 1409
2/02 45 235396 37397 250 240 1411
2/02 46 235392 37397 250 240 1411
2/03 47 235468 37397 250 240 1411
2/03 48 235488 37397 250 240 1411
2/03 49 236480 37397 250 240 1411
2/03 50 236472 37397 250 240 1411
2/04 51 237004 37471 252 240 1413
2/04 52 237032 37471 252 240 1413
2/04 53 237576 37462 252 240 1412
2/05 54 237904 37486 252 240 1412
2/05 55 238856 37426 252 240 1407
2/05 56 239180 37454 253 240 1407
2/06 57 239344 37492 254 240 1407
2/06 58 239332 37492 254 240 1407
2/06 59 239668 37507 254 240 1407
2/06 60 239672 37507 254 240 1407
2/06 61 239828 37507 254 240 1407
2/06 62 239844 37507 254 240 1407
2/07 63 239848 37507 254 240 1407
2/07 64 240000 37507 254 240 1407
2/07 65 240104 37507 254 240 1407
2/08 66 240144 37507 254 240 1407
2/09 67 241236 37584 255 240 1411
2/09 68 241848 37624 255 240 1413
2/09 69 241956 37624 255 240 1413
2/10 70 241984 37624 255 240 1413
2/10 71 241980 37624 255 240 1413
2/10 72 242268 37624 255 240 1413
2/10 73 242644 37626 255 240 1413
2/10 74 242856 37626 255 240 1413
2/10 75 242960 37626 255 240 1413
2/11 76 242796 37602 255 240 1412
2/11 77 242796 37602 255 240 1412
2/11 78 242780 37602 255 240 1412
2/11 79 242836 37602 255 240 1412
2/11 80 243156 37649 255 240 1416
2/11 81 243156 37649 255 240 1416
2/11 82 243088 37659 255 240 1416
2/12 83 243100 37659 255 240 1416
2/12 84 243128 37661 255 240 1416
2/12 85 243132 37661 255 240 1416
2/12 86 243144 37661 255 240 1416

37
b.errors Normal file
View file

@ -0,0 +1,37 @@
Assembling B.ZAP.61 on Saturday, May 21, 1988 16:43:58
Release: 160
64 Inserting BFREQ.ZAP.60 (640 bytes)
704 Inserting BDAT.ZAP.57 (36426 bytes)
37130 Inserting MISC.ZAP.43 (3743 bytes)
40873 Inserting CLOCKER.ZAP.35 (438 bytes)
41311 Inserting PARSER.ZAP.36 (12998 bytes)
54309 Inserting BPUR.ZAP.57 (4384 bytes)
58693 Inserting OTHER-MISC.ZAP.35 (3382 bytes)
62075 Inserting VERBS.ZAP.36 (17870 bytes)
79945 Inserting EVENTS.ZAP.36 (6767 bytes)
86712 Inserting PEOPLE.ZAP.36 (11090 bytes)
97802 Inserting PLACES.ZAP.35 (6292 bytes)
104094 Inserting THINGS.ZAP.35 (26700 bytes)
130794 Inserting FORMS.ZAP.35 (2517 bytes)
133311 Inserting COMPUTER.ZAP.37 (4888 bytes)
138199 Inserting NNAIRPORT.ZAP.36 (16794 bytes)
154993 Inserting PARANOID.ZAP.33 (10735 bytes)
165728 Inserting ZALAGASA.ZAP.33 (4293 bytes)
170021 Inserting MAZE.ZAP.34 (7780 bytes)
177801 Inserting MUMBLE.ZAP.33 (930 bytes)
178731 Inserting BANK.ZAP.34 (9432 bytes)
188163 Inserting XXJET.ZAP.32 (30155 bytes)
218318 Inserting BSTR.ZAP.53 (25206 bytes)
*000000000000* global undefined: 17586, 16713, 15842, 15826, 15814, 15802, 15772, 15756, 15744, 15728, 15718, 15708, 15698, 15688, 15672, 15660, 15650, 15640, 15626, 15614, 14248, 14236, 14226, 14210, 13998, 13646
#BYTE global undefined: 17585, 16712, 15841, 15825, 15813, 15801, 15771, 15755, 15743, 15727, 15717, 15707, 15697, 15687, 15671, 15659, 15649, 15639, 15625, 15613, 14247, 14235, 14225, 14209, 13997, 13645
255 objects.
240 globals.
1416 word vocabulary.
243524 bytes (238K).
37130 bytes of preload.
17667 bytes of impure.
Outputting symbol tables

1
b.serial Normal file
View file

@ -0,0 +1 @@
56

67
b.zil Normal file
View file

@ -0,0 +1,67 @@
"B for BUREAUCRACY: (C)1987 Infocom, Inc. All Rights Reserved."
<VERSION EZIP>
<FUNNY-GLOBALS?>
<FREQUENT-WORDS?>
<LONG-WORDS?>
<SETG PRESERVE-SPACES? T>
<PRINC "
BUREAUCRACY: Interactive Fiction PLUS
">
ON!-INITIAL "For DEBUGR."
OFF!-INITIAL
ENABLE!-INITIAL
DISABLE!-INITIAL
<SET REDEFINE T>
<OR <GASSIGNED? ZILCH>
<SETG WBREAKS <STRING !\" !,WBREAKS>>>
<COND (<GASSIGNED? PREDGEN>
<SETG ZSTR-ON <SETG ZSTR-OFF ,TIME>>
;<ID 0>)>
<OR <LOOKUP "DEBUGGING?" <ROOT>>
<INSERT "DEBUGGING?" <ROOT>>>
;<SETG DEBUGGING? T>
<SETG DEBUGGING? <>>
; "Definitions only..."
<INSERT-FILE "RANDOM-GLOBALS" T>
<INSERT-FILE "OLD-PARSERDEFS" T>
<INSERT-FILE "FORMDEFS" T>
<INSERT-FILE "BANKDEFS" T>
<INSERT-FILE "COMPUTERDEFS" T>
<INSERT-FILE "XXJETDEFS" T>
<INSERT-FILE "MACROS" T>
<INSERT-FILE "SYNTAX" T>
<INSERT-FILE "MISC" T>
<INSERT-FILE "CLOCKER" T>
<INSERT-FILE "PARSER" T>
<PUT-PURE-HERE>
<INSERT-FILE "OTHER-MISC" T>
<INSERT-FILE "VERBS" T>
<INSERT-FILE "EVENTS" T>
<INSERT-FILE "PEOPLE" T>
<INSERT-FILE "PLACES" T>
<INSERT-FILE "THINGS" T>
<INSERT-FILE "FORMS" T>
<INSERT-FILE "COMPUTER" T>
<INSERT-FILE "NNAIRPORT" T>
<INSERT-FILE "PARANOID" T>
<INSERT-FILE "ZALAGASA" T>
<INSERT-FILE "MAZE" T>
<INSERT-FILE "MUMBLE" T>
<CHECKPOINT "TAA-C.EXE" <> "TAA.EXE">
<INSERT-FILE "BANK" T>
<INSERT-FILE "XXJET" T>
<PROPDEF SIZE 0>
<PROPDEF CAPACITY 0>
; <PROPDEF VALUE 0>

BIN
b.zip Normal file

Binary file not shown.

1485
bank.zil Normal file

File diff suppressed because it is too large Load diff

68
bankdefs.zil Normal file
View file

@ -0,0 +1,68 @@
<ZSECTION "BANKDEFS">
<FILE-FLAGS MDL-ZIL?>
<USE "NEWSTRUC">
<INCLUDE "FORMDEFS">
<BUILD-FORM BANK-FORM-DEPOSIT
(BANK-LAST-NAME "Last name:" 21 "Chomper" IBANK-LAST-NAME)
(BANK-FIRST-NAME "First name:" 25 "Random" IBANK-FIRST-NAME)
(BANK-MIDDLE-INITIAL "Middle initial:" 1 "Q" IBANK-MIDDLE-INITIAL)
(BANK-AMOUNT "Amount of deposit: $" 6 "50" BANK-CHECK-AMOUNT)
(BANK-REASON "From illegal activity? (y/n):" 1 "Y" BANK-CHECK-DEAL)
(BANK-DRUG "If yes, which one:" 17 BANK-DRUGS)>
<BUILD-FORM BANK-FORM-WITHDRAW
(BANK-LAST-NAME "Last name:" 21 "Chomper" IBANK-LAST-NAME)
(BANK-FIRST-NAME "First name:" 25 "Random" IBANK-FIRST-NAME)
(BANK-MIDDLE-INITIAL "Middle initial:" 1 "Q" IBANK-MIDDLE-INITIAL)
(BANK-AMOUNT "Amount of withdrawal: $" 6 "50" BANK-CHECK-AMOUNT)
(BANK-REASON "For illegal activity? (y/n):" 1 "Y" BANK-CHECK-DEAL)
(BANK-DRUG "If yes, which one:" 17 BANK-DRUGS)>
<DEFINE-GLOBALS BANK-GLOBALS
(BANKTALK 0)>
<CONSTANT BANKNAMES <TABLE (LENGTH PATTERN (BYTE [REST WORD]))
#BYTE 0
<VOC "PAULETTE" NOUN>
<VOC "CLINT" NOUN>
<VOC "NANCY" NOUN>
<VOC "ROGER" NOUN>>>
<MSETG MINIMUM-BALANCE 1000>
<DEFINE-GLOBALS TELLER-GLOBALS
(TELLER-NUMBER:FIX BYTE 0)
(TELLER-ADDR-CHANGE:FIX 0)
(TELLER-CHECK-CASH:FIX 0)
(TELLER-BANK-HOURS:FIX 0)
(TELLER-WITHDRAW:FIX 0)
(TELLER-DEPOSIT:FIX 0)
(TELLER-STATE:FIX BYTE 0)
(TELLER-AMOUNT-IN-ACCT:FIX ,MINIMUM-BALANCE)
(TELLER-AMOUNT-ON-DEPOSIT-FORM:FIX 0)
(TELLER-AMOUNT-ON-WITHDRAWAL-FORM:FIX 0)
(TELLER-CURRENT-SCRIPT 0)
(TELLER-CASH-GIVEN 0)
(TELLER-PLAYER-WARNED? BYTE <>)
(TELLER-CURRENT-FORM 0)
(TELLER-DRUGS BYTE 0)
(TELLER-IDLE BYTE 0)>
<MSETG TELLER-SIGNS 0> ; "Sign on this window"
<MSETG TELLER-INTRO 1> ; "The first question asked"
<MSETG TELLER-SECOND 2> ; "The next thing asked for by teller"
<MSETG TELLER-OBJ 3> ; "Object given by teller (if any)"
<MSETG TELLER-THIRD 4> ; "Next request"
<MSETG STATE-FORM-ERR 1>
<MSETG STATE-INIT 2>
<MSETG STATE-RUN-F1 3>
<MSETG STATE-RUN-F2 4>
<MSETG NUMBER-TELLERS 10>
<MSETG MID-TELLER 5>
<ENDSECTION>

200
bfreq.zap Normal file
View file

@ -0,0 +1,200 @@
.FSTR FSTR?1,"the " ;2438 1220
.FSTR FSTR?2,", " ;1615 1616
.FSTR FSTR?3,"you " ;1482 742
.FSTR FSTR?4,"your " ;1146 383
.FSTR FSTR?5,"You " ;1092 365
.FSTR FSTR?6,". " ;1080 1081
.FSTR FSTR?7,"and " ;1080 541
.FSTR FSTR?8,"to " ;938 939
.FSTR FSTR?9,"The " ;822 275
.FSTR FSTR?10,"that " ;795 266
.FSTR FSTR?11,"with " ;684 229
.FSTR FSTR?12,"have " ;630 211
.FSTR FSTR?13,"of " ;609 610
.FSTR FSTR?14,"It's " ;500 101
.FSTR FSTR?15,"You're " ;497 72
.FSTR FSTR?16,"There's " ;480 61
.FSTR FSTR?17,"is " ;465 466
.FSTR FSTR?18,"from " ;390 131
.FSTR FSTR?19,"in " ;389 390
.FSTR FSTR?20,"for " ;380 191
.FSTR FSTR?21,"doesn't " ;378 55
.FSTR FSTR?22,"already " ;372 63
.FSTR FSTR?23,"about " ;336 85
.FSTR FSTR?24,"are " ;328 165
.FSTR FSTR?25,"don't " ;320 65
.FSTR FSTR?26,"which " ;308 78
.FSTR FSTR?27,"like " ;306 103
.FSTR FSTR?28,"something " ;304 39
.FSTR FSTR?29,"you're " ;294 50
.FSTR FSTR?30,"There " ;290 59
.FSTR FSTR?31,"can't " ;275 56
.FSTR FSTR?32,"anything " ;273 40
.FSTR FSTR?33,"would " ;272 69
.FSTR FSTR?34,"this " ;267 90
.FSTR FSTR?35,"not " ;262 132
.FSTR FSTR?36,"into " ;258 87
.FSTR FSTR?37,"Zalagasa " ;256 33
.FSTR FSTR?38,"Zalagasan " ;243 28
.FSTR FSTR?39,"This " ;236 60
.FSTR FSTR?40,"flight " ;235 48
.FSTR FSTR?41,"just " ;234 79
.FSTR FSTR?42,"out " ;232 117
.FSTR FSTR?43,"really " ;225 46
.FSTR FSTR?44,"little " ;220 45
.FSTR FSTR?45,"at " ;219 220
.FSTR FSTR?46,"back " ;219 74
.FSTR FSTR?47,"but " ;212 107
.FSTR FSTR?48,"it " ;207 208
.FSTR FSTR?49,"through " ;204 35
.FSTR FSTR?50,"on " ;203 204
.FSTR FSTR?51,"what " ;201 68
.FSTR FSTR?52,"Zalagasans " ;200 21
.FSTR FSTR?53,"hear " ;186 63
.FSTR FSTR?54,"seems " ;180 46
.FSTR FSTR?55,"looking " ;180 31
.FSTR FSTR?56,"it's " ;176 45
.FSTR FSTR?57,"I'm " ;176 45
.FSTR FSTR?58,"computer " ;175 26
.FSTR FSTR?59,"be " ;170 171
.FSTR FSTR?60,"some " ;168 57
.FSTR FSTR?61,"has " ;164 83
.FSTR FSTR?62,"that" ;162 82
.FSTR FSTR?63,"probably " ;161 24
.FSTR FSTR?64,"says" ;160 81
.FSTR FSTR?65,"looks " ;160 41
.FSTR FSTR?66,"one " ;158 80
.FSTR FSTR?67,"his " ;158 80
.FSTR FSTR?68,"Your " ;156 40
.FSTR FSTR?69,"nothing " ;156 27
.FSTR FSTR?70,"aren't " ;156 27
.FSTR FSTR?71,"I " ;152 153
.FSTR FSTR?72,"can " ;152 77
.FSTR FSTR?73,"you" ;151 152
.FSTR FSTR?74,"here" ;150 76
.FSTR FSTR?75,"isn't " ;145 30
.FSTR FSTR?76,"all " ;144 73
.FSTR FSTR?77,"you'll " ;144 25
.FSTR FSTR?78,"Please " ;144 25
.FSTR FSTR?79,"Boysenberry " ;143 14
.FSTR FSTR?80,"an " ;142 143
.FSTR FSTR?81,"want " ;141 48
.FSTR FSTR?82,"they " ;141 48
.FSTR FSTR?83,"What " ;140 36
.FSTR FSTR?84,"better " ;140 29
.FSTR FSTR?85,"there's " ;140 21
.FSTR FSTR?86,"standing " ;133 20
.FSTR FSTR?87,"take " ;132 45
.FSTR FSTR?88,"know " ;132 45
.FSTR FSTR?89,"Unfortunately" ;132 12
.FSTR FSTR?90,"It " ;130 66
.FSTR FSTR?91,"He " ;130 66
.FSTR FSTR?92,"should " ;130 27
.FSTR FSTR?93,"attendant " ;128 17
.FSTR FSTR?94,"You'd " ;126 22
.FSTR FSTR?95,"You'll " ;126 19
.FSTR FSTR?96,"very " ;123 42
;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

436
bglobals.dat Normal file
View file

@ -0,0 +1,436 @@
(PRSA ; 909
PRSO ; 826
HERE ; 423
PRSI ; 297
NOW-PRSI? ; 177
WINNER ; 158
PERIOD ; 294
P-NUMBER ; 68
P-IT-OBJECT ; 64
CURRENT-ROW ; 58
P-LEN ; 49
CURRENT-SEAT ; 45
P-LEXV ; 90
P-PRSA-WORD ; 39
P-ITBL ; 76
CANT ; 68
P-HIM-OBJECT ; 33
P-NAM ; 32
PCR ; 63
P-ADJ ; 31
P-WALK-DIR ; 27
AIRPORT-ROOM-NUM-GVAL ; 26
CASH ; 26
P-NCN ; 26
CABSTATE-GVAL ; 24
P-CONT ; 24
P-OFLAG ; 24
P-HER-OBJECT ; 23
TELLER-NUMBER-GVAL ; 23
P-MULT? ; 22
MEAL-STATE ; 20
NEW-SEAT-GVAL ; 19
P-OTBL ; 38
P-PRSO ; 37
NEW-ROW-GVAL ; 18
END-GAME? ; 17
P-SLOCBITS ; 17
P-THEM-OBJECT ; 17
SEX ; 17
PHONE-NUMBERS ; 33
FLINE ; 16
OLD-HERE ; 16
TELECOM?-GVAL ; 16
DUCT-NUMBER-GVAL ; 15
MEAL ; 30
P-DIRECTION ; 15
P-GETFLAGS ; 15
CABTURNS-GVAL ; 14
CLOCK-HAND ; 14
CURRENT-DESK-ID-GVAL ; 14
QUOTE-FLAG ; 14
TELLER-AMOUNT-ON-WITHDRAWAL-FORM-GVAL ; 14
TELLER-CASH-GIVEN-GVAL ; 14
HOURS ; 13
HUNGER ; 13
LICENSE-FORM ; 13
P-EXCHANGE ; 13
P-INBUF ; 26
P-MERGED ; 13
QCONTEXT ; 13
CURRENT-MESSAGE ; 12
CURRENT-NEIGHBOR-GVAL ; 12
FX ; 12
MEAL-ROW-GVAL ; 12
MEAL-SEAT-GVAL ; 12
MMOVES ; 12
P-ACLAUSE ; 12
PHONES-PLUGGED-IN?-GVAL ; 12
VERBOSITY ; 12
BRACKET ; 22
CURRENT-MAZE-ROOM ; 11
DIE-ON-NEXT-COMMAND-GVAL ; 11
MARGIN ; 11
OBJECTS-GROUPED ; 11
P-SYNTAX ; 11
DONT ; 21
P-VTBL ; 21
BP ; 10
CURRENT-TARGET-NAME-GVAL ; 10
HANDLE-TURNS ; 10
MUSIC-DEAD?-GVAL ; 10
QCONTEXT-ROOM ; 10
TELLER-AMOUNT-ON-DEPOSIT-FORM-GVAL ; 10
WIDTH ; 10
YOURE-ALREADY-STR ; 20
P-PRSI ; 19
YOU-SEE ; 19
BANKTALK-GVAL ; 9
C-INTS ; 9
COMP-WORD-FATAL? ; 9
DO-SCORE? ; 9
FLIGHT-GONE?-GVAL ; 9
HATCH-OPEN?-GVAL ; 9
HOLDING-FOR-PONGO? ; 9
P-DOLLAR-FLAG ; 9
P-MERGE ; 9
P-PHR ; 9
P-SEAT-NUMBER ; 9
P-XNAM ; 9
SMOKER-IRATE?-GVAL ; 9
TELLER-STATE-GVAL ; 9
THIS-IS ; 17
CLERK-LISTENING?-GVAL ; 8
CLERK-SCRIPT ; 8
DESK-LOSER?-GVAL ; 8
FERROR-COUNT ; 8
FILES-ON-SCREEN?-GVAL ; 8
FLIGHT-RECALLED?-GVAL ; 8
FORM-COMPUTER? ; 8
FY ; 8
MAZE-STEPS-TAKEN ; 8
MEAL-HERE?-GVAL ; 8
MINUTES ; 8
NEW-TELLER ; 8
P-WON ; 8
RUN-PLANE-COUNT-GVAL ; 8
SPEAKER-DEAD?-GVAL ; 8
TELLER-IDLE-GVAL ; 8
AIR-ZALAGASA-ENTRANCE-GVAL ; 7
AISLE-STATE-GVAL ; 7
AT-ZALAGASA?-GVAL ; 7
ATTENDANT-WORKING?-GVAL ; 7
CABTIMES-GVAL ; 7
CLOCK-WAIT? ; 7
COMPUTER-DEAD?-GVAL ; 7
DSCRIPT ; 7
HEIGHT ; 7
MEAL-SQUASHED?-GVAL ; 7
ODD-GATE-SOLVED? ; 7
OOPS-TABLE ; 14
P-ADJW ; 14
RESERVE-PTR ; 7
TELLER-CURRENT-SCRIPT-GVAL ; 7
TERMINATE-CURRENT-GVAL ; 7
TICKET-SCREW?-GVAL ; 7
TUNE-TIMER-GVAL ; 7
AIRLINE-BITS ; 13
AIRPHONE-RINGING?-GVAL ; 6
CAB-DONT-GVAL ; 6
CABNAME-GVAL ; 6
CLERK-WORKING?-GVAL ; 6
COMPLEX-POS ; 6
DESK-ZSCRIPT-GVAL ; 6
DING-ROW-GVAL ; 6
EXITED-ALREADY?-GVAL ; 6
HOLD-TURNS ; 6
JUST-HEARD?-GVAL ; 6
LINES-TO-NEXT-TARGET-GVAL ; 6
LS-MOVE-COUNT ; 6
MOUSY-SCRIPT ; 6
NERD-OBJECT-DATA ; 6
P-ALT-CONT ; 6
P-ANAM ; 6
P-GWIMBIT ; 6
P-NAMW ; 12
P-TABLE ; 6
PHONE-MSGS ; 6
PLANE-SUMMONED? ; 6
REAL-TARGET-NAME-GVAL ; 6
TELLER-BANK-HOURS-GVAL ; 6
TELLER-DRUGS-GVAL ; 6
AGAIN-LEXV ; 11
AOS-BP?-GVAL ; 5
CHANGE-DESK?-GVAL ; 5
COMPLEX-LOOKED? ; 5
CURRENT-NEIGHBOR-SEATNUM-GVAL ; 5
CURRENT-OZ-VICTIM ; 5
DO-WINDOW ; 5
FALL-SCRIPT-GVAL ; 5
HATCH-LOSER?-GVAL ; 5
LAST-LINE-USED-GVAL ; 5
MEAL-EATEN?-GVAL ; 5
OLD-LEN ; 5
OMNIA-GALLIA-ENTRANCE-GVAL ; 5
P-LASTADJ ; 5
P-XADJ ; 5
REMAINING-TARGET-TURNS-GVAL ; 5
SL-TABLE ; 10
SPLATTED-ROW-GVAL ; 5
SPY-TIMER-GVAL ; 5
TELLER-ADDR-CHANGE-GVAL ; 5
TELLER-CHECK-CASH-GVAL ; 5
TELLER-DEPOSIT-GVAL ; 5
TELLER-WITHDRAW-GVAL ; 5
USERPW-GVAL ; 5
YAWNS ; 10
MACAW-TABLE ; 9
P-OVTBL ; 9
ATTENDANT-MENTIONED-REGULATIONS?-GVAL ; 4
BABY-DISTURBED?-GVAL ; 4
BP-DELAY ; 4
CABADDR-GVAL ; 4
COM-TIMER-GVAL ; 4
COMMANDS-SINCE-START-GVAL ; 4
DESK-SCRIPT-GVAL ; 4
LAST-ROW-GVAL ; 4
LAST-SEAT-GVAL ; 4
LAST-USED ; 8
MIND-READ?-GVAL ; 4
MOVES ; 4
NERD-SCRIPT ; 4
NEXT-TO-BABY?-GVAL ; 4
P-END-ON-PREP ; 4
P-OFW ; 8
P-SPECIAL-ORPHAN ; 4
PERFORMING? ; 4
SCORE ; 4
SPLATTED-PERSON-GVAL ; 4
TELLER-AMOUNT-IN-ACCT-GVAL ; 4
TELLER-PLAYER-WARNED?-GVAL ; 4
TUNE-MENTIONED?-GVAL ; 4
VOICES-ONLINE?-GVAL ; 4
WILL-WIN?-GVAL ; 4
YES-LEXV ; 8
AGAIN-DIR ; 3
AIRPORT-SEEN-BITS-GVAL ; 3
ATTENDANT-AT-ROW-GVAL ; 3
BANK-FORM-DEPOSIT ; 3
BUTTONS-OFF?-GVAL ; 3
CABPREVNAME-GVAL ; 3
CHUTE-SCORED? ; 3
CRASH-COMING?-GVAL ; 3
DOORBELL-RINGS ; 3
FERROR-ACTIVE?-GVAL ; 3
GOTO-LOC ; 3
HANDLE-STATE ; 6
HOLDING-FOR-ADDRESS? ; 3
IN-SEAT?-GVAL ; 3
LAST-BP-CHANGE ; 3
MAIL-COUNT ; 3
NO-HUNGER-INT ; 3
OLD-BP ; 3
OOPS-INBUF ; 6
P-AND ; 3
P-MOBY-FOUND ; 3
REAL-COMMAND-WINDOW ; 6
SPLAT-COUNT-GVAL ; 3
TIMES-THROUGH-LOOP-GVAL ; 3
TUNE-SELECTOR-GVAL ; 3
)(
JUST-PAGED?-GVAL ; 3
LAST-MAZE-ROOM ; 3
MAZE-LOSING? ; 3
NERD-HACKED-ABOOK? ; 3
PLANE-ARRIVE-COUNT ; 3
RETURN-TO-SEAT-ROUTINE-GVAL ; 3
SOMETHING-SAID-GVAL ; 3
STNUM-VALUE-GVAL ; 3
TURNED-DOWN-CLERK? ; 3
WAITING-FOR-CASH?-GVAL ; 3
BOSS-CHECK-WORDS ; 5
CASH-CHECK-SCRIPT ; 5
LLAMA-TABLE ; 5
P-BUTS ; 5
P-OCL1 ; 5
P-OCL2 ; 5
PERSON-ROWS ; 5
RESERVE-INBUF ; 5
ANS-TABLE ; 4
C-TABLE ; 4
CAPS ; 4
DAY-TABLE ; 4
DEPOSIT-SCRIPT ; 4
FILE-TABLE ; 4
HUNGER-MSGS ; 4
SEAT-LETTERS ; 4
TARGETS ; 4
WITHDRAWAL-SCRIPT ; 4
BANK-FORM-WITHDRAW ; 2
BANK-SCORED? ; 2
CABNUM-GVAL ; 2
COMP-X-GVAL ; 2
COMP-Y-GVAL ; 2
COMPLEX-DROP? ; 2
CRAZY-COUNT-GVAL ; 2
CURRENT-DIR ; 2
DOWN-FROM-STRIP-COUNT ; 2
FLIGHT-ATTENDANT-HE/SHE-GVAL ; 2
FLIGHT-ATTENDANT-HIM/HER-GVAL ; 2
FORM-X ; 2
FORM-Y ; 2
GOT-RECIPE?-GVAL ; 2
LOOKED-AT-FOOD?-GVAL ; 2
LOSER-CANT-LEAVE-SEAT?-GVAL ; 2
NERD-FLEW-BY?-GVAL ; 2
P-DIR-WORD ; 2
P-FOUND-REMOTELY ; 2
PILLAR-MENTIONED?-GVAL ; 2
REFRESH-COUNT ; 2
SOMEBODYS-WATCHING? ; 2
TELLER-CURRENT-FORM-GVAL ; 2
TOWER-SCRIPT-GVAL ; 2
AIRLINE-LOOKUP ; 3
AIRLINE-NAMES ; 3
HAK-PROG-NAME ; 3
PROG-TABLE ; 3
QLEFTS ; 3
QTOPS ; 3
RESERVE-LEXV ; 3
TELLER-SUBJECTS ; 3
UNFO-TBL ; 3
AGENT-SUBJECTS ; 2
ALL-SEATS ; 2
EXE-FILES ; 2
INCI-TBL ; 2
PSTRING ; 2
SEAT-LETTER-NAMES ; 2
SKYCAP-DOINGS ; 2
YES-INBUF ; 2
ALL-HANDLES ; 1
ALT-COMPLEX-WINDOW-DESC ; 1
BAD-TUNES ; 1
BAKED-POTATO-OPTIONS ; 1
BANKNAMES ; 1
BATHROOM-LOCKED ; 1
BURGER-OPTIONS ; 1
BUZZTABLE ; 1
CAB-EXCUSES ; 1
CAB-NOTICE-TXT ; 1
CHANGE-ADDRESS-SCRIPT ; 1
CLERK-SUBJECTS ; 1
COMPLEX-WINDOW-DESC ; 1
CRAZIES ; 1
CURRENT-SIGNS ; 1
DELAYS ; 1
DVH2-FILE ; 1
EXTRA-TEXT ; 1
FORM-HISTORY ; 1
FUNNY-FIELDS ; 1
GAME-VERBS ; 1
HACK-TABLE ; 1
HELP-TABLE ; 1
ITARGETS ; 1
LIKELIES ; 1
LOGIN-NAME ; 1
NEIGHBOR-SEATS ; 1
NERD-ARRIVALS ; 1
NERD-OBJECTS ; 1
NORMAL-SEAT ; 1
NORMAL-SEAT-POCKET ; 1
NORMAL-SEAT-TABLE ; 1
OZ-ROYS ; 1
P-A ; 1
P-Q ; 1
PASSWORD ; 1
PATRONS ; 1
PNOTICE-TXT ; 1
PUNCT-TABLE ; 1
SSTRING ; 1
TALKVERBS ; 1
TARGET-NAMES ; 1
TELECOM-HELP-TABLE ; 1
TICKET-TYPE-TABLE ; 1
TOONS ; 1
UNKNOWN-MSGS ; 1
WALKING-TABLE ; 1
A-DIR ; 0
ADVENTURE-TABLE ; 0
AIRPLANE-FILE ; 0
B-DIR ; 0
BANK-THINGS ; 0
BEER-TYPE-TABLE ; 0
BONGO-STUFF ; 0
BOYSENBERRY-WINDOW ; 0
BURGER-TYPE-TABLE ; 0
C-DIR ; 0
CAFFEINE-TABLE ; 0
CHEESE-TYPE-TABLE ; 0
CLEAR-DIR ; 0
CLERK-DOINGS ; 0
COOPS ; 0
COPY-DIR ; 0
COULDNTS ; 0
D-DIR ; 0
DELETE-DIR ; 0
DIR-DIR ; 0
DIRLIST-DIR ; 0
DIRTABLES ; 0
DRESSING-TYPE-TABLE ; 0
DRESSING-WEIGHT-TABLE ; 0
DRINK-TYPE-TABLE ; 0
ECLIPSE-TABLE ; 0
FACE-IN-FOOD-STRS ; 0
FIDUC-FILE ; 0
FIXTURES ; 0
FRIES-ETC-TABLE ; 0
HACK-DIR ; 0
HAK-FILES ; 0
HAVEVERBS ; 0
HELP-DIR ; 0
HO-HUM ; 0
HURTVERBS ; 0
JUICE-TYPE-TABLE ; 0
LOGOUT-DIR ; 0
MAILING-LIST ; 0
MENU-FILE ; 0
MOUSY-WISHES ; 0
MOVEVERBS ; 0
OMNIA-SIGN-TEXT ; 0
OTHER-AIRPLANE-OBJECTS ; 0
OTHER-PHONE-MSGS ; 0
PARSE-RANDOM-LOC-VEC ; 0
POINTLESS ; 0
PONGO-STUFF ; 0
POST-FILE ; 0
POTATO-TYPE-TABLE ; 0
PRINTR-TABLE ; 0
PSEUDO-VEC ; 0
PUTVERBS ; 0
PUZZLES ; 0
QUIT-DIR ; 0
QUIT-TABLE ; 0
RANDOM-CARTRIDGE-TABLE ; 0
RECIPE-TABLE ; 0
RENAME-DIR ; 0
RPRINTR-TABLE ; 0
RUN-DIR ; 0
SEAT-PSEUDO-VEC ; 0
SEEVERBS ; 0
SODA-TABLE ; 0
SODA-TYPE-TABLE ; 0
TCLEAR-DIR ; 0
TELECOM-TABLE ; 0
TOUCHVERBS ; 0
TRAVEL-FILE ; 0
TYPE-DIR ; 0
WATER-TABLE ; 0
WHO-DIR ; 0
WINE-COLOR-TABLE ; 0
WINE-COUNTRY-TABLE ; 0
WINE-TYPE-TABLE ; 0
YUKS ; 0
ZBUG-FILE ; 0
CABMUSIC-GVAL ; 0
RETURN-TO-SEAT-WAIT-GVAL ; 0
)

69
bureaucracy.txt Normal file
View file

@ -0,0 +1,69 @@
Ideas for Bureaucracy?
----------------------
The global concept for this game can be summarized by the line "Just because
you're paranoid doesn't mean that everybody isn't out to get you."
We've all had the feeling from time to time that somebody (particularly
those small, beady-eyed bureaucrats who work for banks, insurance companies,
etc.) is out to get us. This game provides the answer: In fact, there is
a massive conspiracy to do just that. And things are stranger than that,
because this conspiracy is centered in some sort of fantastical underground
(literally) catacomb, connecting all of these various dens of iniquity.
The player, when he successfully completes the game, will have the
intense satisfaction of having crushed the nameless and faceless hoard
of bureaucrats, and, with luck, having gotten the bank to acknowledge his
change of address (or whatever the player's initial task is set up to be).
--
This game is intended as a kind of dark comedy. The mood which is to
be created is one of frustration, anger, and eventually paranoia as
everything in the player's life goes from bad to worse, all because
of petty errors at the bank, etc.
At some point, the player can gain access to the 'infernal regions',
where some bizarre series of accomplishments will have to be made in
order to destroy the enemy's apparatus.
One possible source of problems is trying to do the things that
the bureaucracy hates most: folding, spindling, and mutiliating punch
cards, filling out forms incorrectly, perhaps stealing rubber stamps
and stamping forms improperly, and otherwise botching up the works.
Perhaps this type of problem in the above-ground area will help create
a diversion allowing access to the underground where more bizarre
things will happen.
Presumably the game starts with the player needing to get some very
simple task done (e.g. getting the bank to acknowledge a change of
address form). This will turn into more of a problem than it seems
and events will cause such things as his credit cards getting recalled,
his house getting repossessed, etc. leading to absurd heights of
nonsense. Clearly, at some point the player will realize that things
are getting out of hand.
Confronting the various bureaucrats will be no easy task, since they
probably won't want to talk with you, preferring that you fill out
a request for conversation form. My guess is that no matter what you
try to do, you can't get them to answer questions very reliably (which
fits in well with parser limitations).
--
Places of Interest
Your Home - probably just a few rooms a la Hitchhiker's
Outside your Home - front steps, etc.
Bank - your bank, with a number of rooms, for tellers, safe deposit
boxes, vault, waiting area, etc.
Post Office - your local post office
Insurance Company -
Underground - Lots of stuff here, maybe some sort of semi-militaristic
order of bureaucrats with lots of arcane machinery linked up to a gigantic
computer which controls the hoard. Perhaps they all turn out to be
androids or some such.

129
buttons.txt Normal file
View file

@ -0,0 +1,129 @@
BUTTONS ALGORITHM
Each seat contains three buttons:
1) Marked "RECLINE"
2) Marked "CALL ATTENDANT"
3) Marked "LIGHT"
The buttons, when enabled, work as follows:
RECLINE operates on seat +1 col +2 rows and RINGS BELL there
LIGHT operates on seat +4 col +3 rows, and TOGGLES RECLINE there
BELL operates on seat -1 col +1 row and TOGGLES LIGHT there
The algorithm is also revealed when the player presses any of the
buttons from any seat when the seat buttons are DISABLED. What happens
then is that the button triggers a recorded announcement audible only
over the headphones; that announcement includes the location of the
seat to which it is wired, NOT to the seat which the player is actually
in. Player has to be IN the seat with the Headphones both plugged in
and being worn before he can hear the message. He also has to be in the
seat, either with or without headphones, before he can press the button.
BUTTONS PLAY
The player always starts in 3B. If he presses a button at this point,
he hears the metallic whispering which only lasts for that turn. To
hear it properly he has to wear the headphones and plug them in. He can
press each button and get the same message repeatedly.
Once he starts wandering around the cabin he could theoretically map it
in 14 turns. After fourteen turns the FASTEN SEAT BELT SIGN comes on
and he has four turns to get back before being forced back by the
stewardess.
At this point he should have mapped the cabin. His return to 3B starts
the meal service routine. Only when all meals have been served do we
activate the buttons. The FASTEN SEAT BELTS light goes out and he is
free to wander around the cabin or eat his meal or return to ANOTHER
seat.
POSSIBLE PLAYS
1)
LOSER. He eats his meal like a good boy. After a number of turns a
neighbour will complain about his halitosis, the stew will bring him an
electric toothbrush and tell him to clean his teeth.
1a) DECLINES. He dies of halitosis and so does everyone else. They
continue to nag at him after death (2 turns) and reboot.
1b) ACCEPTS. He goes to the bathroom to clean his teeth.
1bi) SUCCEEDS. He plugs in the toothbrush which activates the john,
sending it into a frenzy and sucking him below the surface.
***BOG NOTE*** at all other times the door is shut and groaning can be
heard from behind the door.
1bii) FAILS to plug the toothbrush in and dies of halitosis except
nobody else dies since you are sealed off. However when the aeroplane
lands the entire ground crew are killed and your name is reviled
posthumously.
2) LOSER
Player does NOT eat his meal but does not solve the buttons puzzle.
He will be shepherded back to his seat at frequent intervals by the
attendant and told that if he does not eat his meal they will be unable
to take the tray away, and if they are unable to take the tray away the
table will not be able to be safely stowed in accordance with FAA
regulations and therefore the plane will be unable to land and will
therefore run out of fuel and crash with the inevitable death of
everyone on board. If he says "Fuck that, buster", it all comes true.
ALTERNATIVE if he doesn't eat his meal it will eventually eat its way
through the plate, through the table, slither onto the floor, crawl
around the cabin reeking and humming, eat through the floor and cause
explosion decompression. Dead.
3) WIN
The player does NOT eat his food but instead solves the algorithm puzzle
and eventually (within the meal-escape time) manages to find the Light
switch in 6E which will splat the seat in front of 3B thus smashing his
tray into the back of the seat and returning 2B to an upright position
in preparation for landing at this time.
As a reward for winning this winsome little puzzlette, THE MISSING
CORNER OF THE FLIGHT SAFETY CARD falls out of seat 2B. You smother your
disgust at the flecks of dried llama-spit and examine it. It shows a
crudely-drawn picture (by Zalagasa's leading primitivist) of a misshapen
stewardess apparently standing underneath a rather wrinkled and colossal
mushroom on which is written the words "Stinglai k'aabi".
We now control the stewardess to two more appearances. FIRST, she now
appears and tells player that there is a call for him on the telephone.
To the admiring glances of the hateful and ugly passengers he walks to
the telephone and finds that it is the waitress from the cafe wanting to
know if he left her a gratuity. She is leaving an address to which he
can mail it (which is in fact his own address) when she is cut off. He
overhears the captian talking to ATC saying that the aeroplane has lost
control (Apparently some noxious substance has eaten its way through the
hydraulic lines on the port side) and will be crashing in five minutes.
ATC informs him that he has not filed a flight plan for a crash etc.
Rings off.
Stewardess reappears and player asks for a stinglai k'aabi and is given
one. He then has to open the hatch. Announcement from stewardess.
Player has Jump, Jump, any char., and out. Door slams shut, parachute
catches. Knock on door, stew opens it, "Oh - you fell for the old
'we're going to crash' routine, did you? Have a nice day!"
TO POT.
LOSE CASES AFTER WIN BUTTON.
1) Doesn't spot parachute puzzle.
2) Doesn't answer phone.
3) Won't jump.
4) Doesn't even open hatch.
PLANE CRASH ends each.

70
c2.zil Normal file
View file

@ -0,0 +1,70 @@
"B for BUREAUCRACY: (C)1987 Infocom, Inc. All Rights Reserved."
<VERSION EZIP>
<FUNNY-GLOBALS?>
<FREQUENT-WORDS?>
<LONG-WORDS?>
<SETG PRESERVE-SPACES? T>
<PRINC "
BUREAUCRACY: Interactive Fiction PLUS
">
ON!-INITIAL "For DEBUGR."
OFF!-INITIAL
ENABLE!-INITIAL
DISABLE!-INITIAL
<COND (<GASSIGNED? MUDDLE>
<BLOAT 90000 0 0 3300 0 0 0 0 0 256>)>
<SET REDEFINE T>
<OR <GASSIGNED? ZILCH>
<SETG WBREAKS <STRING !\" !,WBREAKS>>>
<COND (<GASSIGNED? PREDGEN>
<SETG ZSTR-ON <SETG ZSTR-OFF ,TIME>>
<ID 0>)>
<OR <LOOKUP "DEBUGGING?" <ROOT>>
<INSERT "DEBUGGING?" <ROOT>>>
;<SETG DEBUGGING? T>
<SETG DEBUGGING? <>>
; "Definitions only..."
<INSERT-FILE "RANDOM-GLOBALS" T>
<INSERT-FILE "OLD-PARSERDEFS" T>
<INSERT-FILE "FORMDEFS" T>
<INSERT-FILE "BANKDEFS" T>
<INSERT-FILE "COMPUTERDEFS" T>
<INSERT-FILE "XXJETDEFS" T>
<INSERT-FILE "MACROS" T>
<INSERT-FILE "SYNTAX" T>
<INSERT-FILE "MISC" T>
<INSERT-FILE "CLOCKER" T>
<INSERT-FILE "PARSER" T>
<PUT-PURE-HERE>
<INSERT-FILE "OTHER-MISC" T>
<INSERT-FILE "VERBS" T>
<INSERT-FILE "EVENTS" T>
<INSERT-FILE "PEOPLE" T>
<INSERT-FILE "PLACES" T>
<INSERT-FILE "THINGS" T>
<INSERT-FILE "FORMS" T>
<INSERT-FILE "COMPUTER" T>
<INSERT-FILE "NNAIRPORT" T>
<INSERT-FILE "PARANOID" T>
<INSERT-FILE "ZALAGASA" T>
<INSERT-FILE "MAZE" T>
<INSERT-FILE "MUMBLE" T>
<CHECKPOINT "TAA-C.EXE" <> "TAA.EXE">
<INSERT-FILE "BANK" T>
<INSERT-FILE "XXJET" T>
<PROPDEF SIZE 0>
<PROPDEF CAPACITY 0>
; <PROPDEF VALUE 0>

135
clocker.zil Normal file
View file

@ -0,0 +1,135 @@
"CLOCKER for BUREAUCRACY: (C)1987 Infocom, Inc. All rights reserved."
<FILE-FLAGS MDL-ZIL?>
<USE "NEWSTRUC">
<SETG CLOCK-HAND <>>
;<SETG CLOCK-WAIT? <>>
<CONSTANT C-TABLE <ITABLE NONE 100>>
<GDECL (C-TABLE) TABLE>
<MSETG C-TABLELEN 100>
<SETG C-INTS 100>
<GDECL (C-INTS) FIX>
<MSETG C-INTLEN 4> ; "Length of an interrupt entry."
<MSETG C-RTN 0> ; "Offset of routine name."
<MSETG C-TICK 1> ; "Offset of count."
<MSETG H-HUNG 2> ; "For hunger stuff."
<DEFINE DEQUEUE (RTN)
<SET RTN <QUEUED? .RTN>>
<COND (<T? .RTN>
<ZPUT .RTN ,C-RTN 0>)>>
<DEFINE QUEUED? QQ (RTN "AUX" C E)
<SET E <ZREST ,C-TABLE ,C-TABLELEN>>
<SET C <ZREST ,C-TABLE ,C-INTS>>
<REPEAT ()
<COND (<EQUAL? .C .E>
<RETURN <> .QQ>)
(<EQUAL? <ZGET .C ,C-RTN> .RTN>
<COND (<ZERO? <ZGET .C ,C-TICK>>
<RETURN <> .QQ>)
(T
<RETURN .C .QQ>)>)>
<SET C <ZREST .C ,C-INTLEN>>>>
"This version of QUEUE automatically enables as well."
<DEFINE QUEUE (RTN "OPTIONAL" (TICK:FIX -1) "AUX" C E (INT <>))
<SET E <ZREST ,C-TABLE ,C-TABLELEN>>
<SET C <ZREST ,C-TABLE ,C-INTS>>
<REPEAT ()
<COND (<EQUAL? .C .E>
<COND (<T? .INT>
<SET C .INT>)
(T
<COND (<L? ,C-INTS ,C-INTLEN>
<TELL "[Too many interrupts!]" CR>)>
<SETG C-INTS <- ,C-INTS ,C-INTLEN>>
<SET INT <ZREST ,C-TABLE ,C-INTS>>)>
<ZPUT .INT ,C-RTN .RTN>
<RETURN>)
(<EQUAL? <ZGET .C ,C-RTN> .RTN>
<SET INT .C>
<RETURN>)
(<ZERO? <ZGET .C ,C-RTN>>
<SET INT .C>)>
<SET C <ZREST .C ,C-INTLEN>>>
<COND (%<COND (<GASSIGNED? ZILCH>
'<G? .INT ,CLOCK-HAND>)
(ELSE
'<L=? <LENGTH .INT:<PRIMTYPE VECTOR>>
<LENGTH ,CLOCK-HAND:<PRIMTYPE VECTOR>>>)>
<SET TICK <- <+ .TICK 3>>>)>
<ZPUT .INT ,C-TICK .TICK>
.INT>
<SETG HOURS 9>
<SETG MINUTES 0>
<CONSTANT DAY-TABLE
<TABLE 6 "Mon" "Tues" "Wednes" "Thurs" "Fri" "Satur" "Sun">>
<GDECL (HOURS MINUTES) FIX (DAY-TABLE) TABLE>
<DEFINE CLOCKER CLOCKER ("AUX" E TICK:FIX RTN (FLG <>) (Q? <>) DAY:FIX)
<COND (<T? ,CLOCK-WAIT?>
<SETG CLOCK-WAIT? <>>
<RETURN <> .CLOCKER>)>
<SETG CLOCK-HAND <ZREST ,C-TABLE ,C-INTS>>
<SET E <ZREST ,C-TABLE ,C-TABLELEN>>
<REPEAT ()
<COND (<EQUAL? ,CLOCK-HAND .E>
<SETG MINUTES <+ ,MINUTES:FIX 1>>
<COND (<G? ,MINUTES:FIX 59>
<SETG MINUTES 0>
<SETG HOURS <+ ,HOURS:FIX 1>>
<COND (<G? ,HOURS:FIX 23>
<SETG HOURS 0>
<SET DAY <ZGET ,DAY-TABLE 0>>
<SET DAY <+ .DAY 1>>
<COND (<G? .DAY 7>
<SET DAY 1>)>
<ZPUT ,DAY-TABLE 0 .DAY>)>)>
<RETURN>)
(<T? <ZGET ,CLOCK-HAND ,C-RTN>>
<SET TICK <ZGET ,CLOCK-HAND ,C-TICK>>
<COND (<L? .TICK -1>
<SET TICK <- 0 .TICK>>
<ZPUT ,CLOCK-HAND ,C-TICK <- .TICK 3>>
<SET Q? ,CLOCK-HAND>)
(<T? .TICK>
<COND (<G? .TICK 0>
<SET TICK <- .TICK 1>>
<ZPUT ,CLOCK-HAND ,C-TICK .TICK>)>
<COND (<T? .TICK>
<SET Q? ,CLOCK-HAND>)>
<COND (<NOT <G? .TICK 0>>
<SET RTN
<ZGET ,CLOCK-HAND ,C-RTN>>
<COND (<ZERO? .TICK>
<ZPUT ,CLOCK-HAND ,C-RTN 0>)>
<COND (<ZAPPLY .RTN>
<SET FLG T>)>
<COND (<AND <ZERO? .Q?>
<T? <ZGET ,CLOCK-HAND ,C-RTN>>>
<SET Q? T>)>)>)>)>
<SETG CLOCK-HAND <ZREST ,CLOCK-HAND ,C-INTLEN>>
<COND (<ZERO? .Q?>
<SETG C-INTS <+ ,C-INTS ,C-INTLEN>>)>>
<RETURN .FLG .CLOCKER>>
; "This runs every turn..."
<MSETG DELAY-FACTOR 3>
<SETG BP-DELAY 2>
<DEFINE I-BLOOD-PRESSURE ("AUX" (SYSTOLIC:FIX <GET-SYSTOLIC>)
(DIASTOLIC:FIX <ANDB ,BP *377*>))
<COND (<EQUAL? .SYSTOLIC 120>
<>)
(<L? <SETG BP-DELAY <- ,BP-DELAY:FIX 1>> 1>
<SETG BP-DELAY ,DELAY-FACTOR>
<COND (<G? .SYSTOLIC 120>
<UPDATE-BP -2 T T>)
(<L? .SYSTOLIC 120>
<UPDATE-BP 2 T T>)>)>>

1202
computer.zil Normal file

File diff suppressed because it is too large Load diff

92
computerdefs.zil Normal file
View file

@ -0,0 +1,92 @@
"COMPUTERDEFS for BUREAUCRACY: Copyright (C)1987 Infocom, Inc.
All rights reserved."
<ZSECTION "COMPUTERDEFS">
<FILE-FLAGS MDL-ZIL?>
<INCLUDE "FORMDEFS">
<USE "NEWSTRUC">
<SET-DEFSTRUCT-FILE-DEFAULTS ('NTH ZGET) ('PUT ZPUT) ('START-OFFSET 0)
'NODECL>
<DEFINE-GLOBALS COMPUTER-GLOBALS
(LAST-LINE-USED:FIX BYTE 0)
(TIMES-THROUGH-LOOP:FIX BYTE 0)
(FILES-ON-SCREEN? BYTE <>)
(TELECOM? BYTE <>)
(EXITED-ALREADY? BYTE <>)
(COMPUTER-DEAD? BYTE <>)
(COMP-X:FIX BYTE 0)
(COMP-Y:FIX BYTE 0)
(CURRENT-TARGET-NAME <>) ; "String for interrupt messages"
(REAL-TARGET-NAME <>) ; "LTABLE for looking stuff up in directory"
(REMAINING-TARGET-TURNS:FIX BYTE 0) ; "Turns left until this one's done"
(LINES-TO-NEXT-TARGET:FIX BYTE 0) ;"Lines to output before select next target"
(TERMINATE-CURRENT:FIX BYTE 0) ; "Lines to output before terminating this one"
(COMMANDS-SINCE-START:FIX BYTE 0); "Command lines read since target started"
(DIE-ON-NEXT-COMMAND BYTE <>) ; "To avoid hair of faking non-local return"
(WILL-WIN? BYTE <>) ; "True if killed computer"
(FERROR-ACTIVE? BYTE <>)>
<MSETG COMPUTER-REAL-WIDTH 40>
<MSETG COMPUTER-WIDTH 38>
<MSETG COMPUTER-HEIGHT 16>
<MSETG COMPUTER-REAL-HEIGHT 19>
<MSETG COMPUTER-FIRST-LINE 3>
<MSETG COMPUTER-COMMAND-LINE 0>
<MSETG COMPUTER-ERROR-LINE 1>
<MSETG DIR-ENTRY-INVISIBLE 1>
<DEFSTRUCT DIR-ENTRY (TABLE ('NTH GETB) ('PUT PUTB))
(DIR-ROUTINE ANY 'NTH ZGET 'PUT ZPUT 'NONE) ; "Routine to call"
(DIR-BITS FIX 'NTH ZGET 'PUT ZPUT 0)
(DIR-HELP ANY 'NTH ZGET 'PUT ZPUT <>) ; "Brief help msg"
(DIR-DUMMY-1 ANY 'NONE)
(DIR-DUMMY-2 ANY 'NONE)
(DIR-DUMMY-3 ANY 'NONE)
(DIR-NAMLEN FIX)
(DIR-DATA ANY 'NONE)>
<MSETG DIR-DATA-OFFSET 7>
<MSETG DIR-HEADER-LEN 6>
; "Build a directory entry"
<DEFINE20 DIR-ENTRY (ROUTINE NAME:STRING HELP:ANY "TUPLE" BITS "AUX" DE (BW 0)
(PURE? T))
<COND (<AND <NOT <EMPTY? .BITS>>
<==? <1 .BITS> IMPURE>>
<SET PURE? <>>
<SET BITS <REST .BITS>>)>
<SET DE <CHTYPE <EVAL <FORM ITABLE <+ 1 ,DIR-HEADER-LEN <LENGTH .NAME>>
<COND (.PURE?
(BYTE PURE))
(T (BYTE))>>>
DIR-ENTRY>>
<MAPF <>
<FUNCTION (BIT)
<COND (<TYPE? .BIT FIX>)
(<AND <GASSIGNED? .BIT>
<TYPE? ,.BIT FIX>>
<SET BIT ,.BIT>)>
<COND (<TYPE? .BIT FIX>
<SET BW <ORB .BW .BIT>>)>>
.BITS>
<MAKE-DIR-ENTRY 'DIR-ENTRY .DE
'DIR-ROUTINE .ROUTINE
'DIR-HELP .HELP
'DIR-BITS .BW
'DIR-NAMLEN <LENGTH .NAME>>
<PROG ((N ,DIR-DATA-OFFSET))
<MAPF <>
<FUNCTION (CHR)
<PUTB .DE .N <ASCII .CHR>>
<SET N <+ .N 1>>>
.NAME>>
.DE>
<ENDSECTION>

1264
events.zil Normal file

File diff suppressed because it is too large Load diff

194
foo.mud Normal file
View file

@ -0,0 +1,194 @@
BUREAUCRACY REWRITE
REVISED SCENARIO (PLOT ONLY)
v1 of Jan 87 13:50
**************************
1) HOUSE, BANK, LLAMA, MAIL
You have just moved into your new house. Everything is fine. You have
a new job at Happitec - Vice president of Systems Development. The fact
that your previous job ended in something of a disaster when roughly
150,000 people were seriously inconvenienced by a rather buggy program
for which you were responsible is neither here nor there. The internal
bureacracy of your previous company took care of that, and anyway - when
was an information specialist's career ever set back by a disaster of
that sort?
The game opens in the living room of your new house. Everything is
dandy, as we said. The house is much bigger than your previous
apartment, the area is nicer, you will be earning more money and, best
of all, you are leaving today on a two-week vacation, all expenses paid.
The only thing you will need is the cab fare to the airport.
Unfortunately, due to a tiny little foul-up at the bank (which, you seem
to recall, uses software produced by your previous employers) your
change-of-address card has not been actioned by the bank. The reason?
The DP department can only accept change-of-address notifications on
official change-of-address forms. A change-of-address form has been
sent to you... at your old address, along with your checkbook and your
new credit card (which expired last week).
Your quandary? To get hold of enough money to get a cab to the airport
to get your flight to Paris, so that you will be able to survive for a
fortnight. After all, once you start your new job, everything will be
allright.
In the package is a letter from your new boss, Ollie Fassbaoum, telling
you how to pick up your airline ticket. He also mentions that a check
for $75 is on its way to you in the mail.
So you have two alternative problems. Problem A is to get your bank
either to cash you a counter cheque or to get a cheque book to you
QUICKLY so that you can get cash from your bank. Problem B is the
alternative, which is to get hold of the money order which Fassbaum has
sent.
You can attack these problems in either order. Doesn't actually matter
which. Here they are:
PROBLEM A: THE BANK
STARTING INFORMATION: The bank has failed to act upon the change of
address card you sent it, because it was not on a proper form. They
HAVE used their initiative to the extent that, realising you needed a
change of address form, they sent you one. Unfortunately they sent it
to your old address.
The new tenant of your old apartment has in fact received this form.
He has also previously received a cheque book and a credit card, among
other mail, which he politely returned to your bank with "PLEASE
FORWARD TO NEW ADDRESS" written on it. The change of address form is
the last straw. His attitude is "Fuck this; tell your bank about your
new address, I have had enough." He has gone on holiday to stalk Ai-Ai
in Zalagasa and won't be back for three weeks.
So you might think of ringing up the bank to ask for a NEW change of
address form. If you do this, you will get Pongo the bank parrot, who
will tell you that according to their records, they sent a change of
address form to your old address (You already know this) and they can't
send another one out until the original is returned. They cannot
possibly bypass the system in your case because (A) how would it be if
everyone bypassed the system, and anyway (B) the system was manufactured
by the Deep Thought Corporation of America Inc and is notoriously
inflexible. They have had someone in to look at it but things only seem
to have got worse. Ringing the bank is therefore a no-win game play.
You might also think of actually visiting the bank to see if they can
help. The bank staff are however completely incapable of helping you.
The systems have been automated to such an extent that the humans are
reduced to mere robots and show no initiative. They are completely
intimidated by the computer, which anyway has behaving strangely of late
so they don't want to take the risk of offending it. The only thing you
learn is that they COULD cash a money order. Since this is the thing
that Fassbaum is sending you, it is obvious that that's what you need to
find.
If you haven't already looked in your mailbox at home, you'll perhaps do
so now. You will find that someone else's mail is in it, which might
alert you to the fact that something is wrong with the mailman. Perhaps
he is a DTC robot? Perhaps he is just a prick. Anyway, all the mail is
misdirected, and it's obvious that if you are ever going to find the
Fassbaum money order you will have to look in someone else's mail. You
will in fact NOT find the money order until you have opened all the
available mail.
The mail problems remain exactly as they currently are except perhaps a
few more pointers ?
The LAST batch of mail you find will contain two items: a money order
addressed to you, and an envelope addressed to someone else. The money
order will have been destroyed in one way or another, depending on where
you find it. It can have been licked by the llama, plunged into water
by the paranoid, ripped to shreds by the macaw or cut to ribbons by the