Jump to content
This Topic

Pokemon B/W Lua scripts

Kaphotics
 Share

Recommended Posts

Kaphotics

Kaphotics

Posted
Posted (edited)

5th Gen RNG Suite

fStBT.png

it displays stuff for copypasting in the console window!

-- General Parameters for current game and setup (english)
local game=0				-- 0 for white, 1 for black
local rng=0x02216244-0x20*game		-- PRNG Seed Location
local mtrng=0x02215374-0x20*game	-- Mersenne Twister Table Top
local mac=0x123456			-- MAC Address of Emulator
local pos_m=0x0224F92C-0x20*game	-- Map Position -> XYZ
local storage=0x02000200
local trackcgear=0 				-- 0 on, 1 off; disable for Standard Abuse, enable for Entralink Abuse
local research=0 				-- 0 on, 1 off; only enable for dev features (unneeded)

-- Setup Terminology abbreviations; from FractalFusion
local bnd,br,bxr=bit.band,bit.bor,bit.bxor
local rshift, lshift=bit.rshift, bit.lshift
local mdword=memory.readdwordunsigned
local mword=memory.readwordunsigned
local mbyte=memory.readbyteunsigned
local wdword=memory.writedword

-- Setup initial variables, rest of script detection will take care of them
local initl=0
local inith=0
local initm=0
local adv=0
local jump1=0
local jump2=0
local jump3=0
local jump4=0
local jump5=0
local jump6=0
local jump7=0
local jump8=0
local jump9=0
local jump10=0
local jump11=0
local jump12=0
local jump13=0
local jump14=0
local jump15=0
local jump16=0
local jump17=0
local jump18=0
local jump19=0
local jump20=0
local total=0
local last=0
local lastm=0
local lmtp=0
local steptable=0
local mtf=0
local mttrack=0
local nextmt=0
local second=0
local minute=0
local hour=0
local cgearoff=0
local cachevalue=0
local notrestored=0
local wasrestored=0

-- S frame detection function; works off of seeing how many times the lower half was advanced
-- Lua sucks and only allows 16 bit multiplication, so 32 bit multiplication can't be used
-- The lower seed is advanced as follows, if observed as a standalone 32 bit number:
-- SEED1 = (0x6C078965 * SEED1) + 0x00269EC3; from Kazo
function next(s)
local a=0x6C07*(s%65536)+rshift(s,16)*0x8965
local b=0x8965*(s%65536)+(a%65536)*65536+0x00269EC3
local c=b%4294967296
return c
end

-- To predict Mersenne advancement, it's a little harder. Copied and adapted pre-existing Lua
-- http://code.google.com/p/gocha-tas/source/browse/trunk/Scripts/mt19937.lua?r=117
-- Mersenne Twister: A random number generator
-- ported to Lua by gocha, based on mt19937ar.c
module("mt19937", package.seeall)

require "bit"

-- Period parameters
local N = 624
local M = 397
local MATRIX_A = 0x9908b0df   -- constant vector a
local UPPER_MASK = 0x80000000 -- most significant w-r bits
local LOWER_MASK = 0x7fffffff -- least significant r bits

local mt = {}     -- the array for the state vector
local mti = N + 1 -- mti==N+1 means mt[N] is not initialized

-- initializes mt[N] with a seed
function randomseed(s)
   s = bit.band(s, 0xffffffff)
   mt[1] = s
   for i = 1, N - 1 do
       -- s = 1812433253 * (bit.bxor(s, bit.rshift(s, 30))) + i
       s = bit.bxor(s, bit.rshift(s, 30))
       local s_lo = bit.band(s, 0xffff)
       local s_hi = bit.rshift(s, 16)
       local s_lo2 = bit.band(1812433253 * s_lo, 0xffffffff)
       local s_hi2 = bit.band(1812433253 * s_hi, 0xffff)
       s = bit.bor(bit.lshift(bit.rshift(s_lo2, 16) + s_hi2, 16),
           bit.band(s_lo2, 0xffff))
       -- s = bit.band(s + i, 0xffffffff)
       local s_lim = -bit.tobit(s)
       -- assumes i<2^31
       if (s_lim > 0 and s_lim <= i) then
           s = i - s_lim
       else
           s = s + i
       end
       mt[i+1] = s
       -- See Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier.
       -- In the previous versions, MSBs of the seed affect
       -- only MSBs of the array mt[].
       -- 2002/01/09 modified by Makoto Matsumoto
   end
   mti = N
end

local mag01 = { 0, MATRIX_A }   -- mag01[x] = x * MATRIX_A  for x=0,1

-- generates a random number on [0,0xffffffff]-interval
function random_int32()
   local y

   if (mti >= N) then -- generate N words at one time
       local kk

       if (mti == N + 1) then -- if init_genrand() has not been called,
           mt19937.randomseed(5489) -- a default initial seed is used
       end

       for kk = 1, N - M do
           y = bit.bor(bit.band(mt[kk], UPPER_MASK), bit.band(mt[kk+1], LOWER_MASK))
           mt[kk] = bit.bxor(mt[kk+M], bit.rshift(y, 1), mag01[1 + bit.band(y, 1)])
       end
       for kk = N - M + 1, N - 1 do
           y = bit.bor(bit.band(mt[kk], UPPER_MASK), bit.band(mt[kk+1], LOWER_MASK))
           mt[kk] = bit.bxor(mt[kk+(M-N)], bit.rshift(y, 1), mag01[1 + bit.band(y, 1)])
       end
       y = bit.bor(bit.band(mt[N], UPPER_MASK), bit.band(mt[1], LOWER_MASK))
       mt[N] = bit.bxor(mt[M], bit.rshift(y, 1), mag01[1 + bit.band(y, 1)])

       mti = 0
   end

   y = mt[mti+1]
   mti = mti + 1



   return y
end

function random(...)
   -- local r = mt19937.random_int32() * (1.0/4294967296.0)
   local rtemp = mt19937.random_int32()
   local r = (bit.band(rtemp, 0x7fffffff) * (1.0/4294967296.0)) + (bit.tobit(rtemp) < 0 and 0.5 or 0)
   local arg = {...}
   if #arg == 0 then
       return r
   elseif #arg == 1 then
       local u = math.floor(arg[1])
       if 1 <= u then
           return math.floor(r*u)+1
       else
           error("bad argument #1 to 'random' (internal is empty)")
       end
   elseif #arg == 2 then
       local l, u = math.floor(arg[1]), math.floor(arg[2])
       if l <= u then
           return math.floor((r*(u-l+1))+l)
       else
           error("bad argument #2 to 'random' (internal is empty)")
       end
   else
       error("wrong number of arguments")
   end
end

-- Lua script begin!
while true do
wdword(storage,1)
-- setup every loop
seed2=mdword(rng+4)
seed1=mdword(rng)
adv=0
test=last
mtv=mdword(mtrng)
mtp=mdword(mtrng+0x9C0)
delay=mdword(0x02FFFC3C)
timehex=mdword(0x023FFDEC)
datehex=mdword(0x023FFDE8)
hour=string.format("%02X",(timehex%0x100)%0x40)				-- memory stores as decimal, but Lua reads as hex. Convert.
minute=string.format("%02X",(rshift(timehex%0x10000,8)))
second=string.format("%02X",(mbyte(0x02FFFDEE)))
year=string.format("%02X",(mbyte(0x02FFFDE8)))
month=string.format("%02X",(mbyte(0x02FFFDE9)))
day=string.format("%02X",(mbyte(0x02FFFDEA)))

-- display seeds every loop
gui.text(1,10,string.format("Current: %08X%08X",seed2,seed1))
gui.text(1,180,string.format("Initial: %08X%08X",inith,initl))
gui.text(1,170, string.format("M: %d, X: %d, Y: %d, Z: %d", mword(pos_m), mword(pos_m+0x6), mword(pos_m+0xE), mword(pos_m+0xA)))

-- Check to see if the RNG advanced from the last value
while seed1~=0 and seed2~=0 and delay > 2 do
	if adv>200 then -- RNG advanced a bunch, or the game/script was reset. Reset variables then stop loop.
		steptable=0
		adv  =0
		jump1=0
		jump2=0
		jump3=0
		jump4=0
		jump5=0
		jump6=0
		jump7=0
		jump8=0
		jump9=0
		jump10=0
		jump11=0
		jump12=0
		jump13=0
		jump14=0
		jump15=0
		jump16=0
		jump17=0
		jump18=0
		jump19=0
		jump20=0
		if mdword(storage)==1 and delay>3 and mdword(storage+0x4*2)~=0 then
			print(""..string.format("Restoring session. Please Wait..."))
			steptable=mdword(storage+0x4*1)				-- restore mt
			initm=mdword(storage+0x4*2)
			lastm=mdword(storage+0x4*7)
			randomseed(initm)
			i=624*steptable+1
			while i>0 do								-- restore internal mt frame
					nextmt=math.floor(random_int32())
					i=i-1	
			end

			mttrack=1									-- turn on tracking

			inith=mdword(storage+0x4*4)					-- restore PRNG
			initl=mdword(storage+0x4*3)

			cacheseed=mdword(storage+0x4*5)
			cachevalue=mdword(storage+0x4*6)
			lastm=mtv
			mtv=lastm
			lmtp=mtp

			if initm==0 or inith==0 or initl==0 then 
				print(""..string.format("Save state's session did not start with script.")) 
				print(""..string.format("Either load a valid save state or resume with this one."))
				initl=mdword(rng)						-- reset to session
				inith=mdword(rng+4)
				mttrack=0
				emu.pause()
				total=0
				steptable=0
				mtf=0
				lmtp=mtp
				steptable=0
			else
				print(""..string.format("PRNG: %08X%08X",inith,initl)) 
				print(""..string.format("MTRNG: %08X", initm))
				last=cacheseed
				total=cachevalue							-- restored frame
			end
			cgearoff=mdword(storage+0x4*8)			-- remember if c-gear was turned on or not
			notrestored=1
			wasrestored=1
		elseif initm==inith then
			print(""..string.format("Game Reset. Re-initializing."))
			total=0
			steptable=0
			mtf=0
			lmtp=mtp
			initl=mdword(rng)
			inith=mdword(rng+4)
			initm=mdword(mtrng)
			if inith>0x7FFFFFFF then wdword(storage+0x4*4,inith-0x100000000) else wdword(storage+0x4*4,inith) end  -- dumb storage problems, have to make sure they are recognized as the right number type before storage
			if initl>0x7FFFFFFF then wdword(storage+0x4*3,initl-0x100000000) else wdword(storage+0x4*3,initl) end
			if initm>0x7FFFFFFF then wdword(storage+0x4*2,initm-0x100000000) else wdword(storage+0x4*2,initm) end
			lastm=initm
			randomseed(initm)
			mttrack=1						-- enable mersenne tracking
			nextmt=random_int32()			-- get first untempered mersenne value, this is the value that will replace the MTRNG seed in the memory when the table is redone
			cgearenoff=0
			wasrestored=0

		print(""..string.format("Session Initial Seed: %08X%08X",inith,initl)) 
		--print(""..string.format("Next: %08X", nextmt)) -- debug

		-- see if initial seeding happened (high32=mtseed)
			mttrack=1					-- enable tracking
			print(""..string.format("Initial Seeding Detected. MTRNG Seed: %08X", initm))
		else	
			print(""..string.format("Foreign Save State Detected, or Restart didn't refresh. Reset again."))
			total=0
			steptable=0
			mtf=0
			lmtp=mtp
			initl=mdword(rng)
			inith=mdword(rng+4)
			initm=mdword(mtrng)
			if inith>0x7FFFFFFF then wdword(storage+0x4*4,inith-0x100000000) else wdword(storage+0x4*4,inith) end
			if initl>0x7FFFFFFF then wdword(storage+0x4*3,initl-0x100000000) else wdword(storage+0x4*3,initl) end
			if initm>0x7FFFFFFF then wdword(storage+0x4*2,initm-0x100000000) else wdword(storage+0x4*2,initm) end
			lastm=initm
			randomseed(initm)
			mttrack=0						-- disable mersenne tracking
			nextmt=random_int32()			-- get first untempered mersenne value, this is the value that will replace the MTRNG seed in the memory when the table is redone
			cgearenoff=0
			wasrestored=0
		end
		print(""..string.format(""))	-- Visual Line to separate.
		break 

	elseif test~=seed1 then 			-- RNG advanced at least once. Lets advance once and repeat the loop.
		test=next(test)
		adv=adv+1

	elseif test==seed1 then 
		if adv > 0 then 				-- Refresh Frame Advancement Table if there's more than one advancement this frame.
			jump20=jump19
			jump19=jump18
			jump18=jump17
			jump17=jump16
			jump16=jump15
			jump15=jump14
			jump14=jump13
			jump13=jump12
			jump12=jump11
			jump11=jump10
			jump10=jump9
			jump9=jump8
			jump8=jump7
			jump7=jump6
			jump6=jump5
			jump5=jump4
			jump4=jump3
			jump3=jump2
			jump2=jump1
			jump1=adv 
		end								
		break 							-- last frame's advanced RNG value matches the current. Stop loop.
	end
end


gui.text(180,10,string.format("%d/%d/%d",month,day,2000+year))					-- Display Date
gui.text(180,19,string.format("%02d:%02d:%02d",hour,minute,second,delay))		-- Display Time

-- Check to see if the MTRNG changed, only if tracking is enabled.
if mttrack==1 and notrestored == 0 then
	if (lmtp>mtp and delay > 50 and notrestored==0) or (lmtp==mtp and lastm~=mtv) then
			strmtv=string.format("%08X",mtv)		-- Mersenne Twister untempered is in one format while the memory is in another
			strnmt=string.format("%08X",nextmt)		-- Convert to a string hex so that they can be equated when their decimal isn't
		if strmtv~=strnmt  then 					-- New untempered table value isn't as predicted, so the c-gear was turned on!
			mttrack=1 
			-- print(strmtv,strnmt,string.format("%08X",lastm)) -- debug for bad initialize
			if wasrestored==1 then print(""..string.format("Earlier restoration may have failed. Double Check.")) print(""..string.format("If C-Gear was just turned on this frame, ignore.")) print(""..string.format("")) wasrestored=0 end
			-- mttrack=0
			--else 
			print(""..string.format("C-Gear turned on. Determining C-Gear Seed and restarting tracking.")) 
			steptable=1
			wdword(storage+0x4*1, steptable)
			-- Finding the C-Gear seed you hit
			-- Load Time Values
				hour=string.format("%02X",(timehex%0x100)%0x40)				-- Memory stores as decimal, but Lua reads as hex. Convert.
				minute=string.format("%02X",(rshift(timehex%0x10000,8)))
				second=string.format("%02X",(mbyte(0x02FFFDEE)))
				year=string.format("%02X",(mbyte(0x02FFFDE8)))
				month=string.format("%02X",(mbyte(0x02FFFDE9)))
				day=string.format("%02X",(mbyte(0x02FFFDEA)))
						ab=(month*day+minute+second)%256
						cd=hour
						cgd=delay%65536-1									-- Delay from a frame before is used.
						abcd=ab*0x100+cd
						efgh=(year+cgd)%0x10000
						tempcgear=(ab*0x1000000+cd*0x10000+efgh+mac)%0x100000000
				randomseed(tempcgear)
				trialseed=random_int32()
				tempcgearuntemp=string.format("%08X",trialseed)
				if strmtv~=tempcgearuntemp then
					second=second-1					-- Subtract a second to check a different set.
					if second < 0 then				-- Balaning minutes
						second=59
						minute=minute-1				
						if minute<0 then			-- Balancing Hours
							minute=59
							hour=hour-1
						end
					end
					ab=(month*day+minute+second)%256	-- Rebuild seed, try again.
					cd=hour
					abcd=ab*0x100+cd
					efgh=(year+cgd)%0x10000
					tempcgear=(ab*0x1000000+cd*0x10000+efgh+mac)%0x100000000
					randomseed(tempcgear)
					trialseed=random_int32()
					tempcgearuntemp=string.format("%08X",trialseed)
				end

				initm=tempcgear
				print(""..string.format("C-Gear Seed: %08X    Delay: %d",tempcgear,cgd))
				print(""..string.format(""))				-- Visual Blank Line
				cgearenabled=2
				wdword(storage+0x4*8,cgearenabled)					
				if initm>0x7FFFFFFF then wdword(storage+0x4*2,initm-0x100000000) else wdword(storage+0x4*2,initm) end
				i=0
				while i~=624 do								-- get the next untempered for the cgear
					nextmt=math.floor(random_int32())
					i=i+1
				end --end
		else												-- untempered is as predicted -> predict next one for when the time rolls around

			i=0
			while i~=624 do									-- do 624 iterations to build the remaining 623 and the first of the next.
				nextmt=math.floor(random_int32())
				i=i+1
			end
		--print(""..string.format("Next: %08X", nextmt)) 	-- debug



			steptable=steptable+1 							-- mersenne twister has a new table as the counter is reset to 0; tables++

			wdword(storage+0x4*1, steptable)				-- save state storage of table refreshes
		end
	end
gui.text(1,160,string.format("MTRNG Seed: %08X",initm))
gui.text(1,150,string.format("Frame: %d",mtf))
-- gui.text(1,38,string.format("next mt: %08X", nextmt)) -- debug
end


-- Advancement Tracking for the PRNG and Mersenne Twister
total=adv+total										-- total advancements = advancements on this frame + total advancements from previous frames
if total-cachevalue>200 then						-- check to see if we should refresh the cached value
	cachevalue=total
end
mtf=mtp+(steptable-1)*624							-- Mersenne Twister Frame = Pointer Value + (TableRefresh-1)*624 ; this accounts for the initial value of 0x270 which is actually zero

gui.text(1,19,string.format("Frame: %d", total))	-- Display PRNG Frame; total advancements since the initial seed

-- If the user specifies they want to use the C-Gear
if trackcgear==0 then											-- C-Gear Seed Generation Loop
	ab=(month*day+minute+second)%256							-- Build Seed
	cd=hour
	cgd=delay%65536+1
	abcd=ab*0x100+cd
	efgh=(year+cgd)%0x10000
	betaseed=ab*0x1000000+cd*0x10000+efgh						-- Seed before MAC applied
	cgearseed=betaseed+mac										-- Seed after MAC applied, return this value.
gui.text(1,130,string.format("Next C-Gear: %08X",cgearseed))	-- Display the C-Gear Seed of the next frame
gui.text(1,140,string.format("Delay: %d", delay))				-- Display Current Delay
elseif cgearenabled==2 then
	gui.text(1,130,string.format(" C-GEAR WAS TURNED ON: SEE NEW MTRNG SEED"))
end

-- If user specifies they want to see the frame advancement chart
if research==0 then									-- Display framebased advancement table
gui.text(1,37,string.format("%d", jump1)) gui.text(1,46,string.format("%d", jump2)) gui.text(1,55,string.format("%d", jump3)) gui.text(1,64,string.format("%d", jump4))
gui.text(1,73,string.format("%d", jump5)) gui.text(1,82,string.format("%d", jump6)) gui.text(1,91,string.format("%d", jump7)) gui.text(1,100,string.format("%d", jump8))
gui.text(1,109,string.format("%d", jump9)) gui.text(1,118,string.format("%d", jump10)) gui.text(20,37,string.format("%d", jump11)) gui.text(20,46,string.format("%d", jump12)) 
gui.text(20,55,string.format("%d", jump13)) gui.text(20,64,string.format("%d", jump14))	gui.text(20,73,string.format("%d", jump15))	gui.text(20,82,string.format("%d", jump16)) 
gui.text(20,91,string.format("%d", jump17)) gui.text(20,100,string.format("%d", jump18)) gui.text(20,109,string.format("%d", jump19)) gui.text(20,118,string.format("%d", jump20))
end

-- Set Up variables for next frame's pass
lmtp=mtp
last=seed1
lastm=mtv
if lastm>0x7FFFFFFF then wdword(storage+0x4*7,lastm-0x100000000) else wdword(storage+0x4*7,lastm) end
	wdword(storage+0x4*6,total)
			if seed1>0x7FFFFFFF then wdword(storage+0x4*5,seed1-0x100000000) else wdword(storage+0x4*5,seed1) end

notrestored=0
-- End Lua
emu.frameadvance() 
end

still may have some bugs to work out, however it's pretty much done

edit: Added C-Gear detection and it will properly track the frames if you turn on the C-Gear. It also tells you what C-Gear seed you hit in addition to delay in the Console. The value that seeds the MTRNG is displayed on the HUD (changed from only displaying the initial seed from the start of the game).

edit2: fixed bugs and allowed people to turn off the frame chart and C-Gear prediction. dubbed "research" and "trackcgear"

different from image: frame advancement chart is displayed only by turning on research mode, and it's more collapsed than above (changed). c-gear tracking and research is by default off

--

edit3: added save state support

old version without state support:

  Reveal hidden contents

not adding the part that tracks battle RNG, for obvious reasons ;)

Edited by Kaphotics
typos, added black support
Bond697

Bond697

Posted
Posted

i've been using this to watch the rng:

while true do
gui.text(1,185, string.format("%08X  %08X", memory.readdword(0x02216248), memory.readdword(0x02216244)))
emu.frameadvance()
end

lua is using windows' definition of a word when it runs, so you need to define a 32-bit value as a dword. also, for anyone who wants to try this out and isn't aware, the string.format method is really close to printf(), so you can use the variable definitins and other stuff for string.format(). for example, "%08X" is a capital letter hex value 8 digits large. "%08x" is the same thing but with lower case hex values, "%08u" is unsigned decimal, etc

  • 1 month later...
RedJiggly

RedJiggly

Posted
Posted

I wonder... could the coordinate script maybe be used to create a world map of black and white? Something like: every time the coordinates change, save a new picture of the screen with the specified coordinates in the name? And then, by having some other script (maybe in LUA, or maybe in some completely other language) try to merge all these pictures together(i.e., grab the picture with the lowest X and Y, and then get the picture with the X and Y that are the second-lowest, and add that picture on top of the old one at X minus lowestX and Y minus lowestY, and so on.)

  • 8 months later...
Kaphotics

Kaphotics

Posted
  • Author
Posted (edited)

rng helper -- very old version. see first post for most up to date

PzWXH.png

-- RNG location for current game (English White)
local rng=0x02216244

-- setup terminology abbreviations
local rshift=bit.rshift
local mdword=memory.readdwordunsigned

-- setup initial variables = 0, rest of script detection will take care of them
local initl=0
local inith=0
local adv=0
local total=0
local last=0
local jump1=0

-- setup frame detection function
function next(s)
local a=0x6C07*(s%65536)+rshift(s,16)*0x8965
local b=0x8965*(s%65536)+(a%65536)*65536+0x00269EC3
local c=b%4294967296
return c
end

-- Lua script begin!
while true do

-- setup every loop
seed2=mdword(rng+4)
seed1=mdword(rng)
adv=0
test=last

-- display seeds every loop
gui.text(1,10,string.format("Current: %08X%08X",seed2,seed1))
gui.text(1,180,string.format("Initial: %08X%08X",inith,initl))
gui.text(180,10,string.format("Delay: %d", mdword(0x023FFC3C)))
gui.text(1,170, string.format("M: %d, X: %d, Y: %d, Z: %d", memory.readword(0x0224F92C), memory.readword(0x0224F932,2), memory.readword(0x0224F93A), memory.readword(0x0224F936))) -- copied from map coord Lua


-- check to see if the RNG advanced from the last value
while seed1~=0 and seed2~=0 do
	if adv>200 then -- RNG advanced a bunch. Reset script then stop loop.
		print(""..string.format("Detected a reset or massive advancement. Re-initializing."))
		adv  =0
		total=0
		jump1=0
		initl=mdword(rng)
		inith=mdword(rng+4)	
		print(""..string.format("Session Initial Seed: %08X%08X",inith,initl)) 
		break 

	elseif test~=seed1 then -- RNG advanced at least once. Lets advance once and repeat the loop.
		test=next(test)
		adv=adv+1
		jump1=adv

	elseif test==seed1 then break -- last frame's advanced RNG value matches the current. Stop loop.
	end
end

-- advancement tracking
total=adv+total
gui.text(1,19,string.format("Frame: %d", total))
gui.text(1,28,string.format("Jump: %d", jump1))
last=seed1

emu.frameadvance() 
end

main use is that it tracks RNG frames after keeping the seeds from the moment the script starts.

it grabs the initial seed when the game is reset, or the first seed it can find and keeps it stored as long as the script runs.

I may have it write the initial seeds it gets to somewhere so that upon loading a save state it can find and re-determine the frame (session preservation), but this was just for fun

Edited by Kaphotics
Kaphotics

Kaphotics

Posted
  • Author
Posted (edited)

Map Coordinates

  Reveal hidden contents
Edited by Kaphotics
moved suite to top, map position to this post
  • 1 month later...
Waitress_Tsubame

Waitress_Tsubame

Posted
Posted

Kinda weird why when I use the above lua script from the first post, the numbers stacked vertically in 2 columns remained zero in my Desmume.

And also the frame value is still 0 :/

BTW, kinda a bit unrelated, but is there a lua script for HGSS?

  • 2 months later...
Kaphotics

Kaphotics

Posted
  • Author
Posted (edited)

B2W2 Zonedata / Map Coordinates

uSbDT.png

Notes:

L toggles the raw zonedata display on/off. (default Q in DeSmuME)

  Reveal hidden contents
Edited by Kaphotics
  • 2 months later...
Kaphotics

Kaphotics

Posted
  • Author
Posted (edited)

B2/W2 Script Parser

Reads the memory of the game and translates the script language to meaningful instructions similar to XSE and other scripting programs.

I primarily made the script to help me see how commands are used and help further our understanding of each command. No, it does not make the scripts, only interprets the hex.

  Reveal hidden contents

Some examples of what it creates in the Console window:

http://pastebin.com/raw.php?i=72nRf1aa

http://pastebin.com/raw.php?i=fRBaRPkv

http://pastebin.com/raw.php?i=gMRLPeuR

http://pastebin.com/raw.php?i=TpgbtWnF

To use it, the script file must be already loaded in game. Talk to an NPC that uses a script from the script file so that the game will have it loaded in the memory. Some locations don't work, I've only tested it indoors.

I'll be updating it when I get time, school comes first :) Unknown/Un-programmed commands can throw off the parse so in general don't trust anything when it starts reporting hex.

Edited by Kaphotics
  • 2 months later...
Kaphotics

Kaphotics

Posted
  • Author
Posted (edited)

Overworld Editing for BW/B2W2

5dA9V.jpg

Edits a single memory value of all overworlds of a certain type (say NPC->Overworld Sprite) to help the user position/assign overworlds properly. Pretty useful in finding out overworld sprite values. Enable (and keep on) before a fade2black map change, not a seamless route change. Even though the pic is B2W2, it works in BW. Current setup is to edit the sprite of all overworld NPCs.

  Reveal hidden contents

Event Script writer for BW & B2/W2

b9504.jpg

Replaces the first script of the current map with a customized event script. Be sure the current event script file is loaded before enabling in order to write to the proper area.

Allows a user to test an event script in real time, and change up instructions on the fly rather than tinker with the ROM. Be sure to buffer the event script file that is being edited with zeroes such that a long custom script won't overwrite other important memory locations. This is how I tested both of

on my YouTube channel.
  Reveal hidden contents
Edited by Kaphotics
  • 3 months later...
BowWave

BowWave

Posted
Posted

Maybe I am dumb...but does the lua script for RNG frame work only on BW 1?

Because I use a similar one but I was looking for one to use on BW2 USA.

  • 1 month later...
  • 2 months later...
  • 2 years later...
shadowofdarkness

shadowofdarkness

Posted
Posted (edited)

I'm trying to find or get working a version of this for White (J) does anyone have one that I could get please?

I have tried modifying this script using the rng and mtrng values from the notable breakpoints page on the wiki for the Japanese versions of the game but it never works.

It reports a seed but it is always wrong and the frames don't track right. Along with it randomly pausing the emulator with the following error.

"Save state's session did not start with script."

"Either load a valid save state or resume with this one."

The only thing I got working right is the map position and that I don't use. I tracked the correct pos_m offset for White (J) on my own. It is pos_m=0x0224F78C which could be useful for other people.

Edited by shadowofdarkness
fix formatting
  • 4 years later...
  • 1 year later...
Hamhub7

Hamhub7

Posted
Posted

Sorry to necro a thread but @Kaphotics I have been scouring the web for zonedata tools for BW1. This is the closest I have found, but it's for BW2. The scripts don't seem to work on the original versions, and I am not skilled enough with the internals of these games to modify the scripts to work on the originals. Do you by any chance have scripts that work for BW1 or could point me in the right direction on how to modify the BW2 ones?

  • Thanks 1

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing
×
×
  • Create New...