xhads/source/effect.ads

35 lines
1.1 KiB
Ada
Raw Normal View History

2024-02-15 21:03:09 -05:00
with core;
package effect is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type codex is (
none, one
);
------------------------------------------------------------------------------------------
type information is
record
name : core.short_string;
make : boolean;
end record;
type trait_array is array (codex) of information;
------------------------------------------------------------------------------------------
trait : constant trait_array := (
("- ", true),
("- ", true)
);
------------------------------------------------------------------------------------------
procedure draw (value : in codex; x, y : in integer);
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end effect;