Resized tiny fill bars (right) and added HP, MP and SP...

source/main.adb

@@ -143,8 +143,10 @@ procedure main is
 		x      : constant integer := preview_width + core.icon;
 		y      : constant integer := core.icon;
 		width  : constant integer := side_panel - 2 * core.icon;
-		height : constant integer := 640;
+		height : constant integer := 480;
 		offset : constant integer := 8;
+		at_x   :          integer := 0;
+		at_y   :          integer := 0;
 	begin
 		ui.draw_frame    ("--", x, y, width, height);
 		ui.draw_sprite   (chad.view (player.index), chad.description (player.index).name.all, x + offset, y + offset, 0);
@@ -181,9 +183,13 @@ procedure main is
 				move_x := move_x + core.icon;
 			end loop;
 		end;
-		--~ui.draw_tiny_fill_bar (x + chad.view_width + 2 * 8, y + 1 * core.icon + 8, 360 - chad.view_width - 8, float (player.health.value)   / float (player.health.limit),   (127, 0, 0, 255));
+		--
-		--~ui.draw_tiny_fill_bar (x + chad.view_width + 2 * 8, y + 2 * core.icon + 8, 360 - chad.view_width - 8, float (player.mana.value)     / float (player.mana.limit),     (0, 0, 127, 255));
+		at_x := x + offset;
-		--~ui.draw_tiny_fill_bar (x + chad.view_width + 2 * 8, y + 3 * core.icon + 8, 360 - chad.view_width - 8, float (player.movement.value) / float (player.movement.limit), (0, 127, 0, 255));
+		at_y := y + offset + chad.view_height + core.icon;
+		--
+		ui.draw_tiny_fill_bar (at_x, at_y + 0 * core.icon, width - 2 * offset, float (player.health.value)   / float (player.health.limit),   (127, 0, 0, 255));
+		ui.draw_tiny_fill_bar (at_x, at_y + 1 * core.icon, width - 2 * offset, float (player.mana.value)     / float (player.mana.limit),     (0, 0, 127, 255));
+		ui.draw_tiny_fill_bar (at_x, at_y + 2 * core.icon, width - 2 * offset, float (player.movement.value) / float (player.movement.limit), (0, 127, 0, 255));
 		--
 		--~ui.write (text => "Health " & player.health.value'image & " /" & player.health.limit'image,
 		          --~x    => x + chad.view_width + core.icon + 3 * 8,