sub qw12()
VAR Kirka = '0x0E85'
VAR MaxVes = 430  
VAR ms1 = "There is no ore"
VAR ms2 = "You can't use"
VAR ms3 = "You put "
VAR ms4 = "You loosen some rocks"
VAR ms5 = "location"
VAR ms6 = "Try mining"
VAR ms7 = "You can't see that"
     repeat
        UO.DeleteJournal()
        wait(300)
        UO.WaitTargetTile( 1, STR( UO.GetX() + 1 ), STR( UO.GetY() + 0 ), 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)
        If UO.Weight > MaxVes Then
           UO.Print(" owerweight " )
           return
        Endif
     until NOT UO.InJournal(ms4)
  next
next
 UO.Press(34)
 uo.Print('End')
endsub