Копалка.Подправьте пожалуйста

[Titan_Wild]

Скрипт работает хорошо, за исключением одного, очень часто, не дождавшись завершения копки начинает новую, тем самым сбивая предыдушую... Помогите исправить, чтобы он дожидался результатов первой копки и не фейлил последуюшие .....))))))

Code: Select all

 sub mining() 
    Var mnPickaxe, mnR, mnXSt, mnXEnd, mnYSt, mnYEnd, mnXMy, mnYMy, mnZMy, mnX, mnY, mnXCur, mnYCur, mnCheck 
    mnPickaxe = "0x0E85" # Тип кирки 
    mnR = 3              # Радиус копания 

    mnXSt = - mnR 
    mnXEnd = mnR 
    mnYSt = - mnR 
    mnYEnd = mnR 

    For mnXCur = mnXSt To mnXEnd 
     For mnYCur = mnYSt To mnYEnd 
      hiding() 
      Repeat 
       UO.DeleteJournal() 
       mnXMy = UO.GetX() 
       mnYMy = UO.GetY() 
       mnZMy = UO.GetZ() 
       mnX = mnXCur + mnXMy 
       mnY = mnYCur + mnYMy 

       UO.Print("Current position (" + Str(mnX) + ";" + Str(mnY) + ";" + Str(mnZMy) + ")") 
       UO.WaitTargetTile("1530", Str(mnX), Str(mnY), Str(mnZMy)) 
       UO.UseType(mnPickaxe) 

       mnCheck = 0 
       Repeat 
        mnCheck = mnCheck + 1 
        Wait(100) 
       Until mnCheck >= 120 Or UO.InJournal("You put") Or UO.InJournal("You loose") Or UO.InJournal("Try mining") Or UO.InJournal("no line") Or UO.InJournal("no ore") Or UO.InJournal("no line") 
      Until UO.InJournal("no ore") Or UO.InJournal("no line") Or UO.InJournal("Try mining") 
     Next 
    Next 
end sub 

sub hiding() 
    Var hdntim 
    If Not UO.Hidden() Then 
     hdnst: 
      UO.DeleteJournal() 
      hdntim = 0 
      UO.UseSkill('Hiding') 
      Repeat 
       hdntim = hdntim + 1 
       Wait(100) 
      Until UO.InJournal("You have hidden yourself well") Or hdntim >= 36 
      If Not UO.InJournal("You have hidden yourself well") Then 
       Goto hdnst 
      End If 
    End If 
end sub 

.

[Nmy]

Code: Select all

mnCheck = 0 
 Repeat 
 mnCheck = mnCheck + 1 
 Wait(100) 
 Until mnCheck >= 200 Or UO.InJournal("You put") Or UO.InJournal("You loose") Or UO.InJournal("Try mining") Or UO.InJournal("no line") Or UO.InJournal("no ore") Or UO.InJournal("no line") 
 Until UO.InJournal("no ore") Or UO.InJournal("no line") Or UO.InJournal("Try mining") 
 Next 
 Next 
end sub

[Titan_Wild]

Спасибо, теперь догнал в чем трабл был ))

[Titan_Wild]

Брр... Теперь перестает копать, копнет, раз, два и стоит, кирку юзает но непонятно куда он ее юзает, получается так, раз копнул, два копнул, третий раз в журнале пишет куда ее ткнуть и стоит, проходит 20 сек и опять, и так раза 3-4, потом опять копнет и опять поражняком стоит по минуте..... Тайлы менял, но они не влияюют на это....В чем может быть проблема? В вердате с пеньками??)))) Помоготи плиз уже неделю марочюсь, весь форум перерыл ничего не получается, играю на оскоме...

[Mirage]

1) не полный набор фраз в журнале. Копай руками - сверяй сообщения не удачи, поломки, слишком далеко и прочего. На новых сферах например по умолчанию нельзя копать 3 тайл по диагоналям и под собой. Скрипт на это не рассчитан.
2) Некоторые деятели - админы затирают сообщения при добыче - соответственно скрипту не на что реагировать кроме счетчика - который у тебя теперь 20 секунд.
Мораль: проверяй фразы и играй со счетчиком. Замерь сколько длится копание 1 тайла с полным изъятием руды.


PS причем тут пеньки? О_о

[Titan_Wild]

Все сообщения проходят, ограничений на копку нет, скрипт реагирует на все сообщения, но реагирует не до конца, он как-то выборочно выбирает тайл, копать или нет, выкопал, подожил в пак, скрипт моментом отреагировал, задействовал кирку, но.... не стал копать, простоял 20 сек, опять задействовал кирку и опять не стал копать, в следующий раз может и капнуть...