User File #637784524099281499

Upload All User Files

#637784524099281499 - Rockman 2 Item 1 Values

item1height.lua
Game: Mega Man 2 ( NES, see all files )
120 downloads
Uploaded 1/22/2022 12:46 PM by Shinryuu (see all 11)
This scripts shows Item1s and their "subppixels". You can also use keybindings to change value(s) to track what might be the best setup. This is written by FinalFighter.
--�A�C�e��1���̍����Z�oLua�����b�N�}���Q

--�����e�L�X�g���擾����
function get_height_str(DefaultHeight,Height,Visible,Arm)
	--�A�C�e��1�������݂���Ƃ�
	if((Visible == 0x82 or Visible == 0xC2) and Arm == 0x9)then
		return string.format(" %03d",Height)
	--���݂��Ȃ��Ƃ�
	else
		return string.format("*%03d",DefaultHeight)
	end
end

--�������擾����
function get_height(DefaultHeight,Height,Visible,Arm)
	--�A�C�e��1�������݂���Ƃ�
	if((Visible == 0x82 or Visible == 0xC2) and Arm == 0x9)then
		return Height
	--���݂��Ȃ��Ƃ�
	else
		return DefaultHeight
	end
end

--�㏸�q���g���擾����
function get_up(Seed,MaxFrame,Height)
	local UpText = ""
	for i = 0,MaxFrame,1 do
		Seed = Seed - 0x41
		if(Seed < 0)then
			UpText = UpText .. "|"
			Seed = Seed + 0x100
			Height = Height - 1
		else
			UpText = UpText .. "."
		end
	end
	return string.format("%s %d",UpText,Height)
end


--CSV���o�͂��邩
local output_csv_flag = false

--CSV���o�͂���ő�t���[����
local max_csv_frame = 100

--�V�[�h���Ƃ�max_csv_frame�t���[���̍���CSV���o�͂���
function output_csv(FileName,Seed,DefaultHeight,Height,Visible,Arm)

	local NowHeight = 0

	--�A�C�e��1�������݂���Ƃ�
	if((Visible == 0x82 or Visible == 0xC2) and Arm == 0x9)then
		NowHeight = Height
	--���݂��Ȃ��Ƃ�
	else
		NowHeight = DefaultHeight
	end

	--�o��
	fp = io.open (FileName,"w")

	--�w�b�_
	fp:write(" ,")
	for i= 0,max_csv_frame,1 do
		fp:write(string.format("%d,",i))
	end
	fp:write("\n")

	--�V�[�h���Ƃ̍������o��
	format = ""
	for i = 0,255,1 do
		if(Seed == i)then
			format = "%d!,%s\n"
		else
			format = "%d,%s\n"
		end
		fp:write(string.format(format,i,get_height_csv(NowHeight,i)))
	end

	--�‚���
	fp:close()

	output_csv_flag = false
end

--�V�[�h�ɑΉ�����max_csv_frame�t���[������CSV�e�L�X�g���擾����
function get_height_csv(Height,Seed)
	height_csv = ""
	for i = 0,max_csv_frame,1 do
		Seed = Seed - 0x41
		if(Seed < 0)then
			Seed = Seed + 0x100
			Height = Height - 1
		end
		if(Height <= 0)then
			break
		end
		height_csv = height_csv .. Height .. ","
	end
	return height_csv
end


--���t���[�����{�^����ۑ����邩
local max_bakinp_frame = 20
--�{�^�������΂炭���������Ă��邩�A�܂��͈�u���������`�F�b�N
function holding_key(inp,bakinp,key)

	if((inp[key] == false or inp[key] == nil) and bakinp[2][key] == true)then
		return true
	end
	for i = 1,max_bakinp_frame,1 do
		if(bakinp[i][key]~=true)then
			return false
		end
	end
	return true
end

--���t���[�����㏸�q���g��\�����邩
local up_display_frame = 4
--CSV�Z�[�u���̕����\��
local output_msg_frame = false

gui.register(function()

	--���ݑ������̕���
	local Arm = memory.readbyte(0xA9)

	--���ׂẴA�C�e��1���̃f�t�H���g�ƂȂ鍂��
	local DefaultHeight = memory.readbyte(0x4a0)

	--�A�C�e��1���̍���
	local Height = {}
	Height[1] = memory.readbyte(0x4a4)
	Height[2] = memory.readbyte(0x4a3)
	Height[3] = memory.readbyte(0x4a2)

	--�V�[�h
	local Seed = {}
	Seed[1] = memory.readbyte(0x4c4)
	Seed[2] = memory.readbyte(0x4c3)
	Seed[3] = memory.readbyte(0x4c2)

	--����
	local Visible = {}
	Visible[1] = memory.readbyte(0x424)
	Visible[2] = memory.readbyte(0x423)
	Visible[3] = memory.readbyte(0x422)

	--�����Z�o
	local Item1Height = {}
	Item1Height[1] = get_height_str(DefaultHeight,Height[1],Visible[1],Arm)
	Item1Height[2] = get_height_str(DefaultHeight,Height[2],Visible[2],Arm)
	Item1Height[3] = get_height_str(DefaultHeight,Height[3],Visible[3],Arm)

	--�㏸���[���Z�o
	local Item1Up = {}
	Item1Up[1] = get_up(Seed[1],up_display_frame,get_height(DefaultHeight,Height[1],Visible[1],Arm))
	Item1Up[2] = get_up(Seed[2],up_display_frame,get_height(DefaultHeight,Height[2],Visible[2],Arm))
	Item1Up[3] = get_up(Seed[3],up_display_frame,get_height(DefaultHeight,Height[3],Visible[3],Arm))

	--�o��
	gui.text(5,0, string.format("Item1->:Height($4C4-4C2) %df",up_display_frame))
	gui.text(5,10, string.format("1st->:%s(%03d) %s",Item1Height[1],Seed[1],Item1Up[1]))
	gui.text(5,20,string.format("2nd->:%s(%03d) %s",Item1Height[2],Seed[2],Item1Up[2]))
	gui.text(5,30,string.format("3rd->:%s(%03d) %s",Item1Height[3],Seed[3],Item1Up[3]))

	--CSV�o��
	if(output_csv_flag == true)then
		output_csv("Item1_1st.csv",Seed[1],DefaultHeight,Height[1],Visible[1],Arm)
		output_csv("Item1_2nd.csv",Seed[2],DefaultHeight,Height[2],Visible[2],Arm)
		output_csv("Item1_3rd.csv",Seed[3],DefaultHeight,Height[3],Visible[3],Arm)
	end

	
	--���͂̎擾
	local inp = input.get()
	local input = inp

	--���͂̃o�b�N�A�b�v�l������
	if(bakinp == nil)then
		bakinp = {}
	end
	for i = 1,max_bakinp_frame,1 do
		if(bakinp[i] == nil)then
			bakinp[i] = {}
		end
	end

	--�{�^���̃o�b�N�A�b�v
	for i = max_bakinp_frame,1,-1 do
		if(i == 1)then
			bakinp[1] = input
		else
			bakinp[i] = bakinp[i-1]
		end
	end


	--S�{�^�����������Ƃ�CSV�o��
	if(inp.S == true and (bakinp.S == nil or bakinp.S == false))then
		output_csv_flag = true
		output_msg_frame = movie.framecount()
	end

	--CSV�o�͂����炵�΂炭�̊ԃ��b�Z�[�W�\��
	if(output_msg_frame ~= false)then
		if(movie.framecount() < (output_msg_frame + 60))then
			gui.text(5,40, "output csv file")
		end
	end

	--P�{�^�����������Ƃ��㏸�q���g�\������
	if(holding_key(inp,bakinp,"P")) then
		up_display_frame = up_display_frame + 1
		if(up_display_frame > 40)then
			up_display_frame = 40
		end
	end
	
	--M�{�^�����������Ƃ��㏸�q���g�\������
	if(holding_key(inp,bakinp,"O"))then
		up_display_frame = up_display_frame - 1
		if(up_display_frame < 0)then
			up_display_frame = 0
		end
	end

	--1stSeed+1
	if(holding_key(inp,bakinp,"Y"))then
		memory.writebyte(0x4c4,memory.readbyte(0x4c4)+0x01)
	end
	--1stSeed-1
	if(holding_key(inp,bakinp,"H"))then
		memory.writebyte(0x4c4,memory.readbyte(0x4c4)-0x01)
	end

	--2ndSeed+1
	if(holding_key(inp,bakinp,"U"))then
		memory.writebyte(0x4c3,memory.readbyte(0x4c3)+0x01)
	end
	--2ndSeed-1
	if(holding_key(inp,bakinp,"J"))then
		memory.writebyte(0x4c3,memory.readbyte(0x4c3)-0x01)
	end

	--3rdSeed+1
	if(holding_key(inp,bakinp,"I"))then
		memory.writebyte(0x4c2,memory.readbyte(0x4c2)+0x01)
	end
	--3rdSeed-1
	if(holding_key(inp,bakinp,"K"))then
		memory.writebyte(0x4c2,memory.readbyte(0x4c2)-0x01)
	end

end)


while true do
	emu.frameadvance()
end