• IchigoJam
• BASIC
• 落ちる～
• ふうせんFU-SEN

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 SCR(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

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

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

Pagetop