Yoko

взял с форума..
sub Loot()
VAR i,Exit
DIM Loot[24]


Loot[0]=0x1B76 ;shit
Loot[1]=0x1415 ;pyzo
Loot[2]=0x1411 ;nogi
Loot[3]=0x1410 ;ple4u
Loot[4]=0x1414 ;pyku
Loot[5]=0x1413 ;gorget
Loot[6]=0x1412 ;shlem
Loot[7]=0x13B9 ;viking
Loot[8]=0x13FA ;topor1
Loot[9]=0x143E ;helbeard
Loot[10]=0x0E87 ;pithfork
Loot[11]=0x1086 ;bracelet
Loot[12]=0x13B1 ;lyk
Loot[13]=0x0F0E ;helki
Loot[14]=0x0F0E ;mana
Loot[15]=0x0F0E ;stamina
Loot[16]=0x0F0E ;inviz
Loot[17]=0x1F5F ;FS
Loot[18]=0x1F52 ;paral
Loot[19]=0x0EED ;GP
loot[21]=0x1416 ;pyzo
loot[22]=0x1418 ;pyku
loot[23]=0x1B77 ;shit


UO.SetReceivingContainer('0x401B5E11') ;ID backpacka

For i=0 to 23
Exit=0
repeat
UO.FindType(Loot[i],-1,'lastcontainer')
if UO.GetQuantity('finditem') then
UO.Grab('0','finditem')
wait(100)
Else
Exit=1
endif
until Exit==1 OR uo.injournal("loot")
Next
UO.UnSetReceivingContainer()
end sub


но вот в строке if UO.GetQuantity('finditem') then пишет рантайм еррор..
в чём проблема?

Правильно элементы массива задай все с одинаковым именем и кол-вом элементов

объясни нормальным языком.. гед и чё поменять надо плз)

Попробуй вместо
if UO.GetQuantity('finditem') then
написать
if uo.FindCount() then

и ещё Loot[0]=0x1B76 ;shit и все остальные элементы
замени на Loot[0]='0x1B76' ;shit

Я написал что надо сделать,- если вы не понимаете о чём речь, то зачем давать советы лишь запутывающие автора?

Вот проверь

sub Loot() 
 VAR i,Exit 
  DIM Loot[23] 
   Loot[0]=0x1B76 ;shit 
   Loot[1]=0x1415 ;pyzo 
   Loot[2]=0x1411 ;nogi 
   Loot[3]=0x1410 ;ple4u 
   Loot[4]=0x1414 ;pyku 
   Loot[5]=0x1413 ;gorget 
   Loot[6]=0x1412 ;shlem 
   Loot[7]=0x13B9 ;viking 
   Loot[8]=0x13FA ;topor1 
   Loot[9]=0x143E ;helbeard 
   Loot[10]=0x0E87 ;pithfork 
   Loot[11]=0x1086 ;bracelet 
   Loot[12]=0x13B1 ;lyk 
   Loot[13]=0x0F0E ;helki 
   Loot[14]=0x0F0E ;mana 
   Loot[15]=0x0F0E ;stamina 
   Loot[16]=0x0F0E ;inviz 
   Loot[17]=0x1F5F ;FS 
   Loot[18]=0x1F52 ;paral 
   Loot[19]=0x0EED ;GP 
   Loot[20]=0x1416 ;pyzo 
   Loot[21]=0x1418 ;pyku 
   Loot[22]=0x1B77 ;shit 
  UO.SetReceivingContainer('0x401B5E11') ;ID backpacka 
  For i=0 to 22 
    Exit=0 
    repeat 
      UO.FindType(Loot[i],-1,'lastcontainer') 
      if UO.GetQuantity('finditem') then 
        UO.Grab('0','finditem') 
        wait(100) 
       Else 
        Exit=1 
      endif 
    until Exit==1 OR uo.injournal("loot") 
  Next 
  UO.UnSetReceivingContainer() 
end sub