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)