User File #638445174272800291

function formatInput(input)
    local formattedString = ""
    for key, value in pairs(input) do
        if value then
            if formattedString ~= "" then
                formattedString = formattedString + ", "
            end
            formattedString = formattedString .. key
        end
    end
    return formattedString
end

logfile = nil
movieCore = nil
didntReadInput = true

function inputHook()
    didntReadInput = false
end

function logFrame()
    local emuFrame = emu.framecount()
    local emuCycle = emu.totalexecutedcycles()
    local isLagged = emu.islagged()
    if movieCore == "Gambatte" then
        emuFrame = emuFrame - 15
        emuCycle = emuCycle * 2 - 755716
    else
        isLagged = didntReadInput
        didntReadInput = true
    end
    logfile:write(string.format("%6d, %12.6f: %s %s\n", emuFrame, emuCycle / 70224, isLagged and " " or "!", formatInput(joypad.getwithmovie())))
    logfile:flush()
end

local lastFrame
local lastMovie = nil
local finished
local busHookID = nil
while true do
    if movie.isloaded() and movie.mode() ~= "FINISHED" then
        if emu.framecount() == 0 and (finished or lastFrame ~= 0 or movie.filename() ~= lastMovie) then
            if logfile ~= nil then
                logfile:close()
            end
            if busHookID ~= nil then
                event.unregisterbyid(busHookID)
                busHookID = nil
            end
            lastMovie = movie.filename()
            logfile = io.open(lastMovie .. ".frame-list.txt", "w")
            movieCore = movie.getheader()["Core"]
            if movieCore ~= "Gambatte" then
                busHookID = event.on_bus_read(inputHook, 0xFF00)
            end
            finished = false
        elseif logfile ~= nil and emu.framecount() ~= lastFrame then
            logFrame()
        end
        lastFrame = emu.framecount()
    elseif logfile ~= nil then
        if movie.isloaded() and emu.framecount() ~= lastFrame and not finished then
            logFrame()
            finished = true
        end
        if not movie.isloaded() or finished then
            logfile:close()
            logfile = nil
            if busHookID ~= nil then
                event.unregisterbyid(busHookID)
                busHookID = nil
            end
        end
    end
    emu.yield()
end