Program post site for everyone
矢印↑↓→←で上のプレイヤー、ZXで下のプレイヤーを左右に動かしてボールを右のゴールに運んで得点を狙ってください。
パスミスするとゲームオーバーです。
上のプレイヤーで左右に移動しながら蹴るとボールが変化します。
ichigojam1.2ではVIDEO3すれば遊べます。
10 'FOOTBALL 20 X=0:Y=1:A=0:B=2:C=1:D=1:E=0:M=0:N=7:V=20:W=20:S=0 30 CLS:LC15,4:?"(#99)":?CHR$(28);"(#92)":?CHR$(28);"(#9B)" 40 @IN:K=INKEY():IFW<6W=6 50 IFV<6V=6 60 IFE%W=0ORE%V=0LCA,B:?" "; 70 IFK>0LCX,Y:?" ":LCM,N:?" "; 80 X=X+(X<14)*(K=29)-(X>0)*(K=28):Y=Y+(Y<4)*(K=31)-(Y>1)*(K=30) 90 M=M+(M<14)*(K=88)-(M>0)*(K=90) 100 IFD>0IFA+C=M+1ANDB+D=N D=-D 110 IFD<0IFA+C=X+1ANDB+D=Y D=-D:W=W+((K=28)-(K=29))*5:V=V+((K=30)-(K=31))*5 120 IFE%W=0A=A+C 130 IFE%V=0B=B+D 140 IFA>14A=0:GSB@SC:B=RND(3)+3 150 IFB>7ORB<0:PLAY"BB":LC0,4:?"";:END 160 @PR:LCX,Y:?"(#FB)" 170 LCM,N:?"(#FB)"; 180 LCA,B:?"(#EB)"; 190 E=E+1:GOTO@IN 200 @SC:IFB>2ANDB<6:S=S+1:LC0,0:?"SCORE ";S:PLAY"DD" 210 RTN
