ＰＲＧ：ＨＥＸＥＬＬＯ
動いている様子はコチラ
セツメイＥＸＰＬＡＮＡＴＩＯＮ
6角マスの盤面を用いたリバーシです。対コンピューター戦はできず、人間対人間専用です。This is Reversi like game using hex cells board. Only human vs human is available.
青(先攻)赤(後攻)交互に盤面へ石を打ち、相手の石を挟むと自分の石の色に変わります。Players take turns placing disks on the board with their assigned color facing up (bule for first / red for second). During a play, any disks of the opponent's color that are in a straight line and bounded by the disk just placed and another disk of the current player's color are turned over to the current player's color.
ただし、盤面中央の白い石は色が変わりません。Exceptionally, a white disk at the center of board never changes its color.
最終的に石の多い側が勝者となります。The winner is who have the majority when the game is finished.
画面上部に現在の石の数が表示され、どちらの番かを示す下線が引かれます。石を打つ場所はタッチ操作で行います。右下のアイコンをタッチすると、以下の操作ができます。Numbers of disks are displayed on upper of the screen, and white underline indicates whose turn. Player use touch-pen to place a disk.
操作を一手戻します。Undo a step.
盤面を初期状態に戻します。Reset the game.
ＱＲコードＱＲ ＣＯＤＥ
プログラムコードＰＲＯＧＲＡＭ ＣＯＤＥ
表示 Show
| Ａ | 石の反転アニメーション時のループカウンタ |
| Ａ＄ | 石の変化情報 |
| Ａ＄（，） | この位置に石を置いた場合の石の変化情報 |
| Ｂ | この場所に石を置けるか など |
| Ｃ（） | スプライト番号に対する石の色 |
| Ｄ | 連続パス回数(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. ＠ＮЛ
33. Ｎ＝ＩＣＯＮＣＨＫ（）ＶＳＹＮＣ １ＯＮ Ｎ％３＋１ＧＯＴＯ＠Ｎ，＠ＩЛ
34. ＢＧＭＰＬＡＹ ２７Л
35. ＠ＵЛ
36. ＢＥＥＰ ２８ＩＦ Ｓ＜８ＴＨＥＮ＠ＴЛ
37. ＳＰＣＬＲ ０Ａ＄＝Ｈ＄（Ｓ）Ｚ＝ＡＳＣ（ＬＥＦＴ＄（Ａ＄，１））Ｐ＝Ｚ％１３Ｑ＝Ｚ／１３ＯＲ ０Ｆ（Ｐ，Ｑ）＝０Ｍ＝Ｃ（Ｓ）Ｋ（Ｍ）＝Ｋ（Ｍ）－１ＳＰＣＬＲ ＳЛ
38. Ｓ＝Ｓ－１ＧＯＳＵＢ＠Ｒ：Ｍ＝６－Ｍ：ＧＯＴＯ＠ＭЛ
39. ＠ＣЛ
40. Ｘ＝Ｐ＊２４－Ｑ＊１２＋４８Ｙ＝Ｑ＊１６－１０ＲＥＴＵＲＮЛ
41. ＠ＰЛ
42. Ｓ＝Ｓ＋１Ｆ（Ｐ，Ｑ）＝ＳЛ
43. Ｋ（Ｍ）＝Ｋ（Ｍ）＋１Ｃ（Ｓ）＝ＭЛ
44. ＧＯＳＵＢ＠ＣЛ
45. ＳＰＳＥＴ Ｓ，１５，Ｍ，０，０，２ＳＰＯＦＳ Ｓ，Ｘ，ＹЛ
46. ＲＥＴＵＲＮЛ
47. ＠ＡЛ
48. Ｅ＝０Ｌ＝１Ｒ＝６ＦＯＲ Ｑ＝１ＴＯ １１ＦＯＲ Ｐ＝Ｌ ＴＯ ＲЛ
49. Ａ＄＝ＣＨＲ＄（Ｐ＋Ｑ＊１３）Ｚ＝０ＦＯＲ Ｗ＝－１ＴＯ １ＦＯＲ Ｕ＝０ＴＯ １Ｖ＝Ｕ－（Ｗ＋Ｕ＜１）Ｘ＝Ｐ：Ｙ＝ＱЛ
50. Ｂ＝０ＩＦ Ｆ（Ｐ，Ｑ）ＴＨＥＮ＠ＥЛ
51. ＠ＢЛ
52. Ｘ＝Ｘ＋Ｖ：Ｙ＝Ｙ＋ＷЛ
53. Ｃ＝Ｃ（Ｆ（Ｘ，Ｙ））ＩＦ！Ｃ ＴＨＥＮ Ｂ＝０ＥＬＳＥ ＩＦ Ｃ！＝Ｍ ＴＨＥＮ Ｂ＝Ｂ＋１ＧＯＴＯ＠ＢЛ
54. ＠ＥЛ
55. Ａ＄＝Ａ＄＋ＳＴＲ＄（Ｂ）Ｚ＝Ｚ＋Ｂ：ＮＥＸＴ：ＮＥＸＴЛ
56. Ａ＄（Ｐ，Ｑ）＝Ａ＄＊！！Ｚ：Ｅ＝Ｅ＋ＺЛ
57. ＮＥＸＴ：Ｌ＝Ｌ＋（Ｑ＞５）Ｒ＝Ｒ＋（Ｑ＜６）ＮＥＸＴЛ
58. ＲＥＴＵＲＮЛ
59. ＠ＲЛ
60. ＦＯＲ Ｗ＝－１ＴＯ １ＦＯＲ Ｕ＝０ＴＯ １Ｖ＝Ｕ－（Ｗ＋Ｕ＜１）Ｘ＝Ｐ：Ｙ＝ＱЛ
61. Ｂ＝ＶＡＬ（ＭＩＤ＄（Ａ＄，Ｗ＊２＋Ｕ＋３，１））ＦＯＲ Ａ＝１ＴＯ Ｂ：Ｘ＝Ｘ＋Ｖ：Ｙ＝Ｙ＋ＷЛ
62. Ｆ＝Ｆ（Ｘ，Ｙ）Ｃ＝Ｃ（Ｆ）Ｋ（Ｃ）＝Ｋ（Ｃ）－１Ｃ＝６－ＣЛ
63. Ｋ（Ｃ）＝Ｋ（Ｃ）＋１Ｃ（Ｆ）＝ＣЛ
64. ＳＰＣＨＲ Ｆ，（Ｎ＋１）＊５，Ｃ，Ｍ＜３，０，３ＩＦ Ｎ＜０ＴＨＥＮ ＳＰＡＮＩＭ Ｆ，１６，２，１ＢＥＥＰ ４９ＧＯＳＵＢ＠Ｋ：ＷＡＩＴ ５Л
65. ＮＥＸＴ：ＮＥＸＴ：ＮＥＸＴ：ＲＥＴＵＲＮЛ
66. ＠ＫЛ
67. ＦＯＲ Ｉ＝０ＴＯ １Ｚ＝Ｉ＊２３２＋２３ＧＦＩＬＬ Ｚ－２３，０，Ｚ，２３Ｋ＝Ｋ（Ｉ＊２＋２）Л
68. ＦＯＲ Ｊ＝０ＴＯ １Ｚ＝Ｚ－１２ＧＰＵＴＣＨＲ Ｚ，０，”ＢＧＦ”，Ｋ％１０＋４８，Ｉ＊３＋９，２Ｋ＝Ｋ／１０ＮＥＸＴ：ＮＥＸＴЛ
69. Ｚ＝（Ｍ＞３）＊２３２ＧＢＯＸ Ｚ，１６，Ｚ＋２３，１７，１５ＲＥＴＵＲＮЛ
※コードのHTML生成にPTC2HTMLを使用しています。
| ＳＰＳ |  |
ＣＯＬ１
(下画面) |  |
モドル ＢＡＣＫ