View difference between Paste ID: ugMfh2wc and YqVYfugc

--- FakeChat SERVER
+-- ...use with responsibility.
 --
--- Unencrypted, but fun!
+-- Get with
--- Spoof chat messages from anyone!
+-- pastebin get ugMfh2wc fc_server
--- Use with responsibility.
+-- pastebin get ugMfh2wc startup
 -- std ld fakechat_server
 
 local tArg = {...}
 
 if not commands then
   error("This requires a command computer.")
-local modem = peripheral.find("modem")
+
-if not modem then
+
-  error("A modem is required.")
+local channel = 1251  --default 1251
 
-modem.open(1251)
+local sHistory = {}
-shell.run("cf") --Function for translating messages into something commands.tellraw() can work with
+local scr_x, scr_y = term.getSize()
 local modems
 local setModems = function()
 	modems = {peripheral.find("modem")}
 	for a = 1, #modems do
 		if modems[a].isWireless() then
-local doFilter = false --If false, filters according to 'players' table
+			modem = modems[a]
 			modem.open(channel)
-local send = function(name,msg)
+			return
 		end
-  if msg:sub(1,3) == "___" then
+	end
-    compiled = msg:sub(4)
+	modem = nil
 end
-    compiled = "<"..name.."&r> "..msg
+
 setModems()
 
 local prefix = ""
 local suffix = ""
 
 local npos = 1
 local dnb = function(phunk, ...)
 	local t,b = term.getTextColor(), term.getBackgroundColor()
 	local x,y = term.getCursorPos()
 	local output = {phunk(...)}
 	term.setCursorPos(x,y)
-while true do
+	term.setTextColor(t)
-  local evt = {os.pullEvent("modem_message")}
+	term.setBackgroundColor(b)
-  if type(evt[5]) == "table" then
+	return unpack(output)
-    if type(evt[5][1]) == "string" and type(evt[5][2]) == "string" then
+
-      send( evt[5][1], evt[5][2] )
+
 local prevnames = {}
 
-end
+local colnames = {
 	["0"] = "black",
 	["1"] = "dark_blue",
 	["2"] = "dark_green",
 	["3"] = "dark_aqua",
 	["4"] = "dark_red",
 	["5"] = "dark_purple",
 	["6"] = "gold",
 	["7"] = "gray",
 	["8"] = "dark_gray",
 	["9"] = "blue",
 	["a"] = "green",
 	["b"] = "aqua",
 	["c"] = "red",
 	["d"] = "light_purple",
 	["e"] = "yellow",
 	["f"] = "white",
 }
 
 local colors_names = { --for use with colors api, you see
 	["0"] = colors.black,
 	["1"] = colors.blue,
 	["2"] = colors.green,
 	["3"] = colors.cyan,
 	["4"] = colors.red,
 	["5"] = colors.purple,
 	["6"] = colors.orange,
 	["7"] = colors.lightGray,
 	["8"] = colors.gray,
 	["9"] = colors.blue, --they don't translate perfectly, okay??
 	["a"] = colors.lime,
 	["b"] = colors.lightBlue,
 	["c"] = colors.red,
 	["d"] = colors.magenta,
 	["e"] = colors.yellow,
 	["f"] = colors.white,
 }
 local codeNames = { --just for checking
 	["k"] = "obfuscate",
 	["o"] = "italic",
 	["l"] = "bold",
 	["m"] = "strikethrough",
 	["n"] = "underline",
 	["r"] = "reset",
 }
 
 filterColors = function(str,doprint)
 	local p = 1
 	local output = ""
 	local code = "&"
 	local col = "f"
 	while p <= #str do
 		if str:sub(p,p) == code then
 			if colors_names[str:sub(p+1,p+1)] then
 				col = str:sub(p+1,p+1)
 				p = p + 1
 			elseif codeNames[str:sub(p+1,p+1)] then
 				if str:sub(p+1,p+1) == "r" then
 					col = "f"
 				end
 				p = p + 1
 			else
 				if doprint then
 					term.setTextColor(colors_names[col])
 					write(str:sub(p,p))
 				end
 			end
 			p = p + 1
 		else
 			output = output..str:sub(p,p)
 			if doprint then
 				term.setTextColor(colors_names[col])
 				write(str:sub(p,p))
 			end
 			p = p + 1
 		end
 	end
 	return output
 end
 
 colorFormat = function(str)
 	local color = "f"
 	local obfuscated = false
 	local bold = false
 	local strikethrough = false
 	local underline = false
 	local italic = false
 
 	local code = "&" --ONE CHARACTER
 	local pos = 1
 	local opos = 1
 	local output = {}
 
 	while pos <= #str do
 		output[opos] = {}
 		if str:sub(pos,pos) == code and pos < #str then
 			local changed = false
 			if colnames[str:sub(pos+1,pos+1)] then
 				color = str:sub(pos+1,pos+1)
 				changed = true
 			else
 				if str:sub(pos+1,pos+1) == "r" then
 					color = "f"
 					obfuscated = false
 					bold = false
 					strikethrough = false
 					underline = false
 					italic = false
 					changed = true
 				end
 				if str:sub(pos+1,pos+1) == "k" then
 					obfuscated = true
 					changed = true
 				end
 				if str:sub(pos+1,pos+1) == "l" then
 					bold = true
 					changed = true
 				end
 				if str:sub(pos+1,pos+1) == "m" then
 					strikethrough = true
 					changed = true
 				end
 				if str:sub(pos+1,pos+1) == "n" then
 					underline = true
 					changed = true
 				end
 				if str:sub(pos+1,pos+1) == "o" then
 					italic = true
 					changed = true
 				end
 			end
 			if changed then
 				output[opos].text = ""
 				pos = pos + 2
 			else
 				output[opos].text = str:sub(pos,pos)
 				pos = pos + 1
 			end
 		else
 			output[opos].text = str:sub(pos,pos)
 			pos = pos + 1
 		end
 		output[opos].color = colnames[color]
 		output[opos].obfuscated = obfuscated
 		output[opos].bold = bold
 		output[opos].strikethrough = strikethrough
 		output[opos].underline = underline
 		output[opos].italic = italic
 		opos = opos + 1
 	end
 	return textutils.serialiseJSON(output)
 end
 
 local players = { --Add playernames here if you want to filter who receives messages
   "dan200",
 }
 
 local doFilter = false --If true, filters according to 'players' table
 
 local send = function(name,msg,np,ns,realname,doprint)
   local compiled --compiled message, not compiled program
   local filtmsg = filterColors(msg)
   if filtmsg:sub(1,3) == "___" then --should this be a client option? hmm...
 	if filtmsg == "___join" then
 		compiled = "&e"..filterColors(realname).." joined the game."
 	elseif filtmsg == "___leave" then
 		compiled = "&e"..filterColors(realname).." left the game."
 	else
 	    compiled = msg:sub(4)
 	end
   else
     compiled = prefix.."&r"..np.."&r"..name.."&r"..ns.."&r"..suffix.."&r"..msg
   end
   compiled = colorFormat(compiled)
   if doFilter then
     for a = 1, #players do
       commands.tellraw(players[a],compiled)
     end
   else
     commands.tellraw("@a",compiled)
   end
 end
 
 local netsend = function(n,m,p,s,mp,rn) --name, message, prefix, suffix
 	local data = {
 		name = n,
 		realname = rn or n,
 		msg = mp..m,
 		prefix = p or "<",
 		suffix = s or "> ",
 	}
 	modem.transmit(channel,channel,data)
 end
 
 term.setBackgroundColor(colors.black)
 term.clear()
 term.setCursorPos(1,1)
 local name
 if tArg[1] then
     name = tArg[1]
     if name:gsub(" ","") ~= "" and prevnames[#prevnames] ~= name then
       table.insert(prevnames,name)
     end
 else
     print("Enter your name:")
     write(">")
     name = read(nil,prevnames)
     if name:gsub(" ","") ~= "" and prevnames[#prevnames] ~= name then
       table.insert(prevnames,name)
     end
 end
 
 local names = { --Add names to quickly switch between using UP and DOWN
     {
         name = name,
         prefix = "<",
         suffix = "> ",
         realname = name
     },
     {
         name = "&o&6Jesus",
         prefix = "<",
         suffix = "> ",
     },
     {
         name = "&dServer",
         prefix = "&d[",
         suffix = "&d] ",
         msgprefix = "&d",
         realname = "But nobody"
     },
     {
         name = "dan200",
         prefix = "<",
         suffix = "> ",
     },
 }
 
 local insend = function(n,m,p,s,mp,rn) --name, message, prefix, suffix
     local data = {
         name = n,
         realname = rn or n,
         msg = mp..m,
         prefix = p or "<",
         suffix = s or "> ",
     }
     os.queueEvent("modem_message","top",channel,channel,data,0)
 end
 
 local function doRead()
 	while true do
 		term.setBackgroundColor(colors.black)
 		term.clear()
 		term.setCursorPos(1,1)
 		term.setCursorPos(1,scr_y-1)
 		term.setBackgroundColor(colors.gray)
 		term.clearLine()
 		term.setTextColor(colors.white)
 		write(">")
 		local msg = read()
 		if msg:gsub(" ","") == "/exit" then
 			return
 		end
 		if msg:gsub(" ","") ~= "" then
 			local sdata = {
 				names[npos].name,
 				msg,
 				prefix..names[npos].prefix or "<",
 				suffix..names[npos].suffix or "> ",
 				names[npos].msgprefix or "",
 			}
 			if type(names[npos].realname) == "string" then
 				table.insert(sdata,names[npos].realname)
 			end
 			insend(unpack(sdata))
 		end
 	end
 end
 
 local renderHistory = function()
 	local y = scr_y-2
 	local r = "&r"
 	term.setBackgroundColor(colors.black)
 	for a = #sHistory, #sHistory-(scr_y-2), -1 do
 		if not sHistory[a] then break end
 		term.setCursorPos(1,y)
 		term.clearLine()
 		filterColors(sHistory[a].p..r..sHistory[a].n..r..sHistory[a].s..r..sHistory[a].m,true)
 		y = y - 1
 	end
 end
 
 local server = function()
   while true do
     local evt = {os.pullEvent("modem_message")}
     if type(evt[5]) == "table" then
       local i = evt[5]
       if type(i.name) == "string" and type(i.msg) == "string" and type(i.prefix) == "string" and type(i.suffix) == "string" and type(i.realname) == "string" then
         table.insert(sHistory,{n=i.name, m=i.msg, p=i.prefix, s=i.suffix})
         send( i.name, i.msg, i.prefix, i.suffix, i.realname, true)
         dnb(function() return renderHistory() end)
       end
     end
   end
 end
 
 local client = function()
 	doRead()
 end
 
 moreModems = function()
 	while true do
 		setModems()
 		sleep(0)
 	end
 end
 
 local funclist = {
 	client,
 	moreModems,
 	server,
 }
 
 parallel.waitForAny(unpack(funclist))