Ultima Online Antares

Sub FastRecall()

dim Layers[3]
    Layers[1]   = 'Robe'
    Layers[2]   = 'Cloak'
    Layers[3]   = 'Hat'

var Index, Flag = False

  if UO.FunRunning('AutoLooting') then
      UO.Exec('terminate AutoLooting')
      UO.ColorPrint(0x0446, 'Автолут остановлен!')
      return
  end if


  for Index = 1 to 3
    if UO.Exists(UO.GetGlobal(Layers[Index])) && UO.GetGlobal(Layers[Index]) <> UO.ObjAtLayer(Layers[Index]) then
      UO.UseObject(UO.GetGlobal(Layers[Index]))
      Flag = True
    end if
  next

  EquipSpellbook()

  UO.WarMode(False)
  Wait(300 * Flag)

var Timer       = Now()

  FlagOff('Cast')
  if CastBook(UO.GetGlobal('Rune'), 'Recall', 12, BP, BM, MR, MR) then
    FlagOn('Cast')
    if UO.Count(Potion, 0x0060) > 0 && not UO.Hidden() && not UO.WaitingForJournalText(Now(), 1000, 'fizzle') then
      UO.MoveOff()
      if DrinkInvis() then
        UO.WaitingForJournalText(Now(), 1000, 'fizzle')
      end if
      UO.MoveOn()
    end if
    UO.WaitingForJournalText(Timer, CastDelay(4), 'fizzle')
    FlagOff('Cast')
  end if

#  UO.Exec('exec Meditation')

end sub

  if UO.FunRunning('AutoLooting') then
      UO.Exec('terminate AutoLooting')
      UO.ColorPrint(0x0446, 'Автолут остановлен!')
  end if