Negumo
05/09/2004, 20:45
Hola a todos,
os comento, hoy he empezado a mirarme algo de fenix, y ke mejor comienzo ke hacer le programilla de prueba ke hay en la biblia, bien el caso es ke hago todo lo ke dice el ejemplo, y al compilar me dice: Error al abrir c:\temp\juego.dcb.dcb
Ademas de esto en la parte inferior dice: Error at line 13: Parameter type invalid (",")
El codigo lo he copiado tal cual, y los nombres de mis ficheros con los graficos son disparo, nave, marciano y espacio.
He seguido todos los pasos, ¿Que puede ser lo ke esté mal? Gracias de antemano.
Este es el código:
Program Marcianitos;
Global
Vidas;
Fichero;
id_disparo;
Begin
set_mode(320,240,16);
Fichero=load_fpg("fichero.fpg");
put_screen(fichero,3);
Nave(160,200);
Creamarcianos();
Frame;
End
Process nave(x,y);
Begin
graph=1;
Loop;
If(key(_left) AND x>32);
x-=4;
End
If(key(_right) AND x<290);
x+=4;
End
If(scan_code==_control AND NOT(id_disparo));
id_disparo=disparo(x);
End
If(collision(Type marciano));
gameover();
End
If(key(_enter));
exit(0,"");
End
Frame;
End
End
Process creamarcianos();
Begin
Loop;
If(rand(0,100)>90);
marciano(rand(32,290),-32);
End
Frame;
End
End
Process marciano(x,y);
Begin
graph=2;
priority=10;
Loop;
x+=rand(-2,2);
y+=3;
If(collision(Type disparo));
signal(id,s_kill);
End
Frame;
End
End
Process gameover();
Begin
let_me_alone();
clear_screen();
write(0,240,160,4,"Game Over");
Loop;
Frame;
End
End
Process disparo(x);
Private
idc;
Begin
graph=4;
y=200;
priority=20;
Loop;
y-=4;
If(collision(Type marciano));
id_disparo=0;
End
If(y<-10);
id_disparo=0;
signal(id,s_kill);
End
Frame;
End
End
os comento, hoy he empezado a mirarme algo de fenix, y ke mejor comienzo ke hacer le programilla de prueba ke hay en la biblia, bien el caso es ke hago todo lo ke dice el ejemplo, y al compilar me dice: Error al abrir c:\temp\juego.dcb.dcb
Ademas de esto en la parte inferior dice: Error at line 13: Parameter type invalid (",")
El codigo lo he copiado tal cual, y los nombres de mis ficheros con los graficos son disparo, nave, marciano y espacio.
He seguido todos los pasos, ¿Que puede ser lo ke esté mal? Gracias de antemano.
Este es el código:
Program Marcianitos;
Global
Vidas;
Fichero;
id_disparo;
Begin
set_mode(320,240,16);
Fichero=load_fpg("fichero.fpg");
put_screen(fichero,3);
Nave(160,200);
Creamarcianos();
Frame;
End
Process nave(x,y);
Begin
graph=1;
Loop;
If(key(_left) AND x>32);
x-=4;
End
If(key(_right) AND x<290);
x+=4;
End
If(scan_code==_control AND NOT(id_disparo));
id_disparo=disparo(x);
End
If(collision(Type marciano));
gameover();
End
If(key(_enter));
exit(0,"");
End
Frame;
End
End
Process creamarcianos();
Begin
Loop;
If(rand(0,100)>90);
marciano(rand(32,290),-32);
End
Frame;
End
End
Process marciano(x,y);
Begin
graph=2;
priority=10;
Loop;
x+=rand(-2,2);
y+=3;
If(collision(Type disparo));
signal(id,s_kill);
End
Frame;
End
End
Process gameover();
Begin
let_me_alone();
clear_screen();
write(0,240,160,4,"Game Over");
Loop;
Frame;
End
End
Process disparo(x);
Private
idc;
Begin
graph=4;
y=200;
priority=20;
Loop;
y-=4;
If(collision(Type marciano));
id_disparo=0;
End
If(y<-10);
id_disparo=0;
signal(id,s_kill);
End
Frame;
End
End