sub UnLoad()
   var cont = '0x40036DAC' ;ID sunduka
   var i
   DIM Item[3]

   Item[0]='0x0F11'
   Item[1]='0x0F16'
   Item[2]='0x0F18'
   Item[3]='0x0F15'
   Item[4]='0x0F10'
   Item[5]='0x0F0F'
   Item[6]='0x0F26'
   
while true
For n = 1 To 6
   UO.UseObject(cont)
   While TRUE
      UO.FindType(Item[i], -1, 'backpack')
      If UO.FindCount() Then
         UO.MoveItem('finditem',-1,cont)
      Endif
      Wait(1000)         
      If i==2 Then
         i=0
      Endif
   wend
end sub

Ore[4]=0x0F11 ; saphires
Ore[5]=0x0F16 ; amethysts
Ore[6]=0x0F18 ; tourmalines
Ore[7]=0x0F15 ; citrines
Ore[8]=0x0F10 ; emeralds
Ore[9]=0x0F0F ; star sapphires
Ore[10]=0x0F26 ; diamonds

sub UnLoad()
var cont = '0x40036DAC' ;ID sunduka
var i
DIM Item[7]

Item[0]='0x0F11'
Item[1]='0x0F16'
Item[2]='0x0F18'
Item[3]='0x0F15'
Item[4]='0x0F10'
Item[5]='0x0F0F'
Item[6]='0x0F26'
   
For n = 0 To 6
   UO.UseObject(cont)
   UO.FindType(Item[i], -1, 'backpack')
   while UO.FindCount() Then
      UO.MoveItem('finditem',-1,cont)
      Wait(1000)         
   wend
next
end sub

sub UnLoad() 
   var cont = '0x40036DAC' ;ID sunduka 
   var i 
   DIM Item[7] 

   Item[0]='0x0F11' 
   Item[1]='0x0F16' 
   Item[2]='0x0F18' 
   Item[3]='0x0F15' 
   Item[4]='0x0F10' 
   Item[5]='0x0F0F' 
   Item[6]='0x0F26' 
    

  UO.UseObject(cont) 
  for i=0 to 6
    UO.FindType(Item[i], '-1', 'backpack') 
    If UO.FindCount() Then 
      UO.MoveItem('finditem','-1',cont) 
      wait(750)
    Endif 
  next
end sub

sub UnLoad() 
   var cont = '0x40036DAC' ;ID sunduka 
   var i ; переменная i
   DIM Item[3] ; массив состоящий из трёх переменных

   Item[0]='0x0F11'  ;переменная "раз"
   Item[1]='0x0F16'  ;переменная "дваз"
   Item[2]='0x0F18'  ;переменная "триз"
   Item[3]='0x0F15'  ;а..?? ..эээ, так вродеж три переменных. 
;"Ашипка Аднако"
   Item[4]='0x0F10'  ;Ещё одна???
   Item[5]='0x0F0F'  ;кхм...
   Item[6]='0x0F26'  ; всё???
    
while true 
For n = 1 To 6 ;Цикл: -  для переменной n, задаем значение от 1 до 6.
;Хмм... А откуда взялась переменная n?
;Вроде зарезервировали только cont, i и несколько Item.
;Не-е, выдам "Ашипку"
   UO.UseObject(cont) ; "Юзаем" объект cont
   While TRUE ; О-о... бесконечное условие :)) ?
      UO.FindType(Item[i], -1, 'backpack') ; ищем объект по типу указанному в массиве
;Dim item[количество переменных в массиве, тоесть - 3]
;Так начинаем искать объект Item[i],
;так как для переменной i нет ни каких инструкций,
;то и ни чего, и не найдём... или какую-нибудь цифирку.
;Например - "раз". Тогда найдём объект, по типу '0x0F16'. 
      If UO.FindCount() Then ; Если нашли чего-то, тогда...
         UO.MoveItem('finditem',-1,cont) ;перемещаем найденое, ВсёНайденое, в cont
      Endif 
      Wait(1000)          
      If i==2 Then ; Если i=2, тогда... 
;А с каких оно будет равно "дваз"?
;Для этой зарезервированной переменной нет ни каких инструкций, значений, и т.д. и т.п.
         i=0 
      Endif 
   wend 
end sub

;"Ошибка, однако"