Program post site for everyone
上、右ななめ、左ななめから迫り来る障害物をさけてください。
操作は上下左右キーです。再ゲームがエンターキーです。
「DANMAKU2!」(kidspod.club/mj/647)で使った、3画面連続切替表示（？）の方法を使ったゲームを、1画面プログラムに仕上げてみました。ゲーム画面では多くのキャラクターを動かしているように見えますが、この方法を使うとスピードを落とさずに動かすことができます。
IchigoJam1.2.3以降で動作確認していますが、動作速度の速い1.3.0以降で実行したときの効果音が気に入っているので、1.3.0または1.3.1をおすすめします。
ちなみに行番号30の L=3 を L=1 に変えると爆速になります。
実際の画面は、スクリーンショットより派手なのでプレイしてみてください。
(2020/03/05 IchigoJam 1.4で音がうまく出なくなっていたので修正しておきました)
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%256 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
