xhads/source/world.ads

29 lines
1002 B
Ada
Raw Normal View History

-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)
with core, item, unit, construction;
2024-02-15 21:03:09 -05:00
package world is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
2024-04-26 19:46:09 -04:00
type biome is (
ash, sand, grass, rough, snow, swamp
2024-02-15 21:03:09 -05:00
);
------------------------------------------------------------------------------------------
procedure configure;
2024-04-26 19:46:09 -04:00
procedure make (index : in biome; width, height : in natural);
2024-02-15 21:03:09 -05:00
procedure draw;
2024-02-15 21:03:09 -05:00
2024-04-26 19:46:09 -04:00
function width return integer;
function height return integer;
2024-02-15 21:03:09 -05:00
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end world;