home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64games / gold (.txt) < prev    next >
Commodore BASIC  |  1988-11-27  |  35KB  |  1,080 lines
  1. 1 PRINT"[147]":GOSUB4000:GOSUB50000:GOSUB8000:GOSUB20000
  2. 2 GOSUB4500
  3. 3 DIMRC(NC),LR(65),AR(NC),X(19),C(NC),B(46)
  4. 10 POKE53280,0:POKE53281,0
  5. 24 REM TOP LEFT CASTLE
  6. 25 DATA 0,0,0,0,0,0,0,0,0,204,192,0,179,64,8,128,64,8,128,76,20,173,76,34
  7. 26 DATA 128,76,65,128,76,227,136,76,156,128,76,128,128,76,170,130,76,128
  8. 27 DATA 128,76,128,128,110,132,160,93,128,128,76,128,128,76,136,136,127,128
  9. 28 DATA 128,76,128
  10. 29 REM TOP RIGHT CASTLE
  11. 30 DATA0,128,0,0,128,0,0,128,0,1,64,170,2,32,214,2,160,130,2,32,130,2,32,178
  12. 31 DATA1,64,178,129,64,202,129,64,134,129,65,2,129,67,3,129,66,133,129,66,121
  13. 32 DATA171,106,1,213,86,181,129,66,1,129,66,1,255,126,17,161,66,1
  14. 33 REM BOTTEM LEFT CASTLE
  15. 34 DATA128,76,144,130,76,128,128,76,128,128,76,160,128,109,182,160,109,182
  16. 35 DATA128,127,255,128,64,0,136,64,0,128,64,0,128,64,0,130,64,0,128,64,0
  17. 36 DATA128,64,0,128,64,0,128,64,3,128,64,3,128,64,3,128,64,3,128,64,3,255,255
  18. 37 DATA255
  19. 38 REM BOTTEM RIGHT CASTLE
  20. 39 DATA145,66,1,137,66,65,133,66,1,131,66,1,219,110,129,219,106,1,255,250,1
  21. 40 DATA0,2,5,0,2,1,0,2,1,0,2,17,0,2,1,0,2,1,0,2,65,0,2,1,128,2,1,128,2,1
  22. 41 DATA128,2,1,128,2,1,128,2,1,255,255,255
  23. 105 REM SET ROOMS
  24. 110 POKE53280,0:POKE53281,0
  25. 120 LR=1:G=0:E=0:X=NC:VB=3:M=1
  26. 130 D=1:YS=101:YD=101:YM=101
  27. 140 FORI=0TO65:LR(I)=0:NEXT
  28. 150 FORI=1TOX:N=INT(3*RND(1)+1)
  29. 160 IFI=1THENN=3
  30. 170 FORJ=1TON
  31. 180 RC=INT(64*RND(1)+1):PRINTRC:PRINT"[145][145]"
  32. 190 IFLR(RC)<>0THEN180
  33. 200 LR(RC)=I
  34. 210 NEXTJ
  35. 220 RC(I)=INT(524287*RND(1)):C(I)=0
  36. 230 NEXTI:C(LR)=1
  37. 240 RC(1)=24576:FORI=1TO19:X(I)=0:NEXT
  38. 245 PRINT"[147]":GOSUB5000: REM HAZARDS
  39. 246 IFWR=0THENPOKESV+21,1:POKESV,97:POKESV+1,200
  40. 250 IF RND(1)<.01THENGOSUB2030:FORI=1TO20:LR(I)=INT(X*RND(1)+1):NEXT
  41. 260 IFRND(1)<.01THENGOSUB2030:FORI=1TO20:LR(I)=0:NEXT
  42. 268 IFX(1)*X(12)<>1THEN278
  43. 269 ZH=RND(1)
  44. 270 IFX(1)*X(12)=1ANDZH<.4THENGOSUB2020
  45. 271 IFX(1)*X(12)=1ANDZH>=.4THENGOTO278
  46. 272 IFMR>0THENMR=MR-1:YS=YS-(YS/4):GOTO278
  47. 273 IFMR=0ANDX(1)*X(12)=1THENYS=INT(.5*YS)
  48. 278 IFX(9)*X(11)<>1THEN290
  49. 279 GG=RND(1)
  50. 280 IFX(9)*X(11)=1ANDGG<.4THENGOSUB2040:GOSUB14300
  51. 281 IFX(9)*X(11)=1ANDGG>=.4THENGOTO290
  52. 282 IFGM>0THENGM=GM-1:YD=YD-(YD/4):GOSUB    14300:GOTO290
  53. 283 IFGM=0ANDX(9)*X(11)=1THENYD=INT(.5*YD)
  54. 290 YD=YD-D
  55. 295 YM=YM-D
  56. 300 YS=YS-D
  57. 301 IFYM<=0THENYS=0:YD=0
  58. 302 IFCS>1THEN306
  59. 304 IFYS<30ORYD<30ORYM<30THENCS=CS+1:FORDC=1TO500:NEXTDC:POKESV+21,0:GOSUB7000
  60. 306 IFYS>0ANDYD>0THEN319
  61. 310 IFYS<=0ORYD<=0THENPRINT"[147]YOU ARE NOW A PERMANENT RESIDENT HERE!":GOSUB17000
  62. 311 INPUT"PLAY AGAIN (Y/N)";D$
  63. 312 IFD$="Y"THEN105
  64. 314 IFD$<>"Y"THENEND
  65. 315 POKEV+21,0:GOSUB3000
  66. 319 GOSUB19000
  67. 320 PRINT"";:IFWR=0THENPOKESV+21,1:POKESV,97:POKESV+1,200
  68. 321 IFVB=3THENPRINT"[159][211] [211] [211] COMMANDS:R=RING:D=DESCEND:S=STATUS";
  69. 322 IFVB=3THENPRINT"T=TRADE:H=HELP:E=EXIT:O=OPTIONS:A=FIGHT [146]";
  70. 323 IFVB=2THENPRINT"[159][211] [211]   COMMANDS:R=RING:D=DESCEND:S=STATUS";
  71. 324 IFVB=2THENPRINT"T=TRADE:H=HELP:E=EXIT:O=OPTIONS:A=FIGHT [146]";
  72. 325 IFVB=1THENPRINT"[159][211]     COMMANDS:R=RING:D=DESCEND:S=STATUS";
  73. 326 IFVB=1THENPRINT"T=TRADE:H=HELP:E=EXIT:O=OPTIONS:A=FIGHT [146]";
  74. 327 PRINT"                                       ":PRINT"[145][145][145][145]"
  75. 328 REM  COVER UP SCREEN MESSAGES
  76. 329 FORDC=1TO10:POKE1389+DC,160:POKE1389+DC,160:NEXTDC
  77. 330 FOR DC=1TO8:POKE1409+DC,160:NEXTDC
  78. 331 FORDC=1TO15:POKE1345+DC,160:NEXTDC
  79. 332 FOR DC=1TO6:POKE1949+DC,160:NEXTDC
  80. 333 FORFL=40TO680STEP40:POKE1323+FL,160:POKE1324+FL,160
  81. 334 POKE55595+FL,1:POKE55596+FL,1:NEXTFL
  82. 335 GOSUB15000:FORDC=0TO520STEP40:POKE1383+DC,229:POKE1424+DC,231:NEXTDC
  83. 336 FORDC=1TO38:POKE1984+DC,227:NEXTDC
  84. 337 POKE1984,160:POKE2023,160
  85. 338 FORDC=1TO7:POKE1370+DC,160:NEXTDC
  86. 339 PRINT"YOU ARE IN CHAMBER";LR;"ON LEVEL";D
  87. 340 GOSUB350:GOTO410
  88. 345 REM ADJACENT ROOMS
  89. 350 FORI=1TOX:AR(I)=0:NEXT
  90. 360 FORI=1TO64
  91. 370 IFLR<>LR(I)THEN400
  92. 380 IFLR(I+1)<>0ANDLR(I+1)<>LRTHENAR(LR(I+1))=1
  93. 390 IFLR(I-1)<>0ANDLR(I-1)<>LRTHENAR(LR(I-1))=1
  94. 400 NEXT:RETURN
  95. 405 REM CONVERT
  96. 410 N=RC(LR)
  97. 420 FORI=1TO19:Q=INT(N/2):X(I)=2*(N/2-Q):N=Q:NEXT
  98. 425 REM VAMPIRES, ZOMBIES, GAS
  99. 430 IFX(2)=0THENMS=0:GOTO479
  100. 440 IFF=1THEN459
  101. 450 MS=D*(X(3)+2*X(4)+4*X(5)+LR):MD=D*(X(6)+2*X(7)+4*X(8)+LR)
  102. 459 GOSUB8300: REM VAMPIRE IN CHAMBER
  103. 460 POKE56035,4:POKE1763,22:POKE56075,4:POKE1803,1:POKE56115,4:POKE1843,13
  104. 461 POKE56155,4:POKE1883,16:POKE56195,4:POKE1923,9:POKE56235,4:POKE1963,18
  105. 462 POKE56275,4:POKE2003,5
  106. 463 YM=YM-1
  107. 478 REM POKE ZOMBIE -WHITE
  108. 479 IFX(1)*X(12)=1ANDPEEK(1763)=22THENGOSUB8500:GOTO482
  109. 480 IFX(1)*X(12)=1THENGOSUB8400:POKE1403,26:POKE1443,15:POKE1483,13:POKE1523,2
  110. 481 GOTO482
  111. 482 IFX(1)*X(12)=1THENPOKE1403,26:POKE1443,15:POKE1483,13:POKE1523,2
  112. 483 IFX(1)*X(12)=1THENPOKE1563,9:POKE1603,5
  113. 489 REM POKE GAS-LT GREEN
  114. 490 IFX(9)*X(11)=1THENPOKE55915,13:POKE1643,7:POKE55955,13:POKE1683,1
  115. 492 IFX(9)*X(11)=1THENPOKE55995,13:POKE1723,19
  116. 493 REM POKE GREEN GAS INTO ROOM
  117. 494 IFX(9)*X(11)=1THENGOSUB14000
  118. 495 REM BATS
  119. 496 IFRND(1)<(.1*D)THENGOSUB1200
  120. 497 REM SNAKES
  121. 498 IFRND(1)<(.1*D)THENGOSUB1500
  122. 499 REM TREASURE
  123. 500 IFX(10)<>1THENT=0:MG=0:GOTO 530
  124. 510 T=X(11)+2*X(12)+4*X(13)+1
  125. 521 MG=T*LR*D+1
  126. 525 REM TUNNELS AND TRAPDOORS
  127. 530 OW=X(15)+2*X(16)+4*X(17)+8*X(18)+1
  128. 540 IFOW>XTHENOW=1
  129. 550 IFOW=0THENOW=1
  130. 555 PRINT"                                       ":PRINT"[145][145]"
  131. 560 IFX(14)=0OROW=LRTHEN577
  132. 570 GOSUB15000:PRINT"[153]A ONE-WAY TUNNEL TO CHAMBER";OW;"[157] IS OPEN":GOTO578
  133. 577 PRINT
  134. 578 REMIFM=99THEN585
  135. 579 REM  POKE DESCEND-CYAN
  136. 580 IFX(19)*X(13)=1THENPOKE56036,3:POKE1764,4:POKE56076,3:POKE1804,5
  137. 581 IFX(19)*X(13)=1THENPOKE56116,3:POKE1844,19:POKE56156,3:POKE1884,3
  138. 582 IFX(19)*X(13)=1THENPOKE56196,3:POKE1924,5:POKE56236,3:POKE1964,14
  139. 583 IFX(19)*X(13)=1THENPOKE56276,3:POKE2004,4
  140. 584 REM INPUT MOVE
  141. 585 PRINT"                                       ":PRINT"[145][145]"
  142. 590 PRINT"[158]GOLD=[157]";MG;"FROM CHAMBER";
  143. 592 PRINTLR;
  144. 594 PRINT"YOU MAY GO TO"
  145. 595 PRINT"                                       ":PRINT"[145][145]"
  146. 600 FORI=1TOX
  147. 610 IFAR(I)=1ANDI<>LRTHENPRINTI;
  148. 611 NEXTI
  149. 615 FG=RND(1):FF=RND(1)
  150. 617 IFFF<.1THENGOSUB6200
  151. 620 IFFG<.1THENGOSUB6000
  152. 621 PRINT: PRINT"                                       ":PRINT"[145][145]"
  153. 622 PRINT"ENTER COMMAND, OR CHAMBER #";
  154. 625 INPUTMT$:IFMT$=""THENPRINT"[145][145]"       :GOTO622
  155. 626 IFMT$=""THENEND
  156. 630 IFMT$="L"THENPOKESV+21,0:WR=0:WC=2:GOTO1100
  157. 631 IFMT$="H"THENPOKESV+21,0:POKESV+21,0:WR=0:WC=2:GOTO40000
  158. 632 IFMT$="O"THENPOKESV+21,0:WR=0:WC=2:GOTO40110
  159. 633 IFMT$="S"THENPOKESV+21,0:WR=0:WC=2:GOTO7000
  160. 634 IFMT$="D"ANDX(19)*X(13)=1THEND=D+1:F=0:POKESV+21,0:WR=0:WC=2:GOTO140
  161. 636 IFMT$="R"ANDLR<>1THEN675
  162. 637 IFMT$="E"ANDLR=1THENPOKESV+21,0:GOSUB4100:WR=0:WC=2:GOTO7500
  163. 638 IFMT$="T"ANDVAL(MT$)=1THENPOKESV+21,0:WR=0:WC=2:GOTO720
  164. 639 IFMT$="A"ANDLR<>1THENM=0:GOSUB14500:GOTO800
  165. 640 IFFG<.1ANDMT$="G"THENG=G+10:GOTO320
  166. 641 IFFF<.1ANDMT$="F"THENFD=FD+2:GOTO320
  167. 645 IFVAL(MT$)=STHENGOSUB8100:GOTO650
  168. 646 IFMT$=""THENPRINT"[145][145]":GOTO622
  169. 647 M=VAL(MT$):MT$="E":IFM>NCTHENPRINT"[145][145]"         :GOTO622
  170. 648 IFM<=NCTHENGOSUB8100:GOTO650
  171. 649 IFMT$=""THENPRINT"[145][145]":GOTO622
  172. 650 PRINT"[158]YOUR TOTAL GOLD IS";G
  173. 655 GOSUB15000:FORGD=1TO500:NEXTGD
  174. 670 IFM<=XTHEN700
  175. 675 REM MAGIC RING
  176. 680 IFRND(1)<.4THENGOSUB2000:YS=INT(.5*YS):YD=INT(.5*YD):GOTO250
  177. 689 REM POKE CLEAR GAS FROM ROOM
  178. 690 IFX(9)*X(11)=1THENGOSUB14300
  179. 691 GOSUB2060:POKESV+21,0:POKESV+21,1:RC(LR)=266240:GOTO319
  180. 695 REM MOVE TRADE
  181. 700 IFPEEK(1643)=7THENGOSUB14300
  182. 705 IFMS>0THEN800
  183. 710 IFM<>0ORLR<>1THEN1020
  184. 720 PRINT"[147]EXPERIENCE";E;"SPEED";YD;"STRENGTH";YS:CS=0:INPUT"ADD SPEED";N
  185. 730 IFE-N<0THENPRINT"[159]NEED MORE EXPERIENCE":GOTO720
  186. 740 E=E-N:YD=YD+N:PRINT"EXPERIENCE LEFT";E
  187. 750 INPUT"ADD STRENGTH";N
  188. 760 IFE-N<0THENPRINT"[159]NEED MORE EXPERIENCE":GOTO750
  189. 770 E=E-N:YS=YS+N
  190. 780 GOTO7000
  191. 795 REM FIGHT
  192. 800 F=1
  193. 801 IFGSANDSB>0THENYH=INT(RND(1)*(YS+YS)):MH=INT(RND(1)*MS):SB=SB-1:GOTO814
  194. 802 IFNS>0THENYH=INT(RND(1)*(YS+(YS*.50))):MH=INT(RND(1)*MS):NS=NS-1:GOTO814
  195. 803 IFCR>0THENYH=INT(RND(1)*(YS+(YS*.25))):MH=INT(RND(1)*MS):CR=CR-1:GOTO814
  196. 813 YH=INT(RND(1)*YS):MH=INT(RND(1)*MS)
  197. 814 IFM>0THEN1000
  198. 830 IFYH>MSTHENYH=MS
  199. 840 IFMH>YSTHENMH=YS
  200. 850 IFRND(1)*YD>RND(1)*MDTHEN880
  201. 860 GOSUB2270:REM V. ATTACK
  202. 862 YS=YS-MH:MS=MS-INT(.5*YH)
  203. 880 GOSUB2240:MS=MS-YH:YS=YS-INT(.5*MH)
  204. 881 MS=MS-YH:YS=YS-INT(.5*MH)
  205. 900 E=E+2*YH
  206. 910 IFMS<=0THENGOSUB2260:RC(LR)=RC(LR)-2:REM V. KILLED
  207. 914 IFSB>0THENSB=SB-1
  208. 915 IFMS<=0THEN250
  209. 920 GOSUB2250:GOTO250:REM ALIVE
  210. 995 REM RUN
  211. 1000 IFRND(1)*YD>RND(1)*MDTHENGOSUB2280:GOTO1070:REM ESCAPED
  212. 1008 REM VAMPIRE BITE
  213. 1009 IFFD>0THENFD=FD-1:YS=YS-(INT(.2*MS))/2:VB=VB-1
  214. 1010 YS=YS-INT(.2*MS):VB=VB-1
  215. 1011 IFVB=0THEN PRINT"YOU ARE NOW A PERMANENT RESIDENT HERE":GOTO311
  216. 1012 GOTO1070
  217. 1015 REM TREASURE
  218. 1020 IFT=0THEN1070
  219. 1030 G1=INT(RND(1)*T*LR*D)+1
  220. 1039 REM ZOMBIE GOT GOLD
  221. 1040 IFX(1)*X(12)=1ANDRND(1)<.4THENG1=0
  222. 1049 G=G+G1:RC(LR)=RC(LR)-512
  223. 1052 YM=YM+(G1/2)
  224. 1060 E=E+G1
  225. 1065 REM MOVE
  226. 1070 IFAR(M)=1ORM=OWTHENLR=M:AR=0:E=E+D:B(LR)=1:GOTO250
  227. 1080 GOTO250
  228. 1095 REM PRINT ROOMS
  229. 1100 L1=LR:FORK=1TOX
  230. 1110 IFC(K)<>1THEN1170
  231. 1120 PRINT"[147]"K;"--;
  232. 1130 LR[178]K:[141]350
  233. 1140 [129]J[178]1[164]X
  234. 1150 [139]AR(J)[178]1[175]J[179][177]K[167][153]"";J;
  235. 1160 [130]J:[153]
  236. 1170 [130]K
  237. 1180 LR[178]L1:[141]5000:[137]319
  238. 1200 [143] BATS RIGHT CHAMBER
  239. 1201 [139]WC[178]1[167]1250
  240. 1204 [129]DC[178]1[164]10:[141]16500
  241. 1205 [151]1474,209:[151]1473,202:[151]1475,203
  242. 1206 [151]1474,209:[151]1473,213:[151]1475,201
  243. 1207 [151]1552,209:[151]1551,202:[151]1553,203
  244. 1208 [151]1552,209:[151]1551,213:[151]1553,201:[130]DC:[151]1474,160:[151]1473,160
  245. 1209 [151]1475,160:[151]1552,160:[151]1551,160:[151]1553,160
  246. 1210 [141]1300:[142]
  247. 1250 [143] BATS LEFT CHAMBER
  248. 1254 [129]DC[178]1[164]10:[141]16500
  249. 1255 [151]1494,209:[151]1493,202:[151]1495,203
  250. 1256 [151]1494,209:[151]1493,213:[151]1495,201
  251. 1257 [151]1572,209:[151]1571,202:[151]1573,203
  252. 1258 [151]1572,209:[151]1571,213:[151]1573,201:[130]DC:[151]1493,160:[151]1494,160
  253. 1259 [151]1495,160:[151]1571,160:[151]1572,160:[151]1573,160
  254. 1260 [141]1300:[142]
  255. 1300 [143] SNAKES BATS TAKE SUPPLIES
  256. 1301 [139]FD[177]0[167]FD[178]FD[171]1:[142]
  257. 1302 [139]SB[177]0[167]SB[178]SB[171]1:[142]
  258. 1303 [139]CR[177]0[167]CR[178]CR[171]1:[142]
  259. 1304 [139]NS[177]0[167]NS[178]NS[171]1:[142]
  260. 1305 [139]GM[177]0[167]GM[178]GM[171]1:[142]
  261. 1306 [139]MR[177]0[167]MR[178]MR[171]1:[142]
  262. 1307 [139]GS[177]0[167]GS[178]GS[171]1:[142]
  263. 1308 [142]
  264. 1500 [143] SNAKES
  265. 1501 [139]WC[178]1[167]1550
  266. 1504 [129]DC[178]1[164]3:[141]16700
  267. 1505 [151]1835,193:[151]1836,213:[151]1837,201:[151]1838,213:[151]1875,202
  268. 1506 [151]1876,203:[151]1877,202:[151]1878,203:[141]16700
  269. 1507 [151]1835,193:[151]1836,213:[151]1837,201:[151]1838,201:[151]1875,202
  270. 1508 [151]1876,203:[151]1878,203
  271. 1509 [151]1916,193:[151]1917,213:[151]1918,201:[151]1919,213:[151]1956,202:
  272. 1510 [141]16700:[151]1957,203:[151]1958,202:[151]1959,203
  273. 1511 [151]1916,193:[151]1917,213:[151]1918,201:[151]1919,201:[151]1956,202
  274. 1512 [151]1957,203:[151]1958,202:[151]1959,203
  275. 1513 [130]DC
  276. 1515 [151]1835,160:[151]1836,160:[151]1837,160:[151]1838,205:[151]1875,160
  277. 1516 [151]1876,160:[151]1877,160:[151]1878,160
  278. 1517 [151]1916,160:[151]1917,160:[151]1918,160:[151]1919,160:[151]1956,160
  279. 1518 [151]1957,160:[151]1958,160:[151]1959,160 :[141]1300:[151]X9,128:[142]
  280. 1550 [129]DC[178]1[164]3:[141]16700
  281. 1555 [151]1856,193:[151]1857,213:[151]1858,201:[151]1859,213:[151]1896,202
  282. 1556 [151]1897,203:[151]1898,202:[151]1899,203:[141]16700
  283. 1557 [151]1856,193:[151]1857,213:[151]1858,201:[151]1859,201:[151]1896,202
  284. 1558 [151]1897,203:[151]1899,203:[141]16700
  285. 1559 [151]1937,193:[151]1938,213:[151]1939,201:[151]1940,213:[151]1977,202
  286. 1560 [151]1978,203:[151]1979,202:[151]1980,203:[141]16700
  287. 1561 [151]1937,193:[151]1938,213:[151]1939,201:[151]1940,201:[151]1977,202
  288. 1562 [151]1978,203:[151]1979,202:[151]1980,203
  289. 1563 [130]DC
  290. 1565 [151]1856,160:[151]1857,160:[151]1858,160:[151]1859,205:[151]1896,160
  291. 1566 [151]1897,160:[151]1898,160:[151]1899,160
  292. 1567 [151]1937,160:[151]1938,160:[151]1939,160:[151]1940,160:[151]1977,160
  293. 1568 [151]1978,160:[151]1979,160:[151]1980,160
  294. 1600 [141]1300:[151]X9,128:[142]
  295. 1999 [143] BACKFIRE
  296. 2000 YM[178]YM[171]1:[151]1411,1:[151]1412,3:[151]1413,11:[151]1414,6:[151]1415,9:[151]1416,18
  297. 2001 [141]14600
  298. 2002 [151]1417,5:[151]1410,2:[142]
  299. 2010 [142]
  300. 2020 [143]  HURT BY ZOMBIE
  301. 2022 [151]1985,26:[151]1986,15:[151]1987,13:[151]1988,2:[151]1989,9:[151]1990,5
  302. 2025 [151]1991,32:[151]1992,8:[151]1993,21:[151]1994,18:[151]1995,20:[151]1996,32
  303. 2029 [151]1997,25:[151]1998,15:[151]1999,21:[142]
  304. 2030 [143] TREMOR
  305. 2032 [151]1950,20:[151]1951,18:[151]1952,5:[151]1953,13:[151]1954,15:[151]1955,18
  306. 2035 [142]
  307. 2040 [143]    GASSED
  308. 2042 [151]2006,25:[151]2007,15:[151]2008,21:[151]2009,39:[151]2010,22:[151]2011,5
  309. 2044 [151]2012,32:[151]2013,2:[151]2014,5:[151]2015,5:[151]2016,14:[151]2017,32
  310. 2046 [151]2018,7:[151]2019,1:[151]2020,19:[151]2021,19:[151]2022,5:[151]2023,4
  311. 2050 [142]
  312. 2060 [143]   RING WORKED
  313. 2061 [141]16500:[151]53280,1:[151]53281,1
  314. 2062 [151]1464,18:[151]1504,9:[151]1544,14:[151]1584,7:[151]1624,32:[151]1664,23
  315. 2063 [151]53280,0:[151]53281,0
  316. 2064 [151]1704,15:[151]1744,18:[151]1784,11:[151]1824,5:[151]1864,4:[142]
  317. 2240 [143] YOU ATTACK
  318. 2241 [151]53281,8
  319. 2242 [151]1390,25:[151]1391,15:[151]1392,21:[151]1393,32:[151]1394,1:[151]1395,20
  320. 2243 [151]53281,2
  321. 2244 [151]53281,0
  322. 2245 [151]1396,20:[151]1397,1:[151]1398,3:[151]1399,11:[142]
  323. 2250 [143]  VAMPIRE ALIVE
  324. 2251 [151]53281,8
  325. 2252 [151]1383,22:[151]1423,1:[151]1463,13:[151]1503,16:[151]1543,9:[151]1583,18
  326. 2254 [151]1623,5:[151]1663,32
  327. 2256 [151]53281,2
  328. 2257 [151]53281,0
  329. 2258 [151]1703,1:[151]1743,12:[151]1783,9:[151]1823,22:[151]1863,5:[142]
  330. 2260 [151]53281,8:[143]  VAMPIRE KILLED
  331. 2261 [151]SV[170]21,0:[151]SV[170]21,1
  332. 2262 [151]1383,22:[151]1423,1:[151]1463,13:[151]1503,16:[151]1543,9:[151]1583,18
  333. 2263 [151]53281,2
  334. 2264 [151]1623,5:[151]1663,32
  335. 2266 [151]1703,11:[151]1743,9:[151]1783,12:[151]1823,12:[151]1863,5:[151]1903,4
  336. 2267 [151]53281,0
  337. 2268 [142]
  338. 2270 [143]  VAMPIRE ATTACKS
  339. 2271 [151]53281,8
  340. 2272 [151]1346,22:[151]1347,1:[151]1348,13:[151]1349,16:[151]1350,9:[151]1351,18
  341. 2273 [151]53281,2
  342. 2274 [151]1352,5:[151]1353,32:[151]1354,1:[151]1355,20:[151]1356,20:[151]1357,1
  343. 2277 [151]53281,0
  344. 2278 [151]1358,3:[151]1359,11:[151]1360,19:[142]
  345. 2279 [143]   ESCAPED
  346. 2280 [151]1371,5:[151]1372,19:[151]1373,3:[151]1374,1:[151]1375,16:[151]1376,5
  347. 2285 [151]1377,4:[142]
  348. 3000 [151]SV[170]0,100:[151]SV[170]1,200:[142]
  349. 4000 SV[178]53248:[151]SV[170]21,15:[151]53281,0:[151]53280,0
  350. 4010 [151]2040,15
  351. 4020 [151]2041,14
  352. 4030 [151]2042,13
  353. 4040 [151]2043,11
  354. 4050 [151]SV[170]39,0:[151]SV[170]40,0:[151]SV[170]41,0:[151]SV[170]42,0
  355. 4080 [151]SV[170]23,15:[151]SV[170]29,15
  356. 4081 [129]N[178]0[164]62:[135]Q:[151]832[170]N,Q:[130]
  357. 4082 [129]N[178]0[164]62:[135]L:[151]896[170]N,L:[130]
  358. 4084 [129]N[178]0[164]62:[135]M:[151]960[170]N,M:[130]
  359. 4086 [129]N[178]0[164]62:[135]R:[151]704[170]N,R:[130]
  360. 4088 [151]SV[170]0,135:[151]SV[170]1,142
  361. 4090 [151]SV[170]6,183:[151]SV[170]7,142
  362. 4094 [151]SV[170]4,135:[151]SV[170]5,100
  363. 4096 [151]SV[170]2,183:[151]SV[170]3,100
  364. 4098 [142]
  365. 4100 [151]53280,6:[153]"LOAD"
  366. 4101 [140]:[151]53281,6
  367. 4105 [153]"YOU CAN RELAX NOW, FOR YOU ARE SAFLEY   STANDING OUTSIDE THE CASTLE";
  368. 4110 [153]" AHEAD OF YOUIS A SLEEZY LOOKING CHARACTER, AND HE   ASKS:"
  369. 4120 [153]"WANT TO BUY SOME SUPPLIES";
  370. 4125 [133]" (Y/N)";AW$
  371. 4130 [139]AW$[178]"N"[167][142]
  372. 4135 [139]AW$[179][177]"Y"[167]4120
  373. 4140 [153]"LOADI HAVE SOME:"
  374. 4141 [153]"  ITEM                    COST":[153]
  375. 4142 [153]"WOODEN STAKES           5 GOLD PIECES"
  376. 4143 [153]"GUNS                   20 GOLD PIECES"
  377. 4144 [153]"BULLETS                 5 GOLD PIECES"
  378. 4145 [153]"CROSSES                 2 GOLD PIECES"
  379. 4146 [153]"FOOD                    5 GOLD PIECES"
  380. 4147 [153]"GAS MASKS              10 GOLD PIECES"
  381. 4149 [153]"MIRRORS                10 GOLD PIECES"
  382. 4155 [153]
  383. 4160 [153]"YOU HAVE";G;"PIECES OF GOLD:"
  384. 4164 [153]"          TO BUY        ENTER":[153]
  385. 4165 [153]"          STAKES         1"
  386. 4170 [153]"          GUNS           2"
  387. 4175 [153]"          BULLETS        3"
  388. 4180 [153]"          CROSSES        4"
  389. 4181 [153]"          FOOD           5"
  390. 4182 [153]"          GAS MASK       6"
  391. 4185 [153]"          MIRRORS        7";
  392. 4186 [133]BW
  393. 4190 [139]BW[178]4[167]4230
  394. 4191 [139]BW[178]5[167]4240
  395. 4192 [139]BW[178]1[167]4200
  396. 4193 [139]BW[178]6[167]4250
  397. 4194 [139]BW[178]2[167]4210
  398. 4195 [139]BW[178]7[167]4270
  399. 4196 [139]BW[178]3[167]4220
  400. 4198 [139]BW[177]7[167]4140
  401. 4199 [139]BW[179]1[167]4140
  402. 4200 [153]"LOADHOW MANY STAKES DO YOU WANT";
  403. 4202 [133]NS
  404. 4203 [139]NS[177]G[173]5[167][153]"NOT ENOUGH GOLD!":[137]4200
  405. 4204 G[178]G[171](NS[172]5):[153]"YOU HAVE";G;"PIECES OF GOLD LEFT, BUY"
  406. 4205 [153]"MORE WEAPONS (Y/N)";
  407. 4206 [133]MW$:[139]MW$[178]"N"[167]7000
  408. 4208 [139]MW$[178]"Y"[167]4140
  409. 4209 [139]MW$[179][177]"Y"[167]4206
  410. 4210 [153]"LOADHOW MANY GUNS DO YOU WANT";
  411. 4212 [133]GS
  412. 4213 [139]GS[177]G[173]20[167] [153]"NOT ENOUGH GOLD!":[137]4210
  413. 4214 G[178]G[171](GS[172]20):[153]"YOU HAVE";G;"PIECES OF GOLD LEFT, BUY"
  414. 4215 [153]"MORE WEAPONS (Y/N)";
  415. 4216 [133]MW$:[139]MW$[178]"N"[167]7000
  416. 4218 [139]MW$[178]"Y"[167]4140
  417. 4219 [139]MW$[179][177]"Y"[167]4216
  418. 4220 [153]"LOADHOW MANY BULLETS DO YOU WANT";
  419. 4222 [133]SB
  420. 4223 [139]SB[177]G[173]5 [167] [153]"NOT ENOUGH GOLD!":[137]4220
  421. 4224 G[178]G[171](SB[172]5):[153]"YOU HAVE";G;"PIECES OF GOLD LEFT, BUY"
  422. 4225 [153]"MORE WEAPONS (Y/N)";
  423. 4226 [133]MW$:[139]MW$[178]"N"[167]7000
  424. 4228 [139]MW$[178]"Y"[167]4140
  425. 4229 [139]MW$[179][177]"Y"[167]4226
  426. 4230 [153]"LOADHOW MANY CROSSES DO YOU WANT";
  427. 4232 [133]CR
  428. 4233 [139]CR[177]G[173]2[167][153]"NOT ENOUGH GOLD!":[137]4230
  429. 4234 G[178]G[171](CR[172]2):[153]"YOU HAVE";G;"PIECES OF GOLD LEFT, BUY"
  430. 4235 [153]"MORE WEAPONS (Y/N)";
  431. 4236 [133]MW$:[139]MW$[178]"N"[167]7000
  432. 4238 [139]MW$[178]"Y"[167]4140
  433. 4239 [139]MW$[179][177]"Y"[167]4236
  434. 4240 [153]"LOADHOW MUCH FOOD DO YOU WANT";
  435. 4242 [133]FD
  436. 4243 [139]FD[177]G[173]5[167][153]"NOT ENOUGH GOLD!":[137]4240
  437. 4244 G[178]G[171](FD[172]5):[153]"YOU HAVE";G;"PIECES OF GOLD LEFT, BUY"
  438. 4245 [153]"MORE WEAPONS (Y/N)";
  439. 4246 [133]MW$:[139]MW$[178]"N"[167]7000
  440. 4248 [139]MW$[178]"Y"[167]4140
  441. 4249 [139]MW$[179][177]"Y"[167]4236
  442. 4250 [153]"LOADHOW MANY GAS MASKS DO YOU WANT";
  443. 4252 [133]GM
  444. 4253 [139]GM[177]G[173]10[167] [153]"NOT ENOUGH GOLD!":[137]4250
  445. 4254 G[178]G[171](GM[172]10):[153]"YOU HAVE";G;"PIECES OF GOLD LEFT, BUY"
  446. 4255 [153]"MORE WEAPONS (Y/N)";
  447. 4256 [133]MW$:[139]MW$[178]"N"[167]7000
  448. 4258 [139]MW$[178]"Y"[167]4140
  449. 4259 [139]MW$[179][177]"Y"[167]4236
  450. 4270 [153]"LOADHOW MANY MIRRORS DO YOU WANT";
  451. 4272 [133]MR
  452. 4273 [139]MR[177]G[173]5[167][153]"NOT ENOUGH GOLD!":[137]4260
  453. 4274 G[178]G[171](MR[172]5):[153]"YOU HAVE";G;"PIECES OF GOLD LEFT, BUY"
  454. 4275 [153]"MORE WEAPONS (Y/N)";
  455. 4276 [133]MW$:[139]MW$[178]"N"[167]7000
  456. 4278 [139]MW$[178]"Y"[167]4140
  457. 4279 [139]MW$[179][177]"Y"[167]4236
  458. 4500 [133]"LOADHOW MANY CHAMBERS PER LEVEL (5-29)";NC
  459. 4501 [139]NC[179]2[167][153]"ONON":[137]4500
  460. 4503 [139]NC[178]0[167][153]"ONON":[137]4500
  461. 4505 [139]NC[177]29[167][153]"ONON":[137]4500
  462. 4509 [139]NC[177]10[167][153]"WAIT ONE MINUTE PLEASE "
  463. 4510 [139]NC[177]10[167][153]"WHILE I CREATE CASTLE"
  464. 4520 [142]
  465. 5000 [143] DRAW CATACOMBS
  466. 5002 [141]15000:[129]DC[178]1[164]39:[151]1304[170]DC,228:[151]1984[170]DC,227:[130]DC:[151]1984,160
  467. 5005 [151]2023,224:[151]1304,224:[151]1343,224
  468. 5010 [129]DC[178]40[164]640[169]40:[151]1304[170]DC,231:[151]1343[170]DC,229:[130]DC
  469. 5015 [129]DC[178]40[164]560[169]40:[151]1345[170]DC,224:[151]1382[170]DC,224:[130]DC
  470. 5020 [151]1345,205:[151]1386,205:[151]1382,206:[151]1421,206:[151]1945,206
  471. 5022 [141]15000:[151]1906,206:[151]1982,205:[151]1941,205
  472. 5025 [129]DC[178]1[164]36:[151]1345[170]DC,224:[151]1945[170]DC,224:[130]DC
  473. 5030 [129]DC[178]1[164]34:[151]1386[170]DC,224:[151]1906[170]DC,224:[130]DC
  474. 5035 [141]15000:[129]DC[178]40[164]480[169]40:[151]1386[170]DC,231:[151]1421[170]DC,229:[130]DC
  475. 5040 [129]DC[178]40[164]640[169]40:[151]1322[170]DC,229:[151]1325[170]DC,231:[130]DC
  476. 5050 [151]1361,206:[151]1366,205:[151]1400,206:[151]1407,205
  477. 5060 [151]1961,205:[151]1966,206:[151]1920,205:[151]1927,206
  478. 5065 [129] DC[178]40[164]480[169]40:[151]1401[170]DC,160:[151]1406[170]DC,160:[130]DC
  479. 5070 [129] DC[178]40[164]480[169]40:[151]1400[170]DC,229:[151]1407[170]DC,231:[130]DC
  480. 5100 [141]15000:[151]55699,15:[151]1427,228:[151]55711,15:[151]1439,228
  481. 5102 [151]55720,15:[151]1448,228:[151]55732,15:[151]1460,228
  482. 5104 [151]56139,15:[151]1867,227:[151]56151,15:[151]1879,227
  483. 5106 [151]56160,15:[151]1888,227:[151]56172,15:[151]1900,227
  484. 5110 [129]DC[178]1[164]11:[151]55699[170]DC,15:[151]1427[170]DC,160:[130]DC
  485. 5112 [129]DC[178]1[164]11:[151]55720[170]DC,15:[151]1448[170]DC,160:[130]DC
  486. 5114 [129]DC[178]1[164]11:[151]56139[170]DC,15:[151]1867[170]DC,160:[130]DC
  487. 5115 [141]15000:[129]DC[178]1[164]11:[151]56160[170]DC,15:[151]1888[170]DC,160:[130]DC
  488. 5116 [129]DC[178]40[164]400[169]40:[151]55699[170]DC,15:[151]1427[170]DC,231:[130]DC
  489. 5118 [129]DC[178]40[164]400[169]40:[151]55711[170]DC,15:[151]1439[170]DC,229:[130]DC
  490. 5120 [129]DC[178]40[164]400[169]40:[151]55720[170]DC,15:[151]1448[170]DC,231:[130]DC
  491. 5122 [141]15000: [129]DC[178]40[164]400[169]40:[151]55732[170]DC,15:[151]1460[170]DC,229:[130]DCXTDC
  492. 5130 [151]55740,15:[151]1468,205
  493. 5132 [151]55781,15:[151]1509,205
  494. 5134 [151]55863,12:[151]1591,205
  495. 5136 [151]55987,12:[151]1715,205
  496. 5138 [151]56069,15:[151]1797,205
  497. 5140 [151]56110,15:[151]1838,205
  498. 5142 [151]55761,15:[151]1489,205
  499. 5144 [151]55802,15:[151]1530,205
  500. 5146 [151]55884,12:[151]1612,205
  501. 5148 [151]56131,15:[151]1859,205
  502. 5150 [151]56090,15:[151]1818,205
  503. 5152 [151]56008,12:[151]1736,205
  504. 5160 [151]55750,15:[151]1478,206
  505. 5162 [151]55771,15:[151]1499,206
  506. 5164 [151]55888,12:[151]1616,206
  507. 5166 [151]55983,12:[151]1711,206
  508. 5168 [151]55867,12:[151]1595,206
  509. 5170 [151]56004,12:[151]1732,206
  510. 5172 [151]56082,15:[151]1810,206
  511. 5174 [151]56121,15:[151]1849,206
  512. 5175 [141]15000
  513. 5176 [151]56100,15:[151]1828,206
  514. 5178 [151]56061,15:[151]1789,206
  515. 5180 [129]DC[178]1[164]9:[151]56100[170]DC,15:[151]1828[170]DC,160:[130]DC
  516. 5182 [129]DC[178]1[164]9:[151]56121[170]DC,15:[151]1849[170]DC,160:[130]DC
  517. 5184 [129]DC[178]1[164]9:[151]55761[170]DC,15:[151]1489[170]DC,160:[130]DC
  518. 5186 [129]DC[178]1[164]9:[151]55740[170]DC,15:[151]1468[170]DC,160:[130]DC
  519. 5188 [141]15000:[129]DC[178]40[164]320[169]40:[151]55740[170]DC,15:[151]1468[170]DC,160:[130]DC
  520. 5190 [129]DC[178]40[164]320[169]40:[151]55750[170]DC,15:[151]1478[170]DC,160:[130]DC
  521. 5192 [129]DC[178]40[164]320[169]40:[151]55761[170]DC,15:[151]1489[170]DC,160:[130]DC
  522. 5194 [129]DC[178]40[164]320[169]40:[151]55771[170]DC,15:[151]1499[170]DC,160:[130]DC
  523. 5196 [151]55810,15:[151]1538,206
  524. 5198 [151]55789,15:[151]1517,206
  525. 5200 [151]55822,15:[151]1550,228
  526. 5202 [151]55828,15:[151]1556,228
  527. 5203 [141]15000
  528. 5204 [151]56028,15:[151]1756,227
  529. 5206 [151]56049,15:[151]1777,227
  530. 5208 [151]56043,15:[151]1771,227
  531. 5210 [151]56022,15:[151]1750,227
  532. 5212 [151]55843,15:[151]1571,228
  533. 5214 [151]55849,15:[151]1577,228
  534. 5216 [129]DC[178]0[164]200[169]40:[151]55821[170]DC,15:[151]1549[170]DC,231:[130]DC
  535. 5218 [129]DC[178]0[164]200[169]40:[151]55842[170]DC,15:[151]1570[170]DC,231:[130]DC
  536. 5220 [141]15000:[129]DC[178]0[164]200[169]40:[151]55829[170]DC,15:[151]1557[170]DC,229:[130]DC
  537. 5222 [129]DC[178]0[164]200[169]40:[151]55850[170]DC,15:[151]1578[170]DC,229:[130]DC
  538. 5224 [129]DC[178]0[164]6:[151]55782[170]DC,15:[151]1510[170]DC,160:[130]DC
  539. 5226 [129]DC[178]0[164]6:[151]55803[170]DC,15:[151]1531[170]DC,160:[130]DC
  540. 5228 [129]DC[178]0[164]6:[151]56062[170]DC,15:[151]1790[170]DC,160:[130]DC
  541. 5230 [129]DC[178]0[164]6:[151]56083[170]DC,15:[151]1811[170]DC,160:[130]DC
  542. 5240 [129]DC[178]0[164]120[169]40:[151]55862[170]DC,12:[151]1590[170]DC,231:[130]DC
  543. 5242 [141]15000:[129]DC[178]0[164]120[169]40:[151]55883[170]DC,12 :[151]1611[170]DC,231:[130]DC
  544. 5244 [129]DC[178]0[164]120[169]40:[151]55889[170]DC,12:[151]1617[170]DC,229:[130]DC
  545. 5246 [129]DC[178]0[164]120[169]40:[151]55868[170]DC,12:[151]1596[170]DC,229:[130]DC
  546. 5248 [129]DC[178]0[164]4:[151]55823[170]DC,15:[151]1551[170]DC,160:[130]DC
  547. 5250 [129]DC[178]0[164]4:[151]55844[170]DC,15:[151]1572[170]DC,160:[130]DC
  548. 5252 [129]DC[178]0[164]4:[151]56044[170]DC,15:[151]1772[170]DC,160:[130]DC
  549. 5254 [129]DC[178]0[164]4:[151]56023[170]DC,15:[151]1751[170]DC,160:[130]DC
  550. 5256 [129]DC[178]1[164]3:[151]55863[170]DC,12:[151]1591[170]DC,160:[130]DC
  551. 5258 [141]15000:[129]DC[178]1[164]3:[151]55884[170]DC,12:[151]1612[170]DC,160:[130]DC
  552. 5260 [129]DC[178]1[164]3:[151]55983[170]DC,12:[151]1711[170]DC,160:[130]DC
  553. 5262 [129]DC[178]1[164]3:[151]56004[170]DC,12:[151]1732[170]DC,160:[130]DC
  554. 5266 [151]55903,12:[151]1631,231:[151]55943,12:[151]1671,231
  555. 5268 [151]55924,12:[151]1652,231:[151]55964,12:[151]1692,231
  556. 5270 [151]55928,12:[151]1656,229:[151]55968,12:[151]1696,229
  557. 5272 [151]55907,12:[151]1635,229:[151]55947,12:[151]1675,229
  558. 5999 [142]
  559. 6000 [143] FLASH BONUS GOLD
  560. 6005 [129]DC[178]1[164]10
  561. 6010 [151]1984,7:[151]1985,15:[151]1986,12:[151]1987,4
  562. 6020 [151]1984,160:[151]1985,227:[151]1986,227:[151]1987,227:[130]DC:[142]
  563. 6200 [143] FLASH FOOD
  564. 6205 [129]DC[178]1[164]10
  565. 6210 [151]2020,6:[151]2021,15:[151]2022,15:[151]2023,4
  566. 6220 [151]2020,227:[151]2021,227:[151]2022,227:[151]2023,160:[130]DC:[142]
  567. 7000 [151]53281,0
  568. 7010 [153]"LOADYOUR STATUS             YOUR SUPPLIES":[153]:[151]53280,0
  569. 7050 [153]"YOUR EXPERIENCE IS";E;[163]24)   "GUNS       ";GS
  570. 7100 [153]"YOUR STRENGTH IS  ";[181](YS);[163]24)  "BULLETS    ";SB
  571. 7150 [153]"YOUR SPEED IS     ";[181](YD);[163]24)  "CROSSES    ";CR
  572. 7200 [153]"YOUR MORALE IS    ";[181](YM);[163]24)  "WOOD STAKES";NS
  573. 7250 [153]"YOUR TOTAL GOLD IS";G ;[163]24)  "GAS MASKS  ";GM
  574. 7265 [153][163]24)"MIRRORS    ";MR
  575. 7270 [153][163]24)"FOOD       ";FD
  576. 7275 [153]"VAMPIRE'S STATUS"
  577. 7280 [153]"VAMPIRE'S SPEED";MD
  578. 7282 [153]"VAMPIRE'S STRENGTH";MS:[153]
  579. 7300 [153]"ENTER"
  580. 7301 [153]"1     TO CONTINUE"
  581. 7302 [153]"2     FOR HELP"
  582. 7303 [153]"3     TO BUY WEAPONS AND MATERIALS"
  583. 7304 [153]"      (CHAMBER 1 ONLY)"
  584. 7306 [153]"4     TO TRADE EXPERIENCE  1"
  585. 7307 [153]"      (CHAMBER 1 ONLY)"
  586. 7309 [133]"ONCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";ES$
  587. 7310 [139]ES$[178]""[167][153]"ONON":[137]7305
  588. 7312 [139]ES$[178]"1"[167]7490
  589. 7314 [139]ES$[178]"2"[167]40000
  590. 7316 [139]ES$[178]"3"[175]LR[178]1[167]4100
  591. 7318 [139]ES$[178]"4"[175]LR[178]1[167]720
  592. 7320 [139]ES$[179][177]"4"[167][153]"ONON":[137]7306
  593. 7490 [153]"LOAD":[141]5000:[137]320
  594. 7500 [153]"YOU FOUND";G;"PIECES OF GOLD."
  595. 7510 [133]"PLAY AGAIN (Y/N)";E$
  596. 7520 [139]E$[178]"Y"[167][151]53281,0:[137]105
  597. 7530 [139]E$[178]"N"[167][128]
  598. 7540 [139]E$[179][177]"N"[167][153]"ONON":[137]7510
  599. 8000 [143] SPRITE SET-UP AND STAGE AREA
  600. 8010 [143] PLAYER DATA
  601. 8020 [131]0,0,0,0,20,0,0,85,0
  602. 8022 [131]0,233,0,3,165,0,0,101,0
  603. 8024 [131]0,168,0,0,40,0,0,40,0
  604. 8026 [131]128,252,0,179,255,0,12,252,192
  605. 8028 [131]0,252,48,0,252,8,0,84,0
  606. 8030 [131]0,204,0,0,204,0,0,195,0
  607. 8031 [131]0,192,192,0,192,16,1,64,64
  608. 8032 [143] VAMPIRE DATA
  609. 8033 [131]0,5,0,0,21,64,0,26,192,0,22,128,0,22,160,0,6,64,0,90,130,0,22,6,0,21
  610. 8034 [131]86,0,85,80,1,85,64,5,85,64,21,85,64,85,69,64,85,15,192,84,4,64,80,4,64
  611. 8035 [131]64,4,64,0,16,64,0,192,64,0,48,240
  612. 8036 [143] ZOMBIE DATA
  613. 8037 [131]1,64,0,5,80,0,5,224,0,6,160,0,5,168,0,5,160,0,6,128,0,2,160,0,2
  614. 8038 [131]128,0,3,240,0,3,255,250,3,255,250,3,240,0,3,240,0,1,80,0
  615. 8039 [131]3,240,0,3,48,0,12,48,0,48,48,0,64,48,0,16,20,0
  616. 8050 SV[178]53248:[151]SV[170]21,0:[151]SV[170]23,7:[151]SV[170]29,0
  617. 8051 [151]SV[170]28,7:[143] MULTICOLOR
  618. 8052 [151]2040,13:[143]  0 FROM 13 BLK
  619. 8053 [151]2041,14:[143]  1 FROM 14 BLK
  620. 8054 [151]2042,15:[143]  2 FROM 15 BLK
  621. 8055 [151]SV[170]37,0:[151]SV[170]39,10:[151]SV[170]38,6:[151]SV[170]40,2:[151]SV[170]41,13
  622. 8056 [129]ND[178]0[164]62:[135]PY:[151]832[170]ND,PY:[130]
  623. 8057 [129]ND[178]0[164]62:[135]PV:[151]896[170]ND,PV:[130]
  624. 8058 [129]ND[178]0[164]62:[135]PZ:[151]960[170]ND,PZ:[130]
  625. 8060 [142]
  626. 8100 [151]SV[170]21,1:[143] ENABLE 0 -- PLAYER
  627. 8102 WR[178]WR[170]1
  628. 8103 [139]WR[178]2[167]WR[178]0:[137]8200
  629. 8104 [143] LEFT ROOM
  630. 8105 WC[178]1:[129]MP[178]1[164]20[169]2:[141]16000
  631. 8125 [151]SV,97:[151]SV[170]1,200[171]MP:[151]SV,96:[151]SV[170]1,199[171]MP
  632. 8130 [130]MP:[151]SV[170]23,0:[129]MP[178]21[164]35
  633. 8132 [141]16000
  634. 8135 [151]SV,97:[151]SV[170]1,200[171]MP:[151]SV,96:[151]SV[170]1,199[171]MP:[130]MP:[151]SV[170]21,0
  635. 8139 [129]MP[178]1[164]20:[141]8600:[130]MP:[151]SV,255:[151]SV[170]1,165:[151]SV[170]21,1
  636. 8140 [129]MP[178]1[164]14:[151]SV,255:[151]SV[170]1,165[170]MP:[151]SV,254:[141]16000
  637. 8145 [151]SV[170]1,165[170]MP:[130]MP:[129]MP[178]22[164]36[169]2:[151]SV[170]23,7:[151]SV,255
  638. 8147 [141]16000
  639. 8150 [151]SV[170]1,165[170]MP:[151]SV,254:[151]SV[170]1,165[170]MP:[130]MP
  640. 8190 [142]
  641. 8200 [143] RIGHT ROOM
  642. 8201 WC[178]2
  643. 8202 [129]MP[178]1[164]20[169]2:[141]16000
  644. 8205 [151]SV,255:[151]SV[170]1,200[171]MP:[151]SV,254:[151]SV[170]1,199[171]MP
  645. 8210 [130]MP:[151]SV[170]23,0:[129]MP[178]21[164]35
  646. 8212 [141]16000
  647. 8215 [151]SV,255:[151]SV[170]1,200[171]MP:[151]SV,254:[151]SV[170]1,199[171]MP:[130]MP:[151]SV[170]21,0
  648. 8220 [129]MP[178]1[164]20:[141]8600:[130]MP:[151]SV,97:[151]SV[170]1,165:[151]SV[170]21,1
  649. 8225 [129]MP[178]1[164]14:[151]SV,97:[151]SV[170]1,165[170]MP:[151]SV,96:[151]SV[170]1,165[170]MP
  650. 8227 [141]16000
  651. 8230 [130]MP:[151]SV[170]23,7:[129]MP[178]22[164]36[169]2:[151]SV,97
  652. 8232 [141]16000
  653. 8235 [151]SV[170]1,165[170]MP:[151]SV,96:[151]SV[170]1,165[170]MP:[130]MP:[142]
  654. 8300 [143] VAMPIRE IN CHAMBER
  655. 8305 [139]WC[178]1[167]8350
  656. 8310 [151]SV[170]21,3:[151]SV[170]2,70:[151]SV[170]3,190:[142]
  657. 8350 [143] VAMPIRE IN RIGHT CHAMBER
  658. 8360 [151]SV[170]21,3:[151]SV[170]2,225:[151]SV[170]3,190:[142]
  659. 8400 [143] ZOMBIE IN CHAMBER
  660. 8405 [139]WC[178]1[167]8450
  661. 8410 [151]SV[170]21,5:[151]SV[170]4,60 :[151]SV[170]5,200:[142]
  662. 8450 [143] ZOMBIE IN RIGHT CHAMBER
  663. 8460 [151]SV[170]21,5:[151]SV[170]4,205:[151]SV[170]5,200:[142]
  664. 8500 [143] VAMPIRE AND ZOMBIE
  665. 8505 [139]WC[178]1[167]8550
  666. 8510 [151]SV[170]21,7:[151]SV[170]2,72:[151]SV[170]3,185:[151]SV[170]4,55:[151]SV[170]5,200:[142]
  667. 8550 [151]SV[170]21,7:[151]SV[170]2,225:[151]SV[170]3,182:[151]SV[170]4,205:[151]SV[170]5,200:[142]
  668. 8600 [129]DC[178]1[164]10:[130]DC:[141]16000:[142]
  669. 14000 [143] POKE GAS INTO ROOM
  670. 14010 [141]15000:[129]PG[178]0[164]80:[151]56296[171]PG,13:[130]PG:YM[178]YM[171]1
  671. 14020 [141]15000:[129]PG[178]0[164]80:[151]56216[171]PG,13:[130]PG
  672. 14030 [141]15000:[129]PG[178]0[164]80:[151]56136[171]PG,13:[130]PG
  673. 14040 [141]15000:[129]PG[178]0[164]80:[151]56056[171]PG,13:[130]PG
  674. 14200 [142]
  675. 14300 [141]15000:[129]PG[178]0[164]2:[151]55976[170]PG,1:[151]55979[170]PG,15:[130]PG
  676. 14302 [129]PG[178]0[164]6:[151]55982[170]PG,12:[130]PG
  677. 14304 [129]PG[178]0[164]2:[151]55989[170]PG,15:[130]PG:
  678. 14306 [141]15000:[129]PG[178]0[164]7:[151]55992[170]PG,1:[130]PG
  679. 14308 [129]PG[178]0[164]2:[151]56000[170]PG,15:[130]PG
  680. 14310 [129]PG[178]0[164]6:[151]56003[170]PG,12:[130]PG
  681. 14312 [141]15000:[129]PG[178]0[164]2:[151]56010[170]PG,15:[151]56013[170]PG,1:[130]PG
  682. 14314 [129]PG[178]0[164]2:[151]56016[170]PG,1:[130]PG
  683. 14316 [129]PG[178]0[164]12:[151]56019[170]PG,15:[130]PG
  684. 14318 [141]15000:[129]PG[178]0[164]7:[151]56032[170]PG,1:[130]PG
  685. 14320 [129]PG[178]0[164]12:[151]56040[170]PG,15:[130]PG
  686. 14322 [129]PG[178]0[164]5:[151]56053[170]PG,1:[130]PG
  687. 14324 [129]PG[178]0[164]12:[151]56059[170]PG,15:[130]PG
  688. 14326 [129]PG[178]0[164]7:[151]56072[170]PG,1:[130]PG
  689. 14328 [141]15000:[129]PG[178]0[164]12:[151]56080[170]PG,15:[130]PG
  690. 14330 [129]PG[178]0[164]5:[151]56093[170]PG,1:[130]PG
  691. 14332 [129]PG[178]0[164]12:[151]56099[170]PG,15: [130]PG
  692. 14334 [141]15000:[129]PG[178]0[164]7:[151]56112[170]PG,1:[130]PG
  693. 14336 [129]PG[178]0[164]12:[151]56120[170]PG,15:[130]PG
  694. 14338 [129]PG[178]0[164]5:[151]56133[170]PG,1:[130]PG
  695. 14340 [141]15000:[129]PG[178]0[164]12:[151]56139[170]PG,15: [130]PG
  696. 14342 [129]PG[178]0[164]7:[151]56152[170]PG,1:[130]PG
  697. 14344 [129]PG[178]0[164]12:[151]56160[170]PG,15:[130]PG
  698. 14346 [141]15000:[129]PG[178]0[164]123:[151]56173[170]PG,1:[130]PG:[142]
  699. 14500 V1[178]54296:X9[178]54276:ZX[178]54277:HH[178]54273:LL[178]54272:PP[178]54275:PQ[178]54274
  700. 14510 [151]X9,128
  701. 14520 [151]V1,15:[151]X9,129:[151]ZX,16
  702. 14521 FV[178]FV[170]1:CF[178]CF[170]1
  703. 14522 [151]53281,8
  704. 14525 [139]FV[178]1[167][151]HH,1:[151]LL,187
  705. 14526 [139]FV[178]2[167][151]HH,17:[151]LL,37
  706. 14547 [151]53281,2
  707. 14548 [139]CF[178]10[167][151]X9,128:CF[178]0:[142]
  708. 14549 [139]FV[178]2[167]FV[178]0
  709. 14550 [137]14500
  710. 14600 V1[178]54296:X9[178]54276:ZX[178]54277:HH[178]54273:LL[178]54272:PP[178]54275:PQ[178]54274
  711. 14610 [151]X9,32
  712. 14620 [151]V1,15:[151]X9,65:[151]ZX,11
  713. 14621 FV[178]FV[170]1
  714. 14622 [151]53281,3:[129]DC[178]1[164]50:[130]
  715. 14625 [139]FV[178]1[167][151]HH,1:[151]LL,18
  716. 14647 [151]53281,4:[129]DC[178]1[164]50:[130]DC
  717. 14648 FV[178]0:[151]53281,0:[142]
  718. 15000 V1[178]54296:X9[178]54276:ZX[178]54277:HH[178]54273:LL[178]54272:PP[178]54275:PQ[178]54274
  719. 15002 W2[178]54290:A2[178]54291:H2[178]54287:L2[178]54286:P3[178]54289:P4[178]54288
  720. 15010 [151]W2,64:[151]X9,64
  721. 15020 [151]V1,15:[151]X9,65:[151]ZX,110:[151]PP,15:[151]PQ,15
  722. 15022 [151]W2,65:[151]A2,110:[151]P3,1:[151]P4,1
  723. 15040 [139]PN[178]0[167][151]HH,4:[151]LL,73
  724. 15041 [139]PN[178]1[167][151]HH,5:[151]LL,25
  725. 15042 [139]PN[178]2[167][151]HH,3:[151]LL,155
  726. 15043 [139]PN[178]3[167][151]HH,3:[151]LL,210
  727. 15044 [139]PN[178]0[167][151]H2,34:[151]L2,75
  728. 15045 [139]PN[178]1[167][151]H2,40:[151]L2,200
  729. 15046 [139]PN[178]2[167][151]H2,28:[151]L2,214
  730. 15047 [139]PN[178]3[167][151]H2,30:[151]L2,140
  731. 15048 [139]PN[178]4[167][151]H2,40:[151]L2,200
  732. 15049 [139]PN[178]4[167][151]HH,5:[151]LL,25
  733. 15050 [139]PN[178]5[167][151]H2,34:[151]L2,75
  734. 15051 [139]PN[178]5[167][151]HH,4:[151]LL,73
  735. 15052 [139]PN[178]6[167][151]H2,28:[151]L2,214
  736. 15053 [139]PN[178]6[167][151]HH,3:[151]LL,155
  737. 15054 [139]PN[178]7[167][151]H2,32:[151]L2,94
  738. 15055 [139]PN[178]7[167][151]HH,4:[151]LL,12
  739. 15056 [139]PN[178]8[167][151]H2,45:[151]L2,198
  740. 15057 [139]PN[178]8[167][151]HH,5:[151]LL,185
  741. 15058 [139]PN[178]9[167][151]H2,34:[151]L2,75
  742. 15059 [139]PN[178]9[167][151]HH,4:[151]LL,73
  743. 15060 [139]PN[178]10[167][151]H2,28:[151]L2,214
  744. 15061 [139]PN[178]10[167][151]HH,3:[151]LL,155
  745. 15062 [139]PN[178]11[167][151]H2,30:[151]L2,141
  746. 15063 [139]PN[178]11[167][151]HH,3:[151]LL,210
  747. 15090 PN[178]PN[170]1:[139]PN[178]11[167]PN[178]0
  748. 15100 [142]
  749. 16000 [143] FOOTSTEPS
  750. 16005 [151]X9,128
  751. 16010 V1[178]54296:X9[178]54276:ZX[178]54277:H9[178]54273:L9[178]54272
  752. 16020 [151]V1,15:[151]X9,129:[151]ZX,16
  753. 16030 [151]H9,13:[151]L9,156
  754. 16050 [142]
  755. 16500 [143] BATS NOISE
  756. 16505 [151]X9,16
  757. 16510 V1[178]54296:X9[178]54276:ZX[178]54277:H9[178]54273:L9[178]54272
  758. 16520 [151]V1,15:[151]X9,17:[151]ZX,16
  759. 16530 [151]H9,244:[151]L9,103
  760. 16550 [142]
  761. 16700 [143] SNAKES NOISE
  762. 16705 [151]X9,128
  763. 16710 V1[178]54296:X9[178]54276:ZX[178]54277:H9[178]54273:L9[178]54272
  764. 16720 [151]V1,15:[151]X9,129:[151]ZX,15
  765. 16730 [151]H9,129:[151]L9,120
  766. 16750 [142]
  767. 17000 [143] TAPS
  768. 17505 [151]X9,32
  769. 17510 V1[178]54296:X9[178]54276:ZX[178]54277:HH[178]54273:LL[178]54272
  770. 17520 [151]V1,15:[151]X9,33:[151]ZX,108
  771. 17525 PT[178]PT[170]1
  772. 17530 [139]PT[178]3[167][129]DC[178]1[164]500:[130]DC:[151]HH,17:[151]LL,37
  773. 17531 [139]PT[178]2[167][129]DC[178]1[164]250:[130]DC:[151]HH,12:[151]LL,216
  774. 17532 [139]PT[178]1[167][129]DC[178]1[164]250:[130]DC:[151]HH,12:[151]LL,216
  775. 17533 [139]PT[178]4[167][129]DC[178]1[164]850:[130]DC:[151]HH,12:[151]LL,216
  776. 17534 [139]PT[178]5[167][129]DC[178]1[164]250:[130]DC:[151]HH,17:[151]LL,37
  777. 17535 [139]PT[178]6[167][129]DC[178]1[164]250:[130]DC:[151]HH,21:[151]LL,154
  778. 17536 [139]PT[178]7[167][129]DC[178]1[164]850:[130]DC:[151]HH,12:[151]LL,216
  779. 17537 [139]PT[178]8[167][129]DC[178]1[164]250:[130]DC:[151]HH,17:[151]LL,37
  780. 17538 [139]PT[178]9[167][129]DC[178]1[164]250:[130]DC:[151]HH,21:[151]LL,154
  781. 17539 [139]PT[178]10[167][129]DC[178]1[164]850:[130]DC:[151]HH,12:[151]LL,216
  782. 17540 [139]PT[178]11[167][129]DC[178]1[164]250:[130]DC:[151]HH,17:[151]LL,37
  783. 17541 [139]PT[178]12[167][129]DC[178]1[164]250:[130]DC:[151]HH,21:[151]LL,154
  784. 17542 [139]PT[178]13[167][129]DC[178]1[164]850:[130]DC:[151]HH,12:[151]LL,216
  785. 17543 [139]PT[178]14[167][129]DC[178]1[164]250:[130]DC:[151]HH,17:[151]LL,37
  786. 17544 [139]PT[178]15[167][129]DC[178]1[164]250:[130]DC:[151]HH,21:[151]LL,154
  787. 17545 [139]PT[178]16[167][129]DC[178]1[164]750:[130]DC:[151]HH,17:[151]LL,37
  788. 17546 [139]PT[178]17[167][129]DC[178]1[164]250:[130]DC:[151]HH,21:[151]LL,154
  789. 17547 [139]PT[178]18[167][129]DC[178]1[164]250:[130]DC:[151]HH,25:[151]LL,177
  790. 17548 [139]PT[178]19[167][129]DC[178]1[164]750:[130]DC:[151]HH,21:[151]LL,154
  791. 17549 [139]PT[178]20[167][129]DC[178]1[164]250:[130]DC:[151]HH,17:[151]LL,37
  792. 17550 [139]PT[178]21[167][129]DC[178]1[164]250:[130]DC:[151]HH,12:[151]LL,216
  793. 17551 [139]PT[178]22[167][129]DC[178]1[164]750:[130]DC:[151]HH,12:[151]LL,216
  794. 17552 [139]PT[178]23[167][129]DC[178]1[164]250:[130]DC:[151]HH,12:[151]LL,216
  795. 17553 [139]PT[178]24[167][129]DC[178]1[164]500:[130]DC:[151]HH,17:[151]LL,37
  796. 17555 [139]PT[178]24[167]PT[178]1:[142]
  797. 17560 [137]17000
  798. 19000 [161]SB$:[139]SB$[178][199](13)[167][142]
  799. 19002 [141]15000
  800. 19005 [129]FC[178]55584[164]55607:[151]FC,13:[130]FC
  801. 19010 [151]1323,14:[151]1324,32:[151]1322,18:[151]1325,20:[151]1321,21:[151]1326,15
  802. 19020 [151]1320,20
  803. 19030 [151]1327,32:[151]1319,5:[151]1328,3:[151]1318,18:[151]1329,15:[151]1317,32
  804. 19040 [151]1330,14:[151]1316,19:[151]1331,20:[151]1315,19:[151]1332,9:[151]1314,5
  805. 19050 [151]1333,14
  806. 19060 [151]1313,18:[151]1334,21:[151]1312,16:[151]1335,5
  807. 19070 [139]SB$[178]""[167][129]FL[178]1[164]1000:[130]
  808. 19117 [129] FL[178]0[164]12 :[151]55608[171]FL,1:[151]55584[170]FL,1:[151]1336[171]FL,228
  809. 19118 [151]1312[170]FL,228:[130]FL
  810. 19120 [137]19000: [129]FL[178]1[164]200:[130]:[137]19000
  811. 20000 [151]53280,0:[143] INSTRUCTIONS
  812. 20001 [153]"LOADDISPLAY INSTRUCTIONS (Y/N)   Y";:[133]"CMDCMDCMD";DI$
  813. 20002 [139]DI$[178]"N"[167][142]
  814. 20003 [139]DI$[179][177]"N"[167]20010
  815. 20010 [153]"OPENLOADWELCOME!  TO THE SYSCATACOMBS OF GOLDOPEN"
  816. 20015 [153]"   BEFORE YOU BEGIN YOUR JOURNEY INTO "
  817. 20020 [153]"THE DARK AND DANGEROUS WORLD BENEATH  "
  818. 20025 [153]"THE CASTLE OF COUNT DAMION, HERE IS SOME";
  819. 20030 [153]"ADVICE THAT MAY MAKE YOUR JOURNEY A"
  820. 20035 [153]"LITTLE SAFER AND PERHAPS A LITTLECLOSEMORE"
  821. 20040 [153]"PROFITABLE."
  822. 20045 [141]40050
  823. 20050 [153]"LOAD   YOU'LL BEGIN YOUR JOURNEY WITH THREE ";
  824. 20055 [153]"HEARTS, 100 UNITS OF SPEED, STRENGTH,"
  825. 20060 [153]"AND MORALE. IF ANY OF THESE DROP TO ZERO"
  826. 20062 [153]"YOU WILL REMAIN IN THE CATACOMBS FOREVER";
  827. 20065 [153]"   ALL YOU TAKE WITH YOU IS AN OLD AND"
  828. 20070 [153]"UNRELIABLE MAGIC RING. IT WAS GIVEN TO"
  829. 20075 [153]"YOU BY THE ONLY MAN TO EVER ENTER THE"
  830. 20080 [153]"CATACOMBS AND RETURN SAFELY TO THE OUT-"
  831. 20085 [153]"SIDE WORLD. HE HAS TOLD YOU MANY THINGS"
  832. 20090 [153]"ABOUT THIS PLACE, AND YOU WILL FIND "
  833. 20095 [153]"MOST OF IT TO BE TRUE. HE WARNED YOU"
  834. 20096 [141]40050
  835. 20100 [153]"ONONONABOUT THE SNAKES AND BATS, WHO ARE IN "
  836. 20105 [153]"                                     "
  837. 20115 [153]"MANY CHAMBERS, AND YOU WILL SEE MORE OF"
  838. 20120 [153]"THEM, THE DEEPER YOU GO. THEY WILL NOT"
  839. 20125 [153]"HURT YOU, THEY WILL ONLY STEAL YOUR "
  840. 20130 [153]"WEAPONS AND SUPPLIES. THE OLD MAN ALSO"
  841. 20135 [153]"TOLD OF ZOMBIES, CREATURES THAT ARE "
  842. 20140 [153]"DEAD, BUT UNDER THE VAMPIRE'S CONTROL."
  843. 20145 [153]"THEY WANDER AROUND THE CATACOMBS AND"
  844. 20150 [153]"CAN HURT YOU IF THEY GET THE CHANCE."
  845. 20155 [141]40050
  846. 20160 [153]"ONONON   HE WARNED THAT SOME OF THE CHAMBERS"
  847. 20162 [153]"                                     "
  848. 20165 [153]"WILL QUITE SUDDENLY FILL WITH A DEADLY"
  849. 20170 [153]"GAS. IF IT DOES, YOU CAN TRY TO OUTRUN"
  850. 20175 [153]"IT, OR YOU MAY USE THE RING. IF THE "
  851. 20180 [153]"RING WORKS, IT WILL CLEAR THE CHAMBER"
  852. 20185 [153]"OF ALL HAZARDS, AND CREATE A TRAPDOOR"
  853. 20190 [153]"WHICH YOU CAN USE TO DESCEND EVEN DEEPER";
  854. 20195 [153]"INTO THE CATACOMBS."
  855. 20200 [141]40050
  856. 20210 [153]"   'BEFORE YOU ENTER' HE SAID 'BE SURE"
  857. 20220 [153]"YOU HAVE SOMETHING TO MAKE A MAP WITH,"
  858. 20225 [153]"BECAUSE THESE CATACOMBS ARE VAST AND,"
  859. 20230 [153]"PERHAPS BOTTEMLESS. EVERY LEVEL IS LAID"
  860. 20235 [153]"OUT DIFFERENTLY, AND SOMETIMES THERE"
  861. 20240 [153]"ARE TREMORS WHICH CAUSE CAVEINS, AND"
  862. 20245 [153]"IF THAT HAPPENS, YOUR MAP MAY BE WRONG!'";
  863. 20250 [153]"   ALSO, THE MAP COULD PROVE CRUCIAL TO"
  864. 20255 [153]"YOUR SURVIVAL, BECAUSE ON EVERY LEVEL,"
  865. 20260 [153]"THERE IS ONLY ONE CHAMBER THAT LEADS"
  866. 20265 [153]"OUT OF THE CATACOMBS. IT IS CHAMBER #1.";
  867. 20270 [141]40050
  868. 20275 [153]"TRY TO FIND IT QUICKLY, WHEN YOU DESCEND";
  869. 20280 [153]"SO IF YOU NEED TO LEAVE, YOU CAN."
  870. 20285 [153]"   IF YOUR STRENGTH OR SPEED ARE GETTING";
  871. 20290 [153]"LOW, YOU CAN GO TO CHAMBER #1 AND"
  872. 20295 [153]"TRADE YOUR EXPERIENCE FOR SPEED AND/OR"
  873. 20300 [153]"STRENGTH. WHILE YOUR THERE YOU MAY"
  874. 20305 [153]"LEAVE THE CASTLE TO BUY WEAPONS AND"
  875. 20310 [153]"SUPPLIES, OR END THE JOURNEY WITH THE"
  876. 20315 [153]"GOLD YOU HAVE FOUND. GOLD IS PICKED UP"
  877. 20320 [153]"WHEN YOU LEAVE A ROOM, AND YOU MAY ONLY"
  878. 20325 [153]"TAKE GOLD FROM THE SAME CHAMBER ONCE."
  879. 20327 [141]40050
  880. 20330 [153]"ONONONYOUR TOTAL GOLD IS DISPLAYED AFTER YOU"
  881. 20332 [153]"                                    "
  882. 20335 [153]"LEAVE A ROOM, BUT IT SHOWS HOW MUCH YOU"
  883. 20340 [153]"HAD TWO MOVES AGO, NOT CURRENTLY!"
  884. 20345 [153]"AND FINALLY, ALERTNESS IS IMPORTANT,"
  885. 20350 [153]"BECAUSE SOME ROOMS WILL HAVE BONUS GOLD"
  886. 20355 [153]"AND FOOD IN THEM. IF YOU SEE GOLD FLASH"
  887. 20360 [153]"ON THE SCREEN, ENTER A 'G' TO GET BONUS"
  888. 20365 [153]"IF YOU SEE FOOD FLASH, ENTER ACLOSE'F' TO "
  889. 20370 [153]"GET THE FOOD BONUS."
  890. 20375 [141]40050
  891. 20380 [153]"ONONONEACH WEAPON CAN BE USED ONLY ONCE EXCEPT";
  892. 20382 [153]"                                      "
  893. 20385 [153]"THE GUN, IT CAN BE USED OVER AND OVER"
  894. 20390 [153]"UNLESS A BAT OR SNAKE STEALS IT."
  895. 20395 [153]"SNAKES AND BATS WILL TAKE THE CHEAPER"
  896. 20400 [153]"WEAPONS FIRST, AND WILL TAKE ONLY ONE"
  897. 20405 [153]"ITEM EACH TIME. TO FIND OUT WHAT THEY"
  898. 20410 [153]"TOOK, CHECK YOUR STATUS."
  899. 20415 [141]40050
  900. 20420 [153]"LOAD            DISPALY "
  901. 20421 [153]"            EXPLANATION"
  902. 20422 [153]"            OF COMMANDS (Y/N)   Y";:[133]"CMDCMDCMD";A$
  903. 20424 [139]A$[179][177]"Y"[167][142]
  904. 20425 [139]A$[178]"Y"[167][141]40110
  905. 40000 [153]"PRINTLOAD    SO YOU THINK YOU NEED SOME HELP!"
  906. 40001 [153]"HERE ARE A FEW TIPS TO HELP YOU SURVIVE"
  907. 40005 [153]"YOUR VISIT IN THISCLOSEFRIENDLY OLD CASTLE"
  908. 40010 [153]"1.   EXPLORE LOW NUMBERED ROOMS FIRST!!"
  909. 40015 [153]"     (VAMPIRES ARE WEAKER IN LOW ROOMS)"
  910. 40020 [153]"2.   USE THE MAGIC RING SPARINGLY!!"
  911. 40025 [153]"     (IT IS RISKY TO USE, AND CAN COST"
  912. 40026 [153]"     YOU VALUABLE SPEED AND STRENGTH)"
  913. 40030 [153]"3.   CHECK YOUR STATUS PERIODICALLY."
  914. 40040 [153]"4.   DON'T DESCEND UNLESS YOU HAVE TO."
  915. 40045 [141]40050:[137]40060
  916. 40050 [141]15000:[153]"PRINTPRESS RETURNWAIT TO CONTINUEOPEN";
  917. 40052 [133]HC$:[139]HC$[178]""[167][141]15000:[142]
  918. 40054 [139]HC$[179][177]""[167][153]"ONON":[137]40050
  919. 40060 [153]"LOAD5.   TRY TO GATHER ALL GOLD ON EACH"
  920. 40062 [153]"     LEVEL BEFORE YOU DESCEND."
  921. 40070 [153]"6.   WATCH YOUR HEARTS, IF YOU GET"
  922. 40072 [153]"     DOWN TO ONE, YOU BETTER HEAD HOME."
  923. 40080 [153]"7.   TRADE OFTEN, KEEP YOUR SPEED AND"
  924. 40082 [153]"     STRENGTH HIGH FOR BATTLE."
  925. 40090 [153]"8.   BUY AS MANY DIFFERNT ITEMS AS YOU"
  926. 40092 [153]"     CAN, TO PROTECT YOU AGAINST AS"
  927. 40094 [153]"     MANY DIFFERENT DANGERS AS POSSIBLE"
  928. 40100 [141]40050:[137]40110
  929. 40110 [153]"OPENLOAD        EXPLANATION OF COMMANDS"
  930. 40120 [153]"IN CHAMBER #1 "
  931. 40125 [153]"<T>  TRADE -- ALLOWS YOU TO TRADE"
  932. 40130 [153]"              YOUR EXPERIENCE FOR "
  933. 40135 [153]"              SPEED AND/OR STRENGTH"
  934. 40140 [153]"<E>  EXIT  -- MOVES YOU TO OUTSIDE"
  935. 40145 [153]"              THE CASTLE WHERE YOU MAY"
  936. 40150 [153]"              BUY ITEMS TO HELP YOU OR"
  937. 40155 [153]"              END THE ADVENTURE "
  938. 40160 [153]"IN ANY CHAMBER"
  939. 40165 [153]"<A>  FIGHT -- YOU WILL FIGHT THE VAMPIRE";
  940. 40170 [153]"              IF YOU'RE STRONG AND QUICK";
  941. 40175 [153]"              ENOUGH, YOU WILL KILL HIM"
  942. 40200 [141]40050:[137]40210
  943. 40210 [153]"LOADIN ANY CHAMBER"
  944. 40215 [153]"<R>  RING  -- WILL CLEAR THE CHAMBER OF";
  945. 40220 [153]"               ALL HAZARDS, AND CREATE "
  946. 40222 [153]"              A TRAPDOOR YOU MAY USE  "
  947. 40223 [153]"              TO DESCEND, IF IT WORKS."
  948. 40225 [153]"              IF IT BACKFIRES, YOU WILL"
  949. 40230 [153]"              LOSE 1/2 OF YOUR SPEED AND";
  950. 40235 [153]"              STRENGTH."
  951. 40240 [153]"<S> STATUS -- WILL SHOW YOU YOUR CURRENT";
  952. 40245 [153]"              SUPPLIES & HEALTH, AND THE";
  953. 40250 [153]"              VAMPIRE'S POWER AND SPEED"
  954. 40255 [153]"<L>  LIST --  WILL LIST CHAMBERS YOU"
  955. 40260 [153]"              HAVE EXPLORED AND THE "
  956. 40265 [153]"              CHAMBERS CONNECTED TO THEM"
  957. 40270 [141]40050:[137]40280
  958. 40280 [153]"LOAD      COMMANDS CONTINUED:"
  959. 40285 [153]"<D> DESCEND -  IF A TRAP DOOR IS PRESENT";
  960. 40290 [153]"               YOU MAY USE IT TO DROP "
  961. 40295 [153]"               TO A LOWER LEVEL"
  962. 40300 [153]"<O> OPTIONS -  THIS WILL GIVE YOU A LIST";
  963. 40305 [153]"               OF ALL POSSIBLE OPTIONS"
  964. 40310 [141]40050:[137]40315
  965. 40315 [139]MT$[178]"OPTIONS"[167][153]"LOAD":[137]320
  966. 40320 [153]"CONTLOAD    EFFECT OF WEAPONS & MATERIALS"
  967. 40325 [153]"GUN & BULLETS:    DOUBLES YOUR STRENGTH"
  968. 40330 [153]"                  IN BATTLE ONLY, NOT "
  969. 40335 [153]"                  PERMANENTLY "
  970. 40340 [153]"WOODEN STAKES:    ADDS 50%TO YOUR  "
  971. 40345 [153]"                  STRENGTH IN BATTLE"
  972. 40350 [153]"CROSSES      :    ADDS 25%TO YOUR  "
  973. 40355 [153]"                  STRENGTH IN BATTLE"
  974. 40360 [153]"FOOD         :    MAKES VAMPIRE BITE"
  975. 40365 [153]"                  ONLY 1/2 AS BAD"
  976. 40370 [141]40050:[137]40380
  977. 40380 [153]"CONTLOADGAS MASK     :    MAKES GETTING "
  978. 40385 [153]"                  GASSED ONLY 1/2"
  979. 40390 [153]"                  AS BAD "
  980. 40395 [153]"MIRRORS      :    MAKES GETTING HURT"
  981. 40400 [153]"                  BY ZOMBIE ONLY 1/2 AS"
  982. 40405 [153]"                  BAD "
  983. 40406 [141]40050:[137]41000
  984. 41000 [139]A$[178]"Y"[167]A$[178]"N":[137]2
  985. 41005 [153]"LOAD":[141]5000:[137]320
  986. 50000 [153]"LOAD"
  987. 50005 [153]"LOAD":[137]51010:J[178]2:A[178]0
  988. 50100 [129]S[178]1234[164]1255
  989. 50110 [151]S,98
  990. 50120 [151]S[171]160,120
  991. 50130 [130]:[151]1149,74:[151]1150,81:[151]1151,75
  992. 50132 [151]55421,11:[151]55422,11:[151]55423,11
  993. 50140 [129]T[178]1[164]200[169]40
  994. 50150 [151]1072[170]T,118
  995. 50160 [151]1095[170]T,97
  996. 50170 [130]T:[151]53281,0:[151]1272,85:[151]1273,81:[151]1274,73
  997. 50172 [151]55544,11:[151]55545,11:[151]55546,11
  998. 50180 [141]15000:[139]D[178]16[167]D[178]0
  999. 50181 [151]SV[170]39,1:[151]SV[170]40,1:[151]SV[170]41,1:[151]SV[170]42,1
  1000. 50190 D[178]D[170]1
  1001. 50200 [129]R[178]1[164]22
  1002. 50203 BF[178]BF[170]1:[139]BF[178]3[167][151]1149,85:[151]1151,73:BF[178]0
  1003. 50204 BF[178]BF[170]1:[139]BF[178]3[167][151]1149,74:[151]1151,75:BF[178]0
  1004. 50210 [151]55368[171]R,D
  1005. 50220 [130]
  1006. 50230 [139]G[178]16[167]G[178]0
  1007. 50240 G[178]G[170]1
  1008. 50250 [129]SS[178]1[164]200[169]40
  1009. 50260 [151]55344[170]SS,G
  1010. 50261 BF[178]BF[170]1:[139]BF[178]3[167][151]1149,74:[151]1151,75:BF[178]0
  1011. 50263 BF[178]BF[170]1:[139]BF[178]3[167][151]1149,85:[151]1151,73:BF[178]0
  1012. 50270 [130]SS:[141]15000
  1013. 50280 [139]L[178]16[167]L[178]0
  1014. 50290 L[178]L[170]1
  1015. 50300 [129]R[178]0[164]21
  1016. 50302 BF[178]BF[170]1:[139]BF[178]3[167][151]1272,74:[151]1274,75:BF[178]0
  1017. 50304 BF[178]BF[170]1:[139]BF[178]3[167][151]1272,85:[151]1274,73:BF[178]0
  1018. 50310 [151]55506[170]R,L[171]1:[143]*****
  1019. 50320 [130]
  1020. 50430 [139]C[178]16[167]C[178]0
  1021. 50440 C[178]C[170]1
  1022. 50450 [129]LS[178]1[164]200[169]40
  1023. 50451 BF[178]BF[170]1:[139]BF[178]3[167][151]1149,74:[151]1151,75:BF[178]0
  1024. 50453 BF[178]BF[170]1:[139]BF[178]3[167][151]1149,85:[151]1151,73:BF[178]0
  1025. 50460 [151]55529[171]LS,C
  1026. 50470 [130]LS
  1027. 50480 [139]K[178]16[167]K[178]0
  1028. 50490 K[178]K[170]1
  1029. 50500 [129]R[178]0[164]20
  1030. 50502 BF[178]BF[170]1:[139]BF[178]3[167][151]1272,74:[151]1274,75:BF[178]0
  1031. 50504 BF[178]BF[170]1:[139]BF[178]3[167][151]1272,85:[151]1274,73:BF[178]0
  1032. 50510 [151]55387[170]R,K
  1033. 50520 [130]
  1034. 50540 [139]J[177]8[167]J[178]2
  1035. 50551 [161]A$:[139]A$[178]""[167]50180
  1036. 50552 [139]A$[178]"S"[167][142]
  1037. 50553 [139]A$[179][177]"S"[167]50180
  1038. 51010 [151]53280,0:[151]53281,0
  1039. 51011 [151]1115,6:[151]1116,1:[151]1117,14:[151]1118,20:[151]1119,1
  1040. 51020 [151]1120,22:[151]1121,9:[151]1122,19:[151]1123,9:[151]1124,15:[151]1125,14
  1041. 51030 [151]1127,16:[151]1128,18:[151]1129,5:[151]1130,19:[151]1131,5
  1042. 51040 [151]1132,14:[151]1133,20:[151]1134,19
  1043. 51101 [143]  * CATACOMBS OF GOLD    *
  1044. 51110 [151]1196,3:[151]1197,1:[151]1198,20:[151]1199,1:[151]1200,3: [143] CATAC
  1045. 51120 [151]1201,15:[151]1202,13:[151]1203,2:[151]1204,19:[151]1206,15: [143] OMBS O
  1046. 51130 [151]1207,6:[151]1209,7:[151]1210,15: [143] F GO
  1047. 51140 [151]1211,12:[151]1212,4:[143]  LD
  1048. 51200 [129]W[178]1[164]20[169]2
  1049. 51250 [151]1154[170]W,42
  1050. 51270 [130]W
  1051. 51300 [153],"HIT S TO BEGIN."
  1052. 51350 [129]DC[178]55468[164]55484:[151]DC,7:[130]DC
  1053. 51401 [129]DC[178]55987[164]56295:[151]DC,5:[130]DC
  1054. 51404 [129]DC[178]1[164]16
  1055. 51405 [151]1675[170]DC,121:[130]
  1056. 51406 [151]1715,78:[151]1754,78:[151]1732,77:[151]1773,77:[151]1753,100:[151]1774,100
  1057. 51407 [151]1775,100:[151]1776,78:[151]1777,99:[151]1778,99:[151]1779,77:[151]1820,77
  1058. 51408 [151]1861,101:[151]1901,101:[151]1941,77:[151]1982,77:[151]2023,77
  1059. 51409 [151]1752,100:[151]1791,78:[151]1830,78:[151]1869,99:[151]1868,78:[151]1907,78
  1060. 51410 [151]1946,78:[151]1985,78
  1061. 51411 [151]1764,127:[151]1723,160:[151]1805,127:[151]1806,121:[151]1807,121
  1062. 51412 [151]1848,127:[151]1889,127:[151]1890,121:[151]1891,121
  1063. 51413 [151]1932,127:[151]1973,127:[151]2014,127
  1064. 51414 [151]1697,114:[151]1698,91:[151]1738,93:[151]1699,75:[151]1659,85:[151]1658,115
  1065. 51415 [151]1657,74:[151]1618,85
  1066. 51416 [151]56036,12:[151]55995,12:[151]56077,12:[151]56078,12:[151]56079,12
  1067. 51417 [151]56120,12:[151]56161,12:[151]56162,12:[151]56163,12:[151]56204,12
  1068. 51418 [151]56245,12:[151]56286,12
  1069. 51419 [151]55969,15:[151]55970,15:[151]55971,15:[151]56010,15:[151]55929,15
  1070. 51420 [151]55930,15:[151]55931,15:[151]55890,15
  1071. 51421 [151]1818,43:[151]56090,15:[151]1816,43:[151]56088,15
  1072. 51422 [151]1859,43:[151]56131,15:[151]1857,43:[151]56129,15
  1073. 51423 [151]1900,91:[151]56172,15:[151]1898,91:[151]56170,15
  1074. 51430 [151]1840,77:[151]1839,122:[151]1838,77:[151]1798,76:[151]1799,122:[151]1759,77
  1075. 51431 [151]1758,78:[151]1881,77:[151]1879,77:[151]1920,99:[151]1921,99:[151]1880,77
  1076. 51432 [151]56112,12:[151]56111,12:[151]56110,12:[151]56070,12:[151]56153,12
  1077. 51433 [151]56151,12:[151]56192,12:[151]56193,12:[151]56152,12
  1078. 51434 [151]56071,12:[151]56030,12:[151]56031,12
  1079. 51500 [137]50100
  1080.