Ultima Online Antares

Sub TrackLoot()

  SetTimer('Tracking', 2100)
  UO.WarMode(True)

  FlagOn('Tracking')
  UO.WaitMenu('Tracking', 'Players', 'Tracking', 'cancel')
  UO.UseSkill('Tracking')
  UO.WaitingForJournalText(Now(), 1000, 'Cancelled|no signs|of battle.|Unexpected|Spyglass')
  switch UO.GetFoundedTextID()
    case 0
      UO.CharPrint('self', 0x0026, '[Tracking]:Danger!')
    case 1
      UO.CharPrint('self', 0x000A, '[Tracking]:none')
    case 2
      UO.CharPrint('self', 0x000A, '[Tracking]:fail')
    case 3
      SetTimer('Tracking', 50)
  end switch
  FlagOff('Tracking')

end sub

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)))
          UO.SetGlobal('Corpse', Corpse)
          OpenCorpse(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

var fAutoSearch = True         ; автоматически находить цель при атаке, кастах, NextEnemy, AttackEnemy

Sub myNextEnemy()
  if NextEnemy() <> '' then
    EnemyMagicArrow()
  end if
end if