File

root = "/"
scroll = 0
allowScroll = false
scrollText = ""
rendLine = true
fileSelected = ""
clickDoubleTimer = false
lasClickDoubleTimer = false
cdTimer = 0
cdLasTimer = 0
cdTotalTimer = 0
copyFile = ""
deleteFiles = true
openWith = ""
Who = "By DmndZombieSlayer"
instaClose = true
Version = "Dmnd File Manager v0.1.1"
timeX = ""
renderTime = true
dragLasY = 0
changepos = true
--TEXT ENTER VAR
enterText = false
textData = ""
textPurpose = ""
--END
fSetFile = true
loopRun = true
w, h = term.getSize()
h = h - 1
renderXX = true
--DEBUG FEATURE REMOVE
renstr = ""
--END
blackStr = ""
for i=1,w do
    blackStr = blackStr.." "
end
menuVisible = false
menuX = w + 50
menuY = h + 51
menuWidth = 10
menuHeight = 7
menuItems = {}
menuItemsRenX = {}
filesx = {}
directoriesx = {}
xtra = 3
screenpos = {}
filepos = {}
menuCheck = false

function startMain()

    function Even(number)
        even = true
        for i=1,number do
            if even == true then
                even = false
            else
                even = true
            end
        end
        return even
    end

    function displayError(errorA)
        renderXX = false
        term.clear()
        term.setCursorPos(w / 2 + string.len(errorA) / 2, h + 1 / 2)
        write(errorA)
        os.pullEvent("key")
        renderXX = true
    end

    function keyPressWait()
        print("[Lemon] Press Any Key...")
        os.pullEvent("key")
    end

    function fManRun(locationPath)
        if fs.exists(locationPath) == true then
            if openWith ~= "" then
                renderXX = false
                term.setBackgroundColor(colors.black)
                term.setTextColor(colors.white)
                term.clear()
                term.setCursorPos(1, 1)
                function runProgram()
                    shell.run(locationPath, tostring(openWith))
                end
                function terminateKey()
                    while true do
                        local event, key = os.pullEvent("key")
                        if key == 63 then
                            break
                        end
                    end
                end
                parallel.waitForAny(runProgram, terminateKey)
                print("[Lemon] Press Any Key...")
                os.pullEvent("key")
                renderXX = true
                openWith = ""
            else
                renderXX = false
                term.setBackgroundColor(colors.black)
                term.setTextColor(colors.white)
                term.clear()
                term.setCursorPos(1, 1)
                function runProgram()
                    shell.run(locationPath)
                end
                function terminateKey()
                    while true do
                        local event, key = os.pullEvent("key")
                        if key == 63 then
                            break
                        end
                    end
                end
                parallel.waitForAny(runProgram, terminateKey)
                print("[Lemon] Press Any Key...")
                os.pullEvent("key")
                renderXX = true
            end
        end
    end

    function dataReader(data, sep, onelas, cooler)
        if type(data) == "string" then
            dataR = {}
            dataR[1] = ""
            readingIndex = 1
            for i=1,string.len(data) do
                currChar = string.sub(data, i, i)
                if currChar == sep then
                    readingIndex = readingIndex + 1
                    dataR[readingIndex] = ""
                else
                    dataR[readingIndex] = dataR[readingIndex]..currChar
                end
            end
        else
            dataR[1] = ""
        end
        if onelas == 1 then
            dataR[1] = dataR[readingIndex]
        end
        if cooler == 1 then
            dataR[1] = readingIndex
        end
        return dataR
    end

    function menuResolve(menuString, argsxx)
        if menuString == "Run" then
            if fs.isDir(root..fileSelected) == false then
                fManRun(root..fileSelected)
            else
                if changepos == true then
                    root = root..fileSelected.."/"
                end
                fileSelected = ""
            end
        elseif menuString == "Edit" then
            if fs.isDir(root..fileSelected) == false then
                renderXX = false
                term.setBackgroundColor(colors.black)
                term.setTextColor(colors.white)
                term.clear()
                term.setCursorPos(1, 1)
                shell.run("edit", root..fileSelected)
                renderXX = true
            end
        elseif menuString == "Copy" then
            copyFile = root..fileSelected
        elseif menuString == "Delete" then
            if fs.exists(root..fileSelected) == true then
                if deleteFiles == true then
                    fs.delete(root..fileSelected)
                    fileSelected = nil
                end
            end
        elseif menuString == "Deselect" then
            if changepos == true then
                fileSelected = ""
            end
        elseif menuString == "Open with" then
            if openWith == "" then
                openWith = root..fileSelected
            else
                openWith = ""
            end
        elseif menuString == "Yes" then
            loopRun = false
            term.setBackgroundColor(colors.black)
            term.setTextColor(colors.white)
            term.clear()
            term.setCursorPos(1, 1)
            loopRun = false
        elseif menuString == "No" then
            fSetFile = true
            if fileSelected == "" then
                menuItems = {"Paste", "New", "nfx"}
                menuItemsRenX = {"  Paste   ", "   New    ", "New Folder"}
            else
                menuItems = {"Run", "----------", "Edit", "Copy", "Delete", "Deselect", "Open with", "rnm"}
                menuItemsRenX = {"   Run    ", "----------", "   Edit   ", "   Copy   ", "  Delete  ", " Deselect ", "Open With.", "  Rename  "}
            end
        elseif menuString == "nfx" then
            enterText = true
            textData = ""
            textPurpose = "nf"
        elseif menuString == "nf" then
            if argsxx ~= nil then
                if fs.exists(root..argsxx) == false then
                    fs.makeDir(argsxx)
                    fileSelected = argsxx
                end
            end
        elseif menuString == "Paste" then
            if fs.exists(copyFile) == true then
                copyFileString = dataReader(copyFile, "/", 1)[1]
                if fs.exists(root..copyFileString) == true then

                else

                end
                copyFileRoot = ""
                rootsX = tostring(dataReader(copyFile, "/", 0, 1)[1])
                --rootsX = 3
                for i=2,rootsX - 1 do
                    copyFileRoot = copyFileRoot.."/"..dataReader(copyFile, "/", 0, 0)[i]
                end
                copyFileRoot = copyFileRoot.."/"
                rnn = copyFileString
                num = 2
                errorX = false
                if fs.exists(root..rnn) == true then
                    while true do
                        if fs.exists(root..rnn) == true then
                            rnn = copyFileString
                            rnn = rnn..tostring(num)
                            num = num + 1
                        else
                            break
                        end
                    end
                end
                if fs.isDir(copyFile) == true then
                    fs.copy(copyFile, root..rnn)
                else
                    readerX = fs.open(copyFile, "r")
                    copyDataX = readerX.readAll()
                    readerX.close()
                    writerX = fs.open(root..rnn, "w")
                    writerX.write(copyDataX)
                    writerX.close()
                end
            end
        elseif menuString == "rnm" then
            changepos = false
            enterText = true
            textData = ""
            textPurpose = "rename"
        elseif menuString == "rename" then
            if fileSelected ~= nil and fileSelected ~= "" then
                if fs.exists(root..tostring(argsxx)) == false then
                    fs.copy(root..fileSelected, root..tostring(argsxx))
                    fs.delete(root..fileSelected)
                    fileSelected = nil
                end
                changepos = true
            end
        elseif menuString == "New" then
            enterText = true
            textData = ""
            textPurpose = "nw"
        elseif menuString == "nw" then
            if fs.exists(root..argsxx) == false then
                fileNew = fs.open(root..argsxx, "w")
                fileNew.write("")
                fileNew.close()
                fileSelected = argsxx
            end
        else

        end
    end

    function backUpRoot(rootP)
        if rootP ~= "/" then
            rootx = rootP
            lef = string.len(rootP) - 1
            for i=1,string.len(rootP) do
                check = i + lef
                check = check - 1
                if check > 0 then
                    --DO CHECK HERE
                    if string.sub(rootP, check, check) == "/" then
                        break
                    end
                    --END CHECK HERE
                    lef = lef - 2
                end
            end
            rootx = string.sub(rootx, 1, check)
        else
            rootx = rootP
        end
        return rootx
    end

    function getFiles(path, many)
        files = {"", ""}
        mIndex = 1
        cout = 0
        sDir = shell.resolve( path )
        local tAll = fs.list( sDir )
        for n, sItem in pairs( tAll ) do
            local sPath = fs.combine( sDir, sItem )
            if fs.isDir( sPath ) == false then
                files[mIndex] = dataReader(sPath, "/", 1)[1]
                mIndex = mIndex + 1
                files[mIndex] = ""
                cout = cout + 1
            end
        end
        if many == 1 then
            files[1] = cout
        end
        return files
    end

    function getDirectories(path, many)
        directories = {"", ""}
        mIndex = 1
        cout = 0
        sDir = shell.resolve( path )
        local tAll = fs.list( sDir )
        for n, sItem in pairs( tAll ) do
            local sPath = fs.combine( sDir, sItem )
            if fs.isDir( sPath ) then
                directories[mIndex] = dataReader(sPath, "/", 1)[1]
                mIndex = mIndex + 1
                directories[mIndex] = ""
                cout = cout + 1
            end
        end
        if many == 1 then
            directories[1] = cout
        end
        return directories
    end

    function updateList()
        filesMany = getFiles(root, 1)[1]
        directoriesMany = getDirectories(root, 1)[1]
        filesx = getFiles(root, 0)
        directoriesx = getDirectories(root, 0)
        scrollText = ""
        for i=1,w / 2 do
            scrollText = scrollText.."v"
        end
        for i=1,w / 2 do
            scrollText = scrollText.."^"
        end
        if fileSelected == nil or fileSelected == " " then
            fileSelected = ""
        end
        menuVisible = true
        menuX = w - menuWidth - 1
        menuY = 2
        renstr = openWith
        if fSetFile == true then
            if fileSelected == "" or fileSelected == nil or fileSelected == " " then
                menuItems = {"Paste", "New", "nfx"}
                menuItemsRenX = {"  Paste   ", " New File ", "New Folder"}
            else
                menuItems = {"Run", "----------", "Edit", "Copy", "Delete", "Deselect", "Open with", "rnm"}
                menuItemsRenX = {"   Run    ", "----------", "   Edit   ", "   Copy   ", "  Delete  ", " Deselect ", "Open With.", "  Rename  "}
            end
        end
        menuHeight = table.getn(menuItems)
        timeX = tostring(textutils.formatTime(os.time(), false))
        if string.sub(root, string.len(root) - 1, string.len(root)) == "//" then
            root = string.sub(root, 1, string.len(root) - 1)
        end
    end

    function drawScreen()
        if renderXX == true then
            term.setBackgroundColor(colors.white)
            term.clear()
            ind = 1
            allowScroll = true
            for i=4,h do
                term.setCursorPos(1, i)
                --RENDER AND DOCUMENT ALL FILES!!
                if directoriesx[i - 3 + scroll] ~= nil and directoriesx[i - 3 + scroll] ~= "" then
                    term.setBackgroundColor(colors.gray)
                    term.setTextColor(colors.white)
                    write("[=]")
                    term.setBackgroundColor(colors.white)
                    term.setTextColor(colors.gray)
                    screenpos[i] = directoriesx[i - 3 + scroll]
                    if directoriesx[i - 3 + scroll] == fileSelected then
                        term.setBackgroundColor(colors.lightBlue)
                        write(" "..directoriesx[i - 3 + scroll]..string.sub(blackStr, 1, w))
                    else
                        write(" "..directoriesx[i - 3 + scroll])
                    end
                end
                if ind > directoriesMany - scroll then
                    if filesx[ind - directoriesMany + scroll] ~= nil and filesx[ind - directoriesMany + scroll] ~= "" then
                        term.setBackgroundColor(colors.gray)
                        if openWith ~= "" then
                            if openWith ~= root..filesx[ind - directoriesMany + scroll] then
                                term.setTextColor(colors.orange)
                            else
                                term.setTextColor(colors.lime)
                            end
                        else
                            term.setTextColor(colors.lime)
                        end
                        write("-~-")
                        term.setBackgroundColor(colors.white)
                        term.setTextColor(colors.gray)
                        filepos[i] = filesx[ind - directoriesMany + scroll]
                        if filesx[ind - directoriesMany + scroll] == fileSelected then
                            term.setBackgroundColor(colors.lightBlue)
                            write(" "..filesx[ind - directoriesMany + scroll]..string.sub(blackStr, 1, w))
                        else
                            write(" "..filesx[ind - directoriesMany + scroll])
                        end
                    end
                end
                --END
                ind = ind + 1
            end
            term.setBackgroundColor(colors.lightBlue)
            term.setCursorPos(1, 1)
            term.clearLine()
            term.setTextColor(colors.white)
            write("[Close]")
            if renderTime == true then
                term.setCursorPos(w - string.len(timeX), 1)
                write(timeX)
            end
            term.setTextColor(colors.lightGray)
            term.setBackgroundColor(colors.white)
            term.setCursorPos(1, 2)
            write(root..string.sub(blackStr, 1, w))
            term.setCursorPos(1, 3)
            term.setBackgroundColor(colors.gray)
            term.setTextColor(colors.lightBlue)
            write("<< ")
            if fileSelected == ".." then
                term.setBackgroundColor(colors.lightBlue)
            else
                term.setBackgroundColor(colors.white)
            end
            term.setTextColor(colors.lightGray)
            write(" .."..string.sub(blackStr, 1, w))
            term.setCursorPos(1, h + 1)
            term.setBackgroundColor(colors.yellow)
            term.clearLine()
            term.setTextColor(colors.cyan)
            if enterText == false then
                write(Version.." "..Who)
            else
                write(textData.."|")
            end
            if allowScroll == true then
                term.setCursorPos(w, h + 1)
                term.setBackgroundColor(colors.gray)
                term.setTextColor(colors.white)
                if scroll < directoriesMany + filesMany - h + 3 then
                    write("v")
                else
                    write(" ")
                end
                term.setCursorPos(w, 2)
                if scroll ~= 0 then
                    write("^")
                else
                    write(" ")
                end
                term.setCursorPos(w - 1, h + 1)
                term.setBackgroundColor(colors.gray)
                term.setTextColor(colors.white)
                if scroll < directoriesMany + filesMany - h + 3 then
                    write("v")
                else
                    write(" ")
                end
                term.setCursorPos(w - 1, 2)
                if scroll ~= 0 then
                    write("^")
                else
                    write(" ")
                end
                if scroll < directoriesMany + filesMany - h + 3 or scroll ~= 0 then
                    switch = 1
                    for i=3,h do
                        if switch == 1 then
                            switch = 1
                            term.setBackgroundColor(colors.gray)
                        else
                            switch = 1
                            term.setBackgroundColor(colors.lightGray)
                        end
                        term.setCursorPos(w, i)
                        write(" ")
                        term.setCursorPos(w - 1, i)
                        write(" ")
                    end
                else
                    for i=3,h do
                        term.setBackgroundColor(colors.gray)
                        term.setCursorPos(w, i)
                        write(" ")
                        term.setCursorPos(w - 1, i)
                        write(" ")
                    end
                end
            end
            if menuVisible == true then
                if fSetFile == true then
                    term.setBackgroundColor(colors.cyan)
                else
                    term.setBackgroundColor(colors.green)
                end
                term.setTextColor(colors.black)
                for i=1,table.getn(menuItems) do
                    term.setCursorPos(menuX, menuY + i - 1)
                    if menuItemsRenX[i] ~= nil then
                        write(menuItemsRenX[i])
                    end
                end
                for i=table.getn(menuItems) + 1,h + 1 do
                    term.setCursorPos(menuX, menuY + i - 1)
                    write("          ")
                end
            end
        end
    end

    renDef = 5
    ren = renDef

    function render()
        while loopRun == true do
            sleep(0)
            if loopRun == false then
                term.setBackgroundColor(colors.black)
                term.setTextColor(colors.white)
                term.clear()
                term.setCursorPos(1, 1)
            end
            if ren < 1 then
                drawScreen()
                ren = renDef
            else
                ren = ren - 1
            end
            if loopRun == false then
                term.setBackgroundColor(colors.black)
                term.setTextColor(colors.white)
                term.clear()
                term.setCursorPos(1, 1)
            end
        end
    end

    function guiController()
        while true do
            sleep(0)
            if clickDoubleTimer ~= lasClickDoubleTimer then
                if clickDoubleTimer == true then
                    cdTimer = os.time()
                    cdLasTimer = os.time()
                else
                    cdTotalTimer = 0
                end
                lasClickDoubleTimer = clickDoubleTimer
            end
            if clickDoubleTimer == true then
                cdTimer = os.time()
                cdTotalTimer = cdTimer - cdLasTimer
                if cdTotalTimer > 0.003 then
                    clickDoubleTimer = false
                end
            end
        end
    end

    function input()
        while true do
            local event, p1, p2, p3 = os.pullEvent()
            if event == "mouse_click" then
                if menuVisible == false then
                    menuCheck = true
                else
                    if p2 > menuX - 1 and p2 < menuX - 1 + menuWidth + 1 and p3 > menuY - 1 and p3 < menuY - 1 + menuHeight + 1 then
                        menuCheck = false
                        itM = p3 - menuY + 1
                        if menuItems[itM] ~= nil then
                            if fSetFile == true then
                                if fileSelected ~= nil and fileSelected ~= "" then
                                    menuResolve(tostring(menuItems[itM]))
                                end
                                if fileSelected == "" then
                                    menuResolve(tostring(menuItems[itM]))
                                end
                            else
                                menuResolve(tostring(menuItems[itM]))
                            end
                        else
                            break
                        end
                    else
                        menuCheck = true
                    end
                end
                if menuCheck == true then
                    if p3 == 1 then
                        if p1 == 1 then
                            if p2 < 8 then
                                if instaClose == true then
                                    menuResolve("Yes")
                                else
                                    fSetFile = false
                                    menuItems = {"Yes", "No"}
                                    menuItemsRenX = {"   Yes    ", "    No    "}
                                end
                            end
                        end
                    elseif p3 == 3 then
                        if changepos == true then
                            fileSelected = ".."
                        end
                        if cdTotalTimer ~= 0 then
                            if changepos == true then
                                root = backUpRoot(root)
                            end
                            scroll = 0
                        end
                        clickDoubleTimer = true
                    elseif p3 < h + 1 then
                        if p3 ~= 2 then
                            if p2 <= w - menuWidth - 2 then
                                pe = p3 - 4
                                file11 = false
                                if pe >= directoriesMany - scroll then
                                    --Clicked On A File
                                    if filepos[p3] ~= nil and filepos[p3] ~= "" then
                                        file11 = true
                                        --renderXX = false
                                        --term.setBackgroundColor(colors.black)
                                        --term.setTextColor(colors.white)
                                        --term.clear()
                                        --term.setCursorPos(1, 1)
                                        --shell.run(root..filepos[p3])
                                        --renderXX = true
                                        if p1 == 1 then
                                            if changepos == true then
                                                fileSelected = filepos[p3]
                                            end
                                            if cdTotalTimer ~= 0 then
                                                fManRun(root..fileSelected)
                                                end
                                                clickDoubleTimer = true
                                            end
                                        else
                                            if changepos == true then
                                                fileSelected = filepos[p3]
                                            end
                                        end
                                    else
                                    --Clicked On A Folder
                                    if screenpos[p3] ~= nil and screenpos[p3] ~= "" then
                                        if p1 == 1 then
                                            if changepos == true then
                                                fileSelected = screenpos[p3]
                                            end
                                            if cdTotalTimer ~= 0 then
                                                if changepos == true then
                                                    root = root..screenpos[p3].."/"
                                                end
                                                if changepos == true then
                                                    fileSelected = ""
                                                end
                                            end
                                            clickDoubleTimer = true
                                        else
                                            if changepos == true then
                                                fileSelected = screenpos[p3]
                                            end
                                        end
                                    end
                                end
                            end
                        else
                            if p2 >= w - 1 then
                                if allowScroll == true then
                                    if scroll ~= 0 then
                                        scroll = scroll - 1
                                    end
                                end
                            end
                        end
                    elseif p3 == h + 1 then
                        if p2 >= w - 1 then
                            if allowScroll == true then
                                if scroll < directoriesMany + filesMany - h + 3 then
                                    scroll = scroll + 1
                                end
                            end
                        end
                    end
                end
            elseif event == "mouse_drag" then
                if allowScroll == true then
                    if p2 >= w - 1 then
                        if dragLasY ~= p3 then
                            if p3 > dragLasY then
                                if scroll < directoriesMany + filesMany - h + 3 then
                                    scroll = scroll + 1
                                end
                            else
                                if scroll ~= 0 then
                                    scroll = scroll - 1
                                end
                            end
                        end
                        dragLasY = p3
                    end
                end
            elseif event == "mouse_scroll" then
                if allowScroll == true then
                    if p1 == 1 then
                        if scroll < directoriesMany + filesMany - h + 3 then
                            scroll = scroll + 1
                        end
                    else
                        if scroll ~= 0 then
                            scroll = scroll - 1
                        end
                    end
                end
            elseif event == "key" then
                if enterText == true then
                    if p1 == 28 then
                        local ok, err = (menuResolve(textPurpose, textData))
                        textData = ""
                        textPurpose = ""
                        enterText = false
                    elseif p1 == 14 then
                        textData = string.sub(textData, 1, string.len(textData) - 1)
                    end
                end
            elseif event == "char" then
                if enterText == true then
                    textData = textData..p1
                end
            end
            updateList()
        end
    end
    updateList()

    parallel.waitForAny(render, input, guiController)

end

while true do
    ok, err = pcall(startMain)
    if not ok then
        term.setBackgroundColor(colors.blue)
        for i=-5,5 do
            term.setCursorPos(1, h / 2 + i)
            term.clearLine()
        end
        term.setTextColor(1)
        term.setCursorPos(math.floor(w-string.len(" Runtime Error! "))/2, h / 2 - 4)
        term.setBackgroundColor(colors.white)
        term.setTextColor(colors.blue)
        write(" Runtime Error! ")
        term.setCursorPos(math.floor(w-string.len(err))/2, h / 2 - 2)
        term.setBackgroundColor(colors.blue)
        term.setTextColor(1)
        write(err)
        term.setCursorPos(math.floor(w-string.len("A/?? - Continue Program"))/2, h / 2 + 2)
        write("A/?? - Continue Program")
        term.setCursorPos(math.floor(w-string.len("B - Terminate Program"))/2, h / 2 + 4)
        write("B - Terminate Program")
        local event, p1 = os.pullEvent("char")
        if p1 == "B" or p1 == "b" then
            term.setBackgroundColor(colors.black)
            term.setTextColor(colors.white)
            term.setCursorPos(1, 1)
            term.clear()
            break
        else
            changepos = true
            enterText = false
            textData = ""
            textPurpose = ""
            updateList()
        end
    else
        break
    end
end