-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)

with core, ui;

package body skill is

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

	procedure draw_points (data : in points  := (others => (0, 0));
	                       x    : in integer := 0;
	                       y    : in integer := 0) is
		move_x : integer := x;
		move_y : integer := y;
	begin
		for index in enumeration loop
			if (enumeration'pos (index) + 1) mod (count / 2 + 1) = 0 then
				move_x := x + 2 * core.icon + 120;
				move_y := y;
			end if;
			--
			ui.draw_icon     (icon (index), -(description (index).text), move_x, move_y);
			ui.draw_text_box (move_x + core.icon, move_y, core.icon, core.icon);
			ui.write         (data (index).value'image, move_x + core.icon, move_y + 8, (255, 255, 255, 255), 15, true);
			--
			ui.write (-(description (index).name), move_x + 2 * core.icon + 4, move_y + 8, (255, 255, 255, 255), 15, true);
			--
			move_y := move_y + core.icon;
		end loop;
	end draw_points;

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

end skill;