ＰＲＧ：４７ＰＺＬ
動いている様子はコチラ
セツメイＥＸＰＬＡＮＡＴＩＯＮ
いわゆる「15パズル」の類のパズルゲーム。1か所開いているスペースを利用してピースを移動させ、47枚のピースを左上から順に並べれば完成。This is a puzzle similar to "15-puzzle". Place 47 pieces in order by making sliding moves that use the empty space.
プログラムを開始するとすぐにシャッフルされた状態になる。画面をタッチしてピースを移動。パズルが完成したら、画面をタッチでする事でまたシャッフル。The pieces are shuffled when the program is started. You can slide by tapping the screen. After complete the puzzle, you can retry this by tapping.
数字盤の代わりに、任意の画像で遊ぶ事も可能。Lボタンを押しながらプログラムを開始するとファイル名を聞かれるので、キーボードからGRP/COLファイル名を入力。You can play using favorite picture instead of numbers. Start the program with pressing L button, and enter the file name of GRP/COL resources by the keyboard.
GRP/COLファイル作成には、Petitcom GRP Exporter が便利かも。Petitcom GRP Exporter may be useful to generate GRP/COL resources.
ＱＲコードＱＲ ＣＯＤＥ
プログラムコードＰＲＯＧＲＡＭ ＣＯＤＥ
表示 Show
| Ｆ | 着目しているピースの種類 |
| Ｆ（，） | 盤面情報 |
| Ｇ | ファイルを読み込んだか |
| Ｇ＄ | 読み込むファイル名 |
| Ｈ | 1フレーム前のタッチ状態 |
| Ｉ，Ｊ，Ｋ | 汎用ループカウンタ |
| Ｍ | 正しい位置にあるピースの数 |
| Ｐ，Ｑ | スペースの位置 |
| Ｒ | 盤から除いたピースの種類 |
| Ｓ | スペースと移動起点の差分の量 |
| Ｔ，Ｕ，Ｚ | ピース描画時の座標 |
| Ｖ，Ｗ | スペースと移動起点の差分の向き |
| Ｘ，Ｙ | 移動させる起点のピースの位置 |
01. ＠ＩЛ
02. ＡＣＬＳ：ＣＬＥＡＲ：ＤＩＭ Ｆ（８，６）ＰＮＬＴＹＰＥ”ＯＦＦ”ＧＰＡＧＥ １ＯＮ ＢＵＴＴＯＮ（）＝＝２５６ＧＯＳＵＢ＠Ｐ，＠ＧЛ
03. ＦＯＲ Ｉ＝０ＴＯ ４７Ｆ（Ｉ％８，Ｉ／８）＝Ｉ：ＮＥＸＴ：Ｇ＝Ｇ＄！＝””Ｐ＝７－Ｇ＊ＲＮＤ（８）Ｑ＝５－Ｇ＊ＲＮＤ（６）Ｒ＝Ｆ（Ｐ，Ｑ）Ｆ（Ｐ，Ｑ）＝－１Л
04. Ｙ＝Ｑ：ＦＯＲ Ｉ＝０ＴＯ ９９Ｘ＝ＲＮＤ（８）ＧＯＳＵＢ＠Ｓ：Ｙ＝ＲＮＤ（６）ＧＯＳＵＢ＠Ｓ：ＮＥＸＴ：ＧＯＳＵＢ＠ＤЛ
05. ＠ＬЛ
06. Ｘ＝ＴＣＨＸ／３２ＯＲ ０Ｙ＝ＴＣＨＹ／３２ＯＲ ０Л
07. ＩＦ！Ｈ＊ＴＣＨＳＴ＊（Ｘ！＝Ｐ ＸＯＲ Ｙ！＝Ｑ）ＴＨＥＮ ＢＥＥＰ ４９ＯＮ Ｙ！＝Ｑ ＧＯＳＵＢ＠Ｈ，＠Ｖ：ＧＯＳＵＢ＠Ｓ：ＧＯＳＵＢ＠ＭЛ
08. Ｈ＝ＴＣＨＳＴ：ＶＳＹＮＣ １ＩＦ Ｍ＜４７ＴＨＥＮ＠ＬЛ
09. Ｆ（Ｐ，Ｑ）＝Ｒ：ＢＧＭＰＬＡＹ ５ＧＯＳＵＢ＠ＤЛ
10. ＦＯＲ Ｉ＝０ＴＯ ２Ｉ＝Ｉ－（Ｉ％２！＝ＴＣＨＳＴ）ＮＥＸＴ：ＧＯＴＯ＠ＩЛ
11. ＠ＳЛ
12. Ｖ＝ＳＧＮ（Ｐ－Ｘ）Ｗ＝ＳＧＮ（Ｑ－Ｙ）ＩＦ Ｖ ＯＲ Ｗ ＴＨＥＮ ＳＷＡＰ Ｆ（Ｐ，Ｑ），Ｆ（Ｐ－Ｖ，Ｑ－Ｗ）Ｐ＝Ｐ－Ｖ：Ｑ＝Ｑ－Ｗ：ＧＯＴＯ＠ＳЛ
13. ＲＥＴＵＲＮЛ
14. ＠ＭЛ
15. Ｍ＝０ＦＯＲ Ｉ＝０ＴＯ ５ＦＯＲ Ｊ＝０ＴＯ ７Ｍ＝Ｍ＋（Ｆ（Ｊ，Ｉ）＝＝Ｉ＊８＋Ｊ）ＮＥＸＴ：ＮＥＸＴ：ＲＥＴＵＲＮЛ
16. ＠ＤЛ
17. ＦＯＲ Ｉ＝０ＴＯ ５ＦＯＲ Ｊ＝０ＴＯ ７Ｆ＝Ｆ（Ｊ，Ｉ）Ｔ＝Ｆ％８＊３２Ｕ＝（５６ＡＮＤ Ｆ）＊４Л
18. ＧＣＯＰＹ ２，Ｔ，Ｕ，Ｔ＋３１，Ｕ＋３１，Ｊ＊３２，Ｉ＊３２，１ＮＥＸＴ：ＮＥＸＴ：ＲＥＴＵＲＮЛ
19. ＠ＨЛ
20. Ｖ＝ＳＧＮ（Ｐ－Ｘ）Ｓ＝ＡＢＳ（Ｐ－Ｘ）＊３２Ｔ＝Ｘ＊３２－（Ｖ＜０）＊（Ｓ－３２）Ｕ＝Ｙ＊３２ＦＯＲ Ｉ＝８ＴＯ １ＳＴＥＰ－１Ｚ＝Ｔ：ＩＦ Ｖ＜０ＴＨＥＮ Ｚ＝Ｚ＋Ｓ－ＩЛ
21. ＧＣＯＰＹ Ｔ，Ｕ，Ｔ＋Ｓ－１，Ｕ＋３１，Ｔ＋Ｖ＊Ｉ，Ｕ，１ＧＦＩＬＬ Ｚ，Ｕ，Ｚ＋Ｉ－１，Ｕ＋３１Ｔ＝Ｔ＋Ｖ＊Ｉ：Ｉ＝Ｉ－（Ｉ＝＝５）ＶＳＹＮＣ １ＮＥＸＴ：ＲＥＴＵＲＮЛ
22. ＠ＶЛ
23. Ｗ＝ＳＧＮ（Ｑ－Ｙ）Ｓ＝ＡＢＳ（Ｑ－Ｙ）＊３２Ｔ＝Ｘ＊３２Ｕ＝Ｙ＊３２－（Ｗ＜０）＊（Ｓ－３２）ＦＯＲ Ｉ＝８ＴＯ １ＳＴＥＰ－１Ｚ＝Ｕ：ＩＦ Ｗ＜０ＴＨＥＮ Ｚ＝Ｚ＋Ｓ－ＩЛ
24. ＧＣＯＰＹ Ｔ，Ｕ，Ｔ＋３１，Ｕ＋Ｓ－１，Ｔ，Ｕ＋Ｗ＊Ｉ，１ＧＦＩＬＬ Ｔ，Ｚ，Ｔ＋３１，Ｚ＋Ｉ－１Ｕ＝Ｕ＋Ｗ＊Ｉ：Ｉ＝Ｉ－（Ｉ＝＝５）ＶＳＹＮＣ １ＮＥＸＴ：ＲＥＴＵＲＮЛ
25. ＠ＰЛ
26. ＧＰＡＧＥ １，２，１ＧＣＬＳ：ＦＯＲ Ｉ＝０ＴＯ ５Ｃ＝Ｉ＋７４ＦＯＲ Ｊ＝０ＴＯ ７Ｆ＝Ｉ＊８＋Ｊ＋１Ｔ＝Ｊ＊３２Ｕ＝Ｉ＊３２ＧＦＩＬＬ Ｔ，Ｕ，Ｔ＋３０，Ｕ＋３０，ＣЛ
27. Ｃ＝Ｃ＋６＊（Ｊ＜４）＋３６＊（Ｊ＞３）ＦＯＲ Ｋ＝０ＴＯ Ｆ＞＝１ＧＰＵＴＣＨＲ！Ｋ＊１２＋Ｔ＋４，Ｕ＋８，”ＢＧＦ”，４８＋Ｆ％１０，０，２Ｆ＝Ｆ／１０ＮＥＸＴЛ
28. ＮＥＸＴ：ＮＥＸＴ：ＧＰＡＧＥ １，１，１ＲＥＴＵＲＮЛ
29. ＠ＧЛ
30. ？”ファイルメイ”；：ＩＮＰＵＴ Ｇ＄ＳＹＳＢＥＥＰ＝０ＬＯＡＤ”ＣＯＬ２：”＋Ｇ＄，０ＬＯＡＤ”ＧＲＰ２：”＋Ｇ＄，０ＳＹＳＢＥＥＰ＝１ＩＦ ＲＥＳＵＬＴ ＴＨＥＮ ＲＥＴＵＲＮ ＥＬＳＥ＠ＧЛ
※コードのHTML生成にPTC2HTMLを使用しています。
モドル ＢＡＣＫ