24 lines
874 B
Ada
24 lines
874 B
Ada
with core, ui, ai;
|
|
|
|
use ai;
|
|
|
|
package body ai is
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
procedure configure is
|
|
begin
|
|
core.echo (core.failure, "No AI yet folk!");
|
|
end configure;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
procedure action_none is begin null; end action_none;
|
|
procedure action_walk is begin null; end action_walk;
|
|
procedure action_talk is begin null; end action_talk;
|
|
procedure action_find is begin null; end action_find;
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
end ai;
|