home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / THE-VALLEY (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  14.1 KB  |  552 lines
  1. 1 REM-MODIFIED BY SMADA
  2. 7 POKE53280,2:POKE53281,2
  3. 8 POKE56,127:POKE56576,149:POKE53272,4:POKE648,128:POKE792,116:POKE793,164:CLR
  4. 9 DIMJ(15):J(14)=8:J(6)=9:J(7)=6:J(5)=3:J(13)=2:J(9)=1:J(11)=4:J(10)=7:CL=22528
  5. 10 DIMD(3),G(73),P(8),N(8),S(4),T(2)
  6. 11 PRINT"[147][142][158] [183][208][207][183][182]  [181][182][183][183]     [180]  [170] [206][183][205] [180]  [180] [182][183][183] [205]  [206]
  7. 12 [153]"  +SGN ABSTANTANINTABSTAN      (null)  (null) (null)ANDSQR SGN  SGN ABSTAN   (null)(null)
  8. 13 PRINT"  [170][180] [182]  [181][182][175][175]      [205][206]  [180] [170] [204][175] [204][175][182][175][175]  [167][165]
  9. 14 [153]"SYSFIND TREASURE AND BATTLE MONSTERS IN THE
  10. 15 PRINT"VALLEY.  AS YOUR CHARACTER GAINS
  11. 16 [153]"EXPERIENCE, HE BECOMES STRONGER AND MORE
  12. 17 PRINT"CAPABLE.
  13. 18 [153]"SYSUSE THE JOYSTICK (PORT 2) TO MOVE.
  14. 28 DIMM$(18),MS(18),N1(18)
  15. 30 VG$="":GC$="":F$="":DL$=""
  16. 40 TS=0:TN=0:TM=3:CF=0
  17. 50 D$=""
  18. 60 D1$=LEFT$(D$,17)
  19. 70 SP$="                                       "
  20. 80 R$=""
  21. 90 R1$=LEFT$(R$,21)
  22. 100 FORI=1TO32
  23. 110 READC$
  24. 120 NEXTI
  25. 130 FORI=0TO18
  26. 140 READM$(I):READMS(I):READN1(I)
  27. 150 NEXTI
  28. 160 PRINT"[158]DO YOU WISH TO RESTORE A PREVIOUSLY     SAVED CHARACTER (Y/N) ?";
  29. 170 VG$="YN":GOSUB610
  30. 180 INPUT"[147]CHARACTER'S NAME *[157][157][157]";J$
  31. 190 IFJ$="*"THEN180
  32. 200 IFLEN(J$)>16THENPRINT"TOO LONG":GOTO180
  33. 210 IFGC$="N"THEN400
  34. 220 PRINT"[147][158]PLACE DATA DISK IN THE DRIVE."
  35. 240 GOSUB660
  36. 250 OPEN2,8,2,"0:"+J$+",S,R"
  37. 260 INPUT#2,P$
  38. 270 INPUT#2,TS
  39. 280 INPUT#2,EX
  40. 290 INPUT#2,TN
  41. 300 INPUT#2,CS
  42. 310 INPUT#2,PS
  43. 320 INPUT#2,T(0)
  44. 330 INPUT#2,T(1)
  45. 340 INPUT#2,T(2)
  46. 350 INPUT#2,C1
  47. 360 INPUT#2,P1
  48. 370 CLOSE2
  49. 380 C=150
  50. 390 GOTO550
  51. 400 PRINT"[155][147]CHARACTER TYPES...CHOOSE CAREFULLY"
  52. 410 PRINT"[158]WIZARD    (1)"
  53. 420 PRINT"THINKER   (2)"
  54. 430 PRINT"BARBARIAN (3)"
  55. 440 PRINT"WARRIOR   (4)"
  56. 450 PRINT"CLERIC    (5)"
  57. 460 GETGC$:IFGC$=""THEN460
  58. 470 A=VAL(GC$)
  59. 480 IFA=1THENP$="WIZARD":P1=2:C1=0.5:CS=22:PS=28
  60. 490 IFA=2THENP$="THINKER":P1=1.5:C1=0.75:CS=24:PS=26
  61. 500 IFA=3THENP$="BARBARIAN":P1=0.5:C1=2:CS=28:PS=22
  62. 510 IFA=4THENP$="WARRIOR":P1=1:C1=1.25:CS=26:PS=24
  63. 520 IFA=5THENP$="CLERIC":P1=1.25:C1=1:CS=25:PS=25
  64. 530 IFA<1ORA>5THENP$="DOLT":P1=1:C1=1:CS=20:PS=20
  65. 540 EX=1:C=150
  66. 550 PRINT"GOOD LUCK[158]"
  67. 560 PRINT"";J$" THE ";P$
  68. 570 DF=150:DL$="D":GOSUB4540
  69. 580 GOSUB3290
  70. 590 DF=5:GOSUB4540
  71. 600 GOTO780
  72. 610 GETGC$:IFGC$=""THEN610
  73. 620 FORI=1TOLEN(VG$)
  74. 630 IFMID$(VG$,I,1)=GC$THENRETURN
  75. 640 NEXTI
  76. 650 GOTO610
  77. 660 PRINT"[155]PRESS RETURN[155] TO CONTINUE[158]
  78. 670 [161]GC$:[139]GC$[178]""[167]670
  79. 680 [142]
  80. 690 [129]I[178]1[164]10:[161]GC$:[130]I
  81. 700 TV[178]0
  82. 710 [129]I[178]1[164]300
  83. 720 [161]GC$:[139]GC$[178]""[167]740
  84. 730 [137]760
  85. 740 [130]I
  86. 750 TV[178]1
  87. 760 [153] D$;SP$
  88. 770 [142]
  89. 780 M[178]W:PK[178][194](W):[151]M,81:[151]M[170]CL,1
  90. 790 C[178]C[170]3[170]FL
  91. 800 [139]PK[178]77[176]PK[178]78[167]820
  92. 810 [153] D$;"YOUR MOVE...WHICH DIRECTION ?":[137]830
  93. 820 [153] D$;"SAFE ON THE PATH...WHICH WAY ?"
  94. 830 [129]I[178]1[164]10:[161]GC$:[130]I
  95. 840 I[178]J([194](56320)[175]15)
  96. 850 A[178]I:[139]A[178]0[167]840
  97. 860 [139]A[177]3[167]A[178]A[171]3:[137]860
  98. 870 W[178]M[170]A[171]2[171]40[172]([181]((I[171]1)[173]3)[171]1)
  99. 880 TN[178]TN[170]1:[153] D$;SP$
  100. 890 Q[178]81:Q1[178][194](W):[139]Q1[178]32[176]Q1[178]45[167]970
  101. 900 [139]Q1[178]219[167]4870
  102. 910 [139]Q1[178]214[176]Q1[178]160[176]Q1[178]88[167]TN[178]TN[171]1:[137]810
  103. 920 [139]Q1[178]216[176]Q1[178]87[176]Q1[178]173[176]Q1[178]230[167]3040
  104. 930 [139]Q1[178]104[176]Q1[178]96[167]3130
  105. 940 [139]Q1[178]102[167]4430
  106. 950 [139]Q1[178]224[176](GC$[178]"5"[175]PK[178]224)[167]Q[178]81:C[178]C[171]20:[139]C[179][178]0[167]5240
  107. 960 [139]Q1[178]42[167]1230
  108. 970 [151]M,PK:[151]M[170]CL,7:PK[178][194](W):M[178]W:[151]M,Q:[151]M[170]CL,1
  109. 980 [139]PK[178]77[176]PK[178]78[167]DF[178]5:[137]1040
  110. 990 [139]PK[178]45[167]DF[178]5:[137]1040
  111. 1000 RF[178][187](TI)
  112. 1010 [139]RF[179].1[167]1390
  113. 1020 [139]RF[177].8[167]1060
  114. 1030 [153] D$;"NOTHING OF VALUE...SEARCH ON":DF[178]80
  115. 1040 [141]4540
  116. 1050 [137]790
  117. 1060 RF[178][181]([187](TI)[172]5[170]1):EX[178]EX[170]1
  118. 1070 [145]RF[141]1100,1140,1140,1170,1200
  119. 1080 DF[178]80:[141]4540
  120. 1090 [137]790
  121. 1100 [153] D$;"A CIRCLE OF EVIL...DEPART IN HASTE !"
  122. 1110 PS[178]PS[171]FL:C[178][181](C[172].6)
  123. 1120 [139]C[179][178]0[167]5240
  124. 1130 [142]
  125. 1140 [153] D$;"A HOARD OF GOLD"
  126. 1150 TS[178]TS[170][181](FL[172][187](TI)[172]100[170]100)
  127. 1160 [142]
  128. 1170 [153] D$"YOU FEEL THE AURA OF THE DEEP MAGIC..."
  129. 1180 [153]"        ...ALL AROUND YOU..."
  130. 1190 [137]1210
  131. 1200 [153] D$;"...A PLACE OF ANCIENT POWER..."
  132. 1210 PS[178]PS[170]2[170][181](FL[172]P1):CS[178]CS[170][181](FL[172]C1):C[178]C[170]25
  133. 1220 [142]
  134. 1230 [151]M,32:M[178]W:PK[178]32:[151]M,81
  135. 1240 RN[178][187](TI):[153] D$;SP$
  136. 1250 [139]S[178]6[175]RN[177]0.95[175]T(1)[178]6[175]T(2)[178]0[175]RT[177]25[167]T(2)[178]1:[137]1300
  137. 1260 [139]S[178]5[175]RN[177]0.85[175]T(0)[178]0[167]T(0)[178]1:[137]1310
  138. 1270 [139]S[178]4[175]RN[177]0.7[175]T(0)[178]1[175]T(1)[179]6[175]FL[177]T(1)[167]1320
  139. 1280 [139]RN[177]0.43[167][153] D$;"A WORTHLESS BAUBLE":[137]1370
  140. 1290 [153] D$;"A PRECIOUS STONE !":[137]1360
  141. 1300 [153] D$;"YOU FIND THE HELM OF EVANNA !":[137]1360
  142. 1310 [153] D$;"THE AMULET OF ALARIAN...EMPTY...":[137]1360
  143. 1320 [153] D$;"AN AMULET STONE...":[153]
  144. 1330 DF[178]60:DL$[178]"D":[141]4540
  145. 1340 [139]RN[177]0.85[167][153]"...BUT THE WRONG ONE !":[137]1370
  146. 1350 [153]"...THE STONE FITS !":T(1)[178]T(1)[170]1
  147. 1360 TS[178]TS[170]100[172](T(0)[170]T(1)[170]T(2)[170]FL)
  148. 1370 DF[178]80:[141]4540
  149. 1380 [137]790
  150. 1390 [153] D$;"**BEWARE...THOU HAST ENCOUNTED**SYS"
  151. 1400 MS[178]0:N[178]0:CF[178]1
  152. 1410 RF[178][181]([187](TI)[172]17):[139]RF[177]9[175][187](TI)[177]0.85[167]1410
  153. 1420 [139]Q1[178]224[176]PK[178]224[167]RF[178][181]([187](TI)[172]2[170]17)
  154. 1430 [139]RF[178]16[175][187](TI)[179]0.7[167]1410
  155. 1440 [139]FL[179]5[175]RF[178]15[167]1410
  156. 1450 X$[178][200](M$(RF),1)
  157. 1460 [129]I[178]1[164][195](F$)
  158. 1470 [139][202](F$,I,1)[178]X$[167]1500
  159. 1480 [130]I
  160. 1490 [137]1410
  161. 1500 M$[178][201](M$(RF),[195](M$(RF))[171]1)
  162. 1510 [139]MS(RF)[178]0[167]1540
  163. 1520 MS[178][181]((CS[172]0.3)[170]MS(RF)[172]FL[174]0.2[173]([187](TI)[170]1))
  164. 1530 [139]N1(RF)[178]0[167]1550
  165. 1540 N[178][181](N1(RF)[172]FL[174]0.2[173]([187](TI)[170]1))
  166. 1550 U[178][181]((RF[170]5)[172](FL[174]1.5))
  167. 1560 [139] RF[177]23[167]U[178][181]((RF[171]22)[172]FL[174]1.5)
  168. 1570 [153]"";[200](R$,12[171]([195](M$))[173]2);"AN EVIL ";M$
  169. 1580 DF[178]40:[141]4540
  170. 1590 C[178]C[171]1:[139][187](TI)[179]0.6[167]2000
  171. 1600 [153]D$;" SYSYOU HAVE SUPRISE...LISTASYSTTACK OR LISTRSYSETREATLIST"
  172. 1610 [141]690
  173. 1620 [139]GC$[178]"R"[167]1980
  174. 1630 [139]TV[178]1[167]1690
  175. 1640 [139]GC$[179][177]"A"[167]2000
  176. 1650 DF[178]30:DL$[178]"D":[141]4540
  177. 1660 [153]D$;"SYSCAST LISTSSYSPELL OR STRIKE LISTHSYSEAD LISTBSYSODY LISTLSYSEGS ?LIST
  178. 1670 GOSUB690
  179. 1680 IFTV=0THEN1710
  180. 1690 PRINTD$;"[158]* TOO SLOW...TOO SLOW *[158]"
  181. 1700 HF=0:GOTO1910
  182. 1710 E=39*LOG(EX)/3.14
  183. 1720 IFGC$="S"THEN2420
  184. 1730 IFMS=0THENPRINTD$;" YOUR SWORD AVAILS YOU NOUGHT HERE":GOTO1910
  185. 1740 IFC<=0THENPRINTD$;" YOU FATALLY EXHAUST YOURSELF":GOTO5240
  186. 1750 RF=RND(TI)*10
  187. 1760 IFGC$="H"AND(RF<5ORCS>MS*4)THENZ=2:GOTO1810
  188. 1770 IFGC$="B"AND(RF<7ORCS>MS*4)THENZ=1:GOTO1810
  189. 1780 IFGC$="L"AND(RF<9ORCS>MS*4)THENZ=0.3:GOTO1810
  190. 1790 PRINTD$;" YOU MISSED IT!"
  191. 1800 HF=0:GOTO1910
  192. 1810 IFHF=1THEND=MS+INT(RND(TI)*9):HF=0:GOTO1840
  193. 1820 D=INT((((CS*50*RND(TI))-(10*MS)+E)/100)*Z):IFD<0THEND=0
  194. 1830 IFCS>(MS-D)*4THENHF=1
  195. 1840 MS=MS-D
  196. 1850 PRINTD$;"A HIT..."
  197. 1860 DF=60:DL$="D":GOSUB4540
  198. 1870 IFD=0THENPRINTD$;"BUT...NO DAMAGE":HF=0:GOTO1910
  199. 1880 PRINTD$;"";D;" DAMAGE...":IFMS<=0THEN1940
  200. 1890 IFHF=1THENDF=30:DL$="D":GOSUB4540
  201. 1900 IFHF=1THENPRINT"THE ";M$;" STAGGERS DEFEATED"
  202. 1910 DF=110:GOSUB4540
  203. 1920 IFHF=1THEN1660
  204. 1930 GOTO2000
  205. 1940 PRINTD$;"...KILLING THE MONSTER..."
  206. 1950 EX=EX+U:HF=0:CF=0
  207. 1960 DF=80:GOSUB4540
  208. 1970 GOTO790
  209. 1980 PRINTD$;"KNAVISH COWARD!":CF=0
  210. 1990 GOTO1960
  211. 2000 PRINTD$;"THE CREATURE ATTACKS..."
  212. 2010 DF=50:DL$="W":GOSUB4540
  213. 2020 IFMS=0THEN2300
  214. 2030 IFMS<NANDN>6ANDRND(TI)<0.5THEN2300
  215. 2040 MS=MS-1:IFMS<=0THEN2240
  216. 2050 RF=INT(RND(TI)*10+1)
  217. 2060 ONRFGOTO2070,2080,2090,2100,2110,2110,2120,2120,2130,2140
  218. 2070 PRINTD$;"IT SWINGS AT YOU...AND MISSES":GOTO2280
  219. 2080 PRINTD$;"YOUR BLADE DEFLECTS THE BLOW":GOTO2280
  220. 2090 PRINTD$;"...BUT HESITATES, UNSURE...":GOTO2280
  221. 2100 Z=3:PRINTD$;"IT STRIKES YOUR HEAD!":GOTO2150
  222. 2110 Z=1.5:PRINTD$;"YOUR CHEST IS STRUCK!":GOTO2150
  223. 2120 Z=1:PRINTD$;"A STRIKE TO YOUR SWORDARM!":GOTO2150
  224. 2130 Z=1.3:PRINTD$;"A BLOW TO YOUR BODY!":GOTO2150
  225. 2140 Z=0.5:PRINTD$;"IT CATCHES YOUR LEGS!"
  226. 2150 DF=60:DL$="D":GOSUB4540
  227. 2160 G=INT((((MS*85*RND(TI))-(9*CS)+E)/100)*Z)
  228. 2170 IFG<0THENG=0:PRINTD$;"...SAVED BY YOUR ARMOUR!  ":GOTO2280
  229. 2180 C=C-G
  230. 2190 CS=CS-INT(G/6)
  231. 2200 IFG=0THENPRINTD$;"SHAKEN......BUT NO DAMAGE DONE":GOTO2280
  232. 2210 PRINTD$;"YOU TAKE...      [157][157][157][157][157][157]";G;" DAMAGE...      "
  233. 2220 IFCS<=0ORC<=0THEN5240
  234. 2230 GOTO2280
  235. 2240 PRINTD$;"...USING ITS LAST ENERGY IN THE ATTEMPT"
  236. 2250 EX=INT(EX+U/2):CF=0
  237. 2260 DF=100:GOSUB4540
  238. 2270 GOTO790
  239. 2280 DF=100:GOSUB4540
  240. 2290 GOTO1660
  241. 2300 PRINTD$;"...HURLING A LIGHTENING BOLT AT YOU!"
  242. 2310 G=INT(((180*N*RND(TI))-(PS+E))/100):N=N-5:IFG>9THENN=N-INT(G/5)
  243. 2320 DF=80:DL$="W":GOSUB4540
  244. 2330 IFN<=0THENN=0:GOTO2240
  245. 2340 IFRND(TI)<0.25THEN2410
  246. 2350 IFG<0THENG=0:GOTO2400
  247. 2360 PRINTD$;"IT STRIKES HOME!"
  248. 2370 DF=110:GOSUB4540
  249. 2380 C=C-G:PS=INT(PS-G/4)
  250. 2390 GOTO2210
  251. 2400 PRINTD$;"YOUR PSI SHIELD PROTECTS YOU":GOTO2280
  252. 2410 PRINTD$;"...MISSED YOU!":GOTO2280
  253. 2420 PRINTD$;"WHICH SPELL (1, 2 OR 3) ?":GOSUB690
  254. 2430 IFTV=1THEN1690
  255. 2440 IFVAL(GC$)>0ANDVAL(GC$)=<3THEN2460
  256. 2450 PRINTD$;"NO SUCH SPELL...     ":GOTO2560
  257. 2460 IF4*PS*RND(TI)<=NTHEN2510
  258. 2470 ONVAL(GC$)GOSUB2600,2710,2850
  259. 2480 ONSCGOTO2540,2560,2580,2490,2520,2500,2510
  260. 2490 PRINTD$;"IT IS BEYOND YOU     ":GOTO2560
  261. 2500 PRINT"BUT THE SPELL FAILS...!":GOTO2560
  262. 2510 PRINTD$;"NO USE, THE BEAST'S PSI SHEILDS IT":GOTO2560
  263. 2520 PRINTD$;"THE SPELL SAPS ALL YOUR STRENGTH"
  264. 2530 GOTO5240
  265. 2540 DF=100:GOSUB4540
  266. 2550 GOTO790
  267. 2560 DF=120:GOSUB4540
  268. 2570 GOTO2000
  269. 2580 DF=60:GOSUB4540
  270. 2590 GOTO1660
  271. 2600 C=C-5:IFC<=0THENSC=5:RETURN
  272. 2610 PRINTD$;"[150]...SLEEP FOUL FIEND THAT I MAY ESCAPE"
  273. 2620 PRINT"AND PRESERVE MY MISERABLE SKIN...[158]"
  274. 2630 DF=180:GOSUB4540
  275. 2640 PRINTD$;"THE CREATURE STAGGERS..."
  276. 2650 DF=60:DL$="D":GOSUB4540
  277. 2660 IFRND(TI)<0.5THEN2690
  278. 2670 PRINT"AND COLLAPSES...STUNNED"
  279. 2680 EX=INT(EX+U/2):CF=0:SC=1:RETURN
  280. 2690 PRINT"BUT RECOVERS WITH A SNARL!"
  281. 2700 SC=2:RETURN
  282. 2710 IFMS>CORPS<49OREX<1000THENSC=4:RETURN
  283. 2720 C=C-10:IFC<0THENSC=5:RETURN
  284. 2730 IFN=0THENPRINTD$;"THIS BEAST HAS NO PSI TO ATTACK":SC=2:RETURN
  285. 2740 PRINTD$;"[150]WITH MY MIND I BATTLE THE FOR MY LIFE[158]"
  286. 2750 DF=120:GOSUB4540
  287. 2760 RF=RND(TI):IFRF<0.4ANDN>10THENSC=6:RETURN
  288. 2770 D=INT((((CS*50*RF)-5*(MS+N)+E)/50)/4)
  289. 2780 IFD<=0THEND=0:SC=7:RETURN
  290. 2790 PRINTD$;"THE PSI-LANCE CAUSES ";D*2;" DAMAGE"
  291. 2800 N=N-3*D:IFN<=0THENN=0
  292. 2810 MS=MS-D:IFMS<=0THENMS=0
  293. 2820 IF(MS+N)>0THENSC=2:RETURN
  294. 2830 PRINT"...KILLING THE CREATURE"
  295. 2840 EX=EX+U:CF=0:SC=1:RETURN
  296. 2850 IFPS<77OREX<5000THENSC=4:RETURN
  297. 2860 C=C-20:IFC<=0THENSC=5:RETURN
  298. 2870 PRINTD$;"[150]WITH THE MIGHT OF MY SWORD I SMITE THEE"
  299. 2880 PRINT"WITH THE POWER OF MY SPELL I CURSE THEE"
  300. 2890 PRINT"BURN YE SPAWN OF HELL AND SUFFER...[158]"
  301. 2900 DF=240:GOSUB4540
  302. 2910 PRINTD$;"A BOLT OF ENERGY LASHES AT THE BEAST..."
  303. 2920 DF=80:DL$="W":GOSUB4540
  304. 2930 IFRND(TI)>(PS/780)*(5-P1)THENPRINTD$;"MISSED IT!":SC=2:RETURN
  305. 2940 D=INT((CS+PS*RND(TI))-(10*N*RND(TI)))
  306. 2950 IFD<=0THEND=0:SC=7:RETURN
  307. 2960 IFMS=0THENN=N-D:GOTO2980
  308. 2970 MS=MS-D:IFD>10THENN=INT(N-(D/3))
  309. 2980 PRINTD$;"IT STRIKES HOME CAUSING ";D;" DAMAGE  !"
  310. 2990 IF(MS+N)<=0THEN3020
  311. 3000 DF=80:DL$="D":GOSUB 4540
  312. 3010 SC=2:RETURN
  313. 3020 PRINT"THE BEAST DIES SCREAMING !"
  314. 3030 EX=EX+U:CF=0:SC=1:RETURN
  315. 3040 IFQ1=230ANDPK=160THENPRINTD$;"YOU CANNOT ENTER THIS WAY...D":GOTO3150
  316. 3050 FORI=2TO7
  317. 3060 P(I)=0
  318. 3070 N(I)=INT(RND(TI)*5+4)
  319. 3080 IFN(I)=5THEN3070
  320. 3090 NEXTI
  321. 3100 IFS=1THENMP=M
  322. 3110 P(2)=INT(RND(TI)*30+1)
  323. 3120 TF=TN:GOTO3170
  324. 3130 IFTN>TF+INT(RND(TI)*6+1)THEN3170
  325. 3140 PRINTD$;"THE WAY IS BARRED"
  326. 3150 TN=TN-1:C=C-10:DF=100:DL$="W":GOSUB4540
  327. 3160 GOTO790
  328. 3170 C=C-10:POKEM,32:POKEW,Q
  329. 3180 IFQ1=96THENS=1:FL=1
  330. 3190 IFQ1=104ANDS=4THENS=1:FL=1
  331. 3200 IFQ1=104ANDS=5ORS=6THENS=S-3:FL=FL-4:M=MW
  332. 3210 IFQ1=173THENS=2:FL=2
  333. 3220 IFQ1=216THENS=3:FL=3
  334. 3230 IFQ1=216ORQ1=173THEND2$=LEFT$(D$,INT(RND(TI)*10)):R2$=LEFT$(R$,P(2))
  335. 3240 IFQ1=87THENS=4:FL=2
  336. 3250 IFQ1=230THENS=S+3:FL=FL+4:MW=M
  337. 3260 ONSGOSUB3290,3620,3630,3850,3860,3860
  338. 3270 DF=5:GOSUB4540
  339. 3280 GOTO780
  340. 3290 PRINT"[147]":F$="VAEGH":FL=1:S=1
  341. 3300 PRINT"[158][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][146]"
  342. 3310 FORI=1TO12
  343. 3320 PRINT"[214][146][158]                                     [158][214][146]"
  344. 3330 NEXTI
  345. 3340 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][146]"
  346. 3350 IFG(0)<>0THEN3480
  347. 3360 M=32809+(INT(RND(TI)*11+1)*40)
  348. 3370 L=M:MP=M:W=M:G(0)=M:G(1)=219
  349. 3380 FORI=2TO72STEP2
  350. 3390 IFRND(TI)>0.5THEN3410
  351. 3400 PC=77:L1=L+41:GOTO3420
  352. 3410 PC=78:L1=L-39
  353. 3420 IFL1>=33286ORL1<=32806THEN3390
  354. 3430 G(I+1)=PC
  355. 3440 IFI>2ANDG(I+1)<>G(I-1)THENL1=L+1
  356. 3450 G(I)=L1:L=L1:POKEG(I),G(I+1)
  357. 3460 NEXTI
  358. 3470 G(73)=219
  359. 3480 FORI=0TO72STEP2
  360. 3490 POKEG(I),G(I+1)
  361. 3500 NEXTI
  362. 3510 IFS(0)<>0THEN3570
  363. 3520 FORI=1TO4
  364. 3530 N1=INT(RND(TI)*11)+1:N2=INT(RND(TI)*34)+1
  365. 3540 S(I)=32809+(40*N1)+N2
  366. 3550 IFPEEK(S(I))<>32ORPEEK(S(I)+1)<>32THEN3530
  367. 3560 NEXTI
  368. 3570 POKES(0),216:POKES(0)+1,216:POKES(1),216:POKES(1)+1,216
  369. 3580 POKES(2),173:POKES(2)+1,173:POKES(3),173:POKES(3)+1,173
  370. 3590 POKES(4),87
  371. 3600 M=MP:W=M
  372. 3610 RETURN
  373. 3620 F$="AFL":PC=45:GOTO3640
  374. 3630 F$="FAEHL":PC=88
  375. 3640 PK=32
  376. 3650 POKE53281,2:PRINT"[147][158]":POKE53281,2
  377. 3660 L=32810
  378. 3670 FORI=1TO200
  379. 3680 POKEL+INT(RND(TI)*515),PC
  380. 3690 NEXTI
  381. 3700 PRINT"";D2$;R2$;"[160][160][146]"
  382. 3710 PRINTR2$;"[160][160][160][160][160][146]"
  383. 3720 PRINTR2$;"[160][160][146]  [160][160][146]"
  384. 3730 PRINTR2$;"[160][160][166][146] [160][160][160][146]"
  385. 3740 PRINTR2$;"[160][160][160][160][160][160][146]"
  386. 3750 PRINTR2$;"[160][160][146]"
  387. 3760 PRINTR2$;"[160][146]"
  388. 3770 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  389. 3780 FORI=1TO13
  390. 3790 PRINT"[160][160]";
  391. 3800 NEXTI
  392. 3810 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  393. 3820 POKE33306,32:W=33306
  394. 3830 IFQ1=104THENM=MW:W=M:PRINT"";D2$;R2$;" "
  395. 3840 RETURN
  396. 3850 F$="CAGE":P=0:H=N(FL):PK=32:GOTO3870
  397. 3860 F$="CBE":P=0:H=N(FL):PK=32:P(FL)=P(2)
  398. 3870 PRINT"[147][158]                     [146]"
  399. 3880 FORI=1TO13
  400. 3890 PRINT" [146]                    [146]"
  401. 3900 NEXTI
  402. 3910 PRINT"                     [146]"
  403. 3920 RESTORE:FORI=1TOP(FL)
  404. 3930 READV:IFV=100THENRESTORE
  405. 3940 NEXTI
  406. 3950 L1=32810
  407. 3960 FORJ=1TO3
  408. 3970 READD(J):P=P+1
  409. 3980 IFD(J)=100THENRESTORE:D(J)=3:P=P+1
  410. 3990 NEXTJ
  411. 4000 FORI=0TOH:PC=160
  412. 4010 L=L1+(40*I):IFL>33290THEN4110
  413. 4020 IFI=1THENPC=32
  414. 4030 IFD(1)=0THENPC=160:GOTO4050
  415. 4040 POKEL+D(1),PC:PC=160
  416. 4050 IFI=3THENPC=32
  417. 4060 POKEL+D(1)+D(2),PC:PC=160
  418. 4070 IFI=4THENPC=32
  419. 4080 POKEL+D(1)+D(2)+D(3),PC:PC=160
  420. 4090 NEXTI
  421. 4100 L1=L1+(40*H)+40:GOTO3960
  422. 4110 L1=32810
  423. 4120 FORJ=1TO4
  424. 4130 L=L1+(40*J*(H+1))
  425. 4140 FORK=1TO19
  426. 4150 IFL>33250THEN4200
  427. 4160 POKEL+K,PC
  428. 4170 IFK=2ORK=3*HORK=17THENPOKEL+K,32:POKEL+K-40,32:POKEL+K+40,32
  429. 4180 NEXTK
  430. 4190 NEXTJ
  431. 4200 IFS=5ORS=6THEN4230
  432. 4210 IFFL/2=INT(FL/2)THENPOKE33219,102:GOTO4230
  433. 4220 POKE32829,102
  434. 4230 IFFL=2ORS=5ORS=6THENPOKE33336,104:POKE33296,32
  435. 4240 IFP(3)=0THENW=33296
  436. 4250 IFS=5THEN4320
  437. 4260 IFS=6THEN4300
  438. 4270 PRINT"";R1$;"THE BLACK TOWER"
  439. 4280 PRINTR1$;"   OF ZAEXON"
  440. 4290 PRINTR1$;"   FLOOR ";FL-1:GOTO4340
  441. 4300 PRINT"";R1$;" VOUNIM'S [146]"
  442. 4310 PRINTR1$;"   LAIR   [146]":GOTO4350
  443. 4320 PRINT"";R1$;"THE TEMPLE OF[146]"
  444. 4330 PRINTR1$;"  Y'NAGIOTH  [146]"
  445. 4340 P(FL+1)=P(FL)+P
  446. 4350 IFFL<4ORRND(TI)<0.3THENRETURN
  447. 4360 FORI=1TOINT(RND(TI)*5)+2
  448. 4370 N1=INT(RND(TI)*19)
  449. 4380 N2=INT(RND(TI)*12)
  450. 4390 IFPEEK(32811+40*N2+N1)<>32THEN4370
  451. 4400 POKE(32811+40*N2+N1),42
  452. 4410 NEXTI
  453. 4420 RETURN
  454. 4430 POKEW,81:POKEM,32:POKEW+CL,1:POKEM+CL,7
  455. 4440 PRINTD$;"A STAIRWAY...UP OR DOWN ?":TV=FL
  456. 4450 VG$="UD":GOSUB610
  457. 4460 IFGC$="U"THENFL=FL+1:GOTO4480
  458. 4470 FL=FL-1
  459. 4480 IFFL>7ORFL<2THEN4510
  460. 4490 DF=110:DL$="D":GOSUB4540
  461. 4500 GOTO3260
  462. 4510 PRINTD$;"THESE STAIRS ARE BLOCKED "
  463. 4520 DF=60:DL$="D":GOSUB4540
  464. 4530 FL=TV:GOTO4440
  465. 4540 FORDL=1TO2*(DF*TM)
  466. 4550 NEXTDL
  467. 4560 IFDL$="D"THENDL$="":RETURN
  468. 4570 PRINTD$;SP$
  469. 4580 PRINTSP$
  470. 4590 PRINTSP$;
  471. 4600 IFDL$="W"THENDL$="":RETURN
  472. 4610 IFCS>77-INT(2*P1^2.5)THENCS=77-INT(2*P1^2.5)
  473. 4620 IFPS<7THENPS=7
  474. 4630 IFPS>INT(42*(P1+1)^LOG(P1^3.7))+75THENPS=INT(42*(P1+1)^LOG(P1^3.7))+75
  475. 4640 IFC>125-(INT(P1)*12.5)THENC=125-INT(INT(P1)*12.5)
  476. 4650 PRINTD1$;"[155][145]";J$,P$
  477. 4660 PRINT"[158]TREASURE   =";TS
  478. 4670 PRINT"EXPERIENCE =";EX
  479. 4680 PRINT"TURNS      =";TN
  480. 4690 PRINTD1$;R1$;"COMBAT STR =    [157][157][157][157]";CS
  481. 4700 PRINTR1$;"PSI POWER  =    [157][157][157][157]";PS
  482. 4710 PRINTR1$;"STAMINA    =    [157][157][157][157]";C"[155]"
  483. 4720 IFCF=1THEN4750
  484. 4730 PRINTSP$
  485. 4740 RETURN
  486. 4750 PRINTD$;"[145][145]";M$;"[146]";
  487. 4760 PRINTD$;RI$;"[145][145]M STR =            [157][157][157][157][157][157][157][157][157][157][157][157]";MS;N;"    "
  488. 4770 RETURN
  489. 4780 DF=5:DL$="W":GOSUB4540
  490. 4790 RT=INT(.1*(EX+TS/3)^.5+LOG(EX/((TN+1)^1.5))):IFRT>28THENRT=28
  491. 4800 IFRT<1THENRT=1
  492. 4810 PRINTD$;"YOUR RATING NOW BE ";RT
  493. 4820 IFT(2)=1THENPRINT"YOU HAVE THE HELM OF EVANNA"
  494. 4830 IFT(0)=1THEN PRINT"AMULET STONES... ";T(1)
  495. 4840 DF=250:DL$="W":GOSUB4540
  496. 4850 IFGC$="E"THENC=C-10:GC$="":GOTO790
  497. 4860 RETURN
  498. 4870 PRINTD$;"THOU ART SAFE IN A CASTLE":IFCS<20THENCS=20
  499. 4880 POKEM,PK:PK=PEEK(W):M=W:POKEM,Q
  500. 4890 IFT(2)=1THENDF=50:GOSUB4540:GOSUB4780
  501. 4900 PRINT"WILT THOU LEAVE THE VALLEY (Y/N) ?"
  502. 4910 VG$="YN":GOSUB610
  503. 4920 DF=5:DL$="W":GOSUB4540
  504. 4930 GOSUB4780
  505. 4940 DF=110:DL$="W":GOSUB4540
  506. 4950 IFGC$="Y"THEN5000
  507. 4960 C=150:PRINTD$;"THY WOUNDS HEALED...THY SWORD SHARP"
  508. 4970 PRINT"GO AS THE GODS DEMAND--TRUST NONE OTHER";
  509. 4980 DF=480:GOSUB4540
  510. 4990 GOTO790
  511. 5000 PRINT"[147]DO YOU WISH TO SAVE ";J$;" ?"
  512. 5010 PRINT:PRINT"PLEASE KEY Y OR N"
  513. 5020 VG$="YN":GOSUB610
  514. 5030 IFGC$="N"THEN5210
  515. 5040 PRINT"[147][158]PLACE DATA DISK IN THE DRIVE."
  516. 5060 GOSUB660
  517. 5070 OPEN1,8,1,"0:"+J$+",S,W"
  518. 5080 PRINT#1,P$
  519. 5090 PRINT#1,TS
  520. 5100 PRINT#1,EX
  521. 5110 PRINT#1,TN
  522. 5120 PRINT#1,CS
  523. 5130 PRINT#1,PS
  524. 5140 PRINT#1,T(0)
  525. 5150 PRINT#1,T(1)
  526. 5160 PRINT#1,T(2)
  527. 5170 PRINT#1,C1
  528. 5180 PRINT#1,P1
  529. 5190 CLOSE1
  530. 5200 PRINT"[147]","***DONE***"
  531. 5210 PRINTD$;"      TYPE RUN TO START AGAIN"
  532. 5220 CLR
  533. 5230 END
  534. 5240 C=0:CS=0:PS=0:CF=0
  535. 5250 DF=110:GOSUB4540
  536. 5260 IFT(1)=6THEN5310
  537. 5270 PRINTD$,"OH WHAT A FRAIL SHELL"
  538. 5280 PRINT,"IS THIS THAT WE CALL MAN"
  539. 5290 DF=300:DL$="W":GOSUB4540
  540. 5300 PRINT"[147]":GOTO5210
  541. 5310 T(0)=0:T(1)=0:TS=0:CS=30:C=150:PS=30
  542. 5320 PRINTD$;"ALARIAN'S AMULET PROTECTS THY SOUL"
  543. 5330 PRINT"  LIVE AGAIN  [146]"
  544. 5340 DF=150:GOSUB4540
  545. 5350 L=G(0):MP=L:M=W:S=1:GOTO3260
  546. 5360 DATA4,7,3,6,4,4,6,5,3,6,0,3,8,4,3,5,5,3,8,3,4,5,0,6,3,6,4,6,4,7,4,100
  547. 5370 DATAAWOLFEN,9,0,AHOB-GOBLIN,9,0,AORC,9,0,EFIRE-IMP,7,3,GROCK-TROLL,19,0
  548. 5380 DATAEHARPY,10,12,AOGRE,23,0,BBARROW-WIGHT,0,25,HCENTAUR,18,14
  549. 5390 DATAEFIRE-GIANT,26,20,VTHUNDER-LIZARD,50,0,CMINOTAUR,35,25,CWRAITH,0,30
  550. 5400 DATAFWYVERN,36,12,BDRAGON,50,20,CRING-WRAITH,0,45,ABALROG,50,50
  551. 5410 DATALWATER-IMP,15,15,LKRAKEN,50,0
  552.