Create a new version of paste:

-- Script for extracting game data and outputting it into After Effects keyframe data format
-- Written by Alex Losego

-- the filepath to save the csv file

local absolutefilepath = "C:\\Users\\Alex\\Documents\\output.csv"

-- the memory domain to use for memory addresses specified in the next array

local domain = "RAM"

-- the framerate of the source video this will be attached to

local framerate = 60.1

-- list of memory addresses to keep track of
---- array key is the name of the data
---- array value contains the type and address
------ type 't' can be 'u8' 's8' 'u16' 's16' for unsigned/signed 8-bit/16-bit value
------ address 'lo' is the memory address of value (the lower 8 bits for 16-bit)
------ address 'hi' is the memory address of higher 8 bits for 16-bit (need to be specified even if the 16 bits are contiguous)

local addresses = {
	--loc_x = {t = "s8", lo = 0x1200},
	--loc_y = {t = "s8", lo = 0x1204},
	--loc_z = {t = "s8", lo = 0x1208},
	--camera_x = {t = "s16", hi = 0x1B, lo = 0x1A},
	--camera_y = {t = "s16", hi = 0x1D, lo = 0x1C},
	--sprite_0 = {t = "u8", lo = 0x9E},
	--sprite_1 = {t = "u8", lo = 0x9F},
}

-- list of keyframes imported into After Effects
---- 'name' is the name of the keyframe
---- 't' is the type of keyframe: can be 'slider' (1D) or 'point' (2D) or '3dpoint' (3D)
---- 'x' is the name of the data given above for first dimension of keyframe
---- 'y' is the name of the data given above for second dimension of keyframe (point only)
---- 'z' is the name of the data given above for third dimension of keyframe (3d point only)

local keyframes = {
	--{name = "location", t = "3dpoint", x = "loc_x", y = "loc_y", y = "loc_z"},
	--{name = "camera", t = "point", x = "camera_x", y = "camera_y"},
	--{name = "slot_0_sprite", t = "slider", x = "sprite_0"},
	--{name = "slot_1_sprite", t = "slider", x = "sprite_1"},
}


-- don't need to change anything below this point

function done()
	return movie.mode() == "FINISHED" or movie.mode() == "INACTIVE"
end

-- Start Main --

console.writeline("Starting...")
raw = {}
memory.usememorydomain(domain);

repeat
	emu.frameadvance()
	
	for k, v in pairs(addresses) do
		val = 0;
		if v.t == "u8" then
			val = memory.readbyte(v.lo)
		elseif v.t == "s8" then
			val = memory.readbyte(v.lo)
			if val >= 0x80 then
				val = val - 0x100
			end
		elseif v.t == "u16" then
			val = 0x100*memory.readbyte(v.hi) + memory.readbyte(v.lo)
		elseif v.t == "s16" then
			val = 0x100*memory.readbyte(v.hi) + memory.readbyte(v.lo)
			if val >= 0x8000 then
				val = val - 0x10000
			end
		end
		
		if raw[k] == nil then
			raw[k] = {}
		end
		
		table.insert(raw[k], val);
	end
until done()

file = io.open(absolutefilepath,"w")
file:write("Adobe After Effects 8.0 Keyframe Data\n\n\n")
file:write("\tUnits Per Second\t" .. framerate .. "\n")
file:write("\tSource Width\t100\n")
file:write("\tSource Height\t100\n")
file:write("\tSource Pixel Aspect Ratio\t1\n")
file:write("\tComp Pixel Aspect Ratio\t1\n\n")

for i = 1,#keyframes do
	console.writeline("Writing keyframe data for "..keyframes[i].name..".")
	
	if keyframes[i].t == "slider" then
		file:write("Effects\tSlider Control #"..i.."\tSlider#2\n\tFrame\n")
		--
		for j=1,#raw[keyframes[i].x] do
			val = raw[keyframes[i].x][j]
			if j > 1 and val == raw[keyframes[i].x][j-1] then
				-- unnecessary keyframe
			else
				file:write("\t"..j.."\t"..val.."\n")
			end
		end
		--
		file:write("\n");
	elseif keyframes[i].t == "point" then
		file:write("Effects\tPoint Control #"..i.."\tPoint#2\n\tFrame\tX pixels\tY pixels\n")
		--
		for j=1,#raw[keyframes[i].x] do
			valX = raw[keyframes[i].x][j]
			valY = raw[keyframes[i].y][j]
			if j > 1 and valX == raw[keyframes[i].x][j-1] and valY == raw[keyframes[i].y][j-1] then
				-- unnecessary keyframe
			else
				file:write("\t"..j.."\t"..valX.."\t"..valY.."\n")
			end
		end
		--
		file:write("\n")
	elseif keyframes[i].t == "3dpoint" then
		file:write("Effects\t3D Point Control #"..i.."\t3D Point#2\n\tFrame\tX pixels\tY pixels\tZ pixels\n")
		--
		for j=1,#raw[keyframes[i].x] do
			valX = raw[keyframes[i].x][j]
			valY = raw[keyframes[i].y][j]
			valZ = raw[keyframes[i].z][j]
			if j > 1 and valX == raw[keyframes[i].x][j-1] and valY == raw[keyframes[i].y][j-1] and valZ == raw[keyframes[i].z][j-1] then
				-- unnecessary keyframe
			else
				file:write("\t"..j.."\t"..valX.."\t"..valY.."\t"..valZ.."\n")
			end
		end
		--
		file:write("\n")
	end
end

file:write("\nEnd of Keyframe Data")
file:close()
console.writeline("Done.")