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

2019/06/20 23:06:10

MixJuice GET URL : kidspod.club/mj/867

スペース・トリップ

上、右ななめ、左ななめから迫り来る障害物をさけてください。
操作は上下左右キーです。再ゲームがエンターキーです。

「DANMAKU2!」(kidspod.club/mj/647)で使った、3画面連続切替表示(?)の方法を使ったゲームを、1画面プログラムに仕上げてみました。ゲーム画面では多くのキャラクターを動かしているように見えますが、この方法を使うとスピードを落とさずに動かすことができます。

IchigoJam1.2.3以降で動作確認していますが、動作速度の速い1.3.0以降で実行したときの効果音が気に入っているので、1.3.0または1.3.1をおすすめします。
ちなみに行番号30の L=3 を L=1 に変えると爆速になります。

実際の画面は、スクリーンショットより派手なのでプレイしてみてください。

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

10 'SPACE TRIP
20 VIDEO 1:CLS:VIDEO 3
30 CLV:X=7:Y=8:C=#2E:L=3
40 LET [0],#9C0,#A80,#B40,C,#ED,#F1,#E9,#EF,#E8,#E7
50 FOR J=0 TO L*3-1:BEEP !B*J*S
60 COPY #900,[J%3],192:LC0,0:?S
70 A=X+Y*16:POKE #900+A,#F0+B*4
80 B=PEEK([0]+A)>C OR PEEK([1]+A)>C OR PEEK([2]+A)>C
90 K=INKEY():CLK
100 IF B IF K=10 RUN ELSE LC 3,5:?"GAME OVER":K=0:J=J%3
110 X=X-(K=28)*!!X+(K=29)*(X<15):Y=Y-(K=30)*!!Y+(K=31)*(Y<10)
120 NEXT
130 COPY [1]-1,[1]-17,-192
140 IF S%2 COPY [2]-1,[2]-18,-192:COPY #BFE,#BEF,-192
150 POKE [0]+RND(15),[3+RND(7)*!RND(5)]
160 S=S+1:GOTO 50

COMMENT

Kidspod運営チーム
Kidspod運営チーム2019/07/04 16:45:32

背景がすごい! 演出はさすがの一言です。まさしく宇宙というにふさわしいです。音も実にSFチックでいいですね。