-- 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;