Code: Select all
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