From ce6c3bf08a4c9d5eb5e64808943412c69f85f349 Mon Sep 17 00:00:00 2001
From: rexim <reximkut@gmail.com>
Date: Mon, 11 Mar 2024 00:02:15 +0700
Subject: Implement bomb regeneration

---
 test.adb | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'test.adb')

diff --git a/test.adb b/test.adb
index f757eb4..3501009 100644
--- a/test.adb
+++ b/test.adb
@@ -3,13 +3,15 @@ with Ada.Strings.Fixed; use Ada.Strings.Fixed;
 with Ada.Strings; use Ada.Strings;
 
 procedure Test is
-    type IVector2 is record
-        X, Y: Integer;
-    end record;
-    type Ten_Numbers is array(IVector2) of Integer;
+    type Item_Kind is (Key, Bomb);
 
-    Position: IVector2;
-    Xs: Ten_Numbers;
+    type Item(Kind: Item_Kind) is record
+        case Kind is
+           when Key => null;
+           when Bomb =>
+               Cooldown: Integer;
+        end case;
+    end record;
 begin
     null;
 end;
-- 
cgit v1.2.3