22 lines
899 B
Ada
22 lines
899 B
Ada
|
with core, menu, resource, item, unit, construction;
|
||
|
|
|
||
|
|
package world is
|
||
|
|
|
||
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
type codex is (
|
||
|
|
ash, cave, grass, rough, snow, swamp
|
||
|
|
);
|
||
|
|
|
||
|
|
------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
procedure configure;
|
||
|
|
|
||
|
|
procedure make (index : in codex; width, height : in natural);
|
||
|
|
|
||
|
|
procedure draw (x, y, width, height : in integer; show_grid : in boolean);
|
||
|
|
|
||
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
end world;
|