Client

--[[Changelog: 1.4: Added Notification sound.
1.5: Added Join/Leave message.
3.0 now on App Engine!
]]--
--Credit Jesusthekiller for color formatting
--Credit Mini for updating to latest cc

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
local function jsh(str)
  local hash = 0
  local strn = string.len(str)
  for i = 1, strn do
    char = string.byte(string.sub(str, i,i))
    hash = bit32.lshift(hash, 5) - hash + char
  end
  return hash
end
local tHex = {
    [ colors.white ] = "0",
    [ colors.orange ] = "1",
    [ colors.magenta ] = "2",
    [ colors.lightBlue ] = "3",
    [ colors.yellow ] = "4",
    [ colors.lime ] = "5",
    [ colors.pink ] = "6",
    [ colors.gray ] = "7",
    [ colors.lightGray ] = "8",
    [ colors.cyan ] = "9",
    [ colors.purple ] = "a",
    [ colors.blue ] = "b",
    [ colors.brown ] = "c",
    [ colors.green ] = "d",
    [ colors.red ] = "e",
    [ colors.black ] = "f",
}

local fHex = {}
for k,v in pairs(tHex) do
  fHex[v] = k
end

isRestart=false
local channel = "main"

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,getOld
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 (fHex[h] 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 )       
          redraw()
        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()
args = {...}
name = args[1]
if args[2] then
  channel = args[2]
end
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, pass=password}) 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;
  setPass=function(pass)
    password=pass
    local fh = fs.open(".chatData/data", "w")
    fh.write(jsh(pass))
    fh.close()
  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)
  sleep(0.3)
  redstone.setOutput("back", true)
  sleep(0.1)
  redstone.setOutput("back",false)
  sleep(0.05)
  redstone.setOutput("back",true)
  sleep(0.1)
  redstone.setOutput("back",false)
end

function clearY(fromY, toY)
  repeat
  	term.setBackgroundColor(colors.black)
  	term.setTextColor(colors.white)
    term.setCursorPos(1, fromY)
	term.clearLine()
    fromY = fromY+1
  until fromY >= toY
end

function receive()
  while true do
    get = http.get(getLink, {usr= name, slines=10, chan = channel, pass=password})
    get = get.readAll()
    get = string.gsub(get,"\\(.)","%1")
    if get ~= getOld then
		  dop = ProcServCmd(get)
		  if dop == true then
        xOld, yOld = term.getCursorPos()
        clearY(1, screenY)
        term.setCursorPos(1,1)
        cprint(get)
		  end
		  getOld = get
		  term.setCursorPos(xOld, yOld)
		  play()
      term.setBackgroundColor(colors.black)
      term.setTextColor(colors.white)
    end
    sleep(1.25)
  end
end

function send()
  while true do
    term.setCursorPos(1, screenY+1)
	 cwrite(name..": ")
    term.setBackgroundColor(colors.black)
    term.setTextColor(colors.white)
    input = colorRead(nil,history)
    table.insert(history,input)
	 l=processCommand(input)
   if l==4 then updateDisplay("Unknown command.")
	 elseif l then l(select(2,unpack(split(input," "))))
	 else
    if input ~= "" then
	    post(name.."#0$f: "..input)  
    end
	 end
	
	 clearY(screenY+1, screenY+2)
  end
end


term.clear()
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)
)else
  name = nameInput
end
end

post(name.."#0$f joined the room!")  
clearY(screenY+1, screenY+3)

write("/exit to exit, /update to update.")
get = http.get(getLink, {usr = name, slines=10, chan = channel})
get = get.readAll()
get = getOld
local ok,err=pcall(parallel.waitForAny,send, receive)
if isRestart then return shell.run(currentProgram,name) 
elseif err=="Terminated" then post(name.."#0$f has left the room. [Terminated]")
end