Loop // Bucle principal
//play_song(music_menu,-1);
timer=1000; // Se inicializa fuera de tiempo para cambiar nada mas entrar
pantalla=3; // Elige la otra pantalla porque cambia nada mas entrar
Repeat // Bucle de pantallas de presentacion
let_me_alone();
If (timer>1000) // Si pasa 5 segundos cambia de pantalla
timer=0;
If (pantalla==1)
pantalla=3; // 3:Pantalla cr‚ditos
Else
pantalla=1;
End // 1:Pantalla de men£
fade_off();
put_screen(0,pantalla);
fade_on();
End
angle+=10000;
Frame;
If (key(_space)); exit(0); End;
Until (key(_enter));
// Espera a que se pulse una tecla
// Si has pulsado ESCAPE sal directamente del programa
If (key(_space));
fade_off();
exit("¡Gracias por jugar!",0);
frame(1000);
End
fade_off(); // Apaga pantalla
// Inicializa variables de juego
// Fase=1, vidas=3, puntuacion=0, bonus=0
nivel=1;
vidas=3;
puntos=0;
bonos=0;
Repeat // Bucle para pantalla de espera de carga
let_me_alone();
stop_scroll(0);
stop_scroll(1);
stop_scroll(2);
stop_scroll(3);
fade_on(); // Enciende la pantalla
put_screen(0,2);// Pinta pantalla de fondo
write(fuente2,138,77,4,"NIVEL");
write_int(fuente2,208,77,4,&nivel);
While (fading) // Espera mientras inicia todo, que
Frame(1000); // que ser* al acabar el apagado de pantalla
End
delete_text(all_text);
// Coloca marcadores de puntos, vidas y bonos
objeto(0,222,16,16,-512,0); // Pinta vidas
write(fuente1,36,16,4,"x");
write_int(fuente1,44,16,3,&vidas);
write_int(fuente1,160,16,4,&puntos); // Pinta puntuacion
objeto(0,216,270,17,-512,0); // Pinta bonos
write(fuente1,288,16,4,"x");
write_int(fuente1,296,16,3,&bonos); // Inicializa variable
fin_nivel=false; // controladora de fin de fase
Marcadores