sub biza()
Dim bizaS[4] # старая бижутерия #
bizaS[0] = '0x0000' # амулет    #
bizaS[1] = '0x0000' # браслет   #
bizaS[2] = '0x0000' # серьги    #
bizaS[3] = '0x0000' # кольцо    #
var bizaScol = '0x0000' # цвет старой бижи #
Dim bizaP[4] # бижа с поушен эффектом #
bizaP[0] = '0x0000' # амулет    #
bizaP[1] = '0x0000' # браслет   #
bizaP[2] = '0x0000' # серьги    #
bizaP[3] = '0x0000' # кольцо    #
var bizaPcol = '0x0000' # цвет поушен бижи #
var strn = '0x0000'  # тип бутылки стр #
var strncol = '0x0000' # цвет бутылки стр #
var dex = '0x0000'  # тип бутылки декс #
var dexcol = '0x0000' # цвет бутылки декс #
var i
for i = 0 to 3
    uo.findtype(bizaP[i], bizaPcol, 'backpack')
    if uo.FindCount() then
        uo.usetype(bizaP[i], bizaPcol) 
        wait(10)
    else
        uo.Print('You havent this item')
    end if   
next
uo.Print ('Odeli Poushen bizu')
uo.findtype(strn, strncol, 'backpack')
if uo.FindCount() then
    uo.usetype(strn, strncol) 
    wait(10)
    uo.Print('Vipili str')
else
    uo.Print('You havent str bottles')
end if    
uo.findtype(dex, dexcol, 'backpack')
if uo.FindCount() then
    uo.usetype(dex, dexcol) 
    wait(10)   
    uo.Print('Vipili dex')
else
    uo.Print('You havent dex bottles')
end if
wait (500)
for i = 0 to 3
    uo.findtype(bizaS[i], bizaScol, 'backpack')
    if uo.FindCount() then
        uo.usetype(bizaS[i], bizaScol) 
        wait(10)
    else
        uo.Print('You havent this item')
    end if   
next
uo.Print ('Odeli staruu bizu')
uo.Print ('Done')
end sub