Yoko

sub minround()
    VAR Kirka = '0x0E85' ; Тип Кирки
    VAR MaxVes = 550 ; Максимальный вес, подымаемый чаром минус 10-15 стоунов
    VAR TileNum = '1340' ; Тайл пола пещеры (наиболее распространенный тип)
    VAR x, y, t, k
    VAR MaxTime = 100 ; измеряется в 1/10 сек.
    var continue = "useable|выкопали|0xAD00|0xA867|0xA2DE|0xAD03|0x5DE0|0x5DE1|0x5DE2|0x5DE3|0x5DE4|0x5DE5|0x5DE6|0x5DE7|Вы положили|put the|is nothing here to mine|Wthere do you|Вам не удалось|У вас нет|have no line|ничего|Тут ничего|Попробуйте|Try mining elsewhere" ; сообщения о продолжении капания этого тайла
    var break = "0xAD00|0xA867|0xA2DE|Тут ничего|is nothing here to mine|нет руды|У вас нет|have no line|Попробуйте|Try mining elsewhere" ; сообщения о прекращении капания этого тайла
    for y=-2 to 2
        for x=-2 to 2
            k = 0
            repeat
                UO.DeleteJournal()
                t = UO.Timer()
                k = k + 1
                UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
                UO.UseType( Kirka )
                repeat
                    wait(300)
                until UO.InJournal(continue) OR ((t + MaxTime) < UO.Timer())
                If UO.Weight > MaxVes Then
                    UO.Print(" Overweight!" )
                    return
                Endif
            until ( NOT UO.InJournal(break) OR (k > 10) )
        next
    next
endsub

   WHILE NOT UO.Dead()
      for y=-2 to 2
.......
      next
      wait( 300 )
   wend