Well, I've produced a script to paint hitboxes. That might be worth something.
Download TGL.luaLanguage: lua
R1u= memory.readbyte
local function R2u(a) return R1u(a) + R1u(a+1)*0x100 end
local lastkeys, keys= input.get(), input.get()
local function UpdateKeys() lastkeys= keys; keys= input.get() end
local function Press(k) return keys[k] and not lastkeys[k] end
local function Limits(V,l,h) return math.max(math.min(V,h),l) end
Draw= {}
local Px,Li= gui.pixel, gui.line
Draw[0]= function(x,y,c)
Li(x ,y ,x ,y+4,c)
Li(x+2,y ,x+2,y+4,c)
Px(x+1,y ,c)
Px(x+1,y+4,c)
end
Draw[1]= function(x,y,c)
Li(x ,y+4,x+2,y+4,c)
Li(x+1,y ,x+1,y+3,c)
Px(x ,y+1,c)
end
Draw[2]= function(x,y,c)
Li(x ,y ,x+2,y ,c)
Li(x ,y+3,x+2,y+1,c)
Li(x ,y+4,x+2,y+4,c)
Px(x ,y+2,c)
Px(x+2,y+2,c)
end
Draw[3]= function(x,y,c)
Li(x ,y ,x+1,y ,c)
Li(x ,y+2,x+1,y+2,c)
Li(x ,y+4,x+1,y+4,c)
Li(x+2,y ,x+2,y+4,c)
end
Draw[4]= function(x,y,c)
Li(x ,y ,x ,y+2,c)
Li(x+2,y ,x+2,y+4,c)
Px(x+1,y+2,c)
end
Draw[5]= function(x,y,c)
Li(x ,y ,x+2,y ,c)
Li(x ,y+1,x+2,y+3,c)
Li(x ,y+4,x+2,y+4,c)
Px(x ,y+2,c)
Px(x+2,y+2,c)
end
Draw[6]= function(x,y,c)
Li(x ,y ,x+2,y ,c)
Li(x ,y+1,x ,y+4,c)
Li(x+2,y+2,x+2,y+4,c)
Px(x+1,y+2,c)
Px(x+1,y+4,c)
end
Draw[7]= function(x,y,c)
Li(x ,y ,x+1,y ,c)
Li(x+2,y ,x+1,y+4,c)
end
Draw[8]= function(x,y,c)
Li(x ,y ,x ,y+4,c)
Li(x+2,y ,x+2,y+4,c)
Px(x+1,y ,c)
Px(x+1,y+2,c)
Px(x+1,y+4,c)
end
Draw[9]= function(x,y,c)
Li(x ,y ,x ,y+2,c)
Li(x+2,y ,x+2,y+3,c)
Li(x ,y+4,x+2,y+4,c)
Px(x+1,y ,c)
Px(x+1,y+2,c)
end
Draw[10]=function(x,y,c)
Li(x ,y+1,x ,y+4,c)
Li(x+2,y+1,x+2,y+4,c)
Px(x+1,y ,c)
Px(x+1,y+3,c)
end
Draw[11]=function(x,y,c)
Li(x ,y ,x ,y+4,c)
Li(x+1,y ,x+2,y+1,c)
Li(x+1,y+4,x+2,y+3,c)
Px(x+1,y+2,c)
end
Draw[12]=function(x,y,c)
Li(x ,y+1,x ,y+3,c)
Li(x+1,y ,x+2,y+1,c)
Li(x+1,y+4,x+2,y+3,c)
end
Draw[13]=function(x,y,c)
Li(x ,y ,x ,y+4,c)
Li(x+2,y+1,x+2,y+3,c)
Px(x+1,y ,c)
Px(x+1,y+4,c)
end
Draw[14]=function(x,y,c)
Li(x ,y ,x ,y+4,c)
Li(x+1,y ,x+2,y ,c)
Li(x+1,y+4,x+2,y+4,c)
Px(x+1,y+2,c)
end
Draw[15]=function(x,y,c)
Li(x ,y ,x ,y+4,c)
Li(x+1,y ,x+2,y ,c)
Px(x+1,y+2,c)
end
local function __DN_AnyBase(right, y, Number, c, bkgnd, div)
if div < 2 then return end
local Digit= {}
local Negative= false
if Number < 0 then
Number= -Number
Negative= true
end
Number= math.floor(Number)
c= c or "white"
bkgnd= bkgnd or "clear"
local i= 0
if Number < 1 then
Digit[1]= 0
i= 1
end
while (Number >= 1) do
i= i+1
Digit[i]= Number % div
Number= math.floor(Number/div)
end
if Negative then i= i+1 end
local x= right - i*4
gui.box(x+1, y-1, right+1, y+5,bkgnd,bkgnd)
i= 1
while Draw[Digit[i]] do
Draw[Digit[i]](right-2,y,c)
right= right-4
i=i+1
end
if Negative then
gui.line(right, y+2,right-2,y+2,c)
right= right-4
end
return right
end
local function DrawNum(right, y, Number, c, bkgnd)
return __DN_AnyBase(right, y, Number, c, bkgnd, 10)
end
local function DrawNumx(right, y, Number, c, bkgnd)
return __DN_AnyBase(right, y, Number, c, bkgnd, 16)
end
local function DumpObjInfo()
for i=0x00, 0x17 do
local Ypos= 12+8*i
local addr= 0x0500 + i
local color= "white"
if R1u(addr) == 0 then color= "grey" end
for j= 0, 24 do
DrawNumx( 9+10*j,Ypos,R1u(addr + (j+7)*0x18),color,"black")
end
end
end
local function GetBox(ObjIndex)
end
local function PaintHitBox(ObjIndex)
gui.box(
R1u(ObjIndex + 20*0x18),
math.min(R1u(ObjIndex + 22*0x18),R1u(ObjIndex + 23*0x18)),
R1u(ObjIndex + 21*0x18),
R1u(ObjIndex + 23*0x18),
"clear","white"
)
DrawNumx(R1u(ObjIndex + 21*0x18),R1u(ObjIndex + 23*0x18)+2,
R1u(ObjIndex + 6*0x18),"white","black")
DrawNum(R1u(ObjIndex + 21*0x18),R1u(ObjIndex + 23*0x18)+9,
R1u(ObjIndex + 7*0x18),"yellow","black")
end
local function SimpleStat()
local count= 19
for i=0x05, 0x17 do
local x= 12*(i-4)
local color= "white"
if R1u(0x0500+i) == 0 then color= "grey"; count= count-1 end
DrawNumx(x,191,R1u(0x0500+i),color,"black")
end
DrawNum(250,191,count,"yellow","black")
count= 0
for i=0x01, 0x04 do
if R1u(0x0500+i) ~= 0 then count= count+1 end
end
DrawNum(250,200,count)
end
local function ScanObjs()
for i= 0, 0x17 do
local addr= 0x0500 + i
if R1u(addr) ~= 0 then
if R1u(addr) == 0xA9 then
else
PaintHitBox(addr)
end
end
end
end
local Dr= {0x00, 0x32, 0x50, 0x64, 0x8C, 0xB4, 0xDC, 0xE6}
local function ItemHUD()
DrawNumx(222,216,R1u(0x0043))
DrawNumx(214,216,R1u(0x0044),"grey")
for i= 1, #Dr do
local color= "white"
local IMO= (i-2) % #Dr +1
local tVal, tHigh= (R1u(0x0043)-Dr[IMO])%256, (Dr[i]-Dr[IMO])%256
if (tVal < tHigh) then
color= "green"
DrawNum(202,216,tHigh - tVal,"yellow")
end
DrawNumx(142+10*i,224,Dr[i],color)
end
end
local function BasicHUD()
DrawNumx(134,224,R1u(0x0518))
DrawNumx(142,224,R1u(0x0500 + 0x19*0x18),"yellow")
DrawNumx(102,224,R1u(0x0530))
DrawNumx(110,224,R1u(0x0500 + 0x1A*0x18),"yellow")
DrawNum(34,212,R1u(0x0048),"white","black")
local t= R1u(0x0048) - R1u(0x0049)
if t ~= 0 then
DrawNum(34,204,t,"green","black")
end
t= bit.band(R1u(0x0788),0x3F)
if t ~= 0 then
DrawNum(46,212,t,"grey","black")
end
end
local function Gui()
ScanObjs()
SimpleStat()
BasicHUD()
ItemHUD()
end
gui.register(Gui)
EDIT: Now it shows more stuff! See if you can figure those out!