jean la montard
04/03/2008, 23:51
Buenas
Estoy haciendo pruebas con cosillas cogidas de tutoriales y a pesar de ser muuuy sencillito , el hijo de su madre se cuelga cuando en un "menu" de dos opciones (salir o mostrar una imagen en pantalla) al elegir la segunda se me cuelga,empezamos bien.El codigo esta muuuuy comentado mas que nada porque no tengo ni idea y para saber que es lo que hace cada cosa mas o menos.
// --------------------------------------------------------------------------
// Ultimate Fenix Joust by jeanmontarde
// Created on 18:25 - 27/02/08
// --------------------------------------------------------------------------
BEGIN
Full_screen=false; ///pantalla completa si o no
set_mode(320,240,16);///modo de pantalla y color
set_fps (30, 4);///Establecer frameado
load_fpg("graficos.fpg");
put_screen(0,001);///pone grafico en pantalla
From z=0 to 49;frame; End///retrasa la desaparicion en pantalla
fade(0,0,0,2);///fundido en negro
While(fading) frame; End///fundido en negro
fade_on();///encender pantalla
clear_screen();///limpiar pantalla
Menu();///llamada proceso menu
END
Process menu()
Begin
write (0, 160, 10, 1, "Joust-Prueba de control") ;///escribir "" con coordenadas
write (0, 160, 30, 1, "Original por Williams en 1982");///escribir "" con coordenadas
write (0, 160, 40, 1,"Remake por Lokura Entertaiment");///escribir "" con coordenadas
write (0, 160, 50, 1, "Codigo y graficos por");///escribir "" con coordenadas
write (0, 160, 60, 1, "Jean La Montard");///escribir "" con coordenadas
write (0, 160, 140, 1, "Pulsa A para salir") ;///escribir "" con coordenadas
write (0, 160, 150, 1, "Pulsa B para prueba de movimiento");///escribir "" con coordenadas
write (0, 160, 200, 1, "29-2-2008");///escribir "" con coordenadas
Loop///inicia bucle
If (key(_control))
fade(0,0,0,2);///fundido en negro
while (fading) frame; end///fundido en negro
break; end///condicion de ruptura
If (key(_space))
prueba(); end
Frame;///poner en pantalla
END
END
Process Prueba()
Begin
Put_screen(0,1);
Loop
If (key(_control))
break; end
End
END
Estoy haciendo pruebas con cosillas cogidas de tutoriales y a pesar de ser muuuy sencillito , el hijo de su madre se cuelga cuando en un "menu" de dos opciones (salir o mostrar una imagen en pantalla) al elegir la segunda se me cuelga,empezamos bien.El codigo esta muuuuy comentado mas que nada porque no tengo ni idea y para saber que es lo que hace cada cosa mas o menos.
// --------------------------------------------------------------------------
// Ultimate Fenix Joust by jeanmontarde
// Created on 18:25 - 27/02/08
// --------------------------------------------------------------------------
BEGIN
Full_screen=false; ///pantalla completa si o no
set_mode(320,240,16);///modo de pantalla y color
set_fps (30, 4);///Establecer frameado
load_fpg("graficos.fpg");
put_screen(0,001);///pone grafico en pantalla
From z=0 to 49;frame; End///retrasa la desaparicion en pantalla
fade(0,0,0,2);///fundido en negro
While(fading) frame; End///fundido en negro
fade_on();///encender pantalla
clear_screen();///limpiar pantalla
Menu();///llamada proceso menu
END
Process menu()
Begin
write (0, 160, 10, 1, "Joust-Prueba de control") ;///escribir "" con coordenadas
write (0, 160, 30, 1, "Original por Williams en 1982");///escribir "" con coordenadas
write (0, 160, 40, 1,"Remake por Lokura Entertaiment");///escribir "" con coordenadas
write (0, 160, 50, 1, "Codigo y graficos por");///escribir "" con coordenadas
write (0, 160, 60, 1, "Jean La Montard");///escribir "" con coordenadas
write (0, 160, 140, 1, "Pulsa A para salir") ;///escribir "" con coordenadas
write (0, 160, 150, 1, "Pulsa B para prueba de movimiento");///escribir "" con coordenadas
write (0, 160, 200, 1, "29-2-2008");///escribir "" con coordenadas
Loop///inicia bucle
If (key(_control))
fade(0,0,0,2);///fundido en negro
while (fading) frame; end///fundido en negro
break; end///condicion de ruptura
If (key(_space))
prueba(); end
Frame;///poner en pantalla
END
END
Process Prueba()
Begin
Put_screen(0,1);
Loop
If (key(_control))
break; end
End
END