Kirby's Adventure Lua Bizhawk

local ScriptInfo = {"Kirby's Adventure LUA script for Bizhawk 2.9",
                    "v0.1 fix",
                    "Sep 2024"}

local Padding = {
    Left = 40,
    Top = 20,
    Right = 180,
    Bottom = 20
}


local AddressTableKirby= {
[1] = {0,"X",0xFFB0B0B0},
[2] = {1,"Byte",0xFFFFB0C0,"RAM",0x0083,1,true,false},
[3] = {1,"Map",0xFFFFB0C0,"RAM",0x0095,1,true,false},
[4] = {1,"Sub",0xFFFFB0C0,"RAM",0x0071,1,true,false},
[5] = {1,"Speed",0xFFFFB0C0,"RAM",0x05B9,2,true,false},
[6] = {0,"Y",0xFFB0B0B0},
[7] = {1,"Byte",0xFFFFB0C0,"RAM",0x00b9,1,true,false},
[8] = {1,"Map",0xFFFFB0C0,"RAM",0x00cb,1,true,false},
[9] = {1,"Sub",0xFFFFB0C0,"RAM",0x00a7,1,true,false},
[10] = {1,"Speed",0xFFFFB0C0,"RAM",0x05Bd,2,true,false}
}

local Displays = {
    -- Name, active, col, x, y, width, height, offset of list, edit mode, table, entries shown
    [1]= {"Kirby", false, 0xFFFFB0C0, 40, 40, 162, 98, 0, false, AddressTableKirby,10}
}

local Mouse = {
    X               = 0,
    Y               = 0,
    XBefore         = 0,
    YBefore         = 0,
    clickedFrames   = 0,
    clicked         = false
}

local Color = {
    Selected    = 0xB0A0A0A0,
    Normal      = 0xA0303030,
    Grey        = 0xA0C0C0C0
}

function text(x, y, text, color, backcolor)
    if backcolor==nil then backcolor=0x00000000 end
    gui.drawText(x, y, text,color,backcolor,10,"Arial")
end

function box(x,y,x2,y2)
    gui.drawBox(x,y,x2,y2,0x00000000,0xD0000000)
end

function boxNormal(x,y,x2,y2)
    gui.drawBox(x,y,x2,y2,0xFF000000,0xA0000000)
end

function boxSelected(x,y,x2,y2)
    gui.drawBox(x,y,x2,y2,0xFF000000,0xA0505050)
end

function arrowDown(xpos,ypos,col)
    gui.drawLine(xpos,ypos,xpos+6,ypos,col)
    gui.drawLine(xpos+1,ypos+1,xpos+5,ypos+1,col)
    gui.drawLine(xpos+2,ypos+2,xpos+4,ypos+2,col)
    gui.drawPixel(xpos+3,ypos+3,col)
end

function arrowUp(xpos,ypos,col)
    gui.drawLine(xpos,ypos,xpos+6,ypos,col)
    gui.drawLine(xpos+1,ypos-1,xpos+5,ypos-1,col)
    gui.drawLine(xpos+2,ypos-2,xpos+4,ypos-2,col)
    gui.drawPixel(xpos+3,ypos-3,col)
end

function drawDisplayBox(id,bordercolor,color)
    posx=Displays[id][4]
    posy=Displays[id][5]
    width=Displays[id][6]
    height=Displays[id][7]

    if Mouse.clicked then

        if Mouse.X > posx and Mouse.X < posx+width and Mouse.Y > posy and Mouse.Y < posy+height then

            if Mouse.clickedFrames > 0 then
                menuscreen=0 -- close menu

                posy = posy + (Mouse.Y-Mouse.YBefore) -- enables mouse drag
                posx = posx + (Mouse.X-Mouse.XBefore)

                vertical_padding = Padding.Top+Padding.Bottom
                horizontal_padding = Padding.Left+Padding.Right

                if posy < 0 then posy=0 -- prevents display from going offscreen
                elseif posy > 159+vertical_padding-height then posy=159+vertical_padding-height end
                if posx < 0 then posx=0
                elseif posx > 239+horizontal_padding-width then posx=239+horizontal_padding-width end

                Displays[id][4]=posx
                Displays[id][5]=posy
            end
        end
    end
    gui.drawBox(posx,posy,posx+width,posy+height,bordercolor,color)
    text(posx+3,posy-1,Displays[id][1],0xFF808080)
end

function drawCloseButton(id)
    width=Displays[id][6]
    x=Displays[id][4]
    y=Displays[id][5]

    drawButton(x+width-10,y,10,10,"x",Color.Grey,15,function()
        Displays[id][2] = false
    end)
end

function drawEditButton(id)

    width=Displays[id][6]
    x=Displays[id][4]
    y=Displays[id][5]
    if Displays[id][9] then col=Color.Selected
    else col=Color.Normal end

    drawButton(x+width-25,y,12,10,"e",col,15,function()
        Displays[id][9]=not Displays[id][9]
    end)
end

function drawButton(posx,posy,width,height,label,color,frequency,clickedfunction)
    if Mouse.X>posx and Mouse.X<posx+width and Mouse.Y>posy and Mouse.Y<posy+height then
            if Mouse.clicked and Mouse.clickedFrames%frequency==1 then
                clickedfunction()
            end
        gui.drawBox(posx,posy,posx+width,posy+height,color-0x00303030,color+0x30303030)
    else
        gui.drawBox(posx,posy,posx+width,posy+height,color-0x00303030,color)
    end
    text(posx+1,posy-2,label,0xFFFFFFFF)
end

function drawMenuButton(posx,posy,width,height,label,z,drawindicator,indicator,col,clickedfunction)
    if Mouse.X>posx and Mouse.X<posx+width and Mouse.Y>posy and Mouse.Y<posy+height then
        if Mouse.clicked and Mouse.clickedFrames==z then
            menuscreen=0
            clickedfunction()
        end
        boxSelected(posx,posy,posx+width,posy+height)
    else
        boxNormal(posx,posy,posx+width,posy+height)
    end
    text(posx+2,posy-1,label,col)

    if drawindicator then
        if indicator then text(posx+width-10,posy,"o",0xFF80FF80)
        else text(posx+width-10,posy-1,"x",0xFFFF9090) end
    end
end

local getChangeAmount = function(valueChangeAmount)
    if Mouse.clickedFrames>540 then
        valueChangeAmount=valueChangeAmount*1000000
    elseif Mouse.clickedFrames>450 then
        valueChangeAmount=valueChangeAmount*100000
    elseif Mouse.clickedFrames>360 then
        valueChangeAmount=valueChangeAmount*10000
    elseif Mouse.clickedFrames>270 then
        valueChangeAmount=valueChangeAmount*1000
    elseif Mouse.clickedFrames>180 then
        valueChangeAmount=valueChangeAmount*100
    elseif Mouse.clickedFrames>90 then
        valueChangeAmount=valueChangeAmount*10
    end
    return valueChangeAmount
end

local addressTableSetValue = function(address, addressSize, addressEndian, newvalue)

    if addressSize==1 then
        memory.write_u8(address,newvalue)
    elseif addressSize==2 then
        if addressEndian then
            memory.write_u16_le(address,newvalue)
        else
            memory.write_u16_be(address,newvalue)
        end
    elseif addressSize==3 then
        if addressEndian then
            memory.write_u24_le(address,newvalue)
        else
            memory.write_u24_be(address,newvalue)
        end
    elseif addressSize==4 then
        if addressEndian then
            memory.write_u32_le(address,newvalue)
        else
            memory.write_u32_be(address,newvalue)
        end
    end

end

local addressTableGetValue = function(address, addressSize, addressEndian, addressSigned)

    if addressSigned then
        if addressSize==1 then
            value=memory.read_s8(address)
        elseif addressSize==2 then
            if addressEndian then
                value=memory.read_s16_le(address)
            else
                value=memory.read_s16_be(address)
            end
        elseif addressSize==3 then
            if addressEndian then
                value=memory.read_s24_le(address)
            else
                value=memory.read_s24_be(address)
            end
        elseif addressSize==4 then
            if addressEndian then
                value=memory.read_s32_le(address)
            else
                value=memory.read_s32_be(address)
            end
        end
    else
        if addressSize==1 then
            value=memory.read_u8(address)
        elseif addressSize==2 then
            if addressEndian then
                value=memory.read_u16_le(address)
            else
                value=memory.read_u16_be(address)
            end
        elseif addressSize==3 then
            if addressEndian then
                value=memory.read_u24_le(address)
            else
                value=memory.read_u24_be(address)
            end
        elseif addressSize==4 then
            if addressEndian then
                value=memory.read_u32_le(address)
            else
                value=memory.read_u32_be(address)
            end
        end
    end

    return value
end

local DisplayAddressTable = function(display_id, has_arrows,  has_buttons,  display_description,  description_offset,  arrows_offset,  buttons_offset)

    inputTable=Displays[display_id][10]
    xpos=Displays[display_id][4]
    ypos=Displays[display_id][5]
    memorydomainBefore=memory.getcurrentmemorydomain()
    tableSize=#inputTable
    table_start=1
    table_end=Displays[display_id][11]
    table_iterations = 1
    offset=Displays[display_id][8]
    list_height = 8*(table_end - table_start)+14

    --display arrows:
    if has_arrows then
        --bottom arrow button
        if (tableSize - offset) > table_end then
            if Mouse.X>xpos+arrows_offset and Mouse.X<xpos+arrows_offset+12 and Mouse.Y>ypos+list_height and Mouse.Y<ypos+list_height+6 then
                if Mouse.clicked then
                    Displays[display_id][8]=offset+1
                end
                arrowDown(xpos+arrows_offset+2,ypos+list_height,0xFFFFFFFF)
            else
                arrowDown(xpos+arrows_offset+2,ypos+list_height,0xA0FFFFFF)
            end
        else
            if offset < 0 then
                Displays[display_id][8]=0
            end
        end

        --top arrow button
        if offset > 0 then
            if Mouse.X>xpos+arrows_offset and Mouse.X<xpos+arrows_offset+12 and Mouse.Y>ypos+list_height-10 and Mouse.Y<ypos+list_height-4 then
                if Mouse.clicked then
                    Displays[display_id][8]=offset-1
                end
                arrowUp(xpos+arrows_offset+2,ypos+list_height-6,0xFFFFFFFF)
            else
                arrowUp(xpos+arrows_offset+2,ypos+list_height-6,0xA0FFFFFF)
            end
        end
    end
    -- applying display offset
    table_start = table_start + offset
    table_end   = table_end + offset

    -- going through the table
    for i=table_start,table_end do --show a part of the list

        contenttype=inputTable[i][1]
        description=inputTable[i][2]
        textColor=inputTable[i][3]
        memorydomain=inputTable[i][4]

        if contenttype==0 then  -- TITLE

            gui.drawBox(5+xpos,4+ypos+table_iterations*8,arrows_offset+xpos,12+ypos+table_iterations*8,0x00000000,0xFF505050)

        elseif contenttype==7 then -- BINARY

            memory.usememorydomain(memorydomain)
            address=inputTable[i][5]
            currentbit=inputTable[i][6]
            value=memory.read_u8(address)

            value=bit.check(value, currentbit)

            if value then
                value="Yes"
                valueColor=0xFF80FF80
            else
                value="No"
                valueColor=0xFFFF9090
            end

            text(5+xpos,3+ypos+table_iterations*8,value,valueColor)

        else    -- OTHER TYPES
            memory.usememorydomain(memorydomain)
            address=inputTable[i][5]
            addressSize=inputTable[i][6]
            addressEndian=inputTable[i][7] -- true:little endian, false:big endian
            addressSigned=inputTable[i][8]
            valueChangeAmount=1
            value = addressTableGetValue(address,addressSize,addressEndian, addressSigned)
            text(5+xpos,3+ypos+table_iterations*8,value, textColor)
        end

        if display_description then
            text(xpos+description_offset,3+ypos+table_iterations*8,description, textColor)
        end

        if has_buttons then

            if contenttype==7 then -- binary

                drawButton(xpos+buttons_offset,4+ypos+table_iterations*8,21,8,"Set",Color.Normal,8,function()

                    currentvalue=memory.read_u8(address)

                    if bit.check(currentvalue,currentbit) then
                        memory.write_u8(address, bit.clear(currentvalue,currentbit))
                    else
                        memory.write_u8(address, bit.set(currentvalue,currentbit))
                    end

                end)

            elseif contenttype~=0 then -- normal values

                drawButton(xpos+buttons_offset,4+ypos+table_iterations*8,9,8,"-",Color.Normal,5,function()
                    valueChangeAmount = getChangeAmount(valueChangeAmount) -- increases when holding mouse key
                    newvalue = value - valueChangeAmount
                    addressTableSetValue(address,addressSize,addressEndian,newvalue)
                end)

                drawButton(12+xpos+buttons_offset,4+ypos+table_iterations*8,9,8,"+",Color.Normal,5,function()
                    valueChangeAmount = getChangeAmount(valueChangeAmount) -- increases when holding mouse key
                    newvalue = value + valueChangeAmount
                    addressTableSetValue(address,addressSize,addressEndian,newvalue)
                end)
            end
        end
        table_iterations=table_iterations+1
    end
    memory.usememorydomain(memorydomainBefore)
end

local drawDisplay = function(id)
    if Displays[id][4]~=nil then
        drawDisplayBox(id, 0xFF202020,0xA0000000)
        drawCloseButton(id)
        drawEditButton(id)
        if Displays[id][9] then
            DisplayAddressTable(id,true,true,true,66,158,42)
        else
            DisplayAddressTable(id,true,false,true,46,158,0)
        end
    end
end

local Menu = {
    [1] =       {   [0] = "Script",
                    [1] = 1,
                }
}

local drawMenu = function()

    verticalOffset=0

    for a=1,#Menu,1 do
        drawMenuButton(-38+a*45,18,40,11,Menu[a][0],2,false,true,0xFFFFFFFF,function()
            menuscreen=a
        end)

        if menuscreen==a then

            for b=1,#Menu[a],1 do

                id              = Menu[a][b]
                title           = Displays[id][1]
                indicator       = Displays[id][2]
                col             = Displays[id][3]

                drawMenuButton(7,32+verticalOffset*10,72,10,title,1,true,indicator,col,function()
                    Displays[id][2] = not indicator
                end)

                verticalOffset=verticalOffset+1
            end
        end
    end

    if Mouse.clicked and Mouse.clickedFrames==1 then
           menuscreen = 0
    end
end

local PaddingRefresh = function()
    client.SetGameExtraPadding(Padding.Left,Padding.Top,Padding.Right,Padding.Bottom)
end

local PaddingOff = function()
    client.SetGameExtraPadding(0,0,0,0)
end

event.onexit(function()
    PaddingOff()
end)

menuscreen=0
frames=0
console.clear()
for i=1,#ScriptInfo,1 do
    print(ScriptInfo[i])
end

PaddingRefresh()

memory.usememorydomain("RAM")

local onloadstate = function()
    PaddingRefresh()
    lagcount = 0
end

event.onloadstate(function()
    onloadstate()
end)

tastudio.onbranchload(function()
    onloadstate()
end)

local lagcount = 0
local current_frame = emu.framecount()

while true do

    Mouse.X = input.getmouse().X + Padding.Left
    Mouse.Y = input.getmouse().Y + Padding.Top
    Mouse.clicked = input.getmouse().Left

    -- all displays
    for i=1,#Displays do
        if Displays[i] ~= nil then
            if Displays[i][2] then
                drawDisplay(i)
            end
        end
    end

    drawMenu() -- menu

    -- draw some things by default
    memory.usememorydomain("RAM")
    boxNormal(148,9,258,58, "black")

    lag = memory.read_u8(0x01a5)
    xspeed = memory.read_u8(0x05B9)+memory.read_s8(0x05Ba)*256
    yspeed = memory.read_u8(0x05Bd)+memory.read_s8(0x05Be)*256
    xpos = memory.read_u8(0x0083)+memory.read_s8(0x0095)*256+memory.read_u8(0x0071)/256
    ypos = memory.read_u8(0x00b9)+memory.read_s8(0x00cb)*256+memory.read_u8(0x00a7)/256

    text(150,9,"        pos           speed\n(X):\n(Y):\nlag:", 0xFF00FF00, 0xFF000000)
    text(172,21, math.floor(xpos*1000)/1000 .. "\n" .. math.floor(ypos*1000)/1000, 0xFFFFFFFF, 0xFF000000)
    text(224,21, xspeed .. "\n" .. yspeed,0xFFFFFFFF, 0xFF000000)


    if lag == 1 and emu.framecount() ~= current_frame then
        lagcount = lagcount + 1
        text(200, 44, "*********" , 0xFFFF0000, 0xFF000000)
        current_frame = emu.framecount()
    end
    text(172, 44, lagcount , 0xFFFF0000, 0xFF000000)
    -----------

    Mouse.XBefore=Mouse.X
    Mouse.YBefore=Mouse.Y
    if Mouse.clicked then Mouse.clickedFrames = Mouse.clickedFrames + 1
    else Mouse.clickedFrames = 0 end

   if client.ispaused() then
        --gui.DrawFinish()
        emu.yield()
    else
        emu.frameadvance()
    end

    frames=frames+1
end