#include <stdlib.h>
#include <stdio.h>
#include <graph.h>
#include <time.h>
#define CYCLE 10000L

void DessinerScene(int murx[], int mury[], int minute, int seconde, char timer []){
    int mur;
    int i;
    int fond;
    snprintf(timer,6,"%02d:%02d", minute ,seconde);
    ChoisirCouleurDessin(CouleurParComposante(91,222,122));
    RemplirRectangle(20,20,1160,700);
    ChoisirCouleurDessin(CouleurParComposante(255,255,255)); 
    fond = ChargerSprite("../img/fond.png");
    mur = ChargerSprite("../img/mur.png");
    srand(time(NULL));
    for(i=0; i<30; i++){
        murx[i] = ((rand() % (55)+1)*20);
        mury[i] = ((rand() % (35)+1)*20);
         AfficherSprite(mur, murx[i], mury[i]);
    }
}
void Score(int segment){
    int nombre;
    char score[4];
    nombre= (segment-10)*25;
    snprintf(score,4,"%04d0", nombre);
    ChoisirCouleurDessin(CouleurParNom("black"));
    RemplirRectangle(1100,700,1200,800);
    ChoisirCouleurDessin(CouleurParNom("white"));
    EcrireTexte(1000,760,"Score: ",2);
    EcrireTexte(1100,760,score,2);
}
void Update_Timer(int minute, int seconde, char timer[]){
    snprintf(timer,6,"%02d:%02d", minute, seconde);
    ChoisirCouleurDessin(CouleurParComposante(0,0,0));
    RemplirRectangle(10,700,12000,800);
    ChoisirCouleurDessin(CouleurParComposante(255,255,255));
    EcrireTexte(50,760,"time: ",2);
    EcrireTexte(120,760,timer,2);
}
void Update_Serpent(int pos_x[], int pos_y[], int segment, int old_x[], int old_y[], int* direction){
    int i = 0;
    int serpent=ChargerSprite("../img/serpent.png");
    int fond = ChargerSprite("../img/fond.png");
    for (i=1 ; i<segment ; i++){
        pos_x[i]=old_x[i-1];
        pos_y[i]=old_y[i-1];
    }
    
    if (*direction == 1){
        pos_y[0]=old_y[0]-20;
    }
    if (*direction == 2) {
        pos_y[0]=old_y[0]+20;
    }
    if (*direction == 3) {
        pos_x[0]=old_x[0]-20;
    }
    if (*direction == 4) {
        pos_x[0]=old_x[0]+20;
   }

    for (i=0 ; i<segment ; i++){
        printf("fond : %d %d\n",old_x[i],old_y[i]);
        AfficherSprite(fond, old_x[i], old_y[i]);
        old_x[i]=pos_x[i];
        old_y[i]=pos_y[i];
    }

    for (i=0 ; i<segment ; i++){
        printf("serpent : %d %d\n",pos_x[i],pos_y[i]);
        AfficherSprite(serpent, pos_x[i], pos_y[i]);
    }

}
void Collision_Serpent(int pos_x[], int pos_y[], int segment, int murx[], int mury[], int *go_on){
    int mur;
    int i;
    mur = ChargerSprite("../img/mur.png");
    /*Serpent contre coté*/
    if (pos_x[0] >1160 || pos_x[0]<=20){
            *go_on=0;
    }
    /*Serpent contre coté*/
    if (pos_y[0]<40 || pos_y[0] >=700){
        *go_on=0;
    }
    /*Serpent contre Serpent*/
    for (i = 1; i < segment; i++) {
        if (pos_x[0] == pos_x[i] && pos_y[0] == pos_y[i]){
            *go_on = 0;
        }
    }
    /*Serpent contre mur*/
    for(i=0; i<30;i++){
        if(pos_x[0] == murx[i] && pos_y[0] == mury[i]){
            *go_on=0;
        }
    }
}
void Timer(int *minute, int *seconde, unsigned long int *suivant, int *seconde_actuel, int *old_seconde, char timer[]){
    if(Microsecondes()> *suivant){
        *suivant = Microsecondes()+CYCLE;
        *seconde_actuel = (*suivant/1000000)%10;
        if(seconde_actuel !=old_seconde){
            *old_seconde = *seconde_actuel;
            if(*seconde == 59){
                *minute=*minute+1;
                *seconde=0;
                Update_Timer(*minute, *seconde, timer);
            }else{
                *seconde = *seconde+1;
                Update_Timer(*minute, *seconde, timer);
            }
        }
    }
}
void Controle(int *direction, int last_direction, int *go_on) {
    int t;
    while(ToucheEnAttente()) {
        t = Touche();
        switch(t) {
            case XK_Left:
                if (last_direction != 4) {
                    *direction = 3;
                }
                return;
            case XK_Right:
                if (last_direction != 3) {
                    *direction = 4;
                }
                return;
            case XK_Up:
                if (last_direction != 2) {
                    *direction = 1;
                }
                return;
            case XK_Down:
                if (last_direction != 1) {
                    *direction = 2;
                }
                return;
            case XK_Escape:
                *direction = 0;
                *go_on = 0;
                return;
            case XK_p:
                *direction = 0;
        }
    }
}
void Serpent(int pos_x[], int pos_y[], int old_x[], int old_y[], int *segment, int murx[], int mury[], int *go_on, int *direction) {
    int serpent;
    pos_x[0] = 600;
    pos_y[0] = 400;
    int i = 0;
    for (i = 0; i < *segment; i++){
      pos_x[i]= pos_x[0];
      pos_y[i]= pos_y[0];
      old_x[i]=pos_x[i];
      old_y[i]=pos_y[i];
    }
}
void InitialiserPommes(int pommex[], int pommey[], int segment) {
    int p;
    int pomme;
    pomme = ChargerSprite("../img/pomme.png");
    for (p = 0; p < 5; p++) {
        pommex[p] = ((rand() % (55) + 1) * 20);
        pommey[p] = ((rand() % (35) + 1) * 20);
        AfficherSprite(pomme, pommex[p], pommey[p]);
    }
}
void Pomme(int pos_x[], int pos_y[], int pommex[], int pommey[], int *segment){
    int p;
    int pomme;  
    pomme=ChargerSprite("../img/pomme.png");
    for (p = 0; p < 5; p++) {
        AfficherSprite(pomme, pommex[p],pommey[p]);
    }
    for(p=0; p<5; p++){
        if(pommex[p]==pos_x[0] && pommey[p]==pos_y[0]){
            (*segment) +=2;
            pommex[p] = ((rand() % (60)+1)*20);
            pommey[p] = ((rand() % (27)+1)*20);
        }
    }
}
int main(void){
    int segment = 10;
    int go_on = 1;
    int direction = 4;
    int minute = 0;
    int seconde = 0;
    int seconde_actuel = 0;
    int old_seconde = 0;
    unsigned long int suivant;
    int pos_x[60];
    int pos_y[60];
    int old_x[60];
    int old_y[60];
    int pommex[5];
    int pommey[5];
    int murx[30];
    int mury[30];
    char timer[6];
    int *pointeur_segment = &segment;
    int *pointeur_go_on = &go_on;
    int *pointeur_direction = &direction;
    int *pointeur_minute = &minute;
    int *pointeur_seconde = &seconde;
    unsigned long int *pointeur_suivant = &suivant;
    int *pointeur_seconde_actuel = &seconde_actuel;
    int *pointeur_old_seconde = &old_seconde;
    InitialiserGraphique();
    CreerFenetre(350,100,1200,900);
    EffacerEcran(CouleurParComposante(0,0,0));
    suivant = Microsecondes()+CYCLE;
    old_seconde=(suivant/1000000)%10;
    DessinerScene(murx, mury, minute, seconde ,timer);
    InitialiserPommes(pommex, pommey, segment);
    Serpent(pos_x, pos_y, old_x, old_y, pointeur_segment, murx, mury, pointeur_go_on, pointeur_direction);
    while(go_on){
        Timer( pointeur_minute, pointeur_seconde,  pointeur_suivant, pointeur_seconde_actuel, pointeur_old_seconde, timer);
        Score(segment);
        Controle(pointeur_direction, 0, pointeur_go_on);
        Update_Serpent(pos_x, pos_y, segment, old_x, old_y, pointeur_direction);
        Collision_Serpent(pos_x, pos_y, segment, murx, mury, pointeur_go_on);
        usleep(1000000);
        Pomme(pos_x, pos_y, pommex, pommey, pointeur_segment);
    }
    FermerGraphique();
    return EXIT_SUCCESS;
}