From 76f09c0936e70eb5165c4b9fa42328d85f5c891a Mon Sep 17 00:00:00 2001 From: xolatile Date: Fri, 22 Mar 2024 00:37:54 -0400 Subject: [PATCH] I do not even know... --- source/ai.adb | 18 ++++++++++++++++++ source/ai.ads | 29 +++++++++++++++++++++++++++++ source/core.adb | 2 +- source/main.adb | 3 +-- 4 files changed, 49 insertions(+), 3 deletions(-) create mode 100644 source/ai.adb create mode 100644 source/ai.ads 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;