//Para compilar:  g++ -o test fuga.cpp `sdl-config --cflags --libs`



#include <stdio.h>
#include <iostream>
#include <stdlib.h>
#include <string.h>
#include <SDL/SDL.h>

#define ARRIBA 0
#define ABAJO 1
#define IZQUIERDA 2
#define DERECHA 3
#define NUMBLOQUES 4

using namespace std;

//MAPA
int mapa[24][32] = {
	{25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25},
	{25,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,25},
	{25,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,25},
	{25,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,25},
	{25,5,5,5,5,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,25,5,5,5,5,5,25},
	{25,5,5,5,5,25,25,25,25,25,25,25,25,25,25,16,16,25,25,25,25,25,25,25,25,25,5,5,5,5,5,25},
	{25,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,25},
	{25,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,25},	
	{25,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,25},		
	{25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25}};

//VARIABLES
SDL_Surface *screen;
SDL_Surface *pantallaOculta;  
SDL_Surface *protagonista;
SDL_Surface *bloque1;
//SDL_Surface *bloque2;

int i,j;
int tam=25;
int hecho;
int fuera=0;
Uint8 *keys;
//Indican en que parte de la pantalla se dibuja el heroe y el bloque al comienzo, están en múltiplo de 25, que es el tamaño del tile
int xHeroe=300,yHeroe=325;
int xBloque[NUMBLOQUES] = {225,250,225,300};
int yBloque[NUMBLOQUES] = {250,275,150,300};
int xBloquei,yBloquei,xBloquej,yBloquej;

int estado=ABAJO;
int anterior;
int dibX,dibY;

SDL_Surface *image;
SDL_Rect dest;
SDL_Event event;



//Dibuja la matriz en la pantalla, cada número de la matriz indica un tile del gráfico future.bmp
void Dibujar(SDL_Surface * img, int x, int y, int w, int h, int x2, int y2) 
{
        SDL_Rect dest;
        dest.x = x;
        dest.y = y;
        SDL_Rect src;
        src.x = x2;
        src.y = y2;
        src.w = w;
        src.h = h;
	SDL_BlitSurface (img, &src, screen, &dest);
}

//Dibuja al bloque
void DibujarBloque(int x, int y)
{
	SDL_Rect dest;
	dest.x=x;
	dest.y=y;
	SDL_BlitSurface(bloque1, NULL, screen, &dest); 
}

//Dibuja al heroe
void DibujarHeroe (int x, int y,int w, int h, int x2, int y2)
{
	SDL_Delay(50);
	SDL_Rect dest;
    	dest.x=x;
    	dest.y=y;
        SDL_Rect src;
        src.x = x2;
        src.y = y2;
        src.w = w;
        src.h = h;
    	SDL_BlitSurface(protagonista, &src, screen, &dest);
}

//Mueve al heroe y calcula colisiones con el muro (tile=25) y si hay bloque lo empuja
void MoverHeroe()
{
    keys=SDL_GetKeyState(NULL);


    //Si se pulsa arriba y la casilla del mapa[][]=25 hay colisión, se divide entre tam (tam=25)
    //porque 25 era el tamaño de cada pixel
    if ((keys[SDLK_UP]) && (mapa[(yHeroe-tam)/tam][(xHeroe)/tam]!=25))
    {
        if(estado==ARRIBA){
            if(anterior==25){
                anterior=50;
            }
            else{
                anterior=25;
            }
            dibY=0;
            dibX=anterior;
            
	    hecho = 0;
            for (i=0;i<NUMBLOQUES;i++){
		xBloquei=xBloque[i];
		yBloquei=yBloque[i];
		// Si el bloque NO ESTÁ pegado al borde lo podemos empujar...
		if ((mapa[(yBloquei-tam)/tam][xBloquei/tam] !=25) && (yHeroe-tam==yBloquei && 	xHeroe==xBloquei) && (hecho==0)){
		    for (j=0;j<NUMBLOQUES;j++){
		      xBloquej=xBloque[j];
		      yBloquej=yBloque[j];
		      //...a no ser que esté pegado a otro bloque superior
		      if ((xBloquei==xBloquej) && (yBloquei==yBloquej+25))
			hecho = 1;
		    }
		    if (hecho==0){
		      yHeroe=yBloquei;yBloque[i]=yBloquei-(tam);
		      hecho = 1;
		    }
		}
		else{
		  //Si el bloque ESTÁ pegado al borde y lo queremos empujar no nos movemos
		  if ((mapa[(yBloquei-tam)/tam][xBloquei/tam] ==25) && (yHeroe-tam==yBloquei && 	xHeroe==xBloquei) && (hecho==0))
		    hecho = 1;
		}
	     }
	     //Si no hay ninguna colisión movemos al héroe en la dirección elegida
	     if(hecho==0){
		yHeroe=yHeroe-(tam);
		hecho = 1;
	     }
        }
        else{
            estado=ARRIBA;
            anterior=25;
            dibX=0;
            dibY=0;
        }
    }
    if ((keys[SDLK_DOWN]) && (mapa[(yHeroe+tam)/tam][(xHeroe)/tam]!=25))
    {
        if(estado==ABAJO){
            if(anterior==25){
                anterior=50;
            }
            else{
                anterior=25;
            }
            dibY=50;
            dibX=anterior;

            hecho = 0;
            for (i=0;i<NUMBLOQUES;i++){
		xBloquei=xBloque[i];
		yBloquei=yBloque[i];
		// Si el bloque NO ESTÁ pegado al borde lo podemos empujar...
		if ((mapa[(yBloquei+tam)/tam][xBloquei/tam] !=25) && (yHeroe+tam==yBloquei && 	xHeroe==xBloquei) && (hecho==0)){
		    for (j=0;j<NUMBLOQUES;j++){
		      xBloquej=xBloque[j];
		      yBloquej=yBloque[j];
		      //...a no ser que esté pegado a otro bloque inferior
		      if ((xBloquei==xBloquej) && (yBloquei==yBloquej-25))
			hecho = 1;
		    }
		    if (hecho==0){
		      yHeroe=yBloquei;yBloque[i]=yBloquei+(tam);
		      hecho = 1;
		    }
		}
		else{
		  //Si el bloque ESTÁ pegado al borde y lo queremos empujar no nos movemos
		  if ((mapa[(yBloquei+tam)/tam][xBloquei/tam] ==25) && (yHeroe+tam==yBloquei && 	xHeroe==xBloquei) && (hecho==0))
		    hecho = 1;
		}
	     }
	     //Si no hay ninguna colisión movemos al héroe en la dirección elegida
	     if(hecho==0){
		yHeroe=yHeroe+(tam);
		hecho = 1;
	     }
        }
        else{
            estado=ABAJO;
            anterior=25;
            dibY=50;
            dibX=0;
        }
    }

    if ((keys[SDLK_LEFT]) && (mapa[(yHeroe)/tam][(xHeroe-tam)/tam]!=25))
    {
        if(estado==IZQUIERDA){
            if(anterior==25){
                anterior=50;
            }
            else{
                anterior=25;
            }
            dibY=75;
            dibX=anterior;

            hecho = 0;
            for (i=0;i<NUMBLOQUES;i++){
		xBloquei=xBloque[i];
		yBloquei=yBloque[i];
		// Si el bloque NO ESTÁ pegado al borde lo podemos empujar...
		if ((mapa[yBloquei/tam][(xBloquei-tam)/tam] !=25) && (xHeroe-tam==xBloquei && 	yHeroe==yBloquei) && (hecho==0)){
		    for (j=0;j<NUMBLOQUES;j++){
		      xBloquej=xBloque[j];
		      yBloquej=yBloque[j];
		      //...a no ser que esté pegado a otro bloque izquierdo
		      if ((yBloquei==yBloquej) && (xBloquei==xBloquej+25))
			hecho = 1;
		    }
		    if (hecho==0){
		      xHeroe=xBloquei;xBloque[i]=xBloquei-(tam);
		      hecho = 1;
		    }
		}
		else{
		  //Si el bloque ESTÁ pegado al borde y lo queremos empujar no nos movemos
		  if ((mapa[yBloquei/tam][(xBloquei-tam)/tam] ==25) && (xHeroe-tam==xBloquei && 	yHeroe==yBloquei) && (hecho==0))
		    hecho = 1;
		}
	     }
	     //Si no hay ninguna colisión movemos al héroe en la dirección elegida
	     if(hecho==0){
		xHeroe=xHeroe-(tam);
		hecho = 1;
	     }
        }
        else{
            estado=IZQUIERDA;
            anterior=25;
            dibY=75;
            dibX=0;
        }

    }

    if ((keys[SDLK_RIGHT]) && (mapa[(yHeroe)/tam][(xHeroe+tam)/tam]!=25))
    {
        if(estado==DERECHA){
            if(anterior==25){
                anterior=50;
            }
            else{
                anterior=25;
            }
            dibY=25;
            dibX=anterior;
            
            hecho = 0;
            for (i=0;i<NUMBLOQUES;i++){
		xBloquei=xBloque[i];
		yBloquei=yBloque[i];
		// Si el bloque NO ESTÁ pegado al borde lo podemos empujar...
		if ((mapa[yBloquei/tam][(xBloquei+tam)/tam] !=25) && (xHeroe+tam==xBloquei && 	yHeroe==yBloquei) && (hecho==0)){
		    for (j=0;j<NUMBLOQUES;j++){
		      xBloquej=xBloque[j];
		      yBloquej=yBloque[j];
		      //...a no ser que esté pegado a otro bloque derecho
		      if ((yBloquei==yBloquej) && (xBloquei==xBloquej-25))
			hecho = 1;
		    }
		    if (hecho==0){
		      xHeroe=xBloquei;xBloque[i]=xBloquei+(tam);
		      hecho = 1;
		    }
		}
		else{
		  //Si el bloque ESTÁ pegado al borde y lo queremos empujar no nos movemos
		  if ((mapa[yBloquei/tam][(xBloquei+tam)/tam] ==25) && (xHeroe+tam==xBloquei && 	yHeroe==yBloquei) && (hecho==0))
		    hecho = 1;
		}
	     }
	     //Si no hay ninguna colisión movemos al héroe en la dirección elegida
	     if(hecho==0){
		xHeroe=xHeroe+(tam);
		hecho = 1;
	     }
        }
        else{
            estado=DERECHA;
            anterior=25;
            dibY=25;
            dibX=0;
        }
    }
}


int main (int argc, char *argv[])
{

 int done = 0;      
 char *msg;


  //Iniciando SDL
    if (SDL_Init (SDL_INIT_VIDEO) < 0)
    {
        sprintf (msg, "Error al inicializar SDL: %s\n", SDL_GetError ());
	free (msg);
        exit (1);
    }
    atexit (SDL_Quit);

 //Iniciando pantalla
    screen = SDL_SetVideoMode (800, 600, 24, SDL_SWSURFACE | SDL_DOUBLEBUF);
    if (screen == NULL)
    {
        sprintf (msg, "No se puede establecer el mode de video: %s\n",SDL_GetError ());
        free (msg);
        exit (2);
    }
    SDL_WM_SetCaption ("SDL MultiMedia Application", NULL);

// Cargamos gráfico
	image = SDL_LoadBMP("Future.BMP");
    if ( image == NULL ) {
        printf("No pude cargar grafico: %s\n", SDL_GetError());
        system("pause");
        exit(1);
    }

//Cargamos heroe y bloques
        cout<<"No ha sido posible..."<<endl;
	protagonista = SDL_LoadBMP("heroe.bmp");
	bloque1 = SDL_LoadBMP("bloque.bmp");
	  
// El protagonista debe tener contorno transparente 
	SDL_SetColorKey(protagonista, SDL_SRCCOLORKEY, 
	SDL_MapRGB(protagonista->format, 255, 255, 255));    
	SDL_SetAlpha(protagonista,SDL_SRCALPHA|SDL_RLEACCEL,255);

    done = 0;
    while (!done)
    {
        SDL_Event event;

//Eventos. Cerrar ventana
        while (SDL_PollEvent (&event))
        {
            switch (event.type)
            {
            case SDL_KEYDOWN:
                break;
            case SDL_QUIT:
                done = 1;
                break;
            default:
                break;
            }
        }
        
//Dibujar pantalla 
        
	for (i=0; i<24; i++) 
	   for (j=0; j<32; j++) {
	      Dibujar(image, j*tam, i*tam, tam, tam,mapa[i][j]*tam, 0);
	    }

	
        for (i=0; i<NUMBLOQUES; i++){
	   xBloquei = xBloque[i];
	   yBloquei = yBloque[i];
	   DibujarBloque(xBloquei,yBloquei);
	}
	MoverHeroe();
        DibujarHeroe(xHeroe,yHeroe,25,25,dibX,dibY);
//Actualizar pantalla
	SDL_Flip(screen);

    }
    return 0;
}