Yoko

Code: Select all

sub Looting() 
var t,l 
t=400                           
uo.UseObject('lastcorpse') 
wait(t) 
dim LootingItem[42]             
uo.Print('Go...') 

LootingItem[1] = 0x0F2D  ## - Tourmaline
LootingItem[2] = 0x0F20  ## - Tourmaline
LootingItem[3] = 0x0F1A  ## - Rubies
LootingItem[4] = 0x0F21  ## - Star sapphire
LootingItem[5] = 0x0F2F  ## - Emeralds
LootingItem[6] = 0x0F2C  ## - Citrines
LootingItem[7] = 0x0F0F  ## - Star sapphires
LootingItem[8] = 0x0F27  ## - Diamond 
LootingItem[9] = 0x0F28  ## - Diamonds
LootingItem[10] = 0x0F17 ## - Amethysts
LootingItem[11] = 0x0F24 ## - Citrines
LootingItem[12] = 0x0F12 ## - Sapphire
LootingItem[13] = 0x0F2A ## - Rubies
LootingItem[14] = 0x0F10 ## - Emeralds
LootingItem[15] = 0x0F18 ## - Tourmalines
LootingItem[16] = 0x0F25 ## - Pieces of amber
LootingItem[17] = 0x0F16 ## - Amethysts
LootingItem[18] = 0x0F1E ## - Tourmalines
LootingItem[19] = 0x0F29 ## - Diamonds
LootingItem[20] = 0x0F15 ## - Citrines
LootingItem[21] = 0x0F11 ## - Sapphire
LootingItem[22] = 0x0F14 ## - Ruby
LootingItem[23] = 0x0F1F ## - Sapphires
LootingItem[24] = 0x0F2B ## - Rubies
LootingItem[25] = 0x0F26 ## - Diamonds
LootingItem[26] = 0x0F19 ## - Sapphire 
LootingItem[27] = 0x0F30 ## - Diamonds
LootingItem[28] = 0x0F1C ## - Ruby
LootingItem[29] = 0x0F2E ## - Amethyst
LootingItem[30] = 0x0F22 ## - Amethyst
LootingItem[31] = 0x0F23 ## - Citrine
LootingItem[32] = 0x0F13 ## - Ruby
LootingItem[33] = 0x0F1D ## - Rubies
LootingItem[34] = 0x0F1B ## - Star sapphire

LootingItem[41] = 0x0F81 ## - Fertile Dirt

LootingItem[42] = 0x0EED ## - Gold Coins 

for l=1 to 42                       
uo.FindType(LootingItem[l],"-1","lastcorpse") 
if uo.FindCount()>0 and uo.GetDistance("lastcorpse")<=2 then 
uo.Grab(0,"finditem") 
uo.Print('Looting: '+str(uo.findcount())) 
wait(t) 
uo.Print('Stop.') 
end if 
next 
end sub

Code: Select all

uo.Grab(0,"finditem") 

Code: Select all

uo.MoveItem( "finditem", "0", "ID сумки для лута" );

Code: Select all

LootingItem[1]

Code: Select all

LootingItem[0]