event flag monitor

Lua/event flag monitor.lua

@@ -0,0 +1,65 @@
+require "boilerplate"
+
+function Butts(name, begin, len)
+    return {name=name, begin=begin, len=len, once = false, old_bytes = {}}
+end
+
+local ignore = {
+    ['92,7=0 (weg)'] = true, -- every time a scene (un)loads
+    ['92,7=1 (weg)'] = true,
+    -- daily postman crap
+    ['27,6=0 (weg)'] = true,
+    ['27,7=0 (weg)'] = true,
+    ['28,0=0 (weg)'] = true,
+    ['28,1=0 (weg)'] = true,
+    ['28,2=0 (weg)'] = true,
+    ['27,6=1 (weg)'] = true,
+    ['27,7=1 (weg)'] = true,
+    ['28,0=1 (weg)'] = true,
+    ['28,1=1 (weg)'] = true,
+    ['28,2=1 (weg)'] = true,
+}
+
+function poop(x, x1, i, name)
+    local now = emu.framecount()
+    local diff = bit.bxor(x, x1)
+    for which = 0, 7 do
+        if bit.band(diff, 2^which) ~= 0 then
+            local state = bit.band(x, 2^which) ~= 0 and 1 or 0
+            local str = ('%02i,%i=%i (%s)'):format(i, which, state, name)
+            if not ignore[str] then
+                printf('%s  @%i', str, now)
+                gui.addmessage(str)
+            end
+        end
+    end
+end
+
+-- obvious todo: use actual classes/objects
+function diff(self)
+    local bytes = mainmemory.readbyterange(self.begin, self.len)
+    local old_bytes = self.old_bytes
+    if self.once then
+        for k, v in pairs(bytes) do
+            local i = tonumber(k) - self.begin
+            local x = tonumber(v)
+            local x1 = tonumber(old_bytes[k])
+            if x ~= x1 then
+                poop(x, x1, i, self.name)
+            end
+        end
+    end
+    self.old_bytes = bytes
+    self.once = true
+end
+
+-- US 1.0 addresses for the time being
+local region1 = Butts('weg', 0x1F0568, 100) -- week_event_reg
+local region2 = Butts('inf', 0x1F067C, 8) -- event_inf
+local region3 = Butts('mmb', 0x1F3F3A, 8) -- mask_mask_bit (bad address?)
+while true do
+    diff(region1)
+    diff(region2)
+    diff(region3)
+    emu.frameadvance()
+end