Yoko
http://forum.yoko.com.ua/

А кто нибуть может модернизировать скрипт?
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1370		 Page 1 of 1
Author:  SuperStar [ 2004-09-13 22:21:01 ]
Post subject:  А кто нибуть может модернизировать скрипт?
Может кто нибуть дополнить етот скрипт летанием по рунам, выгрузка руды и улет от пк кароче все также тока капание как в етом скрипте!

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


Зарание большое спасибо!!!
Author:  South [ 2004-09-14 15:52:01 ]
Post subject: 
http://yoko.netroof.net/forum/viewtopic.php?t=842
все что тебе нада найдеш тут!
Author:  SuperStar [ 2004-09-17 05:49:14 ]
Post subject: 
ты не понял у мя есть етот скрипт но там капание не очень а я хочу чтоб было все тоже самое тока капание как я дала скрипт!
Author:  South [ 2004-09-17 16:36:43 ]
Post subject: 
ну вот возьми тот скрипт и поставь вместо копания того что там есть свое !
Author:  SuperStar [ 2004-09-22 03:15:36 ]
Post subject: 
да тока работь он не будет )
Author:  SuperStar [ 2004-10-28 13:21:11 ]
Post subject: 
что ни кто не может ?
Author:  Sfagnum [ 2004-10-28 13:44:41 ]
Post subject: 
SuperStar wrote:
что ни кто не может ?
может, но зачем?
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/