プチコンまとめWiki (初代/mkII)

パンくずリスト

• トップ
• Toukou
• 47PZL

2014年2月2日投稿 / 投稿者 : OBONO / タグ : 投稿プログラム mkII専用 パズル QRコード

概要

いわゆる15パズルと呼ばれるタイプのパズルです。

8×6の格子状に区切られた盤内に、1〜47の数字が描かれた47枚のピースがあるので、
一か所だけ開いている空きスペースを利用してピースを移動させ、
左上から右方向に1〜8、次の段は9〜16…という具合に47枚のピースを正しい位置に移動させれば完成です。

既に当サイトでも同じパズルを扱ったプログラムがいくつか投稿されていますが、(これとかこれ)
グラフィック面をそのまんま利用したものを作りたかったので。

遊び方

プログラムを開始すると、下画面にシャッフルされた状態の盤面が描画されます。
空きスペースと同じ段、もしくは同じ列のピースをタッチする事で、ピースを移動させます。
パズルが完成したら、画面のどこかをタッチする事で、またシャッフルされた状態になります。

おまけ機能

このプログラムには、標準の数字ピースの代わりに、任意の画像でパズルを楽しむ機能があります。

Lボタンを押しながらプログラムを開始すると、ファイル名を聞いてきます。
キーボードからファイル名を入力すると、そのファイル名のGRPリソースとCOLリソースを読み込みます。
ファイル読み込みに失敗した場合、再度ファイル名を聞かれるか、場合によっては問答無用でエラー終了します。
この機能を使った場合、空きスペースとして取り除かれるピースが、必ずしも右下とは限りませんのでご注意ください。

画像によっては、絵柄が全く同じピースができてしまう可能性があり、
見た目では完成したように見えても、内部的には完成と判断されない事もあります。ご了承ください。

このツールを使って画像データを自作するのも良いでしょう。

スクリーンショット・動画

標準のピース

おまけ機能を利用した例

動画

QR コード

プチコンmkII 向けのQRコードです。

プログラムリスト

+

ＬＯＡＤ”４７ＰＺＬ”

＠ＩЛ ＡＣＬＳ：ＣＬＥＡＲ：ＤＩＭ　ＦＤ（８，６）ＰＮＬＴＹＰＥ”ＯＦＦ”ＧＰＡＧＥ　１ＯＮ　ＢＵＴＴＯＮ（）＝＝２５６ＧＯＳＵＢ＠Ｐ，＠ＧЛ ＦＯＲ　Ｉ＝０ＴＯ　４７ＦＤ（Ｉ％８，Ｉ／８）＝Ｉ：ＮＥＸＴ：Ｇ＝Ｇ＄！＝””Ｐ＝７−Ｇ＊ＲＮＤ（８）Ｑ＝５−Ｇ＊ＲＮＤ（６）Ｒ＝ＦＤ（Ｐ，Ｑ）ＦＤ（Ｐ，Ｑ）＝−１Л Ｙ＝Ｑ：ＦＯＲ　Ｉ＝０ＴＯ　９９Ｘ＝ＲＮＤ（８）ＧＯＳＵＢ＠Ｓ：Ｙ＝ＲＮＤ（６）ＧＯＳＵＢ＠Ｓ：ＮＥＸＴ：ＧＯＳＵＢ＠ＤЛ ＠ＬЛ Ｘ＝ＴＣＨＸ／３２ＯＲ　０Ｙ＝ＴＣＨＹ／３２ＯＲ　０Л ＩＦ！Ｔ＊ＴＣＨＳＴ＊（Ｘ！＝Ｐ　ＸＯＲ　Ｙ！＝Ｑ）ＴＨＥＮ　ＢＥＥＰ　４９ＯＮ　Ｙ！＝Ｑ　ＧＯＳＵＢ＠Ｈ，＠Ｖ：ＧＯＳＵＢ＠Ｓ：ＧＯＳＵＢ＠ＭЛ Ｔ＝ＴＣＨＳＴ：ＶＳＹＮＣ　１ＩＦ　Ｍ＜４７ＴＨＥＮ＠ＬЛ ＦＤ（Ｐ，Ｑ）＝Ｒ：ＢＧＭＰＬＡＹ　５ＧＯＳＵＢ＠ＤЛ ＦＯＲ　Ｉ＝０ＴＯ　２Ｉ＝Ｉ−（Ｉ％２！＝ＴＣＨＳＴ）ＮＥＸＴ：ＧＯＴＯ＠ＩЛ ＠ＳЛ Ｖ＝ＳＧＮ（Ｘ−Ｐ）Ｗ＝ＳＧＮ（Ｙ−Ｑ）ＩＦ　Ｖ　ＯＲ　Ｗ　ＴＨＥＮ　ＳＷＡＰ　ＦＤ（Ｐ，Ｑ），ＦＤ（Ｐ＋Ｖ，Ｑ＋Ｗ）Ｐ＝Ｐ＋Ｖ：Ｑ＝Ｑ＋Ｗ：ＧＯＴＯ＠ＳЛ ＲＥＴＵＲＮЛ ＠ＭЛ Ｍ＝０ＦＯＲ　Ｉ＝０ＴＯ　５ＦＯＲ　Ｊ＝０ＴＯ　７Ｍ＝Ｍ＋（ＦＤ（Ｊ，Ｉ）＝＝Ｉ＊８＋Ｊ）ＮＥＸＴ：ＮＥＸＴ：ＲＥＴＵＲＮЛ ＠ＤЛ ＦＯＲ　Ｉ＝０ＴＯ　５ＦＯＲ　Ｊ＝０ＴＯ　７Ｆ＝ＦＤ（Ｊ，Ｉ）Ｔ＝Ｆ％８＊３２Ｕ＝（５６ＡＮＤ　Ｆ）＊４Л ＧＣＯＰＹ　２，Ｔ，Ｕ，Ｔ＋３１，Ｕ＋３１，Ｊ＊３２，Ｉ＊３２，１ＮＥＸＴ：ＮＥＸＴ：ＲＥＴＵＲＮЛ ＠ＨЛ Ｖ＝ＳＧＮ（Ｐ−Ｘ）Ｓ＝ＡＢＳ（Ｐ−Ｘ）＊３２Ｔ＝Ｘ＊３２−（Ｖ＜０）＊（Ｓ−３２）Ｕ＝Ｙ＊３２ＦＯＲ　Ｉ＝８ＴＯ　１ＳＴＥＰ−１Ｚ＝Ｔ：ＩＦ　Ｖ＜０ＴＨＥＮ　Ｚ＝Ｚ＋Ｓ−ＩЛ ＧＣＯＰＹ　Ｔ，Ｕ，Ｔ＋Ｓ−１，Ｕ＋３１，Ｔ＋Ｖ＊Ｉ，Ｕ，１ＧＦＩＬＬ　Ｚ，Ｕ，Ｚ＋Ｉ−１，Ｕ＋３１Ｔ＝Ｔ＋Ｖ＊Ｉ：Ｉ＝Ｉ−（Ｉ＝＝５）ＶＳＹＮＣ　１ＮＥＸＴ：ＲＥＴＵＲＮЛ ＠ＶЛ Ｗ＝ＳＧＮ（Ｑ−Ｙ）Ｓ＝ＡＢＳ（Ｑ−Ｙ）＊３２Ｔ＝Ｘ＊３２Ｕ＝Ｙ＊３２−（Ｗ＜０）＊（Ｓ−３２）ＦＯＲ　Ｉ＝８ＴＯ　１ＳＴＥＰ−１Ｚ＝Ｕ：ＩＦ　Ｗ＜０ＴＨＥＮ　Ｚ＝Ｚ＋Ｓ−ＩЛ ＧＣＯＰＹ　Ｔ，Ｕ，Ｔ＋３１，Ｕ＋Ｓ−１，Ｔ，Ｕ＋Ｗ＊Ｉ，１ＧＦＩＬＬ　Ｔ，Ｚ，Ｔ＋３１，Ｚ＋Ｉ−１Ｕ＝Ｕ＋Ｗ＊Ｉ：Ｉ＝Ｉ−（Ｉ＝＝５）ＶＳＹＮＣ　１ＮＥＸＴ：ＲＥＴＵＲＮЛ ＠ＰЛ ＧＰＡＧＥ　１，２，１ＧＣＬＳ：ＦＯＲ　Ｉ＝０ＴＯ　５Ｃ＝Ｉ＋７４ＦＯＲ　Ｊ＝０ＴＯ　７Ｆ＝Ｉ＊８＋Ｊ＋１Ｘ＝Ｊ＊３２Ｙ＝Ｉ＊３２ＧＦＩＬＬ　Ｘ，Ｙ，Ｘ＋３０，Ｙ＋３０，ＣЛ Ｃ＝Ｃ＋６＊（Ｊ＜４）＋３６＊（Ｊ＞３）ＦＯＲ　Ｋ＝０ＴＯ　Ｆ＞＝１ＧＰＵＴＣＨＲ！Ｋ＊１２＋Ｘ＋４，Ｙ＋８，”ＢＧＦ”，４８＋Ｆ％１０，０，２Ｆ＝Ｆ／１０ＮＥＸＴЛ ＮＥＸＴ：ＮＥＸＴ：ＧＰＡＧＥ　１，１，１ＲＥＴＵＲＮЛ ＠ＧЛ ？”ファイルメイ”；：ＩＮＰＵＴ　Ｇ＄ＳＹＳＢＥＥＰ＝０ＬＯＡＤ”ＣＯＬ２：”＋Ｇ＄，０ＬＯＡＤ”ＧＲＰ２：”＋Ｇ＄，０ＳＹＳＢＥＥＰ＝１ＩＦ　ＲＥＳＵＬＴ　ＴＨＥＮ　ＲＥＴＵＲＮ　ＥＬＳＥ＠ＧЛ

改良ポイント

• 時間計測、スライド回数のカウント。
• 8×6だけではなく、いろいろなピース数で遊べるようにする。
• おまけ機能を使用した際、絵柄が全く同じピースがある場合は警告するとか、区別できるようにするとか。

CHECKER FLAG (ひとことコメント)

※要望は一切受け付けません。頑張って自分で改良してみましょう。

• OBONO : 作者はケチで貧乏なので、どうしても要望があるのであれば、このWikiの住人の優しい人にでも頼みこんでくださいな。 (2014/02/02 (日) 23:27:05)
• 名無しさん : ↑はい。 (2014/02/03 (月) 19:34:29)
• 名無しさん : 47で都道府県パズルかと思った (2014/02/03 (月) 19:59:41)
• 魔神 : 画像が真っ暗です｡ (2014/04/05 (土) 19:06:47)
• ねじ : 一枚QRですぐ遊べるっていいですね。 (2014/04/06 (日) 14:54:20)

お名前: