View difference between Paste ID: k2580jZ5 and JtgbWdV5

 --[[
  pastebin get JtgbWdV5 enchat
  std pb JtgbWdV5 enchat
  std ld enchat enchat
 
-'Enchat' version 2.3 by EldidiStroyrr (CC Forums: LDDestroier)
+'Encmail' version 0.1 by EldidiStroyrr (CC Forums: LDDestroier)
 
-Encrypted, decentralized, colorized modem chat program for ComputerCraft 1.6 or later.
+Encrypted, decentralized, colorized EMAIL program for ComputerCraft 1.6 or later.
 Encrypts messages/usernames with a password and os.time()
-Color your text with &[color code] and ~[color code], with &k obfuscation.
+Color your text with &[color code] and ~[color code].
 Disable text formatting with &{, and re-enable it with &}.
-If you connect Enchat to Plethora's terminal glasses, you'll get notifications.
+Use &k to obfuscate, and ~k to stop obfuscation. Hehe.
 This program is based on Enchat, and is incomplete.
-Forum link:
+
 Forum link for Enchat:
 http://www.computercraft.info/forums2/index.php?/topic/25290-enchat-encrypted-decentralized-chat/
-This is a stable release. You fool!
+
 This is a beta release. You fool!
 
 Working on:
  +making an interface like a standard email program
  +making an address book
-local encKey, yourName = tArg[1] or (_USERNAME and tostring((os.getComputerID() + math.pi) * math.pi) or nil), tArg[2] or _USERNAME
+ +getting a solid folder hierarchy
  +removing all unneccesary fucking garbage text goddamn it
-log = {}								--Log formatted for view.
+
-_log = {}								--Log with all information.
+
-chatlog = {}							--Log with all preformatted information.
+
-local commandTable						--Contains all commands.
+local em_path = ".encmail"
-local scr_x, scr_y = term.getSize()		--I hate all who use hard coded screen sizes.
+local logpath = fs.combine(em_path,"logs")
-local fixedChannel = nil				--Specify modem channel if you need to.
+local configpath = fs.combine(em_path,"config")
-local checksum, modems, scroll, doScroll, channel
+
 local displayMode = "mainmenu"
 
 local timedivisor = 2 --Must be same as other enchat clients. Can be used to limit scrambling due to using os.time
-local isBeta = false --Affects the /update command and some text.
+
 local tArg = {...}
-local enchatVersion = "2.3" --String, not number!
+local encKey, yourName = tArg[1], tArg[2]
 
-_G.enchat_name_history = _G.enchat_name_history or {}
+log = {}	     --Log formatted for view
 _log = {}	     --Log with all information
 chatlog = {}   --Log with all pre-formatted information
 local commandTable   --Contains all commands
 local scr_x, scr_y = term.getSize()
 local channel = 0 --Do not modify, it's changed anyway
-	krazyDrawDelay = 0.2, --Delay in seconds between redrawing obfuscated text.
+local checksum, modems, scroll, doScroll
-	emulateModem = false, --Skips modem check, and allows use in CCEmuRedux (all computers have distance of 0...)
+
-	useSetVisible = true, --Whether or not to use term.current().setVisible() when possible to reduce flickering
+
-	pageKeySpeed = 4, --Amount of lines scrolled when using pageUp or pageDown.
+
-	doKrazy = true, --Determines if you want the screen to update every time there's obfuscated text. Causes major flickering.
+
-	doNotif = true, --If terminal glasses are present, will push all messages to the screen.
+
 	fancyMsg = true, --Whether or not to colorize as you type
-if string.find(_HOST or "","CCEmuRedux") then enchatSettings.emulateModem = true end
+
 	reverseScroll = false, --Reverses scrolling direction. But why would you want to do that?
 }
 
 local palate = {
 	bg = colors.gray, --Default chat background color
 	txt = colors.white, --Default chat text color
 	chatbg = colors.white, --Chat prompt background color
 	chattxt = colors.black, --Chat prompt text color
-pburls = {
+
-	beta = "https://pastebin.com/raw/4a6NZaMZ",
+
-	stable = "https://pastebin.com/raw/JtgbWdV5",
+
 	["0"] = colors.white,
 	["1"] = colors.orange,
 	["2"] = colors.magenta,
 	["3"] = colors.lightBlue,
 	["4"] = colors.yellow,
 	["5"] = colors.lime,
 	["6"] = colors.pink,
 	["7"] = colors.gray,
 	["8"] = colors.lightGray,
 	["9"] = colors.cyan,
 	["a"] = colors.purple,
 	["b"] = colors.blue,
 	["c"] = colors.brown,
 	["d"] = colors.green,
 	["e"] = colors.red,
 	["f"] = colors.black,
 }
 
 --going to add compatibility for ComputerCaft 1.63
 local _currentcolors = {
 	txt = colors.white,
 	bg = colors.black,
-if term.isColor() then --this is a useful check, albeit a hardly used check
+
 local termsetTextColor,termsetBackgroundColor = term.setTextColor,term.setBackgroundColor
 local termsetCursorPos,termclear,termclearLine,termwrite,termgetSize,termsetCursorBlink,termisColor = term.setCursorPos,term.clear,term.clearLine,term.write,term.getSize,term.setCursorBlink,term.isColor
 local tableinsert,tableconcat,tableunpack = table.insert,table.concat,table.unpack
 local termblit,termgetTextColor,termgetBackgroundColor,termgetCursorPos
 local parallelwaitForAny = parallel.waitForAny
 local termsetVisible
 if term.current then
 	termcurrent = term.current
 end
 
 local oldsettext = term.setTextColor
-local ncs = function(col) --No Colors Safe, adjusts colors so that 1.6 normal computers can use Enchat right
+
-	if grayAllowed then
+
-		return col
+
 		oldsettext(col)
-		if col == colors.gray then
+
-			return colors.black
+
-		elseif col == colors.lightGray then
+
-			return colors.white
+
 		_currentcolors.bg = col
-			return col
+
 	termgetTextColor = function()
 		return _currentcolors.txt
 	end
 	termgetBackgroundColor = function()
 		return _currentcolors.bg
 	end
 	termblit = function(txt,tx,bg)
 		local pt,pb = _currentcolors.bg,_currentcolors.txt
 		if type(txt) ~= "string" or type(tx) ~= "string" or type(bg) ~= "string" then
 			error("expected 3 strings, got "..tableconcat({type(txt),type(tx),type(bg)},", "))
 		end
 		if not ((#txt == #tx) and #tx == #bg) then
 			error("all three arguments must be of same length")
 		end
 		for p = 1, #txt do
 			oldsettext(colors_names[tx:sub(p,p)])
 			oldsetbg(colors_names[bg:sub(p,p)])
 			termwrite(txt:sub(p,p))
 		end
 		oldsettext(pt)
 		oldsettext(pb)
 	end
 else
 	termblit = term.blit
 	termgetTextColor = term.getTextColor
 	termgetBackgroundColor = term.getBackgroundColor
 	termgetCursorPos = term.getCursorPos
 end
 
 local tableConcat = function(tbl,between)
 	local output = ""
 	for k,v in pairs(tbl) do
 		output = output..k..between
 	end
 	return output:sub(1,-2)
 end
 
 --Loading AES encryption functions. AES API ported to CC by SquidDev. Thanks heaps!
 local apipath
 if shell then apipath = fs.combine(shell.dir(),"aes") else apipath = "" end
 if (not aes) and (not fs.exists(apipath)) then
 	print("AES API not found! Downloading...")
 	local prog = http.get("http://pastebin.com/raw/9E5UHiqv")
 	if not prog then error("FAIL!") end
 	local file = fs.open(apipath,"w")
 	file.write(prog.readAll())
 	file.close()
 end
 if not aes then
 	local res = os.loadAPI(apipath)
 	if not res then error("Didn't load AES API!") end
 end
 
 --In case I use an API that uses a different syntax than (msg, key)
 local encrite = function(msg, key)
 	return aes.encrypt(key, msg)
 end
-local _pairs = pairs
+
-local pairs = function(tbl)
+
-	if not type(tbl) == "table" then
+
-		error("table expected, but I got "..type(tbl))
+
 
-		return _pairs(tbl)
+
 	if type(txt) ~= "string" then return false, "requires string" end
 	return {txt:byte(1,-1)}
 end
 
 local decode = function(tbl) --converts an encoded string into something useful.
 	if type(tbl) ~= "table" then return false, "requires table" end
-		output = output..k..(between or "")
+
 end
 
 local strcapsule = function(txt)
 	return "\""..tostring(txt).."\""
-if (tArg[1] or ""):lower() == "update" then
+
-	local url
+
-	if tArg[2] then
+
-		if pburls[tArg[2]:gsub("%s","")] then
+
-			url = pburls[tArg[2]:gsub("%s","")]
+
 	termsetCursorPos((scr_x/2)-(#txt/2),setY or y)
-			error("No such update link.")
+
 	write(txt)
 end
-		url = isBeta and pburls.beta or pburls.stable
+
 local waitForModem = function()
 	local mod
-		cfile = shell.getRunningProgram()
+
 		sleep(0.2)
-		print("Download where?")
+
-		write(":")
+
-		cfile = read()
+
 		end
-	if fs.isReadOnly(cfile) then
+
-		error("Unable to download to read-only directory.")
+
 
-	if not http then
+if not peripheral.find("modem") then
-		error("HTTP is disabled. Ask an admin to re-enable it.")
+	termsetBackgroundColor(colors.gray)
 	termsetTextColor(colors.white)
-		if not http.checkURL(url) then
+
-			error("Pastebin is...blocked?")
+	cwrite("Enchat requires a modem.",3)
 	cwrite("Add one, or press a key.",4)
 	sleep(0.1)
-	write("Downloading...")
+	local outcome = parallelwaitForAny(function() os.pullEvent("key") end, waitForModem)
-	local data = http.get(url)
+
-	if not data then
+	if #modems == 0 then
-		return print("fail")
+		termsetBackgroundColor(colors.black)
 		termsetCursorPos(1,scr_y)
-		local file = fs.open(cfile,"w")
+
-		file.write(data.readAll())
+		sleep(0)
-		file.close()
+
-		print("Success!")
+
-		return
+
 
 local modemOpen = function(chan)
 	for a = 1, #modems do
 		modems[a].open(chan)
 	end
 end
 
 local modemClose = function(chan)
 	for a = 1, #modems do
 		modems[a].close(chan)
 	end
 end
 
 local modemTransmit = function(chan,repchan,msg)
 	for a = 1, #modems do
 		modems[a].transmit(chan,repchan,msg)
 	end
 end
 
 local tsv = function(visible)
 	if termcurrent then
-	assert(type(msg) == "string", "message must be string")
+		if termcurrent().setVisible then
-	assert(type(key) == "string", "key must be string")
+
 			return true
 		else
 			return false
 		end
-	assert(type(msg) == "string", "message must be string")
+
-	assert(type(key) == "string", "key must be string")
+
 	end
 end
 
 local logadd = function(name,msg,newline,stopFormatting)
 	chatlog[#chatlog+1] = {name,msg,newline,stopFormatting or false}
 end
 
 local deepCopy = function(tbl)
 	local output = {}
 	for k,v in pairs(tbl) do
 		output[k] = v
 	end
 	return output
 end
-	return table.concat({"\"",tostring(txt),"\""})
+
 local explode = function(div,str)
     if (div=='') then return false end
     local pos,arr = 0,{}
     for st,sp in function() return string.find(str,div,pos,false) end do
         tableinsert(arr,string.sub(str,pos,st-1))
         pos = sp + 1
     end
     tableinsert(arr,string.sub(str,pos))
     return arr
 end
 
 local colors_strnames = { --primarily for use when coloring palate
 	["white"] = colors.white,
 	["orange"] = colors.orange,
 	["magenta"] = colors.magenta,
 	["lightpurple"] = colors.magenta,
 	["light purple"] = colors.magenta,
 	["lightblue"] = colors.lightBlue,
 	["light blue"] = colors.lightBlue,
 	["yellow"] = colors.yellow,
 	["piss"] = colors.yellow,
-local explode = function(div,str,replstr,includeDiv)
+
 	["lime"] = colors.lime,
 	["lightgreen"] = colors.lime,
 	["light green"] = colors.lime,
-        tableinsert(arr,string.sub(replstr or str,pos,st-1+(includeDiv and #div or 0)))
+
 	["lightish red"] = colors.pink,
 	["gray"] = colors.gray,
-    tableinsert(arr,string.sub(replstr or str,pos))
+
 	["lightgray"] = colors.lightGray,
 	["lightgrey"] = colors.lightGray,
 	["light gray"] = colors.lightGray,
-local getWord = function(str, pos)
+
-	local words = explode(" ",str)
+
-	local x, exs, ex1, ex2 = 0, "", 0, 0
+
-	for w = 1, #words do
+
-		ex1, ex2 = words[w]:find(". ")
+
-		exs = str:sub(ex1 or 0, ex2 or 0)
+
-		words[w] = (exs or "")..words[w]
+
-		for c = 1, #words[w] do
+
-			x = x + 1
+
-			if x == pos then
+
-				return words[w], w
+
 	["red"] = colors.red,
 	["blood"] = colors.red,
 	["black"] = colors.black,
-		x = (_ox or (x+1)) - 1
+
 
-	return "", -1
+
 	colors_strnames[k] = v
-local notif = {}
+
-notif.alpha = 248
+
-notif.height = 10
+local function alterXY()
-notif.width = 6
+	local cx,cy = termgetCursorPos()
-notif.time = 10
+	if cx == scr_x then
-notif.wrapX = 300
+		termsetCursorPos(1,cy+1)
-local nList = {}
+
-local colorTranslate = {
+
-	[" "] = {240, 240, 240},
+
-	["0"] = {240, 240, 240},
+
-	["1"] = {242, 178, 51 },
+
-	["2"] = {229, 127, 216},
+
-	["3"] = {153, 178, 242},
+
-	["4"] = {222, 222, 108},
+
-	["5"] = {127, 204, 25 },
+
-	["6"] = {242, 178, 204},
+
-	["7"] = {76,  76,  76 },
+
-	["8"] = {153, 153, 153},
+
-	["9"] = {76,  153, 178},
+
-	["a"] = {178, 102, 229},
+
-	["b"] = {51,  102, 204},
+
-	["c"] = {127, 102, 76 },
+			if not termisColor() then
-	["d"] = {87,  166, 78 },
+				if (col ~= colors.white) and (col ~= colors.lightGray) and (col ~= colors.gray) and (col ~= colors.black) then
-	["e"] = {204, 76,  76 },
+					return false
-	["f"] = {25,  25,  25 }
+
 			end
-local interface, canvas = peripheral.find("neuralInterface")
+
-if interface then
+
-	if interface.canvas then
+
-		canvas = interface.canvas()
+
-		notif.newNotification = function(char, text, back, time)
+
-			nList[#nList+1] = {char,text,back,time,1} --last one is alpha multiplier
+
 	local wordNo = 1
-		notif.displayNotifications = function(doCountDown)
+
-			local adjList = {
+
-				["i"] = -4,
+
-				["l"] = -3,
+
-				["I"] = -1,
+
-				["t"] = -2,
+
-				["k"] = -1,
+
-				["!"] = -4,
+
-				["|"] = -4,
+
-				["."] = -4,
+
-				[","] = -4,
+
-				[":"] = -4,
+
-				[";"] = -4,
+
-				["f"] = -1,
+
-				["'"] = -3,
+
-				["\""] = -1,
+
-				["<"] = -1,
+
-				[">"] = -1,
+
 		elseif not (cx == 1 and text:sub(a,a) == " ") then
-			local drawEdgeLine = function(y,alpha)
+
-				local l = canvas.addRectangle(notif.wrapX, 1+(y-1)*notif.height, 1, notif.height)
+
-				l.setColor(table.unpack(colorTranslate["0"]))
+
-				l.setAlpha(alpha)
+
 					termblit(text:sub(a,a),txt:sub(a,a),bg:sub(a,a))
-			local getWordWidth = function(str)
+
-				local output = 0
+
-				for a = 1, #str do
+
-					output = output + notif.width + (adjList[str:sub(a,a)] or 0)
+
 		end
 		if cx == scr_x then
 			termsetCursorPos(1,cy+1)
-			canvas.clear()
+
-			local xadj, charadj, wordadj, t, r
+
-			local x, y, words, txtwords, bgwords = 0, 0
+
-			for n = math.min(#nList,16), 1, -1 do
+
-				xadj, charadj = 0, 0
+
-				y = y + 1
+
-				x = 0
+	return lines
-				words = explode(" ",nList[n][1],_,true)
+
-				txtwords = explode(" ",nList[n][1],nList[n][2],true)
+
-				bgwords = explode(" ",nList[n][1],nList[n][3],true)
+
-				local char, text, back
+
-				local currentX = 0
+
-				for w = 1, #words do
+
-					char = words[w]
+
-					text = txtwords[w]
+
-					back = bgwords[w]
+
-					if currentX + getWordWidth(char) > notif.wrapX then
+
-						y = y + 1
+
-						x = 2
+
-						xadj = 0
+
-						currentX = x * notif.width
+
 	["k"] = "krazy"	--Makes the font krazy!
-					for cx = 1, #char do
+
-						x = x + 1
+
-						charadj = (adjList[char:sub(cx,cx)] or 0)
+
-						r = canvas.addRectangle(xadj+1+(x-1)*notif.width, 1+(y-1)*notif.height, charadj+notif.width, notif.height)
+
-						if back:sub(cx,cx) ~= " " then
+
-							r.setAlpha(notif.alpha * nList[n][5])
+
-							r.setColor(table.unpack(colorTranslate[back:sub(cx,cx)]))
+
 		"|",
-							r.setAlpha(100 * nList[n][5])
+
-							r.setColor(table.unpack(colorTranslate["7"]))
+
 		":",
-						drawEdgeLine(y,notif.alpha * nList[n][5])
+
-						t = canvas.addText({xadj+1+(x-1)*notif.width,2+(y-1)*notif.height}, char:sub(cx,cx))
+
-						t.setAlpha(notif.alpha * nList[n][5])
+
-						t.setColor(table.unpack(colorTranslate[text:sub(cx,cx)]))
+
-						xadj = xadj + charadj
+
-						currentX = currentX + charadj+notif.width
+
 		"m",
 		"X",
-				if doCountDown then
+
-					if nList[n][4] > 1 then
+
-						nList[n][4] = nList[n][4] - 1
+
 		"@",
-						if nList[n][5] > 0 then
+
-							while true do
+
-								nList[n][5] = math.max(nList[n][5] - 0.2, 0)
+
-								notif.displayNotifications(false)
+
-								if nList[n][5] == 0 then break else sleep(0.05) end
+
 end
 for k,v in pairs(kraziez) do
-						table.remove(nList,n)
+
 		kraziez[kraziez[k][a]] = v
 	end
 end
 if _VERSION then
 	for a = 1, 255 do
 		if (a ~= 32) and (a ~= 13) and (a ~= 10) then
 			kraziez["all"][#kraziez["all"]+1] = string.char(a)
-if not (peripheral.find("modem") or enchatSettings.emulateModem) then
+
-	if WHISPER and _USERNAME then
+
-		WHISPER(_USERNAME,"Tell the owner to stick a modem on the MCCI computer.")
+
 	for a = 33, 126 do
-		termsetBackgroundColor(ncs(colors.gray))
+
 	end
-		termclear()
+
-		cwrite("Enchat"..(isBeta and " Beta " or " ").."requires a modem.",3)
+
-		cwrite("Add one, or press a key.",4)
+
-		sleep(0.1)
+local textToBlit = function(str) --returns output for term.blit, or blitWrap, with formatting codes for color selection. Modified for use specifically with Enchat.
-		local outcome = parallelwaitForAny(function() os.pullEvent("key") end, waitForModem)
+
-		modems = {peripheral.find("modem")}
+
-		if #modems == 0 then
+
-			termsetBackgroundColor(colors.black)
+
-			termsetCursorPos(1,scr_y)
+
 	local bgcode = "~"
-			sleep(0)
+
 	local doFormatting = true
 	local usedformats = {}
 	local txcol,bgcol = blit_names[termgetTextColor()], blit_names[termgetBackgroundColor()]
 	local origTX,origBG = blit_names[termgetTextColor()], blit_names[termgetBackgroundColor()]
 	local cx,cy
 	local moveOn = function(tx,bg)
-	if chan then
+		if isKrazy and (str:sub(p,p) ~= " ") and doFormatting then
-		for a = 1, #modems do
+
-			modems[a].open(chan)
+
 			else
 				output = output..kraziez.all[math.random(1,#kraziez.all)]
 			end
 		else
 			output = output..str:sub(p,p)
-	if chan then
+
-		for a = 1, #modems do
+		txcolorout = txcolorout..(doFormatting and tx or origTX)
-			modems[a].close(chan)
+		bgcolorout = bgcolorout..(doFormatting and bg or origBG)
 	end
 	while p <= #str do
 		if str:sub(p,p) == txcode then
 			if colors_names[str:sub(p+1,p+1)] and doFormatting then
 				txcol = str:sub(p+1,p+1)
 				usedformats.txcol = true
 				p = p + 1
 			elseif codeNames[str:sub(p+1,p+1)] then
 				if str:sub(p+1,p+1) == "r" and doFormatting then
 					txcol = blit_names[termgetTextColor()]
 					isKrazy = false
 					p = p + 1
-		if termcurrent().setVisible and enchatSettings.useSetVisible then
+
 					doFormatting = false
 					p = p + 1
 				elseif str:sub(p+1,p+1) == "}" and (not doFormatting) then
 					doFormatting = true
 					p = p + 1
 				elseif str:sub(p+1,p+1) == "k" and doFormatting then
 					isKrazy = true
 					usedformats.krazy = true
 					p = p + 1
 				else
 					moveOn(txcol,bgcol)
 				end
 			else
 				moveOn(txcol,bgcol)
 			end
 			p = p + 1
 		elseif str:sub(p,p) == bgcode then
 			if colors_names[str:sub(p+1,p+1)] and doFormatting then
 				bgcol = str:sub(p+1,p+1)
 				usedformats.bgcol = true
-	["pearl"] = colors.white,
+
-	["aryan"] = colors.white,
+
-	["#f0f0f0"] = colors.white,
+				bgcol = blit_names[termgetBackgroundColor()]
 				p = p + 1
-	["carrot"] = colors.orange,
+
-	["#f2b233"] = colors.orange,
+
 				p = p + 1
-	["hotpink"] = colors.magenta,
+
 				moveOn(txcol,bgcol)
 			end
-	["#e57fd8"] = colors.magenta,
+
 		else
 			moveOn(txcol,bgcol)
-	["skyblue"] = colors.lightBlue,
+
-	["#99b2f2"] = colors.lightBlue,
+
 	end
 	return output, txcolorout, bgcolorout, usedformats
 end
-	["cowardice"] = colors.yellow,
+
-	["#dede6c"] = colors.yellow,
+
 	local scr_x,scr_y = termgetSize()
 	local sx,sy = termgetCursorPos()
 	local cursor = 1
-	["slime"] = colors.lime,
+
-	["#7fcc19"] = colors.lime,
+
 	termsetCursorBlink(true)
-	["lightishred"] = colors.pink,
+
 	while true do
-	["communist"] = colors.pink,
+
-	["#f2b2cc"] = colors.pink,
+
 			pleaseDoFunc = true
 		elseif evt == "key" then
-	["#4c4c4c"] = colors.gray,
+
 				if not noNewLine then
 					write("\n")
 				end
 				termsetCursorBlink(false)
-	["#999999"] = colors.lightGray,
+
 			elseif key == keys.left then
 				if cursor-1 >= 1 then
-	["#4c99b2"] = colors.cyan,
+
 				end
 			elseif key == keys.right then
-	["obsidian"] = colors.purple,
+
-	["#b266e5"] = colors.purple,
+
 				end
 			elseif key == keys.up then
-	["blueberry"] = colors.blue,
+
-	["x"] = colors.blue,
+
-	["#3366bb"] = colors.blue,
+
 					rite((" "):rep(#output))
 					output = rHistory[rCursor] or ""
-	["dirt"] = colors.brown,
+
-	["#7f664c"] = colors.brown,
+
 				end
 			elseif key == keys.down then
-	["#57a64e"] = colors.green,
+
 				rite((" "):rep(#output))
 				if rCursor < #rHistory then
-	["marinara"] = colors.red,
+
-	["zero"] = colors.red,
+
-	["communism"] = colors.red,
+
-	["#cc4c4c"] = colors.red,
+
 				else
-	["dark"] = colors.black,
+
-	["coal"] = colors.black,
+
-	["onyx"] = colors.black,
+
-	["#191919"] = colors.black,
+
 			elseif key == keys.backspace then
 				if cursor > 1 and #output > 0 then
 					output = output:sub(1,cursor-2)..output:sub(cursor)
 					cursor = cursor - 1
 					pleaseDoFunc = true
 				end
 			elseif key == keys.delete then
 				if #output:sub(cursor,cursor) == 1 then
 					output = output:sub(1,cursor-1)..output:sub(cursor+1)
 					pleaseDoFunc = true
 				end
 			end
 		elseif evt == "char" or evt == "paste" then
 			output = output:sub(1,cursor-1)..key..output:sub(cursor+(#key-1))
 			cursor = cursor + #key
 			pleaseDoFunc = true
 		end
 		local pOut = (output or ""):sub(math.max( 1,(#textToBlit(output)+sx)-scr_x) )
-			if not colormode then
+
-				if (col ~= colors.white) and (col ~= colors.black) then
+
-					return (grayAllowed and (col == colors.lightGray) or (col == colors.gray))
+
 				doFunc(output)
 			end
 			termsetCursorPos(sx,sy)
 			if repchar then
 				rite(repchar:sub(1,1):rep(#pOut))
 			else
 				rite(pOut)
 			end
 			termwrite(" ")
 		end
 		termsetCursorPos(sx+cursorAdjFunc(pOut)+cursor-math.max( 1,(#textToBlit(output)+sx)-scr_x),sy)
 	end
 end
 
 local generateEncy = function()
 	modems = {peripheral.find("modem")}
 	modemClose(channel)
 	channel = 0
 	for a = 1, #encKey do
 		channel = channel + string.byte(string.sub(encKey,a,a))
 	end
 	if channel >= 65535 then
 		error("Bad key! Use a smaller one.")
 	end
 	modemOpen(channel)
 	checksum = "ENCMAIL" --Used to eliminate gibberish messages securely, based on the key.
 	for a = 1, #encKey do
 		checksum = checksum..string.byte(string.sub(encKey,a,a))
 	end
 	checksum = encrite(checksum,encKey)
 end
 
-				output[#output+1] = {text:sub(a,a),txt:sub(a,a),bg:sub(a,a)}
+
 	if textToBlit(yourName) == "con" or textToBlit(yourName) == "*" then return printError("Not that name!") end
 end
 
 local cf = function(txt) --contextual filter
 	if enchatSettings.doColorize then
 		return txt
 	else
 		return textToBlit(txt)
 	end
 end
 
 local writef = function(txt,noWrite)
 	if enchatSettings.doColorize then
 		local text, textCol, bgCol, usedformats = textToBlit(txt)
 		local out = blitWrap(text,textCol,bgCol,noWrite)
-	return lines, output
+
 	else
 		return write(txt), #txt, {}
 	end
 end
 
 local _ftlen = function(text)
 	return #textToBlit(text)-#text
 end
 
 local clearLines = function(top, bottom)
 	for a = top, bottom do
 		termsetCursorPos(1,a)
 		termclearLine()
 	end
 end
 
 scroll = 1
 doScroll = true
 
 local urkrazy,_ = false
 local redrawScreen = function() --renders the chat and other things that change when scrolling.
 	tsv(false)
 	local prevX, prevY = termgetCursorPos()
 	local _logold = _log
 	_log,log = {},{}
 	for a = 1, #chatlog do
 		if not chatlog[a][3] then
 			_log[#_log+1] = {"",false}
 		end
 		if chatlog[a][4] == true then
 			_log[#_log+1] = {"<"..chatlog[a][1].."> "..chatlog[a][2],false}
 		else
 			_log[#_log+1] = {cf("<"..chatlog[a][1].."&r~r> "..chatlog[a][2]),true}
 		end
 	end
 	if not doScroll then
 		scroll = scroll + (#_log - #_logold)
 	end
 	for a = 1, #_log-(scroll-1) do
 		log[#log+1] = _log[a]
 	end
 	termsetCursorPos(1,1)
 	termsetBackgroundColor(palate.bg)
 	termsetTextColor(palate.txt)
 	termwrite(string.rep(" ",scr_x*(scr_y-2)))
 	local midPoint = {
 		scr_x / 2,
 		scr_y / 2,
 	}
-if tonumber(_CC_VERSION or 0) >= 1.76 then
+
 	clearLines(1,scr_y-2)
 	termsetCursorPos(1,scr_y)
 	termclearLine()
 	local indent = 1 --in case any line is greater than the length of the screen
 	local indentIn = 0 --in the same case, mid writing
 	for a = 1, #log do
 		if log[a][2] then
 			indent = indent + writef(log[a][1],true)
 		else
 			indent = indent + math.floor(#log[a][1]/scr_x)
 		end
-local moveOn
+
-local textToBlit = function(str,onlyString,initTxt,initBg) --returns output for term.blit, or blitWrap, with formatting codes for color selection. Modified for use specifically with Enchat.
+
-	if (not str) then
+
-		if onlyString then
+		termsetCursorPos(1,((((scr_y-1)+a-#log))-indent)+indentIn)
-			return ""
+
 			indentIn = indentIn + writef(log[a][1],true)
-			return "","","",{}
+			_,_,urkrazy = writef(log[a][1],false)
 			hasKrazy = hasKrazy or (urkrazy.krazy or false)
 		else
-	str = tostring(str)
+
 			termwrite(log[a][1])
 		end
 	end
 	termsetCursorPos(scr_x,scr_y)
 	if doScroll then writef("&8.") else termwrite(" ") end
 	termsetCursorPos(prevX,prevY)
 	tsv(true)
 end
 
-	local txcol,bgcol = initTxt or blit_names[termgetTextColor()], initBg or  blit_names[termgetBackgroundColor()]
+
-	local origTX,origBG = initTxt or blit_names[termgetTextColor()], initBg or blit_names[termgetBackgroundColor()]
+	if (#modems > 0) then modemTransmit(channel, channel, {cry = true, cs = encode(checksum)}) end --ping!
 	while true do
-	moveOn = function(tx,bg)
+
-		if isKrazy and (str:sub(p,p) ~= " ") then -- and doFormatting then
+
 			if type(evt[5].tears) == "table" then evt[5].tears = decode(evt[5].tears) end
 			if type(evt[5].tears) == "string" and decrite(decode(evt[5].cs),encKey) == decrite(checksum,encKey) then
 				local tear = decrite(evt[5].tears,encKey)
 				playerList[tear] = true
 			end
 		end
 	end
 end
-		txcolorout = txcolorout..tx --(doFormatting and tx or origTX)
+
-		bgcolorout = bgcolorout..bg --(doFormatting and bg or origBG)
+local handleCommand = function(commie)
 	commie = commie or {}
 	local command = commie[1] or ""
 	local argument = commie
 	if #commie > 0 then
 		table.remove(argument,1)
 		argument = tableconcat(argument," ") or ""
 	else
 		argument = ""
 	end
-					txcol = origTX
+	local commandTable
 	commandTable = {
 		["exit"] = function() --why would you want to leave??
 			endMode = 0
 			return "exit"
 		end,
 		["key"] = function()
 			if #argument > 0 then
 				if argument == encKey then return end
 				os.queueEvent("enchat_send", "con", yourName.."&r~r has left.",encKey)
 				sleep(0)
 				encKey = argument
 				generateEncy()
 				os.queueEvent("enchat_send", "con", yourName.."&r~r moseyed on over.",encKey)
 				logadd("*","Key changed. (channel: "..channel.."&r)",true)
 			else
 				generateEncy() --in case you break and reattach a modem, this should fix it right up
 				logadd("*","Modem Channel: "..channel,false,true)
 				logadd("*","Key: "..strcapsule(encKey),true,true)
 			end
 			redrawScreen()
 		end,
 		["heil"] = function() --please don't tell me that you're offended, or I'll get offended
 			local heilTable = {
 				"Cobra",
 				"this",
-				bgcol = origBG
+
 				"unto me",
 				"dan200",
 				"myself",
 				"!",
 				"oeed",
 				"Exerro",
 				"Kepler",
 				"Danny",
 				"Bagel",
 				"Roger",
 				"King Porky",
 			}
 			local hailer
-	if onlyString then
+
-		return output
+
 			os.queueEvent("enchat_send", yourName, mess)
-		return output, txcolorout, bgcolorout, usedformats
+			logadd("con","You heiled "..hailer.."!",false)
 			redrawScreen()
 		end,
 		["help"] = function() --I would call it "man", but there's only so much you can write about a two-argument function
-local logadd = function(name,msg,newline,stopFormatting,doNotSay)
+
 			for k,v in pairs(commandTable) do
-	if (WHISPER and _USERNAME) and (not doNotSay) then
+				strtime = tostring(math.floor(os.time()/timedivisor))
-		WHISPER(_USERNAME,textToBlit(table.concat({name,": ",msg}),true))
+				logadd("*","&0/&4"..k,a)
 				a = true
-	if enchatSettings["doNotif"] and canvas then
+
-		local c,t,b
+
-		if name then
+
-			c,t,b = textToBlit(table.concat({"<",name,"&r~r> ",msg}),nil,"0"," ")
+
 			_log = {}
-			c,t,b = textToBlit(msg,nil,"0"," ")
+
 			chatlog = {}
-		notif.newNotification(c,t,b,notif.time*4)
+
 		end,
 		["cry"] = function() --your annoying tears streaming from your stupid fat face attracts a list of other people
 			playerList = {}
 			logadd("con","You cried loudly!",true)
 			redrawScreen()
 			parallelwaitForAny(_getTears, function() sleep(0.5) return end)
 			_list = {}
 			for k,v in pairs(playerList) do
 				tableinsert(_list,k)
 			end
 			if #_list > 0 then
 				logadd("con",tableconcat(_list,"&r~r, ").."&r~r responded!",true)
 			else
 				logadd("con","&eBut nobody came.",true)
 			end
 			redrawScreen()
 		end,
 		["me"] = function() -- * EldidiStroyrr is dashingly handsome
 			os.queueEvent("enchat_send", "*", "~r"..yourName.."~r&2 "..argument)
 			logadd("*","~r"..yourName.."~r&2 "..argument,false)
 			redrawScreen()
 		end,
 		["colors"] = function()
 			logadd("*","~0&f0~1&01~22~33~44~55~66~77~88~99~aa~bb~cc~dd~ee~ff",false)
 			logadd("*","'&' for text, '~' for background.",false)
 			redrawScreen()
 		end,
 		["ping"] = function() --what do you mean this command is useless
 			logadd("*",(argument ~= "") and argument or "Pong!",false)
 			redrawScreen()
-			elseif key == keys.home then
+
-				cursor = 1
+
-			elseif key == keys["end"] then
+
-				cursor = #output+1
+			if argument:gsub("%s","") == "beta" then
 				url = "https://pastebin.com/raw/4a6NZaMZ"
 			else
 				url = "https://pastebin.com/raw/JtgbWdV5"
 			end
 			if shell then
 				cfile = shell.getRunningProgram()
 			else
 				--termsetBackgroundColor(palate.bg)
 				--termsetTextColor((palate.txt ~= colors.yellow) and colors.yellow or colors.black)
 				--cwrite("Download where?",scr_y,true)
 				logadd("con","&4Download where?",true)
 				scroll = 1
 				redrawScreen()
 				termsetCursorPos(1,scr_y-1)
 				termsetBackgroundColor(colors.lightGray)
 				termsetTextColor(palate.chattxt)
 				termclearLine()
 				write(":")
 				termsetBackgroundColor(palate.chatbg)
 				cfile = read()
 			end
 			if fs.isReadOnly(cfile) then
 				logadd("*","Unable to update to &4read-only directory.&r",true)
 				redrawScreen()
 				return
 			end
 			if not http then
 				logadd("*","&4HTTP is disabled.&r Ask an admin to enable it.",true)
 				redrawScreen()
 				return
 			else
 				if not http.checkURL(url) then
 					logadd("*","&4It appears the download URL is whitelisted.&r &cPlease slap your admin in their stupid face.",true)
 					redrawScreen()
 					return
 				end
 			end
 			--termsetBackgroundColor(palate.bg)
 			--termsetTextColor((palate.txt ~= colors.yellow) and colors.yellow or colors.black)
 			--cwrite("Downloading...",scr_y,true)
 			logadd("con","&4Downloading...",true)
 			scroll = 1
 			redrawScreen()
 			local data = http.get(url)
 			if not data then
 				logadd("*","&4Couldn't connect to Pastebin.&r Sorry.",true)
 				redrawScreen()
 				return
 			else
 				local file = fs.open(cfile,"w")
 				file.write(data.readAll())
 				file.close()
 				--cwrite("Yay! Relaunching.",scr_y,true)
 				logadd("con","&4Yay! Relaunching.",true)
 				scroll = 1
 				redrawScreen()
 				sleep(1)
 				os.queueEvent("enchat_send", "con", yourName.."&r~r redownloaded the program.")
 				sleep(0)
-	channel = fixedChannel and fixedChannel or channel
+
 				return "restart"
 			end
 		end,
 		["whoami"] = function()
 			if argument:lower() == "now" then
 				logadd("*","You are still \""..yourName.."&r~r\"!",true)
 			else
 				logadd("*","You are \""..yourName.."&r~r\"!",true)
-	channel = fixedChannel and fixedChannel or channel
+
 			redrawScreen()
-	checksum = "" --Used to eliminate gibberish messages securely, based on the key.
+
 		["nick"] = function()
 			if argument ~= "" then
 				if argument ~= yourName then
 					if #argument:gsub("%s","") > 0 then
 						if #textToBlit(argument) < 20 then
 							if textToBlit(argument) ~= "con" and textToBlit(argument) ~= "*" then
 								os.queueEvent("enchat_send", "con", tostring(yourName.."&r~r is now known as "..strcapsule(argument.."&r~r")))
 								logadd("*",yourName.."&r~r is now known as "..strcapsule(argument.."&r~r"),false)
 								yourName = tostring(argument)
 							else
 								logadd("*","&4Not so fast!!",false)
 							end
 						else
 							logadd("*","&4Maximum 20 non-formatting characters!",false)
 						end
 					else
 						logadd("*","&4Choose a more substantial name.",false)
 					end
 				else
 					logadd("*","&4That's already your name.",false)
 				end
 			else
 				logadd("*","&4/nick <newname>",true)
 			end
-		if noWrite then
+
-			local cx,cy = termgetCursorPos()
+
-			return math.floor((cx+#cf(txt))/scr_x), #cf(txt), {} --this is approximate, and might mess up with multiline strings
+
 			if argument:gsub("%s","") == "" then
-			return write(txt), #txt, {}
+
 			else
 				argument = explode(" ",argument)
 				if #argument == 1 then
 					if argument[1]:gsub("%s",""):lower() == "reset" then
 						palate = {
-	return enchatSettings.doColorize and (#textToBlit(text) - #text) or 0
+
 							txt = colors.white,
 							chatbg = colors.white,
 							chattxt = colors.black,
 						}
 						logadd("*","&4You cleansed your palate.",false)
 					else
 						logadd("*","&4Give me a color code next time.",false)
 					end
 				else
 					if #argument > 2 then
 						argument = {argument[1], tableconcat(argument," ",2)}
 					end
-local urkrazy,spagh,_ = false
+
 					local newcol = argument[2]:lower()
-	if _USERNAME then
+
-		return
+
 					else
 						if not colors_strnames[newcol] then
 							logadd("*","&4That isn't a valid color code. (0-f)")
 						else
 							palate[argument[1]] = colors_strnames[newcol]
 							logadd("*","You have such a sense of style.",false)
 						end
 					end
 				end
 			end
-			if chatlog[a][1] then
+
-				_log[#_log+1] = {table.concat({"<",chatlog[a][1],"> ",chatlog[a][2]}),false}
+
 	}
-				_log[#_log+1] = {chatlog[a][2],false}
+
 		return commandTable[command]()
 	else
-			if chatlog[a][1] then
+
-				_log[#_log+1] = {cf(table.concat({"<",chatlog[a][1],"&r~r> ",chatlog[a][2]})),true}
+
 end
-				_log[#_log+1] = {cf(chatlog[a][2]),true}
+
 local doAndBack = function(func)
 	local backColor = termgetBackgroundColor()
 	local textColor = termgetTextColor()
 	local curX, curY = termgetCursorPos()
 	local results = {func()}
 	termsetBackgroundColor(backColor)
 	termsetTextColor(textColor)
 	termsetCursorPos(curX,curY)
 	return tableunpack(results)
 end
-	termsetBackgroundColor(ncs(palate.bg))
+
-	termsetTextColor(ncs(palate.txt))
+local mainMenu = function()
 	local options = {"Send","Inbox","Contacts","Back to terminal","Quit"}
 	local cursor = 1
 	local _rendermenu = function(c)
 		for a = 1, #options do
 			term.setCursorPos(2,(scr_y-#options)-1+a)
 			if a == c then
 				writef("&0> "..options[a])
 			else
 				writef("&7 "..options[a])
 			end
 		end
 	end
 	while true do
 		_rendermenu(cursor)
 
 	end
 end
 
 local renderAll = function()
 	while true do
-		local ypos = ((((scr_y-1)+a-#log))-indent)+indentIn
+		local result = mainMenu()
-		termsetCursorPos(1,ypos)
+
 end
-			spagh,_,urkrazy = writef(log[a][1],true)
+
-			indentIn = indentIn + spagh
+local receiveMessages = function()
-			writef(log[a][1],false)
+	local encMessage
-			-- _,_,urkrazy = writef(log[a][1],false)
+
-			hasKrazy = hasKrazy or (urkrazy.krazy and (ypos <= scr_y+2 and ypos >= 1)) or false
+
 		event, side, frequency, replyFrequency, message, distance = os.pullEvent()
 		if event == "modem_message" then
 			if distance ~= 0 then
 				if type(message) == "table" then
 					if message.cry and message.cs then --basically a ping thing
 						message.cs = decrite(decode(message.cs),encKey)
-	if doScroll then writef(cf("&8.")) else termwrite(" ") end
+
 							modemTransmit(channel, channel, {tears = encode(encrite(yourName,encKey)), cs = encode(checksum)})
 						end
 					else
 						if message.name and message.msg and message.cs then
-local dchecksum
+
 							message.cs = decrite(decode(message.cs),encKey)
-	modemTransmit(channel, channel, {cry = true, cs = encode(checksum)}) --ping!
+
 							message.name = decode(message.name)
 							if type(message.name) == "string" and type(message.msg) == "string" and message.cs == decrite(checksum,encKey) then
 								local strtime = tostring(math.floor(os.time()/timedivisor))
 								local plainname, plainmsg = decrite(decrite(message.name,strtime),encKey), decrite(decrite(message.msg,strtime),encKey)
-			if type(evt[5].tears) == "string" and decrite(decode(evt[5].cs),encKey) == dchecksum then
+
 								os.queueEvent("enchat_receive",message.name,encMessage)
 								doAndBack(redrawScreen)
 							end
 						end
 					end
 				end
 			end
-local formatTable = function(tbl)
+		--elseif event == "didScroll" then
 		--	doAndBack(redrawScreen)
 		elseif event == "peripheral" or event == "peripheral_detach" then --yaay
-		output = table.concat({output," ",tostring(k)," = ",textutils.serialize(v),","})
+
 				generateEncy()
-	return output:sub(2,-2)
+
 		end
 	end
-local contextualQuote,custColor = function(judgetxt,txt)
+
-	if type(judgetxt) == "string" then
+
-		return table.concat({"'",txt,"'"})
+local sendMessages = function()
 	while true do
 		local event, name, message = os.pullEvent("enchat_send",key)
 		local eName = encrite(encrite(tostring(name),key or encKey),tostring(math.floor(os.time()/timedivisor)))
 		local eMessage = encrite(encrite(tostring(message),key or encKey),tostring(math.floor(os.time()/timedivisor)))
 		local sendmsg = {
-local enchatSend = function(name, message)
+			name = encode(eName),
-	local eName = encrite(encrite(tostring(name),key or encKey),tostring(math.floor(os.time()/timedivisor)))
+			msg = encode(eMessage),
-	local eMessage = encrite(encrite(tostring(message),key or encKey),tostring(math.floor(os.time()/timedivisor)))
+			cs = encode(checksum),
-	local sendmsg = {
+		}
-		name = encode(eName),
+		modemTransmit(channel, channel, sendmsg)
-		msg = encode(eMessage),
+
-		cs = encode(checksum),
+
 
-	modemTransmit(channel, channel, sendmsg)
+if termisColor() then
 	colormode = true
 	grayAllowed = true
-local handleCommand = function(commie) --"I was only taking orders"
+
 	colormode = false
 	if _VERSION then
 		grayAllowed = true
 	else
 		grayAllowed = false
 	end
 end
 
 termsetBackgroundColor(colors.gray)
-	local commandTable,commandHelp
+termclear()
-	commandHelp = {
+termsetCursorPos(1,1)
-		["exit"] = "Exits enchat, I think.",
+
-		["key"] = "Displays the encryption key and modem channel used. Add an argument to redefine the key.",
+
-		["heil"] = "HEIL a random name from a list, or choose your own Fuhrer!",
+
-		["help"] = "Displays a list of commands, or displays a blurb about a specific command.",
+		termsetBackgroundColor(colors.gray)
-		["clear"] = "Clears your inventory. Kidding. It actually wipes the log of messages.",
+
-		["cry"] = "Cry like a bitch to get a list of all other Enchat clients that you can communicate with.",
+
-		["me"] = "Make a personalized message, like '* you is gr8 m8'",
+
-		["colors"] = "Shows a list of colors to format your messages with.",
+
-		["ping"] = "Pong!",
+		termsetBackgroundColor(colors.lightGray)
-		["update"] = "Updates Enchat to the latest version from Pastebin. For an argument, type 'beta' or 'stable' (or none at all) to update to the right build.",
+
-		["whoami"] = "Tells you your username.",
+
-		["nick"] = "Takes one argument, which is your new nickname. Accepts color codes and everything.",
+
-		["palate"] = "Change the color of certain elements of the Enchat interface. Accepts normal color names, but also things like blood, grass, piss...",
+
-		["set"] = "Set a config variable to a custom value for the current session.",
+
-		["about"] = "Tells you a blurb about Enchat.",
+
-		["yourself"] = "Don't mind if I do!",
+
 if not yourName then
 	write("\n")
 	local posX, posY = termgetCursorPos()
 	local prevX,prevY = 1,1
 	local namePrompt = function()
 		termsetCursorPos(prevX,prevY)
 		termsetBackgroundColor(colors.lightGray)
 		termsetTextColor(colors.black)
 		termclearLine()
-				enchatSend("*", yourName.."&r~r has left.",encKey)
+
 	end
 	repeat
 		termsetBackgroundColor(colors.gray)
-				enchatSend("*", yourName.."&r~r moseyed on over.",encKey)
+
-				logadd("*","Key changed. (channel: "..channel.."&r~r)",true)
+
 		termclearLine()
 		cwrite("Enter your name:\n",posY)
 		prevX,prevY = termgetCursorPos()
 		if enchatSettings.doColorize then
 			termsetTextColor(colors.lightGray)
 			cwrite("Color codes:",scr_y-3)
 			cwrite("(&text,~backg.)",scr_y-2)
 			termsetCursorPos((scr_x/2)-8,scr_y-1)
 			termsetBackgroundColor(colors.gray)
 			termclearLine()
 			blitWrap(textToBlit("~0&f0~1&01~22~33~44~55~66~77~88~99~aa~bb~cc~dd~ee~ff"))
 			termsetCursorPos(prevX,prevY)
-				"Gospel",
+
-				"Grave",
+		termsetBackgroundColor(colors.lightGray)
-				"WWW! Delete",
+
-				"Lord Wily",
+
-				"DanTwoHundred",
+
-				"SquidDev",
+		yourName = enchatSettings.fancyMsg and funcread(nil,{},namePrompt,false,writef,_ftlen) or read()
-				"the Unicode Consortium",
+
-				"the MATE developers",
+			termsetBackgroundColor(colors.gray)
-				"those golden few who play Battle Network",
+
-				"to 10 people to get a free iPhone X",
+
-				"or be heiled",
+
-				"Sakurai",
+
-				"Inti Creates",
+
-				"that one guy who got struck by lightning a bunch of times or something",
+termsetBackgroundColor(colors.gray)
 termsetTextColor(colors.white)
 
 generateEncy()
 
 local getScrolling = function()
 	local oldScroll
 	scroll = 1
 	doScroll = true
 	while true do
 		local _,dir,x,y = os.pullEvent("mouse_scroll")
 		oldScroll = scroll
 		if dir == (enchatSettings.reverseScroll and 1 or -1) then
 			if scroll < #_log-1 then
-			enchatSend(yourName, mess)
+				scroll = scroll + 1
-			logadd("*","You heiled "..hailer.."!",false)
+
 			end
 		elseif dir == (enchatSettings.reverseScroll and -1 or 1) then
 			if scroll > 1 then
 				scroll = scroll - 1
-			local arguments = explode(" ",argument) --I should really be more clear as to what variables are
+				if scroll == 1 then
-			if commandHelp[arguments[1]] then
+					doScroll = true
-				logadd("*",commandHelp[arguments[1]] or "No help text? Odd.")
+
 			end
-				for k,v in pairs(commandTable) do
+
-					logadd("*","&0/&4"..k,a)
+		if oldScroll ~= scroll then
-					a = true
+			os.queueEvent("didScroll",scroll)
 		end
 	end
 end
 
 local redrawForKrazy = function()
 	while true do
 		if hasKrazy then
 			redrawScreen()
 			os.queueEvent("redrawprompt")
 		else
-			nList = {}
+			sleep(0.2)
 		end
 		sleep(0.2)
 	end
-			logadd("*","You cried loudly!",true)
+
 
-			parallelwaitForAny(_getTears, function() sleep(0.75) return end)
+os.queueEvent("enchat_send", "con", yourName.."&r~r moseyed on over.")
 
 local funcList = {
 	receiveMessages,
 	sendMessages,
 	renderAll,
-				logadd("*",tableconcat(_list,"&r~r, ").."&r~r responded!",true)
+	getScrolling,
 	redrawForKrazy,
-				logadd("*","&eBut nobody came.",true)
+
 parallelwaitForAny(tableunpack(funcList))
 if endMode == 1 then
 	if shell then
 		shell.run(strcapsule(cfile),strcapsule(encKey),strcapsule(yourName))
-			enchatSend("*", "~r"..yourName.."~r&2 "..argument)
+
 		loadfile(cfile)(encKey,yourName)
 	end
 else
 	if modem then modemClose(channel) end
 	termsetCursorPos(1,scr_y)
 	termsetBackgroundColor(colors.black)
 	termclearLine()
 end