function wB takes nothing returns nothing
	local integer pickedItemId
	local itemtype WB
	local integer yB=0
	local integer YB=0
	local integer UB
	set UB=1
	loop
		if(bj_stockAllowedPermanent[UB])then
			set YB=YB+1
			if(GetRandomInt(1,YB)==1)then
				set WB=ITEM_TYPE_PERMANENT
				set yB=UB
			endif
		endif
		if(bj_stockAllowedCharged[UB])then
			set YB=YB+1
			if(GetRandomInt(1,YB)==1)then
				set WB=ITEM_TYPE_CHARGED
				set yB=UB
			endif
		endif
		if(bj_stockAllowedArtifact[UB])then
			set YB=YB+1
			if(GetRandomInt(1,YB)==1)then
				set WB=ITEM_TYPE_ARTIFACT
				set yB=UB
			endif
		endif
		set UB=UB+1

                // здесь ошибка
		exitwhen UB>$udg_strings01

	endloop
	if(YB==0)then
		set WB=null
		return
	endif
	call TB(WB,yB)
	set WB=null