|
- -- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
- --
- -- GNU General Public Licence (version 3 or later)
-
- with core, effect, resource, faction;
-
- use core;
-
- package construction is
-
- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
- type enumeration is (
- house, cottage, shack, homestead, hut, den
- );
-
- ------------------------------------------------------------------------------------------
-
- type definition is record
- name : core.unstring;
- kind : faction.enumeration;
- price : resource.price;
- frames : integer;
- evoke : effect.information;
- end record;
-
- ------------------------------------------------------------------------------------------
-
- count : constant natural := enumeration'pos (enumeration'last) + 1;
-
- description : constant array (enumeration) of definition := (
- house => (+("Dwarf House"), faction.dwarf, (others => 0), 1, effect.none),
- cottage => (+("Fairy Cottage"), faction.fairy, (others => 0), 1, effect.none),
- shack => (+("Gnoll Shack"), faction.gnoll, (others => 0), 1, effect.none),
- homestead => (+("Kobold Homestead"), faction.kobold, (others => 0), 1, effect.none),
- hut => (+("Goblin Hut"), faction.goblin, (others => 0), 1, effect.none),
- den => (+("Imp Den"), faction.imp, (others => 0), 1, effect.none)
- );
-
- sprite : array (enumeration) of core.sprite;
-
- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
- end construction;
|