home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Uptime_The_Disk_Monthly_V1_11_19xx_Uptime_staff_Side_A.d64 / raiders.exe (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  222 lines
  1. 10 rem    planet raiders-by jc hilty
  2. 12 gosub1000
  3. 16 gosub800
  4. 18 gosub1033
  5. 20 gosub850
  6. 44 print"[147]"
  7. 45 forx=1904to1983:pokex,160:next:forx=56176to56255:pokex,6:next
  8. 51 pokev+21,124:poke50432,124
  9. 52 gosub400
  10. 60 print""tab(6)"          ":printtab(6)"   new    "
  11. 61 printtab(6)" mission  ":forx=0to1:printtab(6)"          ":next
  12. 62 gosub420
  13. 63 print"":forx=0to1:printtab(24)"        ":next
  14. 64 printtab(22)"  press   ":printtab(22)" any key  "
  15. 65 forx=1to2:printtab(22)"          ":next
  16. 66 get jk$:ifjk$<>""then66
  17. 67 geta$:ifa$=""then67
  18. 68 gosub400
  19. 70 print" [159]power";p;tab(12)"planet  raiders[159]    ships";m
  20. 72 print"time";tm;tab(12)"score";sc;tab(24)"high score";hs
  21. 74 pokev+21,255:fort=0to500:next
  22. 78 w1=peek(v+30):w2=peek(v+31)
  23. 79 poke50432,127
  24. 80 gosub100
  25. 81 w1=peek(v+30):ifw1>128then450
  26. 82 ifpeek(v+1)>185thenpoke50434,255:poke50688,1
  27. 83 ifpeek(v+1)<85thenpoke50434,1:poke50688,1
  28. 84 gosub100
  29. 85 ifpeek(v+3)<85thenpoke50436,2:poke50688,2
  30. 86 ifpeek(v+3)>185thenpoke50436,255:poke50688,2
  31. 88 fb=-((peek(56320)and16)=0):iffb=1then200
  32. 89 tm=tm-5:print""tab(5)"     ":print""tab(5);tm:iftm=0then500
  33. 90 gosub100
  34. 91 p=p-5:ifp<0thenp=0
  35. 92 print""tab(7)"    ":print""tab(6);p
  36. 94 goto80
  37. 100 sys828:ifst=0thenreturn
  38. 102 ifpeek(3)=1theny1=y1-4:ify1<82theny1=82
  39. 103 ifpeek(3)=2theny1=y1+4:ify1>200theny1=200
  40. 104 pokev+15,y1:return
  41. 199 rem    fire phaser
  42. 200 q=int(peek(v+15)/8-5)
  43. 202 print"":forx=1toq:print:next:printtab(9)"[158][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  44. 204 p=p+100:print""tab(6);p:ifp>500then300
  45. 205 w2=peek(v+31):ifw2and1then250
  46. 206 ifw2and2then260
  47. 207 print"":forx=1toq:print:next
  48. 208 printtab(9)"                              "
  49. 209 w2=peek(v+31)
  50. 210 goto80
  51. 250 poke50432,124:print"":forx=1toq:print:next
  52. 252 printtab(9)"                              "
  53. 254 poke2040,205:pokes+12,160:pokes+13,252:pokes+8,80:pokes+7,40:pokes+11,129
  54. 255 pokes+24,15:fort=0to80:next:forl=0to24:pokes+l,0:next
  55. 256 pokev,5:pokev+1,90:pokev+16,peek(v+16)and254:poke2040,203:w2=peek(v+31)
  56. 258 goto270
  57. 260 poke50432,124:print"":forx=1toq:print:next
  58. 262 printtab(9)"                              "
  59. 264 poke2041,205:pokes+12,160:pokes+13,252:pokes+8,80:pokes+7,40:pokes+11,129
  60. 265 pokes+24,15:fort=0to80:next:forl=0to24:pokes+l,0:next
  61. 266 pokev+2,0:pokev+3,150:poke2041,204:w2=peek(v+31)
  62. 268 goto270
  63. 270 sc=sc+10:print""tab(17);sc:poke50432,127:goto80
  64. 299 rem    power surge
  65. 300 gosub400
  66. 301 poke50432,124:print"":printtab(6)"          "
  67. 302 printtab(6)"          ":printtab(6)"  power   "
  68. 304 printtab(6)"  surge   ":printtab(6)"          "
  69. 305 gosub600
  70. 308 gosub400:goto450
  71. 400 print"":forx=1to17:print"                                       ":next
  72. 402 return
  73. 419 rem stardate window
  74. 420 print""tab(16)"[158]        ":printtab(16)"        "
  75. 424 printtab(14)" stardate ":printtab(14)"  "ti$;tab(22)"  "
  76. 425 printtab(14)"          ":return
  77. 449 rem    starship collision
  78. 450 poke50432,124:poke2047,205
  79. 452 pokes+12,160:pokes+13,252:pokes+8,80:pokes+7,40:pokes+11,129
  80. 454 pokes+24,15:fort=0to850:next:pokev+21,124:forl=0to24:pokes+l,0:next
  81. 456 m=m-1:print""tab(36);m:ifm=0then470
  82. 457 p=0:y1=140
  83. 458 ifm=2thenq=1:goto485
  84. 459 ifm=1thenq=2:goto485
  85. 460 pokev+14,65:pokev+15,y1 :pokev+0,88:pokev+1,80:pokev+2,240:pokev+3,200
  86. 462 pokev+21,255:poke50432,127:poke2047,200:w1=peek(v+30):goto80
  87. 469 rem    3 ships lost
  88. 470 pokev+21,124:print"":printtab(6)"[159]         "
  89. 471 printtab(6)"         ":printtab(6)" entire  "
  90. 472 printtab(6)"  fleet  ":printtab(6)"  lost!  "
  91. 473 printtab(6)"         ":gosub420
  92. 475 print"[145]"tab(25)"[156]        "
  93. 476 printtab(23)"  better  ":printtab(23)"   luck   "
  94. 478 printtab(23)"   next   ":printtab(23)"  time!!  "
  95. 480 printtab(23)"          ":gosub620:goto520
  96. 485 print"":printtab(6)"          ":printtab(6)" starship "
  97. 486 ifq=1thenprinttab(6)" regulas  ":printtab(6)"   lost!  "
  98. 487 ifq=2thenprinttab(6)"  olympus ":printtab(6)"   lost!  "
  99. 488 printtab(6)"          "
  100. 489 gosub420
  101. 490 print"[145]"tab(24)"         ":printtab(24)"         "
  102. 492 printtab(23)"   be     ":printtab(23)" careful  "
  103. 493 forx=0to1:printtab(23)"          ":next
  104. 494 gosub620:gosub400:goto460
  105. 499 rem    game over
  106. 500 poke50432,124:pokev+21,124
  107. 501 print"":printtab(6)"          "
  108. 502 printtab(6)"   time   ":printtab(6)"   ran    "
  109. 503 printtab(6)"   out    "
  110. 504 printtab(6)"          ":printtab(6)"          "
  111. 505 gosub420:gosub600
  112. 520 gosub400
  113. 521 print""tab(16)"[159]game over":gosub640
  114. 524 print:printtab(8)"press f1 to play again":print
  115. 526 printtab(8)"press f8 to return to uptime"
  116. 527 get a$
  117. 528 ifa$="[133]" then 532
  118. 529 ifa$="[140]" then 1500
  119. 530 goto527
  120. 532 print"[147]":pokev+21,0
  121. 534 ifsc>hsthenhs=sc
  122. 536 sc=0:m=3:tm=2500:p=0:y1=140:goto20
  123. 599 rem    power sound
  124. 600 pokes+24,15:pokes+5,8:pokes+6,255:pokes+4,21
  125. 604 forz=1to5
  126. 606 f1=10:fory=1to5:f2=40:pokes+1,f1
  127. 608 forx=1to5:pokes+15,f2:f2=f2*1.01:nextx:f1=f1*1.3:nexty:nextz
  128. 610 forl=0to24:pokes+l,0:next
  129. 612 return
  130. 619 rem sound
  131. 620 pokes+24,15:pokes+5,8:pokes+6,255:pokes+4,21
  132. 622 forz=1to6:f1=10:fory=1to5:f2=40:pokes+1,f1:forx=1to5:pokes+15,f2
  133. 624 f2=f2*1.10:nextx:f1=f1*0.8:nexty:nextz:forl=0to24:pokes+l,0:next
  134. 626 return
  135. 639 rem sound
  136. 640 pokes+24,15:pokes+5,68:pokes+6,68:pokes+12,68:pokes+13,68:pokes+19,68
  137. 642 pokes+20,68
  138. 643 forx=0to16
  139. 644 pokes+4,33:pokes+11,33:pokes+18,33:pokes+1,120:pokes,250:pokes+7,250
  140. 645 pokes+8,120:pokes+14,64:pokes+15,64:pokes+4,32:pokes+11,32:pokes+18,32
  141. 646 fort=0to20:next:next
  142. 648 forl=0to24:pokes+l,0:next:return
  143. 800 v=53248:hs=0:sc=0:p=0:tm=2500:m=3:s=54272:y1=140
  144. 803 forl=0to24:pokes+l,0:next
  145. 804 forx=828to848:reada:pokex,a:next
  146. 806 forx=12800to13182:reada:pokex,a:next
  147. 808 forx=50880to51116:reada:pokex,a:next:poke50432,0:sys51104
  148. 810 poke50433,1:poke50434,1:poke50435,255:poke50436,255:poke50437,255
  149. 812 poke50438,0:poke50439,255:poke50440,0:poke50441,255:poke50442,0
  150. 814 poke50443,254:poke50444,0:poke50445,254:poke50446,0:poke50688,127
  151. 816 return
  152. 850 poke2047,200:poke2040,203:poke2041,204:poke2042,201:poke2043,201
  153. 852 poke2044,201:poke2045,202:poke2046,202:pokev+39,13:pokev+40,10:pokev+41,6
  154. 854 pokev+42,6:pokev+43,6:pokev+44,14:pokev+45,14:pokev+46,15:pokev+23,124
  155. 856 pokev+29,124:pokev,88:pokev+1,80:pokev+4,30:pokev+5,184:pokev+6,200
  156. 858 pokev+7,184:pokev+10,60:pokev+11,184:pokev+14,65:pokev+15,y1:pokev+16,82
  157. 860 pokev+2,50:pokev+3,185:pokev+8,10:pokev+9,184:pokev+12,40:pokev+13,184
  158. 862 return
  159. 896 rem    joystick data
  160. 898 data 173,0,220,41,31,73,31,133,3,173,1,220,73,255,133,2,5,3,133,144,96
  161. 900 rem    sprite data
  162. 902 data 0,0,0,0,0,0,0,0,0,0,240,0,15,240,0,127,240,0,31,240,112,12,0,248,14,7
  163. 904 data 255,7,0,192,3,129,128,0,195,0,0,198,0,1,254,0,7,254,0,0,127,0,0,30,0
  164. 906 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,64,0,0,96
  165. 908 data 0,0,96,2,0,96,3,0,224,3,129,240,3,129,248,7,195,248,7,195,248,7,231
  166. 910 data 248,7,231,248,15,255,248,31,255,248,63,255,252,127,255,254,255,255,255
  167. 912 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0
  168. 914 data 129,128,0,129,128,0,129,128,0,195,192,1,199,224,1,207,224,17,239
  169. 916 data 228,57,255,238,127,255,254,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  170. 918 data 255,128,0,112,0,0,120,0,0,124,0,0,126,0,0,127,0,0,255,255,192,192,0
  171. 920 data 240,255,255,255,255,248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  172. 922 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,255,0,0,14,0,0,30,0,0,62,0,0,126,0,0
  173. 924 data 254,3,255,255,15,0,3,255,255,255,0,31,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  174. 926 data 0,0,0,0,0,0,0,0,76,1,0,0,128,4,32,4,32,0,48,0,8,0,0,0,32,48,80,0,130
  175. 928 data 3,12,0,0,0,4,32,0,128,0,36,0,0,0,192,201,0,4,0,0,0,19,32,192
  176. 930 data 0,4,0,32,0,1,4,192,0,0,4,8,0,0,0
  177. 932 rem    sprite movement
  178. 934 data 169,255,45,0,198,240,16,169,0,141,0,198,162,21,189,0
  179. 936 data 197,157,0,198,202,208,247,162,1,169,1,141,80,197,173,80
  180. 938 data 197,45,0,197,240,3,76,243,198,232,232,14,80,197,208,238,76,49,234
  181. 940 data 169,0,29,0,197,208,3,76,97,199,169,128,61
  182. 942 data 0,197,240,48,254,0,198,208,40,222,255,207,76,144,199,80
  183. 944 data 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76
  184. 946 data 43,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0
  185. 948 data 198,76,97,199,222,0,198,208,40,254,255,207,208,29,173,80
  186. 950 data 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76
  187. 952 data 91,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0
  188. 954 data 198,169,0,232,29,0,197,208,3,76,140,199,169,128,61,0
  189. 956 data 197,240,11,254,0,198,208,20,222,255,207,76,134,199,222,0
  190. 958 data 198,208,9,254,255,207,189,0,197,157,0,198,202,76,233,198
  191. 960 data 169,255,221,255,207,240,3,76,43,199,173,80,197,76,17,199
  192. 962 data 120,169,192,141,20,3,169,198,141,21,3,88,96
  193. 999 rem    instructions
  194. 1000 poke147,0:sys57812"planet.font",8,1:sys62631:poke53272,31
  195. 1002 poke53280,0:poke53281,0:print"[147]"tab(12)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  196. 1004 printtab(12)"[194]planet  raiders[194]":printtab(12)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  197. 1006 print"   defend your planet against marauding"
  198. 1008 print"raiders.  use a joystick in port 2 to"
  199. 1010 print"move your starship up and down.  press"
  200. 1012 print"the firebutton to fire your phaser.":print
  201. 1014 print"   each time your phaser is fired your"
  202. 1016 print"power usage goes up by 100 units.  if"
  203. 1018 print"your power usage goes above 500, a ship"
  204. 1020 print"is lost.  colliding with an invading"
  205. 1022 print"craft also costs you a ship.":print
  206. 1024 print"   the game ends when the timer reaches"
  207. 1026 print"zero, or when you lose all three of":print"your starships.":print
  208. 1028 print"   beware of ships approaching you from"
  209. 1030 print"behind.  beware of the mountains on the"
  210. 1032 print"surface of the planet.":return
  211. 1033 printtab(15)"[213][192][192][192][192][192][192][192][192][201]"
  212. 1036 printtab(15)"[194]press f1[194]":printtab(15)"[202][192][192][192][192][192][192][192][192][203]"
  213. 1040 get a$:if a$<>"[133]" then 1040
  214. 1042 return
  215. 1500 sys 65412:sys 65418:poke 808,234
  216. 1510 sys 65409:poke 53281,0:poke 53280,0
  217. 1520 print"[144][147]load"chr$(34)"upt.reboot"chr$(34)",8:"
  218. 1530 print"run:"
  219. 1540 poke 631,19:poke 632,13:poke 633,13
  220. 1550 poke 198,3
  221. 1560 new
  222.