diff --git a/source/ai.adb b/source/ai.adb
new file mode 100644
index 0000000..591a71d
--- /dev/null
+++ b/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;
diff --git a/source/ai.ads b/source/ai.ads
new file mode 100644
index 0000000..b74bbf9
--- /dev/null
+++ b/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;
diff --git a/source/core.adb b/source/core.adb
index 16ca5a0..f75af33 100644
--- a/source/core.adb
+++ b/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...");
diff --git a/source/main.adb b/source/main.adb
index ad7d6cd..45bbf67 100644
--- a/source/main.adb
+++ b/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;