PotatoUnplex

pcall(function() os.loadAPI "bigfont" end)

local OSes = {
    "PotatOS",
    "ShutdownOS",
    "YomatOS",
    "TomatOS",
    "ChorOS",
    "BurritOS",
    "GovOS",
}

local function random_pick(list)
    return list[math.random(1, #list)]
end

local function random_color()
    return math.pow(2, math.random(0, 15))
end

local function HSL(hue, saturation, lightness)
    if hue < 0 or hue > 360 then
        return 0x000000
    end
    if saturation < 0 or saturation > 1 then
        return 0x000000
    end
    if lightness < 0 or lightness > 1 then
        return 0x000000
    end
    local chroma = (1 - math.abs(2 * lightness - 1)) * saturation
    local h = hue/60
    local x =(1 - math.abs(h % 2 - 1)) * chroma
    local r, g, b = 0, 0, 0
    if h < 1 then
        r,g,b=chroma,x,0
    elseif h < 2 then
        r,b,g=x,chroma,0
    elseif h < 3 then
        r,g,b=0,chroma,x
    elseif h < 4 then
        r,g,b=0,x,chroma
    elseif h < 5 then
        r,g,b=x,0,chroma
    else
        r,g,b=chroma,0,x
    end
    local m = lightness - chroma/2
    return (r+m) * 16777216 + (g+m) * 65535 + (b+m) * 256
end

local default_palette = { 0x000000, 0x7F664C, 0x57A64E, 0xF2B233, 0x3366CC, 0xB266E5, 0x4C99B2, 0x999999, 0x4C4C4C, 0xCC4C4C, 0x7FCC19, 0xDEDE6C, 0x99B2F2, 0xE57FD8, 0xF2B2CC, 0xFFFFFF }
local palette = { 0x000000 }
for i = 0, 13 do
    table.insert(palette, HSL((i / 13) * 360, 1.0, 0.4))
end
table.insert(palette, 0xFFFFFF)

local function init_screen(t)
    t.setTextScale(4)
    t.setBackgroundColor(colors.black)
--  t.setCursorPos(1, 1)
--  t.clear()
    for i, c in pairs(default_palette) do
        t.setPaletteColor(math.pow(2, 16 - i), c)
    end
end

local function write_screen_slow(term, text, delay)
    local w, h = term.getSize()
    term.setCursorBlink(true)
    for i = 1, #text do
        local char = text:sub(i, i)
        local x, y = term.getCursorPos()
        term.write(char)
        if x == w then
            term.scroll(1)
            term.setCursorPos(1, h)
        end
        sleep(delay)
    end
    term.setCursorBlink(false)
end

local monitors = {peripheral.find("monitor", function(_, m) init_screen(m) return true end)}

local function unpotatoplexer()
    while true do
        local t = random_pick(monitors)
        t.setTextColor(random_color())
        if math.random(0, 1000) == 40 then
            if bigfont then bigfont.writeOn(t, 1, "hello", 2, 2) end
        else
            write_screen_slow(t, random_pick(OSes) .. " ", 0.05)
        end
    end
end

local threads = {}
for i = 1, 5 do
    table.insert(threads, unpotatoplexer)
end
parallel.waitForAll(unpack(threads))