home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / QUEST-FOR-POWER (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  22KB  |  654 lines
  1. 0 GOTO100
  2. 1 STEPdGOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)NEW(CMD(null)CMD(null)`FF
  3. 2 STEPcGOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)`F
  4. 3 STEPgGOSUBGOSUBFGOSUBnGOSUBDEFGOSUBCOSGOSUB(null)GOSUBGOSUB6GOSUB^GOSUBDIMGOSUB^`F
  5. 4 STEPeGOSUB*GOSUBRGOSUBzGOSUBNEWGOSUBMID$GOSUB(null)GOSUBGOSUBBGOSUBjGOSUBWAITGOSUBSQR`F
  6. 5 STEPNGOSUBGOSUB(null)GOSUBSGNSTEPMGOSUB(null)GOSUB GOSUB4`F
  7. 6 STEPMGOSUBTOGOSUB(null)GOSUB(null)STEPNGOSUB$GOSUB(null)GOSUB(null)`FFFFFF
  8. 7 STEPdGOSUB(null)GOSUB(null)GOSUB(null)STEPcGOSUB(null)GOSUB(null)GOSUB(null)`FFF
  9. 8 STEPdGOSUBGOSUBGOSUBSTEPcGOSUB(null)GOSUB(null)GOSUB(null)`FFF
  10. 9 STEPdGOSUBrGOSUBsGOSUBtGOSUBuGOSUBvSTEPcGOSUBbGOSUBcGOSUBdGOSUBeGOSUBf`FFFFF
  11. 10 STEPeGOSUBOPENGOSUBCHR$GOSUB(null)GOSUBGOSUB?`FF
  12. 11 STEPgGOSUBPRINTGOSUBATNGOSUB(null)GOSUBGOSUB9`FF
  13. 12 STEPNGOSUBwGOSUBPGOSUB)STEPMGOSUBgGOSUBSTOPGOSUBPOS`FF
  14. 13 STEPMGOSUBGOSUBHGOSUBqSTEPNGOSUBANDGOSUBLETGOSUBa`FF
  15. 14 STEPdGOSUBoGOSUBpGOSUBqSTEPcGOSUB_GOSUB`GOSUBa`FF
  16. 15 STEPdGOSUBwGOSUBxGOSUBySTEPcGOSUBgGOSUBhGOSUBi`FF
  17. 16 STEPdGOSUBPRINTGOSUBCONTGOSUBLISTGOSUBCLRGOSUBCMDGOSUBSYSGOSUBOPENSTEPgGOSUBCHR$GOSUB(null)GOSUBGOSUB?GOSUBgGOSUBREMGOSUBUSRSTEPeGOSUBATNGOSUB(null)GOSUBGOSUB9GOSUBaGOSUBGOTOGOSUB>`FFF
  18. 17 STEPMGOSUBCGOSUBlSTEPgGOSUBSAVEGOSUBLOGGOSUB(null)GOSUB GOSUB4GOSUB\GOSUBINPUT#GOSUB*GOSUB(null)GOSUB(null)`FFFF
  19. 18 STEPNGOSUBUGOSUB|STEPeGOSUBTOGOSUB(null)GOSUB(null)GOSUBGOSUBDGOSUBlGOSUBSAVEGOSUBLOGGOSUB(null)GOSUB `FFFFFFFF
  20. 30 FORI=2692TO2750:PRINTI;PEEK(I):INPUTZ:POKEI,Z:NEXT
  21. 31 END
  22. 100 REM QUEST FOR POWER
  23. 101 A=RND(-TI)
  24. 102 POKE53280,0:POKE53281,0:GOTO11000
  25. 103 PRINT""
  26. 104 DIMP5%(10,2),T5%(10,2),C5%(10,2)
  27. 105 DIMSS%(10,10,10),SU%(10,2),SD%(10,2)
  28. 106 FORJ=1TO10:FORI=1TO10:FORZ=1TO10:READSS%(Z,I,J):NEXT:NEXT:NEXT
  29. 107 DIMIN$(20),IT(20):IN$(1)="NORMAL SWORD":IT(1)=-1
  30. 108 DIMMN$(10),M1(10),M2(10),M3(10),M4(10),M5(10),M6(10),M7(10),M8(20)
  31. 109 FORI=1TO10:READSU%(I,1),SU%(I,2),SD%(I,1),SD%(I,2):NEXT
  32. 110 DEF FNA(Q)=INT(6*RND(1))+INT(6*RND(1))+INT(6*RND(1))+3
  33. 111 DEF FNB(Q)=(Q<8)*-1000*2^Q+(Q>7)*250000*(7-Q)
  34. 112 DEF FNC(Q)=-4*(Q=0)-(Q>4)*(Q-4)-Q*((Q>0)AND(Q<5))
  35. 113 FORI=1TO10:READP5%(I,1),P5%(I,2):NEXT
  36. 114 FORI=1TO10:READC5%(I,1),C5%(I,2):NEXT
  37. 115 FORI=1TO10:READT5%(I,1),T5%(I,2):NEXT
  38. 116 PRINT"[147]":FORI=2TO20:READIN$(I):NEXT
  39. 117 FORI=1TO10:READMN$(I),M1(I),M2(I),M3(I),M4(I),M5(I),M6(I),M7(I):NEXT
  40. 120 B0=2358:B1=2403:B2=2428:B3=2453:B4=2483:B5=2513:B6=2543
  41. 121 A0=2149:A1=2262:A2=2296:A3=2191:A4=2233:A5=2327:A6=2701:A7=2651:A8=2062
  42. 122 A9=2107
  43. 150 PRINT"DO YOU WISH TO USE A CHARACTER THAT"
  44. 151 PRINT"HAS ALREADY BEEN CREATED? (Y/N)
  45. 152 [161]X$:[139]X$[178]""[167]152
  46. 153 [153]"LOAD"
  47. 154 [139]X$[178]"Y"[167][137]3200
  48. 189 LE%[178]1
  49. 190 [153]:[153]"TYPE 'A' TO ACCEPT..."
  50. 191 [153]"ANYTHING ELSE TO REROLL."
  51. 192 [153]:[153]
  52. 193 [153]"":[153]:[153]:[153]:[153]:[153]
  53. 194 SG[178][165]A(1):IN[178][165]A(1):PI[178][165]A(1):AG[178][165]A(1):EN[178][165]A(1)
  54. 195 [153]"       STRENGTH=    CMDCMDCMD";SG
  55. 196 [153]"   INTELLIGENCE=    CMDCMDCMD";IN
  56. 197 [153]"          PIETY=    CMDCMDCMD";PI
  57. 198 [153]"        AGILITY=    CMDCMDCMD";AG
  58. 199 [153]"      ENDURANCE=    CMDCMDCMD";EN
  59. 200 [161]X$:[139]X$[178]""[167]200
  60. 201 Q9[178]0
  61. 209 [153]"":[153]:[153]:
  62. 210 [139]X$[179][177]"A"[167]193
  63. 220 [153]"LOAD":[153]:[153]"FINE CHARACTER!"
  64. 230 [133]"NOW...PLEASE CHOOSE A NAME";NA$
  65. 231 EX[178]0:G9[178]0
  66. 232 [129]I[178]2[164]20:IT(I)[178]0:[130]
  67. 233 AC[178]0:[139]AG[177]14[167]AC[178]AC[170]AG[171]14
  68. 234 LT[178]0:PO[178]0:LV[178]0
  69. 235 HI[178](EN[177]14)[172](14[171]EN)[170][181](10[172][187](1))[170]1[171](EN[179]7)[172](EN[171]7):[139]HI[179]1[167]HI[178]1
  70. 236 GD[178][165]A(Q)[172]10
  71. 237 CH[178]HI
  72. 238 D5[178]0:[139]SG[177]16[167]D5[178]SG[171]16
  73. 239 DA[178][171](SG[177]15)[171](SG[177]17)[170](SG[179]6)
  74. 240 [153]:[153]"OK, ";NA$;" YOU HAVE:"
  75. 241 [139]SG[179]8[167]D5[178][181](SG[173]2)[171]4
  76. 250 [153]"                    A NORMAL SWORD"
  77. 260 [153]"                   ";HI;" HITS"
  78. 270 [153]"                    AND ";GD;" GOLD"
  79. 280 [153]:[153]:[153]"   HIT ANY KEY TO START..."
  80. 290 [161]X$:[139]X$[178]""[167]290
  81. 291 D4[178]8:D3[178]DA:D2[178]0
  82. 299 [137]1000
  83. 1000 [153]"LOAD"
  84. 1001 D7[178]LE%:D8[178]D7[172]2:[139]IN[177]15[167]D7[178]D7[170]IN[171]15
  85. 1002 [139]PI[177]15[167]D8[178]D8[170]PI[171]15
  86. 1003 [139]PO[178][171]1[167]PO[178]0:AC[178]AC[171]1
  87. 1004 LV[178]0:[139]IT(7)[178][171]1[167]LV[178][171]1
  88. 1005 IT(17)[178]0:IT(18)[178]0:IT(19)[178]0
  89. 1006 [139]IT(10)[178][171]1[167]D7[178]D7[172]2
  90. 1007 [139]IT(11)[178][171]1[167]D8[178]D8[172]2
  91. 1008 CH[178]HI:G9[178]GD[170]G9:GD[178]0
  92. 1009 [139]F8[178][171]1[167]F8[178]0:LT[178]LT[171]50:[139]LT[179]0[167]LT[178]0
  93. 1010 [153]"     WELCOME TO THE CASTLE TARBOR     "
  94. 1020 [153]"WAIT"
  95. 1030 [153]:[153]:[153]:[153]:[153]"     1) ENTER THE DUNGEON"
  96. 1040 [153]"     2) MAKE LEVEL"
  97. 1050 [153]"     3) BUY ITEMS"
  98. 1060 [153]"     4) EXAMINE CHARACTER"
  99. 1090 [153]"     5) DONATE TO CHARITY"
  100. 1095 [153]"     6) SAVE CHARACTER ON DISK"
  101. 1100 [161]X$:[139]X$[178]""[167]1100
  102. 1101 [139][198](X$)[179]49[167]1100
  103. 1110 [145] [198](X$)[171]48 [137] 2000,1200,1300,1400,1700,3300
  104. 1120 [137]1100
  105. 1200 [153]
  106. 1201 [139]LE%[178]126[167][153]"   YOU HAVE REACHED MAX LEVELONON":[137]1100
  107. 1202 Q1[178][165]B(LE%):[139]EX[177][178]Q1[167]1250
  108. 1205 [153]"   YOU NEED";Q1;"EXPERIENCE POINTS "
  109. 1210 [153]"   TO MAKE LEVEL";LE%[170]1;"ONONON":[137]1100
  110. 1250 LE%[178]LE%[170]1:R1[178][181]([187](1)[172]10[170]1)
  111. 1251 R1[178](EN[177]14)[172](14[171]EN)[171](EN[179]7)[172](EN[171]7)[170]R1
  112. 1252 HI[178]HI[170]R1:CH[178]CH[170]R1
  113. 1290 [137]1000
  114. 1300 [153]"LOAD           YE OLDE MAGIC SHOPWAIT"
  115. 1310 [153]""
  116. 1319 [153]"     1)TORCHES          10 EACH"
  117. 1320 [153]"     2)MAGIC SWORD      100,000"
  118. 1321 [137]1330
  119. 1322 [153]"LOADHOW MANY TORCHES DO YOU WANT?"
  120. 1323 [153]"(EACH ONE GIVES 15 MOVES OF LIGHT)":A[178]0
  121. 1324 [133]A:A[178][181](A):[139]A[179]1[167]1000
  122. 1325 [139]A[172]10[177]G9[167]1369
  123. 1326 LT[178]LT[170]15[172]A:G9[178]G9[171]10[172]A:[137]1000
  124. 1330 [153]"     3)MAGIC SHIELD     100,000"
  125. 1340 [153]"     4)MAGIC HELMET     100,000"
  126. 1350 [153]"     5)MAGIC ARMOR      150,000"
  127. 1360 [153]"     6)MAGIC ROBE       150,000"
  128. 1361 [153]"     7)MAGIC WAND       200,000"
  129. 1362 [153]"     8)MAGIC ROD        200,000"
  130. 1363 [153]"     9)MAGIC BOOTS      200,000"
  131. 1364 [153]"    10)MAGIC GLOVES     200,000"
  132. 1365 [153]"    11)MAGIC BAG        250,000"
  133. 1366 [153]"     WHICH ITEM DO YOU WISH TO BUY";:[133]A
  134. 1367 [139]A[179]1[176]A[177]11[167]1000
  135. 1368 [145]A[137]1322,1370,1373,1376,1379,1382,1385,1388,1391,1394,1397
  136. 1369 [153]"     NOT ENOUGH MONEY!":[129]I[178]1[164]500:[130]:[137]1000
  137. 1370 [139]G9[179]100000[167]1369
  138. 1371 [139]IT(2)[178]0[167]IT(2)[178][171]1:[141]6520:G9[178]G9[171]100000
  139. 1372 [137]1000
  140. 1373 [139]G9[179]100000[167]1369
  141. 1374 [139]IT(3)[178]0[167]IT(3)[178][171]1:[141]6530:G9[178]G9[171]100000
  142. 1375 [137]1000
  143. 1376 [139]G9[179]100000[167]1369
  144. 1377 [139]IT(4)[178]0[167]IT(4)[178][171]1:[141]6540:G9[178]G9[171]100000
  145. 1378 [137]1000
  146. 1379 [139]G9[179]150000[167]1369
  147. 1380 [139]IT(5)[178]0[167]IT(5)[178][171]1:[141]6550:G9[178]G9[171]150000
  148. 1381 [137]1000
  149. 1382 [139]G9[179]150000[167]1369
  150. 1383 [139]IT(6)[178]0[167]IT(6)[178][171]1:[141]6560:G9[178]G9[171]150000
  151. 1384 [137]1000
  152. 1385 [139]G9[179]200000[167]1369
  153. 1386 [139]IT(10)[178]0[167]IT(10)[178][171]1:[141]6600:G9[178]G9[171]200000
  154. 1387 [137]1000
  155. 1388 [139]G9[179]200000[167]1369
  156. 1389 [139]IT(11)[178]0[167]IT(11)[178][171]1:[141]6610:G9[178]G9[171]200000
  157. 1390 [137]1000
  158. 1391 [139]G9[179]200000[167]1369
  159. 1392 [139]IT(14)[178]0[167]IT(14)[178][171]1:[141]6640:G9[178]G9[171]200000
  160. 1393 [137]1000
  161. 1394 [139]G9[179]200000[167]1369
  162. 1395 [139]IT(16)[178]0[167]IT(16)[178][171]1:[141]6660:G9[178]G9[171]200000
  163. 1396 [137]1000
  164. 1397 [139]G9[179]250000[167]1369
  165. 1398 [139]IT(20)[178]0[167]IT(20)[178][171]1:[141]6700:G9[178]G9[171]250000
  166. 1399 [137]1000
  167. 1400 [153]"LOAD":[141]3000:[153]"PRESS ANY KEY WHEN DONE..."
  168. 1405 [153]"YOU HAVE";G9;"GOLD":[153]"IN THE BANK"
  169. 1410 [161]X$:[139]X$[178]""[167]1410
  170. 1420 [137]1000
  171. 1700 [153]"LOADHOW MUCH DO YOU WISH TO DONATE";:[133]A:A[178][181](A)
  172. 1710 [139]A[179]0[176]A[177]G9[167]1000
  173. 1720 G9[178]G9[171]A:EX[178]EX[170]A
  174. 1730 [137]1000
  175. 2000 X%[178]SU%(1,1):Y%[178]SU%(1,2):FA%[178]1:LL%[178]1
  176. 2001 XM%[178]0:YM%[178][171]1
  177. 2010 [141]2200
  178. 2015 [139]X%[178]SU%(LL%,1)[175]Y%[178]SU%(LL%,2)[167][153]"STAIRWAY GOING UP"
  179. 2016 [139]X%[178]SD%(LL%,1)[175]Y%[178]SD%(LL%,2)[167][153]"STAIRWAY GOING DOWN"
  180. 2020 [161]X$
  181. 2021 [139][187](1)[172]1000[177]999[167]2400
  182. 2022 [139]X$[178]""[167]2020
  183. 2025 LT[178]LT[171]1:[139]LT[179]0[167]LT[178]0
  184. 2030 [139][198](X$)[178]13[167]2100
  185. 2040 [139]X$[178]""[167]FA%[178][165]C(FA%[170]1):[137]2070
  186. 2045 [139][198](X$)[178]141[175][202](Z$,FA%[170]1,1)[178]"3"[167]X%[178]X%[170]XM%:Y%[178]Y%[170]YM%:[137]2096
  187. 2050 [139]X$[178]""[167]FA%[178][165]C(FA%[171]1):[137]2070
  188. 2054 [139]X$[178]"H"[167]5100
  189. 2055 [139]X$[178]"T"[167]2600
  190. 2063 [139]X$[178]"D"[167][141]3000
  191. 2064 [139]X$[178]"S"[167]5000
  192. 2065 [137]2020
  193. 2070 XM%[178](FA%[178]4)[171](FA%[178]2):YM%[178](FA%[178]1)[171](FA%[178]3)
  194. 2095 [141]2200:[137]2015
  195. 2096 [141]2200:[137]3100
  196. 2097 [139][187](1)[179].2[167]2400
  197. 2098 [137]2015
  198. 2100 W$[178][202](Z$,FA%[170]1,1)
  199. 2101 [139]W$[178]"1"[167]X%[178]X%[170]XM%:Y%[178]Y%[170]YM%:[137]2096
  200. 2110 [153]"";[163]8);
  201. 2111 [139]W$[178]"2"[167][153]"**WALL!**":[137]2020
  202. 2112 [153]"**DOOR!**":[137]2020
  203. 2200 [153]"LOAD":Z$[178][196](SS%(X%,Y%,LL%))
  204. 2201 [139]LT[179][178]0[167][142]
  205. 2202 [158](828)
  206. 2209 W$[178][202](Z$,FA%[170]1,1)
  207. 2210 [139]W$[179][177]"1"[167][158](A8):[158](A9):[158](A0):[158](A3):[137]2299
  208. 2220 Z1$[178][196](SS%(X%[170]XM%,Y%[170]YM%,LL%))
  209. 2230 [139][202](Z1$,FA%[170]1,1)[179][177]"1"[167][158](B0):[158](B1):[158](B2)
  210. 2232 [139][202](Z1$,FA%[170]1,1)[178]"3"[167][141]2820
  211. 2240 [139][202](Z1$,[165]C(FA%[171]1)[170]1,1)[179][177]"1"[167][158](B2):[158](B4):[137]2248
  212. 2244 Z2$[178][196](SS%(X%[170]YM%[170]XM%,Y%[171]XM%[170]YM%,LL%))
  213. 2245 [139][202](Z2$,FA%[170]1,1)[179][177]"1"[167][158](B5):[158](B2)
  214. 2246 [137]2249
  215. 2248 [139][202](Z1$,[165]C(FA%[171]1)[170]1,1)[178]"3"[167][141]2800
  216. 2249 [139][202](Z1$,[165]C(FA%[170]1)[170]1,1)[178]"1"[167]2254
  217. 2250 [158](B1):[158](B3):[139][202](Z1$,[165]C(FA%[170]1)[170]1,1)[178]"3"[167][141]2810
  218. 2251 [137]2300
  219. 2254 Z2$[178][196](SS%(X%[171]YM%[170]XM%,Y%[170]XM%[170]YM%,LL%))
  220. 2255 [139][202](Z2$,FA%[170]1,1)[179][177]"1"[167][158](B6):[158](B1):[137]2300
  221. 2299 [139]W$[178]"3"[167][158](2573)
  222. 2300 W$[178][202](Z$,[165]C(FA%[171]1)[170]1,1)
  223. 2301 [139]W$[179][177]"1"[167][158](A0):[158](A1):[137]2309
  224. 2304 ZZ$[178][196](SS%(X%[170]YM%,Y%[171]XM%,LL%))
  225. 2305 [139][202](ZZ$,FA%[170]1,1)[179][177]"1"[167][158](A2):[158](A0)
  226. 2309 [139]W$[178]"3"[167][158](A7)
  227. 2310 W$[178][202](Z$,[165]C(FA%[170]1)[170]1,1)
  228. 2311 [139]W$[179][177]"1"[167][158](A3):[158](A4):[137]2319
  229. 2314 ZZ$[178][196](SS%(X%[171]YM%,Y%[170]XM%,LL%))
  230. 2315 [139][202](ZZ$,FA%[170]1,1)[179][177]"1"[167][158](A5):[158](A3)
  231. 2319 [139]W$[178]"3"[167][158](A6)
  232. 2320 [142]
  233. 2400 NO[178][181]([187](1)[172]10[170]1):[139](LL%[178]10)[175]([181]([187](1)[172]20)[170]1[178]15)[167]2440
  234. 2405 MN$[178]MN$(NO):M1[178][181]([187](1)[172]M1(NO))[170]1:M2[178]M2(NO):M3[178]M3(NO):M4[178]M4(NO):M5[178]M5(NO)
  235. 2406 M6[178]M6(NO):M7[178]M7(NO)
  236. 2407 [129]I[178]1[164]M1:M8(I)[178]M3[172]LL%:[130]
  237. 2408 [141]5200
  238. 2410 [153]"    YOU HAVE ENCOUNTERED"
  239. 2412 IS$[178]"":[139]M1[177]1[167]IS$[178]"S"
  240. 2413 [153]"   ";M1;"CMD ";MN$;IS$;" "
  241. 2415 [129]I[178]1[164]300:[130]:[153]"    OPTIONS (F,S,H,R)"
  242. 2420 [161]X$:[139]X$[178]""[167]2420
  243. 2421 [139]X$[178]"F"[167]2500
  244. 2422 [139]X$[178]"S"[167]2700
  245. 2423 [139]X$[178]"H"[167]2900
  246. 2424 [139]X$[178]"R"[167]2980
  247. 2425 [139]X$[178]"D"[167][141]3000:[153]""
  248. 2435 [137]2420
  249. 2440 MN$[178]"TARBOR":M1[178]1:M2[178]1:M3[178]20:M4[178]10:M5[178]95:M6[178]50:M7[178]5:M8(1)[178]200:[137]2408
  250. 2500 R[178][181]([187](1)[172]20)[170]1:[139]R[178]20[167]2510
  251. 2501 [139]R[171]M7[170]D5[177][178]D6[167]2510
  252. 2504 [153]"ON    YOU MISSED        ":[129]J[178]1[164]400:[130]
  253. 2505 [137]4000
  254. 2510 R[178][181]([187](1)[172]D4[170]1)[172]LE%[170]D3
  255. 2515 [139]R[177][178]M8(M1)[167]2550
  256. 2520 EX[178]EX[170]10[172]R:M8(M1)[178]M8(M1)[171]R
  257. 2530 [153]"ON    YOU HIT FOR";R;"CMD    ":EX[178]EX[170]R:[129]J[178]1[164]400:[130]
  258. 2540 [137]4000
  259. 2550 [153]"ON    YOU KILLED ONE    ":EX[178]M8(M1)[172]10[170]EX:M1[178]M1[171]1:[129]J[178]1[164]400:[130]
  260. 2555 [139]M1[178]0[167][141]5200:[137]6000
  261. 2560 [153]"    YOU HAVE ENCOUNTERED"
  262. 2562 IS$[178]"":[139]M1[177]1[167]IS$[178]"S"
  263. 2563 [153]"   ";M1;"CMD ";MN$;IS$;" ":[153]
  264. 2564 [137]4000
  265. 2600 [139]X%[178]SU%(LL%,1)[175]Y%[178]SU%(LL%,2)[167]LL%[178]LL%[171]1:A$[178]"UP":[137]2650
  266. 2610 [139]X%[178]SD%(LL%,1)[175]Y%[178]SD%(LL%,2)[167]LL%[178]LL%[170]1:A$[178]"DOWN":[137]2650
  267. 2620 [137]2020
  268. 2650 [153]"LOADGOING ";A$;"..."
  269. 2655 [139]LL%[178]0[167]1000
  270. 2660 [129]I[178]1[164]1000:[130]:[137]2010
  271. 2700 [141]5200
  272. 2701 [139]D7[178]0[167][153]"NO SPELL POINTS LEFT      ":[129]I[178]1[164]400:[130]:[137]2790
  273. 2710 [153]"WHICH SPELL?"
  274. 2720 [153]"1)SLEEP    2)BLAST"
  275. 2725 [153]"3)FIRE     4)LIGHTNING"
  276. 2726 [153]"5)DESTRUCT 6)WRATH"
  277. 2730 [161]X$:[139]X$[178]""[167]2730
  278. 2731 [139]X$[179]"1"[176]X$[177]"6"[167]2790
  279. 2732 [145][198](X$)[171]48[137]2735,2740,2750,2760,2770,2780
  280. 2735 D7[178]D7[171]1:[139]LE%[179]LL%[172]LL%[167]2788
  281. 2736 R[178][181]([187](1)[172]100)[170]1:[139]R[179]M5[167]2788
  282. 2737 R[178][181]([187](1)[172]5)[170]2:[139]R[177]M1[167]R[178]M1
  283. 2738 [141]5200:[153]"YOU SLEPT";R:M1[178]M1[171]R:EX[178]EX[170]10[172]R[172]M3:[129]I[178]1[164]300:[130]:[141]5200
  284. 2739 [137]2790
  285. 2740 [141]5200:D7[178]D7[171]2:[139]D7[179]0[167]D7[178]D7[170]2:[137]2789
  286. 2741 R[178][181]([187](1)[172]100)[170]1:[139]R[179]M5[167]2788
  287. 2742 R[178][181]([187](1)[172]6[170]1)[172]LE%:[139]R[177]M8(M1)[167]2746
  288. 2743 EX[178]EX[170]10[172]R:M8(M1)[178]M8(M1)[171]R
  289. 2744 [153]"    YOU HIT FOR";R;"CMD    "
  290. 2745 [137]2747
  291. 2746 [153]"    YOU KILLED ONE    ":EX[178]M8(M1)[172]10[170]EX:M1[178]M1[171]1
  292. 2747 [129]I[178]1[164]400:[130]:[137]2790
  293. 2750 [141]5200:D7[178]D7[171]3:[139]D7[179]0[167]D7[178]D7[170]3:[137]2789
  294. 2751 R[178][181]([187](1)[172]100)[170]1:[139]R[179]M5[167]2788
  295. 2752 A[178]M1:[129]I[178]1[164]A:[141]5200:R[178][181]([187](1)[172]8[170]1)[172]LE%:[139]R[177]M8(I)[167]2756
  296. 2753 EX[178]EX[170]10[172]R:M8(I)[178]M8(I)[171]R
  297. 2754 [153]"    YOU HIT FOR";R;"CMD    "
  298. 2755 [137]2757
  299. 2756 [153]"    YOU KILLED ONE    ":EX[178]M8(I)[172]10[170]EX:M1[178]M1[171]1
  300. 2757 [129]J[178]1[164]400:[130]:[130]:[137]2790
  301. 2760 [141]5200:D7[178]D7[171]4:[139]D7[179]0[167]D7[178]D7[170]4:[137]2789
  302. 2761 R[178][181]([187](1)[172]100)[170]1:[139]R[179]M5[167]2788
  303. 2762 R[178][181]([187](1)[172]12[170]1)[172]LE%:[139]R[177]M8(M1)[167]2766
  304. 2763 EX[178]EX[170]10[172]R:M8(M1)[178]M8(M1)[171]R
  305. 2764 [153]"    YOU HIT FOR";R;"CMD    "
  306. 2765 [137]2767
  307. 2766 [153]"    YOU KILLED ONE    ":EX[178]M8(M1)[172]10[170]EX:M1[178]M1[171]1
  308. 2767 [129]I[178]1[164]400:[130]:[137]2790
  309. 2770 [141]5200:D7[178]D7[171]5:[139]D7[179]0[167]D7[178]D7[170]5:[137]2789
  310. 2771 R[178][181]([187](1)[172]100)[170]1:[139]R[179]M5[167]2788
  311. 2772 R[178][181]([187](1)[172]20[170]1)[172]LE%:[139]R[177]M8(M1)[167]2776
  312. 2773 EX[178]EX[170]10[172]R:M8(M1)[178]M8(M1)[171]R
  313. 2774 [153]"    YOU HIT FOR";R;"CMD    "
  314. 2775 [137]2777
  315. 2776 [153]"    YOU KILLED ONE    ":EX[178]M8(M1)[172]10[170]EX:M1[178]M1[171]1
  316. 2777 [129]I[178]1[164]400:[130]:[137]2790
  317. 2780 [141]5200:D7[178]D7[171]6:[139]D7[179]0[167]D7[178]D7[170]6:[137]2789
  318. 2781 R[178][181]([187](1)[172]100)[170]1:[139]R[179]M5[167]2788
  319. 2782 A[178]M1:[129]I[178]1[164]A:[141]5200:R[178][181]([187](1)[172]15[170]1)[172]LE%:[139]R[177]M8(I)[167]2786
  320. 2783 EX[178]EX[170]10[172]R:M8(I)[178]M8(I)[171]R
  321. 2784 [153]"    YOU HIT FOR";R;"CMD    "
  322. 2785 [137]2787
  323. 2786 [153]"    YOU KILLED ONE    ":EX[178]M8(I)[172]10[170]EX:M1[178]M1[171]1
  324. 2787 [129]J[178]1[164]400:[130]:[130]:[137]2790
  325. 2788 [141]5200:[153]"SPELL HAS NO EFFECT":[129]I[178]1[164]400:[130]:[137]2790
  326. 2789 [141]5200:[153]"NOT ENOUGH SPELLS LEFT":[129]I[178]1[164]400:[130]
  327. 2790 [141]5200:[139]M1[179]1[167]6000
  328. 2791 [153]"    YOU HAVE ENCOUNTERED"
  329. 2792 IS$[178]"":[139]M1[177]1[167]IS$[178]"S"
  330. 2793 [153]"   ";M1;"CMD ";MN$;IS$;" ":[153]
  331. 2794 [137]4000
  332. 2800 [151]1471,106:[151]1472,77:[151]1511,106:[151]1512,106:[151]1551,106:[151]1552,106
  333. 2801 [151]1591,106:[151]1592,106:[151]1631,106:[151]1632,106:[151]1671,106
  334. 2802 [142]
  335. 2810 [151]1480,78:[151]1481,116:[151]1520,116:[151]1521,116:[151]1560,116:[151]1561,116
  336. 2811 [151]1600,116:[151]1601,116:[151]1640,116:[151]1641,116:[151]1681,116
  337. 2812 [142]
  338. 2820 [151]1515,112:[151]1516,64:[151]1517,110:[151]1555,66:[151]1557,66:[151]1595,66
  339. 2821 [151]1597,66:[142]
  340. 2900 [153]"ON    ";
  341. 2901 [139]D8[178]0[167][153]"NO HEALS LEFT        ":[129]I[178]1[164]300:[130]:[137]4000
  342. 2905 D8[178]D8[171]1:A[178][181]([187](1)[172]8)[170]1:CH[178]CH[170]A
  343. 2910 [139]CH[177]HI[167]CH[178]HI:[153]"HEALED!              ":[129]I[178]1[164]300:[130]:[137]4000
  344. 2920 [153]"YOU HEALED";A;"CMD         "
  345. 2921 [129]I[178]1[164]300:[130]
  346. 2925 [137]4000
  347. 2980 GD[178]0:R[178][181]([187](1)[172]100)[170]1:[139]R[177][178]M6[167]2990
  348. 2981 [153]"ON    DIDN'T MAKE IT      ":[129]I[178]1[164]300:[130]:[137]4000
  349. 2990 [153]"ON    YOU MADE IT       ":[129]I[178]1[164]350:[130]:[141]5200:[137]2020
  350. 3000 [153]""
  351. 3001 [153]NA$;"  LEVEL";LE%;" DE:";AC
  352. 3002 [153]"STR:";SG;[163]9);"AGI:";AG;[163]23);"MAGIC ";D7;"CMD/";D8
  353. 3003 [153]"INT:";IN;[163]9);"END:";EN;[163]23);"EXP ";EX
  354. 3004 [153]"PIE:";PI;[163]9);"HITS";CH;"CMD/";HI;"CMD ";[163]23);"GOLD";GD;"CMD  ";
  355. 3080 [153]""
  356. 3085 [141]9500
  357. 3099 [142]
  358. 3100 [139]X%[178]P5%(LL%,1)[175]Y%[178]P5%(LL%,2)[167]3110
  359. 3101 [139]X%[178]C5%(LL%,1)[175]Y%[178]C5%(LL%,2)[167]3160
  360. 3102 [139]X%[178]T5%(LL%,1)[175]Y%[178]T5%(LL%,2)[167]3180
  361. 3105 [137]2097
  362. 3110 [153]"**PIT**":W6[178][181]([187](0)[172]6)[170]1:W6[178]W6[172]LL%
  363. 3115 [139]LV[178][171]1[167][153]"HOVERING":[137]2015
  364. 3120 [153]W6;"POINTS OF DAMAGE"
  365. 3121 CH[178]CH[171]W6:[139]CH[179]1[167][137]9000
  366. 3125 [137]2015
  367. 3160 [139]LV[178][171]1[167]3165
  368. 3161 [153]"**CHUTE**":LL%[178]LL%[170]3:[129]I[178]1[164]600:[130]:[137]2660
  369. 3165 [153]"YOU ARE HOVERING OVER":[153]"A CHUTE"
  370. 3166 [153]"TAKE IT (Y/N)?"
  371. 3167 [161]X$:[139]X$[178]""[167]3167
  372. 3168 [141]5200:[139]X$[178]"Y"[167][141]5200:[137]3161
  373. 3170 [137]2015
  374. 3180 X%[178][181]([187](0)[172]10)[170]1:Y%[178][181]([187](0)[172]10)[170]1
  375. 3181 [137]2095
  376. 3200 [153]"LOADOK, NOW PUT THE DISKETTE CONTAINING"
  377. 3201 [153]"THE CHARACTER RECORDS IN THE DRIVE"
  378. 3202 [153]"AND HIT RETURN AFTER YOU'RE DONE"
  379. 3203 [161]X$:[139]X$[178]""[167]3203
  380. 3204 [139][198](X$)[179][177]13[167]3203
  381. 3205 [153]"TYPE IN THE NAME OF THE CHARACTER":[133]A$
  382. 3206 [159]2,8,2,"0:"[170]A$[170]",S,R"
  383. 3207 [132]2,NA$:[139]ST[178]66[167][160]2:[137]3250
  384. 3208 [132]2,LE%
  385. 3209 [132]2,SG:[132]2,IN
  386. 3210 [132]2,PI
  387. 3211 [132]2,AG
  388. 3212 [132]2,EN
  389. 3213 [132]2,HI
  390. 3214 [132]2,CH:[132]2,Q9
  391. 3215 [132]2,GD:[132]2,LT
  392. 3216 [132]2,EX:[132]2,G9
  393. 3217 [132]2,AC:[132]2,D2:[132]2,D3:[132]2,D4:[132]2,D5
  394. 3218 [129]I[178]1[164]20:[132]2,IT(I):[130]
  395. 3228 [160]2
  396. 3229 [137]1000
  397. 3250 [153]"LOADSORRY...THAT CHARACTER IS NOT"
  398. 3255 [153]"AVAILABLE.":[153]:[153]"PRESS ANY KEY TO CONTINUE."
  399. 3260 [161]X$:[139]X$[178]""[167]3260
  400. 3265 [153]"LOAD"
  401. 3270 [137]150
  402. 3300 [153]"LOADNOW, PLACE A FORMATTED DISKETTE"
  403. 3301 [153]"INTO THE DRIVE & HIT RETURN"
  404. 3302 [161]X$:[139]X$[178]""[167]3302
  405. 3303 [139][198](X$)[179][177]13[167]3302
  406. 3304 [159]2,8,2,"@0:"[170]NA$[170]",S,W"
  407. 3305 [152]2,NA$
  408. 3306 [152]2,LE%
  409. 3307 [152]2,SG
  410. 3308 [152]2,IN
  411. 3309 [152]2,PI
  412. 3310 [152]2,AG
  413. 3311 [152]2,EN
  414. 3312 [152]2,HI
  415. 3313 [152]2,CH:[152]2,Q9
  416. 3314 [152]2,GD:[152]2,LT
  417. 3315 [152]2,EX:[152]2,G9:[152]2,AC:[152]2,D2:[152]2,D3:[152]2,D4:[152]2,D5
  418. 3316 [129]I[178]1[164]20:[152]2,IT(I):[130]:[160]2
  419. 3320 [137]1000
  420. 4000 [129]I[178]1[164]400:[130]
  421. 4001 [129]I[178]1[164]M1:R[178][181]([187](1)[172]20[170]1):[139]R[178]20[167]4010
  422. 4002 [139]R[171]AC[177][178]M2[167]4010
  423. 4003 [153]"ON    MONSTER MISSES    ":[129]J[178]1[164]300:[130]
  424. 4004 [137]4090
  425. 4010 D9[178]0:[129]J[178]1[164]LL%:D9[178]D9[170][181]([187](1)[172]M4)[170]1:[130]:[139]D9[179][178]D2[167]4003
  426. 4011 [153]"ON    MONSTER HITS YOU   ":D9[178]D9[171]D2
  427. 4012 [153]"    FOR";D9;"POINTS":CH[178]CH[171]D9:[139]CH[179]1[167]9000
  428. 4015 [129]J[178]1[164]450:[130]:[153]"ON                    ":[153]"ON";
  429. 4090 [153]"ON                       ":[130]
  430. 4095 [137]2410
  431. 5000 [141]5200
  432. 5001 [139]D7[178]0[167][153]"NO SPELL POINTS LEFT      ":[137]2020
  433. 5010 [153]"WHICH SPELL?"
  434. 5020 [153]"1)LIGHT     2)LOCATE"
  435. 5025 [153]"3)PROTECT   4)LEVITATE"
  436. 5026 [153]"5)PASS WALL 6)TELEPORT"
  437. 5030 [161]X$:[139]X$[178]""[167]5030
  438. 5031 [139]X$[179]"1"[176]X$[177]"6"[167][141]5200:[137]2020
  439. 5032 [145][198](X$)[171]48[137]5035,5040,5050,5060,5070,5080
  440. 5035 F8[178][171]1:LT[178]50:D7[178]D7[171]1:[141]5200:[141]2200
  441. 5038 [137]2020
  442. 5040 D7[178]D7[171]1:[141]5200
  443. 5043 [153]"YOU ARE AT LOCATION:":[153]X%;"CMD,";Y%;" ON LEVEL";LL%
  444. 5044 [137]2020
  445. 5050 [139]D7[179]2[167]5096
  446. 5051 D7[178]D7[171]2
  447. 5055 [139]PO[178]0[167]AC[178]AC[170]1:PO[178][171]1
  448. 5056 [141]5200:[137]2020
  449. 5060 [139]D7[179]2[167]5096
  450. 5061 D7[178]D7[171]2
  451. 5065 LV[178][171]1:[141]5200:[137]2020
  452. 5070 [139]D7[179]4[167]5096
  453. 5071 D7[178]D7[171]4:[141]5200
  454. 5072 [139]X%[170]XM%[177]10[176]X%[170]XM%[179]1[176]Y%[170]YM%[177]10[176]Y%[170]YM%[179]1[167]2020
  455. 5075 X%[178]X%[170]XM%:Y%[178]Y%[170]YM%:[137]2096
  456. 5080 [139]D7[179]5[167]5096
  457. 5081 D7[178]D7[171]5
  458. 5082 [141]5200:[153]"ENTER COORDINATES":[133]"(X,Y,Z) ";I,J,K
  459. 5083 [139]I[179]1[176]I[177]10[176]J[179]1[176]J[177]10[176]K[179]1[176]K[177]10[167]5082
  460. 5085 X%[178]I:Y%[178]J:LL%[178]K:[137]2010
  461. 5096 [141]5200
  462. 5099 [153]"NOT ENOUGH SPELL POINTS":[137]2020
  463. 5100 [141]5200
  464. 5101 [139]D8[178]0[167][153]"NO HEALS LEFT         ":[137]2020
  465. 5105 D8[178]D8[171]1:A[178][181]([187](1)[172]8)[170]1:CH[178]CH[170]A
  466. 5110 [139]CH[177][178]HI[167]CH[178]HI:[153]"HEALED!               ":[137]2020
  467. 5120 [153]"YOU HEALED";A;"POINTS"
  468. 5199 [137]2020
  469. 5200 [153]"";:[129]I9[178]1[164]4:[153]"                         ":[130]:[142]
  470. 6000 [139]MN$[178]"TARBOR"[167]10000
  471. 6001 R[178][181]([187](1)[172](200[173]LL%))[170]1:[139]R[178]1[167]6100
  472. 6010 R[178][181]([187](1)[172]50[170]1)[172]10[172]LL%
  473. 6020 [153]"YOU HAVE FOUND"
  474. 6025 [153]R;"GOLD":GD[178]GD[170]R:[139]GD[177]250000[167]GD[178]250000
  475. 6030 [139]GD[177]25000[175]IT(20)[178]0[167]GD[178]25000
  476. 6040 [129]I[178]1[164]500:[130]:[141]5200:[137]2020
  477. 6100 R[178][181]([187](1)[172]19)[170]2:[139]IT(R)[178][171]1[167]6010
  478. 6110 IT(R)[178][171]1:[153]"YOU HAVE FOUND":[153]IN$(R)
  479. 6119 [139]R[177]14[167]6130
  480. 6120 [145]R[141]0,6520,6530,6540,6550,6560,6570,6580,6590,6600,6610,6620,6630,6640
  481. 6125 [137]6040
  482. 6130 [145]R[171]14[141]6650,6660,6670,6680,6690,6700
  483. 6150 [137]6040
  484. 6520 D5[178]D5[170]5:IT(1)[178]0:[142]
  485. 6530 D2[178]D2[170]5:[142]
  486. 6540 D2[178]D2[170]5:[142]
  487. 6550 D2[178]D2[170]10:[142]
  488. 6560 D2[178]D2[170]5:[142]
  489. 6570 LV[178][171]1:[142]
  490. 6580 LT[178]100000000:[142]
  491. 6590 D5[178]D5[170]4:[142]
  492. 6600 D7[178]D7[172]2:[142]
  493. 6610 D8[178]D8[172]2:[142]
  494. 6620 [142]
  495. 6630 [142]
  496. 6640 D2[178]D2[170]2:[142]
  497. 6650 D5[178]D5[170]2:[142]
  498. 6660 D5[178]D5[170]2:[142]
  499. 6670 D8[178]D8[170][181]([187](1)[172]5)[170]2:[142]
  500. 6680 D7[178]D7[170][181]([187](1)[172]5)[170]2:[142]
  501. 6690 D7[178]D7[170][181]([187](1)[172]5)[170]2:[142]
  502. 6700 [142]
  503. 9000 [129]I[178]1[164]999:[130]:[153]"LOAD              YOU ARE DEAD"
  504. 9001 [139]IT(13)[178][171]1[167]9010
  505. 9002 [159]15,8,15,"S0:"[170]NA$:[152]15,"I":[160]15
  506. 9003 [153]"PRESS ANY KEY TO CONTINUE..."
  507. 9004 [161]X$:[139]X$[178]""[167]9004
  508. 9005 [153]"LOAD":[137]150
  509. 9010 [153]"THE AMULET OF LIFE IS RESSURECTING YOU!":[129]I[178]1[164]700:[130]
  510. 9015 [129]I[178]2[164]20:IT(I)[178]0:[130]:IT(1)[178][171]1:AC[178]0:[139]AG[177]14[167]AC[178]AC[170]AG[171]14
  511. 9020 LT[178]0:PO[178]0:LV[178]0:D5[178]0:[139]SG[177]16[167]D5[178]SG[171]16
  512. 9025 DA[178][171](SG[177]15)[171](SG[177]17)[170](SG[179]6)
  513. 9030 [139]SG[179]8[167]D5[178][181](SG[173]2)[171]4
  514. 9040 [137]291
  515. 9500 [153]"":[153]:[153][163]25);"EQUIPMENT":[153]
  516. 9510 [129]I[178]1[164]20
  517. 9520 [153][163]24);
  518. 9521 [139]IT(I)[178][171]1[167][153]IN$(I)
  519. 9530 [130]
  520. 9590 [153]""
  521. 9599 [142]
  522. 10000 [153]"LOAD     CONGATULATIONS!!!"
  523. 10001 [153]: [153]"  YOU HAVE COMPLETED THE QUEST!!":Q9[178][171]1
  524. 10002 [129]I[178]1[164]999:[130]:[141]3300
  525. 10010 [137]10010
  526. 11000 [153]"LOAD"
  527. 11001 [153]"             QUEST FOR POWER"
  528. 11002 [153]"             TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  529. 11003 [153]"               PLEASE WAIT"
  530. 11004 [153]"                             ";:[153]""
  531. 11010 [129]I[178]828[164]847:[135]J:[151]I,J:[130]
  532. 11020 [131]160,0,169,5,153,0,216,153,0,217,153,0,218,153,0,219,200,208,241,96
  533. 11099 [137]103
  534. 20000 [131]2112,2121,2321,2123,2111,2321,2123,2121,2121,2211
  535. 20001 [131]1212,2232,2232,2212,1222,2112,2121,2121,2211,1212
  536. 20002 [131]1112,3321,3123,1111,2211,1212,2112,2211,1212,1212
  537. 20003 [131]1212,2122,2221,1122,1221,1212,1132,1321,1223,1232
  538. 20004 [131]1122,2121,2121,2321,2123,1211,3112,2211,2112,3211
  539. 20005 [131]2112,2121,2121,2121,2211,1212,1122,1231,1122,1221
  540. 20006 [131]1212,2112,2121,2211,1212,1212,2112,3211,2112,2211
  541. 20007 [131]1212,1212,2122,1221,1212,1212,1132,1221,1122,1221
  542. 20008 [131]1212,1122,2121,2121,1221,1232,3122,2121,2321,2213
  543. 20009 [131]1122,2121,2121,2121,2121,3121,2121,2121,2121,1221
  544. 20010 [131]2112,2211,2122,2131,2131,2121,2111,2121,2121,2211
  545. 20011 [131]1132,1221,2112,3221,3122,2211,1212,2112,2311,1213
  546. 20012 [131]3112,2211,1212,2122,2221,1212,1312,1123,1221,1212
  547. 20013 [131]1122,1231,1312,2113,2211,1212,1312,2123,2321,1213
  548. 20014 [131]2112,3211,1222,1122,1231,1212,1212,2112,2311,1213
  549. 20015 [131]1132,1221,2232,2122,3121,1221,1312,1123,1221,1212
  550. 20016 [131]3122,2121,3111,2121,2121,2121,1111,2121,2121,1221
  551. 20017 [131]2112,2231,1222,2312,2323,2213,1212,2122,2321,2213
  552. 20018 [131]1212,3122,2121,1121,2121,1221,1212,2122,2121,1231
  553. 20019 [131]1122,2121,2121,2121,2121,2121,1121,2121,2121,3221
  554. 20020 [131]2332,2333,2333,2333,2333,2333,2333,2333,2333,2233
  555. 20021 [131]3332,3333,3333,3333,3333,3333,3333,3333,3333,3233
  556. 20022 [131]3332,3333,3113,3111,3111,3111,3111,3311,3333,3233
  557. 20023 [131]3332,3333,1113,1111,1121,1121,1111,1311,3333,3233
  558. 20024 [131]3332,3333,1113,1211,2332,2233,1112,1311,3333,3233
  559. 20025 [131]3332,3333,1113,1211,3222,3232,1112,1311,3333,3233
  560. 20026 [131]3332,3333,1113,1111,2111,3111,1111,1311,3333,3233
  561. 20027 [131]3332,3333,1133,1131,1131,1131,1131,1331,3333,3233
  562. 20028 [131]3332,3333,3333,3333,3333,3333,3333,3333,3333,3233
  563. 20029 [131]3322,3323,3323,3323,3323,3323,3323,3323,3323,3223
  564. 20030 [131]2112,2321,2123,2121,2111,2111,2121,2321,2123,2211
  565. 20031 [131]1232,2112,2111,2211,1112,1211,2112,2111,2211,1232
  566. 20032 [131]3212,1112,1111,1211,1112,1211,1112,1111,1211,3212
  567. 20033 [131]1212,1122,1121,1221,1132,1231,1122,1121,1221,1212
  568. 20034 [131]1112,2111,2111,2311,3113,3311,2113,2111,2111,1211
  569. 20035 [131]1112,1121,1121,1321,1133,1331,1123,1121,1121,1211
  570. 20036 [131]1212,2112,2111,2211,3112,3211,2112,2111,2211,1212
  571. 20037 [131]1232,1112,1111,1211,1112,1211,1112,1111,1211,1232
  572. 20038 [131]3212,1122,1121,1221,1112,1211,1122,1121,1221,3212
  573. 20039 [131]1122,2321,2123,2121,1121,1121,2121,2321,2123,1221
  574. 20040 [131]2112,2121,2121,2121,2121,2121,2121,2121,2121,2211
  575. 20041 [131]1212,2112,2121,2121,2121,2121,2121,2121,2221,1212
  576. 20042 [131]1212,1122,2121,2121,2121,2121,2121,2121,2121,1221
  577. 20043 [131]1112,2121,2321,2113,2131,2311,2123,2121,2121,2211
  578. 20044 [131]1222,2122,2211,1212,3222,1212,2112,2121,2121,1221
  579. 20045 [131]2112,2121,1221,1112,2111,1211,1112,2121,2121,2211
  580. 20046 [131]1212,2122,2221,1122,1131,1221,1222,2122,2221,1212
  581. 20047 [131]1122,2121,2121,2211,3212,2112,2121,2121,2121,1221
  582. 20048 [131]2112,2121,2121,1221,1212,1122,2121,2121,2121,2211
  583. 20049 [131]1122,2121,2121,2121,1121,2121,2121,2121,2121,1221
  584. 20050 [131]2112,2121,2121,2121,2121,2121,2121,2211,2112,2211
  585. 20051 [131]1212,2112,2121,2121,2121,2121,2221,1212,1212,1212
  586. 20052 [131]1212,1212,2112,2111,2121,2121,2121,1211,1212,1212
  587. 20053 [131]1212,1212,1212,1212,2112,2121,2211,1212,1212,1212
  588. 20054 [131]1212,1212,1212,1222,1222,2212,1212,1222,1212,1212
  589. 20055 [131]1212,1212,1122,2121,2121,1211,1122,2121,1221,1212
  590. 20056 [131]1212,1112,2121,2121,2211,1122,2121,2121,2121,1221
  591. 20057 [131]1212,1212,2122,2121,1121,2121,2121,2121,2121,2211
  592. 20058 [131]1212,1122,2121,2121,2121,2121,2121,2121,2221,1212
  593. 20059 [131]1122,2121,2121,2121,2121,2121,2121,2121,2121,1221
  594. 20060 [131]2132,2311,2123,2311,2123,2311,2123,2311,2123,2211
  595. 20061 [131]3212,1122,2211,1122,2211,1122,2211,1122,2211,1232
  596. 20062 [131]1122,2211,1122,2211,1122,2211,1122,2211,1122,3211
  597. 20063 [131]2212,1122,2211,1122,2211,1132,2211,1122,2211,1232
  598. 20064 [131]1132,2211,1122,2211,1122,3211,1122,2211,1122,3211
  599. 20065 [131]3212,1122,2211,1122,2211,1122,2211,1122,2211,1232
  600. 20066 [131]1122,2211,1122,2211,1122,2211,1122,2211,1122,3211
  601. 20067 [131]2212,1122,2211,1122,2211,1122,2211,1122,2211,1232
  602. 20068 [131]1132,2211,1122,2211,1122,2211,1122,2211,1122,3211
  603. 20069 [131]3222,1122,2321,1123,2221,1122,2321,1123,2321,1223
  604. 20070 [131]2112,2111,2111,2111,2111,2111,2211,2112,2311,2213
  605. 20071 [131]1112,1111,1111,1111,1111,1111,1211,1112,1311,1223
  606. 20072 [131]1112,1111,1111,1111,1111,1111,1211,1122,1321,2213
  607. 20073 [131]1112,1111,1111,1111,1111,1111,1111,2111,2211,1212
  608. 20074 [131]1112,1111,1111,1111,1111,1111,1111,1111,1211,1212
  609. 20075 [131]1112,1111,1111,1111,1111,1111,1111,1111,1211,1212
  610. 20076 [131]1112,1111,1111,1111,1111,1111,1111,1111,1211,1212
  611. 20077 [131]1112,1111,1111,1111,1111,1111,1111,1111,1211,1212
  612. 20078 [131]1122,1121,1121,1121,1121,1121,1121,1121,1221,1212
  613. 20079 [131]2122,2121,2121,2121,2121,2121,2121,2121,2121,1221
  614. 20080 [131]2112,2311,2113,2311,2113,2311,2113,2311,2113,2211
  615. 20081 [131]1132,1221,1122,1221,1132,1221,1122,1221,1122,1231
  616. 20082 [131]3212,2122,2321,2213,3212,2312,2323,2323,2223,3212
  617. 20083 [131]1312,2123,2121,1211,1212,1112,2121,2121,2321,1213
  618. 20084 [131]1212,2122,2321,1223,1212,1322,2323,2323,2223,1212
  619. 20085 [131]1312,2123,2121,2121,1111,2121,2121,2121,2321,1213
  620. 20086 [131]1212,2122,2321,2213,1212,2312,2323,2323,2223,1212
  621. 20087 [131]1312,2123,2121,1211,1212,1112,2121,2121,2321,1213
  622. 20088 [131]1212,2122,2321,1223,1232,1322,2323,2323,2223,1212
  623. 20089 [131]1122,2121,2121,2121,3121,2121,2121,2121,2121,1221
  624. 20090 [131]2112,2121,2111,2111,2111,2111,2121,2111,2111,2211
  625. 20091 [131]1112,2111,1211,1112,1121,1111,2121,1111,1221,1212
  626. 20092 [131]1112,1221,1112,1111,2111,1111,2211,1112,2121,1211
  627. 20093 [131]1112,2111,1111,1121,1111,1211,1112,1111,2111,1221
  628. 20094 [131]1112,1121,1111,2111,1221,1112,1211,1112,1111,2211
  629. 20095 [131]1112,2211,1112,1111,2111,1121,1111,1111,1211,1212
  630. 20096 [131]1212,1112,1211,1112,1121,2111,1121,1211,1112,1211
  631. 20097 [131]1112,1111,1111,1111,2111,1111,2211,1112,1121,1211
  632. 20098 [131]1112,1121,1211,1112,1211,1212,1112,1211,2112,1211
  633. 20099 [131]1122,2121,1121,1121,1121,1121,1121,1121,1121,1221
  634. 20100 [131]1,1,3,8,3,8,8,8,8,8,1,1,1,1,10,9,10,9,5,5,5,5,4,5,4,5,1,10,1,10,10,1
  635. 20101 [131]10,1,9,5,9,5,0,0
  636. 20102 [131]10,1,3,6,5,4,10,1,5,6,8,5,10,2,8,1,9,3,5,5
  637. 20103 [131]0,0,3,1,5,6,1,10,6,5,6,5,9,1,0,0,0,0,0,0
  638. 20104 [131]5,2,2,1,4,7,10,10,4,5,3,8,5,4,9,2,2,5,5,10
  639. 20500 [131]MAGIC SWORD,MAGIC SHIELD,MAGIC HELMET,MAGIC ARMOR
  640. 20510 [131]MAGIC ROBE,LEV RING,AMULET OF LIGHT,INVIS RING,MAGIC WAND,MAGIC ROD
  641. 20520 [131]HOLY CROSS,LIFE AMULET,MAGIC BOOTS,MAGIC BELT,MAGIC GLOVES
  642. 20530 [131]MAGIC SCROLL,MAGIC SCROLL,MAGIC SCROLL
  643. 20531 [131]MAGIC BAG
  644. 21000 [131]VAMPIRE,1,1,10,10,95,0,7
  645. 21001 [131]EVIL WARRIOR,4,10,5,6,0,50,0
  646. 21002 [131]DEADLY SPIDER,8,15,1,1,0,20,1
  647. 21003 [131]DRAGON,1,2,8,12,50,75,5
  648. 21004 [131]EVIL WIZARD,1,15,2,20,99,10,0
  649. 21005 [131]DEMON,4,11,6,4,40,35,3
  650. 21006 [131]PUD,20,1,20,1,0,5,0
  651. 21007 [131]EKKER,3,14,7,4,0,65,4
  652. 21008 [131]ZOMBIE,4,14,6,6,20,45,2
  653. 21009 [131]DEATH,1,1,9,1,99,1,7
  654.