[56b] Взаимоисключение Опции

[d`ArcZeal]

Sphere 56b

Необходима функция которая отобразит любые уникальные 4 числа от 1 до 10.

А более конкретно стоит задача, чтобы при генерации предмета, он обладал 4-мя заготовленными бонусами из 10 возможных.

[Sirocco]

Это не тот случай где его надо избегать...

Код

[FUNCTION f_choose]
for i 1 4
    local.rand = {1 10}
    while (<local.num_<dlocal.rand>> == 1) && (<local._while> < 30)
        local.rand = {1 10}
    endwhile
    local.num_<dlocal.rand> = 1
    local.nums_<dlocal.i> = <dlocal.rand>
endfor
for m 1 4
    say @,,1 <dlocal.nums_<dlocal.m>>
endfor
say @,,1 ----------------------------