Ultima Online Antares

##################
VAR Shovel1    = '0x0F39'
VAR Shovel2    = '0x0F3A'
VAR Pickaxe1    = '0x0E85'
VAR Pickaxe2    = '0x0E86'
VAR axe1    = '0x0F43'
VAR axe2    = '0x0F44'
VAR FPole1    = '0x0DBF'
VAR FPole2    = '0x0DC0'
VAR log        = '0x1BDD'
VAR knife    = '0x0F51'
VAR Steak    = '0x097A'
var weapon    = '0x1404'
var Enemy    = '0x00000000'
VAR MaxVes = 550, printcolour = '1069'
VAR delay1 = 100 , delay2 = 300, delay3 = 700
VAR MaxRangeMining = 2, MaxRangeLumber = 3, MaxRangeFishing = 6
VAR X, Y, Z, i, Tiles, Lasttimer, MaxRange, action, timemove, ID_bank
VAR allmsg = 'Try|table|attacking you|%|destroyed|broke|useable|put the|is nothing here to mine|Wthere do you|have no line|mining elsewhere|too far away|so close to yourself|Logs|nothing|ou hack at the tree|no logs|ou can|reach this|hat is too far away|do much|t appears immune to your blow|cannot|fishing elsewhere|too far away|pull out|anything|no fish|0xAD00|0xA867|0xA2DE|0xAD03|0x5DE0|0x5DE1|0x5DE2|0x5DE3|0x5DE4|0x5DE5|0x5DE6|0x5DE7|выкопали|Вы положили|Вам не удалось|У вас нет|ничего|Тут ничего|Попробуйте|атакует|положили|древесина кончилась|дрова|ударили по дереву|ут нечего рубить|ы не можете до этого достать|ерево слишком далеко|то кажется свободным для вашего удара|поймали|не получилось|нету рыбы|месте|далеко|вытащили удочку'
VAR endmsg = 'Try|%|destroyed|is nothing here to mine|have no line|Try mining elsewhere|too far away|so close to yourself|nothing|no logs|ou can|cannot|fishing elsewhere|no fish|0xAD00|0xA867|0xA2DE|Тут ничего|нет руды|У вас нет|Попробуйте|древесина кончилась|ут нечего рубить|ы не можете до этого достать|ерево слишком далеко|свободным для вашего удара|нету рыбы|в другом месте|далеко|вытащили удочку'
VAR mX = UO.GetX('self'), mY = UO.GetY('self'), mZ = UO.GetZ('self')
sub Mining()
    UO.SetGlobal('action','1')
    UO.SetGlobal('MaxRange','2')
    uo.mfgi( 'resend' )
    extraction()
end sub
Sub extraction()
    VAR mX = UO.GetX('self'), mY = UO.GetY('self'), mZ = UO.GetZ('self')
    for Y = -val(uo.GetGlobal('MaxRange')) to val(uo.GetGlobal('MaxRange'))
        for X = -val(uo.GetGlobal('MaxRange')) to val(uo.GetGlobal('MaxRange'))
            if val(uo.GetGlobal('action')) == 1 then
                Tiles = MiningTiles(mX+X, mY+Y)
            end if
            if Tiles then
                repeat
                    CheckAll()
                    UO.DeleteJournal()
                    UO.WaitTargetTile(Tiles, mX+X, mY+Y, mZ)
                    Tools()
                    LastTimer=UO.Timer()
                    repeat
                        wait( delay1 )
                    until UO.InJournal( allmsg ) || UO.Timer()>LastTimer+delay2 || UO.Weight > MaxVes || UO.Dead()
                    CheckAll()
                until UO.InJournal( endmsg ) || UO.Timer()>LastTimer+delay3 || UO.Weight > MaxVes || UO.Dead()
                uo.mfgi( 'add', '7847', mX+X, mY+Y, mZ )
            end if
        next
    next
    UO.Set('quiet','0')
    uo.charprint('self', printcolour, 'ВСЕ!')
    UO.Sound(100)
end sub
Sub CheckAll()
    If UO.Weight > MaxVes Then
        UO.Set('quiet','0')
        uo.charprint('self', printcolour, 'Перегруз!')
        return
    endif
end sub
Sub Tools()
    if val(uo.GetGlobal('action')) == 1 then
        if UO.Count(Shovel1) then
            UO.UseType(Shovel1)
            return
        else
            if UO.Count(Shovel2) then
                UO.UseType(Shovel2)
                return
            else
                if UO.Count(Pickaxe1) then
                    UO.UseType(Pickaxe1)
                    return
                else
                    if UO.Count(Pickaxe2) then
                        UO.UseType(Pickaxe2)
                        return
                    else
                        UO.Set('quiet','0')
                        uo.charprint('self', printcolour, 'Нечем копать!')
                        MyTerminate()
                    endif
                endif
            endif
        endif
    end if
end sub
Sub MiningTiles(X,Y)
    if UO.PrivateGetTile(X, Y, -1, 616, 618) then
        for i=616 to 618
            if UO.PrivateGetTile(X, Y, -1, i, i) then
                return i
            end if
        next
    end if
    if UO.PrivateGetTile(X, Y, -1, 1339, 1363) then
        for i=1339 to 1363
            if UO.PrivateGetTile(X, Y, -1, i, i) then
                return i
            end if
        next
    end if
    if UO.PrivateGetTile(X, Y, -1, 2272, 2282) then
        for i=2272 to 2282
            if UO.PrivateGetTile(X, Y, -1, i, i) then
                return i
            end if
        next
    end if
    if UO.PrivateGetTile(X, Y, -1, 4963, 4973) then
        for i=4963 to 4973
            if UO.PrivateGetTile(X, Y, -1, i, i) then
                return i
            end if
        next
    end if
    if UO.PrivateGetTile(X, Y, -1, 6001, 6012) then
        for i=6001 to 6012
            if UO.PrivateGetTile(X, Y, -1, i, i) then
                return i
            end if
        next
    end if
    if UO.PrivateGetTile(X, Y, -1, 13121, 13369) then
        for i=13121 to 13369
            if UO.PrivateGetTile(X, Y, -1, i, i) then
                return i
            end if
        next
    end if
    if UO.PrivateGetTile(X, Y, -1, 13446, 13455) then
        for i=13446 to 13455
            if UO.PrivateGetTile(X, Y, -1, i, i) then
                return i
            end if
        next
    end if
    if UO.PrivateGetTile(X, Y, -1, 13484, 13492) then
        for i=13484 to 13492
            if UO.PrivateGetTile(X, Y, -1, i, i) then
                return i
            end if
        next
    end if
    if UO.PrivateGetTile(X, Y, -1, 13625, 13628) then
        for i=13625 to 13628
            if UO.PrivateGetTile(X, Y, -1, i, i) then
                return i
            end if
        next
    end if
    return 0
end sub
Sub Gong(times); play wav-file
    VAR i
    for i=1 to times
        UO.Exec("playwav C:\WINDOWS\Media\ringin.wav")
        wait(500); time to play sample at once
    next
end sub
Sub DeleteJournal(msg)
    While UO.InJournal(msg)
        UO.SetJournalLine(UO.InJournal(msg) - 1,'')
    wend
endsub
Sub MyTerminate()
    UO.Set('quiet','1')
    UO.CancelMenu()
    UO.IgnoreReset()
    UO.Set('quiet','0')
    UO.Exec('terminate all')
end sub
Sub checklag()
    DeleteJournal("ackpack")
    UO.Click("backpack")
    repeat
        wait(100)
    until UO.InJournal("ackpack")
end sub
sub clean(); очистка точек добычи
    var m = 50
    for Y = -m to m
        for X = -m to m
            uo.mfgi( 'clear', mX+X, mY+Y, mZ )
        next
    next
end sub