textWrap-fork.lua

-- darkrp textWrap fork
-- adds maxLines arg

local GetTextSize = surface.GetTextSize
local sub, gsub = string.sub, string.gsub

local function charWrap(text, remainingWidth, maxWidth)
	local totalWidth = 0

	text = gsub(text, ".", function(char)
		totalWidth = totalWidth + GetTextSize(char)

		if totalWidth >= remainingWidth then
			totalWidth = GetTextSize(char)
			remainingWidth = maxWidth
			return "\n" .. char
		end

		return char
	end)

	return text, totalWidth
end

function textWrap(text, font, maxWidth, maxLines)
	local totalWidth = 0

	surface.SetFont(font)
	local spaceWidth = GetTextSize(" ")

	text = gsub(text, "(%s?[%S]+)", function(word)
		local char = sub(word, 1, 1)
		if char == "\n" or char == "\t" then
			totalWidth = 0
		end

		local wordlen = GetTextSize(word)
		totalWidth = totalWidth + wordlen

		if wordlen >= maxWidth then
			local splitWord, splitPoint = charWrap(word, maxWidth - (totalWidth - wordlen), maxWidth)
			totalWidth = splitPoint
			return splitWord
		elseif totalWidth < maxWidth then
			return word
		end

		if char == " " then
			totalWidth = wordlen - spaceWidth
			return "\n" .. sub(word, 2)
		end

		totalWidth = wordlen
		return "\n" .. word
	end)

	if maxLines then
		local lineCount = 0
		text = gsub(text, "([^\n]*\n?)", function(line)
			lineCount = lineCount + 1
			if lineCount > maxLines then return "" end

			if lineCount == maxLines then
				line = gsub(line, "\n$", "")

				if GetTextSize(line) > maxWidth then
					line = sub(line, 1, -4)
				end

				line = line .. "..."
			end

			return line
		end)
	end

	return text
end