--Zi55cb9y
            --(multi) ME Level Emitter using turtle
            --supports custom functions on high or low level, compress cobble is implemented
	    --optional different id not a very userful option since it doesnt know how much to drop how often, craft would work better


            local config = {}
            local turtlefacing = "south"
            local meside = "south"
            local polltimer = 5
            local compressadjustment = 0.6
            local droptosideadjustment = 0.4

            local function setup()
                    -- edit this function to change your configuration
                    -- {"ItemIDToMeasure", "> or <", ThresholdAmount, FunctionToCall, "DropSide/Arg1", "OptionalDifferentItemIDToExport"}
                    -- valid sides are north, south, east, west, up, and down


                    config[1] = {"3:0",      ">",  64, dropItemToSide, "up"                    }
                    config[2] = {"14276:9",  "<",  64, dropItemToSide, "north",   "8565:0"     }
                    config[3] = {"297:0",    "<",  64, craftItem,      nil,       "297:0"      }
                    config[4] = {"4:0",      ">",  96, compress                                }  --compress cobble
                    config[4] = {"2506:0",   ">",  8, compress                                 }
                    config[4] = {"2506:1",   ">",  8, compress                                 }
                    config[4] = {"2506:2",   ">",  8, compress                                 }
                    config[4] = {"2506:3",   ">",  8, compress                                 }
                    config[4] = {"2506:4",   ">",  8, compress                                 }
                    config[4] = {"2506:5",   ">",  8, compress                                 }
                    config[4] = {"2506:6",   ">",  8, compress                                 }  --up to octuple

                    -- turtle needs to be next to ME Controller to use craftItem
                    -- crafting turtle required to use compress() for compressed cobblestone
            end


            local me
            local mepull
            local timeradjustment = 0
            local count = 0
            local stack = {}


            function dropItemToSide(info, count)

                    local chest = peripheral.wrap(info.side)
                    if(chest == nil) then print("Failed to wrap inventory side " .. info.side) end
                    local size = chest.getInventorySize()
                    local stacks = chest.getAllStacks()
                    local stacksize

                    stack.id = info.id2
                    stack.dmg = info.dmg2
                    stack.qty = me.countOfItemType(stack.id, stack.dmg)
                    if count < stack.qty then stack.qty = count end

                    while (stack.qty > 0) and (polltimer - timeradjustment > 1) do
			stacksize = me.extractItem(stack, mepull)
			if stacksize == nil or stacksize < 1 then
                           break
                        end
			stack.qty = stack.qty - stacksize
                        for slot = 1, size do
                            if stacks[slot] == nil or (stacks[slot].id == stack.id and stacks[slot].dmg == stack.dmg) then
                                    stacksize = stacksize - chest.pullItem(info.pull, 1, stacksize, slot)
                                    if stacksize  <= 0 then
                                            break
                                    end
                            end
                        end
                        if stacksize != 0 then
                           break
                        end
                        timeradjustment = timeradjustment + droptosideadjustment
                    end
                    returnInventory()
            end

            function craftItem(info, count)
                    stack.id = info.id2
                    stack.dmg = info.dmg2
                    stack.qty = count

                    local jobs = me.getJobList()
                    for k, v in pairs(jobs) do
                            if v.id == stack.id and v.dmg == stack.dmg then
                                    stack.qty = stack.qty - v.qty
                            end
                    end

                    me.requestCrafting(stack)
            end

            function returnInventory()
                        print("Returning Inventory To ME")
                    for slot = 1, 16 do
                            if turtle.getItemCount(slot) > 0 then
                                    me.insertItem(slot, 64, mepull)
                            end
                    end
            end

            local craftingSlot = {1,2,3,5,6,7,9,10,11}
            function compressSmall(info, count)
                    if count < 9 then return end
                    if count > 63 then count = 63 end
                    count = math.floor(count / 9)
                    stack.id = info.id2
                    stack.dmg = info.dmg2
                    stack.qty = count * 9

                    me.extractItem(stack, mepull)
                    for slot = 2, 9 do
                    turtle.transferTo(craftingSlot[slot], count)
                    end
                    turtle.craft()
                    returnInventory()
            end

            function compress(info, count)
                    if count < 704 then
                            compressSmall(info, count)
                    end
                    stack.id = info.id2
                    stack.dmg = info.dmg2
                    stack.qty = 64

                    while (count >= 704) and (polltimer - timeradjustment > 1) do

                            for slot = 1, 11 do
                                    me.extractItem(stack, mepull)
                            end
                            me.insertItem(4, 64, mepull)
                            me.insertItem(8, 64, mepull)
                            turtle.craft()
                            me.insertItem(1, 64, mepull)
                            count = count - 576
                            timeradjustment = timeradjustment + compressadjustment
                    end
            end

            local direction = {[0]="east", [1]="south", [2]="west", [3]="north"}
            local side = {[0]="front", [1]="right", [2]="back", [3]="left"}

            local function sideToDirection(side)
                if side == "front" then
                            return direction[turtlefacing%4]
                end
                if side == "right" then
                            return direction[(turtlefacing+1)%4]
                end
                if side == "back" then
                            return direction[(turtlefacing+2)%4]
                end
                if side == "left" then
                            return direction[(turtlefacing+3)%4]
                end
                if side == "top" then
                            return "up"
                end
                if side == "bottom" then
                            return "down"
                end
                return side
            end

            local function directionToSide(dir)
                if dir == "east" then
                            return side[(-turtlefacing+4)%4]
                end
                if dir == "south" then
                            return side[(-turtlefacing+5)%4]
                end
                if dir == "west" then
                            return side[(-turtlefacing+6)%4]
                end
                if dir == "north" then
                            return side[(-turtlefacing+7)%4]
                end
                if dir == "up" then
                            return "top"
                end
                if dir == "down" then
                            return "bottom"
                end
                return dir
            end

            local function negateDirection(dir)

                if dir == "east"   then return "west"  end
                if dir == "west"   then return "east"  end
                if dir == "north"  then return "south" end
                if dir == "south"  then return "north" end
                if dir == "up"     then return "down"  end
                if dir == "down"   then return "up"    end
                    return dir

            end

            local function processConfig()
                    local id, dmg
                    local pretty = {}

                    if turtlefacing == "east" then turtlefacing = 0 end
                    if turtlefacing == "south" then turtlefacing = 1 end
                    if turtlefacing == "west" then turtlefacing = 2 end
                    if turtlefacing == "north" then turtlefacing = 3 end

                            mepull = negateDirection(meside)
                            meside = directionToSide(meside)

                    for k, v in pairs(config) do
                            print("Processing config item " .. k)
                            pretty[k] = {}

                            pretty[k].id1, pretty[k].dmg1 = string.match(v[1], "([0-9-]+):([0-9-]+)")

                            pretty[k].compare = v[2]
                            pretty[k].threshold = v[3]
                            pretty[k].func = v[4]

                                            pretty[k].pull = negateDirection(v[5])
                            pretty[k].side = directionToSide(v[5])

                            if v[6] then
                                    pretty[k].id2, pretty[k].dmg2 = string.match(v[6], "([0-9-]+):([0-9-]+)")
                            else
                                    pretty[k].id2 = pretty[k].id1
                                    pretty[k].dmg2 = pretty[k].dmg1
                            end

                            pretty[k].id1 = tonumber(pretty[k].id1)
                            pretty[k].dmg1 = tonumber(pretty[k].dmg1)
                            pretty[k].id2 = tonumber(pretty[k].id2)
                            pretty[k].dmg2 = tonumber(pretty[k].dmg2)

                            if (not pretty[k].id1) or (not pretty[k].dmg1) then
                                    print("Failed getting ItemID:Metadata on item " .. k)
                                    pretty[k] = nil
                            else

                            end
                    end

                    config = pretty
            end

            print("Running Setup")
            setup()
            print("Processing Config")
            processConfig()

            me = peripheral.wrap(meside)
            if me == nil then
                print("ME Controller Not Found")
                return
            end

            turtle.select(1)
            returnInventory()

            local hitthreshold = "false"
            while true do
                    timeradjustment = 0
                    for k, v in pairs(config) do
                                    print("Processing Item: " .. k)
                                    hitthreshold = "false"
                                    count = me.countOfItemType(v.id1, v.dmg1)

                                    if v.compare == ">" then
                                            if count > v.threshold then
                                                    hitthreshold = "true"
                                                    v.func(v, count - v.threshold)
                                            end
                                    else
                                            if count < v.threshold then
                                                    hitthreshold = "true"
                                                    v.func(v, v.threshold - count)
                                            end
                                    end
                                    print(v.id1 .. ":" .. v.dmg1 .. " " .. v.compare .. " " .. v.threshold .. " = " .. hitthreshold)

                    end
                    sleep(polltimer - timeradjustment)
            end