Mudlet - Forum

function visWarning(name, text)
	local width, height = getMainWindowSize()     -- Get our current window dimensions
	local strLen = text:len()     -- Find the character length of our "warning"
	if windowExists == false then     -- Does a warning window already exist?
		createLabel(name, (width / 2) - 300, (height / 2) - 100, 250, 150, 1)
		resizeWindow(name, strLen * 25, 70)
		moveWindow(name, (width - (strLen * 25)) / 2, (height / 2) - 100) -- Dynamically place the window dependent on the length of our "warning"
		windowExists = true
	else
		moveWindow(name, (width - (strLen * 25)) / 2, (height / 2) - 175)
	end
	setBackgroundColor(name, 255, 51, 51, 200)
	echo(name, [[<p style="font-size:35px"><b><center><font color="white"> ]] .. text .. [[</font></center></b></p>]])
	showWindow(name)
	tempTimer(3, [[hideWindow("]] .. name .. [[");windowExists = false]])     -- Remove the window after 3 seconds
	resetFormat()
end

function visWarn(text)
	local width, height = getMainWindowSize()
	local strLen = text:len()
	local pre = function () local hex = { "a", "b", "c", "d", "e", "f" } return tostring(hex[math.random(#hex)] .. hex[math.random(#hex)] .. math.random(999, 9999)) end
	local label = pre()

	tmp.labels[label] = text
	createLabel(label, (width / 2) - 300, (height / 2) - 100, 250, 150, 1)
	setLabelStyleSheet(label, [[
		color: #333;
		border: 2px solid #555;
		border-radius: 11px;
		padding: 5px;
		background: qradialgradient(cx: 0.3, cy: -0.4,
		fx: 0.3, fy: -0.4,
		radius: 1.35, stop: 0 #fff, stop: 1 #888);
		min-width: 80px;
	]])
		
	resizeWindow(label, strLen * 25, 70)

	local offsetTable = { 100, 200, 300 }
	local tabLen, offset = countTable(tmp.labels), 100

	if countTable(tmp.labels) == 1 then	
		moveWindow(label, (width - (strLen * 25)) / 2, (height / 2) - offset) 
	else
		moveWindow(label, (width - (strLen * 25)) / 2, (height / 2) - offsetTable[tabLen]) 
	end

	setBackgroundColor(label, 255, 51, 51, 200)
	echo(label, [[<p style="font-size:35px"><b><center><font color="blue"> ]] .. text .. [[</font></center></b></p>]])
	showWindow(label)
	tempTimer(5, [[hideWindow(next(tmp.labels));keyRemove(tmp.labels, next(tmp.labels))]])
	resetFormat()
end

function countTable(tbl)
	local c = 0
	for k, v in pairs(tbl) do
		c = c + 1
	end
	return c
end

function keyRemove(tbl, key)
    local element = tbl[key]
    tbl[key] = nil
    return element
end

--- Display high visibility warning labels.
-- For each string passed, this function will display a highly visible, timed warning label.
-- You may specify how long the label will remain by passing an optional second argument.
-- @param text The text to display.
-- @param duration How long the label should remain.
-- @usage visWarn("I am a warning label.", 3)
-- @usage visWarn("I am a warning label.")
function visWarn(text, duration)
	local width, height = getMainWindowSize()
	local strLen = text:len()
	local label = rndStr(8, "%l%d")

	tmp.labels[label] = {label = label, text = text, duration = (duration or 5)}
	createLabel(label, 0, 0, 0, 0, 1)
	setLabelStyleSheet(label, [[
		background-color: #333300;
		border: 5px double #339900;
		border-radius: 12px;
		color: #ff99ff;
		font-size: 12px;
		font-family: Zekton;
		font-style: normal;
		padding: 3px;
	]])
                
	resizeWindow(label, strLen * 25, 70)
	local tabLen, offset = countTable(tmp.labels), 100
	local topPos = (height / 2.0) - (tabLen * 75)
	if topPos > 0 then
		moveWindow(label, (width - (strLen * 18)) / 3, topPos)
	end

	echo(label, [[<p style="font-size:35px"><b><center><font color="yellow"> ]] .. text .. [[</font></center></b></p>]])
	if topPos > 0 then
		showWindow(label)
		table.insert(tmp.displayedLabels, label)
	else
		hideWindow(label)
		table.insert(tmp.labelQueue, label)
	end

	resetFormat()
end

function viswarn_loop()
	if not tmp.labels then return end
	local toHide = {}
	local needRedraw = false

	for index, label in pairs(tmp.displayedLabels) do
		tmp.labels[label].duration = tmp.labels[label].duration - 0.5
		if tmp.labels[label].duration <= 0 then
			toHide[label] = true
			needRedraw = true
		end
	end

	for i = 1, #(tmp.displayedLabels) do
		if not tmp.displayedLabels[i] then break end
		if toHide[tmp.displayedLabels[i]] then
			hideWindow(tmp.displayedLabels[i])
			tmp.labels[tmp.displayedLabels[i]] = nil
			table.remove(tmp.displayedLabels, i)
			i = i - 1
		end
	end 
	local width, height = getMainWindowSize()
	if needRedraw or (#(tmp.displayedLabels) == 0 and #(tmp.labelQueue) > 0) then
		local brk = false
		local iter = 1
		while not brk do
			local topPos = (height / 1.5) - ((iter) * 75)
			if tmp.displayedLabels[iter] then
				local label = tmp.displayedLabels[iter]
				moveWindow(label, (width - (#(tmp.labels[label].text) * 25)) / 3, topPos)
			elseif topPos >= 0 and #(tmp.labelQueue) > 0 then
				local label = table.remove(tmp.labelQueue, 1)
				table.insert(tmp.displayedLabels, label)
				moveWindow(label, (width - (#(tmp.labels[label].text) * 25)) / 3, topPos)
				showWindow(label)
			else
				brk = true
				break;
			end
			iter = iter + 1
		end
	end
end