Warum nicht einfach:
Delphi-Quellcode:
x:=Random(2000);
if x < 20 then Level:=5 else //0..19, kommt sicher recht selten vor
if x < 100 then Level:=4 else //20..99, kann schon etwas öfter passieren
if x < 300 then Level:=3 else //100..299, noch öfter
if x < 800 then Level:=2 else //300..799, schon relativ großer Bereich
Level:=1; //800 .. 1999, größter Bereich, hier wirds wohl die meisten Treffer geben
Ist zwar alles etwas willkürlich gewählt, aber es wäre eine Möglichkeit.
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
