home *** CD-ROM | disk | FTP | other *** search
/ C64 Live 6 / C64_Live_6_19xx_-_de.d64 / rocky (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  9KB  |  273 lines
  1. 1 restore:mq=0:qu=0:gosub43000
  2. 2 :
  3. 5 poke53269,0:ro=0
  4. 6 :
  5. 50 h=54272
  6. 60 pokeh+14,240:pokeh+15,33:pokeh+19,255:pokeh+22,196:pokeh+23,244
  7. 65 pokeh+20,79
  8. 100 v=53248:pokev+23,6:pokev+37,0:pokev+38,8:pokev+28,255:pokev+27,6
  9. 104 pokev+29,0:pokev+40,1:pokev+41,12:print"[152]"
  10. 110 poke2041,222:poke2042,227
  11. 111 poke2040,234:poke2043,234:poke2044,234:poke2045,234:poke2046,234
  12. 112 poke2047,234:pokev+39,12:pokev+42,1:pokev+43,1:pokev+44,11:pokev+45,14
  13. 115 iffw=1then 395
  14. 120 forkk=0to12:forn=0to62:readq:poke14208+n+kk*64,q:next:next
  15. 200 :
  16. 300 data,,,10,,,10,128,,2,128,,2,,,2,,,10,128,,42,80,,42,80,
  17. 301 data37,128,,37,128,,42,128,,21,64,,63,192,,63,192,,48,192,,32,128,
  18. 302 data32,128,,32,128,,16,64,,20,80,
  19. 303 data,,,10,,,10,128,,2,128,,2,,,2,,,10,128,5,42,170,165,42,128,5
  20. 304 data42,80,,42,80,,42,128,,21,64,,63,192,,63,192,,48,192,
  21. 305 data32,128,,160,128,,96,128,,64,64,,64,80,
  22. 306 data,,,10,,12,10,128,60,2,128,176,2,2,128,2,10,,10,168,,42,160,
  23. 307 data42,128,,42,80,,42,80,,42,128,,21,64,,63,192,,63,192,,32,128
  24. 308 data,32,32,,32,8,,32,8,,16,4,,20,5,
  25. 309 data,,,,,,,,,,,,40,,,42,60,,10,44,,8,32,,130,32,,42,160,
  26. 310 data10,168,,,170,,,42,128,,5,80,,3,252,,,255,,,130,,2,8,,8,32
  27. 311 data,16,64,,20,80
  28. 312 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  29. 313 data,,,,,,,,,,,,,16,,32,128,1,162,175,169,170,175,,130,111
  30. 314 data169
  31. 315 data,,,,,160,,2,160
  32. 316 data,2,128,,,128,,,128
  33. 317 data,2,160,,5,168,,5,168
  34. 318 data,2,168,,2,88,,2,168
  35. 319 data,1,84,,3,252,,3,252
  36. 320 data,3,12,,2,8,,2,8
  37. 321 data,2,8,,1,4,,5,20
  38. 322 data,,,,,160,,2,160,,2,128,,,128,,,128,80,2,160,90,170
  39. 323 data168,80,2,168,,5,168,,5,168,,2,168,,1,84,,3,252,,3,252,,3,12
  40. 324 data,2,8,,2,8,,2,9,,1,1,,5,1
  41. 325 data64,,,80,,160,24,2,160,10,2,128,2,128,128,,160,128
  42. 326 data,42,168,,2,168,,5,168,,5,168,,2,168,,1,84,,3,252,,3,252,,2,8
  43. 327 data,8,8,,32,8,,32,8,,32,8,,16,4,,80,20
  44. 329 data,10,,,42,,,40,,,8,1,,8,9,,170,36,2,170,160,9,42,128,20
  45. 330 data42,128,,42,128,,42,128,,21,64,,63,192,,63,192,,48,192
  46. 331 data,128,128,2,,128,4,,128,20,1,,,5,,,,
  47. 332 data,,,,,,,,,,,,,20,40,,24,160,,8,160,,8,32,,8,130
  48. 333 data,10,168,,42,160,,170,,2,168,,5,80,,63,192,,255,,,130
  49. 334 data,,32,128,,8,32,,2,4,,5,20,
  50. 335 data,,,,,,,,,,,,,,,,,,,
  51. 336 data,,,,,,,,,,,,,,,,,,,
  52. 337 data,,,,,,,,,,,,,,106,250,136,,250,170,106,250,138
  53. 344 data,21,,,127,64,128,127,64,128,63,2,160,8,2,40,8,10
  54. 345 data10,42,40,2,166,160,,166,128,,174,128,,170,128,,170,128,,170
  55. 346 data128,255,85,127,255,85,127,255,93,127,253,125,127,193,5,3,193,4,3,193,4
  56. 347 data3,197,20,3
  57. 348 data,21,,,127,64,,127,64,,60,,,8,,,8,
  58. 349 data,42,,2,166,160,8,166,168,8,174,136,8,170,136,8,170,136
  59. 350 data8,170,136,255,85,127,255,85,127,255,93,127,253,125,127,193,5,3
  60. 351 data193,4,3,193,4,3,197,20,3
  61. 395 poke53281,15:print"[147]":poke53280,5
  62. 396 pokeh+4,0
  63. 397 ifzn=5then401
  64. 400 gosub52000
  65. 401 forhw=1748to1988step40:pokehw,160:next
  66. 402 forhw=1775to1895step40:pokehw,160:next
  67. 403 forhw=1909to1936:pokehw,160:next
  68. 404 forhw=1949to1977:pokehw,160:next
  69. 405 poke1708,81:poke1735,81
  70. 406 forhw=1789to1814:pokehw,99:next
  71. 407 forhw=1829to1854:pokehw,99:next
  72. 408 forhw=1989to2018:pokehw,160:next
  73. 410 forhw=1277to1300:pokehw,100:next
  74. 411 forhw=1551to1575:pokehw,160:next
  75. 412 forhw=1316to1511step39:pokehw,78:next
  76. 413 forhw=1340to1535step39:pokehw,233:next
  77. 414 forhw=1380to1536step39:pokehw,160:next
  78. 415 forhw=1420to1576step39:pokehw,105:next
  79. 416 poke1460,117:poke1538,117
  80. 417 forhw=1474to1490step4:pokehw,81:pokehw+2,87:next
  81. 418 forhw=1435to1453step4:pokehw,81:pokehw+2,87:next
  82. 419 forhw=1396to1412step4:pokehw,81:pokehw+2,87:next
  83. 420 forhw=1357to1373step4:pokehw,81:pokehw+2,87:next
  84. 421 poke1384,77:poke1425,77:poke1466,77:poke1507,101:poke1544,160:poke1545,160
  85. 422 poke1546,160:poke1464,87:poke1465,87:poke1505,87:poke1506,87
  86. 450 pokeh,220:pokeh+1,68:pokeh+5,15:pokeh+6,215:pokeh+7,120
  87. 455 pokeh+8,100:pokeh+12,15:pokeh+13,215
  88. 460 forhw=55296to55575:pokehw,0:next
  89. 461 forhw=55511to55516:pokehw,7:next
  90. 462 forhw=55522to55527:pokehw,7:next
  91. 463 forhw=1024to1303:pokehw,160:next
  92. 464 forhw=1239to1244:pokehw,102:next
  93. 465 forhw=1250to1255:pokehw,102:next
  94. 466 poke1280,250:poke1281,204:poke1282,250:poke1283,204:poke1291,250
  95. 467 poke1292,204:poke1293,250:poke1294,204
  96. 468 forhw=55613to55813step40:pokehw,0:next
  97. 469 forhw=55614to55814step40:pokehw,0:next
  98. 470 forhw=55615to55815step40:pokehw,0:next
  99. 471 forhw=1341to1541step40:pokehw,160:next
  100. 472 forhw=1342to1542step40:pokehw,160:next
  101. 473 forhw=1343to1543step40:pokehw,160:next
  102. 474 forhw=55692to55809step39:pokehw,0:next
  103. 475 poke55732,0:poke55772,0:poke55771,0:poke55812,0:poke55811,o:poke55810,0
  104. 476 forhw=1420to1537step39:pokehw,233:next
  105. 477 poke1460,160:poke1500,160:poke1499,160:poke1540,160:poke1539,160
  106. 478 poke1538,160
  107. 480 forhw=55576to55587:pokehw,0:next
  108. 481 forhw=55616to55626:pokehw,0:next
  109. 482 forhw=55657to55665:pokehw,0:next
  110. 483 forhw=55698to55704:pokehw,0:next
  111. 484 forhw=55739to55743:pokehw,0:next
  112. 485 forhw=55780to55782:pokehw,0:next
  113. 486 forhw=1304to1315:pokehw,160:next
  114. 487 forhw=1344to1354:pokehw,160:next
  115. 488 forhw=1385to1393:pokehw,160:next
  116. 489 forhw=1426to1432:pokehw,160:next
  117. 490 forhw=1467to1471:pokehw,160:next
  118. 491 forhw=1508to1510:pokehw,160:next
  119. 492 forhw=55656to55779step41:pokehw,0:next
  120. 493 forhw=55588to55783step39:pokehw,0:next
  121. 494 forhw=1384to1507step41:pokehw,95:next
  122. 495 forhw=1316 to 1511step39:pokehw,105:next
  123. 496 forhw=1544to1583:pokehw,160:next
  124. 497 poke1538,229:poke1539,229:poke1540,229:poke1499,229:poke1500,229
  125. 498 poke1460,229
  126. 500 print"[144]":poke53281,6
  127. 620 pokev+3,185:pokev+5,185
  128. 625 g=135:f=175:pokev+2,g:pokev+4,f
  129. 626 br=164:pokev+1,br:pokev+7,br:pokev+9,br:pokev+11,br:pokev+13,br:pokev+15,br
  130. 627 pokev,35:pokev+6,60:pokev+8,85:pokev+10,205:pokev+12,230:pokev+14,255
  131. 630 pokev+21,255:ro=1
  132. 635 pokeh+24,79
  133. 640 a=0:z=0:c=350:d=350
  134. 650 ti$="000000":g=135:f=175:pokev+2,g:pokev+4,f
  135. 700 ifro=1thenmf=15:goto800
  136. 701 ifro=2thenmf=22:goto800
  137. 702 ifro=3thenmf=28:goto800
  138. 703 ifro=4thenmf=38:goto800
  139. 704 ifro=5thenmf=45:goto800
  140. 800 x=peek(56320)and31:y=peek(56321)and31:ifqu=5then30000
  141. 900 ifz>=530then30000
  142. 1000 ifx<>14then1100
  143. 1010 ifg>220then2000
  144. 1020 g=g+3:pokev+2,g:poke2041,224:forze=1tomf:next
  145. 1025 m=peek(53278)and2:g=g-3:poke2041,222:pokev+2,g
  146. 1030 ifm=2thena=a+8:mq=mq+1:gosub2999:goto1040
  147. 1035 ifm=0thena=a-3:mq=0
  148. 1040 poke53278,peek(53278)and253:goto2000
  149. 1100 ifx<>15then1200
  150. 1110 ifg>220then2000
  151. 1120 g=g+3:pokev+2,g:poke2041,223:forze=1tomf:nextze
  152. 1125 m=peek(53278)and2:g=g-3:poke2041,222:pokev+2,g
  153. 1130 ifm=2thena=a+3:gosub2999:goto1140
  154. 1135 ifm=0thena=a-3
  155. 1140 poke53278,peek(53278)and253:goto2000
  156. 1200 ifx<>23then1300
  157. 1205 ifg>220then2000
  158. 1210 g=g+3:pokev+2,g:pokeh+18,128:goto2000
  159. 1300 ifx<>27then2000
  160. 1310 ifg<92then2000
  161. 1320 g=g-3:pokev+2,g:pokeh+18,128
  162. 1600 ifti>=3600then9500
  163. 2000 ifmq=5then20000
  164. 2001 ifa>=530then20000
  165. 2003 ifti>3600then10000
  166. 2004 ify<>14then2100
  167. 2005 iff>225orf<95then800
  168. 2020 f=f-4:pokev+4,f:poke2042,229:forze=1 to mf:nextze
  169. 2024 l=peek(53278)and2:f=f+4:poke2042,227:pokev+4,f
  170. 2030 ifl=2thenz=z+8:qu=qu+1:gosub2998goto30000:goto2040
  171. 2035 ifl=0thenz=z-3:qu=0
  172. 2040 poke53278,peek(53278)and253:goto800
  173. 2100 ify<>15then2200
  174. 2105 iff>225 or f<95 then800
  175. 2120 f=f-3:pokev+4,f:poke2042,228:forze=1tomf:nextze
  176. 2124 l=peek(53278)and2:f=f+3:poke2042,227:pokev+4,f
  177. 2130 ifl=2thenz=z+3:gosub2999:goto2140
  178. 2135 ifl=0thenz=z-3
  179. 2140 poke53278,peek(53278)and253:goto800
  180. 2200 ify<>23then2300
  181. 2205 iff>215then800
  182. 2210 f=f+3:pokev+4,f:goto800
  183. 2300 if y<>27 then800
  184. 2315 iff<95 then800
  185. 2320 f=f-3:pokev+4,f:goto800
  186. 2998 pokeh+4,129:forze=1to5:nextze:pokeh+4,128:pokeh+18,129:return
  187. 2999 pokeh+11,129:forze=1to5:nextze:pokeh+11,128:pokeh+18,129:return
  188. 9500 rem
  189. 10000 gosub52030:print" this is the end
  190. 10010 ro[178]ro[170]1:[139]ro[178]6[167][141]50000
  191. 10015 [139]ro[179]6[167]hs[178]0
  192. 10020 [153]"               of round ";"";ro[171]1
  193. 10030 [139]a[179]0[167]a[178]0
  194. 10035 [139]z[179]0[167]z[178]0
  195. 10050 [153]"player 1                 player 2"
  196. 10060 [153]"";a;"                    ";z
  197. 10080 [139]hs[178]1[167][137]30500
  198. 11000 [129]ze[178]1[164]2550:[130]:[153]""
  199. 12000 [129]hw[178]1024[164]1223:[151]hw,160:[130]
  200. 12010 [153]" begin from round;ro
  201. 12011 forze=1to250:next
  202. 12012 forze=1024to1223:pokeze,160:next
  203. 12020 mq=0:qu=0:goto650
  204. 19000 pokev+4,f+3
  205. 20000 poke2042,230:forze=1to85:nextze
  206. 20001 pokev+4,f+6:poke2042,231:forze=1to85:nextze:vd=2
  207. 20011 pokev+4,f+8:poke2042,232:forze=1to25:nextze:pokev+29,peek(v+29)or4
  208. 20039 poke53280,8:poke53281,7
  209. 20040 print"          what a knockout!!!":print
  210. 20050 print"   player";vd;" knocked out"
  211. 20055 vs=ti:vf=int(vs/60)
  212. 20056 print" in ";vf;"seconds from round ";ro
  213. 20060 fortg=1to30
  214. 20070 poke2040,233:poke2043,233:poke2044,233:poke2045,233:poke2046,233
  215. 20080 poke2047,233:fortp=1to40:next
  216. 20090 poke2040,234:poke2043,234:poke2044,234:poke2045,234:poke2046,234
  217. 20091 poke2047,234:next:pokeh+18,128
  218. 20500 forze=1to5500:next:pokev+21,0:restore:print"[147]"
  219. 20501 print""
  220. 20502 poke54296,0
  221. 20505 print"again ?
  222. 20507 [153]"print#"
  223. 20510 [161]a$:[139]a$[178]""[167]20510
  224. 20520 [139]a$[179][177]"y"[175]a$[179][177]"n"[167]20510
  225. 20530 [139]a$[178]"n"[167][153]"load":[128]
  226. 20540 [139]a$[178]"y"[167][140]:[153]"load":[137]21000
  227. 20600 [128]
  228. 21000 fw[178]1:[151]v[170]29,0:mq[178]0:qu[178]0:a[178]0:z[178]0:[137]110
  229. 30000 [151]v[170]2,g[171]10:[151]2041,225:[129]ze[178]1[164]135:[130]ze:vd[178]1
  230. 30030 [151]v[170]2,g[171]12:[151]2041,226:[151]v[170]29,[194](v[170]29)[176]2
  231. 30040 gd[178]5:[137]20040
  232. 30500 [129]ze[178]1 [164] 2500:[130]ze:[151]v[170]21,0:[140]:[153]"load":[153]"again ?
  233. 30510 geta$:ifa$=""then20510
  234. 30520 if a$<>"y"anda$<>"n"then20510
  235. 30530 ifa$="n"thenend
  236. 30540 ifa$="y"then21000
  237. 30600 end
  238. 43000 poke53281,0:poke53280,0
  239. 43100 print"[147]***[158] commodore 64 *******[158]    rocky    ***
  240. 43101 [153]"openthis game is for two players.
  241. 43102 print"[156]try and see if you can knock your
  242. 43103 [153]"opponent out.
  243. 43104 print"use the joysticks to move.
  244. 43200 [153]"press any key to start
  245. 43210 geta$:ifa$=""then43210
  246. 43220 return
  247. 50000 print"               end score":hs=1:ro=0
  248. 50005 goto10050
  249. 51000 data14,24,50,16,195,50,18,209,190,18,209,30,21,31,20,14,24,250
  250. 51001 :
  251. 51010 data12,143,15,11,48,20,12,143,55,11,48,50,12,143,30,14,24,150,14,239,30
  252. 51015 data14,24,20,14,24,30,12,143,30,12,143,30,11,48,100
  253. 51020 data14,239,40,14,24,200,14,24,250
  254. 51022 data14,239,40,14,24,250,14,24,250
  255. 51023 data14,24,35,28,49,600,-1,-1,-1
  256. 52000 poke54296,15:pokeh+5,17:pokeh+6,96
  257. 52005 readp:readpo:readpu
  258. 52010 ifp<0then52026
  259. 52020 pokeh+1,p:pokeh,po:pokeh+4,33:forze=1topu:next
  260. 52025 pokeh+4,32:forze=1to30:next:goto52005
  261. 52026 zn=5:print"[147]":return
  262. 52030 forze=0to24:pokeh+ze,0:next
  263. 52031 pokeh+1,189:pokeh+5,9:pokeh+15,30:pokeh+24,15
  264. 52032 forzw=1to3:pokeh+4,21
  265. 52033 forze=1to200:next:pokeh+4,20
  266. 52034 forze=1to200:next:next
  267. 53235 forze=0to24:pokeh+ze,0:next
  268. 53240 pokeh+24,79:pokeh,220:pokeh+1,68:pokeh+5,15:pokeh+6,215:pokeh+7,120
  269. 53241 pokeh+8,100:pokeh+12,15:pokeh+13,215:poke54295,4
  270. 53242 pokeh+14,240:pokeh+15,33:pokeh+19,255:pokeh+22,196:pokeh+23,244
  271. 53243 pokeh+20,255
  272. 53245 return
  273.