Summon Script for Fire Emblem: Sacred Stones

Save = savestate.create()
savestate.save(Save)
rngbase = 0x03000000;
local Phase = 0x0202BCFF
local counter = -1
local PhanStr = 0x0202C718
local PhanSpd = 0x0202C71A
local frame = vba.framecount()

function nextrng(r1, r2, r3)
    return AND(XOR(SHIFT(r3, 5), SHIFT(r2, -11), SHIFT(r1, -1), SHIFT(r2, 15)),0xFFFF)
end

while true do
    savestate.load(Save)
    counter = counter + 1
    while memory.readbyte(Phase) == 0 do
        for n = 1,counter,1 do
        Rtemp = nextrng(memory.readword(rngbase+4), memory.readword(rngbase+2), memory.readword(rngbase+0))
        memory.writeword(rngbase+4, memory.readword(rngbase+2))
        memory.writeword(rngbase+2, memory.readword(rngbase+0))
        memory.writeword(rngbase+0, Rtemp);
        end;
        R = {};
        for Rl = 0,4,2 do
            R[Rl/2] = memory.readword(rngbase+Rl)
        end;
        gui.text(0,0,"Burned RNs: " .. counter)
        actframe = vba.framecount()
        if actframe == frame+2 then
            joypad.set(1, {A=1})
        elseif actframe == frame+5 then
            joypad.set(1, {A=1})
        end
        if actframe == frame+30 and memory.readbyte(PhanStr) == 20 and memory.readbyte(PhanSpd) == 20 then
            vba.pause()
        elseif actframe == frame+30 and (memory.readbyte(PhanStr) == 20 or memory.readbyte(PhanSpd) == 20) then
            break
        else
            emu.frameadvance()
        end
    end
end