五子棋游戏自动判断胜负算法源代码

扫描整个棋盘，分别扫描四个方向是否有5个连子。网上找了很多五子棋源码都是用此算法，这意味着每下一个棋子都要扫描一遍15×15的棋盘，复杂而且低效，代码略。

每下一子，从该子开始扫描其四个方向（例如：从该子的（x-4，y）坐标开始扫描横向）是否存在5个连子。此算法较为常用，而且不涉及更为复杂的数据结构。
.计次循环首 (到整数 (纵向位置 ÷ 20), )
横 ＝ 横 ＋ 40
.计次循环尾 ()
.如果真 (取文本中间 (数据, 到整数 (横向位置 ÷ 20) ＋ 1 ＋ 横, 1) ＝ “2”)
画板1.刷子颜色 ＝ #黑色
画板1.画椭圆 (到整数 (横向位置 ÷ 20) × 20, 到整数 (纵向位置 ÷ 20) × 20, 到整数 (横向位置 ÷ 20) × 20 ＋ 20, 到整数 (纵向位置 ÷ 20) × 20 ＋ 20)
数据 ＝ 文本替换 (数据, 到整数 (横向位置 ÷ 20) ＋ 1 ＋ 横, 1, “1”)
状态 ＝ “白色”
_启动窗口.底色 ＝ #白色
透明标签2.文本颜色 ＝ #黑色
透明标签2.标题 ＝ “到白棋”