Program post site for everyone
IchigoJamのテニスゲームを見たことがない気がしたので作りました。
先に3点とった方が勝ちです。
スピードはだんだん速くなります。真ん中にあるのは障害物です。一定回数打つと障害物が増えます。
操作は左プレイヤーがXとスペースキー、右プレイヤーが上下キーです。
再ゲームはエンターキーです。
IchigoJam 1.4用です。
10 'TENNIS 20 CLS:CLV 30 U=([0]+[1])%2:Z=55-U*49:V=39:M=U:N=0 40 LC 5,0:? [0]:LC 26,0:? [1] 50 IF [0]=3 OR [1]=3 GOTO 160 60 LC 0,1:? CHR$(12):DRAW 3,2,60,2:DRAW 3,47,60,47 70 T=RND(35)+2:DRAW 31+U,T,31+U,T+9 80 DRAW 2,A*2,2,A*2+6,0:A=A-BTN(88)+BTN(32):DRAW 2,A*2,2,A*2+6 90 DRAW 61,B*2,61,B*2+6,0:B=B-BTN(30)+BTN(31):DRAW 61,B*2,61,B*2+6 100 DRAW Z,V,0:Z=Z+M%2*2-1:V=V+N%2*2-1:P=POINT(Z,V):DRAW Z,V 110 Q=(V-3)%43:M=M+P:N=N+!Q:BEEP P+!Q*2 120 IF M%30=0 AND P>0 GOTO 70 130 IF M<30 WAIT M*10-290 140 IF Z%63>0 GOTO 80 150 BEEP 40,30:WAIT 90:[!Z]=[!Z]+1:GOTO 30 160 LC 11,9:? "GAME OVER";:CLK 170 IF INKEY()=10 RUN ELSE CONT
