その昔、「こんにちはマイコン」に掲載されていた「あらしテニスゲーム」の話題がFacebookグループで出ていました。参考リンクはこちら。
リンク先の99BASIC版を参考に、IchigoJam版を作ってみました。
カーソルキーの左右でパドルを動かして、ボールを打ち返してください。
なるべく無理な圧縮はせず、コードを簡略化してわかりやすいプログラムにしています。
難易度は低めなので、「ぬるい!」と思う方は140行の「WAIT 2」を「WAIT 1」に変えてください。
10 '*Arashi Tennis*
20 CLV:B=4
30 '@START
40 CLS
50 LOCATE 0,21:PRINT "--------------------------------";
60 LOCATE 1,22:PRINT "SCORE ";T;
70 LOCATE 1,23:PRINT "BALL ";B;" TENNIS GAME";
80 P=16:X=RND(10)+1:Y=0:D=1:E=1
90 '@PADMOVE
100 FOR I=0 TO 1
110 IF BTN(LEFT) GOSUB 380
120 IF BTN(RIGHT) GOSUB 420
130 LOCATE P,20:PRINT " ===== ";
140 WAIT 2
150 NEXT
160 '@BALLMOVE
170 U=X+D:V=Y+E
180 IF U=0 OR U=31 THEN D=-D:GOTO 160
190 IF V=-1 THEN E=1:GOTO 160
200 S=SCR(U,V)
210 IF S=#3D GOSUB 460:GOTO 160
220 LOCATE X,Y:PRINT " ";
230 LOCATE U,V:PRINT "@";
240 X=U:Y=V
250 IF S<>#2D GOTO 90
260 '@MISS
270 BEEP 30,60:WAIT 60
280 B=B-1:IF B>0 GOTO 30
290 '@GOVER
300 CLS:LOCATE 10,7:PRINT "GAME OVER!"
310 LOCATE 10,9:PRINT "SCORE ";T
320 LOCATE 10,11:PRINT "Replay?(Y/N)"
330 '@RKEY
340 A=INKEY()
350 IF A=#59 THEN RUN
360 IF A=#4E THEN END
370 GOTO 330
380 '@PADL
390 P=P-1
400 IF P<0 THEN P=0
410 RETURN
420 '@PADR
430 P=P+1
440 IF P>25 THEN P=25
450 RETURN
460 '@PADBA
470 BEEP 10
480 T=T+10
490 LOCATE 7,22:PRINT T;
500 E=-1
510 RETURN