-- ボコスカウォーズ(FC) 味方位置表示スクリプト
-- 作成者：魂太郎＠regamer
-- 作成日：2021/01/23



chrC = {}
chrX = {}
chrY = {}
for i = 1, 50, 1 do
	chrC[i] = ""
	chrX[i] = 0
	chrY[i] = 0
end

n_place = 0




--*****************************************************************************
while true do  --繰り返しによる毎回描写
--*****************************************************************************

n_place = memory.readbyte(0x000d) * 256 + memory.readbyte(0x000c)

for k = 1, 50, 1 do
	chrX[k] = memory.readbyte(0x0400 + (k - 1)) + ((memory.readbyte(0x0500 + (k - 1))% 4) * 256)
	chrY[k] = math.floor((memory.readbyte(0x0500 + (k - 1)) / 4) + 1)
	if (chrY[k] > 32) then
		chrY[k] = "RIP"
	else
		if (chrY[k] > 16) then
			chrY[k] = chrY[k] - 16
		end
	end
	if (memory.readbyte(0x0700 + (k - 1)) >= 0) then chrC[k] = "Ki" end
	if (memory.readbyte(0x0700 + (k - 1)) >= 32) then chrC[k] = "Po" end
	if (memory.readbyte(0x0700 + (k - 1)) >= 64) then chrC[k] = "Ni" end
	if (memory.readbyte(0x0700 + (k - 1)) >= 96) then chrC[k] = "GP" end
	if (memory.readbyte(0x0700 + (k - 1)) >= 128) then chrC[k] = "GN" end
	--print(chrX[k]..":"..chrY[k])
end



for V = 1, 5, 1 do
	FCEU.frameadvance()
	for r = 1, 50, 1 do

		if (chrY[r] ~= "RIP" and (chrX[r] - n_place) < 17) then
			gui.text((chrX[r] - n_place) *16 ,40 + chrY[r]*16,chrC[r])
		end
	end
end


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