PastebinCC Collab Edition

local button = {}
local menus = {"signIn","home"}
local menu = "signIn"
local native = term.current()
local corY,corY2 = 1,1
local usercode,username,password,pastebinWin,signInWin,submitWin
local eventsToggle = true
fs.open("log","w")

local w,h = term.getSize()
local c,r,l = 'c','r','l'
local deftxt, defback = colors.white,colors.lightGray

--Console(temporary)
function logCorTab(e)
        if eventsToggle then
                for i = 1,4 do
                        term.setBackgroundColor(defback)
                        term.setCursorPos(w-15,i)
                        term.write(string.rep(" ",16))
                end
                corY = 1
                for i = 1,#e do
                        draw(e[i],r,corY)
                        corY = corY + 1
                end
        end
end

function logCor(words)
        if eventsToggle then
                draw(words,r,corY)
                corY2 = corY2+1
        end
end

function log(words)
        words = tostring(words)
        local h = fs.open("log","a")
        h.writeLine(words)
        h.close()
end

--WindowClasses (todo = betterscrollin, movable/draggable/resizable/scrollbarable windows)
local windows = {}

function windows.writeLn(self,words,txtcol,backcol,x,y)
        local w,h = self.getSize()
        txtcol = txtcol or deftxt
        backcol = backcol or defback
        if x and y then
                self.setCursorPos(x,y)
        end
        self.setBackgroundColor(backcol)
        self.setTextColor(txtcol)
        self.write(words)
        local x,y = self.getCursorPos()
        self.setCursorPos(x-#words,y+1)
end

function windows.clearWin(self,backcol)
        self.setBackgroundColor(backcol)
        self.clear()
end

function windows.toggle(self)
        if self.visible == nil then
                self.visible = true
        end
        if self.visible == false then
        self.setVisible(true)
self.visible = true
self.active = true
        elseif self.visible == true then
                self.setVisible(false)
                self.visible = false
                updateMenus()
        end
end


--uWordsAPI/WebtoolsAPI

function getColors()
  for i,v in pairs(colors) do
          if tonumber(v) then
          loadstring(i.."="..v)()
        end
  end
  grey = gray
  lightGrey = lightGray
end

function basics(e)
        if e[1] == "key" then
                if e[2] == keys.q then
                        error()
                elseif e[2] == keys.leftAlt then
                        shell.run("pastebin run NybMLEHL")
                elseif e[2] == keys.tab then
                        if eventsToggle == true then
                                eventsToggle = false
                                updateMenus()
                        else
                                eventsToggle = true
                        end
                        logCorTab(e)
                elseif e[2] == keys.delete then
                        menu = "home"
                        updateMenus()
                end
        end
end

function hitbox(e,x,y,x2,y2,num,func,...)
        --takes events (e) and compares to box(x,y,x2,y2) to see if box had been clicked, if so run function
        if e[1] == "mouse_click" and e[2] == num and e[3] >= x and e[3] <= x2 and e[4] <= y and e[4] >=y2 then
                local returns = {func(...)}
                if returns then return returns end
        end
end

function clearScreen(backcol)
        term.setBackgroundColor(backcol)
        term.clear()
        term.setCursorPos(1,1)
end

function draw(words,x,y,txtcol,backcol)
        --put at top of file/program: local c,r,l = 'c','r','l'; local deftxt,defback
        local w,h = term.getSize()
        local offset = 0
        local writeLn
        words = tostring(words)
        words = words or " "
        if not (x and y) then
                x,y = term.getCursorPos()
                writeLn = true
        elseif not x then
                x,_ = term.getCursorPos()
                writeLn = true
        elseif not y then
                _,y = term.getCursorPos()
                writeLn = true
        end
        txtcol = txtcol or deftxt
        backcol = backcol or defback
        if not tonumber(x) then
                x = x:gsub(" ", "")
                if x:sub(1, 1) == "l" then
                        if x:find("+") then
                                offset = tonumber(x:sub(x:find("+") + 1))
                                term.setCursorPos(1 + offset, y)
                        else
                                term.setCursorPos(1, y)
                        end
                elseif x:sub(1, 1) == "c" then
                        if x:find("+") then
                                offset = tonumber(x:sub(x:find("+") + 1))
                                term.setCursorPos(w/2 - #words/2 + 1 + offset, y)
                        elseif x:find("-") then
                                offset = tonumber(x:sub(x:find("-") + 1))
                                term.setCursorPos(w/2 - #words/2 + 1 - offset, y)
                        else
                                term.setCursorPos(w/2 - #words/2 + 1, y)
                        end
                elseif x:sub(1, 1) == "r" then
                        if x:find("-") then
                                offset = tonumber(x:sub(x:find("-") + 1))
                                term.setCursorPos(w - #words+ 1 - offset, y)
                        else
                                term.setCursorPos(w - #words+ 1, y)
                        end
                end
        else
                term.setCursorPos(x, y)
        end
        term.setTextColor(txtcol)
        term.setBackgroundColor(backcol)
        if writeLn then
                write(words..'\n')
        else
                write(words)
        end
end

--ButtonMethods

function button.signIn(x,y,txtcol,backcol,bool)
        local userdetails
        term.setCursorPos(x,y)
        term.setTextColor(txtcol)
        term.setBackgroundColor(backcol)
        term.write("___________          ")
        term.setCursorPos(x,y)
        if not bool then
                userdetails = read()
        else
                userdetails = read("*")
        end
        if userdetails then return userdetails end
end

function button.authenticate(user,pass)
        if user and pass then
                log("received authent")
                log("Authenticated: "..user)
                log("Authenticated: "..pass)
                draw(string.rep(" ",70),1,h-1)
                draw(string.rep(" ",70),1,h)
                draw("Connecting to Pastebin...",1,h,yellow)
                local userkey = http.post(
                        "http://pastebin.com/api/api_login.php",
                        "api_option=login&"..
                        "api_dev_key=996a06d80a378f151e589ac86c83e865&"..
                        "api_user_name="..textutils.urlEncode(user).."&"..
                        "api_user_password="..textutils.urlEncode(pass)
                )

                local postdata = userkey.readAll()
                term.setTextColor(colors.red)
                log(postdata)
                userkey.close()
                if postdata:sub(1,3) == 'Bad' then
                        usercode = nil
                        log("Authentication Request Failed")
                        draw(string.rep(" ",70),1,h-1)
                        draw(string.rep(" ",70),1,h)
                        draw("The Username or Password is incorrect,\nPlease try again...",1,h-1,red)
                        username,password = nil,nil
                else
                        log("Authentication Successful")
                        usercode = postdata
                        menu = "home"
                        updateMenus()
                end
        else
                draw(string.rep(" ",70),1,h)
                draw(string.rep(" ",70),1,h-1)
                draw("Please fill all required fields with your Username and Password...",1,h-1,red)
        end
end

function button.pastebin()
        log("PastebinPopup request received")
        pastebinWin:toggle()
end

function button.login()
        log("Login Request Received")
        signInWin:toggle()
end

function button.newPaste()
log("newPaste")
end
function button.upload()
log("upload")
end
function button.download()
log("download")
end
function run()
log("run")
end

function button.edit()
return true
end

-----------===========PASTEBIN++===========-------------
local location = {
    ["x"] = 1,
    ["y"] = 1
}
local position = {
    ["x"] = 1,
    ["y"] = 1
}
local program = {
[1] = " "
}
local currentLine, currentPos = 1, 1
local pChanged, lChanged
local pW, pH = w - 4, h - 6
local numlength = 0

function addLetter(char, line, pos)
program[line] = program[line]:sub(1, pos - 1) .. tostring(char) .. program[line]:sub(pos)
end

function fixCursorPos()
if position["y"] < 1 then
         pChanged = true
         location["y"] = location["y"] + position["y"] - 1
         position["y"] = 1
 elseif position["y"] > pH then
         pChanged = true
         location["y"] = location["y"] + position["y"] - pH
         position["y"] = pH
end
if location["y"] < 1 then
         pChanged = false
         location["y"] = 1
elseif location["y"] + pH > #program then
         pChanged = false
         location["y"] = #program - pH
end
if position["x"] + location["x"] - 1 > #program[1] then
                position["x"] = #program[1] - location["x"] + 2
end
if position["x"] < 1 then
        pChanged = true
        location["x"] = location["x"] + position["x"] - 1
        position["x"] = 1
elseif position["x"] > w - numlength then
        pChanged = true
        location["x"] = location["x"] + position["x"] - (w-numlength)
        position["x"] = w - numlength
end
if location["x"] < 1 then
        pChanged = false
        location["x"] = 1
elseif location["x"] + w - numlength > #program then
        pChanged = false
        location["x"] = #program - w + numlength
end
currentLine = location["y"] + position["y"] - 1
currentPos = position["x"] + location["x"] - 1
end

function showProgram()

end

function showProgramLine()

end

function pastebinEdit(events)
term.setCursorBlink(true)
if events[1] == "char" then
addLetter(events[2], currentLine, currentPos)
position["x"] = position["x"] + 1
elseif events[1] == "key" then
if events[2] == keys.up then
position["y"] = position["y"] - 1
elseif events[2] == keys.down then
position["y"] = position["y"] + 1
elseif events[2] == keys.left then
position["x"] = position["x"] - 1
elseif events[2] == keys.right then
position["x"] = position["x"] + 1
elseif events[2] == keys.backspace then

elseif events[2] == keys.enter then

elseif events[2] == keys.tab then
addLetter("  ", currentLine, currentPos)
position["x"] = position["x"] + 2
end
end
fixCursorPos()
term.setCursorPos(currentLine + 5, currentPos + 2)
if pChanged then
showProgram()
pChanged = false
lChanged = false
elseif lChanged then
showProgramLine()
lChanged = false
end
end

-------------------=================0-0=================-----------------------

getColors()
username,password = nil,nil

  pastebinWin = window.create(native,1,2,16,5)
  signInWin = window.create(native,w-15,2,w,3)
  submitWin = window.create(native,w-(#" Submit "+2),h,w-2,h)
pasteCodeWin = window.create(native, 3, 5, w - 2, h - 2)

for i,v in pairs(windows) do
        pastebinWin[i] = v
        signInWin[i] = v
end

pastebinWin:clearWin(lightBlue)
pastebinWin:writeLn(" -New Paste",gray,lightBlue)
pastebinWin:writeLn(" -Upload file",gray,lightBlue)
pastebinWin:writeLn(" -Download file",gray,lightBlue)
pastebinWin:writeLn(" -Run Postrayme",gray,lightBlue)

signInWin:clearWin(lightBlue)
signInWin:writeLn("Enter Username",gray,lightBlue)
signInWin:writeLn("Enter Password",gray,lightBlue)


function updateMenus()
        if menu == "signIn" then
                clearScreen(lightGray)
                local signInBackCol,guestBackCol = white,lightBlue
                draw("--------------",c,5,lightBlue)
                draw("PastebinCC",c,6,white,defback)
                draw("--------------",c,7,lightBlue)
                draw("Username: ___________",c,9,grey)
                draw("Password: ___________",c,11,grey)
                draw(" Sign In ",'r-13',13,black,signInBackCol)
                draw(" Sign in as Guest ",1,1,white,guestBackCol)
        elseif menu == "home" then
                clearScreen(lightGray)
                paintutils.drawLine(1,1,w,1,lightBlue)
                paintutils.drawLine(1,2,w,2,blue)
                draw("Pastebin.com",l,1,white,lightBlue)
                paintutils.drawBox(2,4,w-1,h-1,white)
                draw("[new paste]",3,4,gray,white)
                --draw("[+] create new paste [^] trending pastes",2,3,white,blue)
                --draw("sign in|my pastebin|my profile|logout",r,2,white,lightBlue)
                draw(" sign in ",r,1,white,lightBlue)
                draw(" Submit ",'r-2',h,gray,lightBlue)
        end
end

updateMenus()

while menu == "signIn" do
        local e = {os.pullEvent()}
        logCorTab(e)
        local user = hitbox(e,w/2,9,w/2+10,9,1,button.signIn,w/2+1,9,black,defback)
        if user then username = user[1]; log("Username: "..username); end
        pass = hitbox(e,w/2,11,w/2+10,11,1,button.signIn,w/2+1,11,black,defback,'secret')
        if pass then password = pass[1]; log("Password: "..password); end
        hitbox(e,29,13,38,13,1,button.authenticate,username,password)
        basics(e)
end

local cEdit
while menu == "home" do
        local e = {os.pullEvent()}
        logCorTab(e)
        basics(e)
        hitbox(e,1,1,#"Pastebin.com",1,1,button.pastebin)
      hitbox(e,w-#" sign in ",1,w,1,1,button.login)
if e[1] == "mouse_click" then
hitbox(e, 2, 4, w - 1, h - 1, 1, pastebinEdit(e))
end
if signInWin.active then
log(signInWin.active)
local user, pass
local ureturns = hitbox(e,36,2,51,2,1,function() term.setCursorPos(37,2);signInWin.clearLine(); read(); end)
local preturns = hitbox(e,36,3,51,3,1,function() term.setCursorPos(37,3);signInWin.clearLine(); read(); end)
if ureturns then user = ureturns[1] end
if preturns then pass = preturns[1] end
if user and pass then
local userkey = http.post(
    "http://pastebin.com/api/api_login.php",
    "api_option=login&"..
    "api_dev_key=996a06d80a378f151e589ac86c83e865&"..
    "api_user_name="..textutils.urlEncode(user).."&"..
    "api_user_password="..textutils.urlEncode(pass)
)

    local postdata = userkey.readAll()
  if postdata:sub(1,3) ~= "Bad" then
signInWin:writeLn("Success",green,lightBlue)
else
signInWin:writeLn("Invalid",red,lightBlue)
   end
  end
   end
if pastebinWin.active then
hitbox(e,1,2,15,2,button.newPaste)
hitbox(e,1,3,15,3,button.upload)
hitbox(e,1,4,15,4,button.download)
hitbox(e,1,5,15,5,button.run)
end
end