From 3750a8727bb1866e0c26861b7cb23dd4c329d140 Mon Sep 17 00:00:00 2001 From: xolatile Date: Thu, 25 Apr 2024 00:27:13 -0400 Subject: [PATCH] Breaking compilation of ~3000 SLOC project... --- source/ai.adb | 4 ++ source/ai.ads | 4 ++ source/attribute.adb | 4 ++ source/attribute.ads | 4 ++ source/chad.adb | 4 ++ source/chad.ads | 24 ++++---- source/construction.adb | 4 ++ source/construction.ads | 4 ++ source/core.adb | 4 ++ source/core.ads | 4 ++ source/deity.adb | 4 ++ source/deity.ads | 4 ++ source/effect.adb | 4 ++ source/effect.ads | 4 ++ source/faction.adb | 4 ++ source/faction.ads | 31 +++++----- source/item.adb | 4 ++ source/item.ads | 4 ++ source/magic.adb | 4 ++ source/magic.ads | 4 ++ source/main.adb | 147 +++++++++++++++++++++++++----------------------- source/might.adb | 4 ++ source/might.ads | 4 ++ source/resource.adb | 4 ++ source/resource.ads | 4 ++ source/skill.adb | 4 ++ source/skill.ads | 4 ++ source/ui.adb | 8 ++- source/ui.ads | 4 ++ source/unit.adb | 4 ++ source/unit.ads | 4 ++ source/world.adb | 4 ++ source/world.ads | 4 ++ 33 files changed, 226 insertions(+), 100 deletions(-) diff --git a/source/ai.adb b/source/ai.adb index 1893202..c1da1b9 100644 --- a/source/ai.adb +++ b/source/ai.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, ui, ai; use ai; diff --git a/source/ai.ads b/source/ai.ads index 1f845ef..9d68b69 100644 --- a/source/ai.ads +++ b/source/ai.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core; package ai is diff --git a/source/attribute.adb b/source/attribute.adb index b042158..751e8aa 100644 --- a/source/attribute.adb +++ b/source/attribute.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, ui, attribute; use attribute; diff --git a/source/attribute.ads b/source/attribute.ads index 952f750..1bf6534 100644 --- a/source/attribute.ads +++ b/source/attribute.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core; package attribute is diff --git a/source/chad.adb b/source/chad.adb index 31f1d4e..7779e17 100644 --- a/source/chad.adb +++ b/source/chad.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, ui, faction, chad; use chad; diff --git a/source/chad.ads b/source/chad.ads index 6ecf22b..0fd5e0e 100644 --- a/source/chad.ads +++ b/source/chad.ads @@ -1,12 +1,15 @@ -with core, faction, attribute, skill, resource; +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + +with core, attribute, skill, resource, faction; package chad is ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ type codex is ( - ognjen, richard, eric, linus, ada, marina, - kathleen, wouter, john + ada, richard, ognjen, wouter, john, marina ); ------------------------------------------------------------------------------------------ @@ -33,15 +36,12 @@ package chad is count : constant natural := codex'pos (codex'last) + 1; trait : constant array (codex) of information := ( - ("Ognjen Milan Robovic ", faction.castle, attribute.offense, skill.archery, resource.gold), - ("Richard Martin Stallman ", faction.stronghold, attribute.offense, skill.archery, resource.gold), - ("Eric Steven Raymond ", faction.inferno, attribute.offense, skill.archery, resource.gold), - ("Linus Benedict Torvalds ", faction.tower, attribute.offense, skill.archery, resource.gold), - ("Ada Augusta King ", faction.conflux, attribute.offense, skill.archery, resource.gold), - ("Marina Ann Hantzis ", faction.necropolis, attribute.offense, skill.archery, resource.gold), - ("Kathleen Hylda Britten ", faction.rampart, attribute.offense, skill.archery, resource.gold), - ("Wouter van Oortmerssen ", faction.fortress, attribute.offense, skill.archery, resource.gold), - ("John Warner Backus ", faction.dungeon, attribute.offense, skill.archery, resource.gold) + ("Ada Augusta King ", faction.fairy, attribute.defense, skill.diplomacy, resource.steel), + ("Richard Martin Stallman ", faction.dwarf, attribute.offense, skill.leadership, resource.wood), + ("Ognjen Milan Robovic ", faction.gnoll, attribute.stamina, skill.archery, resource.leather), + ("Wouter van Oortmerssen ", faction.kobold, attribute.speed, skill.medicine, resource.stone), + ("John Warner Backus ", faction.goblin, attribute.wisdom, skill.sorcery, resource.crystal), + ("Marina Ann Hantzis ", faction.imp, attribute.reach, skill.necromancy, resource.gold) ); ------------------------------------------------------------------------------------------ diff --git a/source/construction.adb b/source/construction.adb index cb4cccc..d24a9c7 100644 --- a/source/construction.adb +++ b/source/construction.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, effect, resource, faction, construction; use construction; diff --git a/source/construction.ads b/source/construction.ads index fedd078..b03e5da 100644 --- a/source/construction.ads +++ b/source/construction.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, effect, resource, faction; package construction is diff --git a/source/core.adb b/source/core.adb index cc03bab..d1a3a79 100644 --- a/source/core.adb +++ b/source/core.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core; use core; diff --git a/source/core.ads b/source/core.ads index 80b9fee..05f743e 100644 --- a/source/core.ads +++ b/source/core.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with ada.text_io, ada.strings.unbounded, interfaces.c; use ada.text_io, ada.strings.unbounded, interfaces.c; diff --git a/source/deity.adb b/source/deity.adb index 9df0b25..9899e15 100644 --- a/source/deity.adb +++ b/source/deity.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, deity; use deity; diff --git a/source/deity.ads b/source/deity.ads index 5458c51..691d4e1 100644 --- a/source/deity.ads +++ b/source/deity.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core; package deity is diff --git a/source/effect.adb b/source/effect.adb index bf45f66..8302514 100644 --- a/source/effect.adb +++ b/source/effect.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, effect; use effect; diff --git a/source/effect.ads b/source/effect.ads index 80994b0..87c1669 100644 --- a/source/effect.ads +++ b/source/effect.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core; package effect is diff --git a/source/faction.adb b/source/faction.adb index b92a914..5e23585 100644 --- a/source/faction.adb +++ b/source/faction.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, attribute, skill, resource, faction; use faction; diff --git a/source/faction.ads b/source/faction.ads index 5187816..e5f121f 100644 --- a/source/faction.ads +++ b/source/faction.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, attribute, skill, resource; package faction is @@ -5,8 +9,8 @@ package faction is ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ type codex is ( - neutral, castle, stronghold, inferno, tower, conflux, - necropolis, rampart, fortress, dungeon + fairy, dwarf, gnoll, kobold, goblin, imp, + neutral ); ------------------------------------------------------------------------------------------ @@ -14,9 +18,9 @@ package faction is type information is record name : core.short_string; - attribute_bonus : attribute.codex; - skill_bonus : skill.codex; - resource_bonus : resource.codex; + bonus_attribute : attribute.codex; + bonus_skill : skill.codex; + bonus_resource : resource.codex; end record; ------------------------------------------------------------------------------------------ @@ -24,16 +28,13 @@ package faction is count : constant natural := codex'pos (codex'last) + 1; trait : constant array (codex) of information := ( - ("Neutral ", attribute.offense, skill.archery, resource.gold), - ("Castle ", attribute.offense, skill.archery, resource.gold), - ("Stronghold ", attribute.offense, skill.archery, resource.gold), - ("Inferno ", attribute.offense, skill.archery, resource.gold), - ("Tower ", attribute.offense, skill.archery, resource.gold), - ("Conflux ", attribute.offense, skill.archery, resource.gold), - ("Necropolis ", attribute.offense, skill.archery, resource.gold), - ("Rampart ", attribute.offense, skill.archery, resource.gold), - ("Fortress ", attribute.offense, skill.archery, resource.gold), - ("Dungeon ", attribute.offense, skill.archery, resource.gold) + ("Fairy Kingdom ", attribute.speed, skill.mysticism, resource.gold), + ("Dwarf Kingdom ", attribute.defense, skill.estates, resource.stone), + ("Gnoll Kingdom ", attribute.stamina, skill.logistics, resource.leather), + ("Kobold Kingdom ", attribute.offense, skill.tactics, resource.steel), + ("Goblin Kingdom ", attribute.reach, skill.exploration, resource.wood), + ("Imp Kingdom ", attribute.wisdom, skill.sorcery, resource.crystal), + ("Neutral ", attribute.offense, skill.archery, resource.gold) ); ------------------------------------------------------------------------------------------ diff --git a/source/item.adb b/source/item.adb index e3d36c3..54fd68a 100644 --- a/source/item.adb +++ b/source/item.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, item; use item; diff --git a/source/item.ads b/source/item.ads index b7d375a..a94be77 100644 --- a/source/item.ads +++ b/source/item.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, effect; package item is diff --git a/source/magic.adb b/source/magic.adb index 9c5f673..c170aed 100644 --- a/source/magic.adb +++ b/source/magic.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, ui, effect, magic; use magic; diff --git a/source/magic.ads b/source/magic.ads index 91d0bce..b6331fa 100644 --- a/source/magic.ads +++ b/source/magic.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, effect; package magic is diff --git a/source/main.adb b/source/main.adb index 2cf9378..baec68c 100644 --- a/source/main.adb +++ b/source/main.adb @@ -1,6 +1,11 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + pragma ada_2012; -with core, ui, effect, attribute, skill, resource, faction, might, magic, item, unit, construction, chad, world, ai; +--~with core, ui, effect, attribute, skill, resource, faction, might, magic, item, unit, construction, chad, world, ai; +with core, ui, effect, attribute, skill, resource, faction, chad, ai; procedure main is @@ -16,52 +21,52 @@ procedure main is ------------------------------------------------------------------------------------------ - type menu_index is ( - menu_none, menu_attribute, menu_skill, menu_resource, menu_unit, menu_might, menu_magic - ); + --~type menu_index is ( + --~menu_none, menu_attribute, menu_skill, menu_resource, menu_unit, menu_might, menu_magic + --~); - menu_limit : constant integer := 3; - menu_count : integer := 0; + --~menu_limit : constant integer := 3; + --~menu_count : integer := 0; - menu_stack : array (1 .. menu_limit) of menu_index := (others => menu_none); + --~menu_stack : array (1 .. menu_limit) of menu_index := (others => menu_none); - procedure menu_insert (index : in menu_index) is - begin - if menu_count = menu_limit then return; end if; - -- - menu_count := menu_count mod menu_limit + 1; - -- - menu_stack (menu_count) := index; - end menu_insert; + --~procedure menu_insert (index : in menu_index) is + --~begin + --~if menu_count = menu_limit then return; end if; + --~-- + --~menu_count := menu_count mod menu_limit + 1; + --~-- + --~menu_stack (menu_count) := index; + --~end menu_insert; - procedure menu_remove is - begin - if menu_count = 0 then return; end if; - -- - menu_stack (menu_count) := menu_none; - -- - menu_count := menu_count - 1; - end menu_remove; + --~procedure menu_remove is + --~begin + --~if menu_count = 0 then return; end if; + --~-- + --~menu_stack (menu_count) := menu_none; + --~-- + --~menu_count := menu_count - 1; + --~end menu_remove; - procedure menu_render is - begin - if menu_count > 0 then - core.overlay; - end if; - -- - for index in 1 .. menu_limit - loop - case menu_stack (index) is - when menu_none => null; - when menu_attribute => attribute.menu (100, 100, false); - when menu_skill => skill.menu (200, 200, false); - when menu_resource => resource.menu (300, 300, false); - when menu_unit => unit.menu (0, 0, true); - when menu_might => might.menu (0, 0, true); - when menu_magic => magic.menu (0, 0, true); - end case; - end loop; - end menu_render; + --~procedure menu_render is + --~begin + --~if menu_count > 0 then + --~core.overlay; + --~end if; + --~-- + --~for index in 1 .. menu_limit + --~loop + --~case menu_stack (index) is + --~when menu_none => null; + --~when menu_attribute => attribute.menu (100, 100, false); + --~when menu_skill => skill.menu (200, 200, false); + --~when menu_resource => resource.menu (300, 300, false); + --~when menu_unit => unit.menu (0, 0, true); + --~when menu_might => might.menu (0, 0, true); + --~when menu_magic => magic.menu (0, 0, true); + --~end case; + --~end loop; + --~end menu_render; ------------------------------------------------------------------------------------------ @@ -70,26 +75,26 @@ procedure main is procedure move_camera_down is begin core.camera.y := core.camera.y + 1; end move_camera_down; procedure move_camera_left is begin core.camera.x := core.camera.x - 1; end move_camera_left; procedure move_camera_right is begin core.camera.x := core.camera.x + 1; end move_camera_right; - procedure show_attribute_menu is begin menu_insert (menu_attribute); end show_attribute_menu; - procedure show_skill_menu is begin menu_insert (menu_skill); end show_skill_menu; - procedure show_resource_menu is begin menu_insert (menu_resource); end show_resource_menu; - procedure show_unit_menu is begin menu_insert (menu_unit); end show_unit_menu; - procedure show_might_menu is begin menu_insert (menu_might); end show_might_menu; - procedure show_magic_menu is begin menu_insert (menu_magic); end show_magic_menu; - procedure hide_top_menu is begin menu_remove; end hide_top_menu; + --~procedure show_attribute_menu is begin menu_insert (menu_attribute); end show_attribute_menu; + --~procedure show_skill_menu is begin menu_insert (menu_skill); end show_skill_menu; + --~procedure show_resource_menu is begin menu_insert (menu_resource); end show_resource_menu; + --~procedure show_unit_menu is begin menu_insert (menu_unit); end show_unit_menu; + --~procedure show_might_menu is begin menu_insert (menu_might); end show_might_menu; + --~procedure show_magic_menu is begin menu_insert (menu_magic); end show_magic_menu; + --~procedure hide_top_menu is begin menu_remove; end hide_top_menu; signal_list : constant array (core.signal_code) of access procedure := ( core.signal_up => move_camera_up'access, core.signal_down => move_camera_down'access, core.signal_left => move_camera_left'access, core.signal_right => move_camera_right'access, - core.signal_a => show_attribute_menu'access, - core.signal_s => show_skill_menu'access, - core.signal_r => show_resource_menu'access, - core.signal_u => show_unit_menu'access, - core.signal_m => show_might_menu'access, - core.signal_n => show_magic_menu'access, - core.signal_grave => hide_top_menu'access, + --~core.signal_a => show_attribute_menu'access, + --~core.signal_s => show_skill_menu'access, + --~core.signal_r => show_resource_menu'access, + --~core.signal_u => show_unit_menu'access, + --~core.signal_m => show_might_menu'access, + --~core.signal_n => show_magic_menu'access, + --~core.signal_grave => hide_top_menu'access, others => idle'access ); @@ -113,16 +118,16 @@ begin attribute.configure; skill.configure; resource.configure; - might.configure; - magic.configure; - item.configure; - unit.configure; - construction.configure; - --~chad.configure; - world.configure; + --~might.configure; + --~magic.configure; + --~item.configure; + --~unit.configure; + --~construction.configure; + chad.configure; + --~world.configure; ai.configure; - world.make (world.rough, 120, 100); + --~world.make (world.rough, 120, 100); preview_width := core.window_width - side_panel; preview_height := core.window_height; @@ -140,13 +145,13 @@ begin -- ui.active := (if core.cursor_mode = 3 then ui.default else ui.steam); -- - core.draw (core.hexagon_fill_sprite, 0, 0); - core.draw (core.hexagon_grid_sprite, 0, 0); + --~core.draw (core.hexagon_fill_sprite, 0, 0); + --~core.draw (core.hexagon_grid_sprite, 0, 0); -- - core.camera.x := core.clip (core.camera.x, 0, world.map.width - preview_width / core.base); - core.camera.y := core.clip (core.camera.y, 0, world.map.height - preview_height / core.base); + --~core.camera.x := core.clip (core.camera.x, 0, world.map.width - preview_width / core.base); + --~core.camera.y := core.clip (core.camera.y, 0, world.map.height - preview_height / core.base); -- - world.draw (preview_x, preview_y, preview_width - 2 * preview_x, preview_height - 2 * preview_y - 32, core.signal_mode = core.signal_code'pos (core.signal_g)); + --~world.draw (preview_x, preview_y, preview_width - 2 * preview_x, preview_height - 2 * preview_y - 32, core.signal_mode = core.signal_code'pos (core.signal_g)); -- --~core.draw_central_grid (preview_x, preview_y, preview_width - 2 * preview_x, preview_height - 2 * preview_y); --~core.draw_squared_grid (preview_x, preview_y, preview_width - 2 * preview_x, preview_height - 2 * preview_y); @@ -165,9 +170,9 @@ begin --~magic.menu (0, 0, true); --~might.menu (0, 0, true); -- - menu_render; + --~menu_render; -- - ui.write (menu_count'image, 16, 16); + --~ui.write (menu_count'image, 16, 16); -- ui.draw_text_box (0, core.window_height - 32, core.window_width, 32); end loop gameplay; diff --git a/source/might.adb b/source/might.adb index 3417812..c75adbc 100644 --- a/source/might.adb +++ b/source/might.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, ui, effect, might; use might; diff --git a/source/might.ads b/source/might.ads index bc6b57d..1bee754 100644 --- a/source/might.ads +++ b/source/might.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, effect; package might is diff --git a/source/resource.adb b/source/resource.adb index 7f6c0a2..b2d8c5a 100644 --- a/source/resource.adb +++ b/source/resource.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, ui, resource; use resource; diff --git a/source/resource.ads b/source/resource.ads index e78fe28..9c8bd5d 100644 --- a/source/resource.ads +++ b/source/resource.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core; package resource is diff --git a/source/skill.adb b/source/skill.adb index 8501573..42ff88b 100644 --- a/source/skill.adb +++ b/source/skill.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, ui, skill; use skill; diff --git a/source/skill.ads b/source/skill.ads index c88224e..7ed2530 100644 --- a/source/skill.ads +++ b/source/skill.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core; package skill is diff --git a/source/ui.adb b/source/ui.adb index 1bc4e86..4b869f0 100644 --- a/source/ui.adb +++ b/source/ui.adb @@ -1,4 +1,8 @@ - with core, ui; +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + +with core, ui; use ui; @@ -90,7 +94,7 @@ package body ui is procedure configure is procedure load_ui (index : in style; folder_path : in string) is begin - glyphs (index) := core.import_glyphs ("./sprite/ui/" & folder_path & "/font.png", 24, 0); + glyphs (index) := core.import_glyphs ("./sprite/ui/" & folder_path & "/font.png", (if index = default then 16 else 24), 0); -- for this in codex loop diff --git a/source/ui.ads b/source/ui.ads index a938e40..1beb46b 100644 --- a/source/ui.ads +++ b/source/ui.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core; package ui is diff --git a/source/unit.adb b/source/unit.adb index 797700c..73d7bec 100644 --- a/source/unit.adb +++ b/source/unit.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, ui, effect, attribute, faction, unit; use unit; diff --git a/source/unit.ads b/source/unit.ads index f40b6d0..262b8e7 100644 --- a/source/unit.ads +++ b/source/unit.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, effect, attribute, faction; package unit is diff --git a/source/world.adb b/source/world.adb index eccf2cf..680f03b 100644 --- a/source/world.adb +++ b/source/world.adb @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with ada.strings.fixed; with core, resource, item, unit, construction, world; diff --git a/source/world.ads b/source/world.ads index eca7684..a68d04e 100644 --- a/source/world.ads +++ b/source/world.ads @@ -1,3 +1,7 @@ +-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic +-- +-- GNU General Public Licence (version 3 or later) + with core, resource, item, unit, construction; package world is