Yoko

sub Looting()
uo.exec("set finddistance 2")
var l
var a
dim LootingItem[10] 
LootingItem[0] = 0x09B0 
LootingItem[1] = 0x183D
LootingItem[2] = 0x182C
LootingItem[3] = 0x183B
LootingItem[4] = 0x1831
LootingItem[5] = 0x183E
LootingItem[6] = 0x0E76
LootingItem[7] = 0x0E21
LootingItem[8] = 0x183D
LootingItem[9] = 0x204E
LootingItem[10] = 0x0DE1
for l=0 to 10 
uo.findtype(LootingItem[l],-1,"ground")
if uo.FindCount()>0 and uo.GetDistance("finditem")<=3 then 
uo.Grab(-1,"finditem")
a=uo.getserial("finditem")
uo.print(a)
end if
next
end sub

sub Looting() 
uo.set('finddistance','2') 
var l 
var a 
dim LootingItem[10] 
LootingItem[0] = '0x09B0' 
LootingItem[1] = '0x183D' 
LootingItem[2] = '0x182C' 
LootingItem[3] = '0x183B' 
LootingItem[4] = '0x1831' 
LootingItem[5] = '0x183E' 
LootingItem[6] = '0x0E76' 
LootingItem[7] = '0x0E21' 
LootingItem[8] = '0x183D' 
LootingItem[9] = '0x204E' 
LootingItem[10] = '0x0DE1' 
for l=0 to 10 
uo.findtype(LootingItem[l],-1,'ground') 
if uo.FindCount() then 
uo.moveitem('finditem',0,'backpack')
a=uo.getserial("finditem") 
uo.print(a) 
end if 
next 
end sub