Ultima Online Antares

sub ThreeInOne()  
       repeat
              uo.waittargetobject(0x0005B37D)
              uo.useskill('Evaluating Intelligence')
              wait (4000)

              uo.waittargettype(0x13B1)
              uo.useskill('Item Identification')
              wait (4000)

              uo.waittargettype(0x097B)
              uo.useskill('Taste Identification')
              wait (4000)
       until uo.Dead()
end sub

VAR item = '0x400E9BDB'     ; id кинжала
VAR Dagger = '0x0F51'
Var LastTimer, i
Var SkillVal = 1000

sub main()
   UO.Set('quiet','1')
   UO.filterspeech('clear')
   UO.filterspeech('add','You must wait to perform another action.')
   UO.filterspeech('on')
  
   If uo.SkillVal('Item Identification') < SkillVal then
      Item_Identification()
   End If
   If uo.SkillVal('Arms Lore') < SkillVal then
      Arms_Lore()
   End If
  
End Sub

Sub Item_Identification()
   while uo.SkillVal('Item Identification') < SkillVal
      uo.DeleteJournal()
      uo.Useskill('Item Identification', item)
      LastTimer = uo.Timer()
      repeat
         wait(100)
      until uo.InJournal('looks|made|сделано|fail|не получилось|think') or uo.LastGump('text', 0) == 'Dagger' or uo.Timer() > LastTimer + 50
   Wend
End Sub

Sub Arms_Lore()
   while uo.SkillVal('Arms Lore') < SkillVal
      uo.DeleteJournal()
      uo.Useskill('Arms Lore',item)
      LastTimer = uo.Timer()
      repeat
         wait(100)
      until uo.InJournal('item|is made of|anything|ничего') or uo.LastGump('text', 0) == 'Dagger' or uo.Timer() > LastTimer + 60
   Wend
End Sub