xhads/source/magic.ads

140 lines
7.2 KiB
Ada

with core, effect;
package magic is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type school is (
neutral, air, dark, earth, fire, light,
prime, water
);
type codex is (
-- Neutral
magic_arrow, chain_magic_arrow,
-- Air
blow_away, chain_lightning, grounded, lightning, storm_arrows, storm_winds,
summon_air_elemental, thunderclap,
-- Dark
agony_mass, agony, despair_mass, despair, life_drain_mass, life_drain,
purge, summon_dark_elemental, terror, weakness_mass, weakness,
-- Earth
earthquake, erosion, petrification, poison_cloud, regeneration_mass, regeneration,
rockwalls, stone_skin_mass, stone_skin, summon_earth_elemental,
-- Fire
determination_mass, determination, fireball, fire_bolt, fire_shield, fire_storm,
frenzy, immolation, inner_fire_mass, inner_fire, summon_fire_elemental,
-- Light
blindness, celestial_armor_mass, celestial_armor, heal_mass, heal, purify,
retribution_heal, retribution_mana, retribution_shot, summon_light_elemental, sunburst,
-- Prime
dispel_magic_mass, dispel_magic, disruption, haste_mass, haste, implosion,
mana_drain, slow_mass, slow, teleport, time_statis,
-- Water
blizzard, eternal_winter, frozen_ground, ice_armor_mass, ice_armor, ice_bolt,
ice_breaker, ice_wall, summon_water_elemental, winter_circle
);
------------------------------------------------------------------------------------------
subtype level_limit is natural range 0 .. 6;
type information is
record
name : core.short_string;
kind : school;
level : level_limit;
evoke : effect.codex;
end record;
type trait_array is array (codex) of information;
------------------------------------------------------------------------------------------
trait : constant trait_array := (
("Magic Arrow ", neutral, 0, effect.none),
("Chain Magic Arrow ", neutral, 0, effect.none),
("Blow Away ", air, 0, effect.none),
("Chain Lightning ", air, 0, effect.none),
("Grounded ", air, 0, effect.none),
("Lightning ", air, 0, effect.none),
("Storm Arrows ", air, 0, effect.none),
("Storm Winds ", air, 0, effect.none),
("Summon Air Elemental ", air, 0, effect.none),
("Thunderclap ", air, 0, effect.none),
("Agony Mass ", dark, 0, effect.none),
("Agony ", dark, 0, effect.none),
("Despair Mass ", dark, 0, effect.none),
("Despair ", dark, 0, effect.none),
("Life Drain Mass ", dark, 0, effect.none),
("Life Drain ", dark, 0, effect.none),
("Purge ", dark, 0, effect.none),
("Summon Dark Elemental ", dark, 0, effect.none),
("Terror ", dark, 0, effect.none),
("Weakness Mass ", dark, 0, effect.none),
("Weakness ", dark, 0, effect.none),
("Earthquake ", earth, 0, effect.none),
("Erosion ", earth, 0, effect.none),
("Petrification ", earth, 0, effect.none),
("Poison Cloud ", earth, 0, effect.none),
("Regeneration Mass ", earth, 0, effect.none),
("Regeneration ", earth, 0, effect.none),
("Rockwalls ", earth, 0, effect.none),
("Stone Skin Mass ", earth, 0, effect.none),
("Stone Skin ", earth, 0, effect.none),
("Summon Earth Elemental ", earth, 0, effect.none),
("Determination Mass ", fire, 0, effect.none),
("Determination ", fire, 0, effect.none),
("Fireball ", fire, 0, effect.none),
("Fire Bolt ", fire, 0, effect.none),
("Fire Shield ", fire, 0, effect.none),
("Fire Storm ", fire, 0, effect.none),
("Frenzy ", fire, 0, effect.none),
("Immolation ", fire, 0, effect.none),
("Inner Fire Mass ", fire, 0, effect.none),
("Inner Fire ", fire, 0, effect.none),
("Summon Fire Elemental ", fire, 0, effect.none),
("Blindness ", light, 0, effect.none),
("Celestial Armor Mass ", light, 0, effect.none),
("Celestial Armor ", light, 0, effect.none),
("Heal Mass ", light, 0, effect.none),
("Heal ", light, 0, effect.none),
("Purify ", light, 0, effect.none),
("Retribution Heal ", light, 0, effect.none),
("Retribution Mana ", light, 0, effect.none),
("Retribution Shot ", light, 0, effect.none),
("Summon Light Elemental ", light, 0, effect.none),
("Sunburst ", light, 0, effect.none),
("Dispel Magic Mass ", prime, 0, effect.none),
("Dispel Magic ", prime, 0, effect.none),
("Disruption ", prime, 0, effect.none),
("Haste Mass ", prime, 0, effect.none),
("Haste ", prime, 0, effect.none),
("Implosion ", prime, 0, effect.none),
("Mana Drain ", prime, 0, effect.none),
("Slow Mass ", prime, 0, effect.none),
("Slow ", prime, 0, effect.none),
("Teleport ", prime, 0, effect.none),
("Time Statis ", prime, 0, effect.none),
("Blizzard ", water, 0, effect.none),
("Eternal Winter ", water, 0, effect.none),
("Frozen Ground ", water, 0, effect.none),
("Ice Armor Mass ", water, 0, effect.none),
("Ice Armor ", water, 0, effect.none),
("Ice Bolt ", water, 0, effect.none),
("Ice Breaker ", water, 0, effect.none),
("Ice Wall ", water, 0, effect.none),
("Summon Water Elemental ", water, 0, effect.none),
("Winter Circle ", water, 0, effect.none)
);
------------------------------------------------------------------------------------------
procedure configure;
procedure draw (index : in codex; x, y : in integer);
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end magic;