Нужен скрипт на мининг что бы ходил по квадрату и копал,руда хрен с ней пусть сама сыпится (Желательно что бы скрипт был под Арбуз (Abyss) сферу) Заранее спасибо.
Может что можно будет зделать из этого!
sub Mining() ; Капание
var PX, PY, Ix,Iy, Dist
Dist=2
repeat
PX = UO.GetX("self")
PY = UO.GetY("self")
# repeat
UO.DeleteJournal()
For Iy = -Dist to Dist
For Ix = -Dist to Dist
UO.Print('Капаем по координате: '+Str(PX+Ix)+':'+Str(PY+Iy))
while (UO.Weight<=600) and not UO.InJournal('There is no ore') and not UO.InJournal("You have no line") and not UO.InJournal("That is to far away") and not UO.InJournal("You can't think")
UO.DeleteJournal()
UO.WaitTargetTile(-1,Str(PX+Ix),Str(PY+Iy),-1)
UO.UseType("0x0E85")
while not UO.InJournal("You put the") and not UO.InJournal("You loosen some") and not UO.InJournal("You can't think") and not UO.InJournal("That is to far away") and not UO.InJournal("There is no ore")
# UO.Print('2-while')
Wait(200)
wend
# UO.Print('1-while')
#If UO.InJournal("You can't use the %s where it") then
# uo.exec('exec restart')
# uo.Exec('terminate Mining')
# endif
wend
UO.Print('Всё выкапали в: '+Str(PX+Ix)+':'+Str(PY+Iy)+'
')
UO.DeleteJournal()
next
next
UO.Print('Усё!!! всё во круг себя выкапано... терь надо искать другое место!')
UO.Press(33,4,300)
Until (UO.Weight>=600)
endsub
sub restart()
Wait(2000)
uo.exec('exec Mining')
endsub