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
低いパスを取るのがむずかしく、なんとか成功させようと遊び続けてしまいました。ランニングバックのゲームもディフェンスが強い! それにしても、アメフトのゲームとは珍しいですね。ルールを知っていると、もっと楽しめそうです!
スロット2も入れたら遊べました。ありがとうございます。
IchigoJamのバージョン1.2.3で動かしてみましたが、左キーを押すとキャラクタが移動するのではなく増えていったり、x座標17より左に行けなかったりして、うまくいきませんでした。 バージョンの問題などあるのでしょうか……。