Created
May 31, 2020 14:31
-
-
Save channel2007/72250dcfcc8d217f401090ef6352dac7 to your computer and use it in GitHub Desktop.
【Family BASIC】遊戲開發(2)-封鎖線
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
10 DIM C(17,17) | |
20 D3=0 | |
30 D7=0 | |
40 IF F=1 THEN D3=D3+1 | |
50 IF F=2 THEN D7=D7+1 | |
60 D0=2 | |
70 D1=2 | |
80 D2=1 | |
90 D4=15 | |
100 D5=15 | |
110 D6=0 | |
120 F=0 | |
130 CLS | |
140 VIEW | |
150 LOCATE 9,1 | |
160 PRINT D3 | |
170 LOCATE 18,1 | |
180 PRINT D7 | |
190 L=0 | |
200 FOR X=0 TO 17 | |
210 FOR Y=0 TO 17 | |
220 C(X,Y)=0 | |
230 IF X=0 OR X=17 OR Y=0 OR Y=17 THEN C(X,Y)=1 | |
240 NEXT | |
250 L=L+5 | |
260 LOCATE 12,10 | |
270 PRINT L | |
280 NEXT | |
290 LOCATE 12,10 | |
300 PRINT " " | |
310 P1=STICK(0) | |
320 IF P1=1 THEN D2=3 | |
330 IF P1=2 THEN D2=2 | |
340 IF P1=8 THEN D2=0 | |
350 IF P1=4 THEN D2=1 | |
360 P3=STRIG(0) | |
370 IF P3=1 AND F>0 THEN GOTO 40 | |
380 IF P3=2 THEN END | |
390 P2=STICK(1) | |
400 IF P2=1 THEN D6=3 | |
410 IF P2=2 THEN D6=2 | |
420 IF P2=8 THEN D6=0 | |
430 IF P2=4 THEN D6=1 | |
440 IF F>0 THEN GOTO 310 | |
490 PLAY "C0D1" | |
500 IF F=0 THEN GOSUB 600 | |
510 IF F=-1 THEN GOSUB 700 | |
520 IF F>0 THEN PLAY"CA1F1AB" | |
530 IF F<1 THEN F=NOT F | |
540 GOTO 310 | |
600 IF D2=0 THEN D1=D1-1 | |
610 IF D2=1 THEN D1=D1+1 | |
620 IF D2=2 THEN D0=D0-1 | |
630 IF D2=4 THEN D0=D0+1 | |
640 IF C(D0,D1)=1 THEN F=2 | |
650 IF F=2 THEN LOCATE D4+5,D5+2 | |
660 IF F=2 THEN PRINT CHR$(199) | |
670 C(D0,D1)=1 | |
680 RETURN | |
700 IF D6=0 THEN D5=D5-1 | |
710 IF D6=1 THEN D5=D5+1 | |
720 IF D6=2 THEN D4=D4-1 | |
730 IF D6=3 THEN D4=D4+1 | |
740 IF C(D4,D5)=1 THEN F=1 | |
750 IF F=1 THEN LOCATE D0+5,D1+2 | |
760 if F=1 THEN PRINT CHR$(199) | |
770 C(D4,D5)=1 | |
780 RETURN |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment