diff --git a/pepe2000_utf8.cpp b/pepe2000_utf8.cpp index bab423a..5875dac 100644 --- a/pepe2000_utf8.cpp +++ b/pepe2000_utf8.cpp @@ -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; - ini_vars(num_fase); - ini_pantalla; - volcar32(vaddr2,vaddr); - 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; + num_fase = 0; + ini_vars(num_fase); + ini_pantalla(); + volcar32(vaddr2, vaddr); + 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(); + bool eixir = false; - if midi then begin StopMIDI; unloadmidi; midi:=false; end; - ini_midi(musica_time_attack); - if midi then Playmidi; + if (midi) { StopMIDI(); unloadmidi(); midi=false; } + ini_midi(musica_time_attack); + 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;*/ + /*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(); - /*------------------------------*/ - 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 - pinta(pepe,color_pintura,x,y,VGA); - x:=pos_ini_x_pepe; - y:=pos_ini_y_pepe; - animacio_alegria; + 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(); - if midi then begin StopMIDI; unloadmidi; midi:=false; end; + if (midi) { StopMIDI(); unloadmidi(); midi=false; } - resultat_time_attack; - end - else if (eixir) then - begin - fadedown(0,0,0,0); - if midi then begin StopMIDI; unloadmidi; midi:=false; end; - end; + resultat_time_attack(); + } + else + if (eixir) + { + fadedown(0,0,0,0); + 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