Помогите со скриптом.
Posted: 2004-09-14 21:39:48
Вот есть скрипт на мининг :
sub mining()
var mx, my, mz, i, j
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
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
mark:
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject(0x40F81F9A)
wait(600)
if not UO.InJournal("nothing")and not UO.InJournal("elsewhere")and not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")and not UO.InJournal("where it")then
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("must wait")and not UO.InJournal("nothing") and not UO.InJournal("elsewhere")and not UO.InJournal("where it")
wait(500)
wend
goto mark
endif
next
next
end sub
Подскажите что надо изменить что бы чар при копание натыкаясь на айрон переходил к другому тайлу..
sub mining()
var mx, my, mz, i, j
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
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
mark:
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject(0x40F81F9A)
wait(600)
if not UO.InJournal("nothing")and not UO.InJournal("elsewhere")and not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")and not UO.InJournal("where it")then
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("must wait")and not UO.InJournal("nothing") and not UO.InJournal("elsewhere")and not UO.InJournal("where it")
wait(500)
wend
goto mark
endif
next
next
end sub
Подскажите что надо изменить что бы чар при копание натыкаясь на айрон переходил к другому тайлу..