Program post site for everyone
Ichigojamバージョン1.3.0＆1.3.1用です。
画面最下段から白丸が上がってきます。白丸を取ると100点ゲットです。しかし、白丸のまわりには黒丸が増殖します。黒丸に当たるとゲームオーバーです。
操作は左右キーです。
再ゲームはエンターキーです
Ichigojamバージョン1.3.0で動作速度が速くなったので作ってみました。
Ichigojam1.2.3ではスピード的に無理な感じです。
10 'FUERU KUDARI 20 CLS:CLV:A=#E9:B=#E8:X=15 30 K=INKEY():CLK:X=(X-(K=28)+(K=29)+32)%32 40 LOCATE RND(31),23:PRINT CHR$(A) 50 LOCATE X,2:T=SCR():PRINT CHR$(#ED) 60 FOR I=0 TO (T=A)*99 70 S=S+1:LOCATE 0,0:PRINT"SCORE ";S:BEEP 100-I,1 80 NEXT 90 FOR I=0 TO 30 100 R=#9A0+RND(32*18) 110 IF PEEK(R)=0 AND PEEK(R-1)+PEEK(R+1)+PEEK(R-32)+PEEK(R+32)>0 THEN POKE R,B:IF E=0 THEN BEEP3,1 120 NEXT 130 LOCATE X,2:PRINT CHR$(T) 140 IF T<>B THEN GOTO 30 150 IF E=0 THEN WAIT 60:BEEP 250,60:E=1:LOCATE 12,10:PRINT"GAME OVER" 160 IF INKEY()=10 THEN RUN ELSE GOTO 90
