#include <iostream.h>
#include <conio.h>
#include <math.h>
#include <stdlib.h>
#include <ctype.h>

char tabla[4][4];

void bienvenida() // Funcion que da la bienvenida al juego y muestra las instrucciones:
{
  gotoxy(10,4);
  cout<<"Bienvenido al juego 'Fichas Electronicas'"<<endl<<endl;    
  cout<<"=========================================================================="<<endl<<endl;
  cout<<"Instrucciones de Juego:"<<endl;
  cout<<"  *Ingresa el valor para la casilla de la ficha a mover (1-16)"<<endl;
  cout<<"  *Para los movimientos teclea:"<<endl;
  cout<<"         W para mover la ficha hacia ARRIBA"<<endl;
  cout<<"         A para mover la ficha hacia IZQUIERDA"<<endl;
  cout<<"         S para mover la ficha hacia ABAJO"<<endl;
  cout<<"         D para mover la ficha hacia DERECHA"<<endl;
  cout<<"         X para ABORTAR el movimiento de la ficha"<<endl;
  cout<<"  *Una vez hecho el movimiento presiona 'S' para continuar o 'N' para salir"<<endl<<endl;
  cout<<"=========================================================================="<<endl<<endl;
  cout<<"Presiona cualquier tecla para comenzar el juego..."<<endl<<endl;
  cout<<"                                        Que te diviertas y muchas suerte :D "<<endl;
  getche();
  clrscr();
}

void horizontal(int x, int y, int largo) // Funcion que dibuja una linea horizontal
{
  for (int i=1; i<=largo; i++)
  {
    gotoxy(x, y);
    cout<<"*";
    x++;
  }
}

void vertical(int x, int y, int largo) // Funcion que dibuja una linea vertical
{
  for (int i=1; i<=largo; i++)
  {
    gotoxy(x, y);
    cout<<"*";
    y++;
  }
}

void dibuja() // Funcion que dibuja el tablero de juego con respecto del numero de casillas
{
  int i, j, k=1;
  for (i=1; i<=27; i+=6) //cada casilla es de 7 asteriscos por 7 asteriscos
    horizontal(1, i, 25);
  for (i=1; i<=27; i+=6)
    vertical(i, 1, 25);
  for (i=2; i<=20; i+=6)
  {
    for (j=2; j<=20; j+=6)
      {
        gotoxy(j, i);
        cout<<k;
        k++;
      }
  }
}

void fichas() // Funcion  que dibuja las fichas en la cuadricula
{
  int i, j, m=0, n=0;
  for (i=4; i<=22; i+=6)
  {
    for (j=4; j<=22; j+=6)
    {
      gotoxy(j, i);
      cout<<tabla[m][n];
      n++;
    }
    m++;
    n=0;
  }
}

void asigna(int ficha, int &a, int &b) // Funcion que recibe el numero de casilla y devuelve la posicion en renglon y columna
{
  a=(ficha-1)/4;
  b=(ficha-1)%4;
}

int movvalid(int a, int b, char dir) // Funcion que recibe la posicion de la casilla, valida y mueve la ficha
{
  switch(dir)
  {
    case 'w':
      if ((a-2)>=0)
      {
        if ((tabla[a-1][b]=='@') && (tabla[a-2][b]==' ') && (tabla[a][b]=='@'))
        {
          tabla[a][b]=' ';
          tabla[a-1][b]=' ';
          tabla[a-2][b]='@';
          return 1;
        }
      }
      break;
    case 's':
      if ((a+2)<=3)
      {
        if ((tabla[a+1][b]=='@') && (tabla[a+2][b]==' ') && (tabla[a][b]=='@'))
        {
          tabla[a][b]=' ';
          tabla[a+1][b]=' ';
          tabla[a+2][b]='@';
          return 1;
        }
      }
      break;
    case 'a':
      if ((b-2)>=0)
      {
        if ((tabla[a][b-1]=='@') && (tabla[a][b-2]==' ') && (tabla[a][b]=='@'))
        {
          tabla[a][b]=' ';
          tabla[a][b-1]=' ';
          tabla[a][b-2]='@';
          return 1;
        }
      }
      break;
    case 'd':
      if ((b+2)<=3)
      {
        if ((tabla[a][b+1]=='@') && (tabla[a][b+2]==' ') && (tabla[a][b]=='@'))
        {
          tabla[a][b]=' ';
          tabla[a][b+1]=' ';
          tabla[a][b+2]='@';
          return 1;
        }
      }
      break;
    default: return 0; break;
  }
}

int ganador() // Funcion que verifica cuando se ha ganado el juego
{
  int yagano=0;
  int i, j;
  for (i=0; i<4; i++)
  {
    for (j=0; j<4; j++)
    {
      if (tabla[i][j]=='@')
        yagano++;
    }
  }
  return yagano;
}

void main() // Funcion principal de Juego
{
  int i, j, m, n, a=0, b=0, ficha, clave, yagano, valid, val, temp;
  char resp, dir, respu, dire;
  for (i=0; i<4; i++) // Se inicializan los valores de la matriz a ' '
  {
    for (j=0; j<4; j++)
      tabla[i][j] = ' ';
  }
  randomize(); // Se asignan las fichas al azar
  for (i=1; i<=15;)
  {
    m=random(4);
    n=random(4);
    if (tabla[m][n] == ' ')
    {
      tabla[m][n] = '@';
      i++;
    }
  }
  bienvenida();
  do // Empieza la repeticion del juego
  {
    clave=0;
    clrscr();
    dibuja();
    fichas();
    do
    {
      do
      {
        val=0;
        gotoxy(30, 10);
        cout<<"Casilla: ";
        cin>>ficha;
        if (ficha==0)
        {
          gotoxy(43,10);
          cout<<"Casilla invalida, ingrese otra";
          getche();
          gotoxy(43,10);
          cout<<"                              ";
          val=1;
        }
        else
          if ((ficha<1)||(ficha>16))
            val=1;
      }
      while (val==1);
      asigna(ficha, a, b);
      if (tabla[a][b]==' ')
      {
        gotoxy(43,10);
        cout<<"Casilla vacia, ingrese otra";
        getche();
        gotoxy(43,10);
        cout<<"                              ";
      }
    }
    while (tabla[a][b]==' ');
    do
    {
      do
      {
        gotoxy(30, 11);
        cout<<"Direccion: ";
        cin>>dire;
        dir = tolower (dire);
        if ((dir!='a')&&(dir!='s')&&(dir!='d')&&(dir!='w')&&(dir!='x'))
        {
          gotoxy(43, 11);
          cout<<"Parametro invalido, ingrese otro";
          getche();
          gotoxy(43,11);
          cout<<"                                 ";
        }
      }
      while ((dir!='a')&&(dir!='s')&&(dir!='d')&&(dir!='w')&&(dir!='x'));
      if (dir!='x')
        valid = movvalid(a, b, dir);
      else
        valid=1;
      if (valid!=1)
      {
        gotoxy(43, 11);
        cout<<"Movimiento imposible, trate de nuevo";
        getche();
        gotoxy(43,11);
        cout<<"                                     ";
      }
    }
    while (valid!=1);
    clrscr();
    dibuja();
    fichas();
    yagano=ganador();
    if (yagano!=1)
    {
      do
      {
        gotoxy(30, 12);
        cout<<"Desea hacer otro movimiento? (s/n): ";
        cin>>respu;
        resp = tolower (respu);
        if ((resp!='s') && (resp!='n'))
        {
          gotoxy(43,13);
          cout<<"Parametro invalido, trate de nuevo";
          getche();
          gotoxy(43,13);
          cout<<"                                   ";
        }
      }
      while ((resp!='s') && (resp!='n'));
    }
    else
    {
      gotoxy(30, 13);
      cout<<"HA GANADO EL JUEGO"<<endl;
    }
  }
  while ((resp == 's') && (yagano!=1));
  getche();
}