{"id":1189,"date":"2025-12-21T08:00:00","date_gmt":"2025-12-21T07:00:00","guid":{"rendered":"https:\/\/jorgeturiel.es\/?p=1189"},"modified":"2025-11-13T15:04:26","modified_gmt":"2025-11-13T14:04:26","slug":"ghosts-n-goblins-y-cge-parte-6","status":"publish","type":"post","link":"https:\/\/jorgeturiel.es\/?p=1189","title":{"rendered":"Ghosts \u2018n Goblins y CGE. Parte 6"},"content":{"rendered":"\n

\u00bfQu\u00e9 es un juego sin m\u00fasica y efectos especiales?. Es como quitarle la guinda al pastel.<\/p>\n\n\n\n

En esta entrada seguimos construyendo Ghost’n Goblins y le a\u00f1adiremos m\u00fasica y efectos especiales.<\/p>\n\n\n\n\n\n\n\n

<\/a> Un poco de m\u00fasica<\/h2>\n\n\n\n

Para darle m\u00e1s ambiente a el juego, podemos ponerle m\u00fasica y efectos especiales.<\/p>\n\n\n\n

Para ejecutar un sonido, desde el editor, debemos a\u00f1adir el componente TcastleSound<\/em>. Este es un componente no visual, para ello ve al \u00e1rbol de componentes, y con bot\u00f3n derecho selecciona Non-Visual Components<\/em>. Y el men\u00fa que se despliega selecciona Add Non-Visual <\/em>Component. Y en el nuevo men\u00fa selecciona Sound(TCastleSound)<\/em>.<\/p>\n\n\n

\n
\"\"
A\u00f1adir sonidos<\/figcaption><\/figure>\n<\/div>\n\n\n

C\u00f3mo vamos tener dos sonidos, uno la m\u00fasica y el otro el efecto especial de lanzar el arma, a\u00f1ade dos componentes de estos.<\/p>\n\n\n\n

Pulsa sobre cada uno de ellos con el bot\u00f3n derecho o bien pulsando la tecla F2, <\/em>y as\u00edgnales los siguientes nombres: ArthurShot<\/em> y MusicaDeFondo.<\/em><\/p>\n\n\n

\n
\"\"
Cambiar nombre<\/figcaption><\/figure>\n<\/div>\n\n\n

Ahora crea una carpeta llamada Sonidos <\/em>dentro de ella pondremos los sonidos que usemos. El formato que usaremos ser\u00e1 WAV<\/em>, el cual es reconocido por CGE. Pero los archivos que usaremos est\u00e1n en MP3, <\/em>as\u00ed que hay que convertirlos. Puedes usar cualquier programa o servicio web. O sino puedes usar los archivos ya convertidos del c\u00f3digo fuente del proyecto.<\/p>\n\n\n

\n
\"\"
Carpeta de sonidos y sonidos<\/figcaption><\/figure>\n<\/div>\n\n
\n
\"\"
Asignar archivo de sonidos a MusicaDeFondo<\/em><\/figcaption><\/figure>\n<\/div>\n\n\n

Y <\/em>a la propiedad URL<\/em> de ARTHURHIT<\/em> as\u00edgnale el archivo de sonido ARTHURHIT.<\/em><\/p>\n\n\n

\n
\"\"
Asignar archivo de sonidos a ArthutShot<\/em><\/figcaption><\/figure>\n<\/div>\n\n\n


Con este paso yo tenemos ya tenemos los recursos de sonido cargados. Ahora selecciona con el bot\u00f3n derecho al elemento que representa a Arthur<\/em>, en el men\u00fa selecciona Add Behavior (Extends Parent Transform)<\/em>, para luego seleccionar Sound Source (TcastleSoundSource).<\/em><\/p>\n\n\n

\n
\"\"
A\u00f1adir sonido a TCastleScene<\/figcaption><\/figure>\n<\/div>\n\n\n


Renombra el componente reci\u00e9n creado como MusicaActual<\/em>. En su propiedad Sound <\/em>selecciona MusicaDeFondo<\/em>. La propiedad SoundPlaying<\/em>, ponla a False<\/em>, para que no empiece a sonar. Y la propiedad Spatial<\/em>, tambi\u00e9n ponla a False, <\/em>esta propiedad ajusta el volumen seg\u00fan la distancia d\u00f3nde se genera el sonido. Pero en este caso deseamos el efecto contrario.<\/p>\n\n\n\n

<\/a> Controlando el sonido desde c\u00f3digo<\/h2>\n\n\n\n

En la secci\u00f3n uses<\/em> a\u00f1ade la unidades CastleSoundEngine <\/em>para que est\u00e9 disponible el motor de sonido de CGE.<\/p>\n\n\n

\n
\"\"
Clausula Uses con CastleSoundEngine<\/em><\/figcaption><\/figure>\n<\/div>\n\n\n

Ahora en c\u00f3digo del programa, en la secci\u00f3n published<\/em> de TmainView<\/em> a\u00f1ade los dos componentes TCastleSound<\/em> que hemos creado en el editor.<\/p>\n\n\n

\n
\"\"
A\u00f1adir componentes TCastlesound<\/figcaption><\/figure>\n<\/div>\n\n\n

En el evento Start<\/em>, iniciaremos la m\u00fasica. A\u00f1ade una variable llamada Sonido<\/em> del tipo TcastleSoundSource <\/em>en el evento Start<\/em><\/p>\n\n\n\n

procedure TViewMain.Start;\nvar\n  Sonido: TCastleSoundSource; \nbegin<\/pre><\/div>\n\n\n\n
Y dentro de este evento escribe el siguiente c\u00f3digo.<\/p>\n\n\n\n
 Sonido := Arthur.FindBehavior(TCastleSoundsource) as TCastleSoundSource;\n Sonido.SoundPlaying := True; <\/pre><\/div>\n\n\n\n
Creamos una fuente de sonido que el componente TCastleSoundSource <\/em>que hemos a\u00f1adido a Arthur en el editor. Y empezamos a reproducirlo.<\/p>\n\n\n\n
Si queremos tener la opci\u00f3n de apagar la m\u00fasica, podemos asignarle una tecla. En el evento Press<\/em>, podemos capturar la tecla M<\/em> y cambiar su propiedad SoundPlaying<\/em>.<\/p>\n\n\n\n
function TViewMain.Press(const Event: TInputPressRelease): boolean;\nvar\n  Sonido: TCastleSoundSource;\nbegin\n  Result := inherited;\n  if Result then Exit; \/\/ allow the ancestor to handle keys  \n\n  if Event.IsKey(keyM) then\n  begin\n    Sonido := Arthur.FindBehavior(TCastleSoundSource) as TCastleSoundSource;\n    Sonido.SoundPlaying := not Sonido.SoundPlaying;\n    Exit(True);\n  end;\nend;\n<\/pre><\/div>\n\n\n\n
Para simplemente ejecutar un sonido cuando Arthur<\/em> lanza su arma. En el evento Update<\/em> tenemos un condicional que usamos lanzar el arma. Dentro de este, simplemente a\u00f1ade la l\u00ednea: SoundEngine.Play(ArthurShot);<\/em><\/p>\n\n\n\n
Ya solo queda ejecutar el programa, y probar.<\/p>\n\n\n\n
C\u00f3mo siempre tiene todo el c\u00f3digo fuente el github<\/a>.<\/p>\n\n\n\n
Saludos<\/p>\n\n\n\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
\u00bfQu\u00e9 es un juego sin m\u00fasica y efectos especiales?. Es como quitarle la guinda al pastel.
\nEn esta entrada seguimos construyendo  Ghost’n Goblins y le a\u00f1adiremos m\u00fasica y efectos especiales.<\/p>\n","protected":false},"author":2,"featured_media":1200,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[57,56,25,48],"tags":[49,32,23,21,24],"class_list":["post-1189","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-castle-game-engine","category-cge","category-pascal","category-videojuegos","tag-castle-game-engine","tag-free-pascal","tag-lazarus","tag-pascal","tag-programacion"],"_links":{"self":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts\/1189","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1189"}],"version-history":[{"count":4,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts\/1189\/revisions"}],"predecessor-version":[{"id":1202,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts\/1189\/revisions\/1202"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/media\/1200"}],"wp:attachment":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1189"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1189"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1189"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}