Make C1P screen sharper, add support for C1P JSON files, and add more C1P README files
This commit is contained in:
Jeff Parsons
parent
c8d3a102e2
commit
985c7c76cd
46 changed files with 2199 additions and 54 deletions
|
|
@ -1,85 +0,0 @@
|
|||
10 PRINT:PRINT:PRINT"TANK FOR TWO":PRINT
|
||||
20 PRINT"COPYRIGHT R. OLSEN 1978
|
||||
30 T1=3:T2=7:POKE530,1::S(1)=54429:S(2)=54403
|
||||
40 FORX=1TO8:READTA(X):NEXT:P1=53916:P2=54019
|
||||
50 FORX=0TO9:READMF(X):NEXT
|
||||
60 FORX=0TO9:READBD(X):NEXT:L=64
|
||||
70 C1=53279:C2=55265:P0=128:PT=4:FORX=1TO5:READUP(X):NEXT
|
||||
80 FORX=1TO7:READAC(X):NEXT
|
||||
90 VB=600:IFPEEK(57088)<128THENVB=540:GOTO150
|
||||
100 FORX=0TO9:READMF(X):NEXT:L=32
|
||||
110 P0=127:PT=251:S(1)=53765:S(2)=53785:FORX=1TO5
|
||||
120 READUP(X):NEXT
|
||||
130 FORX=1TO7:READAC(X):NEXT:P1=53766:P2=53592
|
||||
140 C1=53284:C2=54204
|
||||
150 INPUT"DO YOU WANT DIRECTION";A$:IFA$="YES"THEN610
|
||||
160 FORX=C1TOC2:POKEX,32:IFRND(1)>.96THENPOKEX,161
|
||||
170 NEXT
|
||||
180 POKE56900,0:POKE530,1:B=161:KB=57088
|
||||
190 FORX=1TO5:FORY=1TO5:POKEUP(Y)+X,B:NEXTY:NEXTX
|
||||
200 FORX=1TO5:FORY=1TO7:POKEAC(Y)+L*X,B:NEXTY,X
|
||||
210 FORX=1TOL:POKEC1+X,B:POKEC2-X,B:NEXT
|
||||
220 FORX=1TO32:POKEC1+X*L,B:POKEC2-X*L,B:NEXT
|
||||
230 POKEKB,P0:PK=PEEK(KB):IFVB=600THENPK=255-PK
|
||||
240 IFPK=128THENT2=T2-1:IFT2=0THENT2=8
|
||||
250 M1=MF(T1):M3=MF(T2)
|
||||
260 IFPK=32THENT2=T2+1:IFT2=9THENT2=1
|
||||
270 IFPK=64ANDF2=0THENB2=P2:F2=1:M4=MF(T2)
|
||||
280 IFPK=160ANDPEEK(P2+MF(T2))=32THENPOKEP2,32:P2=P2+MF(T2)
|
||||
290 IFPK=192ANDF2=0THENB2=P2-MF(T2-1):F2=1
|
||||
300 IFPK=96ANDF2=0THENB2=P2-MF(T2+1):F2=1
|
||||
310 POKEP2,TA(T2)
|
||||
320 POKEKB,PT:PK=PEEK(KB):IFVB=600THENPK=255-PK
|
||||
330 IFPK=8THENT1=T1-1:IFT1=0THENT1=8
|
||||
340 IFPK=10ANDPEEK(P1+MF(T1))=32THENPOKEP1,32:P1=P1+MF(T1)
|
||||
350 IFPK=2THENT1=T1+1:IFT1=9THENT1=1
|
||||
360 IFPK=4ANDF1=0THENF1=1:B1=P1:SM=MF(T2)
|
||||
370 IFPK=6ANDF1=0THENB1=P1-MF(T1+1):F1=1
|
||||
380 IFPK=12ANDF1=0THENB1=P1-MF(T1-1):F1=1
|
||||
390 POKEP1,TA(T1)
|
||||
400 FORX=1TO3:IFF1=0THEN460
|
||||
410 IFB1<>P1THENPOKEB1,32
|
||||
420 P=PEEK(B1+M1):IFP=161THENF1=0:GOTO460
|
||||
430 B1=B1+M1:POKEB1,BD(T1)
|
||||
440 IFP=TA(T2)THENF1=0:B1=P1:S1=S1+1:GOTO460
|
||||
450 IFB1<C1ORB1>C2THENF1=0
|
||||
460 IFF2=0THEN520
|
||||
470 IFB2<>P2THENPOKEPB2,32
|
||||
480 P=PEEK(B2+M3):IFP=161THENF2=0:GOTO520
|
||||
490 B2=B2+M3:POKEB2,BD(T2)
|
||||
500 IFP=TA(T1)THENF2=0:B2=P2:S2=S2+1
|
||||
510 IFB2<C1ORB2>C2THENF2=0
|
||||
520 IFB2<>P2THENPOKEB2,32
|
||||
530 IFB1<>P1THENPOKEB1,32
|
||||
540 NEXTX
|
||||
550 DS=S2:IFS2>10THENDS=S2-10:POKES(2)-1,49
|
||||
560 POKES(2),DS+48:IFDS=10THENPOKES(2),48
|
||||
570 DS=S1:IFS1>10THENDS=S1-10:POKES(1)-1,49
|
||||
580 POKES(1),DS+48:IFDS=10THENPOKES(1),48
|
||||
590 IFS1>19ORS2>19THEN810
|
||||
600 GOTO230
|
||||
610 PRINT:PRINT:PRINT:PRINT"PLAYER 1 USES KEYS 1,2, AND 3
|
||||
620 PRINT"PLAYER 2 USES KEYS N,M, AND<
|
||||
630 PRINT"1,2,N, AND< ARE DIRECTION KEYS
|
||||
640 PRINT"PRESSING BOTH DIRECTION KEYS MOVES YOU FORWARD
|
||||
650 PRINT:PRINT"KEYS 2 AND M ARE FIRE CONTROL KEYS
|
||||
660 PRINT"PRESSING THEM ALONE FIRES STRAIGHT AHEAD
|
||||
670 PRINT"PRESSING THEM WITH A DIRECTION KEY SHOOTS
|
||||
680 PRINT"TO THE SIDE
|
||||
690 PRINT"THE MISSLE IS STEERABLE AFTER IT IS SHOT
|
||||
700 INPUT"INPUT A NUMBER TO START";X:GOTO160
|
||||
710 DATA248,249,250,251,252,253,254,255
|
||||
720 DATA -65,-64,-63,1,65,64,63,-1,-65,-64,-63
|
||||
730 DATA139,189,132,190,139,189,132,190,139
|
||||
740 DATA53633,53526,54618,54411,54793
|
||||
750 DATA53216,53233,53848,53702,54411,54939,54406
|
||||
760 DATA-33,-32,-31,1,33,32,31,-1,-33,-32
|
||||
770 DATA53845,53965,53956,53609,53845,53968,54006
|
||||
780 DATA53641,53359,53415,53782,54005
|
||||
790 FORX=0TO9:READBD(X):NEXT:L=64
|
||||
800 RETURN
|
||||
810 IFS1>19THENFORX=1TO32:PRINT"TANK 1 WINS!":NEXTX
|
||||
820 IFS2>19THENFORX=1TO32:PRINTTAB(15)"TANK 2 WINS!":NEXTX
|
||||
830 S1=0:S2=0
|
||||
840 RESTORE:GOTO30
|
||||
|
||||
Loading…
Reference in a new issue