-- 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, cave, grass, rough, snow, swamp ); ------------------------------------------------------------------------------------------ procedure configure; procedure make (index : in biome; width, height : in natural); procedure draw (x, y, width, height : in integer); function width return integer; function height return integer; ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ end world;