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

2022/01/01 22:07:22

MixJuice GET URL : kidspod.club/mj/2111

ワインディングロード

曲がりくねった道を走るレースゲームです。
持ち時間(Time)内にチェックポイントまでの距離(Dst)を走り切ってください。チェックポイントに到達すると持ち時間が加算されます。順位(Rank)は8位から始まります。Spdはスピードです。
ステージ5を走りきるとゴールです。ライバル車をどんどん追い抜いて、トップでゴールを目指しましょう。

●操作方法
左右キーがハンドル、スペースキーがアクセル、Xキーがブレーキです。
曲がる角度は、アクセルを踏みながら⇒アクセルもブレーキも使わない⇒ブレーキをかけながら、の順に強くなります。これを使ってカーブを曲がりきりましょう。(本当の運転は違いますよ。)
コースアウトやライバル車に接触するとスピードダウンします。
アクセルを押したままブレーキをかけることはできません。再ゲームはエンターキーです。

IchigoJam 1.4用です。

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

SOURCE CODE

5 'WR
10 CLV:X=31:V=59:U=8:C=40
20 IF D<1 GOTO180
30 IF C<0 GOTO210
40 CLS:?:?"Time:";C,"Dst:";D,"Spd:";S/5;:LC16,23:?"Stage:";T,"Rank:";U;
50 POKE#B6D,#86,#85,#8A,#89:DRAW26,37,33,37
60 A=2:B=(B+!!S)%3:H=0
70 FORI=0TO7:A=A+I:G=[7-I]+X:IF V/10=I GSB230:H=I
80 DRAWG-A-B,11+A+B:DRAWG+A+B,11+A+B:NEXT
90 BEEP(350-S/3)*!E+5,90:U=U-(H=7)*(Y=6)+(H=6)*(Y=7)
100 IF H=6 AND ABS(G-30)<7 BEEP20:SCROLL0:S=S-S/9
110 Y=H:F=BTN(32):E=BTN(88)*!F:X=X-(BTN(29)-BTN(28))*(E*4+9-F*4)
120 S=S+F*12-S/120-E*25
130 IF G<1 OR G>59 BEEP60,30:SCROLL0:S=S-S/16
140 S=S*(S>0):C=C-1:D=D-S/100
150 V=V+S/100+(U-15)/2:Q=V>-8:V=V*(V<100)*Q+100*!Q:IF !S GOTO20
160 M=M*(ABS(M)<5)+(RND(3)-1)*(!B OR S>700)
170 FORW=0TOS/250:COPY#800,#802,14:[7]=[6]+M:NEXT:GOTO20
180 BEEP2,90:T=T+1:C=C+175:D=700+T*100
190 IF T<6 CLS:LC13,10:?"Stage",T:WAIT35:GOTO20
200 LC13,7:?"GOAL!"
210 WAIT150:LC11,10:?"GAME OVER";:CLK
220 IF INKEY()=10 RUN ELSE CONT
230 J=14+A:K=G-A/6:L=G+A/6:DRAWK,J,K,J-I/4:DRAWL,J,L,J-I/4
240 DRAWK,J-I/5,L,J-I/5:DRAWG-A/8,J-I/2,G+A/8,J-I/2:RTN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2022/01/07 11:25:15

ムズい! 速い! 面白い! ビジュアルもカッコいいですし、ライバル車とのデッドヒートも熱い。これは燃えますね……! スピードを上げながら上手く曲がれたときのスリルも素晴らしいです。