![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2024\/12\/Captura-de-pantalla-2024-12-07-203109.png\")
<\/figure>\n<\/div>\n\n\nAhora renombra los componentes reci\u00e9n creados con los siguientes nombres:<\/p>\n\n\n\n
- \n
- Rebote<\/li>\n\n\n\n
- PlayerHit<\/li>\n\n\n\n
- Gol<\/li>\n<\/ul>\n\n\n\n
![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2024\/12\/Captura-de-pantalla-2024-12-07-203001.png\")
<\/figure>\n<\/div>\n\n\nComo habr\u00e1s supuesto, cada uno de ellos nos servir\u00e1 para generar un sonido seg\u00fan describe su nombre. Descarga tres sonidos que te gusten, y gu\u00e1rdalos en la carpeta Data<\/em> del proyecto. O bien puedes descargar los sonidos que yo he usado desde aqu\u00ed<\/a>.<\/p>\n\n\n\n
Ahora hay que asignar cada sonido a su componente. Para ello se usa la propiedad Url<\/em>. Al pulsar sobre los tres puntos se abrir\u00e1 un cuadro de di\u00e1logo y podr\u00e1s seleccionar el archivo.<\/p>\n\n\n
\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2024\/12\/Captura-de-pantalla-2024-12-07-203935-1024x472.png\")
<\/figure>\n<\/div>\n\n\nGuarda el proyecto (puedes pulsar ctrl+s) y ahora en el editor vamos a teclear algo de c\u00f3digo.<\/p>\n\n\n\n
A\u00f1ade en la cl\u00e1usula uses la unidad CastleSoundEngine<\/em> y en la secci\u00f3n published<\/em>, a\u00f1ade los tres componentes de sonido que hemos creado.<\/p>\n\n\n\n
published\n \/\/a\u00f1ade estos componentes. \n PlayerHit: TCastleSound;\n Gol: TCastleSound;\n Rebote: TCastleSound; <\/pre><\/div>\n\n\n\n
Ahora, cada vez que un jugador golpea la pelota, o bien la pelota rebota en un lado, o se marca un gol, debemos hacer sonar un sonido. Para ello usaremos los eventos de colisi\u00f3n. Para los lados crearemos un evento de colisi\u00f3n com\u00fan.<\/p>\n\n\n\n
procedure TViewMain.Start;\nvar\n Body: TCastleRigidBody;\nbegin\n inherited;\n\n\/\/a\u00f1ade este c\u00f3digo\n\n \/\/Lado Derecho\n Body := LadoDerecho.FindBehavior(TCastleRigidBody) as TCastleRigidBody;\n {$IFDEF FPC}\n Body.OnCollisionEnter := @ColisionLadoDerecho;\n {$ELSE}\n Body.OnCollisionEnter := ColisionLadoDerecho;\n {$ENDIF}\n\n \/\/Lado Izqquierdo\n Body := LadoIzquierdo.FindBehavior(TCastleRigidBody) as TCastleRigidBody;\n {$IFDEF FPC}\n Body.OnCollisionEnter := @ColisionLadoIzquierdo;\n {$ELSE}\n Body.OnCollisionEnter := ColisionLadoIzquierdo;\n {$ENDIF}\n\n Body := LadoSuperior.FindBehavior(TCastleRigidBody) as TCastleRigidBody;\n {$IFDEF FPC}\n Body.OnCollisionEnter:=@ColisionParedes;\n {$ELSE}\n Body.OnCollisionEnter := ColisionParedes;\n {$ENDIF}\n\n Body := LadoInferior.FindBehavior(TCastleRigidBody) as TCastleRigidBody;\n {$IFDEF FPC}\n Body.OnCollisionEnter:=@ColisionParedes;\n {$ELSE}\n Body.OnCollisionEnter := ColisionParedes;\n {$ENDIF}\nend; <\/pre><\/div>\n\n\n\nAhora en el procedimiento ColisionParedes<\/em>, haremos uso del motor de sonidos, y reproduciremos el sonido Rebote.<\/p>\n\n\n\n
procedure TViewMain.ColisionParedes(const CollisionDetails: TPhysicsCollisionDetails);\nbegin\n SoundEngine.Play(Rebote);\nend; <\/pre><\/div>\n\n\n\n
En los otros de eventos de colisi\u00f3n a\u00f1ade, tambi\u00e9n, la misma l\u00ednea, pero reproduciendo el sonido correspondiente.<\/p>\n\n\n\n
procedure TViewMain.ColisionPlayer1(const CollisionDetails: TPhysicsCollisionDetails);\nbegin\n VelocidadPlayer1 := 0;\n SoundEngine.Play(PlayerHit);\nend;\n\nprocedure TViewMain.ColisionPlayer2(const CollisionDetails: TPhysicsCollisionDetails);\nbegin\n VelocidadPlayer2 := 0;\n SoundEngine.Play(PlayerHit);\nend; <\/pre><\/div>\n\n\n\n
Usando una fuente<\/h2>\n\n\n\n
Para darle un aspecto m\u00e1s \u00abretro\u00bb a los textos vamos a usar una fuente. En concreto la fuente DejaVuSans<\/em>. Debes copiarla en la carpeta Data <\/em> del proyecto. La puedes encontrar por internet, o las carpetas de ejemplos de Castle Engine Game, o bien puedes descargarla de aqu\u00ed<\/a>.<\/p>\n\n\n\n
Ahora a\u00f1ade un componente no visual TCastleFont<\/em>. <\/p>\n\n\n\n
![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2024\/12\/Captura-de-pantalla-2024-12-07-205526.png\")
<\/figure>\n\n\n\nPuedes dejar el nombre por defecto, y en su propiedad Url<\/em>, a\u00f1ade la fuente, pulsando sobre los tres puntos, al igual que hicimos con los sonidos.<\/p>\n\n\n
\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2024\/12\/Captura-de-pantalla-2024-12-07-205619.png\")
<\/figure>\n<\/div>\n\n\nYa, por \u00faltimo en cada componente TCastleLabel<\/em>, en su propiedad CustomFont<\/em>, a\u00f1ade el componente font1.<\/span><\/em><\/p>\n\n\n
\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2024\/12\/Captura-de-pantalla-2024-12-07-205828.png\")
<\/figure>\n<\/div>\n\n\nConclusiones<\/h2>\n\n\n\n
En las tres entradas que hemos dedicado a la creaci\u00f3n de este cl\u00e1sico juego, hemos visto desde como crear un proyecto 2D, el motor de f\u00edsicas, como gestionar colisiones, con reproducir sonidos, y como usar fuentes de tipos de letras. <\/p>\n\n\n\n
En resumen tenemos un sencillo juego funcionando sin casi escribir c\u00f3digo.<\/p>\n\n\n\n