Flight script

with Ada.Text_IO;         use Ada.Text_IO;
with Ada.Float_Text_IO;   use Ada.Float_Text_IO;

procedure Flight_Sim is

   type Vector3 is record
      X : Float := 0.0;
      Y : Float := 0.0;
      Z : Float := 0.0;
   end record;

   function "+" (A, B : Vector3) return Vector3 is
   begin
      return (A.X + B.X, A.Y + B.Y, A.Z + B.Z);
   end;

   function "*" (A : Vector3; S : Float) return Vector3 is
   begin
      return (A.X * S, A.Y * S, A.Z * S);
   end;

   Position : Vector3 := (0.0, 0.0, 0.0);
   Velocity : Vector3 := (0.0, 0.0, 0.0);

   Flying   : Boolean := False;
   Speed    : Float   := 60.0;

   Input    : Character;

begin
   Put_Line("=== Ada Flight Simulation ===");
   Put_Line("F = toggle flight, WASD = move, Space = up, C = down, Q = quit");

   loop
      Put("Input: ");
      Get(Input);

      if Input = 'F' or else Input = 'f' then
         Flying := not Flying;
         if Flying then