[Pyro]

Например [0.5, 0.25, 0.2, 0.05]

можно заполнить массив [0..99] of byte: 50-нулей, 25-1, 20-2, 5-3
и выбрать из этого массива случайный элемент, это и будет индекс события