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

2019/12/27 20:59:31

MixJuice GET URL : kidspod.club/mj/935

ビットアップ

IchigoJamの全VIDEO番号を使用した、ドットを避けて進むゲームです。
VIDEO番号1~8が一定周期ごとに切り替わります。
左上の数字はスコアではなくVIDEO番号です。スコアは最後に表示されます。ゲームスピードはだんだん速くなっていきます。
IchigoJam 1.2.3以降で動作することを確認していますが、大きい文字サイズのときでも画面がぶれない1.4.1をおすすめします。
操作は左右キーです。再ゲームはエンターキーです。
ネタ(最小サイズのゲーム?)的に作りましたが、案外遊べるものになりました。

  • 1
  • 2
  • 3
  • 4
  • 5
  • 1
  • 2
  • 3
  • 4
  • 5

SOURCE CODE

10 'BIT UP
20 CLV:A=247*8:V=999:X=3
30 LET [0],1,2,4,8,16,32,64,128
40 CLP:COPY A+1,A,8*3
50 V=V-1:W=V%8+1:VIDEO W
60 CLS:? CHR$(1,247,1,10,1,248,1,10,1,249,1);:LC 3,0:? W
70 COPY A+24,A+23,-24
80 POKE A,[RND(25)]
90 X=X-BTN(29)*!!X+BTN(28)*(X<7)
100 P=PEEK(A+20):POKE A+20,P|[X]
110 S=S+1:BEEP S%(5+W)+50*(S%2)+W,9
120 IF S%50=0 THEN GOTO 50
130 WAIT S/2-1500
140 IF P<>[X] THEN GOTO 70
150 WAIT60:CLK:LC 0,3:? S
160 IF INKEY()=10 RUN ELSE CONT

COMMENT