View difference between Paste ID: NQVPiSWZ and zvV7Le0F

--- pastebin get zvV7Le0F ourchat
+-- pastebin get NQVPiSWZ ourchat-rl
--- std pb zvV7Le0F ourchat
+-- std pb NQVPiSWZ ourchat-rl
 
-getChatURL = "http://minechat.x10host.com/index.php?true=true"
+
-postChatURL = "http://minechat.x10host.com/index.php?words="
+
 scr_x, scr_y = term.getSize()
 
-tDisplay = {}
+playerNames = {} --list of player names to keep track of nicknames
 
 chat = peripheral.find("chatbox_admin")
-if tArg[1] then
+if not chat then
-	playername = table.concat(tArg, " ")
+	chat = peripheral.find("chatbox")
-else
+	if not chat then
-	term.clear()
+		chat = peripheral.find("chat_box")
-	term.setCursorPos(2,scr_y-2)
+		if not chat then
-	print("Enter your name:")
+			error("Requires a chatbox.")
-	repeat
+
-		term.setCursorPos(2,scr_y-1)
+
 end
-		write(">>")
+
-		playername = read()
+
-	until playername ~= ""
+	local a = http.post("http://minechat.x10host.com/index.php?words="..textutils.urlEncode(data))
---	print(fs.getName(shell.getRunningProgram()) .. " <username>")
+
---	return false
+
 
 commands = {
 	["me"] = function()
-	local a = http.post(postChatURL..textutils.urlEncode(data))
+
 			send( "* "..playerNames[playername].." "..arg1 )
 		else
 			chat.tell(playername, "/me <whatever>")
 		end
 	end,
 	["nick"] = function()
-			send( "* "..playername.." "..arg1 )
+		if not playerNames[playername] then
 			playerNames[playername] = playername
-			putInDisplay("/me <whatever>")
+
 		if string.len(arg1) > 0 then
 			playerNames[playername] = "'"..arg1.."'"
 			send( "* "..playerNames[playername].." is now known as "..arg1 )
 		else
-			local sOldName = playername
+			chat.tell(playername, "/nick <newname>")
-			playername = arg1
+
-			send( "* "..sOldName.." is now known as "..playername )
+
 	["help"] = function()
-			putInDisplay("/nick <newname>")
+		chat.tell(playername, "Available commands:")
 		local sCommands = "*"
 		for sCommand, fnCommand in pairs( commands ) do
 			sCommands = sCommands .. " ##:" .. sCommand
-		putInDisplay("Available commands:")
+
 		chat.tell(playername, sCommands)
 	end,
-			sCommands = sCommands .. " /" .. sCommand
+	["insult"] = function() --the insult command is a very useful utility in making children cry
 		insults = {
-		putInDisplay( sCommands.." /logout" )
+
 			"USERNAME is fat and ugly and really, really stupid.",
-	["insult"] = function()
+
 			"If USERNAME was admin...eh, I don't want to think of such things...",
 			"No one is more pathetic than USERNAME.",
 			"USERNAME is known to suck more than Kirby.",
 			"USERNAME was the inspiration of Bubsy 3D.",
 			"USERNAME's IQ is his age...times two!",
 			"USERNAME's programming skills rival that of the Software Toolworks.",
 			"Down with USERNAME, the killer of kings!",
 			"USERNAME can go suck it!",
 			"Stop being so adversarial, USERNAME!",
 			"USERNAME cannot beat Air Man!",
 			"USERNAME likes Daikatana and Bubsy.",
 			"USERNAME is like King Midas, except with coagulated blood rather than gold.",
 			"USERNAME's mother was a hampster, and his father smells of elderberry!",
 			"Ni!",
 			"USERNAME is a dishonorable Ferrengi p'tach!",
 			"Pepperoni is too spicy for USERNAME.",
 		}
 		send(string.gsub(insults[math.random(1,#insults)],"USERNAME",arg1))
 	end,
 	["kill"] = function() --a useless command, I admit. But funny.
 		if #arg1 < 1 then
 			send(playerNames[playername].." was killed.")
 		else
-	["kill"] = function()
+
 		end
-			send(playername.." was killed.")
+
 	["whois"] = function()
 		local names = seperateMethods(playerNames)
 		for a = 1, #names do
 			if names[2] == "'"..arg1.."'" then
 				chat.tell(playername, arg1.." is actually '"..names[2].."'")
-		send(playername.."'s computer ID is "..os.getComputerID()..".")
+				break
 			end
-	["clear"] = function()
+
-		send(string.rep(" ",(51*19))..playername.." cleared the screen.")
+
 	["id"] = function()
-	["exit"] = function()
+		send(playerNames[playername].." is not a computer.")
-		send(playername.." has left the chat")
+
-		return true
+
 
-	["logout"] = function()
+local function seperateMethods(input)
-		send(playername.." has left the chat")
+
-		return true
+
 		table.insert(output, {key,value})
 	end
 	return output
-local function scrollClear(speed)
+
-	scr_x, scr_y = term.getSize()
+
-	for a = 1, scr_y/speed do
+function b()
-		term.scroll(speed*speed)
+
-		sleep(0)
+		ev, side, playername, mess = os.pullEvent("chat_message")
 		if not playerNames[playername] then
 			playerNames[playername] = playername
 		end
-function putInDisplay(text)
+		local sCommand = string.match( mess, ":([a-z]+)" )
-	tDisplay[#tDisplay+1] = tostring(text)
+
-	redraw = true
+
-	return tostring(text)
+
 				if string.find(mess," ") then
 					arg1 = string.sub(mess,string.find(mess," ")+1)
-function seperateMethods(input)
+					ab = fnCommand(arg1)
 				else
 					arg1 = ""
 					ab = fnCommand()
 				end
 				if ab == true then
 					return true
 				end
-local function b()
+
-	send(playername.." joined the chat!")
+				chat.tell(playername, "Bad command!")
 			end
-		term.setCursorPos(1,scr_y)
+
 			fullMess = "<"..playerNames[playername].."> "..mess
-		write(":")
+			tMess[#tMess+1] = fullMess
-		mess = io.read()
+			send( fullMess )
-		term.setCursorPos(1,scr_y-1)
+
 	end
-		local sCommand = string.match( mess, "^/([a-z]+)" )
+
 
 function clearLines(top, bottom)
 	for a = top, bottom do
 		term.setCursorPos(1,a)
 		term.clearLine()
-					a = fnCommand(arg1)
+
 end
 
-					a = fnCommand()
+
 	while true do
-				if a == true then
+		local b = http.post("http://minechat.x10host.com/index.php?true=true")
 		if b then
 			b = b.readAll()
 		else
-				print("Bad command!")
+			error("Server not found. :(")
 		end
 		if (b ~= tMess[#tMess]) and (b ~= fullMess) then
-			send( "<"..playername.."> "..mess )
+			tMess[#tMess+1] = b
 			chat.say(tMess[#tMess])
 		end
 	end
 end
-local function clearLines(top, bottom)
+
 function showListofAllNames()
 	while true do
 		term.clear()
 		term.setCursorPos(1,1)
 		for a = 1, #tMess do
 			print(tMess[a])
-function chatPrint(log)
+
-	if not type(log) == "table" then log = {log} end
+		repeat
-	local prevX, prevY = term.getCursorPos()
+			oldPlayerNames = playerNames
-	clearLines(1,scr_y-1)
+			sleep(0.5)
-	indent = 0 --in case any line is greater than the length of the screen
+		until oldPlayerNames ~= playerNames
-	indentIn = 0 --in the same case, mid writing
+
-	for a = 1, #log do
+
-		indent = indent + math.floor(#log[a]/scr_x)
+
 
-	for a = 1, #log do
+parallel.waitForAny(a, b, showListofAllNames)
-		for b = 0, math.floor(#log[a]/scr_x) do
+
-			if b > 0 then indentIn = indentIn + 1 end
+
-			term.setCursorPos(1,((((scr_y-1)+a-#log))-indent)+indentIn)
+