how to add movies to computercraft?

local source,frames = sExample.readAll(),""

local sindex = source:find("RRRRRRRRRR")

frames = frames..source:sub(sindex,sindex+15390)

local source,frames = sExample.readAll(),{}
local sindex = source:find("RRRRRRRRRR")
for i=1, math.floor((#source-sindex)/15507) do
    frames[i] = ""..source:sub((sindex*i)+2020,(sindex*i)+13171)
end

local lines,ln = {},1
for v in string.gmatch(source:sub(sindex),"([^\n]+)") do
    lines[ln] = v
    ln = ln+1
end

for i=1,#lines do
    if #lines[i] > 20 then lines[i] = ""..string.sub(lines[i],20) end
    if #lines[i] > 160 then lines[i] = ""..string.sub(lines[i],1,160)
    else lines[] = "" end
end

local source = sExample.readAll() sExample.close()
local sindex = source:find("RRRRRRRRRR")
local lines,ln = {},1
for v in string.gmatch(source:sub(sindex),"([^\n]+)") do
    lines[ln] = v
    ln = ln+1
    sleep(0)
end
for i=1,#lines do
    if #lines[i] > 20 then lines[i] = ""..string.sub(lines[i],20) end
    if #lines[i] > 160 then lines[i] = ""..string.sub(lines[i],1,160)
    else lines[i] = "" end
    sleep(0)
end

ChunLing, on 26 December 2012 - 05:52 PM said:

Okay…well as interesting as it is that write was able to use the javascript in this page to display all the ascii art, we really only want the ascii art because running the code ends in not yielding. So first you have to find some way to skip to the part where the ascii art begins. Then we need to create a new string using elements from the old string.

For this, we'll use string.sub(). Because we'll be doing a bunch of operations on the string, we'll need assign the string to a variable. And we'll be rebuilding the string on the other end, in another string or set of strings. So (for now):

local source,frames = sExample.readAll(),""

Now we can use string.find to get the beginning of the ascii art. Fortunately for us, the beginnings of all the frames look the same, (a bunch of "R"s). So maybe initially we'll do something like:

local sindex = source:find("RRRRRRRRRR")

I think that ten "R"s should be enough. Then we can use string.sub with that value, and that value + the number of characters per frame (looks like 15,390, but don't hold me to that), and concatenate the result onto our frames.

frames = frames..source:sub(sindex,sindex+15390)

and now we have a single frame of the movie, stored in frames.

Now, we want all the frames, not just one. And we want them smaller. So let's revise our process a bit. First, we change frames to be a table of strings rather than a single string. Second, we skip over the header and footer of "R"s using some simple math. And third, we use a loop. So now we have something more like:

local source,frames = sExample.readAll(),{}
local sindex = source:find("RRRRRRRRRR")
for i=1, math.floor((#source-sindex)/15507) do
	frames[i] = ""..source:sub((sindex*i)+2020,(sindex*i)+13171)
end

Be aware that the numbers in here are all just estimated from looking at the page source for what I presume to be the first frame. They may not be exactly right. I don't even know that all the frames are exactly the same size (they should be, right?). Oops, turns out that the ascii art cleverly dispenses with whitespace at the end of each line. Umm…

Anyway, now we want to also cut off some of the sides of the frame. Hah, that's a bit trickier. But of course still possible, and it will help us deal with our other problem of lines not all being the same length. We just need to make a table of lines in the source ascii art, and replace the simple assignment of frames to another for loop that builds frames one line at a time, using the middle of each line. Let's start with breaking down the source into a table of lines, since we haven't covered that yet.

local lines,ln = {},1
for v in string.gmatch(source:sub(sindex),"([^\n]+)") do
	lines[ln] = v
	ln = ln+1
end

The point here is to use gmatch in an iteration to pull out each line in source from sindex on, and assign that to a successive entry in a table, lines.

Now, once we've done that, we need to go through and cut off the excess portion of those lines. We'll start with the left portion, then do the right. It's a simple string.sub on the line…if the line is long enough. We'll try with trimming off about…20 characters, first on the. So:

for i=1,#lines do
	if #lines[i] > 20 then lines[i] = ""..string.sub(lines[i],20) end
	if #lines[i] > 160 then lines[i] = ""..string.sub(lines[i],1,160)
	else lines[] = "" end
end

Now, if we get "too long without yielding" (cause this is a lot of string manipulation), we can just add some sleep(0) inside our loops.

local source = sExample.readAll() sExample.close()
local sindex = source:find("RRRRRRRRRR")
local lines,ln = {},1
for v in string.gmatch(source:sub(sindex),"([^\n]+)") do
	lines[ln] = v
	ln = ln+1
	sleep(0)
end
for i=1,#lines do
	if #lines[i] > 20 then lines[i] = ""..string.sub(lines[i],20) end
	if #lines[i] > 160 then lines[i] = ""..string.sub(lines[i],1,160)
	else lines[i] = "" end
	sleep(0)
end

Writing a function to shorten each line further by skipping every other character is something I'll leave to you for now.

Then, we need a playback loop. We can use a nested for loop to write out a given number of lines, sleep(0.1) (or whatever our framerate is), and then write the next set of lines. You can skip lines (like the headers and every other line if we need more compression) and whatever.