Yoko

Code: Select all

sub Loot4() 
   VAR i,Exit  
   DIM Loot[18] 
    
  
Loot[0]=0x0EED ; gp 
Loot[1]=0x0F7B ; BM 
Loot[2]=0x0F7A ; BP 
Loot[3]=0x0F84 ; GA 
Loot[4]=0x0F85 ; GI 
Loot[5]=0x0F86 ; MR 
Loot[6]=0x0F88 ; NS 
Loot[7]=0x0F8C ; SA 
Loot[8]=0x0F8D ; SS 
Loot[9]=0x13FA ;two handed axe 
Loot[10]=0x1413 ;arm 
Loot[11]=0x1415 ;arm 
Loot[12]=0x1411 ;arm 
Loot[13]=0x1410 ;arm 
Loot[14]=0x1414 ;arm 
Loot[15]=0x0E21 ;ban 
Loot[16]=0x0F78 ;batw 
Loot[17]=0x0F8B ;pumise 

UO.SetReceivingContainer('0x4000C313') ;ID backpacka 
   For i=0 to 17 
      Exit=0 
      repeat 
       UO.FindType(Loot[i],-1,'ground')            
        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

Code: Select all

UO.Grab('0','finditem') 
          wait(тут поставь время, предлагаю 750)