Worm with CCScores

function HighScores()
    w,h = term.getSize()
    scores = {}
    if http then
        http.request("http://steamtekk.pchs-players.com/highscore.php?worm|view$")
        local requesting = true
        while requesting do
            local event, url, sourceText = os.pullEvent()
            if event == "http_success" then
                respondedText = sourceText.readLine()
                while respondedText do
                    table.insert(scores,respondedText)
                    respondedText = sourceText.readLine()
                end
                requesting = false
            elseif event == "http_failure" then
                scores = {"couldn't reach server"}
                requesting = false
            end
        end
    else
        scores = {"couldn't reach server"}
    end
    term.clear()
    term.setCursorPos(1,1)
    write("HighScores for worm")
    term.setCursorPos(w-string.len("Hosted by SteamTekk")+1,1)
    write("Hosted by SteamTekk")
    term.setCursorPos(1,2)
    for i = 1,w do
        write("-")
    end
    term.setCursorPos(w-string.len("Hosted by SteamTekk")+1,h)
    write("press enter to exit")
    y = 3
    if #scores ~= 0 then
        u = 10
        if #scores < 10 then
            u = #scores
        end
        for i = 1,u do
            term.setCursorPos(1,y)
            write(i..". "..scores[i])
            y = y + 1
        end
    else
        term.setCursorPos(1,3)
        print("No scores to get")
    end
    while true do
        _event = os.pullEvent()
        if _event == "key" and p1 == 28 then
            break
        end
    end
end
function uploadscore(Nscore)
    if http then
        os.startTimer(.1)
        letters = {
            "A";
            "B";
            "C";
            "D";
            "E";
            "F";
            "G";
            "H";
            "I";
            "J";
            "K";
            "L";
            "M";
            "N";
            "O";
            "P";
            "Q";
            "R";
            "S";
            "T";
            "U";
            "V";
            "W";
            "X";
            "Y";
            "Z";
        }
        Lsel = 1
        Tname = {[1] = 1,[2] = 1, [3] = 1,[4] = 1}
        while true do
            term.setCursorBlink(true)
            name = letters[Tname[1]]..letters[Tname[2]]..letters[Tname[3]]..letters[Tname[4]]
            term.clear()
            term.setCursorPos(1,1)
            print("name(max of 4 chars)")
            write(name)
            term.setCursorPos(Lsel,2)
            _event,p1 = os.pullEvent()
            if _event == "key" and p1 == 205 then
                Lsel = Lsel + 1
                if Lsel > 4 then
                    Lsel = 4
                end
            elseif _event == "key" and p1 == 203 then
                Lsel = Lsel - 1
                if Lsel == 0 then
                    Lsel = 1
                end
            elseif _event == "key" and p1 == 200 then
                Tname[Lsel] = Tname[Lsel] - 1
                if Tname[Lsel] == 0 then
                    Tname[Lsel] = #letters
                end
            elseif _event == "key" and p1 == 208 then
                Tname[Lsel] = Tname[Lsel] + 1
                if Tname[Lsel] > #letters then
                    Tname[Lsel] = 1
                end
            elseif _event == "key" and p1 == 28 then
                term.setCursorBlink(false)
                break
            end
        end
        term.setCursorPos(1,1)
        http.request("http://steamtekk.pchs-players.com/highscore.php?worm|post$"..name.."("..Nscore)
        local requesting = true
        while requesting do
            local event, url, sourceText = os.pullEvent()
            if event == "http_success" then
                local respondedText = sourceText.readLine()
                while respondedText do
                    table.insert(scores,respondedText)
                    respondedText = sourceText.readLine()
                end
                requesting = false
            elseif event == "http_failure" then
                scores = {"couldn't reach server"}
                requesting = false
            end
        end
    else
        print("unable to connect to the internet")
        _event = os.pullEvent()
    end
end
-- Display the start screen
local w,h = term.getSize()

local headingColour, textColour, wormColour, fruitColour
if term.isColour() then
    headingColour = colours.yellow
    textColour = colours.white
    wormColour = colours.lime
    fruitColour = colours.red
else
    headingColour = colours.white
    textColour = colours.white
    wormColour = colours.white
    fruitColour = colours.white
end

function printCentred( y, s )
    local x = math.floor((w - string.len(s)) / 2)
    term.setCursorPos(x,y)
    --term.clearLine()
    term.write( s )
end

local xVel,yVel = 1,0
local xPos, yPos = math.floor(w/2), math.floor(h/2)
local pxVel, pyVel = nil, nil

local nLength = 1
local nExtraLength = 6
local bRunning = true

local tailX,tailY = xPos,yPos
local nScore = 0
local nDifficulty = 2
local nSpeed, nInterval

-- Setup the screen
local screen = {}
for x=1,w do
    screen[x] = {}
    for y=1,h do
        screen[x][y] = {}
    end
end
screen[xPos][yPos] = { snake = true }

local nFruit = 1
local tFruits = {
    "A", "B", "C", "D", "E", "F", "G", "H",
    "I", "J", "K", "L", "M", "N", "O", "P",
    "Q", "R", "S", "T", "U", "V", "W", "X",
    "Y", "Z",
    "a", "b", "c", "d", "e", "f", "g", "h",
    "i", "j", "k", "l", "m", "n", "o", "p",
    "q", "r", "s", "t", "u", "v", "w", "x",
    "y", "z",
    "1", "2", "3", "4", "5", "6", "7", "8", "9", "0",
    "@", "$", "%", "#", "&", "!", "?", "+", "*", "~"
}

local function addFruit()
    while true do
        local x = math.random(1,w)
        local y = math.random(2,h)
        local fruit = screen[x][y]
        if fruit.snake == nil and fruit.wall == nil and fruit.fruit == nil then
            screen[x][y] = { fruit = true }
            term.setCursorPos(x,y)
            term.setBackgroundColour( fruitColour )
            term.write(" ")
            term.setBackgroundColour( colours.black )
            break
        end
    end

    nFruit = nFruit + 1
    if nFruit > #tFruits then
        nFruit = 1
    end
end

local function drawMenu()
    term.setTextColour( headingColour )
    term.setCursorPos(1,1)
    term.write( "SCORE " )

    term.setTextColour( textColour )
    term.setCursorPos(7,1)
    term.write( tostring(nScore) )

    term.setTextColour( headingColour )
    term.setCursorPos(w-11,1)
    term.write( "DIFFICULTY ")

    term.setTextColour( textColour )
    term.setCursorPos(w,1)
    term.write( tostring(nDifficulty or "?") )

    term.setTextColour( colours.white )
end

local function update( )
    local x,y = xPos,yPos
    if pxVel and pyVel then
        xVel, yVel = pxVel, pyVel
        pxVel, pyVel = nil, nil
    end

    -- Remove the tail
    if nExtraLength == 0 then
        local tail = screen[tailX][tailY]
        screen[tailX][tailY] = {}
        term.setCursorPos(tailX,tailY)
        term.write(" ")
        tailX = tail.nextX
        tailY = tail.nextY
    else
        nExtraLength = nExtraLength - 1
    end

    -- Update the head
    local head = screen[xPos][yPos]
    local newXPos = xPos + xVel
    local newYPos = yPos + yVel
    if newXPos < 1 then
        newXPos = w
    elseif newXPos > w then
        newXPos = 1
    end
    if newYPos < 2 then
        newYPos = h
    elseif newYPos > h then
        newYPos = 2
    end

    local newHead = screen[newXPos][newYPos]
    term.setCursorPos(1,1);
    print( newHead.snake )
    if newHead.snake == true or newHead.wall == true then
        bRunning = false

    else
        if newHead.fruit == true then
            nScore = nScore + 10
            nExtraLength = nExtraLength + 1
            addFruit()
        end
        xPos = newXPos
        yPos = newYPos
        head.nextX = newXPos
        head.nextY = newYPos
        screen[newXPos][newYPos] = { snake = true }

    end

    term.setCursorPos(xPos,yPos)
    term.setBackgroundColour( wormColour )
    term.write(" ")
    term.setBackgroundColour( colours.black )

    drawMenu()
end

-- Display the frontend
term.clear()
local function drawFrontend()
    term.setTextColour( headingColour )
    printCentred( math.floor(h/2) - 3, "" )
    printCentred( math.floor(h/2) - 2, " SELECT DIFFICULTY " )
    printCentred( math.floor(h/2) - 1, "" )

    printCentred( math.floor(h/2) + 0, "            " )
    printCentred( math.floor(h/2) + 1, "            " )
    printCentred( math.floor(h/2) + 2, "            " )
    printCentred( math.floor(h/2) - 1 + nDifficulty, " [        ] " )

    term.setTextColour( textColour )
    printCentred( math.floor(h/2) + 0, "EASY" )
    printCentred( math.floor(h/2) + 1, "MEDIUM" )
    printCentred( math.floor(h/2) + 2, "HARD" )
    printCentred( math.floor(h/2) + 3, "" )

    term.setTextColour( colours.white )
end

drawMenu()
drawFrontend()
while true do
    local e,key = os.pullEvent( "key" )
    if key == keys.up or key == keys.w then
        -- Up
        if nDifficulty > 1 then
            nDifficulty = nDifficulty - 1
            drawMenu()
            drawFrontend()
        end
    elseif key == keys.down or key == keys.s then
        -- Down
        if nDifficulty < 3 then
            nDifficulty = nDifficulty + 1
            drawMenu()
            drawFrontend()
        end
    elseif key == keys.enter then
        -- Enter
        break
    end
end

local tSpeeds = { 5, 10, 25 }
nSpeed = tSpeeds[nDifficulty]
nInterval = 1 / nSpeed

-- Grow the snake to its intended size
term.clear()
drawMenu()
screen[tailX][tailY].snake = true
while nExtraLength > 0 do
    update()
end
addFruit()
addFruit()

-- Play the game
local timer = os.startTimer(0)
while bRunning do
    local event, p1, p2 = os.pullEvent()
    if event == "timer" and p1 == timer then
        timer = os.startTimer(nInterval)
        update( false )

    elseif event == "key" then
        local key = p1
        if key == keys.up or key == keys.w then
            -- Up
            if yVel == 0 then
                pxVel,pyVel = 0,-1
            end
        elseif key == keys.down or key == keys.s then
            -- Down
            if yVel == 0 then
                pxVel,pyVel = 0,1
            end
        elseif key == keys.left or key == keys.a then
            -- Left
            if xVel == 0 then
                pxVel,pyVel = -1,0
            end

        elseif key == keys.right or key == keys.d then
            -- Right
            if xVel == 0 then
                pxVel,pyVel = 1,0
            end

        end
    end
end

-- Display the gameover screen
term.setTextColour( headingColour )
printCentred( math.floor(h/2) - 2, "                   " )
printCentred( math.floor(h/2) - 1, " G A M E   O V E R " )

term.setTextColour( textColour )
printCentred( math.floor(h/2) + 0, "                 " )
printCentred( math.floor(h/2) + 1, " FINAL SCORE "..nScore.." " )
printCentred( math.floor(h/2) + 2, "                 " )
term.setTextColour( colours.white )

local timer = os.startTimer(2.5)
Q = true
while Q do
    local e,p = os.pullEvent()
    if e == "timer" and p == timer then
        term.setTextColour( textColour )
        printCentred( math.floor(h/2) + 2, " PRESS P TO POST SCORE " )
        printCentred( math.floor(h/2) + 3, " PRESS ENTER TO SEE HIGHSCORES" )
        term.setTextColour( colours.white )
    elseif e == "key" and p == 25 then
        Q = false
        uploadscore(nScore)
    elseif e == "key" and p == 28 then
        Q = false
    end
end
HighScores()
term.clear()
term.setCursorPos(1,1)