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

Finishing soon, small update...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-06-09 14:55:53 -04:00
parent 935bd03170
commit 349e9d2589
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
source/world.adb
View File

@ -1048,6 +1048,8 @@ package body world is
offset : constant integer := 8;
width : constant integer := 640;
height : constant integer := 600;
more : constant natural := 10;
less : constant natural := 5;
at_x : integer := core.center_x (width) + offset;
at_y : integer := core.center_y (height) + offset;
begin
@ -1055,7 +1057,23 @@ package body world is
--
ui.draw_sprite (unit.view (show_unit_data), data.name.all, at_x, at_y, 0);
--
at_y := at_y + unit.view_height;
at_x := at_x + unit.view_width;
--
ui.draw_text_box (at_x, at_y, width - unit.view_width - 2 * offset, core.icon);
ui.write (data.name.all, at_x + less, at_y + less);
--
at_y := at_y + core.icon;
--
for index in attribute.enumeration loop
ui.draw_icon_menu (at_x, at_y, core.icon * 2, core.icon, attribute.description (index).text.all);
core.draw (attribute.icon (index), at_x, at_y, factor => 1);
ui.write (data.attributes (index)'image, at_x + core.icon + more, at_y + more, code => true);
--
at_x := at_x + 2 * core.icon;
end loop;
--
at_x := core.center_x (width) + offset;
at_y := core.center_y (height) + offset + unit.view_height;
--
ui.draw_separator (at_x, at_y, width - 2 * offset);
--
@ -1064,11 +1082,11 @@ package body world is
ui.draw_text ("Hiring fee:" & data.hiring_fee'image & character'val (10) &
"Weekly fee:" & data.weekly_fee'image & character'val (10) &
"Battle fee:" & data.battle_fee'image,
at_x, at_y, (width - 3 * offset) / 2 - 20, 0, 0, 10);
at_x, at_y, (width - 3 * offset) / 2 - 2 * more, 0, 0, more);
ui.draw_text ("Faction: " & faction.description (data.kind).name.all & character'val (10) &
"Stack:" & data.limit'image & character'val (10) &
"Bonus: " & attribute.description (faction.description (data.kind).bonus_attribute).name.all,
at_x + (width - offset) / 2, at_y, (width - 3 * offset) / 2 - 20, 0, 0, 10);
at_x + (width - offset) / 2, at_y, (width - 3 * offset) / 2 - 2 * more, 0, 0, more);
end show_unit;
------------------------------------------------------------------------------------------