FTP: client [WIP][Requires IPnet]

-------------FTP Client v1.0---------
---------------Program---------------
--------------by Creator-------------

--Variables--
term.redirect(term.native())
local settDir = "FTPconfig"
local textutilsserialize = textutils.serialize
local textutilsunserialize = textutils.unserialize
local w, h = term.getSize()
local pathToCopy = ""
local userWindow = {
    term.current(),
    math.floor((w-30)/2),
    math.floor((h-6)/2),
    30,
    6,
    true,
    "Username",
    colors.white,
    colors.blue,
    "Input your username: ",
    colors.black,
    colors.lightGray,
    colors.white,
    colors.black,
}
local passwordWindow = {
    term.current(),
    math.floor((w-30)/2),
    math.floor((h-6)/2),
    30,
    6,
    true,
    "Password",
    colors.white,
    colors.blue,
    "Input your password: ",
    colors.black,
    colors.lightGray,
    colors.white,
    colors.black,
}
local domainWindow = {
    term.current(),
    math.floor((w-32)/2),
    math.floor((h-8)/2),
    32,
    8,
    true,
    "Domain of the FTP server",
    colors.white,
    colors.blue,
    "Write the domain in the format:%xPos.yPos.zPos.id <== numbers%or%domainName.com",
    colors.black,
    colors.lightGray,
    colors.white,
    colors.black,
}
local folderMenu = {
    term.current(),
    2,
    math.floor((h-6)/2),
    48,
    6,
    true,
    "Folder Options",
    colors.white,
    colors.blue,
    "What would you%like to do?",
    colors.black,
    colors.lightGray,
    {
        {
            "Open",
            colors.black,
            colors.blue,
            "open",
        },
        {
            "Delete",
            colors.black,
            colors.blue,
            "delete",
        },
        {
            "Rename",
            colors.black,
            colors.blue,
            "rename",
        },
        {
            "Move",
            colors.black,
            colors.blue,
            "move",
        },
        {
            "Cancel",
            colors.black,
            colors.blue,
            "cancel",
        },
    },
}
local fileMenu = {
    term.current(),
    2,
    math.floor((h-6)/2),
    48,
    6,
    true,
    "File Options",
    colors.white,
    colors.blue,
    "What would you%like to do?",
    colors.black,
    colors.lightGray,
    {
        {
            "Open",
            colors.black,
            colors.blue,
            "open",
        },
        {
            "Delete",
            colors.black,
            colors.blue,
            "delete",
        },
        {
            "Rename",
            colors.black,
            colors.blue,
            "rename",
        },
        {
            "Download",
            colors.black,
            colors.blue,
            "download",
        },
        {
            "Move",
            colors.black,
            colors.blue,
            "move",
        },
        {
            "Cancel",
            colors.black,
            colors.blue,
            "cancel",
        },
    },
}
local nilMenu = {
    term.current(),
    2,
    math.floor((h-6)/2),
    48,
    6,
    true,
    "Options",
    colors.white,
    colors.blue,
    "What would you%like to do?",
    colors.black,
    colors.lightGray,
    {
        {
            "Make a folder",
            colors.black,
            colors.blue,
            "makeFolder",
        },
        {
            "Make a file",
            colors.black,
            colors.blue,
            "makeFile",
        },
        {
            "Upload",
            colors.black,
            colors.blue,
            "uploadFile",
        },
        {
            "Cancel",
            colors.black,
            colors.blue,
            "cancel",
        },
    },
}
local newFolderWindow = {
    term.current(),
    math.floor((w-32)/2),
    math.floor((h-8)/2),
    32,
    8,
    true,
    "New folder name",
    colors.white,
    colors.blue,
    "Write the name of%the new folder.",
    colors.black,
    colors.lightGray,
    colors.white,
    colors.black,
}
local newFileWindow = {
    term.current(),
    math.floor((w-32)/2),
    math.floor((h-8)/2),
    32,
    8,
    true,
    "New file name",
    colors.white,
    colors.blue,
    "Write the name of%the new file.",
    colors.black,
    colors.lightGray,
    colors.white,
    colors.black,
}
local upFileWindow = {
    term.current(),
    math.floor((w-32)/2),
    math.floor((h-8)/2),
    32,
    8,
    true,
    "File path",
    colors.white,
    colors.blue,
    "Write the path of%the file.",
    colors.black,
    colors.lightGray,
    colors.white,
    colors.black,
}
local moveFolderWindow = {
    term.current(),
    math.floor((w-32)/2),
    math.floor((h-8)/2),
    32,
    8,
    true,
    "New folder path",
    colors.white,
    colors.blue,
    "Write the name of%the new folder path.",
    colors.black,
    colors.lightGray,
    colors.white,
    colors.black,
}
local bgColor = colors.black
local txtColor = colors.white
local domain = {}
local currDir = ""
local files = {}
local Buttons = {
    {
        2,
        2,
        7,
        1,
        "Log Out",
        colors.white,
        colors.green,
        "logout"
    },
    {
        11,
        2,
        7,
        1,
        "Refresh",
        colors.white,
        colors.green,
        "refresh"
    },
    {
        20,
        2,
        2,
        1,
        "Up",
        colors.white,
        colors.green,
        "up"
    },
}
local folderIcon = paintutils.loadImage(settDir.."/folderIcon")
local fileIcon = paintutils.loadImage(settDir.."/fileIcon")
local scroll = 0
local globalButtonList = {}
local notEnded = true
local fileExtensions = {
nfp = "nPaintPro",
nfa = "nPaintPro",
txt = "edit",
}

--APIs--
os.loadAPI("IPclient")
os.loadAPI("apis/sha")
os.loadAPI("apis/encrypt")
IPclient.toReturn()

--Functions--

function detectButtonHit(buttonsToTest)
    local event, button, x, y
    repeat
        event, button, x, y = os.pullEvent()
    until event == "mouse_click" or event == "key"
    if event == "mouse_click" then
        for i,v in pairs(buttonsToTest) do
            if v[1] <= x and x <= v[3] and v[2] <= y and y <= v[4] then
                return {v[5], button}
            end
        end
    elseif event == "key" then
        return {"key:"..tostring(button)}
    end
    return {"pong"}
end

function mkStrShort(str,lenght,n)
    local bufferTable = {}
    local toReturnTable = {}
    local lenghtN = tonumber(lenght)
    if lenghtN == nil then return false end
    for i = 0,n-1 do
        bufferTable[i+1] = string.sub(tostring(str),(i*lenghtN)+1,(i*lenghtN)+lenghtN)
    end
    for i,v in pairs(bufferTable) do
        if v ~= nil then
            toReturnTable[#toReturnTable+1] = v
        end
    end
    return toReturnTable
end

function clear(bgColorArg)
    term.setBackgroundColor(bgColorArg or bgColor)
    term.setTextColor(txtColor)
    term.setCursorPos(1,1)
    term.clear()
    globalButtonList = {}
end

function dialogBox(tableInput,clearBg)
    if clearBg ~= false then
        clear(colors.cyan)
    end
    local nTable = {}
    dialogBoxWindow = window.create(
    tableInput[1],
    tableInput[2],
    tableInput[3],
    tableInput[4],
    tableInput[5])
    dialogBoxWindow.setBackgroundColor(tableInput[9])
    dialogBoxWindow.setCursorPos(2,1)
    dialogBoxWindow.clearLine()
    dialogBoxWindow.setTextColor(tableInput[8])
    dialogBoxWindow.write(tableInput[7])
    dialogBoxWindow.setCursorPos(1,2)
    dialogBoxWindow.setBackgroundColor(tableInput[12])
    for i = 2 , tableInput[5] do
        dialogBoxWindow.setCursorPos(1,i)
        dialogBoxWindow.clearLine()
    end
    dialogBoxWindow.setCursorPos(1,2)
    dialogBoxWindow.setTextColor(tableInput[11])
    for token in string.gmatch(tableInput[10],"[^%%]+") do
        nTable[#nTable+1] = token
    end
    for i,v in pairs(nTable) do
        dialogBoxWindow.setCursorPos(2,1+i)
        dialogBoxWindow.write(v)
    end
    local totalLenght = 0
    globalButtonList = {}
    for i,v in pairs(tableInput[13]) do
        dialogBoxWindow.setCursorPos(2+totalLenght,tableInput[5]-1)
        dialogBoxWindow.setTextColor(v[2])
        dialogBoxWindow.setBackgroundColor(v[3])
        local toWrite = " "..v[1].." "
        dialogBoxWindow.write(toWrite)
        if globalButtonList == nil then
            globalButtonList = {{tableInput[2]+1+totalLenght,tableInput[3] + tableInput[5]-2,tableInput[2]+totalLenght + #toWrite,tableInput[3] + tableInput[5]-1,v[4]}}
        else
            globalButtonList[#globalButtonList+1] = {tableInput[2]+1+totalLenght,tableInput[3] + tableInput[5]-2,tableInput[2]+totalLenght + #toWrite,tableInput[3] + tableInput[5]-1,v[4]}
        end
        totalLenght = #toWrite + totalLenght + 2
    end
    local repeatIt = true
    while repeatIt == true do
        local unparsedResult = detectButtonHit(globalButtonList)
        result = unparsedResult[1]
        if result ~= "pong" then
            repeatIt = false
        end
    end
    return result
end

function textBox(tableInput,secret,clearBg)
    if clearBg ~= false then
        clear(colors.cyan)
    end
    local nTable = {}
    textBoxWindow = window.create(tableInput[1],tableInput[2],tableInput[3],tableInput[4],tableInput[5])
    textBoxWindow.setCursorPos(2,1)
    textBoxWindow.setBackgroundColor(tableInput[9])
    textBoxWindow.clearLine()
    textBoxWindow.setTextColor(tableInput[8])
    textBoxWindow.write(tableInput[7])
    textBoxWindow.setCursorPos(1,2)
    textBoxWindow.setBackgroundColor(tableInput[12])
    for i = 2 , tableInput[5] do
        textBoxWindow.setCursorPos(1,i)
        textBoxWindow.clearLine()
    end
    textBoxWindow.setTextColor(tableInput[11])
    for token in string.gmatch(tableInput[10],"[^%%]+") do
        nTable[#nTable+1] = token
    end
    for i,v in pairs(nTable) do
        textBoxWindow.setCursorPos(2,1+i)
        textBoxWindow.write(v)
    end
    textBoxWindow.setTextColor(tableInput[13])
    textBoxWindow.setBackgroundColor(tableInput[14])
    textBoxWindow.setCursorPos(2,tableInput[5]-1)
    textBoxWindow.clearLine()
    textBoxWindow.setCursorPos(2,tableInput[5]-1)
    textBoxWindow.setTextColor(tableInput[13])
    textBoxWindow.setBackgroundColor(tableInput[14])
    if secret then
        return read("*")
    else
        return read()
    end
end

function dns()
    textutils.slowPrint("Contacting DNS server...",3)
    sleep(2)
end

function getDomainName()
    local nTable = {}
    local srtAna = ""
    local repeatBoolean = true
    local number = true

    local function domainValidation()
        local sDomain = textBox(domainWindow)
        local checkIfNumOrLetter = string.sub(sDomain,1,1)
        checkIfNumOrLetter = tonumber(checkIfNumOrLetter)
        if type(checkIfNumOrLetter) == nil then
            dns()
        else
            for token in string.gmatch(sDomain,"[^%.]+") do
                nTable[#nTable + 1] = token
            end
        end
    end

    repeat
        domainValidation()
        if #nTable == 4 then
            for i,v in pairs(nTable) do
                if type(tonumber(v)) ~= "number" then
                    number = false
                end
            end
            print(number)
            if number == true then
                for i,v in pairs(nTable) do
                    nTable[i] = tonumber(v)
                end
                if 0 <= nTable[2] and nTable[2] <= 255 and 0 <= nTable[4] then
                    repeatBoolean = false
                end
            end
        end
    until repeatBoolean == false
    domain = nTable
    term.write(textutilsserialize(domain))
end

function login()
    currDir = "/"
    files = {}
    local username = ""
    local password = ""
    local answer = dialogBox({
        term.current(),
        math.floor((w-30)/2),
        math.floor((h-6)/2),
        30,
        6,
        true,
        "Login Info",
        colors.white,
        colors.blue,
        "Do you have an account%at the server?",
        colors.black,
        colors.lightGray,
        {
            {
                "Yes",
                colors.black,
                colors.blue,
                "yes",
            },
            {
                "No",
                colors.black,
                colors.blue,
                "no",
            },
        },
    })
    if answer == "no" then
        username = textBox({
            term.current(),
            math.floor((w-30)/2),
            math.floor((h-6)/2),
            30,
            6,
            true,
            "Username",
            colors.white,
            colors.blue,
            "Input your new username: ",
            colors.black,
            colors.lightGray,
            colors.white,
            colors.black,
        },false)
        password = textBox({
            term.current(),
            math.floor((w-30)/2),
            math.floor((h-6)/2),
            30,
            6,
            true,
            "Password",
            colors.white,
            colors.blue,
            "Input your new password: ",
            colors.black,
            colors.lightGray,
            colors.white,
            colors.black,
        },true)
        --shaOfPass = sha.digestStr(password)
        IPclient.send(domain,{"ftp",23,{username,password}})
        msgToParse = IPclient.receive()
        if pcall(textutilsunserialize,msgToParse) then
            messageTable = textutilsunserialize(msgToParse)
            sender = messageTable[2]
            message = messageTable[3]
            if message[1] == "ftp" then
                if message[2] == 22 then
                    if message[3][1] == "success" then
                        dialogBox({
                            term.current(),
                            math.floor((w-30)/2),
                            math.floor((h-6)/2),
                            30,
                            6,
                            true,
                            "Succes",
                            colors.white,
                            colors.blue,
                            "The registration was%successful!",
                            colors.black,
                            colors.lightGray,
                            {
                                {
                                    "OK",
                                    colors.black,
                                    colors.blue,
                                    "ok",
                                },
                            },
                        })
                    elseif message[3][1] == "fail" then
                        dialogBox({
                            term.current(),
                            math.floor((w-30)/2),
                            math.floor((h-6)/2),
                            30,
                            6,
                            true,
                            "Failure",
                            colors.white,
                            colors.blue,
                            "The registration was%unsuccessful!",
                            colors.black,
                            colors.lightGray,
                            {
                                {
                                    "OK",
                                    colors.black,
                                    colors.blue,
                                    "ok",
                                },
                            },
                        })
                        error("The registration was unsuccessful!")
                    end
                end
            end
        end
    end

    username = textBox(userWindow,false)
        password = textBox(passwordWindow,true)
        IPclient.send(domain,{"ftp",1,{username,password}})
        msgToParse = IPclient.receive()
        if pcall(textutilsunserialize,msgToParse) then
            messageTable = textutilsunserialize(msgToParse)
            sender = messageTable[2]
            message = messageTable[3]
            if message[1] == "ftp" then
                if message[2] == 0 then
                    if message[3][1] == "success" then
                        dialogBox({
                            term.current(),
                            math.floor((w-30)/2),
                            math.floor((h-6)/2),
                            30,
                            6,
                            true,
                            "Succes",
                            colors.white,
                            colors.blue,
                            "The login was successful!",
                            colors.black,
                            colors.lightGray,
                            {
                                {
                                    "OK",
                                    colors.black,
                                    colors.blue,
                                    "ok",
                                },
                            },
                        })
                    elseif message[3][1] == "fail" then
                        dialogBox({
                            term.current(),
                            math.floor((w-30)/2),
                            math.floor((h-6)/2),
                            30,
                            6,
                            true,
                            "Failure",
                            colors.white,
                            colors.blue,
                            "The login was unsuccessful!",
                            colors.black,
                            colors.lightGray,
                            {
                                {
                                    "OK",
                                    colors.black,
                                    colors.blue,
                                    "ok",
                                },
                            },
                        })
                        error("The login was unsuccessful!")
                    end
                end
            end

        end
    files = refresh(currDir)
end

function getFiles(dir)
    local bufferFiles = {}
    for i,v in pairs(fs.list(dir)) do
        if fs.isDir(currDir.."/"..v) then
            bufferFiles[#bufferFiles+1] = {v,"folder"}
        else
            bufferFiles[#bufferFiles+1] = {v,"file"}
        end
    end
    files = bufferFiles
end

function drawOptions(tableInputDrawOptions)
    for i,v in pairs(tableInputDrawOptions) do
        term.setCursorPos(v[1],v[2])
        paintutils.drawFilledBox(v[1],v[2],v[3]+v[1]-1,v[4]+v[2]-1,v[7])
        term.setCursorPos(v[1],v[2])
        term.setTextColor(v[6])
        term.write(v[5])
        if globalButtonList == nil then
            globalButtonList = {{v[1],v[2],v[3]+v[1]-1,v[4]+v[2]-1,"button:"..v[8]}}
        else
            globalButtonList[#globalButtonList+1] = {v[1],v[2],v[3]+v[1]-1,v[4]+v[2]-1,"button:"..v[8]}
        end
    end
end

function drawFiles(filesToDisplay)
    local numItemsX = math.floor((w-1)/10)
    numItemsY = math.ceil(#filesToDisplay/numItemsX)
    local currFile = 1
    for i = 0 , numItemsY-1 do
        for k = 0 , numItemsX - 1 do
            if currFile > #filesToDisplay then
                break
            else
                term.setTextColor(colors.black)
                if filesToDisplay[currFile][2] == "file" then
                    paintutils.drawImage(fileIcon,(k*10)+2,(i*5)+4-scroll)
                    for l,m in pairs(mkStrShort(filesToDisplay[currFile][1],6,3)) do
                        term.setCursorPos((k*10)+3,(i*5)+4+l-scroll)
                        term.write(m)
                    end
                    if ((i*5)+4-scroll) < 4 then
                        if ((i*5)+7-scroll) >= 4 then
                            if globalButtonList == nil then
                                globalButtonList = {{((k*10)+2),4,((k*10)+9),((i*5)+7-scroll),"file:"..filesToDisplay[currFile][1]}}
                            else
                                globalButtonList[#globalButtonList+1] = {((k*10)+2),4,((k*10)+9),((i*5)+7-scroll),"file:"..filesToDisplay[currFile][1]}
                            end
                        end
                    else
                        if globalButtonList == nil then
                            globalButtonList = {{((k*10)+2),((i*5)+4-scroll),((k*10)+9),((i*5)+7-scroll),"file:"..filesToDisplay[currFile][1]}}
                        else
                            globalButtonList[#globalButtonList+1] = {((k*10)+2),((i*5)+4-scroll),((k*10)+9),((i*5)+7-scroll),"file:"..filesToDisplay[currFile][1]}
                        end
                    end
                elseif filesToDisplay[currFile][2] == "folder" then
                    paintutils.drawImage(folderIcon,(k*10)+2,(i*5)+4-scroll)
                    for l,m in pairs(mkStrShort(filesToDisplay[currFile][1],6,3)) do
                        term.setCursorPos((k*10)+3,(i*5)+4+l-scroll)
                        term.write(m)
                    end
                    if ((i*5)+4-scroll) < 4 then
                        if ((i*5)+7-scroll) >= 4 then
                            if globalButtonList == nil then
                                globalButtonList = {{((k*10)+2),4,((k*10)+9),((i*5)+7-scroll),"folder:"..filesToDisplay[currFile][1]}}
                            else
                                globalButtonList[#globalButtonList+1] = {((k*10)+2),4,((k*10)+9),((i*5)+7-scroll),"folder:"..filesToDisplay[currFile][1]}
                            end
                        end
                    else
                        if globalButtonList == nil then
                            globalButtonList = {{((k*10)+2),((i*5)+4-scroll),((k*10)+9),((i*5)+7-scroll),"folder:"..filesToDisplay[currFile][1]}}
                        else
                            globalButtonList[#globalButtonList+1] = {((k*10)+2),((i*5)+4-scroll),((k*10)+9),((i*5)+7-scroll),"folder:"..filesToDisplay[currFile][1]}
                        end
                    end
                end
                currFile = currFile + 1
            end
        end
    end
end

function refresh(dir)
    IPclient.send(domain,{"ftp",5,{dir}})
    filesListSer = IPclient.receive()
    filesList = textutilsunserialize(filesListSer)
    return filesList[3][3][1]
end

function drawSideBar()
    local lenghtSideBar = h-4
    if numItemsY ~= 0 then
         lenghtSideBar = math.ceil(((h-5)*(h-5))/(numItemsY*5))
    end
    paintutils.drawLine(w,3,w,3+lenghtSideBar,colors.green)
    term.setBackgroundColor(colors.blue)
    term.setCursorPos(w,3)
    term.write("^")
    term.setCursorPos(w,h-1)
    term.write("v")
    if globalButtonList == nil then
        globalButtonList = {{w,3,w,3,"button:scrollUp"}}
    else
        globalButtonList[#globalButtonList+1] = {w,3,w,3,"button:scrollUp"}
    end
    if globalButtonList == nil then
        globalButtonList = {{w,h-1,w,h-1,"button:scrollDown"}}
    else
        globalButtonList[#globalButtonList+1] = {w,h-1,w,h-1,"button:scrollDown"}
    end
end

function program(extension)
    if fileExtensions[extension] ~= nil then
        return fileExtensions[extension]
    else
        return "edit"
    end
end

function main(filesToDisplay,buttonsToDisplay)
    clear(colors.white)
    drawFiles(filesToDisplay)
    drawSideBar()
    term.setBackgroundColor(colors.orange)
    for i = 1,2 do
        term.setCursorPos(1,i)
        term.clearLine()
    end
    term.setCursorPos(1,1)
    term.setTextColor(colors.black)
    term.write("Creator\'s FTPclient v1.0")
    term.setCursorPos(w,1)
    term.setBackgroundColor(colors.magenta)
    term.write("X")
    if globalButtonList == nil then
        globalButtonList = {{w,1,w,1,"button:x"}}
    else
        globalButtonList[#globalButtonList+1] = {w,1,w,1,"button:x"}
    end
    if globalButtonList == nil then
        globalButtonList = {{1,3,w,h,"nil:nil"}}
    else
        globalButtonList[#globalButtonList+1] = {1,4,w,h,"nil:nil"}
    end
    drawOptions(buttonsToDisplay)
    if globalButtonList == nil then
        globalButtonList = {{1,1,w,3,"nil:nilnil"}}
    else
        globalButtonList[#globalButtonList+1] = {1,1,w,3,"nil:nilnil"}
    end
    term.setCursorPos(1,h)
    term.setBackgroundColor(colors.orange)
    term.clearLine()
    term.setTextColor(colors.black)
    term.write(currDir)
    term.setCursorPos(1,1)
    local detectedButtonUnparsedTable = detectButtonHit(globalButtonList)
    local detectedButtonUnparsed = detectedButtonUnparsedTable[1]
    local button = detectedButtonUnparsedTable[2]
    local detectedButtonParsedTable = {}
    for token in string.gmatch(detectedButtonUnparsed,"[^:]+") do
        detectedButtonParsedTable[#detectedButtonParsedTable + 1] = token
    end
    local action = detectedButtonParsedTable[2]
    if detectedButtonParsedTable[1] == "button" then
        if action == "x" then
            term.setBackgroundColor(colors.black)
            clear()
            print("Thank you for using Creator\'s FTPclient. More coming soon...")
            notEnded = false
        elseif action == "up" then
            scroll = 0
            if currDir == "/" then
            else
                local currDirBuffer = {}
                for token in string.gmatch(currDir,"(/[^/]+)") do
                    currDirBuffer[#currDirBuffer + 1] = token
                end
                currDir = ""
                if #currDirBuffer == 1 then
                    currDir = ""
                else
                    for i = 1, #currDirBuffer-1 do
                        if i == 1 then
                            currDir = currDirBuffer[1]
                        else
                            currDir = currDir..currDirBuffer[i]
                        end
                    end
                end
            end
            files = refresh(currDir)
        elseif action == "logout" then
            login()
            files = refresh(currDir)
        elseif action == "refresh" then
            files = refresh(currDir)
        elseif action == "scrollUp" then
            scroll = scroll - 1
            if scroll < 0 then
                scroll = 0
            end
        elseif action == "scrollDown" then
            scroll = scroll + 1
            if scroll > numItemsY*6 - h then
                scroll = scroll - 1
            end
        end
    elseif detectedButtonParsedTable[1] == "key" then
        if tonumber(action) == keys.up then
            scroll = scroll - 1
            if scroll < 0 then
                scroll = 0
            end
        elseif tonumber(action) == keys.down then
            scroll = scroll + 1
            if scroll > numItemsY*6 - h then
                scroll = scroll - 1
            end
        end
    elseif detectedButtonParsedTable[1] == "folder" then
        if button == 1 then
            currDir = currDir.."/"..action
            files = refresh(currDir)
            scroll = 0
        elseif button == 2 then
            local result = dialogBox(folderMenu,false)
            if result == "open" then
                currDir = currDir.."/"..action
                files = refresh(currDir)
                scroll = 0
            elseif result == "copy" then
                pathToCopy = currDir..action
            elseif result == "delete" then
                IPclient.send(domain,{"ftp",7,{currDir.."/"..action}})
                files = refresh(currDir)
            elseif result == "rename" then
                local answ = textBox(newFolderWindow,false,false)
                IPclient.send(domain,{"ftp",15,{currDir.."/"..action,currDir.."/"..answ}})
                files = refresh(currDir)
            elseif result == "move" then
                local answ = textBox(moveFolderWindow,false,false)
                if string.sub(answ,1,1) ~= "/" then
                    answ = "/"..answ
                end
                IPclient.send(domain,{"ftp",15,{currDir.."/"..action,answ}})
                files = refresh(currDir)
            end
        end
    elseif detectedButtonParsedTable[1] == "file" then
        if button == 1 then
            IPclient.send(domain,{"ftp",13,{currDir.."/"..action}})
            msgToParse = IPclient.receive()
            if pcall(textutilsunserialize,msgToParse) then
                messageTable = textutilsunserialize(msgToParse)
                message = messageTable[3]
                file = fs.open("ram/"..action,"w")
                file.write(message[3][1])
                file.close()
                local fileExtension
                for token in string.gmatch(action,"[^%.]+") do
                    fileExtension = token
                end
                if fileExtension == action then
                    fileExtension = "txt"
                end
                programT = program(fileExtension)
                shell.run("subPrograms/"..programT.." ram/"..action)
                file = fs.open("ram/"..action,"r")
                fileData = file.readAll()
                file.close()
                IPclient.send(domain,{"ftp",11,{currDir.."/"..action,fileData}})
                fs.delete("ram/"..action)
            end
        elseif button == 2 then
            local result = dialogBox(fileMenu,false)
            print(result)
            if result == "open" then
                IPclient.send(domain,{"ftp",13,{currDir.."/"..action}})
                msgToParse = IPclient.receive()
                if pcall(textutilsunserialize,msgToParse) then
                    messageTable = textutilsunserialize(msgToParse)
                    message = messageTable[3]
                    file = fs.open("ram/"..action,"w")
                    file.write(message[3][1])
                    file.close()
                    local fileExtension
                    for token in string.gmatch(action,"[^%.]+") do
                        fileExtension = token
                    end
                    if fileExtension == action then
                        fileExtension = "txt"
                    end
                    programT = program(fileExtension)
                    shell.run("subPrograms/"..programT.." ram/"..action)
                    file = fs.open("ram/"..action,"r")
                    fileData = file.readAll()
                    file.close()
                    IPclient.send(domain,{"ftp",11,{currDir.."/"..action,fileData}})
                    fs.delete("ram/"..action)
                end
            elseif result == "delete" then
                IPclient.send(domain,{"ftp",7,{currDir.."/"..action}})
                files = refresh(currDir)
            elseif result == "rename" then
                local answ = textBox(newFolderWindow,false,false)
                IPclient.send(domain,{"ftp",15,{currDir.."/"..action,currDir.."/"..answ}})
                files = refresh(currDir)
            elseif result == "move" then
                local answ = textBox(moveFolderWindow,false,false)
                if string.sub(answ,1,1) ~= "/" then
                    answ = "/"..answ
                end
                IPclient.send(domain,{"ftp",15,{currDir.."/"..action,answ}})
                files = refresh(currDir)
            elseif result == "download" then
                IPclient.send(domain,{"ftp",13,{currDir.."/"..action}})
                msgToParse = IPclient.receive()
                if pcall(textutilsunserialize,msgToParse) then
                    messageTable = textutilsunserialize(msgToParse)
                    message = messageTable[3]
                    file = fs.open("Downloads/"..action,"w")
                    file.write(message[3][1])
                    file.close()
                end
            end
        end
    elseif detectedButtonParsedTable[1] == "nil" then
        if button == 2 then
            if action == "nil" then
                local result = dialogBox(nilMenu,false)
                if result == "makeFolder" then
                    local answ = textBox(newFolderWindow,false,false)
                    IPclient.send(domain,{"ftp",9,{currDir.."/"..answ}})
                    files = refresh(currDir)
                    scroll = 0
                elseif result == "makeFile" then
                    local answ = textBox(newFileWindow,false,false)
                    IPclient.send(domain,{"ftp",11,{currDir.."/"..answ,""}})
                    files = refresh(currDir)
                    scroll = 0
                elseif result == "uploadFile" then
                    local path
                    local fileNotExists = true
                    while fileNotExists == true do
                        path = textBox(upFileWindow,false,false)
                        if fs.exists(path) then
                            fileNotExists = false
                        end
                    end
                    file = fs.open(path,"r")
                    fileData = file.readAll()
                    file.close()
                    local answ = textBox(newFileWindow,false,false)
                    IPclient.send(domain,{"ftp",11,{currDir.."/"..answ,fileData}})
                    files = refresh(currDir)
                    scroll = 0
                end
            end
        end
    end
end

--Code--

clear()
getDomainName()
login()
while notEnded do
    main(files,Buttons)
end