//1)lathos me ti malloc,de diavazo sosta onoma kai typo
//2)elegxos gia athroisma xriston(prepei na einai toylaxiston 1)
//3)olo to 3
//4)check gia 26 grammata
//5)apodesmeusi name kai type
//6)den afinoyme tipota ellinika
//7)backslash n stylish changes
//8)na tsekaro an uparxei xoros se kathe malloc
//9)na tsekaro gia yes kai no
//player 0 is down, 1 is left, 2 is up, 3 is right
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <time.h>
int main(void)
{

    //----------------arxikes diastaseis tamplo -----------------
    int dimensions=10,yes,no,flag=1,max,length,*type,users=0, user, computer,sumi,sumj,obnum,k,newflag,co1,co2,co3,co4,spot,obcounter;
    char yesno[4],*nam,**name,**array,typ[9],*symbol,sym;
    int i,players,j;
    int sp, counter=0, player,**pcoord;
	int userflag = 1;
	int direction,match,*wincon;
	int a1=0,exit,target,help;
	char move[6];
//	time_t t;
    //----------------epalitheusi gia to an thelei o xristis na paiksei me tis prokathorismens diastaseis------
	srand(time(NULL));
    do
    {
        printf("Do you want to play by defaut dimensions(10X10)?(yes/no) ");
        scanf("%s", yesno);
        yes=strcmp(yesno,"yes");
        no=strcmp(yesno,"no");
        if ((yes==0)||(no==0))
        {
           flag=0;
        }
        if (flag==1)
        {
           printf("\nWrong input.Please choose between default dimensions(yes) and custom dimensions(no) ");
        }
    }while (flag!=0);
    //---------------epalitheusi gia to oti oi custom diastaseis tha einai megaliteris i ises tou 5------
    if (no==0)
    {
       do
       {
           printf("\nChoose your own dimensions ");
           scanf("%d", &dimensions);
           if (dimensions<5)
           {
               printf("\nWrong input.Please choose a number >=5 and <=26");
           }
       }while((dimensions<5)||(dimensions>26));
    }
    //--------------------paixtes-------------------------
    //--------------------arithmos paixton-----------------
    do
    {
        printf("\nChoose the number of players (2 or 4) ");
        scanf("%d",&players);
        if (!((players==2)||(players==4)))
        {
            printf("\nWrong input.Please choose between 2 or 4 ");
        }
    }while(!((players==2)||(players==4)));
    //-------------------onoma kai typos paixton-----------
    nam=(char*)malloc(players*101);
    for (i=0;i<players;i++)
    {
        nam[i]='\0';
    }
    printf("\nEnter the name and the type(user or computer) of each player.Keep in mind that there should be at least one user ");
    type=(int*)malloc(players);
    symbol=(char*)malloc(players);
    for (i=0;i<players;i++)
    {
    	symbol[i]='0';
        type[i]=1;
    }
        max=0;
    i=0;
    while((nam[i]!='\0')&&(i<101))
    {
        max++;
        i++;
    }
    length=0;
    for (i=101;i<(players*101);i=i+101)
    {
        while(nam[i]!='\0')
        {
            length++;
            i++;
        }
        if (length>max)
        {
            max=length;
        }
        i=i-length;
        length=0;
    }
    max=max+1;
    name=(char**)malloc(players*sizeof(char*));
    for (i=0;i<players;i++)
    {
        name[i]=(char*)malloc(max*sizeof(char));
    }
    for (i=0;i<players;i++)
    {
        printf("\nEnter the name of player number %d ",i+1);
        scanf("%s",&nam[i*101]);
        printf("\nEnter the type of player number %d ",i+1);
        flag=1;
        do
        {
            scanf("%s", typ);
            user=strcmp(typ,"user");
            computer=strcmp(typ,"computer");
            if ((user==0)||(computer==0))
            {
               flag=0;
            }
            if (flag==1)
            {
               printf("\n Wrong input.Please choose one of your options (user,computer) ");
            }
        }while (flag!=0);
        printf("\nEnter the symbol of player number %d .You can choose between (#,*,&,@) ",i+1);
        flag=1;
        do
        {
        	if (flag==2)
        	{
        		flag=1;
			}
            scanf("%s",&sym);
            if ((sym=='#')||(sym=='@')||(sym=='&')||(sym=='*'))
            {
            	flag=0;
            	for (j=0;j<players;j++)
            	{
	            	if (sym==symbol[j])
	            	{
	            		flag=2;
	            		printf("Another player  already has this symbol taken.Please choose another one (#,*,&,@)  ");
					}
				}
            }
            if (flag==1)
            {
               printf("\nWrong input.Please choose one of your options (#,*,&,@) ");
            }
            if ((flag!=2)&&(flag!=1))
            {
            	flag=0;
            	symbol[i]=sym;
			}
        }while (flag!=0);
        if (user==0)
        {
            users++;
            type[i]=0;
        }

        for (j=0;j<max;j++)
        {
   	    	name[i][j]=nam[j+(i*101)];
       	}
    }

    if (users==0)
    {
        do
        {
            printf("There must be at least on user.Please re-enter the type of each player,making sure that there is one user! ");
            flag=1;
            for (i=0;i<players;i++)
            {
                printf("\n Enter the type of player number %d ",i+1);
                do
                {

                    scanf("%s", typ);
                    user=strcmp(typ,"user");
                    computer=strcmp(typ,"computer");
                    if ((user==0)||(computer==0))
                    {
                       flag=0;
                    }
                    else
                    {
                       printf("\n Wrong input.Please choose one of your options (user,computer) ");
                    }
                }while (flag!=0);

            }
        }while(users==0);
    }
    for (i=0;i<players;i++)
    {
        j=0;
        printf("\nThe player with the name ");
        while((name[i][j]!='\0')&&(j<max))
        {
            printf("%c",name[i][j]);
            j++;
        }

        printf(" is a ");
        if (type[i]==0)
        {
            printf("user");
        }
        if (type[i]==1)
        {
            printf("computer");
        }
        printf(" and his symbol is %c  ",symbol[i]);
        printf("\n");
    }
	flag=1;
    do
    {
        printf("\nDo you want the map to be populated by obstacles?(yes/no) ");
        scanf("%s", yesno);
        yes=strcmp(yesno,"yes");
        no=strcmp(yesno,"no");
        if ((yes==0)||(no==0))
        {
           flag=0;
        }
        if (flag==1)
        {
           printf("\nWrong input.Choose between (yes) and (no) ");
        }
    }while (flag!=0);
    sumi=dimensions+2;
    sumj=dimensions+3;
    array=(char**)malloc((sumi)*sizeof(char*));
    possible=(char**)malloc((sumi)*sizeof(char*));
    for (i=0;i<sumi;i++)
    {
    	array[i]=(char*)malloc((sumj)*sizeof(char));
    	possible[i]=(char*)malloc((sumj)*sizeof(char));
    }

	for (i = 0; i < sumi; i++)
	{
		if ((i > 1) && (i < 11))
		{
			array[i][0] = i - 1 + '0';
			array[i][1] = ' ';
			array[i][2] = '|';
			for (j = 3; j < sumj; j++)
			{
				array[i][j] = '.';
			}
		}
		else
		{
			array[i][0] = ((i -1)/10) + '0';
			array[i][1] = ((i -1)%10) + '0';
			array[i][2] = '|';
			for (j = 3; j < sumj; j++)
			{
				array[i][j] = '.';
			}
		}
		if (i == 0)
		{
			array[i][2] = '|';
			for (j = 3; j < sumj; j++)
			{
				array[i][j] = j - 3 + 'a';
			}
		}
		if (i == 1)
		{
			for (j = 0; j < sumj; j++)
			{
				array[i][j] = '-';
			}
		}
	}
	array[0][0]=' ';
	array[0][1]=' ';
	array[0][2]=' ';

	obnum = ((dimensions - 1)/2);

	//after do{}while (counter < players);
	if (yes == 0){
	        do{
	            newflag=1;//used to confirm that the spot for the first piece of the obstacle is surrounded by at least one more dot
	            do{
	                do{
	                    co1 = (rand() % dimensions) + 2;
	                    co2 = (rand() % dimensions) + 3;
	                }while (array[co1][co2] != '.');
	                spot = rand() % 4;
	                if((spot == 0) && (array[co1+1][co2] == '.')){
	                    co3=co1+1;
	                    co4=co2;
	                    newflag=0;
	                }
	                else if((spot == 1) && (array[co1-1][co2] == '.')){
	                    co3=co1-1;
	                    co4=co2;
	                    newflag=0;
	                }
	                else if((spot == 2) && (array[co1][co2+1] == '.')){
	                    co3=co1;
	                    co4=co2+1;
	                    newflag=0;
	                }
	                else if((spot == 3) && (array[co1][co2-1] == '.')){
	                    co3=co1;
	                    co4=co2-1;
	                    newflag=0;
	                }
	            }while(newflag!=0);
	            array[co1][co2] = 'X';//there was a random } here. keep this in mind...
	            array[co3][co4] = 'X';
	            obnum--;
	        }while(obnum > 0);
	    }
	//direction becomes 0 (up), 1 (left) or 2 (right) through the use of rand(). Keep this comment in the code
	//it is later used to check a direction's corresponding starting point for availability to put a player on
	sp = (dimensions/2) + 1;
	wincon=(int*)malloc(players*sizeof(int));
	//malloc an array the size of players called wincon. it will save the characters u, l, r and d
	//which will be the opposite of the player's direction when he is being given a starting point
	//malloc an array named pcoord which will be players x 2, where player coordinates will be saved
	//initialize all of pcoord to be dimensions + 1
	pcoord=(int**)malloc(players*sizeof(int*));
	for (i=0;i<players;i++)
	{
		pcoord[i]=(int*)malloc(2*sizeof(int));
	}
	for (i=0;i<players;i++)
	{
		wincon[i]=5;
		for (j=0;j<2;j++)
		{
			pcoord[i][j]=(dimensions+7);
		}
	}
	do
	{
		player=rand()%players;
		if(pcoord[player][0] == (dimensions + 7))
		{ //this if checks if the player has already had his starting point set
			if((type[player] == 0) && (userflag == 1))
			{ //this if checks for the first randomly chosen player
				pcoord[player][0] = sumi-1;
				pcoord[player][1] = sp+1;
				wincon[player] = 1;
				array[sumi-1][sp+1] = symbol[player];
				userflag = 0;
				counter++; //now that a new player has had his starting point set, the counter can increment
			}
			else
			{
				if (players==2)
				{
					pcoord[player][0]=2;
					pcoord[player][1]=sp+1;
					wincon[player]=3;
					array[2][sp+1]=symbol[player];
					counter++;
				}
				if (players==4)
				{
					direction = rand()%3;
					//randomly check a direction
					//check for direction's availability. we could potentially use a small array, but i did it the hard way
					//make the check in a loop. might need a new variable
					if ((direction == 0) && (array[2][sp] == '.'))
					{ //0 is for starting position up (array[2][sp])
						pcoord[player][0] = 2;
						pcoord[player][1] = sp;
						wincon[player] = 3;
						array[2][sp+1] = symbol[player];
						counter++; //now that a new player has had his starting point set, the counter can increment
					}
					else if((direction == 1) && (array[sp][3] == '.'))
					{ //1 is for starting position left (array[sp][3])
							pcoord[player][0] = sp;
							pcoord[player][1] = 3;
							wincon[player] = 2;
							array[sp][3] = symbol[player];
							counter++; //now that a new player has had his starting point set, the counter can increment
					}
					else if((direction == 2) && (array[sp][sumj-1] == '.'))
					{
					 //2 is for starting position right (array[sp][sumj])
						//could have gone for a simple else, but put the check in as a precaution
						pcoord[player][0] = sp;
						pcoord[player][1] = sumj-1;
						wincon[player] = 4;
						array[sp][sumj-1] = symbol[player];
						counter++; //now that a new player has had his starting point set, the counter can increment
					}
				}
			}
		}
	}while (counter < players);
    for (i = 0; i < sumi; i++)
    {
    	printf("\n");
    	for (j=0;j<sumj;j++)
    	{
    		printf("%c ",array[i][j]);
    	}
    }
	for(i=0;i<players;i++)
	{
		exit=1;
		help=1;
		if (players==2)
		{
			if ((wincon[i]==1)||(wincon[i]==3))
			{
				j=0;
				while((name[i][j]!='\0')&&(j<max))
		        {
		            printf("\n%d",wincon[i]);
		            j++;
		        }
				do
			    {
			        printf(" is playing.Enter the coordinates of the square you want to move to,or the coordinates of the squares you want to place an obstacle.You can also enter 'help' or 'exit')");
			        scanf("%s", move);
			        exit=strcmp(move,"exit");
			        help=strcmp(move,"help");
			        flag=1;
			        if (!(exit==0)||(help==0))
			        {
			        	target=strlen(move);
			        	match=0;
			        	j=0;
			        	while((j<target)&&(flag==1))
				        {
				        	if (j==0)
				        	{
				        		for (k = 3; k < sumj; k++)
				        		{
					        		if (array[0][k]!=move[j])
									{
										match++;
									}
									else
									{
										a1=0;
									}
								}

							}
							else
							{
								//an o proigoumenos einai arithmos
								if(a1==1)
								{
									for (k = 3; k < sumj; k++)
					        		{
						        		if (array[0][k]!=move[j])
										{
											match++;
										}
										else
										{
											a1=0;
										}
									}
									for (k=2;k<sumi;k++)
									{
										if(array[k][1]!=move[j])
										{
											match++;
										}
										else
										{
											a1=1;
										}
									}
								}
								else
								{
									for(k=2;k<sumi;k++)
									{
										if(array[k][0]!=move[j])
										{
											match++;
										}
										else
										{
											a1=1;
										}
									}
								}
							}
						j++;
						}

			        }
			        if (match!=0)
			        {
			           printf("\n Wrong input.");
			        }
			    }while (match!=0);
			}
		}
		if (players==4)
		{
			if (wincon[i]==i+1)
			{
				j=0;
				while((name[i][j]!='\0')&&(j<max))
		        {
		            printf("\n%d",wincon[i]);
		            j++;
		        }
				do
			    {
			        printf(" is playing.Enter the coordinates of the square you want to move to,or the coordinates of the squares you want to place an obstacle.You can also enter 'help' or 'exit')");
			        scanf("%s", move);
			        exit=strcmp(move,"exit");
			        help=strcmp(move,"help");
//			        flag=1;
			        if (!(exit==0)||(help==0))
			        {
			        	target=strlen(move);
			        	match=0;
			        	j=0;
			        	while((j<target)&&(flag==1))
				        {
				        	if (j==0)
				        	{
				        		for (k = 3; k < sumj; k++)
				        		{
					        		if (array[0][k]!=move[j])
									{
										match++;
									}
									else
									{
										a1=0;
									}
								}

							}
							else
							{
								//an o proigoumenos einai arithmos
								if(a1==1)
								{
									for (k = 3; k < sumj; k++)
					        		{
						        		if (array[0][k]!=move[j])
										{
											match++;
										}
										else
										{
											a1=0;
										}
									}
									for (k=2;k<sumi;k++)
									{
										if(array[k][1]!=move[j])
										{
											match++;
										}
										else
										{
											a1=1;
										}
									}
								}
								else
								{
									for(k=2;k<sumi;k++)
									{
										if(array[k][0]!=move[j])
										{
											match++;
										}
										else
										{
											a1=1;
										}
									}
								}
							}
						j++;
						}

			        }
			        if (match!=0)
			        {
			           printf("\n Wrong input.");
			        }
			    }while (match!=0);
			}
		}
	}

    for (i=0;i<players;i++)
    {
    	free (name[i]);
    	free(pcoord[i]);
	}
	for (i = 0; i < sumi; i++)
    {
    	free (array[i]);
    }
    free(nam);
    free(type);
    free(symbol);
    free(wincon);
    free(array);
    free(name);
    free(pcoord);
    return 0;
}