Ultima Online Antares

sub test999()
var c
DIM R[56]

R[1] = '0x0F26' # Granates
R[2] = '0x0F25' # Ambers
R[3] = '0x0F13' # Rubys
R[4] = '0x0F11' # Sapphires
R[5] = '0x0F18' # Tourmalines
R[6] = '0x0F15' # Citrines
R[7] = '0x0F10' # Emeralds
R[8] = '0x0F16' # Amethysts
R[9] = '0x0F26' # Diamonds

R[10] = '0x0F80'; Демон_Кости
R[11] = '0x0F7E'; Эльвен_кости
R[12] = '0x1F64'; Полиморфы
R[13] = '0x0E37'; Маленькие_рег_Паки
R[14] = '0x0F7D'; Виал_оф_блуд
R[15] = '0x0F91'; Вирм_сердца
R[16] = '0x0F89'; Обсидианы
R[17] = '0x0F8F'; Вулканик_Эш
R[18] = '0x0F90'; Дедвуды
R[19] = '0x1BD1'; Перья
R[20] = '0x1F71'; Свитки_галюцинации
R[21] = '0x0E34'; Пустые_скролы
R[22] = '0x0F8E'; Серпент_скаилс
R[23] = '0x0F87'; Глазки
R[24] = '0x0F79'; Блекмор
R[25] = '0x0F83'; Экзекуционер_кап
R[26] = '0x0F7F'; Бримстоны
R[27] = '0x0F7C'; Блуд_спавн
R[28] = '0x0F81'; Фертаил_дирт
R[29] = '0x0F78'; Батвинги
R[30] = '0x0F82'; Драгон_блуд
R[31] = '0x0F8B'; Пумписы
R[32] = '0x0F8A'; Пиг_айрон

R[33] = '0x09B5'; Яйца
R[34] = '0x0F83'; Сердца_орков_гоблинов

R[35] = '0x09F1'; Мяски
R[36] = '0x09B9'; Рав_бирдс
R[37] = '0x1607'; Чикен_легс

R[38] = '0x1BDD'; Одно_дерево
R[39] = '0x1BDD'; Много_деревьев

R[40] = '0x1067'; Кожа

R[41] = '0x19B7'; 1_руда
R[42] = '0x19BA'; 2_руды
R[43] = '0x19B8'; 3_руды
R[44] = '0x19B9'; 4_руды

R[45] = '0x1045'; Мука
R[46] = '0x0994'; Pear
R[47] = '0x0C6A'; Тыква
R[48] = '0x0C77'; Морковка
R[49] = '0x171F'; Бананы
R[50] = '0x0C5C'; Арбуз
R[51] = '0x0C66'; Хопс_конес
R[52] = '0x09D1'; Грап_банчес
R[53] = '0x0C64'; Елов_гоурдс
R[54] = '0x0C72'; Скваш
R[55] = '0x0C7F'; Кукуруза
R[56] = '0x0C74'; Хоневдев_мелон

VAR Sunduk1 = '0x4038ABCA'; Откуда брать
VAR Sunduk2 = '0x40FF46DB'; Сундук для кожи
VAR Sunduk3 = '0x40FF46A9'; Сундук для камней
VAR Sunduk4 = '0x40FF470F'; Сундук для масок
VAR Sunduk5 = '0x40FF44E2'; Сундук для реагентов
VAR Sunduk6 = '0x40FF4769'; Сундук для руды
VAR Sunduk7 = '0x40FF4682'; Сундук для дерева
VAR Sunduk8 = '0x40FF458C'; Сундук для квестовых штук
VAR Sunduk9 = '0x40FF46EF'; Сундук для жратвы
uo.useobject(Sunduk1)
  wait(1000)
uo.useobject(Sunduk2)
  wait(1000)
uo.useobject(Sunduk3)
  wait(1000)
uo.useobject(Sunduk4)
  wait(1000)
uo.useobject(Sunduk5)
  wait(1000)
uo.useobject(Sunduk6)
  wait(1000)
uo.useobject(Sunduk7)
  wait(1000)
uo.useobject(Sunduk8)
  wait(1000)
uo.useobject(Sunduk9)
  wait(1000)
for c=1 to 9
  UO.FindType(R[c],"0",Sunduk1)
  if UO.FindCount()>0 Then
repeat
     UO.MoveItem("finditem","0",Sunduk3)
          wait(1000)
  UO.FindType(R[c],"0",Sunduk1)
until not UO.FindCount()
  Endif
next
for c=10 to 32
  UO.FindType(R[c],"0",Sunduk1)
  if UO.FindCount()>0 Then
repeat
     UO.MoveItem("finditem","0",Sunduk5)
          wait(1000)
  UO.FindType(R[c],"0",Sunduk1)
until not UO.FindCount()
  Endif
next
for c=33 to 34
  UO.FindType(R[c],"0",Sunduk1)
  if UO.FindCount()>0 Then
repeat
     UO.MoveItem("finditem","0",Sunduk8)
          wait(1000)
  UO.FindType(R[c],"0",Sunduk1)
until not UO.FindCount()
  Endif
next
for c=35 to 37
  UO.FindType(R[c],"0",Sunduk1)
  if UO.FindCount()>0 Then
repeat
     UO.MoveItem("finditem","0",Sunduk4)
          wait(1000)
  UO.FindType(R[c],"0",Sunduk1)
until not UO.FindCount()
  Endif
next
for c=38 to 39
  UO.FindType(R[c],"0",Sunduk1)
  if UO.FindCount()>0 Then
repeat
     UO.MoveItem("finditem","0",Sunduk7)
          wait(1000)
  UO.FindType(R[c],"0",Sunduk1)
until not UO.FindCount()
  Endif
next
for c=40 to 40
  UO.FindType(R[c],"0",Sunduk1)
  if UO.FindCount()>0 Then
repeat
     UO.MoveItem("finditem","0",Sunduk2)
          wait(1000)
  UO.FindType(R[c],"0",Sunduk1)
until not UO.FindCount()
  Endif
next
for c=41 to 44
  UO.FindType(R[c],"0",Sunduk1)
  if UO.FindCount()>0 Then
repeat
     UO.MoveItem("finditem","0",Sunduk6)
          wait(1000)
  UO.FindType(R[c],"0",Sunduk1)
until not UO.FindCount()
  Endif
next
for c=45 to 56
  UO.FindType(R[c],"0",Sunduk1)
  if UO.FindCount()>0 Then
repeat
     UO.MoveItem("finditem","0",Sunduk9)
          wait(1000)
  UO.FindType(R[c],"0",Sunduk1)
until not UO.FindCount()
  Endif
next
      uo.print(' -= Done =- ')
End sub