color labels

text = { }
text.__index = text

function text:Create ( aX, aY, aW, aH, aText, aRelative, aParent, aFont )
	if (
			type ( aX ) == "number"
		and
			type ( aY ) == "number"
		and
			type ( aW ) == "number"
		and
			type ( aH ) == "number"
		and
			type ( aText ) == "string"
		)
	then
		local vText = { }
		local pat = "(.-)#(%x%x%x%x%x%x)"
		local s, e, cap, col = aText:find(pat, 1)
		local last = 1
			while s do
				if ( cap == "" and col ) then r, g, b = tonumber( "0x"..col:sub( 1, 2 ) ), tonumber( "0x"..col:sub( 3, 4 ) ),
				tonumber( "0x"..col:sub( 5, 6 ) ) end
					if ( s ~= 1 or cap ~= "" ) then
					local w = dxGetTextWidth(cap, 1.0, aFont)
					local uLabel = guiCreateLabel ( aX, aY, aW + w, aH, cap, aRelative or false, aParent or nil )
					r, g, b = tonumber( "0x"..col:sub( 1, 2 ) ), tonumber( "0x"..col:sub( 3, 4 ) ), tonumber( "0x"..col:sub( 5, 6 ) )
					guiLabelSetColor ( uLabel, 255, 255, 255 )
					guiSetFont ( uLabel, aFont )
					table.insert ( vText, uLabel )
					aW = aW + w
					x = guiLabelGetTextExtent(uLabel) + 0.01
				end
				last = e + 1
				s, e, cap, col = aText:find( pat, last )
			end
			if last <= #aText then
				cap = aText:sub( last )
				local w = dxGetTextWidth(cap, 1.0, aFont)
				local utLabel = guiCreateLabel ( x, aY, aW + w, aH, cap, aRelative, aParent )
				guiLabelSetColor ( utLabel, r, g, b )
				guiSetFont ( utLabel, aFont )
				table.insert ( vText, utLabel )
			end
		end
	return vText
end