KittenAPI

function playSound(...)
    local args = {...}
    --Pitch, Length
    side2 = nil
    if (#args == 1) then
        local sides = rs.getSides()
        for i = 1, #sides do
            if (peripheral.getType(sides[i]) == "speaker") then
                side2 = sides[i]
                break
            end
        end
    else
        side2 = args[2]
    end
    if (side2 ~= nil) then
        local speaker = peripheral.wrap(side2)
        local sound2 = args[1]
        sound2 = split(sound2,":")
        speaker.shutdown()
        for i = 1, #sound2, 2 do
            speaker.start(1,tonumber(sound2[i]))
            sleep(tonumber(sound2[i + 1]))
        end
        speaker.shutdown()
        return true
    else
        return false
    end
end
function quickRead(file)
    if (fs.exists(file)) then
        local file2 = fs.open(file,"r")
        local file3 = file2.readAll()
        file2.close()
        return file3
    else
        return nil
    end
end
function quickWrite(file,text)
    local file2 = fs.open(file,"w")
    file2.write(text)
    file2.close()
end
function dbGetAll(file)
    if (fs.exists(file)) then
        local db2 = fs.open(file,"r")
        local db = textutils.unserialize(db2.readAll())
        db2.close()
        return db
    end
end
function dbSetValue(file,user,valueName,value)
    local db2 = fs.open(file,"r")
    local db = textutils.unserialize(db2.readAll())
    db2.close()
    db[user][valueName] = value
    local db2 = fs.open(file,"w")
    db2.write(textutils.serialize[db])
    db2.close()
end
function split(pString, pPattern)
    local Table = {}
    local fpat = "(.-)" .. pPattern
    local last_end = 1
    local s, e, cap = pString:find(fpat, 1)
    while s do
        if s ~= 1 or cap ~= "" then
            table.insert(Table,cap)
        end
        last_end = e+1
        s, e, cap = pString:find(fpat, last_end)
    end
    if last_end <= #pString then
    cap = pString:sub(last_end)
    table.insert(Table, cap)
end
return Table
end
function tf(t,c)
    if (t == c) then
        return 2
    else
        return 1
    end
end
function printCenter(str,y,clear)
    if (str ~= nil) then
        local x3, y3 = term.getCursorPos()
        local x2, y2 = term.getSize()
        term.setCursorPos((x2/2)-(string.len(str)/2),y)
        if (clear == nil) then
            term.clearLine()
        end
        write(str)
        term.setCursorPos(x3,y3)
    end
end
function menu(choices,title, bg, tcolor, text, ccolor)
    if (term.isColor() and bg ~= nil) then
        term.setBackgroundColor(bg)
    end
    term.clear()
    choice = 1
    if (term.isColor() and tcolor ~= nil) then
        term.setTextColor(tcolor)
    end
    printCenter(title,1)
    z, c = term.getSize()
    for i = 1, #choices do
        choices[i] = {choices[i],"> "..choices[i].." <"}
        if (term.isColor() and text ~= nil) then
            term.setTextColor(text)
        end
        printCenter(choices[i][1],i + 2)
        if (i == 1 and term.isColor() and ccolor ~= nil) then
            term.setTextColor(ccolor)
        end
        if (i == 1) then
            term.setCursorPos(((z/2) - (string.len(choices[i][1])/2))-2,i + 2)
            write("> ")
            term.setCursorPos(((z/2) + (string.len(choices[i][1])/2)), i + 2)
            write(" <")
        end
    end
    dun = false
    while dun == false do
        event, key = os.pullEvent("key")
        if (key == 28) then
            dun = true
            elseif (key == 208) then
                if (term.isColor()) then
                    term.setTextColor(text)
                end
                printCenter(choices[choice][1],choice + 2)
                if (choice == #choices) then
                    choice = 1
                else
                    choice = choice + 1
                end
                if (term.isColor()) then
                    term.setTextColor(text)
                end
                printCenter(choices[choice][1],choice + 2)
                if (term.isColor()) then
                    term.setTextColor(ccolor)
                end
                term.setCursorPos(((z/2) - (string.len(choices[choice][1])/2)) - 2,choice + 2)
                write("> ")
                term.setCursorPos(((z/2) + (string.len(choices[choice][1])/2)),choice + 2)
                write(" <")
                elseif (key == 200) then
                    if (term.isColor()) then
                        term.setTextColor(text)
                    end
                    printCenter(choices[choice][1],choice + 2)
                    if (choice == 1) then
                        choice = #choices
                    else
                        choice = choice - 1
                    end
                    printCenter(choices[choice][1],choice + 2)
                    if (term.isColor()) then
                        term.setTextColor(ccolor)
                    end
                    term.setCursorPos(((z/2) - (string.len(choices[choice][1])/2)) - 2, choice + 2)
                    write("> ")
                    term.setCursorPos(((z/2) + (string.len(choices[choice][1])/2)), choice + 2)
                    write(" <")
            end
        end
        term.setBackgroundColor(colors.black)
        term.clear()
        return choice, choices[choice][1]
    end