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

2018/12/17 18:33:30

MixJuice GET URL : kidspod.club/mj/712

スキー

BASICゲームの基本形 上から下に障害を避けておりてきます。

↓でスタート ←H→ 移動

↑で再スタート ↓で終了します。

  • 1
  • 1

SOURCE CODE

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

COMMENT