- Fins la linea 2060
This commit is contained in:
@@ -1548,172 +1548,188 @@ void historia_final();
|
|||||||
}
|
}
|
||||||
|
|
||||||
/*──────────────────────────────────────────────────────────────────────────*/
|
/*──────────────────────────────────────────────────────────────────────────*/
|
||||||
procedure put_map(uint8_t *nom;color:byte; x,y: word;i,j: byte; desti:word);
|
void put_map(uint8_t *nom, uint8_t color, uint16_t x, uint16_t y, uint8_t i, uint8_t j, uint8_t *desti)
|
||||||
/* nom : nom de la matriu; color: 255 = original o color;
|
/* nom : nom de la matriu; color: 255 = original o color;
|
||||||
x,y = posició pantalla; i,j = tamany matriu; desti = VGA o vaddr)*/
|
x,y = posició pantalla; i,j = tamany matriu; desti = VGA o vaddr)*/
|
||||||
var a,b:word;
|
{
|
||||||
begin
|
for (int a=x+1; a<=x+i; ++a)
|
||||||
for a:=x+1 to x+i do
|
for (int b=y+1; b<=y+j; ++b)
|
||||||
for b:=y+1 to y+j do
|
{
|
||||||
begin
|
if (color!=255) putpixel(a, b, (color!=255 ? color : nom[a-x,b-y]), desti);
|
||||||
if color<>255 then putpixel(a,b,color,desti)
|
}
|
||||||
else putpixel(a,b,nom[a-x,b-y],desti);
|
}
|
||||||
end;
|
|
||||||
end;
|
|
||||||
/*──────────────────────────────────────────────────────────────────────────*/
|
/*──────────────────────────────────────────────────────────────────────────*/
|
||||||
procedure pilla_temps;
|
void pilla_temps()
|
||||||
begin
|
{
|
||||||
gettime(h,m,s,c);
|
hora = SDL_GetTicks() / 1000;
|
||||||
hora := (s)+(m*60)+(h*3600);
|
}
|
||||||
end;
|
|
||||||
/*──────────────────────────────────────────────────────────────────────────*/
|
/*──────────────────────────────────────────────────────────────────────────*/
|
||||||
procedure posa_el_temps(where:word);
|
void posa_el_temps(uint8_t *where)
|
||||||
var
|
{
|
||||||
h1,m1,s1,c1,minuts,segons,i : word;
|
gettime(h1,m1,s1,c1);
|
||||||
begin
|
temps = (SDL_GetTicks() / 1000) - hora;
|
||||||
gettime(h1,m1,s1,c1);
|
const uint16_t minuts = temps / 60;
|
||||||
/*temps:=temps+(((h1-h)*24)+((m1-m)*60)+(s1-s));*/
|
const uint16_t segons = temps % 60;
|
||||||
/*if (s1-s)>0 then temps:=temps+(100-c+c1) else temps:=temps+(c1-c);*/
|
|
||||||
temps := (s1)+(m1*60)+(h1*3600) - hora;
|
|
||||||
minuts :=(temps) div 60;
|
|
||||||
segons :=(temps) mod 60;
|
|
||||||
|
|
||||||
|
const int i = 255;
|
||||||
|
|
||||||
i:= 255;
|
pinta_number(num_0, 180, i,82, where);
|
||||||
|
pinta_number(num_0, 180, i+12, 82, where);
|
||||||
|
pinta_number(num_0, 180, i+18, 82, where);
|
||||||
|
|
||||||
pinta_number(num_0,180,i,82,where);
|
pinta_number(num_11, 255, i+6, 82, where);
|
||||||
pinta_number(num_0,180,i+12,82,where);
|
|
||||||
pinta_number(num_0,180,i+18,82,where);
|
|
||||||
|
|
||||||
pinta_number(num_11,255,i+6,82,where);
|
pinta_number(numero_G[minuts], 255, i, 82, where);
|
||||||
|
pinta_number(numero_G[segons / 10], 255, i+12, 82, where);
|
||||||
|
pinta_number(numero_G[segons % 10], 255, i+18, 82, where);
|
||||||
|
}
|
||||||
|
|
||||||
pinta_number(numero_G[minuts],255,i,82,where);
|
|
||||||
pinta_number(numero_G[segons div 10],255,i+12,82,where);
|
|
||||||
pinta_number(numero_G[segons mod 10],255,i+18,82,where);
|
|
||||||
end;
|
|
||||||
/*──────────────────────────────────────────────────────────────────────────*/
|
/*──────────────────────────────────────────────────────────────────────────*/
|
||||||
procedure resultat_time_attack;
|
void resultat_time_attack()
|
||||||
var i,minuts,segons : word;
|
{
|
||||||
begin
|
fadedown(0,0,0,1);
|
||||||
|
load_mif(TIME_FIN, vaddr2);
|
||||||
|
volcar32(vaddr2, vaddr);
|
||||||
|
|
||||||
fadedown(0,0,0,1);
|
ini_midi(musica_game_over);
|
||||||
load_mif(time_fin,vaddr2);
|
if (midi) Playmidi();
|
||||||
volcar32(vaddr2,vaddr);
|
|
||||||
|
|
||||||
ini_midi(musica_game_over);
|
const uint16_t minuts = (temps_final % 3600) / 60;
|
||||||
if midi then Playmidi;
|
const uint16_t segons = (temps_final % 3600) % 60;
|
||||||
|
|
||||||
minuts:=(temps_final mod 3600) div 60;
|
const int i = 180;
|
||||||
segons:=(temps_final mod 3600) mod 60;
|
|
||||||
|
|
||||||
i:=180;
|
pinta_number_zoom(4, numero_G[minuts], 255, i, 126, vaddr);
|
||||||
|
pinta_number_zoom(4, num_11, 255, i+6*4, 126, vaddr);
|
||||||
|
pinta_number_zoom(4, numero_G[segons / 10], 255, i+12*4, 126, vaddr);
|
||||||
|
pinta_number_zoom(4, numero_G[segons % 10], 255, i+18*4, 126, vaddr);
|
||||||
|
|
||||||
pinta_number_zoom(4,numero_G[minuts],255,i,126,vaddr);
|
espera_vga();
|
||||||
pinta_number_zoom(4,num_11,255,i+6*4,126,vaddr);
|
volcar32(vaddr, VGA);
|
||||||
pinta_number_zoom(4,numero_G[segons div 10],255,i+12*4,126,vaddr);
|
retard(300);
|
||||||
pinta_number_zoom(4,numero_G[segons mod 10],255,i+18*4,126,vaddr);
|
gestio_records(43);
|
||||||
|
retard(100);
|
||||||
|
escriu_records(10);
|
||||||
|
borrat_de_pantalla(vaddr);
|
||||||
|
save_records();
|
||||||
|
|
||||||
espera_vga;
|
if (midi)
|
||||||
volcar32(vaddr,VGA);
|
{
|
||||||
retard(300);
|
StopMIDI();
|
||||||
gestio_records(43);
|
unloadmidi();
|
||||||
retard(100);
|
midi = false;
|
||||||
escriu_records(10);
|
}
|
||||||
borrat_de_pantalla(vaddr);
|
}
|
||||||
save_records;
|
|
||||||
|
|
||||||
if midi then begin StopMIDI; unloadmidi; midi:=false; end;
|
|
||||||
|
|
||||||
end;
|
|
||||||
/*──────────────────────────────────────────────────────────────────────────*/
|
/*──────────────────────────────────────────────────────────────────────────*/
|
||||||
procedure missatge_game_over;
|
void missatge_game_over()
|
||||||
var
|
{
|
||||||
i,j : word;
|
fadedown(0,0,0,2);
|
||||||
k : byte;
|
load_mif(PEPEFINS, vaddr);
|
||||||
num1,num2,num3,num4,num5,num6,num7 : byte;
|
|
||||||
|
|
||||||
begin
|
ini_midi(musica_game_over);
|
||||||
|
if (midi) Playmidi();
|
||||||
|
|
||||||
fadedown(0,0,0,2);
|
if (time_attack_mode)
|
||||||
load_mif(pepefins,vaddr);
|
for (int i=50; i<=280; ++i)
|
||||||
|
for (int j=130; j<=190; ++j)
|
||||||
|
putpixel(i, j, 239, vaddr);
|
||||||
|
|
||||||
ini_midi(musica_game_over);
|
if (story_mode_mode)
|
||||||
if midi then Playmidi;
|
{
|
||||||
|
volcar32(vaddr, vaddr2);
|
||||||
|
for (int i=50; i<=280; ++i)
|
||||||
|
for (int j=130; j<=190; ++j)
|
||||||
|
putpixel(i, j, 239, vaddr2);
|
||||||
|
|
||||||
if time_attack_mode then for i:=50 to 280 do
|
espera_VGA();
|
||||||
for j:=130 to 190 do putpixel(i,j,239,vaddr);
|
volcar32(vaddr2, VGA);
|
||||||
if story_mode_mode then
|
retard(200);
|
||||||
begin
|
}
|
||||||
volcar32(vaddr,vaddr2);
|
|
||||||
for i:=50 to 280 do
|
|
||||||
for j:=130 to 190 do putpixel(i,j,239,vaddr2);
|
|
||||||
espera_VGA;
|
|
||||||
volcar32(vaddr2,VGA);
|
|
||||||
retard(200);
|
|
||||||
end;
|
|
||||||
|
|
||||||
if story_mode_mode then
|
if (story_mode_mode)
|
||||||
begin
|
{
|
||||||
i:=125/*135*/;
|
const int i = 125; // 135
|
||||||
j:=170;
|
const int j = 170;
|
||||||
num1:=punts div 1000000;
|
|
||||||
num2:=(punts mod 1000000) div 100000;
|
|
||||||
num3:=((punts mod 1000000) mod 100000) div 10000;
|
|
||||||
num4:=(((punts mod 1000000) mod 100000) mod 10000) div 1000;
|
|
||||||
num5:=((((punts mod 1000000) mod 100000) mod 10000) mod 1000) div 100;
|
|
||||||
num6:=(((((punts mod 1000000) mod 100000) mod 10000) mod 1000) mod 100) div 10;
|
|
||||||
num7:=(((((punts mod 1000000) mod 100000) mod 10000) mod 100) mod 10);
|
|
||||||
|
|
||||||
if num1<>0 then pinta_number(numero_G[num1],255,i,j,vaddr);
|
uint8_t num = (((((puntuacio[x] % 1000000) % 100000) % 10000) % 100) % 10);
|
||||||
if (num2<>0) or (num1<>0) then pinta_number(numero_G[num2],255,i+6,j,vaddr);
|
if (num != 0)
|
||||||
if (num3<>0) or (num2<>0) or (num1<>0) then pinta_number(numero_G[num3],255,i+12,j,vaddr);
|
{
|
||||||
if (num4<>0) or (num3<>0) or (num2<>0) or (num1<>0) then pinta_number(numero_G[num4],255,i+18,j,vaddr);
|
pinta_number(numero_G[num], 255, i+36, j, vaddr);
|
||||||
if (num5<>0) or (num4<>0) or (num3<>0) or (num2<>0) or (num1<>0) then pinta_number(numero_G[num5],255,i+24,j,vaddr);
|
|
||||||
if (num6<>0) or (num5<>0) or (num4<>0) or (num3<>0) or (num2<>0) or (num1<>0)
|
|
||||||
then pinta_number(numero_G[num6],255,i+30,j,vaddr);
|
|
||||||
if (num7<>0) or (num6<>0) or (num5<>0) or (num4<>0) or (num3<>0) or (num2<>0) or (num1<>0)
|
|
||||||
then pinta_number(numero_G[num7],255,i+36,j,vaddr);
|
|
||||||
|
|
||||||
/*pinta_number(numero_G[num1],255,i,j,vaddr);
|
num = (((((puntuacio[x] % 1000000) % 100000) % 10000) % 1000) % 100) / 10;
|
||||||
pinta_number(numero_G[num2],255,i+6,j,vaddr);
|
if (num != 0)
|
||||||
pinta_number(numero_G[num3],255,i+12,j,vaddr);
|
{
|
||||||
pinta_number(numero_G[num4],255,i+18,j,vaddr);
|
pinta_number(numero_G[num], 255, i+30, j, vaddr);
|
||||||
pinta_number(numero_G[num5],255,i+24,j,vaddr);
|
|
||||||
pinta_number(numero_G[num6],255,i+30,j,vaddr);
|
|
||||||
pinta_number(numero_G[num7],255,i+36,j,vaddr);*/
|
|
||||||
end;
|
|
||||||
|
|
||||||
espera_vga;
|
num = ((((puntuacio[x] % 1000000) % 100000) % 10000) % 1000) / 100;
|
||||||
volcar32(vaddr,VGA);
|
if (num != 0)
|
||||||
retard(300);
|
{
|
||||||
if story_mode_mode then gestio_records(144);
|
pinta_number(numero_G[num], 255, i+24, j, vaddr);
|
||||||
fadedown(0,0,0,0);
|
|
||||||
|
|
||||||
|
num = (((puntuacio[x] % 1000000) % 100000) % 10000) / 1000;
|
||||||
|
if (num != 0)
|
||||||
|
{
|
||||||
|
pinta_number(numero_G[num], 255, i+18, j, vaddr);
|
||||||
|
|
||||||
escriu_records(10);
|
num = ((puntuacio[x] % 1000000) % 100000) / 10000;
|
||||||
borrat_de_pantalla(vaddr);
|
if (num != 0)
|
||||||
vides:=0;
|
{
|
||||||
no_queden_vides:=true;
|
pinta_number(numero_G[num], 255, i+12, j, vaddr);
|
||||||
save_records;
|
|
||||||
|
|
||||||
if midi then begin StopMIDI; unloadmidi; midi:=false; end;
|
num = (puntuacio[x] % 1000000) / 100000;
|
||||||
|
if (num != 0)
|
||||||
|
{
|
||||||
|
pinta_number(numero_G[num], 255, i+6, j, vaddr);
|
||||||
|
|
||||||
|
num = puntuacio[x] / 1000000;
|
||||||
|
if (num != 0) pinta_number(numero_G[num], 255, i, j, vaddr);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
espera_vga();
|
||||||
|
volcar32(vaddr, VGA);
|
||||||
|
retard(300);
|
||||||
|
if (story_mode_mode) gestio_records(144);
|
||||||
|
fadedown(0,0,0,0);
|
||||||
|
|
||||||
|
escriu_records(10);
|
||||||
|
borrat_de_pantalla(vaddr);
|
||||||
|
vides = 0;
|
||||||
|
no_queden_vides = true;
|
||||||
|
save_records();
|
||||||
|
|
||||||
|
if (midi)
|
||||||
|
{
|
||||||
|
StopMIDI();
|
||||||
|
unloadmidi();
|
||||||
|
midi = false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
end;
|
|
||||||
/*──────────────────────────────────────────────────────────────────────────*/
|
/*──────────────────────────────────────────────────────────────────────────*/
|
||||||
procedure comprobar_comp_i_sprites;
|
void comprobar_comp_i_sprites() {}
|
||||||
const
|
// [RZC 24/01/2024] [INFO] Passe de esta merda, de totes formes no anava a implementar-ho...
|
||||||
tamany_comp = 2415;
|
/*
|
||||||
tamany_sprites = 968792;
|
const int tamany_comp = 2415;
|
||||||
|
const int tamany_sprites = 968792;
|
||||||
var
|
var
|
||||||
fich : file of byte;
|
fich : file of byte;
|
||||||
i : word;
|
i : word;
|
||||||
temp : longint;
|
temp : longint;
|
||||||
aux : byte;
|
aux : byte;
|
||||||
error : boolean;
|
error : boolean;
|
||||||
begin
|
{
|
||||||
temp:=0;
|
int temp = 0;
|
||||||
error:=false;
|
bool error = false;
|
||||||
assign(fich,'datos\comp.dat');
|
FILE *fich = fopen("datos/comp.dat", "r");
|
||||||
reset(fich);
|
reset(fich);
|
||||||
for i:=1 to filesize(fich)-9 do
|
for i:=1 to filesize(fich)-9 do
|
||||||
begin
|
begin
|
||||||
@@ -1742,360 +1758,305 @@ begin
|
|||||||
halt;
|
halt;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
*/
|
||||||
|
|
||||||
|
|
||||||
|
/*----------------------------------------------------*/
|
||||||
|
void carrega_pantalla(uint8_t num)
|
||||||
|
{
|
||||||
|
if (num == 0)
|
||||||
|
memset(pantalla, 0, 38*29);
|
||||||
|
else
|
||||||
|
{
|
||||||
|
FILE *fich = fopen("datos/comp.dat", "r");
|
||||||
|
fseek(fich, (num-1)*38*29, SEEK_SET);
|
||||||
|
fread(pantalla, 38*29, 1, fich);
|
||||||
|
fclose(fich);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
/*----------------------------------------------------*/
|
||||||
|
|
||||||
/*──────────────────────────────────────────────────────────────────────────*/
|
/*──────────────────────────────────────────────────────────────────────────*/
|
||||||
procedure ini_vars(num_fase:byte);
|
void ini_vars(uint8_t num_fase)
|
||||||
|
{
|
||||||
|
malos_quets = false;
|
||||||
|
sense_rellontge = true;
|
||||||
|
velocitat_pepe = 5;
|
||||||
|
x = pos_ini_x_pepe;
|
||||||
|
y = pos_ini_y_pepe;
|
||||||
|
fletxa_final_fase = false;
|
||||||
|
|
||||||
/*----------------------------------------------------*/
|
if (num_fase == 0)
|
||||||
procedure carrega_pantalla(num:byte);
|
vides = 0;
|
||||||
var
|
else if (num_fase == 1)
|
||||||
fich : file of byte;
|
vides = vides_de_pepe;
|
||||||
i,j,k : byte;
|
else
|
||||||
temp : byte;
|
vides = vides; // Super util
|
||||||
|
|
||||||
begin
|
pintura = max_pintura;
|
||||||
if num = 0 then for i:=1 to 38 do for j:=1 to 29 do pantalla[i,j]:=0
|
en_casa = true;
|
||||||
else begin
|
final_fase = false;
|
||||||
|
rellontge.viu = false;
|
||||||
|
rellontge.temps = 0;
|
||||||
|
temps = 0;
|
||||||
|
|
||||||
Assign(fich,'datos/comp.dat');
|
carrega_pantalla(num_fase);
|
||||||
Reset(fich);
|
|
||||||
|
|
||||||
for k:=1 to num do
|
switch (num_fase)
|
||||||
begin
|
{
|
||||||
for i:=1 to 38 do
|
case 0: total_blocs_per_pintar = blocs_fase_0; break;
|
||||||
begin
|
case 1: total_blocs_per_pintar = blocs_fase_1; break;
|
||||||
for j:=1 to 29 do
|
case 2: total_blocs_per_pintar = blocs_fase_2; break;
|
||||||
begin
|
case 3: total_blocs_per_pintar = blocs_fase_3; break;
|
||||||
read(fich,temp);
|
case 4: total_blocs_per_pintar = blocs_fase_4; break;
|
||||||
pantalla[i,j] := temp;
|
case 5: total_blocs_per_pintar = blocs_fase_5; break;
|
||||||
end;
|
case 6: total_blocs_per_pintar = blocs_fase_6; break;
|
||||||
end;
|
case 7: total_blocs_per_pintar = blocs_fase_7; break;
|
||||||
end;
|
case 8: total_blocs_per_pintar = blocs_fase_8; break;
|
||||||
|
case 9: total_blocs_per_pintar = blocs_fase_9; break;
|
||||||
|
case 10: total_blocs_per_pintar = blocs_fase_10; break;
|
||||||
|
}
|
||||||
|
blocs_per_pintar = total_blocs_per_pintar;
|
||||||
|
temps = 0;
|
||||||
|
velocitat_joc = 1;
|
||||||
|
no_queden_vides = false;
|
||||||
|
naiximent = false;
|
||||||
|
map = false;
|
||||||
|
|
||||||
Close(fich);
|
// ini malos
|
||||||
|
for (int i=0; i<max_malos; ++i) malo[i].viu = false;
|
||||||
|
malo[0].dibuix = d_malo1;
|
||||||
|
malo[1].dibuix = d_malo2;
|
||||||
|
malo[2].dibuix = num_fase == ultima_fase ? pepe_malo : d_malo3;
|
||||||
|
}
|
||||||
|
|
||||||
end;
|
|
||||||
|
|
||||||
end;
|
|
||||||
/*----------------------------------------------------*/
|
|
||||||
|
|
||||||
begin
|
|
||||||
malos_quets := false;
|
|
||||||
sense_rellontge:=true;
|
|
||||||
velocitat_pepe := 5;
|
|
||||||
x:=pos_ini_x_pepe;
|
|
||||||
y:=pos_ini_y_pepe;
|
|
||||||
fletxa_final_fase:=false;
|
|
||||||
if num_fase=0 then vides:=0
|
|
||||||
else if num_fase=1 then vides:=vides_de_pepe
|
|
||||||
else vides:=vides;
|
|
||||||
pintura:=max_pintura;
|
|
||||||
en_casa:=true;
|
|
||||||
final_fase:=false;
|
|
||||||
rellontge.viu := false;
|
|
||||||
rellontge.temps := 0;
|
|
||||||
temps := 0;
|
|
||||||
|
|
||||||
carrega_pantalla(num_fase);
|
|
||||||
|
|
||||||
case num_fase of
|
|
||||||
|
|
||||||
0 : total_blocs_per_pintar:=blocs_fase_0;
|
|
||||||
|
|
||||||
1 : total_blocs_per_pintar:=blocs_fase_1;
|
|
||||||
|
|
||||||
2 : total_blocs_per_pintar:=blocs_fase_2;
|
|
||||||
|
|
||||||
3 : total_blocs_per_pintar:=blocs_fase_3;
|
|
||||||
|
|
||||||
4 : total_blocs_per_pintar:=blocs_fase_4;
|
|
||||||
|
|
||||||
5 : total_blocs_per_pintar:=blocs_fase_5;
|
|
||||||
|
|
||||||
6 : total_blocs_per_pintar:=blocs_fase_6;
|
|
||||||
|
|
||||||
7 : total_blocs_per_pintar:=blocs_fase_7;
|
|
||||||
|
|
||||||
8 : total_blocs_per_pintar:=blocs_fase_8;
|
|
||||||
|
|
||||||
9 : total_blocs_per_pintar:=blocs_fase_9;
|
|
||||||
|
|
||||||
10 : total_blocs_per_pintar:=blocs_fase_10;
|
|
||||||
|
|
||||||
end;
|
|
||||||
blocs_per_pintar:=total_blocs_per_pintar;
|
|
||||||
temps:=0;
|
|
||||||
velocitat_joc:=1;
|
|
||||||
no_queden_vides:=false;
|
|
||||||
naiximent:=false;
|
|
||||||
map:=false;
|
|
||||||
|
|
||||||
/* ini malos */
|
|
||||||
if num_fase=ultima_fase then
|
|
||||||
begin
|
|
||||||
for i:=1 to max_malos do
|
|
||||||
begin
|
|
||||||
malo[i].viu:=false;
|
|
||||||
end;
|
|
||||||
malo[1].dibuix:=d_malo1;
|
|
||||||
malo[2].dibuix:=d_malo2;
|
|
||||||
malo[3].dibuix:=pepe_malo;
|
|
||||||
end
|
|
||||||
else begin
|
|
||||||
for i:=1 to max_malos do
|
|
||||||
begin
|
|
||||||
malo[i].viu:=false;
|
|
||||||
end;
|
|
||||||
malo[1].dibuix:=d_malo1;
|
|
||||||
malo[2].dibuix:=d_malo2;
|
|
||||||
malo[3].dibuix:=d_malo3;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
/*──────────────────────────────────────────────────────────────────────────*/
|
/*──────────────────────────────────────────────────────────────────────────*/
|
||||||
procedure ini_matrius;
|
void ini_matrius()
|
||||||
begin
|
{
|
||||||
|
// fondos
|
||||||
|
path[1] = PEPE01;
|
||||||
|
path[2] = PEPE02;
|
||||||
|
path[3] = PEPE03;
|
||||||
|
path[4] = PEPE04;
|
||||||
|
path[5] = PEPE05;
|
||||||
|
path[6] = PEPE06;
|
||||||
|
path[7] = PEPE07;
|
||||||
|
path[8] = PEPE08;
|
||||||
|
path[9] = PEPE09;
|
||||||
|
path[10] = PEPE10;
|
||||||
|
path[11] = PEPE11;
|
||||||
|
path[12] = ULT_FASE;
|
||||||
|
path[13] = TIME;
|
||||||
|
path[14] = FONS_NIT;
|
||||||
|
|
||||||
/* fondos */
|
// matriu de numeros
|
||||||
path[1]:=pepe01;
|
numero[0] = num0;
|
||||||
path[2]:=pepe02;
|
numero[1] = num1;
|
||||||
path[3]:=pepe03;
|
numero[2] = num2;
|
||||||
path[4]:=pepe04;
|
numero[3] = num3;
|
||||||
path[5]:=pepe05;
|
numero[4] = num4;
|
||||||
path[6]:=pepe06;
|
numero[5] = num5;
|
||||||
path[7]:=pepe07;
|
numero[6] = num6;
|
||||||
path[8]:=pepe08;
|
numero[7] = num7;
|
||||||
path[9]:=pepe09;
|
numero[8] = num8;
|
||||||
path[10]:=pepe10;
|
numero[9] = num9;
|
||||||
path[11]:=pepe11;
|
|
||||||
path[12]:=ult_fase;
|
|
||||||
path[13]:=time;
|
|
||||||
path[14]:=fons_nit;
|
|
||||||
|
|
||||||
/* matriu de numeros */
|
numero_G[0] = num_0;
|
||||||
numero[0]:=num0;
|
numero_G[1] = num_1;
|
||||||
numero[1]:=num1;
|
numero_G[2] = num_2;
|
||||||
numero[2]:=num2;
|
numero_G[3] = num_3;
|
||||||
numero[3]:=num3;
|
numero_G[4] = num_4;
|
||||||
numero[4]:=num4;
|
numero_G[5] = num_5;
|
||||||
numero[5]:=num5;
|
numero_G[6] = num_6;
|
||||||
numero[6]:=num6;
|
numero_G[7] = num_7;
|
||||||
numero[7]:=num7;
|
numero_G[8] = num_8;
|
||||||
numero[8]:=num8;
|
numero_G[9] = num_9;
|
||||||
numero[9]:=num9;
|
numero_G[10] = num_11;
|
||||||
|
|
||||||
numero_G[0]:=num_0;
|
load_records();
|
||||||
numero_G[1]:=num_1;
|
}
|
||||||
numero_G[2]:=num_2;
|
|
||||||
numero_G[3]:=num_3;
|
|
||||||
numero_G[4]:=num_4;
|
|
||||||
numero_G[5]:=num_5;
|
|
||||||
numero_G[6]:=num_6;
|
|
||||||
numero_G[7]:=num_7;
|
|
||||||
numero_G[8]:=num_8;
|
|
||||||
numero_G[9]:=num_9;
|
|
||||||
numero_G[10]:=num_11;
|
|
||||||
|
|
||||||
load_records;
|
|
||||||
|
|
||||||
end;
|
|
||||||
/*──────────────────────────────────────────────────────────────────────────*/
|
/*──────────────────────────────────────────────────────────────────────────*/
|
||||||
procedure pinta_marcadors;
|
void pinta_marcadors()
|
||||||
var i,j : word;
|
{
|
||||||
begin
|
// pintura
|
||||||
|
for (int i=pos_esq_m_p; i<=pos_dreta_m_p; ++i)
|
||||||
|
for (int j=(pos_base_m_p-(max_pintura / tamany_m_p)); j<=pos_base_m_p; ++j)
|
||||||
|
putpixel(i, j, color_marcador_pintura_fondo, vaddr);
|
||||||
|
|
||||||
/* pintura */
|
for (int i=pos_esq_m_p; i<=pos_dreta_m_p; ++i)
|
||||||
for i:=pos_esq_m_p to pos_dreta_m_p do
|
for (int j=(pos_base_m_p-(pintura / tamany_m_p)); j<=pos_base_m_p; ++j)
|
||||||
for j:= (pos_base_m_p-(max_pintura div tamany_m_p)) to pos_base_m_p do
|
putpixel(i, j, color_marcador_pintura, vaddr);
|
||||||
putpixel(i,j,color_marcador_pintura_fondo,vaddr);
|
|
||||||
for i:=pos_esq_m_p to pos_dreta_m_p do
|
|
||||||
for j:= (pos_base_m_p-(pintura div tamany_m_p)) to pos_base_m_p do
|
|
||||||
putpixel(i,j,color_marcador_pintura,vaddr);
|
|
||||||
if pintura=0 then
|
|
||||||
for i:=pos_esq_m_p to pos_dreta_m_p do
|
|
||||||
for j:= (pos_base_m_p-(pintura div tamany_m_p)) to pos_base_m_p do
|
|
||||||
|
|
||||||
putpixel(i,(pos_base_m_p),color_marcador_pintura_fondo,vaddr);
|
if (pintura==0)
|
||||||
|
for (int i=pos_esq_m_p; i<=pos_dreta_m_p; ++i)
|
||||||
|
for (int j=(pos_base_m_p-(pintura / tamany_m_p)); j<=pos_base_m_p; ++j)
|
||||||
|
putpixel(i, pos_base_m_p, color_marcador_pintura_fondo, vaddr);
|
||||||
|
|
||||||
|
if (num_fase>0)
|
||||||
|
{
|
||||||
|
// vides
|
||||||
|
pinta_number(numero_G[vides], 255, 268, 169, vaddr);
|
||||||
|
|
||||||
if num_fase>0 then
|
// punts
|
||||||
begin
|
const int i = 265;
|
||||||
/* vides */
|
const int j = 73;
|
||||||
pinta_number(numero_G[vides],255,268,169,vaddr);
|
|
||||||
|
|
||||||
/* punts */
|
pinta_number(numero_G[punts], color_fondo_marcador_punts, i, j, vaddr);
|
||||||
i:=265;
|
pinta_number(numero_G[punts], color_fondo_marcador_punts, i+6, j, vaddr);
|
||||||
j:=73;
|
pinta_number(numero_G[punts], color_fondo_marcador_punts, i+12, j, vaddr);
|
||||||
|
pinta_number(numero_G[punts], color_fondo_marcador_punts, i+18, j, vaddr);
|
||||||
|
pinta_number(numero_G[punts], color_fondo_marcador_punts, i+24, j, vaddr);
|
||||||
|
pinta_number(numero_G[punts], color_fondo_marcador_punts, i+30, j, vaddr);
|
||||||
|
pinta_number(numero_G[punts], color_fondo_marcador_punts, i+36, j, vaddr);
|
||||||
|
|
||||||
pinta_number(numero_G[punts],color_fondo_marcador_punts,i,j,vaddr);
|
pinta_number(numero_G[punts / 1000000], 255, i, j, vaddr);
|
||||||
pinta_number(numero_G[punts],color_fondo_marcador_punts,i+6,j,vaddr);
|
pinta_number(numero_G[(punts % 1000000) / 100000], 255, i+6, j, vaddr);
|
||||||
pinta_number(numero_G[punts],color_fondo_marcador_punts,i+12,j,vaddr);
|
pinta_number(numero_G[((punts % 1000000) % 100000) / 10000], 255, i+12, j, vaddr);
|
||||||
pinta_number(numero_G[punts],color_fondo_marcador_punts,i+18,j,vaddr);
|
pinta_number(numero_G[(((punts % 1000000) % 100000) % 10000) / 1000], 255, i+18, j, vaddr);
|
||||||
pinta_number(numero_G[punts],color_fondo_marcador_punts,i+24,j,vaddr);
|
pinta_number(numero_G[((((punts % 1000000) % 100000) % 10000) % 1000) / 100], 255, i+24, j, vaddr);
|
||||||
pinta_number(numero_G[punts],color_fondo_marcador_punts,i+30,j,vaddr);
|
pinta_number(numero_G[(((((punts % 1000000) % 100000) % 10000) % 1000) % 100) / 10], 255, i+30, j, vaddr);
|
||||||
pinta_number(numero_G[punts],color_fondo_marcador_punts,i+36,j,vaddr);
|
pinta_number(numero_G[(((((punts % 1000000) % 100000) % 10000) % 100) % 10)], 255, i+36, j, vaddr);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
pinta_number(numero_G[punts div 1000000],255,i,j,vaddr);
|
|
||||||
pinta_number(numero_G[(punts mod 1000000) div 100000],255,i+6,j,vaddr);
|
|
||||||
pinta_number(numero_G[((punts mod 1000000) mod 100000) div 10000],255,i+12,j,vaddr);
|
|
||||||
pinta_number(numero_G[(((punts mod 1000000) mod 100000) mod 10000) div 1000],255,i+18,j,vaddr);
|
|
||||||
pinta_number(numero_G[((((punts mod 1000000) mod 100000) mod 10000) mod 1000) div 100],255,i+24,j,vaddr);
|
|
||||||
pinta_number(numero_G[(((((punts mod 1000000) mod 100000) mod 10000) mod 1000) mod 100) div 10],255,i+30,j,vaddr);
|
|
||||||
pinta_number(numero_G[(((((punts mod 1000000) mod 100000) mod 10000) mod 100) mod 10)],255,i+36,j,vaddr);
|
|
||||||
|
|
||||||
/* blocs */
|
|
||||||
/*pinta(numero[blocs_per_pintar],239,i,60,vaddr);
|
|
||||||
pinta(numero[blocs_per_pintar],239,i+4,60,vaddr);
|
|
||||||
pinta(numero[blocs_per_pintar],239,i+8,60,vaddr);
|
|
||||||
pinta(numero[blocs_per_pintar],239,i+12,60,vaddr);
|
|
||||||
|
|
||||||
pinta(numero[blocs_per_pintar div 1000],255,i,60,vaddr);
|
|
||||||
pinta(numero[((blocs_per_pintar mod 1000) div 100)],255,i+4,60,vaddr);
|
|
||||||
pinta(numero[(((blocs_per_pintar mod 1000) mod 100) div 10)],255,i+8,60,vaddr);
|
|
||||||
pinta(numero[(((blocs_per_pintar mod 1000) mod 100) mod 10)],255,i+12,60,vaddr);*/
|
|
||||||
|
|
||||||
/* altaveu */
|
|
||||||
/*if amb_so then
|
|
||||||
begin
|
|
||||||
pinta_number(altaveu_on,255,1,189,vaddr);
|
|
||||||
end
|
|
||||||
else begin
|
|
||||||
pinta_number(altaveu_off,255,1,189,vaddr);
|
|
||||||
end;*/
|
|
||||||
/* mapa */
|
|
||||||
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
/*──────────────────────────────────────────────────────────────────────────*/
|
/*──────────────────────────────────────────────────────────────────────────*/
|
||||||
procedure ini_pantalla;
|
void ini_pantalla()
|
||||||
var i,j : word;
|
var i,j : word;
|
||||||
i_int:integer;
|
i_int:integer;
|
||||||
offset : word;
|
offset : word;
|
||||||
VirscrFase : Ptr_pantalla;
|
VirscrFase : Ptr_pantalla;
|
||||||
vaddrFase : Word;
|
vaddrFase : Word;
|
||||||
|
|
||||||
begin
|
{
|
||||||
|
uint8_t *vaddrFase = (uint8_t*)malloc(64000); // 6400???
|
||||||
|
|
||||||
getmem(virscrFase,6400);
|
load_mif(FASES,vaddr);
|
||||||
vaddrFase:=seg(virscrFase^);
|
Cls32(0, vaddrFase);
|
||||||
|
offset = ((num_fase / 6)*160)+((((num_fase-1) % 5)*40)*320);
|
||||||
|
PutSprite(vaddr, vaddrFase, offset, 160, 40, 0, 0);
|
||||||
|
|
||||||
load_mif(fases,vaddr);
|
if (!mode_nocturne)
|
||||||
Cls32(0,vaddrFase);
|
{
|
||||||
offset:=((num_fase div 6)*160)+((((num_fase-1) mod 5)*40)*320);
|
if (num_fase>0)
|
||||||
PutSprite(vaddr,vaddrFase,offset,160,40,0,0);
|
load_mif(path[(rand()%max_fondos_story)+1], vaddr2);
|
||||||
|
else
|
||||||
|
load_mif(path[13], vaddr2);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
load_mif(path[14], vaddr2);
|
||||||
|
|
||||||
if not(mode_nocturne) then
|
if ((num_fase==ultima_fase) && !mode_nocturne) load_mif(path[12], vaddr2);
|
||||||
begin
|
|
||||||
if num_fase>0 then load_mif(path[random(max_fondos_story)+1],vaddr2)
|
|
||||||
else load_mif(path[13],vaddr2);
|
|
||||||
end
|
|
||||||
else load_mif(path[14],vaddr2);
|
|
||||||
|
|
||||||
if (num_fase=ultima_fase) and not(mode_nocturne) then load_mif(path[12],vaddr2);
|
// pinta numero de fase
|
||||||
|
if ( (num_fase>0) && (num_fase<10) ) pinta_number(numero_G[num_fase], 255, 1, 1, vaddr2);
|
||||||
|
|
||||||
|
// pinta les pareds
|
||||||
|
for (int i=0; i<38; ++i)
|
||||||
|
for (int j=0; j<29; ++j)
|
||||||
|
if (pantalla[i,j]==es_una_paret) pinta(dib_pared, 255, (i*6)+4, (j+1)*6, vaddr2);
|
||||||
|
|
||||||
/* pinta numero de fase */
|
// pinta a Rosita i a la presó
|
||||||
if (num_fase>0) and (num_fase<10) then pinta_number(numero_G[num_fase],255,1,1,vaddr2);
|
if (num_fase==ultima_fase)
|
||||||
|
{
|
||||||
|
pinta(rosita, 255, 16, 96, vaddr2);
|
||||||
|
pinta(preso, 255, 22, 96, vaddr2);
|
||||||
|
for (int i=97; i<=102; ++i) putpixel(16, i, 237, vaddr2);
|
||||||
|
putpixel(17, 97, 237, vaddr2);
|
||||||
|
putpixel(22, 97, 237, vaddr2);
|
||||||
|
putpixel(17, 102, 237, vaddr2);
|
||||||
|
putpixel(22, 102, 237, vaddr2);
|
||||||
|
}
|
||||||
|
|
||||||
/* pinta les pareds */
|
// pinta el marcador de pintura
|
||||||
for i:=1 to 38 do
|
for (int i=pos_esq_m_p; i<=pos_dreta_m_p; ++i)
|
||||||
for j:=1 to 29 do
|
for (int j=(pos_base_m_p-(pintura / tamany_m_p)); j<=pos_base_m_p; ++j)
|
||||||
if pantalla[i,j]=es_una_paret then pinta(dib_pared,255,(i*6)+4,(j+1)*6,vaddr2)
|
{
|
||||||
/*put_matrix(pepe,color_pared,(i*6)+4,(j+1)*6,6,6,vaddr2)*/;
|
putpixel(i, j, color_marcador_pintura, vaddr2);
|
||||||
|
putpixel(pos_esq_m_p-1, j, color_borde_m_p, vaddr2);
|
||||||
|
putpixel(pos_dreta_m_p+1, j, color_borde_m_p, vaddr2);
|
||||||
|
putpixel(i, (pos_base_m_p-(max_pintura / tamany_m_p)-1), color_borde_m_p, vaddr2);
|
||||||
|
putpixel(i, (pos_base_m_p+1), color_borde_m_p, vaddr2);
|
||||||
|
}
|
||||||
|
|
||||||
/* pinta a Rosita i a la presó */
|
// coloca la fase
|
||||||
if num_fase=ultima_fase then
|
getpaleta(paleta);
|
||||||
begin
|
blackout();
|
||||||
pinta(rosita,255,16,96,vaddr2);
|
cls32(0, vaddr);
|
||||||
pinta(preso,255,22,96,vaddr2);
|
PutBloc(vaddr2, 0, vaddr, 249, 200, 0, 0);
|
||||||
for i:=97 to 102 do putpixel(16,i,237,vaddr2);
|
volcar32(vaddr, VGA);
|
||||||
putpixel(17,97,237,vaddr2);
|
fadeup(paleta, 0);
|
||||||
putpixel(22,97,237,vaddr2);
|
|
||||||
putpixel(17,102,237,vaddr2);
|
|
||||||
putpixel(22,102,237,vaddr2);
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
// posa el marcador
|
||||||
|
for (int j=0; j<=49; ++j)
|
||||||
|
{
|
||||||
|
const int i = j << 1;
|
||||||
|
PutBloc(vaddr2, 248+((99-i)*320), vaddr, 72, i+1, 248, 0);
|
||||||
|
PutBloc(vaddr2, 32248, vaddr, 72, i+1, 248, 199-i);
|
||||||
|
PutBloc(vaddr2, 0, vaddr, 249, 200, 0, 0);
|
||||||
|
espera_VGA();
|
||||||
|
volcar32(vaddr, VGA);
|
||||||
|
}
|
||||||
|
|
||||||
/* pinta el marcador de pintura */
|
// posa el lletrero de fase X
|
||||||
for i:=pos_esq_m_p to pos_dreta_m_p do
|
if (story_mode_mode)
|
||||||
for j:= (pos_base_m_p-(pintura div tamany_m_p)) to pos_base_m_p do
|
for (int i=-40; i<=80; ++i)
|
||||||
begin
|
{
|
||||||
putpixel(i,j,color_marcador_pintura,vaddr2);
|
volcar32(vaddr2, vaddr);
|
||||||
putpixel(pos_esq_m_p-1,j,color_borde_m_p,vaddr2);
|
if (i<20)
|
||||||
putpixel(pos_dreta_m_p+1,j,color_borde_m_p,vaddr2);
|
Put_Sprite_ICE_esquerra(vaddrFase, vaddr, 0, 160, 40, i << 2, 80);
|
||||||
putpixel(i,(pos_base_m_p-(max_pintura div tamany_m_p)-1),color_borde_m_p,vaddr2);
|
else
|
||||||
putpixel(i,(pos_base_m_p+1),color_borde_m_p,vaddr2);
|
Put_Sprite_ICE_dreta(vaddrFase, vaddr, 0, 160, 40, i << 2, 80);
|
||||||
end;
|
|
||||||
|
|
||||||
/* coloca la fase */
|
if (i==14) delay(2000);
|
||||||
getpaleta(paleta);
|
espera_VGA();
|
||||||
blackout;
|
Volcar32(vaddr, VGA);
|
||||||
cls32(0,vaddr);
|
}
|
||||||
PutBloc(vaddr2,0,vaddr,249,200,0,0);
|
free(vaddrFase);
|
||||||
volcar32(vaddr,VGA);
|
}
|
||||||
fadeup(paleta,0);
|
|
||||||
|
|
||||||
/* posa el marcador */
|
|
||||||
For j:=0 to 49 do
|
|
||||||
begin
|
|
||||||
i:=j shl 1;
|
|
||||||
PutBloc(vaddr2,248+((99-i)*320),vaddr,72,i+1,248,0);
|
|
||||||
PutBloc(vaddr2,32248,vaddr,72,i+1,248,199-i);
|
|
||||||
PutBloc(vaddr2,0,vaddr,249,200,0,0);
|
|
||||||
espera_VGA;
|
|
||||||
volcar32(vaddr,VGA);
|
|
||||||
end;
|
|
||||||
|
|
||||||
/* posa el lletrero de fase X */
|
|
||||||
if story_mode_mode then
|
|
||||||
for i_int:=-40 to 80 do
|
|
||||||
begin
|
|
||||||
volcar32(vaddr2,vaddr);
|
|
||||||
if i_int<20 then Put_Sprite_ICE_esquerra(vaddrFase,vaddr,0,160,40,i_int shl 2,80)
|
|
||||||
else Put_Sprite_ICE_dreta(vaddrFase,vaddr,0,160,40,i_int shl 2,80);
|
|
||||||
if i_int=14 then delay(2000);
|
|
||||||
espera_VGA;
|
|
||||||
Volcar32(vaddr,VGA);
|
|
||||||
end;
|
|
||||||
|
|
||||||
Freemem(virscrFase,6400);
|
|
||||||
|
|
||||||
end;
|
|
||||||
/*──────────────────────────────────────────────────────────────────────────*/
|
/*──────────────────────────────────────────────────────────────────────────*/
|
||||||
procedure level_complete;
|
void level_complete()
|
||||||
var i,temps,temps2 : word;
|
{
|
||||||
begin
|
if (midi)
|
||||||
|
{
|
||||||
|
StopMIDI();
|
||||||
|
unloadmidi();
|
||||||
|
midi = false;
|
||||||
|
}
|
||||||
|
if (!mode_nocturne)
|
||||||
|
{
|
||||||
|
load_mif(DONE01, vaddr);
|
||||||
|
espera_vga();
|
||||||
|
volcar32(vaddr, VGA);
|
||||||
|
ini_midi(musica_canvi_fase);
|
||||||
|
if (midi) Playmidi();
|
||||||
|
|
||||||
if midi then begin StopMIDI; unloadmidi; midi:=false; end;
|
const uint32_t t = SDL_GetTicks() + 4000;
|
||||||
if not(mode_nocturne) then
|
do {} while( SDL_GetTicks() < t );
|
||||||
begin
|
borrat_de_pantalla(vaddr);
|
||||||
load_mif(done01,vaddr);
|
}
|
||||||
espera_vga;
|
else
|
||||||
volcar32(vaddr,VGA);
|
{
|
||||||
ini_midi(musica_canvi_fase);
|
load_mif(DONE05, vaddr);
|
||||||
if midi then Playmidi;
|
espera_vga();
|
||||||
|
volcar32(vaddr, VGA);
|
||||||
|
ini_midi(musica_canvi_fase_n);
|
||||||
|
if (midi) Playmidi();
|
||||||
|
if (midi)
|
||||||
|
do {} while(playing);
|
||||||
|
else
|
||||||
|
for (int i=0; i<=300; ++i) espera_VGA();
|
||||||
|
borrat_de_pantalla(vaddr);
|
||||||
|
if (midi)
|
||||||
|
{
|
||||||
|
StopMIDI();
|
||||||
|
unloadmidi();
|
||||||
|
midi = false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
Gettime(h,m,s,c);
|
|
||||||
temps:=h*3600+m*60+s;
|
|
||||||
Repeat
|
|
||||||
Gettime(h,m,s,c);
|
|
||||||
temps2:=h*3600+m*60+s;
|
|
||||||
until /*(QteclaPuls) or*/ ((temps2-temps)>=4);
|
|
||||||
|
|
||||||
borrat_de_pantalla(vaddr);
|
|
||||||
end
|
|
||||||
else begin
|
|
||||||
load_mif(done05,vaddr);
|
|
||||||
espera_vga;
|
|
||||||
volcar32(vaddr,VGA);
|
|
||||||
ini_midi(musica_canvi_fase_n);
|
|
||||||
if midi then Playmidi;
|
|
||||||
if midi then repeat until not(playing)
|
|
||||||
else for i:=0 to 300 do espera_VGA;
|
|
||||||
borrat_de_pantalla(vaddr);
|
|
||||||
if midi then begin StopMIDI; unloadmidi; midi:=false; end;
|
|
||||||
|
|
||||||
end;
|
|
||||||
|
|
||||||
end;
|
|
||||||
/*──────────────────────────────────────────────────────────────────────────*/
|
/*──────────────────────────────────────────────────────────────────────────*/
|
||||||
procedure volcat_de_pantalla;
|
procedure volcat_de_pantalla;
|
||||||
begin
|
begin
|
||||||
|
|||||||
Reference in New Issue
Block a user