Yoko

Sub main() 
  uo.findtype(0x19B9,0x0000,'0x401E0227') 
  uo.moveitem('finditem','1','backpack') 
  wait(100)
  uo.findtype(0x19B7,0x0000,'0x401FDA9E') 
  uo.LDblClick('finditem') 
  wait 100
end sub

UO.Findtype('0x19B9', '-1','backpack')     
         If UO.Findcount() == 0 Then
            UO.Findtype('0x19B8', '-1','backpack')
            If UO.Findcount() == 0 Then
               UO.Findtype('0x19BA', '-1','backpack')
               If UO.Findcount() == 0 Then
                  UO.Findtype('0x19B7', '-1','backpack')
                  If UO.Findcount() == 0 Then

sub minround()
VAR Kirka = '0x0E85' ; тип кирки
VAR MaxVes = 9999999999999 ; указать макс. вес
VAR TileNum = '1339' ; ******
VAR x, y, t, k
VAR MaxTime = 1000 ; ******
VAR ms1 = "There is nothing here to mine for"
VAR ms2 = "You can't use"
VAR ms3 = "you put the"
VAR ms4 = "You loosen some rocks"
VAR ms5 = "You are too far away"
VAR ms6 = "Try mining in rock"
VAR ms7 = "You can't see that"
for y=-2 to 2
for x=-2 to 2

k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next
endsub 

sub smelting()
  repeat
         UO.Findtype('0x19B9', '-1','backpack')     
         If UO.Findcount() == 0 Then
            UO.Findtype('0x19B8', '-1','backpack')
            If UO.Findcount() == 0 Then
               UO.Findtype('0x19BA', '-1','backpack')
               If UO.Findcount() == 0 Then
                  UO.Findtype('0x19B7', '-1','backpack')
                  If UO.Findcount() == 0 Then
                    return
                  Endif
               Endif
            Endif
         Endif
      UO.moveitem('finditem','1','backpack',44,121,0 )
      Wait(100)
      UO.UseType('0x19B7')         
      Wait(100)
  until uo.findcount()== 0
end sub

  uo.LDblClick('finditem')

UO.UseObject( 'finditem' )