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("1340",STR(UO.GetX()),STR(UO.GetY()),"0")
UO.UseType("0x0E85")
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