Скрипт работает хорошо, за исключением одного, очень часто, не дождавшись завершения копки начинает новую, тем самым сбивая предыдушую... Помогите исправить, чтобы он дожидался результатов первой копки и не фейлил последуюшие .....))))))
Code:
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
.