ShockBrowser V2.00pr2

vers="2.00pr2"
--ShockBrowser V1.10
--By Skullblade/Skullblade213
--A Basic GUI File Browser In Beta
--Credits!
--Special Thanks to BigSHinyToys for permission to use his GUI setup:D
--Lua-users.org rounding function (http://lua-users.org/wiki/SimpleRound)

function round(num, idp)
    local mult = 10^(idp or 0)
    return math.floor(num * mult + 0.5) / mult
end
function Scrolling(msg)
    term.setBackgroundColor(ButtonBack)
    y=4
    for i=1,15 do
        term.setCursorPos(51,y)
        print(" ")
        if i==1 then
            term.setCursorPos(51,y)
            print("-")
        end
        if i==15 then
            term.setCursorPos(51,y)
            print("+")
        end
        y=y+1
        i=i+1
    end
    FileList = fs.list(direct)
    nume=1
    while FileList[nume] ~= nil do
        nume=nume+1
    end
    term.setCursorPos(1,1)
    Current=round(CursorChange/nume*15, 0)
    if Current>15 then
        Current=15
    end
    term.setBackgroundColor(colors.gray)
    if Current+4>18 then
        Current=18-4
    end
    term.setCursorPos(51,Current+4)
    print(" ")
end
function ColorCheck()
    if fs.exists("SB-Config") == false then
        file=fs.open("SB-Config", "w")
        file.writeLine("--Colors")
        file.writeLine("   ")
        file.writeLine("HeaderBack=2048")
        file.writeLine("HeaderText=colors.purple")
        file.writeLine("ButtonBack=256")
        file.writeLine("ButtonText=1")
        file.writeLine("Background=8")
        file.writeLine("Text=32768")
        file.writeLine("   ")
        file.writeLine("--Use any computercraft color code format")
        file.writeLine("--Defult Color Codes")
        file.writeLine("   ")
        file.writeLine("--HeaderBack=2048")
        file.writeLine("--HeaderText=colors.purple")
        file.writeLine("--ButtonBack=1")
        file.writeLine("--ButtonText=256")
        file.writeLine("--Background=8")
        file.writeLine("--Text=32768")
        file.writeLine("   ")
        file.writeLine("--Auto Check For Updates")
        file.writeLine("   ")
        file.writeLine("AutoCheck=true")
        file.writeLine("   ")
        file.writeLine("--'Icons'")
        file.writeLine("   ")
        file.writeLine('DirIcon="[D]"')
        file.writeLine('DirColor=colors.red')
        file.writeLine('DiskIcon="[E]"')
        file.writeLine('DiskColor=colors.pink')
        file.writeLine('RecyIcon="[R]"')
        file.writeLine('RecyColor=colors.yellow')
        file.writeLine('FileIcon="[F]"')
        file.writeLine('FileColor=colors.lime')
        file.close()
    end
end
function Updater()
    runningProg=shell.getRunningProgram()
    if fs.exists(".temp") == true then
        fs.delete(".temp")
    end
    if ForceU==true and http then
        print("Force Update")
        sleep(.5)
        file=fs.open(".temp", "w")
        file.writeLine('fs.delete(runningProg) shell.run("pastebin get pcaVwGY8 "..runningProg) fs.delete(".temp") term.clear() term.setCursorPos(1,1) print("Downloaded to "..runningProg)')
        file.close()
        shell.run(".temp")
    elseif AutoCheck==true and http and ForceU==false then
        action="No"
        term.setTextColor(colors.black)
        shell.run("pastebin get byX1Gv6a .temp")
        term.setTextColor(colors.white)
        shell.run(".temp")
        fs.delete(".temp")
        if version~=vers then
            term.clear()
            term.setBackgroundColor(colors.blue)
            term.setCursorPos(10,5)
            write("Update?                         ")
            term.setBackgroundColor(colors.red)
            print("X")
            term.setCursorPos(10,6)
            term.setBackgroundColor(colors.lightGray)
            print("                                 ")
            term.setCursorPos(10,7)
            print("                                 ")
            term.setCursorPos(10,8)
            print("                                 ")
            term.setCursorPos(10,9)
            print("                                 ")
            term.setCursorPos(10,10)
            print("                                 ")
            term.setCursorPos(10,11)
            print("                                 ")
            term.setCursorPos(10,6)
            term.setTextColor(colors.black)
            print(" Update ShockBrowser?")
            term.setTextColor(colors.white)
            term.setCursorPos(10,7)
            print(" Current Version="..version)
            term.setCursorPos(10,8)
            print(" Your Version="..vers)
            term.setTextColor(colors.red)
            term.setCursorPos(10,10)
            print("     [Yes]          [No]")
            term.setTextColor(colors.white)
            term.setBackgroundColor(colors.black)
            while true do
                action="none"
                event, button,x, y = os.pullEvent("mouse_click")
                if x>14 and x<20 and y==10 then
                    action="Yes"
                    break
                end
                if (x>29 and x<34 and y==10) or (y==5 and x==42) then
                    action="No"
                    break
                end
            end
            if action=="Yes" then
                file=fs.open(".temp", "a")
                file.writeLine('fs.delete(runningProg) shell.run("pastebin get pcaVwGY8 "..runningProg) term.clear() term.setCursorPos(1,1) print("Downloaded to "..runningProg)')
                file.close()
                shell.run(".temp")
            end
        end
    end
    if fs.exists(".temp") == true then
        fs.delete(".temp")
    end
end
function yInc()
    if yChange=="Up" then
        y1=y1-1
    end
    if yChange=="Down" then
        y1=y1+1
    end
end
function Run(types)
    term.setBackgroundColor(colors.black)
    term.setTextColor(colors.white)
    term.clear()
    term.setCursorPos(1,1)
    shell.run(Direct.."/"..FileList[y-3+CursorChange],ar)
    term.setCursorPos(9,17)
    print("Finished Running : "..FileList[y-3+CursorChange])
    term.setCursorPos(9,18)
    print("Click anywere to continue")
    event, buttonb, xx, yy = os.pullEvent("mouse_click")
end
function Draw()
    ColorCheck()
    shell.run("SB-Config")
    term.setTextColor(Text)
    term.setBackgroundColor(Background)
    term.clear()
    term.setCursorPos(1,1)
    term.setBackgroundColor(HeaderBack)
    term.setTextColor(HeaderText)
    term.clearLine()
    print("ShockBrowser")
    term.setCursorPos(51, 1)
    term.setTextColor(colors.white)
    term.setBackgroundColor(colors.red)
    print("X")
    term.setCursorPos(1,2)
    term.setBackgroundColor(ButtonBack)
    term.setTextColor(ButtonText)
    term.clearLine()
    dir = Direct
    if Direct == "" then
        dir = "/"
    end
    print(dir)
    term.setCursorPos(1,3)
    term.setBackgroundColor(HeaderBack)
    term.setTextColor(HeaderText)
    write(" < ")
    term.setBackgroundColor(Background)
    term.setTextColor(Text)
    print("Back")
end
function message(msg)
    term.setCursorPos(15,7)
    term.setBackgroundColor(HeaderBack)
    term.setTextColor(HeaderText)
    write("                        ")
    term.setBackgroundColor(colors.red)
    term.setTextColor(colors.white)
    print("X")
    term.setCursorPos(15,7)
    term.setBackgroundColor(HeaderBack)
    term.setTextColor(HeaderText)
    print(msg[1])
    term.setBackgroundColor(ButtonBack)
    term.setTextColor(ButtonText)
    term.setCursorPos(15,8)
    print("                         ")
    term.setCursorPos(15,9)
    print("                         ")
    term.setCursorPos(15,10)
    print("                         ")
    term.setCursorPos(15,11)
    print("                      OK ")
    if msg[2]~=nil then
        term.setCursorPos(15,8)
        print(msg[2])
    end
    term.setBackgroundColor(ButtonText)
    term.setTextColor(ButtonBack)
    term.setCursorPos(16,10)
    print("/                      ")
    input=""
    while true do
        event,param1,param2,param3=os.pullEvent()
        if event=="mouse_click" then
            if param2==39 and param3==7 then
                break
            end
            if (param2>15 and param2<39) and param3==10 then
                term.setBackgroundColor(ButtonText)
                term.setTextColor(ButtonBack)
                term.setCursorPos(16,10)
                print("/                      ")
                term.setCursorPos(17,10)
                input=read()
            end
            if input~="" and (param2==37 or param2==38) and param3==11 then
                return input
            end
        end
        if event=="key" then
            if param1==28 and input~="" then
                return input
            end
        end
    end
end
function DrawMenu(cords,msg,act)
    if cords[3]~=nil and cords[3]=="calc" and yChange=="Up" then
        cords[2]=yarc-(cords[2]-yarc)
    elseif cords[3]==nil then
        if cords[2]>18 then
            cords[2]=18
        end
        yarc=cords[2]
        y1=cords[2]
        x1=cords[1]
        yChange="Down"
        if y1+msg[1]>18 then
            yChange="Up"
        end
    end
    yarc=cords[2]
    y1=cords[2]
    x1=cords[1]
    term.setBackgroundColor(HeaderBack)
    term.setTextColor(HeaderText)
    term.setCursorPos(x1,y1)
    print(msg[2])
    yInc()
    term.setBackgroundColor(ButtonBack)
    term.setTextColor(ButtonText)
    for h=3,#msg do
        term.setCursorPos(x1,y1)
        print(msg[h])
        yInc()
        h=h+1
    end
    event, button, xx, yy = os.pullEvent("mouse_click")
    if yChange=="Down" and act[yy-cords[2]]~=nil then
        if xx>cords[1]-1 and string.len(msg[yy-cords[2]+2])+cords[1]>xx then
            act[yy-cords[2]]()
        end
    elseif yChange=="Up" and act[cords[2]-yy]~=nil then
        if xx>cords[1]-1 and string.len(msg[cords[2]-yy+2])+cords[1]>xx then
            act[cords[2]-yy]()
        end
    end
end
function FileL(direct)
    CursorChange=0
    while true do
        Direct = direct
        Draw()
        Scrolling(direct)
        term.setBackgroundColor(Background)
        term.setTextColor(Text)
        if recents[1] == direct then
            table.remove(recents, 1)
        end
        table.insert(recents, 1, direct)
        if direct == "" then
            recents = {}
        end
        FileList = fs.list(direct)
        num=1
        nume=#FileList+1
        y=4
        while FileList[num+CursorChange] ~= nil do
            if num == 16 then
                break
            end
            isDir = fs.isDir(direct.."/"..FileList[num+CursorChange])
            if isDir == true then
                term.setCursorPos(1,y)
                term.setTextColor(DirColor)
                write(DirIcon)
                if FileList[num+CursorChange] == "disk" or FileList[num+CursorChange] == "disk2" or FileList[num+CursorChange] == "disk3" or FileList[num+CursorChange] == "disk4" or FileList[num+CursorChange] == "disk5" or FileList[num+CursorChange] == "disk6" then
                    term.setCursorPos(1,y)
                    term.setTextColor(DiskColor)
                    write(DiskIcon)
                end
                if FileList[num+CursorChange] == "RecycleBin" then
                    term.setCursorPos(1,y)
                    term.setTextColor(RecyColor)
                    write(RecyIcon)
                end
            else
                term.setCursorPos(1,y)
                term.setTextColor(FileColor)
                write(FileIcon)
            end
            term.setTextColor(Text)
            print(FileList[num+CursorChange])
            num=num+1
            y=y+1
        end
        Mouse()
        if broke == "true" then
            term.setBackgroundColor(colors.black)
            term.clear()
            term.setTextColor(colors.yellow)
            term.setCursorPos(1,1)
            print("Thanks For Using ShockBrowser")
            term.setTextColor(colors.white)
            return
        end
    end
end
function Mouse()
    event, button, x, y = os.pullEvent()
    if event=="mouse_click" then
        OldClick = "False"
        broke = "false"
        if y>4 and y<18 and x==51 then
            CursorChange=round(((y-4)/15)*nume, 0)
            OldClick="True"
        end
        if y == 1 and x == 51 and OldClick ~= "True" then
            broke = "true"
            OldClick = "True"
        end
        FileLen=0
        if FileList[y-3+CursorChange] ~= nil then
            FileLen = string.len(FileList[y-3+CursorChange])
        end
        if (x==51 and y==4) and OldClick ~= "True" then
            if CursorChange~=0 then
                CursorChange=CursorChange-1
            end
            OldClick = "True"
        end
        if (x==51 and y==18) and OldClick ~= "True" then
            if CursorChange ~= nume-2 then
                CursorChange=CursorChange+1
            end
            OldClick = "True"
        end
        if OldClick ~= "True" and broke=="false" then
            if ((x==1 or x==2 or x==3) and y > 3 and y < num+3) or (x < FileLen+4 and x > 3 and y > 3 and y < num+3 and button == 2) then
                isDir = fs.isDir(Direct.."/"..FileList[y-3+CursorChange])
                Old="False"
                if isDir == true and ((FileList[y-3+CursorChange] == "disk") or (FileList[y-3+CursorChange] == "disk2") or (FileList[y-3+CursorChange] == "disk3") or (FileList[y-3+CursorChange] == "disk4") or (FileList[y-3+CursorChange] == "disk5") or (FileList[y-3+CursorChange] == "disk6")) then
                    Old="True"
                    DrawMenu({x,y},{4,"Disk       ","Open       ","Label      ","Eject      "},
                    {function() direct = tostring(Direct.."/"..FileList[y-3+CursorChange]) FileL(direct);end,
                    function() dn=message({"Disk Side"}) if dn~=nil then ld=message({"Disk Label"}) if ld~=nil then S={"left","right","front","back","top","bottom"}realSide=false for i=1,#S do if S[i]==dn then realSide=true end i=i+1 sleep(0) end if realSide==true and disk.getMountPath(dn)==FileList[y-3+CursorChange] then disk.setLabel(dn,ld) end end end;end,
                    function() dn=message({"Disk Side"}) if dn~=nil then S={"left","right","front","back","top","bottom"}realSide=false for i=1,#S do if S[i]==dn then realSide=true end i=i+1 sleep(0) end if realSide==true and disk.getMountPath(dn)==FileList[y-3+CursorChange] then disk.eject(dn)end end;end})
                end
                if string.lower(shell.resolve(Direct.."/"..FileList[y-3+CursorChange]))=="recyclebin" then
                    Old="True"
                    DrawMenu({x,y},{3,"Recycle    ","Open       ","Dump       "},
                    {function() direct = tostring(Direct.."/"..FileList[y-3+CursorChange]) FileL(direct);end,
                    function()
                    dlist=fs.list(FileList[y-3+CursorChange])
                    for i=1,#dlist do
                        fs.delete("RecycleBin/"..dlist[i])
                        i=i+1
                    end
                    ;end})
                end
                if isDir == true and Old=="False" then
                    Old="True"
                    DrawMenu({x,y},{7,"Folder     ","Open       ","Copy       ","Cut        ","Delete     ","Rename     ","Move       "},
                    {function() direct = tostring(Direct.."/"..FileList[y-3+CursorChange]) FileL(direct);end,
                    function() ClipBoard={Direct.."/"..FileList[y-3+CursorChange],"Copy",FileList[y-3+CursorChange]};end,
                    function() if not fs.isReadOnly(Direct.."/"..FileList[y-3+CursorChange]) then ClipBoard={Direct.."/"..FileList[y-3+CursorChange],"Cut",FileList[y-3+CursorChange]}end;end,
                    function() if string.lower(shell.resolve(Direct))~="recyclebin" and fs.exists("RecycleBin/"..FileList[y-3+CursorChange]) and not fs.isReadOnly(Direct.."/"..FileList[y-3+CursorChange]) then fs.delete("RecycleBin/"..FileList[y-3+CursorChange]) fs.move(Direct.."/"..FileList[y-3+CursorChange],"RecycleBin/"..FileList[y-3+CursorChange]) end if string.lower(shell.resolve(Direct))~="recyclebin" and not fs.exists("RecycleBin/"..FileList[y-3+CursorChange]) and not fs.isReadOnly(Direct.."/"..FileList[y-3+CursorChange]) then fs.move(Direct.."/"..FileList[y-3+CursorChange],"RecycleBin/"..FileList[y-3+CursorChange]) end if string.lower(shell.resolve(Direct))=="recyclebin" and not fs.isReadOnly(Direct.."/"..FileList[y-3+CursorChange]) then fs.delete(Direct.."/"..FileList[y-3+CursorChange]) end ;end,
                    function() if not fs.isReadOnly(Direct.."/"..FileList[y-3+CursorChange]) then rn=message({"Rename Folder"}) if rn~=nil and not fs.exists(rn) then fs.move(Direct.."/"..FileList[y-3+CursorChange],Direct.."/"..rn)end end;end,
                    function() if not fs.isReadOnly(Direct.."/"..FileList[y-3+CursorChange]) then mv=message({"Move Folder"}) if mv~=nil and not fs.exists(mv) then fs.move(Direct.."/"..FileList[y-3+CursorChange],mv)end end;end
                    })
                end
                if fs.exists(Direct.."/"..FileList[y-3+CursorChange]) == true and Old=="False" then
                    Old="True"
                    DrawMenu({x,y},{8,"File       ","Run        ","Edit       ","Copy       ","Cut        ","Delete     ","Rename     ","Move       "},
                    {function()
                    if shell.getRunningProgram()~=(Direct.."/"..FileList[y-3+CursorChange]) then
                        DrawMenu({x+11,yarc+1,"calc"},{3,"Run     ","Norm    ","Args    "},{function() ar="" Run() ;end,function() ar=message({"Run With Args"}) if ar~=nil then Run() end;end})
                    end;end,
                    function() shell.run("/rom/programs/edit",Direct.."/"..FileList[y-3+CursorChange]) ;end,
                    function() ClipBoard={Direct.."/"..FileList[y-3+CursorChange],"Copy",FileList[y-3+CursorChange]};end,
                    function() ClipBoard={Direct.."/"..FileList[y-3+CursorChange],"Cut",FileList[y-3+CursorChange]};end,
                    function() if string.lower(shell.resolve(Direct))~="recyclebin" and fs.exists("RecycleBin/"..FileList[y-3+CursorChange]) then fs.delete("RecycleBin/"..FileList[y-3+CursorChange]) fs.move(Direct.."/"..FileList[y-3+CursorChange],"RecycleBin/"..FileList[y-3+CursorChange]) end if string.lower(shell.resolve(Direct))~="recyclebin" and not fs.exists("RecycleBin/"..FileList[y-3+CursorChange]) then fs.move(Direct.."/"..FileList[y-3+CursorChange],"RecycleBin/"..FileList[y-3+CursorChange]) end if string.lower(shell.resolve(Direct))=="recyclebin" then fs.delete("RecycleBin/"..FileList[y-3+CursorChange]) end ;end,
                    function() rn=message({"Rename File"}) if rn~=nil and not fs.exists(rn) then fs.move(Direct.."/"..FileList[y-3+CursorChange],Direct.."/"..rn)end;end,
                    function() mv=message({"Move File"}) if mv~=nil and not fs.exists(mv) then fs.move(Direct.."/"..FileList[y-3+CursorChange],mv)end;end
                    })
                end
                OldClick = "True"
            end
        end
        if OldClick ~= "True" then
            if x < FileLen+4 and x > 3 and y > 3 and y < num+3 and button == 1 and OldClick ~= "True" then
                dire = tostring(FileList[y-3+CursorChange])
                isDir = fs.isDir(Direct.."/"..dire)
                if isDir == true then
                    direct = tostring(Direct.."/"..FileList[y-3+CursorChange])
                    FileL(direct)
                end
                if isDir == false and broke ~= "true" then
                    Run()
                end
                OldClick = "True"
            end
        end
        if (x == 1 or x == 2 or x == 3) and y == 3 and button == 1 and OldClick ~= "True" then
            direr = recents[2]
            if recents[2] == nil then
                direr = ""
            end
            table.remove(recents, 1)
            table.remove(recents, 1)
            FileL(direr)
            OldClick = "True"
        end
        if y == 2 and button == 1 and OldClick ~= "True" then
            term.setCursorPos(1,2)
            term.setBackgroundColor(ButtonBack)
            term.clearLine()
            write("/")
            jumpto = read()
            f = fs.isDir(jumpto)
            jumpto = "/"..jumpto
            jumpto=string.lower(jumpto)
            if f == true then
                FileL(jumpto)
            end
            OldClick = "True"
        elseif y>3 and button == 2 and OldClick ~= "True" then
            nf=""
            DrawMenu({x,y},
            {4,"Options    ","New        ","CPULabel   ","Paste      "},
            {function() DrawMenu({x+11,yarc+1,"calc"},{3,"New     ","File    ","Folder  "},{function() nf=message({"New File"}) if nf~=nil and not fs.exists("nf") then f=fs.open(Direct.."/"..nf,"w") f.write("") f.close() end ;end,function() nf=message({"New Folder"}) if nf~=nil and not fs.exists("nf") then fs.makeDir(Direct.."/"..nf) end;end});end,function() label=message({"Label Computer"}) if label~=nil then os.setComputerLabel(label) end;end,function() if ClipBoard[1]~=nil and ClipBoard[2]~=nil and ClipBoard[3]~=nil then if not fs.exists(Direct.."/"..ClipBoard[3]) and fs.exists(ClipBoard[1]) then if ClipBoard[2]=="Copy" then fs.copy(ClipBoard[1], Direct.."/"..ClipBoard[3]) end if ClipBoard[2]=="Cut" then fs.move(ClipBoard[1], Direct.."/"..ClipBoard[3]) end end end;end})
        end
    end
    if event=="mouse_scroll" then
        broke = "false"
        if button==-1 then --Up
            if CursorChange~=0 then
                CursorChange=CursorChange-1
            end
        end
        if button==1 then --Down
            if CursorChange ~= nume-2 then
                CursorChange=CursorChange+1
            end
        end
    end
    if event=="mouse_drag" then
        if y>4 and y<18 and x==51 then
            CursorChange=round(((y-4)/15)*nume, 0)
            OldClick="True"
        end
    end
end


if not fs.exists("RecycleBin") then
    fs.makeDir("RecycleBin")
end
ForceU=false
tArgs = (...)

shell.run("SB-Config")
if tArgs=="-u" then
    AutoCheck=true
end
if tArgs=="-f" then
    ForceU=true
end
Updater()
if action ~="Yes" then
    ColorCheck()
    ClipBoard={"","",""}
    term.clear()
    direct = ""
    recents = {""}
    FileL("")
end