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 20:58:50

MixJuice GET URL : kidspod.club/mj/577

落ちる~(BASIC 0.9.9〜)

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

SOURCE CODE

CLS

NEW

5 'Fall aka OCHIRUuuu
10 CLS:LET X,14:LET S,0:LET Y,0
20 GOSUB 160
30 LET Y,Y+1:IF Y<>23 GOTO 20
40 IF VPEEK(X,1)<>0 GOTO 120
50 GOSUB 160
60 LOCATE RND(11)+9,23:? "+"
70 LOCATE X,0:? CHR$(250);
75 WAIT 5
80 LET I,INKEY()
90 IF I==28 LET X,X-1
100 IF I==29 LET X,X+1
110 LET S,S+1:GOTO 40
120 LOCATE 0,23:?
130 LOCATE X,0:? CHR$(244);
140 LOCATE 0,22:? "SCORE:";S;" ";
150 END
160 LOCATE 8,Y:? CHR$(1);
170 LOCATE 20,Y:? CHR$(1);
180 RETURN

'OK

COMMENT

Kidspod運営チーム
Kidspod運営チーム2018/11/22 08:58:23

川下りゲームのバリーエーション……に留まらず、演出が豪華になっているのがいいですね。それに加えて、川下りゲームにあった裏ワザを明確に禁止しているのもナイスです!