Ultima Online Antares

sub AutoLooting()

dim Corpses[100]
var Count       = 0
var Corpse

  UO.ColorPrint(0x0446, 'Автолут запущен.')

  if UO.Exists('Lootpack') then
    UO.ColorPrint(0x0446, '- контейнер для лута: ' + UO.GetSerial('Lootpack'))
  else
    SetContainer()
  end if

  repeat
    Corpse = UO.FindList('Corpses', 'ground', LootDist, -1, -1)
    if Corpse <> '' then
      if ArrayContains(Corpses, Corpse) == -1 then
        if UO.GetGlobal('Corpse') <> Corpse then
          UO.ColorPrint(0x0053, 'Найден труп ' + Corpse + ', Dist:' + Str(UO.GetDistance(Corpse)))
          OpenCorpse(Corpse)
          UO.SetGlobal('Corpse', Corpse)
        else
          UO.UseObject(Corpse)
        end if
        while FindItems(Corpse)
          if UO.GetDistance(Corpse) > LootDist then
            Break
          end if
          LootItems('finditem', -1, 'Lootpack')
        wend
        if not FindItems(Corpse) then
          UO.ColorPrint(0x0053, 'Лут трупа завершен.')
          Corpses[Count] = Corpse
          Count = (Count + 1) * (Count < 100)
        end if
      else
        UO.Forget(Corpse)
      end if
    else
      Wait(100)
    end if
  until UO.Dead()
  
end sub