Download FE_EPhase.luaLanguage: luarequire "gd" BattleCheck =100; -- emu.speedmode('turbo'); CharacterStore = 0x0202AB78; --CharacterStore = 0x0202BCE8; EnemyStore = CharacterStore + 0x3E * 0x48; Phase = 0x0202AA57; key1 ={}; key1['A']=true; key1['start'] = false; StartF = movie.framecount(); StatM = {'HpC','Lvl','EXP','Hp','Str','Skl','Spd','Def','Res','Lck','Con', 'X', 'Y'}; OffstC = {0x11, 0x8, 0x9,0x10, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, 0x18, 0x0E, 0x0F}; EnemyM = {'Alive','HpC','X','Y'}; OffstM = {0x00,0x11,0x0E, 0x0F}; Matcher = {}; newcount = 0; for checks = 0,0x3D,1 do Matcher[checks] = {}; for i = 1,13,1 do Matcher[checks][i] = memory.readbyte(CharacterStore+OffstC[i]+checks*0x48); end; end; Estats = {}; for checks = 0,49,1 do Matcher[checks+0x3E] = {}; if memory.readbyte(EnemyStore +0x11+checks*0x48) > 0 then Estats[checks] = {}; Estats[checks][1] = false; Estats[checks][2] = false; Matcher[checks+0x3E][1] = true; for i = 2,4,1 do Matcher[checks+0x3E][i] = memory.readbyte(EnemyStore+OffstM[i]+checks*0x48); end; else Matcher[checks+0x3E][1] = false; end; end; function nextrng(r1, r2, r3) return AND(XOR(SHIFT(r3, 5), SHIFT(r2, -11), SHIFT(r1, -1), SHIFT(r2, 15)),0xFFFF) end rngbase=0x03000000; RNGCheck = savestate.create(); savestate.save(RNGCheck); Unique = 0; FClist = {}; outsl = {}; RNGList = {}; TempC = {}; TempE = {}; Pstat = {}; outs2l = {}; OfX = 6; OfY = 42; SX = 5; SY = 5; for curord = 0,BattleCheck-1,1 do savestate.load(RNGCheck); --RNGLOOP for n = 1,curord,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; --PhaseLoop while memory.readbyte(Phase) == 128 do joypad.set(1,key1); key1['start'] = not key1['start']; emu.frameadvance(); gui.text(10,10, string.format('%d of %d done.', curord+1, BattleCheck)); end; outs = ""; for checks = 0,0x3D,1 do Pstat[checks] = false; for i = 1,11,1 do TempC[i] = memory.readbyte(CharacterStore+OffstC[i]+checks*0x48); end; if Matcher[checks][1] ~= TempC[1] then outs = outs .. string.format(' %d %dHP', checks, TempC[1] - Matcher[checks][1]); if TempC[1] == 0 then Pstat[checks] = true; outs = outs .. '-Dead'; end; end; if Matcher[checks][3] ~= TempC[3] then outs = outs .. string.format(' %d %dXP', checks, TempC[3] - Matcher[checks][3]); end; if Matcher[checks][2] ~= TempC[2] then outs = outs .. string.format(' %d +%dLvl', checks, TempC[2] - Matcher[checks][2]); for j = 4,11,1 do outs = outs .. string.format(' %d %d%s', checks, TempC[j] - Matcher[checks][j],StatM[j]); end; end; end; outs2 = ""; for checks = 0,49,1 do for i = 2,4,1 do TempC[i] = memory.readbyte(CharacterStore+OffstM[i]+(checks+0x3E)*0x48); end; if Matcher[checks+0x3E][1] then Estats[checks][1] = false; Estats[checks][2] = false; if Matcher[checks+0x3E][2] ~= TempC[2] then outs2 = outs2 .. string.format(' E%d %dHP', checks, TempC[2] - Matcher[checks+0x3E][2]); if TempC[2] == 0 then Estats[checks][1] = true; outs2 = outs2 .. '-Dead'; end; end; if (Matcher[checks+0x3E][3] ~= TempC[3]) or (Matcher[checks+0x3E][4] ~= TempC[4]) then Estats[checks][2] = true; Estats[checks][3] = Matcher[checks+0x3E][3]; Estats[checks][4] = Matcher[checks+0x3E][4]; Estats[checks][5] = TempC[3]; Estats[checks][6] = TempC[4]; end; end; end; FC = movie.framecount() - StartF; IsUnique = true; for n = 1,Unique,1 do if FClist[n] == FC and outsl[n] == outs and outs2l[n] == outs2 then IsUnique = false; end; end; if IsUnique then -- emu.speedmode('normal'); Unique = Unique + 1; FClist[Unique] = FC; outsl[Unique] = outs; outs2l[Unique] = outs2; for i = 1,25,1 do gui.drawbox(0,0,320,240,'black','black'); gui.text(1,1,"Frames:" .. FC .. " RNG Distance: " .. curord); gui.text(1,10,string.format("RNGx00 = %d RNGx02 = %d RNGx04 = %d", R[0],R[1],R[2])); gui.text(1,20,outs); gui.text(1,30,outs2); gui.drawbox(3,40,238,160, 'black','white'); for checks = 0,0x3D,1 do if Matcher[checks][1] > 0 then if Pstat[checks] then X = Matcher[checks][12]; Y = Matcher[checks][13]; gui.drawbox(OfX+SX*X,SY*Y+OfY,OfX+SX*X+3,SY*Y+3+OfY,'Green','Blue'); else X = Matcher[checks][12]; Y = Matcher[checks][13]; gui.drawbox(OfX+SX*X,SY*Y+OfY,OfX+SX*X+3,SY*Y+3+OfY,'Green','Green'); end; end; end; for checks = 0,49,1 do if Matcher[checks+0x3E][1] then if Estats[checks][2] then X1 = OfX+SX*Estats[checks][3]+2; Y1 = OfY+SY*Estats[checks][4]+2; X2 = OfX+SX*Estats[checks][5]+2; Y2 = OfY+SY*Estats[checks][6]+2; gui.drawline(X1,Y1,X2,Y1,'blue'); gui.drawline(X2,Y1,X2,Y2,'blue'); if Estats[checks][1] then X = Estats[checks][5]; Y = Estats[checks][6]; gui.drawbox(OfX+SX*X,SY*Y+OfY,OfX+SX*X+3,SY*Y+3+OfY,'Red','Blue'); else X = Estats[checks][5]; Y = Estats[checks][6]; gui.drawbox(OfX+SX*X,SY*Y+OfY,OfX+SX*X+3,SY*Y+3+OfY,'Red','Red'); end; else if Estats[checks][1] then X = Matcher[checks+0x3E][3]; Y = Matcher[checks+0x3E][4]; gui.drawbox(OfX+SX*X,SY*Y+OfY,OfX+SX*X+3,SY*Y+3+OfY,'Red','Blue'); else X = Matcher[checks+0x3E][3]; Y = Matcher[checks+0x3E][4]; gui.drawbox(OfX+SX*X,SY*Y+OfY,OfX+SX*X+3,SY*Y+3+OfY,'Red','Red'); end; end; end; end; emu.frameadvance(); end; print("#".. Unique .. " unique - Distance: " .. curord); gdstr = gui.gdscreenshot(); SS = string.format('C:\\FE\\RNG%d.png',curord); gd.createFromGdStr(gdstr):png(SS); for i = 1,25,1 do gui.drawbox(0,0,320,240,'black','black'); gui.text(1,1,"Frames:" .. FC); gui.text(1,10,outs); emu.frameadvance(); end; -- emu.speedmode('maximum'); end; end;
key1['start'] = not key1['start']; key1.start = (not key1.start) or nil;key1['start'] = false;Language: luaCamera =1; CharacterStore = 0x0202AB78; --CharacterStore = 0x0202BCE8; EnemyStore = CharacterStore + 0x3E * 0x48; SizeX = 24; SizeY = 24; Holding = false; leftclickrelease = true; lbrelease = true; lbrelease = true; Rl = {}; CamPosX = 0x0202AA14; CamPosY = 0x0202AA16; SX = 16; SY = 16; OfX = 0; OfY = 0; SizX = 15; SizY = 16; while true do CamX = memory.readword(CamPosX); CamY = memory.readword(CamPosY); CamX = math.floor(CamX/16); CamY = math.floor(CamY/16); OnScreen = {}; PosX = {}; PosY = {}; Ord = {}; i=0; for c = 0,0x3D,1 do if memory.readbyte(CharacterStore+0x11+c*0x48) > 0 then X = memory.readbyte(CharacterStore+0x0E+c*0x48)-CamX; Y = memory.readbyte(CharacterStore+0x0F+c*0x48)-CamY; if ((X >= 0) and (X < 16) and (Y >= 0) and (Y < 14)) then gui.drawbox(OfX+X*SX,OfY + Y*SY,OfX+X*SX+SizX,OfY + Y*SY + SizY,"clear","blue") gui.text(X*SX+6,Y*SY+4,string.format("%d",c)); end; end; end; for c = 0,0x49,1 do if memory.readbyte(EnemyStore+0x11+c*0x48) > 0 then X = memory.readbyte(EnemyStore+0x0E+c*0x48)-CamX; Y = memory.readbyte(EnemyStore+0x0F+c*0x48)-CamY; if ((X >= 0) and (X < 16) and (Y >= 0) and (Y < 14)) then gui.drawbox(OfX+X*SX,OfY + Y*SY,OfX+X*SX+SizX,OfY + Y*SY + SizY,"clear","red") gui.text(X*SX+6,Y*SY+4,string.format("%d",c)); end; end; end; emu.frameadvance(); end;
New enemy phase script could do with a bit of tweaking
Language: luarequire "gd" BattleCheck =100; -- emu.speedmode('turbo'); CharacterStore = 0x0202AB78; --CharacterStore = 0x0202BCE8; EnemyStore = CharacterStore + 0x3E * 0x48; Phase = 0x0202AA57; key1 ={}; key1['A']=true; StartF = movie.framecount(); StatM = {'HpC','Lvl','EXP','Hp','Str','Skl','Spd','Def','Res','Lck', 'X', 'Y'}; OffstC = {0x11, 0x8, 0x9,0x10, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, 0x0E, 0x0F}; EnemyM = {'Alive','HpC','X','Y'}; OffstM = {0x00,0x11,0x0E, 0x0F}; Matcher = {}; newcount = 0; for checks = 0,0x3D,1 do Matcher[checks] = {}; for i = 1,12,1 do Matcher[checks][i] = memory.readbyte(CharacterStore+OffstC[i]+checks*0x48); end; end; Estats = {}; for checks = 0,49,1 do Matcher[checks+0x3E] = {}; if memory.readbyte(EnemyStore +0x11+checks*0x48) > 0 then Estats[checks] = {}; Estats[checks][1] = false; Estats[checks][2] = false; Matcher[checks+0x3E][1] = true; for i = 2,4,1 do Matcher[checks+0x3E][i] = memory.readbyte(EnemyStore+OffstM[i]+checks*0x48); end; else Matcher[checks+0x3E][1] = false; end; end; function nextrng(r1, r2, r3) return AND(XOR(SHIFT(r3, 5), SHIFT(r2, -11), SHIFT(r1, -1), SHIFT(r2, 15)),0xFFFF) end rngbase=0x03000000; RNGCheck = savestate.create(); savestate.save(RNGCheck); Unique = 0; FClist = {}; outsl = {}; RNGList = {}; TempC = {}; TempE = {}; Pstat = {}; outs2l = {}; OfX = 5; OfY = 42; SX = 5; SY = 5; Colors = {}; for curord = 0,BattleCheck-1,1 do savestate.load(RNGCheck); --RNGLOOP for n = 1,curord,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; --PhaseLoop while memory.readbyte(Phase) == 128 do joypad.set(1,key1); key1.start = (not key1.start) or nil; emu.frameadvance(); gui.text(10,10, string.format('%d of %d done.', curord+1, BattleCheck)); end; outs = ""; OldLn = 1; for checks = 0,0x3D,1 do Pstat[checks] = false; for i = 1,11,1 do TempC[i] = memory.readbyte(CharacterStore+OffstC[i]+checks*0x48); end; if Matcher[checks][1] ~= TempC[1] then outs = outs .. string.format(' %d %dHP', checks, TempC[1] - Matcher[checks][1]); if TempC[1] == 0 then Pstat[checks] = true; for k = OldLn,string.len(outs),1 do Colors[k] = false; end; else for k = OldLn,string.len(outs),1 do Colors[k] = true; end; end; OldLn = string.len(outs); end; if Matcher[checks][3] ~= TempC[3] then outs = outs .. string.format(' %d %dXP', checks, TempC[3] - Matcher[checks][3]); for k = OldLn,string.len(outs),1 do Colors[k] = true; end; OldLn = string.len(outs); end; if Matcher[checks][2] ~= TempC[2] then outs = outs .. string.format(' %d +%dLvl', checks, TempC[2] - Matcher[checks][2]); for j = 4,10,1 do outs = outs .. string.format(' %d %d%s', checks, TempC[j] - Matcher[checks][j],StatM[j]); end; for k = OldLn,string.len(outs),1 do Colors[k] = true; end; OldLn = string.len(outs); end; end; for checks = 0,49,1 do for i = 2,4,1 do TempC[i] = memory.readbyte(CharacterStore+OffstM[i]+(checks+0x3E)*0x48); end; if Matcher[checks+0x3E][1] then Estats[checks][1] = false; Estats[checks][2] = false; if Matcher[checks+0x3E][2] ~= TempC[2] then outs = outs .. string.format(' E%d %dHP', checks, TempC[2] - Matcher[checks+0x3E][2]); if TempC[2] == 0 then Estats[checks][1] = true; for k = OldLn,string.len(outs),1 do Colors[k] = false; end; else for k = OldLn,string.len(outs),1 do Colors[k] = true; end; end; OldLn = string.len(outs); end; if (Matcher[checks+0x3E][3] ~= TempC[3]) or (Matcher[checks+0x3E][4] ~= TempC[4]) then Estats[checks][2] = true; Estats[checks][3] = Matcher[checks+0x3E][3]; Estats[checks][4] = Matcher[checks+0x3E][4]; Estats[checks][5] = TempC[3]; Estats[checks][6] = TempC[4]; end; end; end; FC = movie.framecount() - StartF; IsUnique = true; for n = 1,Unique,1 do if FClist[n] == FC and outsl[n] == outs then IsUnique = false; end; end; if IsUnique then -- emu.speedmode('normal'); Unique = Unique + 1; FClist[Unique] = FC; outsl[Unique] = outs; for i = 1,50,1 do gui.drawbox(0,0,320,240,'black','black'); tx = 1; ty = 1; for j = 1,string.len(outs),1 do if Colors[j-1] then gui.text(tx,ty,string.sub(outs,j,j)); else gui.text(tx,ty,string.sub(outs,j,j),'red'); end; tx = tx + 4; if tx > 238 then tx = 1; ty = ty + 9; end; end; gui.drawbox(2,40,200,158, 'black','white'); gui.text(1,32,string.format("FC: %d Dist: +%d Rx00 = %04X Rx02 = %04X Rx04 = %04X", FC, curord, R[0],R[1],R[2])); --gui.text(163,49,"Dist: +" .. curord); --gui.text(163,58,"Rx00 = " .. R[0]); --gui.text(163,67,"Rx02 = " .. R[1]); --gui.text(163,76,"Rx02 = " .. R[2]); for checks = 0,0x3D,1 do if Matcher[checks][1] > 0 then if Pstat[checks] then X = Matcher[checks][11]; Y = Matcher[checks][12]; gui.drawbox(OfX+SX*X,SY*Y+OfY,OfX+SX*X+3,SY*Y+3+OfY,'Green','Blue'); else X = Matcher[checks][11]; Y = Matcher[checks][12]; gui.drawbox(OfX+SX*X,SY*Y+OfY,OfX+SX*X+3,SY*Y+3+OfY,'Green','Green'); end; end; end; for checks = 0,49,1 do if Matcher[checks+0x3E][1] then if Estats[checks][2] then X1 = OfX+SX*Estats[checks][3]+2; Y1 = OfY+SY*Estats[checks][4]+2; X2 = OfX+SX*Estats[checks][5]+2; Y2 = OfY+SY*Estats[checks][6]+2; gui.drawline(X1,Y1,X2,Y1,'blue'); gui.drawline(X2,Y1,X2,Y2,'blue'); if Estats[checks][1] then X = Estats[checks][5]; Y = Estats[checks][6]; gui.drawbox(OfX+SX*X,SY*Y+OfY,OfX+SX*X+3,SY*Y+3+OfY,'Red','Blue'); else X = Estats[checks][5]; Y = Estats[checks][6]; gui.drawbox(OfX+SX*X,SY*Y+OfY,OfX+SX*X+3,SY*Y+3+OfY,'Red','Red'); end; else if Estats[checks][1] then X = Matcher[checks+0x3E][3]; Y = Matcher[checks+0x3E][4]; gui.drawbox(OfX+SX*X,SY*Y+OfY,OfX+SX*X+3,SY*Y+3+OfY,'Red','Blue'); else X = Matcher[checks+0x3E][3]; Y = Matcher[checks+0x3E][4]; gui.drawbox(OfX+SX*X,SY*Y+OfY,OfX+SX*X+3,SY*Y+3+OfY,'Red','Red'); end; end; end; end; emu.frameadvance(); end; print("#".. Unique .. " unique - Distance: " .. curord); gdstr = gui.gdscreenshot(); SS = string.format('C:\\FE\\RNG%d.png',curord); gd.createFromGdStr(gdstr):png(SS); -- emu.speedmode('maximum'); end; end;
