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;