添加全彩

lib/1.lua

@@ -1,313 +0,0 @@
-local f1 = {
-    {
-      "\159\143\159\143\139\143",
-      "ffffff",
-      "000000",
-    },
-    {
-      "\128\149\159\137\143\155",
-      "00ffff",
-      "ff0000",
-    },
-    {
-      "\130\151\128\148\148\148",
-      "000000",
-      "ffffff",
-    },
-    {
-      "\136\135\159\133\149\138",
-      "00f00f",
-      "ff0ff0",
-    },
-}
-
-local f2 = {
-    {
-      "\159\143\159\143\139\143",
-      "ffffff",
-      "000000",
-    },
-    {
-      "\128\149\151\157\153\151",
-      "00ffff",
-      "ff0000",
-    },
-    {
-      "\130\151\157\140\136\140",
-      "00ffff",
-      "ff0000",
-    },
-    {
-      "\136\135\149\142\134\145",
-      "00f00f",
-      "ff0ff0",
-    },
-}
-
-local f3 = {
-    {
-      "\159\143\132\159\128\148",
-      "ff0f00",
-      "00f0ff",
-    },
-    {
-      "\159\133\144\144\129\149",
-      "ff0000",
-      "00ffff",
-    },
-    {
-      "\128\129\144\130\143\157",
-      "0f00f0",
-      "f0ff0f",
-    },
-    {
-      "\130\149\128\131\128\149",
-      "0f0000",
-      "f0ffff",
-    },
-}
-
-local f4 = {
-    {
-      "\128\148\128\128\148\128",
-      "000000",
-      "ffffff",
-    },
-    {
-      "\130\151\130\131\151\131",
-      "000000",
-      "ffffff",
-    },
-    {
-      "\136\151\149\131\131\149",
-      "00f000",
-      "ff0fff",
-    },
-    {
-      "\159\149\143\153\153\143",
-      "f0f0ff",
-      "0f0f00",
-    },
-}
-
-local n = {"      ","ffffff","ffffff"}
-
--- 创建 img 表结构
-local img = {}
-for i1 = 1, 8 do
-	img[i1] = {}
-	for i2 = 1, 4 do
-		img[i1][i2] = {}
-	end
-end
-
--- ✅ 关键修复：将 logon 改为函数，每次返回新表
-local function logon()
-	return {
-		"                         ",
-		"fffffffffffffffffffffffff",
-		"fffffffffffffffffffffffff"
-	}
-end
-
--- 定义 logo 为普通表（不是函数）
-local logo = {
-    {
-        "              \139          ",
-        "fffffff0000000f000fffffff",
-        "ffffffffffffff0ffffffffff"
-    },
-    {
-        "           \143\129\149  \132        ",
-        "fffffff0000ff00000fffffff",
-        "fffffffffff00f00fffffffff"
-    },
-    {
-        "        \159\135   \149\143\158\135\149       ",
-        "fffffff0ff00000ff0fffffff",
-        "ffffffff00000ff00ffffffff"
-    },
-    {
-        "       \149    \143\150\144 \131\133       ",
-        "ffffffff00000f0000fffffff",
-        "fffffff00000f0fffffffffff"
-    },
-    {
-        "       \149  \136  \149 \131\144        ",
-        "ffffffff00f00f0f00fffffff",
-        "fffffff0000ff000fffffffff"
-    },
-    {
-        "       \138    \131\133  \149        ",
-        "fffffff00000ff0000fffffff",
-        "ffffffff00000000fffffffff"
-    },
-    {
-        "        \130\139\144     \149        ",
-        "fffffff000f0000000fffffff",
-        "ffffffffff000000fffffffff"
-    },
-    {
-        "         \143\131    \135         ",
-        "fffffff00ff0000000fffffff",
-        "fffffffff000000ffffffffff"
-    },
-    {
-        "            \143\131           ",
-        "fffffff00000000000fffffff",
-        "fffffffff000fffffffffffff"
-    },
-    {
-        "         \143\135\129             ",
-        "fffffff00000000000fffffff",
-        "fffffffffffffffffffffffff"
-    },
-}
-
-local logo1 = {{},{},{},{}}
-
--- 第一组
-for i = 1, 3 do
-    table.insert(logo1[1], logon())
-end
--- 插入 logo 的每一帧
-for _, frame in ipairs(logo) do
-    table.insert(logo1[1], frame)
-end
-for i = 1, 2 do
-    table.insert(logo1[1], logon())
-end
-logo1[1].duration = 1
-
--- 第二组
-for i = 1, 2 do
-    table.insert(logo1[2], logon())
-end
-for _, frame in ipairs(logo) do
-    table.insert(logo1[2], frame)
-end
-for i = 1, 3 do
-    table.insert(logo1[2], logon())
-end
-
--- 第三组
-table.insert(logo1[3], logon())
-for _, frame in ipairs(logo) do
-    table.insert(logo1[3], frame)
-end
-for i = 1, 4 do
-    table.insert(logo1[3], logon())
-end
-
--- 第四组
-for _, frame in ipairs(logo) do
-    table.insert(logo1[4], frame)
-end
-for i = 1, 5 do
-    table.insert(logo1[4], logon())
-end
-
--- 填充 img 前 4 行
-for i = 1, 4 do
-	img[i] = logo1[i]
-end
-
--- 清理临时变量
-logo1 = nil
-logo = nil
-
--- 构建 img[5] 到 img[8]
-for i=1,3 do
-	img[5][1][i] = n[i] .. f2[4][i] .. n[i] .. f4[4][i]
-end
-for i=1,3 do
-	img[5][2][i] = n[i] .. n[i] .. n[i] .. n[i]
-end
-for i=1,3 do
-	img[5][3][i] = n[i] .. n[i] .. n[i] .. n[i]
-end
-for i=1,3 do
-	img[5][4][i] = f1[1][i] .. n[i] .. f3[1][i] .. n[i]
-end
-
-for i=1,3 do
-	img[6][1][i] = n[i] .. f2[3][i] .. n[i] .. f4[3][i]
-end
-for i=1,3 do
-	img[6][2][i] = n[i] .. f2[4][i] .. n[i] .. f4[4][i]
-end
-for i=1,3 do
-	img[6][3][i] = f1[1][i] .. n[i] .. f3[1][i] .. n[i]
-end
-for i=1,3 do
-	img[6][4][i] = f1[2][i] .. n[i] .. f3[2][i] .. n[i]
-end
-
-for i=1,3 do
-	img[7][1][i] = n[i] .. f2[2][i] .. n[i] .. f4[2][i]
-end
-for i=1,3 do
-	img[7][2][i] = f1[1][i] .. f2[3][i] .. f3[1][i] .. f4[3][i]
-end
-for i=1,3 do
-	img[7][3][i] = f1[2][i] .. f2[4][i] .. f3[2][i] .. f4[4][i]
-end
-for i=1,3 do
-	img[7][4][i] = f1[3][i] .. n[i] .. f3[3][i] .. n[i]
-end
-
-for i=1,3 do
-	img[8][1][i] = f1[1][i] .. f2[1][i] .. f3[1][i] .. f4[1][i]
-end
-for i=1,3 do
-	img[8][2][i] = f1[2][i] .. f2[2][i] .. f3[2][i] .. f4[2][i]
-end
-for i=1,3 do
-	img[8][3][i] = f1[3][i] .. f2[3][i] .. f3[3][i] .. f4[3][i]
-end
-for i=1,3 do
-	img[8][4][i] = f1[4][i] .. f2[4][i] .. f3[4][i] .. f4[4][i]
-end
-
--- 清理
-f1 = nil
-f2 = nil
-f3 = nil
-f4 = nil
-n = nil
-
-img.animation = true
-img.secondsPerFrame = 0.1
-
--- ✅ 现在可以安全序列化
-print(textutils.serialize(img[1]))
-
-
-local function drawFrame(frame, term)
-    for y, row in ipairs(frame) do
-        term.setCursorPos(1, y)
-        term.blit(table.unpack(row))
-    end
-    if frame.palette then for i = 0, #frame.palette do
-        local c = frame.palette[i]
-        if type(c) == "table" then term.setPaletteColor(2^i, table.unpack(c))
-        else term.setPaletteColor(2^i, c) end
-    end end
-    if img.multiMonitor then term.setTextScale(img.multiMonitor.scale or 0.5) end
-end
-
-
-
-term.clear()
-for i, frame in ipairs(img) do
-    drawFrame(frame, term)
-    if img.animation then sleep(frame.duration or img.secondsPerFrame or 0.05)
-    else read() break end
-end
-read()
-term.setBackgroundColor(colors.black)
-term.setTextColor(colors.white)
-term.clear()
-term.setCursorPos(1, 1)
-for i = 0, 15 do term.setPaletteColor(2^i, term.nativePaletteColor(2^i)) end
-

lib/ys.lua

@@ -1,53 +0,0 @@
--- 压缩函数
-function rleCompress(str)
-  local result = {}
-  local i = 1
-  while i <= #str do
-    local char = str:sub(i, i)
-    local count = 1
-    while i + count <= #str and str:sub(i + count, i + count) == char do
-      count = count + 1
-    end
-    if count > 2 then
-      table.insert(result, ("[%d]%s"):format(count, char))
-    else
-      table.insert(result, char:rep(count))
-    end
-    i = i + count
-  end
-  return table.concat(result)
-end
-
--- 解压函数
-function rleDecompress(str)
-  local result = {}
-  local i = 1
-  while i <= #str do
-    if str:sub(i, i) == "[" then
-      local j = str:find("]", i)
-      local num = tonumber(str:sub(i+1, j-1))
-      local char = str:sub(j+1, j+1)
-      table.insert(result, char:rep(num))
-      i = j + 2
-    else
-      table.insert(result, str:sub(i, i))
-      i = i + 1
-    end
-  end
-  return table.concat(result)
-end
-
--- 测试
-file = fs.open("1.bimg","r")
-original = file.readAll()
-file.close()
-
-
-local compressed = rleCompress(original)
-print("原始:", original)
-print("压缩:", compressed)
-print("解压:", rleDecompress(compressed))
-file = fs.open("12.bimg","w")
-file.write(compressed)
-file.close()
-

player-hb.lua

@@ -0,0 +1,48 @@
+local b64str = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
+
+local logostr = [[
+32Vid 1.1
+12
+!CPC009CAAAAAA8ADQAAAAAAAAAAACApnwEgG5ABIAKfASALiwKQASANggGDASBdAClAAQAbAgEAAhABAAsCASABAgEADQICAF0AAAAHBwf///8LCwsODg4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=b7cd0256
+!CPC009CAAAAAA8ADQAAAAAAAAAAACApnwEgG5ABIAKfASAMiwGQASAMnwGHAYMBIF0AKUABABsCAQACEAEACyACAgEADAIDAF0AAAAHBwf///8LCwsODg4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=2b710733
+!CPC00E8AAAAAA8ADQAAAAAAAAAAACApnwEgG5ABIAKfASAMiwGQASAMnwGHAYMBIAqIAYcBmAEgAZ8BIAmfAYEBIAKfAYEBIAqDAYsBhwEgMgApoAEAGwgBAAJwAQALgAIIAQAMaAMACgUBYAFkAWABBgEACWABYQFgAgYCAAoGAwAyAAAAEhIS4+Tl5ubn5eXmBAQE5OTlBwcH/v7+CwsLDQ0NAAAAAAAAAAAAAAAAAAAA08f91bff
+!CPC00FCAAAAAA8ADQAAAAAAAAAAACApnwEgG5ABIAKfASAMiwGQASAMnwGHAYMBIAuHASACnwEgCZ8BgQEgAp8BgQEgCIcBIAOHASAJlQEgAp8BgQEgCoIBgwIgFwApUAEAGwMBAAIgAQALMAIDAQAMEwMACxADAQEACRAEAQIACBAEAQEACRADAQIACgEDABcAAADk5OQHBwf+/v4LCwsODg4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=0a11a2a8
+!CPC0150AAAAAA8ADQAAAAAAAAAAACAjgQEgBZ8BIAaIAYQBIA2PASAFkAEgAp8BIAaCAYsBIASLAZABIAmCAYsBkAGfAYcBgwEgBoIBjwEgA4cBIAKfASAJnAGBASACnwGBASAIhwEgA4cBIAmVASACnwGBASAKggGDAiAXACMHAQAFYAEABgcCAA1AAQAFAwEAAiABAAVAAwADMAIDAQAGQAUEARMDAAYEAkADFAEQAgEBAAlAARQBEAIBAgAIEAQBAQAJEAMBAgAKAQMAFwAAAOTk5AcHB/7+/ru5uQsLCw4ODgICAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==3d1b8cf9
+!CPC0160AAAAAA8ADQAAAAAAAAAAACAlnwGDASACnwEgCIcBgQGaAYUBIAmDASAEnwGQASACnwEgCIcBgQEgAosBkAEgCYIBiwGQAZ8BhwGDASAGggGPASADhwEgAp8BIAmcAYEBIAKfAYEBIAiHASADhwEgCZUBIAKfAYEBIAqCAYMCIBfwJR8B7wHwAj8B8AjvApYBdQHwCe8B4AT+AfIB8AIfAfAF4AP+AvABIAEvAfIB8AbgA+8C/gECA/AG/gLgAw4BAALwCu8BDgEAAvAKDwEAA/AKDwEAAvAm5OTkBQUF/v7+DAwMw8LDy8vMu7m6wcDBtbOzy8rLxsXGxsXHycjKycnKu7m5AAAAb1c34e98
+!CPC0170AAAAAA8ADQAAAAAAAAAAACAYnwEgDJ8BgwGVAYIBiwEgCIcBgQEgApUBnwGBASAGgwEgBJ8BkAEgAp8BIAiHAYEBIAKLAZABIAmCAYsBkAGfAYcBgwEgBoIBjwEgA4cBIAKfASAJnAGBASACnwGBASAIhwEgA4cBIAmVASACnwGBASAKggGDAiAXABhQAQAMQAJQAwAIQARQAQUCAAZABQQBBQEAAiABAAVAAwQCAAFQAgUBAAZABQQBFQMABgQCQAMUARACAQEACUABFAEQAgECAAgQBAEBAAkQAwECAAoBAwAXAAAA5OTkBQUFEBARu7m5/v7+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd32547aa
+!CPC017CAAAAAA8ADQAAAAAAAAAAACAYnwEgDJ8BgwGVAYIBiwEgCIcBgQEgApUBnwGBAYcBIAWDASAEnwGQASABiwGQASAIhwGBASACiwGQASAJggGLAZABnwGHAYMBIAaCAY8BIAOHASACnwEgCZwBgQEgAp8BgQEgCIcBIAOHASAJlQEgAp8BgQEgCoIBgwIgFwAYQAEADDACQAMACDAEQAEEAkABAAUwBQMBBAEAAQQBQAEABTADAwIAAUACBAEABjAFAwEUAwAGAwIwAxMBEAIBAQAJMAETARACAQIACBAEAQEACRADAQIACgEDABcAAADk5OQTExO7ubn+/v4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=3b77f20a
+!CPC0174AAAAAA8ADQAAAAAAAAAAACAXjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAlABcwAUACBAEACDAEQAIEAUABAAUwBgQCQAIABTADAwNAAQQBAAEEAQAFMAQDAQABQAEUARABAAYDATAFFAEQAgAIAwITARADAQEACBAEAQIACBAEAQEACgEEACUAAADk5OQUFBS7ubn+/v4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=e8f01cff
+!CPC0168AAAAAA8ADQAAAAAAAAAAACAJlwGQASAKnwGHASABlQEgAZ0BIAePAYEBIAOKAYcBjwGBASAJnwGHAYsBIAGCAYsBIAiRASADggGLASAGkAEgA4IBiwGHAYEBIAiDAY8BIAGfAYEBIAKXASAJhwEgA4cBIAifAYEBIAKfAYEBIAmVASAChwEgNAAJQAEEAQAKMANAAgQBAAcwBQQCQAIABTAEAwJAAQABBAIABTADAwEAAkADAAYwBhQCEAEABwMCMAETAhACAQEACRAEAQEACBAEAQIACRADAQEANAAAAOTk5BISE7u5uf7+/gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==71309b9a
+!CPC0180AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAIiAGQASAqAAgwAUACBAEACDAEQAIEAUABAAUwBgQCQAIABTADAwNAAQQBAAEEAQAFMAQDAQABQAEUARABAAYDATAFFAEQAgAIAwITARADAQEACBAEAQIACBAEAQEACgEEAAgEAgAqAAAA5OTkEhITu7m5/v7+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA09bec4a6
+!CPC01ACAAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABiAEgB58BIAGIAZsBIBeXASAGAAgwAUACBAEACDAEQAIEAUABAAUwBgQCQAIABTADAwNAAQQBAAEEAQAFMAQDAQABQAEUARABAAYDATAFFAEQAgAIAwITARADAQEACBAEAQIACBAEAQEACgEEAAcEBAAHQAEAAQQBQAEAF0ABAAYAAADk5OQSEhO7ubn+/v4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=d150c220
+!CPC01D8AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABiAEgBZ8BjAGbAZ8BjAGbAZUBIAefASADggEgCJcBIAGVASAGAAgwAUACBAEACDAEQAIEAUABAAUwBgQCQAIABTADAwNAAQQBAAEEAQAFMAQDAQABQAEUARABAAYDATAFFAEQAgAIAwITARADAQEACBAEAQIACBAEAQEACgEEAAcEBAAFQAEEAUACBAFAAQQBAAdAAQADBAEACEABAAFAAQAGAAAA5OTkExMTu7m5////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0659c669
+!CPC0208AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgBZ8BjAGbAZ8BjAGbAZUBIAWfASABnwGCAYQBIAGCAYQBIAGFASACnwEgApUBIAGVASAGAAgwAUACBAEACDAEQAIEAUABAAUwBgQCQAIABTADAwNAAQQBAAEEAQAFMAQDAQABQAEUARABAAYDATAFFAEQAgAIAwITARADAQEACBAEAQIACBAEAQEACgEEAAcEA0ABAAVAAQQBQAIEAUABBAEABUABAAFAAQQCAAEEAgABBAEAAkABAAJAAQABQAEABgAAAOTk5BMTE7u5uf///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==96fa278a
+!CPC0214AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgBZ8BjAGbAZ8BjAGbAZUBIAKCASAClQEgAZUBggGMAZABggGMAZABmgGQASABnwGQASABlQEgAZUBIAYACDABQAIEAQAIMARAAgQBQAEABTAGBAJAAgAFMAMDA0ABBAEAAQQBAAUwBAMBAAFAARQBEAEABgMBMAUUARACAAgDAhMBEAMBAQAIEAQBAgAIEAQBAQAKAQQABwQDQAEABUABBAFAAgQBQAEEAQACBAEAAkABAAFAAQQGQAEEAQABQAEEAQABQAEAAUABAAYAAADk5OQTExO7ubn///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=4bc7ae74
+!CPC0228AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgAp8BhAGfAowBmwGfAYwBmwGVASACigEgApUBIAGVAYIBjAGQAYIBjAGQAZoBjwGEAZ8BjwEgAZUBIAGVASACigEgAooBAAgwAUACBAEACDAEQAIEAUABAAUwBgQCQAIABTADAwNAAQQBAAEEAQAFMAQDAQABQAEUARABAAYDATAFFAEQAgAIAwITARADAQEACBAEAQIACBAEAQEACgEEAAcEA0ABAAJAAQQBQAIEAUACBAFAAQQBAAIEAQACQAEAAUABBAZAAgQBQAIAAUABAAFAAQACBAEAAgQBAAAA5OTkExMTu7m5////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4c7a3588
+!CPC023CAAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgAp8BjAGbAZ8BjAGbAZ8BjAGbAZUBIAGQAZUBIAKVASABlQGCAYwBkAGCAYwBkAGaAY8BhQGfAY8BkAGVASABlQEgAZ8BmgEgAZ8BmgEACDABQAIEAQAIMARAAgQBQAEABTAGBAJAAgAFMAMDA0ABBAEAAQQBAAUwBAMBAAFAARQBEAEABgMBMAUUARACAAgDAhMBEAMBAQAIEAQBAgAIEAQBAQAKAQQABwQDQAEAAkABBAFAAgQBQAIEAUABBAEAAQQBQAEAAkABAAFAAQQGQAIEAUACBAFAAQABQAEAAUABBAEAAUABBAEAAADk5OQTExO7ubn///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=c37eac4a
+!CPC023CAAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgAp8BjAGbAZ8BjAGbAZ8BjAGbAZUBnwGQAZUBIAKVASABlQGCAYwBkAGCAYwBkAGaAY8BhQGdAY8BkAGVAYMBlAEgAY8BmgEgAY8BmgEACDABQAIEAQAIMARAAgQBQAEABTAGBAJAAgAFMAMDA0ABBAEAAQQBAAUwBAMBAAFAARQBEAEABgMBMAUUARACAAgDAhMBEAMBAQAIEAQBAgAIEAQBAQAKAQQABwQDQAEAAkABBAFAAgQBQAIEAUABBAFAAQQBQAEAAkABAAFAAQQGQAIEAUACBAFAAQQBQAEAAUABBAEAAUABBAEAAADk5OQTExO7ubn///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=dbdd3396
+
+]]
+
+local lines, lineIndex = {}, 1; for line in logostr:gmatch("[^\r\n]+") do table.insert(lines, line) end; local readLine = function() local line = lines[lineIndex]; lineIndex = lineIndex + 1; return line end; if readLine() ~= "32Vid 1.1" then error("Unsupported file") end; local fps = tonumber(readLine()); local first, second = readLine(), readLine(); if second == "" or second == nil then fps = 0 end
+
+term.clear()
+
+local fi = 1
+while true do
+    local f;if first then f,first=first,nil elseif second then f,second=second,nil else f=readLine()end;if f==""or f==nil then break end;local m=f:match("^!CP([CD])");if not m then error("Invalid file")end;local d;if m=="C"then local l=tonumber(f:sub(5,8),16);d=f:sub(9,l+8)else local l=tonumber(f:sub(5,16),16);d=f:sub(17,l+16)end;local function b64dec(s)local r="";for c in s:gmatch"...."do if c:sub(3,4)=="=="then r=r..string.char(bit32.bor(bit32.lshift(b64str:find(c:sub(1,1))-1,2),bit32.rshift(b64str:find(c:sub(2,2))-1,4)))elseif c:sub(4,4)=="="then local n=(b64str:find(c:sub(1,1))-1)*4096+(b64str:find(c:sub(2,2))-1)*64+(b64str:find(c:sub(3,3))-1);r=r..string.char(bit32.extract(n,10,8))..string.char(bit32.extract(n,2,8))else local n=(b64str:find(c:sub(1,1))-1)*262144+(b64str:find(c:sub(2,2))-1)*4096+(b64str:find(c:sub(3,3))-1)*64+(b64str:find(c:sub(4,4))-1);r=r..string.char(bit32.extract(n,16,8))..string.char(bit32.extract(n,8,8))..string.char(bit32.extract(n,0,8))end end;return r end;local dt=b64dec(d);assert(dt:sub(1,4)=="\0\0\0\0"and dt:sub(9,16)=="\0\0\0\0\0\0\0\0","Invalid file");local w,h=("HH"):unpack(dt,5);if w<=0 or h<=0 then break end;local c,n,p=string.unpack("c1B",dt,17);local tl={};local ch=c:byte();for y=1,h do local l="";for x=1,w do l=l..string.char(ch);n=n-1;if n==0 then c,n,p=string.unpack("c1B",dt,p);ch=c:byte()end end;tl[y]=l end;local fl,bl={},{};
+    for y=1,h do local fg,bg="","";for x=1,w do fg=fg..("%x"):format(bit32.band(ch,0x0F));bg=bg..("%x"):format(bit32.rshift(ch,4));n=n-1;if n==0 then ch,n,p=string.unpack("BB",dt,p)end end;fl[y]=fg;bl[y]=bg end;local tw,th=term.getSize();local sx=math.max(1,math.floor((tw-w)/2)+1);local sy=math.max(1,math.floor((th-h)/2)+1);local dh=math.min(h,th-sy+1);local dw=math.min(w,tw-sx+1);if dh>0 and dw>0 then for y=1,dh do local tx=string.sub(tl[y],1,dw);local fg=string.sub(fl[y],1,dw);local bg=string.sub(bl[y],1,dw);term.setCursorPos(sx,sy+y-1);term.blit(tx,fg,bg)end end;p=p-2;for i=0,15 do local r,g,b;r,g,b,p=string.unpack("BBB",dt,p);term.setPaletteColor(2^i,r/255,g/255,b/255)end;if fps==0 then read();break else sleep(1/fps)end
+
+    if fi == 8 then sleep(0.5) end
+    fi = fi+1
+end
+
+sleep(1.5)
+-- Restore default palette
+for i = 0, 15 do term.setPaletteColor(2^i, term.nativePaletteColor(2^i)) end
+term.setBackgroundColor(colors.black)
+term.setTextColor(colors.white)
+term.clear()
+term.setCursorPos(1, 1)
+
+shell.run("shell")

player-qc.lua

@@ -0,0 +1,48 @@
+local b64str = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
+
+local logostr = [[
+32Vid 1.1
+12
+!CPC0088AAAAAA8ADQAAAAAAAAAAACBFkAEgDosCkAEgDYIBgwEgXQBFAgEADgEBIAECAQANAgIAXQAAACDUrAvUpwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==aee8912c
+!CPC0090AAAAAA8ADQAAAAAAAAAAACBFkAEgDoIBiwGQASALnwKHAYMBIF0ARQMBAA4yATABAwEACxABAwMAXQAAAAgICSLUrQnUpwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==54cba36e
+!CPC00C8AAAAAA8ADQAAAAAAAAAAACBFkAEgDoIBiwGQASAMnwGHAYMBIAuHASACnwEgCZ8BgQEgAp8BgQEgCoMBiwGHASAyAEUDAQAOMgEwAQMBAAwTAwALEAMBAQAJEAQBAgAKAQMAMgAAAAqlnyHTrAnTpwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==66c61a81
+!CPC00ECAAAAAA8ADQAAAAAAAAAAACBFkAEgDoIBiwGQASAMnwGHAYMBIAuHASACnwEgCZ8BgQEgAp8BgQEgCIcBIAOHASAJlQEgAp8BgQEgCoIBgwIgFwBFAwEADjIBMAEDAQAMEwMACxADAQEACRAEAQIACBAEAQEACRADAQIACgEDABcAAAAKpZ8f06wJ06cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=237cdd0f
+!CPC0124AAAAAA8ADQAAAAAAAAAAACA/jwEgBZABIAmCAYsBIAOCAYsBkAEgCYIBiwGPAZ8BhwGDASAGggGPASADhwEgAp8BIAmfAYEBIAKfAYEBIAiHASADhwEgCZUBIAKfAYEBIAqCAYMCIBcAP0ABAAUDAQAIQAMAAzIBMAEDAQAGQAYTAwAGBAJAAxQBEAIBAQAJQAEUARACAQIACBAEAQEACRADAQIACgEDABcAAAAKpZ8f06wJ06ckAIMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=1281e843
+!CPC0144AAAAAA8ADQAAAAAAAAAAACAlnwGDASALhwGBASALgwEgBJ8BkAEgC4cBgQEgAYIBiwGQASAJggGLAY8BnwGHAYMBIAaCAY8BIAOHASACnwEgCZ8BgQEgAp8BgQEgCIcBIAOHASAJlQEgAp8BgQEgCoIBgwIgFwAlQAIAC0AEAAlABQQBAwEACEADBAIAATIBMAEDAQAGQAYTAwAGBAJAAxQBEAIBAQAJQAEUARACAQIACBAEAQEACRADAQIACgEDABcAAAAKpZ8f06wJ06ckAIMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=1ca3632d
+!CPC0168AAAAAA8ADQAAAAAAAAAAACAYnwEgDJ8BgwGVAYIBiwEgCIcBgQEgApUBnwGBASAGgwEgBJ8BkAEgC4cBgQEgAYIBiwGQASAJggGLAY8BnwGHAYMBIAaCAY8BIAOHASACnwEgCZ8BgQEgAp8BgQEgCIcBIAOHASAJlQEgAp8BgQEgCoIBgwIgFwAYYAEADFACYAMACFAEYAEGAgAGUAUFAQMBAAhQAwUCAAEyATABAwEABlAGEwMABgUCUAMVARACAQEACVABFQEQAgECAAgQBAEBAAkQAwECAAoBAwAXAAAACaWfDNioCdSnBwITJACDCv6vAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA7f1066b0
+!CPC0180AAAAAA8ADQAAAAAAAAAAACAYnwEgDJ8BgwGVAYIBiwEgCIcBgQEgApUBnwGBAYcBIAWDASAEnwGQASABiwGQASAIhwGBASABggGLAZABIAmCAYsBjwGfAYcBgwEgBoIBjwEgA4cBIAKfASAJnwGBASACnwGBASAIhwEgA4cBIAmVASACnwGBASAKggGDAiAXABhgAQAMUAJgAwAIUARgAQYCYAEABVAFBQEDAQABBgFgAQAFUAMFAgABMgEwAQMBAAZQBhMDAAYFAlADFQEQAgEBAAlQARUBEAIBAgAIEAQBAQAJEAMBAgAKAQMAFwAAAAmlnw3XqAnUpwcCFCQAgwr+rwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==85fb6a05
+!CPC0178AAAAAA8ADQAAAAAAAAAAACAXjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASfAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAlABdQAWACBgEACFAEYAIGAWABAAVQBgYCYAIABVADBQMwAQMBAAEGAQAFUAQFAQABMAETARABAAYFAVAEFQETARACAAgFAhUBEAMBAQAIEAQBAgAIEAQBAQAKAQQAJQAAAAqlnw/WqQnUpwUBDyQAhAr+rwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==886211b1
+!CPC0168AAAAAA8ADQAAAAAAAAAAACAJlwGQASAKnwGHASABlQEgAZ0BIAePAYEBIAOKAYcBjwGBASAJnwGHAYsBIAGCAYsBIAiRASADggGLASAGkAEgA4IBgwGHAYEBIAiDAY8BIAGfAYEBIAKXASAJhwEgA4cBIAifAYEBIAKfAYEBIAmVASAChwEgNAAJYAEGAQAKUANgAgYBAAdQBQYCYAIABVAEBQIwAQABBgIABVADBQEAAjADAAZQBhMCEAEABwUCUAEVAhACAQEACRAEAQEACBAEAQIACRADAQEANAAAAAqlnwvYqAnUpwIACiQAhAr+rwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==e5413615
+!CPC0180AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASfASALgwGPAYcBIAOFASAInwGBASACnwGBASAIlwEgA4cBIAqKAY8CgQEgCIgBkAEgKgAIYAFwAgcBAAhgBHACBwFwAQAFYAYHAnACAAVgAwYDQAEEAQABBwEABWAEBgEAAUABJAEgAQAGBgFgBCYBIAMACAYCJgEgAwIBAAggBAICAAggBAIBAAoCBAAIAQIAKgAAAP///wmlnwrXqAnUpw8KHiQAhAr+rgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==15b0c7c0
+!CPC01B0AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASfAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABiAEgB58BIAGIAZsBIBeXASAGAAhgAXACBwEACGAEcAIHAXABAAVgBgcCcAIABWADBgNAAQQBAAEHAQAFYAQGAQABQAEkASABAAYGAWAEJgEkASACAAgGAiYBIAMCAQAIIAQCAgAIIAQCAQAKAgQABwEEAAcQAQABAQEQAQAXEAEABgAAAP///wmlnwrXqAnUpw8KHiQAhAr+rgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==207a1880
+!CPC01DCAAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASfAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABiAEgBZ8BjAGbAZ8BjAGbAZUBIAefASADggEgCJcBIAGVASAGAAhgAXACBwEACGAEcAIHAXABAAVgBgcCcAIABWADBgNAAQQBAAEHAQAFYAQGAQABQAEkASABAAYGAWAEJgEkASACAAgGAiYBIAMCAQAIIAQCAgAIIAQCAQAKAgQABwEEAAUQAQEBEAIBARABAQEABxABAAMBAQAIEAEAARABAAYAAAD///8JpZ8K16gJ1KcPCh8kAIQK/q4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=15b84ecc
+!CPC0208AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASfAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgBZ8BjAGbAZ8BjAGbAZUBIAWfASABnwGCAYQBIAGCAYQBIAGFASACnwEgApUBIAGVASAGAAhgAXACBwEACGAEcAIHAXABAAVgBgcCcAIABWADBgNAAQQBAAEHAQAFYAQGAQABQAEkASABAAYGAWAEJgEkASACAAgGAiYBIAMCAQAIIAQCAgAIIAQCAQAKAgQABwEDEAEABRABAQEQAgEBEAEBAQAFEAEAARABAQIAAQECAAEBAQACEAEAAhABAAEQAQAGAAAA////CaWfCteoCdSnDwofJACECv6uAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA48b5ed0d
+!CPC0218AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASfAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgBZ8BjAGbAZ8BjAGbAZUBIAKCASAClQEgAZUBggGMAZABggGMAZABmgGQASABnwGQASABlQEgAZUBIAYACGABcAIHAQAIYARwAgcBcAEABWAGBwJwAgAFYAMGA0ABBAEAAQcBAAVgBAYBAAFAASQBIAEABgYBYAQmASQBIAIACAYCJgEgAwIBAAggBAICAAggBAIBAAoCBAAHAQMQAQAFEAEBARACAQEQAQEBAAIBAQACEAEAARABAQYQAQEBAAEQAQEBAAEQAQABEAEABgAAAP///wmlnwrXqAnUpwoIDyQAhAr+rgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==548cda66
+!CPC022CAAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASfAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgAp8BhAGfAowBmwGfAYwBmwGVASACigEgApUBIAGVAYIBjAGQAYIBjAGQAZoBjwGEAZ8BjwEgAZUBIAGVASACigEgAooBAAhgAXACBwEACGAEcAIHAXABAAVgBgcCcAIABWADBgNAAQQBAAEHAQAFYAQGAQABQAEkASABAAYGAWAEJgEkASACAAgGAiYBIAMCAQAIIAQCAgAIIAQCAQAKAgQABwEDEAEAAhABAQEQAgEBEAIBARABAQEAAgEBAAIQAQABEAEBBhACAQEQAgABEAEAARABAAIBAQACAQEAAAD///8JpZ8K16gJ1KcKCA8kAIQK/q4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=f0226c54
+!CPC0240AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASfAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgAp8BjAGbAZ8BjAGbAZ8BjAGbAZUBIAGQAZUBIAKVASABlQGCAYwBkAGCAYwBkAGaAY8BhQGfAY8BkAGVASABlQEgAZ8BmgEgAZ8BmgEACGABcAIHAQAIYARwAgcBcAEABWAGBwJwAgAFYAMGA0ABBAEAAQcBAAVgBAYBAAFAASQBIAEABgYBYAQmASQBIAIACAYCJgEgAwIBAAggBAICAAggBAIBAAoCBAAHAQMQAQACEAEBARACAQEQAgEBEAEBAQABAQEQAQACEAEAARABAQYQAgEBEAIBARABAAEQAQABEAEBAQABEAEBAQAAAP///wmlnwrXqAnUpwoIDyQAhAr+rgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==9585a281
+!CPC0240AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASfAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgAp8BjAGbAZ8BjAGbAZ8BjAGbAZUBnwGQAZUBIAKVASABlQGCAYwBkAGCAYwBkAGaAY8BhQGdAY8BkAGVAYMBlAEgAY8BmgEgAY8BmgEACGABcAIHAQAIYARwAgcBcAEABWAGBwJwAgAFYAMGA0ABBAEAAQcBAAVgBAYBAAFAASQBIAEABgYBYAQmASQBIAIACAYCJgEgAwIBAAggBAICAAggBAIBAAoCBAAHAQMQAQACEAEBARACAQEQAgEBEAEBARABAQEQAQACEAEAARABAQYQAgEBEAIBARABAQEQAQABEAEBAQABEAEBAQAAAP///wmlnwrXqAnUpwoIDyQAhAr+rgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==9d0fbd72
+
+]]
+
+local lines, lineIndex = {}, 1; for line in logostr:gmatch("[^\r\n]+") do table.insert(lines, line) end; local readLine = function() local line = lines[lineIndex]; lineIndex = lineIndex + 1; return line end; if readLine() ~= "32Vid 1.1" then error("Unsupported file") end; local fps = tonumber(readLine()); local first, second = readLine(), readLine(); if second == "" or second == nil then fps = 0 end
+
+term.clear()
+
+local fi = 1
+while true do
+    local f;if first then f,first=first,nil elseif second then f,second=second,nil else f=readLine()end;if f==""or f==nil then break end;local m=f:match("^!CP([CD])");if not m then error("Invalid file")end;local d;if m=="C"then local l=tonumber(f:sub(5,8),16);d=f:sub(9,l+8)else local l=tonumber(f:sub(5,16),16);d=f:sub(17,l+16)end;local function b64dec(s)local r="";for c in s:gmatch"...."do if c:sub(3,4)=="=="then r=r..string.char(bit32.bor(bit32.lshift(b64str:find(c:sub(1,1))-1,2),bit32.rshift(b64str:find(c:sub(2,2))-1,4)))elseif c:sub(4,4)=="="then local n=(b64str:find(c:sub(1,1))-1)*4096+(b64str:find(c:sub(2,2))-1)*64+(b64str:find(c:sub(3,3))-1);r=r..string.char(bit32.extract(n,10,8))..string.char(bit32.extract(n,2,8))else local n=(b64str:find(c:sub(1,1))-1)*262144+(b64str:find(c:sub(2,2))-1)*4096+(b64str:find(c:sub(3,3))-1)*64+(b64str:find(c:sub(4,4))-1);r=r..string.char(bit32.extract(n,16,8))..string.char(bit32.extract(n,8,8))..string.char(bit32.extract(n,0,8))end end;return r end;local dt=b64dec(d);assert(dt:sub(1,4)=="\0\0\0\0"and dt:sub(9,16)=="\0\0\0\0\0\0\0\0","Invalid file");local w,h=("HH"):unpack(dt,5);if w<=0 or h<=0 then break end;local c,n,p=string.unpack("c1B",dt,17);local tl={};local ch=c:byte();for y=1,h do local l="";for x=1,w do l=l..string.char(ch);n=n-1;if n==0 then c,n,p=string.unpack("c1B",dt,p);ch=c:byte()end end;tl[y]=l end;local fl,bl={},{};
+    for y=1,h do local fg,bg="","";for x=1,w do fg=fg..("%x"):format(bit32.band(ch,0x0F));bg=bg..("%x"):format(bit32.rshift(ch,4));n=n-1;if n==0 then ch,n,p=string.unpack("BB",dt,p)end end;fl[y]=fg;bl[y]=bg end;local tw,th=term.getSize();local sx=math.max(1,math.floor((tw-w)/2)+1);local sy=math.max(1,math.floor((th-h)/2)+1);local dh=math.min(h,th-sy+1);local dw=math.min(w,tw-sx+1);if dh>0 and dw>0 then for y=1,dh do local tx=string.sub(tl[y],1,dw);local fg=string.sub(fl[y],1,dw);local bg=string.sub(bl[y],1,dw);term.setCursorPos(sx,sy+y-1);term.blit(tx,fg,bg)end end;p=p-2;for i=0,15 do local r,g,b;r,g,b,p=string.unpack("BBB",dt,p);term.setPaletteColor(2^i,r/255,g/255,b/255)end;if fps==0 then read();break else sleep(1/fps)end
+
+    if fi == 8 then sleep(0.5) end
+    fi = fi+1
+end
+
+sleep(1.5)
+-- Restore default palette
+for i = 0, 15 do term.setPaletteColor(2^i, term.nativePaletteColor(2^i)) end
+term.setBackgroundColor(colors.black)
+term.setTextColor(colors.white)
+term.clear()
+term.setCursorPos(1, 1)
+
+shell.run("shell")

player.lua

@@ -1,47 +0,0 @@
-local b64str = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
-
-local logostr = [[
-32Vid 1.1
-12
-!CPC0078AAAAAA8ADQAAAAAAAAAAACBFkAEgDosCkAEgDYIBgwEgXfBVDwHwbf///////////////////////////////////////////////////////////wAAAA==d0775422
-!CPC00C4AAAAAA8ADQAAAAAAAAAAACBFkAEgD4sBkAEgDJ8BhwGDASALhwEgAp8BIAmfAYEBIAKfAYEBIAqDAYsBhwEgMvBUIAEvAfIB8AwSA/ALHwEQAvEB8AkfAhAC8QLwCvED8DL////k5OX+/v7///////////////////////////////////////////////8AAAA=ff87384c
-!CPC00F0AAAAAA8ADQAAAAAAAAAAACBFkAEgD4sBkAEgDJ8BhwGDASALhwEgAp8BIAmfAYEBIAKfAYEBIAiHASADhwEgCZUBIAKfAYEBIAqCAYMCIBfwVCABLwHyAfAMEgPwCx8BEALxAfAJHwIQAvEC8AgfARAD8QHwCR8BEALxAvAK8QPwF////+Tk5P7+/v///////////////////////////////////////////////wAAAA==e0e51196
-!CPC0128AAAAAA8ADQAAAAAAAAAAACA/jwEgBZABIAmCAYsBIASLAZABIAmCAYsBkAGfAYcBgwEgBoIBjwEgA4cBIAKfASAJnAGBASACnwGBASAIhwEgA4cBIAmVASACnwGBASAKggGDAiAX8D/fAfAO0AHfAvADIAEvAfIB8AbQA98C/QESA/AG/QLQAx0BEALxAfAJ3wEdARAC8QLwCB8BEAPxAfAJHwEQAvEC8ArxA/AX////5OTk/v7+////////////////////////////////////////u7m5////AAAA761d642a
-!CPC015CAAAAAA8ADQAAAAAAAAAAACAlnwGDASALhwGBAZoBnwEgCYMBIASfAZABIAuHAYEBIAGBAYsBkAEgCYIBiwGQAZ8BhwGDASAGggGPASADhwEgAp8BIAmcAYEBIAKfAYEBIAiHASADhwEgCZUBIAKfAYEBIAqCAYMCIBfwJd8BzwHwC88C3AHNAfAJzwHABPwB8AnAA/wC8AEgAS8B8gHwBsADzwL8ARID8Ab8AsADHAEQAvEB8AnPARwBEALxAvAIHwEQA/EB8AkfARAC8QLwCvED8Bf////k5OT+/v7///////////////////////////////////+6uLjGxcb///8AAAA=65ab8982
-!CPC0178AAAAAA8ADQAAAAAAAAAAACAYnwEgDJ8BgwGVAYIBiwEgCIcBgQEgApUBnwGBASAGgwEgBJ8BkAEgC4cBgQEgAYIBiwGQASAJggGLAZABnwGHAYMBIAaCAY8BIAOHASACnwEgCZwBgQEgAp8BgQEgCIcBIAOHASAJlQEgAp8BgQEgCoIBgwIgF/AYHwHwDM8CHwPwCM8CwAIfAfEC8AbPAcAE/AHwCcAD/ALwARABHwHxAfAGwAPPAvwB0QPwBvwCwAPcAdAC/QHwCc8B3AHQAv0C8AjfAdAD/QHwCd8B0AL9AvAK/QPwF/////7+/v///////////////////////////////////////7u5ueTk5P///wAAAA==f6f3bb26
-!CPC0188AAAAAA8ADQAAAAAAAAAAACAYnwEgDJ8BgwGVAYIBiwEgCIcBgQEgApUBnwGBAYcBIAWDASAEnwGQASABiwGQASAIhwGBASABggGLAZABIAmCAYsBkAGfAYcBgwEgBoIBjwEgA4cBIAKfASAJnAGBASACnwGBASAIhwEgA4cBIAmVASACnwGBASAKggGDAiAX8BgfAfAMzwIfA/AIzwLAAh8B8QIfAfAFzwHABPwB8AMfAfAFwAP8AvABEAEfAfEB8AbAA88C/AHRA/AG/ALAA9wB0AL9AfAJzwHcAdAC/QLwCN8B0AP9AfAJ3wHQAv0C8Ar9A/AX/////v7+////////////////////////////////////////u7m55OTk////AAAA7d67fd3d
-!CPC0188AAAAAA8ADQAAAAAAAAAAACAXjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAl8BfPAR8C8QHwCM8DwAEfARAB8QEfAfAFzwLABPECHwEQAfAFwAP8Ax8B8QHwAfEB8AXAA88B/AHwARAB0QHfAfAG/AHABM8B0QHQAvAI/ALcAdAD/QHwCN8C0AL9AvAI3wHQA/0B8Ar9BPAl/////v7+////////////////////////////////////////u7m55OTk////AAAA2a65ee17
-!CPC0180AAAAAA8ADQAAAAAAAAAAACAJlwGQASAKnwGHASABlQEgAZ0BIAePAYEBIAOKAYcBjwGBASAJnwGHAYsBIAGCAYsBIAiRASADggGLASAGkAEgA4IBiwGHAYEBIAiDAY8BIAGfAYEBIAKXASAJhwEgA4cBIAifAYEBIAKfAYEBIAmVASAChwEgNPAJHwHxAfAKzwLAAR8BEAHxAfAHzwLAA/ECHwLwBcAE/AIfAfAB8QLwBcAD/AHwAhABHwLwBs8BwAPPAtEC0AHwB/wCwAHcAtAC/QHwCd8B0AP9AfAI3wLQAv0C8AnfAdAC/QHwNP////7+/v///////////////////////////////////////7u5ueTk5P///wAAAA==a2eea819
-!CPC0198AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAIiAGQASAq8AjPAR8C8QHwCM8DwAEfARAB8QEfAfAFzwLABPECHwEQAfAFwAP8Ax8B8QHwAfEB8AXAA88B/AHwARAB0QHfAfAG/AHABM8B0QHQAvAI/ALcAdAD/QHwCN8C0AL9AvAI3wHQA/0B8Ar9BPAI8QLwKv////7+/v///////////////////////////////////////7u5ueTk5P///wAAAA==eb475fdf
-!CPC01C0AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABiAEgB58BIAGIAZsBIBeXASAG8AjPAR8C8QHwCM8DwAEfARAB8QEfAfAFzwLABPECHwEQAfAFwAP8Ax8B8QHwAfEB8AXAA88B/AHwARAB0QHfAfAG/AHABM8B0QHQAvAI/ALcAdAD/QHwCN8C0AL9AvAI3wHQA/0B8Ar9BPAH8QTwBx8B8AHxAR8B8BcfAfAG/////v7+////////////////////////////////////////u7m55OTk////AAAA301e73b4
-!CPC01D4AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABiAEgBZ8BjAGbAZ8BjAGbAZUBIAefASADggEgCJcBIAGVASAG8AjPAQ8C8AnPA8ABDwEAAfABDwHwBc8CwATwAg8BAAHwBcAD/AMPAfAIwAPPAfwB8AEAAdAB3wHwBvwBwATPAdAD8Aj8AtwB0AP9AfAI3wLQAv0C8AjfAdAD/QHwCv0E8BAPAfABDwLwAQ8B8AgPAfAMDwHwAQ8B8Ab///////////////////////////////////////////////+7ubnk5OT///8AAAA=4b7462bb
-!CPC01FCAAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgBZ8BjAGbAZ8BjAGbAZUBIAWfASABnwGCAYQBIAGCAYQBIAGFASACnwEgApUBIAGVASAG8Ai/AQ8C8Am/A7ABDwEAAfABDwHwBb8CsATwAg8BAAHwBbAD+wMPAfAIsAO/AfsB8AEAAdAB3wHwBvsBsAS/AdAD8Aj7AtsB0AP9AfAI3wLQAv0C8AjfAdAD/QHwCv0E8AoPAfAFDwHwAQ8C8AEPAfAGDwHwAQ8B8AkPAfACDwHwAQ8B8Ab///////////////////////////////////////8TExO7ubn////k5OT///8AAAA=2c287f1b
-!CPC020CAAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgBZ8BjAGbAZ8BjAGbAZUBIAKCASAClQEgAZUBggGMAZABggGMAZABmgGQASABnwGQASABlQEgAZUBIAbwCL8BDwLwCb8DsAEPAQAB8AEPAfAFvwKwBPACDwEAAfAFsAP7Aw8B8AiwA78B+wHwAQAB0AHfAfAG+wGwBL8B0APwCPsC2wHQA/0B8AjfAtAC/QLwCN8B0AP9AfAK/QTwCg8B8AUPAfABDwLwAQ8B8AYPAfABDwHwBg8B8AIPAfACDwHwAQ8B8Ab///////////////////////////////////////8TExO7ubn////k5OT///8AAAA=5671f063
-!CPC0220AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgAp8BhAGfAowBmwGfAYwBmwGVASACigEgApUBIAGVAYIBjAGQAYIBjAGQAZoBjwGEAZ8BjwEgAZUBIAGVASACigEgAooB8Ai/AQ8C8Am/A7ABDwEAAfABDwHwBb8CsATwAg8BAAHwBbAD+wMPAfAIsAO/AfsB8AEAAdAB3wHwBvsBsAS/AdAD8Aj7AtsB0AP9AfAI3wLQAv0C8AjfAdAD/QHwCv0E8AoPAfACDwHwAQ8C8AEPAvABDwHwBg8B8AEPAfAGDwLwAQ8C8AEPAfABDwHwBv///////////////////////////////////////////7u5uf///+Tk5P///wAAAA==de165a07
-!CPC0238AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgAp8BjAGbAZ8BjAGbAZ8BjAGbAZUBIAGQAZUBIAKVASABlQGCAYwBkAGCAYwBkAGaAY8BhQGfAY8BkAGVASABlQEgAZ8BmgEgAZ8BmgHwCL8BDwLwCb8DsAEPAQAB8AEPAfAFvwKwBPACDwEAAfAFsAP7Aw8B8AiwA78B+wHwAQABwAHPAfAG+wGwBL8BwAPwCPsCywHAA/wB8AjPAsAC/ALwCM8BwAP8AfAK/ATwCg8B8AIPAfABDwLwAQ8C8AEPAfADDwHwAg8B8AEPAfAGDwLwAQ8C8AEPAfABDwHwAQ8B8AIPAfAB////////////////////////////////////////////u7m55OTk////////AAAAd4c99577
-!CPC0240AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBnwEgBY8BgwEgBIIBgQGTASAJnwGHAYEBggGQASABggEgCIsBkAEgAp8BggEgBosBIASCAYEBIAqDAY8BhwEgA4UBIAifAYEBIAKfAYEBIAiXASADhwEgCooBjwKBASAHmAGMAZABlwEgAp8BjAGbAZ8BjAGbAZ8BjAGbAZUBnwGQAZUBIAKVASABlQGCAYwBkAGCAYwBkAGaAY8BhQGdAY8BkAGVAYMBlAEgAY8BmgEgAY8BmgHwCL8BDwLwCb8DsAEPAQAB8AEPAfAFvwKwBPACDwEAAfAFsAP7Aw8B8AiwA78B+wHwAQABwAHPAfAG+wGwBL8BwAPwCPsCywHAA/wB8AjPAsAC/ALwCM8BwAP8AfAK/ATwCg8B8AIPAfABDwLwAQ8C8AEPAfABDwHwAQ8B8AIPAfABDwHwBg8C8AEPAvABDwHwAQ8B8AEPAfACDwHwAf///////////////////////////////////////////7u5ueTk5P///////wAAAA==66b4d14d
-
-]]
-
-local lines, lineIndex = {}, 1; for line in logostr:gmatch("[^\r\n]+") do table.insert(lines, line) end; local readLine = function() local line = lines[lineIndex]; lineIndex = lineIndex + 1; return line end; if readLine() ~= "32Vid 1.1" then error("Unsupported file") end; local fps = tonumber(readLine()); local first, second = readLine(), readLine(); if second == "" or second == nil then fps = 0 end
-
-term.clear()
-
-local fi = 1
-while true do
-    local f;if first then f,first=first,nil elseif second then f,second=second,nil else f=readLine()end;if f==""or f==nil then break end;local m=f:match("^!CP([CD])");if not m then error("Invalid file")end;local d;if m=="C"then local l=tonumber(f:sub(5,8),16);d=f:sub(9,l+8)else local l=tonumber(f:sub(5,16),16);d=f:sub(17,l+16)end;local function b64dec(s)local r="";for c in s:gmatch"...."do if c:sub(3,4)=="=="then r=r..string.char(bit32.bor(bit32.lshift(b64str:find(c:sub(1,1))-1,2),bit32.rshift(b64str:find(c:sub(2,2))-1,4)))elseif c:sub(4,4)=="="then local n=(b64str:find(c:sub(1,1))-1)*4096+(b64str:find(c:sub(2,2))-1)*64+(b64str:find(c:sub(3,3))-1);r=r..string.char(bit32.extract(n,10,8))..string.char(bit32.extract(n,2,8))else local n=(b64str:find(c:sub(1,1))-1)*262144+(b64str:find(c:sub(2,2))-1)*4096+(b64str:find(c:sub(3,3))-1)*64+(b64str:find(c:sub(4,4))-1);r=r..string.char(bit32.extract(n,16,8))..string.char(bit32.extract(n,8,8))..string.char(bit32.extract(n,0,8))end end;return r end;local dt=b64dec(d);assert(dt:sub(1,4)=="\0\0\0\0"and dt:sub(9,16)=="\0\0\0\0\0\0\0\0","Invalid file");local w,h=("HH"):unpack(dt,5);if w<=0 or h<=0 then break end;local c,n,p=string.unpack("c1B",dt,17);local tl={};local ch=c:byte();for y=1,h do local l="";for x=1,w do l=l..string.char(ch);n=n-1;if n==0 then c,n,p=string.unpack("c1B",dt,p);ch=c:byte()end end;tl[y]=l end;local fl,bl={},{};
-    for y=1,h do local fg,bg="","";for x=1,w do fg=fg..("%x"):format(bit32.band(ch,0x0F));bg=bg..("%x"):format(bit32.rshift(ch,4));n=n-1;if n==0 then ch,n,p=string.unpack("BB",dt,p)end end;fl[y]=fg;bl[y]=bg end;local tw,th=term.getSize();local sx=math.max(1,math.floor((tw-w)/2)+1);local sy=math.max(1,math.floor((th-h)/2)+1);local dh=math.min(h,th-sy+1);local dw=math.min(w,tw-sx+1);if dh>0 and dw>0 then for y=1,dh do local tx=string.sub(tl[y],1,dw);local fg=string.sub(fl[y],1,dw);local bg=string.sub(bl[y],1,dw);term.setCursorPos(sx,sy+y-1);term.blit(tx,fg,bg)end end;p=p-2;for i=0,15 do local r,g,b;r,g,b,p=string.unpack("BBB",dt,p);term.setPaletteColor(2^i,r/255,g/255,b/255)end;if fps==0 then read();break else sleep(1/fps)end
-
-    if fi == 7 then sleep(0.5) end
-    fi = fi+1
-end
-
-sleep(1)
--- Restore default palette
-for i = 0, 15 do term.setPaletteColor(2^i, term.nativePaletteColor(2^i)) end
-term.setBackgroundColor(colors.black)
-term.setTextColor(colors.white)
-term.clear()
-term.setCursorPos(1, 1)
-
-shell.run("shell")