- Fins a la linea 3111

This commit is contained in:
2024-01-25 17:55:20 +01:00
parent 99bc55483c
commit c7254f66ed

View File

@@ -2766,11 +2766,6 @@ void load_setup_i_versio()
/*──────────────────────────────────────────────────────────────────────────*/ /*──────────────────────────────────────────────────────────────────────────*/
void story_mode() void story_mode()
/*var
eixir : boolean;
s_vella : byte;
musica_fase:string;
*/
{ {
historia(); historia();
num_fase = 1; num_fase = 1;
@@ -2786,7 +2781,7 @@ void story_mode()
ini_pantalla(); ini_pantalla();
volcar32(vaddr2, vaddr); volcar32(vaddr2, vaddr);
pinta_marcadors(); pinta_marcadors();
eixir = false; bool eixir = false;
if (midi) then if (midi) then
{ {
StopMIDI(); StopMIDI();
@@ -3012,99 +3007,108 @@ void story_mode()
} }
/*──────────────────────────────────────────────────────────────────────────*/ /*──────────────────────────────────────────────────────────────────────────*/
procedure time_attack; void time_attack()
var {
eixir : boolean;
begin
num_fase:=0; num_fase = 0;
ini_vars(num_fase); ini_vars(num_fase);
ini_pantalla; ini_pantalla();
volcar32(vaddr2, vaddr); volcar32(vaddr2, vaddr);
pinta_marcadors; pinta_marcadors();
dificultat:=normal; dificultat = normal;
rosita_selected:=false; rosita_selected = false;
amic_selected:=false; amic_selected = false;
color_pintura:=162; color_pintura = 162;
color_marcador_pintura:=162; color_marcador_pintura = 162;
espera_VGA; espera_VGA();
volcar32(vaddr, VGA); volcar32(vaddr, VGA);
pinta_marcadors; pinta_marcadors();
volcat_de_pantalla; volcat_de_pantalla();
eixir:=false; bool eixir = false;
if midi then begin StopMIDI; unloadmidi; midi:=false; end; if (midi) { StopMIDI(); unloadmidi(); midi=false; }
ini_midi(musica_time_attack); ini_midi(musica_time_attack);
if midi then Playmidi; if (midi) Playmidi();
contador:=0; contador = 0;
repeat until TeclaPuls(tecla_esquerra); do {} while (!TeclaPuls(tecla_esquerra));
pilla_temps; pilla_temps();
/*------------------------------*/
repeat
if (not(playing)) and (midi) then PlayMIDI; //------------------------------------------------------------------------------------------
do
{
if (!playing && midi) PlayMIDI();
inc(contador); contador++;
if retard_pepe>0 then dec(retard_pepe); if (retard_pepe > 0) retard_pepe--;
menejant:=false; menejant = false;
if retard_pepe=0 then begin if ( retard_pepe == 0 )
if teclapuls(tecla_amunt) then moure(amunt) {
else if teclapuls(tecla_avall) then moure(avall) if ( teclapuls(tecla_amunt) )
else if teclapuls(tecla_dreta) then moure(dreta) moure(amunt);
else if teclapuls(tecla_esquerra) then moure(esquerra); else
end; if ( teclapuls(tecla_avall) )
moure(avall);
else
if ( teclapuls(tecla_dreta) )
moure(dreta);
else
if ( teclapuls(tecla_esquerra) )
moure(esquerra);
}
if teclapuls(Key1) then if ( teclapuls(SDL_SCANCODE_1) )
begin {
amb_so:=/*not(amb_so);*/false; amb_so = false; //not(amb_so);
repeat until not(TeclaPuls(Key1)); do {} while(TeclaPuls(SDL_SCANCODE_1));
end; }
if teclapuls(KeyESC) then if ( teclapuls(SDL_SCANCODE_ESCAPE) )
begin {
eixir:=true; eixir = true;
end; }
/*if TeclaPuls(KeyN) then final_fase:=true;*/ /*if TeclaPuls(KeyN) then final_fase:=true;*/
fer_apareixer_els_malos; fer_apareixer_els_malos();
posa_el_temps(vaddr); posa_el_temps(vaddr);
if (contador mod velocitat_pepe) = 0 then moure_malos; if ( (contador % velocitat_pepe) == 0 ) moure_malos();
if not(no_queden_vides) then volcat_de_pantalla; if ( !no_queden_vides ) volcat_de_pantalla();
/*------------------------------*/ } while ( !(eixir || final_fase || no_queden_vides) );
until (eixir) or (final_fase) or (no_queden_vides); //------------------------------------------------------------------------------------------
if midi then begin StopMIDI; unloadmidi; midi:=false; end; if (midi) { StopMIDI(); unloadmidi(); midi=false; }
if final_fase then if (final_fase
begin {
pinta(pepe, color_pintura, x, y, VGA); pinta(pepe, color_pintura, x, y, VGA);
x:=pos_ini_x_pepe; x = pos_ini_x_pepe;
y:=pos_ini_y_pepe; y = pos_ini_y_pepe;
animacio_alegria; animacio_alegria();
if midi then begin StopMIDI; unloadmidi; midi:=false; end; if (midi) { StopMIDI(); unloadmidi(); midi=false; }
resultat_time_attack; resultat_time_attack();
end }
else if (eixir) then else
begin if (eixir)
{
fadedown(0,0,0,0); fadedown(0,0,0,0);
if midi then begin StopMIDI; unloadmidi; midi:=false; end; if (midi) { StopMIDI(); unloadmidi(); midi=false; }
end; }
if (no_queden_vides)
{
missatge_game_over();
if (midi) { StopMIDI(); unloadmidi(); midi=false; }
}
}
if no_queden_vides then
begin
missatge_game_over;
if midi then begin StopMIDI; unloadmidi; midi:=false; end;
end;
end;
/*──────────────────────────────────────────────────────────────────────────*/ /*──────────────────────────────────────────────────────────────────────────*/
procedure menu_joc; procedure menu_joc;
var var