FREAX/bin/screenfetch

if os.pullEvent ~= nil then

    local ccart, ccart_fg, ccart_bg, ccart_adv_fg, ccart_adv_bg, ccart_width

    if ... == "--small" then

        ccart = ([[\159\143\143\143\143\143\143\143\144
\150\136\144     \150
\150\130 \131    \150
\150       \150
\150       \150
\150      \140\150
         ]]):gsub("\\130", "\130"):gsub("\\131", "\131"):gsub("\\136", "\136"):gsub("\\140", "\140"):gsub("\\143", "\143"):gsub("\\144", "\144"):gsub("\\150", "\149"):gsub("\\159", "\159")

        ccart_fg = [[ffffffff7
f00fffff7
f0f0ffff7
ffffffff8
ffffffff8
f888888f8
fffffffff]]

        ccart_bg = [[77777777f
7ffffffff
7ffffffff
8ffffffff
8ffffffff
88888888f
fffffffff]]

        ccart_adv_fg = [[ffffffff4
f00fffff4
f0f0ffff4
ffffffff4
ffffffff4
f444444d4
fffffffff]]

        ccart_adv_bg = [[44444444f
4ffffffff
4ffffffff
4ffffffff
4ffffffff
44444444f
fffffffff]]

        ccart_width = 10

    else
        ccart = [[------------------------
|                      |
| -------------------- |
| | \                | |
| | / __             | |
| |                  | |
| |                  | |
| |                  | |
| |                  | |
| |                  | |
| |                  | |
| -------------------- |
|                      |
|                  [=] |
|                      |
------------------------]]

        ccart_fg = [[ffffffffffffffffffffffff
f7777777777777777777777f
f7ffffffffffffffffffff7f
f7ff0fffffffffffffffff7f
f7ff0f00ffffffffffffff7f
f7ffffffffffffffffffff7f
f7ffffffffffffffffffff7f
f7ffffffffffffffffffff7f
f8ffffffffffffffffffff8f
f8ffffffffffffffffffff8f
f8ffffffffffffffffffff8f
f8ffffffffffffffffffff8f
f8888888888888888888888f
f888888888888888888fff8f
f8888888888888888888888f
ffffffffffffffffffffffff]]

        ccart_bg = [[ffffffffffffffffffffffff
f7777777777777777777777f
f7ffffffffffffffffffff7f
f7ffffffffffffffffffff7f
f7ffffffffffffffffffff7f
f7ffffffffffffffffffff7f
f7ffffffffffffffffffff7f
f7ffffffffffffffffffff7f
f8ffffffffffffffffffff8f
f8ffffffffffffffffffff8f
f8ffffffffffffffffffff8f
f8ffffffffffffffffffff8f
f8888888888888888888888f
f888888888888888888fff8f
f8888888888888888888888f
ffffffffffffffffffffffff]]

        ccart_adv_fg = [[ffffffffffffffffffffffff
f4444444444444444444444f
f4ffffffffffffffffffff4f
f4ff0fffffffffffffffff4f
f4ff0f00ffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4444444444444444444444f
f444444444444444444ddd4f
f4444444444444444444444f
ffffffffffffffffffffffff]]

        ccart_adv_bg = [[ffffffffffffffffffffffff
f4444444444444444444444f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4444444444444444444444f
f444444444444444444ddd4f
f4444444444444444444444f
ffffffffffffffffffffffff]]

        ccart_width = 25

    end

    local function fg(l) if term.isColor() then return string.rep("4", l) else return string.rep("8", l) end end
    local function text(title, str) return {title .. str, fg(string.len(title)) .. string.rep("0", string.len(str)), string.rep("f", string.len(title .. str))} end

    local function time(n)
        local h = math.floor(n / 3600)
        local m = math.floor(n / 60) % 60
        local s = n % 60
        local retval = s .. "s"
        if m > 0 or h > 0 then retval = m .. "m " .. retval end
        if h > 0 then retval = h .. "h " .. retval end
        return retval
    end

    local function ext(retval)
        if debug ~= nil then table.insert(retval, text("    ", "Debug enabled")) end
        if http ~= nil then table.insert(retval, text("    ", "HTTP enabled")) 
        if http.websocket ~= nil then table.insert(retval, text("    ", "CC: Tweaked")) end end
        if mounter ~= nil then table.insert(retval, text("    ", "CraftOS-PC")) end
        if term.setGraphicsMode ~= nil then table.insert(retval, text("    ", "CraftOS-PC GFX")) end
        if term.screenshot ~= nil then table.insert(retval, text("    ", "CraftOS-PC 2")) end
        if ccemux ~= nil then table.insert(retval, text("    ", "CCEmuX")) end
        if fs.exists(".mbs") or fs.exists("rom/.mbs") then table.insert(retval, text("    ", "MBS")) end
        if type(kernel) == "table" then table.insert(retval, text("    ", "CCKernel2")) end
        return retval
    end

    local function getRuntime()
        if os.about ~= nil then return string.sub(os.about(), 1, string.find(os.about(), "\n"))
        elseif ccemux ~= nil then return ccemux.getVersion()
        elseif _MC_VERSION ~= nil then return _MC_VERSION
        else return "Unknown" end
    end

    local sysinfo = {
        text(os.getComputerLabel() or "Untitled Computer", ""),
        text("Type: ", commands ~= nil and "Command Computer" or term.isColor() and "Advanced Computer" or "Standard Computer"),
        text("OS: ", kernel.getOS()),
        text("Kernel: ", kernel.getRelease()),
        text("Runtime: ", getRuntime()),
        text("Lua: ", _VERSION),
        text("Host: ", _HOST),
        text("Uptime: ", time(os.clock())),
        text("Extensions: ", "")
    }
    ext(sysinfo)
    local lines, sw, sh = 2, term.getSize()
    term.clear()
    term.setCursorPos(1, 2)
    for i = 1, string.len(ccart), ccart_width do 
        term.blit(string.sub(ccart, i, i+ccart_width-2), string.sub(term.isColor() and ccart_adv_fg or ccart_fg, i, i+ccart_width-2), string.sub(term.isColor() and ccart_adv_bg or ccart_bg, i, i+ccart_width-2))
        write("  ")
        if sysinfo[((i-1)/ccart_width)+1] ~= nil then term.blit(table.unpack(sysinfo[((i-1)/ccart_width)+1])) end
        print("")
        lines = lines + 1
    end
    for i = lines - 1, #sysinfo do
        write(string.rep(" ", ccart_width + 1))
        term.blit(table.unpack(sysinfo[i]))
        print("")
    end
    print("")
    if term.screenshot ~= nil then term.screenshot() end
    sleep(0.25)

elseif require("filesystem") ~= nil then

    -- TODO: Find better art
    local ccart = [[------------------------
|                      |
| -------------------- |
| | \                | |
| | / __             | |
| |                  | |
| |                  | |
| |                  | |
| |                  | |
| |                  | |
| |                  | |
| -------------------- |
|                      |
|                  [=] |
|                      |
------------------------]]

    local ccart_fg = [[ffffffffffffffffffffffff
f0000000000000000000000f
f0ffffffffffffffffffff0f
f0ff0fffffffffffffffff0f
f0ff0f00ffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0000000000000000000000f
f000000000000000000fff0f
f0000000000000000000000f
ffffffffffffffffffffffff]]

    local ccart_bg = [[ffffffffffffffffffffffff
f0000000000000000000000f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0ffffffffffffffffffff0f
f0000000000000000000000f
f000000000000000000fff0f
f0000000000000000000000f
ffffffffffffffffffffffff]]

    local ccart_adv_fg = [[ffffffffffffffffffffffff
f4444444444444444444444f
f4ffffffffffffffffffff4f
f4ff0fffffffffffffffff4f
f4ff0f00ffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4444444444444444444444f
f444444444444444444ddd4f
f4444444444444444444444f
ffffffffffffffffffffffff]]

    local ccart_adv_bg = [[ffffffffffffffffffffffff
f4444444444444444444444f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4ffffffffffffffffffff4f
f4444444444444444444444f
f444444444444444444ddd4f
f4444444444444444444444f
ffffffffffffffffffffffff]]

    local component = require("component")
    local computer = require("computer")
    local term = require("term")
    local gpu = term.gpu()

    local function fg(l) if gpu.getDepth() > 1 then return string.rep("4", l) else return string.rep("0", l) end end
    local function text(title, str) return {title .. str, fg(string.len(title)) .. string.rep("0", string.len(str)), string.rep("f", string.len(title .. str))} end

    local function time(n)
        local h = math.floor(n / 3600)
        local m = math.floor(n / 60) % 60
        local s = n % 60
        local retval = s .. "s"
        if m > 0 or h > 0 then retval = m .. "m " .. retval end
        if h > 0 then retval = h .. "h " .. retval end
        return retval
    end

    local function mem(bytes)
        if bytes > 1048576 then return string.gsub(string.sub((math.floor((bytes / 1048576) * 1000) / 1000) .. "", 1, 4), "%.$", "") .. " MB"
        elseif bytes > 1024 then return string.gsub(string.sub((math.floor((bytes / 1024) * 1000) / 1000) .. "", 1, 4), "%.$", "") .. " kB"
        else return bytes .. " B" end
    end

    local function ext(retval)
        for address, type in component.list() do table.insert(retval, text("    " .. type .. " ", address)) end
        return retval
    end

    local tier = "Unknown"
    for k,v in pairs(component.computer.getDeviceInfo()) do if v.class == "processor" then tier = string.match(v.product, "FlexiArch (%d+) Processor") end end

    local sysinfo = {
        text("OpenComputers", ""),
        text("Tier: ", tier),
        text("OS: ", _OSVERSION),
        text("Lua: ", _VERSION),
        text("RAM: ", mem(computer.totalMemory() - computer.freeMemory()) .. " / " .. mem(computer.totalMemory())),
        text("Uptime: ", time(computer.uptime())),
        text("Components: ", "")
    }
    ext(sysinfo)

    local ccColors = {
        ["0"] = 0xFFFFFF,
        ["4"] = 0xFFFF00,
        ["7"] = 0x404040,
        ["8"] = 0x7F7F7F,
        d = 0x00FF00,
        f = 0x000000
    }

    local function blit(text, fg, bg)
        if text == "" then return end
        if #text ~= #fg or #fg ~= #bg then error("Unbalanced string lengths in blit", 2) end
        if #text > term.getViewport() - term.getCursor() then
            text = string.sub(text, 1, term.getViewport() - term.getCursor(), nil)
            fg = string.sub(fg, 1, term.getViewport() - term.getCursor(), nil)
            bg = string.sub(bg, 1, term.getViewport() - term.getCursor(), nil)
        end
        for i = 1, #text do
            if ccColors[string.sub(fg, i, i)] == nil then error("Unknown color " .. string.sub(fg, i, i)) end
            if ccColors[string.sub(bg, i, i)] == nil then error("Unknown color " .. string.sub(bg, i, i)) end
            gpu.setForeground(ccColors[string.sub(fg, i, i)])
            gpu.setBackground(ccColors[string.sub(bg, i, i)])
            term.write(string.sub(text, i, i))
        end
    end

    print("")
    for i = 1, string.len(ccart), 25 do 
        blit(string.sub(ccart, i, i+23), string.sub(gpu.getDepth() > 1 and ccart_adv_fg or ccart_fg, i, i+23), string.sub(gpu.getDepth() > 1 and ccart_adv_bg or ccart_bg, i, i+23))
        term.write("  ")
        if sysinfo[((i-1)/25)+1] ~= nil then blit(table.unpack(sysinfo[((i-1)/25)+1])) end
        print("")
    end
    if #sysinfo > 16 then for i = 16, #sysinfo do
        term.write(string.rep(" ", 26))
        blit(table.unpack(sysinfo[i]))
        print("")
    end end
    print("")
    os.sleep(0.25)

else print("Unknown computer type") end