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/28 14:20:01

MixJuice GET URL : kidspod.club/mj/457

ランの達人スロット１

あなたはアメフトのランニングバック。
上下矢印で自分を動かしてディフェンスをかわしてとにかく前進あるのみ!
4回の攻撃で10ヤード進めたらファーストダウン獲得です。
4回目の攻撃で10ヤード進めなかったらゲームオーバーです。
ディフェンスにつかまったらスペースキーでプレイ再開。ただし次の攻撃がランかパスかはランダムです。
レシーバーの達人スロット2の１つ前のスロットに保存して下さい。 どちらからでもRUNできます
画面が小さいのでVIDEO3を実行するか、f10でmobileBの画面に切り替えてから実行して下さい。

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

10 'RB
20 J=0:Y=5:D=0:Z=0:S=0:N=1:E=70-RND(20)+8:CLS
30 @CA
40 IFZ=0GOTO@IN
50 IFF>RND(3)+1F=0:G=RND(3)+3:LC14,G:?"(#ED)":LC14,G+1:?"(#ED)":LC14,G+2:?"(#ED)";
56 IFE<6FORI=4TO6:LC5+E*2,I:?"(#8F)";:NEXT
60 F=F+1:WAIT5+RND(3)*2:D=D+F/2:E=E-F/2:LC7,Y:?" ";:SCROLL3
70 IFE<1:GSB@MU:CLS:S=S+6:D=0:N=1:E=70-RND(20)+8:Z=0:GOTO@IN
80 IFSCR(7,Y)=237D=D-2:E=E+2
90 IFSCR(7,Y)=237:LC0,2:?"BallDead!":?D;"YardGain!":Z=0:IFD>9:LC0,2:?"1stDN!":N=1:D=0ELSEN=N+1
100 IFN>4?"TurnOver!":PLAY"T250ERERCC":END
120 @IN:K=INKEY():IFZ=0:LC7,Y:?" ":LRUNFILE()+RND(2),125
125 IFZ=0IFK=32Z=1:J=0:Y=5:D=0:LC0,7:?"              ";:GOTO@INELSEGOTO@PR
130 IFJ<>0LC7,Y:?" ";
140 IFJ=0IFK=30:W=-3:J=1
150 IFJ=0IFK=31:W=3:J=-1
160 IFY=5IFJ<>0Y=Y+W
170 IFY<>5Y=Y+J:IFY=5J=0
180 @PR:LC7,Y:?"(#FB)";:LC0,0:?N;"Dn";D;"YD LEFT";E
190 LC0,1:?"SCORE:";S
200 GOTO@CA
210 @MU:PLAY"BR8<D16R16D8":LC0,2:?"TouchDown!":WAIT90:RTN

COMMENT