keyboard

-- On-Screen Keyboard (Terminal)
-- Created By DannySMc
-- Platform: Lua Virtual Machine

-- Common Draw Functions
function cs()
    term.clear()
    term.setCursorPos(1,1)
    return
end

function setCol(textColour, backgroundColour)
    if textColour and backgroundColour then
        if term.isColour() then
            term.setTextColour(colours[textColour])
            term.setBackgroundColour(colours[backgroundColour])
            return true
        else
            return false
        end
    else
        return false
    end
end

function resetCol()
    if term.isColour then
        term.setTextColour(colours.white)
        term.setBackgroundColour(colours.black)
        return true
    else
        return false
    end
end

-- Print Functions
function printC(Text, Line, NextLine, Color, BkgColor) -- print centered
  local x, y = term.getSize()
  x = x/2 - #Text/2
  term.setCursorPos(x, Line)
  if Color then setCol(Color, BkgColor) end
  term.write(Text)
  if NextLine then
    term.setCursorPos(1, NextLine)
  end
  if Color then resetCol(Color, BkgColor) end
  return true
end

function printA(Text, xx, yy, NextLine, Color, BkgColor) -- print anywhere
  term.setCursorPos(xx,yy)
  if Color then setCol(Color, BkgColor) end
  term.write(Text)
  if NextLine then
    term.setCursorPos(1, NextLine)
  end
  if Color then resetCol(Color, BkgColor) end
  return true
end

function drawBox(StartX, lengthX, StartY, lengthY, Text, Color, BkgColor) -- does what is says on the tin.
  local x, y = term.getSize()
  if Color then setCol(Color, BkgColor) end
  if not Text then Text = "*" end
  lengthX = lengthX - 1
  lengthY = lengthY - 1
  EndX = StartX + lengthX
  EndY = StartY + lengthY
  term.setCursorPos(StartX, StartY)
  term.write(string.rep(Text, lengthX))
  term.setCursorPos(StartX, EndY)
  term.write(string.rep(Text, lengthX))
  for i = StartY, EndY do
    term.setCursorPos(StartX, i)
    term.write(Text)
    term.setCursorPos(EndX, i)
    term.write(Text)
  end
  resetCol(Color, BkgColor)
  return true
end

-- Start Code:
kbtc = "white"
kbbc = "blue"
keyText = "black"
keyBack = "white"
sKeyVer = 1.1
keyOutput = {}
capsToggle = false

function drawKeyboard()
    tRow1 = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "(", ")", "F1", " BACKSPACE",}
    tRow2 = {"Q", "W", "E", "R", "T", "Y", "U", "I", "O", "P", ":", "_", "F2", " ENTER/ OK",}
    tRow3 = {"A", "S", "D", "F", "G", "H", "J", "K", "L", "#", ";", "=", "F3", " CAPS LOCK",}
    tRow4 = {"/", "Z", "X", "C", "V", "B", "N", "M", "@", "~", "'", "+", "F4", " ---------",}
    tRow5 = {"[", "]", "{", "}", "&", "$", "%", "-", "*", "!", "?", ".", "F5", " >DannySMc",}

    local intX, intY = term.getCursorPos()
    drawBox(8, 38, 11, 3, " ", kbtc, kbbc)
    drawBox(8, 38, 13, 7, " ", kbtc, kbbc)
    drawBox(9, 36, 12, 1, " ", keyText, keyBack)
    drawBox(9, 36, 14, 2, " ", keyText, keyBack)
    drawBox(9, 36, 16, 2, " ", keyText, keyBack)
    drawBox(9, 36, 18, 1, " ", keyText, keyBack)
    printA("SPACE", 23, 19, false, keyText, keyBack)
    setCol(keyText, keyBack)

    i = 9
    for _, v in ipairs(tRow1) do
        term.setCursorPos(i,14)
        write(v)
        i = i + 2
    end
    i = 9
    for _,v in ipairs(tRow2) do
        term.setCursorPos(i,15)
        write(v)
        i = i + 2
    end
    i = 9
    for _,v in ipairs(tRow3) do
        term.setCursorPos(i,16)
        write(v)
        i = i + 2
    end
    i = 9
    for _,v in ipairs(tRow4) do
        term.setCursorPos(i,17)
        write(v)
        i = i + 2
    end
    i = 9
    for _,v in ipairs(tRow5) do
        term.setCursorPos(i,18)
        write(v)
        i = i + 2
    end
    resetCol()
    printC("   Keyboard (Ver: "..tostring(sKeyVer)..") - DannySMc", 13, 1, "red", kbbc)
    setCol("black", "white")
    term.setCursorPos(9, 12)
    write(": ")
    resetCol()
    setCol("black", "white")
    term.setCursorPos(11, 12)
end

function inputKeyboard()
    drawKeyboard()
    i = 11
    while true do
        local args = { os.pullEvent() }
        if args[1] == "monitor_touch" or args[1] == "mouse_click" then
            -- Check Y value first!
            if args[4] == 14 then
                -- Check X value
                if args[3] == 9 then
                    addCharacter(tRow1[1])
                elseif args[3] == 11 then
                    addCharacter(tRow1[2])
                elseif args[3] == 13 then
                    addCharacter(tRow1[3])
                elseif args[3] == 15 then
                    addCharacter(tRow1[4])
                elseif args[3] == 17 then
                    addCharacter(tRow1[5])
                elseif args[3] == 19 then
                    addCharacter(tRow1[6])
                elseif args[3] == 21 then
                    addCharacter(tRow1[7])
                elseif args[3] == 23 then
                    addCharacter(tRow1[8])
                elseif args[3] == 25 then
                    addCharacter(tRow1[9])
                elseif args[3] == 27 then
                    addCharacter(tRow1[10])
                elseif args[3] == 29 then
                    addCharacter(tRow1[11])
                elseif args[3] == 31 then
                    addCharacter(tRow1[12])
                elseif args[3] >= 33 and args[3] <= 34 then
                    return specialKeys(1)
                elseif args[3] >= 36 and args[3] <= 44 then
                    backSpace()
                end
            elseif args[4] == 15 then
                -- check x value
                if args[3] == 9 then
                    addCharacter(tRow2[1])
                elseif args[3] == 11 then
                    addCharacter(tRow2[2])
                elseif args[3] == 13 then
                    addCharacter(tRow2[3])
                elseif args[3] == 15 then
                    addCharacter(tRow2[4])
                elseif args[3] == 17 then
                    addCharacter(tRow2[5])
                elseif args[3] == 19 then
                    addCharacter(tRow2[6])
                elseif args[3] == 21 then
                    addCharacter(tRow2[7])
                elseif args[3] == 23 then
                    addCharacter(tRow2[8])
                elseif args[3] == 25 then
                    addCharacter(tRow2[9])
                elseif args[3] == 27 then
                    addCharacter(tRow2[10])
                elseif args[3] == 29 then
                    addCharacter(tRow2[11])
                elseif args[3] == 31 then
                    addCharacter(tRow2[12])
                elseif args[3] >= 33 and args[3] <= 34 then
                    return specialKeys(2)
                elseif args[3] >= 36 and args[3] <= 44 then
                    return enter_ok()
                end
            elseif args[4] == 16 then
                -- check x value
                if args[3] == 9 then
                    addCharacter(tRow3[1])
                elseif args[3] == 11 then
                    addCharacter(tRow3[2])
                elseif args[3] == 13 then
                    addCharacter(tRow3[3])
                elseif args[3] == 15 then
                    addCharacter(tRow3[4])
                elseif args[3] == 17 then
                    addCharacter(tRow3[5])
                elseif args[3] == 19 then
                    addCharacter(tRow3[6])
                elseif args[3] == 21 then
                    addCharacter(tRow3[7])
                elseif args[3] == 23 then
                    addCharacter(tRow3[8])
                elseif args[3] == 25 then
                    addCharacter(tRow3[9])
                elseif args[3] == 27 then
                    addCharacter(tRow3[10])
                elseif args[3] == 29 then
                    addCharacter(tRow3[11])
                elseif args[3] == 31 then
                    addCharacter(tRow3[12])
                elseif args[3] >= 33 and args[3] <= 34 then
                    return specialKeys(3)
                elseif args[3] >= 36 and args[3] <= 44 then
                    caps_lock()
                end
            elseif args[4] == 17 then
                -- check x value
                if args[3] == 9 then
                    addCharacter(tRow4[1])
                elseif args[3] == 11 then
                    addCharacter(tRow4[2])
                elseif args[3] == 13 then
                    addCharacter(tRow4[3])
                elseif args[3] == 15 then
                    addCharacter(tRow4[4])
                elseif args[3] == 17 then
                    addCharacter(tRow4[5])
                elseif args[3] == 19 then
                    addCharacter(tRow4[6])
                elseif args[3] == 21 then
                    addCharacter(tRow4[7])
                elseif args[3] == 23 then
                    addCharacter(tRow4[8])
                elseif args[3] == 25 then
                    addCharacter(tRow4[9])
                elseif args[3] == 27 then
                    addCharacter(tRow4[10])
                elseif args[3] == 29 then
                    addCharacter(tRow4[11])
                elseif args[3] == 31 then
                    addCharacter(tRow4[12])
                elseif args[3] >= 33 and args[3] <= 34 then
                    return specialKeys(4)
                elseif args[3] >= 36 and args[3] <= 44 then
                    extraInfo()
                end
            elseif args[4] == 18 then
                -- check x value
                if args[3] == 9 then
                    addCharacter(tRow5[1])
                elseif args[3] == 11 then
                    addCharacter(tRow5[2])
                elseif args[3] == 13 then
                    addCharacter(tRow5[3])
                elseif args[3] == 15 then
                    addCharacter(tRow5[4])
                elseif args[3] == 17 then
                    addCharacter(tRow5[5])
                elseif args[3] == 19 then
                    addCharacter(tRow5[6])
                elseif args[3] == 21 then
                    addCharacter(tRow5[7])
                elseif args[3] == 23 then
                    addCharacter(tRow5[8])
                elseif args[3] == 25 then
                    addCharacter(tRow5[9])
                elseif args[3] == 27 then
                    addCharacter(tRow5[10])
                elseif args[3] == 29 then
                    addCharacter(tRow5[11])
                elseif args[3] == 31 then
                    addCharacter(tRow5[12])
                elseif args[3] >= 33 and args[3] <= 34 then
                    return specialKeys(5)
                elseif args[3] >= 36 and args[3] <= 44 then
                    instructions()
                end
            elseif args[4] == 19 then
                -- check x value
                if args[3] >= 23 and args[3] <= 27 then
                    addCharacter(" ")
                end
            end
        end
    end
end

function addCharacter(charInput)
    if charInput == " " then
        setCol("black", "white")
        table.insert(keyOutput, charInput)
        term.setCursorPos(i, 12)
        write(charInput)
        i = i + 1
        resetCol()
    else
        if capsToggle == true then
            setCol("black", "white")
            table.insert(keyOutput, string.upper(charInput))
            term.setCursorPos(i, 12)
            write(string.upper(charInput))
            i = i + 1
            resetCol()
        elseif capsToggle == false then
            setCol("black", "white")
            table.insert(keyOutput, string.lower(charInput))
            term.setCursorPos(i, 12)
            write(string.lower(charInput))
            i = i + 1
            resetCol()
        end
    end
end

function backSpace()
    setCol("black", "white")
    table.remove(keyOutput)
    i = i - 1
    term.setCursorPos(i,12)
    write(" ")
    term.setCursorPos(i,12)
    resetCol()
end

function caps_lock()
    if capsToggle == true then
        term.setCursorPos(36,16)
        setCol("black", "white")
        write("CAPS LOCK")
        capsToggle = false
    elseif capsToggle == false then
        term.setCursorPos(36,16)
        setCol("red", "white")
        write("CAPS LOCK")
        capsToggle = true
    end
end

function enter_ok()
    returnString = table.concat(keyOutput)
    return returnString
end

function specialKeys(nKey)
    return nKey
end