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
