I do not even know...

source/ai.adb

@@ -0,0 +1,18 @@
+with core, ui, ai;
+
+use ai;
+
+package body ai is
+
+------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+
+	procedure configure is
+	begin
+		null;
+	end configure;
+
+                                             ------------------------------------------------------------------------------------------
+
+------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+
+end ai;

source/ai.ads

@@ -0,0 +1,29 @@
+with core;
+
+package ai is
+
+------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+
+	type action is (
+		none, walk, talk, find,
+	);
+
+	type codex is natural range 0 .. 10_000_000;
+
+	type state is
+	record
+		soul : codex;
+		body : codex;
+	end record;
+
+                                             ------------------------------------------------------------------------------------------
+
+                                             ------------------------------------------------------------------------------------------
+
+                                             ------------------------------------------------------------------------------------------
+
+	procedure configure;
+
+------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+
+end ai;

source/core.adb

@@ -499,7 +499,7 @@ package body core is
 	function window_height return integer is begin return get_screen_height; end window_height;
 
                                              ------------------------------------------------------------------------------------------
-
+--~base ::= A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z;
 	procedure initialize is
 	begin
 		core.echo (core.comment, "Initializing core components...");

source/main.adb

@@ -1,5 +1,4 @@
-with ada.text_io;
-use  ada.text_io;
+pragma ada_2012;
 
 with core, ui, effect, attribute, skill, resource, faction, might, magic, item, unit, construction, chad, world;