-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathtreasuredungeon2.bas
322 lines (322 loc) · 13.8 KB
/
treasuredungeon2.bas
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
316
317
318
319
320
321
322
50 REM TRS80 Basic - 0..64 Chars auf 16 Zeilen
60 REM Treasure Dungeon 2, by David E. White[30-Mar-2014]
70 REM converted to CPC 01/2017 by SRS
100 MODE 2
102 CLS:PRINT"TREASURE DUNGEON 2"
105 CLEAR
120 PA=10:PD=10:PT=0
125 REM W1$=CHR$(255)+CHR$(255)+CHR$(255)+CHR$(255)+CHR$(255)
130 REM O1$=CHR$(255)+CHR$(255)+"/"+CHR$(255)+CHR$(255)
135 REM T1$=CHR$(255)+CHR$(255)+" "+CHR$(255)+CHR$(255)
138 REM C1$=CHR$(255)+" "+CHR$(255):C2$=" "
140 REM P1$=CHR$(143)+CHR$(143)+CHR$(142)+CHR$(143)+CHR$(143)
141 REM P2$=CHR$(143)+CHR$(143)+CHR$(130)+CHR$(135)+CHR$(143)
142 REM P3$=CHR$(143)+CHR$(143)+CHR$(135)+CHR$(135)+CHR$(143)
150 REM M1$=CHR$(143)+CHR$(138)+CHR$(128)+CHR$(143)+CHR$(143)
151 REM M2$=CHR$(143)+CHR$(140)+CHR$(132)+CHR$(141)+CHR$(143)
152 REM M3$=CHR$(143)+CHR$(136)+CHR$(130)+CHR$(141)+CHR$(143)
160 REM WH$=CHR$(255)+CHR$(255)+"-"+CHR$(255)+CHR$(255)
170 REM WV$=CHR$(255)+CHR$(255)+"I"+CHR$(255)+CHR$(255)
180 DIM L(4):K$="":W$="":FOR LL=1 TO 32:CL$=CL$+CHR$(32):NEXT
190 GOSUB 9000
195 IR=1:PR=1
200 CLS
210 PRINT"PREPARE FOR AN ADVENTURE."
220 PRINT"WITH LUCK YOU WILL SURVIVE."
230 PRINT
240 FOR I=1 TO 4:PRINT AD$(I):NEXT
243 PRINT:PRINT"THERE ARE";NR;"SECTIONS AND";NM
245 PRINT"MONSTERS IN THE DUNGEON."
250 PRINT:PRINT"COMMANDS:":PRINT"n-NORTH","s-SOUTH","e-EAST","w-WEST":PRINT"d-DRAW","q-QUERY"
270 GOSUB 5000
500 CLS:GOSUB 6000
550 IF RM(IR)<>0 THEN GOSUB 7000
610 PRINT:PRINT"COMMAND? (n,e,s,w,d,q)"
620 D$=UPPER$(INKEY$):IF D$="" THEN 620
630 IF D$="N" THEN I=1:GOTO 700
640 IF D$="E" THEN I=2:GOTO 700
650 IF D$="S" THEN I=3:GOTO 700
660 IF D$="W" THEN I=4:GOTO 700
670 IF D$="D" THEN GOSUB 6000
680 IF D$="Q" THEN GOSUB 1000
690 GOTO 610
700 K$=RIGHT$(RP$(IR,I),1)
715 IF K$="O" THEN GOSUB 3500
720 IF K$="W" OR K$="S" THEN GOSUB 2000
730 IF K$="D" OR K$="F" THEN GOSUB 3000
740 IF K$="P" OR K$="C" THEN GOSUB 4000
750 IF K$="T" THEN PRINT"YOU FALL THRU A TRAP!";:GOSUB 5500:GOSUB 4000
800 GOTO 500
1000 CLS
1015 IH=INT(TM/60):IM=TM-60*IH
1020 PRINT"YOU'VE BEEN GONE FOR":PRINT IH;"HOURS AND";IM;"MINUTES."
1030 S$="STRONG"
1032 IF PA<=6 THEN S$="WEARY":IF PA<=3 THEN S$="WEAK"
1035 C$="NOT"
1037 IF PD<=8 THEN C$="SLIGHTLY":IF PD<=6 THEN C$="MODERATELY":IF PD<=3 THEN C$="SEVERELY"
1040 PRINT:PRINT"YOU FEEL ";S$;", AND","ARE ";C$;" WOUNDED."
1050 PRINT:PRINT"YOU HAVE DEFEATED":PRINT MK;"MONSTER(S)."
1060 PRINT:PRINT"YOU HAVE TREASURE WORTH":PRINT PT;"GOLD PIECES."
1065 IF MK=NM THEN PRINT:PRINT"YOU DEFEATED ALL THE MONSTERS.":PRINT"THE GAME IS NOW COMPLETED.":END
1070 IF PA+PD>16 THEN 1120
1080 PRINT:PRINT"YOU NEED TO RECOVER."
1085 PRINT"HOW MANY HOURS WILL YOU REST?"
1090 I$=UPPER$(INKEY$):IF I$="" THEN 1090
1091 H=VAL(I$):IF H<1 THEN 1120
1092 PRINT"RESTING ";:FOR IH=1 TO H:FOR X=1 TO 1000:NEXT X:PRINT" Z";:NEXT:PRINT
1093 PRINT"YOU REST FOR";H;"HOURS.":TM=TM+60*H
1094 PA=PA+RND(0)*(H):IF PA>10 THEN PA=10
1096 PD=PD+RND(0)*(H):IF PD>10 THEN PD=10
1120 IF IR<>1 THEN 1150
1125 PRINT:PRINT"YOU ARE BACK AT THE ENTRANCE.":PRINT"DO YOU WISH TO QUIT? (y,n)"
1130 K$=UPPER$(INKEY$):IF K$="" THEN 1130
1135 IF K$="Y" THEN PRINT"COME BACK AGAIN.":END
1150 GOSUB 5000
1170 GOSUB 6000
1190 RETURN
2000 PRINT"YOU ARE AT THE ";D$;" WALL.":GOSUB 5500
2020 PRINT"DO YOU WISH TO SEARCH IT? (y,n)"
2030 I$=UPPER$(INKEY$):IF I$="" THEN 2030
2040 IF I$<>"Y" THEN RETURN
2045 TM=TM+5
2050 IF K$<>"S" OR RND(0)*(3)>=2 THEN PRINT"YOU FIND NOTHING.":GOTO 2000
2060 PRINT"YOU FIND A SECRET DOOR."
2070 GOSUB 3000
2080 RETURN
3000 IX=VAL(RP$(IR,I))
3020 PRINT"YOU ARE AT THE ";D$;" DOOR.":GOSUB 5500
3030 IF K$="O" THEN 3500
3040 PRINT "lISTEN, oPEN, OR rETURN?"
3050 I$=UPPER$(INKEY$):IF I$="" THEN 3050
3060 IF I$="L" THEN 3100
3070 IF I$="O" THEN 3200
3075 IF I$="R" THEN RETURN
3080 GOTO 3040
3100 TM=TM+2:IF RM(IX)<>0 THEN 3120
3110 IF RND(0)*(10)>1 THEN PRINT"YOU HEAR NOTHING.":GOTO 3190
3115 GOTO 3130
3120 IF RND(0)*(3)>=2 THEN PRINT"YOU HEAR NOTHING.":GOTO 3190
3130 ON RND(0)*4 GOTO 3132,3134,3136,3138
3132 PRINT"THERE IS A STRANGE SOUND.":GOTO 3190
3134 PRINT"A MUFFLED SCREAM IS HEARD...":GOTO 3190
3136 PRINT"A CLANKING NOISE":GOTO 3190
3138 PRINT"SOMETHING IS BEING DRAGGED.":GOTO 3190
3190 GOTO 3020
3200 TM=TM+3
3210 IF RND(0)*2>=2 OR K$="F" THEN PRINT"THE DOOR DOES NOT OPEN.":GOTO 3020
3215 PRINT"THE DOOR OPENS.":GOSUB 5500
3220 IF RIGHT$(RP$(IR,I),1)<>"D" THEN 3500
3225 RP$(IR,I)=STR$(IX)+"O"
3230 J=I+2:IF J>4 THEN J=J-4
3240 IF VAL(RP$(IX,J))=IR AND RIGHT$(RP$(IX,J),1)="D" THEN RP$(IX,J)=STR$(IR)+"O"
3500 IX=VAL(RP$(IR,I))
3510 IF RM(IX)<>0 AND RND(0)*2=2 THEN PRINT"THERE IS A MONSTER THERE!"
3520 PRINT"THE DOOR IS OPEN, ENTER? (y,n)"
3530 I$=UPPER$(INKEY$):IF I$="" THEN 3530
3540 IF I$="Y" THEN GOSUB 4000
3550 RETURN
4000 TM=TM+5
4010 IX=VAL(RP$(IR,I))
4015 IF IX<1 OR IX>NR THEN PRINT"YOU CAN'T GO THAT WAY.":GOSUB 5500:RETURN
4030 IF RND(0)*6<=3 OR K$<>"O" THEN 4080
4040 RP$(IR,I)=STR$(IX)+"D"
4050 J=I+2:IF J>4 THEN J=J-4
4060 IF AL(RP$(IX,J))=IR THEN RP$(IX,J)=STR$(IR)+"D"
4080 PR=IR:IR=IX
4090 RETURN
5000 X$=INKEY$
5020 PRINT"<PRESS ANY KEY TO CONTINUE>";
5030 IF INKEY$="" THEN 5030
5040 RETURN
5500 FOR X=1 TO 500:NEXT:RETURN
6000 CLS:PRINT RD$(IR);
6025 L(1)=77:L(2)=82:L(3)=205:L(4)=76
6030 FOR I=1 TO 4
6035 IF I=1 OR I=3 THEN ST=1:W$=WH$:GOTO 6040
6037 ST=32:W$=WV$
6040 K$=RIGHT$(RP$(IR,I),1)
6050 IF K$="W" OR K$="S" THEN W$=W1$
6060 IF K$="O" THEN W$=O1$
6070 IF K$="P" OR K$="T" THEN W$=T1$
6080 IF K$="C" THEN W$=C1$:IF I=1 OR I=3 THEN W$=C2$
6087 FOR LL=1 TO 5:PRINT MID$(W$,LL,1);:L(I)=L(I)+ST:NEXT
6090 NEXT
6095 IF MD(RM(IR))<=0 THEN PRINT P1$;P2$;P3$;:GOTO 6100
6098 PRINT M1$;M2$;M3$;
6100 RETURN
7000 IM=RM(IR):IF MD(IM)<=0 THEN RM(IR)=0:RETURN
7020 PRINT MD$(IM)
7025 PRINT:IF MA(IM)>PD THEN PRINT"IT LOOKS PRETTY DANGEROUS.":GOTO 7040
7030 PRINT"YOU CAN PROBABLY HANDLE IT."
7040 PRINT"rUN OR fIGHT?"
7050 I$=UPPER$(INKEY$):IF I$="" THEN 7050
7060 IF I$="R" THEN 7100
7070 IF I$="F" THEN 7200
7080 GOTO 7050
7100 TM=TM+2:CLS
7110 IF RND(0)*MA(IM)>PD THEN PRINT"THE MONSTER WOUNDS YOU.":PRINT CHR$(7):PD=PD-1:GOTO 7120
7115 PRINT"YOU ESCAPE UNHARMED. "
7120 FOR J=1 TO 4
7122 IF VAL(RP$(IR,J))=PR THEN I=J
7124 NEXT
7126 IF I>0 AND I<=4 THEN 7130
7128 I=RND(0)*4:IF VAL(RP$(IR,I))=0 THEN 7128
7130 IF RND(0)*6>=3 OR PT=0 THEN 7180
7140 LT=INT(PT*RND(0)*2):PT=PT-LT
7150 PRINT:PRINT"YOU DROP TREASURE WORTH";LT;"GP."
7160 TV(MT(IM))=TV(MT(IM))+LT
7180 FOR X=1 TO 2000:NEXT
7185 GOSUB 4000:GOSUB 6000
7190 RETURN
7200 TM=TM+1
7204 PRINT CL$;CL$;CL$;CL$;CL$
7205 PRINT"THE MONSTER STRIKES AT YOU..."
7210 MP=MA(IM)-PD:IF MP<2 THEN MP=2
7215 FOR X=1 TO 300:NEXT
7220 PX=RND(0)*MP-1:IF PX>0 THEN PRINT"THE MONSTER HITS YOU":PRINT CHR$(7):GOTO 7230
7225 PRINT"THE MONSTER MISSES"
7230 IF PX>0 THEN PA=PA-PX:PD=PD-PX
7240 IF PD<=0 THEN PRINT"YOU ARE KILLED!":END
7250 FOR X=1 TO 400:NEXT:PRINT"YOU STRIKE AT THE MONSTER..."
7255 FOR X=1 TO 300:NEXT
7260 PM=PA-MD(IM):IF PM<2 THEN PM=2
7270 MX=RND(0)*PM-1:IF MX>0 THEN PRINT"YOU WOUND THE MONSTER":PRINT CHR$(7):GOTO 7280
7275 PRINT"A MISS..."
7280 IF MX>0 THEN MA(IM)=MA(IM)-MX:MD(IM)=MD(IM)-MX
7290 IF MD(IM)<=0 THEN 7400
7295 IF PD<=3 THEN PRINT"YOU ARE SEVERELY WOUNDED. RUN!"
7300 GOTO 7040
7400 GOSUB 5500
7403 RM(IR)=0:MK=MK+1:GOSUB 6000
7405 PRINT"THE MONSTER IS DEFEATED!":PRINT
7410 IF MT(IM)=0 THEN PRINT"YOU FIND NO TREASURE":GOTO 7470
7420 PRINT"THERE IS A TREASURE!"
7430 IT=MT(IM)
7440 PRINT TD$(IT)
7450 PT=PT+TV(IT)
7455 PRINT"IT IS WORTH";TV(IT);"GOLD PIECES."
7460 MT(IM)=0
7470 GOSUB 5000
7480 GOSUB 6000
7490 RETURN
9000 RESTORE
9040 READ AD$(1),AD$(2),AD$(3),AD$(4),NR,NM,NT
9050 DIM RD$(NR),RP$(NR,4),RM(NR)
9060 FOR I=1 TO NR
9070 READ IR,RD$(IR),RP$(IR,1),RP$(IR,2),RP$(IR,3),RP$(IR,4),RM(IR)
9080 NEXT
9110 DIM MD$(NM),MA(NM),MD(NM),MT(NM)
9120 FOR I=1 TO NM
9130 READ IM,MD$(IM),MA(IM),MD(IM),MT(IM)
9140 NEXT
9210 DIM TD$(NT),TV(NT)
9220 FOR I=1 TO NT
9230 READ IT,TD$(IT),TV(IT)
9240 NEXT
9290 RETURN
9310 DATA "ADVENTURE # 1"
9312 DATA THERE ARE MANY DANGERS HERE.
9314 DATA ORCS HAVE BEEN REPORTED.
9315 DATA BEWARE THE FIERCE MINOTAUR...
9318 DATA 75,13,13
9401 DATA 1,THIS IS THE DUNGEON ENTRANCE WITH AN OPENING IN THE CEILING.,2D,6P,30P,4S,0
9402 DATA 2,A SMALL DRY STONE ROOM WITH SOMEBONES IN THE CORNERS.,W,W,W,3D,0
9403 DATA 3,A LONG RECTANGULAR ROOM.,22D,2D,4C,14D,1
9404 DATA 4,A LONG RECTANGULAR ROOM WITH MOLD ON THE SOUTH WALL.,3C,1S,5D,W,1
9405 DATA 5,A SMALL SQUARE STONE BLOCK ROOM.,4D,30P,28S,W,0
9406 DATA 6,A LONG WINDING CORRIDOR GOING UP.,7P,W,8S,1P,0
9407 DATA 7,A NARROW WINDING CORRIDOR GOING WEST.,W,27S,6P,22T,0
9408 DATA 8,A GREAT ROUND ROOM WITH A HIGH DOMED CEILING.,6S,26D,13D,28D,2
9409 DATA 9,THE NORTHEAST CORNER OF A LRRGE L-SHAPED ROOM.,14S,W,10C,11C,0
9410 DATA 10,THE SOUTHERN END OF A LARGE L-SHAPED ROOM.,9C,W,12D,W,0
9411 DATA 11,THE WESTERN END OF AN L-SHAPED ROOM.,W,9C,W,65P,10
9412 DATA 12,A LONG CURVING PASSAGE,10D,13P,W,W,0
9413 DATA 13,A LONG CURVING PASSAGE.,8D,W,W,12P,0
9414 DATA 14,A DIRTY ROOM FULL OF ORC SIGNS.,W,3D,9S,W,0
9415 DATA 15,THERE ARE SIGNS OF PASSAGE HERE.,W,22P,W,16D,0
9416 DATA 16,THIS OPENS UP INTO A LARGE ROOM.,W,15D,W,17C,0
9417 DATA 17,THE ROOM SHOWS SIGNS OF USE.,18C,16C,21P,63D,0
9418 DATA 18,THERE ARE SOME SKELETONS IN THE NW CORNER.,W,19C,17C,W,0
9419 DATA 19,THERE ARE BONES SCATTERED ABOUT.,W,20D,W,18C,0
9420 DATA 20,THE ROOM SMELLS OF ROTTING FLESH.,W,W,W,19D,4
9421 DATA 21,THE ROOM IS DUSTY AND FULL OF SPIDER WEBS.,17P,W,11S,W,5
9422 DATA 22,A WELL USED CORRIDOR.,23P,W,3D,15P,0
9423 DATA 23,A LONG NORTH-SOUTH CORRIDOR.,29P,24D,22P,49D,0
9424 DATA 24,A LONG WINDING CORRIDOR.,W,W,25P,23D,0
9425 DATA 25,A LONG WINDING CORRIDOR.,24P,W,26P,27S,0
9426 DATA 26,A LONG WINDING CORRIDOR.,25P,W,W,8D,0
9427 DATA 27,A FLIGHT OF STAIRS GO UPWARD TO THE WEST.,W,25D,W,7D,6
9428 DATA 28,A NARROW CURVING PASSAGE.,5D,8D,W,W,0
9429 DATA 29,A LONG CORRIDOR.,31P,W,23P,W,0
9430 DATA 30,THE CORRIDOR CURVES FROM NORTH TO WEST.,1P,W,W,5P,0
9431 DATA 31,A LONG N-S CORRIDOR.,32P,38D,29P,45D,0
9432 DATA 32,THE CORRIDOR ENDS.,33D,W,31P,W,0
9433 DATA 33,A SMALL SQUARE ROOM.,F,34D,32D,41D,0
9434 DATA 34,THERE ARE STRANGE SOUNDS IN THE EAST.,W,35P,W,33D,0
9435 DATA 35,DEBRIS IS SCATTERED ABOUT.,W,W,37D,34P,7
9436 DATA 36,THE WALL SEALS BEHIND YOU.,W,W,W,32S,0
9437 DATA 37,THERE ARE SOUNDS FROM BEHIND THE DOOR.,35D,W,39C,W,0
9438 DATA 38,A ROOM OF STONE BLOCKS.,36D,39D,W,31D,0
9439 DATA 39,AN ORDINARY ROOM.,37C,W,W,38D,0
9440 DATA 40,ROUGH STONE WALLS DRIP MOISTURE.,W,41C,42D,W,0
9441 DATA 41,THERE IS DAMPNESS IN THE AIR.,W,33D,W,40C,0
9442 DATA 42,NO SIGNS OF RECENT ACTIVITY.,40D,W,44C,W,0
9443 DATA 43,THIS ROOM HAS BEEN A MONSTER'S LAIR.,W,W,45S,W,8
9444 DATA 44,THERE ARE MYSTERIOUS MARKINGS ON THE WEST WALL.,42C,45D,W,52S,0
9445 DATA 45,A SENSE OF FOREBODING FILLS THE ROOM.,43S,31D,W,44D,0
9446 DATA 46,THERE ARE ANIMAL DROPPINGS HERE.,W,W,48C,W,0
9447 DATA 47,THERE ARE SKELETONS SCATTERED ABOUT.,W,W,49D,W,9
9448 DATA 48,THERE HAS BEEN PASSAGE THRU HERE.,46C,49P,W,58D,0
9449 DATA 49,A WIDE PASSAGE.,47D,23D,W,48P,0
9450 DATA 50,THE LAIR OF THE MINOTAUR.,40S,51P,53P,W,3
9451 DATA 51,A MAZE.,50P,51P,54P,50P,0
9452 DATA 52,A MAZE.,51P,44S,55P,51P,0
9453 DATA 53,A MAZE.,50P,54P,53P,50P,0
9454 DATA 54,A MAZE.,51P,54P,57P,53P,0
9455 DATA 55,A MAZE.,52P,W,58P,54P,0
9456 DATA 56,A MAZE.,53P,57P,59P,53P,0
9457 DATA 57,A MAZE.,54P,58P,59P,56P,0
9458 DATA 58,A LABYRINTH.,55P,48D,57P,57P,0
9459 DATA 59,A MAZE.,56P,57P,61C,56P,0
9460 DATA 60,CLEAR,61C,60C,60C,60C,0
9461 DATA 61,CLEAR,59C,63C,60C,62C,0
9462 DATA 62,KEEP OUT! CONSTRUCTION SITE.,61C,61C,60C,64D,0
9463 DATA 63,"STRAIGHT AHEAD LEADS THE WAY, OTHER WAYS WILL GO ASTRAY.",61C,17D,60C,61C,0
9464 DATA 64,THERE ARE TOOLS AND BROKEN ROCK SCATTERED ABOUT.,61P,62D,60P,P,11
9465 DATA 65,A SPRING FLOWS OUT OF THE ROCK AND DOWNHILL TO THE WEST.,W,11P,W,66P,0
9466 DATA 66,THE STREAM DISAPPEARS UNDER THE WESTERN WALL.,W,65P,67P,68S,0
9467 DATA 67,A PASSAGE CARVED OUT OF THE ROCK.,66P,70D,72D,69D,0
9468 DATA 68,THE STREAM FLOWS THRU A NARROW CRACK IN THE FLOOR,W,66D,W,W,12
9469 DATA 69,BONES AND SKELETONS ARE EVERYWHERE.,W,F,71S,W,0
9470 DATA 70,SOME EMPTY BOXES LIE ABOUT.,W,W,W,67D,0
9471 DATA 71,THE WALLS ARE ROUGH HEWEN STONE.,W,72C,W,W,0
9472 DATA 72,A LARGE ROOM.,67D,73C,74C,71C,0
9473 DATA 73,DUST LIES THICK HERE.,W,W,W,72C,0
9474 DATA 74," ",72C,W,W,75P,0
9475 DATA 75,BONES AND STONES ARE SCATTERED ABOUT.,W,74P,W,W,13
9501 DATA 1,FOUR ORCS ARE GNAWING ON A GNOME.,7,6,1
9502 DATA 2,THREE SKELETONS RISE OUT OF COFFINS.,6,5,2
9503 DATA 3,A SAVAGE MINOTAUR RUSHES AT YOU!,11,11,3
9504 DATA 4,FIERCE CARRION EATING GHOULS RUSH AT YOU.,7,5,4
9505 DATA 5,A HUGE SPIDER DROPS FROM THE CEILING.,10,5,5
9506 DATA 6,A LARGE POISONOUS CENTIPEDE COMES OUT OF A CRACK.,6,2,6
9507 DATA 7,A BAND OF TROLLS IS MUNCHING ON BONES.,8,7,7
9508 DATA 8,A LARGE GREEN CENTIPEDE IS FEEDING OFF A CORPSE.,9,4,8
9509 DATA 9,A LARGE BUGBEAR RUSHES OUT TO CRUSH YOU!,9,8,9
9510 DATA 10,A GIANT RAT RUSHES OUT OF A HOLEIT LOOKS HUNGRY.,5,3,10
9511 DATA 11,SOMES DWARVES WITH PICKS AND SHOVELS ARE TUNNELING.,5,5,11
9512 DATA 12,A LARGE SNAKE COMES OUT OF THE WATER.,5,3,0
9513 DATA 13,A DELIGHTED OGRE THINKS HIS DINNER HAS ARRIVED!,8,7,13
9601 DATA 1,A SMALL WOODEN CHEST CONTAINS SOME GOLD.,150
9602 DATA 2,ONE SKELETON WEARS A SWORD WITH A JEWELED HILT.,90
9603 DATA 3,A HEAP OF SILVER AND GEMS AWAITSYOU.,230
9604 DATA 4,THERE ARE SOME COINS IN THE RUBBISH.,40
9605 DATA 5,THERE IS A LARGE SAPHIRE IN THE SPIDER'S BELLY.,200
9606 DATA 6,THERE IS A GOLD COIN IN A CRACK IN THE FLOOR.,1
9607 DATA 7,THERE IS A GOOD SET OF CHAIN MAIL IN THE CORNER.,125
9608 DATA 8,YOU FIND A SMALL PURPLE GEM.,60
9609 DATA 9,A BOX OF TRINKETS AND COPPER PIECES.,20
9610 DATA 10,IN THE RAT'S HOLE IS A SHINY BRACELET.,50
9611 DATA 11,THEY RUN AWAY AND LEAVE THEIR TOOLS BEHIND.,5
9612 DATA 12,NONE,0
9613 DATA 13,THERE IS A BOX OF COINS AND TRINKETS.,120