Выложить предмет из пака в сумку

[TBAPb]

Подскажите, в чем тут ошибка?
Этот скрипт выкидывает стрелы из backpack в мешок, лежащий на полу.
При запуске скрипта, стрелы он перекладывает, но выдает ошибку в 9 строке.

Code: Select all

sub strela() 
   VAR i,Exit  
   DIM Loot[1]
      Loot[0]=0x0F3F 
      UO.SetReceivingContainer('0x40448BBC') ; ID Meshka na polu 
     For i=0 to 1 
      Exit=0 
      repeat 
       UO.FindType(Loot[i],-1,'backpack')            
        if UO.GetQuantity('finditem') then 
         UO.Grab('0','finditem') 
          wait(650) 
          Else 
         Exit=1 
        endif 
      until Exit==1 OR uo.injournal("loot") 
   Next  
UO.UnSetReceivingContainer() 
end sub

[tylllkah]

Подскажите, в чем тут ошибка?
Этот скрипт выкидывает стрелы из backpack в мешок, лежащий на полу.
При запуске скрипта, стрелы он перекладывает, но выдает ошибку в 9 строке.

Code: Select all

sub strela() 
   VAR i,Exit  
   DIM Loot[1]
      Loot[0]=0x0F3F 
      UO.SetReceivingContainer('0x40448BBC') ; ID Meshka na polu 
     For i=0 to 1 
      Exit=0 
      repeat 
       UO.FindType(Loot[i],-1,'backpack')            
        if UO.GetQuantity('finditem') then 
         UO.Grab('0','finditem') 
          wait(650) 
          Else 
         Exit=1 
        endif 
      until Exit==1 OR uo.injournal("loot") 
   Next  
UO.UnSetReceivingContainer() 
end sub

Пробуй так...

Code: Select all

sub strela() 
   VAR i,Exit  
   VAR Loot='0x0F3F' 
      UO.SetReceivingContainer('0x40448BBC') ; ID Meshka na polu  
      Exit=0 
      repeat 
       UO.FindType(Loot,-1,'backpack')            
        if UO.GetQuantity('finditem') then 
         UO.Grab('0','finditem') 
          wait(650) 
          Else 
         Exit=1 
        endif 
      until Exit==1 OR uo.injournal("loot") 
   Next  
UO.UnSetReceivingContainer() 
end sub