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
Вот такой скрипт, что нужно добавить чтобы он ходил по пещере с задаными координатами? Помогите плиз
