diff --git a/source/world.adb b/source/world.adb index 6a6483d..ac0611d 100644 --- a/source/world.adb +++ b/source/world.adb @@ -33,11 +33,14 @@ package body world is core.echo (core.comment, "-- -- Map height :" & height'image); core.echo (core.comment, "-- -- Landmark count :" & landmark_limit'image); -- - map.kind := index; - map.width := width; - map.height := height; - map.tiles := new tile_array (0 .. map.width - 1, 0 .. map.height - 1); - map.landmarks := new entity_array (1 .. landmark_limit); + map.kind := index; + map.width := width; + map.height := height; + -- + map.tiles := new tile_array (0 .. map.width - 1, 0 .. map.height - 1); + map.landmarks := new entity_array (1 .. landmark_limit); + map.constructions := new entity_array (1 .. 30); + map.items := new entity_array (1 .. 60); -- for x in 0 .. width - 1 loop for y in 0 .. height - 1 loop @@ -51,6 +54,17 @@ package body world is map.landmarks (index).y := core.random (0, map.height - 1); end loop; -- + for index in 1 .. 30 loop + map.constructions (index).index := core.random (0, construction.count - 1); + map.constructions (index).x := core.random (0, map.width - 1); + map.constructions (index).y := core.random (0, map.height - 1); + end loop; + -- + for index in 1 .. 60 loop + map.items (index).index := core.random (0, item.count - 1); + map.items (index).x := core.random (0, map.width - 1); + map.items (index).y := core.random (0, map.height - 1); + end loop; -- core.echo (core.success, "Finished procedurally generating new map."); end make; @@ -58,11 +72,13 @@ package body world is ------------------------------------------------------------------------------------------ procedure draw is - u : integer := 0; - v : integer := 0; + u : integer := 0; + v : integer := 0; + -- offset : core.vector := ((core.window_width - core.base) / 2, (core.window_height - core.base) / 2); - render : core.vector := (map.width - 1, + -- + render : core.vector := (map.width - 1, map.height - 1); begin for vertical in 0 .. map.height - 1 loop @@ -99,6 +115,18 @@ package body world is x => offset.x + (map.landmarks (index).x - core.camera.x) * core.base * core.zoom, y => offset.y + (map.landmarks (index).y - core.camera.y) * core.base * core.zoom); end loop; + -- + for index in 1 .. 30 loop + construction.draw (construction.enumeration'val (map.constructions (index).index), + offset.x + (map.constructions (index).x - core.camera.x) * core.base * core.zoom, + offset.y + (map.constructions (index).y - core.camera.y) * core.base * core.zoom); + end loop; + -- + for index in 1 .. 60 loop + item.draw (item.enumeration'val (map.items (index).index), + offset.x + (map.items (index).x - core.camera.x) * core.base * core.zoom, + offset.y + (map.items (index).y - core.camera.y) * core.base * core.zoom); + end loop; end draw; ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ diff --git a/source/world.ads b/source/world.ads index 3200521..768d907 100644 --- a/source/world.ads +++ b/source/world.ads @@ -40,6 +40,7 @@ package world is tiles : access tile_array; landmarks : access entity_array; constructions : access entity_array; + items : access entity_array; end record; ------------------------------------------------------------------------------------------