Ultima Online Antares

sub LoadWarpack()

var Container   = UO.GetSerial('lastcontainer')
var Index

  if not IsExists(Container) then
    UO.ColorPrint(0x042B, 'Контейнер источник не найден!')
    return
  end if

  if not IsExists('Warpack') then
    if not Select('Выберите контейнер для загрузки:', 'Warpack') then
      UO.ColorPrint(0x042B, 'Выбор прерван!')
      return
    end if
  end if

  if Container == UO.GetSerial('Warpack') then
    UO.ColorPrint(0x042B, 'Неправильно выбран контейнер источник!')
    return
  end if

  if CountList('LoadWarpack') > 0 then
    for Index = 0 to CountList('LoadWarpack') - 1
      LoadItems(GetWord(GetList('LoadWarpack', Index), 2, '"'), GetWord(GetList('LoadWarpack',

Index), 1), GetWord(GetList('LoadWarpack', Index), 2), Val(GetWord(GetList('LoadWarpack', Index),

3)), Container, 'Warpack')
    next
  end if

  UO.ColorPrint(0x042B, 'Загрузка завершена.')

end sub


Sub LoadItems(Name, Type, Color, Count, Source, Dest)

  if not AddItems(Type, Color, Count, Source, Dest) then
    UO.ColorPrint(0x042B, Name + ' - ' + Str(UO.Count(Type, Color, 'Warpack')) + '/' + Str(Count))
  end if

end sub

[LoadWarpack]
; Предметы и их кол-во для добора LoadWarpack()
0x0E24 0x0446 10 "Greater Heal Potions">44 65 0
0x0E24 0x0322 1 "Total Mana Refresh Potion">66 88 0
0x0F0D 0x0000 7 "Lesser Explosion Potions">89 87 0
0x0DE1 0x0314 1 "Buk Tree Kindling">142 90 0
0x0E24 0x0060 3 "Invisibility Potions">86 65 0
0x0E24 0x05BD 9 "Greater Agility Potions">75 65 0
0x0E24 0x0427 5 "Greater Mana Refresh Potions">65 65 0

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
    case 3
      UO.CharPrint('self', 0x000A, '[Tracking]:fail')
  end switch
  FlagOff('Tracking')

end sub

  Комманды использующие таргет:
    Attack      - Enticement(), если в сумке лежит музыкальный инструмент (если нет необходимости,
                  убрать его в подсумку) и атака цели на таргете
    Также с таргетом работают все атакующие касты

  Например у меня такие бинды:
    Ctrl-~      - exec AttackEnemy
    Ctrl-Tab    - exec Attack
    Shift-Tab   - exec AttackMobs

    Этих биндов достаточно и для ПВМ и ПВП, тут два автоматических действия, поиск и атака AttackEnemy(),
    AttackMobs(), и одно действие Attack() которое атакует цель на таргете, вне зависимости моб там или чар.