View difference between Paste ID: H56dLcjk and L0ZKLBRG

-local function update()
+
-	local h = http.get "https://pastebin.com/raw/L0ZKLBRG"
+local o = peripheral.find "monitor"
-	local f = fs.open(shell.getRunningProgram(), "w")
+
-	f.write(h.readAll())
+o.setTextScale(0.5)
-	f.close()
+
-	h.close()
+local w, h = o.getSize()
 local command_window = window.create(o, 1, h, w, 1)
 local outputs_window = window.create(o, 1, 1, w, h - 1)
-if ... == "update" then update() end
+
 local function exec_in_window(w, f)
 	local x, y = o.getCursorPos()
-local s = peripheral.find "speaker"
+
 	f()
-local chan = 3636
+
-print "Welcome to the Lightweight Messaging System (developed by GTech Potatronics)"
+
 	o.setCursorPos(x, y)
-m.open(chan)
+
 
-local username = settings.get "lms.username"
+local function print_output(txt, color)
-if username == nil then
+	exec_in_window(outputs_window, function()
-	write "Username: "
+		term.setTextColor(color or colors.white)
-	username = read()
+
 	end)
 end
-local w, h = term.getSize()
+
-local send_window = window.create(term.current(), 1, h, w, 1)
+local function splitspace(str)
-local message_window = window.create(term.current(), 1, 1, w, h - 1)
+    local tokens = {}
     for token in string.gmatch(str, "[^%s]+") do
-local function notification_sound()
+        table.insert(tokens, token)
-	if s then
+
-		for i = 4, 12, 4 do
+    return tokens
-			s.playNote("flute", 3, i)
+
-			sleep(0.2)
+
 local function controls()
 	term.redirect(command_window)
 	term.setBackgroundColor(colors.white)
 	term.setTextColor(colors.black)
 	term.clear()
-	local x, y = term.getCursorPos()
+
 	while true do
 		write "> "
 		local msg = read(nil, hist)
 		table.insert(hist, msg)
-	term.setCursorPos(x, y)
+		local tokens = splitspace(msg)
 		local command = table.remove(tokens, 1)
 		if command == "open" then
-local function print_message(txt)
+			local chan = tonumber(tokens[1])
-	exec_in_window(message_window, function()
+			m.open(chan)
 			print_output(("Opened %d"):format(chan), colors.gray)
 		elseif command == "close" then
 			local chan = tonumber(tokens[1])
 			m.close(chan)
-local function trim(s)
+			print_output(("Closed %d"):format(chan), colors.gray)
-   return s:match( "^%s*(.-)%s*$" )
+
 			print_output("Command invalid", colors.gray)
 		end
-local banned_text = {
+
-    "yeet",
+
-    "ecs dee",
+
-	"dab",
+local function compact_serialize(x)
-}
+    local t = type(x)
     if t == "number" then
-if debug and debug.getmetatable then
+        return tostring(x)
-    _G.getmetatable = debug.getmetatable
+    elseif t == "string" then
         return textutils.serialise(x)
     elseif t == "table" then
-local function to_case_insensitive(text)
+        local out = "{ "
-	return text:gsub("[a-zA-Z]", function(char) return ("[%s%s]"):format(char:lower(), char:upper()) end)
+        for k, v in pairs(x) do
             out = out .. string.format("[%s]=%s, ", compact_serialize(k), compact_serialize(v))
         end
-local function filter(text)
+        return out .. "}"
-    local out = text
+    elseif t == "boolean" then
-    for _, b in pairs(banned_text) do
+        return tostring(x)
-        out = out:gsub(to_case_insensitive(b), "")
+    else
         error("Unsupported type " .. t)
-    return out
+
 end
 
-local function strip_extraneous_spacing(text)
+local function safe_serialize(m)
-    return text:gsub("%s+", " ")
+    local ok, res = pcall(compact_serialize, m)
     if ok then return res
     else return ("[UNSERIALIZABLE %s: %s]"):format(tostring(m), res) end
-local function collapse_e_sequences(text)
+
-    return text:gsub("ee+", "ee")
+
 local function tostring_with_default(x)
     if not x then return "[UNKNOWN]"
-local function preproc(text)
+    else return tostring(x) end
-    return trim(filter(strip_extraneous_spacing(collapse_e_sequences(text:sub(1, 128)))))
+
 
 local function receive()
-local function add_message(msg, usr)
+
-	local msg, usr = preproc(msg), preproc(usr)
+		local _, _, channel, reply_channel, message, distance = os.pullEvent "modem_message"
-	if msg == "" or usr == "" then return end
+		print_output(("%d \16 %d | %s"):format(channel, reply_channel, tostring_with_default(distance)))
-	print_message(usr .. ": " .. msg)
+		print_output(safe_serialize(message), colors.lightGray)
 	end
 end
-local function send()
+
-	term.redirect(send_window)
+parallel.waitForAny(controls, receive)