ＰＲＧ：ＨＮＫＮ＿ＢＭ
セツメイＥＸＰＬＡＮＡＴＩＯＮ
画面内に9種類のピースが各8つずつ、計72個のピースがランダムに配置される。There are 72 objects (8 objects by 9 types) in the field randomly.
同じピースをペアで取り除いていくのが目的。以下の条件のうち少なくとも一つを満たしていないと取り除けない。You remove whole objects by pairs of same type with following rules:
- ピースが縦か横に隣接しているObjects of the pair are neighbor.
- ピースが上下左右の同じ端を共有しているOr they are on the same edge of field.
- ピースが同じ列もしくは同じ行にあり、その間に別のピースが存在しないOr there are no other objects if they are on the same row or column.
- ピースを横方向と縦方向に沿って1回だけ曲がったL字型の経路について、その間に別のピースが存在しないOr there are no other objects in the L-shaped path connecting them.
取り除く際、ふたつのピースの距離の二乗×10点が入る。手詰まりになっても自動判定しない。You get square of objects' distance x 10 points. You must judge whether there is no move by yourself, not automatically.
タッチ操作で取り除くピースを選択。Aボタンで同じパターンでやり直し、Bボタンで新規パターンでやり直し。Touch objects to remove by touch pen. You can retry the same pattern by A button, or the other pattern by B button.
ＱＲコードＱＲ ＣＯＤＥ
プログラムコードＰＲＯＧＲＡＭ ＣＯＤＥ
表示 Show
| Ａ，Ｂ，Ｚ | 取り除けるかの判定用 |
| Ｃ | ピースの色 |
| Ｅ | ボタンの状態 |
| Ｆ | ピースの種類 |
| Ｆ（，） | 現在の盤面状態 |
| Ｉ | 汎用ループカウンタ |
| Ｊ | 取り除けるかの判定結果 など |
| Ｋ | 得点 |
| Ｌ，Ｖ，Ｗ | ふたつのピースの位置の差分 |
| Ｍ（，） | 盤面状態のマスター |
| Ｎ | 残りのピースの数 |
| Ｐ，Ｑ | 1つ目に選んだピースの座標 |
| Ｒ，Ｓ | 2つ目に選んだピースの座標 |
| Ｘ，Ｙ | 汎用座標値 |
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. ＲＥＴＵＲＮЛ
31. ＠ＳЛ
32. Ｆ＝Ｆ（Ｘ，Ｙ）ＳＰＣＨＲ Ｘ＋Ｙ＊９，Ｆ，Ｃ＊（Ｆ％１６＋２），０，０，３ＲＥＴＵＲＮЛ
※コードのHTML生成にPTC2HTMLを使用しています。
モドル ＢＡＣＫ