[Computer Craft] Mouse File Browser v 0.7

--[[
        Mouse File Browser
        by:
            Stiepen irc(Kilobyte)
            Cruor
            BigSHinyToys

        note: send link to nightin9ale on CC forums
--]]

local tArgs = {...}
local ver = "0.7"
local sTitle = "File Browser"
local bugTest, norun, dir, showAll
local _tArgs = {}

local function help()
  print("Usage: browser [-d] [-h] [-a] [--debug] [--help] [--dir <dir>] [--all]")
  print("--debug or -d: enable debug mode")
  print("--help or -h: display this screen")
  print("--dir: define initial directory")
  print("--all or -a: show hidden files")
  print("-u: update")
end

for a = 1, #tArgs do
    if tArgs[a]:sub(1,2) == "--" then
        local cmd = tArgs[a]:sub(3):lower()
        if cmd == "debug" then
            bugTest = true
        elseif cmd == "help" then
            help()
            norun = true
        elseif cmd == "dir" then
            dir = tArgs[a+1]
            a = a + 1
        elseif cmd == "all" then
            showAll = true
        end
    elseif tArgs[a]:sub(1,1) == "-" then
        for b = 2, #tArgs[a] do
            cmd = tArgs[a]:sub(b, b)
            if cmd == "d" then
                bugTest = true
            elseif cmd == "h" then
                help()
                norun = true
            elseif cmd == "p" then
                dir = tArgs[a+1]
                a = a + 1
            elseif cmd == "a" then
                showAll = true
            elseif cmd == "u" then

                print("Checking for Updates")
                local isHTTP = false
                local response
                if http then
                    isHTTP = true
                    print("http on")
                    response = http.get("http://pastebin.com/raw.php?i=rLbnyM1U")
                end
                local flag = false
                local isNewFlag = false
                local newVerID
                if response and isHTTP then
                    print("recived")
                    local sInfo = response.readLine()
                    print(sInfo)
                    while sInfo do
                        print(sInfo)
                        if flag then
                            if sInfo == ver then
                                print("Mouse File Browser is up to date")
                                break
                            else
                                newVerID = sInfo
                                flag = false
                                isNewFlag = true
                            end
                        elseif sInfo == sTitle then
                            flag = true
                        elseif isNewFlag then
                            isNewFlag = sInfo
                            response.close()
                            break
                        end
                        sInfo = response.readLine()
                    end
                    if isNewFlag then
                        print("New vershion avalible "..newVerID)
                        print('downloading to \Browser')
                        if fs.exists("Browser") then
                            write("Browser exists OverWrite Browser Y/N : ")
                            local input = string.lower(read())
                            while input ~= "y" and input ~= "n" do
                                print("y or n required")
                                input = string.lower(read())
                            end
                            if input == "y" then
                                print("Over Writeing Browser")
                                print("Downloading new File")
                                local response = http.get("http://pastebin.com/raw.php?i="..isNewFlag)
                                if response then
                                    print("file downloaded")
                                    print("installing")
                                    fs.delete("Browser")
                                    local handel = fs.open("Browser","w")
                                    if handel then
                                        handel.write(response.readAll())
                                        handel.close()
                                        print("Update Complete")
                                    end
                                    response.close()
                                end
                            else
                                print("Update aborted")
                            end
                        else
                            print("Downloading new File")
                            local response = http.get("http://pastebin.com/raw.php?i="..isNewFlag)
                            if response then
                                print("file downloaded")
                                print("installing")
                                local handel = fs.open("Browser","w")
                                if handel then
                                    handel.write(response.readAll())
                                    handel.close()
                                    print("Update Complete")
                                end
                                response.close()
                            end
                        end
                    end
                elseif isHTTP then
                    print("Error downloading update file Please contact BigSHinyToys on the CC forums")
                    print("http://www.computercraft.info/forums2/index.php?/topic/5509-advanced-computer-mouse-file-browser/")
                elseif not isHTTP then
                    print("HTTP API is turned off")
                    print("Access Computer Craft Configer and change line")
                    print([[enableapi_http {
# Enable the "http" API on Computers
general=false
}
TO THIS :
enableapi_http {
# Enable the "http" API on Computers
general=true
}]])
                end
                notCMD = false
                norun = true
            end
        end
    else
        table.insert(_tArgs, tArgs[a])
    end
end

if (not dir) and shell and shell.dir then
  dir = shell.dir()
end

if dir and shell and shell.resolve then
  dir = shell.resolve(dir)
end

dir = dir or "/"

if bugTest then -- this is that the var is for testing
    print("Dir: "..dir)
    sleep(4)
end

local function clear()
    term.setBackgroundColor(colors.black)
    term.setTextColor(colors.white)
    term.clear()
    term.setCursorBlink(false)
    term.setCursorPos(1,1)
end

--[[
        Code thanks to Cruor
        http://www.computercraft.info/forums2/index.php?/topic/5802-support-for-shell/
]]--
local function fixArgs(...)
    local tReturn={}
    local str=table.concat({...}," ")
    local sMatch
    while str and #str>0 do
        if string.sub(str,1,1)=="\"" then
            sMatch, str=string.match(str, "\"(.-)\"%s*(.*)")
        else
            sMatch, str=string.match(str, "(%S+)%s*(.*)")
        end
        table.insert(tReturn,sMatch)
    end
    return tReturn
end
--[[ end Cruor function ]]--


-- modified read made to play nice with coroutines

local function readMOD( _sReplaceChar, _tHistory,_wdth)
    local sLine = ""
    term.setCursorBlink( true )

    local nHistoryPos = nil
    local nPos = 0
    if _sReplaceChar then
        _sReplaceChar = string.sub( _sReplaceChar, 1, 1 )
    end

    local sx, sy = term.getCursorPos()

    local w, h = term.getSize()
    if _wdth and type(_wdth) == "number" then
        w = sx + _wdth - 1
    end

    local function redraw( _sCustomReplaceChar )
        local nScroll = 0
        if sx + nPos >= w then
            nScroll = (sx + nPos) - w
        end

        term.setCursorPos( sx + _wdth - 1, sy )
        term.write(" ")
        term.setCursorPos( sx, sy )
        local sReplace = _sCustomReplaceChar or _sReplaceChar
        if sReplace then
            term.write( string.rep(sReplace,_wdth) )
        else
            term.write( string.sub( sLine, nScroll + 1 ,nScroll + _wdth) )
        end
        term.setCursorPos( sx + nPos - 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.left then
                -- Left
                if nPos > 0 then
                    nPos = nPos - 1
                    redraw()
                end

            elseif param == keys.right then
                -- Right
                if nPos < string.len(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
        elseif sEvent == "redraw" then
            redraw()
        elseif sEvent == "return" then
            term.setCursorBlink( false )
            return sLine
        end
    end

    term.setCursorBlink( false )

    return sLine
end

-- end modified read

local function printC(posX,posY,textCol,backCol,text)
    term.setCursorPos(posX,posY)
    term.setTextColor(textCol)
    term.setBackgroundColor(backCol)
    term.write(text)
end

local function InputBox(title)
    local boxW,boxH = 26,3
    local termX,termY = term.getSize()
    local ofsX,ofsY = math.ceil((termX/2) - (boxW/2)) , math.ceil((termY/2) - (boxH/2)) -- offset from top left
    local options = {"ok","cancel"}

    local selected = 1
    local space = 0
    local range = {}
    for i = 1,#options do
        range[i] = {s = space,f = space + string.len(options[i])}
        space = space + string.len(options[i])+3
    end
    local ofC = (boxW/2) - (space/2)

    local function drawBox()
        printC(ofsX,ofsY,colors.black,colors.blue,string.rep(" ",boxW))
        printC(ofsX+1,ofsY,colors.black,colors.blue,(title or "User Input"))
        printC(ofsX,ofsY+1,colors.black,colors.white,string.rep(" ",boxW))
        printC(ofsX,ofsY+2,colors.black,colors.white,string.rep(" ",boxW))
        printC(ofsX,ofsY+3,colors.black,colors.white,string.rep(" ",boxW))

        for i = 1,#options do
            if i == selected then
                term.setBackgroundColor(colors.lightGray)
                term.setCursorPos(range[i].s + ofC + ofsX - 1,ofsY + 3)
                term.write("["..options[i].."]")
                term.setBackgroundColor(colors.white)
                term.write(" ")
            else
                term.setCursorPos(range[i].s + ofC + ofsX - 1,ofsY + 3)
                term.write(" "..options[i].." ")
            end
        end

        printC(ofsX+2,ofsY+2,colors.black,colors.lightGray,string.rep(" ",boxW-4))
    end
    drawBox()
    term.setCursorPos(ofsX+2,ofsY+2)
    local co = coroutine.create(function() return readMOD(nil,nil,boxW - 4) end)
    while true do
        local event = {os.pullEvent()}
        if event[1] == "key" or event[1] == "char" then
            if event[2] == 28 then
                local test,data = coroutine.resume(co,"return")
                return data
            else
                coroutine.resume(co,unpack(event))
            end
        elseif event[1] == "mouse_click" then
            if event[4] == ofsY + 3 then
                for i = 1,#options do
                    if event[3] >= range[i].s + ofC + ofsX - 1 and event[3] <= range[i].f + ofC + ofsX then
                        if options[i] == "ok" then
                            local test,data = coroutine.resume(co,"return")
                            return data
                        elseif options[i] == "cancel" then
                            return
                        end
                    end
                end
            end
        end
    end
end

local function dialogBox(title,message,options, h, w)
    term.setCursorBlink(false)
    local selected = 1
    title = title or ""
    message = message or ""
    options = options or {}
    local boxW,boxH = (w or 26), (h or 3)
    local termX,termY = term.getSize()
    local ofsX,ofsY = math.ceil((termX/2) - (boxW/2)) , math.ceil((termY/2) - (boxH/2)) -- offset from top left

    local space = 0
    local range = {}
    for i = 1,#options do
        range[i] = {s = space,f = space + string.len(options[i])}
        space = space + string.len(options[i])+3
    end
    local ofC = math.ceil((boxW/2)) - math.ceil((space/2))

    local function drawBox()
        if term.isColor() then
            term.setTextColor(colors.black)
            term.setCursorPos(ofsX,ofsY) -- F*** YOU 3 hours to find out i forgot to round numbers before sending them to this Fing function
            term.setBackgroundColor(colors.blue)
            term.write(" "..title..string.rep(" ",boxW-#title-5).."_[]")
            term.setBackgroundColor(colors.red)
            term.setTextColor(colors.white)
            term.write("X")
            term.setCursorPos(ofsX,ofsY+1)
            term.setBackgroundColor(colors.white)
            term.setTextColor(colors.black)
            term.write(string.sub(" "..message..string.rep(" ",boxW),1,boxW)) -- edited
            term.setCursorPos(ofsX,ofsY+2)
            term.write(string.rep(" ",boxW))
            term.setCursorPos(ofsX,ofsY+3)
            term.write(string.rep(" ",boxW))

            for i = 1,#options do
                if i == selected then
                    term.setBackgroundColor(colors.lightGray)
                    term.setCursorPos(range[i].s + ofC + ofsX - 1,ofsY + 3)
                    term.write("["..options[i].."]")
                    term.setBackgroundColor(colors.white)
                    term.write(" ")
                else
                    term.setCursorPos(range[i].s + ofC + ofsX - 1,ofsY + 3)
                    term.write(" "..options[i].." ")
                end
            end
            term.setCursorPos(ofsX + ofC + space,ofsY + 3)
            term.write(string.rep(" ",boxW - (ofC + space)))
            term.setBackgroundColor(colors.black)
            term.setTextColor(colors.white)
        end
    end
    while true do
        drawBox()
        event = {os.pullEvent()}
        if event[1] == "key" then
            if event[2] == 203 then -- left
                selected = selected - 1
                if selected < 1 then
                    selected = #options
                end
            elseif event[2] == 205 then -- right
                selected = selected + 1
                if selected > #options then
                    selected = 1
                end
            elseif event[2] == 28 then -- enter
                return selected , options[selected]
            end
        elseif event[1] == "mouse_click" then
            term.setCursorPos(1,1)
            term.clearLine()

            if bugTest then term.write("M "..event[2].." X "..event[3].." Y "..event[4]) end

            if event[2] == 1 then
                if event[4] == ofsY + 3 then
                    for i = 1,#options do
                        if event[3] >= range[i].s + ofC + ofsX - 1 and event[3] <= range[i].f + ofC + ofsX then
                            return i , options[i]
                        end
                    end
                end
            end
        end
    end
end

local function rClickMenu(title,tList,posX,posY)

    term.setCursorBlink(false)
    local BoxTitle = title
    local choices = tList
    local termX,termY = term.getSize()
    local offX,offY

    local width = #BoxTitle + 2
    local hight = #choices + 1

    for i = 1,#choices do
        if width < #choices[i] + 2 then
            width = #choices[i] + 2
        end
    end

    offX,offY = math.ceil((termX/2) - (width/2)),math.ceil((termY/2) - (hight/2))

    if posX and posY then -- offX,offY = posX,posY
        if posX >= termX - width - 1 then
            offX = termX - width - 1
        else
            offX = posX
        end
        if posY >= termY - hight then
            offY = termY - hight
        else
            offY = posY
        end
    end

    local function reDrawer()
        printC(offX,offY,colors.black,colors.blue," "..BoxTitle..string.rep(" ",width - #BoxTitle - 1))
        for i = 1,#choices do
            printC(offX,offY + i,colors.black,colors.white," "..choices[i]..string.rep(" ",width - #choices[i] - 1))
        end
    end

    while true do
        reDrawer()
        local event = {os.pullEvent()}
        if event[1] == "mouse_click" then
            if event[2] == 1 then -- event[3] = x event[4] = y
                if event[4] > offY and event[4] < hight + offY and event[3] >= offX and event[3] < width + offX then
                    return choices[event[4] - offY]
                else
                    return
                end
            elseif event[2] == 2 then
                return
            end
        end
    end

end

local function osRunSpaces(...)
    clear()
    return os.run(getfenv(),...)
end

local function fileSelect(mode) -- save_file open_file browse < not yet implemented

    local title = sTitle.." "..ver
    local bRun = true
    local flag = true
    local clipboard = nil
    local cut = false

    local termX,termY = term.getSize()
    local offsetX,offsetY = 1,1
    local hight,width = math.ceil(termY-2),math.ceil(termX-2)
    local oldHight,oldWidth

    local boxOffX,boxOffY = offsetX,offsetY + 2
    local boxH,boxW = hight - 2 ,width - 2

    local barX,barY = offsetX + 1,offsetY + 2
    local barH,barW = 1,width - 1

    local tbarX,tbarY = offsetX + 1,offsetY + 1
    local tbarH,tbarW = 1,width - 1

    local exitX,exitY = offsetX + width - 1 ,offsetY + 1

    local parth = {dir:match("[^/]+")}
    local list

    local fSlash = "/"
    local listOff = 0

    local function stringParth() -- compacted this alot
        return fSlash..table.concat(parth,fSlash)
    end

    local sParth = stringParth()
    local files = {}
    local folders = {}
    local disks = {}

    local function NewList()
        flag = true
        listOff = 0
        sParth = stringParth()
        files = {}
        folders = {}
        disks = {}
        test,list = pcall(fs.list,sParth)
        if list == nil then
            list = {}
            dialogBox("ERROR : ","fs.list crashed",{"ok"})
        end
        for i = 1,#list do
            if showAll or list[i]:sub(1,1) ~= "." then
                if fs.isDir(sParth..fSlash..list[i]) then
                    table.insert(folders,list[i])
                else
                    table.insert(files,list[i])
                end
            end
        end
        if #parth == 0 then
            for i,v in pairs(rs.getSides()) do
                if disk.isPresent(v) and disk.hasData(v) then
                    disks[disk.getMountPath(v)] = v
                end
            end
        end
        table.sort(disks)
        table.sort(folders)
        table.sort(files)
    end

    NewList()

    local function size(test)
        if #test > boxW - 3 then
            return string.sub(test,1,boxW-3)
        end
        return test
    end


    while bRun do
        if flag then
            flag = false
            -- clear
            if oldHight ~= hight and oldWidth ~= width then
                term.setBackgroundColor(colors.black)
                term.clear()
                oldHight,oldWidth = hight,width
            end
            -- draw top title bar
            term.setCursorPos(tbarX,tbarY)
            term.setTextColor(colors.black)
            term.setBackgroundColor(colors.blue)
            local b = tbarW - #title -2
            if b < 0 then
                b = 0
            end
            term.write(string.sub(" "..title,1,tbarW)..string.rep(" ",b))
            term.setTextColor(colors.white)
            term.setBackgroundColor(colors.red)
            term.write("X")

            -- draw location bar

            term.setCursorPos(barX,barY)
            term.setTextColor(colors.black)
            term.setBackgroundColor(colors.lightGray)
            local a = barW - #sParth - 1
            if a < 0 then
                a = 0
            end
            local tmppath = sParth
            if shell and shell.getDisplayName then
                tmppath = shell.getDisplayName(sParth)
                --dialogBox("yay")
            else
                --dialogBox("moop")
            end
            tmppath = tmppath or sParth
            local a = barW - #tmppath - 1
            if a < 0 then
                a = 0
            end
            term.write(string.sub(" "..tmppath,1,barW)..string.rep(" ",a))

            -- draw scroll bar
            if folders[1] ~= ".." then
              table.insert(folders, 1, "..")
            end

            if #folders + #files > boxH then
                term.setBackgroundColor(colors.lightGray)
                for i = 1,boxH do
                    term.setCursorPos(boxOffX+boxW+1,i + boxOffY)
                    local scroll = math.floor( boxH* (listOff/(#folders + #files-boxH+2)) )+1
                    if i == scroll then
                        term.setBackgroundColor(colors.gray)
                        term.write(" ")
                        term.setBackgroundColor(colors.lightGray)
                    else
                        term.write(" ")
                    end
                end
            else
                term.setBackgroundColor(colors.gray)
                for i = 1,boxH do
                    term.setCursorPos(boxOffX+boxW+1,i + boxOffY)
                    term.write(" ")
                end
            end

            -- draw main section

            term.setTextColor(colors.black)
            term.setBackgroundColor(colors.cyan)
            for i = 1,boxH do
                term.setCursorPos(1+boxOffX,i+boxOffY)
                if folders[i+listOff] then
                    if disks[folders[i+listOff]] then
                        term.setTextColor(colors.orange)
                        term.setBackgroundColor(colors.blue)
                        term.write("D!")
                    else
                        term.setTextColor(colors.blue)
                        term.setBackgroundColor(colors.lightBlue)
                        term.write("[]")
                    end
                    if folders[i+listOff]:sub(1,1) == "." and folders[i+listOff] ~= ".." then
                        term.setTextColor(colors.gray)
                    else
                        term.setTextColor(colors.black)
                    end
                    term.setBackgroundColor(colors.cyan)
                    local repTimes = boxW - #folders[i+listOff] - 3
                    if repTimes < 0 then
                        repTimes = 0
                    end
                    term.write(" "..size(folders[i+listOff])..string.rep(" ",repTimes))
                elseif files[i-#folders+listOff] then
                    local repTimes = boxW - #files[i-#folders+listOff] - 3
                    if repTimes < 0 then
                        repTimes = 0
                    end
                    term.write("   "..size(files[i-#folders+listOff])..string.rep(" ",repTimes))
                else
                    term.write(string.rep(" ",boxW))
                end
            end
            term.setTextColor(colors.white)
            term.setBackgroundColor(colors.black)

            if bugTest then
                term.setCursorPos(1,1)
                term.write(listOff.." "..boxOffY.." "..boxH)
            end

            -- resume("redraw")
        end
        -- react to events

        local event = {os.pullEvent()}

        if event[1] == "mouse_click" then
            if event[2] == 1 then -- left mouse
                local temp = nil
                if event[4] > boxOffY and event[4] <= boxH + boxOffY then
                    temp = folders[event[4]+listOff-boxOffY] or files[event[4]-#folders+listOff-boxOffY]
                end
                if temp and event[3] > boxOffX and event[3] <= #temp + 3 + boxOffX and event[3] < boxOffX + boxW then
                    if temp == ".." then
                        table.remove(parth,#parth)
                        NewList()
                    elseif fs.isDir(stringParth()..fSlash..temp) then
                        table.insert(parth,temp)
                        NewList()
                    else
                        if fs.exists(stringParth()..fSlash..temp) then
                            if dialogBox("Run file ?",temp,{"yes","no"}) == 1 then
                                local test,info = osRunSpaces(stringParth()..fSlash..temp)
                                term.setCursorBlink(false)
                                if not test then
                                    dialogBox("ERROR",tostring(info),{"ok"})
                                end
                            end
                            flag = true
                        end
                    end
                elseif event[3] == boxOffX+boxW+1 and event[4] > boxOffY and event[4] <= boxOffY+boxH then
                    if #folders + #files > boxH then
                        if event[4] == boxOffY + 1 then
                            listOff = 0
                        elseif event[4] == boxOffY+boxH then
                            listOff = #folders + #files + 1 - boxH
                        else
                            listOff = math.ceil((event[4] - boxOffY - 1 )*(((#folders + #files - boxH+2)/boxH)))
                        end
                        flag = true
                    end
                elseif event[3] == exitX and event[4] == exitY then
                    if dialogBox("Confirm","Exit application",{"yes","no"}) == 1 then
                        bRun = false
                    end
                    flag = true
                end
            elseif event[2] == 2 then -- right mouse
                local temp = nil
                local sChoice = nil
                local sType = nil

                if event[4] > boxOffY and event[4] <= boxH + boxOffY then
                    temp = folders[event[4]+listOff-boxOffY] or files[event[4]-#folders+listOff-boxOffY]
                end

                -- moved
                local paste
                if clipboard then
                    paste = "Paste"
                end

                if temp and event[3] > boxOffX and event[3] <= #temp + 3 + boxOffX and event[3] < boxOffX + boxW then
                    sType = "File"

                    if fs.isDir(stringParth()..fSlash..temp) then
                        sType = "Folder"
                    end

                    if disks[temp] then
                        sChoice = rClickMenu("Options",{"Open","Eject"},event[3]+1,event[4]+1)
                    else
                        if sType == "Folder" then
                            sChoice = rClickMenu("Options",{"Open","Delete"},event[3]+1,event[4]+1)
                        else
                            if windowDimensions then
                                sChoice = rClickMenu("Options",{"Run","Run CMD","deBug","Run win","Rename","Edit","Paint","Delete", "Cut", "Copy", paste},event[3]+1,event[4]+1)
                            else
                                sChoice = rClickMenu("Options",{"Run","Run CMD","deBug","CHIP 8","Rename","Edit","Paint","Delete", "Cut", "Copy", paste},event[3]+1,event[4]+1)
                            end
                        end
                    end

                else
                    if event[3] > boxOffX and event[3] <= 5 + boxOffX and event[3] < boxOffX + boxW then
                        if event[4] > offsetY and event[4] < hight + offsetY then
                            sChoice = rClickMenu("Options",{"New File","New Folder", paste},event[3]+1,event[4]+1)
                        end
                    else
                        table.remove(parth,#parth)
                        NewList()
                    end
                end

                if sChoice == "Run win" and windowDimensions then -- choice execution
                    osRunSpaces("start",stringParth()..fSlash..temp) -- might be a probblem -- shell
                    flag = true
                elseif sChoice == "deBug" then
                    osRunSpaces(stringParth()..fSlash..temp)
                    term.setCursorBlink(false)
                    os.pullEvent("key")
                elseif sChoice == "CHIP 8" then -- this was a temo hackin will be going
                    local function openDevice(sType)
                        for i,v in pairs(rs.getSides()) do
                            if peripheral.isPresent(v) and peripheral.getType(v) == sType then
                                return peripheral.wrap(v),v
                            end
                        end
                    end
                    local func,side = openDevice("monitor")
                    osRunSpaces("chip8",stringParth()..fSlash..temp,side)
                elseif sChoice == "New File" then -- experemntal
                    local name = InputBox()
                    if name then
                        if fs.exists(stringParth()..fSlash..name) then
                            dialogBox("ERROR","Name exists",{"ok"})
                        else
                            local file = fs.open(stringParth()..fSlash..name,"w")
                            if file then
                                file.write("")
                                file.close()
                                NewList()
                            else
                                dialogBox("ERROR","File not created",{"ok"})
                            end
                        end
                    end
                elseif sChoice == "New Folder" then -- experemental
                    local name = InputBox()
                    if name then
                        if fs.exists(stringParth()..fSlash..name) then
                            dialogBox("ERROR","Name exists",{"ok"})
                        else
                            if pcall(fs.makeDir,stringParth()..fSlash..name) then
                                NewList()
                            else
                                dialogBox("ERROR","Access Denied",{"ok"})
                            end
                        end
                    end
                elseif sChoice == "Open" then
                    table.insert(parth,temp)
                    NewList()
                elseif sChoice == "Run" then
                    local test,info = osRunSpaces(stringParth()..fSlash..temp)
                    term.setCursorBlink(false)
                    if not test then
                        dialogBox("ERROR",tostring(info),{"ok"})
                    end
                elseif sChoice == "Run CMD" then
                    local cmd = fixArgs(InputBox("Commands"))
                    if cmd ~= nil then
                        local test,info = osRunSpaces(stringParth()..fSlash..temp,unpack(cmd))
                        term.setCursorBlink(false)
                        if not test then
                            dialogBox("ERROR",tostring(info),{"ok"})
                        end
                    end
                elseif sChoice == "Edit" then
                    if sType == "File" then
                        osRunSpaces("/rom/programs/edit",stringParth()..fSlash..temp)
                    else
                        dialogBox("ERROR","Can't edit a Folder",{"ok"})
                    end
                elseif sChoice == "Delete" then
                    if dialogBox("Confirm","Delete "..sType.." "..temp,{"yes","no"}) == 1 then
                        if fs.isReadOnly(stringParth()..fSlash..temp) then
                            dialogBox("ERROR",sType.." Is read Only",{"ok"})
                        else
                            fs.delete(stringParth()..fSlash..temp)
                            NewList()
                        end
                    end
                elseif sChoice == "Paint" then
                    if sType == "File" then
                        osRunSpaces("/rom/programs/color/paint",stringParth()..fSlash..temp)
                    else
                        dialogBox("ERROR","Can't edit a Folder",{"ok"})
                    end
                elseif sChoice == "Eject" then
                    if dialogBox("Confirm","Eject disk "..disks[temp].." "..fSlash..temp,{"yes","no"}) == 1 then
                        disk.eject(disks[temp])
                        NewList()
                    end
                elseif sChoice == "Copy" then
                    clipboard = {stringParth(), temp}
                    cut = false
                elseif sChoice == "Cut" then
                    clipboard = {stringParth(), temp}
                    cut = true
                elseif sChoice == "Paste" then
                    if cut then
                        local s, m = pcall(function()
                            fs.move(clipboard, stringParth().."/"..temp)
                            cut = false
                            clipboard = nil
                        end)
                        if not s then
                            dialogBox("Error", (m or "Couldn't move"), {"ok"}, 4, 30)
                        end
                        if bugTest then
                            local x, y = term.getCursorPos()
                            term.setCursorPos(1, ({term.getSize()})[2])
                            write("from "..clipboard[1].."/"..clipboard[2].." to "..stringParth().."/"..clipboard[2])
                        end
                    else
                        local s, m = pcall(function()
                            fs.copy(clipboard[1].."/"..clipboard[2], stringParth().."/"..clipboard[2])
                        end)
                        if not s then
                            dialogBox("Error", (m or "Couldn't copy"), {"ok"}, 4, 30)
                        end
                        if bugTest then
                            local x, y = term.getCursorPos()
                            term.setCursorPos(1, ({term.getSize()})[2])
                            write("from "..clipboard[1].."/"..clipboard[2].." to "..stringParth().."/"..clipboard[2])
                        end
                    end
                    NewList()
                elseif sChoice == "Rename" then -- new parts of the above thanks kilo
                    local sName = InputBox("New Name")
                    if type(sName) == "string" and sName ~= "" then
                        local s, m = pcall(function()
                            fs.move(stringParth()..fSlash..temp,stringParth()..fSlash..sName)
                        end)
                        if not s then
                            dialogBox("Error", (m or "Rename failed"), {"ok"})
                        end
                    end
                    NewList()
                end
                flag = true
            end
        elseif event[1] == "mouse_scroll" then -- flag this needs new math
            local old = listOff
            listOff = listOff + event[2]
            if listOff < 0 then
                listOff = 0
            end
            if #folders + #files + 1 - boxH > 0 and listOff > #folders + #files + 1 - boxH then
                listOff = #folders + #files + 1 - boxH
            elseif listOff > 0 and #folders + #files + 1 - boxH < 0 then
                listOff = 0
            end
            if listOff ~= old then
                flag = true
            end

        elseif event[1] == "mouse_drag" then -- test
            if event[3] == boxOffX+boxW+1 and event[4] > boxOffY and event[4] <= boxOffY+boxH then
                if #folders + #files > boxH then
                    if event[4] == boxOffY + 1 then
                        listOff = 0
                    elseif event[4] == boxOffY+boxH then
                        listOff = #folders + #files + 1 - boxH
                    else
                        listOff = math.ceil((event[4] - boxOffY - 1 )*(((#folders + #files - boxH+2)/boxH)))
                    end
                    flag = true
                end
            end

        elseif event[1] == "disk" or event[1] == "disk_eject" then
            NewList()
        elseif event[1] == "window_resize" then
            termX,termY = term.getSize()
            offsetX,offsetY = 1,1
            hight,width = math.ceil(termY-2),math.ceil(termX-2)

            boxOffX,boxOffY = offsetX,offsetY + 2
            boxH,boxW = hight - 2 ,width - 2

            barX,barY = offsetX + 1,offsetY + 2
            barH,barW = 1,width - 1

            tbarX,tbarY = offsetX + 1,offsetY + 1
            tbarH,tbarW = 1,width - 1

            exitX,exitY = offsetX + width - 1 ,offsetY + 1

            flag = true
        end
    end
end
local function main()
    if term.isColor() then
        clear()
        fileSelect()
        clear()
    else
        error("Not an Advanced Computer (gold) ")
    end
end
local trash = (norun or main())