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

2018/06/14 18:12:58

MixJuice GET URL : kidspod.club/mj/497

アステロイドベルト

自機を操縦して、小惑星帯を進め。
カーソルキーで上下左右に移動。
スペースキーで再開します。

W=20 速度調整


  • No registered tag exist.

SOURCE CODE

10 'Asteroidbelt
20 POKE#798,248,16,188,242,255,190,19,248
30 POKE#7A0,73,90,45,250,45,122,74,145
40 POKE#7A8,0,115,204,235,236,219,116,3
50 POKE#7B0,0,218,0,118,0,218,0,182
60 @ST:CLS:S=0:X=5:Y=12:C=#F3:D=-1:E=#F5:F=#F4:Z=20
70 @DO:FORI=0TORND(S/50):LC30,RND(21)+1:?CHR$(E);CHR$(E+1):NEXT
80 K=INKEY():CLK:V=X:W=Y:IF(K>27)*(K<32)D=K-28
90 X=X-(D=0)+(D=1):Y=Y-(D=2)+(D=3):IF(X<5)OR(X>25)OR(Y<1)OR(Y>21)THENX=V:Y=W
100 LCV,W:?CHR$(0):SCROLL(3):S=S+1:LC0,0:?"SCORE:";S:LCX,Y:IFSCR(X,Y)=0?CHR$(C):WAITZ:GOTO@DO:ELSELCX,Y:?CHR$(F)
110 @EL:K=INKEY():IFK!=32SCROLL(3):LC0,0:?"SCORE:";S:FORI=0TORND(S/50):LC30,RND(21)+1:?CHR$(E);CHR$(E+1):NEXT:WAITZ:GOTO@EL:ELSEGOTO@ST

COMMENT

Kidspod運営チーム
Kidspod運営チーム2018/06/15 17:16:52

自機に慣性が付いているのが面白いです! スクロール自体は遅く感じるのに、操作の難しさ、小惑星の多さで、いいバランスになってます。先をどんどん読んでいかないと、逃げ場がなくなるという緊張感!