GS2+ with precise position

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)))
gui.text(70,0,"X: " .. (memory.readdword(0x020322F4))/1000000)
gui.text(70,10,"Y: " .. (memory.readdword(0x020322FC))/1000000)
gui.text(70,20,"Z: " .. (memory.readdword(0x020322F8))/1000000)

    vba.frameadvance();
end