GS2+

local AD3 = 0x0200049A -- Next Encounter
local AD4 = 0x020054C8 -- Battle RN
local AD5 = 0x030011BC -- General RN

while true do

gui.text(0,00,"BRN: ".. (memory.readdword(AD4)))
gui.text(0,10,"GRN: ".. (memory.readdword(AD5)))
gui.text(0,20,"Encounter: ".. (memory.readword(AD3)))

    vba.frameadvance();
end