30 lines
998 B
Ada
30 lines
998 B
Ada
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;
|