38 lines
7.4 KiB
Lua
38 lines
7.4 KiB
Lua
local b64str = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
|
|
|
|
local logostr = [[
|
|
32Vid 1.1
|
|
10
|
|
!CPC0138AAAAAA8ADQAAAAAAAAAAACAYnwEgDJ8BgwGVAYIBiwEgCIcBgQEgApUBnwGBASAGgwEgBJ8BkAEgC4cBgQEgAosBkAEgCYIBiwGQASAJggGPASAQnAEgA58BgQEgCIcBIAOHASAJlQEgAp8BgQEgCoIBgwIgF/AYDwHwDA8F8AgPAgACDwHwCA8BAATwCgAD8AMAAQ8B8AcAAw8C8AEAA/AIAAfwCQ8BAAPwCg8BAAPwCg8BAALwJvDw8PKyM+V/2Jmy8t7ebH/MGfKyzExMTJmZmUyZsrJm5TNmzH9mTFemTsxMTBEREQ==f39d8bc1
|
|
!CPC0140AAAAAA8ADQAAAAAAAAAAACAXjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBIAaPAYMBIASCAYEBIAqfAYcBgQGCAZABIAqLAZABIAOCASAGiwEgBIIBIAuDAY8BIASHASAInwGBASACnwGBASAIlwEgA4cBIAqKAY8CgQEgJfAXDwPwCQ8DAAEPAQAB8AcPAgAE8AkAA/ADDwHwCAADDwHwAgACDwHwBwAEDwEAA/AKAATwCQ8CAALwCg8BAAPwNPDw8PKyM+V/2Jmy8t7ebH/MGfKyzExMTJmZmUyZsrJm5TNmzH9mTFemTsxMTBEREQ==46a853fa
|
|
!CPC013CAAAAAA8ADQAAAAAAAAAAACAJlwGQASAKnwGHASABlQEgAZ0BIAePAYEBIAOKAYcBIAufAYcBiwEgC5EBIAOCAYsBIAaQASADggGLASAKgwGPASAFnwEgCYcBIAOHASAInwGBASACnwGBASAJlQEgAocBIDTwCQ8B8AsPAgABDwEAAfAIDwIAA/AJAATwAg8B8AgAA/ADAAEPAvAGDwEAAw8CAAPwCQAF8AoPAQAD8AkPAgAC8AsPAQAC8DXw8PDysjPlf9iZsvLe3mx/zBnyssxMTEyZmZlMmbKyZuUzZsx/ZkxXpk7MTEwRERE=8e09de22
|
|
!CPC0148AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBIAaPAYMBIASCAYEBIAqfAYcBgQGCAZABIAqLAZABIAOCASAGiwEgBIIBIAuDAY8BIASHASAInwGBASACnwGBASAIlwEgA4cBIAqKAY8CgQEgCIgBkAEgKvAIDwPwCQ8DAAEPAQAB8AcPAgAE8AkAA/ADDwHwCAADDwHwAgACDwHwBwAEDwEAA/AKAATwCQ8CAALwCg8BAAPwQ/Dw8PKyM+V/2Jmy8t7ebH/MGfKyzExMTJmZmUyZsrJm5TNmzH9mTFemTsxMTBEREQ==95274d09
|
|
!CPC0170AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBIAaPAYMBIASCAYEBIAqfAYcBgQGCAZABIAqLAZABIAOCASAGiwEgBIIBIAuDAY8BIASHASAInwGBASACnwGBASAIlwEgA4cBIAqKAY8CgQEgB5gBjAGQAYgBIAefASABiAGbASAXlwEgBvAIDwPwCQ8DAAEPAQAB8AcPAgAE8AkAA/ADDwHwCAADDwHwAgACDwHwBwAEDwEAA/AKAATwCQ8CAALwCg8BAAPwIQ8B8AIPAfAXDwHwBvDw8PKyM+V/2Jmy8t7ebH/MGfKyzExMTJmZmUyZsrJm5TNmzH9mTFemTsxMTBEREQ==e55650e9
|
|
!CPC0198AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBIAaPAYMBIASCAYEBIAqfAYcBgQGCAZABIAqLAZABIAOCASAGiwEgBIIBIAuDAY8BIASHASAInwGBASACnwGBASAIlwEgA4cBIAqKAY8CgQEgB5gBjAGQAYgBIAWfAYwBmwGfAYwBmwGVASAHnwEgA4IBIAiXASABlQEgBvAIDwPwCQ8DAAEPAQAB8AcPAgAE8AkAA/ADDwHwCAADDwHwAgACDwHwBwAEDwEAA/AKAATwCQ8CAALwCg8BAAPwHw8B8AEPAvABDwHwCA8B8AwPAfABDwHwBvDw8PKyM+V/2Jmy8t7ebH/MGfKyzExMTJmZmUyZsrJm5TNmzH9mTFemTsxMTBEREQ==a2051e3b
|
|
!CPC01C0AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBIAaPAYMBIASCAYEBIAqfAYcBgQGCAZABIAqLAZABIAOCASAGiwEgBIIBIAuDAY8BIASHASAInwGBASACnwGBASAIlwEgA4cBIAqKAY8CgQEgB5gBjAGQAZcBIAWfAYwBmwGfAYwBmwGVASAFnwEgAZ8BggGEASABggGEASABhQEgAp8BIAKVASABlQEgBvAIDwPwCQ8DAAEPAQAB8AcPAgAE8AkAA/ADDwHwCAADDwHwAgACDwHwBwAEDwEAA/AKAATwCQ8CAALwCg8BAAPwGQ8B8AUPAfABDwLwAQ8B8AYPAfABDwHwCQ8B8AIPAfABDwHwBvDw8PKyM+V/2Jmy8t7ebH/MGfKyzExMTJmZmUyZsrJm5TNmzH9mTFemTsxMTBEREQ==b3725fe0
|
|
!CPC01D0AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBIAaPAYMBIASCAYEBIAqfAYcBgQGCAZABIAqLAZABIAOCASAGiwEgBIIBIAuDAY8BIASHASAInwGBASACnwGBASAIlwEgA4cBIAqKAY8CgQEgB5gBjAGQAZcBIAWfAYwBmwGfAYwBmwGVASACggEgApUBIAGVAYIBjAGQAYIBjAGQAZoBkAEgAZ8BkAEgAZUBIAGVASAG8AgPA/AJDwMAAQ8BAAHwBw8CAATwCQAD8AMPAfAIAAMPAfACAAIPAfAHAAQPAQAD8AoABPAJDwIAAvAKDwEAA/AZDwHwBQ8B8AEPAvABDwHwBg8B8AEPAfAGDwHwAg8B8AIPAfABDwHwBvDw8PKyM+V/2Jmy8t7ebH/MGfKyzExMTJmZmUyZsrJm5TNmzH9mTFemTsxMTBEREQ==0396aa50
|
|
!CPC01E0AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBIAaPAYMBIASCAYEBIAqfAYcBgQGCAZABIAqLAZABIAOCASAGiwEgBIIBIAuDAY8BIASHASAInwGBASACnwGBASAIlwEgA4cBIAqKAY8CgQEgB5gBjAGQAZcBIAKfAYQBnwKMAZsBnwGMAZsBlQEgAooBIAKVASABlQGCAYwBkAGCAYwBkAGaAY8BhAGfAY8BIAGVASABlQEgAooBIAKKAfAIDwPwCQ8DAAEPAQAB8AcPAgAE8AkAA/ADDwHwCAADDwHwAgACDwHwBwAEDwEAA/AKAATwCQ8CAALwCg8BAAPwGQ8B8AIPAfABDwLwAQ8C8AEPAfAGDwHwAQ8B8AYPAvABDwLwAQ8B8AEPAfAG8PDw8rIz5X/YmbLy3t5sf8wZ8rLMTExMmZmZTJmysmblM2bMf2ZMV6ZOzExMERER2de5f2b0
|
|
!CPC01FCAAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBIAaPAYMBIASCAYEBIAqfAYcBgQGCAZABIAqLAZABIAOCASAGiwEgBIIBIAuDAY8BIASHASAInwGBASACnwGBASAIlwEgA4cBIAqKAY8CgQEgB5gBjAGQAZcBIAKfAYwBmwGfAYwBmwGfAYwBmwGVASABkAGVASAClQEgAZUBggGMAZABggGMAZABmgGPAYUBnwGPAZABlQEgAZUBIAGfAZoBIAGfAZoB8AgPA/AJDwMAAQ8BAAHwBw8CAATwCQAD8AMPAfAIAAMPAfACAAIPAfAHAAQPAQAD8AoABPAJDwIAAvAKDwEAA/AZDwHwAg8B8AEPAvABDwLwAQ8B8AMPAfACDwHwAQ8B8AYPAvABDwLwAQ8B8AEPAfABDwHwAg8B8AHw8PDysjPlf9iZsvLe3mx/zBnyssxMTEyZmZlMmbKyZuUzZsx/ZkxXpk7MTEwRERE=91cadc41
|
|
!CPC0200AAAAAA8ADQAAAAAAAAAAACAIjwGVAYsBkAEgCJ8BhwGBASABlQEgAYcBIAaPAYMBIASCAYEBIAqfAYcBgQGCAZABIAqLAZABIAOCASAGiwEgBIIBIAuDAY8BIASHASAInwGBASACnwGBASAIlwEgA4cBIAqKAY8CgQEgB5gBjAGQAZcBIAKfAYwBmwGfAYwBmwGfAYwBmwGVAZ8BkAGVASAClQEgAZUBggGMAZABggGMAZABmgGPAYUBnQGPAZABlQGDAZQBIAGPAZoBIAGPAZoB8AgPA/AJDwMAAQ8BAAHwBw8CAATwCQAD8AMPAfAIAAMPAfACAAIPAfAHAAQPAQAD8AoABPAJDwIAAvAKDwEAA/AZDwHwAg8B8AEPAvABDwLwAQ8B8AEPAfABDwHwAg8B8AEPAfAGDwLwAQ8C8AEPAfABDwHwAQ8B8AIPAfAB8PDw8rIz5X/YmbLy3t5sf8wZ8rLMTExMmZmZTJmysmblM2bMf2ZMV6ZOzExMERER446de9bc
|
|
]]
|
|
|
|
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 = true
|
|
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 then sleep(1) fi = false end
|
|
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)
|