function nextrng(r1, r2, r3)
        return AND(XOR(SHIFT(r3, 5), SHIFT(r2, -11), SHIFT(r1, -1), SHIFT(r2, 15)),0xFFFF)
end
 
function rngsim(n)
        local rngbase=0x03000000
        local result = { memory.readword(rngbase+4), memory.readword(rngbase+2), memory.readword(rngbase+0) }
        for i = 4, n do
                result[i] = nextrng(result[i-3],result[i-2],result[i-1])
        end
        return result
end
 
function printstats(n)
        if n == 255 then
                n = "---"
        end
        return n
end
 
function setoperator()
        if j == 0 then
                op[ind] = "="
        elseif j == 1 then
                op[ind] = "<"
        elseif j == 2 then
                op[ind] = ">"
        elseif j == 3 then
                op[ind] = "<="
        elseif j == 4 then
                op[ind] = ">="
        elseif j == 5 then
                op[ind] = "!="
        end
        z = input.get()
        if z.left and otherpressed["left"] == false then
                otherpressed["left"] = true
                j = j - 1
                if j < 0 then
                        j = 5
                end
        elseif z.right and otherpressed["right"] == false then
                otherpressed["right"] = true
                j = j + 1
                if j > 5 then
                        j = 0
                end
        elseif z.enter and otherpressed["enter"] == false then
                otherpressed["enter"] = true
                ind = ind + 1
                j = 1
                a1 = " "
                a2 = " "
        elseif z.H and otherpressed["H"] == false then
                otherpressed["H"] = true
                if hit[ind] == "" then
                        hit[ind] = true
                else
                        hit[ind] = ""
                end
        end
        if not z.left and not z.right and not z.enter and not z.H then
                otherpressed["left"] = false
                otherpressed["right"] = false
                otherpressed["enter"] = false
                otherpressed["H"] = false
        end
end
 
function captureinput()
        if op[ind] == "" then
                for i = 0, 9 do
                        local s = tostring(i)
                        n = input.get()
                        if n[s] then
                                if numberpressed[s] == false then
                                        numberpressed[s] = true
                                        if a1 == " " then
                                                a1 = i
                                                rn[index] = tonumber(a1 .. "0")
                                        else
                                                a2 = i
                                                rn[index] = tonumber(a1 .. a2)
                                                index = index + 1
                                                op[ind] = "<"
                                                j = 1
                                        end
                                        break
                                end
                        else
                                numberpressed[s] = false
                        end
                end
        else
                setoperator()
        end
end
 
function emptyarray(x,n)
        for i=1, n, 1 do
                x[i] = ""
        end
        return x
end
 
function compareRN()
        local limit = ind-1
        local y, hits
        d = 1
        for i = 4, 501-limit, 1 do
                y = 0
                hits = 0
                x = limit
                list = {}
               
                for a = 1, x, 1 do
                        if hit[a] == "" then
                                list[a] = math.floor(rngs[i-1+a+hits]/655.36)
                        else
                                list[a] = math.floor((math.floor(rngs[i-1+a+hits]/655.36)+math.floor(rngs[i+a+hits]/655.36))/2)
                                hits = hits + 1
                                x = x + 1
                        end
                end
               
                for a = 1, limit, 1 do
                        if op[a] == "<" then
                                if list[a] < rn[a] then
                                        y = y + 1
                                end
                        elseif op[a] == ">" then
                                if list[a] > rn[a] then
                                        y = y + 1
                                end
                        elseif op[a] == "<=" then
                                if list[a] <= rn[a] then
                                        y = y + 1
                                end
                        elseif op[a] == ">=" then
                                if list[a] >= rn[a] then
                                        y = y + 1
                                end
                        elseif op[a] == "!=" then
                                if list[a] ~= rn[a] then
                                        y = y + 1
                                end
                        elseif op[a] == "=" then
                                if list[a] == rn[a] then
                                        y = y + 1
                                end
                        end
                end
               
                if y == ind-1 then
                        if i == 4 then
                                gui.text(178,(i-1)*8,"-->","cyan")
                        else
                                gui.text(212,(i-1)*8,"-->","cyan")
                        end
                        if d < 4 then
                                dis[d] = i-4
                                d = d + 1
                        end
                end
        end
end
 
a1 = " "
a2 = " "
rn = {"","","","","","","","","",""}
op = {"","","","","","","","","",""}
hit = {"","","","","","","","","",""}
d = 1
dis = {"","",""}
index = 1
ind = 1
 
numberpressed = {}
for i = 0, 9, 1 do
        local s = tostring(i)
        numberpressed[s] = false
end
otherpressed = {}
otherpressed["left"] = false
otherpressed["right"] = false
otherpressed["enter"] = false
otherpressed["H"] = false
 
local filter = 0
local inputs = 0
local php = 0x0203E064
local phit = 0x0203E0C6
local pdmg = 0x0203E0CA
local pcrt = 0x0203E0CE
local ehp = 0x0203E062
local ehit = 0x0203E0C4
local edmg = 0x0203E0C8
local ecrt = 0x0203E0CC
 
function obtainedexp()
        local level = 0x0202BD58
        local experience = 0x0202BD59
        local total = 0
        for i = 0, 7, 1 do
                total = total + (memory.readbyte(level+(i*72))*100)
                if memory.readbyte(experience+(i*72)) ~= 255 then
                        total = total + memory.readbyte(experience+(i*72))
                end
        end
        return total
end
 
while true do
        local nsim = 20
        rngs = rngsim(503)
        for i = 1, nsim do
                gui.text(228, 8*(i-1), string.format("%3d", rngs[i]/655.36))
        end
        gui.text(0,0,"Filter Mode: ")
        c = input.get()
        if c.Q then
                filter = 1
        elseif c.W then
                filter = 0
                inputs = 0
        end
        if filter == 0 then
                gui.text(48,0," Off")
                gui.text(0,16,"Player")
                gui.text(0,24,"HP: " .. printstats(memory.readbyte(php)))
                gui.text(0,32,"Hit: " .. printstats(memory.readbyte(phit)))
                gui.text(0,40,"Damage: " .. printstats(memory.readbyte(pdmg)))
                gui.text(0,48,"Crit: " .. printstats(memory.readbyte(pcrt)))
                gui.text(0,64,"Enemy")
                gui.text(0,72,"HP: " .. printstats(memory.readbyte(ehp)))
                gui.text(0,80,"Hit: " .. printstats(memory.readbyte(ehit)))
                gui.text(0,88,"Damage: " .. printstats(memory.readbyte(edmg)))
                gui.text(0,96,"Crit: " .. printstats(memory.readbyte(ecrt)))
                index = 1
        end
        if filter == 1 then
                for i = 1, 10, 1 do
                        gui.text(0,8+(i*8),rn[i])
                        gui.text(20,8+(i*8),op[i])
                        if hit[i] == true then
                                gui.text(40,8+(i*8),"<- Hit")
                        end
                end
                if rn[1] ~= "" and inputs == 0 then
                        dis = emptyarray(dis,3)
                        compareRN()
                end
                n = input.get()
                if n.I then
                        rn = emptyarray(rn,10)
                        index = 1
                        op = emptyarray(op,10)
                        ind = 1
                        hit = emptyarray(hit,10)
                        inputs = 1
                elseif n.O  or ind > 10 then
                        inputs = 0
                end
                if inputs == 1 then
                        joypad.set(1,{" "})
                        captureinput()
                        gui.text(132,0,"On")
                elseif inputs == 0 then
                        gui.text(132,0,"Off")
                        if rn[1] ~= "" then
                                if dis[1] == "" then
                                        gui.text(0,104,"Distance: ---")
                                elseif dis[1] ~= "" and dis[2] == "" then
                                        gui.text(0,104,"Distance: " .. dis[1])
                                elseif dis[1] ~= "" and dis[2] ~= "" and dis[3] == "" then
                                        gui.text(0,104,string.format("Distance: %d - %d",dis[1],dis[2]))
                                else
                                        gui.text(0,104,string.format("Distance: %d - %d - %d",dis[1],dis[2],dis[3]))
                                end
                        end
                end
                gui.text(48,0," On  --  Input Mode: ")
        end
    gui.text(210,0,"RNG1:")
        gui.text(210,8,"RNG2:")
        gui.text(210,16,"RNG3:")
        gui.text(194,24,"Next RNs:")
        emu.frameadvance()
end