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[35] = 0x0F81 ## - Fertile Dirt 
LootingItem[36] = 0x0EED ## - Gold Coins 
for l=1 to 36                        
uo.FindType(LootingItem[l],"-1","lastcorpse") 
if uo.FindCount()>0 and uo.GetDistance("lastcorpse")<=2 then 
uo.MoveItem( "finditem", "0", "ID=0x4036BC34") 
uo.Print('Looting: '+str(uo.findcount())) 
wait(t) 
uo.Print('Stop.') 
end if 
next 
end sub