2048 completo

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

#define TAM 4

typedef struct
{
    int linha, coluna;
} Posicao;

typedef struct
{
    int mat[TAM][TAM];
    int maiorNum[1];
    int menorNum[1];
} Tabuleiro;

typedef struct
{
    char nome[3];
    double tempo;
} Player;

void removeEnter(char v[])
{
    int i;
    for(i = 0; v[i] != '\0'; i++)
        if(v[i] == '\n')
        {
            v[i] = '\0';    // substitui o '\n' por '\0'
            break;
        }
}

//retorta 1 caso sejam iguais, 0 caso não
int matrizesIguais(int mat1[][TAM], int mat2[][TAM])
{
    int i, j;
    for(i = 0; i < TAM; i++)
        for(j = 0; j < TAM; j++)
            if(mat1[i][j] != mat2[i][j])
                return 0;
    return 1;
}

//retorta 1 caso sejam iguais, 0 caso não
int stringsIguais(char v[], char s[])
{
    int i;
    for(i = 0; v[i] != '\0' && s[i] != '\0'; i++)
        if (v[i] != s[i])
            return 0;
    return 1;
}

Tabuleiro atualizaTabuleiro(Tabuleiro tab, char opcao)
{
    int i, j, k;
    switch(opcao)
    {
    case 'w':
    case 'W':
        for(j = 0; j < TAM ; j++)   //lê as colunas da esquerda para a direita
        {
            for(i = 0; i < TAM ; i++) //lê as linhas de cima para baixo
            {
                if(!tab.mat[i][j])  //caso o elemento seja nulo
                {
                    for(k = i + 1; k < TAM ; k++) //percorre aquela coluna ate achar um elemento nao-nulo
                        if(tab.mat[k][j])
                        {
                            tab.mat[i][j] = tab.mat[k][j]; //coloca o elemento nao nulo no primeiro elemento nulo daquela coluna
                            tab.mat[k][j] = 0;      //o lugar do elemento nao nulo torna-se nulo
                            break;
                        }
                }
            }
            for(i = 0; i < TAM - 1; i++) // soma os numeros caso eles sejam iguais
            {
                if(tab.mat[i + 1][j] == tab.mat[i][j])
                {
                    tab.mat[i][j] *= 2;
                    for(k = i + 1; k < TAM - 1 && tab.mat[k + 1][j] != 0; k++)
                        tab.mat[k][j] = tab.mat[k + 1][j];
                    tab.mat[k][j] = 0;
                }
            }
        }

        break;

    case 'a':
    case 'A':
        for(i = 0; i < TAM ; i++)// lê as linhas de cima para baixo
        {
            for(j = 0; j < TAM ; j++)   //lê as colunas da esquerda para a direita
            {
                if(!tab.mat[i][j])    //caso o elemento seja nulo
                {
                    for(k = j + 1; k < TAM ; k++) //percorre aquela linha ate achar um elemento nao-nulo
                        if(tab.mat[i][k])
                        {
                            tab.mat[i][j] = tab.mat[i][k];  //coloca o elemento nao nulo no primeiro elemento nulo daquela linha
                            tab.mat[i][k] = 0;        //o lugar do elemento nao nulo torna-se nulo
                            break;
                        }
                }
            }
            for(j = 0; j < TAM - 1; j++)
            {
                if(tab.mat[i][j + 1] == tab.mat[i][j])
                {
                    tab.mat[i][j] *= 2;
                    for(k = j + 1; k < TAM - 1 && tab.mat[i][k + 1] != 0; k++)
                        tab.mat[i][k] = tab.mat[i][k + 1];
                    tab.mat[i][k] = 0;
                }
            }
        }

        break;

    case 's':
    case 'S':
        for(j = 0; j < TAM ; j++)  //lê as colunas da esquerda para a direita
        {
            for(i = TAM - 1; i >= 0 ; i--)  //lê as linhas da baixo para cima
            {
                if(!tab.mat[i][j])    //caso o elemento seja nulo
                {
                    for(k = i - 1 ; k >= 0 ; k--) //percorre aquela coluna de baixo para cima ate achar um elemento nao-nulo
                        if(tab.mat[k][j])
                        {
                            tab.mat[i][j] = tab.mat[k][j]; //coloca o elemento nao nulo no ultimo elemento nulo daquela coluna
                            tab.mat[k][j] = 0;        //o lugar do elemento nao nulo torna-se nulo
                            break;
                        }
                }
            }
            for(i = TAM - 1; i > 0 ; i--)
            {
                if(tab.mat[i - 1][j] == tab.mat[i][j])
                {
                    tab.mat[i][j] *= 2;
                    for(k = i - 1; k > 0 && tab.mat[k - 1][j] != 0; k--)
                        tab.mat[k][j] = tab.mat[k - 1][j];
                    tab.mat[k][j] = 0;
                }
            }
        }

        break;

    case 'd':
    case 'D':
        for(i = 0; i < TAM ; i++)  // lê as linhas de cima para baixo
        {
            for(j = TAM - 1; j >= 0 ; j--)  //lê as colunas da direita para a esquerda
            {
                if(!tab.mat[i][j])    //caso o elemento seja nulo
                {
                    for(k = j - 1; k >= 0; k--) //percorre aquela linha da direita para a esquerda ate achar um elemento nao-nulo
                        if(tab.mat[i][k])
                        {
                            tab.mat[i][j] = tab.mat[i][k]; //coloca o elemento nao nulo no ultimo elemento nulo daquela linha
                            tab.mat[i][k] = 0;        //o lugar do elemento nao nulo torna-se nulo
                            break;
                        }
                }
            }
            for(j = TAM - 1; j > 0 ; j--)
            {
                if(tab.mat[i][j - 1] == tab.mat[i][j])
                {
                    tab.mat[i][j] *= 2;
                    for(k = j - 1; k > 0 && tab.mat[i][k - 1] != 0; k--)
                        tab.mat[i][k] = tab.mat[i][k - 1];
                    tab.mat[i][k] = 0;
                }
            }
        }

        break;
    }
    return tab;
}

void imprimeTabuleiro(int mat[][TAM])
{
    printf("\n");
    printf("\t\t16\n");
    printf("\t       ======\n\n");
    int i, j;
    for(i = 0; i < TAM; i++)
    {
        printf("\t ");
        for(j = 0; j < TAM; j++)
            if (mat[i][j] != 0)
            {
                printf("|%3d ", mat[i][j]);
            }
            else
                printf("|    ");
        printf("|\n");
    }
    printf("\n\n");
    printf("\t\t^\n");
    printf("\t\tw\n");
    printf("\t    <a     d>\n");
    printf("\t\ts\n");
    printf("\t\tv");
}


//percorre a matriz até achar o maior e o menor numero dela
Tabuleiro checaMaiorMenor(Tabuleiro tab)
{
    int i, j;
    tab.maiorNum[0] = 0;
    tab.menorNum[0] = 0;
    for(i = 0; i < TAM; i++)
    {
        for(j = 0; j < TAM; j++)
        {
            if (tab.maiorNum[0] < tab.mat[i][j])
                tab.maiorNum[0] = tab.mat[i][j];
            if (tab.menorNum[0] > tab.mat[i][j])
                tab.menorNum[0] = tab.mat[i][j];
        }
    }
    return tab;
}

int acabouJogo(int mat[][TAM])
{
    int i, j, aux = 1;
    for(i = 0; i < TAM; i++)
        for(j = 0; j < TAM; j++)
        {
            if(mat[i][j] == 16)
                return 1;
            if(aux == 1)
            {
                if(mat[i][j] == 0)
                    aux = 0;
                else if(aux == 1)
                {
                    if(i - 1 >= 0)
                        if(mat[i - 1][j] == mat[i][j])
                            aux = 0;
                    if(i + 1 < TAM)
                        if(mat[i + 1][j] == mat[i][j])
                            aux = 0;
                    if(j - 1 >= 0)
                        if(mat[i][j - 1] == mat[i][j])
                            aux = 0;
                    if(j + 1 < TAM)
                        if(mat[i][j + 1] == mat[i][j])
                            aux = 0;
                }
            }
        }
    if(aux)
        return -1;
    return 0;
}

Tabuleiro jogo()
{
    Tabuleiro tab, controle, controle1; //variavel do tabuleiro e duas variaveis de controle para comparação
    char direcao; //direção de rotação do tabuleiro escolhida pelo jogador

    //variaveis auxiliares
    int novoNum;
    int i, j;
    Posicao posicao;

    srand(time(NULL));


    //preenche o tabuleiro com 0
    for(i = 0; i < TAM; i++)
    {
        for(j = 0; j < TAM; j++)
        {
            tab.mat[i][j] = 0;
        }
    }
    controle = tab;

    do
    {
        tab = checaMaiorMenor(tab);

        //gera um 2 ou um 4 para colocar no tabuleiro
        novoNum = rand() % 2 + 1;
        novoNum *= 2;

        //procura uma posição nula aleatória para armazenar o novo numero gerado
        if (tab.menorNum[0] == 0)
        {
            do
            {
                posicao.linha = rand() % TAM;
                posicao.coluna = rand() % TAM;
            }
            while(tab.mat[posicao.linha][posicao.coluna]);
        }
        tab.mat[posicao.linha][posicao.coluna] = novoNum;


        printf("\n\n");
        system("cls");
        imprimeTabuleiro(tab.mat);

        controle = tab;
        do
        {
            scanf("%c%*c", &direcao);
            while(direcao != 'w' && direcao != 'a' && direcao != 's' && direcao != 'd' && direcao != 'W' && direcao != 'A' && direcao != 'S' && direcao != 'D')
            {
                scanf("%c%*c", &direcao);
            }
            tab = atualizaTabuleiro(tab, direcao);

            //rotaciona controle1 para verificar se existe algum movimento possivel
            controle1 = tab;
            controle1 = atualizaTabuleiro(controle1, 'w');
            controle1 = atualizaTabuleiro(controle1, 'a');
            controle1 = atualizaTabuleiro(controle1, 's');
            controle1 = atualizaTabuleiro(controle1, 'd');

        }
        //faz tudo isso enquanto há movimentos possíveis e a movimentação não mudar o tabuleiro
        //(ex.: a pessoa aperta w 500x mesmo não existindo mais nenhum movimento apertando a tecla w)
        while(matrizesIguais(tab.mat, controle.mat) && !(matrizesIguais(tab.mat, controle1.mat)));


        //imprime o novo tabuleiro rotacionado
        system("cls");
        imprimeTabuleiro(tab.mat);
        tab = checaMaiorMenor(tab);
    }
    //verifica se a pessoa terminou o jogo ou se não há mais movimentos possíveis
    while(!acabouJogo(tab.mat));
    system("cls");
    return tab;
}



void salvaRank(Player player[], double tempo_de_cpu)
{
    FILE *ranking;
    int i, j, numJogadores, aux;

    for(numJogadores = 0; player[numJogadores].tempo != -1 ; numJogadores++);// conta o numero de nomes que ja foram salvos

    //caso o numero de jogadores no rank ja seja maximo e o tempo da pessoa foi maior que o ultimo colocado
    if(numJogadores == 5 && tempo_de_cpu > player[5].tempo)
        return;

    //adiciona o player na sua posição no board já ordenado
    aux = 1;
    for(i = 0; i < numJogadores; i++)
    {
        if(tempo_de_cpu < player[i].tempo)
            for(j = numJogadores; j > i; j--)
            {
                if(j < 5)
                    player[j] = player[j - 1];

                printf("\n\n\tDigite 3 letras: a");
                fgets(player[i].nome, 4, stdin);
                removeEnter(player[i].nome);
                player[i].tempo = tempo_de_cpu;
                aux = 0;
                numJogadores++;
                break;
            }
        if (aux == 0)
            break;
    }

    //caso o nome da pessoa não tenha sido adicionado, coloca-o em ultimo
    if(aux)
    {
        printf("\n\n\tDigite 3 letras: b");
        fgets(player[i].nome, 4, stdin);
        removeEnter(player[i].nome);
        player[i].tempo = tempo_de_cpu;
        numJogadores++;
    }

    //salva o novo board de ranking no .txt
    ranking = fopen("Ranking.txt", "w");
    if(ranking == NULL)
    {
        system("cls");
        printf("Erro");
        system("pause");
        exit(-1);
    }


    for(i = 0; i < numJogadores && i < 5; i++)
    {
        fprintf(ranking, "%s\n", player[i].nome);
        fprintf(ranking, "%lf\n", player[i].tempo);
    }
}

void imprimeRank(Player player[])
{
    //imprime o ranking atual
    int i;
    system("cls");
    printf("\n\n\t\t  16\n");
    printf("\t         ======\n\n");
    printf("\t      FIM DE JOGO!\n");
    printf("\t     ==============\n\n");
    printf("\n\t\tRANKING:\n");
    printf("\t       ==========\n\n");
    printf("\tLUGAR     NOME      TEMPO\n");
    for(i = 0; i < 5; i++)
    {
        if(player[i].tempo < 0)
            break;
        printf("\t");
        printf("   %d      %-10s   ", i + 1, player[i].nome);
        printf("      %.3lf", player[i].tempo);
        printf("\n");
    }
}

void rank(Player player[])
{
    /*

    Talvez o outro erro que mencionei esteja aqui, não faço ideia tho, deem uma olhada por essas funções de ranking
    a logica delas é meio estranha, entao se precisarem que eu explique, só me chamar

    */
    // abre e coleta os dados no .txt
    int i;
    FILE *ranking;
    ranking = fopen("Ranking.txt", "a");

    //preenche o tempo de todos os players com -1 para contagem do numero de players futuramente
    for(i = 0; i < 5 ; i++)
        player[i].tempo = -1;


    //coloca um EOF no final para comparações futuras
    if(ranking == NULL)
    {
        system("cls");
        printf("Erro");
        system("pause");
        exit(-1);
    }
    fprintf(ranking, "\n%c", EOF);
    fclose(ranking);

    ranking = fopen("Ranking.txt", "r");
    if(ranking == NULL)
    {
        system("cls");
        printf("Erro");
        system("pause");
        exit(-1);
    }

    for (i = 0; i < 5 && (int)ranking != EOF; i++)
    {
        fgets(player[i].nome, 5, ranking);
        removeEnter(player[i].nome);
        fscanf(ranking, "%lf%*c", &player[i].tempo);
    }
    fclose(ranking);
}

void instrucoes()
{
    system("cls");
    printf("\n\n\t\t  16\n");
    printf("\t         ======\n\n");
    printf("\t1: Digite as teclas W, A, S e D para mover a grade\n");
    printf("\t2: Quando voce junta numeros iguais, eles se somam\n");
    printf("\t3: Tente chegar a 2048!\n\n");
    printf("Aperte qualquer tecla para continuar\n");
    scanf("%*c");
}

int main(int argc, char** argv)
{
    Tabuleiro tab;
    clock_t inicio, fim;
    double tempo_de_cpu;
    Player player[5];
    char opcao, opcao1;

    do
    {
        opcao = 'k';
        do
        {
            system("cls");
            printf("\n\n\t\t  16\n");
            printf("\t         ======\n\n");
            printf("\tJ:JOGAR\n");
            printf("\tI:INSTRUCOES\n");
            printf("\tS:SAIR\n");
            scanf("%c%*c", &opcao);
        }
        while(opcao != 'j' && opcao != 'J' && opcao != 'i' && opcao != 'I' && opcao != 's' && opcao != 'S');

        switch(opcao)
        {
        case 'j':
        case 'J':

            //conta o tempo de jogo
            inicio = clock();

            tab = jogo();

            fim  = clock();
            tempo_de_cpu = ((double)(fim - inicio)) / CLOCKS_PER_SEC;


            //chama as funções de exibição de fim de jogo
            if(tab.maiorNum[0] == 16)
            {
                rank(player);
                salvaRank(player, tempo_de_cpu);
                imprimeRank(player);
            }
            else
            {
                rank(player);
                imprimeRank(player);
            }
            break;

        case 'i':
        case 'I':
            instrucoes();
            break;
        case 's':
        case 'S':
            break;
        }
        if (opcao == 'j' || opcao == 'J')
        {
            opcao1 = 'k';
            system("cls");
            printf("\n\n\tDIGITE J PARA JOGAR NOVAMENTE\n\tOU QUALQUER OUTRA LETRA PARA SAIR!");
            scanf("%c1%*c", &opcao1);
        }

    }
    while(opcao1 == 'j' || opcao1 == 'J' || opcao == 'i' || opcao == 'I');

    return 0;
}