BizHawk/Assets/Lua/SNES/Congo's Caper.lua

100 lines
2.9 KiB
Lua

-- Congo Caper's Collision Box Viewer
-- Author: Pasky13
camx = 0
camy = 0
memory.usememorydomain("CARTROM")
function findbit(p)
return 2 ^ (p - 1)
end
function hasbit(x, p)
return x % (p + p) >= p
end
local function RetrieveBox(obase, switch)
if switch == 1 then
pointer = mainmemory.read_u8(obase + 0x19)
elseif switch == 2 then
pointer = mainmemory.read_u8(obase + 0x18)
elseif switch == 3 then
pointer = mainmemory.read_u8(obase + 0x1A)
end
local pointer = bit.lshift(pointer,3)
local base = 0x66962
local box = {0, 0, 0, 0 }
box[1] = memory.read_s16_le(base + pointer) -- x1
box[2] = memory.read_s16_le(base + pointer + 4) -- y1
box[3] = memory.read_s16_le(base + pointer + 2) -- x2
box[4] = memory.read_s16_le(base + pointer + 6) -- y2
return box
end
local function camera()
camx = mainmemory.read_u16_le(0x7E0427)
camy = mainmemory.read_u16_le(0x7E0429)
end
local function player()
local x = mainmemory.read_u16_le(0x23) - camx
local y = mainmemory.read_u16_le(0x26) - camy
local face = mainmemory.read_u8(0x2D)
local box
local box = RetrieveBox(0x20,1)
if hasbit(face,findbit(7)) then
gui.drawBox(x - box[1],y + box[2],x - box[3],y + box[4],0xFF0000FF,0x350000FF) -- Hurt box
box = RetrieveBox(0x20,2)
gui.drawBox(x - box[1],y + box[2],x - box[3],y + box[4],0xFFFFFFFF,0x35FFFFFF) -- Hit box
else
gui.drawBox(x + box[1],y + box[2],x + box[3],y + box[4],0xFF0000FF,0x350000FF) -- Hurt box
box = RetrieveBox(0x20,2)
gui.drawBox(x + box[1],y + box[2],x + box[3],y + box[4],0xFFFFFFFF,0x35FFFFFF) -- Hit box
end
end
local function enemies()
local ebase = 0x1100
for i = 0,64,1 do
base = ebase + (i * 0x40)
if mainmemory.read_u8(base) > 0 then
local x = mainmemory.read_u16_le(base + 3) - camx
local y = mainmemory.read_u16_le(base + 6) - camy
local face = mainmemory.read_u8(base + 0xD)
local box = RetrieveBox(base,2)
if hasbit(face,findbit(7)) then
gui.drawBox(x - box[1],y + box[2],x - box[3],y + box[4],0xFFFF0000,0x35FF0000) -- Hit box
box = RetrieveBox(base,1)
gui.drawBox(x - box[1],y + box[2],x - box[3],y + box[4],0xFF0000FF,0x350000FF) -- Hurt box
box = RetrieveBox(base,3)
gui.drawBox(x - box[1],y + box[2],x - box[3],y + box[4],0xFF00FF00,0x3500FF00) -- Can be jumped on box
else
gui.drawBox(x + box[1],y + box[2],x + box[3],y + box[4],0xFFFF0000,0x35FF0000) -- Hit box
box = RetrieveBox(base,1)
gui.drawBox(x + box[1],y + box[2],x + box[3],y + box[4],0xFF0000FF,0x350000FF) -- Hurt box
box = RetrieveBox(base,3)
gui.drawBox(x + box[1],y + box[2],x + box[3],y + box[4],0xFF00FF00,0x3500FF00) -- Can be jumped on box
end
end
end
end
local function scaler()
xm = client.screenwidth() / 256
ym = client.screenheight() / 224
end
while true do
scaler()
camera()
player()
enemies()
emu.frameadvance()
end