58 lines
1.3 KiB
Plaintext
58 lines
1.3 KiB
Plaintext
PROGRAM:Strike
|
|
01 CLS :Y=10:X=5:B=6:S=15:D=0:T=$82
|
|
02 COLOR 8,1:BOX 3,3,42,56:V=6
|
|
03 COLOR 9,0:CBOX 2,2,20,27
|
|
04 DA 0,2,-1,-1,1,3,232,232,233,$F5
|
|
05 DA 8,$F5,$F9,$F9
|
|
06 DA 29,2,-1,-1,1,1,45,4
|
|
07 DA 21,2,-1,-1,1,1,25,$F2
|
|
08
|
|
09
|
|
10 Q=Q+1:IF Q=5:D=1-RND(4):Q=0
|
|
11 IF KEY(0)=226 THEN X=X-1
|
|
12 IF KEY(0)=227 THEN X=X+1
|
|
13 IF KEY(0)=228 THEN Y=Y-1
|
|
14 IF KEY(0)=229 THEN Y=Y+1
|
|
15 IF KEY(0)=32&(F=0) THEN GOS 50
|
|
16 LIMIT Y,2,20:LIMIT X,2,25:O=S
|
|
17 IF F=1 THEN B=B+1
|
|
18 IF B=27 THEN F=0
|
|
19 S=S+D:LIMIT S,7,10:COL 4,0
|
|
20 IF (IN(3)<>1):NO 255,4
|
|
21 P=(P+1)%2
|
|
22 SPR 29,-1,-1:SPR 21,-1,-1
|
|
23 SPRITE 0,-1,-1:SCROLL 3
|
|
24 SPRITE 0,Y,X:'SPR 29,A,B
|
|
25 IF F=1 SPR 29,A,B
|
|
26 IF P=1:COL 2,0:? @Y,X;%225
|
|
27 IF P=0:COL 6,0:? @Y,X;%225
|
|
28 COL 5,13
|
|
29
|
|
30 FOR I=2 TO S-4:? @I,27;%T:NEXT
|
|
31 FOR I=S+10 TO 20:? @I,27;%T:NEXT
|
|
32 COLOR 0,5:IF O>S ? @S-3,27;%130
|
|
33 COLOR 0,5:IF O<S ? @S-4,27;%131
|
|
34 COL 5,0:IF O>S ? @S+10,27;%130
|
|
35 COL 5,0:IF O<S ? @S+9,27;%131
|
|
36 COL 6:? @0,2;"Score:";L
|
|
37 ? @0,18;"Ships:";K
|
|
38 N=AR(13)+AR(14)+AR(15)+AR(16)
|
|
39 IF N>150 THEN END
|
|
40 GCH C,A,B+1
|
|
41 IF C=131 THEN F=0
|
|
42 IF C=130 THEN F=0
|
|
43 H=RND(8)
|
|
44 IF H=1:COL 2,0:SPR 21,S+9,27
|
|
45 IF C=25:NO 10:? @A,B+1;%32
|
|
46
|
|
47 SYNC V:GOTO 7
|
|
48
|
|
49
|
|
50
|
|
51
|
|
52
|
|
53
|
|
54 'NO 127:F=1:B=X+2:A=Y
|
|
55
|
|
56 RET
|
|
# |