Check this out!!!
Download Jim2bizhawk.luaLanguage: lua
-- feos, 2015
--== Globals ==--
lastcfg = 0
dcfg = 0
rngcount = 0
rngcolor = "white"
rngobject = 0
rngroutine = 0
MsgTime = 16
MsgStep = 256/MsgTime
MsgTable = {}
--== Shortcuts ==--
local rb = memory.read_u8
local rbs = memory.read_s8
local rw = memory.read_u16_be
local rws = memory.read_s16_be
local rl = memory.read_u32_be
local box = gui.drawBox
local text = gui.pixelText
local line = gui.drawLine
local AND = bit.band
local SHIFT= bit.lshift
function Configs()
local rng = rl(0xa1d4)
text(120,0,string.format("rng: %08X:%d",rng,rngcount),rngcolor)
local cfg0 = rl(0xfc2a)
if cfg0==0 then return end
local cfg1 = rl(0xfc9a)
text(220,0,string.format("cfg old: %X\ncfg step: %d",cfg1,dcfg))
if lastcfg~=cfg0 then dcfg = cfg0-lastcfg end
lastcfg = cfg0
local h = 7
for i=0,20 do
local config = rl(0xfc2a)+i
local action = rb(config,"MD CART")
local newaction = memory.readbyte(config+1,"MD CART")
if action==0x62
or (action==0xe and newaction==8)
or action==8
or action==3 then color = "red"
elseif action>=0x63 and action<=0x64 then color = "orange"
elseif action>=0x30 and action<=0x32 then color = 0xff00ff00
elseif action>=0x65 and action<=0x70 then color = 0xff00cc00
elseif action==0x7a then color = "white"
else color = 0xffaaaaaa
end
text(270,i*h+42,string.format("%X:%02X",config,action),color)
if i>0
and action==0x7a
or action==0x2b
or action==0x2d
then break
end
end
Bounce()
Seek()
end
function Seek()
bytes = 0
waves = 0
steps = 0
local ret = ""
for bytes=0,10000 do
local cfg = rl(0xfc2a)+bytes
local action = rb(cfg, "MD CART")
local newaction = rb(cfg+1, "MD CART")
if action==0x7a then
waves=waves+1
steps=steps+1
end
if action==0x63 or action==0x64 or (action==0 and newaction==0) then
steps=steps+1
end
if action>=0x30 and action<=0x32 then
if newaction==0x70 then
steps=steps+1
elseif newaction==0x62 then
ret = string.format("BOMB in %d waves %d steps",waves,steps,bytes)
break
end
elseif action==3 then
ret = string.format("Forth in %d waves %d steps",waves,steps,bytes)
break
elseif action==0xe and newaction==8 then
ret = string.format("Back in %d waves %d steps",waves,steps,bytes)
break
end
end
text(120,7,ret)
end
function Clamp(v1,v2,v3)
if v1<v2 then v1=v2
elseif v1>v3 then v1=v3
end
return v1
end
function Bounce()
if rb(0xa515)==0x60
then offset = 8
else offset = 0
end
local counter = rb(0xfc87)
local a0 = 0xfc88
local d0 = SHIFT(rb(a0+counter),5)+offset
local vel = rw(0x25d482+d0, "MD CART")
if vel == 0x200 then bounce = 3
elseif vel == 0x3e0 then bounce = 1
else bounce = 2
end
text(60,0,string.format("bounce: %X",bounce))
end
function Objects()
local base0 = 0xa2ea
for i=0,0x32 do
local base = base0+i*0x6e
local id = rb(base)
if id>0 and id~=0x82 then
local hp = rbs(base+1)
local x = rw(base+2)-4096-camx
local y = rw(base+4)-4096-camy
--x = Clamp(x,0,300)
--y = Clamp(y,8,210)
local dx = rws(base+0x18)
local dy = rws(base+0x1a)
local hitboxbase = rl(base+0x14)
if hitboxbase<0x300000 then
local x1 = rb(hitboxbase+2,"MD CART")
local x2 = rb(hitboxbase+4,"MD CART")
local y1 = rb(hitboxbase+3,"MD CART")
local y2 = rb(hitboxbase+5,"MD CART")
local of = 124
if x1>0 and x2>0 and y1>0 and y2>0 then
x1 = x1+x-of
x2 = x2+x-of
y1 = y1+y-of
y2 = y2+y-of
box(x1,y1,x2,y2,0xff00ff00,0)
end
end
--text(x,y,string.format("%X",id),"yellow")
if hp~=0 then
text(x,y+6,hp,0xff00ff00)
end
PostRngRoll(base,x,y)
end
end
end
function PostRngRoll(object,x,y)
for i = 1, #MsgTable do
if (MsgTable[i]) then
if object==MsgTable[i].object_ then
local color = 0x00ff0000+SHIFT((MsgTable[i].timer_-emu.framecount())*MsgStep,24)
line(130,7*i+8,x,y,color)
text(120,7*i+8,string.format("%X",MsgTable[i].routine_),color)
end
if (MsgTable[i].timer_<emu.framecount()) then
MsgTable[i] = nil
end
end
end
end
event.onframestart(function()
rngcount = 0
rngcolor = "white"
rngobject = 0
end)
event.onmemorywrite(function()
rngcount = rngcount+1
rngcolor = "red"
rngobject = emu.getregister("M68K A1")
rngroutine = emu.getregister("M68K A0")
for i = 1, 30 do
if MsgTable[i] == nil then
MsgTable[i] = {
timer_ = MsgTime + emu.framecount(),
object_ = rngobject-0xff0000,
routine_ = rngroutine
}
break
end
end
end, 0xffa1d4)
while true do
mult = client.getwindowsize()
camx = rw(0xa172)
camy = rw(0xa174)
Objects()
Configs()
emu.frameadvance()
end
It shows who calls RNG routine and how man times per frame. It tells you when is the next bomb/jump back/jump forward in config table, how many waves and steps are left. It shows the address it jumped from, which it will return to later on, and how long was the last jump, and what direction is was in.
So you can apply your manipulation and see how far forward it allowed you to get in the table, which means, how many waves you skipped. Didn't investigate 100% of cases what calls RNG roll, but it's no hard to do, once needed.
All in all, you guys can now know what the game is doing. I was going to try this manipulation myself once I finish, but it looks so tedious that I may prefer to delay it until the new version is done.
