with Kartentexte;

-- Später die Beschreibungen noch um SpeziesExtern erweitern damit jede Spezies ihren eigenen Text haben kann? äöü
-- Gilt auch für alle anderen Beschreibungen die noch nicht Speziesspezifisch sind. äöü
package body KartenbeschreibungenGrafik is

   function KurzbeschreibungBasisgrund
     (KartenGrundExtern : in KartengrundDatentypen.Basisgrund_Vorhanden_Enum)
      return Unbounded_Wide_Wide_String
   is begin
   
      return Kartentexte.Basisgrund (2 * KartengrundDatentypen.Basisgrund_Vorhanden_Enum'Pos (KartenGrundExtern) - 1);
      
   end KurzbeschreibungBasisgrund;
   
   
   
   function LangbeschreibungBasisgrund
     (KartenGrundExtern : in KartengrundDatentypen.Basisgrund_Vorhanden_Enum)
      return Unbounded_Wide_Wide_String
   is begin
   
      return Kartentexte.Basisgrund (2 * KartengrundDatentypen.Basisgrund_Vorhanden_Enum'Pos (KartenGrundExtern));
      
   end LangbeschreibungBasisgrund;
   


   function KurzbeschreibungZusatzgrund
     (KartenGrundExtern : in KartengrundDatentypen.Zusatzgrund_Vorhanden_Enum)
      return Unbounded_Wide_Wide_String
   is begin
   
      return Kartentexte.Zusatzgrund (2 * KartengrundDatentypen.Zusatzgrund_Vorhanden_Enum'Pos (KartenGrundExtern) - 1);
      
   end KurzbeschreibungZusatzgrund;
   


   function LangbeschreibungZusatzgrund
     (KartenGrundExtern : in KartengrundDatentypen.Zusatzgrund_Vorhanden_Enum)
      return Unbounded_Wide_Wide_String
   is begin
   
      return Kartentexte.Zusatzgrund (2 * KartengrundDatentypen.Zusatzgrund_Vorhanden_Enum'Pos (KartenGrundExtern));
      
   end LangbeschreibungZusatzgrund;
   
   
   
   function KurzbeschreibungFluss
     (KartenFlussExtern : in KartenextraDatentypen.Fluss_Vorhanden_Enum)
      return Unbounded_Wide_Wide_String
   is begin
      
      return Kartentexte.Flüsse (2 * KartenextraDatentypen.Fluss_Vorhanden_Enum'Pos (KartenFlussExtern) - 1);
      
   end KurzbeschreibungFluss;
   
   
   
   function LangbeschreibungFluss
     (KartenFlussExtern : in KartenextraDatentypen.Fluss_Vorhanden_Enum)
      return Unbounded_Wide_Wide_String
   is begin
      
      return Kartentexte.Flüsse (2 * KartenextraDatentypen.Fluss_Vorhanden_Enum'Pos (KartenFlussExtern));
      
   end LangbeschreibungFluss;
   
   
   
   function KurzbeschreibungRessource
     (KartenRessourceExtern : in KartenextraDatentypen.Ressourcen_Vorhanden_Enum)
      return Unbounded_Wide_Wide_String
   is begin
   
      return Kartentexte.Ressourcen (2 * KartenextraDatentypen.Ressourcen_Vorhanden_Enum'Pos (KartenRessourceExtern) - 1);
      
   end KurzbeschreibungRessource;
   
   
   
   function LangbeschreibungRessource
     (KartenRessourceExtern : in KartenextraDatentypen.Ressourcen_Vorhanden_Enum)
      return Unbounded_Wide_Wide_String
   is begin
   
      return Kartentexte.Ressourcen (2 * KartenextraDatentypen.Ressourcen_Vorhanden_Enum'Pos (KartenRessourceExtern));
      
   end LangbeschreibungRessource;
   
   
   
   function KurzbeschreibungFeldeffekte
     (FeldeffekteExtern : in KartenextraDatentypen.Effekt_Kartenfeld_Vorhanden_Enum)
      return Unbounded_Wide_Wide_String
   is begin
      
      return Kartentexte.Feldeffekte (2 * KartenextraDatentypen.Effekt_Kartenfeld_Vorhanden_Enum'Pos (FeldeffekteExtern) - 1);
      
   end KurzbeschreibungFeldeffekte;
   
   
   
   function LangbeschreibungFeldeffekte
     (FeldeffekteExtern : in KartenextraDatentypen.Effekt_Kartenfeld_Vorhanden_Enum)
      return Unbounded_Wide_Wide_String
   is begin
      
      return Kartentexte.Feldeffekte (2 * KartenextraDatentypen.Effekt_Kartenfeld_Vorhanden_Enum'Pos (FeldeffekteExtern));
      
   end LangbeschreibungFeldeffekte;

end KartenbeschreibungenGrafik;
