local p = {0,0,0,0}
local cam = {0,0}

--[[
other locations

60f+i*32 HP
]]--

-- base address, check object alive?, struct length, quantity (objects), show table?, gui text position
--[[
local function object_from(b, a, l, q, t, pos)
    for i = 0, q do
        if (a == true and memory.readbyte(b+i*l) ~= 0) then
            gui.box(memory.readbyteunsigned(b+3+i*l),memory.readbyteunsigned(b+6+i*l)-8,memory.readbyteunsigned(b+3+i*l)+16,memory.readbyteunsigned(0x606+i*32)+32,"#FFFF0080")
        end else
            gui.text(memory.readbyte(0x603+i*32)+4,memory.readbyte(0x606+i*32)+36,string.format("%d",i),"#000000f0","#ff0000f0")

            gui.text(125,7*i+55,string.format("%3d %3d %3d %3d %2d/%d  ",
            memory.readbyte(0x603+i*32),memory.readbyte(0x606+i*32),
            memory.readbyte(0x604+i*32),memory.readbyte(0x607+i*32),
            memory.readbytesigned(0x60a+i*32),memory.readbyte(0x60e+i*32)),"#FFFFFFf0","#00000060")
        end
    end
end
]]--

local function objects()
                                    -- action / timer
    gui.text(130,48," X   Y subx suby  a/t  ","#FFFFFF","#000000f0")
    for i = 0, 2 do
        if memory.readbyte(0x600+i*32) ~= 0 then gui.box(memory.readbyteunsigned(0x603+i*32),memory.readbyteunsigned(0x606+i*32)-8,memory.readbyteunsigned(0x603+i*32)+17,memory.readbyteunsigned(0x606+i*32)+32,"#FFFF0080") end
        gui.text(memory.readbyte(0x603+i*32)+5,memory.readbyte(0x606+i*32)+36,string.format("%d",i),"#000000f0","#ff0000f0")

        gui.text(125,7*i+55,string.format("%3d %3d %3d %3d %2d/%d  ",
        memory.readbyte(0x603+i*32),memory.readbyte(0x606+i*32),
        memory.readbyte(0x604+i*32),memory.readbyte(0x607+i*32),
        memory.readbytesigned(0x60a+i*32),memory.readbyte(0x60e+i*32)),"#FFFFFFf0","#00000060")

        -- NON INTERACTIVE SPRITES
        --gui.text(memory.readbyte(0x5+i*8),memory.readbyte(0x4+i*8)+16,string.format("%d",i),"#FFFFFF70","#FF0000A0")
    end

    for i = 0, 7 do
        if memory.readbyte(0x4a0+i*16) ~= 0 then gui.text(memory.readbyte(0x4a3+i*16),memory.readbyte(0x4a6+i*16)+16,string.format("%d",i),"#000000f0","#00ff00f0") end

        gui.text(125,7*i+95,string.format("%3d %3d %3d %3d %2d/%d  ",
        memory.readbyte(0x4a3+i*16), memory.readbyte(0x4a6+i*16),
        memory.readbyte(0x4a4+i*16),memory.readbyte(0x4a7+i*16),
        memory.readbytesigned(0x4aa+i*16),memory.readbyte(0x4ae+i*16)),"#FFFFFF80","#00000030")
    end

end

local function Stuff()
p[1] = memory.readwordunsigned(0x604,0x603)/256
p[3] = memory.readwordunsigned(0x606,0x607)/256

--0x609 camera subx, depends on player pos
cam[1] = memory.readwordunsigned(0xeb,0xec)

gui.text(1, 48, string.format("X %.3f (%.3f)\nY %.3f (%.3f)",p[1],p[1]-p[2],p[3],p[3]-p[4]),"#ffffff","#00000000")
gui.text(1, 70, string.format("Xcam: %4d (%d)",cam[1],cam[1]-cam[2]),"#ffffff","#00000000")

-- enemy spawn position: if 0x309 side (0 == left, 1 == right) enemy still alive, spawn to opposite side
gui.text(130,208, string.format("subtimer: %d\nEnemies: %d\nSpawned enemies: %3d\nNext enemy in %3d frames", memory.readbyte(0x301), memory.readbyte(0x305), memory.readbyte(0x30b), memory.readbyte(0x307)),"#ffffff","#00000000")

p[2] = p[1] - p[2]
p[4] = p[3] - p[4]

p[2] = p[1]
p[4] = p[3]
cam[2] = cam[1]

objects()

end

emu.registerafter(Stuff)