43 lines
1.5 KiB
Ada
43 lines
1.5 KiB
Ada
|
-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
|
||
|
|
--
|
||
|
|
-- GNU General Public Licence (version 3 or later)
|
||
|
|
|
||
|
|
with core;
|
||
|
|
|
||
|
|
package material is
|
||
|
|
|
||
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
type enumeration is (
|
||
|
|
sulphur, mercury, mint, cinnamon
|
||
|
|
);
|
||
|
|
|
||
|
|
------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
type information is record
|
||
|
|
name : core.short_string;
|
||
|
|
cost : natural;
|
||
|
|
end record;
|
||
|
|
|
||
|
|
------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
||
|
|
|
||
|
|
trait : constant array (enumeration) of information := (
|
||
|
|
("-- ", 0),
|
||
|
|
("Sulphur ", 7),
|
||
|
|
("Mercury ", 13),
|
||
|
|
("Mint ", 3),
|
||
|
|
("Cinnamon ", 5)
|
||
|
|
);
|
||
|
|
|
||
|
|
------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
procedure configure;
|
||
|
|
|
||
|
|
procedure draw (index : in enumeration; x, y : in integer);
|
||
|
|
|
||
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
end material;
|