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

2019/02/21 18:47:34

MixJuice GET URL : kidspod.club/mj/749

AsteroidBelt

惑星のリングの中を進め。なぜリングから出てはいけないのかは……謎。
何もしないと重力に引かれて降下。ボタンを押すと上昇。

川下りを改造した　ワンキーゲーム

?"~7E"　表示できない文字を16進数で表しています。
ALT+Jで入力できます。

SOURCE CODE

10 'AsteroidBelt
20 CLS:CLT:Y=1
30 @LP:LC31,0:?"~7E":LC31,21:?"~7E"
40 IFRND(2)=0LC31,RND(20)+1:?"*"
50 LC2,Y:?" ": Y=Y+1-BTN(30)*2:SCROLL3
60 IFSCR(2,Y)GOTO@ED
70 LC2,Y:?"~F3":WAIT8:GOTO@LP
80 @ED:?TICK()/6:END

COMMENT