Page 1 of 1

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

Posted: 2005-02-20 02:18:09
by 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


Posted: 2005-02-20 03:10:45
by 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


Попробуй так

Posted: 2005-02-23 04:24:33
by Stranger[BV]
все уже перепробывал
закономерность такая поставил граунд в кавычки подбирает стрелы и только поставил -1 в кавычки бодбирает только золото и все в чем прикол понять не могу

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

Posted: 2005-02-23 09:13:38
by Sfagnum
Stranger[BV] wrote:

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
пробуй ;)

Posted: 2005-02-23 17:24:50
by Goggy
гыы сто пудов и как я незаметил.... :mrgreen:
ведь самая распространённая ошибка ламера во всех языках :wink: