xolatile/xabina
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Commiting...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2023-10-15 15:08:24 -04:00
parent b85ccca260
commit cf805b5205
3 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
item.ads
View File

@ -6,7 +6,7 @@
-- implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. -- implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
with core; with core, map;
package item is package item is
@ -99,4 +99,12 @@ package item is
------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------
procedure create (this : list;
y : map.height;
x : map.width);
procedure render;
------------------------------------------------------------------------------------------
end item; end item;

3
main.adb
View File

@ -26,11 +26,14 @@ begin
map.generate; map.generate;
item.create (item.paperweight, 1, 1);
------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------
loop loop
map.render; map.render;
player.render; player.render;
item.render;
core.render_buffer; core.render_buffer;
action.scan; action.scan;
action.list (character'pos (action.signal)).all; action.list (character'pos (action.signal)).all;

2
map.ads
View File

@ -31,7 +31,7 @@ package map is
type variable_type is new core.variable_type with type variable_type is new core.variable_type with
record record
entity : core.list := core.none; entity : core.list := core.none;
identifier : natural := 0; identifier : natural := 0;
end record; end record;
type matrical_type is type matrical_type is