fceux/documentation/examplelua/smb1_iup.lua

166 lines
8.7 KiB
Lua

-- super mario bros 1 hitbox script
-- Super Mario Bros. (JU) (PRG0) [!].rom
-- by qFox
-- 28 july 2008
-- This script shows hitboxes of anything that has them
-- It also displays the found hitboxes in a output window with iup
-- Includes a toggle to automatically kill all enemies within 50px range of mario :p
-- Include our help script to load iup and take care of exit
require("auxlib");
local running = true;
local restrainingorder = false;
local myoutput;
function createGUI(n)
local mybutton = iup.button{title="Close (exits the main loop)"};
mybutton.action = function(self, x)
running = false;
--handles[n]:destroy();
--handles[n] = false;
end;
myoutput = iup.multiline{size="200x200",expand="YES",value="Debug crap should be here"}
nottooclose = iup.toggle{title="Kill enemies that come too close", value="OFF"};
nottooclose.action = function(self, v) restrainingorder = (v == 1); end; -- v is 0 or 1
handles[n] =
iup.dialog{
iup.frame
{
iup.vbox
{
mybutton,
nottooclose,
myoutput,
title="Lua tools are izi!"
}
}
};
handles[n]:showxy(iup.CENTER, iup.CENTER)
end
dialogs = dialogs + 1;
createGUI(dialogs);
local outstr;
local function knifeEnemyIfTooClose(enemynumber) -- enemynumber starts at 1
-- we add the suffix for x coords because the screen is 255 positions wide but smb has two pages
-- loaded at any given time. some enemy can be in page 2 while you are on page one. since a byte
-- can only hold 255 values, this would wrap around and make it seem like the enemy is on the same
-- page. hence we add the number of pages they are one, if they are equal, it all works out :)
local mx = memory.readbyte(0x0086)+(255*memory.readbyte(0x006D));
local my = memory.readbyte(0x00CE);
local ex = memory.readbyte(0x0086+enemynumber)+(255*memory.readbyte(0x006D+enemynumber));
local ey = memory.readbyte(0x00CE+enemynumber);
local d = math.sqrt(((mx-ex)^2)+((my-ey)^2)); -- pythagoras ;)
outstr = outstr .. d.." < 30.0 ?\n";
if (d < 50.0 and restrainingorder and memory.readbyte(0x0015+enemynumber) ~= 40) then -- dont kill of horizontal moving platforms. we kinda need them.
-- KNIFE!
outstr = outstr .. "Knifing next enemy!\n";
memory.writebyte(0x001D+enemynumber, 0xFF); -- this address denotes an enemy state. writing FF to it kills them as if hit by a star (so not flatten).
end;
return d;
end;
-- draw a box and take care of coordinate checking
local function box(x1,y1,x2,y2,color)
-- gui.text(50,50,x1..","..y1.." "..x2..","..y2);
if (x1 > 0 and x1 < 255 and x2 > 0 and x2 < 255 and y1 > 0 and y1 < 224 and y2 > 0 and y2 < 224) then
gui.drawbox(x1,y1,x2,y2,color);
end;
end;
-- hitbox coordinate offsets (x1,y1,x2,y2)
local mario_hb = 0x04AC; -- 1x4
local enemy_hb = 0x04B0; -- 5x4
local coin_hb = 0x04E0; -- 3x4
local fiery_hb = 0x04C8; -- 2x4
local hammer_hb= 0x04D0; -- 9x4
local power_hb = 0x04C4; -- 1x4
-- addresses to check, to see whether the hitboxes should be drawn at all
local mario_ch = 0x000E;
local enemy_ch = 0x000F;
local coin_ch = 0x0030;
local fiery_ch = 0x0024;
local hammer_ch= 0x002A;
local power_ch = 0x0014;
local a,b,c,d;
while (running) do
outstr = '';
-- from 0x04AC are about 0x48 addresse that indicate a hitbox
-- different items use different addresses, some share
-- there can for instance only be one powerup on screen at any time (the star in 1.1 gets replaced by the flower, if you get it)
-- we cycle through the animation addresses for each type of hitbox, draw the corresponding hitbox if they are drawn
-- we draw: mario (1), enemies (5), coins (3), hammers (9), powerups (1). (bowser and (his) fireball are considered enemies)
-- mario
if (memory.readbyte(mario_hb) > 0) then
a,b,c,d = memory.readbyte(mario_hb),memory.readbyte(mario_hb+1),memory.readbyte(mario_hb+2),memory.readbyte(mario_hb+3);
box(a,b,c,d, "green");
outstr = outstr .. "Mario: <"..a..","..b..","..c..","..d..">\n";
end;
-- enemies
if (memory.readbyte(enemy_ch ) > 0) then
a,b,c,d = memory.readbyte(enemy_hb), memory.readbyte(enemy_hb+1), memory.readbyte(enemy_hb+2), memory.readbyte(enemy_hb+3);
box(a,b,c,d, "green");
outstr = outstr .. "Enemy 1: <"..memory.readbyte(0x0016).."> <"..a..","..b..","..c..","..d.."> "..knifeEnemyIfTooClose(1).."\n";
end;
if (memory.readbyte(enemy_ch+1) > 0) then
a,b,c,d = memory.readbyte(enemy_hb+4), memory.readbyte(enemy_hb+5), memory.readbyte(enemy_hb+6), memory.readbyte(enemy_hb+7);
box(a,b,c,d, "green");
outstr = outstr .. "Enemy 2: <"..memory.readbyte(0x0017).."> <"..a..","..b..","..c..","..d.."> "..knifeEnemyIfTooClose(2).."\n";
end;
if (memory.readbyte(enemy_ch+2) > 0) then
a,b,c,d = memory.readbyte(enemy_hb+8), memory.readbyte(enemy_hb+9), memory.readbyte(enemy_hb+10),memory.readbyte(enemy_hb+11);
box(a,b,c,d, "green");
outstr = outstr .. "Enemy 3: <"..memory.readbyte(0x0018).."> <"..a..","..b..","..c..","..d.."> "..knifeEnemyIfTooClose(3).."\n";
end;
if (memory.readbyte(enemy_ch+3) > 0) then
a,b,c,d = memory.readbyte(enemy_hb+12),memory.readbyte(enemy_hb+13),memory.readbyte(enemy_hb+14),memory.readbyte(enemy_hb+15);
box(a,b,c,d, "green");
outstr = outstr .. "Enemy 4: <"..memory.readbyte(0x0019).."> <"..a..","..b..","..c..","..d.."> "..knifeEnemyIfTooClose(4).."\n";
end;
if (memory.readbyte(enemy_ch+4) > 0) then
a,b,c,d = memory.readbyte(enemy_hb+16),memory.readbyte(enemy_hb+17),memory.readbyte(enemy_hb+18),memory.readbyte(enemy_hb+19)
box(a,b,c,d, "green");
outstr = outstr .. "Enemy 5: <"..memory.readbyte(0x001A).."> <"..a..","..b..","..c..","..d.."> "..knifeEnemyIfTooClose(5).."\n";
end;
-- coins
if (memory.readbyte(coin_ch ) > 0) then box(memory.readbyte(coin_hb), memory.readbyte(coin_hb+1), memory.readbyte(coin_hb+2), memory.readbyte(coin_hb+3), "green"); end;
if (memory.readbyte(coin_ch+1) > 0) then box(memory.readbyte(coin_hb+4), memory.readbyte(coin_hb+5), memory.readbyte(coin_hb+6), memory.readbyte(coin_hb+7), "green"); end;
if (memory.readbyte(coin_ch+2) > 0) then box(memory.readbyte(coin_hb+8), memory.readbyte(coin_hb+9), memory.readbyte(coin_hb+10), memory.readbyte(coin_hb+11), "green"); end;
-- (mario's) fireballs
if (memory.readbyte(fiery_ch ) > 0) then box(memory.readbyte(fiery_hb), memory.readbyte(fiery_hb+1), memory.readbyte(fiery_hb+2), memory.readbyte(fiery_hb+3), "green"); end;
if (memory.readbyte(fiery_ch+1) > 0) then box(memory.readbyte(fiery_hb+4), memory.readbyte(fiery_hb+5), memory.readbyte(fiery_hb+6),memory.readbyte(fiery_hb+7), "green"); end;
-- hammers
if (memory.readbyte(hammer_ch ) > 0) then box(memory.readbyte(hammer_hb), memory.readbyte(hammer_hb+1), memory.readbyte(hammer_hb+2), memory.readbyte(hammer_hb+3), "green"); end;
if (memory.readbyte(hammer_ch+1) > 0) then box(memory.readbyte(hammer_hb+4), memory.readbyte(hammer_hb+5), memory.readbyte(hammer_hb+6), memory.readbyte(hammer_hb+7), "green"); end;
if (memory.readbyte(hammer_ch+2) > 0) then box(memory.readbyte(hammer_hb+8), memory.readbyte(hammer_hb+9), memory.readbyte(hammer_hb+10),memory.readbyte(hammer_hb+11), "green"); end;
if (memory.readbyte(hammer_ch+3) > 0) then box(memory.readbyte(hammer_hb+12),memory.readbyte(hammer_hb+13),memory.readbyte(hammer_hb+14),memory.readbyte(hammer_hb+15), "green"); end;
if (memory.readbyte(hammer_ch+4) > 0) then box(memory.readbyte(hammer_hb+16),memory.readbyte(hammer_hb+17),memory.readbyte(hammer_hb+18),memory.readbyte(hammer_hb+19), "green"); end;
if (memory.readbyte(hammer_ch+5) > 0) then box(memory.readbyte(hammer_hb+20),memory.readbyte(hammer_hb+21),memory.readbyte(hammer_hb+22),memory.readbyte(hammer_hb+23), "green"); end;
if (memory.readbyte(hammer_ch+6) > 0) then box(memory.readbyte(hammer_hb+24),memory.readbyte(hammer_hb+25),memory.readbyte(hammer_hb+26),memory.readbyte(hammer_hb+27), "green"); end;
if (memory.readbyte(hammer_ch+7) > 0) then box(memory.readbyte(hammer_hb+28),memory.readbyte(hammer_hb+29),memory.readbyte(hammer_hb+30),memory.readbyte(hammer_hb+31), "green"); end;
if (memory.readbyte(hammer_ch+8) > 0) then box(memory.readbyte(hammer_hb+32),memory.readbyte(hammer_hb+33),memory.readbyte(hammer_hb+34),memory.readbyte(hammer_hb+35), "green"); end;
-- powerup
if (memory.readbyte(power_ch) > 0) then box(memory.readbyte(power_hb),memory.readbyte(power_hb+1),memory.readbyte(power_hb+2),memory.readbyte(power_hb+3), "green"); end;
gui.text(5,32,"Green rectangles are hitboxes!");
if (myoutput) then
myoutput.value = outstr;
end;
FCEU.frameadvance()
end
gui.popup("script exited main loop");