PC-Mobfarm...

mon = peripheral.wrap("back")
redstone.setBundledOutput("right", 0)
mon.setBackgroundColor(colors.black)
mon.setTextScale(1.5)
mon.clear()

--Hilfsfunktionen--

function color(color)
    mon.setTextColor(color)
end

function pos(gap, line)
    mon.setCursorPos(gap1,line1)
end

function msg(gap, line, color, groundb, text)
    if color == 1 then
        color = 1
    elseif color == 02 then
        color = 2
    elseif color == 03 then
        color = 4
    elseif color == 04 then
        color = 8
    elseif color == 05 then
        color = 16
    elseif color == 06 then
        color = 32
    elseif color == 07 then
        color = 64
    elseif color == 08 then
        color = 128
    elseif color == 09 then
        color = 256
    elseif color == 10 then
        color = 512
    elseif color == 11 then
        color = 1024
    elseif color == 12 then
        color = 2048
    elseif color == 13 then
        color = 4096
    elseif color == 14 then
        color = 8192
    elseif color == 15 then
        color = 16384
    elseif color == 16 then
        color = 32768
    end
    if groundb == 1 then
        groundb = 1
    elseif groundb == 02 then
        groundb = 2
    elseif groundb == 03 then
        groundb = 4
    elseif groundb == 04 then
        groundb = 8
    elseif groundb == 05 then
        groundb = 16
    elseif groundb == 06 then
        groundb = 32
    elseif groundb == 07 then
        groundb = 64
    elseif groundb == 08 then
        groundb = 128
    elseif groundb == 09 then
        groundb = 256
    elseif groundb == 10 then
        groundb = 512
    elseif groundb == 11 then
        groundb = 1024
    elseif groundb == 12 then
        groundb = 2048
    elseif groundb == 13 then
        groundb = 4096
    elseif groundb == 14 then
        groundb = 8192
    elseif groundb == 15 then
        groundb = 16384
    elseif groundb == 16 then
        groundb = 32768
    end

    mon.setBackgroundColor(groundb)
    mon.setCursorPos(gap,line)
    mon.setTextColor(color)
    text = mon.write(text)
end

while true do
-- Green-Wire Mobfarm --
        if colors.test (redstone.getBundledInput("right"), colors.green) then
            msg(1,1,1,14,"Mobfarm voll")
        end
        if not colors.test (redstone.getBundledInput("left"), colors.green) then
            msg(1,1,1,15,"Mobfarm leer")
        end
------------------------
sleep(0.5)
end