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

2020/04/13 21:04:17

MixJuice GET URL : kidspod.club/mj/956

CAVE FLIGHT

ケイブ フライト:ハイスピードの横スクロールゲームです。
壁に当たらないように進んでください。スピードは徐々に速くなります。
操作はカーソルキーで上下左右に動かせます。2キー同時入力でななめ移動可能です。
1600点でゲームクリアです。クリアできるかな?

前作「deep cave」を作っている途中で試しにつくった1画面プログラムです。
これはこれで面白いと思ったので投稿します。蛇足??

  • 1
  • 2
  • 3
  • 4
  • 5
  • 1
  • 2
  • 3
  • 4
  • 5

SOURCE CODE

10 'CAVE FLIGHT
20 CLS:CLV:N=20:A=9:X=15:Y=22
30 GSB 150:IF RND(4)=0 THEN M=RND(3)-1:A=RND(22)+3
40 IF M+N<10 OR M+N>35 THEN M=-M
50 N=N+M:X=X-BTN(28)*2*(X>1)+BTN(29)*2*(X<55)
60 Y=Y-BTN(30)+BTN(31):GSB 150
70 E=POINT(X,Y)+POINT(X-1,Y)
80 DRAW X,Y:LC 0,23:IF S=1600 THEN ?" CLEAR ";:GOTO 30
85 S=S+1:? S;
90 BEEP ABS(SIN(S*20))/10+Y,9
100 IF S<1400 THEN WAIT-1400+S
110 IF E=0 THEN GOTO 30
120 WAIT 60:BEEP 200,60
130 LC 12,10:?"GAME OVER":CLK
140 IF INKEY()=10 THEN RUN ELSE CONT
150 SCROLL 3:DRAW 58,N-A,63,0
160 DRAW 58,N+A,63,47:RTN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2020/04/14 13:22:51

むちゃくちゃ面白い……! 加速減速を駆使して洞窟の細い隙間を抜けていくスリルと爽快感がたまりません。蛇足どころか、私はこちらの方が好きです。