はやぶさ2が、地球(画面右上)の引力を使って惑星、「Ryugu」(画面左下)に着陸するゲームです。
ここぞ、と思うところでスペースキーを押してタイミングを合わせます。
成功したら着陸、失敗したら宇宙人が表示されます。

プログラム ver.IchigoJamBASIC1.1.1 ※赤文字は、恒例のかな入力・隠し文字入力です。


スロット0

1 CLS:CLV:A=0
2 LC9,9:?"____"
3 LC8,10:?"/    `"
4 LC7,11:?"'      "
5 LC6,12:?"        "
6 LC6,13:?"!        |"
7 LC6,14:?"|        ;"
8 LC6,15:?"        ,"
9 LC7,16:?"¥      ,"
10 LC8,17:?".._ ."
11 LC20,3:?"8"
20 IFA=0LC19,0:?" ":LC20,0:?""
30 IFA=1LC20,0:?" ":LC21,0:?""
40 IFA=2LC21,0:?" ":LC22,1:?""
50 IFA=3LC22,1:?" ":LC23,2:?""
60 IFA=4LC23,2:?" ":LC23,3:?""
70 IFA=5LC23,3:?" ":LC23,4:?""
80 IFA=6LC23,4:?" ":LC22,5:?""
90 IFA=7LC22,5:?" ":LC21,6:?""
100 IFA=8LC21,6:?" ":LC20,6:?""
110 IFA=9LC20,6:?" ":LC19,6:?""
120 IFA=10LC19,6:?" ":LC18,5:?""
130 IFA=11LC18,5:?" ":LC17,4:?""
140 IFA=12LC17,4:?" ":LC17,3:?""
150 IFA=13LC17,3:?" ":LC17,2:?""
160 IFA=14LC17,2:?" ":LC18,1:?""
170 IFA=15LC18,1:?" ":LC19,0:?""
171 IFINKEY()=32LRUN1
180 BEEP:A=A+1:IFA<16GOTO20:ELSEA=0:GOTO20


スロット1

1 IFA=0X=20:Y=0
2 IFA=1X=21:Y=0
3 IFA=2X=22:Y=1
4 IFA=3X=23:Y=2
5 IFA=4X=23:Y=3
6 IFA=5X=23:Y=4
7 IFA=6X=22:Y=5
8 IFA=7X=21:Y=6
9 IFA=8X=20:Y=6
10 IFA=9X=19:Y=6
11 IFA=10X=18:Y=5
12 IFA=11X=17:Y=4
13 IFA=12X=17:Y=3
14 IFA=13X=17:Y=2
15 IFA=14X=18:Y=1
16 IFA=15X=19:Y=0
100 LCX,Y:?”
110 X=X+(A=0)+(A=1)+(A=2)+(A=3)+(A=4)+(A=5)-(A=7)-(A=8)-(A=9)-(A=10)-(A=11)
120 Y=Y+(A=1)+(A=2)+(A=3)+(A=4)+(A=5)+(A=6)+(A=7)-(A=9)-(A=10)-(A=11)-(A=12)-(A=13)-(A=14)-(A=15)
130 IF (X>0)*(X<30)*(Y>0)*(Y<20)*(SCR(X,Y)=0)+(SCR(X,Y)=32) BEEP6:GOTO 100
140 IF A=7 LC8,13:?”セイコウ!”:ELSE LCX,Y:?”d”:LC8,13:?”シッパイ
150 WAIT 180:LRUN1


ふと思い立って難しいスライドパズルがしたくなり、
10x10で作ってみました。
上の動画は、自動でランダムに混ぜている状態です。
500回混ぜていますが、難しい人は100回、簡単すぎる人は1000回にしてもいいです。
僕は500回で混ぜて、完成するのに10分ほどかかります。
混ぜるのが止まったら、右の完成図を見ながらカーソルキーで文字や数字を動かします。
皆さんも挑戦してみてください。

プログラム ※赤文字はア〜ユまで2行ずつかな文字で入れてください。

10 CLS:CLV:X=9:Y=9
20 LC0,0:?"0123456789"
21 LC15,0:?"0123456789"
30 LC0,1:?"ABCDEFGHIJ"
31 LC15,1:?"ABCDEFGHIJ"
40 LC0,2:?"KLMNOPQRST"
41 LC15,2:?"KLMNOPQRST"
50 LC0,3:?"UVWXYZabcd"
51 LC15,3:?"UVWXYZabcd"
60 LC0,4:?"efghijklmn"
61 LC15,4:?"efghijklmn"
70 LC0,5:?"opqrstuvwx"
71 LC15,5:?"opqrstuvwx"
80 LC0,6:?"yzアイウエオカキク
81 LC15,6:?"yzアイウエオカキク
90 LC0,7:?”ケコサシスセソタチツ
91 LC15,7:?”ケコサシスセソタチツ
100 LC0,8:?”テトナニヌネノハヒフ
101 LC15,8:?”テトナニヌネノハヒフ
110 LC0,9:?”ヘホマミムメモヤユ
111 LC15,9:?”ヘホマミムメモヤユ
112 A=0
113 B=RND(4)
114 IF (B=0)*(X>0) X=X-1:S=SCR(X,Y):LCX+1,Y:?CHR$(S)
115 IF (B=1)*(X<9) X=X+1:S=SCR(X,Y):LCX-1,Y:?CHR$(S)
116 IF (B=2)*(Y>0) Y=Y-1:S=SCR(X,Y):LCX,Y+1:?CHR$(S)
117 IF (B=3)*(Y<9) Y=Y+1:S=SCR(X,Y):LCX,Y-1:?CHR$(S)
118 A=A+1:LCX,Y:?" ":IF A<500 GOTO 113
120 LCX,Y:?" "
130 K=INKEY():IF K=0 GOTO130
140 X=X-((K=29)*(X>0))+((K=28)*(X<9)):Y=Y-((K=31)*(Y>0))+((K=30)*(Y<9)):S=SCR(X,Y):LCX+((K=29)*(X>-1))-((K=28)*(X<10)),Y+((K=31)*(Y>-1))-((K=30)*(Y<10)):IFS!=32?CHR$(S)
145 LCX,Y:?" "
150 GOTO 130


たまに飛んでくるUFOを上キーでジャンプしてよけ、
下に家があったらスペースキーでプレゼントを落としましょう。

ジャンプは、放物線を使ってリアルに表現しています。
プレゼントが、屋根に落ちたら1ポイント入ります。
プレゼントを何もないところに落とす、または横からUFOに当たるとゲームオーバーになります。
上からつぶすのはセーフです。

サンタは、POKEを5文字分使って作っています。


赤小文字はAlt + アルファベット、数字
赤大文字はAlt + Shift + アルファベット
で入力してください。
隠し文字の分からないところは写真を参考にしてください。

プログラム

1 POKE #700,#C0,#60,#70,#F8,#70,#70,#E6,#F8:POKE #708,#70,#70,#FE,#48,#49,#4A,#FC,#00:POKE #710,#82,#24,#0E,#3F,#64,#A4,#24,#00:POKE #718,#00,#00,#00,#00,#00,#0E,#1F,#3F
2 POKE #720,#3F,#7F,#7E,#3E,#1C,#00,#00,#00
10 CLS:CLV:X=31:Y=11:V=-4:R=0:N=8:L=0:M=0:U=0
30 WAIT 5:IF R=1 LCN,B:?" "
35 SCROLL3:LCX-1,22:?"H"
40 LC7,Y-1:?" 30":LC7,Y:?" 412":LC0,0:?" P:";U:IF R=1 LCN,B:?" ":B=B+1:LCN,B:?"m"
41 IF (SCR(N,B+1)=157)+(SCR(N+1,B+1)=157)+(SCR(N,B+1)=72)+(SCR(N+1,B+1)=72)+(SCR(N+1,B+1)=95) U=U+1:R=0
45 IF B>20 LC0,5:END
50 K=INKEY():IF K=30 LC8,Y-1:?"  ":LC8,Y:?"   ":L=1
60 IF K=32 R=1
65 IF R=0 B=Y
67 IF (SCR(11,Y)=241)+(SCR(10,Y+1)=241)+(SCR(9,Y+1)=241)+(SCR(8,Y+1)=241) END
70 M=M+1:IF M=20 M=0:LCX-3,15:?"_":LCX-4,16:?"T SH":LCX-5,17:?"T   S":LCX-6,18:?"T     S":LCX-5,19:?"I   I":LCX-5,20:?"I   I":LCX-5,21:?"I   I":LCX-5,22:?"MHHHM"
75 IF RND(15)=0 LCX-1,11:?"h"
90 IF L=1 LC8,Y-1:?"  ":LC8,Y:?"   ":Y=Y+V:V=V+1:IF V=5 V=-4:L=0
200 GOTO 30
 



PCNこどもプロコン2015夏に応募し、何の賞にも入らなかったプログラムです。
上から次々と岩が落ちてくるので、それに乗り移って地上を目指します。
スペースキー(ジャンプ)と左右キー(横移動)で操作します。
左上に表示されているのは、地上までの距離です。
0m地点がゴールになります。
最初は岩の幅が3マス分ありますが、途中から2マス分になるので、気をつけて下さい。

バージョン IchigoJamBASIC1.1b9
プログラム




前回のパンケーキキャッチを改善しました。
改善点は
・落ちる速度が変わる
・たまにゆらゆらになる
・スコア表示桁数が3つ
・落ちてくるパンケーキの数が2つ
です。

プログラムも、バイナリコマンドを使ってスロット2つに収めました。

プログラム

スロット0
10 CLV:?"PC SPRITE START 05":A=RND(70):B=RND(70):D=RND(35)*-1:E=RND(35)*-1:X=34:N=0:P=166:Q=P:W=P:V=0
20 ?"PC SPRITE CREATE 0";N;" 7E":N=N+1:GSB 2000:IF N<=2 GOTO 20
35 ?"PC SPRITE CREATE 03 08"
60 ?"PC SPRITE CREATE 02 ";:M=Q:GSB1000:?
65 ?"PC SPRITE CREATE 04 ";:M=P:GSB1000:?
66 ?"PC SPRITE CREATE 09 ";:M=W:GSB1000:?
70 LRUN1                   <----次のプログラムをスロット1に保存した場合
980 IFN<10?N;:RTN
990 ?CHR$(N+55);:RTN
1000 N=M>>4:GSB980:N=M&15:GSB980:RTN
2000 H=RND(3):IF RND(2)=0 V=-1:RTN:ELSE RTN

スロット1
40 ?"PC SPRITE MOVE 00 ";:M=A:GSB1000:?" ";:M=D:GSB1000:?
50 ?"PC SPRITE MOVE 01 ";:M=B:GSB1000:?" ";:M=E:GSB1000:?
60 ?"PC SPRITE CREATE 02 ";HEX$(Q)
65 ?"PC SPRITE CREATE 04 ";HEX$(P)
66 ?"PC SPRITE CREATE 09 ";HEX$(W)
67 ?CHR$(#80,#6,#8,4,#10,#0)
68 ?CHR$(#80,#6,#8,2,#8,#0)
70 ?"PC SPRITE MOVE 03 ";:M=X:GSB1000:?" 23"
80 D=D+1+H:E=E+1+H:A=A+V*3:B=B+V*3:V=V*-1
90 IFD>44D=RND(35)*-1:A=RND(70):GSB2000
100 IFE>44E=RND(35)*-1:B=RND(70)
120 IF(D>25)*(A>X-7)*(A<X+7)?"PC SPRITE MOVE ";:M=D:N=A:GSB1100:D=M:A=N:GSB1000:?" ";:M=A:GSB1000:?:GSB2000:?"PC MUSIC SCORE 00 01 30 G>C":P=P+1:IFP=176P=166:Q=Q+1:IFQ=176Q=166:W=W+1
130 IF(E>25)*(B>X-7)*(B<X+7)?"PC SPRITE MOVE ";:M=E:N=B:GSB1100:E=M:B=N:GSB1000:?" ";:M=B:GSB1000:?:GSB2000:?"PC MUSIC SCORE 00 01 30 G>C":P=P+1:IFP=176P=166:Q=Q+1:IFQ=176Q=166:W=W+1
150 K=INKEY()
160 X=X-((K=28)*3)+((K=29)*3)
970 GOTO40
980 IFN<10?N;:RTN
990 ?CHR$(N+55);:RTN
1000 N=M>>4:GSB980:N=M&15:GSB980:RTN
1100 M=RND(35)*-1:N=RND(70):RTN


IchigoJam,PanCakeを使ったプログラムです。
3つの音が壁に当たると、その音が出ます。
面白いリズムを楽しんで下さい。



バージョン:IchigoJam1.0.0b14

スロットを2つ使っています。
間違えないようにして下さい。

プログラム

スロット1

10 CLV:?"PANCAKE SPRITE START 01":A=RND(7)+82:B=RND(7)+82:C=RND(7)+82:D=RND(4):E=RND(4):F=RND(4):Z=0
20 IF A>86 A=A-7
30 IF B>86 B=B-7
40 IF C>86 C=C-7
50 ? "PANCAKE SPRITE CREATE 00 ";A:? "PANCAKE SPRITE CREATE 01 ";B:? "PANCAKE SPRITE CREATE 02 ";C
60 ? "PANCAKE SPRITE MOVE 00 ";:M=RND(60):G=M:GOSUB 1000:?" ";:M=RND(35):H=M:GOSUB 1000:?
70 ? "PANCAKE SPRITE MOVE 01 ";:M=RND(60):I=M:GOSUB 1000:?" ";:M=RND(35):J=M:GOSUB 1000:?
80 ? "PANCAKE SPRITE MOVE 02 ";:M=RND(60):K=M:GOSUB 1000:?" ";:M=RND(35):L=M:GOSUB 1000:?
120 LRUN 2 ←←←←←ここスロットによって変えてください。←←←←←
980 IF N<10 ?N;:RETURN
990 ?CHR$(N+55);:RETURN
1000 N=M>>4:GOSUB 980:N=M&15:GOSUB 980:RETURN


スロット2

60 ? "PANCAKE SPRITE MOVE 00 ";:M=G:GOSUB 1000:?" ";:M=H:GOSUB 1000:?
70 ? "PANCAKE SPRITE MOVE 01 ";:M=I:GOSUB 1000:?" ";:M=J:GOSUB 1000:?
80 ? "PANCAKE SPRITE MOVE 02 ";:M=K:GOSUB 1000:?" ";:M=L:GOSUB 1000:?
90 M=G:O=H:N=D:Q=A:GOSUB 500:G=M:H=O:D=N
100 M=I:O=J:N=E:Q=B:GOSUB 500:I=M:J=O:E=N
110 M=K:O=L:N=F:Q=C:GOSUB 500:K=M:L=O:F=N
120 GOTO 60
500 IF N=0 M=M-3:O=O-3:IF M<1 N=1:?"PANCAKE MUSIC SCORE 00 01 10 ";CHR$(Q-15):ELSE IF O<1 N=3:GOSUB 1100
510 IF N=1 M=M+3:O=O-3:IF M>69 N=0:?"PANCAKE MUSIC SCORE 00 01 10 ";CHR$(Q-15):ELSE IF O<1 N=2:GOSUB 1100
520 IF N=2 M=M+3:O=O+3:IF M>69 N=3:?"PANCAKE MUSIC SCORE 00 01 10 ";CHR$(Q-15):ELSE IF O>34 N=1:GOSUB 1100
530 IF N=3 M=M-3:O=O+3:IF M<1 N=2:?"PANCAKE MUSIC SCORE 00 01 10 ";CHR$(Q-15):ELSE IF O>34 N=0:GOSUB 1100
540 RETURN
970 END
980 IF N<10 ?N;:RETURN
990 ?CHR$(N+55);:RETURN
1000 N=M>>4:GOSUB 980:N=M&15:GOSUB 980:RETURN
1100 ?"PANCAKE MUSIC SCORE 00 01 10 ";CHR$(Q-15):RETURN


IchigoJam,PanCakeを使ったプログラムです。
上からどんどん落ちてくるパンケーキをキャッチするゲームです。



カウンターは99ポイントを越えるとバグります。
ご了承下さい。

バージョン:IchigoJam1.0.0b14

プログラム

10 CLV:?"PANCAKE SPRITE START 05":A=RND(70):D=RND(35)*-1:X=34:N=0:P=166:Q=166
20 ?"PANCAKE SPRITE CREATE 0";N;" 7E":N=N+1:IFN!=1GOTO20
35 ?"PANCAKE SPRITE CREATE 03 08"
40 ?"PANCAKE SPRITE MOVE 00 ";:M=A:GOSUB1000:?" ";:M=D:GOSUB1000:?
60 ?"PANCAKE SPRITE CREATE 02 ";:M=Q:GOSUB1000:?
65 ?"PANCAKE SPRITE CREATE 04 ";:M=P:GOSUB1000:?
66 ?"PANCAKE SPRITE MOVE 04 08 00"
67 ?"PANCAKE SPRITE MOVE 02 00 00"
70 ?"PANCAKE SPRITE MOVE 03 ";:M=X:GOSUB1000:?" 23"
80 D=D+1:E=E+1
90 IFD=45D=RND(35)*-1:A=RND(70)
120 IF(D=26)*((A>X-7)*(A<X+7))?"PANCAKE SPRITE MOVE ";:M=D:N=A:GOSUB1100:D=M:A=N:M=D:GOSUB1000:?" ";:M=A:GOSUB1000:?:?"PANCAKE MUSIC SCORE 00 01 30 G>C":P=P+1:IF P=176 P=166:Q=Q+1
150 K=INKEY()
160 X=X-((K=28)*3)+((K=29)*(3))
970 GOTO 40
980 IFN<10?N;:RETURN
990 ?CHR$(N+55);:RETURN
1000 N=M>>4:GOSUB980:N=M&15:GOSUB980:RETURN
1100 M=RND(35)*-1:N=RND(70):RETURN


2人で相撲対決をするゲームです。
クラゲはZキーとCキー、人は←キーと→キーで操作します。
カウントダウンが終了したら操作できるようになります。



カウントダウン:左上
操作方法:下

先に土俵の外に出た方が負けです。
ぶつかると相手が少し退きます。
しかし、ぶつかる速度が速すぎるとよけられてしまうので、コツが必要です。

プログラムはスロットを2つ使っており、1つ目が3番、2つ目が1番になっています。
都合が悪ければ変えてください。





バーション:IchigoJam BASIC 1.0.2b2


自分の位置に表示される数字から方向を読み取り(※解読表は説明の最後にあります)、その方向に移動して発掘場所でスペースキーを押して化石を発掘します。移動はカーソルキー、発掘はスペースキーを使います。
出てきたものによってポイントが変わります。


(左から)
恐竜の足跡(自作):+1ポイント
アンモナイト:0ポイント
発掘失敗(爆発マーク):−1ポイント

合計ポイント数が0ポイントになるか、タイム(10秒)が0になると終わりです。



プログラムの写真は3枚あるので、ちゃんとつなげて書いてください。





解読表
1:左下方向に反応あり
2:下方向に〃
3:右下方向に〃
4:左方向に〃
5:化石レーダーの反応あり。(スペースキーで発掘してください。)
6:右方向に反応あり
7:左上方向に〃
8:上方向に〃
9:右上方向に〃

バージョン1.0.2b2


子ネコを猫じゃらしで家まで誘導するゲームです。

ゲームオーバーになる行為は、
・自分(猫じゃらし)が家に当たる
・自分がマンホールに落ちる
・子ネコがマンホールに落ちる
です。

時間制限がないので、好きなだけ子ネコと遊んでください。