• IchigoJam
• 基本のゲーム

10 'SKY
20 CLS
30 X=15:Y=0
40 FORI=0TO70:LCRND(32),RND(23):?"T";:NEXT
50 LCX,Y:?"H";
60 @ST:IF!BTN(DOWN)GOTO@ST
70 @LP
80 LCX,Y:?"|";
90 X=X-BTN(LEFT)+BTN(RIGHT)
100 Y=Y+1
110 IFSCR(X,Y)<>0GOTO@ED
120 LCX,Y:?"H";
130 IFY=24GOTO@GOAL
140 WAIT8
150 GOTO@LP
160 @ED:LCX,Y:?"*";
170 LC10,15:?" CRASH! ";
180 @W
190 IFBTN(UP)RUN
200 IFBTN(DOWN)CLS:END
210 GOTO@W
220 @GOAL
230 LC10,15:?" GOAL! ":?
240 GOTO@W

Pagetop