xolatile/xhads
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added certain default values...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-06-05 08:29:55 -04:00
parent dc6084ec6d
commit ecc6e0ba68
8 changed files with 54 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
source/chad.ads
View File

@ -27,20 +27,20 @@ package chad is
type item_array is array (0 .. item_limit - 1) of equipment.enumeration;
type information is record
index : enumeration;
state : core.animation;
x : integer;
y : integer;
health : core.point;
mana : core.point;
movement : core.point;
attributes : attribute.points;
skills : skill.points;
resources : resource.points;
materials : material.points;
equipments : equipment.equip_array;
item_count : natural;
items : item_array;
index : enumeration := ada;
state : core.animation := core.idle;
x : integer := 0;
y : integer := 0;
health : core.point := (12, 12);
mana : core.point := (12, 12);
movement : core.point := (12, 12);
attributes : attribute.points := attribute.default;
skills : skill.points := skill.default;
resources : resource.points := resource.default;
materials : material.points := material.default;
equipments : equipment.equip_array := equipment.default;
item_count : natural := 0;
items : item_array := (others => equipment.none);
end record;
type informations is array (natural range <>) of information;

12
source/effect.ads
View File

@ -17,14 +17,14 @@ package effect is
------------------------------------------------------------------------------------------
type information is record
kind : enumeration;
modifier : integer;
amount : integer;
permanent : boolean;
duration : natural;
kind : enumeration := idle;
modifier : integer := 0;
amount : integer := 0;
permanent : boolean := false;
duration : natural := 0;
end record;
none : constant information := (idle, 0, 0, false, 0);
none : constant information := (others => <>);
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

5
source/equipment.ads
View File

@ -56,8 +56,11 @@ package equipment is
count : constant natural := enumeration'pos (enumeration'last) + 1;
default : constant equip_array := (others => none);
description : constant array (enumeration) of definition := (
none => (new string'("--"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
none => (others => <>),
--
golden_axe => (new string'("Golden Axe"), main_hand, (2, 0, 0, 0, 0, 0), faction.fairy, effect.none),
golden_battleaxe => (new string'("Golden Battleaxe"), main_hand, (3, 0, 0, 0, 0, 0), faction.fairy, effect.none),
golden_bow => (new string'("Golden Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.fairy, effect.none),

14
source/main.adb
View File

@ -109,25 +109,13 @@ procedure main is
text_box_height : integer := 0;
player : chad.information := (
index => chad.ada,
state => core.idle,
x => 0,
y => 0,
health => (30, 40),
mana => (20, 30),
movement => (10, 20),
attributes => attribute.default,
skills => skill.default,
resources => ((29, 480), (11, 240), (23, 240), (13, 240), (17, 240), (7, 240)),
materials => material.default,
equipments => (equipment.chest => equipment.iron_chestplate,
equipment.head => equipment.iron_helmet,
equipment.hands => equipment.iron_gauntlets,
equipment.feet => equipment.iron_greaves,
equipment.main_hand => equipment.iron_sword,
others => equipment.none),
item_count => 0,
items => (others => equipment.none)
others => <>
);
------------------------------------------------------------------------------------------

2
source/material.ads
View File

@ -29,7 +29,7 @@ package material is
count : constant natural := enumeration'pos (enumeration'last) + 1;
default : constant points := (others => (1, 12));
default : constant points := (others => (0, 12));
description : constant array (enumeration) of definition := (
sulphur => (new string'("Sulphur"), 11),

2
source/resource.ads
View File

@ -27,6 +27,8 @@ package resource is
count : constant natural := enumeration'pos (enumeration'last) + 1;
default : constant points := (others => (12, 240));
description : constant array (enumeration) of definition := (
gold => ((24, 480), new string'("Gold"), new string'("Gold is precious yellowish shiny metal, valued since ancient times.")),
wood => ((12, 240), new string'("Wood"), new string'("Wood is just bundle of lignin and cellulose, nothing more.")),

4
source/world.adb
View File

@ -111,6 +111,10 @@ package body world is
y => offset.y + (vertical - core.camera.y) * size,
width => size,
height => size)
and core.cursor_inside (x => core.window_width / 2 - 6 * size,
y => core.window_height / 2 - 6 * size,
width => 12 * size,
height => 12 * size)
and core.cursor_mode = core.cursor_left
and not ui.prioritize then
target.x := horizontal;

27
source/world.ads
View File

@ -127,19 +127,20 @@ package world is
plum_tree => (new string'("Plum Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.plum), 6, true, 600))
);
month_name : constant array (1 .. 12) of access string := (
new string'("I <> Month of Red-Haired Goddess"),
new string'("II <> Month of Xorana"),
new string'("III <> Month of Heneal"),
new string'("IV <> Month of Evelor"),
new string'("V <> Month of Orohan"),
new string'("VI <> Month of Aezora"),
new string'("VII <> Month of Mitena"),
new string'("VIII <> Month of Sheila"),
new string'("IX <> Month of Iliona"),
new string'("X <> Month of Uldrae"),
new string'("XI <> Month of Kanako"),
new string'("XII <> Month of Time-Rebirth")
month_name : constant array (1 .. 13) of access string := (
new string'("I <> Month of Life"),
new string'("II <> Month of Red-Haired Goddess"),
new string'("III <> Month of Xorana"),
new string'("IV <> Month of Heneal"),
new string'("V <> Month of Evelor"),
new string'("VI <> Month of Orohan"),
new string'("VII <> Month of Aezora"),
new string'("VIII <> Month of Mitena"),
new string'("IX <> Month of Sheila"),
new string'("X <> Month of Iliona"),
new string'("XI <> Month of Uldrae"),
new string'("XII <> Month of Kanako"),
new string'("XIII <> Month of Death")
);
week_name : constant array (1 .. 52) of access string := (