-- 魔界村(FC) 取得武器のみ逐次装備交換出来るスクリプト
-- 作成者：魂太郎＠regamer

selsel = 1
hyoujibt = 0

wep = {
64, --槍
}
wep_n = 1
--*****************************************************************************
while true do  --繰り返しによる毎回描写
--*****************************************************************************
if (memory.readbyte(0x0719) == 0) then--残機が0（ゲームオーバー）になったら
	for dc = 1, wep_n, 1 do
		table.remove(wep, dc)--記憶デリート
	end
	wep = {64, }--槍だけ装備
	wep_n = 1--武器所有数リセット
end

wepf = 0
for dc = 1, wep_n, 1 do
	if (memory.readbyte(0x053A) ~= wep[dc]) then
		wepf = wepf + 1
		if (wepf == wep_n) then
			table.insert(wep, wep_n + 1, memory.readbyte(0x053A))
			wep_n = wep_n + 1
			for dc = 1, wep_n, 1 do
				if(wep[dc] == 00)then
					table.remove(wep, dc)
					wep_n = wep_n - 1
				end
			end
		end
	end
end


Buttons= joypad.get(1)
if (Buttons["select"] and hyoujibt ~= 1) then
	hyoujibt = 1
	selsel = selsel + 1
else
	if (not Buttons["select"] and hyoujibt == 1) then
		hyoujibt = 0
	end
end

if (selsel > wep_n) then
	selsel = 1
end

memory.writebyte(0x053A,wep[selsel])


if(wep_n > 1)then
	gui.text(20, 220, "push SEL change wepon :"..selsel)
end
	FCEU.frameadvance()
--*****************************************************************************
end --while
--*****************************************************************************