xhads/source/resource.ads

52 lines
2.2 KiB
Ada
Raw Normal View History

-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)
2024-02-15 21:03:09 -05:00
with core;
package resource is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type codex is (
gold, wood, stone, steel, leather, crystal
2024-02-15 21:03:09 -05:00
);
------------------------------------------------------------------------------------------
subtype base_limit is natural range 0 .. 144000;
2024-02-15 21:03:09 -05:00
type information is
record
name : core.short_string;
base : base_limit;
text : core.long_string;
2024-02-15 21:03:09 -05:00
end record;
2024-04-23 16:19:29 -04:00
type points is array (codex) of base_limit;
2024-02-16 09:59:19 -05:00
2024-02-15 21:03:09 -05:00
------------------------------------------------------------------------------------------
count : constant natural := codex'pos (codex'last) + 1;
2024-04-23 16:19:29 -04:00
trait : constant array (codex) of information := (
("Gold ", 0, "- "),
("Wood ", 0, "- "),
("Stone ", 0, "- "),
("Steel ", 0, "- "),
("Leather ", 0, "- "),
("Crystal ", 0, "- ")
2024-02-15 21:03:09 -05:00
);
------------------------------------------------------------------------------------------
procedure configure;
2024-02-15 21:03:09 -05:00
procedure draw (index : in codex; x, y : in integer);
2024-03-10 16:41:31 -04:00
procedure menu (x, y : in integer; center : in boolean);
2024-02-19 21:29:11 -05:00
2024-02-15 21:03:09 -05:00
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end resource;