xolatile/xhads
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Readded player inventory...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-06-06 11:00:34 -04:00
parent 8071b8fb81
commit 551608e391
2 changed files with 24 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
source/main.adb
View File

@ -147,13 +147,15 @@ procedure main is
width : constant integer := side_panel - 2 * core.icon;
height : constant integer := 480;
offset : constant integer := 8;
more : constant natural := 10;
less : constant natural := 5;
at_x : integer := 0;
at_y : integer := 0;
begin
ui.draw_frame ("--", x, y, width, height);
ui.draw_sprite (chad.view (player_1.index), chad.description (player_1.index).name.all, x + offset, y + offset, 0);
ui.draw_text_box (x + chad.view_width + offset, y + offset, width - chad.view_width - 2 * offset, core.icon);
ui.write (chad.description (player_1.index).name.all, x + chad.view_width + offset + 5, y + offset + 5);
ui.write (chad.description (player_1.index).name.all, x + chad.view_width + offset + less, y + offset + less);
--
ui.draw_text_box (x => x + chad.view_width + attribute.count * core.icon + offset,
y => y + core.icon + offset,
@ -161,8 +163,8 @@ procedure main is
height => core.icon);
--
ui.write (text => chad.description (player_1.index).title.all,
x => x + chad.view_width + attribute.count * core.icon + offset + 10,
y => y + core.icon + offset + 10,
x => x + chad.view_width + attribute.count * core.icon + offset + more,
y => y + core.icon + offset + more,
code => true);
--
ui.draw_text_box (x => x + chad.view_width + attribute.count * core.icon + offset,
@ -171,8 +173,8 @@ procedure main is
height => core.icon);
--
ui.write (text => "Level" & player_1.level'image,
x => x + chad.view_width + attribute.count * core.icon + offset + 10,
y => y + 2 * core.icon + offset + 10,
x => x + chad.view_width + attribute.count * core.icon + offset + more,
y => y + 2 * core.icon + offset + more,
code => true);
--
declare move_x : integer := x + chad.view_width + offset;
@ -180,7 +182,7 @@ procedure main is
for index in attribute.enumeration loop
ui.draw_icon (attribute.icon (index), attribute.description (index).text.all, move_x, y + core.icon + offset);
ui.draw_text_box (move_x, y + 2 * core.icon + offset, core.icon, core.icon);
ui.write (player_1.attributes (index).value'image, move_x + 5, y + 2 * core.icon + offset + 10, code => true);
ui.write (player_1.attributes (index).value'image, move_x + less, y + 2 * core.icon + offset + more, code => true);
--
move_x := move_x + core.icon;
end loop;
@ -193,9 +195,9 @@ procedure main is
ui.draw_tiny_fill_bar (at_x, at_y + 1 * core.icon, width - 2 * offset, float (player_1.mana.value) / float (player_1.mana.limit), (0, 0, 127, 255));
ui.draw_tiny_fill_bar (at_x, at_y + 2 * core.icon, width - 2 * offset, float (player_1.movement.value) / float (player_1.movement.limit), (0, 127, 0, 255));
--
ui.write ("Health " & player_1.health.value'image & " /" & player_1.health.limit'image, at_x + core.icon, at_y - core.icon + 10, code => true);
ui.write ("Mana " & player_1.mana.value'image & " /" & player_1.mana.limit'image, at_x + core.icon, at_y + 10, code => true);
ui.write ("Movement" & player_1.movement.value'image & " /" & player_1.movement.limit'image, at_x + core.icon, at_y + core.icon + 10, code => true);
ui.write ("Health " & player_1.health.value'image & " /" & player_1.health.limit'image, at_x + core.icon, at_y - core.icon + more, code => true);
ui.write ("Mana " & player_1.mana.value'image & " /" & player_1.mana.limit'image, at_x + core.icon, at_y + more, code => true);
ui.write ("Movement" & player_1.movement.value'image & " /" & player_1.movement.limit'image, at_x + core.icon, at_y + core.icon + more, code => true);
--
at_x := x + offset;
at_y := y + offset + chad.view_height + 3 * core.icon;
@ -220,18 +222,20 @@ procedure main is
height => core.icon);
--
ui.write (text => "Equipment",
x => at_x + (equipment.kind'pos (equipment.kind'last) + 1) * core.icon + 10,
y => at_y + 10,
x => at_x + (equipment.kind'pos (equipment.kind'last) + 1) * core.icon + more,
y => at_y + more,
code => true);
--
--~for index_y in 0 .. 3 loop
--~for index_x in 0 .. 5 loop
--~ui.draw_icon (data => equipment.icon (player_1.items (6 * index_y + index_x)),
--~text => equipment.description (player_1.items (6 * index_y + index_x)).name.all,
--~x => x + index_x * core.icon,
--~y => y + 96 + 4 * 8 + 2 * core.icon + index_y * core.icon);
--~end loop;
--~end loop;
at_y := at_y + core.icon;
--
for index_y in 0 .. 2 loop
for index_x in 0 .. 7 loop
ui.draw_icon (data => equipment.icon (player_1.items (8 * index_y + index_x)),
text => equipment.description (player_1.items (8 * index_y + index_x)).name.all,
x => at_x + index_x * core.icon,
y => at_y + index_y * core.icon);
end loop;
end loop;
--
--~declare move_x : integer := x;
--~move_y : integer := y + 96 + 5 * 8 + 6 * core.icon;

2
source/material.ads
View File

@ -29,7 +29,7 @@ package material is
count : constant natural := enumeration'pos (enumeration'last) + 1;
default : constant points := (others => (0, 12));
default : constant points := (others => (1, 12));
description : constant array (enumeration) of definition := (
sulphur => (new string'("Sulphur"), 11),