Few comments for tomorrow...

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!");

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