home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / SWORDMASTER.SDA / SWORDMASTER (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  6.5 KB  |  207 lines
  1. 1 GOSUB6000:POKE646,0:PRINT"[147]SWORD MASTER[146]":PRINT:PRINT
  2. 2 PRINT"YOUR QUEST IS TO DESTROY THE IN-
  3. 3 [153]"    VADING ARMY AND SAVE THE KINGDOM."
  4. 4 [153]"LIKE INSTRUCTIONS ? (Y/N)";A$
  5. 5 [161]A$:[139]A$[178]""[167]5
  6. 6 [139] A$[178]"Y"[167][137]5000
  7. 9 [141]3750
  8. 10 V[178]53248:DP[178]150:[151]V[170]39,1:[151]V[170]40,0
  9. 11 W[178][187]([171]TI):W[178]0:[143] SEED RND GEN
  10. 12 [141] 600
  11. 20 [129]X[178]DP[164]157:SD[178]X[172]64
  12. 21 :
  13. 25 [143] DP=SPRITE DATA BLOCK:SD=ACTUAL MEMORY LOC. OF DP
  14. 26 :
  15. 30 [129]BN[178]0[164]62:[135]D:[151]BN[170]SD,D:[130]BN
  16. 40 [130]X:[143] ***SPRITE DONE***
  17. 45 [143] ***SETUP INITIAL SPRITE X,Y ***
  18. 50 [151]V,100:[151]V[170]1,173:[143]  S0
  19. 60 [151]V[170]2,150:[151]V[170]3,173: [143]   S1
  20. 65 [151] V[170]27,1
  21. 125 [143] ***NOW ASSIGN INITIAL DATA BLOCKS ***
  22. 130 [151]2040,150:[151]2041,155
  23. 145 [143] ***NOW GET INTO MAIN PRGM ***
  24. 146 ED[178]0:RN[178]1:[153]""
  25. 148 [151]V[170]21,3:PX[178]110:CX[178]160:[151]V,PX:[151]V[170]2,CX
  26. 149 W[178][194](V[170]30)
  27. 150 ED[178]ED[170]1:[139]ED[178]2[167]ED[178]0:[137]153
  28. 151 [137]154
  29. 153 RN[178]RN[170]1:[141]600:[143] **ROUND COUNTER
  30. 154 [153]"STOPATTACKWAIT ";RN:EP[178][181](([187](0)[172]3)[170]1)[170]154
  31. 155 [139]RN[178]11[167][153]"FINAL ATTACKWAIT"
  32. 156 PW[178][181](([187](0)[172]4)[170]1)[170]150
  33. 160 CP[178][181]([187](0)[172]7)[170]1:[139]CP[178]1[167]CP[178]155
  34. 165 [139]CP[178]2[176]CP[178]3[167]CP[178]156:CX[178]CX[171]2
  35. 170 [139]CP[178]4[167]CP[178]157
  36. 171 [139](CP[177]4)[175](CP[179]8)[167]CP[178]157
  37. 175 [151]2041,CP:[151]V[170]2,CX
  38. 180 [139]CX[179](PX[170]10)[167]CX[178]CX[170]10
  39. 181 [139](CP[178]156)[175]([194](2040)[178]150)[175](CX[179]PX[170]11)[167] 260
  40. 185 PI[178][194](56320):[151]2040,150:[139]PI[178]127[167]155
  41. 190 [139]PI[178]126[167]PP[178]151
  42. 195 [139]PI[178]125[167]PP[178]152
  43. 200 [139]PI[178]119[167]PP[178]153:PX[178]PX[170]2
  44. 210 [139]PI[178]123[167]PP[178]154:PX[178]PX[171]10
  45. 211 [151]2040,PP:[151]V,PX
  46. 215 [139](PP[178]153)[175](CP[178]EP)[175]([194](V[170]30)[178]3)[167]230
  47. 217 [139](CP[178]156)[175](PP[179][178]PW)[175]([194](V[170]30)[178]3)[167]260
  48. 218 [139]PX[179]30[167]PX[178]30
  49. 219 [139]CX[177]190[167]CX[178]190
  50. 220 [139]PX[177]190[167]PX[178]185
  51. 221 [139]CX[179]30[167]CX[178]40
  52. 222 [139](PP[178]151)[175](CP[178]155)[167][141]500
  53. 223 [139](PP[178]152)[175](CP[178]157)[167][141]500
  54. 224 [139](PP[178]153)[175](CP[178]156)[167][141]500
  55. 225 [137]160
  56. 230 SE[178]SE[170]1:[153]"HITS TO ENEMY :WAIT";SE
  57. 231 [139]SE[179]1[170](RN[173]2)[167]160
  58. 235 [139]RN[177]10[167]310
  59. 240 SE[178]0:P3[178]P3[170]1:[153][163]20)"ENEMIES KILLED:WAIT";P3
  60. 250 [151]V[170]21,1:[129]ZC[178]1[164]500:[130]ZC:[153]"":[137]148
  61. 260 P2[178]P2[170]1:[153]""[163]20)"YOUR WOUNDS:WAIT ";P2:[129]ZC[178]1[164]500:[130]ZC
  62. 270 [139]P2[177]RN[170]5[167]290
  63. 280 [137] 155
  64. 290 [151]V[170]21,2:[153]""[163]20)"YOU FAILED !WAIT":[151]V[170]21,1
  65. 295 [137]4000
  66. 300 [128]
  67. 310 [143] SCORE
  68. 320 [153]T [163]19)"     RATING     WAIT":[153]"              "
  69. 330 [139] P2[179]8[167] [153] [163]21)"SWORDMASTER":[137] 400
  70. 331 [139]P2[179]11[167][153][163]19)"STOPKNIGHT":[137]450
  71. 332 [139]P2[179]14[167][153][163]19)"STOPSWORDSMAN":[137] 410
  72. 333 [139]P2[179]17[167][153][163]19)"STOPWARRIOR":[137] 410
  73. 334 [139]P2[179]20[167][153][163]19)"STOPFIGHTER":[137] 410
  74. 335 [139]P2[179]24[167][153][163]19)"STOPBRIGAND":[137] 410
  75. 336 [139]P2[177]23[167][153][163]19)"STOPPEASANT-IN-TRAINING":[137] 410
  76. 337 [128]
  77. 400 [129] PK[178]150 [164] 153:[141] 501:[151]2040,PK:[129] PL[178]1 [164] 400:[130] PL:[130] PK
  78. 410 [141]600:[153][163]19)"PLAY AGAIN (Y/N)";:[133] A$
  79. 420 [139] A$[178]"Y"[167] 1
  80. 430 [128]
  81. 450 [129]PK[178]151[164]152:[141]501:[151]2040,PK:[129]PL[178]1[164]800:[130]PL:[130]PK
  82. 460 [137] 410
  83. 500 [139][194](V[170]30)[179][177]3[167][142]
  84. 501 [151]54296,15:[151]54277,0:[151]54278,231
  85. 505 [151]54282,0:[151]54385,231
  86. 510 [151]54273,155:[151]54272,120
  87. 515 [151]54280,[181]([187](0)[172]2)[170]105:[151]54279,[181]([187](0)[172]255)[170]1
  88. 520 [151]54276,33:[151]54283,21:[129]Z3[178]1[164]49:[130]
  89. 525 [151]54276,32:[151]54283,20
  90. 530 [142]
  91. 600 [143]***SUBROUTINE TO PLAY MAIN THEME
  92. 610 [151]54296,15:[151]54277,21:[151]54278,199
  93. 615 [151]54284,21:[151]54285,199:[151]54276,33:[151]54283,33
  94. 620 [151]54273,17:[151]54272,37:[151]54280,45:[151]54279,198:LV[178]100:[141]700
  95. 621 [151]54273,17:[151]54272,37:[151]54280,45:[151]54279,198:LV[178]150:[141]700
  96. 622 [151]54273,22:[151]54272,227:[151]54280,61:[151]54279,126:LV[178]100:[141]700
  97. 624 [151]54273,17:[151]54272,37:[151]54280,45:[151]54279,198:LV[178]100:[141]700
  98. 625 [151]54273,22:[151]54272,227:[151]54280,61:[151]54279,126:LV[178]590:[141]700
  99. 626 [151]54276,32:[151]54283,32:[142]
  100. 700 [129]TD[178]1[164]LV:[130]:[151]54276,32:[151]54283,32
  101. 710 [151]54276,33:[151]54283,33:[142]
  102. 1000 [143] *** EN GARDE***
  103. 1010 [131] 14,0,0,31,192,0,119,0,0,135,192,3,7,192,6,27,176
  104. 1015 [131] 12,60,120,152,127,252,112,119,239,224,103,231,144,51,192
  105. 1020 [131] 0,28,0,0,13,224,0,19,240,0,30,240,0,60,120,0,56
  106. 1030 [131] 56,0,28,112,0,12,96,0,14,224,0,62,248,0
  107. 1040 [143] *** UP BLOCK **
  108. 1050 [131] 14,0,6,31,192,12,119,0,24,135,192,48,7,193,96,27,176,192
  109. 1060 [131] 60,121,192,127,255,160,119,239,0,103,224,0,51,192,0,28,0,0
  110. 1070 [131] 13,224,0,19,240,0,30,240,0,60,120,0,56,56
  111. 1080 [131] 0,28,112,0,12,96,0,14,224,0,62,248,0
  112. 1090 [143] *** DOWN BLOCK ***
  113. 1100 [131] 14,0,0,31,192,0,183,0,0,71,192,0,7,192,0,27,176,0,60,120
  114. 1110 [131] 0,127,252,0,119,238,0,103,231,0,51,195,128,28,3,160,13
  115. 1120 [131] 224,192,19,241,96,30,240,48,60,120,24,56,56
  116. 1130 [131] 12,28,112,6,12,96,0,14,224,0,62,248,0
  117. 1140 [143] *** THRUST ***
  118. 1150 [131] 7,0,0,15,224,0,115,128,0,3,224,0,3,224,0,13,208
  119. 1160 [131] 0,62,56,0,63,248,0,119,252,0,119,238,128,103,199,255,224
  120. 1170 [131] 0,128,207,224,0,31,240,0,30,240,0,60,120,0,56,56
  121. 1180 [131] 0,56,112,0,112,96,0,112,224,0,240,248,0
  122. 1190 [143] *** DODGE ***
  123. 1200 [131] 28,0,0,63,128,0,46,0,0,79,128,0,79,128,0,151,96,0,56
  124. 1210 [131] 240,0,127,248,0,119,220,0,103,174,0,51,156,0,28
  125. 1220 [131] 56,0,13,116,0,18,192,0,29,176,0,59,120,0,54
  126. 1230 [131] 56,0,44,28,0,16,28,0,28,14,0,124,15,0
  127. 1240 [143] *** EVIL EN GARDE ***
  128. 1250 [131] 0,3,224,96,0,224,48,3,224,24,3,224,12,1,192,7,15,248,7
  129. 1260 [131] 152,6,1,251,247,0,250,23,0,115,22,0,3,148,0,3,208,0,11
  130. 1270 [131] 240,0,25,224,0,60,216,0,120,28,0,112,28,0
  131. 1280 [131] 56,56,0,28,112,0,14,224,0,62,248
  132. 1290 [143] *** EVIL THRUST ***
  133. 1300 [131] 0,7,192,0,1,192,0,7,192,0,7,192,0,3,128,0,15,248,0
  134. 1310 [131] 24,4,0,59,246,2,122,22,255,243,22,2,195,148,0,3
  135. 1320 [131] 208,0,11,240,0,29,232,0,62,216,0,120,56,0,112
  136. 1330 [131] 28,0,56,28,0,28,14,0,14,6,0,62,15
  137. 1340 [143] *** EVIL DOWN BLOCK ***
  138. 1350 [131] 0,3,224,0,0,224,0,3,224,0,3,224,0,1,192,0,15,248
  139. 1360 [131] 0,24,6,0,59,247,0,122,23,0,243,22,1,195,148
  140. 1370 [131] 7,131,208,7,11,240,12,25,224,24,60,216,48,120,28
  141. 1380 [131] 96,112,28,0,56,56,0,28,112,0,14,224,0,62,248
  142. 1390 [143] *** PROGRAM END ***
  143. 2000 [128]
  144. 2010 [159]15,8,15,"S0:SWORDMASTER":[160]15
  145. 2020 [148]"SWORDMASTER",8:[149]"*",8
  146. 2030 [128]
  147. 3750 [153]"LOAD"
  148. 3760 [137]3800
  149. 3799 [143]--LOAD GRAPHICS PAD SCREEN-
  150. 3800 F$[178]"SM.PIC":VA[178]1024:CC[178]54272:N[178]0
  151. 3802 [151]53281,15:[151]53280,3:[151]646,1
  152. 3803 [153]"STOPLOADING GRAPHICS......"
  153. 3804 [129]T[178]1[164]2000:[130]
  154. 3810 [159]2,8,2,"0:"[170]F$[170]",S,R"
  155. 3820 [129]N[178]VA[164]VA[170]999
  156. 3830 [161]#2,A$
  157. 3840 [151]N[170]CC,[198](A$[170][199](0))
  158. 3850 [161]#2,A$
  159. 3860 [151]N,[198](A$[170][199](0))
  160. 3870 [130] N
  161. 3880 [160]2
  162. 3890 [142]
  163. 4000 [153][163]20)"PLAY AGAIN ? (Y/N)";A$
  164. 4001 [153][163]19)"LIST                    WAIT"
  165. 4002 [153][163]19)"LIST                    WAIT"
  166. 4003 [161]A$:[139]A$[178]""[167]4003
  167. 4004 [139]A$[178]"Y"[167][156]:[140]:[137]4006
  168. 4005 [158]64738
  169. 4006 [153]""[163]19)"LIST                   WAIT"
  170. 4007 [153][163]19)"                    WAIT"
  171. 4008 [153][163]19)"                    WAIT"
  172. 4009 [153][163]19)"                    WAIT"
  173. 4010 [137]10
  174. 5000 [153]"LOADSTOPPLUG JOYSTICK IN PORT 2.
  175. 5010 PRINT"RULES: 1. KILL TWO ENEMIES EACH ROUND.
  176. 5020 [153]"       2. ENEMIES GAIN STRENGTH.
  177. 5030 PRINT"       3. YOU WILL LOSE IF YOUR TOTAL
  178. 5040 [153]"          NUMBER OF HITS EXCEEDS 5 +
  179. 5050 PRINT"          THE ROUND NUMBER !"
  180. 5060 PRINT"JOYSTICK RESPONSES:"
  181. 5070 PRINT"    UP = UP BLOCK
  182. 5080 [153]"  DOWN = DOWN BLOCK
  183. 5090 PRINT"  LEFT = DODGE
  184. 5100 [153]" RIGHT = THRUST
  185. 5120 PRINT"YOUR 'WEAK MOVE' IS CHANGED AFTER EACH
  186. 5130 [153]"HIT AND AFTER EACH NEW ROUND."
  187. 5140 [153]"DON'T HIT KEYS TOO FAST. KEYBOARD
  188. 5150 PRINT"BUFFER STORES UP TO 10. KEEP IT SLOW,
  189. 5160 [153]"AS THOUGH YOU HAD A HEAVY SWORD !"
  190. 5170 [153]"       -HIT ANY KEY TO BEGIN-
  191. 5180 GETA$:IFA$=""THEN5180
  192. 5190 GOTO9
  193. 6000 POKE53281,15:POKE53280,15
  194. 6010 PRINT"[147][144]"TAB(13)"SWORDMASTER II"
  195. 6020 PRINT:PRINTTAB(19)"BY
  196. 6030 [153]:[153][163]10)"STEVEN & BUD GROVER
  197. 6035 PRINT:PRINTTAB(18)"1987
  198. 6040 [153]:[153]
  199. 6050 [153]"              WAIT"
  200. 6052 [153]"                 WAIT       STOP     WAIT"
  201. 6054 [153]"           WAIT    WAIT           STOP   WAIT"
  202. 6056 [153] "          WAIT       WAIT       STOP     WAIT"
  203. 6058 [153]"          WAIT       WAIT       STOP     WAIT"
  204. 6060 [153]"                WAIT         STOP   WAIT"
  205. 6062 [129] T[178]1 [164] 5000:[130] T
  206. 6064 [142]
  207.