Ultima Online Antares

;--------------------------------------------------------
; Трек животных из массива Animals, бинд на кнопку
;--------------------------------------------------------

Sub TrackAnimal()

dim Animals[1]
    Animals[0] = 'Forest Golem'
    Animals[1] = 'Forest Ent'

var Index

  UO.WarMode(True)

  for Index = 0 to 2
    UO.WaitMenu('Tracking', 'Animals', 'Tracking', Animals[Index])
    UO.UseSkill('Tracking')
    if not UO.WaitingForJournalText(Now(), 1000, 'no signs|of battle.|Unexpected|Cancelled') then
      UO.CharPrint('self', 0x0026, '[Tracking]:' + Animals[Index])
      UO.Exec('exec TrackArrow')
      return
    end if
  next

  UO.CharPrint('self', 0x000A, '[Tracking]:none')

end sub