Игра Балда (язык С)

#include <stdio.h>
#include <conio.h>
#include <mem.h>
#include <io.h>
#include <fcntl.h>
#include <errno.h>
#include <string.h>
#include <stdlib.h>
 
//координаты и размеры таблицы
int width = 9,
    height = 9,
    left = 1,
    top = 3;
 
//цвета клеток
int clback = 1,
    cltext = 15,
    clbackselect = 2,
    cltextselect = 15,
    clbackhighlight = 4,
    cltexthighlight = 14;
 
int player1score = 0,  // очки игроков
    player2score = 0;
 
int player1cpu = 0,  //  0 - играет человек, 1 - играет компьютер
    player2cpu = 0;
 
FILE *dict;
 
char** board;           //массив игрового поля, хранящий в себе буквы
char** board2;          //массив игрового поля, хранящий в себе признак использования клеток
char* usedwords[100];   //массив использованных слов
int usedwordscount = 0; //количество использованных слов
 
//отрисовка таблицы
void drawtable()
{
  textbackground(clback);
  textcolor(cltext);
 
  gotoxy(left, top);
  cprintf("Й");
  for(int i = 0; i < width - 1; i++)
  {
    cprintf("НННННЛ");
  }
  cprintf("ННННН»\n");
 
  for(i = top + 1; i < top + height * 4; i += 4)
  {
    for(int k = 0; k < 3; k++)
    {
      gotoxy(left, i + k);
      cprintf("є");
      for(int j = 0; j < width; j++)
      {
    cprintf("     є");
      }
    }
 
    gotoxy(left, i + 3);
    cprintf("М");
    for(int j = 0; j < width - 1; j++)
    {
      cprintf("НННННО");
    }
    cprintf("ННННН№");
  }
 
  gotoxy(left, top + height * 4);
  cprintf("И");
  for(i = 0; i < width - 1; i++)
  {
    cprintf("НННННК");
  }
  cprintf("НННННј\n");
}
 
//отрисовка клетки с заданными цветами
void drawcell(int x, int y, int color, int backcolor)
{
  int sx = left + x * 6 + 1;
  int sy = top + y * 4 + 1;
 
  textcolor(color);
  textbackground(backcolor);
  gotoxy(sx, sy);
  cprintf("     ");
  gotoxy(sx, sy + 1);
  cprintf("  %c  ", board[x][y]);
  gotoxy(sx, sy + 2);
  cprintf("     ");
}
 
void drawscore()
{
  textcolor(15);
  textbackground(0);
 
  gotoxy(1, 1);
  cprintf("Player 1: %i          Player 2: %i", player1score, player2score);
}
 
//добавление слова в словарь
void addword(char *s) {
  //открытие нового файла
  FILE *f;
  f = fopen("dict2.txt", "w");
 
  fseek(dict, 0, SEEK_SET);
 
  char temp[25];
  int isset = 0;  //вставили мы новое слово в словарь или нет
 
  //в цикле копируем все слова из старого словаря в новый
  while(fgets(temp, 25, dict) != NULL) {
    if (!isset)
      if (strcmp(s, temp) < 0) { //если нашли нужное место для нового слова, то записываем
        isset = 1;
        fputs(s, f);
        fputs("\n", f);
      }
    fputs(temp, f);
  }
 
  fclose(f);
  fclose(dict);
 
  //удаляем старый словарь
  remove("dict.txt");
  //присваиваем новому словарю имя старого
  rename("dict2.txt", "dict.txt");
 
  dict = fopen("dict.txt", "r");
}
 
unsigned long cntfind = 0;
 
//проверка входит ли слово в словарь
//  0 - *не входит
//  1 - входит
//  2 - входит, как начало какого-то слова
int findword(char *s, int len) {
  char temp[25];
  int part = 0;
 
  cntfind++;
 
  fseek(dict, 0, SEEK_SET);
  //цикл по всем строкам файла*
  while (fgets(temp, 25, dict) != NULL) {
    int mc = memcmp(s, temp, len);
 
    if (mc == 0) {
      if(len == strlen(temp) - 1)
        return 1;
      else
        part = 1;
    }
    if (mc < 0) break;
  }
 
  if (part == 1) return 2;
  return 0;
}
 
//проверка. входит ли слово в массив использованных слов 
int findusedword(char *s) {
  for(int i = 0; i < usedwordscount; i++) {
    if (strcmp(usedwords[i], s) == 0) return 1;
  }
  return 0;
}
 
//добавление слова в массив использованных слов
void addusedword(char *s) {
  usedwords[usedwordscount] = new char[strlen(s) + 1];
  memcpy(usedwords[usedwordscount], s, strlen(s) + 1);
  usedwordscount++;
}
 
int humanturn()
{
  //координаты курсора
  int x = width / 2;
  int y = height / 2;
 
  int ch;  //*нажатая клавиша
  int letterx[100], lettery[100];  //координаты букв набранного слова*
  int setletter = 0;               //поставлена буква или нет
  int setletterx, setlettery;      //координаты поставленной буквы
  int n;                           //длина набранного слова
 
  //очистка массива
  for(int i = 0; i < width; i++)
    for(int j = 0; j < height; j++)
      board2[i][j] = 0;
 
  //общий цикл хода человека*
  do {
    n = 0;
    drawcell(x, y, cltextselect, clbackselect);
 
    //цикл установки буквы
    do {
      ch = getch();
      drawcell(x, y, cltext, clback);
 
      if(ch == 0) {
    ch = getch();
    switch (ch) {
      case 75: x--; if (x < 0) x = 0; break;
      case 77: x++; if (x > width - 1) x = width - 1; break;
      case 72: y--; if (y < 0) y = 0; break;
      case 80: y++; if (y > height - 1) y = height - 1; break;
    }
      }
      if(ch == 27) {
        return -1;
      }
      //если нажата маленькая русская буква, то делаем ее заглавной
      if((ch >= 160) && (ch <= 175)) ch -= 32;
      if((ch >= 224) && (ch <= 239)) ch -= 80;
 
      drawcell(x, y, cltextselect, clbackselect);
    } while (!((ch >= 128) && (ch <= 159)) || (board[x][y] != ' '));
    //цикл продолжается пока не будет нажата русская буква на пустой клетке
 
    //запоминаем поставленную букву
    setletterx = x;
    setlettery = y;
    board[x][y] = ch;
    drawcell(x, y, cltextselect, clbackselect);
    setletter = 1;
 
    //цикл выбора начала слова
    do {
      ch = getch();
      drawcell(x, y, cltext, clback);
 
      if(ch == 0) {
    ch = getch();
    switch (ch) {
      case 75: x--; if (x < 0) x = 0; break;
      case 77: x++; if (x > width - 1) x = width - 1; break;
      case 72: y--; if (y < 0) y = 0; break;
      case 80: y++; if (y > height - 1) y = height - 1; break;
    }
      }
 
      if(ch == 27){
    setletter = 0;
        board[setletterx][setlettery] = ' ';
        drawcell(setletterx, setlettery, cltext, clback);
    break;
      }
 
      drawcell(x, y, cltextselect, clbackselect);
    } while ((ch != 13) || (board[x][y] == ' '));
    //цикл продолжается пока не будет нажат энтер над пустой клеткой
 
    //запоминаем начало слова
    drawcell(x, y, YELLOW, clbackselect);
    board2[x][y] = 1;
    letterx[n] = x;
    lettery[n] = y;
    n++;
 
    //если пользователь не отменил действие, то...
    if (setletter == 1) {
      ///цикл выбора слова
      do {
    ch = getch();
    drawcell(x, y, cltext, clback);
 
    int oldx = x;
    int oldy = y;
 
    if(ch == 0) {
      ch = getch();
      switch (ch) {
        case 75: x--; if (x < 0) x = 0; break;
        case 77: x++; if (x > width - 1) x = width - 1; break;
        case 72: y--; if (y < 0) y = 0; break;
        case 80: y++; if (y > height - 1) y = height - 1; break;
      }
    }
 
        //если буква в выбранном направлении еще не была выбрана то выбираем ее и дополняем слово
    if ( (board2[x][y] != 1) && ((oldx != x) || (oldy != y)) && (board[x][y] != ' ')) {
      drawcell(oldx, oldy, cltexthighlight, clbackhighlight);
          board2[x][y] = 1;
          letterx[n] = x;
          lettery[n] = y;
          n++;
    }else{
      x = oldx;
      y = oldy;
    }
 
        //если нажат энтер 
        if(ch == 13) {
      drawcell(x, y, cltexthighlight, clbackhighlight);
 
          //проверка. входит ли поставленная буква в слово
          int flag = 1;
          for(i = 0; i < n; i++) {
            if((letterx[i] == setletterx) && (lettery[i] == setlettery)) {
              flag = 0;
              break;
            }
          }
 
          //если не входит, то ничего не делаем
          if (flag) {
            ch = 0;
          } else {
            //собираем набранное слово в переменную s
            char *s = new char[n + 1];
            for(i = 0; i < n; i++) {
              s[i] = board[letterx[i]][lettery[i]];
            }
            s[n] = 0;
 
            //если слово уже было использовано , то ничего не делаем
            if(findusedword(s)) {
              ch = 0;
            } else {
              //если слово не найдено в словаре, то предлагаем его добавить
              if(findword(s, n) != 1) {
                textcolor(15);
                textbackground(0);
                gotoxy(1, 2);
                cprintf("Такого слова нет в словаре. Добавить(y/n)?");
 
                int ch2 = ' ';
                //цикл пока не будет нажато Н или Т
                while ((ch2 != 173) && (ch2 != 226)) {
                  ch2 = getch();
                }
                //если Н, то добавляем слово
                if (ch2 == 173) {
                  addword(s);
                  addusedword(s);
                }
                //если Т, то отменяем выбор слова*
                if (ch2 == 226) ch = 27;
                gotoxy(1, 2);
                cprintf("                                            ");
              } else {
                addusedword(s);
              }
            }
 
            delete s;
          }
        }
 
        //ESC - отмена выбора слова
        if(ch == 27) {
          setletter = 0;
          for(int i = 0; i < n; i++) {
            drawcell(letterx[i], lettery[i], cltext, clback);
            board2[letterx[i]][lettery[i]] = 0;
          }
          board[setletterx][setlettery] = ' ';
          drawcell(setletterx, setlettery, cltext, clback);
          break;
        }
 
    drawcell(x, y, YELLOW, clbackselect);
      } while (ch != 13);
      //цикл продолжается, пока не будет нажат энтер 
    }
 
  } while (ch != 13);
  //общий цикл продолжается, пока на последнем этапе не будет нажат энтер
 
  //восстанавливаем доску
  for(i = 0; i < n; i++) {
    drawcell(letterx[i], lettery[i], cltext, clback);
    board2[letterx[i]][lettery[i]] = 0;
  }
 
  return n;
}
 
char *reqword = new char[25];  //текущее набранное слово
char *maxword = new char[25];  //максимальное слово
 
int lenreqword;                //длина текущего слова
int setletterx, setlettery;    //координаты поставленной буквы
char letter;                   //поставленная буква
 
int maxlen;                    //длина максимального слова
int maxsetletterx, maxsetlettery;  //координаты поставленной буквы максимального слова*
char maxletter;                //поставленная буква максимального слова
 
//рекурсивный поиск возможных слов на поле
//      x, y - координаты текущей клетки
//      setletter - была поставлена буква или нет
int req(int x, int y, int setletter) {
  //если эта клетка уже использована для слова, то возврат
  if(board2[x][y] == 1) return 0;
  //если клетка пустая, то пробуем поставить в нее все буквы по очереди
  if(board[x][y] == ' ') {
    //если буква уже была поставлена, возврат
    if(setletter) return 0;
    drawcell(x, y, YELLOW, clbackselect);
    //перебор всех букв
    for(unsigned char i = 128; i <= 159; i++) {
      letter = i;
      setletterx = x;
      setlettery = y;
      board[x][y] = i;
      //запуск рекурсии с данной буквы
      req(x, y, 1);
    }
    //возвращаем все как было до перебора*
    board[x][y] = ' ';
    drawcell(x, y, cltext, clback);
    return 0;
  }
 
//  drawcell(x, y, YELLOW, clbackselect);
 
  //добавляем текущую букву к набираемому слову
  reqword[lenreqword] = board[x][y];
  lenreqword++;
 
  //переменная для проверки, может ли слово начинаться с данных букв
  int tupik = 0;
 
  //ищем набранное слово с словаре
  if(lenreqword > 2) {
    int fw = findword(reqword, lenreqword);
    //если в словаре нет слов начинающихся на данные буквы, значит мы зашли в тупик
    if(fw == 0) tupik = 1;
 
    //если буква была установлена
    if(setletter)
      //если набранное слово больше максимального найденного
      if(lenreqword > maxlen) {
        //если набранное слово есть и оно не было использовано, 
        //  то запоминаем его как максимальное
        if(fw == 1) {
          reqword[lenreqword] = 0;
          if(!findusedword(reqword)){
            memcpy(maxword, reqword, lenreqword);
            maxlen = lenreqword;
            maxword[maxlen] = 0;
            maxsetletterx = setletterx;
            maxsetlettery = setlettery;
            maxletter = letter;
          }
        }
      }
  }
 
  //если длина слова меньше пятнадцати и мы не в тупике, то 
  //  вызываем рекурсию для каждого из четырех направлений
  if((lenreqword < 15) && !tupik) {
    board2[x][y] = 1;
 
    if(x > 0) req(x - 1, y, setletter);
    if(y > 0) req(x, y - 1, setletter);
    if(x < width - 1) req(x + 1, y, setletter);
    if(y < height - 1) req(x, y + 1, setletter);
 
    board2[x][y] = 0;
  }
 
//  drawcell(x, y, cltext, clback);
 
  lenreqword--;
  return 0;
}
 
//ход компьютерного игрока
int cputurn() {
  //очистка массива
  for(int i = 0; i < width; i++)
    for(int j = 0; j < height; j++)
      board2[i][j] = 0;
 
  lenreqword = 0;
  maxlen = 2;
  //запуск поиска слов из каждой клетки по очереди
  for(i = 0; i < width; i++) {
    for(int j = 0; j < height; j++) {
      req(i, j, 0);
    }
  }
 
  //вывод найденного слова на экран
  maxword[maxlen] = 0;
  gotoxy(1, 2);
  cprintf("%s: %i", maxword, cntfind);
 
  //установка буквы на игровое поле
  board[maxsetletterx][maxsetlettery] = maxletter;
  drawcell(maxsetletterx, maxsetlettery, cltext, clback);
 
  //запись слова как использованного
  addusedword(maxword);
 
  return maxlen;
}
 
//проверка заполнено все поле буквами или нет
int endgame() {
  for(int i = 0; i < width; i++)
    for(int j = 0; j < height; j++) {
      if(board[i][j] == ' ') return 0;
    }
  return 1;
}
 
//основная функция игры
void game() {
  //подготовка к запуску
  textbackground(0);
  clrscr();
 
  dict = fopen("dict.txt", "r");
 
  drawtable();
 
  //создание игрового поля
  board = new char * [width];
  board2 = new char * [width];
  for(int i = 0; i < width; i++) {
    board[i] = new char[height];
    memset(board[i], ' ', height);
    board2[i] = new char[height];
    memset(board2[i], 0, height);
  }
 
  //поиск случайного стартового слова
  int num = random(100) + 1; //случайный номер от 1 до 100
  char s[25];
  for(i = 0; i < num; i++) {
    do {
      if(fgets(s, 25, dict) == NULL) fseek(dict, 0, SEEK_SET); //если добрались до конца словаря возвращаемся в начало
    } while (strlen(s) - 1 != width);
  }
  s[width] = 0;
  //выкладываем слово на доске
  for(i = 0; i < width; i++) {
    board[i][height / 2] = s[i];
    drawcell(i, height / 2, cltext, clback);
  }
  addusedword(s);
 
  //основной цикл игры
  drawscore();
  int len;
  while(1) {
    //первый игрок
    if(player1cpu)
      len = cputurn();
    else
      len = humanturn();
    if(len == -1) break;
    player1score += len;
    drawscore();
    if(endgame()) break;
 
    //второй игрок
    if(player2cpu)
      len = cputurn();
    else
      len = humanturn();
    if(len == -1) break;
    player2score += len;
    drawscore();
    if(endgame()) break;
  }
 
  //если поле заполнено, то выводим результат игры
  if(endgame()) {
    gotoxy(1, 2);
    textcolor(15);
    textbackground(0);
    if(player1score > player2score) printf("победил первый игрок");
    if(player1score == player2score) printf("ничья");
    if(player1score < player2score) printf("победил второй игрок");
    getch();
  }
 
  //уничтожение игрового поля
  for(i = 0; i < width; i++) {
    delete [] board[i];
    delete [] board2[i];
  }
  delete [] board;
  delete [] board2;
 
  fclose(dict);
}
 
void main ()
{
  randomize();
 
  textbackground(0);
  clrscr();
 
  int ch;
 
  printf("Выберите размеры поля:\n");
  printf("1. 5x5\n");
  printf("2. 7x7\n");
  printf("3. 9x9\n");
  printf("? ");
  while (1) {
    ch = getch();
    if(ch == '1') {
      width = 5;
      height = 5;
      break;
    }
    if(ch == '2') {
      width = 7;
      height = 7;
      break;
    }
    if(ch == '3') {
      width = 9;
      height = 9;
      break;
    }
  }
 
  printf("%c\n\n", ch);
  printf("Первый игрок:\n");
  printf("1) Человек\n");
  printf("2) Компьютер\n");
  printf("? ");
  while (1) {
    ch = getch();
    if(ch == '1') {
      player1cpu = 0;
      break;
    }
    if(ch == '2') {
      player1cpu = 1;
      break;
    }
  }
 
  printf("%c\n\n", ch);
  printf("Второй игрок:\n");
  printf("1) Человек\n");
  printf("2) Компьютер\n");
  printf("? ");
  while (1) {
    ch = getch();
    if(ch == '1') {
      player2cpu = 0;
      break;
    }
    if(ch == '2') {
      player2cpu = 1;
      break;
    }
  }
 
  game();
}