377 lines
11 KiB
C
377 lines
11 KiB
C
/***************************************************************************
|
|
* 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);
|
|
}
|