-- レリクス暗黒要塞(FCD) 持ち物・ステータス表示・ガンナーの武器選択・ディスクアクセス時間圧縮
-- 作成者：魂太郎＠regamer
-- 作成日：2021/01/23

spd = 0

--*****************************************************************************
while true do  --繰り返しによる毎回描写
--*****************************************************************************
gui.text(1,1,"V")--消すと何故か表示が更新されないので消さないこと

--弾丸・爆弾表示と選択
if (memory.readbyte(0x006e) == 3 and memory.readbyte(0x00ed) ~= 1) then --6eは肉体・edはポーズ中かどうか
	gui.text(9,10,"hands")
	gui.text(77,10,"BULLET : "..memory.readbyte(0x07E2).."/20")
	if (memory.readbyte(0x07E3) -128 >= 1 ) then
			gui.text(182,10,"BOMBER : "..(memory.readbyte(0x07E3)-128).."/6")
	end

	Buttons= joypad.get(1)
	if (Buttons["select"] ) then
		memory.writebyte(0x07E1, memory.readbyte(0x07E1) + 1)
			if (memory.readbyte(0x07E1) > 2) then
				memory.writebyte(0x07E1, 0)
			end
			if (memory.readbyte(0x07E1) == 1 and memory.readbyte(0x07E2) < 1) then
				memory.writebyte(0x07E1, 2)
			end
			if (memory.readbyte(0x07E1) == 2 and memory.readbyte(0x07E3) < 129) then
				memory.writebyte(0x07E1, 0)
			end

			FCEU.frameadvance()
			FCEU.frameadvance()
			FCEU.frameadvance()
			FCEU.frameadvance()
			FCEU.frameadvance()
			FCEU.frameadvance()
	end
	if (memory.readbyte(0x07E1) == 0) then
		gui.text(2,10,"*")
	end
	if (memory.readbyte(0x07E1) == 1) then
		gui.text(70,10,"*")
	end
	if (memory.readbyte(0x07E1) == 2) then
		gui.text(175,10,"*")
	end
end


--ポーズ中の持ち物・ステータス・今の肉体表示
if (memory.readbyte(0x00ed) == 1) then
	gui.text(120,110,"PAUSE")

	if (memory.readbyte(0x006e) == 0) then
		gui.text(40,25,"BARDE ARMY")
	end
	if (memory.readbyte(0x006e) == 1) then
		gui.text(40,25,"ARMOR")
	end
	if (memory.readbyte(0x006e) == 2) then
		gui.text(40,25,"FIGHTER")
	end
	if (memory.readbyte(0x006e) == 3) then
		gui.text(40,25,"GUNNER")
	end
	if (memory.readbyte(0x006e) == 4) then
		gui.text(40,25,"SORSARY")
	end
	if (memory.readbyte(0x006e) == 8) then
		gui.text(40,25,"???????")
	end

	gui.text(16,40,"STAMINA : "..memory.readbyte(0xAD04).."/100")
	gui.text(16,50,"ATTACK : "..memory.readbyte(0xAD05).."/100")

	gui.text(16,70,"KEY : "..memory.readbyte(0xAD00).."/10")
	gui.text(16,80,"LAMP : "..memory.readbyte(0xAD01).."/10")
	gui.text(16,90,"AMULET : "..memory.readbyte(0xAD02).."/10")


--偶像表示
		gui.text(181,25,"GET IDOL")

	if (memory.readbyte(0x076E) == 1) then
		gui.text(166,40,"ASOK:")
	end
	if (memory.readbyte(0x076A) == 1) then
		gui.text(166,40 + memory.readbyte(0x076E) * 10,"DATT:")
	end
	if (memory.readbyte(0x076C) == 1) then
		gui.text(166,40 + memory.readbyte(0x076A) * 10 + memory.readbyte(0x076E) * 10,"LAHRO:")
	end
	if (memory.readbyte(0x076D) == 1) then
		gui.text(166,40 + memory.readbyte(0x076E) * 10 + memory.readbyte(0x076A) * 10 + memory.readbyte(0x076C) * 10,"LARNUA:")
	end
	if (memory.readbyte(0x076B) == 1) then
		gui.text(166,40 + memory.readbyte(0x076D) * 10 + memory.readbyte(0x076A) * 10 + memory.readbyte(0x076D) * 10 + memory.readbyte(0x076C) * 10,"YAROVI:")
	end

--[[
	if (memory.readbyte(0x106e) ~= 8) then
		Buttons= joypad.get(1)
		if (Buttons["select"] and Buttons["A"] and Buttons["B"]) then
			memory.writebyte(0x106e,memory.readbyte(0x106e) + 1)
			if (memory.readbyte(0x106e) > 4) then
				memory.writebyte(0x106e, 1)
			end
			FCEU.frameadvance()
			FCEU.frameadvance()
			FCEU.frameadvance()
			FCEU.frameadvance()
			FCEU.frameadvance()
			FCEU.frameadvance()
		end
	end
]]

end


--読み込み時間短縮措置
if (memory.readbyte(0x0006) ~= 0 and spd == 0) then
	spd = 1
	emu.speedmode("maximum")
end
if (memory.readbyte(0x0006) == 0 and spd == 1) then
	emu.speedmode("normal")
	spd = 0
end


	FCEU.frameadvance()
--*****************************************************************************
end --while
--*****************************************************************************