sub carpentry()
    var i, timer, msg = "put|fail", pole = "0x1234"
    dim resources[5]
        resources[1] = "0x1234" ;logs
        resources[5] = "0x1234" ;cloth
    dim objects[3]
        objects[0] = "container"
        objects[1] = "trash"
        objects[2] = "tool"
    for i = 0 to 2
        uo.addobject(objects[i])
        while uo.targeting()
            wait(100)
        wend
    next
    while True
        for i = 1 to 5 step 4
            if uo.count(resources[i]) < i then
                uo.findtype(resources[i], -1, "container")
                if uo.findcount() and uo.getquantity("finditem") >= i then
                    checklag()
                    uo.moveitem("finditem", i*50, "backpack")
                    wait(500)
                else
                    uo.print("404 =)")
                    return
                end if
            end if
        next
        uo.deletejournal()
        timer = uo.timer()
        uo.waitmenu("arpentry", "tools", "tools", "fishing pole")
        uo.useobject("tool")
        repeat
            wait(100)
        until uo.injournal(msg) or timer + 100 <= uo.timer()
        repeat
            uo.findtype(pole)
            if uo.findcount() then
                uo.moveitem("finditem", -1, "trash")
                wait(500)
            end if
        until not uo.findcount()
    wend
end sub