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

2022/09/08 22:27:54

MixJuice GET URL : kidspod.club/mj/2135

星空リムジン

横スクロールゲームです。星に当たらないようにリムジンを操作してください。リムジンは136点ごとに長くなっていきます。中途半端ですが1496点でクリアです。
操作はカーソルキーで上下左右に移動です。再ゲームはエンターキーです。

プログラム130行目の当たり判定がやりたかったので作りました。(90行目のところで、画面に表示されているキャラクタを変数A~Fに入れています。)

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

SOURCE CODE

10 'STAR LIMOUSINE
20 POKE#FD*8,#F8,#F4,#88,#FC,#C6,#BB,#AB,#38,#FF,#C3,#81,#FF,#C7,#BA,#FF,#00,#07,#1B,#11,#3F,#E3,#DE,#F5,#1C
30 GSB230
40 CLS:CLV:W=1:X=3:Y=10
50 IF S%136=0 GSB170:IF W=13 WAIT90:CLS:GOTO190
60 X=X-BTN(28)*!!X+BTN(29)*(X<29-W)
70 Y=Y-BTN(30)*!!Y+BTN(31)*(Y<22)
80 COPYZ,#8CC,W:SCROLL!(S%3)*4-1
90 Z=#900+Y*32+X:COPY#8CC,Z,W:COPYZ,#800,W
100 S=S+1:LC0,23:?S;:WAIT4
110 IF S%8 R=(R+(RND(3)-1)*RND(3))%23 ELSE R=RND(23):BEEP25+R*5-W*2,40
120 LC31,R:?CHR$(#E0);
130 IF A+B+C+D+E+F=0 GOTO50
140 FOR I=0 TO 21:COPYZ,#8CC-I%2*#CC,W:BEEP90+I%3:WAIT7:NEXT
150 LC 12,11:?"GAME OVER":CLK
160 GSB230:IF INKEY()=10 RUN ELSE COPY#E0*8,#C*8,8:CONT
170 W=W+1:FORI=0TO15:BEEP20-I:WAIT1:NEXT
180 POKE#800+W-2,#FE,#FD:POKE#800,#FF:RTN
190 I=I+1:COPY#E1*8,#E0*8-I%2*1696,8:LC14,10:?"GOAL!"
200 R=RND(736):POKE#900+R,#E1*!(I/15%20):GOTO190
230 POKE#E0*8,#08,#18,#FF,#7E,#3C,#7E,#66,#81:RTN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2022/09/13 09:15:08

世界観がメルヘンですごくかわいらしいです。リムジンが伸びていくのも、星々の間で乗客を乗せていっているような感じがして素敵ですね。ゲームも面白い! 縦方向にも横方向にも隙間を通せるかどうか、集中を張り巡らせるのが楽しいです。特に後ろ側に引っかからないよう、注意が必要ですね。