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[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
