honki_tonks_zivilisationen_0.5.5305_cfbe2104/src/Logik/Zufallsgeneratoren/ZufallsgeneratorenKampfLogik.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
private with Ada.Numerics.Discrete_Random;

with KampfDatentypen;

private with BewertungDatentypen;

package ZufallsgeneratorenKampfLogik is
   pragma Elaborate_Body;

   function ErreichteErfolge
     (WürfelanzahlExtern : in KampfDatentypen.Kampfwerte)
      return Natural;

private

   LeerErfolge : constant Natural := 0;
   AnzahlErfolge : Integer;

   package Würfel is new Ada.Numerics.Discrete_Random (Result_Subtype => BewertungDatentypen.Bewertung_Enum);

   Würfelwurf : Würfel.Generator;

end ZufallsgeneratorenKampfLogik;