Alpha - Lsnes dumper ghost

outprefix = "simpleghost"..tostring(random.integer(0, 999999))
dumpfile = outprefix..".smwg"
nomovie = false
sucess = io.output(dumpfile)

local SMW = {
    -- Game Modes
    game_mode_overworld = 0x0e,
    game_mode_level = 0x14,

    sprite_max = 12, -- maximum number of sprites
}

dofile("smw-WRAM.lua", "C:\\SNES\\LUA\\") -- reads external file WRAM.lua

local function get_game_mode()
    return memory.readbyte("WRAM", WRAM.game_mode)
end

local function player()
    if get_game_mode() ~= SMW.game_mode_level then print("Something went wrong!") return end  -- necessary?

    -- Read RAM
    local x = memory.readsword("WRAM", WRAM.x)
    local y = memory.readsword("WRAM", WRAM.y)
    local x_speed = memory.readsbyte("WRAM", WRAM.x_speed)
    local x_sub = memory.readbyte("WRAM", WRAM.x_sub)
    local is_ducking = memory.readbyte("WRAM", WRAM.is_ducking)
    local powerup = memory.readbyte("WRAM", WRAM.powerup)
    local yoshi_riding_flag = memory.readbyte("WRAM", WRAM.yoshi_riding_flag)

    x_sub = math.floor(x_sub/0x10)  -- I don't like this transformation

    -- Computes direction
    local direction
    if x_speed >= 0 then
        direction = 1
    else
        direction = 0
    end

    -- Computes hitbox size
    local is_small = is_ducking ~= 0 or powerup == 0
    local on_yoshi = yoshi_riding_flag ~= 0
    local hitbox_size
    if is_small and not on_yoshi then
        hitbox_size = 0
    elseif not is_small and not on_yoshi then
        hitbox_size = 1
    elseif is_small and on_yoshi then
        hitbox_size = 2
    else
        hitbox_size = 3
    end

    return x, x_sub, y, direction, hitbox_size
end

local function dump_info_level(room_index)
    local frame = movie.currentframe() + 1
    local mode = get_game_mode()
    local real_frame = memory.readbyte("WRAM", WRAM.real_frame)
    if mode == SMW.game_mode_level then
        x, sub_x, y, direction, hitbox_size = player()
    else
        x, sub_x, y, direction, hitbox_size = 0, 0, 0, 0, 0
    end

    local is_lagged = real_frame == previous_real_frame
    if is_lagged then is_lagged = 1 else is_lagged = 0 end

    previous_real_frame = real_frame

    local strline = string.format("%7d %2x %6x %1d %4d %x %4d %d %1d\n",
                            frame, mode, room_index, is_lagged, x, sub_x, y, direction, hitbox_size)
    gui.text(0, 16, strline)
    io.write(strline)
end

function on_paint()
    if not movie.readonly() then gui.text(1, 26, "Put the movie in read-only mode")
    else
        local room_index = bit.lshift(memory.readbyte("WRAM", WRAM.room_index), 16) + bit.lshift(memory.readbyte("WRAM", WRAM.room_index + 1), 8) + memory.readbyte("WRAM", WRAM.room_index + 2)

        gui.text(1, 1, "RECORDING GHOST")
        dump_info_level(room_index)
    end
end

gui.repaint()