Yoko

Posted: **2007-11-22 17:37:41**

взял с форума..
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 пишет рантайм еррор..
в чём проблема?

Posted: **2007-11-22 18:13:23**

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

Posted: **2007-11-29 18:22:47**

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

Posted: **2007-11-30 17:48:32**

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

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

Posted: **2007-11-30 18:44:03**

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

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

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

Posted: **2007-12-02 12:21:24**

Вот проверь

Code: Select all

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

Yoko

опять же лут..

опять же лут..