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

2019/03/07 17:09:48

MixJuice GET URL : kidspod.club/mj/767

AsteroidBelt ミニゲーム

IchigoJamSWITCH用 ミニゲーム

1キーゲームです。
ボタンでスタート
上で上昇 はなすと下降
画面から飛び出さないように * をよけて進め

SOURCE CODE

10'AsteroidBelt
20SWITCH1:FORI=1TO4:OUTI,-1:NEXT
30LC0,0,1:?"AsteroidBelt";:GSB@W
40CLS:CLT:Y=1:X=2
50@LP:IFRND(2)=0LC15,RND(7)+1:?"*"
60LCX,Y:?" ": Y=Y+1-!IN(7)*2
70IFY<0GOTO@ED
80IFY>6GOTO@ED
90SCROLL3
100IFSCR(X,Y)GOTO@ED
110LCX,Y:?"~F3";:WAIT8:GOTO@LP
120@ED:LC0,0,1:?TICK()/6:GSB@W:F=FILE():LRUN0
130@W:IF!BTN()CONT:ELSEBEEP2
140IFBTN()CONT:ELSEBEEP5:RTN

COMMENT