sub main()
var x,i,NoID,count,num=0
var pak='0x413C8D42'
dim ID[10]
ID[0]='0x1B74'
ID[1]='0x0F43'
ID[2]='0x1711'
ID[3]='0x1442'
ID[4]='0x1B76'
ID[5]='0x0EC4'
ID[6]='0x108A'
ID[7]='0x13AF'
ID[8]='0x1402'
ID[9]='0x13DB'
ID[10]='0x13F6'
uo.ignorereset()
while not uo.dead()
For x = 0 to 10
count=uo.count(ID[x])
   if count > 1 then
      For i = 1 to count
      num=num+1
      wait(50)
      uo.print("Item # "+str(num)+"")
      uo.findtype(ID[x],'0x0000',pak)
      NoID=uo.getserial('finditem')
      uo.ignore(NoID)
      uo.exec("waittargetobject NoID")
      uo.exec("useskill 'Item Identification'")
      wait(10500)
      next
   end if
wait(100)
next
wait(500)
wend
end sub

      uo.findtype(ID[x],'0x0000',pak)
      NoID=uo.getserial('finditem') 

repeat
wait(20)
until uo.findcount()

VAR goblin=1
sub Start()
repeat
LootRegs()
   wait(100)
      until goblin>2
end sub

Sub LootRegs() 
   DIM Regs[10] 
Regs[0] = '0x0C8D' ; Fertile Dirt
Regs[1] = '0x0C8C' ; Blackmoor
Regs[2] = '0x0C94' ; Obsidian
Regs[3] = '0x0C88' ; Pumice
Regs[4] = '0x0D04' ; Dead Wood
Regs[5] = '0x0C8A' ; Volcanic Ash
Regs[6] = '0x0C85' ; Brimstone
Regs[7] = '0x0C83' ; Executioner's Cap
Regs[8] = '0x0C86' ; Blood Spawn
Regs[9] = '0x0CA9' ; 30 Random Reagent's Pack
   VAR i 
   For i = 0 To 9 
      If UO.Count( Regs[ i ] ) == 0 Then 
      wait( 100 )
UO.UseFromGround( Regs[ i ] )
      wait( 100 )
      Endif 
   Next 
endsub

Sub CheckLag() 
if uo.Waiting()>0 then 
uo.Exec('canceltarget') 
end if 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until uo.InJournal('backpack') 
end sub

uo.exec("useskill 'Item Identification'")