a = 0
b = 0

framecounter = vba.framecount()
framecounter2 = vba.framecount()

while true do 


--LOADSTATE HANDLER

framecounter = framecounter + 1

--if framecounter == framecounter2 + 100 then savestate.load(3) end


--HUD
gui.opacity(0.8)
gui.drawbox(0,0,250,250, "#000000")
gui.text(94,2, "Lag: " ..vba.lagcount())
gui.text(94,9, "A2D5: " ..memory.readbytesigned(0xA2D5))
  gui.text(20,2, "frames: " ..framecounter)
gui.opacity(0.5)
if vba.lagged() then gui.text(148,2, "*") end
gui.opacity(0.9)

--IF A2D5 IS ACCESSED
memory.registerwrite(0xa2d5, 1, function()
	a = 99
end)

if a > 0 then gui.drawbox(32,18,130,27, "red") end
if a > 0 then gui.text(34,19, "a2d5 HAS BEEN WRITTEN TO", "white") end
a = a - 1

gui.opacity(1.0)

memory.registerwrite(0xc600, 1, function()
	b = 105
end)
b = b - 1

if b > 0 then gui.drawbox(32,18,130,27, "black") end

vba.frameadvance()
end