gafkd

BundledCableSide1 = "left"
BundledCableSide2 = "top"
SensorSide = "right"
sle = 0.5
-------------------------------------------------------------
function ResetChest()   --Kiste Leeren
    redstone.setBundledOutput(BundledCableSide1,colors.combine(redstone.getBundledOutput(BundledCableSide1), colors.white))
    sleep(sle)
    redstone.setBundledOutput(BundledCableSide1,colors.subtract(redstone.getBundledOutput(BundledCableSide2), colors.white))
    sleep(sle)
end
-------------------------------------------------------------
function RequestPage1() -- Strom Chest
    redstone.setBundledOutput(BundledCableSide2,colors.combine(redstone.getBundledOutput(BundledCableSide2), colors.lime))
    sleep(sle)
    redstone.setBundledOutput(BundledCableSide2,colors.subtract(redstone.getBundledOutput(BundledCableSide2), colors.lime))
end

function RequestPage2() -- Strom Chest
    redstone.setBundledOutput(BundledCableSide2,colors.combine(redstone.getBundledOutput(BundledCableSide2), colors.red))
    sleep(sle)
    redstone.setBundledOutput(BundledCableSide2,colors.subtract(redstone.getBundledOutput(BundledCableSide2), colors.red))
end

function RequestPage3() -- Strom Chest
    redstone.setBundledOutput(BundledCableSide2,colors.combine(redstone.getBundledOutput(BundledCableSide2), colors.yellow))
    sleep(sle)
    redstone.setBundledOutput(BundledCableSide2,colors.subtract(redstone.getBundledOutput(BundledCableSide2), colors.yellow))
end

function RequestPage4() --Bau Chest
    redstone.setBundledOutput(BundledCableSide2,colors.combine(redstone.getBundledOutput(BundledCableSide2), colors.blue))
    sleep(sle)
    redstone.setBundledOutput(BundledCableSide2,colors.subtract(redstone.getBundledOutput(BundledCableSide2), colors.blue))
end

function CancelReset()          --Cancel Automatic Chest-Reset
    file = fs.open("local", "w")
    file.write("1")
    file.close()
end

function ActivateReset()            --Activate Automatic Chest-Reset
    file = fs.open("local", "w")
    file.write("0")
    file.close()
end

------------------------Program Start------------------------
os.loadAPI("ocs/apis/sensor")
sen = sensor.wrap(SensorSide)
Counter = 0

file = fs.open("local" , "r")   --read Reset
reset = file.readLine()
file.close()

while true do
    s = sen.getTargets()
    function getS()
        for v, k  in pairs(s) do
            if k.Name == "ME Wireless Access Point" then
                target = v
            end
        end
        return target
    end

    f = getS()
    s1 = sen.getTargetDetails(target)

    local Page1, Page2, Page3, Page4, Page5, Page6, Page7, Page8, Page9 = 0, 0, 0, 0, 0, 0, 0, 0, 0

    for _, item in pairs(s1.Items) do
        if item.Name == "ME Wireless Access Terminal" then
            Page1 = item.Size -- Werte ermittels und setzen
        end
        if item.Name == "Advanced Solar Panel" then
            Page2 = item.Size -- Werte ermittels und setzen
        end
        if item.Name == "Remote Orderer" then
            Page3 = item.Size -- Werte ermittels und setzen
        end
        if item.Name == "Cobblestone" then
            Page4 = item.Size -- Werte ermittels und setzen
        end
        if item.Name == "tile.machineBlock" then
            Page5 = item.Size -- Werte ermittels und setzen
        end
        if item.Name == "item.PipeItemsDiamond" then
            Page6 = item.Size -- Werte ermittels und setzen
        end
        if item.Name == "Electric Furnace" then
            Page7 = item.Size -- Werte ermittels und setzen
        end
        if item.Name == "Clay Dust" then
            Page8 = item.Size -- Werte ermittels und setzen
        end
        if item.Name == "Wooden Axe" then
            Page9 = item.Size -- Werte ermittels und setzen
        end
    end

    term.setCursorPos(1,1)
    term.clear()
    print("1: "..Page1)
    print("2: "..Page2)
    print("3: "..Page3)
    print("4: "..Page4)
    print("5: "..Page5)
    print("6: "..Page6)
    print("7: "..Page7)
    print("8: "..Page8)
    print("9: "..Page9)
    print(" ")
    print("Counter: " .. Counter)

    if Page1 < 1 then               --ME-System
        ResetChest()
        RequestPage1()
        ActivateReset()
        os.reboot()
    elseif Page2 < 1 then           --Solar
        ResetChest()
        RequestPage2()
        ActivateReset()
        os.reboot()
    elseif Page3 < 1 then           --Computer
        ResetChest()
        RequestPage3()
        ActivateReset()
        os.reboot()
    elseif Page4 < 1 then           --Baumaterial
        ResetChest()
        RequestPage4()
        ActivateReset()
        os.reboot()
    else
        Counter = Counter + 1
    end

    if Counter == 40 then
        if reset == "0" then
            ResetChest()
            CancelReset()
            os.reboot()
        end
        os.reboot()
    end
    sleep(0.25)
end