MMBN6(F?) Coordinate Trigger Lua Script

-- By: luckytyphlosion
-- Use to determine what is picked up by each coordinate trigger struct
-- Hold A when interacting with a map object (0x2013920) to see its return value (doesn't read new collision until A is released)

-- I don't like Lua.

local x = 2; -- puts text one pixel from edge
local y = 1; -- puts text one pixel from edge

-- font is 4 pixels by 7 pixels

local function addY()
    y = y + 8; -- 1 char == 7 pixels
end

local function addX(text)
    x = x + 4 * (string.len(text) + 1); -- 1 char == 4 pixels
end

local function toScreen(text, sameLine)
    gui.text(x, y, text);
    if sameLine then
        addX(text);
    else
        addY();
    end
end

function on2011A20Breakpoint()
    _2011A20Str = _2011A20Str .. string.format("0x%02x, ", memory.getregister("r6"));
end

function on2011D10BreakpointEventFlag()
    local flagSet = memory.getregister("r0");
    _2011D10Str = _2011D10Str .. string.format("0x%04x:%d", 0x1640 + memory.getregister("r6"), flagSet);
    if flagSet == 0 then
        _2011D10Str = _2011D10Str .. ", "
    else
        _2011D10Str = _2011D10Str .. "|"
    end
end

function on2011D10Breakpoint()
    _2011D10Str = _2011D10Str .. string.format("0x%02x, ", memory.getregister("r6"));
end

function on2013940Breakpoint()
    _2013940Str = _2013940Str .. string.format("0x%02x, ", memory.getregister("r6"));
end

function on2013920Breakpoint()
    if not aInputAfterPress then
        _2013920Str = _2013920Str .. string.format("0x%02x->", memory.getregister("r6"));
    end
end

function on2013920JumptableReturnBreakpoint()
    if not aInputAfterPress then
        local eventFlag = memory.getregister("r0");
        _2013920Str = _2013920Str .. string.format("0x%02x", eventFlag);
        if eventFlag > 0xe then
            _2013920Str = _2013920Str .. ",";
        else
            _2013920Str = _2013920Str .. ":";
        end
    end
end

function on2013920AfterEventFlagBreakpoint()
    if not aInputAfterPress then
        _2013920Str = _2013920Str .. string.format("0x%02x,", memory.getregister("r0"));
    end
end

_2011A20Breakpoint = 0x803166a;
_2011A20Str = "";
_2011D10BreakpointEventFlag = 0x8030bec;
_2011D10Breakpoint = 0x8030bf0;
_2011D10Str = "";
_2013940Breakpoint = 0x80318f6;
_2013940Str = "";
_2013920Breakpoint = 0x8031ac0;
_2013920JumptableReturnBreakpoint = 0x8031ad2;
_2013920AfterEventFlagBreakpoint = 0x8031aee;
_2013920Str = "";

memory.registerexec(_2011A20Breakpoint, on2011A20Breakpoint);
memory.registerexec(_2011D10BreakpointEventFlag, on2011D10BreakpointEventFlag);
memory.registerexec(_2011D10Breakpoint, on2011D10Breakpoint);
memory.registerexec(_2013920Breakpoint, on2013920Breakpoint);
memory.registerexec(_2013920JumptableReturnBreakpoint, on2013920JumptableReturnBreakpoint);
memory.registerexec(_2013920AfterEventFlagBreakpoint, on2013920AfterEventFlagBreakpoint);

while true do
    x = 2;
    y = 1;
    --_2011A20Str = nil;
    _2011A20Str = "2011A20: ";
    _2011D10Str = "2011D10: ";
    _2013940Str = "2013940: ";
    aInputTemp = joypad.getdown(1)["A"];
    aInputPressed = (not aInputTemp ~= not aInputDown) and aInputTemp;
    aInputDown = aInputTemp;
    aInputAfterPress = not aInputPressed and aInputDown;
    if not aInputDown then
        _2013920Str = "";
    --[[    framesSinceAfterAPress = 0;
    else
        if (_2013920Str == "") then
            framesSinceAfterAPress = framesSinceAfterAPress + 1;
        else
            print(framesSinceAfterAPress);
        end]]--
    end
    vba.frameadvance();
    toScreen(_2011A20Str);
    toScreen(_2011D10Str);
    toScreen(_2013940Str);
    toScreen("2013920: ");
    toScreen(_2013920Str);
    --toScreen(string.format("framesSinceAfterAPress: %d", framesSinceAfterAPress));
end