sub Looter()
var n, Corpse='0x2006', z2='0x13FE'
uo.exec("set finddistance 4")
uo.exec("findtype 0x1CE1 -1 ground")
uo.exec("grab 0 finditem")
Dim Item[28]
   Item[0]=0x13FC ; arbalet
   Item[1]=0x1411 ; nogi
   Item[2]=0x1B76 ; schit
   Item[3]=0x1088 ; amulj
   Item[4]=0x13B5 ; dragon claw 
   Item[5]=0x1402 ; elf pika
   Item[6]=0x1B74 ; wing
   Item[7]=0x13AF ; half
   Item[8]=0x1B78 ; gnom 
   Item[9]=0x13FA ; axe
   Item[10]=0x13FE ; katana 
   Item[11]=0x13B9 ; blade 
   Item[12]=0x1404 ; fork 
   Item[13]=0x1415 ; puzo_plita
   Item[14]=0x1410 ; ruki_plita
   Item[15]=0x1414 ; perchi_plita
   Item[16]=0x1413 ; gorget_plita
   Item[17]=0x13C9 ; kozha_nogi
   Item[18]=0x13CA ; kozha_puzo
   Item[19]=0x13C7 ; kozha_gorget
   Item[20]=0x13C5 ; kozha_ruki
   Item[21]=0x1DB9 ; kozha_golova
   Item[22]=0x13C6 ; kozha_perchi
   Item[23]=0x1412 ; golova_plita
   Item[24]=0x0E76 ; sumka
   Item[25]=0x09B0 ; mishochek
   Item[26]=0x0E75 ; sumka
   Item[27]=0x0E7D ; sunduk
   Item[28]=0x0A3E ; drawer

UO.Set('grabdelay','400')
UO.Set('finddistance','3')
If UO.GetGlobal('LootCheck')<>'on' and NOT UO.Dead() Then
     UO.SetGlobal('LootCheck','on')
UO.FindType(Corpse,'-1','1')
          If UO.FindCount() Then
               UO.WaitTargetObject('finditem')
               UO.UseType(z2)
               CheckLag()
          Else
               UO.FindType('0x0E75','-1','1')          
          End If
          If UO.FindCount() Then
               Corpse = UO.GetSerial('finditem')
               UO.UseObject(Corpse)
               CheckLag()
                    For n = 0 TO 28
                         REPEAT
                              UO.FindType(Item[n],'-1',Corpse)
                                   If UO.FindCount() Then
                                        UO.MoveItem('finditem','all','-1')
                                        UO.Forget('finditem')
                                        Wait(200)
                                   End If
                         Until UO.FindCount()==0 or UO.Dead()
                    Next
          End If
     UO.SetGlobal('LootCheck','off')
Else
     UO.Print("Wait")
End If
end sub
Sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack') 
   REPEAT 
      Wait(200) 
   Until UO.InJournal('backpack') 
   end sub