View difference between Paste ID: cKmEV1HC and AHxrKyJz

-chatbox = peripheral.find("chatbox")
+-- pastebin get cKmEV1HC pschat
 chatbox = peripheral.find("chatbox_admin")
 if not chatbox then
 	chatbox = peripheral.find("chatbox")
 	if not chatbox then
 		chatbox = peripheral.find("chat_box")
 		if not chatbox then
 			chatbox = peripheral.find("chatBox")
 			if not chatbox then
 				error("Chatbox required, go get one.")
-local channel = "main"
+
 		end
 	end
 end
 name = "chatboxuser"
 term.clear()
 --[[Changelog: 1.4: Added Notification sound.
 1.5: Added Join/Leave message.
 3.0 now on App Engine!
 ]]--
 --Credit Jesusthekiller for color formatting
 
 local split = function(str, pat) local t = {} local fpat = "(.-)"..pat local last_end = 1 local s, e, cap = str:find(fpat, 1) if not s then return {str} end while s do if s ~= 1 or cap ~= "" then table.insert(t,cap) end last_end = e+1 s, e, cap = str:find(fpat, last_end) end if last_end <= #str then cap = str:sub(last_end) table.insert(t, cap) end return t end
 
 if not inputMessage then
 	inputMessage = "nil"
 	inputName = "nil"
 	inputSide = "nil"
 end
 
 justStarted = true
 isRestart=false
 local channel = "main_chatbox"
 
 local trimColor=function(str)
   str=string.gsub(str,"%#.","")
   str=string.gsub(str,"%$.","")
   return str
 end
 
 local history={}
 
 local update,colorRead,play,clear,receive,send,processCommand,post,updateDisplay
 local cprint,cwrite,toCode,cCode,clear,sb,st,sc
 function sc(x, y)
     term.setCursorPos(x, y)
 end
 
 function clear(move)
     sb(colors.black)
     term.clear()
     if move ~= false then sc(1,1) end
 end
 
 function sb(color)
     term.setBackgroundColor(color)
 end
 
 function st(color)
     term.setTextColor(color)
 end
 
 function cCode(h)
         if term.isColor() and term.isColor then
                 return 2 ^ (tonumber(h, 16) or 0)
         else
                 if h == "f" then
                         return colors.black
                 else
                         return colors.white
                 end
         end
 end
 
 function toCode(n)
         return string.format('%x', n)
 end
 
 function cwrite(text)
         text = tostring(text)
 
         local i = 0
     while true  do
                 i = i + 1
                 if i > #text then break end
 
         local c = text:sub(i, i)
 
                 if c == "\\" then
             if text:sub(i+1, i+1) == "&" then
                 write("&")
                 i = i + 1
             elseif text:sub(i+1, i+1) == "$" then
                 write("$")
                 i = i + 1
                         else
                                 write(c)
             end
         elseif c == "#" then
             st(cCode(text:sub(i+1, i+1)))
             i = i + 1
         elseif c == "$" then
             sb(cCode(text:sub(i+1, i+1)))
             i = i + 1
         else
             write(c)
         end
     end
 
         return
 end
 
 function cprint(text)
         return cwrite(tostring(text).."\n")
 end
 
 function colorRead( _sReplaceChar, _tHistory )
   term.setCursorBlink( true )
 
     local sLine = ""
   local nHistoryPos = nil
   local nPos = 0
     if _sReplaceChar then
     _sReplaceChar = string.sub( _sReplaceChar, 1, 1 )
   end
 
   local w, h = term.getSize()
   local sx, sy = term.getCursorPos()
 
   local function redraw( _sCustomReplaceChar )
     local nScroll = 0
     if sx + nPos >= w then
       nScroll = (sx + nPos) - w
     end
 
     term.setCursorPos( sx, sy )
     local sReplace = _sCustomReplaceChar or _sReplaceChar
     if sReplace then
       cwrite( string.rep(sReplace, string.len(sLine) - nScroll) )
     else
       cwrite( string.sub( sLine, nScroll + 1 ) )
     end
     term.setCursorPos( sx + nPos - (#sLine-#trimColor(sLine)) - nScroll, sy )
   end
 
   while true do
     local sEvent, param = os.pullEvent()
     if sEvent == "char" then
       sLine = string.sub( sLine, 1, nPos ) .. param .. string.sub( sLine, nPos + 1 )
       nPos = nPos + 1
       redraw()
 
     elseif sEvent == "key" then
         if param == keys.enter then
         -- Enter
         break
 
       elseif param == keys.left then
         -- Left
         if nPos > #sLine-#trimColor(sLine) then
           nPos = nPos - 1
           redraw()
         end
 
       elseif param == keys.right then
         -- Right
         if nPos < #sLine then
           nPos = nPos + 1
           redraw()
         end
 
       elseif param == keys.up or param == keys.down then
                 -- Up or down
         if _tHistory then
           redraw(" ");
           if param == keys.up then
             -- Up
             if nHistoryPos == nil then
               if #_tHistory > 0 then
                 nHistoryPos = #_tHistory
               end
             elseif nHistoryPos > 1 then
               nHistoryPos = nHistoryPos - 1
             end
           else
             -- Down
             if nHistoryPos == #_tHistory then
               nHistoryPos = nil
             elseif nHistoryPos ~= nil then
               nHistoryPos = nHistoryPos + 1
             end
           end
 
           if nHistoryPos then
                       sLine = _tHistory[nHistoryPos]
                       nPos = string.len( sLine )
                     else
             sLine = ""
             nPos = 0
           end
           redraw()
                 end
       elseif param == keys.backspace then
         -- Backspace
         if nPos > 0 then
           redraw(" ");
           sLine = string.sub( sLine, 1, nPos - 1 ) .. string.sub( sLine, nPos + 1 )
           nPos = nPos - 1
           redraw()
         end
       elseif param == keys.home then
         -- Home
         nPos = 0
         redraw()
       elseif param == keys.delete then
         if nPos < string.len(sLine) then
           redraw(" ");
           sLine = string.sub( sLine, 1, nPos ) .. string.sub( sLine, nPos + 2 )
-name = ...
+
         end
       elseif param == keys["end"] then
         -- End
         nPos = string.len(sLine)
         redraw()
       end
     end
   end
 
   term.setCursorBlink( false )
   term.setCursorPos( w + 1, sy )
   print()
 
   return sLine
 end
 
 local postLink,getLink
 postLink="http://http-chat-serv.appspot.com/post"
 getLink="http://http-chat-serv.appspot.com/get"
 updateLink = "https://raw.github.com/MudkipTheEpic/chatHTTP/master/Client"
 currentProgram = shell.getRunningProgram()
 --name = ...
 screenX, screenY = term.getSize()
 screenY = screenY-2
 version = "3.0"
 data = {}
 if not fs.exists("/.chatData") then
 	fs.makeDir("/.chatData")
 end
 if fs.exists("/.chatData/data") then
 	file = fs.open("/.chatData/data", "r")
 	data.file = file.readAll()
 	password = data.file
 	file.close()
 else
 	password = "guest"
 end
 local function centerWrite(text, ny)
 	if type(text) == "table" then for _, v in pairs(text) do centerPrint(v) end
 	else
 		local x, y = term.getCursorPos()
 		local w, h = term.getSize()
 		term.setCursorPos(w/2 - text:len()/2 + (#text % 2 == 0 and 1 or 0), ny or y)
 		cwrite(text)
 	end
 end
 
 function updateDisplay(txt)
     term.setCursorPos(1, screenY)
 	term.clearLine()
 	centerWrite(txt)
 end
 
 local post=function(txt,txt2) txt=txt2 or txt return http.get(postLink,{usr = trimColor(name), data = txt, chan = channel}) end
 local cmdpost=function(txt,txt2) txt=txt2 or txt return http.get(postLink,{usr = trimColor(name), cmd=txt, pass=password}) end
 
 local commandTable={
 	update=function() return update() end;
 	version=function()
 		return updateDisplay("Version: "..version)
 	end;
 	exit=function(...) local l if #{...}>0 then l=" ["..table.concat({...}," ").."]" else l="" end post(name.."#0$f left the room."..l) return error(nil,3) end;
 	me=function(...)
 		local str=table.concat({...}," ")
 		return post("*"..name.."#0$f "..str)
 	end;
 	nick=function(newNick)
 		if not newNick or newNick=="" then updateDisplay("Please supply a nickname.") return nil end
 		post(name.."#0$f has changed nick to "..newNick)
 		name=newNick
 		return newNick
 	end;
   ping=function()
     updateDisplay(split(cmdpost("ping").readAll(), "\n")[2])
   end;
 	server=function(...)
 		local args = {...}
 		sendstr = table.concat(args, " ")
     return updateDisplay(split(cmdpost(sendstr).readAll(), "\n")[2])
 	end;
   swapServ=function(...)
   local args = {...}
   local sendstr = "mvserv "..table.concat(args, " ")
   return updateDisplay(split(cmdpost(sendstr).readAll(), "\n")[2])
   end;
   swapChannel=function(channel)
   local sendstr = "chanc "..channel
   return updateDisplay(split(cmdpost(sendstr).readAll(), "\n")[2])
   end;
 }
 
 ServCmdTbl = {
 	mvserv = function(NewServ)
   post(name.."#0$f has left this server")
 	postLink="http://"..NewServ[3]
 	getLink="http://"..NewServ[4]
 	post(name.."#0$f has joined this server")
 	end;
   cc = function(ChannelData)
   post(name.."#0$f has left this channel")
   channel = ChannelData[3]
   post(name.."#0$f has joined this channel")
   end;
 }
 
 function ProcServCmd(str)
 	local data2 = split(str, "\n")
 	str2 = data2[#data2]
 	if str2:sub(1,10) == "servercmd;" then
 		local strT = split(str2, ";")
 		for k,v in pairs(ServCmdTbl) do
 			if "servercmd;"..k == strT[1]..";"..strT[2] then
 				cmd = strT[2]
 				ServCmdTbl[cmd](strT)
 				return false
 			end
 		end
 		return true
 	end
 	return true
 end
 
 function processCommand(str)
 	if str:sub(1,1)=="/" then
 		local strT=split(str," ")
 		for k,v in pairs(commandTable) do
 			if "/"..k==strT[1] then
 				return commandTable[strT[1]:sub(2)]
 			end
 		end
 		return 4
 	end
 	return false
 end
 --cake
 function update()
   updateContent = http.get(updateLink)
   updateContent = updateContent.readAll()
   file = fs.open(currentProgram, "r")
   fileContent = file.readAll()
   file.close()
   if fileContent == updateContent then
     term.setCursorPos(1, screenY)
 	write(currentProgram.." is up to date!")
   else
     term.setCursorPos(1, screenY)
 	write("New update available! Installing now...")
 	sleep(1)
 	file = fs.open(currentProgram, "w")
 	file.write(updateContent)
 	file.close()
     term.setCursorPos(1, screenY)
 	term.clearLine()
 	write("Done! Restarting "..currentProgram.." now!")
   isRestart=true
   commandTable["exit"]("Updating client...")
   end
 
 end
 --test
 function play()
   redstone.setOutput("back", true)
   sleep(0.1)
   redstone.setOutput("back", false)
- get = http.get(getLink, {usr= name, slines=10, chan = channel})
+
-	get = get.readAll()
+
- tget = get
+
   redstone.setOutput("back",false)
   sleep(0.05)
   redstone.setOutput("back",true)
   sleep(0.1)
   redstone.setOutput("back",false)
 end
 
 function clearY(fromY, toY)
-   if string.find(get, "#4") then
+
-     lastmsg = string.sub(tget, (#tget-string.find(string.reverse(tget), "4#")+2), #get)
+
-     chatbox.say(lastmsg)
+
-   end
+
 	term.clearLine()
     fromY = fromY+1
   until fromY >= toY
-		play()
+
 
 function receive()
  while true do
-	sleep(2)
+   get = http.get(getLink, {usr= name, slines=1, chan = channel})
    lastget = http.get(getLink, {usr= name, slines=1, chan = channel})
    if not get then error("Lost connection to server...") end
    get = get.readAll()
    lastget = lastget.readAll()
    tget = get
-    --[[
+
-    term.setCursorPos(1, screenY+1)
+
-	 cwrite(name..": ")
+
 		if dop == true then
 			xOld, yOld = term.getCursorPos()
-    input = colorRead(nil,history)
+
-    table.insert(history,input)
+
-	 l=processCommand(input)
+
-   if l==4 then updateDisplay("Unknown command.")
+-- if string.find(get, "#4") then
-	 elseif l then l(select(2,unpack(split(input," "))))
+--   lastmsg = string.gsub(string.sub(lastget, (#lastget-string.find(string.reverse(lastget), "4#")+2), #lastget), "#0$f", "", 1)
-	 else
+     lastmsg = string.gsub(lastget,"\\(.)","%1")
-	   post(name.."#0$f: "..input)
+     if (lastmsg ~= "<"..inputName.."> "..inputMessage) and (justStarted == false) then
-	 end
+       chatbox.say(lastmsg)
-
+     end
-	 clearY(screenY+1, screenY+2)
+     justStarted = false
-  --]]
+ --end
-    event, side, name, message = os.pullEvent("chat_message")
+
-    post("<"..name.."> "..message)
+
 		term.setCursorPos(xOld, yOld)
     term.setBackgroundColor(colors.black)
     term.setTextColor(colors.white)
---[[
+
 	sleep(1)
-term.setCursorPos(1, screenY+1)
+
-if not name then
+
-write("Please enter a name: ")
+
-nameInput = colorRead()
+
-if nameInput == "" or nameInput == nil then
+
-  name = "User"..tostring(math.random(1, 999)
+    event, inputSide, inputName, inputMessage = os.pullEvent("chat_message")
-)else
+    post("<"..inputName.."> "..inputMessage)
-  name = nameInput
+
 end
 
 clearY(screenY+1, screenY+3)
-post(name.."#0$f joined the room!")
+
---]]
+get = http.get(getLink, {usr = name, slines=1, chan = channel})
 get = get.readAll()
 get = getOld
-write("/exit to exit, /update to update.")
+
-get = http.get(getLink, {usr = name, slines=10, chan = channel})
+
 if isRestart then return shell.run(currentProgram,name)
 end