The Sabbat
23/11/2004, 12:36
Estaba haciendo una prueba con dos scrolls, para dar profundidad al fondo, que me queda mas chulo XD, y el caso es que sale bien, pero cuando muevo la nave una copia del scroll de mas arriba se mueve con la nave parpadeando O_o
Dejo el código aquí a ver si se me escapa algo :\
//-----------------------------------------------
//Program: Radiant GPGun
//Author: The Sabbat
//Team: -
//-----------------------------------------------
Program Radiant_GPGun;
Const
Retardo_1=8;
Global
graficos;
empezar=0;
Begin
set_title("Radiant GPGun");
Graph_mode = mode_16bits;
set_mode (320,240,8);
set_fps(60,3);
graficos=load_fpg("graficos.fpg");
start_game();
start_scroll(0,graficos,8,1,0,2+8);
//start_scroll(1,graficos,8,0,0,2);
nave();
Loop
If (key(_space) AND key(_enter)) Break; End
scroll[0].y0-=2;
Frame;
End
stop_scroll(0);
//stop_scroll(1);
unload_fpg(graficos);
let_me_alone();
End
Process nave()
Private
contador_1=0;
Begin
graph=2;
x=180;
y=200;
z=1;
anim_nave();
Loop
contador_1--;
If (contador_1<0) contador_1=0; End
If (key(_left)) x=x-4; End
If (key(_right)) x=x+4; End
If (key(_down)) y=y+4; End
If (key(_up)) y=y-4; End
If (x>310) x=310; End
If (x<10) x=10; End
If (y>230) y=230; End
If (y<10) y=10; End
If (key(_control) AND (contador_1==0))
contador_1=retardo_1;
shoot();
End;
Frame;
End
End
Process Shoot()
Begin
graph=3;
x=father.x;
y=father.y;
z=1;
Loop
y-=15;
If(y<-6) Break; End
Frame;
End
End
Process start_game()
Begin
graph=4;
x=160;
y=120;
z=0;
Loop
If (key(_enter))
//fondo_espacio();
Break;
End
Frame;
End
End
Process fondo_espacio()
Begin
graph=1;
x=160;
y=120;
z=2;
Loop
Frame;
End
End
Process anim_nave()
Private
numero_anim=5;
Begin
graph=numero_anim;
x=father.x;
y=(father.y) + 15;
z=1;
Loop
If (numero_anim<9)
numero_anim++;
Else
numero_anim=5;
End
graph=numero_anim;
If (key(_left)) x=x-4; End
If (key(_right)) x=x+4; End
If (key(_down)) y=y+4; End
If (key(_up)) y=y-4; End
If (x>310) x=310; End
If (x<10) x=10; End
If (y>230) y=230; End
If (y<10) y=10; End
Frame;
End
End
Dejo el código aquí a ver si se me escapa algo :\
//-----------------------------------------------
//Program: Radiant GPGun
//Author: The Sabbat
//Team: -
//-----------------------------------------------
Program Radiant_GPGun;
Const
Retardo_1=8;
Global
graficos;
empezar=0;
Begin
set_title("Radiant GPGun");
Graph_mode = mode_16bits;
set_mode (320,240,8);
set_fps(60,3);
graficos=load_fpg("graficos.fpg");
start_game();
start_scroll(0,graficos,8,1,0,2+8);
//start_scroll(1,graficos,8,0,0,2);
nave();
Loop
If (key(_space) AND key(_enter)) Break; End
scroll[0].y0-=2;
Frame;
End
stop_scroll(0);
//stop_scroll(1);
unload_fpg(graficos);
let_me_alone();
End
Process nave()
Private
contador_1=0;
Begin
graph=2;
x=180;
y=200;
z=1;
anim_nave();
Loop
contador_1--;
If (contador_1<0) contador_1=0; End
If (key(_left)) x=x-4; End
If (key(_right)) x=x+4; End
If (key(_down)) y=y+4; End
If (key(_up)) y=y-4; End
If (x>310) x=310; End
If (x<10) x=10; End
If (y>230) y=230; End
If (y<10) y=10; End
If (key(_control) AND (contador_1==0))
contador_1=retardo_1;
shoot();
End;
Frame;
End
End
Process Shoot()
Begin
graph=3;
x=father.x;
y=father.y;
z=1;
Loop
y-=15;
If(y<-6) Break; End
Frame;
End
End
Process start_game()
Begin
graph=4;
x=160;
y=120;
z=0;
Loop
If (key(_enter))
//fondo_espacio();
Break;
End
Frame;
End
End
Process fondo_espacio()
Begin
graph=1;
x=160;
y=120;
z=2;
Loop
Frame;
End
End
Process anim_nave()
Private
numero_anim=5;
Begin
graph=numero_anim;
x=father.x;
y=(father.y) + 15;
z=1;
Loop
If (numero_anim<9)
numero_anim++;
Else
numero_anim=5;
End
graph=numero_anim;
If (key(_left)) x=x-4; End
If (key(_right)) x=x+4; End
If (key(_down)) y=y+4; End
If (key(_up)) y=y-4; End
If (x>310) x=310; End
If (x<10) x=10; End
If (y>230) y=230; End
If (y<10) y=10; End
Frame;
End
End