если кто может.памогите. как к етому скрипту добавить токое... персонаж наченает свою работу в шахте.как только накапает 400 веса делает рекол по одной рунке(дамой) возле рекол места сразу находится сундук куда надо скинуть руду. как только выполняет это действие реколитса по другой рунке в шахту и начинает копать.хотелось бы чтоб этот скрипт мининга остался и чтоб после рекола персонаж выполнял марк на рунку . за ранее спасибо
Code: 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("There is nothing here to mine for") 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("There is nothing here to mine for") 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") and not UO.InJournal("There is nothing here to mine for")
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
|