eee??? pero que c....

[zark]

mirat ya se que soy pesado epro es que el jueguesito o menos el proyecto me pone de los nervios..... no se porque que cada vez que lo pruebo el jueguecito de los .... se me quita el firebird, al principio pensaba (si, asi es, PENSABA) que era cosa del porgrama epro luego lo e probado con otros juegos i funciona es solo a este que se me quita. este es el codigo....

//////////////////////////////////////////////////////////////////////////////////////////
Program murderroboto;
Global
Int robot;
Int bales = 999;

Begin
set_title("Murder robot");
Graph_mode = mode_16bits;
set_mode (m320x240);
load_fpg("robot.fpg");
set_fps(30,5);
robot= robot();
start_scroll(0, 0, 2, 0, 0, 0);
scroll[0].camera=robot;

Loop
Frame;

If(key(_esc));
Break;
End


End
let_me_alone();

End


Process robot()

Begin
ctype=c_scroll;
graph=1;
x=160;
y=140;

Loop
Frame;

//moviemnt
If(key(_left)) angle+=5000;
End
If(key(_right)) angle-=5000;
End
If(key(_up)) advance(5);
End
If(key(_down)) advance(-2);
End



//disparar

If(key(_control)AND (bales>0);
bala();
bala2();
End

End
End


Process bala()

Begin
ctype=c_scroll;
graph=3;
x=father.x+5;
y=father.y+10;
angle=father.angle;
Loop
Frame;

advance(25);

End

End


Process bala2()

Begin
ctype=c_scroll;
graph=3;
x=father.x-5;
y=father.y-10;
angle=father.angle;
Loop
Frame;

advance(25);


End

End




salu2 espero que sepais que es.....

[chipan]

Prueba asi



//////////////////////////////////////////////////////////////////////////////////////////
Program murderroboto;
Global
Int bales = 999;

Begin
set_title("Murder robot");
Graph_mode = mode_16bits;
set_mode (m320x240);
load_fpg("robot.fpg");
set_fps(30,5);
start_scroll(0, 0, 2, 0, 0, 0);
scroll[0].camera=robot();

Loop
Frame;

If(key(_esc));
Break;
End


End
let_me_alone();

End


Process robot()

Begin
ctype=c_scroll;
graph=1;
x=160;
y=140;

Loop
Frame;

//moviemnt
If(key(_left)) angle+=5000;
End
If(key(_right)) angle-=5000;
End
If(key(_up)) advance(5);
End
If(key(_down)) advance(-2);
End



//disparar

If(key(_control)AND (bales>0);
bala();
bala2();
End

End
End


Process bala()

Begin
ctype=c_scroll;
graph=3;
x=father.x+5;
y=father.y+10;
angle=father.angle;
Loop
Frame;

advance(25);

End

End


Process bala2()

Begin
ctype=c_scroll;
graph=3;
x=father.x-5;
y=father.y-10;
angle=father.angle;
Loop
Frame;

advance(25);


End

End

[zark]

lo mismo, pero he progresado, ahora veo que si quito eso de disparar donde hay eso de control and bales>0, si lo quito funciona. vep que eso de AND no es correcto epro no se que poner a cambio... ahora lo mirare....

gracias tio eres un makina!!

[Casia]

//disparar

If(key(_control)AND (bales>0));
bala();
bala2();
End

End
End



A mi si no pongo bien todos los parentesis en los IF se sale del Firebird y me saca un mensajito de esos asquerosos de windows para enviar informes de errores, revisa esto que a mi me costo un buen rato saber porque se me salia

[chipan]

Vaya, no me había fijado... Dejaos de usar el firebird y usar el flamebird que no tiene esos errores tan tontos...