スカッシュゲームを作ろう（動画教材）

IchigoJam入門動画教材その４。「スカッシュゲームを作ろう」です。
IchigoJam webでも作れるので、家のパソコンでやってみてください。

遊び方

プログラムを実行したら、カーソルキーの左右でラケットを動かして、ボールを打ち返してください。
ミスするとゲームオーバーで、画面にスコアが表示されます（上の壁に当てた回数）。

プログラム

10 CLS:CLV:P=12
20 X=P+RND(7):Y=21:D=-1:E=-1
30 @LOOP
40 U=X+D:V=Y+E
50 IF U<1 OR U>29 BEEP 20,3:D=-D:GOTO @LOOP
60 IF V<0 BEEP 20,3:E=-E:S=S+1:GOTO @LOOP
70 IF SCR(U,V)=61 BEEP 10,3:E=-E:GOTO @LOOP
80 LC X,Y:?" ":X=U:Y=V
90 LC X,Y:?CHR$(233)
100 P=P-BTN(28)*(P>0)+BTN(29)*(P<24)
110 LC P,22:?" ===== "
120 WAIT 2
130 IF V<22 GOTO @LOOP
140 BEEP 30,30:LC 15,11:?S