Ultima Online Antares

sub Looting()
   if UO.FindType(0x2006, -1, 'ground', 2, -1, -1) <> '' then
      UO.UseObject('finditem')
      if not UO.WaitingForJournalText(Now(), 500, "You can't") && UO.Count(0x0EC3) > 0 then
         UO.WaitTargetObject('finditem')
         uo.WarMode(0)
         UO.UseType(0x0EC3)
         uo.WarMode(1)
         Wait(500)
      end if
      while UO.FindType(-1, -1, 'lastcontainer') <> ''
         if UO.GetDistance('lastcontainer') > 2 || UO.Dead() then
            return True
         end if
         UO.MoveItem('finditem', -1, '0x409FF753')
         Wait(350)
      wend
      
      UO.Hide('lastcontainer')
      UO.Ignore('lastcontainer')
      
      return True
   end if
   return False
end sub

sub loot()
var trup
var cont='0x405B5E02';сюда надо вставить номер мешка в который хочется складывать лут
UO.AddObject('trup');указываем прицелом на труп
while UO.Targeting()
  wait(200)
wend
UO.UseObject(cont)
UO.UseObject('trup')
uo.waittargetobject('trup')
uo.usetype(0x0F51); режем труп кинжалом
wait(500)
UO.UseType('0x13B1');берем лук обратно в руки
UO.SetReceivingContainer(cont)
uo.findtype('-1','-1','trup')
while UO.FindCount() > 0
  UO.Grab('0','finditem')
  wait(500)
  uo.findtype('-1','-1','trup')
wend
wait(300)
UO.Hide('trup');прячем труп, чтобы не загораживал остальные
UO.FindType(0x1078,'-1',cont);ищем среди лута непорезаные шкуры
UO.WaitTargetObject('finditem')
UO.UseType(0x0F9E);режем шкуры ножницами
wait(200)
UO.UnsetReceivingContainer()
wait(300)
UO.CancelTarget()
end sub

sub LootALLTIME()
  
   VAR body1='0x2006',body2='0x0ECA',corpse
  
   VAR Cleaver = '0x0EC2'  ; eeeaa? (oei)
  
  
   #UO.ignorereset()
  
   UO.Exec('addobject lootbag')  
  
   UO.set('finddistance','2')
  
  
  
  
   repeat
      
      
      
      UO.findtype(body1,'-1','ground')
      
      if UO.FindCount() > 0 then
        
         corpse=UO.GetSerial('finditem')
        
         loot(corpse)
        
         wait(10)
        
         UO.ignore(corpse)
        
      else
        
         wait(1000)
        
      endif
      
      
      
      
   until false
  
end sub





Sub loot(corpse)
  
   UO.UseObject( Corpse )
     
   wait(50)
  
   UO.WaitTargetObject(corpse)
  
   UO.UseType('0x0EC2')
  
   wait(300)
  
   UO.FindType( -1, -1, Corpse )
  
   While UO.FindCount() > 0
      
      UO.MoveItem( 'finditem','0','lootbag' )
      
      wait (1050)
      
      UO.FindType( -1, -1, Corpse )
      
   Wend
  
   uo.print('done')
  
end sub

AddObject 'LootBox'

sub LootAll()
  while Looting() && not UO.Dead()
  wend
end sub

sub Looting()
  if UO.FindType(0x2006, -1, 'ground', 2, -1, -1) <> '' then
    UO.UseObject('finditem')
    if not UO.WaitingForJournalText(Now(), 500, "You can't") && UO.Count(0x0EC3) > 0 then
      UO.WaitTargetObject('finditem')
      UO.UseType(0x0EC3)
      Wait(500)
    end if
    while UO.FindType(-1, -1, 'lastcontainer') <> ''
      if UO.GetDistance('lastcontainer') > 2 || UO.Dead() then
        return True
      end if
      UO.MoveItem('finditem', -1, 'LootBox')
      Wait(350)
    wend
    UO.Hide('lastcontainer')
    UO.Ignore('lastcontainer')
    return True
  end if
  return False
end sub

UO.Ignore('lastcontainer')

UO.Forget('lastcontainer')

if LastCorpse <> UO.GetSerial('lastcorpse') && UO.Quantity('lastcorpse') then

if LastCorpse <> UO.GetSerial('lastcorpse') && UO.Exists('lastcorpse') then

sub SmeltRUIN()
  
   dim Items[22]
   Items[1]    = 0x13FC       ;
   Items[2]    = 0x13FE       ;
   Items[3]    = 0x1402       ;
   Items[4]    = 0x13B5       ;
   Items[5]    = 0x1400       ;
   Items[6]    = 0x143E       ;
   Items[7]    = 0x143C       ;
   Items[8]    = 0x1404       ;
   Items[9]    = 0x143A       ;
   Items[10]   = 0x0F60       ;
   Items[11]   = 0x13B9       ;
   Items[12]   = 0x13FD       ;
   Items[13]   = 0x13FF       ;
   Items[14]   = 0x1403       ;
   Items[15]   = 0x13B6       ;
   Items[16]   = 0x1401       ;
   Items[17]   = 0x143F       ;
   Items[18]   = 0x143D       ;
   Items[19]   = 0x1405       ;
   Items[20]   = 0x143B       ;
   Items[21]   = 0x0F61       ;
   Items[22]   = 0x13BA       ;
  
  
   var Forge       = UO.FindType(0x0FB1, -1, 'ground', 2, -1, -1)
   var Index
  
   if Forge == '' then
      UO.ColorPrint(0x0026, 'Рядом с форжой плс')
      return
   end if
  
   for Index = 1 to 22
      while UO.FindType(Items[Index], 0x0991, 'LootContainer') <> ''
         UO.WaitTargetObject('finditem')
         UO.UseObject(Forge)
         UO.WaitingForJournalText(Now(), SaveDelay, "You put|You smelt|You can't|Вы переплавили")
         Wait(50)
      wend
   next
  
   UO.ColorPrint(0x042B, 'Переплавка компилит.')
  
end sub