レシーバーの達人スロット2/Kidspod;

2018/01/28 14:09:31

GOOD!1
PLAY!1
VIEW889

: palboon

レシーバーの達人スロット2

あなたはアメフトのレシーバー。
スペースを押すと左からパスが飛んで来ます。矢印キーで左右に動かしてキャッチして下さい。右の方でキャッチすると距離が稼げます。
４回以内に10ヤード進めなかったらゲームオーバー。10ヤード進めたらダウン獲得１回目のパスからできます。
約70ヤードでタッチダウン!　6点獲得です。
パス終了後スペースキーでプレイ再開。ただし次の攻撃がランかパスかはランダムです。
ランの達人スロット１の１つ後のスロットに保存して下さい。どちらからでもRUNできます
画面が小さいのでVIDEO3を実行するか、f10でmobileBの画面に切り替えてから実行して下さい。

10 'WR
20 X=0:Y=0:Z=0:W=5:D=0:N=1:S=0:E=70-RND(30):CLS
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:GSB@MU: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=0:LCW,7:?" ";:LRUNFILE()-RND(2),125
125 IFZ=0IFK=32Z=1:LC1,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 LCW,7:?"(#FA)";:'POKE#970+W,250
180 WAIT10:GOTO@CA
190 @EL:P=RND(4)+4:Q=RND(3)+1:R=RND(3)+7:X=0:Y=0:W=5
200 FORI=2TO7:LC0,I:?"               ";:NEXT
210 IFE<16LCE,6:?"(#92)";:IFE<15:FORI=E+1TO15:LCI,6:?" ";:NEXT
220 RTN
230 @MU:PLAY"BR8<D16R16D8":LC0,3:?"TouchDown!":WAIT90:RTN