Ultima Online Antares

sub mineone()
  var x,y,z, n
  VAR LastTimer
  UO.Set('finddistance','2')
  n=0
  z=UO.GetZ("self")
     for x=-2 to 2
        for y=-2 to 2
           UO.Print(str(x)+" "+str(y))
           Repeat
              if UO.InJournal('TORMOZ') then
                pause()
              endif
              UO.DeleteJournal()
              UO.Warmode("0")
              UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z))
              UO.UseType('0x0E85')
              LastTimer=UO.Timer()
              Repeat
                 wait(500)
              Until UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("where it") or UO.InJournal("so close") OR UO.Timer()>LastTimer+200
              if UO.InJournal("You put") then
                  n=0
              else
                 n=n+1
              endif
           Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or n>=5
        next
     next
end sub

sub Herding()
var posoh = "0x13F4"
uo.print('  - ')
uo.addobject('Animal')
while uo.targeting()
wait(100)
wend
repeat
uo.waittargetobject('Animal','self')
uo.usetype(posoh)
Uo.DeleteJournal()
repeat
wait(100)
until UO.InJournal('The animal goes') or UO.InJournal('You don')
until uo.dead()
endsub

sub blacksmith()
    var Hammer = '0x13E3'; hammer
    var Iron = '0x1BEF'; ingots
repeat

UO.WaittargetType(Iron)
uo.usetype(Hammer)
UO.WaitMenu('Blacksmithing','Weapon','Weapon','Fencing','Fencing','Dagger')
UO.DeleteJournal()
repeat
wait(500)
until UO.InJournal('You put') or UO.InJournal('fail') or UO.InJournal('target')
until uo.count(Iron) < 16
end sub

sub Tailoring()
    var SewKit = '0x0F9D'; sewing kit
    var Cloth = '0x175D'; folded cloth
repeat

UO.WaittargetType(Cloth)
uo.usetype(SewKit)
UO.WaitMenu('Miscellaneous','Blank Scroll')
UO.DeleteJournal()
repeat
wait(500)
until UO.InJournal('You put') or UO.InJournal('fail') or UO.InJournal('destroyed')
until uo.count(Cloth) < 1
end sub

sub TAILORmap()
repeat
UO.WaitTargetType('0x175D')
UO.WaitMenu ('Misc','Blank Map')
UO.UseType('0x0F9D')
wait(6000)
until false
end sub

sub mar()
uo.print('Кого лечить?')
uo.exec('addobject bod')
while uo.targeting()
wait(100)
wend
end sub

sub healfriend()
uo.waittargetobject('bod')
uo.usetype('0x0E21','0x000')
wait (200)
uo.exec("arm 1")
end sub

sub healfriend_ress()
uo.waittargetobject('0x0008D68A')
uo.usetype('0x0E21','0x000')
wait (200)
uo.waittargetobject('0x0008D68A')
uo.cast('Resurrection')
wait (200)
end sub

sub Cartography()
UO.Exec ("automenu 'What sort of map do you want to d' 'Detail Map'")
UO.DeleteJournal()
repeat
UO.Useskill("Cartography")
wait(4000)
until UO.Dead()
end sub

sub Tinkering()
  uo.cancelmenu()
  uo.automenu('Tinkering','Miscellaneous')
  uo.automenu('Miscellaneous','Empty Bottle')
  while UO.Count('0x1BEF')>3
  UO.DeleteJournal()
  UO.UseType('0x1EBC')
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("failed")
  wait(300)
  wend
wend
end sub