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