diff --git a/game/world/terrain/ash.png b/game/world/terrain/ash.png index b0fb9c9..7b6bfea 100644 Binary files a/game/world/terrain/ash.png and b/game/world/terrain/ash.png differ diff --git a/game/world/terrain/grass.png b/game/world/terrain/grass.png index 5ccd952..da33486 100644 Binary files a/game/world/terrain/grass.png and b/game/world/terrain/grass.png differ diff --git a/game/world/terrain/rough.png b/game/world/terrain/rough.png index df9d2b2..cc3bce7 100644 Binary files a/game/world/terrain/rough.png and b/game/world/terrain/rough.png differ diff --git a/game/world/terrain/sand.png b/game/world/terrain/sand.png index 20985a7..0925f8d 100644 Binary files a/game/world/terrain/sand.png and b/game/world/terrain/sand.png differ diff --git a/game/world/terrain/snow.png b/game/world/terrain/snow.png index 3263f36..9682af7 100644 Binary files a/game/world/terrain/snow.png and b/game/world/terrain/snow.png differ diff --git a/game/world/terrain/swamp.png b/game/world/terrain/swamp.png index 0550e0d..bf2540f 100644 Binary files a/game/world/terrain/swamp.png and b/game/world/terrain/swamp.png differ diff --git a/source/world.adb b/source/world.adb index 8bb450a..8ee9795 100644 --- a/source/world.adb +++ b/source/world.adb @@ -147,7 +147,18 @@ package body world is map.tiles (lake_x + x - 1, lake_y + y) := 33; elsif matrix = ((1, 0), (0, 0)) then map.tiles (lake_x + x - 1, lake_y + y - 1) := 35; - --~elsif matrix = ((1, 1), (1, 0)) then + elsif map.tiles (lake_x + x, lake_y + y) not in 18 .. 23 + and map.tiles (lake_x + x, lake_y + y + 1) in 18 .. 23 then + map.tiles (lake_x + x, lake_y + y) := 24; + elsif map.tiles (lake_x + x, lake_y + y) in 18 .. 23 + and map.tiles (lake_x + x, lake_y + y + 1) not in 18 .. 23 then + map.tiles (lake_x + x, lake_y + y + 1) := 25; + elsif map.tiles (lake_x + x, lake_y + y) not in 18 .. 23 + and map.tiles (lake_x + x + 1, lake_y + y) in 18 .. 23 then + map.tiles (lake_x + x, lake_y + y) := 26; + elsif map.tiles (lake_x + x, lake_y + y) in 18 .. 23 + and map.tiles (lake_x + x + 1, lake_y + y) not in 18 .. 23 then + map.tiles (lake_x + x + 1, lake_y + y) := 27; end if; end; end loop;