JailDoctor/pepe_port
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- Fins la linea 2060

Browse Source
This commit is contained in:
Raimon Zamora
2024-01-24 19:36:56 +01:00
parent 433136c46a
commit 74c3756a24
1 changed files with 402 additions and 441 deletions
Download Patch File Download Diff File Expand all files Collapse all files

721
pepe2000_utf8.cpp
View File

@@ -1548,38 +1548,32 @@ 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;
begin
gettime(h1,m1,s1,c1); gettime(h1,m1,s1,c1);
/*temps:=temps+(((h1-h)*24)+((m1-m)*60)+(s1-s));*/ temps = (SDL_GetTicks() / 1000) - hora;
/*if (s1-s)>0 then temps:=temps+(100-c+c1) else temps:=temps+(c1-c);*/ const uint16_t minuts = temps / 60;
temps := (s1)+(m1*60)+(h1*3600) - hora; const uint16_t segons = temps % 60;
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,82, where);
pinta_number(num_0, 180, i+12, 82, where); pinta_number(num_0, 180, i+12, 82, where);
@@ -1588,132 +1582,154 @@ begin
pinta_number(num_11, 255, i+6, 82, where); pinta_number(num_11, 255, i+6, 82, where);
pinta_number(numero_G[minuts], 255, i, 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 / 10], 255, i+12, 82, where);
pinta_number(numero_G[segons mod 10],255,i+18,82,where); pinta_number(numero_G[segons % 10], 255, i+18, 82, where);
end; }
/*──────────────────────────────────────────────────────────────────────────*/
procedure resultat_time_attack;
var i,minuts,segons : word;
begin
/*──────────────────────────────────────────────────────────────────────────*/
void resultat_time_attack()
{
fadedown(0,0,0,1); fadedown(0,0,0,1);
load_mif(time_fin,vaddr2); load_mif(TIME_FIN, vaddr2);
volcar32(vaddr2, vaddr); volcar32(vaddr2, vaddr);
ini_midi(musica_game_over); ini_midi(musica_game_over);
if midi then Playmidi; if (midi) Playmidi();
minuts:=(temps_final mod 3600) div 60; const uint16_t minuts = (temps_final % 3600) / 60;
segons:=(temps_final mod 3600) mod 60; const uint16_t segons = (temps_final % 3600) % 60;
i:=180; const int i = 180;
pinta_number_zoom(4, numero_G[minuts], 255, i, 126, vaddr); 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, num_11, 255, i+6*4, 126, vaddr);
pinta_number_zoom(4,numero_G[segons div 10],255,i+12*4,126,vaddr); pinta_number_zoom(4, numero_G[segons / 10], 255, i+12*4, 126, vaddr);
pinta_number_zoom(4,numero_G[segons mod 10],255,i+18*4,126,vaddr); pinta_number_zoom(4, numero_G[segons % 10], 255, i+18*4, 126, vaddr);
espera_vga; espera_vga();
volcar32(vaddr, VGA); volcar32(vaddr, VGA);
retard(300); retard(300);
gestio_records(43); gestio_records(43);
retard(100); retard(100);
escriu_records(10); escriu_records(10);
borrat_de_pantalla(vaddr); borrat_de_pantalla(vaddr);
save_records; save_records();
if midi then begin StopMIDI; unloadmidi; midi:=false; end; if (midi)
{
StopMIDI();
unloadmidi();
midi = false;
}
}
end;
/*──────────────────────────────────────────────────────────────────────────*/ /*──────────────────────────────────────────────────────────────────────────*/
procedure missatge_game_over; void missatge_game_over()
var {
i,j : word;
k : byte;
num1,num2,num3,num4,num5,num6,num7 : byte;
begin
fadedown(0,0,0,2); fadedown(0,0,0,2);
load_mif(pepefins,vaddr); load_mif(PEPEFINS, vaddr);
ini_midi(musica_game_over); ini_midi(musica_game_over);
if midi then Playmidi; if (midi) Playmidi();
if time_attack_mode then for i:=50 to 280 do if (time_attack_mode)
for j:=130 to 190 do putpixel(i,j,239,vaddr); for (int i=50; i<=280; ++i)
if story_mode_mode then for (int j=130; j<=190; ++j)
begin putpixel(i, j, 239, vaddr);
if (story_mode_mode)
{
volcar32(vaddr, vaddr2); volcar32(vaddr, vaddr2);
for i:=50 to 280 do for (int i=50; i<=280; ++i)
for j:=130 to 190 do putpixel(i,j,239,vaddr2); for (int j=130; j<=190; ++j)
espera_VGA; putpixel(i, j, 239, vaddr2);
espera_VGA();
volcar32(vaddr2, VGA); volcar32(vaddr2, VGA);
retard(200); 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;
if (num != 0)
{
pinta_number(numero_G[num], 255, i+24, j, vaddr);
num = (((puntuacio[x] % 1000000) % 100000) % 10000) / 1000;
if (num != 0)
{
pinta_number(numero_G[num], 255, i+18, j, vaddr);
num = ((puntuacio[x] % 1000000) % 100000) / 10000;
if (num != 0)
{
pinta_number(numero_G[num], 255, i+12, j, vaddr);
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); volcar32(vaddr, VGA);
retard(300); retard(300);
if story_mode_mode then gestio_records(144); if (story_mode_mode) gestio_records(144);
fadedown(0,0,0,0); fadedown(0,0,0,0);
escriu_records(10); escriu_records(10);
borrat_de_pantalla(vaddr); borrat_de_pantalla(vaddr);
vides:=0; vides = 0;
no_queden_vides:=true; no_queden_vides = true;
save_records; save_records();
if midi then begin StopMIDI; unloadmidi; midi:=false; end; 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,188 +1758,149 @@ 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;
Assign(fich,'datos/comp.dat'); rellontge.temps = 0;
Reset(fich); temps = 0;
for k:=1 to num do
begin
for i:=1 to 38 do
begin
for j:=1 to 29 do
begin
read(fich,temp);
pantalla[i,j] := temp;
end;
end;
end;
Close(fich);
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); carrega_pantalla(num_fase);
case num_fase of switch (num_fase)
{
case 0: total_blocs_per_pintar = blocs_fase_0; break;
case 1: total_blocs_per_pintar = blocs_fase_1; break;
case 2: total_blocs_per_pintar = blocs_fase_2; break;
case 3: total_blocs_per_pintar = blocs_fase_3; break;
case 4: total_blocs_per_pintar = blocs_fase_4; break;
case 5: total_blocs_per_pintar = blocs_fase_5; break;
case 6: total_blocs_per_pintar = blocs_fase_6; break;
case 7: total_blocs_per_pintar = blocs_fase_7; break;
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;
0 : total_blocs_per_pintar:=blocs_fase_0; // 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;
}
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)
/* pintura */ for (int j=(pos_base_m_p-(max_pintura / tamany_m_p)); j<=pos_base_m_p; ++j)
for i:=pos_esq_m_p to pos_dreta_m_p do
for j:= (pos_base_m_p-(max_pintura div tamany_m_p)) to pos_base_m_p do
putpixel(i, j, color_marcador_pintura_fondo, 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 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, j, color_marcador_pintura, vaddr); 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)
if num_fase>0 then {
begin // vides
/* vides */
pinta_number(numero_G[vides], 255, 268, 169, vaddr); pinta_number(numero_G[vides], 255, 268, 169, vaddr);
/* punts */ // punts
i:=265; const int i = 265;
j:=73; const int j = 73;
pinta_number(numero_G[punts], color_fondo_marcador_punts, i, j, vaddr); pinta_number(numero_G[punts], color_fondo_marcador_punts, i, j, vaddr);
pinta_number(numero_G[punts], color_fondo_marcador_punts, i+6, j, vaddr); pinta_number(numero_G[punts], color_fondo_marcador_punts, i+6, j, vaddr);
@@ -1933,169 +1910,153 @@ begin
pinta_number(numero_G[punts], color_fondo_marcador_punts, i+30, 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+36, j, vaddr);
pinta_number(numero_G[punts div 1000000],255,i,j,vaddr); pinta_number(numero_G[punts / 1000000], 255, i, j, vaddr);
pinta_number(numero_G[(punts mod 1000000) div 100000],255,i+6,j,vaddr); pinta_number(numero_G[(punts % 1000000) / 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 % 1000000) % 100000) / 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 % 1000000) % 100000) % 10000) / 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 % 1000000) % 100000) % 10000) % 1000) / 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 % 1000000) % 100000) % 10000) % 1000) % 100) / 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); pinta_number(numero_G[(((((punts % 1000000) % 100000) % 10000) % 100) % 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^);
load_mif(fases,vaddr);
Cls32(0, vaddrFase); Cls32(0, vaddrFase);
offset:=((num_fase div 6)*160)+((((num_fase-1) mod 5)*40)*320); offset = ((num_fase / 6)*160)+((((num_fase-1) % 5)*40)*320);
PutSprite(vaddr, vaddrFase, offset, 160, 40, 0, 0); PutSprite(vaddr, vaddrFase, offset, 160, 40, 0, 0);
if not(mode_nocturne) then if (!mode_nocturne)
begin {
if num_fase>0 then load_mif(path[random(max_fondos_story)+1],vaddr2) if (num_fase>0)
else load_mif(path[13],vaddr2); load_mif(path[(rand()%max_fondos_story)+1], vaddr2);
end else
else load_mif(path[14],vaddr2); load_mif(path[13], vaddr2);
}
else
load_mif(path[14], vaddr2);
if (num_fase=ultima_fase) and not(mode_nocturne) then load_mif(path[12],vaddr2); if ((num_fase==ultima_fase) && !mode_nocturne) 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 numero de fase */ // pinta les pareds
if (num_fase>0) and (num_fase<10) then pinta_number(numero_G[num_fase],255,1,1,vaddr2); 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 les pareds */ // pinta a Rosita i a la presó
for i:=1 to 38 do if (num_fase==ultima_fase)
for j:=1 to 29 do {
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)*/;
/* pinta a Rosita i a la presó */
if num_fase=ultima_fase then
begin
pinta(rosita, 255, 16, 96, vaddr2); pinta(rosita, 255, 16, 96, vaddr2);
pinta(preso, 255, 22, 96, vaddr2); pinta(preso, 255, 22, 96, vaddr2);
for i:=97 to 102 do putpixel(16,i,237,vaddr2); for (int i=97; i<=102; ++i) putpixel(16, i, 237, vaddr2);
putpixel(17, 97, 237, vaddr2); putpixel(17, 97, 237, vaddr2);
putpixel(22, 97, 237, vaddr2); putpixel(22, 97, 237, vaddr2);
putpixel(17, 102, 237, vaddr2); putpixel(17, 102, 237, vaddr2);
putpixel(22, 102, 237, vaddr2); putpixel(22, 102, 237, vaddr2);
end; }
// pinta el marcador de pintura
/* pinta el marcador de 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-(pintura div tamany_m_p)) to pos_base_m_p do {
begin
putpixel(i, j, color_marcador_pintura, vaddr2); putpixel(i, j, color_marcador_pintura, vaddr2);
putpixel(pos_esq_m_p-1, j, color_borde_m_p, 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(pos_dreta_m_p+1, j, color_borde_m_p, vaddr2);
putpixel(i,(pos_base_m_p-(max_pintura div tamany_m_p)-1),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); putpixel(i, (pos_base_m_p+1), color_borde_m_p, vaddr2);
end; }
/* coloca la fase */ // coloca la fase
getpaleta(paleta); getpaleta(paleta);
blackout; blackout();
cls32(0, vaddr); cls32(0, vaddr);
PutBloc(vaddr2, 0, vaddr, 249, 200, 0, 0); PutBloc(vaddr2, 0, vaddr, 249, 200, 0, 0);
volcar32(vaddr, VGA); volcar32(vaddr, VGA);
fadeup(paleta, 0); fadeup(paleta, 0);
/* posa el marcador */ // posa el marcador
For j:=0 to 49 do for (int j=0; j<=49; ++j)
begin {
i:=j shl 1; const int i = j << 1;
PutBloc(vaddr2, 248+((99-i)*320), vaddr, 72, i+1, 248, 0); PutBloc(vaddr2, 248+((99-i)*320), vaddr, 72, i+1, 248, 0);
PutBloc(vaddr2, 32248, vaddr, 72, i+1, 248, 199-i); PutBloc(vaddr2, 32248, vaddr, 72, i+1, 248, 199-i);
PutBloc(vaddr2, 0, vaddr, 249, 200, 0, 0); PutBloc(vaddr2, 0, vaddr, 249, 200, 0, 0);
espera_VGA; espera_VGA();
volcar32(vaddr, VGA); volcar32(vaddr, VGA);
end; }
/* posa el lletrero de fase X */ // posa el lletrero de fase X
if story_mode_mode then if (story_mode_mode)
for i_int:=-40 to 80 do for (int i=-40; i<=80; ++i)
begin {
volcar32(vaddr2, vaddr); volcar32(vaddr2, vaddr);
if i_int<20 then Put_Sprite_ICE_esquerra(vaddrFase,vaddr,0,160,40,i_int shl 2,80) if (i<20)
else Put_Sprite_ICE_dreta(vaddrFase,vaddr,0,160,40,i_int shl 2,80); Put_Sprite_ICE_esquerra(vaddrFase, vaddr, 0, 160, 40, i << 2, 80);
if i_int=14 then delay(2000); else
espera_VGA; Put_Sprite_ICE_dreta(vaddrFase, vaddr, 0, 160, 40, i << 2, 80);
if (i==14) delay(2000);
espera_VGA();
Volcar32(vaddr, VGA); Volcar32(vaddr, VGA);
end; }
free(vaddrFase);
}
Freemem(virscrFase,6400);
end;
/*──────────────────────────────────────────────────────────────────────────*/ /*──────────────────────────────────────────────────────────────────────────*/
procedure level_complete; void level_complete()
var i,temps,temps2 : word; {
begin if (midi)
{
if midi then begin StopMIDI; unloadmidi; midi:=false; end; StopMIDI();
if not(mode_nocturne) then unloadmidi();
begin midi = false;
load_mif(done01,vaddr); }
espera_vga; if (!mode_nocturne)
{
load_mif(DONE01, vaddr);
espera_vga();
volcar32(vaddr, VGA); volcar32(vaddr, VGA);
ini_midi(musica_canvi_fase); ini_midi(musica_canvi_fase);
if midi then Playmidi; if (midi) Playmidi();
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);
const uint32_t t = SDL_GetTicks() + 4000;
do {} while( SDL_GetTicks() < t );
borrat_de_pantalla(vaddr); borrat_de_pantalla(vaddr);
end }
else begin else
load_mif(done05,vaddr); {
espera_vga; load_mif(DONE05, vaddr);
espera_vga();
volcar32(vaddr, VGA); volcar32(vaddr, VGA);
ini_midi(musica_canvi_fase_n); ini_midi(musica_canvi_fase_n);
if midi then Playmidi; if (midi) Playmidi();
if midi then repeat until not(playing) if (midi)
else for i:=0 to 300 do espera_VGA; do {} while(playing);
else
for (int i=0; i<=300; ++i) espera_VGA();
borrat_de_pantalla(vaddr); borrat_de_pantalla(vaddr);
if midi then begin StopMIDI; unloadmidi; midi:=false; end; if (midi)
{
StopMIDI();
unloadmidi();
midi = false;
}
}
}
end;
end;
/*──────────────────────────────────────────────────────────────────────────*/ /*──────────────────────────────────────────────────────────────────────────*/
procedure volcat_de_pantalla; procedure volcat_de_pantalla;
begin begin