【Family BASIC】遊戲開發(2)-封鎖線

Blockade.vb

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