SHIROのIchigoJam日記

マイコン「IchigoJam」(イチゴジャム)の電子工作とプログラミングをメインに

落ち物パズルmobile

IchigoJam mobile環境(液晶画面)用に移植した落ち物パズルゲームです。
キーボード操作なので、mobile環境をお持ちの方はどなたでも遊べます。
なお通常のIchigoJam環境でも、画面が狭いだけでちゃんとプレイできます。

  • 起動すると画面に左右の枠が表示され、上からブロックが落ちてきます。
  • ブロックをカーソルキーの左右で移動させて、底に積んでいってください。落とす位置を決めたらカーソルキーの下を押すと、高速に降下します。スペースキーを押すと、ブロックを上下反転できます。
  • 横1列(ブロック8個)が揃うと、その列が消えてスコアが1点加算されます。2列いっぺんに消すと、2点+ボーナス2点で計4点が入ります。
  • ブロックが上まで積み上がるとゲームオーバーです。

MixJuiceでダウンロードできます。
?"MJ GET comich.net/ichigojam/fallm.txt"

※(10/12修正)バグ修正

1 'Fall m
2 CLV:CLS:FORY=0TO8:[Y]=513:Q=[Y]:GSB20:NEXT:[9]=1023
3 LC10,0:?"SCORE":LC11,1:?"0":T=50
4 G=0:A=RND(15)+1:B=(A&3)*16:C=(A&12)*4:Y=0:IF!CGSB22
5 GSB18:IFC&[0]GOTO17
6 FORK=0TOT:IFBTN(DOWN)K=T
7 IFBTN(SPACE)GSB22:GSB18
8 L=BTN(LEFT):R=BTN(RIGHT):IF!(L|R)GOTO12
9 D=(B>>L)<>L)<>1:NEXT:RTN
22 IF!BRTN
23 A=B:B=C:C=A:RTN
24 BEEP30,5:[Y]=[Y]|B:W=Y+1:[W]=[W]|C:P=1:IF[W]=1023&&W<9GSB27 ELSEW=Y
25 IF[W]=1023GSB27
26 G=1:RTN
27 BEEP:[W]=513:Q=[W]:LC0,W-1:GSB21:S=S+P:LC11,1:?S:T=T-P*2:P=P+2:IFT<0T=0
28 FORZ=WTO1STEP-1:[Z]=[Z-1]:Q=[Z]:LC0,Z-1:GSB21:NEXT:RTN