2024-05-12 20:15:36 -04:00
|
|
|
-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
|
|
|
|
|
--
|
|
|
|
|
-- GNU General Public Licence (version 3 or later)
|
|
|
|
|
|
|
|
|
|
with core;
|
|
|
|
|
|
|
|
|
|
package material is
|
|
|
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
type enumeration is (
|
2024-05-28 04:25:34 -04:00
|
|
|
sulphur, mercury, mint, cinnamon, apple, peach,
|
|
|
|
|
pear, banana, orange, plum, cherry, lemon,
|
|
|
|
|
potato, wheat, carrot, cucumber, onion, garlic,
|
|
|
|
|
eggplant, tomato, meat, fish_meat, skull, animal_skull,
|
|
|
|
|
bone, rib_cage, animal_skin, animal_fur
|
2024-05-12 20:15:36 -04:00
|
|
|
);
|
|
|
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
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 := (
|
2024-05-28 04:25:34 -04:00
|
|
|
sulphur => ("Sulphur ", 7),
|
|
|
|
|
mercury => ("Mercury ", 13),
|
|
|
|
|
mint => ("Mint ", 3),
|
|
|
|
|
cinnamon => ("Cinnamon ", 5),
|
|
|
|
|
apple => ("Apple ", 2)
|
|
|
|
|
peach => ("Peach ", 2),
|
|
|
|
|
pear => ("Pear ", 2),
|
|
|
|
|
banana => ("Banana ", 3),
|
|
|
|
|
orange => ("Orange ", 3),
|
|
|
|
|
plum => ("Plum ", 3),
|
|
|
|
|
cherry => ("Cherry ", 3),
|
|
|
|
|
lemon => ("Lemon ", 2),
|
|
|
|
|
potato => ("Potato ", 1),
|
|
|
|
|
wheat => ("Wheat ", 1),
|
|
|
|
|
carrot => ("Carrot ", 2),
|
|
|
|
|
cucumber => ("Cucumber ", 3),
|
|
|
|
|
onion => ("Onion ", 2),
|
|
|
|
|
garlic => ("Garlic ", 2),
|
|
|
|
|
eggplant => ("Eggplant ", 3),
|
|
|
|
|
tomato => ("Tomato ", 2),
|
|
|
|
|
meat => ("Meat ", 3),
|
|
|
|
|
fish_meat => ("Fish Meat ", 2),
|
|
|
|
|
skull => ("Skull ", 1),
|
|
|
|
|
animal_skull => ("Animal Skull ", 1),
|
|
|
|
|
bone => ("Bone ", 1),
|
|
|
|
|
rib_cage => ("Rib Cage ", 1),
|
|
|
|
|
animal_skin => ("Animal Skin ", 5),
|
|
|
|
|
animal_fur => ("Animal Fur ", 7)
|
2024-05-12 20:15:36 -04:00
|
|
|
);
|
|
|
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
procedure configure;
|
|
|
|
|
|
|
|
|
|
procedure draw (index : in enumeration; x, y : in integer);
|
|
|
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
end material;
|
