Spoiler:
function Vr takes nothing returns nothing
local integer pickedItemId
local itemtype Er
local integer Xr=0
local integer Rr=0
local integer nr
set nr=1
loop
if(bj_stockAllowedPermanent[nr])then
set Rr=Rr+1
if(GetRandomInt(1,Rr)==1)then
set Er=ITEM_TYPE_PERMANENT
set Xr=nr
endif
endif
if(bj_stockAllowedCharged[nr])then
set Rr=Rr+1
if(GetRandomInt(1,Rr)==1)then
set Er=ITEM_TYPE_CHARGED
set Xr=nr
endif
endif
if(bj_stockAllowedArtifact[nr])then
set Rr=Rr+1
if(GetRandomInt(1,Rr)==1)then
set Er=ITEM_TYPE_ARTIFACT
set Xr=nr
endif
endif
set nr=nr+1
exitwhen nr>$udg_location01
endloop
if(Rr==0)then
set Er=null
return
endif
call ir(Er,Xr)
set Er=null
endfunction
local integer pickedItemId
local itemtype Er
local integer Xr=0
local integer Rr=0
local integer nr
set nr=1
loop
if(bj_stockAllowedPermanent[nr])then
set Rr=Rr+1
if(GetRandomInt(1,Rr)==1)then
set Er=ITEM_TYPE_PERMANENT
set Xr=nr
endif
endif
if(bj_stockAllowedCharged[nr])then
set Rr=Rr+1
if(GetRandomInt(1,Rr)==1)then
set Er=ITEM_TYPE_CHARGED
set Xr=nr
endif
endif
if(bj_stockAllowedArtifact[nr])then
set Rr=Rr+1
if(GetRandomInt(1,Rr)==1)then
set Er=ITEM_TYPE_ARTIFACT
set Xr=nr
endif
endif
set nr=nr+1
exitwhen nr>$udg_location01
endloop
if(Rr==0)then
set Er=null
return
endif
call ir(Er,Xr)
set Er=null
endfunction
How to fix?
