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;