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

AI prototype...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-03-22 09:15:33 -04:00
parent 76f09c0936
commit fdf995a1d8
2 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
source/ai.ads
View File

@ -8,16 +8,27 @@ package ai is
none, walk, talk, find, none, walk, talk, find,
); );
type codex is natural range 0 .. 10_000_000; type action_data is
type state is
record record
soul : codex; base : natural;
body : codex; data : core.procedure_pointer;
name : core.short_string;
end record; end record;
------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------
procedure action_none is begin end action_none;
procedure action_walk is begin end action_walk;
procedure action_talk is begin end action_talk;
procedure action_find is begin end action_find;
action_list : constant array (action) of action_data := (
(000000, action_none, "idle "),
(000001, action_walk, "walking "),
(000300, action_talk, "talking "),
(050060, action_find, "finding ")
);
------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------

2
source/core.ads
View File

@ -36,7 +36,7 @@ package core is
subtype short_string is string (1 .. 24); subtype short_string is string (1 .. 24);
subtype long_string is string (1 .. 72); subtype long_string is string (1 .. 72);
type accessor is access procedure; type procedure_pointer is access procedure;
type colour_range is range 0 .. 2 ** 32 - 1; type colour_range is range 0 .. 2 ** 32 - 1;