Added 10 world landmarks...

source/world.adb

@@ -81,7 +81,7 @@ package body world is
 		end loop;
 		--
 		for index in 1 .. landmark_limit loop
-			map.landmarks (index).index := core.random (0, 9);
+			map.landmarks (index).index := core.random (0, landmark_count - 1);
 			map.landmarks (index).x     := core.random (6, map.width  - 6);
 			map.landmarks (index).y     := core.random (6, map.height - 6);
 			--

source/world.ads

@@ -16,7 +16,9 @@ package world is
 
 	type landmark_index is (
 		dead_tree,              mossy_rock,             palm_tree,              pine_tree,              pine_forest,            reeds,
-		rock,                   snowed_pine_tree,       snowed_rock,            spiky_rock
+		rock,                   snowed_pine_tree,       snowed_rock,            spiky_rock,             wooden_sign,            wooden_arrow_sign,
+		rune_stone,             snowed_rune_stone,      mossy_rune_stone,       snowed_pine_forest,     hyacinths,              orchids,
+		asters,                 daffodils
 	);
 
 	type landmark_trait is record
@@ -56,18 +58,29 @@ package world is
 	landmarks : array (landmark_index) of core.sprite;
 
 	landmark_limit : constant integer := 120;
+	landmark_count : constant natural := landmark_index'pos (landmark_index'last) + 1;
 
 	trait : constant array (landmark_index) of landmark_trait := (
-		dead_tree        => (ash,   true,  1),
+		dead_tree          => (ash,   true,  1),
-		mossy_rock       => (swamp, true,  1),
+		mossy_rock         => (swamp, true,  1),
-		palm_tree        => (sand,  true,  4),
+		palm_tree          => (sand,  true,  4),
-		pine_tree        => (grass, true,  4),
+		pine_tree          => (grass, true,  4),
-		pine_forest      => (grass, true,  4),
+		pine_forest        => (grass, true,  4),
-		reeds            => (swamp, false, 4),
+		reeds              => (swamp, false, 4),
-		rock             => (sand,  true,  1),
+		rock               => (sand,  true,  1),
-		snowed_pine_tree => (snow,  true,  4),
+		snowed_pine_tree   => (snow,  true,  4),
-		snowed_rock      => (snow,  true,  1),
+		snowed_rock        => (snow,  true,  1),
-		spiky_rock       => (ash,   true,  1)
+		spiky_rock         => (ash,   true,  1),
+		wooden_sign        => (grass, false, 1),
+		wooden_arrow_sign  => (grass, false, 1),
+		rune_stone         => (grass, true,  4),
+		snowed_rune_stone  => (snow,  true,  1),
+		mossy_rune_stone   => (swamp, true,  4),
+		snowed_pine_forest => (snow,  true,  4),
+		hyacinths          => (grass, false, 1),
+		orchids            => (grass, false, 1),
+		asters             => (grass, false, 1),
+		daffodils          => (grass, false, 1)
 	);
 
 	map : information;