/*
 * correForest.c
 */

#include "correForest.h"

//Variables del personatge (jugador)

int x,   // posicio actual del jugador
    x_ant, // posicio anterior del jugador
    veloc, // velocitat jugador
    vides, // vides que te el jugador
    metres; // metres recorreguts

//Variables escena

int c[LLARGADA]; // c[i] defineix el centre de la carretera a la
                 // fila (i+2)-essima a la pantalla amb l'index
                 // "i" prenent valors en [0..LLARGADA-1]

// Variables de control

int fi_partida, // fi de partida
    fi_joc;     // fi del joc


//---------------- MAIN --------------------

int main(){

        fi_joc = 0;
        while (! fi_joc){
    Inicialitzacio();
 Bucle();
 Finalitzacio();
        }
return 0;
}

// Inicialitza recursos, variables del jugador y
// estructura de dades de l'escena (carretera)

void Inicialitzacio(){

int i;

// Inicialitzem el generador de nombres aleatoris
        // srand(13);
srand(GetTickCount() % 1000);

// Pantalla en mode text 80x50
textmode(PANTALLA_80x50);

// Cursor no invisible
_setcursortype(_NOCURSOR);

        // Status inicial del joc
metres = 0;           // espai recorregut
veloc  = 0;           // velocitat del jugador
vides  = VIDES_MAX;   // vides restants

// Posicio inicial pantalla = (80/2=40,42)
//
// - 1
// o 2 -> c[0]
// o
// ...
// o 42 -> c[40]
// ...
// o 49
// - 50 -> c[48]

        // Centres de la carretera inicial
c[0] = CENTRE_INI;
for(i=1; i<LLARGADA; i++){
c[i] = c[i-1] + Aleatori();
if(c[i] < CENTRE_MIN)   c[i] = CENTRE_MIN;
else if(c[i] > CENTRE_MAX) c[i] = CENTRE_MAX;
}

        // Dibuix de la carretera inicial
clrscr();
for(i=0; i<LLARGADA; i++){   //LLARGADA-1 ????
          gotoxy(1, i+2);
 PintaLiniaCarretera(i);
}

        // Posicio inicial del jugador. No col.lisiona
x     = c[INDEX_FIX];
x_ant = x;
textcolor(BLUE);
textbackground(LIGHTGRAY);
gotoxy(x, FILA_FIXA);
cprintf("%c", CARA);
textbackground(BLACK);
 
        // Inici del joc
        MostraVelocitat();
        MostraMetres();
        MostraVides();

BaixadaDeBandera();
}

// Baixada de bandera inicial

void BaixadaDeBandera(){

        fi_partida = 0;
veloc      = VELO_MIN;    // velocitat del jugador

        MostraMissatge(0);
textcolor(LIGHTRED);
        MostraMissatge(1);
        while(! kbhit()){}        // espera
        MostraMissatge(0);
        MostraMissatge(2);
}



// Bucle de vida del joc amb sincronitzacio per framerate
// GetTickCount() retorna temps transcorregut en milisegons
// des del boot del sistema

void Bucle(){

long t1, t2;
        tEvent event;

while(!fi_partida){
  t1 = GetTickCount();
Entrada(&event);
Proces(event);
Sortida();

do {
t2 = GetTickCount();
} while((t2-t1) < (DELAY_SINC/veloc));
}
}

// Tasques finals i alliberament de recursos

void Finalitzacio(){

       char fi;

        // No resten vides
        MostraVides();

        // Neteja missatges
        MostraMissatge(0);

        // Fi de partida
textcolor(YELLOW);
gotoxy(31,20); cprintf("------------------");
gotoxy(31,21); cprintf(" FI DE LA PARTIDA ");
gotoxy(31,22); cprintf("------------------");

        // Fi de joc o partida nova

gotoxy(22,32); cprintf("---------------------------------");
gotoxy(22,33); cprintf(" F: Fi del joc  N : Nova partida ");
gotoxy(22,34); cprintf("---------------------------------");

        fi = getch();
        while (!(fi == 'F' || fi == 'f' || fi == 'N' || fi == 'n')){
            fi = getch();
}
        if(fi == 'F' || fi == 'f') fi_joc = 1;


//        fi_joc = fi == 'F' || fi == 'f') fi_joc;

//Pantalla en mode text inicial
textmode(LASTMODE);
}

// Captura de les ordres que l'usuari entra pel teclat

void Entrada(tEvent *event){

  char c;

  *event = EVENT_BUIT;
  if(kbhit()){
    switch(getch()) {
      case TECLA_ESC:   *event = FI_PARTIDA;
               break;
      case TECLA_ESQ:   *event = MOU_ESQUERRA;
       break;
      case TECLA_DRE:   *event = MOU_DRETA;
       break;
      case TECLA_AMUNT: *event = MES_VELOCITAT;
                        break;
      case TECLA_AVALL: *event = MENYS_VELOCITAT;
                        break;
    }
  }
}

// Logica del programa
// Deteccio de col.lisions i avançar per la carretera
// Generacio nova escena

void Proces(tEvent event)
{
int i;

        switch(event) {
 case FI_PARTIDA:      fi_partida = 1;
       break;
    case MOU_ESQUERRA:    x--;
       break;
          case MOU_DRETA:       x++;
       break;
 case MES_VELOCITAT:   if(veloc < VELO_MAX) veloc++;
                       break;
 case MENYS_VELOCITAT: if(veloc > VELO_MIN) veloc--;
                                break;
        }

        // Esborrar jugador de la posicio anterior
textcolor(LIGHTGRAY);
gotoxy(x_ant, FILA_FIXA);
cprintf("%c", QSOLID);

  // Avançar un pas
metres++;

// memcpy(&c[1],&c[0],(LLARGADA-1)*sizeof(int));
memmove(&c[1],&c[0],(LLARGADA-1)*sizeof(int));

   // Linia nova de carretera

c[0] = c[0] + Aleatori();
if(c[0] < CENTRE_MIN)      c[0] = CENTRE_MIN;
else if(c[0] > CENTRE_MAX) c[0] = CENTRE_MAX;

// Deteccio de col.lisions amb els vorals

if( (x < (c[INDEX_FIX] - MEITAT_AMP)) ||
   (x > (c[INDEX_FIX] + MEITAT_AMP)) )  {

          // Donem temps pel missatge
            textcolor(LIGHTRED);
       MostraMissatge(0);
                MostraMissatge(3);
i = GetTickCount();
while((GetTickCount() - i) < DELAY_COL) {}
       MostraMissatge(0);
       MostraMissatge(2);

          // Actualitzacio de l'estatus del joc
vides--;
if(vides == 0){
fi_partida = 1;
}else{
veloc = VELO_MIN;
x     = c[INDEX_FIX];
                 x_ant = x;
}
        }else{  // No hi ha col.lisio
       x_ant = x;
}
}


// Pintat de l'escenari (carretera),
// Actualitzacio de l'estatus (vides, metres, velocidad)
// i personatges (jugador)

void Sortida()
{
//gotoxy(x,y) => x=1..80,y=1..50

        MostraVelocitat();
        MostraMetres();
        MostraVides();

//Scroll carretera
movetext(1,2,FINESTRA_W,LLARGADA,1,3);

//Nou troç de carretera
gotoxy(1, 2);
PintaLiniaCarretera(0);

//Situar jugador en nova posicio
textcolor(BLUE);
textbackground(LIGHTGRAY);
gotoxy(x, FILA_FIXA);
cprintf("%c", CARA);
textbackground(BLACK);
}

// Retorna un valor aleatori en {-1,0,1}

int Aleatori(){

return (rand() % 3) - 1;
}

// Actualitzacio del retol de velocitat

void MostraVelocitat(){

       int i;

        // Retol
        gotoxy(5, 1);
textcolor(LIGHTCYAN);
cprintf("Velocitat: ");
        //Velolcitat actual
textcolor(LIGHTCYAN);
for(i=1; i<=veloc; i++)
cprintf("%c", DIAMANT);
        //Velocitats superiors possibles
textcolor(CYAN);
for(i=1; i<=(VELO_MAX-veloc); i++)
cprintf("%c", DIAMANT);
}

// Actualitzacio del retol dels metres recorreguts

void MostraMetres(){

gotoxy(40, 1);
textcolor(YELLOW);
cprintf("Metres: %d", metres);
}


// Actualitzacio del retol de les vides

void MostraVides(){

        int i;

// Retol
gotoxy(65, 1);
textcolor(LIGHTRED);
cprintf("Vides: ");
        //Vides restants
textcolor(LIGHTRED);
for(i=1; i<=vides; i++)
cprintf("%c", COR);
        //Vides perdudes
textcolor(RED);
for(i=1; i<=(VIDES_MAX - vides); i++)
cprintf("%c", COR);
}

// Pinta la linia horitzontal corresponent a c[i] amb
// i en [0..LLARGADA - 1] al lloc (x, y) on estigui
// posicionat el cursor de la pantalla

void PintaLiniaCarretera(int i)
{
// -------123........c........321-----
int j;
int nesq, ndre;

nesq = c[i] - (MEITAT_I_VORAL + 1); // sense () no calcula be !!
ndre = c[i] + MEITAT_I_VORAL + 1;

//Gespa de l'esquerra
textcolor(GREEN);
for(j=1; j<=nesq; j++)
cprintf("%c", QSOLID);

//Voral de l'esquerra
textcolor(RED);
cprintf("%c", QRATLLAT);
textcolor(WHITE);
cprintf("%c", QRATLLAT);
textcolor(RED);
cprintf("%c", QRATLLAT);

//Carretera
textcolor(LIGHTGRAY);
for(j=1; j<=AMPLADA; j++)
cprintf("%c", QSOLID);

//Voral de la dreta
textcolor(RED);
cprintf("%c", QRATLLAT);
textcolor(WHITE);
cprintf("%c", QRATLLAT);
textcolor(RED);
cprintf("%c", QRATLLAT);

//Gespa de la dreta
textcolor(GREEN);
for(j=ndre; j<=FINESTRA_W; j++)
cprintf("%c", QSOLID);
}

// Mostra un missatge a l'area de missatges

void MostraMissatge(int missatge){

gotoxy(2, FINESTRA_H);
        cprintf("%s", missatges[missatge]);
}

/*
 * correForest.h
 *
 */

#include <stdio.h>
#include <conio.h>
// #include <time.h>
#include <stdlib.h>
//#include <mem.h>
#include <Windows.h>

#pragma hdrstop
#pragma argused

/* #include <random.h> */


//Codis ASCII tecles del joc

#define TECLA_ESC    27
#define TECLA_ESQ    75
#define TECLA_DRE    77
#define TECLA_AMUNT       72
#define TECLA_AVALL    80

// Codis dels grafismes

#define DIAMANT          0x04
#define COR              0x03
#define CARA             0x02
#define QSOLID           0xDB
#define QRATLLAT         0xB1

// Tipus pantalla

#define PANTALLA_80x50  C4350


//Posicions minima i maxima del centre
//de la carretera en pantalla
//MIN = -123........o =  1+3+8+1 = 13
//MAX = o........321- = 80-3-8-1 = 68

#define FINESTRA_W      80            // Amplada finestra del joc
#define FINESTRA_H 50            // Alçaria finestra del joc
#define LLARGADA        48            // FINESTRA_H-2 
                                      // Llargada de la carretera
#define AMPLADA         17            // Amplada de la carretera
#define MEITAT_AMP       8            // AMPLADA/2
#define VORAL            3            // Voral de la carretera
#define MEITAT_I_VORAL  11            // MEITAT_AMP + VORAL
#define CENTRE_MIN    13            // Posicio minima pel centre
#define CENTRE_MAX      68            // Posicio maxima pel centre
#define CENTRE_INI      FINESTRA_W/2  // Centre inicial de la carretera
#define INDEX_FIX       40            // Index de referencia fixa pel jugador
#define FILA_FIXA       INDEX_FIX+2   // Fila de referencia fixa pel jugador
#define VIDES_MAX        5
#define VIDES_MIN        1
#define VELO_MAX        10
#define VELO_MIN         1
#define DELAY_SINC     100            // Temporitzacio per sincronisme
#define DELAY_COL      500            // Temporitzacio per col.lisio

// Taula de missatges

char *missatges[] =
{
  "                                   ",
  "QUAN ESTIGUIS LLEST, PREM UNA TECLA",
  "EN MARXA!",
  "CATACROOOOOOOOOOC!!!"
};

// Definicio d'events

typedef enum{
  EVENT_BUIT,
  FI_PARTIDA,
  MOU_ESQUERRA,
  MOU_DRETA,
  MES_VELOCITAT,
  MENYS_VELOCITAT
} tEvent;

//Funcions de l'estructura basica del joc

void Inicialitzacio(void);
void Bucle(void);
void Finalitzacio(void);

void Entrada(tEvent *event);
void Proces(tEvent event);
void Sortida(void);

//Funcions auxiliars

int  Aleatori(void);
void PintaLiniaCarretera(int i);
void BaixadaDeBandera(void);
void MostraVelocitat(void);
void MostraMetres(void);
void MostraVides(void);
void MostraMissatge(int missatge);