home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / DRAGONMASTER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.0 KB  |  105 lines
  1. 1000 PRINT"[147][154]":POKE53280,14:POKE53281,6
  2. 1010 IFPEEK(14846)=80ANDPEEK(14847)=160THEN1070
  3. 1020 PRINTTAB(14)"PLEASE WAIT":PRINTTAB(11)"DATA BEING READ IN"
  4. 1030 FORI=1TO24:READA:NEXT
  5. 1040 FORD=14616TO14847:READA:POKED,A:NEXT:POKE52,57:POKE56,57
  6. 1080 CLR:PRINT"[147][154]":DR=24:K=2:P=1084:S1=54276:S2=54283:GOSUB1260:GOSUB1490
  7. 1090 POKES2-1,3:POKES2+1,8:POKES2+2,0
  8. 1100 ZZ=1446:POKEZZ,35:GR(0)=1:GR(1)=12:GR(2)=11:GR(3)=0:GR(4)=11:GR(5)=12
  9. 1120 V=31-PEEK(56320)AND31:Q=P
  10. 1130 IFVAND2ANDPEEK(P+40)=32THENP=P+40
  11. 1140 IFVAND4ANDPEEK(P-1)=32THENP=P-1
  12. 1150 IFVAND1ANDPEEK(P-40)=32THENP=P-40
  13. 1160 IFVAND8ANDPEEK(P+1)=32THENP=P+1
  14. 1170 POKES2,8:POKEP+54272,GR(GR):GR=GR+1:IFGR=6THENGR=0
  15. 1180 GOSUB1930:IFQ<>PTHENPOKEQ,32:POKEP,53:POKES2,65:POKES2-3,3
  16. 1190 IFVAND16THENGOSUB1800
  17. 1200 IFPEEK(P+1)=37ORPEEK(P+1)=60ORPEEK(P-1)=42THENGOSUB1640
  18. 1210 IFPEEK(P+40)=37ORPEEK(P+40)=60ORPEEK(P+40)=42THENGOSUB1640
  19. 1220 GOSUB2090:GOTO1120
  20. 1260 PRINTTAB(8)"*** 64 DRAGONMASTER ***"
  21. 1270 PRINT" OBJECT: BLAST ALL DRAGONS AND ENTER"
  22. 1280 PRINT"  THE CASTLE TO MARRY THE PRINCESS."
  23. 1290 PRINT" ZAP THE DRAGONS FROM THE FRONT WITH"
  24. 1300 PRINT"  THE FIRE BUTTON, BUT STAY AWAY":PRINT"  FROM THEIR HEADS!"
  25. 1310 PRINT" YOU MUST ELIMINATE PHANTOM DRAGON LAST"
  26. 1320 PRINT"  PRESS: F1 -- EASY":PRINTTAB(9)"F3 -- STANDARD"
  27. 1330 PRINTTAB(9)"F5 -- VERY HARD":PRINTTAB(9)"F7 -- EXTREMELY HARD"
  28. 1340 SL=15:GETA$:IFA$=""THEN1340
  29. 1350 IFA$<CHR$(134)ORA$>CHR$(136)THENPRINT"[147]":RETURN
  30. 1360 IFA$="[134]"THENSL=10:PRINT"[147]":RETURN
  31. 1370 IFA$="[135]"THENSL=6:PRINT"[147]":RETURN
  32. 1380 SL=3:PRINT"[147]":RETURN
  33. 1420 CL=INT(RND(1)*2)*2
  34. 1430 CS=L+54272:POKECS,CL:POKECS+1,CL:POKECS+40,CL:POKECS+41,CL
  35. 1440 POKEL,M:POKEL+1,M+1:POKEL+40,M+2:POKEL+41,M+3:RETURN
  36. 1450 POKEL,32:POKEL+1,32:POKEL+40,32:POKEL+41,32:RETURN
  37. 1490 POKE53265,0:POKE53280,6
  38. 1500 POKE53281,0:PRINT"[147]":POKE53281,15:FORC=14592TO14599:POKEC,0:NEXT:CL=11
  39. 1510 L=1404:M=45:GOSUB1430:POKE1443,49:L=L-3:M=60:GOSUB1430:F=36
  40. 1520 FORX=1024TO1063:POKEX,F:NEXT:FORX=1064TO1944STEP40:POKEX,F:POKEX+39,F:NEXT
  41. 1530 FORX=1984TO2023:POKEX,F:NEXT:FORX=1TO24:Z=INT(RND(1)*2)
  42. 1540 READA:M=41:L=1106+A:IFZTHENM=37
  43. 1550 GOSUB1420:NEXT:POKE53272,31:POKE1084,53:POKE1047,53:POKE1048,53
  44. 1560 DATA1,30,65,82,91,138,203,222,234,301,329,345,401,412,424,456,536
  45. 1570 DATA550,567,632,690,706,724,734
  46. 1580 POKE54296,15:POKE54277,138:POKE54278,0:POKE53265,27
  47. 1590 FORX=49TO52:POKE1443,X:POKE54273,(X-48)*10:POKES1,8:POKES1,17
  48. 1600 FORT=1TO800:NEXT:NEXT:GOSUB1680:RETURN
  49. 1640 FORF=1TO2:POKES1,8:POKES1,33:FORX=0TO40STEP.8:POKE54273,X:NEXT
  50. 1650 POKES1,8:POKES1,33:FORX=40TO0STEP-.8:POKE54273,X:NEXT
  51. 1660 POKEP,F+53:NEXT:POKES1,8
  52. 1670 POKE1049-K,36:K=K-1:IFK<0THEN2030
  53. 1680 POKEP,32:P=1084:POKEP,53:RETURN
  54. 1690 L=P-39:CL=1:M=56:GOSUB1430:GOSUB1860:L=P-39:GOSUB1450:POKE53272,31
  55. 1700 POKE54277,138:POKE54278,0
  56. 1710 FORX=52TO49STEP-1:POKE1443,X:POKES1,8:POKES1,33:POKE54273,(X-48)*10
  57. 1720 FORT=1TO800:NEXT:NEXT:POKES1,8
  58. 1730 FORX=1441TO1443:POKEX-1,32:POKEX+54272,1:POKEX,53:FORT=1TO800:NEXT:NEXT
  59. 1740 PRINT"[147]":POKE53280,7:POKE53281,7
  60. 1750 POKE53272,21:PRINT"[147][149]"TAB(13)"AND THEY LIVED"
  61. 1760 PRINTTAB(11)"HAPPILY EVER AFTER":GOTO2050
  62. 1800 CL=0:X=PEEK(P+1):Y=PEEK(P-1):IFX=62ANDDR=0THEN1690
  63. 1810 IFX<>39ANDY<>44THENRETURN
  64. 1820 IFX=39THENL=P-39:M=56:GOSUB1430
  65. 1830 IFY=44THENL=P-42:M=56:GOSUB1430
  66. 1840 DR=DR-1
  67. 1860 POKES1,8:POKES1,129:FORX=20TO0STEP-.25:POKE54273,X:NEXT:POKES1,8
  68. 1870 IFPEEK(P+1)=58THENL=P-39:GOSUB1450
  69. 1880 IFPEEK(P-1)=59THENL=P-42:GOSUB1450
  70. 1890 RETURN
  71. 1930 H=INT(RND(1)*835)+1106:L=H:BB=INT(RND(1)*2):X=PEEK(H)
  72. 1940 IFX=37THENM=41:GOSUB1420:RETURN
  73. 1950 IFX=41THENM=37:GOSUB1420:RETURN
  74. 1960 IFRND(1)>.033THENRETURN
  75. 1970 FORI=-80TO120STEP40:FORJ=-2TO3:IFPEEK(H+I+J)<>32THENRETURN
  76. 1980 NEXT:NEXT:M=41:DR=DR+1:IFBB=1THENM=37
  77. 1990 GOSUB1420:RETURN
  78. 2030 PRINT"[147]":POKE53280,2:POKE53281,2
  79. 2040 POKE53272,21:PRINT"[147][150]"TAB(13)"THE DRAGONS WIN"
  80. 2050 FORX=1TO23:PRINT:FORT=1TO150:NEXT:NEXT:POKE53280,14:POKE53281,6:GOTO1080
  81. 2090 CW=(CW+1)AND15:IFCW=15THENCW=0
  82. 2100 CC=CC+1:POKEZZ+54272,CW:IFCC<>SLTHENRETURN
  83. 2110 IZ=INT((ZZ-1024)/40):IP=INT((P-1024)/40):NZ=INT((IZ+IP)/2)*40
  84. 2120 NZ=NZ+(P-IP*40+ZZ-IZ*40)/2:CC=1
  85. 2130 IFPEEK(NZ)<>32THENRETURN
  86. 2140 POKEZZ,32:POKENZ,35:ZZ=NZ:POKEZZ+54272,CW
  87. 2150 ZZ=NZ:IFPEEK(ZZ+1)=53ORPEEK(ZZ-1)=53ORPEEK(ZZ+40)=53THENGOSUB1640
  88. 2160 IFZZ>1103ANDPEEK(ZZ-40)=53THENGOSUB1640
  89. 2170 RETURN
  90. 2200 DATA60,66,165,129,153,165,66,60,170,85,170,85,170,85,170,85
  91. 2210 DATA0,56,108,254,15,15,31,31,0,0,0,0,1,6,12,152
  92. 2220 DATA255,63,63,31,31,15,31,61,176,176,152,216,220,252,248,224
  93. 2230 DATA0,0,0,0,128,96,48,25,0,28,54,127,240,240,248,248
  94. 2240 DATA13,13,25,27,59,63,31,7,255,252,252,248,248,240,248,188
  95. 2250 DATA0,0,84,124,108,56,56,189,21,31,27,31,14,14,14,94
  96. 2260 DATA255,255,255,255,170,255,255,0,254,254,254,254,170,254,254,0
  97. 2270 DATA0,0,0,0,0,0,255,0,0,0,0,32,24,6,1,0
  98. 2280 DATA0,0,16,8,4,2,1,0,0,8,4,4,2,2,1,0
  99. 2290 DATA24,126,90,219,24,36,66,195,0,24,60,90,24,36,0,0
  100. 2300 DATA0,0,0,24,24,0,0,0,16,0,2,72,2,21,75,21
  101. 2310 DATA130,16,64,162,72,160,90,224,7,42,133,18,5,32,4,0
  102. 2320 DATA168,210,168,64,18,64,8,32,0,40,68,82,5,10,21,10
  103. 2330 DATA0,0,0,0,1,2,4,16,85,42,21,10,21,10,21,40
  104. 2340 DATA128,144,0,144,72,164,80,160
  105.