よくあるスクロールゲームで、「スキーゲーム」です。
子ども向けのプログラミング教材を想定して作りました。
簡単なプログラムですし、アイテムを追加するなど、いろいろ改造もできると思います。
- 画面下からポールが出てきます。カーソルキーでプレーヤーを左右に操作して、ポールの間を通過してください。
- ポールの間を通過すると、スコアが1点加算されます。
- スコアが上がっていくと、だんだんポールの間が狭くなります。
- 左右のポールにぶつかるとゲームオーバーです。
10 '*SKI*
20 CLS
30 CLV
40 X=15
50 Y=3
60 P=12
70 W=7
80 C=0
90 '@GAMELOOP
100 LOCATE X,Y
110 PRINT " "
120 IF BTN(LEFT) AND X>1 THEN X=X-1
130 IF BTN(RIGHT) AND X<30 THEN X=X+1
140 GOSUB 310
150 D=SCR(X,Y)
160 LOCATE X,Y
170 PRINT CHR$(7)
180 IF D=95 THEN BEEP:S=S+1
190 LOCATE 0,0
200 PRINT S
210 IF D=124 THEN GOTO 260
220 W=7-S/20
230 IF W<3 THEN W=3
240 WAIT 2
250 GOTO 90
260 '@OVER
270 LOCATE X,Y
280 PRINT "X"
290 BEEP 30,30
300 END
310 '@POLE
320 C=C+1
330 IF C<10 THEN LOCATE 0,23:PRINT:RETURN
340 P=P+RND(3)-1
350 IF P<0 THEN P=0
360 IF P+W>30 THEN P=30-W
370 LOCATE P,23
380 PRINT "|";
390 FOR I=1 TO W-2
400 PRINT "_";
410 NEXT
420 PRINT "|"
430 C=0
440 RETURN
