Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/09/25 22:36:12

MixJuice GET URL : kidspod.club/mj/603

スキー(BASIC 1.0.0 beta9〜)

詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。

SOURCE CODE

CLS

NEW

10 'Ski
20 CLS:CLV:GOSUB 180
30 S=0:X=15:W=5:U=50
40 IF BTN(28) AND X>0 X=X-1
50 IF BTN(29) AND X<29 X=X+1
60 LOCATE X,23:PRINT "||";
70 IF VPEEK(0,22)=0 GOTO 170
80 C=0:IF VPEEK(X,22)=128 C=1
90 IF VPEEK(X+1,22)=128 C=C+1
100 IF C=2 GOTO 140
110 SCROLL 2:LOCATE X,23
120 PRINT CHR$(244,244)
130 PRINT "SCORE ";S;" ";:END
140 S=S+1
150 IF S%U=0 AND W>1 W=W-1
160 GOSUB 180
170 WAIT W:SCROLL 2:GOTO 40
180 LOCATE RND(15)+5,0
190 PRINT CHR$(233,128,128);
200 PRINT CHR$(128,128,233)
210 LOCATE 0,0:PRINT CHR$(128)
220 RETURN

'OK

COMMENT