Распределение случайностей Опции

[d`ArcZeal]

Доброго времени суток.

Стоит задача:
При клике на предмет выдается что-то одно из:
С 15% случайное оружее
С 20% случайная часть доспеха
С 20% случайный реагент
С 25% случайное зелье
Если ничего из этого не выпало, то выдается 1 Bandage

Код

LOCAL.HELL_QUEST_CHEST_GEN=<R100>
IF (15 > <DLOCAL.HELL_QUEST_CHEST_GEN>)
SERV.NEWITEM=I_RANDOM_WEAPON
ELIF (35 > <DLOCAL.HELL_QUEST_CHEST_GEN>)
SERV.NEWITEM=I_RANDOM_ARMOR
ELIF (55 > <DLOCAL.HELL_QUEST_CHEST_GEN>)
SERV.NEWITEM=I_RANDOM_REAGENT
ELIF (80 > <DLOCAL.HELL_QUEST_CHEST_GEN>)
SERV.NEWITEM=I_RANDOM_BOTTLE
ELSE
SERV.NEWITEM=I_BANDAGE
ENDIF

Если все верно логике, то как-то иначе, понятнее, расписать алгоритм рандома есть предложения?

[Sirocco]

Код

local.count = 3
local.func1 = dropОружие
local.chance1 = 15
local.func2 = dropДоспех
local.chance2 = 20
local.func3 = dropРеагент
local.chance3 = 20

local.failfunc = dropБинты

call f_check_lootchance

[FUNCTION f_check_lootchance]
for i 1 <local.count>
  local.check = <f_check_dropchance <dlocal.i> <local.chance<dlocal.i>>>
  if <local.check>
    local.arraycount += 1
    local.array_<dlocal.arraycount> = <local.check>
  endif
endfor
if <local.arraycount>
  local.result = <eval({1 <local.arraycount>})>
  try <local.func<dlocal.array_<dlocal.result>>>
else
  try <local.failfunc>
endif


[FUNCTION f_check_dropchance]
if rand(100) <= <argn2>
  return <argn1>
else
  return 0

тоже самое можно было бы сделать покороче через {}, или через LIST
Например так

Код

[FUNCTION f_check_lootchance]
local.array = ""
for i 1 <local.count>
    local.check = <f_check_dropchance <dlocal.i> <local.chance<dlocal.i>>>
    if <local.check>
        local.array = <qval <local.success>?<local.array> <local.check> 1:<local.check> 1>
        local.success = 1
    endif
endfor
if <local.success>
    local.result = <eval({<local.array>})>
    try <local.func<dlocal.result>>
else
    try <local.failfunc>
endif