tile_brightness={}		-- 1 = full bright. For RGB-Brightness version, {255,255,255,1.0}

local f=io.open("maps/filetest.map","rb")
local _decode_brightness=function(byte)
	local v=math.floor(byte/4)%16
	if v==0 then return 1
	else return v/10 end
end
local __=function(x,p) return x%(p*2)>=p end

for i=0,map("xsize") do
	tile_brightness[i]={}
end
f:seek("cur",53)
if f:read(1):byte()~=0 then
	f:seek("cur",50)
	f:read("*l")
	f:seek("cur",18)
	local info_string=f:read("*l")
	local _,tile_count=info_string:match("(%d*)x(%d*)")
	f:read("*l")
	f:seek("cur",9)
	f:read("*l")
	f:seek("cur",11)
	f:read("*l")
	f:read(tile_count+1)
	f:read((map("xsize")+1)*(map("ysize")+1))
	for x=0,map("xsize") do
		for y=0,map("ysize") do
			local type=f:read(1):byte()
			-- local r,g,b=255,255,255	-- RGB-Brightness version
			if type>=192 then f:read("*l")
			elseif __(type,64) and (not __(type,128)) then f:seek("cur",1)
			elseif (not __(type,64)) and __(type,128) then
				-- r=f:read(1):byte() g=f:read(1):byte() b=f:read(1):byte() f:seek("cur",1)
				f:seek("cur",4)			-- comment this if you use RGB-Brightness version
			end
			-- tile_brightness[x][y]={r,g,b,_decode_brightness(type)}		-- RGB-Brightness version
			tile_brightness[x][y]=_decode_brightness(type)		-- comment this if you use RGB-Brightness version
		end
	end
else
	for x=0,map("xsize") do
		for y=0,map("ysize") do
			-- tile_brightness[x][y]={255,255,255,1}	-- RGB-Brightness version
			tile_brightness[x][y]=1		-- comment this if you use RGB-Brightness version
		end
	end
end
f:close()