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('0x40251781')
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('0x0F39') 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 (1500) 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
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('0x0F39') 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 (1500) 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
Sub Reconnector() var RFlag RFlag = 1 Repeat While (UO.ObjAtLayer('Bpack') == '') if RFlag Then RFlag = 0 endif Wait(20000) UO.Say('') Wait(3000) UO.Say('') Wait(3000) UO.Say('') Wait(3000) UO.LDblClick(357,164) UO.LClick(616,459) Wait(3000) WEnd Wait(3000) if (RFlag == 0) Then UO.Exec('terminate main') wait(1000) UO.Exec('exec main') wait(1000) RFlag = 1 endif Until false end sub
