помогите разобраться

[Stranger[BV]]

есть скрипт его смысал в том что по нажатию кнопки он должен подбирать вещи с пола (с земли), но почемуто он не хочет этого делать пишет что вещи не найдены
вот скрипт

Code: Select all

sub arrowgrab()
               Dim Item[9]
   Item[0]='0x0E79' ;Arrows
   Item[1]='0x0EED' ;Gold
   Item[2]='0x0F7B' ;bm
   Item[3]='0x0F7A' ; BP
   Item[4]='0x0F90' ;deadwood
   Item[5]='0x0F7E' ;bones
   Item[6]='0x0F87' ;Eyes of newt
   Item[7]='0x1BDD' ;Logs
   Item[8]='0x1BFB' ;?bolts 
   Item[9]='0x0F8E' ; ??????? ???????
Var i
   for i=0 to 9
      if Item[i]<>'' then
         uo.Findtype(Item[i],-1,ground)
         if uo.GetQuantity('finditem') then
            uo.MoveItem('finditem')
            CheckLag()
            wait(700)
         endif
      endif
end sub

[Goggy]

Code: Select all

sub arrowgrab() 
               Dim Item[9] 
   Item[0]='0x0E79' ;Arrows 
   Item[1]='0x0EED' ;Gold 
   Item[2]='0x0F7B' ;bm 
   Item[3]='0x0F7A' ; BP 
   Item[4]='0x0F90' ;deadwood 
   Item[5]='0x0F7E' ;bones 
   Item[6]='0x0F87' ;Eyes of newt 
   Item[7]='0x1BDD' ;Logs 
   Item[8]='0x1BFB' ;?bolts 
   Item[9]='0x0F8E' ; ??????? ??????? 
Var i 
   for i=0 to 9 
      if Item[i]<>'' then 
         uo.Findtype(Item[i],-1,'ground') 
         if uo.GetQuantity('finditem') then 
            uo.grab('all','finditem') 
            CheckLag() 
            wait(700) 
         endif 
      endif 
end sub 

Попробуй так

[Stranger[BV]]

все уже перепробывал
закономерность такая поставил граунд в кавычки подбирает стрелы и только поставил -1 в кавычки бодбирает только золото и все в чем прикол понять не могу

[Sfagnum]

Code: Select all

sub arrowgrab()
               Dim Item[10]
   Item[0]='0x0E79' ;Arrows
   Item[1]='0x0EED' ;Gold
   Item[2]='0x0F7B' ;bm
   Item[3]='0x0F7A' ; BP
   Item[4]='0x0F90' ;deadwood
   Item[5]='0x0F7E' ;bones
   Item[6]='0x0F87' ;Eyes of newt
   Item[7]='0x1BDD' ;Logs
   Item[8]='0x1BFB' ;?bolts 
   Item[9]='0x0F8E' ; ??????? ???????
Var i
   for i=0 to 9
      uo.Findtype(Item[i],'0x0000','ground')
      if uo.FindCount()>0 then
         uo.MoveItem('finditem','-1','backpack')
         CheckLag()
         wait(700)
      end if
   next
end sub

пробуй

[Goggy]

гыы сто пудов и как я незаметил....
ведь самая распространённая ошибка ламера во всех языках