honki_tonks_zivilisationen_0.5.5305_cfbe2104/src/Globales/GlobaleRecords/SpielRecords.ads

  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
with Ada.Strings.Wide_Wide_Unbounded; use Ada.Strings.Wide_Wide_Unbounded;

with StadtDatentypen;
with EinheitenDatentypen;
with ForschungenDatentypen;
with ProduktionDatentypen;
with ZahlenDatentypen;
with SpeziesDatentypen;
with SpielDatentypen;
with DiplomatieDatentypen;

package SpielRecords is
   pragma Preelaborate;
   
   type InvestierteForschungArray is array (ForschungenDatentypen.ErforschtArray'Range) of ProduktionDatentypen.Produktion;
   
   type ForschungRecord is record -- XXX
      
      TechnologieErforscht : ForschungenDatentypen.ErforschtArray;
      InvestierteForschung : InvestierteForschungArray;
      
   end record;
   
   

   type WichtigesRecord is record
      
      Geldmenge : ZahlenDatentypen.EigenerInteger;
      GeldZugewinnProRunde : ProduktionDatentypen.Produktion;

      GesamteForschungsrate : ProduktionDatentypen.Lagermenge;
      Forschungsmenge : ProduktionDatentypen.Lagermenge;
      VerbleibendeForschungszeit : ProduktionDatentypen.Lagermenge;
      Forschungsprojekt : ForschungenDatentypen.ForschungID;
      
      -- Wenn ich ein Record für diese Variable hier anlege, dann könnten man die bereits investierte Forschung behalten. XXX
      Erforscht : ForschungenDatentypen.ErforschtArray;
      
      AnzahlStädte : StadtDatentypen.Städtebereich;
      AnzahlArbeiter : EinheitenDatentypen.Einheitenbereich;
      AnzahlKämpfer : EinheitenDatentypen.Einheitenbereich;
      AnzahlSonstiges : EinheitenDatentypen.Einheitenbereich;
      
      -- Einbau sinnvoll?
      -- GesamterAngriff : ProduktionDatentypen.Produktion;
      -- GesamteVerteidigung : ProduktionDatentypen.Produktion;
      
   end record;
   
   
   
   type DiplomatieRecord is record
      
      AktuellerZustand : DiplomatieDatentypen.Status_Untereinander_Enum;
      AktuelleSympathieBewertung : DiplomatieDatentypen.Meinung;
      ZeitSeitLetzterÄnderung : ZahlenDatentypen.EigenesNatural;
      
   end record;
   
   
   
   type GrenzenRecord is record
      
      Städtegrenze : StadtDatentypen.Städtebereich;
      Einheitengrenze : EinheitenDatentypen.EinheitenbereichVorhanden;
      Geldgrenze : ZahlenDatentypen.EigenesNatural;
      Forschungsgrenze : ProduktionDatentypen.Lagermenge;
      Geldgewinngrenze : ProduktionDatentypen.Lagermenge;
      ForschungGewinngrenze : ProduktionDatentypen.Lagermenge;
      SpeziesRundengrenze : ZahlenDatentypen.EigenesNatural;
      
   end record;
   
   
   
   type AllgemeinesRecord is record
      
      Gewonnen : Boolean;
      Weiterspielen : Boolean;
      SpeziesAmZugNachLaden : SpeziesDatentypen.Spezies_Enum;
      Schwierigkeitsgrad : SpielDatentypen.Schwierigkeitsgrad_Enum;
      Rundenanzahl : ZahlenDatentypen.EigenesPositive;
      Rundengrenze : ZahlenDatentypen.EigenesNatural;   
      IronmanName : Unbounded_Wide_Wide_String;
      PlanetVernichtet : SpeziesDatentypen.Spezies_Enum;
      Zusammenbruchszeit : ZahlenDatentypen.EigenerInteger;
      AnzahlEingesetzterPZB : ZahlenDatentypen.EigenesNatural;
      
   end record;
   
   
   
   type SpeziesRecords is record
      
      Belegung : SpeziesDatentypen.Spieler_Enum;
      Besiegt : Boolean;
      
   end record;
   
   type SpeziesbelegungArray is array (SpeziesDatentypen.Spezies_Vorhanden_Enum'Range) of SpeziesRecords;

end SpielRecords;