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

Happy with lake generation...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-05-25 13:10:34 -04:00
parent 96a6b073c5
commit 2436aebe22
1 changed files with 9 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
source/world.adb
View File

@ -112,47 +112,19 @@ package body world is
for this in 1 .. lake_count loop for this in 1 .. lake_count loop
declare lake_x : integer := 0; declare lake_x : integer := 0;
lake_y : integer := 0; lake_y : integer := 0;
factor : boolean := false; starts : integer := 0;
length : integer := 0;
begin begin
lake_x := core.random (2 * lake_reach, map.width - 2 * lake_reach - 1); lake_x := core.random (2 * lake_reach, map.width - 2 * lake_reach - 1);
lake_y := core.random (2 * lake_reach, map.height - 2 * lake_reach - 1); lake_y := core.random (2 * lake_reach, map.height - 2 * lake_reach - 1);
-- --
for x in -lake_reach .. lake_reach loop for x in -lake_reach / 2 .. lake_reach / 2 loop
for y in -lake_reach .. lake_reach loop starts := core.random (0, abs x);
factor := core.random (0, abs (x * y)) > abs (x * y) / 6; length := core.random (lake_reach / 2, lake_reach - starts);
-- --
map.tiles (lake_x + x, lake_y + y) := (if factor then core.random (0, 17) else core.random (18, 23)); for repeat in 0 .. 1 loop
end loop; for y in starts .. starts + length loop
end loop; map.tiles (lake_x + 2 * x + repeat, lake_y + y) := core.random (18, 23);
--
for x in -lake_reach .. lake_reach loop
for y in -lake_reach .. lake_reach loop
for again in 0 .. 3 loop
if map.tiles (lake_x + x, lake_y + y) < 18 then
if boolean'pos (map.tiles (lake_x + x - 1, lake_y + y - 1) > 17) +
boolean'pos (map.tiles (lake_x + x - 1, lake_y + y ) > 17) +
boolean'pos (map.tiles (lake_x + x - 1, lake_y + y + 1) > 17) +
boolean'pos (map.tiles (lake_x + x, lake_y + y - 1) > 17) +
boolean'pos (map.tiles (lake_x + x, lake_y + y ) > 17) +
boolean'pos (map.tiles (lake_x + x, lake_y + y + 1) > 17) +
boolean'pos (map.tiles (lake_x + x + 1, lake_y + y - 1) > 17) +
boolean'pos (map.tiles (lake_x + x + 1, lake_y + y ) > 17) +
boolean'pos (map.tiles (lake_x + x + 1, lake_y + y + 1) > 17) > 3 then
map.tiles (lake_x + x, lake_y + y) := core.random (18, 23);
end if;
--~else
--~if boolean'pos (map.tiles (lake_x + x - 1, lake_y + y - 1) < 18) +
--~boolean'pos (map.tiles (lake_x + x - 1, lake_y + y ) < 18) +
--~boolean'pos (map.tiles (lake_x + x - 1, lake_y + y + 1) < 18) +
--~boolean'pos (map.tiles (lake_x + x, lake_y + y - 1) < 18) +
--~boolean'pos (map.tiles (lake_x + x, lake_y + y ) < 18) +
--~boolean'pos (map.tiles (lake_x + x, lake_y + y + 1) < 18) +
--~boolean'pos (map.tiles (lake_x + x + 1, lake_y + y - 1) < 18) +
--~boolean'pos (map.tiles (lake_x + x + 1, lake_y + y ) < 18) +
--~boolean'pos (map.tiles (lake_x + x + 1, lake_y + y + 1) < 18) > 3 then
--~map.tiles (lake_x + x, lake_y + y) := core.random (0, 17);
--~end if;
end if;
end loop; end loop;
end loop; end loop;
end loop; end loop;