/***************************************************************************
*                          Pachi el marciano                               *
*                          -----------------                               *
*                     (c) Santiago Radeff (coding)                         *
*                     (c) Nicolas Radeff  (graphics)                       *
*                     (c) Peter Hajba     (music)                          *
*                                                                          *
*                          T-1000@Bigfoot.com                              *
****************************************************************************
    *******************************************************************
    *                                                                 *
    *   This program is free software; you can redistribute it and/or *
    *   modify it under the terms of the GNU General Public License   *
    *   as published by the Free Software Foundation; either version  *
    *   2 of the License, or (at your option) any later version.      *
    *                                                                 *
    *******************************************************************/

void load_gamedata()
{
    background=LoadT8(DATADIR"/Tgfx/gamepanel.T8");
    backs=LoadT8(DATADIR"/Tgfx/backgrounds.T8", false);
    player=LoadT8(DATADIR"/Tgfx/pachi.T8");
    monstersSW=LoadT8(DATADIR"/Tgfx/monsters.T8", false);
    tiles=LoadT8(DATADIR"/Tgfx/tiles.T8");
    bright=LoadT8(DATADIR"/Tgfx/bright.T8");
    left=LoadT8(DATADIR"/Tgfx/left.T8");
    right=LoadT8(DATADIR"/Tgfx/right.T8");
    load_font( menufont, DATADIR"/fonts/font32v.T8" );
    LoadT(&scorefont,DATADIR"/fonts/font16b.T");
    LoadT(&scorefont1,DATADIR"/fonts/font16a.T");
    LoadT(&scorefont2,DATADIR"/fonts/font16c.T");
    SDL_Surface *temp;
    temp = SDL_CreateRGBSurface(SDL_SWSURFACE,736,448,16,0,0,0,0); //esto es para reestablecer la pantalla
    screenbak = SDL_DisplayFormat(temp);
    SDL_FreeSurface(temp);
    SDL_SetColorKey(player, SDL_SRCCOLORKEY, SDL_MapRGB(player->format,0,0,0)); // el negro es transparente
    SDL_SetColorKey(tiles, SDL_SRCCOLORKEY, SDL_MapRGB(tiles->format,0,255,0));
    SDL_SetColorKey(bright, SDL_SRCCOLORKEY, SDL_MapRGB(bright->format,0,255,0));
    SDL_SetAlpha(bright, SDL_SRCALPHA, 128);
    SDL_SetColorKey(left, SDL_SRCCOLORKEY, SDL_MapRGB(left->format,0,0,0));
    SDL_SetColorKey(right, SDL_SRCCOLORKEY, SDL_MapRGB(right->format,0,0,0));

    jump       = Mix_LoadWAV(DATADIR"/sounds/jump.wav");
    obj        = Mix_LoadWAV(DATADIR"/sounds/obj.wav");
    objseq     = Mix_LoadWAV(DATADIR"/sounds/objseq.wav");
    die        = Mix_LoadWAV(DATADIR"/sounds/die.wav");
    timer      = Mix_LoadWAV(DATADIR"/sounds/timer.wav");
    exitlevel  = Mix_LoadWAV(DATADIR"/sounds/exit.wav");
    stageready = Mix_LoadWAV(DATADIR"/sounds/stageready.wav");
    storm      = Mix_LoadWAV(DATADIR"/sounds/storm.wav");
    respawnsnd = Mix_LoadWAV(DATADIR"/sounds/respawn.wav");

}
void unload_gamedata()
{
    SDL_FreeSurface(background);
    SDL_FreeSurface(tiles);
    SDL_FreeSurface(backs);
    SDL_FreeSurface(player);
    SDL_FreeSurface(bright);
    SDL_FreeSurface(monstersSW);
    SDL_FreeSurface(screenbak);
    SDL_FreeSurface(scorefont);
    SDL_FreeSurface(scorefont1);
    SDL_FreeSurface(scorefont2);
    unload_font(menufont);
    SDL_FreeSurface(left);
    SDL_FreeSurface(right);

    if( currentBack )
        SDL_FreeSurface(currentBack);
    currentBack = NULL;

    for(int n=0;n<M_max4room;n++)
    {
    	if(monsters[n])
    		SDL_FreeSurface(monsters[n]);
    	monsters[n] = NULL;
    }
    
    
    Mix_FreeChunk(exitlevel);
    Mix_FreeChunk(jump);
    Mix_FreeChunk(obj);
    Mix_FreeChunk(die);
    Mix_FreeChunk(timer);
    Mix_FreeChunk(storm);
    Mix_FreeChunk(stageready);
    Mix_FreeChunk(respawnsnd);
}

void stop_music()
{
    if(Mix_PlayingMusic())
    {
	Mix_FadeOutMusic(1000);
	SDL_Delay(1000);
	Mix_FreeMusic(music);
    }
}

void save_hiscoredata();

void load_hiscoredata()
{
    background=LoadT8(DATADIR"/Tgfx/gameover.T8");
    LoadT(&scorefont,DATADIR"/fonts/font16b.T");
    LoadT(&scorefont1,DATADIR"/fonts/font16d.T");

    FILE *file = fopen(SCOREDIR"/data/scores.dat","rb");
    if( file == NULL )
    {
	    for(int a=0; a < 10; a++)
	    {
		for(int b=0; b < 10; b++)
		{
		    scorename[a][b]=0;
		}
		scorestage[a]=0;
		scoretime[a]=0;
		scoredif[a]=0;
		scorescore[a]=0;
		}
		save_hiscoredata();
    }
    else
    {
	    for(int a=0; a < 10; a++)
	    {
		for(int b=0; b < 10; b++)
		{
		    scorename[a][b]=getc(file);
		}
		    scorename[a][10] = 0;
		    scorestage[a]=getc(file);
		    int lobyte,hibyte,vhibyte;
		    hibyte=getc(file);
		    lobyte=getc(file);
		    scoretime[a]=(hibyte*256)+lobyte;
		    scoredif[a]=getc(file);
		    vhibyte=getc(file);
		    hibyte=getc(file);
		    lobyte=getc(file);
		    scorescore[a]=(vhibyte*65536)+(hibyte*256)+lobyte;
	    }
	    fclose(file);
    }
}
void unload_hiscoredata()
{
    SDL_FreeSurface(background);
    SDL_FreeSurface(scorefont);
    SDL_FreeSurface(scorefont1);
}
void save_hiscoredata()
{
    FILE *file = fopen(SCOREDIR"/data/scores.dat","wb");

    for(int a=0;a<10;a++)
    {    
        for(int b=0;b<10;b++)
	{
	    putc(scorename[a][b],file);
	}
        putc(scorestage[a],file);

        int lobyte,hibyte,vhibyte;
        hibyte=int(scoretime[a]/256);
        lobyte=int(scoretime[a]-(hibyte*256));

        putc(hibyte,file);
        putc(lobyte,file);
        putc(scoredif[a],file);

        vhibyte=int(scorescore[a]/65536);
        hibyte=int((scorescore[a] - (vhibyte*256))/256);
        lobyte=int(scorescore[a] - (vhibyte*65536 + hibyte*256));

	putc(vhibyte,file);
	putc(hibyte,file);
	putc(lobyte,file);
    }
    fclose(file);
}

void load_helpgfx()
{
    background=LoadT8(DATADIR"/Tgfx/help.T8");
    LoadT(&scorefont,DATADIR"/fonts/font16b.T");
    LoadT(&scorefont1,DATADIR"/fonts/font16a.T");
    SDL_SetColorKey(scorefont, SDL_SRCCOLORKEY, SDL_MapRGB(scorefont->format,0,0,0));
    SDL_SetColorKey(scorefont1, SDL_SRCCOLORKEY, SDL_MapRGB(scorefont1->format,0,0,0));
}
void unload_helpgfx()
{
    SDL_FreeSurface(background);
    SDL_FreeSurface(scorefont);
    SDL_FreeSurface(scorefont1);
}

void load_menudata()
{
    load_font(menufont, DATADIR"/fonts/font32v.T8");
    load_font(menufont1, DATADIR"/fonts/font32r.T8");
    background=LoadT8(DATADIR"/Tgfx/intro.T8");

    option=Mix_LoadWAV(DATADIR"/sounds/option.wav");
    coderight=Mix_LoadWAV(DATADIR"/sounds/exit.wav");
    codewrong=Mix_LoadWAV(DATADIR"/sounds/die.wav");
    music=Mix_LoadMUS(DATADIR"/music/menu.s3m.ogg");
}
void unload_menudata()
{
    unload_font(menufont);
    unload_font(menufont1);
    SDL_FreeSurface(background);
    Mix_FreeChunk(option);
    Mix_FreeChunk(coderight);
    Mix_FreeChunk(codewrong);
}

void init_monsters()
{
    FILE *mnstr = fopen(DATADIR"/data/monsters.dat","rb");
    long filepos  = ((R_current-1) * M_max4room*3);
    fseek(mnstr,filepos,SEEK_SET);
    for(int n=0;n<=M_max4room-1;n++)
    {
	M_type[n]=getc(mnstr);
	M_x[n]=getc(mnstr)*R_tileside;
	M_y[n]=getc(mnstr)*R_tileside-M_h+R_tileside;
    }
    fclose(mnstr);

    for(int n=0;n<M_max4room;n++)
    {
    	if(monsters[n])
    		SDL_FreeSurface(monsters[n]);
    	monsters[n] = NULL;
    	
		if(M_type[n] != 0)
		{
			SDL_Rect monstersrc;
			monstersrc.y = M_type[n] * M_h;
			monstersrc.x = 0;
			monstersrc.h = M_h;
			monstersrc.w = M_frames * 2 * M_w;
			monsters[n] = SDL_CreateRGBSurface(SDL_HWSURFACE, monstersrc.w, monstersrc.h, screen->format->BitsPerPixel, 
								screen->format->Rmask, screen->format->Gmask, screen->format->Bmask, screen->format->Amask);
			SDL_BlitSurface(monstersSW, &monstersrc, monsters[n], NULL);
			SDL_SetColorKey(monsters[n], SDL_SRCCOLORKEY, SDL_MapRGB(monsters[n]->format,0,255,0));
		}
    }
}

void load_room()
{
    long filepos;
    FILE *bck = fopen(DATADIR"/data/backs.dat","rb");
    filepos  = (R_current - 1) * (R_maxbacks_h*R_maxbacks_v); // filepos es el puntero del archivo, lo utilizamos para leer la habitacion donde estemos
    fseek(bck,filepos,SEEK_SET);
    int x, y;
    for(y = 0;y < R_maxbacks_v; y++)
    {
        for(x = 0;x < R_maxbacks_h; x++)
        {
            R_backdata[x][y]=getc(bck);
        }
    }
    fclose(bck);


    if( currentBack )
        SDL_FreeSurface(currentBack);
    currentBack = SDL_CreateRGBSurface(SDL_HWSURFACE, R_back_x*R_maxbacks_h, R_back_y*R_maxbacks_v, screen->format->BitsPerPixel, 
    							screen->format->Rmask, screen->format->Gmask, screen->format->Bmask, screen->format->Amask);
    
    SDL_Rect backs_dst;
    backs_dst.w = R_back_x;
    backs_dst.h = R_back_y;
    
    SDL_Rect backs_src;
    backs_src.w = R_back_x;
    backs_src.h = R_back_y;
    for(x=0;x < R_maxbacks_h;x++)
    {
        for(y=0;y < R_maxbacks_v;y++)
        {
            backs_dst.x = (x*R_back_x);
            backs_dst.y = (y*R_back_y);

            backs_src.y = (int(R_backdata[x][y]/6) * R_back_y);
            backs_src.x = (R_backdata[x][y] - (int(R_backdata[x][y]/6) * 6))*R_back_x;
            SDL_BlitSurface(backs,&backs_src,currentBack,&backs_dst);
        }
    }
    


    FILE *lvl = fopen(DATADIR"/data/rooms_v2.dat","rb");
    filepos  = (200 + ((R_current-1) * (R_maxtiles_h*R_maxtiles_v))+R_current); // filepos es el puntero del archivo, lo utilizamos para leer la habitacion donde estemos
    fseek(lvl,filepos,SEEK_SET);
    
    for(y = 0;y < R_maxtiles_v;y++)
    {
        for(x = 0;x < R_maxtiles_h; x++)
        {
            mroom.data[x][y]=getc(lvl);
        }
    }
    fclose(lvl);
    
    int contador;
    for(contador=0;contador < 5; contador++)
    {
        R_object=mobject[((R_current-1)*5)+contador].type;
        x=mobject[((R_current-1)*5)+contador].x;
        y=mobject[((R_current-1)*5)+contador].y;
        if(R_object != 0)
            mroom.data[x][y]=R_object;
    }
}
void load_roommap()
{
    long filepos;
    int x, y;
    FILE *lvl = fopen(DATADIR"/data/rooms_v2.dat","rb");

    for(y = 0;y < R_max_y;y++)
    {
        for(x = 0;x < R_max_x; x++)
        {
	    filepos=((x+1)*(R_maxtiles_h*R_maxtiles_v)+(x+1))+(y*(R_max_x*(R_maxtiles_h*R_maxtiles_v)+R_max_x));
	    fseek(lvl,200+filepos,SEEK_SET);
            roommap[x][y]=getc(lvl);
        }
    }
    fclose(lvl);
}
void init_objects() // esta rutina copia en la matriz objects el archivo objects.dat
{
    FILE *obj = fopen(DATADIR"/data/objects_v2.dat","rb");
    for(int n=0;n<2000;n++)
    {
        mobject[n].type=getc(obj);
        mobject[n].x=getc(obj);
        mobject[n].y=getc(obj);
        mobject[n].seq=getc(obj);
        mobject[n].stage=getc(obj);
    }
    fclose(obj);
}

void initcredits()
{
    creditslinecounter=0;
    background=LoadT8(DATADIR"/Tgfx/endcredits.T8");
    creditsfont=LoadT8(DATADIR"/fonts/font1.T8");
    SDL_SetColorKey(creditsfont, SDL_SRCCOLORKEY, SDL_MapRGB(creditsfont->format,0,255,0));
    SDL_Surface *temp;
    temp = SDL_CreateRGBSurface(SDL_SWSURFACE,600,440,16,0,0,0,0);
    creditsbuffer = SDL_DisplayFormat(temp);
    creditsbuffer1 = SDL_DisplayFormat(temp);
    SDL_FreeSurface(temp);
    setback();

music = Mix_LoadMUS(DATADIR"/music/credits.s3m.ogg");
}
void unloadcredits()
{
    SDL_FreeSurface(creditsbuffer);
    SDL_FreeSurface(creditsbuffer1);
    SDL_FreeSurface(background);
    SDL_FreeSurface(creditsfont);
}