![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2025\/11\/image-1024x633.png\")
C\u00f3mo el arma ser\u00e1 un elemento que aparecer\u00e1 en el juego por momentos y luego desparece, vamos a crearlo por c\u00f3digo.<\/p>\n\n\n\n
Creaci\u00f3n del arma por c\u00f3digo.<\/h2>\n\n\n\n
En la secci\u00f3n private<\/em> a\u00f1ade dos elementos TcastleScene<\/em>. A\u00f1adimos dos elementos, porque uno sera el arma, y el otro ser\u00e1 el arma rotada 180. Para poder tener un elemento para cada direcci\u00f3n de disparo<\/p>\n\n\n Siguiendo con la idea de tener lo m\u00e1s ordenado posible el c\u00f3digo crearemos un procedimiento d\u00f3nde escribiremos el c\u00f3digo necesario para inicializar las armas.<\/p>\n\n\n\n En la secci\u00f3n Private<\/em>, crea un procedimiento llamado ConfigureWeaponSpriteScene,<\/em> puedes pulsar control+shift+c <\/em>para que Lazarus cree el cuerpo del procedimiento autom\u00e1ticamente.<\/p>\n\n\n En el procedimiento escribimos el siguiente c\u00f3digo.<\/p>\n\n\n\n B\u00e1sicamente lo hace este c\u00f3digo, es crear los elemento que hemos declarado en la secci\u00f3n Private<\/em>. Es importante que al crearlo le indiquemos el par\u00e1metro FreeAtStop<\/em> de esta manera el motor gr\u00e1fico ser\u00e1 el encargado de liberar de la memoria el objeto cuando le indiquemos que ya no lo usaremos m\u00e1s.<\/p>\n\n\n\n La siguiente l\u00ednea le asignamos la hoja de sprites que debe cargar. Despu\u00e9s le indicamos que animaci\u00f3n debe ejecutar, y por \u00faltimo le indicamos que su lo represente a una escala 1,1,1. Esto es que su tama\u00f1o original.<\/p>\n\n\n\n Estas tres l\u00edneas son iguales, tanto para una arma como para su \u201chomologa\u201d rotada. Pero el arma que usaremos rotada, debemos indicarle que la rote. Esto se hace indicando una rotaci\u00f3n, de la misma manera que hicimos con el personaje del juego.<\/p>\n\n\n\n Por \u00faltimo debemos llamar a este procedimiento desde el procedimiento Start<\/em>.<\/p>\n\n\n Para cumplir el resto de las condiciones que se comentaron antes, debemos definir las siguientes variables y temporizador, las cuales las declararemos en la secci\u00f3n private<\/em><\/p>\n\n\n La variable CanShot(1)<\/em>, la usaremos para indicar si se puede disparar. En el caso, por ejemplo, de que ya haya dos espadas en el escenario, esta variable se valdr\u00e1 falso.<\/p>\n\n\n\n La variable, TimerShot(2), es un temporizador, el cual lo usaremos para temporizar el lanzamiento. Para que el jugador no pulse la tecla de disparo y se disparen m\u00faltiples espadas.<\/p>\n\n\n\n Cuando lanzamos una espada, realizamos diversas operaciones, crear el sprite, etc. Para saber que estamos haciendo \u201cla preparaci\u00f3n\u201d lo indicamos con la variable Shotting(3)<\/em>.<\/p>\n\n\n\n La variable NumeroDisparos(4)<\/em>, indica cuantas espadas est\u00e1n actualmente en el escenario.<\/p>\n\n\n\n Por \u00faltimo, el procedimiento OnTimerShot(5)<\/em> es un procedimiento que se ser\u00e1 llamado cada vez que se cumpla el tiempo que especificamos en el temporizador. No es necesario que lo escribas ahora esta l\u00ednea, ya que cuando inicialicemos el temporizador, Lazarus lo crear\u00e1 por nosotros<\/p>\n\n\n\n En procedimiento Onstart<\/em>, debemos inicializar todas estas variables, y preparar el temporizador<\/p>\n\n\n\n El siguiente c\u00f3digo se encarga de ello:<\/p>\n\n\n\n Lo primero es crear el temporizador, que es un objeto de tipo TcastleTimer.<\/em><\/p>\n\n\n\n Le asignamos el evento OnTimer<\/em>, el cual se ejecutar\u00e1 cada vez que el temporizador alcance el valor establecido. Recuerda que tras escribir la l\u00ednea, su pulsas Ctrl+shift+C<\/em>, lazarus crear\u00e1 el procedimiento asociado, as\u00ed como su declaraci\u00f3n.<\/p>\n\n\n\n Asignamos a la propiedad InvervalSeconds, <\/em>el valor 1 que ser\u00e1 el intervalo en segundos de nuestro temporizador.<\/p>\n\n\n\n Asignamos las variables booleanas a su estado inicial. Enviamos el temporizador \u201cal fondo\u201d para \u201ccongelarlo\u201d. Por \u00faltimo inicializamos la variable NumeroDisparos<\/em> a cero.<\/p>\n\n\n\n Con estas l\u00edneas , al iniciar el juego, tendremos todo preparado para empezar a disparar<\/p>\n\n\n\n El siguiente paso es modificar la funci\u00f3n FireWeapon<\/em><\/p>\n\n\n\n Modificamos la instrucci\u00f3n IF<\/em>, de manera que tenga en cuenta la variable CanShot <\/em>sea igual a TRUE<\/em> y N\u00fameroDisparos<\/em> sea menor igual a 2. Adem\u00e1s llamamos al procedimiento StartTimerShot<\/em>, el cual se encarga de iniciar el temporizador.<\/p>\n\n\n\n Crea el procedimiento StartTime<\/em>Shot<\/u><\/em>, en la secci\u00f3n Private<\/em>, y escribe el siguiente c\u00f3digo dentro de ella.<\/p>\n\n\n\n Este procedimiento cambia la variable CanShot<\/em> a TRUE <\/em>y trae \u201cal frente\u201d el temporizador, con lo cual empieza a contar.<\/p>\n\n\n\n En el procedimiento Update<\/em>, gestionaremos si la funci\u00f3n FireWeapon<\/em> devuelve TRUE<\/em>. En tal caso debemos lanzar una espada.<\/p>\n\n\n\n Usaremos la variable, declarada en la secci\u00f3n Private<\/em>, shotting la cual nos indicar\u00e1 si estamos lanzado la espada. En el caso que no sea as\u00ed, reiniciamos el temporizador para asegurar que empieza a contar desde cero. Ponemos la variable Shotting<\/em> a TRUE<\/em>, incrementamos el contador de n\u00famero de disparos. Y dependiendo hac\u00eda donde est\u00e9 mirando el personaje, creamos un vector de direcci\u00f3n paralelo al eje X. El sentido de este vector est\u00e1 indicado por el signo de su valor en X.<\/p>\n\n\n\n Llamamos al procedimiento Shot (ahora entro en detalles sobre este procedimiento), ya por \u00faltimo indicamos que no se puede disparar cambiando a FALSE<\/em> y cambiamos la variable Shotting<\/em> a FALSE<\/em> para indicar que hemos terminado el proceso de disparo.<\/p>\n\n\n\n La variable CanShot<\/em> cambiar\u00e1 a TRUE<\/em>, cuando haya pasado el tiempo que establecimos en el temporizador. Para ello en el evento OnTimerShot<\/em> que creamos antes, debemos escribir el siguiente c\u00f3digo.<\/p>\n\n\n\n En este procedimiento lo primero en \u201cenviar\u201d el temporizador a dormir. Y cambiamos la variable CanShot<\/em> a True.<\/em><\/p>\n\n\n\n Este shot se encarga de realizar el disparo pero depende de la clase Tweapon,<\/em> la cual ser\u00e1 el arma que disparamos y se encargar\u00e1 de desplazarla y calcular cuando debe desaparecer.<\/p>\n\n\n\n La clase Tweapon<\/em>, la debes declarar al principio de la unidad, justo debajo de d\u00f3nde declaraste la clase TlevelBonus<\/em>.<\/p>\n\n\n\n Esta clase desciende, o es hija, de TcastleTransform.<\/em> Declaramos un constructor, con el argumento Reintroduce<\/em>, as\u00ed podemos usar el m\u00e9todo Create<\/em> que ha sido escondido por la clase padre, a\u00f1adiendo algunos argumentos m\u00e1s. En este m\u00e9todo recibe, adem\u00e1s del propietario (Aowner<\/em>), que es obligatorio, un par\u00e1metro de tipo TcastleScene<\/em>, que ser\u00e1 nuestra arma.<\/p>\n\n\n\n Por otra parte declaramos el procedimiento Update<\/em>, el cual ser\u00e1 llamada cada vez que se debe actualizar nuestra arma. Este m\u00e9todo es llamado autom\u00e1ticamente con el motor gr\u00e1fico, al ser un objeto de desciende de TcastleTransform <\/em>hereda esta car\u00e1cteristica.<\/p>\n\n\n\n La propiedad Rbody<\/em>, es de tipo TcastleRigiBody<\/em>, la cual contendr\u00e1 un RigiiBody<\/em>, que es el objeto que gestionar\u00e1 las colisiones. Al igual que se lo hemos creado desde el editor de CGE, lo crearemos desde c\u00f3digo.<\/p>\n\n\n\n La propiedad MaxDistance<\/em>, la usaremos para almacenar la distancia m\u00e1xima que puede recorrer el arma, desde el punto de inicio, que se guarda en la propiedad StartPoint<\/em>. Al ser un punto en 2D, esta ser\u00e1 un vector de tipo TVector2 .<\/em><\/p>\n\n\n\n Veamos el c\u00f3digo del constructor<\/p>\n\n\n\n Observa el c\u00f3digo y sus comentarios. Empezamos a\u00f1adiendo el arma, que hemos recibido por el par\u00e1metro WeaponSpriteScene<\/em>, a la escena. Lo hacemos visible y lo situamos en el origen de coordenadas.<\/p>\n\n\n\n Despu\u00e9s creamos el objeto TcastleRigiBody<\/em>, ajustamos sus propiedades a un entorno 2D, su propiedad Dinamic<\/em> la ponemos a True, para que su desplazamiento se gestionado por el motor de f\u00edsicas. La detecci\u00f3n de colisi\u00f3n (CollisionDectection<\/em>) a continuo, la velocidad a cero, en el mismo plano del protagonista, e indicamos que no le afecte la gravedad.<\/p>\n\n\n\n Ya por \u00faltimo, creamos el volumen de colisi\u00f3n o collider<\/em>.<\/p>\n\n\n\n Con todo esto listo, los a\u00f1adimos a \u201ccomportamientos\u201d de nuestro objeto.<\/p>\n\n\n\n Por otra parte, tenemos el procedimiento Update<\/em><\/p>\n\n\n\n En este procedimiento crearemos un objeto Tweapon<\/em>, y lo inicializamos con los datos que necesitamos.<\/p>\n\n\n\n Dependiendo de la direcci\u00f3n que indica el par\u00e1metro Direcci\u00f3n<\/em>, crearemos el objeto con un sprite u otro y asign\u00e1ndole e un padre, en este caso es el que hemos pasado por el par\u00e1metro WeaponOwner<\/em>.<\/p>\n\n\n\n Indicamos el punto de inicio, y la distancia m\u00e1xima que ser\u00e1 la mitad de ancho de la c\u00e1mara. Cuando se alcanza esta distancia estamos fuera de la vista de la c\u00e1mara.<\/p>\n\n\n\n Ajustamos su posici\u00f3n al origen. Cuando creamos el objeto este estaba en el origen de coordenadas. Ahora lo ponemos d\u00f3nde nos interesa.<\/p>\n\n\n\n Ya solo nos queda asignar una velocidad, multiplicada por la direcci\u00f3n, as\u00ed el arma ir\u00e1 hac\u00eda un lado u otro.<\/p>\n\n\n\n Ya solo nos queda a\u00f1adir nuestra arma, al ViewPort<\/em>, para que el motor gr\u00e1fico se encargue de gestionarlo.<\/p>\n\n\n\n Para saber en cualquier momento el n\u00famero de espadas que hay en cada momento, podemos buscar el n\u00famero de objetos de tipo Tweapon que hay en el Viewport. <\/em>Para ello vamos a crear un un procedimiento llamado UpdateNumberWeapons<\/em> el cual lo llamaremos en el procedimiento FireWeapon.<\/em><\/p>\n\n\n\n El procedimiento UpdateNumberWeapons<\/em> recorrer\u00e1 los elemento que hay en Viewport<\/em> y obtendr\u00e1 el total de los que sean de tipo Tweapon<\/em> actualizando la variable NumeroDisparos.<\/em><\/p>\n\n\n\n![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2025\/11\/image-1.png\")
![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2025\/11\/image-2.png\")
procedure TViewMain.ConfigureWeaponSpriteScene;\nbegin\n WeaponSpriteScene := TCastleScene.Create(FreeAtStop);\n WeaponSpriteScene.Url := 'castle-data:\/sprites\/spear.castle-sprite-sheet';\n WeaponSpriteScene.AutoAnimation := 'Spear1';\n WeaponSpriteScene.Scale := Vector3(1, 1, 1);\n\n WeaponSpriteSceneRotate := TCastleScene.Create(FreeAtStop);\n WeaponSpriteSceneRotate.Url := 'castle-data:\/sprites\/spear.castle-sprite-sheet';\n WeaponSpriteSceneRotate.AutoAnimation := 'Spear1';\n WeaponSpriteSceneRotate.Scale := Vector3(1, 1, 1);\n WeaponSpriteSceneRotate.Rotation := Vector4(0, 1, 0, Deg(180));\n\nend; <\/pre><\/div>\n\n\n\n
![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2025\/11\/image-3.png\")
![\"\"](\"https:\/\/jorgeturiel.es\/wp-content\/uploads\/2025\/11\/image-4.png\")
TimerShot := TCastleTimer.Create(FreeAtStop);\n {$IFDEF FPC}\n TimerShot.OnTimer:=@OnTimerShot;\n {$ELSE}\n TimerShot.OnTimer := OnTimerShot;\n {$ENDIF}\n TimerShot.IntervalSeconds := 1;\n CanShot := True;\n shotting := False;\n InsertBack(TimerShot);\n NumeroDisparos := 0; <\/pre><\/div>\n\n\n\nDisparando<\/h2>\n\n\n\n
function TViewMain.FireWeapon: boolean;\nbegin\n Result := False;\n if (Container.Pressed[keySpace]) and (CanShot = True) and (NumeroDisparos <= 2) then\n begin\n Result := True;\n StarTimerShot;\n end;\nend; <\/pre><\/div>\n\n\n\n
procedure TViewMain.StarTimerShot;\nbegin\n CanShot := True;\n InsertFrontIfNotExists(TimerShot);\nend; <\/pre><\/div>\n\n\n\n
if FireWeapon then\n begin\n if shotting = False then\n begin\n TimerShot.ResetNextTimerEvent;\n shotting := True;\n NumeroDisparos := NumeroDisparos + 1; \n if Arthur.Rotation.W = 0 then\n begin\n VectorDireccion := Vector3(1, 0, 0);\n end\n else\n begin\n VectorDireccion := Vector3(-1, 0, 0);\n end;\n Shot(Arthur, Arthur.LocalToWorld(Vector3(Arthur.BoundingBox.SizeX \/ 2 + 5, 0, 0)),\n VectorDireccion);\n CanShot := False;\n shotting := False;\n end;\n end; <\/pre><\/div>\n\n\n\n
procedure TViewMain.OnTimerShot(Sender: Tobject);\nbegin\n InsertBackIfNotExists(TimerShot);\n CanShot := True;\nend;<\/pre><\/div>\n\n\n\n
Clase TWeapon<\/h2>\n\n\n\n
type\n\n { TWeapon }\n\n TWeapon = class(TCastleTransform)\n strict private\n FMaxDistance: Single;\n FRBody: TCastleRigidBody;\n FStartPoint: TVector2;\n public\n constructor Create(AOwner: TComponent; WeaponSpriteScene: TCastleScene); reintroduce;\n procedure Update(const SecondsPassed: single; var RemoveMe: TRemoveType); override;\n property RBody: TCastleRigidBody read FRBody;\n property MaxDistance:Single read FMaxDistance write FMaxDistance;\n property StartPoint: TVector2 read FStartPoint write FStartPoint;\n end; \n<\/pre><\/div>\n\n\n\nConstructor<\/h3>\n\n\n\n
constructor TWeapon.Create(AOwner: TComponent; WeaponSpriteScene: TCastleScene);\nvar\n col: TCastleBoxCollider;\nbegin\n inherited Create(AOwner);\n\n \/\/A\u00f1adir elemento a la escena\n Add(WeaponSpriteScene);\n WeaponSpriteScene.Visible := True;\n WeaponSpriteScene.Translation := Vector3(0, 0, 1);\n { En este caso, se a\u00f1ade TCastleRigidBody a TWeapon(TCastleTransform)\n y no a WeaponSpriteScene para poder usar esta escena en varias armas\n }\n FRBody := TCastleRigidBody.Create(Self);\n FRBody.Setup2D;\n RBody.Dynamic := True;\n RBody.CollisionDetection := cdContinuous;\n RBody.MaxLinearVelocity := 0;\n RBody.Layer := 3; \/\/Plano del protagonista\n RBody.Gravity := False;\n \/\/ Creamos el collider\n col := TCastleBoxCollider.Create(Self);\n col.Restitution := 0.0;\n Col.Mass := 1;\n AddBehavior(Col);\n AddBehavior(FRBody);\nend; <\/pre><\/div>\n\n\n\nUpdate<\/h3>\n\n\n\n
procedure TWeapon.Update(const SecondsPassed: single; var RemoveMe: TRemoveType);\nvar\n Posicion: TVector2;\nbegin\n inherited Update(SecondsPassed, RemoveMe);\n Posicion := FStartPoint - Self.translationXY;\n if (Abs(Posicion.x) > FMaxDistance) then\n begin\n Self.Visible := False;\n Self.Exists := False;\n RemoveMe := rtRemoveAndFree;\n end;\nend; <\/pre><\/div>\n\n\n\n
En este procedimiento, comprobaremos si la posici\u00f3n actual, restada a la posici\u00f3n de inicio es mayor que FmaxDistance<\/em>. En tal caso cambiamos las propiedades Visible <\/em>y Exists<\/em> a False<\/em>. Y cambiando la variable RemoveMe<\/em>, que hemos recibido como par\u00e1metro, al valor rtRemoveAndFree<\/em>, indicamos al motor gr\u00e1fico que debe borrar este objeto. El motivo de cambiar las variables Visible <\/em>y Exists<\/em> a False,<\/em> es para que mientras no se destruye, no se visible para jugador y al \u201cno existir\u201d no se tendr\u00e1 en cuenta para futuras colisiones<\/p>\n\n\n\nProcedimiento Shot.<\/h2>\n\n\n\n
procedure TViewMain.Shot(WeaponOwner: TComponent; const Origen, Direccion: TVector3);\nvar\n Weapon: TWeapon;\nbegin\n if Direccion.X < 0 then\n begin\n Weapon := TWeapon.Create(WeaponOwner, WeaponSpriteSceneRotate);\n end\n else\n begin\n Weapon := TWeapon.Create(WeaponOwner, WeaponSpriteScene);\n end;\n Weapon.StartPoint := Vector2(Origen.X,Origen.Y);\n Weapon.MaxDistance:=ViewPort1.Camera.Orthographic.EffectiveRect.Width \/ 2;\n Weapon.Translation := Origen;\n Weapon.RBody.LinearVelocity := Direccion * Vector3(150, 0, 0);\n ViewPort1.Items.Add(Weapon);\nend; <\/pre><\/div>\n\n\n\n
Actualizar el n\u00famero de disparos<\/h2>\n\n\n\nprocedure TViewMain.UpdateNumberWeapons;\nvar\n I: integer;\nbegin\n NumeroDisparos := 0;\n I := 0;\n while I < ViewPort1.Items.Count do\n begin\n if ViewPort1.Items[I].ClassType = TWeapon then\n begin\n if ViewPort1.Items[i].Exists = True then\n begin\n NumeroDisparos := NumeroDisparos + 1;\n end;\n end;\n I := I + 1;\n end;<\/pre><\/div>\n\n\n\n
Modificaremos el procedimiento FireWeapon<\/em> para que llame a este procedimiento, y dependiendo del valor de la variable NumeroDisparos<\/em>, devolver\u00e1 True<\/em> o False.<\/em><\/p>\n\n\n\nfunction TViewMain.FireWeapon: boolean;\nbegin\n Result := False;\n UpdateNumberWeapons;\n if (Container.Pressed[keySpace]) and (CanShot = True) and (NumeroDisparos <= 2) then\n begin\n NumeroDisparos := NumeroDisparos + 1;\n Result := True;\n StarTimerShot;\n end;\nend; <\/pre><\/div>\n\n\n\n