|
|
@@ -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; |