Ultima Online Antares

sub looting()
   var corpse,i,j
   uo.set('finddistance','2')
   uo.set('distance','2')
   DIM Loot[3]
   Loot[0] = 0x0EED; # Äåíüãè.
   Loot[1] = 0x2260; # SS.
   Loot[2] = 0x0F3F; # Ñòðåëû.
   Loot[3] = 0x1079; # êîæà.
  
   DIM Text[3]
   Text[0] = 'Gold'
   Text[1] = 'SS'
   Text[2] = 'Arro'
   Text[3] = 'Skin'
  
   DIM Vars[3]
   Vars[0] = uo.gold # Äåíüãè.
   Vars[1] = uo.count('0x2260') #
   Vars[2] = uo.count('0x0F3F') #
   Vars[3] = uo.count('0x1079') #
  
   while true
      while uo.countonground('0x2006') > 0
         if UO.Weight > 40000 then
            uo.print("Too much weight! There're "+STR(UO.Gold)+" gold coins in backpack!")
            uo.waittargettype('0x0EED')
            wait(1000)
            uo.useobject('0x40157FBF')
            wait(1000)
            goto end
         end if
         uo.findtype('0x2006','-1','ground')
         if uo.findcount() > 0 then
            corpse=uo.getserial('finditem')
            uo.print("Found "+str(uo.findcount())+" corpse(s)!")
            uo.waittargetobject('lastcorpse')
            uo.UseType('0x0F52')
            for i=0 to 3
               j=0
               repeat
                  UO.FindType(Loot[i],-1,corpse)
                  if UO.GetQuantity('finditem') then
                     UO.MoveItem('finditem','0','backpack')
                     uo.print("Looted: "+STR(UO.GetQuantity('finditem'))+" "+Text[i]+"! In All: "+STR(vars[i]+UO.GetQuantity('finditem')))
                     wait(600)
                  end if
                  j = j + 1
                  if j > 3 then
                     goto stuck
                  end if
               until uo.findcount()==0
            next
            stuck:
            uo.ignore(corpse)
         Else
            uo.print("No Corpses Beside!!!")
         end if
         end:
      wend
      wait(600)
   wend
end sub

            uo.waittargetobject('lastcorpse')
            uo.UseType('0x0F52')
            for i=0 to 3

            uo.waittargetobject('lastcorpse')
            uo.UseType('0x0F52')
            checklag()
            wait(100)
            for i=0 to 3