xolatile/xhads
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added lake borders, one last thing to fix...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-05-25 14:45:01 -04:00
parent 1d0e71f814
commit ca93e3ad8e
7 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
game/world/terrain/ash.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.7 KiB

After

Width:  |  Height:  |  Size: 2.6 KiB

BIN
game/world/terrain/grass.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.6 KiB

After

Width:  |  Height:  |  Size: 2.4 KiB

BIN
game/world/terrain/rough.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.7 KiB

After

Width:  |  Height:  |  Size: 3.4 KiB

BIN
game/world/terrain/sand.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.0 KiB

After

Width:  |  Height:  |  Size: 2.9 KiB

BIN
game/world/terrain/snow.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.0 KiB

After

Width:  |  Height:  |  Size: 2.8 KiB

BIN
game/world/terrain/swamp.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 4.3 KiB

After

Width:  |  Height:  |  Size: 4.2 KiB

13
source/world.adb
View File

@ -147,7 +147,18 @@ package body world is
map.tiles (lake_x + x - 1, lake_y + y) := 33; map.tiles (lake_x + x - 1, lake_y + y) := 33;
elsif matrix = ((1, 0), (0, 0)) then elsif matrix = ((1, 0), (0, 0)) then
map.tiles (lake_x + x - 1, lake_y + y - 1) := 35; 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 if;
end; end;
end loop; end loop;