Доброе время суток, обращаюсь к продвинутым ребятам по поводу скрипта мининга.
Является вот такой скрипт
sub Mining()
var mx, my, mz, i, j, z
for z = 1 to 100
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-2 to mx+2
for j = my -2 to my +2
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("nothing here to mine") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("cannot mine so close") and not UO.InJournal("in rock") and not UO.InJournal("iron")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0e85")
while not UO.InJournal("Вы положили") and not UO.InJournal("location") and not UO.InJournal("nothing here to mine") and not UO.InJournal("but fail") and not UO.InJournal("cannot mine so close") and not UO.InJournal("nothing here to mine") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait (100)
wend
wend
UO.DeleteJournal()
next
next
next
end sub
Приём ПРИЁМ!!!!
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)