emerald fixed frame counter

local natureorder={"Atk","Def","Spd","SpAtk","SpDef"}
local naturename={
 "Hardy","Lonely","Brave","Adamant","Naughty",
 "Bold","Docile","Relaxed","Impish","Lax",
 "Timid","Hasty","Serious","Jolly","Naive",
 "Modest","Mild","Quiet","Bashful","Rash",
 "Calm","Gentle","Sassy","Careful","Quirky"}
local typeorder={
 "Fighting","Flying","Poison","Ground",
 "Rock","Bug","Ghost","Steel",
 "Fire","Water","Grass","Electric",
 "Psychic","Ice","Dragon","Dark"}

local start=0x02024744
local personality
local trainerid
local magicword
local growthoffset
local miscoffset
local i
local rngframe=0x020249C0

local species
local ivs
local hpiv
local atkiv
local defiv
local spdiv
local spatkiv
local spdefiv
local nature
local natinc
local natdec
local hidpowbase
local hidpowtype

while true do

 personality=memory.readdwordunsigned(start)
 trainerid=memory.readdwordunsigned(start+4)
 magicword=bit.bxor(personality, trainerid)
 seed=memory.readdwordunsigned(0x03005D80)

 i=personality%24

 if i<=5 then
  growthoffset=0
 elseif i%6<=1 then
  growthoffset=12
 elseif i%2==0 then
  growthoffset=24
 else
  growthoffset=36
 end

 if i>=18 then
  miscoffset=0
 elseif i%6>=4 then
  miscoffset=12
 elseif i%2==1 then
  miscoffset=24
 else
  miscoffset=36
 end

 species=bit.band(bit.bxor(memory.readdwordunsigned(start+32+growthoffset),magicword),0xFFF)

 ivs=bit.bxor(memory.readdwordunsigned(start+32+miscoffset+4),magicword)

 hpiv=bit.band(ivs,0x1F)
 atkiv=bit.band(ivs,0x1F*0x20)/0x20
 defiv=bit.band(ivs,0x1F*0x400)/0x400
 spdiv=bit.band(ivs,0x1F*0x8000)/0x8000
 spatkiv=bit.band(ivs,0x1F*0x100000)/0x100000
 spdefiv=bit.band(ivs,0x1F*0x2000000)/0x2000000

 nature=personality%25
 natinc=math.floor(nature/5)
 natdec=nature%5

 hidpowtype=math.floor(((hpiv%2 + 2*(atkiv%2) + 4*(defiv%2) + 8*(spdiv%2) + 16*(spatkiv%2) + 32*(spdefiv%2))*15)/63)
 hidpowbase=math.floor(((bit.band(hpiv,2)/2 + bit.band(atkiv,2) + 2*bit.band(defiv,2) + 4*bit.band(spdiv,2) + 8*bit.band(spatkiv,2) + 16*bit.band(spdefiv,2))*40)/63 + 30)

 gui.text(0,0,"Stats")
 gui.text(30,0,"HP  "..memory.readwordunsigned(start+86))
 gui.text(65,0,"Atk "..memory.readwordunsigned(start+90))
 gui.text(99,0,"Def "..memory.readwordunsigned(start+92))
 gui.text(133,0,"SpA "..memory.readwordunsigned(start+96))
 gui.text(167,0,"SpD "..memory.readwordunsigned(start+98))
 gui.text(201,0,"Spe "..memory.readwordunsigned(start+94))

 gui.text(0,8,"IVs")
 gui.text(30,8,"HP  "..hpiv)
 gui.text(65,8,"Atk "..atkiv)
 gui.text(99,8,"Def "..defiv)
 gui.text(133,8,"SpA "..spatkiv)
 gui.text(167,8,"SpD "..spdefiv)
 gui.text(201,8,"Spe "..spdiv)

 gui.text(0,40,"PID:  "..string.format("%08X", personality))
 gui.text(60,40,"IVs: "..string.format("%08X", ivs))
 gui.text(0,50,"Nature: "..naturename[nature+1])
 gui.text(0,60,natureorder[natinc+1].."+ "..natureorder[natdec+1].."-")
 gui.text(167,15,"HP "..typeorder[hidpowtype+1].." "..hidpowbase)
 gui.text(0,95,"Frame "..memory.readdwordunsigned(rngframe))
 gui.text(0,105,"Seed: "..string.format("%8X", seed))
 print("Seed: "..string.format("%8X", seed))

 emu.frameadvance()

end