Yoko

plzzz Дайте скрипт на мининг в вип шахте чтоб копал потом перекладывал в сумку и так постояно

Залезь в Search иногда помогает Я тут уйма скриптов на мининг видел.

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




держи короче ))

на мининг мнонго но на vip шыхту нету

о спасибо,а можно сделать так чтобы но в нужное мне место перекладывал не в backpack a сундук

тут он кидает в сундук надо токо встать 3 клетка по диагонали в правую сторону от середины сундука ! ))

a gde ID dunduka stavitj?

uo.setcatchbag('0x400BF4EF')

вот тут вместо этих цифр

спасибои теперь последнии вопрос можна просто поближе к ящику встать

хмм хз )) мне сказали так встать я так стою и капаю )

ок я встал просто поближе и он сразу руду скидавает в сундук=))