REVERSI by Ｊの字

再生

　白黒の石をはさんでひっくり返す、「リバーシ」ゲームの投稿だ。
　有名なルールなので、さすがに説明の必要はないだろう。実行するとランダムで先攻・後攻が決まるので、あとは石を置きたい場所にタッチしてゲームを進めていこう。

私が作りました

Ｊの字

中学生の頃、PC98で作ろうと思って挫折したリバーシのプログラムですが、今やってみるとあっさり作れてしまったあたりに自分自身の進歩が見られます。
先読みしていないのであまり強くありませんがテンポ良くプレイできるのでそれなりに楽しめると思います


 CHECK POiNT 

ワンパク
か、勝てねェ！　これがコンピューターの頭脳か、ガッデム！

神崎
えぇと、比較的シンプルな処理だからリバーシのコツを知っていれば勝てると思うんだけど……

博士
ふむ。盤面を全コマサーチして、それぞれ取れるコマの数とマスの重み（重要度）を比較しているのじゃな。
作者の言う通り、数手先を読んでいるわけではないが逆に「１手読み」の処理としてはおおいに参考になるじゃろう。

インテリ
先読みをして強くするにはどうすればいいか、考えてみるのも面白いよ。かなり奥の深い世界だから、みんなもこれをベースにいじってみたらどうかな。

プログラムリスト

  1. ＣＬＥＡＲ
  2. ＰＮＬＴＹＰＥ”ＯＦＦ”
  3. ＧＰＡＧＥ　１
  4. ＤＩＭ　ＶＮ（２０，２０），ＶＷ（６４），Ｐ＄（３）
  5. Ｗ＝２２：Ｐ＄（１）＝”アナタ”：Ｐ＄（２）＝”ＣＯＭ”
  6. ’＝＝＝オモミツ゛ケ
  7. ＦＯＲ　Ｉ＝０　ＴＯ　３１
  8. 　ＲＥＡＤ　Ｘ
  9. 　ＶＷ（Ｉ）＝Ｘ＊Ｘ：ＶＷ（６３－Ｉ）＝Ｘ＊Ｘ
  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. 　ＢＥＥＰ　１１
  70. 　ＧＯＳＵＢ　＠ＤＲＡＷ
  71. 　ＩＦ　ＥＮＤＦＬＧ＝＝１　ＧＯＴＯ　＠ＫＥＫＫＡ
  72. ’＝＝＝オクトコロアル？
  73. ＠ＣＡＮＰＵＴ
  74. 　Ｐ＝１：ＥＰ＝－１：ＦＬＧ＝０
  75. 　ＦＯＲ　Ｘ＝１　ＴＯ　８
  76. 　　ＦＯＲ　Ｙ＝１　ＴＯ　８
  77. 　　　ＧＯＳＵＢ　＠ＧＥＴ
  78. 　　　ＩＦ　ＨＫ＞０　ＴＨＥＮ　ＥＰ＝１
  79. 　　ＮＥＸＴ
  80. 　ＮＥＸＴ
  81. 　ＩＦ　ＥＰ＝＝－１　ＡＮＤ　ＰＦ＝＝１　ＧＯＴＯ　＠ＫＥＫＫＡ
  82. 　ＩＦ　ＥＰ＝＝－１　ＴＨＥＮ　？”アナタ：ＰＡＳＳ”：ＧＯＴＯ　＠ＣＯＭ
  83. ＧＯＴＯ　＠ＴＯＵＣＨ
  84. ’＝＝＝ケッカ
  85. ＠ＫＥＫＫＡ
  86. 　ＣＯＬＯＲ　０：Ｉ＝（Ｖ１＜Ｖ２）＋１
  87. 　ＢＧＭＰＬＡＹ　４＋Ｉ
  88. 　？Ｐ＄（Ｉ）；”ノカチ　”　Ｖ１；”－”；Ｖ２
  89. 　？”ＴＯＵＣＨ　ＳＣＲＥＥＮ　ＴＯ　ＳＴＡＲＴ”
  90. ＠ＫＥＫＫＡ２
  91. 　ＩＦ　ＴＣＨＴＩＭＥ＞５　ＧＯＴＯ　＠ＳＴＡＲＴ
  92. ＧＯＴＯ　＠ＫＥＫＫＡ２
  94. ’＝＝＝イシナラヘ゛ル
  95. ＠ＤＲＡＷ
  96. 　Ｖ１＝０：Ｖ２＝０
  97. 　ＦＯＲ　Ｉ＝１　ＴＯ　８
  98. 　　ＦＯＲ　Ｊ＝１　ＴＯ　８
  99. 　　　ＴＰ＝ＶＮ（Ｉ，Ｊ）
  100. 　　　ＩＦ　ＴＰ＞０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＤＲＡＷ１
  101. 　　　ＩＦ　ＴＰ＝＝１　ＴＨＥＮ　Ｖ１＝Ｖ１＋１
  102. 　　　ＩＦ　ＴＰ＝＝２　ＴＨＥＮ　Ｖ２＝Ｖ２＋１
  103. 　　ＮＥＸＴ
  104. 　ＮＥＸＴ
  105. 　ＣＯＬＯＲ　１６－Ｐ＊３
  106. 　？Ｐ＄（Ｐ）；”：”；Ｘ；”－”；Ｙ
  107. 　ＩＦ　Ｖ１＊Ｖ２＝＝０　　ＴＨＥＮ　ＥＮＤＦＬＧ＝１
  108. 　ＩＦ　Ｖ１＋Ｖ２＝＝６４　ＴＨＥＮ　ＥＮＤＦＬＧ＝１
  109. ＲＥＴＵＲＮ
  110. ’＝＝＝イシヲカク
  111. ＠ＤＲＡＷ１
  112. 　ＧＸ＝Ｉ＊Ｗ－３：ＧＹ＝Ｊ＊Ｗ－３
  113. 　ＧＣＩＲＣＬＥ　ＧＸ，ＧＹ，９，１３，１８０，３６０
  114. 　ＧＣＩＲＣＬＥ　ＧＸ，ＧＹ－１，９，１４＋ＴＰ
  115. 　ＧＰＡＩＮＴ　　ＧＸ，ＧＹ－１，１４＋ＴＰ
  116. ＲＥＴＵＲＮ
  117. ’＝＝＝トレルコスウ／トル
  118. ＠ＧＥＴ
  119. 　ＨＫ＝０
  120. 　ＩＦ　Ｘ＜１　ＯＲ　８＜Ｘ　ＯＲ　Ｙ＜１　ＯＲ　８＜Ｙ　ＴＨＥＮ　ＲＥＴＵＲＮ
  121. 　ＩＦ　ＦＬＧ＝＝０　ＡＮＤ　ＶＮ（Ｘ，Ｙ）！＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  122. 　ＦＯＲ　Ｉ＝－１　ＴＯ　１
  123. 　　ＦＯＲ　Ｊ＝－１　ＴＯ　１
  124. 　　　ＴＸ＝Ｘ：ＴＹ＝Ｙ：Ｇ＝０
  125. 　　　ＩＦ　Ｉ＝＝０　ＡＮＤ　Ｊ＝＝０　ＧＯＴＯ　＠Ｇ２
  126. 　　　＠Ｇ１
  127. 　　　　ＴＸ＝ＴＸ＋Ｉ：ＴＹ＝ＴＹ＋Ｊ
  128. 　　　　ＩＦ　ＶＮ（ＴＸ，ＴＹ）＝＝０　ＴＨＥＮ　Ｇ＝０：ＧＯＴＯ　＠Ｇ２
  129. 　　　　ＩＦ　ＶＮ（ＴＸ，ＴＹ）＝＝Ｐ　ＧＯＴＯ　＠Ｇ２
  130. 　　　　Ｇ＝Ｇ＋１：ＧＯＴＯ　＠Ｇ１
  131. 　　　＠Ｇ２
  132. 　　　　ＩＦ　Ｇ＞０　ＡＮＤ　ＦＬＧ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＲＶＳ
  133. 　　　　ＨＫ＝ＨＫ＋Ｇ
  134. 　　ＮＥＸＴ
  135. 　ＮＥＸＴ
  136. ＲＥＴＵＲＮ
  137. ’＝＝＝ウラカ゛エシ
  138. ＠ＲＶＳ
  139. 　ＩＦ　ＴＸ＝＝Ｘ　ＡＮＤ　ＴＹ＝＝Ｙ　ＴＨＥＮ　ＲＥＴＵＲＮ
  140. 　ＴＸ＝ＴＸ－ＳＧＮ（ＴＸ－Ｘ）：ＴＹ＝ＴＹ－ＳＧＮ（ＴＹ－Ｙ）
  141. 　ＶＮ（ＴＸ，ＴＹ）＝Ｐ
  142. ＧＯＴＯ　＠ＲＶＳ