#include "fxlib.h"
#include "Tron.h"
#include "MonochromeLib.h"
#include <stdio.h>
#include <stdlib.h>

FONTCHARACTER filename[]={'\\','\\','f','l','s','0','\\','t','r','o','n','r','.','t','x','t',0};

int x, choix, x_J1, x_J2, y_J1, y_J2;
int acc_y_J1, acc_y_J2, acc_x_J1, acc_x_J2;
int vitesse, nbrJoueur, niveauOrdi, handle;
int key, Tmenu;
char affichage[100];
char plateau[127][54];

int AddIn_main(int isAppli, unsigned short OptionNum)
{
    Bdisp_AllClr_DDVRAM();
    demmarage();
    choix=0;
    do{
        choix = menu();
        if(choix==1) jeu();
        if(choix==2) reglages();
        Bdisp_PutDisp_DD();
    }while(choix!=3);
    quitter();
}


// ======= Fonctions Prncipales =============


// A Faire !
void jeu(){
    int w=0;
    Bdisp_AllClr_DDVRAM();
    locate(8,1);
    Print("Tron");
    Bdisp_DrawLineVRAM(1,8,127,8);
    initialisation_plateau();
    lectureReglage();
    acc_y_J1 = acc_y_J2 = 0;
    acc_x_J1 = -1;
    acc_x_J2 = 1;
    x_J1 = 126;
    x_J2 = 2;
    y_J1 = y_J2 = 34;
    Bdisp_PutDisp_DD();
    SaveDisp(SAVEDISP_PAGE1);
    Tmenu=0;
    do{
        Bdisp_AllClr_DDVRAM();
        RestoreDisp(SAVEDISP_PAGE1);
        affichage_grille();
        Bdisp_SetPoint_VRAM(x_J1,y_J1,1);
        Bdisp_SetPoint_VRAM(x_J2,y_J2,1);
        
        sprintf(affichage,"%d-%d",x_J2,y_J2);
        PrintXY(0,0,affichage,0);
        
        Bdisp_PutDisp_DD();
        plateau[x_J1][y_J1-9]=1;
        plateau[x_J2][y_J2-9]=1;
        x_J1 += acc_x_J1;
        x_J2 += acc_x_J2;
        y_J1 += acc_y_J1;
        y_J2 += acc_y_J2;
        
        /* Aide affichage code touche
        sprintf(affichage,"%d",key);
        PrintXY(1,1,affichage,0);
        GetKey(&key);
        */
        
        // Deplacements J1
        if(IsKeyDown(30018) && y_J1>8 && acc_x_J1!=0) acc_x_J1=0, acc_y_J1=-1;
        if(IsKeyDown(30023) && y_J1<63 && acc_x_J1!=0) acc_x_J1=0, acc_y_J1=1;
        if(IsKeyDown(30020) && x_J1>0 && acc_y_J1!=0) acc_x_J1=-1, acc_y_J1=0;
        if(IsKeyDown(30021) && x_J1<127 && acc_y_J1!=0) acc_x_J1=1, acc_y_J1=0;
        
        // Mise en pause
        if(IsKeyDown(30002)) pause();
        
        // Deplacements J2
        if(nbrJoueur==2){
            if(IsKeyDown(30018) && y_J1>8 && acc_x_J1!=0) acc_x_J1=0, acc_y_J1=-1;
            if(IsKeyDown(30023) && y_J1<63 && acc_x_J1!=0) acc_x_J1=0, acc_y_J1=1;
            if(IsKeyDown(30020) && x_J1>0 && acc_y_J1!=0) acc_x_J1=-1, acc_y_J1=0;
            if(IsKeyDown(30021) && x_J1<127 && acc_y_J1!=0) acc_x_J1=1, acc_y_J1=0;
        }
        
        // Sinon Ordi
        else{
            // Ordi niveau 1
            if(niveauOrdi==1){
                if(plateau[x_J2+acc_x_J2][y_J2+acc_y_J2-9]==1 || acc_y_J2!=0 && (y_J2==9 || y_J2==63) || acc_x_J2!=0 && (x_J2==1 || x_J2==127)){
                    if(acc_y_J2==0) acc_x_J2=0, acc_y_J2=1;
                    else acc_y_J2=0, acc_x_J2=1;
                }
            }
            // Ordi niveau 2
            if(niveauOrdi==2){
                if(plateau[x_J2+acc_x_J2][y_J2+acc_y_J2-9]==1 || acc_y_J2!=0 && (y_J2==9 || y_J2==63) || acc_x_J2!=0 && (x_J2==1 || x_J2==126)){
                    w=0;
                    if(acc_y_J2==0){
                        if(plateau[x_J2][y_J2-8]==1) acc_x_J2=0, acc_y_J2=1;
                        else acc_x_J2=0, acc_y_J2=-1;
                        w=1;
                    }
                    if(acc_x_J2==0 && w==0){
                        if(plateau[x_J2-1][y_J2]==1) acc_x_J2=1, acc_y_J2=0;
                        else acc_x_J2=-1, acc_y_J2=0;
                    }
                }
            }
            // Ordi niveau 3 !!!!!!!!!!!! A FAIRE !!!!!!!!!!!!
            if(niveauOrdi==3){
                if(plateau[x_J2+acc_x_J2][y_J2+acc_y_J2-9]==1 || acc_y_J2!=0 && (y_J2==9 || y_J2==63) || acc_x_J2!=0 && (x_J2==1 || x_J2==127)){
                    if(acc_y_J2==0){
                        if(plateau[x_J2][y_J2-8]==1) acc_x_J2=0, acc_y_J2=1;
                        else acc_x_J2=0, acc_y_J2=-1;
                    }
                    else{
                        if(plateau[x_J2-1][y_J2]==1) acc_x_J2=0, acc_y_J2=1;
                        else acc_x_J2=0, acc_y_J2=-1;
                    }
                }
            }
        }
        
        // Test de collision !!!!!!! A FAIRE !!!!!!!!!
        
        Sleep(10*(10-vitesse));
    }while(Tmenu==0 && y_J1>=9 && y_J2>=9 && y_J1<64 && y_J2<64 && x_J1>=1 && x_J2>=1 && x_J1<128 && x_J2<128);
    
}

// Fini !
void reglages(){
    Bdisp_AllClr_DDVRAM();
    x=20;
    choix=1;
    locate(6,1);
    Print("+ Reglages +");
    Bdisp_DrawLineVRAM(1,8,127,8);
    PrintMini(20,20,"Vitesse:",0);
    PrintMini(20,30,"Nbr. Joueur:",0);
    PrintMini(20,40,"Niv. Ordi:",0);
    PrintMini(20,55,"Retour",0);
    lectureReglage();
    do{
        PrintXY(10,x,">",0);
        PrintMini(80,30,"         ",0);
        if(nbrJoueur==1){
            PrintMini(80,30," 1J ",0);
            PrintMini(95,30," 2J ",3);
        }
        else{
            PrintMini(80,30," 1J ",3);
            PrintMini(95,30," 2J ",0);
        }
        sprintf(affichage,"%d",vitesse);
        PrintMini(92,20,affichage,0);
        sprintf(affichage,"%d",niveauOrdi);
        PrintMini(92,40,affichage,0);
        GetKey(&key);
        PrintXY(10,x," ",0);
        Bdisp_PutDisp_DD();
        if(key==30023) choix++;
        if(key==30018) choix--;
        
        if(choix==1){
            if(key==30020 && vitesse!=0) vitesse--;
            if(key==30021 && vitesse!=9) vitesse++;
        }
        if(choix==2){
            if(key==30020) nbrJoueur=1;
            if(key==30021) nbrJoueur=2;
        }
        if(choix==3){
            if(key==30020 && niveauOrdi!=1) niveauOrdi--;
            if(key==30021 && niveauOrdi!=3) niveauOrdi++;
        }
        
        if(choix==0) choix=4;
        if(choix==5) choix=1;
        if(choix==1) x=20;
        if(choix==2) x=30;
        if(choix==3) x=40;
        if(choix==4) x=55;
    }while(key!=30004 || choix!=4);
    ecritureReglage();
}

// Fini !
int menu(){
    Bdisp_AllClr_DDVRAM();
    x=20;
    choix=1;
    locate(6,1);
    Print("Tron 1960");
    Bdisp_DrawLineVRAM(1,8,127,8);
    PrintXY(20,20,"Jouer",0);
    PrintXY(20,30,"Reglages",0);
    PrintXY(20,45,"Quitter",0);
    PrintXY(10,20,">",0);
    
    do{
        GetKey(&key);
        PrintXY(10,x," ",0);
        Bdisp_PutDisp_DD();
        if(key==30023) choix++;
        if(key==30018) choix--;
        if(choix==0) choix=3;
        if(choix==4) choix=1;
        if(choix==1) x=20;
        if(choix==2) x=30;
        if(choix==3) x=45;
        PrintXY(10,x,">",0);
    }while(key!=30004);
    return choix;
}


// ======= Fonctions Complementaires ========

// Demmarage
void demmarage(){
    handle = Bfile_OpenFile(filename,_OPENMODE_READWRITE);
    if(handle== -1){
        Bfile_CreateFile(filename, 8);
        handle = Bfile_OpenFile(filename,_OPENMODE_READWRITE);
        vitesse=1;
        nbrJoueur=1;
        niveauOrdi=1;
        ecritureReglage();
        locate(1,1);
        Print("Un fichier a ete cree");
        locate(6,2);
        Print("tronr.txt");
        locate(1,3);
        Print("  Merci de ne pas le");
        locate(1,4);
        Print("supprimer.");
        locate(5,6);
        Print("Press [ExE]");
        do{
            GetKey(&key);
        }while(key!=30004);
    }
    lectureReglage();
}

// Quitter
void quitter(){
    Bfile_CloseFile(handle);
    Bdisp_AllClr_DDVRAM();
    locate(8,4);
    Print("Bye :)");
    Bdisp_PutDisp_DD();
    Sleep(1000);
}

// Affiche le plateau
void affichage_grille(){
    int a=0;
    int b=0;
    for(a=0;a<127;a++){
        for(b=0;b<55;b++){
            if(plateau[a][b]==1) Bdisp_SetPoint_VRAM(a,b+9,1);
            else Bdisp_SetPoint_VRAM(a,b+9,0);
        }
    }
}

// Initialise a 0 les cases du plateau
void initialisation_plateau(){
    int a, b;
    for(a=0;a<127;a++){
        for(b=0;b<54;b++){
            plateau[a][b]=0;
        }
    }
}

// Generation d'un nombre aleatoire
int random(int max){
    static unsigned int seed = 0x12345678;
    if(max<1)seed=-max;
    seed = (0x41C64E6D * seed) + 0x3039;
    if(max>0)return ((seed >> 16) % max);
}

// Mise en pause
void pause(){
    ML_rectangle(1,9,127,63,0,0,3);
    ML_rectangle(45, 25, 85, 40,1,1,0);
    PrintXY(50,30,"PAUSE",0);
    Bdisp_PutDisp_DD();
    Sleep(500);
    do{
        GetKey(&key);
    }while(key!=30002 && key!=30008);
    PrintXY(50,30,"     ",0);
    if(key==30008) Tmenu=1;
    else{
        for(x=3;x>=1;x--){
            sprintf(affichage,"  %d  ",x);
            PrintXY(50,30,affichage,0);
            Bdisp_PutDisp_DD();
            Sleep(1000);
        }
    }
}

//======== Fonctions pour le fichier ========

// Lecture des reglages
void lectureReglage(){
    char buffer[7];
    Bfile_ReadFile(handle,buffer,7,0);
    
    if(buffer[2]=='1') nbrJoueur=1;
    else nbrJoueur=2;
    switch(buffer[0]){
        case '1': vitesse=1;
        break;
        case '2': vitesse=2;
        break;
        case '3': vitesse=3;
        break;
        case '4': vitesse=4;
        break;
        case '5': vitesse=5;
        break;
        case '6': vitesse=6;
        break;
        case '7': vitesse=7;
        break;
        case '8': vitesse=8;
        break;
        case '9': vitesse=9;
        break;
        case '0': vitesse=0;
        break;
    }
    switch(buffer[4]){
        case '1': niveauOrdi=1;
        break;
        case '2': niveauOrdi=2;
        break;
        case '3': niveauOrdi=3;
        break;
        case '4': niveauOrdi=4;
        break;
        case '5': niveauOrdi=5;
        break;
        case '6': niveauOrdi=6;
        break;
        case '7': niveauOrdi=7;
        break;
        case '8': niveauOrdi=8;
        break;
        case '9': niveauOrdi=9;
        break;
        case '0': niveauOrdi=10;
        break;
    }
}

// Ecriture des reglages
void ecritureReglage(){
    char buffer[7];
    sprintf(buffer,"%d+%d+%d+-",vitesse,nbrJoueur,niveauOrdi);
    Bfile_CloseFile(handle);
    Bfile_DeleteFile(filename);
    Bfile_CreateFile(filename, 8);
    handle = Bfile_OpenFile(filename,_OPENMODE_READWRITE);
    Bfile_WriteFile(handle,buffer,7);
}


#pragma section _BR_Size
unsigned long BR_Size;
#pragma section
#pragma section _TOP
int InitializeSystem(int isAppli, unsigned short OptionNum){return INIT_ADDIN_APPLICATION(isAppli, OptionNum);}
#pragma section