原谅我的直男视角,界面有点丑,之后在我弄懂人机对战和网络对战,深度学习后,会继续更新完善我的五子棋。
.计次循环首 (17, y)
.计次循环首 (17, x)
复制窗口组件 (图片框1, 图片框组 [x] [y])
图片框组 [x] [y].可视 = 真
图片框组 [x] [y].左边 = 图片框1.左边 + (x - 1) × 图片框1.宽度
图片框组 [x] [y].顶边 = 图片框1.顶边 + (y - 1) × 图片框1.高度
图片框组 [x] [y].标记 = “(” + 到文本 (x) + “,” + 到文本 (y) + “)”
.计次循环尾 ()
.计次循环尾 ()
.如果真 (左斜判断 = 真)
.如果真 (左斜判断 = 真)
.计次循环首 (17, x)
.计次循环首 (17, y)
.如果真 (y + 4 ≤ 17 且 x - 4 > 0)
.如果 (图片框组 [x] [y].图片 = 图片框组 [x - 1] [y + 1].图片 且 图片框组 [x - 1] [y + 1].图片 = 图片框组 [x - 2] [y + 2].图片 且 图片框组 [x - 2] [y + 2].图片 = 图片框组 [x - 3] [y + 3].图片 且 图片框组 [x - 3] [y + 3].图片 = 图片框组 [x - 4] [y + 4].图片)
.如果真 (图片框组 [x] [y].图片 = #黑棋)
信息框 (“黑棋赢了!”, 0, “”)
开局 ()
跳出循环 ()
.如果真结束
.如果真 (图片框组 [x] [y].图片 = #白棋)
信息框 (“白棋赢了!”, 0, “”)
开局 ()
跳出循环 ()
.如果真结束
.否则
右斜判断 = 真