Just a bolt bolting around in space

2024-08-24 18:04:47 +02:00
commit 1b11f5ffe3
9 changed files with 177 additions and 0 deletions
--- a/src/ballon_bounce.adb
+++ b/src/ballon_bounce.adb
@@ -0,0 +1,136 @@
+with Sf;
+with Sf.Graphics.RenderWindow; use Sf.Graphics.RenderWindow;
+with Sf.Graphics.Color;        use Sf.Graphics.Color;
+with Sf.Graphics.Texture;      use Sf.Graphics.Texture;
+with Sf.Graphics.Sprite;       use Sf.Graphics.Sprite;
+
+with Sf.Window.Event;    use Sf.Window.Event;
+with Sf.Window.Keyboard; use Sf.Window.Keyboard;
+
+with Sf.System.Vector2; use Sf.System.Vector2;
+with Sf.System.Clock;   use Sf.System.Clock;
+with Sf.System.Time;    use Sf.System.Time;
+
+use Sf.Graphics;
+use Sf.Window;
+use Sf.System;
+use Sf;
+
+with Ada.Text_IO; use Ada.Text_IO;
+
+procedure Ballon_Bounce is
+
+    -- Window structure
+    Width        : sfUint32           := 1_000;
+    Height       : sfUint32           := 750;
+    Width_Float  : Float              := 1_000.0;
+    Height_Float : Float              := 750.0;
+    Main_Window  : sfRenderWindow_Ptr :=
+       RenderWindow.create ((Width, Height, 32), "Balloon Bouncer!");
+    Event_Hook   : Event.sfEvent;
+
+    -- Setup the background
+    Background_Texture : sfTexture_Ptr :=
+       Texture.createFromFile ("img/background.jpg");
+    Background         : sfSprite_Ptr  := Sprite.create;
+
+    -- Set platform
+    Platform_Texture : sfTexture_Ptr :=
+       Texture.createFromFile ("img/pipe.png");
+    Platform         : sfSprite_Ptr  := Sprite.create;
+    Platform_Width   : Float         := 250.0;
+    Platform_Height  : Float         := 50.0;
+
+    -- Set Ball
+    type Vector2 is record
+        X : Float;
+        Y : Float;
+    end record;
+    Ball_Texture : sfTexture_Ptr := Texture.createFromFile ("img/ball.png");
+    Ball         : sfSprite_Ptr  := Sprite.create;
+    Ball_Size    : Float         := 93.0;
+
+    -- Game Coordinates
+    -- subtype Platform_X_Position is
+    --    Float range 0.0 .. (Width_Float - Platform_Width);
+    Platform_X     : Float   := 0.0;
+    Platform_Y     : Float   := Height_Float - Platform_Height;
+    Platform_Speed : Float   := 8.0;
+    Ball_X         : Float   := Width_Float / 2.0;
+    Ball_Y         : Float   := Height_Float / 2.0;
+    Ball_Direction : Vector2 := (1.0, -1.0);
+    Ball_Speed     : Float   := 5.0;
+
+begin
+    RenderWindow.setFramerateLimit (Main_Window, 30);
+
+    -- Background initialization
+    Sprite.setTexture (Background, Background_Texture);
+    Sprite.setPosition (Background, (Float (0), Float (0)));
+
+    -- Platform and Ball texture binding
+    Sprite.setTexture (Platform, Platform_Texture);
+    Sprite.setTexture (Ball, Ball_Texture);
+
+    while RenderWindow.isOpen (Main_Window) = sfTrue loop
+        while RenderWindow.PollEvent (Main_Window, event => Event_Hook) =
+           sfTrue
+        loop
+            case Event_Hook.eventType is
+                when Event.sfEvtClosed =>
+                    RenderWindow.Close (Main_Window);
+                when Event.sfEvtKeyPressed =>
+                    case Event_Hook.key.code is
+                        when Keyboard.sfKeyEscape =>
+                            RenderWindow.Close (Main_Window);
+                        when Keyboard.sfKeyA =>
+                            if Platform_X >= 0.0 then
+                                Platform_X := Platform_X - Platform_Speed;
+                            end if;
+                        when Keyboard.sfKeyD =>
+                            if Platform_X <= (Width_Float - Platform_Width)
+                            then
+                                Platform_X := Platform_X + Platform_Speed;
+                            end if;
+                        when others =>
+                            null;
+                    end case;
+                when others =>
+                    null;
+            end case;
+        end loop;
+
+        -- BEGIN: Computing area
+        Ball_X := Ball_X + (Ball_Direction.X * Ball_Speed);
+        Ball_Y := Ball_Y + (Ball_Direction.Y * Ball_Speed);
+
+        if (Ball_X <= 0.0) or ((Ball_X + Ball_Size) >= Width_Float) then
+            Ball_Direction.X := Ball_Direction.X * (-1.0);
+        end if;
+
+        if (Ball_Y <= 0.0) or ((Ball_Y + Ball_Size) >= Height_Float) then
+            Ball_Direction.Y := Ball_Direction.Y * (-1.0);
+        end if;
+
+        -- END:   Computing area
+
+        -- BEGIN: Update states
+        Sprite.setPosition (Platform, (Platform_X, Platform_Y));
+        Sprite.setPosition (Ball, (Ball_X, Ball_y));
+
+        -- END:   Update states
+
+        RenderWindow.clear (Main_Window, Color.sfWhite);
+
+        -- BEGIN: Draw area
+        RenderWindow.drawSprite (Main_Window, Background);
+        RenderWindow.drawSprite (Main_Window, Platform);
+        RenderWindow.drawSprite (Main_Window, Ball);
+
+        -- END:   Draw area
+
+        RenderWindow.display (Main_Window);
+
+    end loop;
+
+end Ballon_Bounce;