Page 1 of 1

А кто нибуть может модернизировать скрипт?

Posted: 2004-09-13 22:21:01
by SuperStar
Может кто нибуть дополнить етот скрипт летанием по рунам, выгрузка руды и улет от пк кароче все также тока капание как в етом скрипте!

sub Mining()
var mx, my, mz, i, j
repeat
uo.addobject("Shovel",0x41028D77) ;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


Зарание большое спасибо!!!

Posted: 2004-09-14 15:52:01
by South
http://yoko.netroof.net/forum/viewtopic.php?t=842
все что тебе нада найдеш тут!

Posted: 2004-09-17 05:49:14
by SuperStar
ты не понял у мя есть етот скрипт но там капание не очень а я хочу чтоб было все тоже самое тока капание как я дала скрипт!

Posted: 2004-09-17 16:36:43
by South
ну вот возьми тот скрипт и поставь вместо копания того что там есть свое !

Posted: 2004-09-22 03:15:36
by SuperStar
да тока работь он не будет )

Posted: 2004-10-28 13:21:11
by SuperStar
что ни кто не может ?

Posted: 2004-10-28 13:44:41
by Sfagnum
SuperStar wrote:что ни кто не может ?
может, но зачем?