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; |