sub loot()
    var currentX, i, quantity,REGBag = "0x410A7DA9", box = "0x410A7DA9"
    dim Ore[4]
    Ore[1]=0x19B9 ; 4 and more ore
    Ore[2]=0x19B7 ; 1 ore
    Ore[3]=0x19BA ; 2 ore
    Ore[4]=0x19B8 ; 3 ore
    uo.useobject("backpack")
    wait(300)
    for i = 1 to 4
        repeat
            if uo.findtype(Ore[i], -1, "backpack") then
                uo.moveitem("finditem", 0, box)
                wait(500)
            end if
        until not uo.findcount()
    next
    uo.useobject("backpack")
    wait(300)
    uo.useobject(REGBag)
    wait(300)
    mdim R[9][2]
    R[1][0] = "0x0c77"
    R[1][1] = 15
    R[2][0] = "0x0F09"
    R[2][1] = 15
    R[3][0] = "0x0F8D"
    R[3][1] = 15
    R[4][0] = "0x0F8C"
    R[4][1] = 15
    R[5][0] = "0x0F84"
    R[5][1] = 15
    R[6][0] = "0x0F86"
    R[6][1] = 15
    R[7][0] = "0x0F7B"
    R[7][1] = 15
    R[8][0] = "0x0F7A"
    R[8][1] = 15
    for i = 1 to 8
        quantity = R[i][1]
        if uo.findtype(R[i][0], -1, "backpack") and uo.getquantity("finditem") < quantity then
            quantity = R[i][1] - uo.getquantity("finditem")
            if uo.findtype(R[i][0], -1, REGBag) and uo.getquantity("finditem") >= quantity then
                uo.moveitem("finditem", quantity, "backpack")
                wait(500)
            else
                uo.print("Слишком мало чтобы брать...")
                wait(100)
            end if
        end if
    next
    currentX=uo.GetX()
    uo.msg("Go")
    wait(10000)
    while currentX==uo.GetX()
        uo.msg("Go")
        wait(10000)
    wend
end sub