Dentro de la carpeta, sprites crea una nueva carpeta llamada enemigos_level1<\/em>. Y copia los archivos dentro de ella.<\/p>\n\n\n En la nueva hoja de sprites, crea una nueva animaci\u00f3n, pulsando con el bot\u00f3n derecho del rat\u00f3n en la zona de la ventana frames<\/em>, selecciona Add..<\/em><\/p>\n\n\n\n Selecciona los archivos que contenga al zombie caminando. Y guarda la hoja como zombies.<\/em><\/p>\n\n\n\n Aqu\u00ed tienes una vista de la animaci\u00f3n.<\/p>\n\n\n Tambi\u00e9n crearemos una animaciones m\u00e1s, que llamaremos salir.<\/em><\/p>\n\n\n La idea es que el zombi salga del suelo camine una distancia, y luego se detenga, y se vuelva a enterrar.<\/p>\n\n\n\n Para ello vamos a crear una nueva unidad, que contendr\u00e1 una clase que desciende de TcastleBehavior.<\/em>En la ventanaFiles,<\/em> dentro de code vamos a crear una carpeta nueva que llamaremos enemigos<\/em>. Haz click con el bot\u00f3n derecho sobre la ventana que contiene los archivos.<\/p>\n\n\n Dentro de este directorio, vuelve a pulsar con el bot\u00f3n derecho del rat\u00f3n, y crearemos una nueva unidad (New Unit here)<\/em> clase de tipo Behavior.<\/em><\/p>\n\n\n En el asistente que aparece, pon el nombre Zombies,<\/em> en el campo Base Nane, <\/em>y pulsa Ok<\/em><\/p>\n\n\n Al pulsar Ok,<\/em> saldr\u00e1 un aviso como el siguiente.<\/p>\n\n\n El motor gr\u00e1fico est\u00e1 avisando que el nuevo archivo no est\u00e1 en la ruta del compilador. Esto significa que al compilar el programa, esta unidad no se podr\u00e1 encontrar, y si el c\u00f3digo en alguna parte hace referencia a esta unida, se producir\u00e1 un error. Adem\u00e1s nos indica como podemos solucionarlo.<\/p>\n\n\n\n Al pulsar Aceptar<\/em>, sale un nuevo aviso indicando preguntando si deseamos empezar a editar (introducir c\u00f3digo) en esta nueva unidad. Pulsa s\u00ed.<\/em><\/p>\n\n\n\n Se abrir\u00e1 el editor por defecto, y aparecer\u00e1 la unidad. En el caso de Lazarus<\/em>, lo primero que debemos hacer es a\u00f1adir esta unidad al proyecto. Selecciona en el men\u00fa Proyecto, A\u00f1adir Archivo de editor al proyect<\/em>o<\/em>, o el atajo de teclado Shift+F1.<\/em><\/p>\n\n\n Y pulsa S\u00ed, <\/em>sobre la ventana de confirmaci\u00f3n.<\/p>\n\n\n De esta manera, Lazarus,<\/em> reconoce la unidad como parte de proyecto. Ahora solo queda indicar a CGE<\/em>, que reconozca la unidad. Vuelve al editor, y selecciona el origen del del \u00e1rbol de archivos, y localiza el archivo CastleEngineManifiest.xml<\/em>.<\/p>\n\n\n Este es el archivo d\u00f3nde debemos indicar la ruta, d\u00f3nde CGE debe localizar el archivo nuevo. Abre la carpeta contenedora, pulsando con el bot\u00f3n derecho del rat\u00f3n y seleccionando Open Containing Folde<\/em>r.<\/p>\n\n\n En el caso que este usando Visual Code<\/em>, como editor podr\u00e1s abrir este archivo directamente. Para mover el zombie una distancia determinada necesitamos tres datos: velocidad, direcci\u00f3n y distancia m\u00e1xima. Abre el editor de c\u00f3digo, y selecciona el archivo GameZombiesBehavior,<\/em> sino lo tienes a la vista.<\/p>\n\n\n\n Para ello vamos a crear en la secci\u00f3n public<\/em> las tres propiedades.<\/p>\n\n\n\n F\u00edjate que hay dos procedimientos ya declarados, que son estos:<\/p>\n\n\n\n El procedimiento Update<\/em> es el que se llamar\u00e1 cada vez que se vaya a actualizar el elemento TcastleScene<\/em> al que pertenece esta clase. Ten en cuenta que en esta unidad estamos declarando una clase comportamiento o Tbehaivor <\/em>el cual a\u00f1adirenos a un elemento TcastleScene<\/em>.<\/p>\n\n\n\n El otro procedimiento, se ejecutar\u00e1 justo cuando se a\u00f1ade esta clase al elemento TcastleScene<\/em>. Dentro de este procedimiento escribiremos lo siguiente:<\/p>\n\n\n\n Tal como indica el comentario, la clase Parent<\/em>, ya est\u00e1 disponible, por lo tanto aprovechanos para asginar valores a las propiedades que hemos creado antes. Y llamar al procedimiento Animaci\u00f3nSalir<\/em>, d\u00f3nde vamos a programar la animaci\u00f3n que se realiza al principio.<\/p>\n\n\n\n En este procedimiento preparamos la animaci\u00f3n<\/p>\n\n\n\n Primero obtenemos la posici\u00f3n actual. El resto del procedimiento, es la creaci\u00f3n de la animaci\u00f3n.<\/p>\n\n\n\n Cuando la animaci\u00f3n termina, llamamos se llama al procedimiento FinAnimacionSalir<\/em>. El cual contiene el siguiente c\u00f3digo<\/p>\n\n\n\n Tal como hemos visto anteriomente, el evento OnUpdate<\/em>, en el que se ejecuta repetidamente y d\u00f3nde gestionamos todo.<\/p>\n\n\n\n En este caso, el zombie, tiene dos animaciones. Una walk<\/em>, que es cuando camina, y la otra es salir<\/em>. Adem\u00e1s el zombie se puede enterrar, lo cual es la animaci\u00f3n salir<\/em>, pero ejecutada hacia atr\u00e1s.<\/p>\n\n\n\n Teniendo eso en cuenta, en el evento OnUpdate<\/em> debemos gestionar las animaciones. El c\u00f3digo no es muy largo, pero si efectivo<\/p>\n\n\n\n Lo primero es aseguranos que hay alguna animaci\u00f3n activa, algo que siempre deber\u00eda ser as\u00ed pero no est\u00e1 dem\u00e1s.<\/p>\n\n\n\n Si esta animaci\u00f3n es walk<\/em>, nos aseguremos que el zombie tiene una velocidad, asign\u00e1ndole una. Lo siguiente es comprobar si ha recorrido una distancia. Para ello calculamos la distancia entre el origen y la posici\u00f3n actual. Para ello nos ayudamos de la funci\u00f3n PointsDistance<\/em>, la cual nos da la distancia entre dos puntos. Si esta distancia es mayor de 100, se considera que el zombie debe enterrarse. Por tanto llamamos al procedimiento AnimacionEnterrar<\/em>.<\/p>\n\n\n\n De nuevo este procedimiento es muy parecido a FinAnimacionSalir<\/em>. La diferencia est\u00e1 en que se oculta el zombie, se restaura su posici\u00f3n al origen, se vuelve a hacer visible, y llamamos a la animaci\u00f3n AnimacionSalir<\/em>.<\/p>\n\n\n\n Continuando con el evento OnUpdate, <\/em>con la animaci\u00f3n actual es salir. <\/em>Comprobamos si se est\u00e1 ejecutando hacia adelante o hacia atr\u00e1s. Dependiendo de ello, lo que hacemos en calcular que frame de la animaci\u00f3n se est\u00e1 ejecutando, de esta manera en funci\u00f3n del frame actual, iremos cambiando su posici\u00f3n vertical (coordenada Y) para conseguir un efecto de movimiento vertical.<\/p>\n\n\n\n Para calcular el frame actual, debemos obtener el tiempo que lleva la animaci\u00f3n ejecut\u00e1ndose, divirlo por el tiempo total de la animaci\u00f3n y multiplicarlo con el n\u00famero de animaciones. El motico por el cual debemos saber en que sentido se est\u00e1 ejecutando la animaci\u00f3n, es que la forma de obtener el tiempo actual varia.<\/p>\n\n\n\n Con esto tenemos el comportamiento del zombi agrupado en una sola unidad, la cual se puede reusar para m\u00faltiples zombies.<\/p>\n\n\n\n Y en la secci\u00f3n published<\/em> a\u00f1ade el TcaslteScene<\/em> llamado zombie1<\/p>\n\n\n Creamos un una clase TzombieBehavior<\/em>. Le asignamos un vector que indicara su velocidad, y hacemos lo mismo para la direcci\u00f3n. Y a\u00f1adimos este comportamiento al zombi de tipo TcastleScene<\/em>. Ya por \u00faltimo llamar al m\u00e9todo ParentAfterAttach.<\/em><\/p>\n\n\n\n Y ya solo queda ejecutar nuestro programa para ver como el zombie, sale del suelo avanza una distancia, y se vuelve a esconder, para reaparecer de nuevo.<\/p>\n\n\n\n En esta parte, hemos visto como crear unidades y a\u00f1adirlas. As\u00ed como crear un comportamiento para asignarlo a un TCastleScene. <\/p>\n\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen.png\")
<\/figure>\n<\/div>\n\n\n
Crea un hoja de sprites en esta misma carpeta.<\/p>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-1.png\")
<\/figure>\n<\/div>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-2.png\")
<\/figure>\n\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-4.png\")
<\/figure>\n<\/div>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-5.png\")
<\/figure>\n<\/div>\n\n\n
Una vez listo, a\u00f1ade un elemento TcastleScene<\/em>, cambia su nombre a Zombi1, y a\u00f1\u00e1dele el un BoxCollider<\/em> y un RigidBody3<\/em><\/p>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-15.png\")
<\/figure>\n<\/div>\n\n\n
Y en su propiedad Url <\/em>selecciona la hoja de sprites que hemos creado.<\/p>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-16.png\")
<\/figure>\n<\/div>\n\n\nComportamiento<\/h2>\n\n\n\n
Crear la clase TZombieBehavior<\/h3>\n\n\n\n
![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-6.png\")
<\/figure>\n<\/div>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-7.png\")
<\/figure>\n<\/div>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-8.png\")
<\/figure>\n<\/div>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-9.png\")
<\/figure>\n<\/div>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-10.png\")
<\/figure>\n<\/div>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-11.png\")
<\/figure>\n<\/div>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-12.png\")
<\/figure>\n<\/div>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-13.png\")
<\/figure>\n<\/div>\n\n\n
Edita el archivo, a\u00f1ade una entrada nueva dentro de compiler_options. <\/em>Indicando la nueva ruta. F\u00edjate en la imagen siguiente.<\/p>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/imagen-14.png\")
<\/figure>\n<\/div>\n\n\nProgramando la clase TzombieBehavior<\/h2>\n\n\n\n
public\n property Direccion: TVector3 read Fdireccion write Setdireccion;\n property Velocidad: TVector3 read Fvelocidad write Setvelocidad;\n property Distancia: single read FDistancia write SetDistancia; <\/pre><\/div>\n\n\n\n
public\n procedure ParentAfterAttach; override;\n procedure Update(const SecondsPassed: single; var RemoveMe: TRemoveType); override; <\/pre><\/div>\n\n\n\n
procedure TZombieBehavior.ParentAfterAttach;\nbegin\n inherited;\n { Parent is available now. }\n FOrigen := Parent.Translation;\n FRigidBody := Parent.RigidBody;\n FRigidBody.LinearVelocity := Vector3(0, 0, 0);\n AnimacionSalir;\nend; <\/pre><\/div>\n\n\n\nprocedure TZombieBehavior.AnimacionSalir;\nvar\n Parameters: TPlayAnimationParameters;\nbegin\n FPosicionActual := Parent.Translation;\n Parameters := TPlayAnimationParameters.Create;\n try\n Parameters.Loop := False;\n Parameters.Name := 'salir';\n Parameters.Forward := True;\n Parameters.StopNotification :=\n {$IFDEF FPC}\n @FinAnimacionSalir;\n {$ELSE]}\n FinAnimacionSalir;\n {$ENDIF}\n TCastleScene(Parent).PlayAnimation(Parameters);\n finally\n FreeAndNil(Parameters);\n end;\nend; <\/pre><\/div>\n\n\n\nprocedure TZombieBehavior.FinAnimacionSalir(const Scene: TCastleSceneCore;\n const Animation: TTimeSensorNode);\nvar\n Posicion: TVector3;\nbegin\n TCastleScene(Parent).PlayAnimation('walk', True);\n FRigidBody.LinearVelocity := FVelocidad * FDireccion;\n Posicion := Parent.Translation;\n Posicion.Y := FOrigen.y;\n Parent.Translation := Posicion;\nend; \n<\/pre><\/div>\n\n\n\n
En este procedimiento, lo primero, es indicar que la animaci\u00f3n que se ejecute la animaci\u00f3n walk<\/em>, de manera continua. Le asignamos una velocidad y una direcci\u00f3n. Estos datos son los que hemos guardado anteriormente. Nos aseguramos que la coordenada Y del padre, es la original. Ya que como veremos m\u00e1s adelante, en el evento OnUpdate<\/em>, la coordenada Y es modificada.<\/p>\n\n\n\nEvento OnUpdate. El centro de todo<\/h3>\n\n\n\n
procedure TZombieBehavior.Update(const SecondsPassed: single; var RemoveMe: TRemoveType);\nvar\n TiempoActual: TFloatTime;\n AnimationNode: TTimeSensorNode;\n FrameActual: integer;\n Posicion: TVector3;\nbegin\n inherited;\n\n AnimationNode := TCastleScene(Parent).CurrentAnimation;\n if AnimationNode <> nil then\n begin\n if AnimationNode.X3DName = 'walk' then\n begin\n FRigidBody.LinearVelocity := FVelocidad * FDireccion;\n if (PointsDistance(FOrigen, Parent.Translation) > 100) then\n begin\n FRigidBody.LinearVelocity := Vector3(0, 0, 0);\n \/\/Pasar a la animaci\u00f3n de enterrarse\n AnimacionEnterrar;\n end;\n end;\n if AnimationNode.X3DName = 'salir' then\n begin\n \/\/ FractionIncreasing corresponde a la animaci\u00f3n hacia adelante\n if AnimationNode.FractionIncreasing then\n begin\n FrameActual := Floor((AnimationNode.ElapsedTimeInCycle \/\n AnimationNode.CycleInterval) * 7);\n end\n else\n begin\n TiempoActual := AnimationNode.CycleInterval -\n AnimationNode.ElapsedTimeInCycle;\n FrameActual := Floor((TiempoActual \/ AnimationNode.CycleInterval) * 7);\n end;\n Posicion := TCastleScene(Parent).Translation;\n case FrameActual of\n 0:\n Posicion.Y := FOrigen.y - 27;\n 1:\n Posicion.Y := FOrigen.y - 25;\n 2:\n Posicion.Y := FOrigen.y - 24;\n 3:\n Posicion.Y := FOrigen.y - 20;\n 4:\n Posicion.Y := FOrigen.y - 17;\n 5:\n Posicion.Y := FOrigen.y - 8;\n else\n Posicion.Y := FOrigen.y;\n end;\n Parent.Translation := Posicion;\n end;\n end;\n\nend; \n<\/pre><\/div>\n\n\n\n
procedure TZombieBehavior.AnimacionEnterrar;\nvar\n Parameters: TPlayAnimationParameters;\n FPosicionActual := Parent.Translation;\n Parameters := TPlayAnimationParameters.Create;\n try\n Parameters.Loop := False;\n Parameters.Name := 'salir';\n \/\/Realizamos la animaci\u00f3n de salir hacia atr\u00e1s\n Parameters.Forward := False;\n Parameters.StopNotification :=\n {$IFDEF FPC}\n @FinAnimacionEnterrar;\n {$ELSE]}\n FinAnimacionEnterrar;\n {$ENDIF}\n TCastleScene(Parent).PlayAnimation(Parameters);\n finally\n FreeAndNil(Parameters);\n end;\nend; \n<\/pre><\/div>\n\n\n\n
A\u00f1adir el comportamiento al zombie<\/h2>\n\n\n\n
En la unidad principal, a\u00f1ade en la secci\u00f3n principal el zombi (TcastleScene)<\/em> que creamos antes.<\/p>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/image.png\")
<\/figure>\n<\/div>\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2026\/02\/image-1.png\")
<\/figure>\n<\/div>\n\n\n
Y ahora en el el procedimiento a\u00f1ade este c\u00f3digo<\/p>\n\n\n\n\/\/Crear zombi\n ZombieBehavior := TZombieBehavior.Create(FreeAtStop);\n ZombieBehavior.Velocidad:=Vector3(10,0,0);\n ZombieBehavior.Direccion:=Vector3(-1,0,0);\n Zombi1.AddBehavior(ZombieBehavior);\n ZombieBehavior.ParentAfterAttach; <\/pre><\/div>\n\n\n\n
Conclusiones<\/h2>\n\n\n\n