"Zx Assault" (Assault Craft)
/Basic Game/
Keys: Q-Z-0
Contributor : XavSnap.
Code: Select all
10 LET P = 0
20 LET SC = 0
30 LET T = 3
40 POKE 16418,0
50 FOR A = 0 TO 19 STEP 3
60 FOR B = 18 TO 0 STEP -2
70 PRINT AT A,B;"¸«"; AT A + 2, B;"®«"
80 NEXT B
90 PRINT AT A,26; " * "; TAB 26; " * "
100 NEXT A
110 FOR A = 1 TO (T-1) * 2 STEP 2
120 PRINT AT A, 28;"’‘"
130 NEXT A
140 PRINT AT 23,6;"phase‰0";AT 23,16;"score‰";SC
150 LET U = 1
160 LET X = 0
170 LET S = 10
180 LET N = -2
190 LET N = N + 2
200 FOR A = 1 TO 8
210 LET B = INT (RND * 7) * 3+1
220 FOR C = N TO 24 STEP 2
230 PRINT AT B,C;"’‘"
240 IF X<>0 THEN GOTO 510
250 IF INKEY$="0" THEN GOTO 490
260 PRINT AT S,22;" "
270 LET S = S + ((INKEY$ = "Z") *3) - ((INKEY$="Q") *3)
280 LET S = S + ((S = - 2) *3) - ((S=22) *3)
290 PRINT AT B,C;" ";AT S,22;"Ž‘"
300 NEXT C
310 PRINT AT U,28;" "
320 LET U = U + 2
330 LET T = T - 1
340 IF T = 0 THEN GOTO 700
350 NEXT A
360 FOR A = 0 TO 21
378 PRINT AT A,N;" "
380 NEXT A
385 PRINT AT 23, 12; N/2
390 IF N<>12 THEN GOTO 190
395 POKE 16418,2
400 CLS
410 PRINT AT 10, 0;"«well«done•attack«wave«defeated«"
420 PRINT "YOU GET A BONUS SHIP"
430 PRINT,,"HIT A KEY TO CONTINUE"
440 IF INKEY$ ="" THEN GOTO 440
450 CLS
460 LET T = T+ 1
470 POKE 16418,0
480 GOTO 40
490 LET X = 22
500 LET S1 = S
510 PRINT AT S1,X;" "
520 LET X = X - 2
530 IF X = N THEN GOTO 680
540 IF (X = C OR X + 2 = C) AND S1 = B THEN GOTO 570
550 PRINT AT S1,X;"-"
560 GOTO 260
570 LET X = 0
580 PRINT AT S1,C;" "
590 LET SC = SC +(N/2) * 10 + (20 - C)
600 PRINT AT 23, 22; SC
610 IF SC > 1000 AND P=0 THEN GOTO 640
630 GOTO 350
640 POKE 16418,2
645 CLS
650 PRINT AT 10, 0;"well«done•«your«score«was««˜———"
668 LET P = 1
670 GOTO 420
680 LET X = 0
690 GOTO 260
700 PRINT AT 10, 5; "ANOTHER GO?"
710 POKE 16418,2
720 IF INKEY$= "Y" THEN GOTO 750
730 IF INKEY$= "N" THEN STOP
740 GOTO 720
750 CLS
760 RUN