-- 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;