箱入り娘

RUN すると右画面になります。カーソルが点滅しています。
中央上の一番大きいパーツ（娘）を
下中央の出口へ持っていきます。
出口へ移動したところでプログラム終了となります。

方向キーでカーソルを移動
SPACE キーでパーツを持つ・外す

プログラムを小さくしようと検討した結果、反転して壁を表現し、

IchigoJam BASIC 1.3 から使えるカーソルスイッチを採用、

プログラム領域に PCG と配列のデータを直接入れて、

COPY する事で、1 プログラムに収める事ができました。

反転にして壁をなくし、縦 6 文字にした事で、

画面いっぱいに表示されるメリットもできました。

一部ダイレクトモードで入れてますが、

POKE で入れている先がプログラム領域のため、

LIST で表示できませんが、SAVE・LOAD・LRUN が有効です。

2025年1月にプログラムを改良しています。
何もないところでは持つ状態にできないように、

また、パーツを持っている場合に

移動できない方向へ動かした場合に

カーソルも動かないようにしました。

中央表示も次実現し、LPC1114 の IchigoJam でも

左右にずれる事なく表示できるようになりました。

YouTube 動画は出口までの手順をおこなっています。

再生にご注意下さい。

IchigoJam BASIC 1.3～

POKE#F78,255,129,129,129,129,129,129,255
POKE#F90,255,128,128,128,128,128,128,255
POKE#F98,255,1,1,1,1,1,1,255
POKE#FA8,255,129,129,129,129,129,129,129
POKE#FB8,129,129,129,129,129,129,129,255
POKE#FC0,255,128,128,128,128,128,128,128
POKE#FC8,255,1,1,1,1,1,1,1
POKE#FD0,128,128,128,128,128,128,128,255
POKE#FD8,1,1,1,1,1,1,1,255
POKE#FE0,0,0,0,0,0,0,243,0
POKE#FE8,0,0,0,0,246,0,247,0
POKE#FF0,0,0,249,0,0,0,251,0
POKE#FF8,252,0,253,0,254,0,255,0

10 'ﾊｺｲﾘ ﾑｽﾒ
20 VIDEO 6:CLS
30 COPY #798,#F78,136
40 ?CHR$(0,0,249,252,253,249)
50 ?CHR$(0,0,251,254,255,251)
60 ?CHR$(0,0,249,246,247,249)
70 ?CHR$(0,0,251,243,243,251)
80 ?CHR$(0,0,243,1,1,243)
90 ?CHR$(0,0,0,2,2,0);
100 X=2:Y=4:M=0
110 LC X+2,Y,1
120 K=INKEY():IF !K CONT
130 IF K<>32 GOTO 160
140 IF !M AND SCR(X+2,Y)=1 GOTO 120
150 M=1-M:?CHR$(17);:GOTO 120
160 IF !M GOTO 380
170 P=SCR(X+2,Y):IF P=1 GOTO 380
180 P=P-240:Q=P%4:P=P-Q
190 A=X-Q%2:B=Y-Q/2
200 FOR S=0 TO 3
210 IF ![P+S] GOTO 230
220 LC A+S%2+2,B+S/2:?CHR$(1)
230 NEXT
240 C=A-(K=28)+(K=29)
250 D=B-(K=30)+(K=31):N=0
260 FOR S=0 TO 3
270 IF ![P+S] GOTO 290
280 IF SCR(C+S%2+2,D+S/2)<>1 N=1
290 NEXT
300 IF N=1 C=A:D=B:K=0
310 FOR S=0 TO 3
320 IF ![P+S] GOTO 350
330 LC C+S%2+2,D+S/2
340 ?CHR$([P+S])
350 NEXT
360 IF SCR(3,3)<>252 GOTO 380
370 LC 5,5:END
380 X=(X-(K=28)+(K=29)+4)%4
390 Y=(Y-(K=30)+(K=31)+5)%5
400 GOTO 110

IchigoJam web でプログラムを実行します。

このQRコードはアクセス解析のためにCookieを使用しています。

アクセス解析は匿名で収集されており、個人を特定するものではありません。

この機能はCookieを無効にすることで収集を拒否することができますので、
お使いのデバイスのブラウザの設定をご確認ください。

IchigoJam web でプログラム実行

Kidspod; でプログラム参照

GitHub でプログラム参照 (再配布向け)

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/963

MicJack ダウンロード ？”MJ SPW 30 → ?"MJ GKP 963

IchigoCake BASIC

POKE#1798,255,129,129,129,129,129,129,255
POKE#17B0,255,128,128,128,128,128,128,255
POKE#17B8,255,1,1,1,1,1,1,255
POKE#17C8,255,129,129,129,129,129,129,129
POKE#17D8,129,129,129,129,129,129,129,255
POKE#17E0,255,128,128,128,128,128,128,128
POKE#17E8,255,1,1,1,1,1,1,1
POKE#17F0,128,128,128,128,128,128,128,255
POKE#17F8,1,1,1,1,1,1,1,255
POKE#1800,0,0,0,0,0,0,243,0
POKE#1808,0,0,0,0,246,0,247,0
POKE#1810,0,0,249,0,0,0,251,0
POKE#1818,252,0,253,0,254,0,255,0

10 'ﾊｺｲﾘ ﾑｽﾒ
20 VIDEO 6:CLS
30 COPY #798,#1798,136
40 ?CHR$(0,0,249,252,253,249)
50 ?CHR$(0,0,251,254,255,251)
60 ?CHR$(0,0,249,246,247,249)
70 ?CHR$(0,0,251,243,243,251)
80 ?CHR$(0,0,243,1,1,243)
90 ?CHR$(0,0,0,2,2,0);
100 X=2:Y=4:M=0
110 LC X+2,Y,1
120 K=INKEY():IF !K CONT
130 IF K<>32 GOTO 160
140 IF !M AND SCR(X+2,Y)=1 GOTO 120
150 M=1-M:?CHR$(17);:GOTO 120
160 IF !M GOTO 380
170 P=SCR(X+2,Y):IF P=1 GOTO 380
180 P=P-240:Q=P%4:P=P-Q
190 A=X-Q%2:B=Y-Q/2
200 FOR S=0 TO 3
210 IF ![P+S] GOTO 230
220 LC A+S%2+2,B+S/2:?CHR$(1)
230 NEXT
240 C=A-(K=28)+(K=29)
250 D=B-(K=30)+(K=31):N=0
260 FOR S=0 TO 3
270 IF ![P+S] GOTO 290
280 IF SCR(C+S%2+2,D+S/2)<>1 N=1
290 NEXT
300 IF N=1 C=A:D=B:K=0
310 FOR S=0 TO 3
320 IF ![P+S] GOTO 350
330 LC C+S%2+2,D+S/2
340 ?CHR$([P+S])
350 NEXT
360 IF SCR(3,3)<>252 GOTO 380
370 LC 5,5:END
380 X=(X-(K=28)+(K=29)+4)%4
390 Y=(Y-(K=30)+(K=31)+5)%5
400 GOTO 110

Kidspod; でプログラム参照

GitHub でプログラム参照 (再配布向け)

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/964

MicJack ダウンロード ？”MJ SPW 30 → ?"MJ GKP 964