-
Notifications
You must be signed in to change notification settings - Fork 27
/
chess.zabstr
144 lines (143 loc) · 7.24 KB
/
chess.zabstr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
<BEGIN-SEGMENT FENSHIRE>
<GLOBAL RANK 2>
<GLOBAL FILE 5>
<GLOBAL PLAIN-LOC 12>
<ROOM PLAIN (LOC ROOMS) (REGION "Region: Unknown") (DESC "Plain") (NORTH PER
PLAIN-MOVEMENT-F) (NE PER PLAIN-MOVEMENT-F) (EAST PER PLAIN-MOVEMENT-F) (SE PER
PLAIN-MOVEMENT-F) (SOUTH PER PLAIN-MOVEMENT-F) (SW PER PLAIN-MOVEMENT-F) (WEST
PER PLAIN-MOVEMENT-F) (NW PER PLAIN-MOVEMENT-F) (FLAGS RLANDBIT OUTSIDEBIT
ONBIT) (VALUE 16) (ACTION PLAIN-F)>
<DEFINE-ROUTINE PLAIN-F>
<DEFINE-ROUTINE PLAIN-MOVEMENT-F>
<OBJECT BLACK-KNIGHT (DESC "mounted soldier") (LDESC
"There is a soldier on horseback here. His armor is made of the dullest
metals, and his steed is darker than the night.") (SYNONYM SOLDIER KNIGHT HORSE
MAN) (ADJECTIVE MOUNTED BLACK) (FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT
BLACKBIT) (ACTION PIECE-F)>
<OBJECT WHITE-KNIGHT (DESC "mounted soldier") (LDESC
"There is a soldier on horseback here. His armor is made of the shiniest
metals, and his steed is lighter than drifted snow.") (SYNONYM SOLDIER KNIGHT
HORSE MAN) (ADJECTIVE MOUNTED WHITE) (FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT
WHITEBIT) (ACTION PIECE-F)>
<OBJECT BLACK-PAWN (DESC "foot soldier") (LDESC
"You spot a solitary, bored-looking foot soldier. His face is smudged with
coal dust, his uniform is sewn from deeply dyed wool, and the handle of his
sword is solid obsidian.") (SYNONYM SOLDIER PAWN MAN) (ADJECTIVE FOOT BLACK) (
FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT BLACKBIT) (ACTION PIECE-F)>
<OBJECT BLACK-QUEEN (DESC "queen") (LDESC
"A regal woman proudly surveys the landscape in all directions. Her skin
is dark; her royal garments even darker.") (SYNONYM QUEEN WOMAN) (ADJECTIVE
REGAL PROUD DARK BLACK) (FLAGS ACTORBIT FEMALEBIT CONTBIT OPENBIT SEARCHBIT
BLACKBIT) (ACTION PIECE-F)>
<OBJECT WHITE-CASTLE (DESC "man atop a castle tower") (LDESC
"Nearby rises a small tower keep, made of creamy marble. Between the
crenellations of the parapet you spot a man, dressed in an ivory chain
mail and carrying a crossbow made of birch.") (SYNONYM MAN TOWER CASTLE ROOK) (
ADJECTIVE CASTLE WHITE) (FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT WHITEBIT) (
ACTION PIECE-F)>
<OBJECT BLACK-BISHOP (DESC "high priest") (LDESC
"You hear a sing-song prayer chant and turn to see a high priest of some sort.
His tall, ebony headpiece bears a religious cipher, and his vestments seem to
soak up all light.") (SYNONYM PRIEST BISHOP MAN) (ADJECTIVE HIGH BLACK) (FLAGS
ACTORBIT CONTBIT OPENBIT SEARCHBIT BLACKBIT) (ACTION PIECE-F)>
<OBJECT WHITE-PAWN (DESC "foot soldier") (LDESC
"You spot a solitary, bored-looking foot soldier. His face is smudged with
flour, his uniform is sewn from pure undyed cotton, and the handle of his
sword is solid quartz.") (SYNONYM SOLDIER PAWN MAN) (ADJECTIVE WHITE FOOT) (
FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT WHITEBIT) (ACTION PIECE-F)>
<OBJECT WHITE-QUEEN (DESC "queen") (LDESC
"A regal woman proudly surveys the landscape in all directions. Her royal
garments are as white as her pale complexion.") (SYNONYM QUEEN WOMAN) (
ADJECTIVE REGAL PROUD WHITE) (FLAGS ACTORBIT FEMALEBIT CONTBIT OPENBIT
SEARCHBIT WHITEBIT) (ACTION PIECE-F)>
<OBJECT WHITE-KING (DESC "royal leader") (LDESC
"A tall man wearing princely robes stands nearby. His bearing indicates that
this is a man accustomed to command. His linen robes are trimmed with ermine,
and his crown is studded with diamonds and opals.") (SYNONYM LEADER KING MAN) (
ADJECTIVE ROYAL WHITE TALL) (FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT WHITEBIT)
(ACTION PIECE-F)>
<OBJECT WHITE-KING-CROWN (LOC WHITE-KING) (DESC "crown") (SYNONYM CROWN) (FLAGS
NDESCBIT)>
<OBJECT WHITE-KING-ROBE (LOC WHITE-KING) (DESC "robe") (SYNONYM ROBE) (FLAGS
NDESCBIT)>
<OBJECT BLACK-KING (DESC "royal leader") (LDESC
"A tall man wearing princely robes stands nearby. His bearing indicates that
this is a man accustomed to command. His velvet robes are trimmed with mink,
and his crown is studded with polished onyx.") (SYNONYM LEADER KING MAN) (
ADJECTIVE ROYAL BLACK TALL) (FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT BLACKBIT)
(ACTION PIECE-F)>
<OBJECT BLACK-KING-ROBE (LOC BLACK-KING) (DESC "robe") (SYNONYM ROBE) (FLAGS
NDESCBIT)>
<OBJECT BLACK-KING-CROWN (LOC BLACK-KING) (DESC "crown") (SYNONYM CROWN) (FLAGS
NDESCBIT)>
<BEGIN-SEGMENT 0>
<GLOBAL DIR-CNT 0>
<DEFINE-ROUTINE PIECE-F>
<DEFINE-ROUTINE PIECE-TAKES-PIGEON>
<CONSTANT PIECE-MOVE-TABLE <TABLE 0 0 0 0 0 0 0 0>>
<DEFINE-ROUTINE MOVE-PIECE>
<DEFINE-ROUTINE DIR-TO-STRING>
<DEFINE-ROUTINE PIECE-SNARF>
<DEFINE-ROUTINE TAKE-PIECE?>
<DEFINE-ROUTINE ILLEGAL-MOVE?>
<DEFINE-ROUTINE PIECE-AT-NEW-LOC?>
<DEFINE-ROUTINE OBSTRUCTION>
<END-SEGMENT>
<BEGIN-SEGMENT LOWER>
<ROOM FIELD-OFFICE (LOC ROOMS) (DESC "Field Office") (REGION "Flatheadia") (
LDESC "This is a temporary headquarters for a construction site to the west.
Another exit leads east.") (EAST TO EXIT) (WEST PER CONSTRUCTION-ENTER-F) (
FLAGS RLANDBIT UNDERGROUNDBIT) (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-7
MAP-GEN-X-4>)>
<DEFINE-ROUTINE CONSTRUCTION-ENTER-F>
<OBJECT BLUEPRINT (LOC FIELD-OFFICE) (DESC "blueprint") (SYNONYM BLUEPRINT) (
FLAGS TAKEBIT BURNBIT READBIT) (SIZE 2) (TEXT
"[This is the blueprint from your ZORK ZERO package.]")>
<BEGIN-SEGMENT 0>
<OBJECT HAMMER (DESC "hammer") (SYNONYM HAMMER) (FLAGS TAKEBIT) (SIZE 16) (
ACTION HAMMER-F)>
<DEFINE-ROUTINE HAMMER-F>
<END-SEGMENT>
<BEGIN-SEGMENT LOWER>
<ROOM CONSTRUCTION (LOC ROOMS) (DESC "Construction") (REGION "Flatheadia") (
NORTH PER CONSTRUCTION-MOVEMENT-F) (NE PER CONSTRUCTION-MOVEMENT-F) (EAST PER
CONSTRUCTION-MOVEMENT-F) (SE PER CONSTRUCTION-MOVEMENT-F) (SOUTH PER
CONSTRUCTION-MOVEMENT-F) (SW PER CONSTRUCTION-MOVEMENT-F) (WEST PER
CONSTRUCTION-MOVEMENT-F) (NW PER CONSTRUCTION-MOVEMENT-F) (FLAGS RLANDBIT
UNDERGROUNDBIT) (ACTION CONSTRUCTION-F)>
<DEFINE-ROUTINE CONSTRUCTION-F>
<DEFINE-ROUTINE AND-OR-COMMA>
<DEFINE-ROUTINE CONSTRUCTION-MOVEMENT-F>
<GLOBAL CONSTRUCTION-LOC 47>
<CONSTANT NORTH-EXITS <TABLE 99 20 33 37 40 46 48 50 55 59 61>>
<CONSTANT NE-EXITS <TABLE 12 13 14 20 22 27 28 29 33 36 41 43 46 49 50 53 54>>
<CONSTANT EAST-EXITS <TABLE 5 6 12 22 26 30 34 38 42 44 51 56 57 61 62>>
<CONSTANT SE-EXITS <TABLE 99 17 40 43 48 51 54>>
<OBJECT HARDHAT (DESC "hardhat") (SYNONYM HARDHAT HAT) (ADJECTIVE HARD) (FLAGS
TAKEBIT WEARBIT) (GENERIC G-HAT-F) (VALUE 25)>
<BEGIN-SEGMENT 0>
<DEFINE-ROUTINE REMOVE-ANY-PIECE>
<CONSTANT STORAGE-TABLE <TABLE 301 BLACK-KNIGHT 314 BLACK-PAWN 315 WHITE-KNIGHT
328 BLACK-BISHOP 337 BLACK-KING 349 WHITE-PAWN 357 WHITE-KING 363 WHITE-CASTLE
400 HARDHAT 461 HAMMER 1004 MEMO 3019 T-SQUARE 4193 INSTRUCTION-BOOKLET 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0>>
<CONSTANT PLAIN-OFFSET 300>
<CONSTANT CONSTRUCTION-OFFSET 400>
<CONSTANT OFFICES-OFFSET 1000>
<CONSTANT OFFICES-N-OFFSET 2000>
<CONSTANT OFFICES-S-OFFSET 3000>
<CONSTANT OFFICES-E-OFFSET 4000>
<CONSTANT OFFICES-W-OFFSET 5000>
<CONSTANT STORAGE-TABLE-LENGTH 200>
<DEFINE-ROUTINE PUT-IN-STORAGE>
<END-SEGMENT>
<BEGIN-SEGMENT LOWER>
<BEGIN-SEGMENT FENSHIRE>
<BEGIN-SEGMENT VILLAGE>
<DEFINE-ROUTINE STORE>
<DEFINE-ROUTINE UNSTORE>
<END-SEGMENT>