sub main() var mx, my, mz, i, j, TIME var number = 1 Uo.exec("set norbcheck 0"); для рекола uo.exec("set norbcalc 0"); тоже uo.canceltarget() uo.print('!!Выбери Лопату!! ') uo.exec('addobject shovel') while uo.targeting() wait(100) wend while not uo.Dead() mx = UO.GetX("self") my = UO.GetY("self") mz = UO.GetZ("self") UO.DeleteJournal() for i = mx-1 to mx+1 for j = my-1 to my+1 UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j)) While not UO.InJournal("There is nothing here to mine for") and not UO.InJournal("That is too far away") and not UO.InJournal("You decide not to mine for now") and not UO.InJournal("You put the") and not UO.InJournal("You cannot mine so close to yourself") and not UO.InJournal("You have no line of sight to that location") uo.DeleteJournal() if uo.waiting() then uo.canceltarget() endif UO.Waittargettile('1341', str(i), str(j), str(mz)) UO.exec("useobject shovel") TIME = 0 while not TIME == 6000 and not UO.InJournal("There is nothing here to mine for") and not UO.InJournal("That is too far away") and not UO.InJournal("You decide not to mine for now") and not UO.InJournal("You put the") and not UO.InJournal("You cannot mine so close to yourself") and not UO.InJournal("You have no line of sight to that location") TIME = 0 uo.DeleteJournal() while not UO.InJournal("You put the") and not TIME == 4000 and not UO.InJournal("There is nothing here to mine for") and not UO.InJournal("That is too far away") and not UO.InJournal("You decide not to mine for now") and not UO.InJournal("You cannot mine so close to yourself") and not UO.InJournal("You have no line of sight to that location") wait (100) TIME = TIME + 100 wend wait(1000) uo.Print('pereskok') wend if uo.weight > Weight then if NaZemly == 1 then Drop() else uo.exec("terminate all") endif wait(100) endif wend UO.DeleteJournal() next next wend end sub
Есть вот такой скрипт, капает вокруг себя, как его доработать чтобы он двигался по заданным координатам и делал по 1 копки. За помощь отблагодарю.
|