Ultima Online Antares

sub bestuo_daily_tailor()

while not UO.Dead()

UO.DeleteJournal()

UO.WaitMenu('Cloth','Headwear','Headwear','Skullcap')

uo.waittargettype('0x175D')
wait (200)
UO.UseType('0x0F9D')

while not UO.InJournal('You put the') and not Uo.InJournal('  ') and not Uo.InJournal('failed')and not Uo.InJournal('destroyed')

wait(100)

wend

wend

end sub

sub bestuo_make_bags_tailor()

while not UO.Dead()

UO.DeleteJournal()

UO.WaitMenu('Miscellaneous','Bag')

uo.waittargettype('0x1067')
wait (200)
UO.UseType('0x0F9D')

while not UO.InJournal('You put the') and not Uo.InJournal('failed')

wait(100)

wend

wend

end sub

sub tracking_wolf_all()
  uo.warmode(0)
  uo.print('Looking for model:Wolf')
UO.WaitMenu('Tracking', 'Animals', 'Tracking', 'Wolf')
UO.UseSkill('Tracking')
if UO.InJournal("Tracking Cancelled") Then
wait(300)
  uo.print('Looking for model:White Wolf')
UO.WaitMenu('Tracking', 'Animals', 'Tracking', 'White Wolf')
UO.UseSkill('Tracking')
if UO.InJournal("Tracking Cancelled") Then
wait(300)
  uo.print('Looking for model:Dire Wolf')
UO.WaitMenu('Tracking', 'Animals', 'Tracking', 'Dire Wolf')
UO.UseSkill('Tracking')
if UO.InJournal("Tracking Cancelled") Then
wait(300)
  uo.print('Looking for model:Grey Wolf')
UO.WaitMenu('Tracking', 'Animals', 'Tracking', 'Grey Wolf')
UO.UseSkill('Tracking')
wait(300)
end sub

sub Lore()
   var SkillVal = 1000
   var loreitem = '0x007a4d38' # ID jivotnogo
   var LastTimer
   while uo.SkillVal('Animal Lore') < SkillVal
      uo.DeleteJournal()
      uo.Useskill('Animal Lore',loreitem)
      LastTimer = uo.Timer()
      repeat
         wait(100)
      until uo.InJournal('think') or uo.Timer() > LastTimer + 30
   wend
End Sub

sub pereklad_dragocennostey()
   DIM R[9]
   VAR a
   R[1] = 0x0f26 #Гранат
   R[2] = 0x0f25 #Янтарь
   R[3] = 0x0f18 #Турмалин
   R[4] = 0x0f13 #Рубин
   R[5] = 0x0f11 #Сапфир
   R[6] = 0x0f10 #Изумруд
   R[7] = 0x0f16 #Аметист
   R[8] = 0x0f15 #Цитрин
   R[9] = 0x0f26 #Алмаз
   UO.Exec('addobject otkuda')
   while UO.Targeting()
      wait(100)
   wend  
   UO.UseObject('otkuda')
   UO.Exec('addobject kuda')
   while UO.Targeting()
      wait(100)
   wend      
   for a=1 to 9
      UO.FindType(R[a],'-1','otkuda')
      If UO.FindCount() > 0 then
         repeat
            UO.MoveItem('finditem', '0', 'kuda')
            wait(1000)
            UO.FindType(R[a],'-1','otkuda')
         until not UO.FindCount()
      else
         wait(100)
      endif
   next
end sub

sub MA()
While UO.WEIGHT < 30000
if UO.Mana >94 then
UO.Cast('Magic Arrow', 'self')
wait(4500);
else
while UO.Mana<UO.Int
UO.UseSkill("Meditation");
wait(3000);
wend
endif
wend
end sub

sub ProMed()
repeat
    UO.Cast('Magic Arrow', 'self')
    wait (2000)
       while UO.Mana<UO.Int
          UO.UseSkill('Meditation')
          wait(2000)
       wend
       Heal()
until uo.dead()
end sub

sub Heal()      ;Хилинг
   If UO.STR==UO.Life Then
      UO.Print("Life is full")
   Else
      UO.SetArm("1")
      UO.BandageSelf()
      wait(2000)
      UO.Arm("1")
      UO.UnSetArm()
   Endif
   Shield()
end sub

sub Shield()  ; Одевание щита
Var Shield='0x1B76';Тип щита, используемый вами
UO.Equipt('Lhand',Shield)
Endsub