Помогиет улучшить скрипт.

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
gmur
Posts: 141
Joined: 2004-07-18 13:01:15
Contact:

Помогиет улучшить скрипт.

Post by gmur »

Вот есть скрипт на мининг :
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
Подскажите что надо изменить что бы чар при копание натыкаясь на айрон переходил к другому тайлу..
Post Reply