ПОМОГИТЕ С МИНИНГОМ!!!!
Posted: 2004-08-14 11:00:21
Напишите плиз скрипт на мининг чтоб капал тока вокруг себя и всё!!
Заранее спасибо!!
Заранее спасибо!!
Держи.!zzz123 wrote:Напишите плиз скрипт на мининг чтоб капал тока вокруг себя и всё!!
Заранее спасибо!!
Code: Select all
sub Mining()
var mx, my, mz, i, j
repeat
uo.addobject("Shovel",0x4008003D) ;ID Лопаты или кирки
na4:
; gotoxy(5136,1181) ;
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my-4 to my+4
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("Shovel")
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")
wait(500)
endif
wend
UO.DeleteJournal()
if uo.Weight>820 then ;
end sub
goto na4
endif
next
next
until uo.dead()
end sub