|
|
@@ -9,7 +9,7 @@ package resource is |
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ |
|
|
|
|
|
|
|
type enumeration is ( |
|
|
|
gold, wood, stone, steel, leather, crystal |
|
|
|
gold, wood, stone, metal, leather, crystal |
|
|
|
); |
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------ |
|
|
@@ -27,12 +27,12 @@ package resource is |
|
|
|
count : constant natural := enumeration'pos (enumeration'last) + 1; |
|
|
|
|
|
|
|
trait : constant array (enumeration) of information := ( |
|
|
|
("Gold ", 0, "Precious shiny metal, valued since ancient times by Them, nosy ones. "), |
|
|
|
("Wood ", 0, "- "), |
|
|
|
("Stone ", 0, "- "), |
|
|
|
("Steel ", 0, "- "), |
|
|
|
("Leather ", 0, "- "), |
|
|
|
("Crystal ", 0, "- ") |
|
|
|
("Gold ", 0, "Gold is precious yellowish shiny metal, valued since ancient times. "), |
|
|
|
("Wood ", 0, "Wood is just bundle of lignin and cellulose, nothing more. "), |
|
|
|
("Stone ", 0, "Stone is essential building block for most constructions in this world. "), |
|
|
|
("Metal ", 0, "Metal as a resource is mixture of commonly found metalic elements. "), |
|
|
|
("Leather ", 0, "Leather is general purpose resource, used for armours and decorations. "), |
|
|
|
("Crystal ", 0, "Crystal as a resource is same as metal, just mixture of various gems. ") |
|
|
|
); |
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------ |
|
|
|