Ultima Online Antares

;--------------------------------------------------------
; Атака ближнего монстра из массива, бинд на кнопку
;--------------------------------------------------------

Sub AttackMobs()

var Enemy       = ''

  repeat  
    if UO.Exists(UO.GetGlobal('Enemy')) && UO.GetDistance(UO.GetGlobal('Enemy')) <= FindDist then
      UO.Ignore(UO.GetGlobal('Enemy'), 'on')
      Enemy = UO.FindList('Mobs', 'ground', FindDist, -1, -1)
      UO.Ignore(UO.GetGlobal('Enemy'), 'off')
    end if

    if Enemy == '' then
      Enemy = UO.FindList('Mobs', 'ground', FindDist, -1, -1)
    end if

    if Enemy == '' || UO.IsNPC(Enemy) then
      Break
    end if
  
    UO.Forget(Enemy)
    Enemy = ''
  until UO.Dead()
  
  if Enemy <> '' then
    UO.CharPrint('self', 0x0022, '[' + UO.GetName(Enemy) + ']')
    UO.SetGlobal('Enemy', Enemy)
    if not UO.WarMode() then
      UO.WarMode(True)
    end if
    UO.Attack(Enemy)
    UO.Exec('exec EnemyStatus')
  else
    UO.ColorPrint(0x042B, 'Монстры не обнаружены!')
  end if

  return Enemy <> ''

end sub

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 IgnoreList(ListName, Flag)
var Index
  UO.Set('quiet', '1')
  if CountList(ListName) > 0 then
    for Index = 0 to CountList(ListName) - 1
      UO.Ignore(GetList(ListName, Index), Flag)
    next
  end if
  UO.Set('quiet', '0')
end sub

var fLootBag    = True         ; выгружать содержимое мешков