#include <iostream.h>
#include <conio.h>
#include <dos.h>
#include <stdlib.h>

int const valores[6][3][3]= //contiene la información de cada casilla
{
  {{2,8,14},{2,8,14},{2,8,14}}, //coordenada en x
  {{2,2,2},{6,6,6},{10,10,10}}, //coordenada en y
  {{0,0,0},{1,1,1},{1,1,1}}, //arriba, si es 0 es que no es permitido en esa dirección
  {{1,1,1},{1,1,1},{0,0,0}}, //abajo
  {{0,1,1},{0,1,1},{0,1,1}}, // izquierda
  {{1,1,0},{1,1,0},{1,1,0}}, //derecha
};

char const cuadro[3][5]=
{
  {'|','-','-','-','|'},
  {'|',' ',' ',' ','|'},
  {'|','-','-','-','|'}
};

/////////// Funciones de gráficos ///////////

void carac(char c, int x, int y) //dibuja el caracter c en las coordendas x, y
{
  gotoxy(x,y);
  cout<<c;
}

void dibu_cuadro(int x, int y) //dibuja el cursor (??)
{
  for (int i=0; i<5; i++)
    for (int j=0; j<3; j++)
    {
      if (cuadro[j][i]!=' ')
        carac(cuadro[j][i],x+i,y+j);
    }
}

void borra_cua(int x, int y) //borra el cursor (??)
{
  for (int i=0; i<5; i++)
    for (int j=0; j<3; j++)
    {
      if (!((i==2)&&(j==1)))
        carac(' ',x+i,y+j);
    }
}

void inicio() //pantalla de presentación
{
  gotoxy(24,12);
  cout<<"Gato by NimTech";
  delay(1000);
  clrscr();
  cout<<"Intrucciones"<<endl<<endl;
  cout<<"-Utilice las FLECHAS para moverse dentro de la cuadricula"<<endl;
  cout<<"-Utilice la BARRA ESPACIADORA para marcar la casilla"<<endl;
  cout<<"-Utilice ESC para terminar del juego (darse por vercido XD)"<<endl<<endl;
  cout<<"Presione cualquier tecla para continuar";
  getche();
  clrscr();
}

void dibu_gato() //ps dibuja el gato!!! (aunque yo lo conozco como tablero ¬¬)
{
  cout<<endl;
  cout<<"      #     #      "<<endl;
  cout<<"      #     #      "<<endl;
  cout<<"      #     #      "<<endl;
  cout<<" #################"<<endl;
  cout<<"      #     #      "<<endl;
  cout<<"      #     #      "<<endl;
  cout<<"      #     #      "<<endl;
  cout<<" #################"<<endl;
  cout<<"      #     #      "<<endl;
  cout<<"      #     #      "<<endl;
  cout<<"      #     #      "<<endl;
}

////////// Funciones de acción //////////

void tecla(int &s) //verifica que tecla se ha presionado
{
  REGS en, sal;
  en.h.ah=1;
  int86(22,&en,&sal);
  if(!(sal.x.flags&64))
  {
    en.h.ah=0;
    int86(22,&en,&sal);
    s=sal.h.ah;
  }
}

void mueve(int s, int &x, int &y) //mueve el cursor
{
  switch (s)
  {
    case 72:
      if (valores[2][y][x]==1)
      {
        borra_cua(valores[0][y][x],valores[1][y][x]);
        y--;
        dibu_cuadro(valores[0][y][x],valores[1][y][x]);
      }
      break;
    case 80:
      if (valores[3][y][x]==1)
      {
        borra_cua(valores[0][y][x],valores[1][y][x]);
        y++;
        dibu_cuadro(valores[0][y][x],valores[1][y][x]);
      }
      break;
    case 75:
      if (valores[4][y][x]==1)
      {
        borra_cua(valores[0][y][x],valores[1][y][x]);
        x--;
        dibu_cuadro(valores[0][y][x],valores[1][y][x]);
      }
      break;
    case 77:
      if (valores[5][y][x]==1)
      {
        borra_cua(valores[0][y][x],valores[1][y][x]);
        x++;
        dibu_cuadro(valores[0][y][x],valores[1][y][x]);
      }
      break;
  }
}

////////////// Funcion de toma de decisiones ////////////////////////

int prio(int a, int b, int c) // 1 jugador, 2 programa, establece una prioridad a una casilla
{
  if (a+b+c==4)
    return 1;
  else
    if ((a==1 && b==1 && c==0)||(a==1 && b==0 && c==1)||(a==0 && b==1 && c==1))
      return 2;
    else
      if ((a==2 && b==0 && c==0)||(a==0 && b==2 && c==0)||(a==0 && b==0 && c==2))
        return 3;
      else
        if (a+b+c==1)
          return 4;
        else
          return 5;
}

void compu(int &x, int &y, int tablero[3][3]) //decide que casilla marca la compu
{
  int temp[3][3];
  int i,j,priori,cont,var[9];
  for (i=0;i<3;i++)
    for (j=0;j<3;j++)
    {
      if (tablero[i][j]==0)
        temp[i][j]=0;
      else
        temp[i][j]=6;
    }
  /*for (i=0;i<3;i++)
    for (j=0;j<3;j++)
      carac(tablero[i][j]+48,70+j,10+i);*/
  for (i=0;i<9;i++)
  {
    if (temp[i%3][i/3]==0)
    {
      if (i==0 || i==2 || i==6 || i==8)
      {
        temp[i%3][i/3]=prio(tablero[i%3][0],tablero[i%3][1],tablero[i%3][2]);
        priori=prio(tablero[0][i/3],tablero[1][i/3],tablero[2][i/3]);
        if (priori<temp[i%3][i/3])
          temp[i%3][i/3]=priori;
        if (i==0 || i==8)
          priori=prio(tablero[0][0],tablero[1][1],tablero[2][2]);
        else
          priori=prio(tablero[0][2],tablero[1][1],tablero[2][0]);
        if (priori<temp[i%3][i/3])
          temp[i%3][i/3]=priori;
      }
      else
      {
        if (i==1 || i==3 || i==5 || i==7)
        {
          temp[i%3][i/3]=prio(tablero[i%3][0],tablero[i%3][1],tablero[i%3][2]);
          priori=prio(tablero[0][i/3],tablero[1][i/3],tablero[2][i/3]);
          if (priori<temp[i%3][i/3])
            temp[i%3][i/3]=priori;
        }
        else
        {
          temp[i%3][i/3]=prio(tablero[i%3][0],tablero[i%3][1],tablero[i%3][2]);
          priori=prio(tablero[0][i/3],tablero[1][i/3],tablero[2][i/3]);
          if (priori<temp[i%3][i/3])
            temp[i%3][i/3]=priori;
          priori=prio(tablero[0][0],tablero[1][1],tablero[2][2]);
          if (priori<temp[i%3][i/3])
            temp[i%3][i/3]=priori;
          priori=prio(tablero[0][2],tablero[1][1],tablero[2][0]);
          if (priori<temp[i/3][i%3])
            temp[i%3][i/3]=priori;
        }
      }
    }
  }
  /*for (i=0;i<3;i++)
    for (j=0;j<3;j++)
      carac(temp[i][j]+48,70+j,15+i);*/
  j=0;
  priori=temp[0][0];
  for (i=1;i<9;i++)
    if (temp[i%3][i/3]<priori)
    {
      priori=temp[i%3][i/3];
      j=i;
    }
  cont=0;
  for (i=0;i<9;i++)
    if (priori==temp[i%3][i/3])
      var[cont++]=i;
  randomize();
  j=random(cont);
  x=var[j]/3;
  y=var[j]%3;
}

int gana(int tablero[3][3]) //verfica si ya ha terminado el juego y si alguien ha ganado
{
  int cont=0,i,j;
  for (i=0; i<3; i++)
  {
    if (tablero[i][0]==tablero[i][1] && tablero[i][0]==tablero[i][2] && tablero[i][0]!=0)
      return tablero[i][0];
    else
      if (tablero[0][i]==tablero[1][i] && tablero[0][i]==tablero[2][i] && tablero[0][i]!=0)
        return tablero[0][i];
  }
  if (tablero[0][0]==tablero[1][1] && tablero[0][0]==tablero[2][2] && tablero[0][0]!=0)
    return tablero[0][0];
  if (tablero[0][2]==tablero[1][1] && tablero[0][2]==tablero[2][0] && tablero[1][1]!=0)
    return tablero[1][1];
  for (i=0; i<3; i++)
    for (j=0; j<3; j++)
    {
      if (tablero[i][j]==0)
        cont++;
    }
  if (cont==0)
    return 3;
  else
    return 0;
}

/////////////// Función Principal ///////////////

void main()
{
  int s; //guarda el scan code de alguna tecla
  int x,y,m,n,i,j; //guardan las coordenadas en x y en y del cursor (??)
  int turno=0; //lleva el orden de los turnos: 0 para jugador, 1 para programa
  int tablero[3][3]; //1 para jugador, 2 para programa, 0 para vacío
  int ganador; //está de más explicarlo, ¿no?
  char r;
  REGS en, sal;
  en.h.ah=1;
  en.h.ch=32;
  int86(0x10,&en,&sal); //elimina el cursor
  inicio();
  do
  {
    x=0;
    y=0;
    m=0;
    n=0;
    for (i=0;i<3;i++)
      for (j=0;j<3;j++)
        tablero[i][j]=0;
    dibu_gato();
    dibu_cuadro(valores[0][y][x],valores[1][y][x]);
    do
    {
      s=0;
      if (turno==0)
      {
        do
        {
          tecla(s);
        }while(s==0);
        if (s!=1)
        {
          if (s==57 && tablero[y][x]==0)
          {
            carac('X',valores[0][y][x]+2,valores[1][y][x]+1);
            tablero[y][x]=1;
            turno=1;
          }
          else
            mueve(s,x,y);
        }
      }
      else
      {
        compu(m,n,tablero);
        tablero[n][m]=2;
        carac('O',valores[0][n][m]+2,valores[1][n][m]+1);
        turno=0;
      }
      ganador=gana(tablero);
    }while(s!=1 && ganador==0);
    gotoxy(40,10);
    if (ganador==3)
      cout<<"Empate";
    else
      if (ganador==1)
        cout<<"Ganaste";
      else
        cout<<"Perdiste";
    gotoxy(40,12);
    cout<<"Seguir jugando? ";
    cin>>r;
    if (turno==0)
      turno=1;
    else
      turno=0;
    clrscr();
  }while(r!='n');
}