inject mining

sub mining()

var mx, my, mz, i, j, att


mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()

for i = mx-4 to mx+4
    for j = my -4 to my+4

    att = 0

        while not UO.Hidden()
            UO.Warmode("0")
            uo.print("Прячемся...")
            UO.UseSkill("Hiding")
            wait(4000)
        wend


        UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j))
        UO.DeleteJournal()

        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 not UO.InJournal("Copper") and not UO.InJournal("Rusty") and att < 6

            UO.DeleteJournal()

                if uo.waiting() then
                    uo.canceltarget()
                endif

            UO.Waittargettile("1341", str(i), str(j), str(mz))
            UO.Usetype(0x0E85)
            UO.print("use pickaxe")

            while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
            wait (500)
            wend

            if UO.InJournal("but fail") then
            att = att + 1
            end if

        wend

    next
next

end sub