ふと思い立って難しいスライドパズルがしたくなり、
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
関連する記事
コメント
コメントする