Помогите подправить. Снова мининг
Posted: 2006-07-17 01:04:47
Можно ли сюда добавить, чтоб при выкапке определённой руды он шел дальше, а не докапывал точку?
Code: Select all
sub mine_spot()
var maxMineTime=30000
var times=0
var timeout=0
while not UO.Hidden()
UO.Warmode("0")
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(4000)
wend
While UO.InJournal("Нет")==0
UO.Print("Mining time!")
UO.DeleteJournal()
UO.WaitTargetTile("1339",STR(UO.GetX()+1),STR(UO.GetY()),"0")
UO.UseType("0x0F39")
timeout=0
times = times +1
if times>20 then
wait(maxMineTime)
times = 0
endif
Repeat
timeout=timeout+200
Wait(200)
#UO.Print("Waiting...")
Until UO.InJournal("положили") OR UO.InJournal("You loosen") OR UO.InJournal("Нет") OR timeout>maxMineTime
Wend
return 0
end sub