Yoko

sub loot() 
VAR WaitTime=500 
VAR i =1
DIM Loot[20] 
Loot[1]="0x0EED" 
Loot[2]="0x1ECE" 
Loot[3]="0x143E" 
Loot[4]="0x0F4E" 
Loot[5]="0x1401" 
Loot[6]="0x13FE" 
Loot[7]="0x0F63" 
Loot[8]="0x1402" 
Loot[9]="0x1406" 
Loot[10]="0x1438" 
Loot[11]="0x13FA" 
Loot[12]="0x0F45" 
Loot[13]="0x0F49" 
Loot[14]="0x1401" 
Loot[15]="0x1940" 
Loot[16]="0x0DF0" 
Loot[17]="0x0E87" 
Loot[18]="0x1F03" 
Loot[19]="0x1088" 


wait (WaitTime) 
While i<20
UO.FindType(Loot[i],"-5","ground") 
If UO.FindCount() Then
UO.Grab("0","finditem") 
Else
i=i+1
Endif
Wend
end sub

sub loot()
VAR  i
DIM Loot[19]
Loot[1]="0x0EED"
Loot[2]="0x1ECE"
Loot[3]="0x143E"
Loot[4]="0x0F4E"
Loot[5]="0x1401"
Loot[6]="0x13FE"
Loot[7]="0x0F63"
Loot[8]="0x1402"
Loot[9]="0x1406"
Loot[10]="0x1438"
Loot[11]="0x13FA"
Loot[12]="0x0F45"
Loot[13]="0x0F49"
Loot[14]="0x1401"
Loot[15]="0x1940"
Loot[16]="0x0DF0"
Loot[17]="0x0E87"
Loot[18]="0x1F03"
Loot[19]="0x1088"

for i = 1 to 19
 UO.FindType( Loot[i] , -1 ,"lastcorpse")
 while uo.findcount()
  uo.moveitem('finditem')
  wait(250)
  checklag()
  UO.FindType( Loot[i] , -1 ,"lastcorpse")
 wend
next
end sub