89 lines
2.8 KiB
Ada
89 lines
2.8 KiB
Ada
-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
|
|
--
|
|
-- GNU General Public Licence (version 3 or later)
|
|
|
|
with core, ui, attribute, skill, resource, material, lore, biome, landmark, location, faction, equipment, unit, construction, chad, effect;
|
|
|
|
use type core.cursor_code;
|
|
use type core.signal_code;
|
|
use type core.point;
|
|
|
|
package world is
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
type entity is record
|
|
index : natural;
|
|
state : natural;
|
|
x, y : integer;
|
|
end record;
|
|
|
|
type integer_matrix is array (natural range <>, natural range <>) of integer;
|
|
type boolean_matrix is array (natural range <>, natural range <>) of boolean;
|
|
type entity_array is array (natural range <>) of entity;
|
|
|
|
type definition is record
|
|
kind : biome.enumeration;
|
|
width : natural;
|
|
height : natural;
|
|
chad_count : natural;
|
|
chad_limit : natural;
|
|
tiles : access integer_matrix;
|
|
clips : access boolean_matrix;
|
|
views : access boolean_matrix;
|
|
landmarks : access landmark.informations;
|
|
locations : access location.informations;
|
|
constructions : access entity_array;
|
|
equipments : access entity_array;
|
|
units : access entity_array;
|
|
chads : access chad.informations;
|
|
end record;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
map : definition;
|
|
|
|
show_unit_data : unit.enumeration := unit.none;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
procedure configure;
|
|
|
|
function equipment_valid (data : in equipment.enumeration) return boolean;
|
|
|
|
procedure make (index : in biome.enumeration; width, height, chad_limit : in natural);
|
|
|
|
procedure save (file_name : in string);
|
|
procedure load (file_name : in string);
|
|
|
|
procedure draw;
|
|
|
|
procedure draw_performance_box;
|
|
|
|
procedure mapshot (file_path : in string);
|
|
|
|
function map_is_revealed return boolean;
|
|
|
|
procedure add_chad (data : in chad.information);
|
|
|
|
procedure draw_unit (data : in unit.enumeration; state : in core.animation; x, y, factor : in integer);
|
|
procedure show_unit;
|
|
|
|
procedure resource_cheat_1;
|
|
procedure resource_cheat_2;
|
|
procedure resource_cheat_3;
|
|
procedure resource_cheat_4;
|
|
procedure resource_cheat_5;
|
|
procedure resource_cheat_6;
|
|
procedure reveal_map;
|
|
procedure restore_points;
|
|
|
|
procedure player_up;
|
|
procedure player_down;
|
|
procedure player_left;
|
|
procedure player_right;
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
end world;
|