View difference between Paste ID: LHWN0yRP and cF93Vzcy

 -- version: Unspeakable Crawling Sticky Tentacle
 
 Texter = {}
 Texter._lastInputStr = ""
 Texter._lastInputArgs = "1, 3"
 
 function Texter.Init()
 	-- Please don't let Texter too far away from font file :)
 	if Texter._findFile("7px") ~= nil then
 		Texter.SetFont("7px")
 	else
 		Texter.SetFont("5px")
 	end
 	tpt.register_keypress(Texter._hotkeyHandler)
 end
 
 -- Internal methods
 function Texter._isFolder(path)
 	local _isFolder = false
 	if path ~= nil then
 		-- if fs.isDirectory(path) then
 				-- _isFolder = true
 		-- end
 		-- API bug, not fixed right now (ver 85.0)
 		if ( fs.isDirectory(path) == fs.isDirectory(".") ) then
 			_isFolder = true
 		end
 	end
 	return _isFolder
 end
 function Texter._findFileInCurrentDir(fileName, rootPath, optionalSuffix, optionalPrefix)
 	local filePath = nil
 	if fs.exists(rootPath.."\\"..fileName) then
 		filePath = rootPath.."\\"..fileName
 	else if fs.exists(rootPath.."\\"..fileName..optionalSuffix) then
 			filePath = rootPath.."\\"..fileName..optionalSuffix
 		else if fs.exists(rootPath.."\\"..optionalPrefix..fileName) then
 				filePath = rootPath.."\\"..optionalPrefix..fileName
 			else if fs.exists(rootPath.."\\"..optionalPrefix..fileName..optionalSuffix) then
 					filePath = rootPath.."\\"..optionalPrefix..fileName..optionalSuffix
 				end
 			end
 		end
 	end
 	return filePath
 end
 function Texter._findFile(fileName, rootPath, optionalSuffix, optionalPrefix, depth)
 	if rootPath == nil then
 		rootPath = "."
 	end
 	if optionalSuffix == nil then
 		optionalSuffix = ".lua"
 	end
 	if optionalPrefix == nil then
 		optionalPrefix = ""
 	end
 	if depth == nil then
 		depth = 3 -- Find 3 level of subfolders in default
 	end
 	local subs = nil
 	local filePath = Texter._findFileInCurrentDir(fileName, rootPath, optionalSuffix, optionalPrefix)
 
 	-- Check if file was here. If not found, continue in subfolders
 	if filePath == nil then
 		subs = fs.list(rootPath)
 		for i=1, #subs do
 			if Texter._isFolder(rootPath.."\\"..subs[i]) and depth > 0 then
 				filePath = Texter._findFile(fileName, rootPath.."\\"..subs[i], optionalSuffix, optionalPrefix, depth - 1)
 			end
 			if filePath ~= nil then do break end end
 		end
 	end
 	return filePath
 end
 function Texter._getFontHeight()
 	local height = 0
 	if fontmatrix.height ~= nil then
 		height = fontmatrix.height
 	else
 		height = 7 -- 7 is a lucky number
 	end
 	return height
 end
 
 
 -- Set the working font
 function Texter.SetFont(fontName, rootPath, optionalSuffix, optionalPrefix, depth)
 	local realPath = Texter._findFile(fontName, rootPath, optionalSuffix, optionalPrefix, depth)
 	if realPath ~= nil then
 		dofile(realPath)
 		tpt.log("Texter: Font file \""..realPath.."\" loaded.")
 	else
 		tpt.log("Texter: Font file not found, please check if the file path is correct")
 	end
 
 end
 
 -- Draw a single character
 function Texter.Tchar(char, x, y, ptype)
 	local mtx     = {}
 	local letter  = {}
 	local voffset = 0
 	local hoffset = 0
 
 	-- get character data
 	letter = fontmatrix[char]
 	if letter == nil then
 		letter = fontmatrix["nil"]
 	end
 	mtx = letter['mtx']
 	if letter['voffset'] ~= nil then
 		voffset = letter['voffset']
 	end
 	if letter['hoffset'] ~= nil then
 		voffset = letter['hoffset']
 	end
 
 	local height = #mtx
 	local width = 3
 	for i=1,height do
 		if mtx[i] ~= nil then
 			width = #mtx[i]
 			for j=1,width do
 				if mtx[i][j]==1 then
 					tpt.create(x+j-1+hoffset, y+i-1+voffset, ptype)
 				end
 			end
 		end
 	end
 	return width
 end
 
 -- Draw a string
 function Texter.Tstr(str, x, y, ptype, hspacing, vspacing)
 	local ox    = 0
 	local oy    = 0
 	local oy    = 0
 	local fontH = Texter._getFontHeight()
 	if hspacing == nil then
 		hspacing = 1
 	end
 	if vspacing == nil then
 		vspacing = 3
 	end
 	for i=1,string.len(str) do
 		if string.sub(str, i, i) == "\n" then
 			oy = vspacing + oy + fontH
 			ox = 0
 		else
 			ox = hspacing + ox + Texter.Tchar(string.sub(str, i, i), x+ox, y+oy, ptype)
 		end
 	end
 	return string.len(str)
 end
 
 
 -- Shortcut for better user experience
 function T(str, ptype, hspc, vspc)
 	if ptype == nil then
 		ptype = elements[tpt.selectedl] -- elements.property(tpt.selectedl, "Name")
 	end
 	if str == nil then str = "" end
 	if ptype == nil then
 		ptype = "DUST"
 	end
 	Texter.Tstr(str, tpt.mousex, tpt.mousey, ptype, hspc, vspc)
 	return string.len(str)
 end
 
 -- Hotkey handler
 function Texter._hotkeyHandler(key, keyNum, modifier, event)
 	local str = ""
 	local argsStr = ""
 	local args = {}
 	if event==1 and keyNum==116 and modifier==64 then -- Ctrl + t
 		-- String to create
 		str = tpt.input(
 			"Input text to create under mouse",
 			"[Format: text]\nUse \\n for new line, \\\\n for \\n.\nSorry, you can't get \\\\n.",
 			Texter._lastInputStr
 		)
 		if string.len(str) > 0 then
 			Texter._lastInputStr = str
 			str = string.gsub(str, "([^\\]?)\\n", "%1\n")  -- Small trick
 			str = string.gsub(str, "([^\\]?)\\\\n", "%1\\n")
 			-- Additional settings
 			local ptype = elements[tpt.selectedl]
 			if ptype == nil then
 				ptype = 1 --"DUST"
 			end
 			argsStr = tpt.input(
 				"Input parameters for creating text",
 				"[Format: ptype, hspc, vspc]\nptype is element used, e.g. DUST.\nh/vspc is horizontal/vertical spacing.",
 				elements.property(ptype, "Name")..", "..Texter._lastInputArgs
 			)
 			if string.len(argsStr) > 0 then Texter._lastInputArgs = string.gsub(argsStr, "%s*%w*%s*,%s*(.*)", "%1") end
 			local i=1
 			for arg in string.gmatch(argsStr, "%s*(%w*)%s*,?") do
 				args[i] = arg
 				i = i+1
 			end
 		end
 		if pcall(tpt.element, args[1]) == false then
 			args[1] = "DUST"
 		end
 		Texter.Tstr(str, tpt.mousex, tpt.mousey, args[1], args[2], args[3])
 	end
 	return string.len(str)
 end
 
 
 Texter.Init()