Refactoring code in general...
This commit is contained in:
parent
912fcaa047
commit
d92cc40c61
@ -49,12 +49,12 @@ package chad is
|
|||||||
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
||||||
|
|
||||||
trait : constant array (enumeration) of information := (
|
trait : constant array (enumeration) of information := (
|
||||||
("Ada Augusta King ", faction.fairy, attribute.defense, skill.diplomacy, resource.metal),
|
ada => ("Ada Augusta King ", faction.fairy, attribute.defense, skill.diplomacy, resource.metal),
|
||||||
("Richard Martin Stallman ", faction.dwarf, attribute.offense, skill.leadership, resource.wood),
|
richard => ("Richard Martin Stallman ", faction.dwarf, attribute.offense, skill.leadership, resource.wood),
|
||||||
("Ognjen Milan Robovic ", faction.kobold, attribute.stamina, skill.archery, resource.leather),
|
ognjen => ("Ognjen Milan Robovic ", faction.kobold, attribute.stamina, skill.archery, resource.leather),
|
||||||
("Wouter van Oortmerssen ", faction.gnoll, attribute.speed, skill.medicine, resource.stone),
|
wouter => ("Wouter van Oortmerssen ", faction.gnoll, attribute.speed, skill.medicine, resource.stone),
|
||||||
("John Warner Backus ", faction.goblin, attribute.wisdom, skill.sorcery, resource.gem),
|
john => ("John Warner Backus ", faction.goblin, attribute.wisdom, skill.sorcery, resource.gem),
|
||||||
("Marina Ann Hantzis ", faction.imp, attribute.reach, skill.necromancy, resource.gold)
|
marina => ("Marina Ann Hantzis ", faction.imp, attribute.reach, skill.necromancy, resource.gold)
|
||||||
);
|
);
|
||||||
|
|
||||||
------------------------------------------------------------------------------------------
|
------------------------------------------------------------------------------------------
|
||||||
|
|||||||
@ -27,12 +27,12 @@ package construction is
|
|||||||
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
||||||
|
|
||||||
trait : constant array (enumeration) of information := (
|
trait : constant array (enumeration) of information := (
|
||||||
("Dwarf House ", faction.dwarf, (others => 0), 1, effect.none),
|
house => ("Dwarf House ", faction.dwarf, (others => 0), 1, effect.none),
|
||||||
("Fairy Cottage ", faction.fairy, (others => 0), 1, effect.none),
|
cottage => ("Fairy Cottage ", faction.fairy, (others => 0), 1, effect.none),
|
||||||
("Gnoll Shack ", faction.gnoll, (others => 0), 1, effect.none),
|
shack => ("Gnoll Shack ", faction.gnoll, (others => 0), 1, effect.none),
|
||||||
("Kobold Homestead ", faction.kobold, (others => 0), 1, effect.none),
|
homestead => ("Kobold Homestead ", faction.kobold, (others => 0), 1, effect.none),
|
||||||
("Goblin Hut ", faction.goblin, (others => 0), 1, effect.none),
|
hut => ("Goblin Hut ", faction.goblin, (others => 0), 1, effect.none),
|
||||||
("Imp Den ", faction.imp, (others => 0), 1, effect.none)
|
den => ("Imp Den ", faction.imp, (others => 0), 1, effect.none)
|
||||||
);
|
);
|
||||||
|
|
||||||
sprite : array (enumeration) of core.sprite;
|
sprite : array (enumeration) of core.sprite;
|
||||||
|
|||||||
@ -27,16 +27,16 @@ package faction is
|
|||||||
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
||||||
|
|
||||||
trait : constant array (enumeration) of information := (
|
trait : constant array (enumeration) of information := (
|
||||||
("Fairy Kingdom ", attribute.speed, skill.mysticism, resource.gold),
|
fairy => ("Fairy Kingdom ", attribute.speed, skill.mysticism, resource.gold),
|
||||||
("Dwarf Kingdom ", attribute.defense, skill.estates, resource.stone),
|
dwarf => ("Dwarf Kingdom ", attribute.defense, skill.estates, resource.stone),
|
||||||
("Gnoll Kingdom ", attribute.stamina, skill.logistics, resource.leather),
|
gnoll => ("Gnoll Kingdom ", attribute.stamina, skill.logistics, resource.leather),
|
||||||
("Kobold Kingdom ", attribute.offense, skill.tactics, resource.metal),
|
kobold => ("Kobold Kingdom ", attribute.offense, skill.tactics, resource.metal),
|
||||||
("Goblin Kingdom ", attribute.reach, skill.exploration, resource.wood),
|
goblin => ("Goblin Kingdom ", attribute.reach, skill.exploration, resource.wood),
|
||||||
("Imp Kingdom ", attribute.wisdom, skill.sorcery, resource.gem),
|
imp => ("Imp Kingdom ", attribute.wisdom, skill.sorcery, resource.gem),
|
||||||
("Fallen Human Empire ", attribute.wisdom, skill.estates, resource.gold),
|
human => ("Fallen Human Empire ", attribute.wisdom, skill.estates, resource.gold),
|
||||||
("Fallen Elf Empire ", attribute.wisdom, skill.estates, resource.gold),
|
elf => ("Fallen Elf Empire ", attribute.wisdom, skill.estates, resource.gold),
|
||||||
("Fallen Orc Empire ", attribute.wisdom, skill.estates, resource.gold),
|
orc => ("Fallen Orc Empire ", attribute.wisdom, skill.estates, resource.gold),
|
||||||
("Neutral ", attribute.offense, skill.archery, resource.gold)
|
neutral => ("Neutral ", attribute.offense, skill.archery, resource.gold)
|
||||||
);
|
);
|
||||||
|
|
||||||
------------------------------------------------------------------------------------------
|
------------------------------------------------------------------------------------------
|
||||||
|
|||||||
@ -44,12 +44,12 @@ package magic is
|
|||||||
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
||||||
|
|
||||||
trait : constant array (enumeration) of information := (
|
trait : constant array (enumeration) of information := (
|
||||||
("Arrow Storm ", air, 1, effect.none, "Arrow Storm increases the range of your ranged units. "),
|
arrow_storm => ("Arrow Storm ", air, 1, effect.none, "Arrow Storm increases the range of your ranged units. "),
|
||||||
("Torment ", dark, 1, effect.none, "Torment causes targeted friend or foe to feel pain and shit. "),
|
torment => ("Torment ", dark, 1, effect.none, "Torment causes targeted friend or foe to feel pain and shit. "),
|
||||||
("Stone Armour ", earth, 1, effect.none, "Stone Armour increases defense of selected unit. "),
|
stone_armour => ("Stone Armour ", earth, 1, effect.none, "Stone Armour increases defense of selected unit. "),
|
||||||
("Fireball ", fire, 1, effect.none, "Fireball conjures a literal ball of fire that flies go brr. "),
|
fireball => ("Fireball ", fire, 1, effect.none, "Fireball conjures a literal ball of fire that flies go brr. "),
|
||||||
("Heal ", light, 1, effect.none, "Heal does what it says it will do, keeps the promise. "),
|
heal => ("Heal ", light, 1, effect.none, "Heal does what it says it will do, keeps the promise. "),
|
||||||
("Ice Armour ", water, 1, effect.none, "Ice Armour increases defense and stamina of selected unit. ")
|
ice_armour => ("Ice Armour ", water, 1, effect.none, "Ice Armour increases defense and stamina of selected unit. ")
|
||||||
);
|
);
|
||||||
|
|
||||||
------------------------------------------------------------------------------------------
|
------------------------------------------------------------------------------------------
|
||||||
|
|||||||
@ -24,10 +24,10 @@ package material is
|
|||||||
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
||||||
|
|
||||||
trait : constant array (enumeration) of information := (
|
trait : constant array (enumeration) of information := (
|
||||||
("Sulphur ", 7),
|
sulphur => ("Sulphur ", 7),
|
||||||
("Mercury ", 13),
|
mercury => ("Mercury ", 13),
|
||||||
("Mint ", 3),
|
mint => ("Mint ", 3),
|
||||||
("Cinnamon ", 5)
|
cinnamon => ("Cinnamon ", 5)
|
||||||
);
|
);
|
||||||
|
|
||||||
------------------------------------------------------------------------------------------
|
------------------------------------------------------------------------------------------
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user