World tile details, generation fix, minor bug fixes...

source/core.adb

@@ -57,11 +57,11 @@ package body core is
 			when warning => terminal (yellow, bold); put ("Warning");
 			when success => terminal (green,  bold); put ("Success");
 			when comment => terminal (grey,   bold); put ("Comment");
-			when import  => terminal (cyan,   bold); put ("   +   ");
-			when export  => terminal (pink,   bold); put ("   -   ");
-		end case;
-		terminal;
-		put ("]");
+			when import  => terminal (cyan,   bold); put ("  <--  ");
+			when export  => terminal (blue,   bold); put ("  -->  ");
+		end case; terminal;
+		put ("] ");
+		--
 		put_line (text);
 	end echo;
 

source/main.adb

@@ -127,7 +127,7 @@ begin
 	world.configure;
 	ai.configure;
 
-	world.make (world.ash, 120, 100);
+	world.make (world.swamp, 120, 100);
 
 	preview_width  := core.window_width  - side_panel;
 	preview_height := core.window_height - text_box_height;

source/world.adb

@@ -46,10 +46,10 @@ package body world is
 	trait : constant array (landmark_index) of landmark_trait := (
 		dead_tree        => (ash,   true,  1),
 		mossy_rock       => (swamp, true,  1),
-		palm_tree        => (cave,  true,  4),
+		palm_tree        => (sand,  true,  4),
 		pine_tree        => (grass, true,  4),
 		reeds            => (swamp, false, 4),
-		rock             => (cave,  true,  1),
+		rock             => (sand,  true,  1),
 		snowed_pine_tree => (snow,  true,  4),
 		snowed_rock      => (snow,  true,  1),
 		spiky_rock       => (ash,   true,  1)
@@ -90,7 +90,7 @@ package body world is
 		--
 		for x in 0 .. width - 1 loop
 			for y in 0 .. height - 1 loop
-				map.tiles (x, y) := core.random (0, 23);
+				map.tiles (x, y) := (core.random (0, 23) * core.random (0, 23)) mod 24;
 			end loop;
 		end loop;
 		--

source/world.ads

@@ -9,7 +9,7 @@ package world is
 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
 	type biome is (
-		ash,                    cave,                   grass,                  rough,                  snow,                   swamp
+		ash,                    sand,                   grass,                  rough,                  snow,                   swamp
 	);
 
                                              ------------------------------------------------------------------------------------------