with core;

package deity is

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

	type codex is (
		svarog,                 dabog,                  svetovid,               gozag,                  ru,                     xom,
		sheigarath,             ornhul,                 khuganagoth,            vel_sheina,             deigehen,               geazhul
	);

                                             ------------------------------------------------------------------------------------------

	subtype piety_limit is natural range -30 .. 30;

	type information is
	record
		name : core.short_string;
		base : piety_limit;
	end record;

	type trait_array is array (codex) of information;

                                             ------------------------------------------------------------------------------------------

	trait : constant trait_array := (
		("Svarog the Lawful       ",  3), -- Serbia
		("Dabog the Lonely        ", -3),
		("Svetovid the Awakened   ",  0),
		("Gozag the Impoverished  ",  0), -- DCSS
		("Ru the Forgotten        ", -3),
		("Xom the Chaotical       ",  3),
		("Sheigarath the Dark     ", -3), -- Gea
		("Ornhul the Frozen       ",  0),
		("Khuganagoth the Hungry  ", -3),
		("Vel-Sheina the Joyful   ",  3),
		("Deigehen the Chained    ",  0),
		("Geazhul the Awakened    ",  3)
	);

                                             ------------------------------------------------------------------------------------------

	procedure draw (value : in codex; x, y : in integer);

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

end deity;