xolatile/xhads
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Changing core AI structure and adding AI agent data...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-03-22 13:57:31 -04:00
parent ed027eaccb
commit 9960dca477
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
source/ai.ads
View File

@ -8,6 +8,11 @@ package ai is
none, walk, talk, find none, walk, talk, find
); );
subtype string_16 is string (1 .. 16);
type name_limit is mod 400;
type clan_limit is mod 120;
type action_data is type action_data is
record record
base : natural; base : natural;
@ -15,6 +20,12 @@ package ai is
name : core.short_string; name : core.short_string;
end record; end record;
type agent_data is
record
name : name_limit;
clan : clan_limit;
end record;
------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------
procedure action_none; procedure action_none;
@ -22,14 +33,14 @@ package ai is
procedure action_talk; procedure action_talk;
procedure action_find; procedure action_find;
action_list : constant array (action) of action_data := ( action_array : constant array (action) of action_data := (
(000000, action_none'access, "idle "), (000000, action_none'access, "idle "),
(000001, action_walk'access, "walking "), (000001, action_walk'access, "walking "),
(000300, action_talk'access, "talking "), (000300, action_talk'access, "talking "),
(050060, action_find'access, "finding ") (050060, action_find'access, "finding ")
); );
global_male_name_list : constant array (1 .. 400) of string (1 .. 16) := ( male_name_array : constant array (name_limit) of string_16 := (
"Unumis ", "Aardappel ", "Aaron ", "Abel ", "Abgar ", "Abiathar ", "Abijah ", "Abraham ", "Unumis ", "Aardappel ", "Aaron ", "Abel ", "Abgar ", "Abiathar ", "Abijah ", "Abraham ",
"Abram ", "Absolom ", "Adam ", "Adonijah ", "Ael ", "Aghasi ", "Aidan ", "Ajnak ", "Abram ", "Absolom ", "Adam ", "Adonijah ", "Ael ", "Aghasi ", "Aidan ", "Ajnak ",
"Aknunbi ", "Alexan ", "Alishan ", "Alvedos ", "Aman ", "Amaras ", "Amariah ", "Amoz ", "Aknunbi ", "Alexan ", "Alishan ", "Alvedos ", "Aman ", "Amaras ", "Amariah ", "Amoz ",
@ -82,7 +93,7 @@ package ai is
"Zachariah ", "Zahn ", "Zareh ", "Zarmayr ", "Zaven ", "Zebadiah ", "Zedekiah ", "Zinthel " "Zachariah ", "Zahn ", "Zareh ", "Zarmayr ", "Zaven ", "Zebadiah ", "Zedekiah ", "Zinthel "
); );
global_female_name_list : constant array (1 .. 400) of string (1 .. 16) := ( female_name_array : constant array (name_limit) of string_16 := (
"Haen ", "Abigail ", "Abishai ", "Adah ", "Adina ", "Adriel ", "Aednat ", "Aelena ", "Haen ", "Abigail ", "Abishai ", "Adah ", "Adina ", "Adriel ", "Aednat ", "Aelena ",
"Aghavni ", "Aghvor ", "Ai ", "Ailish ", "Alik ", "Alin ", "Amanor ", "Amanthia ", "Aghavni ", "Aghvor ", "Ai ", "Ailish ", "Alik ", "Alin ", "Amanor ", "Amanthia ",
"Amaroch ", "Amenora ", "Anahit ", "Anea ", "Anelia ", "Angela ", "Angine ", "Ani ", "Amaroch ", "Amenora ", "Anahit ", "Anea ", "Anelia ", "Angela ", "Angine ", "Ani ",
@ -135,7 +146,7 @@ package ai is
"Zepyur ", "Zilpah ", "Zina ", "Zipporah ", "Zod ", "Zophea ", "Zora ", "Zuanai " "Zepyur ", "Zilpah ", "Zina ", "Zipporah ", "Zod ", "Zophea ", "Zora ", "Zuanai "
); );
global_clan_name_list : constant array (1 .. 120) of string (1 .. 16) := ( clan_name_array : constant array (clan_limit) of string_16 := (
"Aldheln ", "Abedol ", "Adonis ", "Amelin ", "Ankonih ", "Aoshin ", "Ariel ", "Arma ", "Aldheln ", "Abedol ", "Adonis ", "Amelin ", "Ankonih ", "Aoshin ", "Ariel ", "Arma ",
"Arthel ", "Ashal ", "Astrid ", "Avdotiya ", "Barkur ", "Bavakiel ", "Bednudan ", "Calarian ", "Arthel ", "Ashal ", "Astrid ", "Avdotiya ", "Barkur ", "Bavakiel ", "Bednudan ", "Calarian ",
"Chleayan ", "Cinnkhan ", "Dairin ", "Daok ", "Daudroht ", "Deakan ", "Degerynn ", "Demenokt ", "Chleayan ", "Cinnkhan ", "Dairin ", "Daok ", "Daudroht ", "Deakan ", "Degerynn ", "Demenokt ",