DQ5Borongo

chara = {}
id = {}
level = {}
status = {}
item = {}
azuke = {}
point = 1
order = {}
partyaddr = {}

for i = 1, 256 do
	status[i] = {}
end
for i = 1, 256 do
	item[i] = {}
end
for i = 1, 256 do
	chara[i] = {}
end
for i = 1, 256 do
	azuke[i] = {}
end

while true do
	for i = 1, 256 do
		for j = 1, 42 do
			chara[i][j] = memory.readbyte(0x7E2040 + ((i - 1) * 42) + j - 1)
		end
		id[i] = chara[i][1]
		level[i] = chara[i][19]
		for k = 1, 8 do
			status[i][k] = math.floor(chara[i][2] / (2 ^ (k - 1))) % 2
		end
		for j = 1, 12 do
			item[i][j] = memory.readbyte(0x7E2055 + ((i - 1) * 42) + j)
		end
		for j = 1, 16 do
			azuke[i][j] = memory.readbyte(0x7E2332 + ((i - 1) * 26) + j - 1)
		end
	end

	for i = 1, 8 do
		order[i] = memory.readbyte(0x7E201F + i)
		partyaddr[i] = 0x7E2040 + (order[i] * 42)
	end

	local inp = input.get()
	for i = 1, 20 do
		xx = 10
		yy = 9 * (i + 2)
		if(xx<inp.xmouse and xx+10>inp.xmouse and yy+10<inp.ymouse and yy+18>inp.ymouse) then
			a = 192
			if(inp.leftclick) then
				if i < 17 then
					point = i
				elseif i == 17 then
					point = point + 1
					if point > 256 then
						point = 256
					end
				elseif i == 18 then
					point = point + 10
					if point > 256 then
						point = 256
					end
				elseif i == 19 then
					point = point - 1
					if point < 1 then
						point = 1
					end
				elseif i == 20 then
					point = point - 10
					if point < 1 then
						point = 1
					end
				end
			end
		end
		gui.box(xx,yy+10,xx+10,yy+18,{0,255,0,128}, {0,255,0,96})
		if i < 17 then
			gui.text(xx+2,yy+11,i.."  "..id[i].."  "..chara[i][2].."  "..azuke[i][1].."  "..chara[i][5])
		elseif i == 17 then
			gui.text(xx+2,yy+11,"+1")
		elseif i == 18 then
			gui.text(xx+2,yy+11,"+10")
		elseif i == 19 then
			gui.text(xx+2,yy+11,"-1")
		elseif i == 20 then
			gui.text(xx+2,yy+11,"-10")
		end
	end

	for i = 1, 12 do
		gui.text(190,10*i,item[point][i])
	end

	gui.text(190,140,"Char: "..point)
	gui.text(190,150,"ID: "..id[point])
	gui.text(190,160,"Sta: ")
	for k = 1, 8 do
		gui.text(210 + (k - 1) * 4,160,status[point][k])
		gui.text(210, 10*k, order[k]+1)
		gui.text(225, 10*k, string.format("%x",partyaddr[k]))
	end
	gui.text(190,170,"LV: "..level[point])

	gui.text(10,30,"Char".." ".."ID".." ".."Status".." ".."Bench".." ".."MPLower")

	emu.frameadvance()
end