//下棋业务核心类，与界面棋盘对应，业务放在这里，可以和界面代码分离
import 'dart:core';
import 'package:gobang/flyweight/ChessFlyweightFactory.dart';
import 'package:gobang/flyweight/Position.dart';

class Ai {
  Ai._();

  static Ai? _ai;

  static Ai getInstance() {
    if (_ai == null) {
      _ai = Ai._();
    }
    return _ai!;
  }

  static var CHESSBOARD_SIZE = 15;
  static var FIRST = 1; //先手，-1表示机器，1表示人类，与Position类中的对应
  var chessboard = List.generate(
      CHESSBOARD_SIZE, (i) => List.filled(CHESSBOARD_SIZE, 0, growable: false),
      growable: false); //与界面棋盘对应，0代表空，-1代表机器，1代表人类
  var score = List.generate(
      CHESSBOARD_SIZE, (i) => List.filled(CHESSBOARD_SIZE, 0, growable: false),
      growable: false); //每个位置得分

  void init() {
    FIRST = 1; //默认人类先手
    for (int i = 0; i < CHESSBOARD_SIZE; i++) {
      for (int j = 0; j < CHESSBOARD_SIZE; j++) {
        chessboard[i][j] = 0;
        score[i][j] = 0;
      }
    }
  }

  //落子
  void addChessman(int x, int y, int owner) {
    chessboard[x][y] = owner;
  }

  //判断落子位置是否合法
  bool isLegal(int x, int y) {
    if (x >= 0 &&
        x < CHESSBOARD_SIZE &&
        y >= 0 &&
        y < CHESSBOARD_SIZE &&
        chessboard[x][y] == 0) {
      return true;
    }
    return false;
  }

  //判断哪方赢了（必定有刚落的子引发，因此只需判断刚落子的周围），owner为-1代表机器，owner为1代表人类
  bool isWin(int x, int y, int owner) {
    int sum = 0;
    //判断横向左边
    for (int i = x - 1; i >= 0; i--) {
      if (chessboard[i][y] == owner) {
        sum++;
      } else {
        break;
      }
    }
    //判断横向右边
    for (int i = x + 1; i < CHESSBOARD_SIZE; i++) {
      if (chessboard[i][y] == owner) {
        sum++;
      } else {
        break;
      }
    }
    if (sum >= 4) {
      return true;
    }

    sum = 0;
    //判断纵向上边
    for (int i = y - 1; i >= 0; i--) {
      if (chessboard[x][i] == owner) {
        sum++;
      } else {
        break;
      }
    }
    //判断纵向下边
    for (int i = y + 1; i < CHESSBOARD_SIZE; i++) {
      if (chessboard[x][i] == owner) {
        sum++;
      } else {
        break;
      }
    }
    if (sum >= 4) {
      return true;
    }

    sum = 0;
    //判断左上角到右下角方向上侧
    for (int i = x - 1, j = y - 1; i >= 0 && j >= 0; i--, j--) {
      if (chessboard[i][j] == owner) {
        sum++;
      } else {
        break;
      }
    }
    //判断左上角到右下角方向下侧
    for (int i = x + 1, j = y + 1;
        i < CHESSBOARD_SIZE && j < CHESSBOARD_SIZE;
        i++, j++) {
      if (chessboard[i][j] == owner) {
        sum++;
      } else {
        break;
      }
    }
    if (sum >= 4) {
      return true;
    }

    sum = 0;
    //判断右上角到左下角方向上侧
    for (int i = x + 1, j = y - 1; i < CHESSBOARD_SIZE && j >= 0; i++, j--) {
      if (chessboard[i][j] == owner) {
        sum++;
      } else {
        break;
      }
    }
    //判断右上角到左下角方向下侧
    for (int i = x - 1, j = y + 1; i >= 0 && j < CHESSBOARD_SIZE; i--, j++) {
      if (chessboard[i][j] == owner) {
        sum++;
      } else {
        break;
      }
    }
    if (sum >= 4) {
      return true;
    }

    return false;
  }

  //【【【【【*******整个游戏的核心*******】】】】】______确定机器落子位置
  //使用五元组评分算法，该算法参考博客地址：https://blog.csdn.net/u011587401/article/details/50877828
  //算法思路：对15X15的572个五元组分别评分，一个五元组的得分就是该五元组为其中每个位置贡献的分数，
  //	   一个位置的分数就是其所在所有五元组分数之和。所有空位置中分数最高的那个位置就是落子位置。
  Position searchPosition() {
    //每次都初始化下score评分数组
    for (int i = 0; i < CHESSBOARD_SIZE; i++) {
      for (int j = 0; j < CHESSBOARD_SIZE; j++) {
        score[i][j] = 0;
      }
    }

    //每次机器找寻落子位置，评分都重新算一遍（虽然算了很多多余的，因为上次落子时候算的大多都没变）
    //先定义一些变量
    int humanChessmanNum = 0; //五元组中的黑棋数量
    int machineChessmanNum = 0; //五元组中的白棋数量
    int tupleScoreTmp = 0; //五元组得分临时变量

    int goalX = -1; //目标位置x坐标
    int goalY = -1; //目标位置y坐标
    int maxScore = -1; //最大分数

    //1.扫描横向的15个行
    for (int i = 0; i < 15; i++) {
      for (int j = 0; j < 11; j++) {
        int k = j;
        while (k < j + 5) {
          if (chessboard[i][k] == -1)
            machineChessmanNum++;
          else if (chessboard[i][k] == 1) humanChessmanNum++;

          k++;
        }
        tupleScoreTmp = tupleScore(humanChessmanNum, machineChessmanNum);
        //为该五元组的每个位置添加分数
        for (k = j; k < j + 5; k++) {
          score[i][k] += tupleScoreTmp;
        }
        //置零
        humanChessmanNum = 0; //五元组中的黑棋数量
        machineChessmanNum = 0; //五元组中的白棋数量
        tupleScoreTmp = 0; //五元组得分临时变量
      }
    }

    //2.扫描纵向15行
    for (int i = 0; i < 15; i++) {
      for (int j = 0; j < 11; j++) {
        int k = j;
        while (k < j + 5) {
          if (chessboard[k][i] == -1)
            machineChessmanNum++;
          else if (chessboard[k][i] == 1) humanChessmanNum++;

          k++;
        }
        tupleScoreTmp = tupleScore(humanChessmanNum, machineChessmanNum);
        //为该五元组的每个位置添加分数
        for (k = j; k < j + 5; k++) {
          score[k][i] += tupleScoreTmp;
        }
        //置零
        humanChessmanNum = 0; //五元组中的黑棋数量
        machineChessmanNum = 0; //五元组中的白棋数量
        tupleScoreTmp = 0; //五元组得分临时变量
      }
    }

    //3.扫描右上角到左下角上侧部分
    for (int i = 14; i >= 4; i--) {
      for (int k = i, j = 0; j < 15 && k >= 0; j++, k--) {
        int m = k;
        int n = j;
        while (m > k - 5 && k - 5 >= -1) {
          if (chessboard[m][n] == -1)
            machineChessmanNum++;
          else if (chessboard[m][n] == 1) humanChessmanNum++;

          m--;
          n++;
        }
        //注意斜向判断的时候，可能构不成五元组（靠近四个角落），遇到这种情况要忽略掉
        if (m == k - 5) {
          tupleScoreTmp = tupleScore(humanChessmanNum, machineChessmanNum);
          //为该五元组的每个位置添加分数
          m = k;
          n = j;
          for (; m > k - 5; m--, n++) {
            score[m][n] += tupleScoreTmp;
          }
        }

        //置零
        humanChessmanNum = 0; //五元组中的黑棋数量
        machineChessmanNum = 0; //五元组中的白棋数量
        tupleScoreTmp = 0; //五元组得分临时变量
      }
    }

    //4.扫描右上角到左下角下侧部分
    for (int i = 1; i < 15; i++) {
      for (int k = i, j = 14; j >= 0 && k < 15; j--, k++) {
        int m = k;
        int n = j;
        while (m < k + 5 && k + 5 <= 15) {
          if (chessboard[n][m] == -1)
            machineChessmanNum++;
          else if (chessboard[n][m] == 1) humanChessmanNum++;

          m++;
          n--;
        }
        //注意斜向判断的时候，可能构不成五元组（靠近四个角落），遇到这种情况要忽略掉
        if (m == k + 5) {
          tupleScoreTmp = tupleScore(humanChessmanNum, machineChessmanNum);
          //为该五元组的每个位置添加分数
          m = k;
          n = j;
          for (; m < k + 5; m++, n--) {
            score[n][m] += tupleScoreTmp;
          }
        }
        //置零
        humanChessmanNum = 0; //五元组中的黑棋数量
        machineChessmanNum = 0; //五元组中的白棋数量
        tupleScoreTmp = 0; //五元组得分临时变量
      }
    }

    //5.扫描左上角到右下角上侧部分
    for (int i = 0; i < 11; i++) {
      for (int k = i, j = 0; j < 15 && k < 15; j++, k++) {
        int m = k;
        int n = j;
        while (m < k + 5 && k + 5 <= 15) {
          if (chessboard[m][n] == -1)
            machineChessmanNum++;
          else if (chessboard[m][n] == 1) humanChessmanNum++;

          m++;
          n++;
        }
        //注意斜向判断的时候，可能构不成五元组（靠近四个角落），遇到这种情况要忽略掉
        if (m == k + 5) {
          tupleScoreTmp = tupleScore(humanChessmanNum, machineChessmanNum);
          //为该五元组的每个位置添加分数
          m = k;
          n = j;
          for (; m < k + 5; m++, n++) {
            score[m][n] += tupleScoreTmp;
          }
        }

        //置零
        humanChessmanNum = 0; //五元组中的黑棋数量
        machineChessmanNum = 0; //五元组中的白棋数量
        tupleScoreTmp = 0; //五元组得分临时变量
      }
    }

    //6.扫描左上角到右下角下侧部分
    for (int i = 1; i < 11; i++) {
      for (int k = i, j = 0; j < 15 && k < 15; j++, k++) {
        int m = k;
        int n = j;
        while (m < k + 5 && k + 5 <= 15) {
          if (chessboard[n][m] == -1)
            machineChessmanNum++;
          else if (chessboard[n][m] == 1) humanChessmanNum++;

          m++;
          n++;
        }
        //注意斜向判断的时候，可能构不成五元组（靠近四个角落），遇到这种情况要忽略掉
        if (m == k + 5) {
          tupleScoreTmp = tupleScore(humanChessmanNum, machineChessmanNum);
          //为该五元组的每个位置添加分数
          m = k;
          n = j;
          for (; m < k + 5; m++, n++) {
            score[n][m] += tupleScoreTmp;
          }
        }

        //置零
        humanChessmanNum = 0; //五元组中的黑棋数量
        machineChessmanNum = 0; //五元组中的白棋数量
        tupleScoreTmp = 0; //五元组得分临时变量
      }
    }

    //从空位置中找到得分最大的位置
    for (int i = 0; i < 15; i++) {
      for (int j = 0; j < 15; j++) {
        if (chessboard[i][j] == 0 && score[i][j] > maxScore) {
          goalX = i;
          goalY = j;
          maxScore = score[i][j];
        }
      }
    }

    if (goalX != -1 && goalY != -1) {
      return Position(goalX.toDouble(), goalY.toDouble(),
          ChessFlyweightFactory.getInstance().getChess(""));
    }

    //没找到坐标说明平局了，笔者不处理平局
    return Position(
        -1, -1, ChessFlyweightFactory.getInstance().getChess(""));
  }

  //各种五元组情况评分表
  int tupleScore(int humanChessmanNum, int machineChessmanNum) {
    //1.既有人类落子，又有机器落子，判分为0
    if (humanChessmanNum > 0 && machineChessmanNum > 0) {
      return 0;
    }
    //2.全部为空，没有落子，判分为7
    if (humanChessmanNum == 0 && machineChessmanNum == 0) {
      return 7;
    }
    //3.机器落1子，判分为35
    if (machineChessmanNum == 1) {
      return 35;
    }
    //4.机器落2子，判分为800
    if (machineChessmanNum == 2) {
      return 800;
    }
    //5.机器落3子，判分为15000
    if (machineChessmanNum == 3) {
      return 15000;
    }
    //6.机器落4子，判分为800000
    if (machineChessmanNum == 4) {
      return 800000;
    }
    //7.人类落1子，判分为15
    if (humanChessmanNum == 1) {
      return 15;
    }
    //8.人类落2子，判分为400
    if (humanChessmanNum == 2) {
      return 400;
    }
    //9.人类落3子，判分为1800
    if (humanChessmanNum == 3) {
      return 1800;
    }
    //10.人类落4子，判分为100000
    if (humanChessmanNum == 4) {
      return 100000;
    }
    return -1; //若是其他结果肯定出错了。这行代码根本不可能执行
  }
}