BigMessages

letters = {
            ["A"] = {
                [1]=" XX ",
                [2]="X  X",
                [3]="XXXX",
                [4]="X  X",
                [5]="X  X"
            },

            ["B"] = {
                [1]="XXX ",
                [2]="X  X",
                [3]="XXX ",
                [4]="X  X",
                [5]="XXX "
            },
            ["C"] = {
                [1]=" XX ",
                [2]="X  X",
                [3]="X   ",
                [4]="X  X",
                [5]=" XX "
            },
            ["D"] = {
                [1]="XXX ",
                [2]="X  X",
                [3]="X  X",
                [4]="X  X",
                [5]="XXX "
            },
            ["E"] = {
                [1]="XXXX",
                [2]="X   ",
                [3]="XXX ",
                [4]="X   ",
                [5]="XXXX"
            },
            ["F"] = {
                [1]="XXXX",
                [2]="X   ",
                [3]="XXX ",
                [4]="X   ",
                [5]="X   "
            },
            ["G"] = {
                [1]=" XX ",
                [2]="X   ",
                [3]="X XX",
                [4]="X  X",
                [5]=" XX "
            },
            ["H"] = {
                [1]="X  X",
                [2]="X  X",
                [3]="XXXX",
                [4]="X  X",
                [5]="X  X"
            },
            ["I"] = {
                [1]="XXX",
                [2]=" X ",
                [3]=" X ",
                [4]=" X ",
                [5]="XXX"
            },
            ["J"] = {
                [1]="   X",
                [2]="   X",
                [3]="   X",
                [4]="X  X",
                [5]=" XX "
            },
            ["K"] = {
                [1]="X  X",
                [2]="X X ",
                [3]="XX  ",
                [4]="X X ",
                [5]="X  X"
            },
            ["L"] = {
                [1]="X   ",
                [2]="X   ",
                [3]="X   ",
                [4]="X   ",
                [5]="XXXX"
            },
            ["M"] = {
                [1]="X   X",
                [2]="XX XX",
                [3]="X X X",
                [4]="X   X",
                [5]="X   X"
            },
            ["N"] = {
                [1]="X  X",
                [2]="XX X",
                [3]="X XX",
                [4]="X  X",
                [5]="X  X"
            },
            ["O"] = {
                [1]=" XX ",
                [2]="X  X",
                [3]="X  X",
                [4]="X  X",
                [5]=" XX "
            },
            ["P"] = {
                [1]="XXX ",
                [2]="X  X",
                [3]="XXX ",
                [4]="X   ",
                [5]="X   "
            },
            ["Q"] = {
                [1]=" XX ",
                [2]="X  X",
                [3]="X  X",
                [4]="X X ",
                [5]=" X X"
            },
            ["R"] = {
                [1]="XXX ",
                [2]="X  X",
                [3]="XXX ",
                [4]="X X ",
                [5]="X  X"
            },
            ["S"] = {
                [1]=" XXX",
                [2]="X   ",
                [3]=" XX ",
                [4]="   X",
                [5]="XXX "
            },
            ["T"] = {
                [1]="XXXXX",
                [2]="  X  ",
                [3]="  X  ",
                [4]="  X  ",
                [5]="  X  "
            },
            ["U"] = {
                [1]="X  X",
                [2]="X  X",
                [3]="X  X",
                [4]="X  X",
                [5]=" XX "
            },
            ["V"] = {
                [1]="X   X",
                [2]="X   X",
                [3]=" X X ",
                [4]=" X X ",
                [5]="  X  "
            },
            ["W"] = {
                [1]="X   X",
                [2]="X   X",
                [3]="X X X",
                [4]="XX XX",
                [5]="X   X"
            },
            ["X"] = {
                [1]="X  X",
                [2]="X  X",
                [3]=" XX ",
                [4]="X  X",
                [5]="X  X"
            },
            ["Y"] = {
                [1]="X   X",
                [2]="X   X",
                [3]=" XXX ",
                [4]="  X  ",
                [5]="  X  "
            },
            ["Z"] = {
                [1]="XXX",
                [2]="  X",
                [3]=" X ",
                [4]="X  ",
                [5]="XXX"
            },
            ["!"] = {
                [1]="X",
                [2]="X",
                [3]="X",
                [4]=" ",
                [5]="X"
            },
            [" "] = {
                [1]="     ",
                [2]="     ",
                [3]="     ",
                [4]="     ",
                [5]="     "
            },
            ["1"] = {
                [1]=" X ",
                [2]="XX ",
                [3]=" X ",
                [4]=" X ",
                [5]="XXX"
            },
            ["2"] = {
                [1]=" XX ",
                [2]="X  X",
                [3]="  X ",
                [4]=" X  ",
                [5]="XXXX"
            },
            ["3"] = {
                [1]=" XX ",
                [2]="X  X",
                [3]="  X ",
                [4]="X  X",
                [5]=" XX "
            },
            ["4"] = {
                [1]="  X ",
                [2]=" XX ",
                [3]="X X ",
                [4]="XXXX",
                [5]="  X "
            },
            ["5"] = {
                [1]="XXXX",
                [2]="X   ",
                [3]="XXX ",
                [4]="   X",
                [5]="XXX "
            },
            ["6"] = {
                [1]=" XX ",
                [2]="X   ",
                [3]="XXX ",
                [4]="X  X",
                [5]=" XX"
            },
            ["7"] = {
                [1]="XXX ",
                [2]="   X",
                [3]="   X",
                [4]="  X ",
                [5]="  X "
            },
            ["8"] = {
                [1]=" XX ",
                [2]="X  X",
                [3]=" XX ",
                [4]="X  X",
                [5]=" XX "
            },
            ["9"] = {
                [1]=" XX ",
                [2]="X  X",
                [3]=" XXX",
                [4]="   X",
                [5]="   X"
            },
            ["0"] = {
                [1]=" XX ",
                [2]="X  X",
                [3]="X  X",
                [4]="X  X",
                [5]=" XX "
            },
            ["<"] = {
                [1]="  X",
                [2]=" X ",
                [3]="X  ",
                [4]=" X ",
                [5]="  X"
            },
            [">"] = {
                [1]="X  ",
                [2]=" X ",
                [3]="  X",
                [4]=" X ",
                [5]="X  "
            },

}

function getMessage(message)
    local messageList = {
                [1]="",
                [2]="",
                [3]="",
                [4]="",
                [5]=""
            }
    for i=1, #message do
        local letter = message:sub(i,i)
        local letter_list = letters[letter:upper()]
        if not letter_list then
            letter_list = letters[" "]
        end
        for k,list in pairs(letter_list) do
            messageList[k] = messageList[k] .. list
        end
        if i < #message then
            for k,list in pairs(messageList) do
                messageList[k] = messageList[k] .. " "
            end
        end
    end
    return messageList
end
function displayMessage(mon, message_name, color, x, y)
    local message = getMessage(message_name)
    if not message then return end
    local max_x, max_y = mon.getSize()
    local xo = gcapi.getCenter(max_x, #(message[1]))-1
    local yo = gcapi.getCenter(max_y, 5)-1
    if x then
        xo = x-1
    end
    if y then
        yo = y-1
    end

    mon.setBackgroundColor(color)
    for i,line in pairs(message) do
        for i2=1, #line do
            local letter = line:sub(i2,i2)
            if letter:lower() == "x" then
                mon.setCursorPos(xo+i2, yo+i)
                mon.write(" ")
            end
        end
    end
end