-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic -- -- GNU General Public Licence (version 3 or later) with core; package body deity is ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ sprite : array (enumeration) of core.sprite; ------------------------------------------------------------------------------------------ procedure configure is begin core.echo (core.comment, "Configuring deity components..."); -- for index in enumeration loop sprite (index) := core.import_sprite ("./sprite/deity/" & enumeration'image (index) & ".png", 4, 1); end loop; end configure; ------------------------------------------------------------------------------------------ procedure draw (index : in enumeration; x, y : in integer) is begin core.draw (sprite (index), x, y); end draw; ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ end deity;