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