User File #637784526224742317

Upload All User Files

#637784526224742317 - Rockman 2 Script to track delay scrolls

rm2delaymod.lua
Game: Mega Man 2 ( NES, see all files )
123 downloads
Uploaded 1/22/2022 12:50 PM by Shinryuu (see all 11)
This scripts helps you to track music position and what frames you need to aim for, as long you understand what you're doing. Written by FinalFighter but I added some colors to it.
-- �f�B���C�X�N���[���x��Lua rev.7
-- �f�B���C�X�N���[�������ɕK�v�Ȋe��l��\������

-- Originally written by FinalFighter
-- Modified by Shinryuu

local pre_nmi_instructions = 0              -- �O��NMI�̏�����
local end_pre_nmi_instructions = 0          -- �O��NMI�̏�����(�I�����j
local pre_nmi_record_flag = false           -- �O��NMI���L�^���邩�ǂ���
local main_instructions = 0                 -- ���C�����[�`���̏�����
local end_main_instructions = 0             -- ���C�����[�`���̏�����(�I�����j
local main_record_flag = false              -- ���C�����[�`�����L�^���邩�ǂ���
local next_nmi_position = 0                 -- �㔼NMI���NMI�����ʒu
local end_next_nmi_position = 0             -- �㔼NMI���NMI�����ʒu�i�I�����j
local next_nmi_record_flag = 0              -- �㔼NMI�̔����ʒu���L�^���邩�ǂ���
local scroll_flag = false                   -- �X�N���[���������ǂ���
local scroll_direction = 0x00               -- �X�N���[������
local scroll_judge_flag = false             -- �X�N���[�����菈���N�������ǂ���
local nmi_mad_area_flag = false             -- NMI�ɂ����Y�����������Ȃ�”\��������o���N�؂�ւ��ӏ��ɂ���Ƃ�
local nmi_mad_y_record_flag = false         -- NMI�ɂ���ċ�����Y�̒l���L�^���邩�ǂ���
local nmi_mad_y = 0                         -- NMI�ɂ���ċ�����Y�̒l
local sound_code_y = 0                      -- �ʏ펞�̃T�E���h�R�[�h
local ret_se_y = 0                          -- �T�E���h�R�[�h�̌��ʐ�����Ɨ\�z�����Y
local stage_number = 0x00                   -- �X�e�[�W�ԍ�
local pre_scroll_instructions = 0           -- �O��ʃX�N���[���ւ̏�����
local pre_scroll_flag = false               -- �O��ʃX�N���[���ւ̏��������L�^���邩
local next_scroll_instructions = 0          -- ����ʃX�N���[���ւ̏�����
local next_scroll_flag = false              -- ����ʃX�N���[���ւ̏��������L�^���邩
local current_begin_screen_instrucitons = 0 -- ��ʍ��[����ւ̏�����
local current_begin_screen_flag = false     -- ��ʍ��[����ւ̏��������L�^���邩

local pre_scroll_position = 0               -- �O��ʃX�N���[���ւ̏�����
local next_scroll_position = 0              -- ����ʃX�N���[���ւ̏�����
local current_begin_screen_position = 0     -- ��ʍ��[����ւ̏�����

local pre_scroll = {}
local next_scroll = {}
local current_begin_screen = {}
local pre_framecount = 0
local next_framecount = 0
local current_begin_framecount = 0
local main_framecount = 0

local old_framecount = 0
local new_framecount = 0

-- �X�e�[�W���Ƃ̃T�E���h�R�[�h�r�b�g�}�X�N�e�[�u��
local se_bitmask = { -- array[14][32]
	{0x47,0x40,0x4a,0x40,0x20,0x20,0x00,0x88,0x80,0x80,0x80,0x80,0x80,0x04,0x00,0x00,
		0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff}, -- HeatMan
	{0x49,0x40,0x28,0x20,0x00,0x45,0x40,0x40,0x40,0x45,0x40,0x40,0x00,0x00,0x00,0xff,
		0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff}, -- AirMan
	{0x44,0x40,0x20,0x20,0x20,0x80,0x80,0x44,0x40,0x40,0x40,0x22,0x20,0x00,0x40,0x40,
		0x40,0x44,0x40,0x40,0x40,0x40,0x22,0x00,0x00,0x00,0xff,0xff,0xff,0xff,0xff,0xff}, -- WoodMan
	{0x44,0x40,0x40,0x40,0x26,0x24,0x20,0x00,0x80,0x80,0x80,0x80,0x80,0x80,0x41,0x40,
		0x40,0x40,0x40,0x23,0x00,0x00,0x00,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff}, -- BubbleMan
	{0x40,0x40,0x40,0x40,0x40,0x40,0x40,0x44,0x40,0x40,0x40,0x40,0x40,0x40,0x40,0x22,
		0x20,0x00,0x00,0x00,0x00,0x00,0x00,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff}, -- QuickMan
	{0x46,0x40,0x40,0x40,0x40,0x40,0x40,0x24,0x20,0x00,0x40,0x40,0x40,0x25,0x00,0x00,
		0x00,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff}, -- FlashMan
	{0x49,0x40,0x28,0x20,0x00,0x00,0x00,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
		0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff}, -- MetalMan
	{0x80,0x80,0x81,0x80,0x80,0x80,0x81,0x80,0x80,0x80,0x80,0x80,0x80,0x80,0x21,0x20,
		0x00,0x00,0x00,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff}, -- CrashMan
	{0x47,0x40,0x4a,0x40,0x20,0x20,0x00,0x88,0x80,0x80,0x80,0x80,0x80,0x04,0x00,0x00,
		0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff}, -- WilyStage1
	{0x49,0x40,0x28,0x20,0x00,0x45,0x40,0x40,0x40,0x45,0x40,0x40,0x00,0x00,0x00,0xff,
		0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff}, -- WilyStage2
	{0x44,0x40,0x20,0x20,0x20,0x80,0x80,0x44,0x40,0x40,0x40,0x22,0x20,0x00,0x40,0x40,
		0x40,0x44,0x40,0x40,0x40,0x40,0x22,0x00,0x00,0x00,0xff,0xff,0xff,0xff,0xff,0xff}, -- WilyStage3
	{0x44,0x40,0x40,0x40,0x26,0x24,0x20,0x00,0x80,0x80,0x80,0x80,0x80,0x80,0x41,0x40,
		0x40,0x40,0x40,0x23,0x00,0x00,0x00,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff}, -- WilyStage4
	{0x40,0x40,0x40,0x40,0x40,0x40,0x40,0x44,0x40,0x40,0x40,0x40,0x40,0x40,0x40,0x22,
		0x20,0x00,0x00,0x00,0x00,0x00,0x00,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff}, -- 8Boss
	{0x46,0x40,0x40,0x40,0x40,0x40,0x40,0x24,0x20,0x00,0x40,0x40,0x40,0x25,0x00,0x00,
		0x00,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff}  -- FinalStage
}


local now_frame	= 0		-- ���[�h���o�̂��߂̃t���[���J�E���g(�V�j
local old_frame	= 0		-- ���[�h���o�̂��߂̃t���[���J�E���g(���j


-- ���ׂĂ̖��ߎ��s�Ɋ��荞��
-- TODO: �̈�����ڂ�A�ꊇ�ŏ������Ȃ��H���̑����ʂȏ��������Ȃ��悤�ȍH�v
memory.registerexec(0x8000, 0x8000, function(address)

	local pc = address -- memory.getregister("pc")
	local b1 = memory.readbyte(pc)

	-- �X�N���[�����邩�ǂ���
	if pc == 0x8196 and b1 == 0xa5 then

		-- $37��ǂ�
		scroll_direction = memory.readbyte(0x37)

		-- ���C�����[�`���L�^�I��
		main_record_flag = false
		end_main_instructions = main_instructions

		if scroll_direction > 0x00 then

			scroll_flag = true

			-- �X�N���[���������̋L�^�J�n
			pre_scroll_flag = true
			next_scroll_flag = true
			current_begin_screen_flag = true
			
			-- C7A1���N�_�Ƃ���̂�+2
			pre_scroll_position = 2
			next_scroll_position = 2
			current_begin_screen_position = 2

			-- ���ɑΏۂƂȂ�NMI���������Ă����ꍇ
			if next_nmi_position < 0 then
				-- �㔼NMI�̔����ʒu�L�^�I��(������)
				next_nmi_record_flag = 0
				end_next_nmi_position = next_nmi_position
			else
				-- �㔼NMI�̔����ʒu���L�^�J�n����(������)
				next_nmi_record_flag = 1
				next_nmi_position = 0
			end
		else

			pre_scroll_position = -1
			next_scroll_position = -1
			current_begin_screen_position = -1
		
			next_nmi_record_flag = 0
			next_nmi_position = 0
		end

	-- �|�[�Y��
	elseif pc == 0xc0ba then

		main_record_flag = false
		next_nmi_record_flag = 0

	-- �X�N���[�����Ȃ������ꍇ�̓X�N���[�����Ȃ������Ƃ��Ɠ��������ɂ���
	elseif pc == 0x82cc then

		scroll_flag = false

	-- NMI�J�n
	elseif pc == 0xcfed then

		if scroll_direction == 0x00 or not scroll_flag then

			-- �O��NMI�L�^�J�n
			pre_nmi_record_flag = true
			pre_nmi_instructions = 0

		end

		if scroll_direction ~= 0x00 then

			-- �㔼NMI�̔����ʒu���L�^�I������(������)
			next_nmi_record_flag = 0
			end_next_nmi_position = next_nmi_position

			if(pre_scroll[pre_framecount] == true)then
				pre_scroll[pre_framecount] = next_nmi_position - pre_scroll_position
			end
			if(next_scroll[next_framecount] == true)then
				next_scroll[next_framecount] = next_nmi_position - next_scroll_position
			end
			if(current_begin_screen[current_begin_framecount] == true)then
				current_begin_screen[current_begin_framecount] = next_nmi_position - current_begin_screen_position
			end

			if next_nmi_position < 0 then
				next_nmi_position = 0
			end

		end

	-- NMI�I��
	elseif pc == 0xd0d3 then

		if scroll_direction == 0x00 or not scroll_flag then

			-- ���C�����[�`������NMI����
			if main_record_flag then

				-- �㔼NMI�̔����ʒu���L�^�J�n����(�������j
				next_nmi_record_flag = -1
				next_nmi_position = 0

			end

			-- �O��NMI�L�^�I��
			pre_nmi_record_flag = false
			end_pre_nmi_instructions = pre_nmi_instructions

			if next_nmi_record_flag ~= -1 then

				-- ���C�����[�`���L�^�J�n
				main_record_flag = true
				main_instructions = 0

			end

		end

		if scroll_direction ~= 0x00 then

			-- �X�N���[���������蒆�̓���̃G���A��NMI����
			if scroll_judge_flag then
				if nmi_mad_area_flag then
					nmi_mad_y_record_flag = true
				end
			end
		end

	-- �X�N���[�����菈���J�n
	elseif (pc == 0x8286 and b1 == 0x88) or (pc == 0x829c and b1 == 0xa4) or pc == 0x8ee7 then

		scroll_judge_flag = true
		nmi_mad_y_record_flag = false


		-- �O��ʃX�N���[��
		if pc == 0x8286 then
			pre_scroll_flag = false
			pre_framecount = movie.framecount()

			if (next_nmi_record_flag == 0) then
				pre_scroll[pre_framecount] = next_nmi_position - pre_scroll_position
			else
				pre_scroll[pre_framecount] = true
			end

		-- ����ʃX�N���[��
		elseif pc == 0x829c then
			next_scroll_flag = false
			next_framecount = movie.framecount()

			if (next_nmi_record_flag == 0) then
				next_scroll[next_framecount] = next_nmi_position - next_scroll_position
			else
				next_scroll[next_framecount] = true
			end

			-- �O��ʃX�N���[�������ʂ��Ă��Ȃ�
			if pre_scroll_flag then
				pre_scroll_flag = false
				pre_scroll[pre_framecount] = false
			end

			-- $14���菈���͒ʂ�Ȃ�
			current_begin_screen_flag = false
			current_begin_screen_position = -1
			current_begin_screen[next_framecount] = false

		-- ��ʍ��[����
		elseif pc == 0x8ee7 then
			current_begin_screen_flag = false
			current_begin_framecount = movie.framecount()

			if (next_nmi_record_flag == 0) then
				current_begin_screen[current_begin_framecount] = next_nmi_position - current_begin_screen_position
			else
				current_begin_screen[current_begin_framecount] = true
			end
			
			-- ����ʃX�N���[������͒ʂ�Ȃ�
			next_scroll_flag = false
			next_scroll_position = -1
			next_scroll[next_framecount] = false
		end

	-- �X�N���[�����菈���I��
	elseif pc == 0x828a or (pc == 0x82a1 and b1 == 0x98) or pc == 0x8eec then

		scroll_judge_flag = false

	-- �X�N���[�������I����܂��́A���S�̏ꍇ
	elseif pc == 0x819d or pc == 0x82c5 then

		-- �O��ʃX�N���[�������ʂ��Ă��Ȃ�
		if pre_scroll_flag then
			pre_scroll_flag = false
			pre_scroll_position = -1
		end

		-- ����ʃX�N���[�������ʂ��Ă��Ȃ�
		if next_scroll_flag then
			next_scroll_flag = false
			next_scroll_position = -1
		end

		-- ��ʍ��[���菈����ʂ��Ă��Ȃ�
		if current_begin_screen_flag then
			current_begin_screen_flag = false
			current_begin_screen_position = -1
		end

	-- ������NMI�����������Y�������”\��������G���A�J�n
	elseif pc == 0xc006 then

		nmi_mad_area_flag = true

	-- ������NMI�����������Y�������”\��������G���A�I��
	elseif pc == 0xc019 then

		nmi_mad_area_flag = false

	-- �X�N���[������I��
	elseif pc == 0xc7b1 then

		-- �ُ킪��������Y���L�^
		if nmi_mad_y_record_flag then
			nmi_mad_y_record_flag = false
			nmi_mad_y = memory.getregister("y")
		end

	-- �T�E���h�R�[�h�o��
	elseif pc == 0xd0c0 then

		-- �X�e�[�W�ԍ��擾
		stage_number = memory.readbyte(0x2A)

		-- �T�E���h�R�[�h�擾
		sound_code_y = memory.getregister("y")

		-- �T�E���h�R�[�h�̌��ʏo�͂����Ɨ\�z�����Y
		ret_se_y = se_bitmask[stage_number+1][sound_code_y+1]

	else

		-- �O��NMI�v��
		if pre_nmi_record_flag then
			pre_nmi_instructions = pre_nmi_instructions + 1
		end

		-- ���C�����[�`���v��
		if main_record_flag then
			main_instructions = main_instructions + 1
		end

		-- �㔼NMI�L�^�J�n(���O�����j
		if next_nmi_record_flag == -1 then
			next_nmi_position = next_nmi_position - 1
		-- �㔼NMI�L�^�J�n(���㔭���j
		elseif next_nmi_record_flag == 1 then
			next_nmi_position = next_nmi_position + 1
		end

		if pre_scroll_flag then
			pre_scroll_position = pre_scroll_position + 1
		end

		if next_scroll_flag then
			next_scroll_position = next_scroll_position + 1
		end
		
		if current_begin_screen_flag then
			current_begin_screen_position = current_begin_screen_position + 1
		end

	end

end)

gui.register(function()
	
	-- X���W�擾
	local RockX  = math.floor((memory.readbyte(0x460)*256+memory.readbyte(0x480))/256.0 * 1000)/1000
	-- X�X�s�[�h�擾
	local RockXS = math.floor((memory.readbytesigned(0x600)*256+memory.readbyte(0x620))/256.0 * 1000)/1000
	-- Y���W�擾
	local RockY  = math.floor((memory.readbyte(0x4a0)*256+memory.readbyte(0x4c0))/256.0 * 1000)/1000
	-- Y�X�s�[�h�擾
	local RockYS = math.floor((memory.readbytesigned(0x640)*256+memory.readbyte(0x660))/256.0 * 1000)/1000


	-- PRESCRL����
	local framecount = pre_framecount
	if(pre_scroll[pre_framecount] == true) then
		framecount = pre_framecount - 1
	else
		framecount = pre_framecount
	end
	if(pre_scroll[framecount] == nil or pre_scroll[framecount] == false) then
		prescrl = "-"
	else
		prescrl = tostring(pre_scroll[framecount]).."("..tostring(framecount).."f)"
	end

	-- NEXTSCRL����
	framecount = next_framecount
	if(next_scroll[next_framecount] == true) then
		framecount = next_framecount - 1
	else
		framecount = next_framecount
	end
	if(next_scroll[framecount] == nil or next_scroll[framecount] == false) then
		nextscrl = "-"
	else
		nextscrl =tostring(next_scroll[framecount]).."("..tostring(framecount).."f)"
	end

	-- $14SET����
	framecount = current_begin_framecount
	if(current_begin_screen[current_begin_framecount] == true) then
		framecount = current_begin_framecount - 1
	else
		framecount = current_begin_framecount
	end
	if(current_begin_screen[framecount] == nil or current_begin_screen[framecount] == false) then
		current_set = "-"
	else
		current_set = tostring(current_begin_screen[framecount]).."("..tostring(framecount).."f)"
	end

	local xadj, yadj = 0, 5
	gui.text(5+xadj,5+yadj, "X:"..RockX.."("..RockXS..")", "red", "black")
	gui.text(5+xadj,15+yadj,"Y:"..RockY.."("..RockYS..")", "orange", "black")
	-- �e�s���\��
	gui.text(5+xadj,25+yadj,"PreNMI:"..end_pre_nmi_instructions, "blue", "black")
	gui.text(5+xadj,35+yadj,"MAIN:"..end_main_instructions, "green", "black")
	gui.text(5+xadj,45+yadj,"Total:"..tostring(end_pre_nmi_instructions + end_main_instructions).."("..movie.framecount().."f)", "cyan", "black")
	--gui.text(5+xadj,105+yadj,"NextNMI ->:"..end_next_nmi_position)
	gui.text(5+xadj,55+yadj,"PRE:"..tostring(prescrl), "blue", "black")
	gui.text(5+xadj,65+yadj,"NEXT:"..tostring(nextscrl), "magenta", "black")
	gui.text(5+xadj,75+yadj,"$14Set:"..tostring(current_set), "cyan", "black")
	gui.text(5+xadj,85+yadj,"MadSE:"..string.format("%X", nmi_mad_y), "red", "black")
	gui.text(5+xadj,95+yadj,"SE:"..string.format("%2X(%2X)", sound_code_y, ret_se_y), "orange", "black")

end)

while true do
	now_frame = movie.framecount()
	if(old_frame ~= now_frame - 1) then
		pre_scroll = {}
		next_scroll = {}
		current_begin_screen = {}
	end
	emu.frameadvance()
	old_frame = now_frame
end