29 lines
1002 B
Ada
29 lines
1002 B
Ada
-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
|
|
--
|
|
-- GNU General Public Licence (version 3 or later)
|
|
|
|
with core, item, unit, construction;
|
|
|
|
package world is
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
type biome is (
|
|
ash, sand, grass, rough, snow, swamp
|
|
);
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
procedure configure;
|
|
|
|
procedure make (index : in biome; width, height : in natural);
|
|
|
|
procedure draw;
|
|
|
|
function width return integer;
|
|
function height return integer;
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
end world;
|