206 lines
7.9 KiB
Ada
206 lines
7.9 KiB
Ada
with ada.strings.fixed;
|
|
with core, menu, resource, item, unit, construction, world;
|
|
|
|
use world;
|
|
|
|
package body world is
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
type entity is
|
|
record
|
|
index, x, y : integer;
|
|
end record;
|
|
|
|
type block_array is array (natural range <>, natural range <>) of integer;
|
|
type entity_array is array (natural range <>) of entity;
|
|
|
|
type information is
|
|
record
|
|
terrain : codex;
|
|
width : natural;
|
|
height : natural;
|
|
block : access block_array;
|
|
landmark : access entity_array;
|
|
construction : access entity_array;
|
|
end record;
|
|
|
|
type sprite_array is array (natural range <>) of core.sprite;
|
|
|
|
type world_array is array (natural range <>) of access information;
|
|
|
|
type limit_array is array (codex) of integer;
|
|
|
|
type landmark_sprite_array is array (codex) of access sprite_array;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
blocks : core.sprite;
|
|
landmarks : landmark_sprite_array := (others => null);
|
|
map : information;
|
|
|
|
limit : constant limit_array := (29, 64, 70, 94, 51, 94);
|
|
|
|
landmark_limit : constant integer := 140;
|
|
construction_limit : constant integer := 10;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
procedure configure is
|
|
begin
|
|
blocks := core.load_sprite ("./sprite/world/terrain/terrain.png", 1, 1);
|
|
--
|
|
for index in codex
|
|
loop
|
|
landmarks (index) := new sprite_array (0 .. limit (index));
|
|
for value in 0 .. limit (index)
|
|
loop
|
|
declare
|
|
folder : constant string := core.lowercase (codex'image (index));
|
|
file : constant string := ada.strings.fixed.trim (integer'image (value), ada.strings.left);
|
|
begin
|
|
landmarks (index) (value) := core.load_sprite ("./sprite/world/landmark/" & folder & "/" & file & ".png", 1, 1);
|
|
end;
|
|
end loop;
|
|
end loop;
|
|
end configure;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
procedure make (index : in codex; width, height : in natural) is
|
|
begin
|
|
map.terrain := index;
|
|
map.width := width;
|
|
map.height := height;
|
|
map.block := new block_array (0 .. width - 1, 0 .. height - 1);
|
|
map.landmark := new entity_array (0 .. landmark_limit);
|
|
map.construction := new entity_array (0 .. construction_limit);
|
|
--
|
|
for x in 0 .. width - 1
|
|
loop
|
|
for y in 0 .. height - 1
|
|
loop
|
|
map.block (x, y) := core.random_integer (0, 23);
|
|
end loop;
|
|
end loop;
|
|
--
|
|
for object in 0 .. landmark_limit
|
|
loop
|
|
map.landmark (object).index := core.random_integer (0, limit (index));
|
|
map.landmark (object).x := core.base * core.random_integer (1, map.width - 1);
|
|
map.landmark (object).y := core.base * core.random_integer (1, map.height - 1);
|
|
end loop;
|
|
--
|
|
for object in 0 .. construction_limit
|
|
loop
|
|
map.construction (object).index := core.random_integer (0, construction.codex'pos (construction.codex'last));
|
|
map.construction (object).x := core.base * core.random_integer (1, map.width - 1);
|
|
map.construction (object).y := core.base * core.random_integer (1, map.height - 1);
|
|
end loop;
|
|
end make;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
procedure crop (data : in core.sprite; x, y, view_x, view_y, view_width, view_height : in integer) is
|
|
crop_u, crop_v, crop_width, crop_height : integer;
|
|
begin
|
|
if x > view_x + view_width
|
|
or y > view_y + view_height
|
|
or x < view_x - data.width
|
|
or y < view_y - data.height then
|
|
return;
|
|
end if;
|
|
--
|
|
--~if x + data.width < view_x + view_width then crop_width := data.width - (view_x + data.width) mod view_width; end if;
|
|
--~if y + data.height < view_y + view_height then crop_height := data.height - (view_y + data.height) mod view_height; end if;
|
|
--
|
|
--~core.crop (data, x, y, 0, 0, crop_width, crop_height);
|
|
--
|
|
if (x + data.width) > view_width then crop_width := data.width - (x + data.width) mod view_width; end if;
|
|
if (y + data.height) > view_height then crop_height := data.height - (y + data.height) mod view_height; end if;
|
|
--
|
|
core.crop (data, x + view_x, y + view_y, 0, 0, crop_width, crop_height);
|
|
end crop;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
procedure draw (x, y, width, height : in integer; show_grid : in boolean) is
|
|
crop_width : integer := width mod core.base;
|
|
crop_height : integer := height mod core.base;
|
|
u, v : integer;
|
|
begin
|
|
for move_y in 0 .. height / core.base - 1
|
|
loop
|
|
for move_x in 0 .. + width / core.base - 1
|
|
loop
|
|
u := core.base * codex'pos (map.terrain) * 4;
|
|
v := core.base * map.block (core.camera.x + move_x, core.camera.y + move_y);
|
|
--
|
|
core.crop (blocks, x + move_x * core.base, y + move_y * core.base, u, v, core.base, core.base);
|
|
end loop;
|
|
--
|
|
u := core.base * codex'pos (map.terrain) * 4;
|
|
v := core.base * map.block (width / core.base, core.camera.y + move_y);
|
|
--
|
|
core.crop (blocks, x + width - crop_width, y + move_y * core.base, u, v, crop_width, core.base);
|
|
end loop;
|
|
--
|
|
for move_x in 0 .. width / core.base - 1
|
|
loop
|
|
u := core.base * codex'pos (map.terrain) * 4;
|
|
v := core.base * map.block (core.camera.x + move_x, height / core.base);
|
|
--
|
|
core.crop (blocks, x + move_x * core.base, y + height - crop_height, u, v, core.base, crop_height);
|
|
end loop;
|
|
--
|
|
u := core.base * codex'pos (map.terrain) * 4;
|
|
v := core.base * map.block (width / core.base, height / core.base);
|
|
--
|
|
core.crop (blocks, x + width - crop_width, y + height - crop_height, u, v, crop_width, crop_height);
|
|
--
|
|
for object in 0 .. landmark_limit
|
|
loop
|
|
--~if map.landmark (object).x > width
|
|
--~or map.landmark (object).y > height then
|
|
--~goto skip_drawing_out_of_view_landmark;
|
|
--~end if;
|
|
--~--
|
|
--~crop_width := landmarks (map.terrain) (map.landmark (object).index).width;
|
|
--~crop_height := landmarks (map.terrain) (map.landmark (object).index).height;
|
|
--~--
|
|
--~if (map.landmark (object).x + landmarks (map.terrain) (map.landmark (object).index).width) > width then
|
|
--~crop_width := crop_width - (map.landmark (object).x + landmarks (map.terrain) (map.landmark (object).index).width) mod width;
|
|
--~end if;
|
|
--~--
|
|
--~if (map.landmark (object).y + landmarks (map.terrain) (map.landmark (object).index).height) > height then
|
|
--~crop_height := crop_height - (map.landmark (object).y + landmarks (map.terrain) (map.landmark (object).index).height) mod height;
|
|
--~end if;
|
|
--~--
|
|
--~core.crop (landmarks (map.terrain) (map.landmark (object).index), x + map.landmark (object).x, y + map.landmark (object).y, 0, 0, crop_width, crop_height);
|
|
--~--
|
|
--~<<skip_drawing_out_of_view_landmark>>
|
|
crop (landmarks (map.terrain) (map.landmark (object).index), map.landmark (object).x, map.landmark (object).y, x, y, width, height);
|
|
end loop;
|
|
--
|
|
if show_grid then
|
|
core.hexagonal_grid (x, y, width, height, false);
|
|
core.hexagonal_grid (x, y, width, height, true);
|
|
end if;
|
|
--
|
|
for object in 0 .. construction_limit
|
|
loop
|
|
if map.construction (object).x > width
|
|
or map.construction (object).y > height then
|
|
goto skip_drawing_out_of_view_construction;
|
|
end if;
|
|
--
|
|
construction.draw (construction.codex'val (map.construction (object).index), map.construction (object).x, map.construction (object).y);
|
|
--
|
|
<<skip_drawing_out_of_view_construction>>
|
|
end loop;
|
|
end draw;
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
end world;
|