Gracias!
Bueno, he aquí otro problema:
Ya he puesto las dos paletas, la bola y todo, y la bola rebota perfectamente contra las paredes superior e inferior, pero las paletas las traspasa y no entiendo porqué.
Aquí va el código de las colisiones:
Process Control_Bola()
Begin
// COL·LISIONS AMB LA PALETA 1
if(Velocidad_Bola_X < 0 && X_Bola>X_Paleta_1
&& X_Bola-Ancho_Bola/2<=X_Paleta_1+Ancho_Paleta_1/2)
if(abs(Y_Paleta_1-Y_Bola)<Alto_Paleta_1*0.5+Alto_Bola*0.5)
Velocidad_Bola_X *=-1;
End
End
// COL·LISIONS AMB LA PALETA 2
if(Velocidad_Bola_X >0 && X_Bola<X_Paleta_2
&& X_Bola+Ancho_Bola/2>=X_Paleta_2+Ancho_Paleta_2/2)
if(abs(Y_Paleta_2-Y_Bola)<Alto_Paleta_2*0.5+Alto_Bola*0.5)
Velocidad_Bola_X *=-1;
End
End
//COL·LISIONS AMB LES PARETS SUPERIOR I INFERIOR
if(Velocidad_Bola_Y<0 && Y_Bola-Ancho_Bola*0.5<=50)
Velocidad_Bola_Y *=-1;
End
if(Velocidad_Bola_Y>0 && Y_Bola-Ancho_Bola*0.5>=430)
Velocidad_Bola_Y *=-1;
End
X_Bola+=Velocidad_Bola_X;
Y_Bola+=Velocidad_Bola_Y;
End
Y bueno, si necesitais en código entero:
Program MEUPONG;
Global
int RESOLUCION_X;
int RESOLUCION_Y;
// VARIABLES GLOBALS
int Velocidad_Paletas;
// CARACTERÍSTIQUES DE LA PALETA 1
int X_Paleta_1;
int Y_Paleta_1;
int Ancho_Paleta_1;
int Alto_Paleta_1;
int color_paleta_1;
// CARACTERÍSTIQUES DE LA PALETA 2
int X_Paleta_2;
int Y_Paleta_2;
int Ancho_Paleta_2;
int Alto_Paleta_2;
int color_paleta_2;
// CARACTERÍSTIQUES DE LA BOLA
int X_Bola;
int Y_Bola;
int Ancho_Bola;
int Alto_Bola;
int Color_Bola;
int Velocidad_Bola_X;
int Velocidad_Bola_Y;
BEGIN
// INICIALITZAR ASPECTES GRÀFICS
set_title("El meu primer Pong");
Full_screen = false;
Graph_mode = mode_16bits;
set_mode (m640x480);
set_fps(80, 60/10);
RESOLUCION_X = 640;
RESOLUCION_Y = 480;
//ESCRIURE INFORMACIÓ SOBRE EL JOC EN PANTALLA
write(0,10,10,0,"El meu primer Pong, v. 0.01");
write(0,10,20,0,"Equip Garreny");
write_int(0,300,10,1,&fps);
// HEM ACABAT D' INICIALITZAR, LLANCEM EL BUCLE PRINCIPAL
Controlador_Juego(); //Arranquem el controlador del joc
END
/////////////////////////////////////////////
// Controlador de joc
Process Controlador_Juego()
BEGIN
Inicializar();
Loop // Bucle principal
If(key(_esc)) // Si s' apreta esc
exit(0,0); // Sortir del joc
End
Actualizar();
Dibujar();
Frame; // Refrescar pantalla
End // Del loop
END
//////////////////////////////////////////////
//Inicialitza el joc en el seu estat inicial
Process Inicializar()
BEGIN
Velocidad_Paletas = 5;
// INICIALITZAR LA PALETA 1
X_Paleta_1=30;
Y_Paleta_1=240;
Ancho_paleta_1=20;
Alto_Paleta_1=100;
// INICIALITZAR LA PALETA 2
X_Paleta_2=610;
Y_Paleta_2=240;
Ancho_paleta_2=20;
Alto_Paleta_2=100;
// INICIALITZAR BOLA
X_Bola=320;
Y_Bola=240;
Ancho_Bola=15;
Alto_Bola=15;
Velocidad_Bola_X = 3;
Velocidad_Bola_Y = 3;
END
//////////////////////////////////////////////
// Dibuixa els elements del joc en pantalla
Process Dibujar()
Begin
clear_screen();
drawing_map(0,0);
// Dibuixar Paleta 1
drawing_color(rgb(255,255,255));
draw_box(X_Paleta_1-Ancho_Paleta_1/2, Y_Paleta_1-Alto_Paleta_1/2,
X_Paleta_1+Ancho_Paleta_1/2, Y_Paleta_1+Alto_Paleta_1/2);
// Dibuixar Paleta 2
drawing_color(rgb(255,255,255));
draw_box(X_Paleta_2-Ancho_Paleta_2/2, Y_Paleta_2-Alto_Paleta_2/2,
X_Paleta_2+Ancho_Paleta_2/2, Y_Paleta_2+Alto_Paleta_2/2);
// DIBUIXAR BOLA
drawing_color(rgb(255,255,255));
draw_box(X_Bola-Ancho_Bola/2, Y_Bola-Alto_Bola/2,
X_Bola+Ancho_Bola/2, Y_Bola+Alto_Bola/2);
END
/////////////////////////////////////////////
//Actualitza la llògica del joc
Process Actualizar()
Begin
// ACTUALITZAR PALETA 1
if(key(_up) AND Y_Paleta_1-Alto_Paleta_1/2 > 50) //Si s' apreta "amunt" i la paleta no ha arribat fins a dalt
Y_Paleta_1 -=Velocidad_Paletas; // Fem que pugi
End
if(key(_down) AND Y_Paleta_1+Alto_Paleta_1/2 < 430) //Si s' apreta "avall" i la paleta no ha aribat abaix
Y_Paleta_1 +=Velocidad_Paletas; //Fem que baixi
End
// ACTUALITZAR PALETA 2
if(key(_k) AND Y_Paleta_2-Alto_Paleta_2/2 > 50) //Si s' apreta "amunt" i la paleta no ha arribat fins a dalt
Y_Paleta_2 -=Velocidad_Paletas; // Fem que pugi
End
if(key(_m) AND Y_Paleta_2+Alto_Paleta_2/2 < 430) //Si s' apreta "avall" i la paleta no ha aribat abaix
Y_Paleta_2 +=Velocidad_Paletas; //Fem que baixi
End
Control_Bola();
End
//////////////////////////////////////////////
// ACTUALITZA LA LLÒGICA DE LA BOLA
Process Control_Bola()
Begin
// COL·LISIONS AMB LA PALETA 1
if(Velocidad_Bola_X < 0 && X_Bola>X_Paleta_1
&& X_Bola-Ancho_Bola/2<=X_Paleta_1+Ancho_Paleta_1/2)
if(abs(Y_Paleta_1-Y_Bola)<Alto_Paleta_1*0.5+Alto_Bola*0.5)
Velocidad_Bola_X *=-1;
End
End
// COL·LISIONS AMB LA PALETA 2
if(Velocidad_Bola_X >0 && X_Bola<X_Paleta_2
&& X_Bola+Ancho_Bola/2>=X_Paleta_2+Ancho_Paleta_2/2)
if(abs(Y_Paleta_2-Y_Bola)<Alto_Paleta_2*0.5+Alto_Bola*0.5)
Velocidad_Bola_X *=-1;
End
End
//COL·LISIONS AMB LES PARETS SUPERIOR I INFERIOR
if(Velocidad_Bola_Y<0 && Y_Bola-Ancho_Bola*0.5<=50)
Velocidad_Bola_Y *=-1;
End
if(Velocidad_Bola_Y>0 && Y_Bola-Ancho_Bola*0.5>=430)
Velocidad_Bola_Y *=-1;
End
X_Bola+=Velocidad_Bola_X;
Y_Bola+=Velocidad_Bola_Y;
End