1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129 | with Ada.Strings.Wide_Wide_Unbounded; use Ada.Strings.Wide_Wide_Unbounded;
with Ada.Numerics.Elementary_Functions; use Ada.Numerics.Elementary_Functions;
with SystemDatentypen;
with ForschungKonstanten;
with StadtDatentypen;
with KartenDatentypen;
with KartenverbesserungDatentypen;
with TextKonstanten;
with SpeziesDatentypen;
with ForschungenDatentypen;
with ProduktionDatentypen;
with StadtRecords;
with KampfDatentypen;
with SpeziesKonstanten;
with KIDatentypen;
package StadtKonstanten is
pragma Elaborate_Body;
LeerNummer : constant StadtDatentypen.Städtebereich := StadtDatentypen.Städtebereich'First;
-- Wieso ist diese Recordkonstante hier und nicht bei den Recordkonstanten? äöü
-- Weil es in RecordKonstanten auch ein LeerStadt gibt, welches aber den Stadtrecord darstellt. äöü
LeerStadt : constant StadtRecords.SpeziesStadtnummerRecord := (SpeziesKonstanten.LeerSpezies, LeerNummer);
AnfangNummer : constant StadtDatentypen.StädtebereichVorhanden := StadtDatentypen.StädtebereichVorhanden'First;
LeerID : constant KartenverbesserungDatentypen.Verbesserung_Stadt_ID_Enum := KartenverbesserungDatentypen.Leer_Verbesserung_Enum;
LeerEinwohner : constant StadtDatentypen.Einwohner := 0;
LeerArbeiter : constant StadtDatentypen.Einwohner := 0;
LeerEinwohnerArbeiter : constant StadtRecords.EinwohnerArbeiterArray := (LeerEinwohner, LeerArbeiter);
LeerNahrungsmittel : constant ProduktionDatentypen.StadtLagermenge := 0;
LeerNahrungsproduktion : constant ProduktionDatentypen.Stadtproduktion := 0;
LeerMaterial : constant ProduktionDatentypen.StadtLagermenge := 0;
LeerProduktionrate : constant ProduktionDatentypen.Stadtproduktion := 0;
LeerGeldgewinnung : constant ProduktionDatentypen.Stadtproduktion := 0;
LeerPermanenteKosten : constant ProduktionDatentypen.Stadtproduktion := 0;
LeerForschungsrate : constant ProduktionDatentypen.Stadtproduktion := 0;
LeerBauprojekt : constant StadtRecords.BauprojektRecord := (0, 0);
LeerBauzeit : constant ProduktionDatentypen.Produktion := 0;
LeerKorruption : constant ProduktionDatentypen.Stadtproduktion := 0;
LeerZufriedenheit : constant ProduktionDatentypen.ZufriedenheitVorhanden := ProduktionDatentypen.ZufriedenheitVorhanden'First;
LeerGebäude : constant Boolean := False;
LeerName : constant Unbounded_Wide_Wide_String := TextKonstanten.LeerUnboundedString;
LeerUmgebungBewirtschaftet : constant Boolean := False;
LeerUmgebungGröße : constant KartenDatentypen.UmgebungsbereichDrei := 0;
LeerMeldung : constant StadtDatentypen.Stadt_Meldung_Enum := StadtDatentypen.Leer_Stadt_Meldung_Enum;
LeerKIBeschäftigung : constant KIDatentypen.Stadt_Aufgabe_Enum := KIDatentypen.Keine_Aufgabe_Enum;
Stadtkartengröße : constant KartenDatentypen.KartenfeldPositiv := KartenDatentypen.KartenfeldPositiv (Float'Ceiling (Sqrt (X => Float (StadtDatentypen.GebäudeIDVorhanden'Last))));
MaximaleBauzeit : constant ProduktionDatentypen.Produktion := ProduktionDatentypen.Produktion'Last;
LeerGebäudeID : constant StadtDatentypen.GebäudeID := 0;
LeerGebäudeBenötigt : constant Boolean := False;
LeerPreisGeld : constant ProduktionDatentypen.Produktion := 0;
LeerPreisRessourcen : constant ProduktionDatentypen.Produktion := 0;
LeerAnforderungen : constant ForschungenDatentypen.ForschungIDUnmöglich := ForschungKonstanten.ForschungUnmöglich;
LeerBonusWirtschaft : constant ProduktionDatentypen.Feldproduktion := 0;
LeerBonusKampf : constant KampfDatentypen.KampfwerteEinheiten := KampfDatentypen.KampfwerteEinheiten'First;
LeerBasisgrundBenötigt : constant Boolean := False;
LeerZusatzgrundBenötigt : constant Boolean := False;
LeerFlussBenötigt : constant Boolean := False;
LeerRessourceBenötigt : constant Boolean := False;
LeerVerbesserungBenötigt : constant Boolean := False;
LeerWegBenötigt : constant Boolean := False;
LeerEbeneBenötigt : constant Boolean := False;
LeerSpezielleEigenschaft : constant StadtDatentypen.Gebäude_Spezielle_Eigenschaften_Enum := StadtDatentypen.Leer_Gebäude_Spezielle_Egienschaft_Enum;
BaumenüGebäude : constant Positive := 1;
BaumenüEinheiten : constant Positive := 2;
-- Das auch so ändern dass es davon einen Standardwert und einen einstellbaren Wert gibt. äöü
type StadtUmgebungWachstumArray is array (SystemDatentypen.Anfang_Ende_Enum'Range, SpeziesDatentypen.Spezies_Vorhanden_Enum'Range) of StadtDatentypen.Einwohner;
StadtUmgebungWachstum : constant StadtUmgebungWachstumArray := (
SystemDatentypen.Anfangswert_Enum =>
(
SpeziesDatentypen.Menschen_Enum => 10,
SpeziesDatentypen.Kasrodiah_Enum => 10,
SpeziesDatentypen.Lasupin_Enum => 10,
SpeziesDatentypen.Lamustra_Enum => 10,
SpeziesDatentypen.Manuky_Enum => 10,
SpeziesDatentypen.Suroka_Enum => 10,
SpeziesDatentypen.Pryolon_Enum => 10,
SpeziesDatentypen.Talbidahr_Enum => 10,
SpeziesDatentypen.Moru_Phisihl_Enum => 10,
SpeziesDatentypen.Larinos_Lotaris_Enum => 10,
SpeziesDatentypen.Carupex_Enum => 10,
SpeziesDatentypen.Alary_Enum => 10,
SpeziesDatentypen.Tesorahn_Enum => 10,
SpeziesDatentypen.Natries_Zermanis_Enum => 10,
SpeziesDatentypen.Tridatus_Enum => 10,
SpeziesDatentypen.Senelari_Enum => 10,
SpeziesDatentypen.Aspari_2_Enum => 10,
SpeziesDatentypen.Ekropa_Enum => 10
),
SystemDatentypen.Endwert_Enum =>
(
SpeziesDatentypen.Menschen_Enum => 20,
SpeziesDatentypen.Kasrodiah_Enum => 20,
SpeziesDatentypen.Lasupin_Enum => 20,
SpeziesDatentypen.Lamustra_Enum => 20,
SpeziesDatentypen.Manuky_Enum => 20,
SpeziesDatentypen.Suroka_Enum => 20,
SpeziesDatentypen.Pryolon_Enum => 20,
SpeziesDatentypen.Talbidahr_Enum => 20,
SpeziesDatentypen.Moru_Phisihl_Enum => 20,
SpeziesDatentypen.Larinos_Lotaris_Enum => 20,
SpeziesDatentypen.Carupex_Enum => 20,
SpeziesDatentypen.Alary_Enum => 20,
SpeziesDatentypen.Tesorahn_Enum => 20,
SpeziesDatentypen.Natries_Zermanis_Enum => 20,
SpeziesDatentypen.Tridatus_Enum => 20,
SpeziesDatentypen.Senelari_Enum => 20,
SpeziesDatentypen.Aspari_2_Enum => 20,
SpeziesDatentypen.Ekropa_Enum => 20
)
);
end StadtKonstanten;
|