36 lines
2.6 KiB
Ada
36 lines
2.6 KiB
Ada
-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
|
|
--
|
|
-- GNU General Public Licence (version 3 or later)
|
|
|
|
with core, ui;
|
|
|
|
package body ai is
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
function actor_is_envious return boolean is begin return (actor (active).soul and envy) = envy; end actor_is_envious;
|
|
function actor_is_glutton return boolean is begin return (actor (active).soul and gluttony) = gluttony; end actor_is_glutton;
|
|
function actor_is_greedy return boolean is begin return (actor (active).soul and greed) = greed; end actor_is_greedy;
|
|
function actor_is_slutty return boolean is begin return (actor (active).soul and lust) = lust; end actor_is_slutty;
|
|
function actor_is_proud return boolean is begin return (actor (active).soul and pride) = pride; end actor_is_proud;
|
|
function actor_is_lazy return boolean is begin return (actor (active).soul and sloth) = sloth; end actor_is_lazy;
|
|
function actor_is_angry return boolean is begin return (actor (active).soul and wrath) = wrath; end actor_is_angry;
|
|
function actor_is_thirsty return boolean is begin return (actor (active).mind and thirst) = thirst; end actor_is_thirsty;
|
|
function actor_is_hungry return boolean is begin return (actor (active).mind and hunger) = hunger; end actor_is_hungry;
|
|
function actor_is_tired return boolean is begin return (actor (active).mind and fatigue) = fatigue; end actor_is_tired;
|
|
function actor_is_lonely return boolean is begin return (actor (active).mind and solitude) = solitude; end actor_is_lonely;
|
|
function actor_is_healthy return boolean is begin return (actor (active).mind and health) = health; end actor_is_healthy;
|
|
function actor_is_happy return boolean is begin return (actor (active).mind and joy) = joy; end actor_is_happy;
|
|
function actor_is_bored return boolean is begin return (actor (active).mind and boredom) = boredom; end actor_is_bored;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
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;
|