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.DeleteJournal() 
for i = mx-2 to mx+2 
for j = my -2 to my+2 
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j)) 
ismining = 1 
while not UO.InJournal("Try mining elsewhere") and not UO.InJournal("is nothing") and not UO.InJournal("can't") and not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("can't use") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ismining 

wait(400) 

UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype('0x0E85') 
if UO.Weight>840 then 
UO.recall('0x40023FBD','2') 
Return 
endif 
ixx = 0 
ismining=1 
while not UO.InJournal("Try mining elsewhere") and not UO.InJournal("Здесь больше нечего") and not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("can't use") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ixx <= 100 
wait (100) 
ixx = ixx + 1 
wend 



if uo.injournal("Rusty") then 
ismining = 0 
endif 
if uo.injournal("Old Copper") then 
ismining = 0 
endif 
if uo.injournal("Dull Copper") then 
ismining = 0 
endif 
if uo.injournal("the Copper") then 
ismining = 0 
endif 
if not ismining then 
uo.print("Not mining here") 
endif 
wend 
UO.DeleteJournal() 
next 
next 
uo.print("*** Script ended ***") 
end sub 
sub healing() 
UO.SetArm('CWeapon') 
UO.Exec("bandageself") 
wait(500) 
UO.Arm('CWeapon') 
end sub