Moved some folders related to world data...

source/world.adb

@@ -72,7 +72,7 @@ package body world is
 		core.echo (core.comment, "Configuring world components...");
 		--
 		for index in biome.enumeration loop
-			biome.tiles (index) := core.import_sprite (core.folder & "/game/world/terrain/" & core.lowercase (index'image) & ".png", 4, 1);
+			biome.tiles (index) := core.import_sprite (core.folder & "/game/biome/" & core.lowercase (index'image) & ".png", 4, 1);
 		end loop;
 		--
 		dark               := core.import_sprite (core.folder & "/game/world/dark.png",                     1, 1);
@@ -95,13 +95,13 @@ package body world is
 		arrow_lower_right  := core.import_sprite (core.folder & "/game/world/arrow/lower_right.png",        1, 1);
 		--
 		for index in landmark.enumeration loop
-			landmark.game (index) := core.import_sprite (file_path => core.folder & "/game/world/landmark/" & core.lowercase (index'image) & ".png",
+			landmark.game (index) := core.import_sprite (file_path => core.folder & "/game/landmark/" & core.lowercase (index'image) & ".png",
 			                                             frames    => landmark.description (index).frames,
 			                                             states    => 1);
 		end loop;
 		--
 		for index in location.enumeration loop
-			location.game (index) := core.import_sprite (file_path => core.folder & "/game/world/location/" & core.lowercase (index'image) & ".png",
+			location.game (index) := core.import_sprite (file_path => core.folder & "/game/location/" & core.lowercase (index'image) & ".png",
 			                                             frames    => location.description (index).frames,
 			                                             states    => 2);
 		end loop;
@@ -213,15 +213,11 @@ package body world is
 		map.landmarks (this) := data;
 		--
 		if landmark.description (map.landmarks (this).index).clip then
-			declare reach_x : constant natural := landmark.game (map.landmarks (this).index).width  / core.base;
+			for x in 0 .. landmark.game (map.landmarks (this).index).width / core.base - 1 loop
-			        reach_y : constant natural := landmark.game (map.landmarks (this).index).height / core.base;
+				for y in 0 .. landmark.game (map.landmarks (this).index).height / core.base - 1 loop
-			begin
+					map.clips (map.landmarks (this).x + x, map.landmarks (this).y + y) := true;
-				for x in 0 .. reach_x - 1 loop
-					for y in 0 .. reach_y - 1 loop
-						map.clips (map.landmarks (this).x + x, map.landmarks (this).y + y) := true;
-					end loop;
 				end loop;
-			end;
+			end loop;
 		end if;
 	end insert_landmark;