Delphi-Quellcode:
propability : Array [0..8] if double = (1,2,4,8,16,32,64,128,256,-1)
[...]
if random(propability[level])=0 then
Beim ersten Aufruf ist die Wahrscheinlichkeit 50%, danach 25% usw. Du kannst das Array anpassen, wie Du willst.
Entschuldige, wenn ich so blöd frage, aber ist im zweiten Durchlauf nach Deinem Array die Wahrscheinlichkeit nicht 50%, anstatt, wie Du sagtest 25% und im ersten Durchlauf wäre die Wahrscheinlichkeit doch 100%?
y := Random(x)
liefert doch Zahlen im Bereich 0 <= y < x
Müsste das Array nicht so lauten, wenn sich die Wahrscheinlichkeit pro Level immer halbieren soll
propability : Array [0..8] if double = (2,5,9,17,33,65,129,257,-1)