Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2019/02/11 20:59:39

MixJuice GET URL : kidspod.club/mj/739

フエルクダリ

Ichigojamバージョン3.0&3.1用です。

画面最下段から白丸が上がってきます。白丸を取ると100点ゲットです。しかし、白丸のまわりには黒丸が増殖します。黒丸に当たるとゲームオーバーです。

操作は左右キーです。
再ゲームはエンターキーです

Ichigojamバージョン3.0で動作速度が速くなったので作ってみました。
Ichigojam1.2.3ではスピード的に無理な感じです。

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

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

COMMENT