41 lines
1.4 KiB
Ada
41 lines
1.4 KiB
Ada
with core;
|
|
|
|
package ai is
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
type action is (
|
|
none, walk, talk, find,
|
|
);
|
|
|
|
type action_data is
|
|
record
|
|
base : natural;
|
|
data : core.procedure_pointer;
|
|
name : core.short_string;
|
|
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 ")
|
|
);
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
procedure configure;
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
end ai;
|