|
|
@@ -9,7 +9,7 @@ package construction is |
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ |
|
|
|
|
|
|
|
type enumeration is ( |
|
|
|
a, b, c, d, e, f |
|
|
|
house, cottage, shack, homestead, hut, den |
|
|
|
); |
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------ |
|
|
@@ -27,12 +27,12 @@ package construction is |
|
|
|
count : constant natural := enumeration'pos (enumeration'last) + 1; |
|
|
|
|
|
|
|
trait : constant array (enumeration) of information := ( |
|
|
|
("A ", faction.dwarf, (others => 0), 1, effect.none), |
|
|
|
("B ", faction.fairy, (others => 0), 1, effect.none), |
|
|
|
("C ", faction.gnoll, (others => 0), 1, effect.none), |
|
|
|
("D ", faction.goblin, (others => 0), 1, effect.none), |
|
|
|
("E ", faction.imp, (others => 0), 1, effect.none), |
|
|
|
("F ", faction.kobold, (others => 0), 1, effect.none) |
|
|
|
("Dwarf House ", faction.dwarf, (others => 0), 1, effect.none), |
|
|
|
("Fairy Cottage ", faction.fairy, (others => 0), 1, effect.none), |
|
|
|
("Gnoll Shack ", faction.gnoll, (others => 0), 1, effect.none), |
|
|
|
("Kobold Homestead ", faction.kobold, (others => 0), 1, effect.none), |
|
|
|
("Goblin Hut ", faction.goblin, (others => 0), 1, effect.none), |
|
|
|
("Imp Den ", faction.imp, (others => 0), 1, effect.none) |
|
|
|
); |
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------ |
|
|
|