diff --git a/item.ads b/item.ads index a437cac..51108ed 100644 --- a/item.ads +++ b/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; diff --git a/main.adb b/main.adb index cf3a16f..7c0b362 100644 --- a/main.adb +++ b/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; diff --git a/map.ads b/map.ads index 4f5e092..d89bc46 100644 --- a/map.ads +++ b/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