#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <time.h>

#define MAXMERET 6
#define MINMERET 3

#define KORNYV "MERET"

#define FEL 328
#define LE 336
#define BAL 331
#define JOBB 333
#define KILEP 'k'
#define UJRA 'u'

/******* lehet *******/

typedef int lehet(int m, int *x, int *y);

lehet lehetbalra {if (*y<m-1) return 1; else return 0;}
lehet lehetjobbra {return *y;}
lehet lehetle {return *x;}
lehet lehetfel {if (*x<m-1) return 1; else return 0;}

lehet *lehettomb[4]={lehetbalra, lehetjobbra, lehetfel, lehetle};

/******* tol *******/

typedef void tol(char matrix[MAXMERET][MAXMERET], int *x, int *y);

tol balratol {
  matrix[*x][*y]=matrix[*x][(*y)+1];
  (*y)++;
  matrix[*x][*y]=' ';
}

tol jobbratol {
  matrix[*x][*y]=matrix[*x][(*y)-1];
  (*y)--;
  matrix[*x][*y]=' ';
}

tol feltol {
  matrix[*x][*y]=matrix[(*x)+1][*y];
  (*x)++;
  matrix[*x][*y]=' ';
}

tol letol {
  matrix[*x][*y]=matrix[(*x)-1][*y];
  (*x)--;
  matrix[*x][*y]=' ';
}

tol *toltomb[4]={balratol, jobbratol, feltol, letol};

/*******/

int vegevan(int m, char matrix[MAXMERET][MAXMERET], int *x, int *y) {
  int jo=1,i,j,k;

  for (i=0;i<m&&jo;i++)
    for (j=0;j<m&&jo;j++)
      if (i==*x&&j==*y) {
	if (matrix[i][j]!=' ') jo=0;
      } else {
        k=i*m+j;
	if (k+'A'<='Z') {
	  if (matrix[i][j]!=k+'A') jo=0;
	} else if (matrix[i][j]!=k-'Z'+'A'-1+'0') jo=0;
      }
  return jo;
}

void general(int m, char matrix[MAXMERET][MAXMERET],int *x, int *y) {
  int i,j;
  char k;

  /* Felt”lt‚s elemekel */
  for (i=0;i<m;i++)
    for (j=0;j<m;j++) {
      k=i*m+j;
      if (k+'A'<='Z') matrix[i][j]=k+'A';
      else matrix[i][j]=k-'Z'+'A'-1+'0';
    }
  matrix[m-1][m-1]=' ';
  /* Kever‚s */
  *x=*y=m-1;
  while (vegevan(m,matrix,x,y)) {
    for (k=m*m+random(20*m*m);k;k--) {
      do {
	i=random(4);
      } while (!lehettomb[i](m,x,y));
      toltomb[i](matrix,x,y);
    }
  }
}

void megjelenit(int m, char matrix[MAXMERET][MAXMERET]) {
  int i,j;

  clrscr();
  for (i=0;i<m;i++) {
    for (j=0;j<m;j++)
      printf(" -");
    putchar('\n');
    for (j=0;j<m;j++)
      printf("|%c",matrix[i][j]);
    printf("|\n");
  }
  for (j=0;j<m;j++)
    printf(" -");
  putchar('\n');
}

void main(int argc, char *argv[]) {
  char matrix[MAXMERET][MAXMERET];
  char aktmeret=3;
  int uresx, uresy, c=0;
  time_t t;
  char *k;

  /* M trix m‚ret‚nek  tdefini l sa */
  if (k=getenv(KORNYV)) {
    int i=atoi(k);
    if (i>=MINMERET&&i<=MAXMERET) aktmeret=i;
  }
  if (argc==2) {
    int i;
    i=atoi(*++argv);
    if (i>=MINMERET&&i<=MAXMERET) aktmeret=i;
  }
  srand((unsigned)time(&t));
  general(aktmeret,matrix,&uresx,&uresy);
  while (megjelenit(aktmeret,matrix),!vegevan(aktmeret,matrix,&uresx,&uresy)&&c!=KILEP) {
    printf("Kil‚p: %c\tMozgat s: nyilak\téj t bla: %c",KILEP,UJRA);
    c=getch(); if (!c) c=256+getch();
    switch(c) {
      case UJRA:
	general(aktmeret,matrix,&uresx,&uresy);
	break;
      case FEL:
	if (lehetfel(aktmeret,&uresx,&uresy))
	  feltol(matrix,&uresx,&uresy);
	break;
      case LE:
	if (lehetle(aktmeret,&uresx,&uresy))
	  letol(matrix,&uresx,&uresy);
	break;
      case JOBB:
	if (lehetjobbra(aktmeret,&uresx,&uresy))
	  jobbratol(matrix,&uresx,&uresy);
	break;
      case BAL:
	if (lehetbalra(aktmeret,&uresx,&uresy))
	  balratol(matrix,&uresx,&uresy);
	break;
    }
  }
  if (c!=KILEP) printf("GRATULµLOK, ™N NYERT!!!");
}