Commiting...

item.ads

@@ -6,7 +6,7 @@
 -- 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
 
@@ -99,4 +99,12 @@ package item is
 
                                              ------------------------------------------------------------------------------------------
 
+	procedure create (this : list;
+	                  y    : map.height;
+	                  x    : map.width);
+
+	procedure render;
+
+                                             ------------------------------------------------------------------------------------------
+
 end item;

main.adb

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

map.ads

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