-
Notifications
You must be signed in to change notification settings - Fork 16
/
anjiro.zabstr
315 lines (314 loc) · 14.4 KB
/
anjiro.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
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
<FLAGS-AND-DEFAULTS (("WORD-FLAGS-IN-TABLE" T)) ()>
<FILE-FLAGS SENTENCE-ENDS?>
<BEGIN-SEGMENT ANJIRO>
<CONSTANT J-PLUNGE 20>
<CONSTANT J-GUARDS 21>
<ROOM GARDEN (LOC ROOMS) (SCENE S-ANJIRO S-RODRIGUES) (DESC "Garden") (SYNONYM
GARDEN) (ADJECTIVE SMALL) (LDESC
"This is a small garden surrounded by a high wall. It is unlike anything
you have ever seen: a little waterfall and stream and a small bridge
and manicured pebbled paths and rocks and flowers and shrubs. It's so
clean, so neat. The house is to the west, the village to the east.") (IN PER
MURA-HOUSE-EXIT) (WEST PER MURA-HOUSE-EXIT) (EAST TO ANJIRO) (OUT TO ANJIRO) (
FLAGS ONBIT OUTSIDE) (GLOBAL MURA-DOOR MURA-HOUSE LG-VILLAGE) (ACTION GARDEN-F)
>
<DEFINE-ROUTINE MURA-HOUSE-EXIT>
<DEFINE-ROUTINE GARDEN-F>
<OBJECT HIGH-WALL (LOC GARDEN) (DESC "high wall") (SYNONYM WALL) (ADJECTIVE
HIGH) (FLAGS NDESCBIT) (ACTION HIGH-WALL-F)>
<DEFINE-ROUTINE HIGH-WALL-F>
<OBJECT WATERFALL (LOC GARDEN) (DESC "little waterfall") (SYNONYM WATERFALL
WATER POOL) (ADJECTIVE LITTLE) (FLAGS NDESCBIT) (ACTION WATERFALL-F)>
<DEFINE-ROUTINE WATERFALL-F>
<OBJECT PATHS (LOC GARDEN) (DESC "manicured path") (SYNONYM PATH PATHS) (
ADJECTIVE MANICURED) (FLAGS NDESCBIT) (ACTION PATHS-F)>
<DEFINE-ROUTINE PATHS-F>
<OBJECT SMALL-BRIDGE (LOC GARDEN) (SCENE S-ANJIRO) (DESC "small bridge") (
SYNONYM BRIDGE) (ADJECTIVE SMALL) (FLAGS NDESCBIT) (ACTION SMALL-BRIDGE-F)>
<DEFINE-ROUTINE SMALL-BRIDGE-F>
<OBJECT STREAM (LOC GARDEN) (DESC "stream") (SYNONYM STREAM) (ADJECTIVE LITTLE)
(FLAGS NDESCBIT VEHBIT) (ACTION STREAM-F)>
<DEFINE-ROUTINE STREAM-F>
<OBJECT PLANTS (LOC GARDEN) (DESC "plant") (SYNONYM FLOWER SHRUB FLOWERS SHRUBS
PLANT) (FLAGS NDESCBIT) (ACTION PLANTS-F)>
<DEFINE-ROUTINE PLANTS-F>
<BEGIN-SEGMENT RODRIGUES>
<ROOM ANJIRO-WATERFRONT (LOC ROOMS) (SCENE S-RODRIGUES) (AFTER
LEAVE-ANJIRO-AFTER-F) (SCORE 4) (DESC "Waterfront") (FDESC
"The next day you walk down the hill, four samurai flanking you. Ahead
the street curves with the contour of the hillside, slides down toward
the harbor.") (SYNONYM WATERFRONT) (WEST TO ANJIRO) (EAST TO ANJIRO-HARBOR) (
GLOBAL LG-ERASMUS SAMURAI-GUARDS LG-SEA LG-VILLAGE LG-BAY VILLAGERS LG-LAND) (
FLAGS ONBIT OUTSIDE) (ACTION ANJIRO-WATERFRONT-F)>
<DEFINE-ROUTINE ANJIRO-WATERFRONT-F>
<DEFINE-ROUTINE VILLAGERS-STARE>
<OBJECT ARCHERS (DESC "archers") (SYNONYM ARCHER ARCHERS SAMURAI BOW ARROW MEN)
(FLAGS PERSON JAPANESEBIT PLURAL SCOREBIT INVISIBLE AN NOABIT) (ACTION
ARCHERS-F)>
<DEFINE-ROUTINE ARCHERS-F>
<END-SEGMENT>
<BEGIN-SEGMENT ANJIRO>
<DEFINE-ROUTINE I-RUTTER-CLUE>
<BEGIN-SEGMENT RODRIGUES>
<OBJECT SMALL-BOAT (LOC ANJIRO-WATERFRONT) (SCENE S-ANJIRO S-RODRIGUES) (DESC
"small boat") (SYNONYM BOAT ROWBOAT) (ADJECTIVE SMALL) (FLAGS VEHBIT CONTBIT
OPENBIT SEARCHBIT) (CAPACITY 300) (ACTION SMALL-BOAT-F)>
<DEFINE-ROUTINE SMALL-BOAT-F>
<OBJECT BOAT-OAR (LOC SMALL-BOAT) (SCENE S-ANJIRO S-RODRIGUES) (DESC "oars") (
SYNONYM OAR OARS) (FLAGS TAKEBIT NOABIT PLURAL)>
<OBJECT LG-SMALL-BOAT (LOC LOCAL-GLOBALS) (SCENE S-ANJIRO S-RODRIGUES) (DESC
"small boat") (SYNONYM BOAT ROWBOAT) (ADJECTIVE SMALL) (FLAGS NDESCBIT VEHBIT)
(ACTION LG-SMALL-BOAT-F)>
<DEFINE-ROUTINE LG-SMALL-BOAT-F>
<END-SEGMENT>
<BEGIN-SEGMENT ANJIRO>
<DEFINE-ROUTINE HENCHMEN-RESTRAIN>
<BEGIN-SEGMENT RODRIGUES>
<ROOM ANJIRO-HARBOR (LOC ROOMS) (DESC "Harbor") (SYNONYM HARBOR) (EAST TO
AT-ERASMUS) (WEST TO ANJIRO-WATERFRONT) (FLAGS ONBIT OUTSIDE) (GLOBAL
LG-ERASMUS SAMURAI-GUARDS LG-SEA LG-BAY LG-LAND ARCHERS) (ACTION
ANJIRO-HARBOR-F)>
<DEFINE-ROUTINE ANJIRO-HARBOR-F>
<ROOM AT-ERASMUS (LOC ROOMS) (DESC "Beside the Erasmus") (UP TO ON-DECK) (WEST
TO ANJIRO-HARBOR) (FLAGS ONBIT OUTSIDE) (GLOBAL LG-ERASMUS SAMURAI-GUARDS
GANGWAY LG-SEA LG-LAND LG-BAY ARCHERS) (ACTION AT-ERASMUS-F)>
<DEFINE-ROUTINE AT-ERASMUS-F>
<END-SEGMENT>
<BEGIN-SEGMENT ANJIRO>
<ROOM ANJIRO (LOC ROOMS) (DESC "Anjiro") (SYNONYM ANJIRO) (PICTURE P-ANJIRO) (
IN TO GARDEN) (WEST TO GARDEN) (EAST TO ANJIRO-WATERFRONT) (GLOBAL MURA-DOOR
LG-ERASMUS LG-VILLAGE VILLAGERS) (FLAGS ONBIT OUTSIDE RMUNGBIT) (ACTION
ANJIRO-F)>
<DEFINE-ROUTINE ANJIRO-F>
<BEGIN-SEGMENT YABU>
<BEGIN-SEGMENT RODRIGUES>
<OBJECT VILLAGERS (LOC LOCAL-GLOBALS) (DESC "villagers") (SYNONYM VILLAGERS
WOMEN MEN FISHERMEN) (FLAGS PERSON JAPANESEBIT PLURAL OPENBIT CONTBIT SEARCHBIT
) (ACTION VILLAGERS-F)>
<DEFINE-ROUTINE VILLAGERS-F>
<END-SEGMENT>
<BEGIN-SEGMENT ANJIRO>
<OBJECT SEBASTIO-HENCHMEN (SCENE S-ANJIRO) (DESC "priest's henchmen") (OWNER
SEBASTIO) (SYNONYM MEN HENCHMEN HENCHMAN COMPANIONS) (ADJECTIVE JAPANESE) (
FLAGS PERSON JAPANESEBIT THE NOABIT SCOREBIT PLURAL) (ACTION
SEBASTIO-HENCHMEN-F)>
<DEFINE-ROUTINE SEBASTIO-HENCHMEN-F>
<OBJECT HENCHMAN-BODY (DESC "body") (SYNONYM BODY CORPSE MAN) (ADJECTIVE DEAD
KILLED MURDERED HEADLESS) (SIZE 200) (FLAGS PERSON JAPANESEBIT DEAD TAKEBIT
TRYTAKEBIT) (ACTION HENCHMAN-BODY-F)>
<DEFINE-ROUTINE HENCHMAN-BODY-F>
<OBJECT HENCHMAN-HEAD (DESC "severed head") (SYNONYM HEAD) (ADJECTIVE SEVERED)
(FLAGS TAKEBIT TRYTAKEBIT PERSON DEAD) (ACTION HENCHMAN-HEAD-F)>
<DEFINE-ROUTINE HENCHMAN-HEAD-F>
<DEFINE-ROUTINE I-SEBASTIO>
<GLOBAL SEBASTIO-CNT 0 %<> WORD>
<GLOBAL PISS-FLAG <>>
<GLOBAL OMI-QUESTION 0>
<DEFINE-ROUTINE I-OMI>
<GLOBAL OMI-CNT 0 %<> WORD>
<DEFINE-ROUTINE TELL-ANSWER-OR-DIE>
<DEFINE-ROUTINE OMI-KILLS-YOU>
<ROOM MURA-HOUSE (LOC ROOMS) (SCENE S-ANJIRO S-RODRIGUES) (DESC "Mura's House")
(OWNER MURA) (SYNONYM HOUSE) (SCORE 4) (FDESC
"You awaken suddenly. For a moment you think you are dreaming, because
you are ashore and in a small, clean room whose floor is covered with
soft mats. You are lying on a thick quilt.|
|
You realize that you aren't dreaming because you are terribly hungry.") (LDESC
"The room is filled with muted light shining through the opaque paper
that fills squares of cedar lath. The ceiling is polished cedar.") (EAST TO
GARDEN IF MURA-DOOR IS OPEN) (OUT TO GARDEN IF MURA-DOOR IS OPEN) (FLAGS ONBIT)
(GLOBAL MURA-DOOR LG-VILLAGE) (ACTION MURA-HOUSE-F)>
<DEFINE-ROUTINE MURA-HOUSE-F>
<DEFINE-ROUTINE I-COLLAPSE>
<GLOBAL COLLAPSE-CNT 0 %<> WORD>
<OBJECT MURA-DOOR (LOC LOCAL-GLOBALS) (DESC "door") (SYNONYM SHOJI DOOR PANEL
PAPER SCREEN SQUARES LATHS) (ADJECTIVE PAPER WOOD TRANSLUCENT) (FLAGS NDESCBIT
DOORBIT TRYTAKEBIT) (ACTION MURA-DOOR-F)>
<DEFINE-ROUTINE MURA-DOOR-F>
<OBJECT QUILT (LOC MURA-HOUSE) (SCENE S-ANJIRO) (DESC "quilt") (SYNONYM QUILT)
(ADJECTIVE THICK PADDED SOFT COTTON) (FLAGS TAKEBIT VEHBIT OPENBIT CONTBIT
SEARCHBIT FURNITURE SURFACEBIT) (ACTION QUILT-F)>
<DEFINE-ROUTINE QUILT-F>
<OBJECT MURA-CRUCIFIX (LOC MURA-HOUSE) (SCENE S-ANJIRO) (DESC "crucifix") (
FDESC "Hanging on the wall is a crucifix.") (SYNONYM CRUCIFIX CROSS) (FLAGS
TAKEBIT TRYTAKEBIT) (ACTION MURA-CRUCIFIX-F)>
<DEFINE-ROUTINE MURA-CRUCIFIX-F>
<OBJECT TRAY (LOC MURA-HOUSE) (DESC "red lacquered tray") (SYNONYM TRAY BOWL) (
ADJECTIVE RED LACQUERED) (CAPACITY 10) (FLAGS TAKEBIT SEARCHBIT OPENBIT CONTBIT
SURFACEBIT)>
<OBJECT CHOPSTICKS (LOC TRAY) (DESC "pair of sticks") (OWNER CHOPSTICKS) (
SYNONYM STICKS CHOPSTICKS STICK PAIR) (ADJECTIVE CHOP) (FLAGS TAKEBIT TOOLBIT
PLURAL) (ACTION CHOPSTICKS-F)>
<DEFINE-ROUTINE CHOPSTICKS-F>
<OBJECT FOOD (LOC TRAY) (DESC "food") (SYNONYM FOOD VEGETABLES SOUP PORRIDGE) (
ADJECTIVE MORE FISH COOKED COLD THICK) (FLAGS TAKEBIT FOODBIT SCOREBIT NOABIT)
(ACTION FOOD-F)>
<DEFINE-ROUTINE FOOD-F>
<DEFINE-ROUTINE I-REMEMBER>
<DEFINE-ROUTINE I-ONNA>
<NEW-ADD-WORD "HAKU" NOUN>
<BEGIN-SEGMENT PIT>
<OBJECT ONNA (SDESC "middle-aged woman") (SYNONYM WOMAN ONNA ONNA LADY) (
ADJECTIVE MIDDLE-AGED HEAVY-SET ROUND-FACED) (FLAGS PERSON JAPANESEBIT FEMALE
THE OPENBIT SEARCHBIT CONTBIT) (ACTION ONNA-F)>
<DEFINE-ROUTINE ONNA-F>
<END-SEGMENT>
<BEGIN-SEGMENT ANJIRO>
<DEFINE-ROUTINE I-ONNA-RETURNS>
<BEGIN-SEGMENT RODRIGUES>
<OBJECT RIBBON (DESC "silk ribbon") (LDESC
"Stretched across each doorway is a red silk ribbon.") (SYNONYM RIBBON TAPE
BANNER) (ADJECTIVE RED SILK) (FLAGS TAKEBIT READBIT) (ACTION RIBBON-F)>
<GLOBAL RIBBON-CNT 0>
<DEFINE-ROUTINE RIBBON-F>
<DEFINE-ROUTINE I-RIBBON>
<OBJECT SAMURAI-GUARDS (SCENE S-ANJIRO S-RODRIGUES S-ESCAPE) (DESC
"samurai guards") (SYNONYM SAMURAI GUARDS GUARD MAN MEN CREW CREWMEN CREWMAN) (
FLAGS PERSON JAPANESEBIT PLURAL SCOREBIT NOABIT) (DESCFCN SAMURAI-GUARDS-DESC)
(GENERIC GENERIC-SAMURAI-F) (ACTION SAMURAI-GUARDS-F)>
<DEFINE-ROUTINE SAMURAI-GUARDS-DESC>
<DEFINE-ROUTINE SAMURAI-GUARDS-F>
<END-SEGMENT>
<BEGIN-SEGMENT YABU>
<ROOM VILLAGE-SQUARE (LOC ROOMS) (SCENE S-YABU) (DESC "Village Square") (SCORE
2) (FDESC "The next day, you and your crewmen are brought before the
daimyo. Samurai slam all of you on your knees and push your heads into the dust."
) (SYNONYM SQUARE) (ADJECTIVE VILLAGE) (NORTH TO BATH-HOUSE IF BATH-FLAG) (
FLAGS OUTSIDE ONBIT SCOREBIT) (GLOBAL CREWMEN LG-ERASMUS VILLAGERS PIT
LG-VILLAGE) (ACTION VILLAGE-SQUARE-F)>
<DEFINE-ROUTINE VILLAGE-SQUARE-F>
<DEFINE-ROUTINE YABU-TALK-TO-YABU>
<DEFINE-ROUTINE SPEAK-ONLY-TO-YABU>
<OBJECT SEBASTIO-CRUCIFIX (SCENE S-ANJIRO S-YABU S-PIT) (LOC SEBASTIO) (DESC
"crucifix") (OWNER SEBASTIO) (SYNONYM CRUCIFIX CROSS) (ADJECTIVE PECTORAL WOOD
WOODEN) (FLAGS DONT-ALL TAKEBIT TRYTAKEBIT NDESCBIT SCOREBIT) (ACTION
SEBASTIO-CRUCIFIX-F)>
<DEFINE-ROUTINE SEBASTIO-CRUCIFIX-F>
<DEFINE-ROUTINE JAPANESE-INTERESTED?>
<DEFINE-ROUTINE I-SEBASTIO-PRAYS>
<DEFINE-ROUTINE I-BOW?>
<GLOBAL YABU-QUESTION 0>
<DEFINE-ROUTINE I-YABU-AUDIENCE>
<GLOBAL YABU-CNT 0 %<> WORD>
<DEFINE-ROUTINE YABU-SAYS>
<END-SEGMENT>
<BEGIN-SEGMENT PIT>
<ROOM PIT (LOC ROOMS) (SCENE S-PIT) (DESC "Pit") (AFTER PIT-AFTER-F) (SYNONYM
PIT CELLAR) (SCORE 5) (FDESC
"At Yabu's order, the samurai herd you and your crew across the square,
down a ladder, and underground. A trap door locks above you.") (FLAGS ONBIT) (
GLOBAL TRAPDOOR LG-CREWMEN PIETERZOON) (ACTION PIT-F)>
<DEFINE-ROUTINE PIT-F>
<DEFINE-ROUTINE TELL-CEILING>
<OBJECT SEAWATER (DESC "seawater") (SYNONYM SEAWATER WATER) (ADJECTIVE SEA) (
FLAGS NDESCBIT) (ACTION SEAWATER-F)>
<DEFINE-ROUTINE SEAWATER-F>
<OBJECT OFFAL (DESC "offal") (SYNONYM OFFAL HEADS FISH ENTRAILS) (ADJECTIVE
FISH ROTTING) (FLAGS NDESCBIT) (ACTION OFFAL-F)>
<DEFINE-ROUTINE OFFAL-F>
<GLOBAL VINCK-PICKED? <>>
<DEFINE-ROUTINE I-PIT>
<GLOBAL PIT-CNT 0 %<> WORD>
<GLOBAL MUST-CHOOSE? <>>
<DEFINE-ROUTINE TRAPDOOR-OPENS>
<DEFINE-ROUTINE I-TAKE-VINCK>
<GLOBAL PIT-CNT 0 %<> WORD>
<DEFINE-ROUTINE OMI-BARKS>
<DEFINE-ROUTINE I-TAKE-YOU>
<GLOBAL PIT-CNT 0 %<> WORD>
<NEW-ADD-WORD "STRAWS" NOUN <VOC "STRAW"> ,PLURAL-FLAG>
<OBJECT STRAW (DESC "straw") (SYNONYM STRAW STALK) (ADJECTIVE RICE) (FLAGS
TAKEBIT) (GENERIC GENERIC-STRAW-F) (ACTION STRAW-F)>
<DEFINE-ROUTINE GENERIC-STRAW-F>
<DEFINE-ROUTINE STRAW-F>
<OBJECT VINCKS-STRAW (DESC "Vinck's straw") (OWNER VINCK) (SYNONYM STRAW STALK)
(ADJECTIVE RICE SHORTEST) (FLAGS TAKEBIT NOABIT) (GENERIC GENERIC-STRAW-F) (
ACTION VINCKS-STRAW-F)>
<DEFINE-ROUTINE VINCKS-STRAW-F>
<OBJECT SHORT-STRAW (DESC "short straw") (OWNER <>) (SYNONYM STRAW STALK) (
ADJECTIVE RICE SHORT) (FLAGS TAKEBIT) (GENERIC GENERIC-STRAW-F) (ACTION
SHORT-STRAW-F)>
<DEFINE-ROUTINE SHORT-STRAW-F>
<OBJECT LONG-STRAW (DESC "long straw") (OWNER <>) (SYNONYM STRAW STALK) (
ADJECTIVE RICE LONG) (FLAGS TAKEBIT) (GENERIC GENERIC-STRAW-F) (ACTION
LONG-STRAW-F)>
<DEFINE-ROUTINE LONG-STRAW-F>
<DEFINE-ROUTINE THEY-TAKE-VICTIM>
<OBJECT TRAPDOOR (LOC PIT) (DESC "trapdoor") (SYNONYM TRAPDOOR DOOR OPENING
CEILING) (ADJECTIVE TRAP) (FLAGS DOORBIT SEARCHBIT) (DESCFCN TRAPDOOR-DESC) (
ACTION TRAPDOOR-F)>
<DEFINE-ROUTINE TRAPDOOR-DESC>
<DEFINE-ROUTINE TRAPDOOR-F>
<OBJECT LADDER (DESC "ladder") (SYNONYM LADDER) (FLAGS SURFACEBIT TAKEBIT
TRYTAKEBIT VEHBIT SCOREBIT OPENBIT CONTBIT SEARCHBIT) (DESCFCN LADDER-DESC) (
ACTION LADDER-F)>
<DEFINE-ROUTINE LADDER-DESC>
<DEFINE-ROUTINE LADDER-F>
<DEFINE-ROUTINE SAMURAI-ON-LADDER>
<OBJECT LOSING-SAMURAI (DESC "captured samurai") (SCENE S-PIT) (SYNONYM SAMURAI
COMRADE) (ADJECTIVE CAPTURED PROSTRATE UNCONSCIOUS) (FLAGS PERSON JAPANESEBIT
SCOREBIT OPENBIT SEARCHBIT CONTBIT) (GENERIC GENERIC-SAMURAI-F) (CONTFCN
LOSING-SAMURAI-F) (ACTION LOSING-SAMURAI-F)>
<DEFINE-ROUTINE LOSING-SAMURAI-F>
<OBJECT OMI-SAMURAI (SDESC "attacking samurai") (SCENE S-PIT) (OWNER OMI) (
SYNONYM SAMURAI GUARDS GUARD) (ADJECTIVE ATTACKING) (FLAGS PERSON JAPANESEBIT
NOABIT PLURAL) (DESCFCN OMI-SAMURAI-DESC) (GENERIC GENERIC-SAMURAI-F) (ACTION
OMI-SAMURAI-F)>
<DEFINE-ROUTINE OMI-SAMURAI-DESC>
<DEFINE-ROUTINE OMI-SAMURAI-F>
<DEFINE-ROUTINE I-LOSING-SAMURAI>
<DEFINE-ROUTINE DROPS-DAGGER>
<OBJECT DAGGER (LOC LOSING-SAMURAI) (DESC "dagger") (SYNONYM DAGGER) (FLAGS
TAKEBIT WEAPONBIT)>
<OBJECT CAULDRON (DESC "cauldron") (SYNONYM CAULDRON) (FLAGS OPENBIT CONTBIT
SEARCHBIT VEHBIT) (DESCFCN CAULDRON-DESC) (CONTFCN CAULDRON-F) (ACTION
CAULDRON-F)>
<DEFINE-ROUTINE CAULDRON-F>
<DEFINE-ROUTINE CAULDRON-DESC>
<DEFINE-ROUTINE I-TAKE-CROOCQ>
<GLOBAL PIT-CNT 0 %<> WORD>
<GLOBAL CROOCQ-CNT 0>
<DEFINE-ROUTINE CROOCQ-IN-CAULDRON>
<DEFINE-ROUTINE OMI-SAYS-LIE-DOWN>
<GLOBAL ANSWER-HAI? <>>
<GLOBAL BATH-FLAG <>>
<DEFINE-ROUTINE CURSE-OMI>
<ROOM BATH-HOUSE (LOC ROOMS) (DESC "Bath House") (SYNONYM HOUSE) (ADJECTIVE
BATH) (SOUTH TO VILLAGE-SQUARE) (FLAGS ONBIT) (ACTION BATH-HOUSE-F)>
<DEFINE-ROUTINE BATH-HOUSE-F>
<DEFINE-ROUTINE I-BATH>
<GLOBAL BATH-CNT 0 %<> WORD>
<OBJECT CROWD (SCENE S-PIT) (LOC BATH-HOUSE) (DESC "crowd of villagers") (OWNER
CROWD) (SYNONYM VILLAGERS CROWD WOMEN MEN CRONE) (ADJECTIVE OLD GAPING STARING)
(FLAGS PERSON JAPANESEBIT PLURAL OPENBIT CONTBIT SEARCHBIT) (DESCFCN CROWD-DESC
) (ACTION CROWD-F)>
<DEFINE-ROUTINE CROWD-F>
<DEFINE-ROUTINE CROWD-DESC>
<OBJECT BATHTUB (LOC BATH-HOUSE) (DESC "bath tub") (SYNONYM TUB BATH POOL WATER
) (ADJECTIVE BATH WOODEN HOT) (FLAGS NDESCBIT CANT-HOLD VEHBIT OPENBIT CONTBIT
SEARCHBIT SCOREBIT) (CAPACITY 300) (ACTION BATHTUB-F)>
<DEFINE-ROUTINE BATHTUB-F>
<DEFINE-ROUTINE TAKE-A-BATH?>
<DEFINE-ROUTINE RUINABLE?>
<DEFINE-ROUTINE MURA-STOPS-YOU>
<DEFINE-ROUTINE PIT-AFTER-F>
<END-SEGMENT>
<BEGIN-SEGMENT RODRIGUES>
<OBJECT SLAVER (SCENE S-RODRIGUES) (OWNER TORANAGA) (DESC "galley") (SYNONYM
GALLEY SLAVER VESSEL SHIP) (ADJECTIVE SLAVE) (FLAGS VEHBIT) (DESCFCN
SLAVER-DESC) (GENERIC GENERIC-GALLEY-F) (ACTION SLAVER-F)>
<DEFINE-ROUTINE SLAVER-DESC>
<DEFINE-ROUTINE SLAVER-F>
<OBJECT MURA-ROPE (SCENE S-RODRIGUES) (OWNER MURA) (DESC "rope") (SYNONYM ROPE)
>
<GLOBAL RODRIGUES-QUESTION 0>
<DEFINE-ROUTINE I-MEET-RODRIGUES>
<GLOBAL MEET-CNT 0 %<> WORD>
<DEFINE-ROUTINE LETS-GO-ABOARD>
<DEFINE-ROUTINE HEAR-RODRIGUES>
<DEFINE-ROUTINE DIE-IN-STORM>
<DEFINE-ROUTINE SEALED-PASSAGE>
<DEFINE-ROUTINE DONT-BE-STUPID>
<DEFINE-ROUTINE LEAVE-ANJIRO-AFTER-F>
<END-SEGMENT>