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:01:30

MixJuice GET URL : kidspod.club/mj/591

バルーントリップ(BASIC 0.9.9~)

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

SOURCE CODE

CLS

NEW

5 'Balloon trip
10 CLS:CLV:LET Y,11:LET L,10
20 SCROLL 1
30 IF S%L==0 LC 0,RND(23):? "+";
40 LC 31,Y:? CHR$(232);
50 LC 31,Y+1:? CHR$(237);:WAIT L
60 LET I,BTN():LET Y,Y-I+(I==0)
70 IF VPEEK(30,Y) GOTO 130
80 IF VPEEK(30,Y+1) GOTO 130
90 IF Y==0 OR Y==22 GOTO 130
100 LET S,S+1
110 IF S%25==0 AND L>1 LET L,L-1
120 GOTO 20
130 SCROLL 1
140 LC 31,Y:? CHR$(244);
150 LC 31,Y+1:? CHR$(244);
160 LC 0,23:? "SCORE ";S;" ";:END

'OK

COMMENT