Yoko

Нужен скрипт на мининг:
Чтобы чар копал а как руда кончалась делал шаг в перед и дальше капал.
заранее спасибо!

sub main()
var i
var j
UO.DeleteJournal()
while not UO.InJournal("You have hidden")
UO.UseSkill('Hiding')
wait(5000)
wend
start:
for i = 0 to 5

UO.DeleteJournal()

; ************************ первая точка ************************
UO.Print("1111111")
while not UO.InJournal("no ore here to mine.")
Hide()
uo.exec("usetype 'pickaxe'")
wait(1000)
UO.LClick (447,252)
wait(10000)
while not (UO.Hidden())
UO.exec ("useskill 'Hiding'")
wait(7500)
wend
wend


; *****************************вторая точка ***********************
UO.Print("2222222")
UO.DeleteJournal()
while not UO.InJournal("no ore here to mine.")

Hide()
uo.exec("usetype 'pickaxe'")
wait(1000)
UO.LClick (451,281)
wait(10000)
while not (UO.Hidden())
UO.exec ("useskill 'Hiding'")
wait(7500)
wend
wend

; *****************************3 точка ***********************
UO.Print("33333333")
UO.DeleteJournal()
while not UO.InJournal("no ore here to mine.")
Hide()
uo.exec("usetype 'pickaxe'")
wait(1000)
UO.LClick (445,300)
wait(10000)
while not (UO.Hidden())
UO.exec ("useskill 'Hiding'")
wait(7500)
wend
wend

; *****************************4 точка ***********************
UO.Print("4444444")
UO.DeleteJournal()
while not UO.InJournal("no ore here to mine.")
Hide()
uo.exec("usetype 'pickaxe'")
wait(1000)
UO.LClick (417,312)
wait(10000)
while not (UO.Hidden())
UO.exec ("useskill 'Hiding'")
wait(7500)
wend
wend

UO.Press(39)
wait (500)

UO.Press(39)
wait (500)

UO.Exec("usetype eda")
UO.Print("STOP !!!!")
next
for j = 0 to 9
UO.Press(37)
wait (500)
while not (UO.Hidden())
UO.exec ("useskill 'Hiding'")
wait(7500)
wend

next

goto start

end sub