From 03719ab744f80818489c6ef510d5b4bd4ee5b088 Mon Sep 17 00:00:00 2001 From: xolatile Date: Sat, 25 May 2024 08:56:49 -0400 Subject: [PATCH] Testing lake procedural generation... --- source/world.adb | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/source/world.adb b/source/world.adb index b183d6e..abab68f 100644 --- a/source/world.adb +++ b/source/world.adb @@ -13,6 +13,9 @@ package body world is view_reach : constant integer := 96; + lake_count : constant natural := 3; + lake_reach : constant natural := 3; + landmark_limit : constant integer := 90; location_limit : constant integer := 30; construction_limit : constant natural := 60; @@ -33,6 +36,13 @@ package body world is ------------------------------------------------------------------------------------------ + procedure earth_to_water_transition is + begin + null; + end earth_to_water_transition; + + ------------------------------------------------------------------------------------------ + procedure configure is begin core.echo (core.comment, "Configuring world components..."); @@ -100,6 +110,20 @@ package body world is end loop; -- -- WATER TESTING + for this in 1 .. lake_count loop + declare lake_x : integer := 0; + lake_y : integer := 0; + begin + 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); + -- + for x in -lake_reach .. lake_reach loop + for y in -lake_reach .. lake_reach loop + map.tiles (lake_x + x, lake_y + y) := core.random (18, 23); + end loop; + end loop; + end; + end loop; map.tiles (10, 10) := 28; map.tiles (11, 10) := 24; map.tiles (12, 10) := 29;