Iniciar sesión

Ver la versión completa : El fondo se copia al mover la nave O_o



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

Darumo
23/11/2004, 13:58
habia escrito una tonteria antes


mirando los ejemplos de Fenix he visto que casi todos definen lo siguiente:
ctype=c_scroll;
en el proceso que mueve el scroll y los procesos que se mueven dentro del scroll.

The Sabbat
23/11/2004, 15:14
Pues, no se por que era, que quitado la función que hace la animación del fueguecillo del motor de la nave, y ya no me pasa :confused: