pastebin computercraft programs
--RETAIN THIS HEADER!!
--[[

Now I'm not crazy about licenses and stuff, and I don't know much about them,
but I ask that if you do edit FizzOS, please give credit somewhere.
Just some text somewhere saying something like original FizzOS by mitchfizz05,
and if you can, put a link this the original thread too.

For personal use go ahead and do whatever.

 - Thanks, mitchfizz05
pastebin computercraft programs How to dowload it? pastebin computercraft programs

]]


if isColor == false then
    term.clear()
    term.setCursorPos(1,1)
    print("FizzOS can only run on advanced/color computers!")
end

pastebin computercraft programs How to use it? pastebin computercraft programs

function setVariables()
    width, height = term.getSize()
    version = "1.1"
    stopProgramPending = false
end
function clearScreen()
    term.clear()
    term.setCursorPos(1,1)
end
pastebin computercraft programs How to get it for free? pastebin computercraft programs
function printM(text, heightMod)
    if heightMod == nil then
        heightMod = 0
    end
    
    newLen = string.len(text) / 2
    newWidth = width / 2
    newWidth = newWidth - newLen
    newWidth = math.floor(newWidth)
    term.setCursorPos(newWidth, height / 2 + heightMod)
pastebin computercraft programs How to use it? pastebin computercraft programs
    term.write(text)
    term.setCursorPos(1,1)
end
setVariables()

clearScreen()

term.setTextColor(colors.red)
printM("Please wait...", -1)
term.setTextColor(colors.lime)
pastebin computercraft programs How to use it? pastebin computercraft programs
printM("Loading FizzOS...", 1)

sleep(math.random(1.0,2.0))

clearScreen()

--Set this variable to how many menu items there are in total:
local menuItems = 6

--Default menu item:
pastebin computercraft programs How to get it? pastebin computercraft programs
local selectedItem = 1

-- Main Operating System Loop!
menuItemsBackup = menuItems - 1
clearScreen()
term.setTextColor(colors.lime)
print("FizzOS "..version)
term.setTextColor(colors.white)


pastebin computercraft programs How to get it? pastebin computercraft programs

function menuDraw()

    clearScreen()
    term.setTextColor(colors.lime)
    print("FizzOS "..version)
    term.setTextColor(colors.white)
    
    term.setCursorPos(3,3)
    term.write("Programs")
pastebin computercraft programs How to use it? pastebin computercraft programs
    if selectedItem == 1 then
        term.setCursorPos(2,3)
        term.write(">")
    else
        term.setCursorPos(2,3)
        term.write(" ")
    end
    yLevel = 4
    
    term.setCursorPos(3,yLevel)
pastebin computercraft programs How to use it? pastebin computercraft programs
    term.write("Terminal")
    if selectedItem == 2 then
        term.setCursorPos(2,yLevel)
        term.write(">")
    else
        term.setCursorPos(2,yLevel)
        term.write(" ")
    end
    yLevel = yLevel + 1
    
pastebin computercraft programs How to get it for free? pastebin computercraft programs
    term.setCursorPos(3,yLevel)
    term.write("Help")
    if selectedItem == 3 then
        term.setCursorPos(2,yLevel)
        term.write(">")
    else
        term.setCursorPos(2,yLevel)
        term.write(" ")
    end
    yLevel = yLevel + 1
pastebin computercraft programs How to get it? pastebin computercraft programs
    
    term.setCursorPos(3,yLevel)
    term.write("MineOS")
    if selectedItem == 4 then
        term.setCursorPos(2,yLevel)
        term.write(">")
    else
        term.setCursorPos(2,yLevel)
        term.write(" ")
    end
pastebin computercraft programs How to dowload it? pastebin computercraft programs
    yLevel = yLevel + 1
    
    term.setCursorPos(3,yLevel)
    term.write("Shutdown")
    if selectedItem == 5 then
        term.setCursorPos(2,yLevel)
        term.write(">")
    else
        term.setCursorPos(2,yLevel)
        term.write(" ")
pastebin computercraft programs PasteShr pastebin computercraft programs
    end
    yLevel = yLevel + 3
    
    --if peripheral.getType("right") == "drive" or peripheral.getType("left") == "drive" or peripheral.getType("back") == "drive" or peripheral.getType("front") == "drive" or peripheral.getType("bottom") == "drive" or peripheral.getType("top") == "drive" then
    --    showDiskdrive = true
    --    menuItems = menuItemsBackup + 1
    --else
    --    showDiskdrive = false
    --    menuItems = menuItemsBackup
    --end
pastebin computercraft programs How to use it? pastebin computercraft programs
    
    showDiskdrive = false
    
    local tSides = rs.getSides()
	for n,sSide in ipairs( tSides ) do
		if peripheral.getType(sSide) == "drive" then
            disk = peripheral.wrap(sSide)
            if disk.hasData() then
                sDrive = sSide
                showDiskdrive = true
pastebin computercraft programs How to dowload it? pastebin computercraft programs
                break
            end
		end
	end
    
    showModem = false
	for n,sSide in ipairs( tSides ) do
		if peripheral.getType(sSide) == "modem" then
            sDrive = sSide
            showModem = true
pastebin computercraft programs How to get it? pastebin computercraft programs
            break
		end
	end
    
    if showDiskdrive == false and showModem == true then
        term.setCursorPos(1,height)
        term.write("You must have a floppy connected to use networking!")
        showModem = false
        menuItems = menuItemsBackup
    end
pastebin computercraft programs How to get it? pastebin computercraft programs
    
    if showDiskdrive then
        term.setCursorPos(3,yLevel)
        term.write("Diskdrive")
        if selectedItem == 6 then
            term.setCursorPos(2,yLevel)
            term.write(">")
        else
            term.setCursorPos(2,yLevel)
            term.write(" ")
pastebin computercraft programs How to dowload it? pastebin computercraft programs
        end
        yLevel = yLevel + 1
    end
    
    if showModem then
        term.setCursorPos(3,yLevel)
        term.write("Network")
        if selectedItem == 7 then
            term.setCursorPos(2,yLevel)
            term.write(">")
pastebin computercraft programs PasteShr pastebin computercraft programs
        else
            term.setCursorPos(2,yLevel)
            term.write(" ")
        end
        yLevel = yLevel + 1
    end
    
    if showModem and showDiskdrive then
        menuItems = menuItemsBackup + 2
    elseif showDiskdrive or showModem then
pastebin computercraft programs How to dowload it? pastebin computercraft programs
        menuItems = menuItemsBackup + 1
    end
    if showDiskdrive == false and showModem == true then
        term.setCursorPos(1,height)
        term.write("You must have a floppy connected to use networking!")
        showModem = false
    end
    
    event, parm = os.pullEvent()
    parm = tostring(parm)
pastebin computercraft programs PasteShr pastebin computercraft programs
    
    if event == "key" and parm == "200" and selectedItem > 1 then
        selectedItem = selectedItem - 1
    end
    
    if event == "key" and parm == "208" and selectedItem < menuItems then
        selectedItem = selectedItem + 1
    end
    
    if event == "key" and parm == "28" then
pastebin computercraft programs How to get it? pastebin computercraft programs
        --- Old programs menu item.
        --if selectedItem == 1 then
        --   clearScreen()
        --    local tPrograms = shell.programs( bAll )
        --    clearScreen()
        --    textutils.pagedTabulate( tPrograms )
        --    term.setCursorPos(1,height)
        --    term.write("Press any key to continue...")
        --    os.pullEvent("char")
        --    clearScreen()
pastebin computercraft programs PasteShr pastebin computercraft programs
        --end
        
        -- New programs menu item
        if selectedItem == 1 then
            clearScreen()
            local programList = shell.programs()
            local selectedProgram = 1
            local blocked = false
            
            function isBlocked(programName)
pastebin computercraft programs How to use it? pastebin computercraft programs
                local fBlocked = false
                if programName == "alias" then
                    fBlocked = true
                end
                if programName == "cd" then
                    fBlocked = true
                end
                if programName == "shell" then
                    fBlocked = true
                end
pastebin computercraft programs How to use it? pastebin computercraft programs
                if programName == "lua" then
                    fBlocked = true
                end
                if programName == "clear" then
                    fBlocked = true
                end
                if programName == "FizzOS" then
                    fBlocked = true
                end
                if programName == "startup" then
pastebin computercraft programs How to get it? pastebin computercraft programs
                    fBlocked = true
                end
                return fBlocked
            end
            
            while true do
                clearScreen()
                term.setTextColor(colors.lightBlue)
                print("Programs:")
                term.setTextColor(colors.red)
pastebin computercraft programs How to get it? pastebin computercraft programs
                term.setCursorPos(width - string.len("Press Backspace to go back!"), 1)
                term.write("Press Backspace to go back!")
                term.setCursorPos(3,3)
                term.setTextColor(colors.purple)
                if isBlocked(programList[selectedProgram]) == false then
                    term.setTextColor(colors.magenta)
                else
                    term.setTextColor(colors.red)
                end
                term.write(programList[selectedProgram])
pastebin computercraft programs How to get it? pastebin computercraft programs
                
                term.setCursorPos(5,4)
                term.setTextColor(colors.pink)
                term.write("#"..selectedProgram)
                
                
                event, parm = os.pullEvent()
                parm = tostring(parm)
                
                if event == "key" and parm == "205" then
pastebin computercraft programs How to get it for free? pastebin computercraft programs
                    if selectedProgram < table.maxn(programList) then
                        selectedProgram = selectedProgram + 1
                    end
                end
                
                if event == "key" and parm == "203" then
                    if selectedProgram > 1 then
                        selectedProgram = selectedProgram - 1
                    end
                end
pastebin computercraft programs PasteShr pastebin computercraft programs
                
                if event == "key" and parm == "14" then
                    clearScreen()
                    break
                end
                
                if event == "key" and parm == "28" and not isBlocked(programList[selectedProgram]) then
                    local tArgs = {}
                    local curArg = "arg"
                    while not curArg == "" do
pastebin computercraft programs PasteShr pastebin computercraft programs
                        curArg = table.remove(tArgs,1)
                    end
                    clearScreen()
                    term.setTextColor(colors.blue)
                    print("Enter arguments:")
                    local input = "arg"
                    while true do
                        if table.maxn(tArgs) == 10 then
                            term.setTextColor(colors.red)
                            print("Max arguments reached! Moving on...")
pastebin computercraft programs How to get it for free? pastebin computercraft programs
                            sleep(2)
                            break
                        end
                    
                        term.setTextColor(colors.white)
                        input = read()
                        if input == "" then
                            break
                        else
                            table.insert(tArgs, input)
pastebin computercraft programs PasteShr pastebin computercraft programs
                            term.setTextColor(colors.lightBlue)
                            print("Next argument (enter nothing to continue)")
                        end
                    end
                    clearScreen()
                    
                    term.setTextColor(colors.white)
                    
                    shell.run(programList[selectedProgram], tArgs[1], tArgs[2], tArgs[3], tArgs[4], tArgs[5], tArgs[6], tArgs[7], tArgs[8], tArgs[9], tArgs[10])
                    term.setTextColor(colors.white)
pastebin computercraft programs How to dowload it? pastebin computercraft programs
                    term.setBackgroundColor(colors.black)
                    term.setCursorPos(width - string.len("Program finished! Press any key to continue!"), height)
                    term.write("Program finished! Press any key to continue!")
                    os.pullEvent("char")
                end
                
                
            end
        end
        
pastebin computercraft programs How to get it for free? pastebin computercraft programs
        if selectedItem == 2 then
            clearScreen()
            term.setTextColor(colors.white)
            shell.run("lua")
        end
        if selectedItem == 4 then
            clearScreen()
            term.setTextColor(colors.red)
            printM("Logging off to MineOS...")
            sleep(math.random(1.0,2.5))
pastebin computercraft programs How to use it? pastebin computercraft programs
            clearScreen()
            term.setTextColor(colors.white)
            stopProgramPending = true
        end
        if selectedItem == 3 then
            clearScreen()
            term.setTextColor(colors.cyan)
            print("FizzOS & ComputerCraft Help - Credits:")
            term.setTextColor(colors.white)
            term.setCursorPos(1,2)
pastebin computercraft programs How to get it for free? pastebin computercraft programs
            print("FizzOS by mitchfizz05 (me).")
            print("ComputerCraft by Daniel (dan200). His twitter: @DanTwoHundred")
            print("Some assitance in ComputerCraft by Aaron (cloudy). His twitter: @CloudHunter")
            print("The community on the forums and espernet for beta testing and support.")
            print("Thanks to nitrogenfingers for the paint program.")
            print("Thanks to deadlystrike for hosting www.computercraft.info")
            print("Thanks to Eloraam for permission to interface with Redpower2")
            print("Thanks to Mojang, the Forge team, the MCP team amd the LUA team.")
            clearScreen()
            term.setTextColor(colors.cyan)
pastebin computercraft programs How to get it for free? pastebin computercraft programs
            print("FizzOS & ComputerCraft Help - ComputerCraft:")
            term.setTextColor(colors.white)
            term.setCursorPos(1,2)
        end
        if selectedItem == 5 then
            clearScreen()
            term.setTextColor(colors.red)
            printM("Shutting down FizzOS...")
            sleep(math.random(1.0,3.0))
            clearScreen()
pastebin computercraft programs How to get it? pastebin computercraft programs
            term.setTextColor(colors.white)
            os.shutdown()
        end
        
        if selectedItem == 6 then
            clearScreen()
            printM("Incomplete.")
            printM("Press any key", 1)
            os.pullEvent("char")
        end
pastebin computercraft programs How to dowload it? pastebin computercraft programs
        
        if selectedItem == 7 then
            local tSides = rs.getSides()
            for n,sSide in ipairs( tSides ) do
                if peripheral.getType(sSide) == "modem" then
                    sModem = sSide
                    break
                end
            end
            
pastebin computercraft programs PasteShr pastebin computercraft programs
            clearScreen()
            rednet.open(sModem)
            rednet.broadcast("FizzOS.PING")
            term.setTextColor(colors.red)
            printM("Sent a ping message.", -1)
            term.setTextColor(colors.lightBlue)
            printM("Press any key to continue!", 1)
            term.setTextColor(colors.white)
            sText = "More networking funtionality coming soon!"
            term.setCursorPos(width - string.len(sText), height)
pastebin computercraft programs PasteShr pastebin computercraft programs
            term.write(sText)
            os.pullEvent("char")
            rednet.close(sModem)
        end
        
    end
    
end

function drawMenu_extras()
pastebin computercraft programs How to dowload it? pastebin computercraft programs
    timeString = textutils.formatTime(os.time(), false)
    oldX, oldY = term.getCursorPos()
    term.setCursorPos(width - string.len(timeString), height)
    term.write(timeString)
end

while true do
    
    ------- Can't work out the parallel API properly. :( -------

pastebin computercraft programs How to get it? pastebin computercraft programs
    --parallel.waitForAll(menuDraw(), drawMenu_extras())
    --if stopProgramPending == true then
    --    break
    --end
    
    menuDraw()
    if stopProgramPending == true then
        break
    end
    
pastebin computercraft programs How to get it? pastebin computercraft programs
    --drawMenu_extras()
end
pastebin computercraft programs