home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / BOMB (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.4 KB  |  159 lines
  1. 1 PRINT"[147]":GOSUB100
  2. 2 IFBO=0THEN50
  3. 3 A=PEEK(56320):IFA=123THENX=X-S
  4. 4 IFA=119THENX=X+S:IFA=123THENX=X-S
  5. 5 IFX>255THENX=22
  6. 6 IFX<22THENX=255
  7. 7 POKEV+12,X
  8. 8 Z=Z-1.5*D:IFZ<24THENZ=255
  9. 9 IFZ>255THENZ=24
  10. 10 POKEV+6,Z
  11. 11 CM=CM+H:POKEV+4,CM:POKEV+14,CM+25:IFCM=204THENH=H*-1
  12. 12 IFCM=24THENH=H*-1
  13. 13 GETA$:T=VAL(A$):IFT>0ANDT<10THENPRINT"";TAB(13)"SPEED ";T;"":S=T/1.75
  14. 14 IFA>117THENGOTO3
  15. 15 FORI=MTOM+24:POKEI,0:NEXT:POKEM+24,15:POKEM+5,31:POKEM+6,0:POKEM+4,35
  16. 16 BO=BO-1:PRINT"":PRINTTAB(34)BO;"[157]  "
  17. 17 D=INT(RND(1)*DS+0):D=D-SUB:POKEV+30,0:POKEV+3,90:POKEV+2,X
  18. 18 FORI=1TO12
  19. 19 A=PEEK(56320):IFA=119ORA=103THENX=X+S
  20. 20 IFA=123ORA=107THENX=X-S
  21. 21 IFX>255THENX=22
  22. 22 IFX<22THENX=255
  23. 23 POKEV+12,X
  24. 24 Z=Z-1.5*D:IFZ>255THENZ=24
  25. 25 IFZ<24THENZ=255
  26. 26 POKEV+6,Z                  
  27. 27 CM=CM+H:POKEV+4,CM:POKEV+14,CM+25:IFCM=24THENH=H*-1
  28. 28 IFCM=204THENH=H*-1
  29. 29 POKEV,205:POKEV+3,90+I*10:COL=PEEK(V+30):IFCOL=142ORCOL=206THENGOTO33
  30. 30 POKEM,240-I*5:POKEM+1,240-I*5:NEXT
  31. 31 POKEM,0:POKEM+1,0:POKEM+4,0:D=INT(RND(1)*DS+0):D=D-SUB
  32. 32 POKEV+2,0:MI=MI+1:PRINTTAB(34)"";MI:GOTO2
  33. 33 POKE2043,203:POKEV+2,0:POKEV+28,57:POKEM,255:POKEM+1,4:POKE M+2,0
  34. 34 POKEM+3,8:POKEM+5,63:POKEM+6,90:POKEM+4,129
  35. 35 FORI=1TO3:FORJ=1TO30:POKEV+42,J/10:NEXT:NEXT
  36. 36 POKEV+28,49:POKEV+30,0:POKE2043,201:POKEV+42,12:FORI=MTOM+24:POKEI,0:NEXT
  37. 37 D=INT(RND(1)*DS+0):D=D-SUB
  38. 38 HI=HI+1:PRINTTAB(34)"";HI:GOTO2
  39. 50 AV=HI/20
  40. 51 IFAV>=.95THENAV$="**GENERAL**":GOTO57
  41. 52 IFAV>=.85THENAV$="  MAJOR  ":GOTO57
  42. 53 IFAV>=.75THENAV$=" CAPTAIN ":GOTO57
  43. 54 IFAV>=.50THENAV$=" SEARGENT":GOTO57
  44. 55 IFAV>=.25THENAV$=" CORPORAL":GOTO57
  45. 56 AV$=" PRIVATE"
  46. 57 PRINT"          GAME OVER               "
  47. 58 FORI=1TO300:NEXTI
  48. 59 FORJ=1TO20:PRINT"[145]     RANK:";AV$:FORI=1TO50:NEXTI
  49. 60 PRINT"[145]     RANK:[146]";AV$:FORI=1TO50:NEXTI:NEXTJ
  50. 61 PRINT"[145]     ANOTHER GAME ?(Y/N)        "
  51. 62 GETAN$:IFAN$<>"Y"ANDAN$<>"N"THEN62
  52. 63 IFAN$="N"THENPOKE254,0:SYS254
  53. 64 PRINT"[145]  WHICH LEVEL OF PLAY (1-6)"
  54. 65 GETLE$:IFLE$<"1"ORLE$>"6"THEN65
  55. 66 LE=VAL(LE$):IFLE=1THENDS=2:SUB=-1
  56. 67 IFLE=2THENDS=3:SUB=0
  57. 68 IFLE=3THENDS=3:SUB=1
  58. 69 IFLE=4THENDS=4:SUB=2
  59. 70 IFLE=5THENDS=6:SUB=3
  60. 71 IFLE=6THENDS=7:SUB=4
  61. 72 D=INT(RND(1)*DS+0):D=D-SUB
  62. 73 X=150:Y=130:S=1:Z=0:BO=20:HI=0:MI=0:T=1
  63. 74 FORI=MTOM+24:POKEI,0:NEXT
  64. 75 PRINT"[145]             LEVEL ";LE;"[157]           [146]"
  65. 76 PRINT"":PRINTTAB(13)"SPEED  1"
  66. 77 PRINT"":PRINTTAB(35)"20"
  67. 78 PRINTTAB(34)"   "
  68. 79 PRINTTAB(34)"   "
  69. 80 GOTO2
  70. 100 V=53248:M=54272:CM=24:CN=25:H=.5:X=150:Y=130:S=1:Z=0:BO=20:HI=0:MI=0
  71. 101 POKE2040,204:POKE2041,202:POKE2042,205:POKE2043,201:POKE2044,204
  72. 102 POKE2045,204:POKE2046,200:POKE2047,205:POKEV,205:POKEV+1,200
  73. 103 POKEV+4,24:POKEV+5,63:POKEV+6,0:POKEV+7,205:POKEV+8,150:POKEV+9,170
  74. 104 POKEV+10,60:POKEV+11,183:POKEV+12,150:POKEV+13,80:POKEV+14,49:POKEV+15,57
  75. 105 POKEV+23,149:POKEV+28,49:POKEV+29,133:POKEV+37,13:POKEV+38,5:POKEV+39,9
  76. 106 POKEV+40,14:POKEV+41,15:POKEV+42,12:POKEV+43,9:POKEV+44,9:POKEV+45,14
  77. 107 POKEV+46,15:POKE53280,2
  78. 108 FORI=0TO24:POKEM+I,0:NEXT
  79. 109 POKEM+5,85:POKEM+6,85:POKEM+12,85:POKEM+13,85:POKE53280,2
  80. 110 PRINT"[147]";TAB(6)"  WELCOME TO BOMB RUSSIA  ":PRINT""
  81. 111 POKEM+24,15:POKEM+4,33:POKEM+11,7
  82. 112 FORFF=1TO6:READH1,L1,H2,L2:POKEM+1,H1:POKEM,L1:POKEM+8,H2:POKEM+7,L2
  83. 113 PRINTTAB(9)"[145] ** YOUR  MISSION **""
  84. 114 [139]H1[178]50[167][129]T[178]1[164]200:[130]
  85. 115 [129]T[178]1[164]100:[130]
  86. 116 [153][163]9)"WAITON ** YOUR  MISSION **":[130]FF
  87. 117 [129]I[178]M[164]M[170]24:[151]I,0:[130]
  88. 118 [153]"ONCONT  <PATROL FIELDS IN A SPACESHIP>"
  89. 119 [153]"  <DESTOY ENEMY TANKS IN YOUR SECTOR>"
  90. 120 [153]"       PUT JOYSTICK IN PORT 2"
  91. 121 [153]"        PUSH FIRE BUTTON TO DROP BOMBS"
  92. 122 [153]" CONTROL YOUR SPEED WITH THE NUMBER KEYS":[153][163]16)"1-SLOWEST"
  93. 123 [153][163]16)"9-FASTEST":[153][163]12)"ONE MOMENT PLEASE"
  94. 124 [129]I[178]0[164]5:[129]N[178]0[164]62:[135]Q:[151]12800[170](I[172]64)[170]N,Q:[130]:[130]
  95. 125 [129]I[178]1[164]10:[161]A$:[130]
  96. 126 [153]"ON     ENTER LEVEL OF PLAY (1-6)"
  97. 127 [153][163]16)"1=EASIEST":[153][163]16)"6=HARDEST"
  98. 128 [161]LE$:[139]LE$[179]"1"[176]LE$[177]"6"[167]128
  99. 129 A$[178]"1":LE[178][197](LE$)
  100. 130 [139]LE[178]1[167]DS[178]2:SUB[178][171]1
  101. 131 [139]LE[178]2[167]DS[178]3:SUB[178]0
  102. 132 [139]LE[178]3[167]DS[178]3:SUB[178]1
  103. 133 [139]LE[178]4[167]DS[178]4:SUB[178]2
  104. 134 [139]LE[178]5[167]DS[178]6:SUB[178]3
  105. 135 [139]LE[178]6[167]DS[178]7:SUB[178]4
  106. 136 D[178][181]([187](1)[172]DS[170]0):D[178]D[171]SUB
  107. 137 [153]"LOAD":[151]53280,0:[151]53281,0
  108. 138 [129]I[178]1[164]17
  109. 139 [153]"                                WAIT"
  110. 140 [130]
  111. 141 [153][163]21)"ONSTEP(null)"
  112. 142 [153]"                                WAIT"
  113. 143 [153][163]21)"ONSTEP(null)STEP  (null)STEP(null)"
  114. 144 [153]"                                WAIT"
  115. 145 [153][163]20)"ONSTEP(null)STEP  (null)  (null)  (null)"
  116. 146 [153]"                                WAIT"
  117. 147 [153][163]19)"ONSTEP(null)    (null)(null)    "
  118. 148 [153]"PRINT                                WAIT"
  119. 149 [153][163]19)"ONSTEP      (null)"
  120. 150 [153]"PRINT                                WAIT"
  121. 151 [153]"PRINT                                WAIT"
  122. 152 [153]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREWAIT"
  123. 153 [153]"            LEVEL:";LE;"CMD            WAIT"
  124. 154 [129]I[178]0[164]31
  125. 155 [151]1984[170]I,160
  126. 156 [151]56256[170]I,5
  127. 157 [130]
  128. 158 [153]"";[163]33)"BOMBS"
  129. 159 [153][163]33)"LEFT"
  130. 160 [153][163]33)"HITS"
  131. 161 [153][163]33)"MISS"
  132. 162 [153][163]13)"SPEED  ";A$;""
  133. 163 [153]"";[163]35)"20"
  134. 164 [151]V[170]21,255
  135. 165 [142]
  136. 200 [131]25,30,18,209,33,135,25,30,42,62,31,125,50,60,37,162,42,62,31,165,50,60
  137. 201 [131]37,162
  138. 202 [131]0,0,0,0,0,0,0,0,0,0,0,0
  139. 203 [131]3,255,192,5,165,160,15,255,240,31,255,248
  140. 204 [131]63,255,252,43,165,180,63,255,252,31,231,248
  141. 205 [131]15,231,240,0,60,0,0,0,0,0,0,0
  142. 206 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  143. 207 [131]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,0,0
  144. 208 [131]127,224,63,255,224,63,255,224,0,127,224,0,63,192,63,255,252
  145. 209 [131]127,255,254,255,255,255,255,255,255,127,255,254,63,255,252
  146. 210 [131]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,0
  147. 211 [131]0,0,0,0,0,0,0,0,0,0,102,0,0,126,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60
  148. 212 [131]0,0,24,0
  149. 213 [131]10,170,160,42,170,168,170,170,170,170,170,170,170,170,170,170,170,170
  150. 214 [131]170,170,170,170,170,170,170,170,170,42,255,42,29,170,56,0,170,0
  151. 215 [131]0,170,0,0,170,0,0,170,0,0,170,0,0,170,0,0,170,0,97,170,134,170,170
  152. 216 [131]170,42,170,168
  153. 217 [131]0,60,0,0,255,0,3,255,192,15,253,240,15,63,240,63,255,252,63,255,252
  154. 218 [131]63,247,220,63,255,252,63,247,220,61,255,252,63,255,252,15,255,240
  155. 219 [131]15,247,240,3,255,192,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0
  156. 220 [131]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,0,7,255
  157. 221 [131]224,31,255,248,63,255,252,127,255,254,251,255,255,255,255,255,255
  158. 222 [131]255,255,127,255,254,63,255,252,31,255,248,7,255,224
  159.