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

2018/01/21 10:57:23

MixJuice GET URL : kidspod.club/mj/451

レシーバーの達人

あなたはアメフトのレシーバー。
スペースを押すと左からパスが飛んで来ます。矢印キーで左右に動かしてキャッチして下さい。右の方でキャッチすると距離が稼げます。
4回以内に10ヤード進めなかったらゲームオーバー。10ヤード進めたらダウン獲得1回目のパスからできます。
70ヤードでタッチダウン! 6点獲得です。
でもタッチダウンはかなり難しい!
とりあえずVIDEO3に切り替えて実行する様に変更してみました。
1.2.2とichigojamWebで動作確認していますがどうでしょうか?

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

10 'WR
20 X=0:Y=0:Z=0:W=5:D=0:N=1:S=0:E=70-RND(30):VIDEO3
30 @CA
40 IFZC=C+1:LCX,7-Y:?" ";:X=X+(Y>0)*(C%R>0):Y=Y+((C-2)%Q=0)*((P>0)-(P<0)):P=P-1
50 LC0,2:IFY=-1IFX=W:BEEP:?X;"YardGain!":D=D+X:E=E-X
60 IFE<1:BEEP:LC0,3:?"TouchDown!":S=S+6:E=70-RND(20):FORI=1TO15:LCI,6:?" ";:NEXT:D=0:N=1
70 IFD>9LC0,3:?"1stDN!":N=1:D=0
80 IFZ=1ANDY=-1IFX<>WLC0,2:?"BallDead!     ":N=N+1
90 LC0,3:IFN>4IFD<11?"TurnOver!":PLAY"T250ERERCC":END
100 IFY=-1Z=0:X=0:C=1 
110 K=INKEY()
120 IFZ=0ANDK=32Z=1:P=RND(4)+4:Q=RND(3)+1:R=RND(3)+7:GSB@EL
130 IFK>0LCW,7:?" ";
140 W=W-(K=28)*(W>1)+(K=29)*(W<15)
150 @PR
160 IFZLCX,7-Y:?"@";:ELSELC0,0:?N;"Dn";D;"YD LEFT";E;" ":?"SCORE:";S;"    "
170 POKE#970+W,250
180 WAIT10:GOTO@CA
190 @EL
200 LC0,2:?"           ":LC0,3:?"          "
210 IFE<16LCE,6:?"(#92)";:IFE<15:FORI=E+1TO15:LCI,6:?" ";:NEXT
220 RTN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2018/02/10 18:29:29

低いパスを取るのがむずかしく、なんとか成功させようと遊び続けてしまいました。ランニングバックのゲームもディフェンスが強い! それにしても、アメフトのゲームとは珍しいですね。ルールを知っていると、もっと楽しめそうです!

Kidspod運営チーム
Kidspod運営チーム2018/02/10 18:29:23

スロット2も入れたら遊べました。ありがとうございます。

Kidspod運営チーム
Kidspod運営チーム2018/01/26 17:46:30

IchigoJamのバージョン1.2.3で動かしてみましたが、左キーを押すとキャラクタが移動するのではなく増えていったり、x座標17より左に行けなかったりして、うまくいきませんでした。 バージョンの問題などあるのでしょうか……。