diff --git a/source/ai.adb b/source/ai.adb index bd87eb7..122cd40 100644 --- a/source/ai.adb +++ b/source/ai.adb @@ -30,6 +30,15 @@ package body ai is ------------------------------------------------------------------------------------------ + procedure serialize (i : in natural) is + begin + if agent_is_bored (index) and agent_is_healthy (i) and not agent_is_hungry (i) then + null; + end if; + end serialize; + + ------------------------------------------------------------------------------------------ + procedure configure is begin core.echo (core.failure, "No AI yet folk!"); diff --git a/source/ai.ads b/source/ai.ads index 71285db..19c9e12 100644 --- a/source/ai.ads +++ b/source/ai.ads @@ -34,6 +34,36 @@ package ai is joy : constant data_limit := 2#00100000#; boredom : constant data_limit := 2#01000000#; + -- CONCIOUSNESS + -- UNCONCIOUSNESS + -- COLLECTIVE UNCONCIOUSNESS + -- + -- somatic / psychic + -- + -- leave legacy + -- -- outlaw - liberation + -- -- magician - power + -- -- hero - mastery + -- pursue connection + -- -- lover - intimacy + -- -- jester - enjoyment + -- -- everyman - belonging + -- provide structure + -- -- caregiver - service + -- -- ruler - control + -- -- creator - innovation + -- explore spirituality + -- -- innocent - safety + -- -- sage - understanding + -- -- explorer - freedom + -- + -- I + -- Anima/Animus + -- Shadow + -- Persona + -- + -- Trickster ? + type byte is new natural range 0 .. 2 ** 8 - 1; type action_data is