NES Total Recall lua script by MESHUGGAH

local px, cx, py, pxs, pys
local lpx = 0
local lpy = 0

local function axis(x,y,x2,y2,color)
    gui.box(x,y,x2,y2,color,"#00000040")
end

local function objects()
    --X1 at 0x260: leftside hitbox X.
    gui.text(94,8,"FLG  X1  Y1 ??? ???  HP TMR","#FFFFFF","#000000f0")
    for i = 0, 15 do
        if (i ~= 3 and i ~= 7 and i ~= 11 and i~= 15) then axis(memory.readbyteunsigned(0x260+i)*2,memory.readbyteunsigned(0x240+i)*2+36,memory.readbyteunsigned(0x270+i)*2,memory.readbyteunsigned(0x250+i)*2+36,"#FFFF0010") end
        gui.text(memory.readbyte(0x260+i)*2,memory.readbyte(0x240+i)*2+28,string.format("%d",i),"#000000","#ff0000f0")
        gui.text(94,7*i+16,string.format("%2X  %3d %3d %3d %3d %3d %3d",
        memory.readbyte(0xe0+i),
        memory.readbyte(0x260+i),memory.readbyte(0x240+i),memory.readbyte(0x2a0+i),
        memory.readbyte(0x2b0+i),
        memory.readbyte(0x2c0+i),memory.readbyte(0x2f0+i)),"#FFFFFFC0","#00000030")
    end
end

local function Stuff()

    --260, 270, 002a, 0064, 065 X
    px = memory.readwordunsigned(0x10, 0x11) + memory.readbyte(0x260)
    py = memory.readbyte(0x250)

    pxs = px - lpx
    pys = py - lpy

    if (pxs == 0) then gui.text(100,180,"0 X speed!") end
    gui.text(100,200,string.format("X:%3d (%3d)\nY:%3d (%3d)\nLevel: %d", px, pxs, py, pys, memory.readbyte(0xa6)))

    lpx = px
    lpy = py

    if (memory.readbyte(0x24) ~= 0x0e) then gui.text(100,170,"LAG!") emu.setlagflag(true) end
    --if (memory.readbyte(0x1ff) ~= 0xc4) then gui.text(100,170,"LAG!") emu.setlagflag(true) end

    objects()
end

emu.registerafter(Stuff)