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: