Рандом Варкрафта и Абилки с шансом

GetLocalPlayer:

Потому что 20%, это как никак, но раз за 5 ударов должно пройти.
Не должно. Случайность в текущий удар не должна оказывать влияния на случайность в последующий. Случайность на то и случайность.

Хорошо, тут я немного перегнул в начале, с этими 5 ударами, но за 10-20 ударов 20%шанс должен сработать, ибо если реже это уже бред, а ни как там выше про 10000000 писали, да и 20 даже для 20% шанса это много уже, это как исключение можно уже рассматривать

Другой вопрос в том, что ты эту случайность хочешь контролировать, фактически, делая ее не случайной. Но почему-то не хочешь себе в этом признаваться.

Ну при чём тут контролировать) Я же описал ситуацию

Совсем куда смешнее ситуация была, когда были две разные абилки, у двух разных героев, и тот у кого была абилка с шансом 15%, срабатывала бывало чаще, чем например у того, у которого была абилка с шансом 30%. Напоминаю, всё та же ситуация, когда два героя одновременно бьют друг друга.

Я смотрю на этот вопрос с логической точки зрения
Вот допустим абилка срабатывающая со 100% шансом, он срабатывает каждый 1 раз
Чисто логически абилка с 50% шансом должна срабатывать каждый 2 раз. Но это рандом и мы понимаем, что она Либо сработает 2 раза подряд, потом 2 раза не сработает, либо сработает 1 раз, потом 1 не сработает, либо сработает 3 раза и 3 не сработает, и так будет повторяться. Но, то что абилка с 50% шансом не сработает на 5 удар, например, уже смотрится как-то подозрительно.
Дальше по этому рассуждения абилка с 33% шансом срабатывает каждый 3 удар
Абилка с 20% шансом срабатывает каждый 5 удар. Но опять же как в рассуждении про 50% шанс, тут может быть 10 ударов не сработавших, но потом например, сработают сразу 2 подряд, или сработает 1, потом второй нет и так, например 3 раза подряд. Тут уже достаточно большой разброс.

Proshel_Doty, если ты хочешь не псевдо-рандом, а "рандом нормальный", то при каждом ударе обсчитывай шанс триггерно:

Скопировать в буфер

if (GetRandomReal(1,100)>=20) then
    ...
endif

Proshel_Doty, выведи себе на экран n и убедись уже, что рандом работает как положено.

Скопировать в буфер

local real r
local integer i
local integer n
loop
    exitwhen i > 10000
    if (GetRandomReal(1,100)<20) then
        set n=n+1
    endif
    set i = i+1
endloop

Proshel_Doty, ты протестируй сначала. Потому что на данный момент, ты не понимаешь о чем говоришь.
Вот когда увидишь наглядно, что все работает как положено - тогда возвращайся с вопросами.

Proshel_Doty, то, что я тебе скинул. Я не знаю о каких тестах ты говоришь.