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

Скрипт на минииг в vip шахте
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2599		 Page 1 of 1
Author:  Excel [ 2005-01-12 19:51:36 ]
Post subject:  Скрипт на минииг в vip шахте
plzzz Дайте скрипт на мининг в вип шахте чтоб копал потом перекладывал в сумку и так постояно
Author:  Beastik [ 2005-01-12 20:05:03 ]
Post subject: 
Залезь в Search иногда помогает :) Я тут уйма скриптов на мининг видел.
Author:  Yamakasi*** [ 2005-01-12 20:16:31 ]
Post subject: 
sub mining()
var mx, my, mz, i, j
var ismining, ixx, isheavy
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")

uo.setcatchbag('0x400BF4EF')

While not UO.Dead()
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+2
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
ismining = 1
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ismining

UO.DeleteJournal()
hide()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype('0x0E85')
ixx = 0
ismining=1
while not UO.InJournal("You put") and not UO.InJournal("location")and not UO.InJournal("but fail") and not UO.InJournal("no ore") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ixx <= 100
wait (100)
ixx = ixx + 1
wend
while UO.InJournal("but fail")
Wait (3000)
UO.DeleteJournal()
wend




if uo.injournal("Dull Copper") then
ismining = 0
endif

if not ismining then
uo.print("Not mining here")
endif
wend
UO.DeleteJournal()
next
next
wend
end sub

sub hide()
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Hiding")
wait(4000)
wend
end sub


sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')

repeat
wait(500)
until UO.InJournal('backpack')
end sub




держи короче ))
Author:  Excel [ 2005-01-12 20:17:13 ]
Post subject: 
на мининг мнонго но на vip шыхту нету :cry:
Author:  Excel [ 2005-01-12 20:22:51 ]
Post subject: 
о спасибо,а можно сделать так чтобы но в нужное мне место перекладывал не в backpack a сундук
Author:  Yamakasi*** [ 2005-01-12 21:46:11 ]
Post subject: 
тут он кидает в сундук надо токо встать 3 клетка по диагонали в правую сторону от середины сундука ! ))
Author:  Excel [ 2005-01-12 22:59:26 ]
Post subject: 
a gde ID dunduka stavitj?
Author:  Yamakasi*** [ 2005-01-12 23:29:13 ]
Post subject: 
uo.setcatchbag('0x400BF4EF')

вот тут вместо этих цифр
Author:  Excel [ 2005-01-12 23:33:51 ]
Post subject: 
спасибои теперь последнии вопрос можна просто поближе к ящику встать
Author:  Yamakasi*** [ 2005-01-12 23:34:46 ]
Post subject: 
хмм хз )) мне сказали так встать я так стою и капаю )
Author:  Excel [ 2005-01-12 23:38:57 ]
Post subject: 
ок я встал просто поближе и он сразу руду скидавает в сундук=))
Author:  Sergant [ 2005-01-30 13:08:35 ]
Post subject: 
http://yoko.netroof.net/forum/viewtopic ... 5262#15262
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/