-- 忍者ハットリ君(FC) スタート時若干の忍法習得・残機0・得点に応じて忍法の自動補充 他
-- 作成者：魂太郎＠regamer
-- 作成日：2021/01/30


print("取得総SCOREによって、ステージクリア時に忍法が自動補充される")
print()
print("　5万点：遠方手裏剣の術")
print("　10万点：心蔵泣きの術")
print("　15万点：高跳びの術")
print("　20万点：金縛りの術")
print("　25万点：水蜘蛛の術")
print("　30万点：獅子丸怒り火の玉の術")
print("　35万点：八方手裏剣の術")
print("　40万点：雲乗りの術")
print("　45万点：霧隠れの術")
print("　50万点：影走りの術")
print("　55万点：ムササビの術")


SCR = 0
hj = 0
--*****************************************************************************
while true do
--*****************************************************************************
gui.text(1,1,"|")

SCR = memory.readbyte(0x0153) + memory.readbyte(0x0152)*10 + memory.readbyte(0x0151)*100 + memory.readbyte(0x0150)*1000

if (memory.readbyte(0x0700) == 248 and hj == 0) then
	hj = 1


while true do
	if (memory.readbyte(0x03A0) == 0) then
		break
	end
	memory.writebyte(0x03A0, memory.readbyte(0x03A0) - 1)--残機数1減らす
	memory.writebyte(0x0153, memory.readbyte(0x0153) + 2)--2万点増やす
	if (memory.readbyte(0x0153) > 9) then
		memory.writebyte(0x0153, memory.readbyte(0x0153) - 10)--10万減らす
		memory.writebyte(0x0152, memory.readbyte(0x0152) + 1)--10万増やす
	end
	if (memory.readbyte(0x0152) > 9) then
		memory.writebyte(0x0152, memory.readbyte(0x0152) - 10)--100万減らす
		memory.writebyte(0x0151, memory.readbyte(0x0151) + 1)--100万増やす
	end
	if (memory.readbyte(0x0151) > 9) then
		memory.writebyte(0x0151, memory.readbyte(0x0151) - 10)--100万減らす
		memory.writebyte(0x0150, memory.readbyte(0x0150) + 1)--100万増やす
	end
end

if (SCR >= 5)then--5万点
	memory.writebyte(0x03B6, 1)--遠方手裏剣
end
if (SCR >= 10)then--10万点
	memory.writebyte(0x03BA, 1)--心臓泣き
end
if (SCR >= 15)then--15万点
	memory.writebyte(0x03B4, 1)--高跳び
end
if (SCR >= 20)then--20万点
	memory.writebyte(0x03B7, 1)--金縛り
end
if (SCR >= 25)then--25万点
	memory.writebyte(0x03B5, 1)--水蜘蛛
end
if (SCR >= 30)then--30万点
	memory.writebyte(0x03BC, 1)--獅子丸
end
if (SCR >= 35)then--35万点
	memory.writebyte(0x03BD, 1)--八方手裏剣
end
if (SCR >= 40)then--40万点
	memory.writebyte(0x03B9, 1)--雲のり
end
if (SCR >= 45)then--45万点
	memory.writebyte(0x03B8, 1)--霧隠れ
end
if (SCR >= 50)then--50万点
	memory.writebyte(0x03B3, 1)--影走り
end
if (SCR >= 55)then--55万点
	memory.writebyte(0x03BB, 1)--ムササビ
end

end-- 0x03EC
if (memory.readbyte(0x0700) == 47 and hj == 1) then
	hj = 0
end


if (SCR == 0 and memory.readbyte(0x0156) == 0)then--0点
	memory.writebyte(0x03A0, 0)--残機数
	memory.writebyte(0x0153, 4)--4万点GET

	memory.writebyte(0x03B6, 1)--遠方手裏剣
	memory.writebyte(0x03BA, 1)--心臓泣き
	memory.writebyte(0x03B4, 1)--高跳び
	memory.writebyte(0x03B7, 1)--金縛り
	memory.writebyte(0x03BC, 1)--獅子丸
	memory.writebyte(0x03BD, 1)--八方手裏剣
	memory.writebyte(0x03B9, 1)--雲のり
end

if (memory.readbyte(0x0161) > 174) then
	if (SCR >= 5)then
		gui.text(85,48,"@", "#FFD700")
		gui.text(212,48,"Reserve", "#FFD700")
	end
	if (SCR >= 10)then
		gui.text(149,48,"@", "#FFD700")
	end
	if (SCR >= 15)then
		gui.text(53,48,"@", "#FFD700")
	end
	if (SCR >= 20)then
		gui.text(101,48,"@", "#FFD700")
	end
	if (SCR >= 25)then
		gui.text(69,48,"@", "#FFD700")
	end
	if (SCR >= 30)then
		gui.text(182,48,"@", "#FFD700")
	end
	if (SCR >= 35)then
		gui.text(198,48,"@", "#FFD700")
	end
	if (SCR >= 40)then
		gui.text(134,48,"@", "#FFD700")
	end
	if (SCR >= 45)then
		gui.text(117,48,"@", "#FFD700")
	end
	if (SCR >= 50)then
		gui.text(37,48,"@", "#FFD700")
	end
	if (SCR >= 55)then
		gui.text(165,48,"@", "#FFD700")
	end
end

    FCEU.frameadvance()
end