42 lines
9.4 KiB
Lua
42 lines
9.4 KiB
Lua
local b64str = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
|
|
|
|
local logostr = [[
|
|
32Vid 1.1
|
|
13
|
|
!CPC007CAAAAABsACgAAAAAAAAAAACBfigGLASAaggGPAYQBIJAAXwIBIAEAGgIDAJAAAADb29vX19cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=c06bb958
|
|
!CPC0088AAAAABsACgAAAAAAAAAAACBflQGLASAZlQEgAY8BhAEgF4IBIHgAXyACABkgAgICABcCAQB4AAAA29vb19fXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA39b1ef7b
|
|
!CPC00B4AAAAABsACgAAAAAAAAAAACBflQGLASAZlQEgAY8BlAEgF4UBIAKVASAVnwGBASACnwEgGYMBIEEAXzACABkwAhMBAwEAFxADAQEAFRAEAQEAGQEBAEEAAACysrLb29vX19cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=b39387d2
|
|
!CPC00E0AAAAABsACgAAAAAAAAAAACBflQGLASAZlQEgAY8BlAEgF4UBIAKVASAVnwGBASACnwEgFYcBIAOHASAVgQEgAp8BgQEgFo8ChwEgDgBfMAIAGTACEwEDAQAXEAMBAQAVEAQBAQAVEAQBAQAVEAMBAgAWAQMADgAAALKystvb29fX1wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==b119b8fc
|
|
!CPC011CAAAAABsACgAAAAAAAAAAACBZlQGCAYsBIAOVAYsBIBOVASACggGPASABlQEgAY8BlAEgEYIBkAEgBIUBIAKVASATggGLAZ8BgQEgAp8BIBWHASADhwEgFYEBIAKfAYEBIBaPAocBIA4AWUADAAMwAgATQAUAATACEwEDAQARBAFABRQBEAIBAQATBAIUAhACAQEAFRAEAQEAFRADAQIAFgEDAA4AAACysrLb29vX19d2dnYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=7ef73bf3
|
|
!CPC0158AAAAABsACgAAAAAAAAAAACALnwGQASAXjwGDASABlQEgFJ8BhwGBASADlQEgFJUBIAOPAYMBlQGLASATlQEgAoIBjwEgAZUBIAGPAZQBIBGCAZABIASFASAClQEgE4IBiwGfAYEBIAKfASAVhwEgA4cBIBWBASACnwGBASAWjwKHASAQAAtAAQQBABdAAwQBABRABgQBABRABAQCMAIAE0AFAAEwAhMBAwEAEQQBQAUUARACAQEAEwQCFAIQAgEBABUQBAEBABUQAwECABYBAwAQAAAAsrKy29vb19fXdnZ2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA86003966
|
|
!CPC0174AAAAABsACgAAAAAAAAAAACAJnwGQAYIBjwEgFY8BgwEgAZUBIAGfAYEBIBGfAYcBgQEgA5UBgwEgE5UBIAOPAYMBlQGLASATlQEgAoIBjwEgAZUBIAGPAZQBIBGCAZABIASFASAClQEgE4IBiwGfAYEBIAKfASAVhwEgA4cBIBWBASACnwGBASAWjwKHASASAAlAAQQBUAIAFUADBAFQAQUCABFABgQBBQEAE0AEBAIwAgATQAUAATACEwEDAQARBAFABRQBEAIBAQATBAIUAhACAQEAFRAEAQEAFRADAQIAFgEDABIAAACysrLb29vX19d2dnbq6uoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=e5890268
|
|
!CPC0190AAAAABsACgAAAAAAAAAAACAHnwGQAYIBjwEgFY8BgwEgAZUBIAGfAYEBkAEgEJ8BhwGBASADlQGDAYgBgQGVASAQlQEgA48BgwGVAYsBIAKBASAQlQEgAoIBjwEgAZUBIAGPAZQBIBGCAZABIASFASAClQEgE4IBiwGfAYEBIAKfASAVhwEgA4cBIBWBASACnwGBASAWjwKHASAUAAdAAQQBUAIAFUADBAFQAQUDABBABgQBBQJQAQUBABBABAQCMAIAAgUBABBABQABMAITAQMBABEEAUAFFAEQAgEBABMEAhQCEAIBAQAVEAQBAQAVEAMBAgAWAQMAFAAAALKystvb29fX13Z2durq6gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==95aff79d
|
|
!CPC0178AAAAABsACgAAAAAAAAAAACAGjwGVAYsBkAEgFJ8BhwGBASABlQEgAYcBnwEgEY8BgwEgBIIBgQGTASAVnwGHAYEBggGQASABggEgFIsBkAEgAp8BggEgEosBIASfAYEBIBaDAZABhwEgA4UBIBSfAYEBIAKfAYEBIBSXASADhwEgFooBjwKBASAVAAZAAVACBQEAFEAEUAIFAVABABFABgUCUAIAEUADBAMwAQMBAAEFAQARQAQEAQABMAETARABABIEAUAEFAETARACABQEAUABFAEQAwEBABQQBAECABQQBAEBABYBBAAVAAAAsrKy29vb19fXdnZ26urqAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA6c012511
|
|
!CPC0190AAAAABsACgAAAAAAAAAAACAFjwGVAYsBkAEgFJ8BhwGBASABlQEgAYcBnwEgEY8BgwEgBIIBgQGTASAVnwGHAYEBggGQASABggEgAp8BIBGLAZABIAKfAYIBIASBASANiwEgBJ8BgQEgFoMBkAGHASADhQEgFJ8BgQEgAp8BgQEgFJcBIAOHASAWigGPAoEBIBYABVABYAIGAQAUUARgAgYBYAEAEVAGBgJgAgARUAMFA0ABBAEAAQYBAAIgAQAOUAQFAQABQAEUARABAAQCAQANBQFQBBUBFAEQAgAUBQFQARUBEAMBAQAUEAQBAgAUEAQBAQAWAQQAFgAAALKysv///9vb29fX13Z2durq6gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==332a7222
|
|
!CPC01D8AAAAABsACgAAAAAAAAAAACAFjwGVAYsBkAEgFJ8BhwGBASABlQEgAYcBnwEgEY8BgwEgBIIBgQGTASAVnwGHAYEBggGQASABggEgAZ8BjwEgAZ8BIAqfAZABIAOLAZABIAKfAYIBIAKBASABgQEgCYEBIAKCAYsBIASfAYEBIAyfASAJgwGQAYcBIAOFASAKggEgCZ8BgQEgAp8BgQEgFJcBIAOHASAWigGPAoEBIBYABVABYAIGAQAUUARgAgYBYAEAEVAGBgJgAgARUAMFA0ABBAEAAQYBAAEgAgABIAEACiABAgFQBAUBAAFAARQBEAEAAgIBAAECAQAJAgEAAgIBBQFQBBUBFAEQAgAKIAEACQUBUAEVARADAQEACgIBAAkQBAECABQQBAEBABYBBAAWAAAAsrKy////29vb19fXdnZ26urqAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA75fa70dc
|
|
!CPC0228AAAAABsACgAAAAAAAAAAACAFjwGVAYsBkAEgFJ8BhwGBASABlQEgAYcBnwEgEY8BgwEgBIIBgQGTASAVnwGHAYEBggGQASABggEgAZ8BjwEgAZ8BIAafAY8BIAKPAZABIAOLAZABIAKfAYIBIAKVASABgQGCASACnwEgAZ8BIAGaASABgQGKAZABggGLASAEnwGBASAElQEgBZUBIAGVASAJgwGQAYcBIAOFASAIggEgAYIBIAmfAYEBIAKfAYEBIBSXASADhwEgFooBjwKBASAWAAVQAWACBgEAFFAEYAIGAWABABFQBgYCYAIAEVADBQNAAQQBAAEGAQABIAIAASABAAYgAgACIAECAVAEBQEAAUABFAEQAQACAgEAAQICAAIgAQABIAEAASABAAECBAUBUAQVARQBEAIAAgIBAAUgAQABIAEACQUBUAEVARADAQEACAIBAAECAQAJEAQBAgAUEAQBAQAWAQQAFgAAALKysv///9vb29fX13Z2durq6gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==38043dd2
|
|
!CPC0258AAAAABsACgAAAAAAAAAAACAFjwGVAYsBkAEgFJ8BhwGBASABlQEgAYcBnwEgEY8BgwEgBIIBgQGTASAVnwGHAYEBggGQASABggEgAZ8BjwEgAZ8BIAafAY8BIAKPAZABIAOLAZABIAKfAYIBIAKVASABgQGKASAClwEgAZcBIAGaAZABgQGKAY8BggGLASAEnwGBASAElQEgBZUBIAGVASACggEgA4EBIAKDAZABhwEgA4UBIAKCAYEBIAGCASACggEgAYIBIAmfAYEBIAKfAYEBIBSXASADhwEgFooBjwKBASAWAAVQAWACBgEAFFAEYAIGAWABABFQBgYCYAIAEVADBQNAAQQBAAEGAQABIAIAASABAAYgAgACIAECAVAEBQEAAUABFAEQAQACAgEAAQICAAIgAQABIAEAASABAgMgAQIBBQFQBBUBFAEQAgACAgEABSABAAEgAQACAgEAAwIBAAIFAVABFQEQAwEBAAICAgABAgEAAgIBAAECAQAJEAQBAgAUEAQBAQAWAQQAFgAAALKysv///9vb29fX13Z2durq6gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==408d5691
|
|
!CPC0274AAAAABsACgAAAAAAAAAAACAFjwGVAYsBkAEgFJ8BhwGBASABlQEgAYcBnwEgEY8BgwEgBIIBgQGTASAVnwGHAYEBggGQASABggEgAZ8BjwEgAZ8BIAOQASACnwGPASACjwGQASADiwGQASACnwGCASAClQEgAYEBlQEgApUBIAGVASABmgGQAYEBigGPAYIBiwEgBJ8BgQEgBJUBIAGQASADlQEgAZUBIAKCAZQBIAKWASACgwGQAYcBIAOFASACggGDASABggGBASABggEgAYIBIAmfAYEBIAKfAYEBIBSXASADhwEgFooBjwKBASAWAAVQAWACBgEAFFAEYAIGAWABABFQBgYCYAIAEVADBQNAAQQBAAEGAQABIAIAASABAAMCAQACIAIAAiABAgFQBAUBAAFAARQBEAEAAgIBAAECASABAAIgAQABIAEAASABAgMgAQIBBQFQBBUBFAEQAgACAgEAAQIBAAMgAQABIAEAAgICAAIgAQACBQFQARUBEAMBAQACAgIAAQICAAECAQABAgEACRAEAQIAFBAEAQEAFgEEABYAAACysrL////b29vX19d2dnbq6uoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=2b7c88cc
|
|
!CPC028CAAAAABsACgAAAAAAAAAAACAFjwGVAYsBkAEgFJ8BhwGBASABlQEgAYcBnwEgEY8BgwEgBIIBgQGTASAVnwGHAYEBggGQASABggEgAZ8BjwEgAZ8BIAOPAZABIAGfAY8BIAKPAZABIAOLAZABIAKfAYIBIAKVASABgQGVASAClQEgAZUBIAGaAZABgQGKAY8BggGLASAEnwGBASAElQGCAZUBigEgApUBgQGVASACggGUASAClgEgAoMBkAGHASADhQEgAoIBgwEgAYIBgwEgAYIBIAGCASACggEgA4EBIAKfAYEBIAKfAYEBIBSXASADhwEgFooBjwKBASAWAAVQAWACBgEAFFAEYAIGAWABABFQBgYCYAIAEVADBQNAAQQBAAEGAQABIAIAASABAAMgAQIBAAEgAgACIAECAVAEBQEAAUABFAEQAQACAgEAAQIBIAEAAiABAAEgAQABIAECAyABAgEFAVAEFQEUARACAAICBAACIAECASABAAICAgACIAEAAgUBUAEVARADAQEAAgICAAECAgABAgEAAQIBAAICAQADAgEAAhAEAQIAFBAEAQEAFgEEABYAAACysrL////b29vX19d2dnbq6uoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=ede2c710
|
|
!CPC0294AAAAABsACgAAAAAAAAAAACAFjwGVAYsBkAEgFJ8BhwGBASABlQEgAYcBnwEgEY8BgwEgBIIBgQGTASAVnwGHAYEBggGQASABggEgAZ8BjwEgAZ8BIAOPAZABIAGfAY8BIAKPAZABIAOLAZABIAKfAYIBIAKVASABgQGVASAClQEgAZUBIAGaAZABgQGKAY8BggGLASAEnwGBASAElQGCAZUBigEgApUBgwGUASABkAGCAZQBnwEgAZYBIAKDAZABhwEgA4UBIAKCAYMBIAGCAYMBgQGCASABggEgAYIBgwEgAoMBgQEgAp8BgQEgAp8BgQEgFJcBIAOHASAWigGPAoEBIBYABVABYAIGAQAUUARgAgYBYAEAEVAGBgJgAgARUAMFA0ABBAEAAQYBAAEgAgABIAEAAyABAgEAASACAAIgAQIBUAQFAQABQAEUARABAAICAQABAgEgAQACIAEAASABAAEgAQIDIAECAQUBUAQVARQBEAIAAgIEAAIgAQIBIAEAAQIDIAEAASABAAIFAVABFQEQAwEBAAICAgABAgQAAQIBAAECAgACAgIAAhAEAQIAFBAEAQEAFgEEABYAAACysrL////b29vX19d2dnbq6uoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=5b88363d
|
|
|
|
]]
|
|
|
|
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()
|
|
|
|
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
|
|
|
|
end
|
|
|
|
sleep(1.7)
|
|
-- 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)
|