Added 6 faction-based home constructions and their data...

source/construction.adb

@@ -29,7 +29,7 @@ package body construction is
 
 	procedure draw (index : in enumeration; x, y : in integer) is
 	begin
-		core.draw (sprite (index), x, y, trait (index).frames, 1);
+		core.draw (sprite (index), x, y);
 	end draw;
 
 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

source/construction.ads

@@ -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)
 	);
 
                                              ------------------------------------------------------------------------------------------