{"id":1237,"date":"2026-04-20T08:00:00","date_gmt":"2026-04-20T07:00:00","guid":{"rendered":"https:\/\/jorgeturiel.es\/?p=1237"},"modified":"2026-04-17T19:22:29","modified_gmt":"2026-04-17T18:22:29","slug":"ghosts-n-goblins-y-cge-parte-8","status":"publish","type":"post","link":"https:\/\/jorgeturiel.es\/?p=1237","title":{"rendered":"Ghosts \u2018n Goblins y CGE. Parte 8"},"content":{"rendered":"\n
El siguiente paso ser\u00eda a\u00f1adir todos los zombies que deseemos y desde el c\u00f3digo ir asignado el comportamiento que hemos creado.<\/p>\n\n\n\n
Pero esta tarea es muy tediosa. Ser\u00eda m\u00e1s sencillo usar el editor y asignar la clase, que define su comportamiento, a cada sprite.<\/p>\n\n\n\n
Esto es posible creando un componente propio.<\/p>\n\n\n\n\n\n\n\n
Para \u201cexponer\u201d las propiedades que queremos tener accesibles desde el editor, se deben declarar en la secci\u00f3n published<\/em> de la clase. Nos interesan exponer las propiedades que le asign\u00e1bamos valores cuando cre\u00e1bamos el zombie por c\u00f3digo. Estas son la direcci\u00f3n, la velocidad, y adem\u00e1s vamos a a\u00f1adir la distancia que recorre el zombie.<\/p>\n\n\n\n
Observa el c\u00f3digo anterior. Declaramos una propiedad llamada Distancia<\/em>, que es de tipo Single <\/em>con un valor por defecto contenido en la variable DefaultDistancia<\/em> declaramos en el parte p\u00fablica de la clase.<\/p>\n\n\n\n
Cualquier tipo de variable simple (integer, single, string , etc.) se puede declarar directamente. Pero las variables que son una estructura como Tvector, no se puede declarar como Published<\/em> ya que no lo permite pascal. Para ello, CGE, <\/em>solucion\u00f3 el problema creando un \u201cclase intermedia\u201d, en este caso para TVector3<\/em>, se cre\u00f3 TCastleVector3Persistent<\/em>.<\/p>\n\n\n\n
La gesti\u00f3n de esta clase la debemos realizar en la propiedad create, as\u00ed que a\u00f1adimos, en la secci\u00f3n Public<\/em> de la clase los m\u00e9todos create<\/em> y destroy<\/em>. Recuerda que todo lo que creemos debemos destruirlo.<\/p>\n\n\n\n
Lo primero que hacemos es asignar a la propiedad Distancia<\/em> su valor por defecto. Lo siguiente es a la propiedad Fdireccion<\/em> es asignarle un valor, este valor ser\u00e1 el que se muestre en el editor, como valor por defecto. Ahora inicializamos la variable FdireccionPersistent<\/em> creando la clase correspondiente. Tras ello indicamos que es un subcomponente pasando el valor true<\/em> al procedimiento SetSubCoomponent<\/em>.<\/p>\n\n\n\n
Ya por \u00faltimo, a su propiedad InternalGetValue <\/em>le asignamos el m\u00e9todo GetDireccionForPersistent<\/em> que ser\u00e1 usado para obtener el valor del vector de direcci\u00f3n. Del mismo modo, le asignamos el m\u00e9todo SetDireccionForPersistent<\/em> para asignar valores al vector de direcci\u00f3n.<\/p>\n\n\n\n
Los m\u00e9todos son muy sencillos.<\/p>\n\n\n\n
function TZombieBehavior.GetDireccionForPersistent: TVector3;\nbegin\n Result := Direccion;\nend; \n\nprocedure TZombieBehavior.SetDireccionForPersistent(const Value: TVector3);\nbegin\n Direccion := Value;\nend; \n<\/pre><\/div>\n\n\n\n
Repetiremos los misma idea para el resto de propiedades T<\/em>V<\/em>ector<\/em>3<\/em>.<\/p>\n\n\n\n
Si queremos aprovechar, e incluir algunas de las propiedades el categor\u00eda Basic<\/em>, debemos declarar la siguiente funci\u00f3n en la secci\u00f3n Public<\/em> de la clase.<\/p>\n\n\n\n
function PropertySections(const PropertyName: string): TPropertySections; override; \n<\/pre><\/div>\n\n\n\n
Este funci\u00f3n contendr\u00e1 el siguiente c\u00f3digo.<\/p>\n\n\n\n
function TZombieBehavior.PropertySections(const PropertyName: string): TPropertySections;\nbegin\n WritelnLog('Property: ' + PropertyName);\n if ArrayContainsString(PropertyName, ['VelocidadPersistent',\n 'DireccionPersistent']) then\n begin\n Result := [psBasic];\n end\n else\n begin\n Result := inherited PropertySections(PropertyName); \n end;\n\nend; <\/pre><\/div>\n\n\n\n
Preparando el editor<\/h2>\n\n\n\n
Por \u00faltimo debemos indicar el editor que hago uso de nuestro componente. Para ello abre el archivo CastleEngineManifest.xml<\/em> que esta en la carpeta del proyecto. A\u00f1ade, sino existe, la entrada editor_units<\/em>, tal como parece en el c\u00f3digo m\u00e1s abajo y gu\u00e1rdalo.Observa el c\u00f3digo. Si el propiedad se llama igual que alg\u00fan elemento de la lista que hemos indicado entre corchetes, devuelve psBasic<\/em> de lo contrario devuelve lo indique la clase padre.<\/p>\n\n\n\n
<project name=\"Ghost1\"\nstandalone_source=\"Ghost1_standalone.dpr\"\ngame_units=\"GameInitialize\"\nqualified_name=\"com.mycompany.Ghost1\"\ncaption=\"Ghost and Goblins \"\neditor_units=\"gamezombiesbehavior\"\n>\n<compiler_options>\n<search_paths>\n<path value=\"code\/\" \/>\n<path value=\"code\/enemigos\" \/>\n<\/search_paths>\n<\/compiler_options>\n<\/project><\/pre><\/div>\n\n\n\n
Si quisieras a\u00f1adir m\u00e1s componentes, ponlos dentro de las comillas separados por comas.<\/p>\n\n\n\n
Ahora desde el editor, en el men\u00fa Project<\/em>, selecciona Restart Editor (With Custom Components)<\/em><\/p>\n\n\n
\n<\/figure>\n<\/div>\n\n\n
Con ello, el editor de volver\u00e1 a compilar y se abrir\u00e1 de nuevo. Tras ello, pulsa con el bot\u00f3n derecho sobre el zombie y selecciona Add Behaivor (Extense Parente <\/em>Transform),<\/em> y despu\u00e9s selecciona Zombie(TZombieBehaivor)<\/em> <\/p>\n\n\n
\n<\/figure>\n<\/div>\n\n\n
Y si lo seleccionas, a la derecha podr\u00e1s ver sus propiedades, que hemos definido anteriormente.<\/p>\n\n\n
![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/04\/image.png\")
<\/figure>\n<\/div>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/04\/image-1.png\")
<\/figure>\n<\/div>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/04\/image-2.png\")
<\/figure>\n<\/div>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/04\/image-3.png\")
<\/figure>\n<\/div>\n\n\n