local p = { 0,memory.readbyte(0x508),
        0, memory.readbyte(0x50b) }
local c = { 0, memory.readword(0x53b,0x53c), 0, memory.readword(0x53e,0x53f)}
local fail = 0
local lastpos = memory.readbyte(0x508)

local function Stuff()
p[1] = memory.readbyte(0x508)
p[3] = memory.readbyte(0x50b)
c[1] = memory.readword(0x53b,0x53c) -- 0x520? 0x556?
c[3] = memory.readword(0x53e,0x53f)

gui.text(p[1]-16,p[3],string.format("X %4d\nY %4d",p[1]+c[1],p[3]+c[3]),"#ffffff","#00000060")

gui.text(120,8,string.format("Cam X: %3d (%3d)\nCam Y: %3d (%3d)\nX: %3d (%3d)\nY: %3d (%3d)",c[1],c[1]-c[2],c[3],c[3]-c[4],p[1],p[1]-p[2],p[3],p[3]-p[4]),"#ffffff","#00000060")

gui.text(7,45,string.format("Jump timer %2d\nIn-game frame counter: %3d\nLag helpers: %3d %3d %3d",
    memory.readbyte(0x527),memory.readbyte(0x504),
    memory.readbyte(0xd6),memory.readbyte(0xd7),memory.readbyte(0xd8)),"#ffffff","#00000060")

if (c[1] - c[2] == 0) then
    fail = fail + 1
end

gui.text(7,8,string.format("Fails: %4d\nSpeed-o-meter: %3i",fail,memory.readbytesigned(0x4dc)),"#ffffff","#00000060")

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

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

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

c[2] = c[1]
c[4] = c[3]

end

emu.registerafter(Stuff)