|
- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
- -- Copyright (c) 2023 - Ognjen 'xolatile' Milan Robovic
- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
- -- Xabina is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either
- -- version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the
- -- implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
- with core;
-
- package body map is
-
- ------------------------------------------------------------------------------------------
-
- procedure generate is
- begin
- for y in height
- loop
- for x in width
- loop
- matrical_data (y, x) := (wooden_floor, constant_data (wooden_floor).condition_limit);
- end loop;
- end loop;
- end generate;
-
- procedure render is
- symbol : character := ' ';
- colour : character := core.colour.white;
- effect : character := core.effect.normal;
- begin
- for y in core.screen_height
- loop
- for x in core.screen_width
- loop
- symbol := constant_data (matrical_data (height (y), width (x)).map).symbol;
- colour := constant_data (matrical_data (height (y), width (x)).map).colour;
- effect := constant_data (matrical_data (height (y), width (x)).map).effect;
- core.render_character (symbol, colour, effect, y, x);
- end loop;
- end loop;
- end render;
-
- ------------------------------------------------------------------------------------------
-
- end map;
|