Yoko

Code: Select all

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("Òóò íå îñòàëîñü ðóäû..") and not UO.InJournal("location") and not UO.InJournal("Ýòî ñëèøêîì äàëåêî îòñþäà") 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("Ýòî ñëèøêîì äàëåêî îòñþäà.")and not UO.InJournal("Ðàçäîëáèâ íåñêîëüêî êàìíåé...âû òàê íå÷åãî è íå íàøëè.") and not UO.InJournal("Òóò íå îñòàëîñü ðóäû.") and not UO.InJournal("Âàì òóäà íå äîòÿíóòüñÿ.") 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("Copper") then 
ismining = 0 
endif 

if uo.injournal("Tin") 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